53 procedure Skipped;

    53 procedure Skipped;

    54 procedure TurnReaction;

    54 procedure TurnReaction;

    55 procedure SendStats;

    55 procedure SendStats;

    56 

    56 

    57 implementation

    57 implementation

    59 var DamageGiven : Longword = 0;

    60 var DamageGiven : Longword = 0;

    60     DamageClan  : Longword = 0;

    61     DamageClan  : Longword = 0;

    61     DamageTotal : Longword = 0;

    62     DamageTotal : Longword = 0;

    62     KillsClan   : LongWord = 0;

    63     KillsClan   : LongWord = 0;

    63     Kills       : LongWord = 0;

    64     Kills       : LongWord = 0;