equal
deleted
inserted
replaced
6225 DeleteGear(Gear); |
6225 DeleteGear(Gear); |
6226 AfterAttack; |
6226 AfterAttack; |
6227 exit |
6227 exit |
6228 end; |
6228 end; |
6229 updateFuel(Gear); |
6229 updateFuel(Gear); |
|
6230 if WorldWrap(Gear) and (WorldEdge = weWrap) and (Gear^.Target.X = NoPointX) then |
|
6231 // Use FlightTime to count number of times the gear has world-wrapped |
|
6232 inc(Gear^.FlightTime); |
6230 |
6233 |
6231 with Gear^ do |
6234 with Gear^ do |
6232 begin |
6235 begin |
6233 HedgehogChAngle(HHGear); |
6236 HedgehogChAngle(HHGear); |
6234 ndX:= SignAs(AngleSin(HHGear^.Angle), HHGear^.dX) * _4; |
6237 ndX:= SignAs(AngleSin(HHGear^.Angle), HHGear^.dX) * _4; |
6238 (Target.Y and LAND_HEIGHT_MASK = 0) and ((Land[Target.Y, Target.X] = 0)) and |
6241 (Target.Y and LAND_HEIGHT_MASK = 0) and ((Land[Target.Y, Target.X] = 0)) and |
6239 (not CheckCoordInWater(Target.X, Target.Y))) and (CheckGearNear(gtAirMine, int2hwFloat(Target.X),int2hwFloat(Target.Y), Gear^.Radius*3, Gear^.Radius*3) = nil)) then |
6242 (not CheckCoordInWater(Target.X, Target.Y))) and (CheckGearNear(gtAirMine, int2hwFloat(Target.X),int2hwFloat(Target.Y), Gear^.Radius*3, Gear^.Radius*3) = nil)) then |
6240 begin |
6243 begin |
6241 updateTarget(Gear, ndX, ndY); |
6244 updateTarget(Gear, ndX, ndY); |
6242 Timer := iceWaitCollision; |
6245 Timer := iceWaitCollision; |
|
6246 FlightTime := 0; |
6243 end |
6247 end |
6244 else |
6248 else |
6245 begin |
6249 begin |
6246 X:= X + dX; |
6250 X:= X + dX; |
6247 Y:= Y + dY; |
6251 Y:= Y + dY; |