Procedure Berechnen;
var
var1,var2,var3:integer;
begin
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')) ) ;
var1 := GetPlayerStat(ID,'Kills');
var2 := ID,'Deaths');
var3 := var1/var2;
SayToPlayer ( ID, 'Ratio : ' +inttostr(var3));
end
else
begin
end;
end;