Results 1 to 13 of 13

Thread: Antibans.... Post them here

  1. #1
    Join Date
    Aug 2007
    Location
    Finland
    Posts
    268
    Mentioned
    0 Post(s)
    Quoted
    0 Post(s)

    Default Antibans.... Post them here

    Everyone post your antibans to be used (and ripped off) by others. I made this cool one today, and I'm using it in my curser.

    SCAR Code:
    procedure ChangeAudio; //By Cheetahnub
    begin
      case(random(3)) of
        0: Bar := 'volume'    //Changes the sound settings randomly,
        1: Bar := 'effect'    //this is something new I think lol
        2: Bar := 'area'
      end;
      SetBar(Bar, random(5))
    end;


    EDIT2: NO MORE posts with a Case then all the antibans in the srl core stuffed in it... I wanna see antibans made completely by you.
    EDIT: Oh COME ON! start commenting....

  2. #2
    Join Date
    Jul 2007
    Location
    Norway.
    Posts
    1,938
    Mentioned
    3 Post(s)
    Quoted
    0 Post(s)

    Default

    SCAR Code:
    PROCEDURE Antiban;

    VAR
      C, Q: Integer;

    BEGIN
      C := Random(4);
      IF NOT LoggedIn THEN Exit;
      IF C = 2 THEN BEGIN
        CASE Random(24) OF
          1: AlmostLogout;
          2: BEGIN
              MouseSpeed := 9 + random(2);
              GameTab(1 + random(10));
              FTWait(1 + random(2));
              MouseSpeed := 12;
            END;
          4: GameTab(1);
          5: PickupMouse;
          6: DoEmote(1 + Random(20));
          7: BEGIN
              MouseSpeed := 9 + random(2);
              MMouse(x, y, (10 + random(400)), (10 + random(400)));
              MouseSpeed := 12;
            END;
          8: BEGIN
              MouseSpeed := 9 + random(2);
              MMouse(x, y, (10 + random(400)), (10 + random(400)));
              MouseSpeed := 12;
            END;
          9: BEGIN
              MouseSpeed := 9 + random(2);
              MMouse(x, y, (10 + random(400)), (10 + random(400)));
              MouseSpeed := 12;
            END;
          10: BEGIN
              MouseSpeed := 9 + random(2);
              MMouse(x, y, (10 + random(400)), (10 + random(400)));
              MouseSpeed := 12;
            END;
          11: BEGIN
              MouseSpeed := 9 + random(2);
              MMouse(x, y, (10 + random(400)), (10 + random(400)));
              FTWait(2 + random(4));
              MMouse(x, y, (10 + random(400)), (10 + random(400)));
              MouseSpeed := 12;
            END;
          12: BEGIN
              MouseSpeed := 9 + random(2);
              MMouse(x, y, (10 + random(400)), (10 + random(400)));
              MouseSpeed := 12;
            END;
          13: BEGIN
              MouseSpeed := 9 + random(1);
              MMouse(x, y, (10 + random(400)), (10 + random(400)));
              MouseSpeed := 12;
            END;
          14: BEGIN
              MouseSpeed := 9 + random(2);
              MMouse(x, y, (10 + random(400)), (10 + random(400)));
              FTWait(2 + random(4));
              MMouse(x, y, (10 + random(400)), (10 + random(400)));
              MouseSpeed := 12;
            END;
          15: BEGIN
              MouseSpeed := 9 + random(2);
              GameTab(1 + random(13));
              FTWait(10 + random(4));
              MouseSpeed := 10 + random(5);
              GameTab(1 + random(13));
              MouseSpeed := 12;
            END;
          16: BEGIN
              MouseSpeed := 9 + random(2);
              GameTab(1 + random(13));
              MouseSpeed := 12;
            END;
          17: BEGIN
              MouseSpeed := 9 + random(2);
              GameTab(1 + random(13));
              MouseSpeed := 12;
            END;
          18: BEGIN
              MouseSpeed := 9 + random(2);
              GameTab(1 + random(13));
              MouseSpeed := 12;
            END;
          19: BEGIN
              MouseSpeed := 9 + random(2);
              GameTab(1 + random(13));
              MouseSpeed := 10 + random(5);
              MMouse(x, y, (10 + random(400)), (10 + random(400)));
              FTWait(2 + random(4));
              MMouse(x, y, (10 + random(400)), (10 + random(400)));
              MouseSpeed := 12;
            END;
          20: BEGIN
              GameTab(4);
              DragItem(27, 28);
            END;
          21: HoverSkill('Strength', false);
          22: HoverSkill('Attack', false);
          23: RandomRClick;
          24: BEGIN
              IF SwitchPlayers = True THEN BEGIN
                Q := Random(2) + 1;
                IF Q = 2 THEN BEGIN
                  NextPlayer(True);
                  WriteLn('Switching players. This is an antiban procedure.');
                END;
              END;
            END ELSE Exit;
        END;
      END;
    END;


    Free to use for minor cred.

  3. #3
    Join Date
    Nov 2007
    Posts
    326
    Mentioned
    0 Post(s)
    Quoted
    0 Post(s)

    Default

    SCAR Code:
    function DoAntiBan: Boolean;
    begin
      AntiBan;
      wait(50 + random(100));
      BoredEvery(3 + random(3));
      wait(100 + random(100))
        RotateEvery(7 + random(4));
      wait(750 + random(250));
      LeaveScreenEvery(5 + random(7));
      wait(500 + random(150));
    end;

    It's simple, good to be added into a simple script. I don't care about credit.

    Check out my Edgeville Smelter!

  4. #4
    Join Date
    Jul 2007
    Location
    Norway.
    Posts
    1,938
    Mentioned
    3 Post(s)
    Quoted
    0 Post(s)

    Default

    Quote Originally Posted by IPwnz View Post
    SCAR Code:
    function DoAntiBan: Boolean;
    begin
      AntiBan;
      wait(50 + random(100));
      BoredEvery(3 + random(3));
      wait(100 + random(100))
        RotateEvery(7 + random(4));
      wait(750 + random(250));
      LeaveScreenEvery(5 + random(7));
      wait(500 + random(150));
    end;

    It's simple, good to be added into a simple script. I don't care about credit.
    It would just preform all of them.


    Add a "Case random(10) of

    1: ....
    2: .....
    3: ....

    Ect.

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

    Default

    other good anti ban thingy:

    replace
    SCAR Code:
    Wait(1000);

    for

    SleepAndMoveMouse(1000);

    waits and moves the mouse random

  6. #6
    Join Date
    Aug 2007
    Location
    Finland
    Posts
    268
    Mentioned
    0 Post(s)
    Quoted
    0 Post(s)

    Default

    Quote Originally Posted by MasterKill View Post
    other good anti ban thingy:

    replace
    SCAR Code:
    Wait(1000);

    for

    SleepAndMoveMouse(1000);

    waits and moves the mouse random
    Is that in core?

    EDIT: never mind, it is... MasterKill this is something I might use a lot

  7. #7
    Join Date
    Jul 2007
    Location
    St. Louis, Missouri, USA.
    Posts
    575
    Mentioned
    0 Post(s)
    Quoted
    0 Post(s)

    Default

    SCAR Code:
    procedure RandomCompassDirection;    //from Sp0rk-eh's Range Trainer
    begin
      status('Random Compass Direction');
      case Random(3) of
        0:begin
            KeyDown(VK_Left);
            Wait((100) + Random(500));
            KeyUp(VK_Left);
            Wait((100) + Random(500));
          end;
        1:begin
            KeyDown(VK_Right);
            Wait((100) + Random(500));
            KeyUp(VK_Right);
            Wait((100) + Random(500));
          end;
        2: MakeCompass('S');
      end;
    end;

    procedure MickAntiBan;
    begin
      if  Random(8) = 0 then  //8 seems to be good frequency since it is called often
      begin
        Status('Performing Antiban');
        case Random (12) of
          0: MMouse(Random(MSX2), Random(MSY2), 0, 0);
          1: RandomRClick;
          2: RandomCompassDirection;
          3: RandomMovement;
          4: PickupMouse;
          5: GameTab(1 + Random(12));
          6: BoredHuman;
          7: SleepAndMoveMouse(1000+random(250));
          8: MouseSpeed := 12+random(6);
          9: AlmostLogOut;
          10:begin
               Wait(1500 + Random(1000));
               GameTab(4);
               Wait(2000 + Random(400));
             end;
          11:begin
               GameTab(2);
               case Random(1) of
                 0: HoverSkill('random', False);
                 1: HoverSkill('woodcut', False);
               end;
               GameTab(4);
               Wait(1500 + Random(1000));
             end;
        end;
        Wait(500 + Random(1000));
      end;
    end;

    Use this if you call an antiban often. And change the hoverskill('woodcut', False) to whatever skill you're doing.

    Its pretty much all the antiban functions and procedures I could find, organized into one procedure.
    The best antiban though really is making as much in your script random while still accomplishing your goal. The less 'robotic' your script is the less chance of a ban.
    -You can call me Mick-



  8. #8
    Join Date
    Aug 2007
    Location
    Finland
    Posts
    268
    Mentioned
    0 Post(s)
    Quoted
    0 Post(s)

    Default

    mick... in the second antiban procedure of yours, the cases 8-10 will never be used, since random(8) gives a number which is between 0-7...

    So it would have to be random(11)

  9. #9
    Join Date
    Aug 2007
    Posts
    327
    Mentioned
    0 Post(s)
    Quoted
    0 Post(s)

    Default

    hmm. I don't know much about anitiban, but i do know that when i used to play legit i would just zone out or do something else while playing. Maybe a wait time that almost logs you out would be good.

  10. #10
    Join Date
    Aug 2007
    Location
    Finland
    Posts
    268
    Mentioned
    0 Post(s)
    Quoted
    0 Post(s)

    Default

    Quote Originally Posted by buck cakes View Post
    hmm. I don't know much about anitiban, but i do know that when i used to play legit i would just zone out or do something else while playing. Maybe a wait time that almost logs you out would be good.
    AlmostLogOut;

  11. #11
    Join Date
    Jul 2007
    Location
    St. Louis, Missouri, USA.
    Posts
    575
    Mentioned
    0 Post(s)
    Quoted
    0 Post(s)

    Default

    Quote Originally Posted by cheetahnub View Post
    mick... in the second antiban procedure of yours, the cases 8-10 will never be used, since random(8) gives a number which is between 0-7...

    So it would have to be random(11)
    I'll edit it, but what you say isn't exactly correct. I used a case Random(8) and if it equalled zero it would do a case random(10) of the other things. Trust me it works fine as it was.

    I could replace the first case random(8) with an if Random(8) = 0 then begin...
    Which i'll do right now.

    Edit: Also I've found that LeaveScreenEvery and BoredEvery always give unkown identifiers, and I can't seem to find the include with them in it so they might be dead procedures, unless they're included in SCAR itself and I'm just having an error.
    -You can call me Mick-



  12. #12
    Join Date
    Dec 2006
    Location
    Program TEXAS home of AUTOERS
    Posts
    7,934
    Mentioned
    26 Post(s)
    Quoted
    237 Post(s)

    Default

    here i like this one =) (clicks anywhere and just right clicks and cancel's and goes back to your procedure)

    SCAR Code:
    RandomRClick;

  13. #13
    Join Date
    Jul 2007
    Location
    Norway.
    Posts
    1,938
    Mentioned
    3 Post(s)
    Quoted
    0 Post(s)

    Default

    Quote Originally Posted by p1nky View Post
    here i like this one =) (clicks anywhere and just right clicks and cancel's and goes back to your procedure)

    SCAR Code:
    RandomRClick;
    I'll definetly use this one more, thanks!

Thread Information

Users Browsing this Thread

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

Similar Threads

  1. Help, trying to include AntiBans.
    By Xirx in forum OSR Help
    Replies: 2
    Last Post: 06-13-2007, 06:43 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
  •