--- 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;