Dervish
2009-05-30 00:52:45
I did not know where to put this, so I put it here, someone move to appropriate section if needed.
I thought I'd help out the newcomers by posting some antiban for people with the desire to script.
Feel free to use it.
Paste the whole antiban please (or in the same order, or else it will fuck up and not work).
I thought I'd help out the newcomers by posting some antiban for people with the desire to script.
Feel free to use it.
Paste the whole antiban please (or in the same order, or else it will fuck up and not work).
{*******************************************************************************
Procedure : MouseAntiBan
Creater : Dr D. Dervish
Use : AntiBan using the mouse
*******************************************************************************}
Procedure MouseAntiBan;
VAR
x,y,Times : Integer;
BEGIN
CASE random(2) of
0: BEGIN
REPEAT
MMouse(0,0,700,500);
If IsUpText('ptions') then
BEGIN
GetMousePos(x,y);
Wait(100+random(200));
Mouse(x,y,0,0,true);
Wait(300+random(500));
ChooseOption('xamin');
Wait(500+random(500));
END;
Times := Times +1;
UNTIL(Times = 5+random(10));
Times := 0;
END;
1 :BEGIN
REPEAT
MMouse(0,0,700,500);
MMouse(0,0,700,500);
MMouse(0,0,700,500);
Times := Times +1
UNTIL(Times = 5+random(10));
Times := 0;
END;
END;
Wait(2500+random(1000));
END;
{*******************************************************************************
Procedure : CompassAntiBan
Creater : Dr D. Dervish
Use : AntiBan using compass rotation
*******************************************************************************}
Procedure CompassAntiBan;
VAR
Times: integer;
BEGIN
REPEAT
MakeCompass(IntToStr(0+random(500)));
Wait(500+random(2500));
CASE Random(5) of
0: MouseAntiBan;
1: MakeCompass(IntToStr(0+random(500)));
2: MouseAntiBan;
3: MakeCompass(IntToStr(0+random(500)));
END;
Times := Times +1;
UNTIL(Times = 5+random(10));
Times := 0;
Wait(2500+random(1000));
END;
{*******************************************************************************
Procedure : AntiBan
Creater : Dr D. Dervish
Use : Handles the AntiBan functions
*******************************************************************************}
Procedure AntiBan;
BEGIN
if (not (LoggedIn)) then
Exit;
BEGIN
MouseSpeed := 15+random(15);
CASE random(20) of
1,2,3 : MouseAntiban;
4 : SleepAndMoveMouse(400+random(200));
5,7,8 : MouseAntiban;
9,11,13 : CompassAntiBan;
10 : BoredHuman ;
12 : CASE random(9) of
0 : HoverSkill('Defence', False);
4 : HoverSkill('Attack', False);
8 : HoverSkill('Strength', False);
END;
14 : RandomRClick;
18 : PickUpMouse;
19 : BEGIN
GameTab(1+random(12));
Wait(1500+random(500));
END;
END;
END;
Wait(2500+random(1000));
END;