hedgewars/uStats.pas
changeset 4393 883b979697e4
parent 4377 43945842da0c
child 4403 0dfe26f48ec1
equal deleted inserted replaced
4392:95e27e12d0e9 4393:883b979697e4
    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, uWorld, uVariables, uUtils, uIO;
    38 uses uTeams, uSound, uLocale, uVariables, uUtils, uIO, uCaptions;
    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;