procedure OnPlayerSpeak(ID: Byte; Text: string);
begin

if Text = '!help' then begin
SayToPlayer(ID, '!time');

else if Text = '!time' then begin
SayToPlayer (ID, 'The time is currently' +FormatDate('hh:nn:ss am/pm'));

else

end;
end;
end;
end;