diff -r 5dae89b2872d -r 80225c6af656 hedgewars/uStats.pas --- a/hedgewars/uStats.pas Sun Jul 06 14:09:41 2008 +0000 +++ b/hedgewars/uStats.pas Sun Jul 06 17:45:16 2008 +0000 @@ -38,6 +38,8 @@ procedure TurnReaction; procedure SendStats; +var FinishedTurnsTotal: LongInt = -1; + implementation uses uTeams, uSound, uMisc; var DamageGiven : Longword = 0; @@ -48,12 +50,13 @@ KillsTotal : LongWord = 0; AmmoUsedCount : Longword = 0; AmmoDamagingUsed : boolean = false; - FinishedTurnsTotal: LongInt = -1; SkippedTurns: LongWord = 0; isTurnSkipped: boolean = false; procedure HedgehogDamaged(Gear: PGear); begin +if bBetweenTurns then exit; + if Gear <> CurrentHedgehog^.Gear then inc(CurrentHedgehog^.stats.StepDamageGiven, Gear^.Damage); @@ -81,6 +84,8 @@ procedure TurnReaction; var i, t: LongInt; begin +TryDo(not bBetweenTurns, 'Engine bug: TurnReaction between turns', true); + inc(FinishedTurnsTotal); if FinishedTurnsTotal = 0 then exit; @@ -112,7 +117,7 @@ else if AmmoDamagingUsed then PlaySound(sndMissed, false) -else if AmmoUsedCount > 0 then +else if (AmmoUsedCount > 0) and not isTurnSkipped then // nothing ? else if isTurnSkipped then PlaySound(sndBoring, false)