Buckleyindahouse
07-05-2007, 06:21 PM
Whenever Im alching or doing a task, I noticed sometimes if my elbow sleeps then my mouse moves very fast away from my destination then I move it back to click or if someone bumps you while your moving the mouse or bout to click.I've made a function that mimics that movement. Ignore Standards -.-
program New;
{.Include srl/srl.scar}
{************************************************* ******************************
Procedure MessUpMouse(x,y,rx,ry:Integer;Click:Boolean;ClickS tring:String);
By: BuckleyInDaHouse
Description: Tries to move the mouse to destination messing
up in the process as you was bumped or slipped then moves
the mouse back and clicks in the correct place.
X,Y : Coords.
Rx,Ry:Random X,Y.
Click : True to click False To Right Click.
ClickString:Only matters if click is false and this is for ChooseOption.
************************************************** *****************************}
Procedure MessUpMouse(x,y,rx,ry:Integer;Click:Boolean;ClickS tring:String);
Var xx,yy:Integer;
Begin
If(Click)Then
Begin
MMouse(x,y,rx,ry);
MouseSpeed := 1;
Case Random(2) Of
0 : MMouse(x+(70)-Random(5),y+(-70)-Random(5),5,5);
1 : MMouse(x+(70)-Random(5),y+(-70)-Random(5),5,5);
End;
GetMousePos(xx,yy);
WriteLn('Moved Mouse to X:'+IntToStr(xx)+',Y:'+IntToStr(yy));
MouseSpeed := 15+Random(10);
Mouse(x,y,0,0,True);
End;
If(Not(Click))Then
Begin
MMouse(x,y,rx,ry);
MouseSpeed := 1;
Case Random(2) Of
0 : MMouse(x+(70)-Random(5),y+(-70)-Random(5),5,5);
1 : MMouse(x+(70)-Random(5),y+(-70)-Random(5),5,5);
End;
GetMousePos(xx,yy);
WriteLn('Moved Mouse to X:'+IntToStr(xx)+',Y:'+IntToStr(yy));
MouseSpeed := 15+Random(10);
Mouse(x,y,0,0,False);
ChooseOption(x,y,ClickString);
End;
End;
Begin
MessUpMouse(638,192,3,3,True,'none');
End.
HopeFully it works out good.
program New;
{.Include srl/srl.scar}
{************************************************* ******************************
Procedure MessUpMouse(x,y,rx,ry:Integer;Click:Boolean;ClickS tring:String);
By: BuckleyInDaHouse
Description: Tries to move the mouse to destination messing
up in the process as you was bumped or slipped then moves
the mouse back and clicks in the correct place.
X,Y : Coords.
Rx,Ry:Random X,Y.
Click : True to click False To Right Click.
ClickString:Only matters if click is false and this is for ChooseOption.
************************************************** *****************************}
Procedure MessUpMouse(x,y,rx,ry:Integer;Click:Boolean;ClickS tring:String);
Var xx,yy:Integer;
Begin
If(Click)Then
Begin
MMouse(x,y,rx,ry);
MouseSpeed := 1;
Case Random(2) Of
0 : MMouse(x+(70)-Random(5),y+(-70)-Random(5),5,5);
1 : MMouse(x+(70)-Random(5),y+(-70)-Random(5),5,5);
End;
GetMousePos(xx,yy);
WriteLn('Moved Mouse to X:'+IntToStr(xx)+',Y:'+IntToStr(yy));
MouseSpeed := 15+Random(10);
Mouse(x,y,0,0,True);
End;
If(Not(Click))Then
Begin
MMouse(x,y,rx,ry);
MouseSpeed := 1;
Case Random(2) Of
0 : MMouse(x+(70)-Random(5),y+(-70)-Random(5),5,5);
1 : MMouse(x+(70)-Random(5),y+(-70)-Random(5),5,5);
End;
GetMousePos(xx,yy);
WriteLn('Moved Mouse to X:'+IntToStr(xx)+',Y:'+IntToStr(yy));
MouseSpeed := 15+Random(10);
Mouse(x,y,0,0,False);
ChooseOption(x,y,ClickString);
End;
End;
Begin
MessUpMouse(638,192,3,3,True,'none');
End.
HopeFully it works out good.