Simba Code:
program PieShellMaker;
{$DEFINE SMART}
{$i srl/srl.simba}
procedure DeclarePlayers;
begin
HowManyPlayers := 1;
NumberOfPlayers(HowManyPlayers);
CurrentPlayer := 0;
Players[0].Name := ''; //Enter username
Players[0].Pass := ''; //Enter password
Players[0].Pin := ''; //Enter pin (later in script aswell!!)
Players[0].Active := True;
end;
procedure SetupLogin;
begin
ClearDebug;
Smart_Server := 1;
Smart_Members := False;
Smart_Signed := True;
Smart_SuperDetail := False;
SetupSRL;
DeclarePlayers;
LoginPlayer;
end;
procedure BankingII;
var
b, Dish, Dough, X, Y:Integer;
begin
b:=0
repeat
begin;
OpenBank('akb', True, True);
if(PinScreen) then
InPin(''); //Enter your pin between the ''
if(BankScreen) then
Deposit(1, 28, True);
case random(36) of
0..9: begin;
Withdraw(2, 0, 5);
Withdraw(2, 0, 9);
Withdraw(3, 0, 5);
Withdraw(3, 0, 9);
end;
10..19: begin;
Withdraw(2, 0, 9);
Withdraw(2, 0, 5);
Withdraw(3, 0, 9);
Withdraw(3, 0, 5);
end;
20..23: begin;
Withdraw(3, 0, 5);
Withdraw(3, 0, 9);
Withdraw(2, 0, 5);
Withdraw(2, 0, 9);
end;
24..27: begin;
Withdraw(3, 0, 9);
Withdraw(3, 0, 5);
Withdraw(2, 0, 9);
Withdraw(2, 0, 5);
end;
28..29: begin;
Withdraw(2, 0, 9);
Withdraw(2, 0, 5);
Withdraw(3, 0, 5);
Withdraw(3, 0, 9);
end;
30..31: begin;
Withdraw(3, 0, 9);
Withdraw(3, 0, 5);
Withdraw(2, 0, 5);
Withdraw(2, 0, 9);
end;
32: begin;
Withdraw(3, 0, 9);
Withdraw(2, 0, 5);
Withdraw(3, 0, 5);
Withdraw(2, 0, 9);
end;
33: begin;
Withdraw(3, 0, 5);
Withdraw(2, 0, 9);
Withdraw(3, 0, 9);
Withdraw(2, 0, 5);
end;
34: begin;
Withdraw(3, 0, 5);
Withdraw(2, 0, 9);
Withdraw(3, 0, 5);
Withdraw(2, 0, 5);
end;
35: begin;
Withdraw(3, 0, 9);
Withdraw(2, 0, 9);
Withdraw(3, 0, 5);
Withdraw(2, 0, 5);
end;
36: begin;
Withdraw(3, 0, 5);
Withdraw(2, 0, 5);
Withdraw(3, 0, 9);
Withdraw(2, 0, 9);
end;
end;
CloseBank;
Wait(100 + Random(100));
end;
begin;
if GetCurrentTab = (tab_Inv) then
begin
WriteLn('Current tab is the inventory tab, correct!')
end else
begin
FTab(tab_Inv);
WriteLn('Changed tab to the inventory tab')
end;
begin;
Dish := BitmapFromString(4, 5, 'meJzT88/UQ0Z+6RDkG1cMZ/vEFAIR' +
'UASIIGwIAgA6UhPB');
Dough := BitmapFromString(6, 6, 'meJwzcfAwcfAwtHZmYmCAICDX2MED' +
'yMirr89vaCxuaYFwa/r76yZOrOrtK+vogIi0zprVNG0aRBDI7V64s' +
'Gv+fLggUKRvyZLeRYvhggDN4Cfg');
end;
if (FindBitmapSpiralTolerance(Dish, X, Y, 553, 204, 738, 467, 20)) and (FindBitmapSpiralTolerance(Dough, X, Y, 553, 204, 738, 467, 20)) then
begin;
Mouse(X, Y, 5, 5, True);
FindBitmapSpiralTolerance(Dish, X, Y, 553, 204, 738, 467, 20);
Mouse(X, Y, 5, 5, True);
FreeBitMap(Dish);
FreeBitMap(Dough);
Wait(400 + Random(200));
MouseBox(236, 401, 285, 456, 1);
Wait(16500 + Random(2000));
inc(b);
end;
end;
until b=999999999999
end;
begin
SetupLogin;
begin
SetUpSRL;
ActivateClient;
SetAngle(SRL_ANGLE_LOW)
repeat
BankingII;
until(false);
end;
end.