SRL Archive - Help and Support

program New;
Procedure Auto;
Var
x,y: integer;
begin
if(IsMouseButtonDown(false))then
repeat
ClickMouse(x,y,False);
until(False); // how would i get until(IsMouseButtonUp,False)
end.

Trying to auto a tast where right mouse button must be repreatedly
clicked and released at random point varying from (0, 0) (799, 0) (93, 525)
and finally (799, 525) wanting to bind this process to where i can hold
down right mouse button to begin process and when released end process.
have VERY basic knowledge after a while of trying to learn. tyvm in advance.
:confused: what i have so far is above…

Try:

program New;
var
  i : Integer;
begin
  repeat
    if IsMouseButtonDown(False) then
    begin
      i := Random(4);
      case i of
        0 : ClickMouse(0, 0, True);
        1 : ClickMouse(799, 0, True);
        2 : ClickMouse(93, 525, True);
        3 : ClickMouse(799, 535, True);
      end;
    end;
    Wait(50);
  until False;
end.

tyvm
i managed to get it down somewhat haven't got the mouse part down.
but i can get it to reread mouse pos and click for me now ^_^
simple code here: (any way to revise this to start on right mouse being down and end when released? again ty so very much this is saving me carpol tunnel syndrome
program New;
var x,y:integer;
begin
Repeat
Wait(700);
GetMousePos(x,y);
ClickMouse(x,y,False);
Until(False);
end.

From: Moloch
tyvm
i managed to get it down somewhat haven't got the mouse part down.
but i can get it to reread mouse pos and click for me now ^_^
simple code here: (any way to revise this to start on right mouse being down and end when released? again ty so very much this is saving me carpol tunnel syndrome
program New;
var x,y:integer;
begin
Repeat
Wait(700);
GetMousePos(x,y);
ClickMouse(x,y,False);
Until(False);
end.

A bit vague…

You want to make a script that stops when you release mouse or what?

yes please.
i need it to start when right button is held, and stop when its released. what i have works VERY well just having to use Ctrl alt and R to start and Ctrl+alt+s to stop but im rather pleased with my noob script atm :D

From: Moloch
yes please.
i need it to start when right button is held, and stop when its released. what i have works VERY well just having to use Ctrl alt and R to start and Ctrl+alt+s to stop but im rather pleased with my noob script atm :D

Well, SCAR compiles only when run button is pressed or hotkeys for it is pressed. So that's out of the picture.

procedure Blah;
begin
repeat
  Wait(100);
until IsMouseButtonDown(False);
end;

begin
  Blah;
end.

Examine this small piece of code, the script stops only when right mouse click is clicked.

Thank you once again for the help , figure as long as ive been goofing off with this id have learned a lot more. bitmaps np for me but the simple stuff whew… :o

Ha, looks like I totally misunderstood what you wanted :P

Lol Np. Ty Guys.