hedgewars/HHHandlers.inc
changeset 4824 efbc8f80acac
parent 4790 4cb3f7890fbd
child 4827 7895de87636b
--- a/hedgewars/HHHandlers.inc	Fri Jan 07 21:41:12 2011 +0300
+++ b/hedgewars/HHHandlers.inc	Fri Jan 07 23:08:34 2011 +0300
@@ -402,7 +402,7 @@
 if Gear^.Timer = 1 then
     begin
     Gear^.State:= Gear^.State or gstNoDamage;
-    doMakeExplosion(hwRound(Gear^.X), hwRound(Gear^.Y), 30, EXPLAutoSound);
+    doMakeExplosion(hwRound(Gear^.X), hwRound(Gear^.Y), 30, Gear, EXPLAutoSound);
     AddGear(hwRound(Gear^.X), hwRound(Gear^.Y), gtGrave, 0, _0, _0, 0)^.Hedgehog:= Gear^.Hedgehog;
     DeleteGear(Gear);
     SetAllToActive