Some Quick Anti-Ban Methods

**Daniel** · 09-06-2008, 10:57 AM

[i]NOTE: All procedures/functions should be placed right at the bottom of the include. If a function/procedure with the same name exists, over-write that function/procedure with the custom one.

RandomRotate:
Place in ..\Core\AntiBan.scar

SCAR Code:

procedure RandomRotate;
var
  i: Integer;
begin
  i := 1 + Random(358);
  case random(7) of
    0: MakeCompass('N');
    1: MakeCompass('S');
    2: MakeCompass('E');
    3: MakeCompass('W');
    4: MakeCompass(IntToStr(i));
    5: SetAngle(True);
    6: SetAngle(False);
  end;
end;

PickUpMouse:
Place in ..\Core\AntiBan.scar

SCAR Code:

{*******************************************************************************
procedure PickUpMouse;
By: Dan's The Man
Description: Acts just like you picked your mouse off the pad then sets it back
                  down.
*******************************************************************************}
procedure PickUpMouse;
var
  cx, cy, i: Integer;
begin
  i:=MouseSpeed;
  MouseSpeed:=25+Random(6);
  GetMousePos(cx, cy);
  MMouse(cx-10-Random(11)-Random(11), cy-35-Random(21)-Random(11), 8, 8);
  Wait(1000+Random(1501));
  MMouse(cx+50+Random(51)+Random(31), cy+39+Random(51)+Random(31), 11, 11);
  MouseSpeed:=i;
end;

RandMouse:
Place in ..\Core\AntiBan.scar

SCAR Code:

procedure RandMouse;
var
  i: Integer;
begin
  i:=MouseSpeed;
  MouseSpeed:=MouseSpeed*Random(4)+Random(4);
  case Random(2) of
    0: MMouse(0, 0, 800, 600);
    1: Mouse(0, 0, 800, 600, False);
  end;
  MouseSpeed:=i;
end;