Results 1 to 5 of 5

Thread: Anti-Ban Procedure

  1. #1
    Join Date
    Oct 2006
    Posts
    371
    Mentioned
    0 Post(s)
    Quoted
    5 Post(s)

    Default Anti-Ban Procedure

    Hi, I have a little problem, I made a separate procedure for anti-ban, but when I try to add it in my script, it never works, because the real main loop is the woodcutting, and it still doesn't work as good.

    This is the new procedure, and I put the anti-ban in there. But it only works one time.

    I can post what I also did to the full script.

    (Cut me some slack, I wasn't at SRL for like a year, I didn't even know these things until I re-read a couple of tuts.)

    SCAR Code:
    Procedure MainStuff;
      Var
        TalkBack, TalkBack1, TalkBack2, x, y, MyMark : integer;
    begin
      if not Loggedin then Exit;
      MarkTime(MyMark);
      repeat
        if FindObj(x, y, 'hop', TreeCol, 30) then
        begin
        If (InChat('hello')) then
    TalkBack:= Random(5);
     case TalkBack of

        1: TypeSend('hello');
        2: TypeSend('hey');
        3: TypeSend('Good Day');
        4: TypeSend('Hello, how are you?');
        5: TypeSend('ummm hi...');
      end;
    begin
    if (InChat('noob')) then
      begin
    TalkBack1:= Random(5);
     case TalkBack1 of
        0: TypeSend('you the noob');
        1: TypeSend('your mom is a noob');
        2: TypeSend('look in the mirror noob.');
        3: TypeSend('choob');
        4: TypeSend('you fail.');
        5: TypeSend('well, your garbage.');
    end;
     begin
    if (InChat('auto')) or (InChat('autoer')) then
    TalkBack2:= Random(5);
     case TalkBack2 of
        0: TypeSend('lol, i don''t auto.');
        1: TypeSend('??? i don''t do that ???');
        2: TypeSend('you wish :)');
        3: TypeSend('i never cheated in my life');
        4: TypeSend('go away noob.');
        5: TypeSend('your family autos');
            end;
          end;
        end;
      end;
          Mouse(x, y, 2, 3, False);
          if ChooseOption('hop') then
          Wait(Waiting+Random(760));
          FTWait(3);  //Anti-Randoms + Anti-Ban
          FindFight;
          FindNormalRandoms;
          SolvePinBall;
          DwarfItem;
          ClickToContinue;
          ClickToContinue;
          begin
            Exit;
          end;
        end;
        if TimeFromMark(MyMark) > (2 * 60 * 100) then
        begin
          Logout;
          Exit;
        end;
      until false
    end;

    So thats the procedure in the main woodcutting procedure.

    I wanted it, so it can be used, even when it is woodcutting.

    here is full script.

    SCAR Code:
    {-------------------------------|
    |       Sebo's PowerCutter      |
    |          Version 0.3          |
    |   # Setup On Lines 23-51      |
    |            UPDATES:           |
    |         # Talk-Back           |
    |         # Anti-Randoms        |
    {-------------------------------|
    |           Credits:            |
    |  - WT-Fakawi for Anti-Random  |
    |  - The_Rs_Monkey for the WC   |
    |    TuT, Learned a couple new  |
    |    Things, Thanks Man :)      |
    |-------------------------------}



    Program SeboCutter;

    {.include SRL/SRL.scar}

    {----------------------------Setup Begins----------------------------}
    const
         LoadsPerPlayer = 5; //Amount of loads to do before switching.
         TreeCol = 2188889; //Set the tree color here.
         Waiting = 3000; //Wait time per Tree.


    Procedure DeclarePlayers;
    begin
      NumberOfPlayers(4);
      CurrentPlayer := 0;
     
      Players[0].Name := 'Fang Sai424';
      Players[0].Pass := 'lolkid, dont even try';
      Players[0].Nick := 'sai';
      Players[0].Active := True;

      Players[1].Name := 'Name';
      Players[1].Pass := 'Pass';
      Players[1].Nick := 'NickName';
      Players[1].Active := False;

      Players[2].Name := 'Name';
      Players[2].Pass := 'Pass';
      Players[2].Nick := 'NickName';
      Players[2].Active := False;

      Players[3].Name := 'Name';
      Players[3].Pass := 'Pass';
      Players[3].Nick := 'NickName';
      Players[3].Active := False;
     
      NumberOfPlayers(4);
    end;

    {---------------------------Setup Ends---------------------------}

    Procedure MainStuff;
      Var
        TalkBack, TalkBack1, TalkBack2, x, y, MyMark : integer;
    begin
      if not Loggedin then Exit;
      MarkTime(MyMark);
      repeat
        if FindObj(x, y, 'hop', TreeCol, 30) then
        begin
        If (InChat('hello')) then
    TalkBack:= Random(5);
     case TalkBack of

        1: TypeSend('hello');
        2: TypeSend('hey');
        3: TypeSend('Good Day');
        4: TypeSend('Hello, how are you?');
        5: TypeSend('ummm hi...');
      end;
    begin
    if (InChat('noob')) then
      begin
    TalkBack1:= Random(5);
     case TalkBack1 of
        0: TypeSend('you the noob');
        1: TypeSend('your mom is a noob');
        2: TypeSend('look in the mirror noob.');
        3: TypeSend('choob');
        4: TypeSend('you fail.');
        5: TypeSend('well, your garbage.');
    end;
     begin
    if (InChat('auto')) or (InChat('autoer')) then
    TalkBack2:= Random(5);
     case TalkBack2 of
        0: TypeSend('lol, i don''t auto.');
        1: TypeSend('??? i don''t do that ???');
        2: TypeSend('you wish :)');
        3: TypeSend('i never cheated in my life');
        4: TypeSend('go away noob.');
        5: TypeSend('your family autos');
            end;
          end;
        end;
      end;
          Mouse(x, y, 2, 3, False);
          if ChooseOption('hop') then
          Wait(Waiting+Random(760));
          FTWait(3);  //Anti-Randoms + Anti-Ban
          FindFight;
          FindNormalRandoms;
          SolvePinBall;
          DwarfItem;
          ClickToContinue;
          ClickToContinue;
          begin
            Exit;
          end;
        end;
        if TimeFromMark(MyMark) > (2 * 60 * 100) then
        begin
          Logout;
          Exit;
        end;
      until false
    end;

    Function FindFastRandoms: Boolean;  // Thanks Fakawi for Function :)
    var
      i: Integer;
    begin
      for i:=0 to 10 do
      begin
        case I of
         0:  If FindTalk then
         begin
           FindNormalRandoms;
         end;
         1:  If FindDead then
               Result := True;
         2:  If FindMod then
               Result := True;
         3:  If FindMime then
               Result := True;
         4:  If FindMaze then
               Result := True;
         5:  If FindQuiz then
               Result := True;
         6:  If FindDemon then
               Result := True;
         7: begin
            if NoGameTab then
            begin
              Result := True;

              Logout;
              Exit;
            end;
            end;
         8: begin
               if InBlack then
               begin
                 Result := True;
                 Logout;
                 Exit;
               end;
             end;
           9: RC;
        end;
        FindFight;
        FindFightEx;
        SolvePinball;
      end;
    end;

    Procedure SetupMyScript;
    Begin
      SetupSRL;
      ActivateClient;
      ClearDebug;
    End;

    Begin
      SetupMyScript;
      DeclarePlayers;
      if Loggedin then Logout;
      LoginPlayer;
      MakeCompass('n');
      HighestAngle;
      repeat
      FindFastRandoms;
        MainStuff;
        if InvFull then
        begin
          DroptoPosition(2, 28);
          Inc(Players[CurrentPlayer].Banked);
          if Players[CurrentPlayer].Banked mod LoadsPerPlayer = 0 then
          begin
            NextPlayer(True);
          end;
        end;
        if not Loggedin then NextPlayer(False);
      until false
    End.

    And this is how i want it, but so it works...?

    SCAR Code:
    {-------------------------------|
    |       Sebo's PowerCutter      |
    |          Version 0.3          |
    |   # Setup On Lines 23-51      |
    |            UPDATES:           |
    |         # Talk-Back           |
    |         # Anti-Randoms        |
    {-------------------------------|
    |           Credits:            |
    |  - WT-Fakawi for Anti-Random  |
    |  - The_Rs_Monkey for the WC   |
    |    TuT, Learned a couple new  |
    |    Things, Thanks Man :)      |
    |-------------------------------}



    Program SeboCutter;

    {.include SRL/SRL.scar}

    {----------------------------Setup Begins----------------------------}
    const
         LoadsPerPlayer = 5; //Amount of loads to do before switching.
         TreeCol = 2188889; //Set the tree color here.
         Waiting = 3000; //Wait time per Tree.


    Procedure DeclarePlayers;
    begin
      NumberOfPlayers(4);
      CurrentPlayer := 0;
     
      Players[0].Name := 'Fang Sai424';
      Players[0].Pass := 'lolkid, dont even try';
      Players[0].Nick := 'sai';
      Players[0].Active := True;

      Players[1].Name := 'Name';
      Players[1].Pass := 'Pass';
      Players[1].Nick := 'NickName';
      Players[1].Active := False;

      Players[2].Name := 'Name';
      Players[2].Pass := 'Pass';
      Players[2].Nick := 'NickName';
      Players[2].Active := False;

      Players[3].Name := 'Name';
      Players[3].Pass := 'Pass';
      Players[3].Nick := 'NickName';
      Players[3].Active := False;
     
      NumberOfPlayers(4);
    end;

    {---------------------------Setup Ends---------------------------}

    Procedure ChopTheTreeWithRandoms;
      Var
        TalkBack, TalkBack1, TalkBack2, x, y, MyMark : integer;
    begin
      if not Loggedin then Exit;
      MarkTime(MyMark);
      repeat
        if FindObj(x, y, 'hop', TreeCol, 30) then
        begin
          Mouse(x, y, 2, 3, False);
          if ChooseOption('hop') then
          Wait(Waiting+Random(760));
          FTWait(3);  //Anti-Randoms + Anti-Ban
          FindFight;
          FindNormalRandoms;
          SolvePinBall;
          DwarfItem;
          ClickToContinue;
          ClickToContinue;
          begin
            Exit;
          end;
        end;
        if TimeFromMark(MyMark) > (2 * 60 * 100) then
        begin
          Logout;
          Exit;
        end;
      until false
    end;

    Procedure AntiBanMe;
    Begin
    If (InChat('hello')) then
      TalkBack:= Random(5);
        case TalkBack of

        1: TypeSend('hello');
        2: TypeSend('hey');
        3: TypeSend('Good Day');
        4: TypeSend('Hello, how are you?');
        5: TypeSend('ummm hi...');
      end;
    begin
    if (InChat('noob')) then
      begin
      TalkBack1:= Random(5);
        case TalkBack1 of
        0: TypeSend('you the noob');
        1: TypeSend('your mom is a noob');
        2: TypeSend('look in the mirror noob.');
        3: TypeSend('choob');
        4: TypeSend('you fail.');
        5: TypeSend('well, your garbage.');
    end;
    begin
    if (InChat('auto')) or (InChat('autoer')) then
    TalkBack2:= Random(5);
     case TalkBack2 of
        0: TypeSend('lol, i don''t auto.');
        1: TypeSend('??? i don''t do that ???');
        2: TypeSend('you wish :)');
        3: TypeSend('i never cheated in my life');
        4: TypeSend('go away noob.');
        5: TypeSend('your family autos');
            end;
          end;
        end;
      end;
    end;

    Function FindFastRandoms: Boolean;  // Thanks Fakawi for Function :)
    var
      i: Integer;
    begin
      for i:=0 to 10 do
      begin
        case I of
         0:  If FindTalk then
         begin
           FindNormalRandoms;
         end;
         1:  If FindDead then
               Result := True;
         2:  If FindMod then
               Result := True;
         3:  If FindMime then
               Result := True;
         4:  If FindMaze then
               Result := True;
         5:  If FindQuiz then
               Result := True;
         6:  If FindDemon then
               Result := True;
         7: begin
            if NoGameTab then
            begin
              Result := True;

              Logout;
              Exit;
            end;
            end;
         8: begin
               if InBlack then
               begin
                 Result := True;
                 Logout;
                 Exit;
               end;
             end;
           9: RC;
        end;
        FindFight;
        FindFightEx;
        SolvePinball;
      end;
    end;

    Procedure SetupMyScript;
    Begin
      SetupSRL;
      ActivateClient;
      ClearDebug;
    End;

    Begin
      SetupMyScript;
      DeclarePlayers;
      if Loggedin then Logout;
      LoginPlayer;
      MakeCompass('n');
      HighestAngle;
      repeat
      AntiBanMe;
      FindFastRandoms;
        ChopTheTreeWithRandoms;
        AntiBanMe;
        if InvFull then
        begin
          DroptoPosition(2, 28);
          Inc(Players[CurrentPlayer].Banked);
          if Players[CurrentPlayer].Banked mod LoadsPerPlayer = 0 then
          begin
            NextPlayer(True);
          end;
        end;
        if not Loggedin then NextPlayer(False);
      until false
    End.

  2. #2
    Join Date
    Jun 2007
    Posts
    246
    Mentioned
    0 Post(s)
    Quoted
    0 Post(s)

    Default

    EDIT: Nvm, i didnt see the Exit. Disregard this post just read geraucherts below, but read the part about the cases.


    The reason it only performs antiban once is because you need to break out of the mainwoodcutting loop, you have a repeat until false there. so put the antiban there or break out of the loop. also dont forget to fix your cases, they start with 0 and end with the number minus 1 so
    SCAR Code:
    TalkBack:= Random(5);
        case TalkBack of
     
        0: TypeSend('hello');
        1: TypeSend('hey');
        2: TypeSend('Good Day');
        r: TypeSend('Hello, how are you?');
        4: TypeSend('ummm hi...');
      end;
    instead of
    SCAR Code:
    TalkBack:= Random(5);
        case TalkBack of
     
        1: TypeSend('hello');
        2: TypeSend('hey');
        3: TypeSend('Good Day');
        4: TypeSend('Hello, how are you?');
        5: TypeSend('ummm hi...');
      end;

  3. #3
    Join Date
    Apr 2007
    Location
    Michigan -.-
    Posts
    1,357
    Mentioned
    2 Post(s)
    Quoted
    4 Post(s)

    Default

    The reason it only does it once is because it is not in the chop procedure, it is after the chopping procedure is finished. To make this more effective I would put the antiban procedure above the chop procedure and then call the antiban during your random calls and such. This will allow the procedure to be called more often.

    Hope that helps
    METAL HEAD FOR LIFE!!!

  4. #4
    Join Date
    Oct 2006
    Posts
    371
    Mentioned
    0 Post(s)
    Quoted
    5 Post(s)

    Default

    Ahhh, got it thanks.

    I just noticed that too :O

    but thanks for help once again.

  5. #5
    Join Date
    Apr 2007
    Location
    Michigan -.-
    Posts
    1,357
    Mentioned
    2 Post(s)
    Quoted
    4 Post(s)

    Default

    hehe np man, if you need any extra help just pm
    METAL HEAD FOR LIFE!!!

Thread Information

Users Browsing this Thread

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

Similar Threads

  1. special type of anti ban and anti randoms
    By Magiic in forum RS3 Outdated / Broken Scripts
    Replies: 5
    Last Post: 07-27-2008, 12:50 PM
  2. I need a script with JUST Anti-Bans and Anti-Randoms.
    By Dipped_in_Pwn_Sauce in forum RS3 Outdated / Broken Scripts
    Replies: 2
    Last Post: 11-18-2007, 02:38 PM
  3. Anti-X question! (anti-ban, anti-randoms)
    By jvwarrior in forum OSR Help
    Replies: 9
    Last Post: 10-31-2007, 03:09 AM
  4. Karajama auto nat runner with anti bans/ anti randoms
    By mike_2922 in forum RS3 Outdated / Broken Scripts
    Replies: 1
    Last Post: 08-16-2007, 02:40 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
  •