Alert When GM Messages

Will alert when a GM messages you. You can change the alert sound by changeing the second line to another .wav file.

Const
  Path = 'C:/Windows/Media/Notify.wav' // Must be wav file!
procedure event_message(Channel:integer; Name,Text:String);
begin
  UpdateWorld;
  Name1 := Name;
  if (Name1[2] = 'M') and ((Name1[0] = 'G') or (Name1[0]='C')) then
  begin
    PlaySound(Path);
  end;
end;

while not terminated do
begin 
  UpdateWorld;
  ProcessEvents;
  sleep(100);
end;