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;
page revision: 0, last edited: 21 Jan 2008 09:35