SRL Archive - Research & Development Lounge

Ok i dont know if this procedure/function is in SRL, but watever, i just made it.
It double clicks the coordinates you choose. If you wanna use it in any script you make, sure you can but please credit me ;) .

program ULTRAProgram;

//The Procedure.
procedure DoubleMouseClick(UX, UY, URX, URY: Integer; Left: Boolean);
begin
Mouse(UX, UY, URX, URY, Left);
Wait(50+random(50));
Mouse(UX, UY, URX, URY, Left);
end;
//The Procedure.

begin
DoubleMouseClick(123{X}, 123{Y}, 3{RandomX}, 3{RandomY}, True{True = Left Click, False = Right Click});
end.

turn it into a function… so u can use it like

DoubleMouse(x,y,2,2);

lol cos then that would be cool if u can do it :P

~Spaz

Yea ive done spazzes idea for you:

program ULTRAProgram;

//The Procedure.
procedure DoubleMouseClick(UX, UY, URX, URY: Integer; Left:boolean);
begin
Mouse(UX, UY, URX, URY, left);
Wait(50+random(50));
Mouse(UX, UY, URX, URY, left);
end;
//The Procedure.

begin
DoubleMouseClick(123{X}, 123{Y}, 3{RandomX}, 3{RandomY},False {Choose between False or True});
end.

Well i dont think its gonna be pretty usefull to double-right click… :P

To make it more human like…
This:

procedure DoubleMouseClick(UX, UY, URX, URY: Integer; Left:boolean);
begin
Mouse(UX, UY, URX, URY, left);
Wait(50+random(50));
Mouse(UX, UY, URX, URY, left);
end;

Should be this

procedure DoubleMouseClick(UX, UY, URX, URY: Integer; Left:boolean);
begin
Mouse(UX, UY, URX, URY, left);
Wait(50+random(50));
Mouse(UX, UY, 0, 0, left);
end;

else it clicks mouse, waits, moves mouse again and clicks…

Alright i did that :)

From: negaal
Should be this

procedure DoubleMouseClick(UX, UY, URX, URY: Integer; Left:boolean);
begin
Mouse(UX, UY, URX, URY, left);
Wait(50+random(50));
Mouse(UX, UY, 0, 0, left);
end;

else it clicks mouse, waits, moves mouse again and clicks…

That would still do the same with clicking, moving and clicking again, most likely

If you set it to click on 100,100 with randomness 5,5 it can end on 102,103.
That means it will click on 102,103
Wait 50 + random 50
Click 100,100.

This is the correct way:

procedure DoubleMouseClick(UX, UY, URX, URY: Integer; Left:boolean);
var a,b: Integer;
begin
  Mouse(UX, UY, URX, URY, left);
  Wait(50+random(50));
  GetMousePos(a,b);
  Mouse(a,b, URX, URY, left);
end;

-Knives