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;