# HG changeset patch
# User nemo
# Date 1255847205 0
# Node ID 661079b001778d85a2a36657855b67605bd55a65
# Parent  aceebf0653f72352a272bb9a3039cf4765e41ed6
Just checking this in so prg can try it. May back it out

diff -r aceebf0653f7 -r 661079b00177 hedgewars/GSHandlers.inc
--- a/hedgewars/GSHandlers.inc	Sun Oct 18 03:54:22 2009 +0000
+++ b/hedgewars/GSHandlers.inc	Sun Oct 18 06:26:45 2009 +0000
@@ -154,6 +154,7 @@
 procedure doStepBomb(Gear: PGear);
 var i: LongInt;
     dX, dY: hwFloat;
+    Fire: PGear;
 begin
 AllInactive:= false;
 
@@ -189,8 +190,10 @@
 					begin
 					dX:= AngleCos(i * 16) * _0_5 * (GetRandom + _1);
 					dY:= AngleSin(i * 16) * _0_5 * (GetRandom + _1);
-					AddGear(hwRound(Gear^.X), hwRound(Gear^.Y), gtFlame, 0, dX, dY, 0);
-					AddGear(hwRound(Gear^.X), hwRound(Gear^.Y), gtFlame, 0, dX, -dY, 0);
+                    Fire:= AddGear(hwRound(Gear^.X), hwRound(Gear^.Y), gtFlame, 0, dX, dY, 0);
+                    if i mod 2 = 0 then Fire^.State:= Fire^.State or gsttmpFlag;
+                    Fire:= AddGear(hwRound(Gear^.X), hwRound(Gear^.Y), gtFlame, 0, dX, -dY, 0);
+                    if i mod 2 <> 0 then Fire^.State:= Fire^.State or gsttmpFlag;
 					end
 				end;
 		end;