Results 1 to 14 of 14

Thread: Antiban Methods!

  1. #1
    Join Date
    Jun 2007
    Location
    NSW, Australia.
    Posts
    541
    Mentioned
    0 Post(s)
    Quoted
    0 Post(s)

    Default Antiban Methods!

    I thought we could throw together quite a nice little thread with loads of suggestions for different antiban functions / procedures and lots listed.

    This is mainly due to the lacking of creative antiban I see in scripts these days...

    Here are a few of my 'generic' ones that I have made in the last 10 minutes.

    SCAR Code:
    procedure RGameTab;
    var i : Integer;
    begin
      i := GetCurrentTab;

      GameTab(1 + Random(12));
     
      Wait(100 + Random(4000));
     
      GameTab(i);
    end;

    procedure RRotate;
    var i : Integer;
    begin
      i := Random(4);
      case i of
        0: MakeCompass('N');
        1: MakeCompass('E');
        2: MakeCompass('S');
        3: MakeCompass('W');
      end;
    end;

    procedure LeaveScreen;
    var X, Y : Integer;
    var ScreenBox : TBox;
    begin
      ScreenBox.x1 := MSX1; ScreenBox.y1 := MSY1;
      ScreenBox.x2 := MSX2; ScreenBox.y2 := MSY2;
     
      repeat
        X := Random(1024);
        Y := Random(768);
      until(Not(IntInBox(X, Y, ScreenBox)));

      MMouse(X, Y, 0, 0);
    end;

    I know those are nothing interesting, but I'm out of ideas! Help me out
    Quote Originally Posted by RAM View Post
    I sam sofa king wee todd did ! ~RAM
    My SRL Army Blog.


  2. #2
    Join Date
    May 2007
    Location
    Netherlands, Amersfoort
    Posts
    2,701
    Mentioned
    1 Post(s)
    Quoted
    0 Post(s)

    Default

    not bad

    a lil shorter:
    SCAR Code:
    procedure RRotate;
    begin
      case Random (4) of
        0: MakeCompass('N');
        1: MakeCompass('E');
        2: MakeCompass('S');
        3: MakeCompass('W');
      end;
    end;

  3. #3
    Join Date
    Jun 2007
    Location
    NSW, Australia.
    Posts
    541
    Mentioned
    0 Post(s)
    Quoted
    0 Post(s)

    Default

    I know, but that was taken from my script where it is a function and actually returns which way the compass was pointed.

    Come on guys
    Quote Originally Posted by RAM View Post
    I sam sofa king wee todd did ! ~RAM
    My SRL Army Blog.


  4. #4
    Join Date
    Apr 2007
    Location
    Finland
    Posts
    938
    Mentioned
    0 Post(s)
    Quoted
    0 Post(s)

    Default

    Quote Originally Posted by MasterKill View Post
    not bad

    a lil shorter:
    SCAR Code:
    procedure RRotate;
    begin
      case Random (4) of
        0: MakeCompass('N');
        1: MakeCompass('E');
        2: MakeCompass('S');
        3: MakeCompass('W');
      end;
    end;
    But you should put the compass back to N again
    Or what script will work with the compass headed to east? or west or north?

  5. #5
    Join Date
    May 2007
    Location
    Netherlands, Amersfoort
    Posts
    2,701
    Mentioned
    1 Post(s)
    Quoted
    0 Post(s)

    Default

    hey hey, i only sead what's easy'er, i'm not i'mproving the script? lawl, and btw, if you want it back to north again, it will make 1 full rotate. so only this should be needed:

    SCAR Code:
    Procedure Rotate;
    begin
      MakeCompass('S');
      MakeCompass('N');
    end;

  6. #6
    Join Date
    Jun 2007
    Location
    NSW, Australia.
    Posts
    541
    Mentioned
    0 Post(s)
    Quoted
    0 Post(s)

    Default

    Another one I just made, seems to do what I imagined it would

    SCAR Code:
    procedure QuirkyMouse;
    var i, M, X, Y : Integer;
    begin
      M := MouseSpeed;

      for i := 0 to 11 + Random(20) do
      begin
        MouseSpeed := 35 + Random(20);
       
        X := Random(MIX2);
        Y := Random(MIY2);

        MMouse(X, Y, 0, 0);

        Wait(1);
      end;
      MouseSpeed := M;
    end;

    Its pretty crazy, I warn you.
    Quote Originally Posted by RAM View Post
    I sam sofa king wee todd did ! ~RAM
    My SRL Army Blog.


  7. #7
    Join Date
    Apr 2007
    Location
    Finland
    Posts
    938
    Mentioned
    0 Post(s)
    Quoted
    0 Post(s)

    Default

    Quote Originally Posted by MasterKill View Post
    hey hey, i only sead what's easy'er, i'm not i'mproving the script? lawl, and btw, if you want it back to north again, it will make 1 full rotate. so only this should be needed:

    SCAR Code:
    Procedure Rotate;
    begin
      MakeCompass('S');
      MakeCompass('N');
    end;
    Exactily

  8. #8
    Join Date
    Jun 2007
    Location
    NSW, Australia.
    Posts
    541
    Mentioned
    0 Post(s)
    Quoted
    0 Post(s)

    Default

    Another one, untested.

    SCAR Code:
    procedure CrazyEmotes;
    var i, M : Integer;
    begin
      M := MouseSpeed;
     
      for i := 0 to 7 + Random(10) do
      begin
        MouseSpeed := 15 + Random(20);
        DoEmote(1 + Random(20);
      end;
     
      MouseSpeed := M;
     
      if (Random(2) = 0) then TypeSend('lol');
    end;

    Quote Originally Posted by RAM View Post
    I sam sofa king wee todd did ! ~RAM
    My SRL Army Blog.


  9. #9
    Join Date
    May 2007
    Location
    Netherlands, Amersfoort
    Posts
    2,701
    Mentioned
    1 Post(s)
    Quoted
    0 Post(s)

    Default

    oh come on, that's like: i'm crazy ban me fast!


  10. #10
    Join Date
    Jun 2007
    Location
    NSW, Australia.
    Posts
    541
    Mentioned
    0 Post(s)
    Quoted
    0 Post(s)

    Default

    Rofl.

    What about
    SCAR Code:
    procedure RTypeSend(TypeList : TStringArray);
    var i : Integer;
    begin
      i := Random(GetArrayLength(TypeList) - 1);
      TypeSend(TypeList[i]);
    end;

    Then you can go like
    SCAR Code:
    RTypeSend(['lol', 'loll', 'haha', 'lolz', 'lol/']);

    And it will say either one of them.

    These are untested btw, but should work.
    Quote Originally Posted by RAM View Post
    I sam sofa king wee todd did ! ~RAM
    My SRL Army Blog.


  11. #11
    Join Date
    Jun 2007
    Posts
    785
    Mentioned
    0 Post(s)
    Quoted
    0 Post(s)

    Default

    hmm nice, maybe I learn something from it when have time ( g2g school now )

    [22:20] <[-jesus-]> freddy, go uninstall yourself

  12. #12
    Join Date
    Apr 2007
    Location
    Perth, Australia
    Posts
    3,926
    Mentioned
    3 Post(s)
    Quoted
    2 Post(s)

    Default

    Heres a couple from my RM Runner.

    SCAR Code:
    procedure TypeSomething;
    begin
      if (SomethingTyped) then
      begin
        KeyDown(13);
        Wait(RandomRange(500, 1500));
        KeyUp(13);
        SomethingTyped := False;
      end else
      begin
        case Random(3) of
          0: i := RandomRange(65, 91);
          1: i := RandomRange(48, 58);
          2: i := RandomRange(96, 112);
          3: i := RandomRange(186, 223);
        end;
        KeyDown(i);
        Wait(RandomRange(500, 3000));
        KeyUp(i);
        SomethingTyped := True;
      end;
    end;

    and:

    SCAR Code:
    procedure ExamineInv;
           begin
             j := Random(28) + 1;
             T := ItemCoords(j);
             if (ExistsItem(j)) then
             begin
               Mouse(T.x, T.y, 0, 0, false);
               Wait(200 + random(100));
               ChooseOption('xamine');
               Wait(1000);
             end;
           end;

    The first is supposed to simulate someone accidentally dropping something on the keyboard or leaning on a key. If it has already typed something it might "accidental" press enter next time the same procedure is called.

    The second one check to see if an item exists in a random inventory spot and "examines" it if it does.

  13. #13
    Join Date
    Mar 2007
    Posts
    674
    Mentioned
    0 Post(s)
    Quoted
    4 Post(s)

    Default

    Very nice guys...

  14. #14
    Join Date
    Jun 2007
    Location
    NSW, Australia.
    Posts
    541
    Mentioned
    0 Post(s)
    Quoted
    0 Post(s)

    Default

    I like the examine inventory one, mind if I steal the idea?

    Edit: Just a remake of it, I like the idea.

    SCAR Code:
    procedure ExamineInventory;
    var i : Integer;
    var T : Tpoint;
    begin
    if (InvCount = 0) then Exit;

      repeat
        j := Random(28) + 1;
      until(ExistsItem(j));
     
      T := ItemCoords(j);
     
      Mouse(T.x, T.y, 3, 3, False);
     
      Wait(150 + Random(150));
     
      ChooseOption('xamine');
     
      Wait(100 + Random(500));
     
    end;
    Quote Originally Posted by RAM View Post
    I sam sofa king wee todd did ! ~RAM
    My SRL Army Blog.


Thread Information

Users Browsing this Thread

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

Similar Threads

  1. X-Fer Methods Disappearing?
    By Zodia in forum News and General
    Replies: 25
    Last Post: 03-06-2009, 03:38 AM
  2. Gas finding methods.
    By Dervish in forum OSR Help
    Replies: 17
    Last Post: 12-24-2008, 03:28 PM
  3. Methods for this slow pc
    By Sjoe in forum News and General
    Replies: 6
    Last Post: 03-31-2006, 10:34 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
  •