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.
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.