Gu3st...
2008-05-15 08:40:47
Well, this bug is a well know bug, and i just got bored and wanted to fix it.
{*******************************************************************************
procedure MMouse(x, y, rx, ry: integer);
By: Benland100
Description: Moves the mouse.
*******************************************************************************}
procedure MMouse(x, y, rx, ry: integer);
var
cx, cy: integer;
randSpeed: extended;
begin
RandSpeed:= (random(MouseSpeed) / 2.0 + MouseSpeed) / 10.0;
if RandSpeed = 0.0 then
RandSpeed := 0.1;
GetMousePos(cx,cy);
x := ((x - random(rx))+ random(rx*2));
y := ((y - random(ry))+ random(ry*2));
WindMouse(cx,cy,x,y,9.0,3.0,10.0/randSpeed,15.0/randSpeed,10.0*randSpeed,10.0*randSpeed);
end;