equal
deleted
inserted
replaced
6330 with Gear^ do |
6330 with Gear^ do |
6331 begin |
6331 begin |
6332 HedgehogChAngle(HHGear); |
6332 HedgehogChAngle(HHGear); |
6333 ndX:= SignAs(AngleSin(HHGear^.Angle), HHGear^.dX) * _4; |
6333 ndX:= SignAs(AngleSin(HHGear^.Angle), HHGear^.dX) * _4; |
6334 ndY:= -AngleCos(HHGear^.Angle) * _4; |
6334 ndY:= -AngleCos(HHGear^.Angle) * _4; |
6335 if (ndX <> dX) or (ndY <> dY) or |
6335 if (ndX <> dX) or (ndY <> dY) or (Gear^.Message and (gmUp or gmDown) <> 0) or |
6336 (((Target.X <> NoPointX) and (Target.X and LAND_WIDTH_MASK = 0) and |
6336 (((Target.X <> NoPointX) and (Target.X and LAND_WIDTH_MASK = 0) and |
6337 (Target.Y and LAND_HEIGHT_MASK = 0) and ((Land[Target.Y, Target.X] = 0)) and |
6337 (Target.Y and LAND_HEIGHT_MASK = 0) and ((Land[Target.Y, Target.X] = 0)) and |
6338 (not CheckCoordInWater(Target.X, Target.Y))) and (CheckGearNear(gtAirMine, int2hwFloat(Target.X),int2hwFloat(Target.Y), Gear^.Radius*3, Gear^.Radius*3) = nil)) then |
6338 (not CheckCoordInWater(Target.X, Target.Y))) and (CheckGearNear(gtAirMine, int2hwFloat(Target.X),int2hwFloat(Target.Y), Gear^.Radius*3, Gear^.Radius*3) = nil)) then |
6339 begin |
6339 begin |
6340 updateTarget(Gear, ndX, ndY); |
6340 updateTarget(Gear, ndX, ndY); |