Simba Code:
program TinderboxPro;
{$DEFINE SMART}
{$i srl/srl.simba}
{$i sps/sps.simba}
var
teleport:integer;
x,y:Integer;
myPath:TPointArray;
procedure DeclarePlayers;
begin
HowManyPlayers := 1;
NumberOfPlayers(HowManyPlayers);
CurrentPlayer := 0;
with Players[0] do
begin
Name := '';
Pass := '';
Nick := '';
Active := True;
Pin := '';
BoxRewards := ['Xp', 'mote', 'ostume', 'oins', 'aphire', 'ssence'];
end;
end;
procedure SetDtm;
begin;
teleport := DTMFromString('mbQAAAHicY2VgYLBlYmBwBmIzILaCssUYGRj4gVgUiGWgWE/DgMHd3pghK/IAQ2zgUob86dcZsAFGLBgMAN03B7E=');
end;
procedure FreeeDtm;
begin;
FreeDTM(teleport);
end;
procedure ToBank;
begin;
FTab(tab_Magic);
if FindDTM(teleport, x, y, MIX1, MIY1, MIX2, MIY2) then;
Mouse(x, y, 4, 4, False);
ChooseOption('revious-des');
wait(18000+random(200));
begin;
SPS_WalkPath(myPath);
Writeln('Walking to bank');
begin
OpenBankFast('clt');
wait(900+random(200));
if PinScreen then
InPin(Players[CurrentPlayer].Pin);
if BankScreen then
DepositAll;
end;
end;
end;
begin;
SRL_SixHourFix := True;
SMART_FixSpeed := True;
SetupSRL;
DeclarePlayers;
LoginPlayer;
SPS_Setup(RUNESCAPE_SURFACE,['6_6','6_7','7_7','7_6']);
myPath := [Point(2566, 2723), Point(2574, 2725), Point(2579, 2720), Point(2586, 2719), Point(2597, 2719), Point(2609, 2715), Point(2619, 2716), Point(2627, 2716), Point(2635, 2717), Point(2646, 2714), Point(2661, 2713), Point(2674, 2713), Point(2693, 2710), Point(2706, 2711), Point(2719, 2712), Point(2726, 2712), Point(2734, 2710), Point(2740, 2709), Point(2738, 2691), Point(2740, 2680)];
SetDtm;
Repeat
ToBank;
until(Not (LoggedIn));
FreeeDtm;
end.