shelbyp67
2012-05-14 01:53:39
Here's a shell I use when writing scripts. Instead of having to retype alot, I just save this to a file and save as a different name. This has Antiban, Login, Player setup.
program SCRIPTNAME;
{$DEFINE SMART}
{$i srl/srl.simba}
Procedure DeclarePlayers;
begin
HowManyPlayers := 1;
NumberOfPlayers(HowManyPlayers);
CurrentPlayer := 0;
Players[0].Name :=''; // Account Name
Players[0].Pass :=''; // Account Password
Players[0].Nick :=''; // Account Nickname - example Imanoobbot -> 'mano'
Players[0].Active:=True;
end;
procedure AntiBan;
begin
if(not(LoggedIn))then
Exit;
case Random(100) of
0:
begin
HoverSkill('', false); // EDIT: put a skill name in the single quotes.
wait(2453+Random(432));
end;
1: PickUpMouse;
2:
begin
MakeCompass('N');
wait(100+random(133));
MakeCompass('S');
wait(50+random(133));
MakeCompass('N');
end;
end;
end;
begin
DeclarePlayers;
LoginPlayer;
repeat
Antiban;
until(not(loggedin));
end.
program SCRIPTNAME;
{$DEFINE SMART}
{$i srl/srl.simba}
Procedure DeclarePlayers;
begin
HowManyPlayers := 1;
NumberOfPlayers(HowManyPlayers);
CurrentPlayer := 0;
Players[0].Name :=''; // Account Name
Players[0].Pass :=''; // Account Password
Players[0].Nick :=''; // Account Nickname - example Imanoobbot -> 'mano'
Players[0].Active:=True;
end;
procedure AntiBan;
begin
if(not(LoggedIn))then
Exit;
case Random(100) of
0:
begin
HoverSkill('', false); // EDIT: put a skill name in the single quotes.
wait(2453+Random(432));
end;
1: PickUpMouse;
2:
begin
MakeCompass('N');
wait(100+random(133));
MakeCompass('S');
wait(50+random(133));
MakeCompass('N');
end;
end;
end;
begin
DeclarePlayers;
LoginPlayer;
repeat
Antiban;
until(not(loggedin));
end.