here it says acces violation
SCAR Code:
Program New;
{.include srl/srl.scar}
Var
x, y, wall :integer;
procedure FindWall;
begin
repeat
mmouse(146, 181,2,2);
wait(100+random(50));
if isuptext('all')then
begin
x:=146;
Y:=291;
wait(100);
exit;
end else
mmouse(343, 175,2,2);
wait(100+random(50));
if isuptext('all')then
begin
x:=343;
Y:=175;
exit;
wait(100+random(50));
end;
until(False)
freedtm(Wall);
end;
{===================]
MainLoop
[===================}
Begin
SetUpSrl;
repeat
FindWall;
wait(100+random(50));
Mouse(x,y,0,0,true);
wait(5000+random(1000));
x:=0;
y:=0;
until (false)
End.
thanks!
btw, this is for the agility arena if you can read it (its not standardized) then it will click 2 diff things so i get 8 xp ecrytime
hejumps over a wall and the wal is on that coord or the other coord