Code:
procedure XXX;
var
MyTPA : TPointArray;
MyPoint : TPoint;
x, y, i : Integer;
ToArea:TPointArray;
begin
MakeCompass('N');
SetAngle(SRL_ANGLE_HIGH);
repeat
FindColorsTolerance(MyTPA, 2772329, 235, 203, 271, 271, 10);
if Length(MyTPA) = 0 then FindColorsTolerance(MyTPA, 3432579, MSX1, MSY1, MSX2, MSY2, 10);
for i := 0 to High(MyTPA)do
begin
MyPoint := MyTPA[i]
MMouse (MyPoint.x, MyPoint.y, 3, 3);
if (IsUpTextMultiCustom(['lank'])) then
begin
wait(500);
GetMousePos(x, y);
Mouse(x, y, 2, 2, true);
Wait(500+random(250));
end;
end;
until ???
Wait(350+random(350));
SPS_Setup(runescape_surface,['9_10','8_10']);
ToBananasArea := [Point(3657, 4078), Point(3648, 4076), Point(3634, 4077), Point(3625, 4077), Point(3611, 4077), Point(3597, 4079), Point(3585, 4075), Point(3575, 4071), Point(3567, 4065), Point(3558, 4061), Point(3548, 4059), Point(3534, 4058), Point(3525, 4057), Point(3510, 4055), Point(3501, 4055), Point(3497, 4050), Point(3500, 4043), Point(3502, 4021)];
SPS_WalkPath(ToBananasArea);
wait(1000);
end;