hedgewars/uStats.pas
changeset 831 5cfd1096be5f
parent 830 f07267032194
child 858 5005a485f103
equal deleted inserted replaced
830:f07267032194 831:5cfd1096be5f
    63 
    63 
    64 if (DamageGiven = DamageTotal) and (DamageTotal > 0) then PlaySound(sndFirstBlood, false)
    64 if (DamageGiven = DamageTotal) and (DamageTotal > 0) then PlaySound(sndFirstBlood, false)
    65 else if CurrentHedgehog^.stats.StepDamageRecv > 0 then PlaySound(sndStupid, false)
    65 else if CurrentHedgehog^.stats.StepDamageRecv > 0 then PlaySound(sndStupid, false)
    66 else if DamageClan <> 0 then
    66 else if DamageClan <> 0 then
    67 else if DamageGiven <> 0 then
    67 else if DamageGiven <> 0 then
    68 else PlaySound(sndMissed, false);
    68 else if AmmoDamagingUsed then PlaySound(sndMissed, false);
    69 
    69 
    70 Gear:= GearsList;
    70 Gear:= GearsList;
    71 while Gear <> nil do
    71 while Gear <> nil do
    72   begin
    72   begin
    73   if Gear^.Kind = gtHedgehog then
    73   if Gear^.Kind = gtHedgehog then