Page 2 of 2 FirstFirst 12
Results 26 to 37 of 37

Thread: AntiBan Tut

  1. #26
    Join Date
    Oct 2008
    Posts
    5
    Mentioned
    0 Post(s)
    Quoted
    0 Post(s)

    Default

    cool tut

  2. #27
    Join Date
    Aug 2008
    Location
    Finland
    Posts
    2,851
    Mentioned
    3 Post(s)
    Quoted
    2 Post(s)

    Default

    Very good But don't use talking, like zeph already said.
    I think this should be in tutorials for beginners?

    SCAR Code:
    const
    AntiBanChance = 70; // Chance of AntiBan-procedure to occur in percents

    case random(11 * (100/AntiBanChance)) of
     0: SleepAndMoveMouse(1000+random(2000));
     1: HoverSkill('Woodcutting', false);
     2: BoredHuman;
     ...
     11: MakeCompass(IntToStr(random(360)));
    end;

    And a hint: random(476) is just as good as random(500). It doesnt add anymore randomness, even if u used how weird numbers. So to make it look simple, use random(500) instead of random(476), for example.

  3. #28
    Join Date
    Oct 2007
    Location
    #srl
    Posts
    6,102
    Mentioned
    39 Post(s)
    Quoted
    62 Post(s)

    Default

    Quote Originally Posted by marpis View Post
    I think this should be in tutorials for beginners?
    You read my mind.

  4. #29
    Join Date
    Jan 2009
    Location
    Somewhere
    Posts
    240
    Mentioned
    0 Post(s)
    Quoted
    0 Post(s)

    Default

    SCAR Code:
    Procedure Antiban;//You can add more if you know what you are doing
    begin
     If Not LoggedIn Then Exit;
      Case Random(150) of
        1:
          begin
            Boredhuman;
            Inc(HowManyAntibans);;
            WriteLn('Antiban - BoredHuman');
            Exit;
          end;
         
        19:
          begin
            PickupMouse;
            Inc(HowManyAntibans);;
            WriteLn('Antiban - PickupMouse');
            Exit;
          end;

        31:
           begin
           Inc(StupidX);
           AddIgnore('Zezima'+IntToStr(StupidX));
           Wait(100+random(900));
           DeleteIgnore('Zezima'+IntToStr(StupidX));
           Inc(HowManyAntibans);;
           WriteLn('Antiban - Ignore(Add/Remove)');
           Exit;
           end;
           
        41:
           begin
           Inc(StupidY);
           AddFriend('tehnoobshow'+IntToStr(StupidY));
           Wait(100+random(500));
           DeleteFriend('tehnoobshow'+IntToStr(StupidY));
           Inc(HowManyAntibans);;
           WriteLn('Antiban - Friend(Add/Remove)');
           Exit;
           end;
         
        125:
          begin
            Hoverskill('random', false)
            Inc(HowManyAntibans);;
            WriteLn('Antiban - HoverSkill->Random');
            Exit;
          end;
         
        69,54,67:
          begin
            Makecompass('n');
            wait(30+random(30));
            Makecompass('s');
            wait(30+random(30));
            Makecompass('random');
            Inc(HowManyAntibans);;
            WriteLn('Antiban - Random Changing of Compass');
            Exit;
          end;
         
        143:
          begin
            Hoverskill('Woodcutting', false);
            Inc(HowManyAntibans);;
            WriteLn('Antiban - HoverSkill->Woodcutting');
            Exit;
          end;

        87:
          begin
            Gametab(1);
            wait(250+random(350));
            Gametab(2);
            Wait(250+random(350));
            Gametab(3);
            Wait(250+random(350));
            Gametab(4);
            Wait(150+random(200));
            Inc(HowManyAntibans);;
            WriteLn('Antiban - Gametab');
            Exit;
          end;
         
        48:
          begin
            Hoverskill('Firemaking', false);
            Inc(HowManyAntibans);;
            WriteLn('Antiban - Hoverskill->Firemaking');
            Exit;
          end;
         
        186:
          begin
            SleepAndMoveMouse(1000+random(2000));
            Inc(HowManyAntibans);;
            WriteLn('Antiban - SleepAndMoveMouse');
            Exit;
          end;

        201:
       
          begin
            Mouse(random(600),random(500),0,0,false)
            Chooseoption('ancel');
            Inc(HowManyAntibans);;
            WriteLn('Antiban - Random Mouse Click and Cancel');
            Exit;
          end;
       
        249:
       
          begin
            Mouse(random(600),random(500),0,0,false)
            chooseoption('xamine')
            Inc(HowManyAntibans);;
            WriteLn('Random Mouse Click and Examine');
            Exit;
          end;
         
        200:
          begin
           If QCOpen then Exit;
            OpenQC;
            Wait(10+random(100));
            CloseQc ;
            QCSayLevel('Woodcutting');
            Inc(HowManyAntibans);;
            WriteLn('Antiban - QuickChat)');;
            Exit;
          end;
       end;
    end;

    Using this in my "coming" script.

  5. #30
    Join Date
    Aug 2008
    Location
    Finland
    Posts
    2,851
    Mentioned
    3 Post(s)
    Quoted
    2 Post(s)

    Default

    Quote Originally Posted by Colluci View Post
    SCAR Code:
    Procedure Antiban;//You can add more if you know what you are doing
    begin
     If Not LoggedIn Then Exit;
      Case Random(150) of
        1:
          begin
            Boredhuman;
            Inc(HowManyAntibans);;
            WriteLn('Antiban - BoredHuman');
            Exit;
          end;
         
        19:
          begin
            PickupMouse;
            Inc(HowManyAntibans);;
            WriteLn('Antiban - PickupMouse');
            Exit;
          end;

        31:
           begin
           Inc(StupidX);
           AddIgnore('Zezima'+IntToStr(StupidX));
           Wait(100+random(900));
           DeleteIgnore('Zezima'+IntToStr(StupidX));
           Inc(HowManyAntibans);;
           WriteLn('Antiban - Ignore(Add/Remove)');
           Exit;
           end;
           
        41:
           begin
           Inc(StupidY);
           AddFriend('tehnoobshow'+IntToStr(StupidY));
           Wait(100+random(500));
           DeleteFriend('tehnoobshow'+IntToStr(StupidY));
           Inc(HowManyAntibans);;
           WriteLn('Antiban - Friend(Add/Remove)');
           Exit;
           end;
         
        125:
          begin
            Hoverskill('random', false)
            Inc(HowManyAntibans);;
            WriteLn('Antiban - HoverSkill->Random');
            Exit;
          end;
         
        69,54,67:
          begin
            Makecompass('n');
            wait(30+random(30));
            Makecompass('s');
            wait(30+random(30));
            Makecompass('random');
            Inc(HowManyAntibans);;
            WriteLn('Antiban - Random Changing of Compass');
            Exit;
          end;
         
        143:
          begin
            Hoverskill('Woodcutting', false);
            Inc(HowManyAntibans);;
            WriteLn('Antiban - HoverSkill->Woodcutting');
            Exit;
          end;

        87:
          begin
            Gametab(1);
            wait(250+random(350));
            Gametab(2);
            Wait(250+random(350));
            Gametab(3);
            Wait(250+random(350));
            Gametab(4);
            Wait(150+random(200));
            Inc(HowManyAntibans);;
            WriteLn('Antiban - Gametab');
            Exit;
          end;
         
        48:
          begin
            Hoverskill('Firemaking', false);
            Inc(HowManyAntibans);;
            WriteLn('Antiban - Hoverskill->Firemaking');
            Exit;
          end;
         
        186:
          begin
            SleepAndMoveMouse(1000+random(2000));
            Inc(HowManyAntibans);;
            WriteLn('Antiban - SleepAndMoveMouse');
            Exit;
          end;

        201:
       
          begin
            Mouse(random(600),random(500),0,0,false)
            Chooseoption('ancel');
            Inc(HowManyAntibans);;
            WriteLn('Antiban - Random Mouse Click and Cancel');
            Exit;
          end;
       
        249:
       
          begin
            Mouse(random(600),random(500),0,0,false)
            chooseoption('xamine')
            Inc(HowManyAntibans);;
            WriteLn('Random Mouse Click and Examine');
            Exit;
          end;
         
        200:
          begin
           If QCOpen then Exit;
            OpenQC;
            Wait(10+random(100));
            CloseQc ;
            QCSayLevel('Woodcutting');
            Inc(HowManyAntibans);;
            WriteLn('Antiban - QuickChat)');;
            Exit;
          end;
       end;
    end;

    Using this in my "coming" script.
    Another hint:

    SCAR Code:
    case random(150) of
    0:
    1:
    2:
    3:
    end;
    is just as good as
    SCAR Code:
    case random(150) of
    0:
    10:
    15:
    140:
    end;

  6. #31
    Join Date
    Dec 2008
    Posts
    2,813
    Mentioned
    0 Post(s)
    Quoted
    0 Post(s)

    Default

    it's actually different..

    if the case is 4, and nothing is set to 4, it will just go onto the next thing.. but if something is set to 4, it will do it

  7. #32
    Join Date
    Aug 2008
    Location
    Finland
    Posts
    2,851
    Mentioned
    3 Post(s)
    Quoted
    2 Post(s)

    Default

    Quote Originally Posted by 99_ View Post
    it's actually different..

    if the case is 4, and nothing is set to 4, it will just go onto the next thing.. but if something is set to 4, it will do it
    I meant that if you want to make a case that does not always "compile", which means that u make "case random(10) of 0: 1: 2: ... 4" for example, then distribution of the numbers u use doesn't do anything.

  8. #33
    Join Date
    Nov 2008
    Posts
    47
    Mentioned
    0 Post(s)
    Quoted
    0 Post(s)

  9. #34
    Join Date
    May 2007
    Location
    knoxville
    Posts
    2,873
    Mentioned
    7 Post(s)
    Quoted
    70 Post(s)

    Default

    SCAR Code:
    procedure AkwardAntiBan;
    begin
      if (not(LoggedIn))then
        LoginPlayer;
        for R := 300 to 500 do
        for RG := 0 to 6 do
        case Random(15) of
          0:begin
              writeln('anti ban 1');
              HoverSkill('Magic', False);
              wait(100+ random(R));
              HoverSkill('Range', False);
              SleepAndMoveMouse(600+random(400));
            end;
        1:Begin
            writeln('antiban 2');
            Gametab(RG);
            wait(R + random (R));
            GameTab(7);
          end;
        2:begin
            writeln('antiban 3');
            PickUpMouse;
            wait(R + random (r));
            PickUpMouse;
            wait(R + random (r));
          end;
        3: begin
             writeln('antiban 4');
             SayCurrentLevels('Magic');
           end;
        4:begin
            writeln('antiban 5');
            MakeCompass('S');
            Wait(R + random(R));
            MakeCompass('N');
            Wait(R + random(R));
          end;
        end;
    end;

    im having some trouble with it, when it gets to the antiban procedure in the script, it repeats random antiban procedures, like it will do antiban 1, 3, 2, 3, 3, 1 , 4, 5, 2, on and on, instead of having a 50% chance of doing one of those 5. so i had to take it out for the script to work.

    also i have a question, can you have a case ithin a case? like
    SCAR Code:
    0: begin
        0: something
        1: somethingelse
        end;
    1: anotherthing
    <TViYH> i had a dream about you again awkwardsaw
    Malachi 2:3

  10. #35
    Join Date
    Jan 2009
    Location
    Somewhere
    Posts
    240
    Mentioned
    0 Post(s)
    Quoted
    0 Post(s)

    Default

    Quote Originally Posted by akwardsaw View Post
    SCAR Code:
    procedure AkwardAntiBan;
    begin
      if (not(LoggedIn))then
        LoginPlayer;
        for R := 300 to 500 do
        for RG := 0 to 6 do
        case Random(15) of
          0:begin
              writeln('anti ban 1');
              HoverSkill('Magic', False);
              wait(100+ random(R));
              HoverSkill('Range', False);
              SleepAndMoveMouse(600+random(400));
            end;
        1:Begin
            writeln('antiban 2');
            Gametab(RG);
            wait(R + random (R));
            GameTab(7);
          end;
        2:begin
            writeln('antiban 3');
            PickUpMouse;
            wait(R + random (r));
            PickUpMouse;
            wait(R + random (r));
          end;
        3: begin
             writeln('antiban 4');
             SayCurrentLevels('Magic');
           end;
        4:begin
            writeln('antiban 5');
            MakeCompass('S');
            Wait(R + random(R));
            MakeCompass('N');
            Wait(R + random(R));
          end;
        end;
    end;

    im having some trouble with it, when it gets to the antiban procedure in the script, it repeats random antiban procedures, like it will do antiban 1, 3, 2, 3, 3, 1 , 4, 5, 2, on and on, instead of having a 50% chance of doing one of those 5. so i had to take it out for the script to work.
    Increase the random value of the case.

    About the question, I don't think you can have it.
    Last edited by Colluci; 03-29-2009 at 07:41 PM. Reason: Typo

  11. #36
    Join Date
    May 2007
    Location
    knoxville
    Posts
    2,873
    Mentioned
    7 Post(s)
    Quoted
    70 Post(s)

    Default

    Quote Originally Posted by Colluci View Post
    Increase the random value of the case.

    About the question, I don't think you can have it.
    i had it up to 20 i beileve, should it be higher(like 50+)?

    and no you cannot, i tried =\
    <TViYH> i had a dream about you again awkwardsaw
    Malachi 2:3

  12. #37
    Join Date
    Dec 2008
    Posts
    2,813
    Mentioned
    0 Post(s)
    Quoted
    0 Post(s)

    Default

    you can have a case within a case..

    SCAR Code:
    begin
      case Random(2) of
        0: begin
             case Random(2) of
               0: Writeln('0-0');
               1: begin
                    case Random(2) of
                      0: Writeln('0-1-0');
                      1: begin
                           case Random(2) of
                             0: TerminateScript;
                             1: Writeln('0-1-1-1');
                           end;
                         end;
                    end;
                  end;
             end;
           end;
        1: begin
             case Random(2) of
               0: Writeln('1-0');
               1: begin
                    case Random(2) of
                      0: Writeln('This is a lot of cases');
                      1: Writeln('1-1-1');
                    end;
                  end;
             end;
           end;
      end;
    end.
    Last edited by ian.; 04-05-2009 at 01:02 AM.

Page 2 of 2 FirstFirst 12

Thread Information

Users Browsing this Thread

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

Similar Threads

  1. Antiban help...
    By doom0791 in forum OSR Help
    Replies: 2
    Last Post: 08-05-2008, 01:14 AM
  2. srl antiban
    By Dark_Sniper in forum News and General
    Replies: 15
    Last Post: 06-07-2007, 10:27 PM
  3. Pin, less antiban or not?
    By PwNZoRNooB in forum Bot Information and Spottings
    Replies: 6
    Last Post: 04-28-2007, 05:17 PM
  4. antiban Q.
    By del_signo in forum OSR Help
    Replies: 6
    Last Post: 03-06-2007, 01:46 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
  •