SRL Archive - Help

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.    

I'm not sure what you are asking, Where is it meant to bank?
Lunar Isle?
Mat

Ohh, sorry SoulWars.

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 :)

^^That and SRL has some includes but I think the best are custom banking procedures they offer a lot of tweaking.

I found that to work best, but t up to you :)
That one I posted works, and works well.