36 procedure HedgehogDamaged(Gear: PGear);

    36 procedure HedgehogDamaged(Gear: PGear);

    37 procedure Skipped;

    37 procedure Skipped;

    38 procedure TurnReaction;

    38 procedure TurnReaction;

    39 procedure SendStats;

    39 procedure SendStats;

    40 

    40 

    42 

    44 

    43 implementation

    45 implementation

    44 uses uTeams, uSound, uMisc;

    46 uses uTeams, uSound, uMisc;

    45 var DamageGiven : Longword = 0;

    47 var DamageGiven : Longword = 0;

    46     DamageClan  : Longword = 0;

    48     DamageClan  : Longword = 0;