PDA

View Full Version : Antibans.... Post them here



CheetahNub
11-19-2007, 08:01 PM
Everyone post your antibans to be used (and ripped off) by others. I made this cool one today, and I'm using it in my curser.

procedure ChangeAudio; //By Cheetahnub
begin
case(random(3)) of
0: Bar := 'volume' //Changes the sound settings randomly,
1: Bar := 'effect' //this is something new I think lol
2: Bar := 'area'
end;
SetBar(Bar, random(5))
end;


EDIT2: NO MORE posts with a Case then all the antibans in the srl core stuffed in it... I wanna see antibans made completely by you.
EDIT: Oh COME ON! start commenting....

EvilChicken!
11-21-2007, 07:00 PM
PROCEDURE Antiban;

VAR
C, Q: Integer;

BEGIN
C := Random(4);
IF NOT LoggedIn THEN Exit;
IF C = 2 THEN BEGIN
CASE Random(24) OF
1: AlmostLogout;
2: BEGIN
MouseSpeed := 9 + random(2);
GameTab(1 + random(10));
FTWait(1 + random(2));
MouseSpeed := 12;
END;
4: GameTab(1);
5: PickupMouse;
6: DoEmote(1 + Random(20));
7: BEGIN
MouseSpeed := 9 + random(2);
MMouse(x, y, (10 + random(400)), (10 + random(400)));
MouseSpeed := 12;
END;
8: BEGIN
MouseSpeed := 9 + random(2);
MMouse(x, y, (10 + random(400)), (10 + random(400)));
MouseSpeed := 12;
END;
9: BEGIN
MouseSpeed := 9 + random(2);
MMouse(x, y, (10 + random(400)), (10 + random(400)));
MouseSpeed := 12;
END;
10: BEGIN
MouseSpeed := 9 + random(2);
MMouse(x, y, (10 + random(400)), (10 + random(400)));
MouseSpeed := 12;
END;
11: BEGIN
MouseSpeed := 9 + random(2);
MMouse(x, y, (10 + random(400)), (10 + random(400)));
FTWait(2 + random(4));
MMouse(x, y, (10 + random(400)), (10 + random(400)));
MouseSpeed := 12;
END;
12: BEGIN
MouseSpeed := 9 + random(2);
MMouse(x, y, (10 + random(400)), (10 + random(400)));
MouseSpeed := 12;
END;
13: BEGIN
MouseSpeed := 9 + random(1);
MMouse(x, y, (10 + random(400)), (10 + random(400)));
MouseSpeed := 12;
END;
14: BEGIN
MouseSpeed := 9 + random(2);
MMouse(x, y, (10 + random(400)), (10 + random(400)));
FTWait(2 + random(4));
MMouse(x, y, (10 + random(400)), (10 + random(400)));
MouseSpeed := 12;
END;
15: BEGIN
MouseSpeed := 9 + random(2);
GameTab(1 + random(13));
FTWait(10 + random(4));
MouseSpeed := 10 + random(5);
GameTab(1 + random(13));
MouseSpeed := 12;
END;
16: BEGIN
MouseSpeed := 9 + random(2);
GameTab(1 + random(13));
MouseSpeed := 12;
END;
17: BEGIN
MouseSpeed := 9 + random(2);
GameTab(1 + random(13));
MouseSpeed := 12;
END;
18: BEGIN
MouseSpeed := 9 + random(2);
GameTab(1 + random(13));
MouseSpeed := 12;
END;
19: BEGIN
MouseSpeed := 9 + random(2);
GameTab(1 + random(13));
MouseSpeed := 10 + random(5);
MMouse(x, y, (10 + random(400)), (10 + random(400)));
FTWait(2 + random(4));
MMouse(x, y, (10 + random(400)), (10 + random(400)));
MouseSpeed := 12;
END;
20: BEGIN
GameTab(4);
DragItem(27, 28);
END;
21: HoverSkill('Strength', false);
22: HoverSkill('Attack', false);
23: RandomRClick;
24: BEGIN
IF SwitchPlayers = True THEN BEGIN
Q := Random(2) + 1;
IF Q = 2 THEN BEGIN
NextPlayer(True);
WriteLn('Switching players. This is an antiban procedure.');
END;
END;
END ELSE Exit;
END;
END;
END;


Free to use for minor cred.

IPwnz
11-22-2007, 02:07 AM
function DoAntiBan: Boolean;
begin
AntiBan;
wait(50 + random(100));
BoredEvery(3 + random(3));
wait(100 + random(100))
RotateEvery(7 + random(4));
wait(750 + random(250));
LeaveScreenEvery(5 + random(7));
wait(500 + random(150));
end;

