SRL Archive - Research & Development Lounge

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;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.

HopeFully it works out good.

Looks nice :)

Maybe you should get the mousespeed at the beginning and set it back at the end.

MessUpMouse > MUM :p

From: nielsie95
Looks nice :)

Maybe you should get the mousespeed at the beginning and set it back at the end.

MessUpMouse > MUM :p

I will take you advice and see what i can do about the mouse speed. I like the code name loo MUM.

Looks very nice. I do this a lot lol.

Thanx.

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.

Before JAD gets here ;)

Eh, thats why i said ignore the standards. I don't care bout standards really all that much.

Grr! You have no idea how long it took to put that through a formatter! Anyways, I thought 'Eh' was what I always said?

From: SantaClause
Grr! You have no idea how long it took to put that through a formatter! Anyways, I thought 'Eh' was what I always said?

It was, until you gave me the "eh" disease. -.- i hate you.

OFFTOPIC.

LMFAO at that black guy in your sig.

From: joshie
OFFTOPIC.

LMFAO at that black guy in your sig.

:D.

nice idea Buckley

keep'em comin.

From: Timothegreat
nice idea Buckley

keep'em comin.

I sure will once I think of some more :D.