diff -r b3ddf84912b7 -r 33cae6d1635c hedgewars/GSHandlers.inc
--- a/hedgewars/GSHandlers.inc	Fri Sep 19 20:36:59 2008 +0000
+++ b/hedgewars/GSHandlers.inc	Fri Sep 19 20:41:53 2008 +0000
@@ -160,9 +160,13 @@
 CalcRotationDirAngle(Gear);
 
 if Gear^.Kind = gtHellishBomb then
+	begin
+	if Gear^.Timer = 3000 then PlaySound(sndHellish, false);
+
 	if (GameTicks and $3F) = 0 then
 		if (Gear^.State and gstCollision) = 0 then
 			AddGear(hwRound(Gear^.X), hwRound(Gear^.Y), gtEvilTrace, 0, _0, _0, 0);
+	end;
 
 if (Gear^.State and (gstCollision or gstMoving)) = (gstCollision or gstMoving) then
 	if (hwAbs(Gear^.dX) > _0_1) or
@@ -170,6 +174,13 @@
 		PlaySound(sndGrenadeImpact, false)
 end;
 
+procedure doStepWatermelon(Gear: PGear);
+begin
+AllInactive:= false;
+PlaySound(sndMelon, false);
+Gear^.doStep:= @doStepBomb
+end;
+
 procedure doStepCluster(Gear: PGear);
 begin
 AllInactive:= false;
@@ -1149,6 +1160,8 @@
 Gear^.dY:= - _0_9;
 Gear^.doStep:= @doStepFirePunchWork;
 DrawTunnel(HHGear^.X - int2hwFloat(cHHRadius), HHGear^.Y + _1, _0_5, _0, cHHRadius * 4, 5);
+
+PlaySound(TSound(ord(sndFirePunch1) + GetRandom(6)), false)
 end;
 
 ////////////////////////////////////////////////////////////////////////////////