fix multi-round fire
authorsheepluva
Sat, 15 May 2010 09:21:25 +0000
changeset 3462 4b36933dce1d
parent 3461 0781275649e9
child 3463 23c50be687a9
fix multi-round fire
hedgewars/GSHandlers.inc
--- 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