It's simple, good to be added into a simple script. I don't care about credit.

EvilChicken!
11-24-2007, 09:59 AM
function DoAntiBan: Boolean;
begin
AntiBan;
wait(50 + random(100));
BoredEvery(3 + random(3));
wait(100 + random(100))
RotateEvery(7 + random(4));
wait(750 + random(250));
LeaveScreenEvery(5 + random(7));
wait(500 + random(150));
end;

It's simple, good to be added into a simple script. I don't care about credit.

It would just preform all of them.


Add a "Case random(10) of

1: ....
2: .....
3: ....

Ect.

MasterKill
11-24-2007, 10:08 AM
other good anti ban thingy:

replace
Wait(1000);

for

SleepAndMoveMouse(1000);

waits and moves the mouse random :)

CheetahNub
11-24-2007, 10:39 AM
other good anti ban thingy:

replace
Wait(1000);

for

SleepAndMoveMouse(1000);

waits and moves the mouse random :)

Is that in core? :confused:

EDIT: never mind, it is... MasterKill this is something I might use a lot :)

mickaliscious
11-24-2007, 09:27 PM
procedure RandomCompassDirection; //from Sp0rk-eh's Range Trainer
begin
status('Random Compass Direction');
case Random(3) of
0:begin
KeyDown(VK_Left);
Wait((100) + Random(500));
KeyUp(VK_Left);
Wait((100) + Random(500));
end;
1:begin
KeyDown(VK_Right);
Wait((100) + Random(500));
KeyUp(VK_Right);
Wait((100) + Random(500));
end;
2: MakeCompass('S');
end;
end;

procedure MickAntiBan;
begin
if Random(8) = 0 then //8 seems to be good frequency since it is called often
begin
Status('Performing Antiban');
case Random (12) of
0: MMouse(Random(MSX2), Random(MSY2), 0, 0);
1: RandomRClick;
2: RandomCompassDirection;
3: RandomMovement;
4: PickupMouse;
5: GameTab(1 + Random(12));
6: BoredHuman;
7: SleepAndMoveMouse(1000+random(250));
8: MouseSpeed := 12+random(6);
9: AlmostLogOut;
10:begin
Wait(1500 + Random(1000));
GameTab(4);
Wait(2000 + Random(400));
end;
11:begin
GameTab(2);
case Random(1) of
0: HoverSkill('random', False);
1: HoverSkill('woodcut', False);
end;
GameTab(4);
Wait(1500 + Random(1000));
end;
end;
Wait(500 + Random(1000));
end;
end;


Use this if you call an antiban often. And change the hoverskill('woodcut', False) to whatever skill you're doing.

Its pretty much all the antiban functions and procedures I could find, organized into one procedure.
The best antiban though really is making as much in your script random while still accomplishing your goal. The less 'robotic' your script is the less chance of a ban.

CheetahNub
11-25-2007, 01:41 AM
mick... in the second antiban procedure of yours, the cases 8-10 will never be used, since random(8) gives a number which is between 0-7...

So it would have to be random(11)

buck cakes
11-25-2007, 02:07 AM
hmm. I don't know much about anitiban, but i do know that when i used to play legit i would just zone out or do something else while playing. Maybe a wait time that almost logs you out would be good.

CheetahNub
11-25-2007, 02:12 AM
hmm. I don't know much about anitiban, but i do know that when i used to play legit i would just zone out or do something else while playing. Maybe a wait time that almost logs you out would be good.

AlmostLogOut; :D

mickaliscious
11-26-2007, 12:00 AM
mick... in the second antiban procedure of yours, the cases 8-10 will never be used, since random(8) gives a number which is between 0-7...

So it would have to be random(11)

I'll edit it, but what you say isn't exactly correct. I used a case Random(8) and if it equalled zero it would do a case random(10) of the other things. Trust me it works fine as it was.

I could replace the first case random(8) with an if Random(8) = 0 then begin...
Which i'll do right now.

Edit: Also I've found that LeaveScreenEvery and BoredEvery always give unkown identifiers, and I can't seem to find the include with them in it so they might be dead procedures, unless they're included in SCAR itself and I'm just having an error.

P1nky
11-26-2007, 06:05 PM
here i like this one =) (clicks anywhere and just right clicks and cancel's and goes back to your procedure)

RandomRClick;

EvilChicken!
11-26-2007, 09:05 PM
here i like this one =) (clicks anywhere and just right clicks and cancel's and goes back to your procedure)

RandomRClick;

I'll definetly use this one more, thanks!