diff -r dd418d9c18c5 -r f1bf00b7fd5a hedgewars/uStats.pas --- a/hedgewars/uStats.pas Fri Apr 25 13:12:52 2008 +0000 +++ b/hedgewars/uStats.pas Fri Apr 25 13:51:01 2008 +0000 @@ -34,6 +34,7 @@ procedure AmmoUsed(am: TAmmoType); procedure HedgehogDamaged(Gear: PGear); +procedure Skipped; procedure TurnReaction; procedure SendStats; @@ -48,6 +49,8 @@ AmmoUsedCount : Longword = 0; AmmoDamagingUsed : boolean = false; FinishedTurnsTotal: LongInt = -1; + SkippedTurns: LongWord = 0; + isTurnSkipped: boolean = false; procedure HedgehogDamaged(Gear: PGear); begin @@ -69,6 +72,12 @@ inc(DamageTotal, Gear^.Damage) end; +procedure Skipped; +begin +inc(SkippedTurns); +isTurnSkipped:= true +end; + procedure TurnReaction; var Gear: PGear; i, t: LongInt; @@ -103,6 +112,8 @@ PlaySound(sndMissed, false) else if AmmoUsedCount > 0 then // nothing ? +else if isTurnSkipped then + PlaySound(sndBoring, false) else PlaySound(sndCoward, false); @@ -117,6 +128,7 @@ if StepDamageRecv > MaxStepDamageRecv then MaxStepDamageRecv:= StepDamageRecv; if StepDamageGiven > MaxStepDamageGiven then MaxStepDamageGiven:= StepDamageGiven; if StepKills > MaxStepKills then MaxStepKills:= StepKills; + StepKills:= 0; StepDamageRecv:= 0; StepDamageGiven:= 0 end; @@ -126,7 +138,8 @@ DamageGiven:= 0; DamageClan:= 0; AmmoUsedCount:= 0; -AmmoDamagingUsed:= false +AmmoDamagingUsed:= false; +isTurnSkipped:= false end; procedure AmmoUsed(am: TAmmoType);