hedgewars/HHHandlers.inc
changeset 2463 34a484b2ddd6
parent 2457 ecf0c7e7995b
child 2464 851b4e47ed2b
--- a/hedgewars/HHHandlers.inc	Thu Oct 15 19:14:22 2009 +0000
+++ b/hedgewars/HHHandlers.inc	Thu Oct 15 19:16:50 2009 +0000
@@ -301,6 +301,8 @@
 	i: Integer;
 begin
 Gear^.Message:= gm_Destroy;
+if Gear^.Pos = posCaseAmmo then PlaySound(sndShotgunFire, false, nil)
+else PlaySound(sndPlaced, false, nil);
 case Gear^.Pos of
        posCaseUtility,
        posCaseAmmo: begin