Trying to script a macro for The Mafia Network

Ok, I'm Trying to script a macro for the mafia network but when i finished scripting it then ran it, i got a f***ing error on line 11 saying

Line 11: [Error] (11:1): Invalid number of parameters in script

Its the first end; in it.

BTW I am a newb at scripting. -.-

Script:

program AutoCrime;

{You have 3 seconds to click on TMN after running this}

Procedure Wait;

begin

Wait(3000)

end;

Procedure Cheat;

begin

MoveMouse(32,176)

ClickMouse(32,176,true)

Wait(1000)

MoveMouse(400,463)

ClickMouse(400,463,true)

Wait(126000)

end;

Begin

Wait;

Cheat;

Cheat;

Cheat;

Cheat;

Cheat;

Cheat;

Cheat;

Cheat;

Cheat;

Cheat;

Cheat;

Cheat;

Cheat;

Cheat;

Cheat;

Cheat;

Cheat;

Cheat;
Cheat;

Cheat;

Cheat;

Cheat;

Cheat;

Cheat;

Cheat;

Cheat;

Cheat;

Cheat;

Cheat;

Cheat;

Cheat;

Cheat;

Cheat;

Cheat;

Cheat;

Cheat;
Cheat;

Cheat;

Cheat;

Cheat;

Cheat;

Cheat;

Cheat;

Cheat;

Cheat;

Cheat;

Cheat;

Cheat;

Cheat;

Cheat;

Cheat;

Cheat;

Cheat;

Cheat;

End.

So whats wrong with it?

 

Code:

program AutoCrime;

{You have 3 seconds to click on TMN after running this}

Procedure Cheat;
begin
  MoveMouse(32,176)
  ClickMouse(32,176,true)
  Wait(1000)
  MoveMouse(400,463)
  ClickMouse(400,463,true)
  Wait(126000)
end;

var
  i: Integer;
Begin
  Wait(3000)
  repeat
    Cheat;
    i := i + 1;
  until (i > 53);
End.

You can't have two procedures named Wait. You got that error because the Wait procedure you made his no parameters whereas the default Wait in Scar has 1 parameter. By making another procedure named Wait it had to overwrite the default Wait in Scar. It's hard to explain, but what I did for you is exactly the same as what you had.

 

Thank you so much Town!

 

Trying to run the script posted by town i encountered a problem. What program and file extension are you using to run it and is that the fully completed version? Thanks

 

If you're using Scar 3.15, there have been updates to it so semi-colons are stricter. Here -

Code:

program AutoCrime;

{You have 3 seconds to click on TMN after running this}

Procedure Cheat;
begin
  MoveMouse(32,176);
  ClickMouse(32,176,true);
  Wait(1000);
  MoveMouse(400,463);
  ClickMouse(400,463,true);
  Wait(126000);
end;

var
  i: Integer;
Begin
  Wait(3000);
  repeat
    Cheat;
    i := i + 1;
  until (i > 53);
End.