RandomAntiBan.scar

[Dynamite]

OK well this is my newest project.
Everyone is complaining that scripts use one antiban procedure so it is easy to detect if loads of people use the same script.
So I made this to make it so it is less detectable because many people will be using different antiban.

//-----------------------------------------------------------------//
//--               Scar Standard Resource Library                --//
//--                     AntiBan routines                        --//
//--                        By The Man                           --//
//-----------------------------------------------------------------//

{*******************************************************************************
procedure AntiBan1;
By: Floor66 and The Man
Description: AntiBan1
*******************************************************************************}
Procedure AntiBan1;
Begin
  If Not LoggedIn Then
    Exit;
  Case Random(175) Of
    0..30: Begin
             SleepAndMoveMouse(3500 + Random(1500));
           End;
    31..35: Begin
              RandomMovement;
            End;
    36..40: Begin
              Case 1 + Random(15) Of
                1: GameTab(tab_Combat);
                2: GameTab(tab_Stats);
                3: GameTab(tab_Quest);
                4: GameTab(tab_Inv);
                5: GameTab(tab_Equip);
                6: GameTab(tab_Prayer);
                7: GameTab(tab_Magic);
                8: GameTab(tab_Friends);
                9: GameTab(tab_Ignore);
                10: GameTab(tab_Clan);
                11: GameTab(tab_Options);
                12: GameTab(tab_Emotes);
                13: GameTab(tab_Music);
                14: GameTab(tab_LogOut);
              End;
            End;
  End;
  MakeCompass('N');
End;

{*******************************************************************************
procedure AntiBan2;
By: The Man
Description: AntiBan2
*******************************************************************************}
procedure AntiBan2;
begin
  case Random(100) of
    0: HoverSkill('crafting', false);
    1: MakeCompass('N');
    2: Wait(1000 + Random(200));
    3: RandomMovement;
    4: RandomRClick;
    5: HoverSkill('random', false);
    6: GameTab(RandomRange(1, 12));
  else SleepAndMoveMouse(250+random(100));
  end;
end;

{*******************************************************************************
procedure AntiBan3;
By: ZephyrsFury, Nava2 & The Man
Description: AntiBan3
*******************************************************************************}
procedure AntiBan3;
var
  I, J, T, N, X, Y: Integer;
begin
  case Random(25) of
    0: HoverSkill('random', False);
    1..2: MakeCompass('random');
    3..5: HoverSkill('random', False);
    6..9: RandomRClick;
    10..16: PickUpMouse;
    17: begin                                                                   //Play with compass and camera
          N := Random(6);
          for I := 0 to N do
          begin
            case I of
              0: R_MakeCompass(IntToStr(Round(GetMinimapAngleDeg) - 90 + Random(181)));
              1: R_SetAngle(RandomRange(0, 100));
              2: R_MakeCompass(IntToStr(Round(GetMinimapAngleDeg) - 90 + Random(181)));
              3: R_SetAngle(RandomRange(0, 100));
              4: R_MakeCompass(IntToStr(Round(GetMinimapAngleDeg) - 45 + Random(91)));
              5: R_SetAngle(RandomRange(50, 100));
            end;
            Wait(Random(500) + 100);
          end;
          R_SetAngle(RandomRange(80, 100));
        end;
    18: begin                                                                   //Play with chat
          if (GetColor(500, 361) <> 1975337) then Exit;

          N := Random(3) + 1;
          for I := 0 to N do
          begin
            if (GetColor(500, 361) <> 1975337) then Break;

            MouseBox(498, 348, 507, 357, 3);
            GetMousePos(X, Y);
            HoldMouse(X, Y, True);
            T := GetSystemTime;
            J := RandomRange(523, 2127);
            while (GetSystemTime - T < J) do
              Wait(1);
            ReleaseMouse(X, Y, True);

            if (Random(3) = 0) then
              MouseBox(X - 50, Y - 50, X + 50, Y + 50, 3);

            Wait(1000 + Random(1500));
          end;

          FixChat;
        end;
    19..24: GameTab(tab_Inv);
  end;
