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

var : integer;

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

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

else if text = '!stats' then begin
SayToPlayer ( ID, 'Score : ' +inttostr(GetPlayerStat(ID,'Kills')) );
var := +inttostr(GetPlayerStat(ID,'Kills'));
end

else

end;