Just checking this in so prg can try it. May back it out
authornemo
Sun, 18 Oct 2009 06:26:45 +0000 (2009-10-18)
changeset 2538 661079b00177
parent 2537 aceebf0653f7
child 2539 7aee0de9c48a
Just checking this in so prg can try it. May back it out
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;