hedgewars/GSHandlers.inc
changeset 2538 661079b00177
parent 2524 0b075d38fee5
child 2558 b1cb0f71b704
--- 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;