Simba Code:
program ogyFalcony;
{$DEFINE SMART}
{$i srl/srl.simba}
var
x,y,stuck,Spotted,Falcon,ToBird, tried,acomplished :integer;
MyTPA : TPointArray;
MyPoint : TPoint;
aFound: Extended;
Procedure DeclarePlayers;
begin
HowManyPlayers := 1;
NumberOfPlayers(HowManyPlayers);
CurrentPlayer := 0;
Players[0].Name :='';
Players[0].Pass :='';
Players[0].Nick :='';
Players[0].Active:=True;
end;
procedure SetDTM;
begin
Spotted := DTMFromString('mbQAAAHicY2VgYNjECMEbgXgrEG8GYl2guAEQqwOxPhBrAXFKiDmDk5UOQ0a4FUNejC1DSrgTAxdQHB0zYsFgAACgMQkw');
Falcon := DTMFromString('mQwAAAHicY2ZgYDgIxMeAeD8QN0FxKxCbGukxWJkbMdjbmDPwA/kgzArEjEgYCAAThQXj');
ToBird := DTMFromString('mlwAAAHicY2dgYGAFYnYgZmaAADYomxOIeYCYESrODpUDYQ4gvrfejeHDVQEwBrHf7+MHYxCbCyjPhAMz4sFQAAAJ+A0J');
end;
procedure FrDTM;
begin
FreeDTM(Spotted);
FreeDTM(Falcon);
FreeDTM(toBird);
end;
procedure ClickOnSpotted(PX:Integer; Click: Boolean);
begin
if FindDTMRotated(PX, x, y, MSX1, MSY1, MSX2, MSY2, -Pi, Pi, Pi/30, aFound) then
begin
Mouse(x, y, 3, 3, Click);
end;
end;
procedure GoToBird(PX:Integer; Click: Boolean);
begin
if FindDTMRotated(PX, x, y, MMX1, MMY1, MMX2, MMY2, -Pi, Pi, Pi/30, aFound) then
begin
Mouse(x, y, 3, 3, Click);
end;
end;
procedure ClickOnFalcon(PX:Integer; Click: Boolean);
begin
if FindDTMRotated(PX, x, y, MSX1, MSY1, MSX2, MSY2, -Pi, Pi, Pi/30, aFound) then
begin
Mouse(x, y, 3, 3, Click);
end;
end;
Procedure Drop;
var
I: Integer;
begin
for i := 2 to 28 do
begin
InvMouse(I, 3);
If IsUpTextMultiCustom(['ebbit','ones']) then
begin
ClickMouse2(false);
ChooseOption('rop');
end;
end;
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;
repeat
SetDTM;
MouseSpeed := 15;
ClickOnSpotted(Spotted, False);
wait(100+random(150));
ChooseOption('atch');
wait(3200+random(150));
FrDTM;
SetDTM;
if not FindDTMRotated(ToBird, x, y, MMX1, MMY1, MMX2, MMY2, -Pi, Pi, Pi/30, aFound) then
begin
ClickOnSpotted(Spotted, False);
end;
MouseSpeed := 15;
GoToBird(ToBird, True);
wait(3200+random(150));
FrDTM;
SetDTM;
MouseSpeed := 18;
ClickOnSpotted(Spotted, False);
ClickOnFalcon(Falcon, False);
wait(200+random(150));
ChooseOption('etrieve');
wait(3000+random(250));
FrDTM;
until(invfull);
If invfull then
begin
drop;
end;
if (Stuck > 3)then
begin
WriteLn('We are stuck, logging out')
Logout;
TerminateScript;
end;
until(AllPlayersInactive);
end.