Code:
procedure Course;
begin;
MoveMouse ( 255, 165);
ClickMouse (255, 233, 1);
Wait (5999);
MoveMouse (228, 302);
ClickMouse (255, 302, 1);
Wait (12500);
MoveMouse (142, 168);
ClickMouse (130, 163, 1);
Wait (5000);
MoveMouse (195, 139);
ClickMouse (195, 139, 1);
Wait (10000);
MoveMouse (256, 203);
ClickMouse (256, 203, 1);
Wait (4000);
MoveMouse (312, 19);
ClickMouse (312, 19, 1);
Wait (7000);
MoveMouse (386, 94);
ClickMouse (386, 94, 1);
Wait (7250);
MoveMouse (435, 168);
ClickMouse (435, 168, 1);
Wait (7000);
MoveMouse (456, 148);
ClickMouse (456, 148, 1);
Wait (4000);
MoveMouse (372, 202);
ClickMouse (372, 202, 1);
Wait (4000);
end;
procedure RopeSwing;
var x, y: integer;
begin
if FindObj(x, y, 'ope', 272431, 3) then
begin
Mouse(x, y, 2, 2, false);
ChooseOption('ope');
Wait (7000)
end;
end;
procedure NextObstacle;
var x, y: integer;
begin
if FindObj(x, y, 'og', 1910844, 4) then
begin
Mouse(x, y, 2, 2, false);
ChooseOption('og');
Wait (13000)
end;
if not FindObj(x, y, 'add', 4543578, 2) then RopeSwing;
Mouse(x, y, 2, 2, false);
ChooseOption('add');
then RopeSwing; <=== Get the error here.
end;
procedure NetClimb;
var x, y: integer;
begin
if FindObj(x, y, 'tac', 3626091, 3) then
begin
Mouse(x, y, 2, 2, false);
ChooseOption('tac');
end;
end;
begin
SetUpSRL;
ActivateClient;
DeclarePlayers;
RopeSwing;
NextObstacle;
NetClimb;
end.