hedgewars/uStats.pas
changeset 864 024369e09a53
parent 858 5005a485f103
child 866 ac6f6c95c23f
--- a/hedgewars/uStats.pas	Thu Apr 24 14:36:38 2008 +0000
+++ b/hedgewars/uStats.pas	Thu Apr 24 14:49:19 2008 +0000
@@ -61,10 +61,20 @@
 begin
 inc(CurrentHedgehog^.stats.FinishedTurns);
 
-if (DamageGiven = DamageTotal) and (DamageTotal > 0) then PlaySound(sndFirstBlood, false)
-else if CurrentHedgehog^.stats.StepDamageRecv > 0 then PlaySound(sndStupid, false)
+if (DamageGiven = DamageTotal) and (DamageTotal > 0) then
+	PlaySound(sndFirstBlood, false)
+
+else if CurrentHedgehog^.stats.StepDamageRecv > 0 then
+	PlaySound(sndStupid, false)
+
 else if DamageClan <> 0 then
+	if DamageTotal > DamageClan then
+		PlaySound(sndNutter, false)
+	else
+		PlaySound(sndSameTeam, false)
+
 else if DamageGiven <> 0 then
+
 else if AmmoDamagingUsed then PlaySound(sndMissed, false);
 
 Gear:= GearsList;