Some of my usefull Anti-Ban stuff!

[Pentti]

I wasn't sure where to post this, so I post these now here if it's ok.
Here are some usefull anti-ban stuff I made.

If finds playername on the screen it will send random text, if playername has found over 3 times then this logs out and comeas soon back:
procedure TalkingToMeTXT;
begin
Case Random(10)+1 of

1: TypeSend('Right...')

2: TypeSend('What?')

3: TypeSend('Sorry, i dont understand.')

4: TypeSend('What do yuo want?')

5: TypeSend('I have no time')

6: TypeSend('I dont like you')

7: TypeSend('You are getting my nervous')

8: TypeSend('is it possible to be quit for 2 minutes?')

9: TypeSend('yes? I am.')

10: TypeSend('No, you again.')
End;
end;

procedure TalkingToMe;
var CUAM:integer;
begin
If(not(FindBitmapMaskTolerance(NickNameBmp, x, y, 0, 24, 517, 338, 0, 40))) then begin
wait(random(10))
Exit; end;
If(FindBitmapMaskTolerance(NickNameBmp, x, y, 0, 24, 517, 338, 0, 40)) then
begin
TalkingToMeTxt;
CUAM:=CUAM+1
Writeln('Your Name has spotted on the screen '+
'and you successly answered.')
if(CUAM>3) then begin
TypeSend('Nice to talk, but now gtg. See you! :)')
LogOut;
Wait(20000+random(15000))
LogInPlayer;
CUAM:=0
end;
end;
end;

If other player asks your skill it says skill and level of skill:
procedure SayLevel(Skill:string);
var LVLBmp,Lvl:integer;
begin
LvlBmp:=createbitmapmaskfromtext(skill,upchars)
If(FindBitmapMaskTolerance(LvlBmp, x, y, 0, 0, 516, 338, 0, 40))then
begin
Lvl:=GetSkillLevel(Skill)
TypeSend('My '+Skill+' Level is '+inttostr(Lvl))
end;
end;

This says what's your next level of skill every X minutes:
procedure NextLvlEveryMins(Minutes:integer; Skill:string);
var NextLVL:integer;
begin
if ((TimeFromMark(Mark) / 1000) / 60 >= minutes) then
begin
MarkTime(Mark);
NextLVL:=GetSkillLevel(Skill)
TypeSend('My next '+skill+' level is '+inttostr(NextLVL+1)+' cant wait till it')
end;
end;

This responds from chatbox texts and gets playername who asked/said to you something
Function ChatBoxRespond(FromText:String; SayText:String): Boolean;
var GetFromText,GetName:String;
begin
if(IsTextInAreaEx(26,414,336,433,x,y,FromText,50,S mallChars,False,False,0,0,16711680))then
begin
GetName := Lowercase(Trim(GetTextAtEx(20, 415, 45, SmallChars, False, False, 0, 2, 0, 40, True, tr_NormalChars)));
TypeSend(SayText)
writeln(' ')
Writeln(GetName+' said: '+FromText)
Writeln(Players[CurrentPlayer].Name+' said: '+SayText)
writeln(' ')
wait(1200+random(500))
Result:=True;
end;
wait(1)
end;

This works like Chatbox responder, but finds text from Mainscreen:
procedure MSRespond(FromText:String; SayText:String);
var FromTextBmp:integer;
begin
FromTextBmp:=CreateBitMapMaskFromText(FromText,Upc hars)
if(not(FindBitmapMaskTolerance(FromTextBmp, x, y, 0, 24, 517, 338, 0, 40)))then begin
wait(random(10))
FreeBitMap(FromTextBmp)
Exit; end;
if(FindBitmapMaskTolerance(FromTextBmp, x, y, 0, 24, 517, 338, 0, 40))
Then begin
SendText2(SayText+(chr(13)))
FreeBitMap(FromTextBmp)
writeln(' ')
Writeln('Someone said: '+FromText)
writeln('You answered: '+SayText)
writeln(' ')
wait(10+random(10))
end;
end;

You can make your own "respond from text with text"
like this:

Chatbox;
procedure AutoCBRespond;
ChatBoxRespond('Lol','Lmao')
ChatBoxRespond('Hi','Hello')
//etc.
end;
MainScreen;
procedure AutoMSRespond;
MsRespond('Lol','Lmao')
MSREspond('Hi','Hello')
//etc.
end;

Please let me know what do you think about these. :D

[c0de]

Try snippets forum :-) Anyway nice work.

[Boreas]

Snippets is members. Nice, I think you might find players[currentplayer].skill useful.

And I think you know about the typesend enter stuff.

[Pentti]

Try snippets forum :-) Anyway nice work.
Thanks man!


Snippets is members. Nice, I think you might find players[currentplayer].skill useful.

And I think you know about the typesend enter stuff.

Yup I know now It presses enter itself, i didn't know when i was writing these about 4 months ago... fixed, are you happy now? :D

[roger7]

wow thanks, really usefull

[disinterested]

y can't we just put the words in a different language something no one really knows tht way no one is going to try to talk to u or understand what u are saying.I mean how many friends do u know that play rs can speak Hindi, Gujarathi or even Punjabi

[XcanadamanX]

one thing that would be even better is if...for example the MsRepond to make it so you can say hello or hey when it finds hi in the screen. but anyway very good!!

[zeeep]

woow this is so good man keep it comming

[the nerd]

Wow, that some really usefully anti ban stuff. Gonna rewrite some of my scripts to add some of your anti ban. Thanks

[Pentti]

thanks for your posts! i just made a new thing a few days ago, it finds random account to talk with, if it finds then it will get his name and talk to him with his name and check if he talks back to you if he talks, it will answer. :D

[wtf i sp4nk]

wow very helpfull ill def add this anti ban to shafter which should be out soon :)
Also you can add this up there i use it for all my scripts i think itsa exelent antiban
Procedure Ban;
var
NoBan : Integer;
begin
if ( not ( LoggedIn )) then Exit;
NoBan:=Random(120)
case NoBan of
1: RandomRClickEvery(2 + Random(30));
2: hoverskill('woodcutting', false);
3: hoverskill('random', false);
4: DoEmote(1 + Random(20));
5: BoredEvery(9 + Random (21));
6: PickUpMouse;
7: LeaveScreenEvery(10 + Random(5));
8: RotateEvery(20 + Random(5));
end;
end;

[Pentti]

Yeah.. i changed a bit that Chat box respond function. Should work better (maybe)... :D

[Gwallunit]

very nice thanks

im trying to learn scar so they will be useful for my scripts

if i can make them (i hope) :P

[Pentti]

very nice thanks

im trying to learn scar so they will be useful for my scripts

if i can make them (i hope) :P
I'm sure you will be making good scripts in future, take a look of others scripts and learn :D. We can always help you with scripting in this forum. Just keep learning man, good luck! :)