Poll: Are these usefull procedures?

Be advised that this is a public poll: other users can see the choice(s) you selected.

Results 1 to 14 of 14

Thread: Some of my usefull Anti-Ban stuff!

  1. #1
    Join Date
    Jun 2006
    Location
    USA
    Posts
    1,828
    Mentioned
    1 Post(s)
    Quoted
    0 Post(s)

    Default Some of my usefull(?) Anti-Ban stuff!

    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:
    SCAR Code:
    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;

    SCAR Code:
    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:
    SCAR Code:
    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:
    SCAR Code:
    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
    SCAR Code:
    Function ChatBoxRespond(FromText:String; SayText:String): Boolean;
    var GetFromText,GetName:String;
    begin
    if(IsTextInAreaEx(26,414,336,433,x,y,FromText,50,SmallChars,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:
    SCAR Code:
    procedure MSRespond(FromText:String; SayText:String);
    var FromTextBmp:integer;
    begin
    FromTextBmp:=CreateBitMapMaskFromText(FromText,Upchars)
    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;
    SCAR Code:
    procedure AutoCBRespond;
    ChatBoxRespond('Lol','Lmao')
    ChatBoxRespond('Hi','Hello')
    //etc.
    end;
    MainScreen;
    SCAR Code:
    procedure AutoMSRespond;
    MsRespond('Lol','Lmao')
    MSREspond('Hi','Hello')
    //etc.
    end;

    Please let me know what do you think about these.

  2. #2
    Join Date
    Apr 2006
    Posts
    710
    Mentioned
    0 Post(s)
    Quoted
    0 Post(s)

    Default

    Try snippets forum :-) Anyway nice work.

  3. #3
    Join Date
    Sep 2006
    Posts
    5,219
    Mentioned
    4 Post(s)
    Quoted
    1 Post(s)

    Default

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

    And I think you know about the typesend enter stuff.

  4. #4
    Join Date
    Jun 2006
    Location
    USA
    Posts
    1,828
    Mentioned
    1 Post(s)
    Quoted
    0 Post(s)

    Default

    Quote Originally Posted by c0de View Post
    Try snippets forum :-) Anyway nice work.
    Thanks man!

    Quote Originally Posted by Boreas View Post
    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?

  5. #5
    Join Date
    Dec 2006
    Posts
    8
    Mentioned
    0 Post(s)
    Quoted
    0 Post(s)

    Default

    wow thanks, really usefull

  6. #6
    Join Date
    Nov 2006
    Posts
    16
    Mentioned
    0 Post(s)
    Quoted
    0 Post(s)

    Default

    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

  7. #7
    Join Date
    Oct 2006
    Location
    Ontario,Canada
    Posts
    1,718
    Mentioned
    0 Post(s)
    Quoted
    0 Post(s)

    Default

    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!!

  8. #8
    Join Date
    Dec 2006
    Posts
    5
    Mentioned
    0 Post(s)
    Quoted
    0 Post(s)

    Default

    woow this is so good man keep it comming

  9. #9
    Join Date
    Dec 2006
    Location
    UK
    Posts
    118
    Mentioned
    0 Post(s)
    Quoted
    0 Post(s)

    Default

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

  10. #10
    Join Date
    Jun 2006
    Location
    USA
    Posts
    1,828
    Mentioned
    1 Post(s)
    Quoted
    0 Post(s)

    Default

    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.

  11. #11
    Join Date
    Aug 2006
    Posts
    151
    Mentioned
    0 Post(s)
    Quoted
    0 Post(s)

    Default

    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;

  12. #12
    Join Date
    Jun 2006
    Location
    USA
    Posts
    1,828
    Mentioned
    1 Post(s)
    Quoted
    0 Post(s)

    Default

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

  13. #13
    Join Date
    Feb 2007
    Location
    Yorkshire, England
    Posts
    180
    Mentioned
    0 Post(s)
    Quoted
    0 Post(s)

    Default

    very nice thanks

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

    if i can make them (i hope) :P

  14. #14
    Join Date
    Jun 2006
    Location
    USA
    Posts
    1,828
    Mentioned
    1 Post(s)
    Quoted
    0 Post(s)

    Default

    Quote Originally Posted by Gwallunit View Post
    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 . We can always help you with scripting in this forum. Just keep learning man, good luck!

Thread Information

Users Browsing this Thread

There are currently 1 users browsing this thread. (0 members and 1 guests)

Similar Threads

  1. Very Simple but usefull :p
    By NiCbaZ in forum Research & Development Lounge
    Replies: 8
    Last Post: 07-13-2008, 06:41 PM
  2. Anti-X question! (anti-ban, anti-randoms)
    By jvwarrior in forum OSR Help
    Replies: 9
    Last Post: 10-31-2007, 03:09 AM
  3. Easy And Usefull Stuff Tutorial!!!
    By Ilikepie1995 in forum Outdated Tutorials
    Replies: 17
    Last Post: 10-07-2007, 09:01 PM
  4. You might find very usefull!!!!!
    By sum1uallno in forum RuneScape News and General
    Replies: 0
    Last Post: 07-15-2007, 08:14 AM

Posting Permissions

  • You may not post new threads
  • You may not post replies
  • You may not post attachments
  • You may not edit your posts
  •