Simba Code:
program ogyFalcony;
{$DEFINE SMART}
{$i srl/srl.simba}
var
x,y,stuck:integer;
MyTPA : TPointArray;
MyPoint : TPoint;
Procedure DeclarePlayers;
begin
HowManyPlayers := 1;
NumberOfPlayers(HowManyPlayers);
CurrentPlayer := 0;
Players[0].Name :='';
Players[0].Pass :='';
Players[0].Nick :='';
Players[0].Active:=True;
end;
Procedure SpottedKebbit;
var
x, y, i : Integer;
begin
repeat
FindColorsTolerance(MyTPA, 3360859, MSx1, MSy1, MSx2, MSy2, 2);
if Length(MyTPA) = 0 then FindColorsTolerance(MyTPA, 3360859, MSX1, MSY1, MSX2, MSY2, 2);
for i := 0 to High(MyTPA)do
begin
MyPoint := MyTPA[i] MMouse (MyPoint.x, MyPoint.y, 3, 3);
if (IsUpTextMultiCustom(['potted','ebbit'])) then
begin
GetMousePos(x, y);
Mouse(x, y, 0, 0, False);
ChooseOption('atch');
Wait(500+random(250));
end;
wait(350+random(200));
end;
until(false);
end;
procedure GetCaughtKebbit;
var
x, y, i : Integer;
begin
repeat
FindColorsTolerance(MyTPA, 9544615, MSx1, MSy1, MSx2, MSy2, 3);
if Length(MyTPA) = 0 then FindColorsTolerance(MyTPA, 9544615, MSX1, MSY1, MSX2, MSY2, 3);
for i := 0 to High(MyTPA)do
begin
MyPoint := MyTPA[i] MMouse (MyPoint.x, MyPoint.y, 3, 3);
if (IsUpTextMultiCustom(['yr','alcon'])) then
begin
GetMousePos(x, y);
Mouse(x, y, 0, 0, False);
wait(500+random(200));
ChooseOption('etrieve');
Wait(500+random(250));
end;
wait(350+random(200));
end;
until(false);
end;
begin
Smart_Server := 86;
Smart_Members := True;
Smart_Signed := True;
Smart_SuperDetail := False;
SetUpSRL;
ActivateClient;
DeclarePlayers;
LoginPlayer;
ClickNorth(SRL_ANGLE_HIGH);
repeat
if not (LoggedIn)then
begin
TerminateScript;
end;
SpottedKebbit;
GetCaughtKebbit;
if (Stuck > 3)then
begin
WriteLn('We are stuck, logging out')
Logout;
TerminateScript;
end;
until(AllPlayersInactive);
end.