SCAR Code:
program AutoEnchanter;
{.include SRL/SRL.scar}
{.include SRL/SRL/Skill/Magic.scar}
var
Casts, ItemCol, ItemRow, CosmicRune, WaterRune : Integer;
procedure DeclarePlayers;
begin
HowManyPlayers := 1;
NumberOfPlayers(HowManyPlayers);
CurrentPlayer := 0;
Players[0].Name := 'username';
Players[0].Pass := 'password';
Players[0].Nick := 'sern';
Players[0].Pin := '0000'; //Pin, 0000 if none
Players[0].Active := True;
Players[0].Strings[0] := 'veb';//which bank you are in
Players[0].Integers[0] := 5; //casts (make sure you have enough supplies!!!!) <26
ItemCol := 1; //the item column of sapphire jewelry in the bank
ItemRow := 1; //the item row of sapphire jewelry in the bank
end;
procedure DeclareDTMs;
begin
CosmicRune := DTMFromString('78DA63B4626060686100036608C570FFAE340' +
'33F906684F2192D81442D116A7A08A83120C22E47FC6AFE030100' +
'D0591146');
WaterRune := DTMFromString('78DA638C63606058CE0006CC108A414472390' +
'33F906684F219416A361350130D24D61150930C24D6E356F31F08' +
'006A670BCE');
end;
procedure WithdrawSapphire;
begin
if (not LoggedIn) then exit;
if (not BankScreen) or (not PinScreen) then OpenBankFast(Players[CurrentPlayer].Strings[0]);
if (PinScreen) then InPin(Players[CurrentPlayer].Pin);
if (BankScreen) then
begin
FixBank;
Withdraw(ItemCol, ItemRow, Players[0].Integers[0]);
Wait(200+Random(100));
CloseBank;
end;
end;
procedure WithdrawRunes;
var
cx, cy, wx, wy : integer;
begin
if (not LoggedIn) then exit;
OpenBankFast(Players[CurrentPlayer].Strings[0]);
if (BankScreen) then
begin
DepositAll;
FixBank;
if FindDTM(CosmicRune, cx, cy, MSX1, MSY1, MSX2, MSY2) then
begin
Mouse(cx, cy, 5, 5, false);
Wait(Random(100));
ChooseOption('ll');
Wait(100+Random(100));
end else
begin
Writeln('[Error] Couldnt find Cosmic Runes');
CloseBank;
Logout;
TerminateScript;
end;
if FindDTM(WaterRune, wx, wy, MSX1, MSY1, MSX2, MSY2) then
begin
Mouse(wx, wy, 5, 5, false);
Wait(Random(100));
ChooseOption('ll');
Wait(100+Random(100));
end else
begin
Writeln('[Error] Couldnt find Water Runes');
CloseBank;
Logout;
TerminateScript;
end;
end;
end;
procedure EnchantSapphire;
var
s : integer;
begin
if (not LoggedIn) then exit;
if (bankscreen) then exit;
for s:=3 to 28 do
begin
GameTab(7);
CastSpell(7);
if (ExistsItem(s)) then
begin
MouseItem(s, true);
Casts := Casts + 1;
Wait(200+Random(100));
end else
break;
end;
end;
procedure DepositEnchanted;
begin
if (not LoggedIn) then exit;
OpenBankFast(Players[CurrentPlayer].Strings[0]);
if (BankScreen) then
begin
Deposit(3, 28, true);
end;
end;
procedure AntiRandoms;
begin
if not LoggedIn then Exit;
FindNormalRandoms;
if FindFight then RunTo('N',True);
end;
procedure AntiBan;
begin
case random(33) of
0: AlmostLogout;
end;
end;
procedure Setup;
begin
SetupSRL;
DeclarePlayers;
DeclareDTMs;
ActivateClient;
LoginPlayer;
end;
Begin
Setup;
WithdrawRunes;
WithdrawSapphire;
EnchantSapphire;
DepositEnchanted;
end.
Start In Any Bank.
Fill In Form.
Select Client (Crosshair).
Have Sapphire in bank at ItemCol&ItemRow.
Have Cosmic and Water Runes in top screen of bank.
This script is really just a tutorial-type for IsJusMe. It wouldnt be too good for long shifts atm, but feel free to edit if you want, just credit where neccessary.