Results 1 to 11 of 11

Thread: Ultimate antiban by lolislol

  1. #1
    Join Date
    Jan 2007
    Posts
    101
    Mentioned
    0 Post(s)
    Quoted
    0 Post(s)

    Ultimate antiban by lolislol

    Well here it is!

    This script part is made for anti ban and also checks randoms, tell me how you like it.

    Version

    1.0: First version.




    SCAR Code:
    procedure AntiBanForMe
    //////////////////////////////////////////
    //AntiBannage By Lolislol               //
    //Simply DOES NOT get your character    //
    //banned by performing human like acts  //
    //like examining objects when bored.    //
    //////////////////////////////////////////

    begin
      if not LoggedIn then
        Exit;
        FindNormalRandoms;
      case Random(140) of //Make the number 140 bigger if you don't want it to perform an act so often, or decrease it (not below 101) to make it perform one of the acts almost everytime the procedure is called.

       0:
        begin
          GameTab(3);
          wait(100 + Random(50));
          GameTab(2);
          wait(400 + Random(300);
          GameTab(4);
        end;
       1:BoredHuman;
       2:RandomMovement;
       3:
        begin
          GameTab(8);
          wait(600 + Random(100));
          GameTab(4);
        end;
       4:RandomMovement;
       9:BoredHuman;
       12:HoverSkill('woodcutting', False); //You can change the woodcutting to whatever skill you want it to hover the mouse upon and check the exp.
       18:RandomRClick;
       26:BoredHuman;
       31:FTWait(2);
       36:PickUpMouse;
       42:AlmostLogout;
       47:BoredHuman;
       49:RandomMovement;
       53:
        begin
         GameTab(1 + Random(12));
         wait(400 + Random(400));
         GameTab(4);
        end;
       59:HoverSkill('mining', False); //Same as case 12.
       64:AlmostLogout;
       72:RandomRClick;
       76:BoredHuman;
       82:Disguise('Three Days Grace - Animal i have become');
       83:Disguise('Bullet For My Valentine - The poison');
       91:Disguise('Linkin Park - Given up');
       92:Disguise('Linkin Park - Somewhere i belong');
       96:
         begin
           GameTab(3);
           wait(100 + Random(50));
           GameTab(2);
           wait(400 + Random(300);
           GameTab(4);
         end;
       100:
         begin
           GameTab(2);
           wait(600 + Random(400));
           GameTab(4);
         end;
       101:BoredHuman;
      FindNormalRandoms;
     end;
    end;

  2. #2
    Join Date
    May 2007
    Location
    in a pineapple under the sea
    Posts
    1,040
    Mentioned
    0 Post(s)
    Quoted
    1 Post(s)

    Default

    you forgot

    SCAR Code:
    sleepandmovemouse(time);
    [SIZE="4"][CENTER][URL="http://www.youtube.com/watch?v=5YsGJz3j4os"]LOL u mad bro?[/URL][/CENTER][/SIZE]

  3. #3
    Join Date
    Jan 2007
    Posts
    101
    Mentioned
    0 Post(s)
    Quoted
    0 Post(s)

    Default

    yeah, i saw it but thought not to put it in... well i'll fit it in

    Btw, think it's good?

    And then where are you really from?

  4. #4
    Join Date
    Oct 2007
    Posts
    302
    Mentioned
    0 Post(s)
    Quoted
    0 Post(s)

    Default

    SCAR Code:
    59:HoverSkill('mining', False); //Same as case 12.

    Then do

    SCAR Code:
    12,59 : hoverskill('mining, false);

    Or better yet

    SCAR Code:
    12,59: hoverskill('[B]random[/B]'), false);



    SCAR Code:
    53:
        begin
         GameTab(1 + Random(12));
         wait(400 + Random(400));
         GameTab(4);
        end;

    I don't know if this is a good 'example' :\ But i would do :

    SCAR Code:
    53,89,100:
        begin
         GameTab(1 + Random(12));
         wait(200+random(400)+random(300));
         GameTab(1+random(12));
        end;


    SCAR Code:
    82:Disguise('Three Days Grace - Animal i have become');
       83:Disguise('Bullet For My Valentine - The poison');
       91:Disguise('Linkin Park - Given up');
       92:Disguise('Linkin Park - Somewhere i belong');

    Isn't needed as they don't check what progs are being run.
    case Random(140) of //Make the number 140 bigger if you don't want it to perform an act so often, or decrease it (not below 101) to make it perform one of the acts almost everytime the procedure is called.
    Random(140) CAN return 101 :S Shouldn't you do, 101+random(39); lol >.<!
    Previously known as boxcrop.


  5. #5
    Join Date
    Apr 2008
    Location
    Northwest england
    Posts
    1,179
    Mentioned
    0 Post(s)
    Quoted
    0 Post(s)

    Default

    lol i think the songs are just so parents dont notice on comp
    Blank!

  6. #6
    Join Date
    Nov 2007
    Posts
    437
    Mentioned
    0 Post(s)
    Quoted
    0 Post(s)

    Default

    that thing about 101 is just so that it doesnt ever skip one of the numbers in his antiban permanently because of a too low random number threshold. It is fine as is.

    This AntiBan is nothing special at the moment, sorry, but its true. You need to add tons more options .

    Also make the numbers go in order. You skip around a ton from like 1, 2, 3, 4, 9, 12. Since the number is random you can just make them in order because it won't matter. It just makes it a lot easier to read and that way you can also increase decrease the occurences alot easier because you can see exactly how many there are.

    Also, if you have like 1: PickUpMouse, 7: PickupMouse, 9, PickupMouse; then just do something like 1..3: PickupMouse or 1, 7, 9: PickupMouse.

    Instead of always returning to GameTab 4. Get what tab they are on and then go back to that tab when you are finished.

    Here are some other things you can add:

    One of your things could just be a simple Wait(1000+random(500)) or something

    SCAR Code:
    TypeSend(RandomTalk+RandomDots);

    function RandomTalk : String;
    begin
      case random(17) of
        0: Result := 'yawn';
        1: Result := 'la dee da';
        2: Result := 'la di da';
        3: Result := '';
        4: Result := 'bored';
        5: Result := 'boredd';
        6: Result := 'borred';
        7: Result := 'bbored';
        8: Result := 'lol';
        9: Result := 'loll';
        10: Result := 'lool';
        11: Result := 'sigh';
        12: Result := 'sihg';
        13: Result := 'hmm';
        14: Result := 'hmmm';
        15: Result := 'ugh';
        16: Result := 'uhg';
      end;
    end;

    function RandomDots : String;
    var
      i, o : Integer;
    begin
      i := RandomRange(0,11);
      Result := '';
      if i>=6 then Exit else
      for o:=0 to i do Result := Result + '.';
    end;

    SCAR Code:
    //Rotates The Camera In Random Direction (Left/Right) For Random Time//
    procedure SpinCamera;
    var
      z : Integer;
    begin
      if not LoggedIn then Exit;
      Wait(50+random(50));
      z := Random(2);
      case z of
        0: KeyDown(VK_LEFT);
        1: KeyDown(VK_RIGHT);
      end;
      Wait(2500+random(750));
      case z of
        0: KeyUp(VK_LEFT);
        1: KeyUp(VK_RIGHT);
      end;
      Wait(50+random(50));
    end;

    //Rotates The Camera In Random Direction (Up/Down) For Random Time//
    //MakeAngleHigh: True- Makes Angle Highest, False- Does Nothing//
    procedure UpDownCamera(MakeAngleHigh : Boolean);
    var
      x, Time : Integer;
    begin
      if not LoggedIn then Exit;
      Wait(50+random(50));
      MarkTime(Time);
      x := Random(2);
      repeat
      case x of
        0: KeyDown(VK_UP);
        1: KeyDown(VK_DOWN);
      end;
      Wait(400+random(200));
      case x of
        0: KeyUp(VK_UP);
        1: KeyUp(VK_DOWN);
      end;
      if x=0 then x:=1 else x:=0;
      until(TimeFromMark(Time)>=3300+random(100));
      if MakeAngleHigh then SetAngle(True);
      Wait(50+random(50));
    end;

    //Rotates The Camera In Random Direction For Time (Left/Right) And Does Random Up And Down Movements//
    //MakeAngleHigh: True- Makes Angle Highest, False- Does Nothing//
    procedure RandomCamera(MakeAngleHigh : Boolean);
    var
      z, x, Time : Integer;
    begin
      if not LoggedIn then Exit;
      Wait(50+random(50));
      z := Random(2);
      case z of
        0: KeyDown(VK_LEFT);
        1: KeyDown(VK_RIGHT);
      end;
      MarkTime(Time);
      x := Random(2);
      repeat
      case x of
        0: KeyDown(VK_UP);
        1: KeyDown(VK_DOWN);
      end;
      Wait(400+random(150));
      case x of
        0: KeyUp(VK_UP);
        1: KeyUp(VK_DOWN);
      end;
      if x=0 then x:=1 else x:=0;
      until(TimeFromMark(Time)>=3300+random(100));
      case z of
        0: KeyUp(VK_LEFT);
        1: KeyUp(VK_RIGHT);
      end;
      if MakeAngleHigh then SetAngle(True);
      Wait(50+random(50));
    end;

    SCAR Code:
    {*******************************************************************************
    procedure ClanChatAntiBan;
    By: Dusk412 (Stole Concept From Trollvete)
    Description: Joins Random Popular Clan Chat
    - add/edit clan chats at will :D
    *******************************************************************************}


    procedure ClanChatAntiBan;
    begin
      case Random(6) of
        0: ChatName := 'runescape'
        1: ChatName := 'zezima'
        2: ChatName := 'kingduffy 1'
        3: ChatName := 'Lightning'
        4: ChatName := 'Atlantisblue'
        5: ChatName := 'cygopat'
      end;
      JoinClanChat(ChatName);
      SetChat('friends', 3);
    end;

  7. #7
    Join Date
    Jul 2007
    Location
    Ottawa, Canada
    Posts
    930
    Mentioned
    0 Post(s)
    Quoted
    0 Post(s)

    Default

    This is pathetic. You have 3 syntax errors in it, did you even try and compile it? also you dont have to use more than 1 line for each antiban effect thing. you can use a range of cases. i.e 10 to 15
    ~ Metagen

  8. #8
    Join Date
    Nov 2007
    Posts
    437
    Mentioned
    0 Post(s)
    Quoted
    0 Post(s)

    Default

    Quote Originally Posted by Metagen View Post
    This is pathetic. You have 3 syntax errors in it, did you even try and compile it? also you dont have to use more than 1 line for each antiban effect thing. you can use a range of cases. i.e 10 to 15
    [sarcasm]Nice constructive criticism Metagen. Keep it up. [/sarcasm]

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

    Default

    SCAR Code:
    82:Disguise('Three Days Grace - Animal i have become');
       83:Disguise('Bullet For My Valentine - The poison');
       91:Disguise('Linkin Park - Given up');
       92:Disguise('Linkin Park - Somewhere i belong');

    hows that antiban...

  10. #10
    Join Date
    Mar 2008
    Location
    The Netherlands
    Posts
    1,395
    Mentioned
    1 Post(s)
    Quoted
    1 Post(s)

    Default

    @Pinky: if jackex reads ur taskbar (which is illegal) they might see SMART v3 1/3 or something..


  11. #11
    Join Date
    Nov 2007
    Posts
    437
    Mentioned
    0 Post(s)
    Quoted
    0 Post(s)

    Default

    They don't though and that is his point. Otherwise they would see SCAR running and every one of us would be banned.

Thread Information

Users Browsing this Thread

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

Similar Threads

  1. My First Script [Lolislol Powa Choppa] A Power Chopper
    By lolislol in forum First Scripts
    Replies: 71
    Last Post: 01-26-2008, 06:02 PM
  2. Lolislol Powa Choppa A Power Chopper
    By lolislol in forum RS3 Outdated / Broken Scripts
    Replies: 4
    Last Post: 09-19-2007, 02:39 PM
  3. Boreas lolislol again, please check
    By lolislol in forum OSR Help
    Replies: 9
    Last Post: 01-23-2007, 04:49 PM

Posting Permissions

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