Code:
program SoulSplitAgility;
{$i SRL/SRL.simba}
var
x, y : Integer;
procedure ClickRope;
begin
wait(1000);
if
FindColorTolerance(x, y, 10543, 187, 167, 361, 314, 2) then
begin
MMouse(x, y, 0, 0);
Wait(500);
ClickMouse2(mouse_Left);
Wait(3000);
end else
begin
writeln('i cant find the color');
writeln('move your camera a little bit');
Terminatescript
end
end;
procedure WalkToLog;
begin
if
FindColorTolerance(x, y, 7702932, 230, 251, 267, 287, 10) then
begin
MMouse(x, y, 0, 0);
Wait(500);
ClickMouse2(mouse_Left);
Wait(3000);
end else
begin
writeln('i cant find the color');
writeln('move your camera a little bit');
Terminatescript
end
end;
procedure ClickLog;
begin
if
FindColorTolerance(x, y, 935537, 201, 150, 263, 200, 10) then
begin
MMouse(x, y, 0, 0);
Wait(500);
ClickMouse2(mouse_Left);
Wait(5000);
end else
begin
writeln('i cant find the color');
writeln('move your camera a little bit');
Terminatescript
end
end;
procedure ClickNet;
begin
if
FindColorTolerance(x, y, 2307136, 122, 135, 145, 218, 10) then
begin
MMouse(x, y, 0, 0);
Wait(500);
ClickMouse2(mouse_Left);
Wait(4000);
end else
begin
writeln('i cant find the color');
writeln('move your camera a little bit');
Terminatescript
end
end;
procedure ClickLedge;
begin
if
FindColortolerance(x, y, 14424, 174, 91, 218, 162, 1) then
begin
MMouse(x, y, 0, 0);
Wait(500);
ClickMouse2(mouse_Left);
Wait(4000);
end else
begin
writeln('i cant find the color');
writeln('move your camera a little bit');
Terminatescript
end
end;
procedure ClickLadder;
begin
if
FindColorTolerance(x, y, 737368, 3, 181, 514, 336, 1) then
begin
MMouse(x, y, 0, 0);
Wait(500);
ClickMouse2(mouse_Left);
Wait(3000);
end else
begin
writeln('i cant find the color');
writeln('move your camera a little bit');
Terminatescript
end
end;
procedure WalkWall;
begin
if
FindColorTolerance(x, y, 608609, 246, 6, 288, 29, 50) then
begin
MMouse(x, y, 0, 0);
Wait(500);
ClickMouse2(mouse_Left);
Wait(5000);
end else
begin
writeln('i cant find the color');
writeln('move your camera a little bit');
Terminatescript
end
end;
procedure ClickWall;
begin
if
FindColorTolerance(x, y, 8553356, 386, 82, 432, 134, 50) then
begin
MMouse(x, y, 0, 0);
Wait(500);
ClickMouse2(mouse_Left);
Wait(4000);
end else
begin
writeln('i cant find the color');
writeln('move your camera a little bit');
Terminatescript
end
end;
procedure ClickWall1;
begin
if
FindColorTolerance(x, y, 6580328, 320, 146, 368, 191, 50) then
begin
MMouse(x, y, 0, 0);
Wait(500);
ClickMouse2(mouse_Left);
Wait(3000);
end else
begin
writeln('i cant find the color');
writeln('move your camera a little bit');
Terminatescript
end
end;
procedure ClickWall2;
begin
if
FindColorTolerance(x, y, 6580328, 320, 146, 368, 191, 50) then
begin
MMouse(x, y, 0, 0);
Wait(500);
ClickMouse2(mouse_Left);
Wait(3000);
end else
begin
writeln('i cant find the color');
writeln('move your camera a little bit');
Terminatescript
end
end;
procedure WalkRound;
begin
if
FindColorTolerance(x, y, 608609, 388, 170, 421, 199, 50) then
begin
MMouse(x, y, 0, 0);
Wait(500);
ClickMouse2(mouse_Left);
Wait(4000);
end else
begin
writeln('i cant find the color');
writeln('move your camera a little bit');
Terminatescript
end
end;
procedure WalkEnd;
begin
if
FindColorTolerance(x, y, 5529705, 385, 129, 422, 164, 50) then
begin
MMouse(x, y, 0, 0);
Wait(500);
ClickMouse2(mouse_Left);
Wait(4000);
end else
begin
writeln('i cant find the color');
writeln('move your camera a little bit');
Terminatescript
end
end;
begin
setupsrl;
repeat
ClickRope;
WalkToLog;
ClickLog;
ClickNet;
ClickLedge;
ClickLadder;
WalkWall;
ClickWall;
ClickWall1;
ClickWall2;
WalkRound;
WalkEnd;
until (IsKeyDown(114)); // F3 to stop the script
end.
and where stands the 2 for in