Need Help With Anti-Ban!!

[Doofy]

Hey again... I need help with AntiBan. I don't really have one atm (I have one in another script I could use I guess) but I don't know how to incorporate them into my script so that they will actually work when it is running (I'm making a sweet auto-alcher. It already works. It detects randoms but doesnt act on them unless its a fight or lamp because i got a scaperune and it noticed but did nothing. it doesnt matter though because i know an awesome place to do it. it responds to certain chat which is sick). I would need one with pickupmouse and stuff like that but I can;t have it interfere with the clicking of the auto-alcher... if anyone would be nice enough to create one for me and give me a tut on how to use it and put it into the main loop and stuff id greatly appreciate it and i would give them credit. I might put the script on sale when im done....

[Mr. Doctor]

Anti-ban is some procedure you dont get banned for, heres mine i made up.


procedure hello;
begin
if (FindChatText('hello'))or
(FindChatText('hi'))or
(FindChatText('hey'))or
(FindChatText('yo'))or
(FindChatText(name))then
typesend('hey')
end;

procedure whatsup;
begin
if (FindChatText('whats up'))or
(FindChatText('whats new'))or
(FindChatText('whats the 411'))then
typesend('nothing')
end;

procedure friends;
begin
if (FindChatText('friends'))or
(FindChatText('frends'))or
(FindChatText('buddys'))or
(FindChatText('add'))or
(FindChatText('add me'))then
typesend('sorry,got lots of them')
end;

procedure hatenoobcallers;
begin
if (FindChatText('noob'))or
(FindChatText('noobie'))or
(FindChatText('nub'))or
(FindChatText('choob'))or
(FindChatText('froobie'))or
(FindChatText('choobie'))or
(FindChatText('froob'))or
(FindChatText('nubie'))then
typesend('loser')
end;


like that.
Dont use pickupmouse and stuff, IT WILL ALWAYS interfear with the alching.
Moving the screen around is anti ban.

procedure movescreen;
begin
makecompass('N')
Wait(5000)
makecompass('W')
Wait(5000)
makecompass('E')
wait(5000)
makecompass('S')
end;


Thats a antiban i made in my head.
Their are other anti-bans, in the forums.

[Boreas]

I made an system for anti ban called RABBIT (Random Anti Ban(s) In Timer) where you call it like a wait with a time, and it will do anti ban stuff for that time. You have to put in the antiban stuff though, RABBIT just takes care of the timing, so that you can use it like a wait without worrying about which thing to do. I'll dig it up if you want. It's posted somewhere, but I let the thread die because I think anti randoms while waiting is more important, and FTWait takes care of that.

[omgh4x0rz]

If you use an auto-responder, you will need to modify JunkJ's becuase it will end up getting you reported. It will likely find the first 'hey' fine, but then it responds with 'hey', and it will keep sensing that and just start responding over and over.

[JAD]

if you want to learn a little on anti ban, click the ltutorial in my sig "5 steps to becoming a scripter" on chapter 4 (I think) is the place where I start to talk about anti ban. It doesn't have have anything on an auto responder or anything, but it may help you out a little.

[Doofy]

Thanks a lot guys... that all helped a lot. I've already had an auto responder (I think mine is better no offense lol just because it responds with a random of 4 things) but I'm still confused on the whole Anti-Ban thing. I just have to call it up once at the beginning of the script and it does bored things every 6 minutes (or whatever I set the things up for) for the rest of the script without me having to call it up every time i want to use it? If that's the case it is a lot better than I knew of. Please respond back and thanks alot.

Boreas... whatever you were talking about sounded pretty good for my alcher... do you think you would dig it up for me and teach me how to use it?? or you could just teach me how to use the other thing you were talking about at the end. Whichever is better for my alcher. lol thanks a lot guys

[Boreas]

I think antiban is overrated, so here's anti random. Use this instead of wait, when waiting for longer than 250ms.
{************************************************* ******************************
procedure FTWait(Time: Integer);
By: WT-Fakawi
Description: Performs Wait and FindTalk. Time is multiple of 250 msec, so FTWait(4) waits approx 1 sec and performs 4 FindTalks;
************************************************** *****************************}

procedure FTWait(Time: Integer);
var
t: Integer;
begin
for T := 1 to Time do
begin
Wait(200 + Random(50));
FindTalk;
end;
end;

Here's RABBIT
If you need more explanation on usage just ask.
//************************************************** ***********************
//Randomrange(10,15) can return 10, 11, 12, 13, 14, or 15
function randomrange(min,max: integer):integer;
begin
result:=random((max-min)+1)+min;
end;
//************************************************** ***********************



//************************************************** ***********************
{RABBIT(mintimetowait, maxtimetowait, WhichAntiBanList : integer)
RABBIT By Boreas
Random Anti-Ban Buried In Timer
Works like a wait, (you put in timetowait), except that
while it is waiting, it performs some antiban procedures.
The first 2 parameters are just what they sound like. If you RABBIT to wait for
a specific amount of time, instead of a random time within the range, just make
them the same.
WhichAntiBanList chooses which list of antibans to choose from. Currently there
is only 1 list, so just put 1. Other lists will be added in the future, for example
a list that only has anti bans that don't disturb the gametab part (in case your
script is watching the gametab).


HoverSkill
Leave Screen
Pickup Mouse
RandomClick
RandomRightClick
--RotateScreen--not sure about this one
Type something then backspace it---replaces random chat
RandomMouseMovement
CheckWhichFriendsOnline
ChangeRunModeAndChangeBack
CheckWhichQuestsIveDone
ExamineSomethingInInventory}

