Nebula
2012-02-27 19:17:23
Basically moves the compass in a random direction for a random amount of degrees depending on Min+MaxMovement. if Return is true, it returns the compass to its original position. I think this would be a great addition to antiban.
Function CompassMovement(MinMovement, MaxMovement: Integer; Return: Boolean): Boolean;
var
StartAngle, Movement : Integer;
begin
Result := False;
StartAngle := round(rs_GetCompassAngleDegrees());
case Random(2) of
0: Movement := RandomRange(-MinMovement, -MaxMovement);
1: Movement := RandomRange(MinMovement, MaxMovement);
end;
MakeCompass(StartAngle + Movement);
if (Return = true) then
begin
wait(RandomRange(100,350));
MakeCompass(StartAngle);
end;
Result := true;
end;