hedgewars/GSHandlers.inc
changeset 3462 4b36933dce1d
parent 3461 0781275649e9
child 3468 c7b80bdbc384
--- a/hedgewars/GSHandlers.inc	Fri May 14 23:42:56 2010 +0000
+++ b/hedgewars/GSHandlers.inc	Sat May 15 09:21:25 2010 +0000
@@ -1695,13 +1695,13 @@
         end
         else
         begin
+            gX := hwRound(Gear^.X);
+            gY := hwRound(Gear^.Y);
             // Standard fire
             if (Gear^.State and gsttmpFlag) = 0 then
             begin
                 Gear^.Radius := 9;
                 AmmoShove(Gear, 4, 100);
-                gX := hwRound(Gear^.X);
-                gY := hwRound(Gear^.Y);
                 Gear^.Radius := 1;
                 doMakeExplosion(gX, gY, 4, EXPLNoDamage);
                 if ((GameTicks and $7) = 0) and (Random(2) = 0) then