SRL Archive - Other Scripts

program New;
Var
x, y:integer; //variables used
Procedure 1;
If Iskeydown(Need Ctrl Key Here)
Then;
begin; //begin
getmousepos(x,y); //searches for mouse position
end;

Procedure 2;
Begin;
repeat;
ClickMouse(x, y,False);
Until(IsKeyUp(Need Ctrl Here);
End;

//——-Main Loop——-\\
Begin;
1;
2;
end. //end script:mad:

var
x, y: integer;


Procedure One; [B]//Numbers can't be used first.[/B]
begin [B]//Begin is needed.[/B]
 if (IsFunctionKeyDown(1)) then [B]//Control. There's no semicolon after "then"[/B]
  begin [B]//No Semi colon after "begin"[/B]
   getmousepos(x, y);
  end;
end; [B]//end is needed to end the procedure.[/B]

Procedure Two; [B]//Numbers can't be used first.[/B]
begin [B]//No semi colon after "begin"[/B]
 repeat [B]//No semi colon after repeat[/B]
   ClickMouse(x, y, false);
 Until(IsFunctionKeyDown(1)); [B]//Control[/B]
end;

begin;
  One;
  Two;
end.

You don't put semi colons infront of:

begin
then
of
is
and

Etc. Just don't put semi colons infront of any bolded words.

Procedures can't start with a number, they must be a word. :)
Happy to help. <3

Can i dont know what i'd do without you man :D
ya save my arse from carpol tunnel more times than i can count :)
oh and thanks for last tip too i didnt know.