# HG changeset patch
# User sheepluva
# Date 1273915285 0
# Node ID 4b36933dce1d6bded029eb3fb18cf36f3ae19624
# Parent  0781275649e92dcbf820c1d1e936ea7dc17cbd10
fix multi-round fire

diff -r 0781275649e9 -r 4b36933dce1d 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