//----------------anti ban procs-------------------------------------
procedure ab1;
begin
writeln('doing testab1');
wait(1000);
writeln('done testab1');
end;
procedure ab2;
begin
writeln('doing testab2');
wait(2000);
writeln('done testab2');
end;
procedure ab3;
begin
writeln('doing testab3');
wait(3000);
writeln('done testab3');
end;
procedure ab4;
begin
writeln('doing testab4');
wait(4000);
writeln('done testab4');
end;
procedure ab5;
begin
writeln('doing testab5');
wait(5000);
writeln('done testab5');
end;
procedure ab6;
begin
writeln('doing testab5');
wait(5000);
writeln('done testab5');
end;
procedure ab7;
begin
writeln('doing testab6');
wait(6000);
writeln('done testab6');
end;
procedure ab8;
begin
writeln('doing testab7');
wait(7000);
writeln('done testab7');
end;
procedure ab9;
begin
writeln('doing testab8');
wait(8000);
writeln('done testab8');
end;
procedure ab10;
begin
writeln('doing testab10');
wait(10000);
writeln('done testab10');
end;
procedure ab11;
begin
writeln('doing testab11');
wait(10000);
writeln('done testab11');
end;
procedure ab12;
begin
writeln('doing testab12');
wait(10000);
writeln('done testab12');
end;
//---------------------------------------------------------------------

Procedure RABBIT(rabbitmin, rabbitmax, WhichAntiBanList :integer);
var timeused, a, b, timeleft:integer;
rabmonkey, rabmintime, numberofabs, rabbittime,goat:integer;
rabtime : array of integer;
begin
case whichantibanlist of
1:
begin
numberofabs := 12;
setarraylength(rabtime, 13);
rabtime[1]:= 1000; //time each anti ban procedure takes
rabtime[2]:= 2000;
rabtime[3]:= 3000;
rabtime[4]:= 4000;
rabtime[5]:= 5000;
rabtime[6]:= 6000;
rabtime[7]:= 7000;
rabtime[8]:= 8000;
rabtime[9]:= 9000;
rabtime[10]:= 10000;
rabtime[11]:= 10000;
rabtime[12]:= 10000;
end;
{2: //add lists here
begin
numberofabs := 12;
setarraylength(rabtime,numberofabs);
rabtime[1]:= 12000; //time each anti ban procedure takes
rabtime[2]:= 2000;
rabtime[3]:= 3000;
rabtime[4]:= 4000;
rabtime[5]:= 5000;
rabtime[6]:= 6000;
rabtime[7]:= 7000;
rabtime[8]:= 8000;
rabtime[9]:= 9000;
rabtime[10]:= 10000;
end;}
else
begin
writeln('Error in RABBIT, Which Anti-Ban List. Going with default');
numberofabs := 12;
setarraylength(rabtime,numberofabs);
rabtime[1]:= 1000; //time each anti ban procedure takes
rabtime[2]:= 2000;
rabtime[3]:= 3000;
rabtime[4]:= 4000;
rabtime[5]:= 5000;
rabtime[6]:= 6000;
rabtime[7]:= 7000;
rabtime[8]:= 8000;
rabtime[9]:= 9000;
rabtime[10]:= 10000;
rabtime[11]:= 10000;
rabtime[12]:= 10000;
end;
end;
rabmintime := 100000000000000;
repeat
add1(goat);
rabmintime:= min(rabmintime,rabtime[goat]);
until (goat=numberofabs);
if (rabbitmin>rabbitmax) then
begin
writeln('ERROR-rabbitmin is greater than rabbitmax.')
terminatescript;
end else
rabbittime := randomrange(rabbitmin, rabbitmax);
timeleft := rabbittime;
//writeln(inttostr(rabbittime)); //comment this
repeat
rabmonkey :=(ran(numberofabs))
if(not(timeleft<rabtime[rabmonkey]))then
begin
a:=getsystemtime;
case whichantibanlist of
1:
case rabmonkey of
1: ab1;
2: ab2;
3: ab3;
4: ab4;
5: ab5;
6: ab6;
7: ab7;
8: ab8;
9: ab9;
10: ab10;
11: ab11;
12: ab12;
end;
{2: add lists here
case rabmonkey of
1: ab1;
2: ab2;
3: ab3;
4: ab4;
5: ab5;
6: ab6;
7: ab7;
8: ab8;
9: ab9;
10: ab10;
11: ab11;
12: ab12;
end;}
else
begin
writeln('Error in RABBIT, Which Anti-Ban List. Going with default');
case rabmonkey of
1: ab1;
2: ab2;
3: ab3;
4: ab4;
5: ab5;
6: ab6;
7: ab7;
8: ab8;
9: ab9;
10: ab10;
11: ab11;
12: ab12;
end;
end;
end;

b:=getsystemtime;
timeleft:=timeleft-(b-a)
timeused:=timeused+(b-a)
end;
until timeleft<rabmintime;
wait(timeleft);
end;
//************************************************** ************************