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;