Log in

View Full Version : Finding AntiBan hard to use.



shstiger2009
12-26-2011, 10:55 PM
Hey everyone. I have a script in production where loads/hr is a big deal. It influences GP/hr and if AntiBan is called every time, would decrease that dramatically. Is there anyway I can call an AntiBan way less often than every time? Like, maybe 5 times an hour? Something like that. Thanks in advance!

Shuttleu
12-26-2011, 10:58 PM
sure, you can either use a timer and check if it has passed 12 mins since it last run, or you can do something like i do

procedure TheAntiban;
var
Chance: Integer;
begin
Chance:= Random(101);
if Chance<=AntibanChance then
case Random(101) of
1..20: HoverSkill('Woodcutting', false);
21..40: PickUpMouse;
41..60: RandomMovement;
61..80: BoredHuman;
81..100: ExamineInv;
end;
ChooseOption('ancel');
end;
where AntibanChance is a number between 0 and 100 (0 being never and 100 being everytime

~shut

shstiger2009
12-26-2011, 11:06 PM
Ok, the timer would be pretty sweet. How would I do that? I know I'd be using TimeRunning but just don't see how I could call a certain procedure every 12 mins. I guess in my loop it would be something like:

if (TimeRunning>720000) then
AntiBan;

But how would I do it every 12 minutes? Doing what I did there looks like it would AntiBan every time after it had been running for 12 minutes.

PatDuffy
12-26-2011, 11:07 PM
That would not work because TimeRunning is the total time, once the script has been running for 12 minutes it would AntiBan every time

Shuttleu
12-26-2011, 11:09 PM
something like the following

var
AntibanTimer: Integer

put that in the global variables
procedure TheAntiban;
var
Chance: Integer;
begin
if not (TimeFromMark(AntibanTimer) => 720000) then
exit;
case Random(101) of
1..20: HoverSkill('Woodcutting', false);
21..40: PickUpMouse;
41..60: RandomMovement;
61..80: BoredHuman;
81..100: ExamineInv;
end;
ChooseOption('ancel');
MarkTime(AntibanTimer);
end;
that would be the antiban procedure


MarkTime(AntibanTimer);
and put that just after LoginPlayer;

~shut

shstiger2009
12-26-2011, 11:28 PM
I get a Syntax error in the line:

if not (TimeFromMark(AntibanTimer) => 720000) then

Shuttleu
12-26-2011, 11:30 PM
swap the = and > over

~shut

shstiger2009
12-26-2011, 11:34 PM
Ok, I'll just have to play around with it. It's working but calling the AntiBan every time.