hedgewars/uStats.pas
changeset 866 ac6f6c95c23f
parent 864 024369e09a53
child 867 dc7901b1120e
equal deleted inserted replaced
865:a4a5ec6c61d4 866:ac6f6c95c23f
    69 
    69 
    70 else if DamageClan <> 0 then
    70 else if DamageClan <> 0 then
    71 	if DamageTotal > DamageClan then
    71 	if DamageTotal > DamageClan then
    72 		PlaySound(sndNutter, false)
    72 		PlaySound(sndNutter, false)
    73 	else
    73 	else
    74 		PlaySound(sndSameTeam, false)
    74 		if random(2) = 0 then
       
    75 			PlaySound(sndSameTeam, false)
       
    76 		else
       
    77 			PlaySound(sndTraitor, false)
    75 
    78 
    76 else if DamageGiven <> 0 then
    79 else if DamageGiven <> 0 then PlaySound(sndRegret, false)
    77 
    80 
    78 else if AmmoDamagingUsed then PlaySound(sndMissed, false);
    81 else if AmmoDamagingUsed then PlaySound(sndMissed, false);
    79 
    82 
    80 Gear:= GearsList;
    83 Gear:= GearsList;
    81 while Gear <> nil do
    84 while Gear <> nil do