Naum
2008-01-07 06:05:30
This is the procedure I've made in 20 minutes.
I thought it would be kinda funny as we don't want people autoing on lvl 3 accounts.
Here it is:
The usage would be:
Or..
Enjoy i'll certainly be putting this in some scripts :)
I thought it would be kinda funny as we don't want people autoing on lvl 3 accounts.
Here it is:
Procedure AntiNoob(Ban:boolean);
Var
x, y, c, lol:integer;
n00b : integer;
begin
lol := BitmapFromString(6, 8, 'beNpjYPB0MAWi/zPkgQjChnCBJAM' +
'DA4ThamMMRECut5MVUATI8LAzBSK4LogIRC+yLmQDgeJAEYgURC9E' +
'BCIIRCArANp8KgA=');
GameTab(1)
wait(1000+Random(200))
If FindBitmap(lol,x,y) then
Begin
If Ban = False then
Exit;
else
If Ban = True then
N00b:=Random(1);
Repeat
Case N00b of
0:Begin
SendKeys('Visit rs2gp . c 0m gives 1 mil free sign up!!!')
c:=c+1
end;
end;
Until(c > 100)
If (c > 100) then
Begin
Writeln('You might be banned, DO NOT Auto with a level 3 account')
EXIT;
end;
end;
end;The usage would be:
Antinoob(True)Thats if you want a ban ^^^^^^^Or..
Antinoob(False)No ban…^^^^^^Enjoy i'll certainly be putting this in some scripts :)