Still giving me the same error.
Edit: here's the script:
Simba Code:
{$DEFINE SMART}
{$i srl\srl.scar}
{$i reflection\reflection.simba}
procedure DeclarePlayers;
begin
HowManyPlayers := 1;
NumberOfPlayers(HowManyPlayers);
CurrentPlayer := 0;
with Players[0] do
begin
Name := '';
Pass := '';
Nick := '';
Active := true;
Pin := '';
BoxRewards := ['XP', 'ostume', 'mote', 'Gem', 'ithril', 'oal'];
Integers[0] := 333;
end;
end;
procedure AntiBan;
begin
case random(1001) of
0..40: BoredHuman;
41..80: PickUpMouse;
81..120: HoverSkill('Smithing', false);
121..160: HoverSkill('Magic', false);
161..200: RandomMovement;
201..220: MakeCompass('random');
220..240: RandomRClick;
end;
end;
procedure WithdrawOres;
begin
if not BankScreen then
R_OpenBankBooth('vwb');
if PinScreen then
InPin(Players[0].Pin);
if BankScreen then
begin
Withdraw(3, 0, 3); //bank slot 4
wait(365 + random(210));
Withdraw(2, 0, 0);
wait(132 + random(52)); //bank slot 3
end;
CloseBank;
wait(50 + random(300));
end;
procedure CastSpell;
var
a, b, i, x, y, Bitmap: Integer;
begin
R_FindRandoms;
Bitmap := BitmapFromString(14, 7, 'meJw9kDEKwkAQRdmNJrFIbpBecPE' +
'MizewtRAsUnsAsbH1CKmtrdNYpYq9jYXYKEFE1EZZEN86IAzhzf9/' +
'Z2ej41ynpR5tqUD1I1sHswvV0pZKehuUaPXUcQ6TgVFUZ44Ch92DV' +
'hktR+Ss13/gk6bACseLwe7uLZXJhPbwBjAfMamaf5Ka7q+EuQsLwJ' +
'JlAPP64PplGGJreH08Sxhgjr/UFHxJOucIyFtwadPTmyQgy5CUZcS' +
'dLB+0AK0k/eSq4Tn8li8k64Ze');
for i := 1 to 3 do
begin
if GetCurrentTab <> tab_Magic then
GameTab(tab_Magic);
if FindBitmapToleranceIn(Bitmap, x, y, MIX1, MIY1, MIX2, MIY2, 30) then
Mouse(x, y, 2, 2, true);
FreeBitmap(Bitmap);
while (GetCurrentTab <> tab_Inv) and (a <= 3) do
begin
wait(300);
a := i + 1;
end;
R_FindRandoms;
MouseItem(i, true);
while (GetCurrentTab <> tab_Magic) and (b <= 3) do
begin
wait(500 + random(500));
b := b + 1;
end;
AntiBan;
end;
end;
procedure BankOres;
begin
if not BankScreen then
R_OpenBankBooth('vwb');
if PinScreen then
InPin(Players[0].Pin);
if BankScreen then
Deposit(1, 3, true);
end;
procedure MainLoop;
var
loads: Integer;
begin
repeat
WithdrawOres;
CastSpell;
BankOres;
loads := loads + 1;
ClearDebug;
writeln('Running for: ' + TimeRunning);
writeln('Loads done: ' + IntToStr(loads));
writeln('Smithing exp: ' + ToStr(112.5 * loads));
writeln('Magic exp: ' + IntToStr(159 * loads));
until(loads = Players[0].Integers[0]);
end;
begin
Smart_Members := false;
Smart_Server := 123;
Smart_Signed := true;
Smart_SuperDetail := false;
SetupSRL;
DeclarePlayers;
LogInPlayer;
MainLoop;
Logout;
end.