Code:
program AgilityP07Test;
{$I SRL/SRL.Simba}
{$I P07Include.Simba}
//Made By Rules
var
x, y, logcol, netcol, treecol, ropecol, branchcol, climbcol, pipecol:integer;
Procedure P07_DeclarePlayer;
begin
P07_PlayerName := '';
P07_PlayerPass := '';
end;
procedure Log;
begin
P07_MakeCompassNorth;
P07_MakeCameraAngleHigh;
logcol := 538974 Writeln('Walking Log');
if P07_FindObjCustom(x, y, ['Walk', 'lk-acr', 'Log', 'og bal'], [logcol, 540007, 534854], 3) then
begin
ClickMouse2(mouse_left);
wait(randomrange(100, 200));
end;
end;
procedure Net;
begin
P07_MakeCameraAngleHigh;
P07_MakeCompassSouth;
netcol := 132102 Writeln('climbing net');
if P07_FindObjCustom(x, y, ['Climb', 'mb-ove', 'Obstacle'], [netcol], 5) then
begin
ClickMouse2(mouse_left);
wait(randomrange(100, 200));
end;
end;
procedure Tree;
begin
P07_MakeCameraAngleLow;
P07_MakeCompassEast;
treecol := 1525855 Writeln('climbing branch');
if P07_FindObj(x, y, 'Climb', treecol, 5) then
begin
ClickMouse2(mouse_left);
wait(randomrange(100, 200));
end;
end;
procedure Rope;
begin
P07_MakeCameraAngleHigh;
ropecol := 6063267 Writeln('Walk Rope');
if P07_FindObjCustom(x, y, ['Walk', 'lk-on'], [ropecol, 5799581], 5) then
begin
wait(1000);
ClickMouse2(mouse_left);
wait(randomrange(100, 200));
end;
end;
procedure Branch;
begin
P07_MakeCameraAngleHigh;
branchcol := 4354956 Writeln('Climb Branch');
if P07_FindObj(x, y, 'Climb', branchcol, 5) then
begin
ClickMouse2(mouse_left);
wait(randomrange(100, 200));
end;
end;
procedure Climb;
begin
climbcol := 935537 Writeln('Climb net');
if P07_FindObj(x, y, 'Climb', climbcol, 5) then
begin
ClickMouse2(mouse_left);
wait(randomrange(100, 200));
end;
end;
procedure Pipe;
begin
P07_MakeCameraAngleHigh;
pipecol := 7697790 Writeln('Squeeze Pipe');
if P07_FindObj(x, y, 'Squeeze', pipecol, 5) then
begin
ClickMouse2(mouse_right);
wait(randomrange(100, 200));
P07_ChooseOptionMulti(['eze-thro']);
wait(randomrange(600, 1000));
end;
end;
Procedure PipeD;
var
DTM_pipe: integer;
begin
P07_MakeCameraAngleHigh;
DTM_pipe := DTMFromString('m1gAAAHic42JgYOAHYmkglgNiBSCWBWI+BghgBGIWIBYAYmEgZgJiHqh6JSiWAWJBqDoQqMjPY4iPiGCwMjNjKMvNYSjKzGSoKiwE45iwMLBYTmoqAytQrRERmJFIjAAAlI8PFw==');
ClickDTMRotatedIn(DTM_pipe, MSX1, MSY1, MSX2, MSY2, - Pi, Pi, Pi / 30, [], mouse_Left);
WriteLn('Found Pipe');
Wait(2500);
while (isMoving) do
wait(500);
FreeDTM(DTM_pipe);
end;
procedure WalktoLog;
var
DTM_log: integer;
begin
DTM_log := DTMFromString('mrAAAAHic42BgYGADYl4o5gRiJgYIANHsQMwKxCxAzAXEfEDMAxWHqWNhZMSLCQFGAhgGAFHUAKs=');
Wait(2000);
ClickDTMRotatedIn(DTM_log, MMX1, MMY1, MMX2, MMY2, - Pi, Pi, Pi / 30, [], mouse_Left);
WriteLn('Found DTM');
Wait(2500);
while (isMoving) do
wait(500);
P07_MakeCompassSouth;
FreeDTM(DTM_log);
end;
begin
P07_DeclarePlayer;
SetupP07Include;
//ActivateClient;
Repeat
Log;
Wait(3000);
Net;
Wait(3000);
Tree;
Wait(3000);
P07_MakeCompassEast;
Rope;
Wait(5000);
Branch;
P07_MakeCompassNorth;
Wait(3000);
P07_MakeCameraAngleLow;
Climb;
Wait(3000);
P07_MakeCameraAngleHigh;
Repeat
//Pipe;
PipeD;
P07_MakeCameraAngleHigh;
Wait(4000);
Until(FindColorTolerance(X, Y, 1980742, 94, 88, 405, 212, 3));
WalktoLog;
Wait(2000);
Until(False);
end.
This is left click! For the first log we need to find angle and compass view for it to click the beginning so im working on that atm! the pipe works fine for me for 6 runs none stop! and Rope!