Hey,
I've been modifying a script and have asked a lot of questions to get it right.
I can't figure out though why the anti-ban happens every time I click, I put a random number and everything.
the script:
SCAR Code:
program New;
{.include SRL/SRL.scar}
{.include SRL/SRL/Skill/Mining.scar}
Var
x, y: integer;
procedure DeclarePlayers;
begin
HowManyPlayers := 1;
NumberOfPlayers(HowManyPlayers);
CurrentPlayer := 0;
Players[0].Name := 'Username';
Players[0].Pass := 'Password';
Players[0].Nick := 'Nick';
Players[0].Active := True;
end;
procedure AntiBan;
begin
case random(3) of //do a random number so it won't always perform the antiban
0: RandomRClick;
1: BoredHuman;
2: HoverSkill('Mining', False);
end;
end;
procedure DropMine;
begin
SetupSRL;
DeclarePlayers;
Repeat
Mousespeed := 15
DropAll;
Repeat
LoadRockRecords;
FindObjRock(x, y, Rimmington_Iron);
ClickMouse(x, y, True);
AntiBan;
FindNormalRandoms;
Wait(3000+random(2000));
Until (InvFull= True);
until false
end.
Can someone please point out anything I've done wrong, and how to make the anti-ban only go every so often instead of every time.
Thanks.