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