diff -r a4ab75470ce1 -r d18c67b7ad4c hedgewars/GSHandlers.inc --- a/hedgewars/GSHandlers.inc Fri Nov 21 21:47:51 2008 +0000 +++ b/hedgewars/GSHandlers.inc Sat Nov 22 14:39:14 2008 +0000 @@ -1240,6 +1240,7 @@ //////////////////////////////////////////////////////////////////////////////// procedure doStepAirAttackWork(Gear: PGear); +var i: Longint; begin AllInactive:= false; Gear^.X:= Gear^.X + cAirPlaneSpeed * Gear^.Tag; @@ -1250,6 +1251,8 @@ case Gear^.State of 0: FollowGear:= AddGear(hwRound(Gear^.X), hwRound(Gear^.Y), gtAirBomb, 0, cBombsSpeed * Gear^.Tag, _0, 0); 1: FollowGear:= AddGear(hwRound(Gear^.X), hwRound(Gear^.Y), gtMine, 0, cBombsSpeed * Gear^.Tag, _0, 0); + 2: for i:= -17 to 17 do + FollowGear:= AddGear(hwRound(Gear^.X), hwRound(Gear^.Y), gtFlame, 0, _0_01 * i, _0, 0); end; Gear^.dX:= Gear^.dX + int2hwFloat(30 * Gear^.Tag) end; @@ -1264,8 +1267,11 @@ begin AllInactive:= false; -if Gear^.X.QWordValue = 0 then Gear^.Tag:= 1 - else Gear^.Tag:= -1; +if Gear^.X.QWordValue = 0 then + Gear^.Tag:= 1 +else + Gear^.Tag:= -1; + Gear^.X:= _1024 - _2048 * Gear^.Tag; Gear^.Y:= -_300; Gear^.dX:= int2hwFloat(TargetPoint.X - 5 * Gear^.Tag * 15);