37 procedure Skipped;

    37 procedure Skipped;

    38 procedure TurnReaction;

    38 procedure TurnReaction;

    39 procedure SendStats;

    39 procedure SendStats;

    40 

    40 

    41 var

    41 var

    43 	FinishedTurnsTotal: LongInt = -1;

    43 	FinishedTurnsTotal: LongInt = -1;

    44 

    44 

    45 implementation

    45 implementation

    46 uses uTeams, uSound, uMisc;

    46 uses uTeams, uSound, uMisc;

    47 var DamageGiven : Longword = 0;

    47 var DamageGiven : Longword = 0;