Some Quick Anti-Ban Methods
[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;
These are just some quick, simple procedures i had wrapped up in about 10 minutes for everyone to use ;)