end;
{*******************************************************************************
procedure AntiBan4;
By: Blumblebee & The Man
Description: AntiBan4
*******************************************************************************}
Procedure AntiBan4;
begin
  case Random(950) of
    1..75: SleepAndMoveMouse(RandomRange(1000, 2500));
    76..80: GameTab(RandomRange(1, 12));
    81..90:
    begin
      HoverSkill('RuneCrafting', False);
      Wait(750+random(500));
    end;
    95..100: RandomRClick;
    100..110:
    begin
      RandomMovement;
      Wait(1000+Random(1000));
      case Random(2) of
        1: SetAngle(True);
      end;
    end;
  end;
end;
{*******************************************************************************
procedure AntiBan5;
By: N1ke & The Man
Description: AntiBan5
*******************************************************************************}
Procedure AntiBan5;
Begin
  Case Random(300) of
   7: HoverSkill('random', False);
   8: BoredHuman;
   9: MouseBox(59, 31, 647, 264, 3);
   10..14: MakeCompass(IntToStr(Random(361)));
   15: RandomMovement;
   16: SleepAndMoveMouse(1000+Random(2000));
   17..20: GameTab(RandomRange(1, 13));
  end;
end;
{*******************************************************************************
procedure AntiBan6;
By: NaumanAkhlaq & The Man
Description: AntiBan6
*******************************************************************************}
Procedure AntiBan6;
Var I : Byte;
Begin
  FindNormalRandoms;
  Case Random(25) Of
  0 : Begin
        GameTab(1 + Random(11));
        Wait(200 + Random(400));
        If Random(2) = 1 Then
        Begin
          GameTab(1 + Random(11));
          Wait(200 + Random(400));
        End Else
          GameTab(4 + Random(3));
      End;

  1, 21..24 : SleepAndMoveMouse(1000 + Random(200));

  2 : PickUpMouse;

  3 : for i := 1 to (3 + Random(4)) do   //From BoredHuman;
      begin
        MMouse(Random(MSX2), Random(MSY2), 0, 0);
        if IsUpText('opti') then
        begin
          GetMousePos(x, y);
          Mouse(x, y, 0, 0, False);
          ChooseOption('Examine');
        end;
        FindNormalRandoms;
      end;
      
   5 : If Random(2) = 1 Then
            SetRun(True);
End;
{*******************************************************************************
procedure AntiBan7;
By: Runescapian & The Man
Description: AntiBan7
*******************************************************************************}
Procedure Antiban7;
var
  dir: string;
begin
  if not(loggedin) then
  begin
    SwitchPlayer(true);
    exit;
  end;
  FindNormalRandoms;
  R_FindRandoms;
  if (random(60) = 5) then
  begin
    case (random(3)) of
      0: dir := 'w';
      1: dir := 's';
      2: dir := 'e';
    end;
    R_MakeCompass(dir);
    wait(random(1300));
    MakeCompass('n');
  end;
  if (random(4) = 2) then
  begin
    mmouse(random(750),random(500),0,0);
  end;
  if (random(70) = 5) then
  begin
    hoverskill('woodcutting',false);
  end;
  wait(1000+random(1000));
end;

and this is how you would use it.

begin
   case (random(7)) of
      0: Antiban1;
      1: Antiban2;
      2: Antiban3;
      3: Antiban4;
      4: Antiban5;
      5: Antiban6;
      6: Antiban7;
   end;

Rate/Hate

Thank You

T~M

[ShowerThoughts]

Every thought about antibans performing one of the antibans 1 up to 10 for example?

[Dynamite]

...pardon.
I didnt understand that.
Maybe an example or something?

T~M

[ZephyrsFury]

Mine and Nava's antiban won't work in SRL as it requres reflection. Also a lot of those procedures do the same things. There isn't much antiban you can do, its not really any much safer to use different antiban procedures from different scripts.

Anyway your system would be better if you used an array of procedures too.

[Daniel]

I don't bother with AntiBan.

I mean seriously, who the hell rotates their compass 360 degrees for 2 seconds while mining an ore?

[Infantry001]

I feel all the antiban you need is located inside your ore-finding, walking, banking, etc.

[jakeyboy29]

said it before, ill say it again, munks anti ban is by far the best, imo

[senrath]

I'd say that if you're going to use antiban, it should be written specifically for what you're doing. For instance, the antiban from Blumblebee that you posted has HoverSkill('Runecrafting', False), which you probably wouldn't do unless you were Runecrafting at the time.

[Richard]

GameTab(RandomRange(1, 14))

Considerably shorter than your version.

Nice job nonetheless, should reduce detectability.