Script [help]

[Hubiq]

My script doesn't work  Where is the mistake?

Code: [Select]

procedure OnPlayerSpeak(ID: Byte; Text: string);
begin
   
  if (Text='!cmds1') then begin
   WriteConsole(ID, '!teams, !balance', $33ccff);
  end;
  if (Text='!cmds2') then begin
   WriteConsole(ID, '!alpha, !bravo, !spec', $33ff66);
end;

[machina]

Missing end; after second if statement? I'm not programming in Pascal but it would make sense to me as I code a little bit in M Script.

Code: [Select]

procedure OnPlayerSpeak(ID: Byte; Text: string);
begin
  if (Text='!cmds1') then begin
   WriteConsole(ID, '!teams, !balance', $33ccff);
  end;
  if (Text='!cmds2') then begin
   WriteConsole(ID, '!alpha, !bravo, !spec', $33ff66);
  end;    // <--------------------- could this be missing?
end;

[Hubiq]

thanks 

[machina]

thanks 

You should probably get better IDE that would highlight such errors for your work as it is rather a simple mistake.

[Ratman]

thanks 

Get Lazarus IDE, its what Im using now and can help you find mistakes like that easily.

[NiCeShOoT|GuY]

notepad is for experts. I agree 110% 

Get Lazarus IDE, its what Im using now and can help you find mistakes like that easily.