SCAR Code:
program New;
{.Include srl/srl.scar}
{*******************************************************************************
Procedure MessUpMouse(x,y,rx,ry:Integer;Click:Boolean;ClickString: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;ClickString: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.