hedgewars/uStats.pas
changeset 4403 0dfe26f48ec1
parent 4393 883b979697e4
child 4413 46caab3a8f84
equal deleted inserted replaced
4402:54a78ec6aac4 4403:0dfe26f48ec1
    33 procedure Skipped;
    33 procedure Skipped;
    34 procedure TurnReaction;
    34 procedure TurnReaction;
    35 procedure SendStats;
    35 procedure SendStats;
    36 
    36 
    37 implementation
    37 implementation
    38 uses uTeams, uSound, uLocale, uVariables, uUtils, uIO, uCaptions;
    38 uses uTeams, uSound, uLocale, uVariables, uUtils, uIO, uCaptions, uDebug;
    39 
    39 
    40 var DamageGiven : Longword = 0;
    40 var DamageGiven : Longword = 0;
    41     DamageClan  : Longword = 0;
    41     DamageClan  : Longword = 0;
    42     DamageTotal : Longword = 0;
    42     DamageTotal : Longword = 0;
    43     KillsClan   : LongWord = 0;
    43     KillsClan   : LongWord = 0;