Trying to script a macro for The Mafia Network

[novaman550]

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?

 

[Town]

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.

 

[novaman550]

Thank you so much Town!

 

[RememberTheName]

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

 

[Runescapian321]

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

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.