scarscaper4life
07-09-2006, 01:49 AM
hey this my first script and i was wondering what i am doing wrong because i set the monsters color and name and it doesn't click on the monster it just laggs here the script anyhelp will be very greatly apprechiated(soz can't spell that)
program monsterkiller;
{.include SRL/SRL.scar}
{.include SRL/SRL/Skill/Fighting.scar}
var
tol,monsterColor1,monsterColor2,monsterColor3:inte ger;
MonsterName :string;
procedure setup;
begin
MonsterColor1:=1188253;//monster color
MonsterColor2:=1188250;//monster color
MonsterColor3:=3033954;//monster color
tol:=10;//tolarence for finding monster
MonsterName:='Guard';
end;
procedure FindRandoms;
begin
FindNormalRandoms;
end;
procedure ownMonster;
begin
wait(2000)random(200)
KAttackMonster(monsterColor1, MonsterColor2, MonsterColor3, Tol, 'MonsterName');
end;
begin
setupsrl;
Findrandoms
repeat
ownMonster;
until false
end.
program monsterkiller;
{.include SRL/SRL.scar}
{.include SRL/SRL/Skill/Fighting.scar}
var
tol,monsterColor1,monsterColor2,monsterColor3:inte ger;
MonsterName :string;
procedure setup;
begin
MonsterColor1:=1188253;//monster color
MonsterColor2:=1188250;//monster color
MonsterColor3:=3033954;//monster color
tol:=10;//tolarence for finding monster
MonsterName:='Guard';
end;
procedure FindRandoms;
begin
FindNormalRandoms;
end;
procedure ownMonster;
begin
wait(2000)random(200)
KAttackMonster(monsterColor1, MonsterColor2, MonsterColor3, Tol, 'MonsterName');
end;
begin
setupsrl;
Findrandoms
repeat
ownMonster;
until false
end.