Log in

View Full Version : Best Banking function to use?



Mahatna
04-30-2012, 03:39 PM
Hey guys, i finished the first parts of my script, fully working now, all i need to do is figure out the banking part then i can add AntiBan ect..ect..

My script is to cast lunar spell "Humidify". The first 3 slots are free also, i was going to do it manually but my gut says dont do it.

Want this to be working at soulwars bank

program New;
{$DEFINE SMART}
{$i srl/srl.simba}

Procedure DeclarePlayers;
begin
HowManyPlayers := 1;
NumberOfPlayers(HowManyPlayers);
CurrentPlayer := 0;

Players[0].Name :='tuscan63';
Players[0].Pass :='niggawut';
Players[0].Nick :='Valley0fdeath';
Players[0].Active:=True;
end;


procedure MagicBookOpen;
var x, y: integer;
begin
Wait(5000);
FindColorSpiralTolerance(X, Y, 1516344,734, 169, 762, 202, 20);
Mouse(x, y, 5, 5, 1);
Mouse(x, y, 5, 5, 1);
ChooseOption('agi');

end;


Procedure ClickSpell;
var x, y: integer;
Begin
Wait(5000);
FindColorSpiralTolerance(X, Y, 7754782,587, 245, 617, 274, 20);
Mouse(x, y, 5, 5, 1);
Mouse(x, y, 5, 5, 1);
ChooseOption('agi');
End;


begin
SetUpSRL;
ActivateClient;
DeclarePlayers;
LoginPlayer;
MagicBookOpen;
ClickSpell;
end.

Mat
04-30-2012, 03:41 PM
I'm not sure what you are asking, Where is it meant to bank?
Lunar Isle?
Mat

Mahatna
04-30-2012, 03:43 PM
Ohh, sorry SoulWars.

Mat
04-30-2012, 03:50 PM
Function OpeningBank:boolean;
Var
T:Integer;
If OpenBankChest(SRL_Bank_CW) then
begin
MarkTime(T);
Repeat
If PinScreen then
InPin('');
Until((BankScreen)Or(TimeFromMark(T)>4000));
If BankScreen then
Result := True;
end;

Try that what you'll do its go If OpeningBank then your Banking Procedure :)

Element17
04-30-2012, 05:16 PM
^^That and SRL has some includes but I think the best are custom banking procedures they offer a lot of tweaking.

Mat
04-30-2012, 06:37 PM
I found that to work best, but t up to you :)
That one I posted works, and works well.