hedgewars/uGearsHandlersMess.pas
changeset 10993 fd172f166de4
parent 10964 493bd837dc2e
child 11020 2aa09da8f3ef
--- a/hedgewars/uGearsHandlersMess.pas	Thu Jun 11 03:31:33 2015 +0200
+++ b/hedgewars/uGearsHandlersMess.pas	Fri Jun 12 17:28:20 2015 -0400
@@ -1914,7 +1914,9 @@
                        (hwRound(hwSqr(tX) + hwSqr(tY)) < sqr(Gear^.Karma)) then
                         begin
                         Gear^.Hedgehog:= CurrentHedgehog;
+                        tmpG:= FollowGear;
                         doMakeExplosion(hwRound(Gear^.X), hwRound(Gear^.Y), Gear^.Karma, Gear^.Hedgehog, EXPLAutoSound);
+                        FollowGear:= tmpG;
                         DeleteGear(Gear);
                         exit
                         end