Simba Code:
program ApeAgility; //Begin two tiles east from stepping-stone (all grass tile)
procedure Logout;
var
x, y : integer;
begin
movemouse(754, 11);
wait(250);
ClickMouse(x, y, 1);
wait(500);
movemouse(643, 403);
wait(250);
ClickMouse(x, y, 1);
wait(500);
end;
procedure CompassNorth;
var
x, y : integer;
begin
movemouse(542, 22);
wait(250);
ClickMouse(x, y, 1);
wait(500);
end;
procedure ClickStone;
var
x, y : integer;
begin
if FindColorTolerance(x, y, 2056815, 175, 171, 195, 190, 2) then
begin
movemouse(x, y);
wait(250);
ClickMouse(x, y, 1);
wait(5000);
end else
begin
writeln('didnt find the stone');
wait(1000);
Logout;
TerminateScript;
end;
end;
procedure ClickTree;
var
x, y : integer;
begin
if FindColorTolerance(x, y, 5547729, 138, 138, 171, 165, 10) then
begin
//writeln('found tree!');
movemouse(x, y);
wait(250+random(200));
ClickMouse(x, y, 1);
wait(4000+random(500));
end else
begin
writeln('didnt find the tree');
wait(1000);
//Logout;
//TerminateScript;
end;
end;
procedure ClickBars;
var
x, y : integer;
begin
if FindColorTolerance(x, y, 6265273, 258, 164, 269, 170, 5) then
begin
movemouse(x, y);
wait(250+random(200));
ClickMouse(x, y, 1);
wait(15000+random(500));
end else
begin
writeln('didnt find the bars');
wait(1000);
Logout;
TerminateScript;
end;
end;
procedure ClickSlope;
var
x, y : integer;
begin
if FindColorTolerance(x, y, 2056044, 153, 113, 228, 202, 5) then
begin
movemouse(x, y);
wait(250+random(200));
ClickMouse(x, y, 1);
wait(3500+random(500));
end else
begin
writeln('didnt find the slope');
wait(1000);
Logout;
TerminateScript;
end;
movemouse(661, 132); //minimap
wait(250+random(200));
clickmouse(661, 132, 1);
wait(6000+random(500));
end;
procedure ClickRope;
var
x, y : integer;
begin
if FindColorTolerance(x, y, 4886967, 310, 69, 321, 78, 5) then
begin
movemouse(x, y);
wait(250+random(200));
ClickMouse(x, y, 1);
wait(4000+random(500));
end else
begin
writeln('didnt find the rope');
wait(1000);
Logout;
TerminateScript;
end;
end;
procedure ClickDown;
var
x, y : integer;
begin
if FindColorTolerance(x, y, 4292770, 298, 43, 322, 57, 5) then
begin
movemouse(x, y);
wait(250+random(200));
ClickMouse(x, y, 1);
wait(2000+random(500));
end else
begin
writeln('didnt find the downtree');
wait(1000);
Logout;
TerminateScript;
end;
movemouse(572, 115); //minimaptostart
wait(250+random(200));
clickmouse(572, 115, 1);
wait(8000+random(500));
end;
begin
repeat
CompassNorth;
ClickStone;
ClickTree;
ClickBars;
ClickSlope;
ClickRope;
ClickDown;
until(false)
end.