hedgewars/HHHandlers.inc
changeset 4837 2ea0a152c319
parent 4827 7895de87636b
child 4867 e604ee83e34f
--- a/hedgewars/HHHandlers.inc	Wed Jan 12 20:32:44 2011 +0100
+++ b/hedgewars/HHHandlers.inc	Thu Jan 13 21:52:48 2011 +0300
@@ -404,7 +404,7 @@
 if Gear^.Timer = 1 then
     begin
     Gear^.State:= Gear^.State or gstNoDamage;
-    doMakeExplosion(hwRound(Gear^.X), hwRound(Gear^.Y), 30, Gear, EXPLAutoSound);
+    doMakeExplosion(hwRound(Gear^.X), hwRound(Gear^.Y), 30, CurrentHedgehog, EXPLAutoSound);
     AddGear(hwRound(Gear^.X), hwRound(Gear^.Y), gtGrave, 0, _0, _0, 0)^.Hedgehog:= Gear^.Hedgehog;
     DeleteGear(Gear);
     SetAllToActive