mirror of
https://github.com/FlightControl-Master/MOOSE.git
synced 2025-08-15 10:47:21 +00:00
2733 lines
88 KiB
Lua
2733 lines
88 KiB
Lua
--- **OPS** - Air Traffic Control for AI and human players.
|
|
--
|
|
--
|
|
--
|
|
-- **Main Features:**
|
|
--
|
|
-- * Manage aircraft departure and arrival
|
|
-- * Handles AI and human players
|
|
-- * Immersive voice overs via SRS text-to-speech
|
|
--
|
|
-- ===
|
|
--
|
|
-- ### Author: **funkyfranky**
|
|
-- @module OPS.FlightControl
|
|
-- @image OPS_FlightControl.png
|
|
|
|
|
|
--- FLIGHTCONTROL class.
|
|
-- @type FLIGHTCONTROL
|
|
-- @field #string ClassName Name of the class.
|
|
-- @field #boolean Debug Debug mode. Messages to all about status.
|
|
-- @field #string theatre The DCS map used in the mission.
|
|
-- @field #string lid Class id string for output to DCS log file.
|
|
-- @field #string airbasename Name of airbase.
|
|
-- @field #string alias Radio alias, e.g. "Batumi Tower".
|
|
-- @field #number airbasetype Type of airbase.
|
|
-- @field Wrapper.Airbase#AIRBASE airbase Airbase object.
|
|
-- @field Core.Zone#ZONE zoneAirbase Zone around the airbase.
|
|
-- @field #table parking Parking spots table.
|
|
-- @field #table runways Runway table.
|
|
-- @field #table flights All flights table.
|
|
-- @field #table clients Table with all clients spawning at this airbase.
|
|
-- @field Ops.ATIS#ATIS atis ATIS object.
|
|
-- @field #number activerwyno Number of active runway.
|
|
-- @field #number frequency ATC radio frequency in MHz.
|
|
-- @field #number modulation ATC radio modulation, *e.g.* `radio.modulation.AM`.
|
|
-- @field #number Nlanding Max number of aircraft groups in the landing pattern.
|
|
-- @field #number dTlanding Time interval in seconds between landing clearance.
|
|
-- @field #number Nparkingspots Total number of parking spots.
|
|
-- @field Core.Spawn#SPAWN parkingGuard Parking guard spawner.
|
|
-- @field #table holdingpoints Holding points.
|
|
-- @field #number hpcounter Counter for holding zones.
|
|
-- @field Sound.SRS#MSRS msrsTower Moose SRS wrapper.
|
|
-- @field Sound.SRS#MSRS msrsPilot Moose SRS wrapper.
|
|
-- @extends Core.Fsm#FSM
|
|
|
|
--- **Ground Control**: Airliner X, Good news, you are clear to taxi to the active.
|
|
-- **Pilot**: Roger, What's the bad news?
|
|
-- **Ground Control**: No bad news at the moment, but you probably want to get gone before I find any.
|
|
--
|
|
-- ===
|
|
--
|
|
-- # The FLIGHTCONTROL Concept
|
|
--
|
|
-- This class implements an ATC for human and AI controlled aircraft. It gives permission for take-off and landing based on a sophisticated queueing system.
|
|
-- Therefore, it solves (or reduces) a lot of common problems with the DCS implementation (which is barly existing at this point).
|
|
--
|
|
-- ## Prerequisites
|
|
--
|
|
-- * SRS is used for radio communications
|
|
-- *
|
|
--
|
|
-- ## Limitations
|
|
--
|
|
-- Some (DCS) limitations you should be aware of:
|
|
--
|
|
-- * As soon as AI aircraft taxi or land, we completely loose control. All is governed by the internal DCS AI logic.
|
|
-- * We have no control over the active runway or which runway is used by the AI if there are multiple.
|
|
-- * Only one player/client per group as we can create menus only for a group and not for a specific unit.
|
|
-- * Only FLIGHTGROUPS are controlled.
|
|
--
|
|
--
|
|
-- @field #FLIGHTCONTROL
|
|
FLIGHTCONTROL = {
|
|
ClassName = "FLIGHTCONTROL",
|
|
Debug = false,
|
|
lid = nil,
|
|
theatre = nil,
|
|
airbasename = nil,
|
|
airbase = nil,
|
|
airbasetype = nil,
|
|
zoneAirbase = nil,
|
|
parking = {},
|
|
runways = {},
|
|
flights = {},
|
|
clients = {},
|
|
atis = nil,
|
|
activerwyno = 1,
|
|
atcfreq = nil,
|
|
atcradio = nil,
|
|
atcradiounitname = nil,
|
|
Nlanding = nil,
|
|
dTlanding = nil,
|
|
Nparkingspots = nil,
|
|
holdingpoints = {},
|
|
hpcounter = 0,
|
|
}
|
|
|
|
--- Holding point. Contains holding stacks.
|
|
-- @type FLIGHTCONTROL.HoldingPoint
|
|
-- @field Core.Zone#ZONE arrivalzone Zone where aircraft should arrive.
|
|
-- @field #number uid Unique ID.
|
|
-- @field #string name Name of the zone, which is <zonename>-<uid>.
|
|
-- @field Core.Point#COORDINATE pos0 First position of racetrack holding point.
|
|
-- @field Core.Point#COORDINATE pos1 Second position of racetrack holding point.
|
|
-- @field #number angelsmin Smallest holding altitude in angels.
|
|
-- @field #number angelsmax Largest holding alitude in angels.
|
|
-- @field #table stacks Holding stacks.
|
|
|
|
--- Holding stack.
|
|
-- @type FLIGHTCONTROL.HoldingStack
|
|
-- @field Ops.FlightGroup#FLIGHTGROUP flightgroup Flight group of this stack.
|
|
-- @field #number angels Holding altitude in Angels.
|
|
-- @field Core.Point#COORDINATE pos0 First position of racetrack holding point.
|
|
-- @field Core.Point#COORDINATE pos1 Second position of racetrack holding point.
|
|
-- @field #number heading Heading.
|
|
|
|
--- Player menu data.
|
|
-- @type FLIGHTCONTROL.PlayerMenu
|
|
-- @field Core.Menu#MENU_GROUP root Root menu.
|
|
-- @field Core.Menu#MENU_GROUP_COMMAND RequestTaxi Request taxi.
|
|
|
|
--- Parking spot data.
|
|
-- @type FLIGHTCONTROL.ParkingSpot
|
|
-- @field Wrapper.Group#GROUP ParkingGuard Parking guard for this spot.
|
|
-- @extends Wrapper.Airbase#AIRBASE.ParkingSpot
|
|
|
|
--- Flight status.
|
|
-- @type FLIGHTCONTROL.FlightStatus
|
|
-- @field #string INBOUND Flight is inbound.
|
|
-- @field #string HOLDING Flight is holding.
|
|
-- @field #string LANDING Flight is landing.
|
|
-- @field #string TAXIINB Flight is taxiing to parking area.
|
|
-- @field #string ARRIVED Flight arrived at parking spot.
|
|
-- @field #string TAXIOUT Flight is taxiing to runway for takeoff.
|
|
-- @field #string READYTX Flight is ready to taxi.
|
|
-- @field #string READYTO Flight is ready for takeoff.
|
|
-- @field #string TAKEOFF Flight is taking off.
|
|
FLIGHTCONTROL.FlightStatus={
|
|
INBOUND="Inbound",
|
|
HOLDING="Holding",
|
|
LANDING="Landing",
|
|
TAXIINB="Taxi Inbound",
|
|
ARRIVED="Arrived",
|
|
PARKING="Parking",
|
|
TAXIOUT="Taxi to runway",
|
|
READYTX="Ready To Taxi",
|
|
READYTO="Ready For Takeoff",
|
|
TAKEOFF="Takeoff",
|
|
}
|
|
|
|
--- Runway data.
|
|
-- @type FLIGHTCONTROL.Runway
|
|
-- @field #number direction Direction of the runway.
|
|
-- @field #number length Length of runway in meters.
|
|
-- @field #number width Width of runway in meters.
|
|
-- @field Core.Point#COORDINATE position Position of runway start.
|
|
|
|
--- FlightControl class version.
|
|
-- @field #string version
|
|
FLIGHTCONTROL.version="0.5.0"
|
|
|
|
-------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------
|
|
-- TODO list
|
|
--
|
|
|
|
-- TODO: Support airwings. Dont give clearance for Alert5 or if mission has not started.
|
|
-- TODO: Switch to enable/disable AI messages.
|
|
-- TODO: Improve TTS messages.
|
|
-- TODO: Define holding zone.
|
|
-- TODO: Add helos.
|
|
-- TODO: Talk me down option.
|
|
-- TODO: ATIS option.
|
|
-- TODO: ATC voice overs.
|
|
-- TODO: Check runways and clean up.
|
|
-- TODO: Accept and forbit parking spots.
|
|
-- DONE: Add SRS TTS.
|
|
-- DONE: Add parking guard.
|
|
-- NOGO: Add FARPS?
|
|
-- DONE: Interface with FLIGHTGROUP.
|
|
|
|
-------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------
|
|
-- Constructor
|
|
-------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------
|
|
|
|
--- Create a new FLIGHTCONTROL class object for an associated airbase.
|
|
-- @param #FLIGHTCONTROL self
|
|
-- @param #string AirbaseName Name of the airbase.
|
|
-- @param #number Frequency Radio frequency in MHz. Default 143.00 MHz. Can also be given as a `#table` of multiple frequencies.
|
|
-- @param #number Modulation Radio modulation: 0=AM (default), 1=FM. See `radio.modulation.AM` and `radio.modulation.FM` enumerators. Can also be given as a `#table` of multiple modulations.
|
|
-- @param #string PathToSRS Path to the directory, where SRS is located.
|
|
-- @return #FLIGHTCONTROL self
|
|
function FLIGHTCONTROL:New(AirbaseName, Frequency, Modulation, PathToSRS)
|
|
|
|
-- Inherit everything from FSM class.
|
|
local self=BASE:Inherit(self, FSM:New()) -- #FLIGHTCONTROL
|
|
|
|
-- Try to get the airbase.
|
|
self.airbase=AIRBASE:FindByName(AirbaseName)
|
|
|
|
-- Name of the airbase.
|
|
self.airbasename=AirbaseName
|
|
|
|
-- Set some string id for output to DCS.log file.
|
|
self.lid=string.format("FLIGHTCONTROL %s | ", AirbaseName)
|
|
|
|
-- Check if the airbase exists.
|
|
if not self.airbase then
|
|
self:E(string.format("ERROR: Could not find airbase %s!", tostring(AirbaseName)))
|
|
return nil
|
|
end
|
|
-- Check if airbase is an airdrome.
|
|
if self.airbase:GetAirbaseCategory()~=Airbase.Category.AIRDROME then
|
|
self:E(string.format("ERROR: Airbase %s is not an AIRDROME! Script does not handle FARPS or ships.", tostring(AirbaseName)))
|
|
return nil
|
|
end
|
|
|
|
-- Airbase category airdrome, FARP, SHIP.
|
|
self.airbasetype=self.airbase:GetAirbaseCategory()
|
|
|
|
-- Current map.
|
|
self.theatre=env.mission.theatre
|
|
|
|
-- 5 NM zone around the airbase.
|
|
self.zoneAirbase=ZONE_RADIUS:New("FC", self:GetCoordinate():GetVec2(), UTILS.NMToMeters(5))
|
|
|
|
-- Set alias.
|
|
self.alias=self.airbasename.." Tower"
|
|
|
|
-- Defaults:
|
|
self:SetLandingMax()
|
|
self:SetLandingInterval()
|
|
self:SetFrequency(Frequency, Modulation)
|
|
|
|
-- SRS for Tower.
|
|
self.msrsTower=MSRS:New(PathToSRS, Frequency, Modulation)
|
|
self.msrsTower:SetLabel(self.alias)
|
|
|
|
-- SRS for Pilot.
|
|
self.msrsPilot=MSRS:New(PathToSRS, Frequency, Modulation)
|
|
self.msrsPilot:SetGender("male")
|
|
self.msrsPilot:SetCulture("en-US")
|
|
self.msrsPilot:SetLabel("Pilot")
|
|
|
|
-- Init runways.
|
|
self:_InitRunwayData()
|
|
|
|
-- Start State.
|
|
self:SetStartState("Stopped")
|
|
|
|
-- Add FSM transitions.
|
|
-- From State --> Event --> To State
|
|
self:AddTransition("Stopped", "Start", "Running") -- Start FSM.
|
|
self:AddTransition("*", "Status", "*") -- Update status.
|
|
|
|
-- Add to data base.
|
|
_DATABASE:AddFlightControl(self)
|
|
|
|
return self
|
|
end
|
|
|
|
-------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------
|
|
-- User API Functions
|
|
-------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------
|
|
|
|
--- Set the tower frequency.
|
|
-- @param #FLIGHTCONTROL self
|
|
-- @param #number Frequency Frequency in MHz. Default 305 MHz.
|
|
-- @param #number Modulation Modulation `radio.modulation.AM`=0, `radio.modulation.FM`=1. Default `radio.modulation.AM`.
|
|
-- @return #FLIGHTCONTROL self
|
|
function FLIGHTCONTROL:SetFrequency(Frequency, Modulation)
|
|
|
|
self.frequency=Frequency or 305
|
|
self.modulation=Modulation or radio.modulation.AM
|
|
|
|
end
|
|
|
|
|
|
--- Set the number of aircraft groups, that are allowed to land simultaniously.
|
|
-- @param #FLIGHTCONTROL self
|
|
-- @param #number n Max number of aircraft landing simultaniously. Default 2.
|
|
-- @return #FLIGHTCONTROL self
|
|
function FLIGHTCONTROL:SetLandingMax(n)
|
|
|
|
self.Nlanding=n or 2
|
|
|
|
return self
|
|
end
|
|
|
|
--- Set time interval between landing clearance of groups.
|
|
-- @param #FLIGHTCONTROL self
|
|
-- @param #number dt Time interval in seconds. Default 180 sec (3 min).
|
|
-- @return #FLIGHTCONTROL self
|
|
function FLIGHTCONTROL:SetLandingInterval(dt)
|
|
|
|
self.dTlanding=dt or 180
|
|
|
|
return self
|
|
end
|
|
|
|
|
|
--- Set runway. This clears all auto generated runways.
|
|
-- @param #FLIGHTCONTROL self
|
|
-- @param #FLIGHTCONTROL.Runway Runway.
|
|
-- @return #FLIGHTCONTROL self
|
|
function FLIGHTCONTROL:SetRunway(runway)
|
|
|
|
-- Reset table.
|
|
self.runways={}
|
|
|
|
-- Set runway.
|
|
table.insert(self.runways, runway)
|
|
|
|
return self
|
|
end
|
|
|
|
--- Add runway.
|
|
-- @param #FLIGHTCONTROL self
|
|
-- @param #FLIGHTCONTROL.Runway Runway.
|
|
-- @return #FLIGHTCONTROL self
|
|
function FLIGHTCONTROL:AddRunway(runway)
|
|
|
|
-- Set runway.
|
|
table.insert(self.runways, runway)
|
|
|
|
return self
|
|
end
|
|
|
|
--- Set active runway number. Counting refers to the position in the table entry.
|
|
-- @param #FLIGHTCONTROL self
|
|
-- @param #number no Number in the runways table.
|
|
-- @return #FLIGHTCONTROL self
|
|
function FLIGHTCONTROL:SetActiveRunwayNumber(no)
|
|
self.activerwyno=no
|
|
return self
|
|
end
|
|
|
|
--- Add holding zone.
|
|
-- @param #FLIGHTCONTROL self
|
|
-- @param Core.Zone#ZONE ArrivalZone Zone where planes arrive.
|
|
-- @param #number Heading Heading in degrees.
|
|
-- @param #number Length Length in nautical miles. Default 15 NM.
|
|
-- @param #number FlightlevelMin Min flight level.
|
|
-- @param #number FlightlevelMax Max flight level.
|
|
-- @return #FLIGHTCONTROL self
|
|
function FLIGHTCONTROL:AddHoldingPoint(ArrivalZone, Heading, Length, FlightlevelMin, FlightlevelMax)
|
|
|
|
local hp={} --#FLIGHTCONTROL.HoldingPoint
|
|
|
|
hp.arrivalzone=ArrivalZone
|
|
|
|
self.hpcounter=self.hpcounter+1
|
|
|
|
hp.uid=self.hpcounter
|
|
|
|
hp.name=string.format("%s-%d", ArrivalZone:GetName(), hp.uid)
|
|
|
|
hp.pos0=ArrivalZone:GetCoordinate()
|
|
|
|
Length=UTILS.NMToMeters(Length or 15)
|
|
|
|
hp.pos1=hp.pos0:Translate(Length, Heading)
|
|
|
|
hp.pos0:ArrowToAll(hp.pos1, nil, {1,0,0}, 1, {1,1,0}, 0.5, 2, true)
|
|
|
|
hp.angelsmin=FlightlevelMin or 5
|
|
hp.angelsmax=FlightlevelMax or 10
|
|
|
|
hp.stacks={}
|
|
for i=hp.angelsmin, hp.angelsmax do
|
|
local stack={} --#FLIGHTCONTROL.HoldingStack
|
|
stack.angels=i
|
|
stack.flightgroup=nil
|
|
stack.pos0=UTILS.DeepCopy(hp.pos0)
|
|
stack.pos0:SetAltitude(UTILS.FeetToMeters(i*1000))
|
|
stack.pos1=UTILS.DeepCopy(hp.pos1)
|
|
stack.pos1:SetAltitude(UTILS.FeetToMeters(i*1000))
|
|
stack.heading=Heading
|
|
table.insert(hp.stacks, stack)
|
|
end
|
|
|
|
table.insert(self.holdingpoints, hp)
|
|
|
|
ArrivalZone:DrawZone()
|
|
|
|
return self
|
|
end
|
|
|
|
|
|
--- Set the parking guard group. This group is used to block (AI) aircraft from taxiing until they get clearance. It should contain of only one unit, *e.g.* a simple soldier.
|
|
-- @param #FLIGHTCONTROL self
|
|
-- @param #string TemplateGroupName Name of the template group.
|
|
-- @return #FLIGHTCONTROL self
|
|
function FLIGHTCONTROL:SetParkingGuard(TemplateGroupName)
|
|
|
|
local alias=string.format("Parking Guard %s", self.airbasename)
|
|
|
|
-- Need spawn with alias for multiple FCs.
|
|
self.parkingGuard=SPAWN:NewWithAlias(TemplateGroupName, alias)
|
|
|
|
--self.parkingGuard=SPAWNSTATIC:NewFromStatic("Parking Guard"):InitNamePrefix(alias)
|
|
|
|
return self
|
|
end
|
|
|
|
--- Is flight in queue of this flightcontrol.
|
|
-- @param #FLIGHTCONTROL self
|
|
-- @param Ops.FlightGroup#FLIGHTGROUP Flight Flight group.
|
|
-- @return #boolean If `true`, flight is in queue.
|
|
function FLIGHTCONTROL:IsFlight(Flight)
|
|
|
|
for _,_flight in pairs(self.flights) do
|
|
local flight=_flight --Ops.FlightGroup#FLIGHTGROUP
|
|
if flight.groupname==Flight.groupname then
|
|
return true
|
|
end
|
|
end
|
|
|
|
return false
|
|
end
|
|
|
|
-------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------
|
|
-- Status
|
|
-------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------
|
|
|
|
--- Start FLIGHTCONTROL FSM. Handle events.
|
|
-- @param #FLIGHTCONTROL self
|
|
function FLIGHTCONTROL:onafterStart()
|
|
|
|
-- Events are handled my MOOSE.
|
|
self:I(self.lid..string.format("Starting FLIGHTCONTROL v%s for airbase %s of type %d on map %s", FLIGHTCONTROL.version, self.airbasename, self.airbasetype, self.theatre))
|
|
|
|
-- Init parking spots.
|
|
self:_InitParkingSpots()
|
|
|
|
-- Handle events.
|
|
self:HandleEvent(EVENTS.Birth)
|
|
self:HandleEvent(EVENTS.EngineStartup)
|
|
self:HandleEvent(EVENTS.Takeoff)
|
|
self:HandleEvent(EVENTS.Land)
|
|
self:HandleEvent(EVENTS.EngineShutdown)
|
|
self:HandleEvent(EVENTS.Crash)
|
|
|
|
-- Init status updates.
|
|
self:__Status(-1)
|
|
end
|
|
|
|
--- Update status.
|
|
-- @param #FLIGHTCONTROL self
|
|
function FLIGHTCONTROL:onafterStatus()
|
|
|
|
-- Check status of all registered flights.
|
|
self:_CheckFlights()
|
|
|
|
-- Check parking spots.
|
|
--self:_CheckParking()
|
|
|
|
-- Check waiting and landing queue.
|
|
self:_CheckQueues()
|
|
|
|
-- Get runway.
|
|
local runway=self:GetActiveRunway()
|
|
|
|
local Nflights= self:CountFlights()
|
|
local NQparking=self:CountFlights(FLIGHTCONTROL.FlightStatus.PARKING)
|
|
local NQreadytx=self:CountFlights(FLIGHTCONTROL.FlightStatus.READYTX)
|
|
local NQtaxiout=self:CountFlights(FLIGHTCONTROL.FlightStatus.TAXIOUT)
|
|
local NQreadyto=self:CountFlights(FLIGHTCONTROL.FlightStatus.READYTO)
|
|
local NQtakeoff=self:CountFlights(FLIGHTCONTROL.FlightStatus.TAKEOFF)
|
|
local NQinbound=self:CountFlights(FLIGHTCONTROL.FlightStatus.INBOUND)
|
|
local NQholding=self:CountFlights(FLIGHTCONTROL.FlightStatus.HOLDING)
|
|
local NQlanding=self:CountFlights(FLIGHTCONTROL.FlightStatus.LANDING)
|
|
local NQtaxiinb=self:CountFlights(FLIGHTCONTROL.FlightStatus.TAXIINB)
|
|
local NQarrived=self:CountFlights(FLIGHTCONTROL.FlightStatus.ARRIVED)
|
|
-- =========================================================================================================
|
|
local Nqueues = (NQparking+NQreadytx+NQtaxiout+NQreadyto+NQtakeoff) + (NQinbound+NQholding+NQlanding+NQtaxiinb+NQarrived)
|
|
|
|
-- Count free parking spots.
|
|
--TODO: get and substract number of reserved parking spots.
|
|
local nfree=self.Nparkingspots-NQarrived-NQparking
|
|
|
|
local Nfree=self:CountParking(AIRBASE.SpotStatus.FREE)
|
|
local Noccu=self:CountParking(AIRBASE.SpotStatus.OCCUPIED)
|
|
local Nresv=self:CountParking(AIRBASE.SpotStatus.RESERVED)
|
|
|
|
if Nfree+Noccu+Nresv~=self.Nparkingspots then
|
|
self:E(self.lid..string.format("WARNING: Number of parking spots does not match! Nfree=%d, Noccu=%d, Nreserved=%d != %d total", Nfree, Noccu, Nresv, self.Nparkingspots))
|
|
end
|
|
|
|
-- Info text.
|
|
local text=string.format("State %s - Runway %s - Parking F=%d/O=%d/R=%d of %d - Flights=%s: Qpark=%d Qtxout=%d Qready=%d Qto=%d | Qinbound=%d Qhold=%d Qland=%d Qtxinb=%d Qarr=%d",
|
|
self:GetState(), runway.idx, Nfree, Noccu, Nresv, self.Nparkingspots, Nflights, NQparking, NQtaxiout, NQreadyto, NQtakeoff, NQinbound, NQholding, NQlanding, NQtaxiinb, NQarrived)
|
|
self:I(self.lid..text)
|
|
|
|
if Nflights==Nqueues then
|
|
--Check!
|
|
else
|
|
self:E(string.format("WARNING: Number of total flights %d!=%d number of flights in all queues!", Nflights, Nqueues))
|
|
end
|
|
|
|
-- Next status update in ~30 seconds.
|
|
self:__Status(-30)
|
|
end
|
|
|
|
--- Start FLIGHTCONTROL FSM. Handle events.
|
|
-- @param #FLIGHTCONTROL self
|
|
function FLIGHTCONTROL:onafterStop()
|
|
|
|
-- Handle events.
|
|
self:HandleEvent(EVENTS.Birth)
|
|
self:HandleEvent(EVENTS.EngineStartup)
|
|
self:HandleEvent(EVENTS.Takeoff)
|
|
self:HandleEvent(EVENTS.Land)
|
|
self:HandleEvent(EVENTS.EngineShutdown)
|
|
self:HandleEvent(EVENTS.Crash)
|
|
|
|
self.atcradio:Stop()
|
|
end
|
|
|
|
-------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------
|
|
-- Event Functions
|
|
-------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------
|
|
|
|
--- Event handler for event birth.
|
|
-- @param #FLIGHTCONTROL self
|
|
-- @param Core.Event#EVENTDATA EventData
|
|
function FLIGHTCONTROL:OnEventBirth(EventData)
|
|
self:F3({EvendData=EventData})
|
|
|
|
if EventData and EventData.IniGroupName and EventData.IniUnit then
|
|
|
|
self:I(self.lid..string.format("BIRTH: unit = %s", tostring(EventData.IniUnitName)))
|
|
self:T2(self.lid..string.format("BIRTH: group = %s", tostring(EventData.IniGroupName)))
|
|
|
|
-- Unit that was born.
|
|
local unit=EventData.IniUnit
|
|
|
|
-- We delay this, to have all elements of the group in the game.
|
|
if unit:IsAir() then
|
|
|
|
local bornhere=EventData.Place and EventData.Place:GetName()==self.airbasename or false
|
|
env.info("FF born here ".. tostring(bornhere))
|
|
|
|
-- We got a player?
|
|
local playerunit, playername=self:_GetPlayerUnitAndName(EventData.IniUnitName)
|
|
|
|
if playername or bornhere then
|
|
|
|
-- Create player menu.
|
|
self:ScheduleOnce(0.5, self._CreateFlightGroup, self, EventData.IniGroup)
|
|
|
|
end
|
|
|
|
-- Spawn parking guard.
|
|
if bornhere then
|
|
self:SpawnParkingGuard(unit)
|
|
end
|
|
|
|
end
|
|
|
|
end
|
|
|
|
end
|
|
|
|
--- Event handler for event land.
|
|
-- @param #FLIGHTCONTROL self
|
|
-- @param Core.Event#EVENTDATA EventData
|
|
function FLIGHTCONTROL:OnEventLand(EventData)
|
|
self:F3({EvendData=EventData})
|
|
|
|
self:T2(self.lid..string.format("LAND: unit = %s", tostring(EventData.IniUnitName)))
|
|
self:T2(self.lid..string.format("LAND: group = %s", tostring(EventData.IniGroupName)))
|
|
|
|
end
|
|
|
|
--- Event handler for event takeoff.
|
|
-- @param #FLIGHTCONTROL self
|
|
-- @param Core.Event#EVENTDATA EventData
|
|
function FLIGHTCONTROL:OnEventTakeoff(EventData)
|
|
self:F3({EvendData=EventData})
|
|
|
|
self:T2(self.lid..string.format("TAKEOFF: unit = %s", tostring(EventData.IniUnitName)))
|
|
self:T2(self.lid..string.format("TAKEOFF: group = %s", tostring(EventData.IniGroupName)))
|
|
|
|
-- This would be the closest airbase.
|
|
local airbase=EventData.Place
|
|
|
|
-- Unit that took off.
|
|
local unit=EventData.IniUnit
|
|
|
|
-- Nil check for airbase. Crashed as player gave me no airbase.
|
|
if not (airbase or unit) then
|
|
self:E(self.lid.."WARNING: Airbase or IniUnit is nil in takeoff event!")
|
|
return
|
|
end
|
|
|
|
end
|
|
|
|
--- Event handler for event engine startup.
|
|
-- @param #FLIGHTCONTROL self
|
|
-- @param Core.Event#EVENTDATA EventData
|
|
function FLIGHTCONTROL:OnEventEngineStartup(EventData)
|
|
self:F3({EvendData=EventData})
|
|
|
|
self:I(self.lid..string.format("ENGINESTARTUP: unit = %s", tostring(EventData.IniUnitName)))
|
|
self:T2(self.lid..string.format("ENGINESTARTUP: group = %s", tostring(EventData.IniGroupName)))
|
|
|
|
-- Unit that took off.
|
|
local unit=EventData.IniUnit
|
|
|
|
-- Nil check for unit.
|
|
if not unit then
|
|
return
|
|
end
|
|
|
|
end
|
|
|
|
--- Event handler for event engine shutdown.
|
|
-- @param #FLIGHTCONTROL self
|
|
-- @param Core.Event#EVENTDATA EventData
|
|
function FLIGHTCONTROL:OnEventEngineShutdown(EventData)
|
|
self:F3({EvendData=EventData})
|
|
|
|
self:I(self.lid..string.format("ENGINESHUTDOWN: unit = %s", tostring(EventData.IniUnitName)))
|
|
self:T2(self.lid..string.format("ENGINESHUTDOWN: group = %s", tostring(EventData.IniGroupName)))
|
|
|
|
-- Unit that took off.
|
|
local unit=EventData.IniUnit
|
|
|
|
-- Nil check for unit.
|
|
if not unit then
|
|
return
|
|
end
|
|
|
|
end
|
|
|
|
--- Event handler for event crash.
|
|
-- @param #FLIGHTCONTROL self
|
|
-- @param Core.Event#EVENTDATA EventData
|
|
function FLIGHTCONTROL:OnEventCrash(EventData)
|
|
self:F3({EvendData=EventData})
|
|
|
|
self:T2(self.lid..string.format("CRASH: unit = %s", tostring(EventData.IniUnitName)))
|
|
self:T2(self.lid..string.format("CRASH: group = %s", tostring(EventData.IniGroupName)))
|
|
|
|
end
|
|
|
|
-------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------
|
|
-- Queue Functions
|
|
-------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------
|
|
|
|
--- Check takeoff and landing queues.
|
|
-- @param #FLIGHTCONTROL self
|
|
function FLIGHTCONTROL:_CheckQueues()
|
|
|
|
-- Print queue.
|
|
if true then
|
|
self:_PrintQueue(self.flights, "All flights")
|
|
end
|
|
|
|
-- Number of holding groups.
|
|
local nholding=self:CountFlights(FLIGHTCONTROL.FlightStatus.HOLDING)
|
|
|
|
-- Number of groups landing.
|
|
local nlanding=self:CountFlights(FLIGHTCONTROL.FlightStatus.LANDING)
|
|
|
|
-- Number of parking groups.
|
|
local nparking=self:CountFlights(FLIGHTCONTROL.FlightStatus.PARKING)
|
|
|
|
-- Number of groups taking off.
|
|
local ntakeoff=self:CountFlights(FLIGHTCONTROL.FlightStatus.TAKEOFF)
|
|
|
|
|
|
-- Get next flight in line: either holding or parking.
|
|
local flight, isholding, parking=self:_GetNextFlight()
|
|
|
|
|
|
-- Check if somebody wants something.
|
|
if flight then
|
|
|
|
if isholding then
|
|
|
|
--------------------
|
|
-- Holding flight --
|
|
--------------------
|
|
|
|
env.info("FF next flight holding")
|
|
|
|
-- No other flight is taking off and number of landing flights is below threshold.
|
|
if ntakeoff==0 and nlanding<self.Nlanding then
|
|
|
|
-- Get interval to last flight that got landing clearance.
|
|
local dTlanding=99999
|
|
if self.Tlanding then
|
|
dTlanding=timer.getAbsTime()-self.Tlanding
|
|
end
|
|
|
|
if parking and dTlanding>=self.dTlanding then
|
|
|
|
-- Get callsign.
|
|
local callsign=flight:GetCallsignName()
|
|
|
|
-- Message.
|
|
local text=string.format("%s, %s, you are cleared to land.", callsign, self.alias)
|
|
|
|
-- Transmit message.
|
|
self:TransmissionTower(text, flight)
|
|
|
|
-- Give AI the landing signal.
|
|
if flight.isAI then
|
|
--TODO: transmit confirmation of AI
|
|
self:_LandAI(flight, parking)
|
|
else
|
|
-- TODO: Humans have to confirm via F10 menu.
|
|
end
|
|
|
|
-- Set time last flight got landing clearance.
|
|
self.Tlanding=timer.getAbsTime()
|
|
|
|
end
|
|
else
|
|
self:I(self.lid..string.format("FYI: Landing clearance for flight %s denied as other flights are taking off (N=%d) or max. landing reached (N=%d/%d).", flight.groupname, ntakeoff, nlanding, self.Nlanding))
|
|
end
|
|
|
|
else
|
|
|
|
--------------------
|
|
-- Takeoff flight --
|
|
--------------------
|
|
|
|
-- No other flight is taking off or landing.
|
|
if ntakeoff==0 and nlanding==0 then
|
|
|
|
-- Get callsign.
|
|
local callsign=flight:GetCallsignName()
|
|
|
|
-- Runway.
|
|
local runway=self:GetActiveRunwayText()
|
|
|
|
-- Message.
|
|
local text=string.format("%s, %s, taxi to holding point, runway %s", callsign, self.alias, runway)
|
|
|
|
if self:GetFlightStatus(flight)==FLIGHTCONTROL.FlightStatus.READYTO then
|
|
text=string.format("%s, %s, cleared for take-off, runway %s, hold short", callsign, self.alias, runway)
|
|
end
|
|
|
|
-- Transmit message.
|
|
self:TransmissionTower(text, flight)
|
|
|
|
-- Check if flight is AI. Humans have to request taxi via F10 menu.
|
|
if flight.isAI then
|
|
|
|
---
|
|
-- AI
|
|
---
|
|
|
|
--TODO: AI answer.
|
|
|
|
-- Start uncontrolled aircraft.
|
|
if flight:IsUncontrolled() then
|
|
flight:StartUncontrolled()
|
|
end
|
|
|
|
-- Remove parking guards.
|
|
for _,_element in pairs(flight.elements) do
|
|
local element=_element --Ops.FlightGroup#FLIGHTGROUP.Element
|
|
if element and element.parking then
|
|
local spot=self:GetParkingSpotByID(element.parking.TerminalID)
|
|
self:RemoveParkingGuard(spot)
|
|
end
|
|
end
|
|
|
|
-- Set flight to takeoff. No way we can stop the AI now.
|
|
self:SetFlightStatus(flight, FLIGHTCONTROL.FlightStatus.TAKEOFF)
|
|
|
|
else
|
|
|
|
---
|
|
-- PLAYER
|
|
---
|
|
|
|
if self:GetFlightStatus(flight)==FLIGHTCONTROL.FlightStatus.READYTO then
|
|
|
|
-- Player is ready for takeoff
|
|
self:SetFlightStatus(flight, FLIGHTCONTROL.FlightStatus.TAKEOFF)
|
|
|
|
else
|
|
|
|
-- Remove parking guards.
|
|
for _,_element in pairs(flight.elements) do
|
|
local element=_element --Ops.FlightGroup#FLIGHTGROUP.Element
|
|
if element.parking then
|
|
local spot=self:GetParkingSpotByID(element.parking.TerminalID)
|
|
if element.ai then
|
|
self:RemoveParkingGuard(spot, 35)
|
|
else
|
|
self:RemoveParkingGuard(spot, 10)
|
|
end
|
|
end
|
|
end
|
|
|
|
end
|
|
|
|
end
|
|
|
|
else
|
|
-- Debug message.
|
|
self:I(self.lid..string.format("FYI: Take off for flight %s denied as other flights are taking off (N=%d) or landing (N=%d).", flight.groupname, ntakeoff, nlanding))
|
|
end
|
|
end
|
|
else
|
|
-- Debug message.
|
|
self:I(self.lid..string.format("FYI: No flight in queue for takeoff or landing."))
|
|
end
|
|
|
|
end
|
|
|
|
--- Get next flight in line, either waiting for landing or waiting for takeoff.
|
|
-- @param #FLIGHTCONTROL self
|
|
-- @return Ops.FlightGroup#FLIGHTGROUP Flight next in line and ready to enter the pattern. Or nil if no flight is ready.
|
|
-- @return #boolean If true, flight is holding and waiting for landing, if false, flight is parking and waiting for takeoff.
|
|
-- @return #table Parking data for holding flights or nil.
|
|
function FLIGHTCONTROL:_GetNextFlight()
|
|
|
|
local flightholding=self:_GetNextFightHolding()
|
|
local flightparking=self:_GetNextFightParking()
|
|
|
|
-- If no flight is waiting for landing just return the takeoff flight or nil.
|
|
if not flightholding then
|
|
self:T(self.lid..string.format("Next flight that is not holding"))
|
|
return flightparking, false, nil
|
|
end
|
|
|
|
-- Get number of alive elements of the holding flight.
|
|
local nH=flightholding:GetNelements()
|
|
|
|
-- Free parking spots.
|
|
local parking=flightholding:GetParking(self.airbase)
|
|
|
|
-- If no flight is waiting for takeoff return the holding flight or nil.
|
|
if not flightparking then
|
|
if parking then
|
|
return flightholding, true, parking
|
|
else
|
|
self:E(self.lid..string.format("WARNING: No flight parking but no parking spots! nP=%d nH=%d", #parking, nH))
|
|
return nil, nil, nil
|
|
end
|
|
end
|
|
|
|
-- We got flights waiting for landing and for takeoff.
|
|
if flightholding and flightparking then
|
|
|
|
-- Return holding flight if fuel is low.
|
|
if flightholding.fuellow then
|
|
if parking then
|
|
-- Enough parking ==> land
|
|
return flightholding, true, parking
|
|
else
|
|
-- Not enough parking ==> take off
|
|
return flightparking, false, nil
|
|
end
|
|
end
|
|
|
|
-- Return the flight which is waiting longer. NOTE that Tholding and Tparking are abs. mission time. So a smaller value means waiting longer.
|
|
if flightholding.Tholding<flightparking.Tparking and parking then
|
|
return flightholding, true, parking
|
|
else
|
|
return flightparking, false, nil
|
|
end
|
|
|
|
end
|
|
|
|
return nil, nil, nil
|
|
end
|
|
|
|
|
|
--- Get next flight waiting for landing clearance.
|
|
-- @param #FLIGHTCONTROL self
|
|
-- @return Ops.FlightGroup#FLIGHTGROUP Marshal flight next in line and ready to enter the pattern. Or nil if no flight is ready.
|
|
function FLIGHTCONTROL:_GetNextFightHolding()
|
|
|
|
local Qholding=self:GetFlights(FLIGHTCONTROL.FlightStatus.HOLDING)
|
|
|
|
if #Qholding==0 then
|
|
return nil
|
|
elseif #Qholding==1 then
|
|
return Qholding[1]
|
|
end
|
|
|
|
-- Sort flights by low fuel.
|
|
local function _sortByFuel(a, b)
|
|
local flightA=a --Ops.FlightGroup#FLIGHTGROUP
|
|
local flightB=b --Ops.FlightGroup#FLIGHTGROUP
|
|
local fuelA=flightA.group:GetFuelMin()
|
|
local fuelB=flightB.group:GetFuelMin()
|
|
return fuelA<fuelB
|
|
end
|
|
|
|
-- Sort flights by holding time.
|
|
local function _sortByTholding(a, b)
|
|
local flightA=a --Ops.FlightGroup#FLIGHTGROUP
|
|
local flightB=b --Ops.FlightGroup#FLIGHTGROUP
|
|
return flightA.Tholding<flightB.Tholding -- Tholding is the abs. timestamp. So the one with the smallest time is holding the longest.
|
|
end
|
|
|
|
|
|
-- Sort flights by fuel.
|
|
table.sort(Qholding, _sortByFuel)
|
|
|
|
-- Loop over all holding flights.
|
|
for _,_flight in pairs(Qholding) do
|
|
local flight=_flight --Ops.FlightGroup#FLIGHTGROUP
|
|
|
|
-- Return flight that is lowest on fuel.
|
|
if flight.fuellow then
|
|
return flight
|
|
end
|
|
|
|
end
|
|
|
|
|
|
-- Return flight waiting longest.
|
|
table.sort(Qholding, _sortByTholding)
|
|
|
|
return Qholding[1]
|
|
end
|
|
|
|
|
|
--- Get next flight waiting for taxi and takeoff clearance.
|
|
-- @param #FLIGHTCONTROL self
|
|
-- @return Ops.FlightGroup#FLIGHTGROUP Marshal flight next in line and ready to enter the pattern. Or nil if no flight is ready.
|
|
function FLIGHTCONTROL:_GetNextFightParking()
|
|
|
|
-- Get flights ready for take off.
|
|
local QreadyTO=self:GetFlights(FLIGHTCONTROL.FlightStatus.READYTO, OPSGROUP.GroupStatus.TAXIING)
|
|
|
|
-- First check human players.
|
|
if #QreadyTO>0 then
|
|
-- First come, first serve.
|
|
return QreadyTO[1]
|
|
end
|
|
|
|
-- Get flights ready to taxi.
|
|
local QreadyTX=self:GetFlights(FLIGHTCONTROL.FlightStatus.READYTX, OPSGROUP.GroupStatus.PARKING)
|
|
|
|
-- First check human players.
|
|
if #QreadyTX>0 then
|
|
-- First come, first serve.
|
|
return QreadyTX[1]
|
|
end
|
|
|
|
-- Get AI flights parking.
|
|
local Qparking=self:GetFlights(FLIGHTCONTROL.FlightStatus.PARKING, nil, true)
|
|
|
|
local Nparking=#Qparking
|
|
|
|
-- Check special cases where only up to one flight is waiting for takeoff.
|
|
if Nparking==0 then
|
|
return nil
|
|
elseif Nparking==1 then
|
|
return Qparking[1]
|
|
end
|
|
|
|
-- Sort flights parking time.
|
|
local function _sortByTparking(a, b)
|
|
local flightA=a --Ops.FlightGroup#FLIGHTGROUP
|
|
local flightB=b --Ops.FlightGroup#FLIGHTGROUP
|
|
return flightA.Tparking<flightB.Tparking -- Tholding is the abs. timestamp. So the one with the smallest time is holding the longest.
|
|
end
|
|
|
|
-- Return flight waiting longest.
|
|
table.sort(Qparking, _sortByTparking)
|
|
|
|
-- Debug.
|
|
local text="Parking flights:"
|
|
for i,_flight in pairs(Qparking) do
|
|
local flight=_flight --Ops.FlightGroup#FLIGHTGROUP
|
|
text=text..string.format("\n[%d] %s %.1f", i, flight.groupname, flight.Tparking)
|
|
end
|
|
self:I(self.lid..text)
|
|
|
|
-- Get the first AI flight.
|
|
for i,_flight in pairs(Qparking) do
|
|
local flight=_flight --Ops.FlightGroup#FLIGHTGROUP
|
|
if flight.isAI then
|
|
return flight
|
|
end
|
|
end
|
|
|
|
return nil
|
|
end
|
|
|
|
--- Print queue.
|
|
-- @param #FLIGHTCONTROL self
|
|
-- @param #table queue Queue to print.
|
|
-- @param #string name Queue name.
|
|
-- @return #string Queue text.
|
|
function FLIGHTCONTROL:_PrintQueue(queue, name)
|
|
|
|
local text=string.format("%s Queue N=%d:", name, #queue)
|
|
if #queue==0 then
|
|
-- Queue is empty.
|
|
text=text.." empty."
|
|
else
|
|
|
|
local time=timer.getAbsTime()
|
|
|
|
-- Loop over all flights in queue.
|
|
for i,_flight in ipairs(queue) do
|
|
local flight=_flight --Ops.FlightGroup#FLIGHTGROUP
|
|
|
|
-- Gather info.
|
|
local fuel=flight.group:GetFuelMin()*100
|
|
local ai=tostring(flight.isAI)
|
|
local actype=tostring(flight.actype)
|
|
|
|
-- Holding and parking time.
|
|
local holding=flight.Tholding and UTILS.SecondsToClock(time-flight.Tholding, true) or "X"
|
|
local parking=flight.Tparking and UTILS.SecondsToClock(time-flight.Tparking, true) or "X"
|
|
|
|
local holding=flight:GetHoldingTime()
|
|
if holding>=0 then
|
|
holding=UTILS.SecondsToClock(holding, true)
|
|
else
|
|
holding="X"
|
|
end
|
|
local parking=flight:GetParkingTime()
|
|
if parking>=0 then
|
|
parking=UTILS.SecondsToClock(parking, true)
|
|
else
|
|
parking="X"
|
|
end
|
|
|
|
|
|
local nunits=flight.nunits or 1
|
|
|
|
-- Main info.
|
|
text=text..string.format("\n[%d] %s (%s*%d): status=%s, ai=%s, fuel=%d, holding=%s, parking=%s",
|
|
i, flight.groupname, actype, nunits, flight:GetState(), ai, fuel, holding, parking)
|
|
|
|
-- Elements info.
|
|
for j,_element in pairs(flight.elements) do
|
|
local element=_element --Ops.FlightGroup#FLIGHTGROUP.Element
|
|
local life=element.unit:GetLife()
|
|
local life0=element.unit:GetLife0()
|
|
local park=element.parking and tostring(element.parking.TerminalID) or "N/A"
|
|
text=text..string.format("\n (%d) %s (%s): status=%s, ai=%s, airborne=%s life=%d/%d spot=%s",
|
|
j, tostring(element.modex), element.name, tostring(element.status), tostring(element.ai), tostring(element.unit:InAir()), life, life0, park)
|
|
end
|
|
end
|
|
end
|
|
|
|
-- Display text.
|
|
self:I(self.lid..text)
|
|
|
|
return text
|
|
end
|
|
|
|
--- Remove a flight group from a queue.
|
|
-- @param #FLIGHTCONTROL self
|
|
-- @param #table queue The queue from which the group will be removed.
|
|
-- @param Ops.FlightGroup#FLIGHTGROUP flight Flight group that will be removed from queue.
|
|
-- @param #string queuename Name of the queue.
|
|
-- @return #boolean True, flight was in Queue and removed. False otherwise.
|
|
-- @return #number Table index of removed queue element or nil.
|
|
function FLIGHTCONTROL:_RemoveFlightFromQueue(queue, flight, queuename)
|
|
|
|
queuename=queuename or "unknown"
|
|
|
|
-- Loop over all flights in group.
|
|
for i,_flight in pairs(queue) do
|
|
local qflight=_flight --Ops.FlightGroup#FLIGHTGROUP
|
|
|
|
-- Check for name.
|
|
if qflight.groupname==flight.groupname then
|
|
self:I(self.lid..string.format("Removing flight group %s from %s queue.", flight.groupname, queuename))
|
|
table.remove(queue, i)
|
|
|
|
if not flight.isAI then
|
|
flight:_UpdateMenu()
|
|
end
|
|
|
|
return true, i
|
|
end
|
|
end
|
|
|
|
self:I(self.lid..string.format("Could NOT remove flight group %s from %s queue.", flight.groupname, queuename))
|
|
return false, nil
|
|
end
|
|
|
|
|
|
--- Set flight status.
|
|
-- @param #FLIGHTCONTROL self
|
|
-- @param Ops.FlightGroup#FLIGHTGROUP flight Flight group.
|
|
-- @param #string status New status.
|
|
function FLIGHTCONTROL:SetFlightStatus(flight, status)
|
|
|
|
-- Debug message.
|
|
self:T(self.lid..string.format("New status %s-->%s for flight %s", flight.controlstatus or "unknown", status, flight:GetName()))
|
|
|
|
-- Set new status
|
|
flight.controlstatus=status
|
|
|
|
end
|
|
|
|
--- Get flight status.
|
|
-- @param #FLIGHTCONTROL self
|
|
-- @param Ops.FlightGroup#FLIGHTGROUP flight Flight group.
|
|
-- @return #string Flight status
|
|
function FLIGHTCONTROL:GetFlightStatus(flight)
|
|
|
|
if flight then
|
|
return flight.controlstatus or "unkonwn"
|
|
end
|
|
|
|
return "unknown"
|
|
end
|
|
|
|
--- Check if FC has control over this flight.
|
|
-- @param #FLIGHTCONTROL self
|
|
-- @param Ops.FlightGroup#FLIGHTGROUP flight Flight group.
|
|
-- @return #boolean
|
|
function FLIGHTCONTROL:IsControlling(flight)
|
|
|
|
return flight.flightcontrol and flight.flightcontrol.airbasename==self.airbasename or false
|
|
|
|
end
|
|
|
|
--- Check if a group is in a queue.
|
|
-- @param #FLIGHTCONTROL self
|
|
-- @param #table queue The queue to check.
|
|
-- @param Wrapper.Group#GROUP group The group to be checked.
|
|
-- @return #boolean If true, group is in the queue. False otherwise.
|
|
function FLIGHTCONTROL:_InQueue(queue, group)
|
|
local name=group:GetName()
|
|
|
|
for _,_flight in pairs(queue) do
|
|
local flight=_flight --Ops.FlightGroup#FLIGHTGROUP
|
|
if name==flight.groupname then
|
|
return true
|
|
end
|
|
end
|
|
|
|
return false
|
|
end
|
|
|
|
--- Get flights.
|
|
-- @param #FLIGHTCONTROL self
|
|
-- @param #string Status Return only flights in this flightcontrol status, e.g. `FLIGHTCONTROL.Status.XXX`.
|
|
-- @param #string GroupStatus Return only flights in this FSM status, e.g. `OPSGROUP.GroupStatus.TAXIING`.
|
|
-- @param #boolean AI If `true` only AI flights are returned. If `false`, only flights with clients are returned. If `nil` (default), all flights are returned.
|
|
-- @return #table Table of flights.
|
|
function FLIGHTCONTROL:GetFlights(Status, GroupStatus, AI)
|
|
|
|
if Status~=nil or GroupStatus~=nil or AI~=nil then
|
|
|
|
local flights={}
|
|
|
|
for _,_flight in pairs(self.flights) do
|
|
local flight=_flight --Ops.FlightGroup#FLIGHTGROUP
|
|
|
|
local status=self:GetFlightStatus(flight, Status)
|
|
|
|
if status==Status then
|
|
if AI==nil or AI==flight.isAI then
|
|
if GroupStatus==nil or GroupStatus==flight:GetState() then
|
|
table.insert(flights, flight)
|
|
end
|
|
end
|
|
end
|
|
|
|
end
|
|
|
|
return flights
|
|
else
|
|
return self.flights
|
|
end
|
|
|
|
end
|
|
|
|
--- Count flights in a given status.
|
|
-- @param #FLIGHTCONTROL self
|
|
-- @param #string Status Return only flights in this status.
|
|
-- @param #string GroupStatus Count only flights in this FSM status, e.g. `OPSGROUP.GroupStatus.TAXIING`.
|
|
-- @param #boolean AI If `true` only AI flights are counted. If `false`, only flights with clients are counted. If `nil` (default), all flights are counted.
|
|
-- @return #number Number of flights.
|
|
function FLIGHTCONTROL:CountFlights(Status, GroupStatus, AI)
|
|
|
|
if Status~=nil or GroupStatus~=nil or AI~=nil then
|
|
|
|
local flights=self:GetFlights(Status, GroupStatus, AI)
|
|
|
|
return #flights
|
|
|
|
else
|
|
return #self.flights
|
|
end
|
|
|
|
end
|
|
|
|
-------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------
|
|
-- Runway Functions
|
|
-------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------
|
|
|
|
--- Initialize data of runways.
|
|
-- @param #FLIGHTCONTROL self
|
|
function FLIGHTCONTROL:_InitRunwayData()
|
|
self.runways=self.airbase:GetRunwayData()
|
|
end
|
|
|
|
--- Get the active runway based on current wind direction.
|
|
-- @param #FLIGHTCONTROL self
|
|
-- @return Wrapper.Airbase#AIRBASE.Runway Active runway.
|
|
function FLIGHTCONTROL:GetActiveRunway()
|
|
return self.airbase:GetActiveRunway()
|
|
end
|
|
|
|
--- Get the active runway based on current wind direction.
|
|
-- @param #FLIGHTCONTROL self
|
|
-- @return #string Runway text, e.g. "31L" or "09".
|
|
function FLIGHTCONTROL:GetActiveRunwayText()
|
|
local rwy=""
|
|
local rwyL
|
|
if self.atis then
|
|
rwy, rwyL=self.atis:GetActiveRunway()
|
|
if rwyL==true then
|
|
rwy=rwy.."L"
|
|
elseif rwyL==false then
|
|
rwy=rwy.."R"
|
|
end
|
|
else
|
|
rwy=self.airbase:GetActiveRunway().idx
|
|
end
|
|
return rwy
|
|
end
|
|
|
|
-------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------
|
|
-- Parking Functions
|
|
-------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------
|
|
|
|
--- Init parking spots.
|
|
-- @param #FLIGHTCONTROL self
|
|
function FLIGHTCONTROL:_InitParkingSpots()
|
|
|
|
-- Parking spots of airbase.
|
|
local parkingdata=self.airbase:GetParkingSpotsTable()
|
|
|
|
-- Init parking spots table.
|
|
self.parking={}
|
|
|
|
self.Nparkingspots=0
|
|
for _,_spot in pairs(parkingdata) do
|
|
local spot=_spot --Wrapper.Airbase#AIRBASE.ParkingSpot
|
|
|
|
|
|
-- Mark position.
|
|
local text=string.format("Parking ID=%d, Terminal=%d: Free=%s, Client=%s, Dist=%.1f", spot.TerminalID, spot.TerminalType, tostring(spot.Free), tostring(spot.ClientSpot), spot.DistToRwy)
|
|
self:I(self.lid..text)
|
|
|
|
-- Add to table.
|
|
self.parking[spot.TerminalID]=spot
|
|
|
|
spot.Marker=MARKER:New(spot.Coordinate, "Spot"):ReadOnly()
|
|
spot.Marker.tocoaliton=true
|
|
spot.Marker.coalition=self:GetCoalition()
|
|
|
|
-- Check if spot is initially free or occupied.
|
|
if spot.Free then
|
|
|
|
-- Parking spot is free.
|
|
self:SetParkingFree(spot)
|
|
|
|
else
|
|
|
|
-- Scan for the unit sitting here.
|
|
local unit=spot.Coordinate:FindClosestUnit(20)
|
|
|
|
|
|
if unit then
|
|
|
|
local unitname=unit and unit:GetName() or "unknown"
|
|
|
|
local isalive=unit:IsAlive()
|
|
|
|
--env.info(string.format("FF parking spot %d is occupied by unit %s alive=%s", spot.TerminalID, unitname, tostring(isalive)))
|
|
|
|
if isalive then
|
|
|
|
-- Set parking occupied.
|
|
self:SetParkingOccupied(spot, unitname)
|
|
|
|
-- Spawn parking guard.
|
|
self:SpawnParkingGuard(unit)
|
|
|
|
else
|
|
|
|
-- TODO
|
|
--env.info(string.format("FF parking spot %d is occupied by NOT ALIVE unit %s", spot.TerminalID, unitname))
|
|
|
|
-- Parking spot is free.
|
|
self:SetParkingFree(spot)
|
|
|
|
end
|
|
|
|
else
|
|
self:I(self.lid..string.format("ERROR: Parking spot is NOT FREE but no unit could be found there!"))
|
|
end
|
|
end
|
|
|
|
-- Increase counter
|
|
self.Nparkingspots=self.Nparkingspots+1
|
|
end
|
|
|
|
end
|
|
|
|
--- Get parking spot by its Terminal ID.
|
|
-- @param #FLIGHTCONTROL self
|
|
-- @param #number TerminalID
|
|
-- @return #FLIGHTCONTROL.ParkingSpot Parking spot data table.
|
|
function FLIGHTCONTROL:GetParkingSpotByID(TerminalID)
|
|
return self.parking[TerminalID]
|
|
end
|
|
|
|
--- Set parking spot to FREE and update F10 marker.
|
|
-- @param #FLIGHTCONTROL self
|
|
-- @param Wrapper.Airbase#AIRBASE.ParkingSpot spot The parking spot data table.
|
|
function FLIGHTCONTROL:SetParkingFree(spot)
|
|
|
|
local spot=self:GetParkingSpotByID(spot.TerminalID)
|
|
|
|
spot.Status=AIRBASE.SpotStatus.FREE
|
|
spot.OccupiedBy=nil
|
|
spot.ReservedBy=nil
|
|
|
|
self:UpdateParkingMarker(spot)
|
|
|
|
end
|
|
|
|
--- Set parking spot to RESERVED and update F10 marker.
|
|
-- @param #FLIGHTCONTROL self
|
|
-- @param Wrapper.Airbase#AIRBASE.ParkingSpot spot The parking spot data table.
|
|
-- @param #string unitname Name of the unit occupying the spot. Default "unknown".
|
|
function FLIGHTCONTROL:SetParkingReserved(spot, unitname)
|
|
|
|
local spot=self:GetParkingSpotByID(spot.TerminalID)
|
|
|
|
spot.Status=AIRBASE.SpotStatus.RESERVED
|
|
spot.ReservedBy=unitname or "unknown"
|
|
|
|
self:UpdateParkingMarker(spot)
|
|
|
|
end
|
|
|
|
--- Set parking spot to OCCUPIED and update F10 marker.
|
|
-- @param #FLIGHTCONTROL self
|
|
-- @param Wrapper.Airbase#AIRBASE.ParkingSpot spot The parking spot data table.
|
|
-- @param #string unitname Name of the unit occupying the spot. Default "unknown".
|
|
function FLIGHTCONTROL:SetParkingOccupied(spot, unitname)
|
|
|
|
local spot=self:GetParkingSpotByID(spot.TerminalID)
|
|
|
|
spot.Status=AIRBASE.SpotStatus.OCCUPIED
|
|
spot.OccupiedBy=unitname or "unknown"
|
|
|
|
self:UpdateParkingMarker(spot)
|
|
|
|
end
|
|
|
|
--- Get free parking spots.
|
|
-- @param #FLIGHTCONTROL self
|
|
-- @param Wrapper.Airbase#AIRBASE.ParkingSpot spot The parking spot data table.
|
|
function FLIGHTCONTROL:UpdateParkingMarker(spot)
|
|
|
|
local spot=self:GetParkingSpotByID(spot.TerminalID)
|
|
|
|
--env.info(string.format("FF updateing spot %d status=%s", spot.TerminalID, spot.Status))
|
|
|
|
-- Only mark OCCUPIED and RESERVED spots.
|
|
if spot.Status==AIRBASE.SpotStatus.FREE then
|
|
|
|
if spot.Marker then
|
|
spot.Marker:Remove()
|
|
end
|
|
|
|
else
|
|
|
|
local text=string.format("Spot %d (type %d): %s", spot.TerminalID, spot.TerminalType, spot.Status:upper())
|
|
if spot.OccupiedBy then
|
|
text=text..string.format("\nOccupied by %s", spot.OccupiedBy)
|
|
end
|
|
if spot.ReservedBy then
|
|
text=text..string.format("\nReserved for %s", spot.ReservedBy)
|
|
end
|
|
if spot.ClientSpot then
|
|
text=text..string.format("\nClient %s", tostring(spot.ClientSpot))
|
|
end
|
|
|
|
if spot.Marker then
|
|
|
|
if text~=spot.Marker.text then
|
|
spot.Marker:UpdateText(text)
|
|
end
|
|
|
|
else
|
|
|
|
spot.Marker=MARKER:New(spot.Coordinate, text):ToAll()
|
|
|
|
end
|
|
|
|
end
|
|
end
|
|
|
|
--- Check if parking spot is free.
|
|
-- @param #FLIGHTCONTROL self
|
|
-- @param Wrapper.Airbase#AIRBASE.ParkingSpot spot Parking spot data.
|
|
-- @return #boolean If true, parking spot is free.
|
|
function FLIGHTCONTROL:IsParkingFree(spot)
|
|
return spot.Status==AIRBASE.SpotStatus.FREE
|
|
end
|
|
|
|
--- Check if a parking spot is reserved by a flight group.
|
|
-- @param #FLIGHTCONTROL self
|
|
-- @param Wrapper.Airbase#AIRBASE.ParkingSpot spot Parking spot to check.
|
|
-- @return #string Name of element or nil.
|
|
function FLIGHTCONTROL:IsParkingOccupied(spot)
|
|
|
|
if spot.Status==AIRBASE.SpotStatus.OCCUPIED then
|
|
return tostring(spot.OccupiedBy)
|
|
else
|
|
return false
|
|
end
|
|
end
|
|
|
|
--- Check if a parking spot is reserved by a flight group.
|
|
-- @param #FLIGHTCONTROL self
|
|
-- @param Wrapper.Airbase#AIRBASE.ParkingSpot spot Parking spot to check.
|
|
-- @return #string Name of element or *nil*.
|
|
function FLIGHTCONTROL:IsParkingReserved(spot)
|
|
|
|
if spot.Status==AIRBASE.SpotStatus.RESERVED then
|
|
return tostring(spot.ReservedBy)
|
|
else
|
|
return false
|
|
end
|
|
|
|
-- Init all elements as NOT parking anywhere.
|
|
for _,_flight in pairs(self.flights) do
|
|
local flight=_flight --Ops.FlightGroup#FLIGHTGROUP
|
|
-- Loop over all elements.
|
|
for _,_element in pairs(flight.elements) do
|
|
local element=_element --Ops.FlightGroup#FLIGHTGROUP.Element
|
|
local parking=element.parking
|
|
if parking and parking.TerminalID==spot.TerminalID then
|
|
return element.name
|
|
end
|
|
end
|
|
end
|
|
|
|
return nil
|
|
end
|
|
|
|
--- Get free parking spots.
|
|
-- @param #FLIGHTCONTROL self
|
|
-- @param #number terminal Terminal type or nil.
|
|
-- @return #number Number of free spots. Total if terminal=nil or of the requested terminal type.
|
|
-- @return #table Table of free parking spots of data type #FLIGHCONTROL.ParkingSpot.
|
|
function FLIGHTCONTROL:_GetFreeParkingSpots(terminal)
|
|
|
|
local freespots={}
|
|
|
|
local n=0
|
|
for _,_parking in pairs(self.parking) do
|
|
local parking=_parking --Wrapper.Airbase#AIRBASE.ParkingSpot
|
|
|
|
if self:IsParkingFree(parking) then
|
|
if terminal==nil or terminal==parking.terminal then
|
|
n=n+1
|
|
table.insert(freespots, parking)
|
|
end
|
|
end
|
|
end
|
|
|
|
return n,freespots
|
|
end
|
|
|
|
--- Get closest parking spot.
|
|
-- @param #FLIGHTCONTROL self
|
|
-- @param Core.Point#COORDINATE coordinate Reference coordinate.
|
|
-- @param #number terminaltype (Optional) Check only this terminal type.
|
|
-- @param #boolean free (Optional) If true, check only free spots.
|
|
-- @return #FLIGHTCONTROL.ParkingSpot Closest parking spot.
|
|
function FLIGHTCONTROL:GetClosestParkingSpot(coordinate, terminaltype, free)
|
|
|
|
local distmin=math.huge
|
|
local spotmin=nil
|
|
|
|
for TerminalID, Spot in pairs(self.parking) do
|
|
local spot=Spot --Wrapper.Airbase#AIRBASE.ParkingSpot
|
|
|
|
if (not free) or (free==true and not (self:IsParkingReserved(spot) or self:IsParkingOccupied(spot))) then
|
|
if terminaltype==nil or terminaltype==spot.TerminalType then
|
|
|
|
-- Get distance from coordinate to spot.
|
|
local dist=coordinate:Get2DDistance(spot.Coordinate)
|
|
|
|
-- Check if distance is smaller.
|
|
if dist<distmin then
|
|
distmin=dist
|
|
spotmin=spot
|
|
end
|
|
|
|
end
|
|
end
|
|
end
|
|
|
|
return spotmin
|
|
end
|
|
|
|
--- Count number of parking spots.
|
|
-- @param #FLIGHTCONTROL self
|
|
-- @param #string SpotStatus (Optional) Status of spot.
|
|
-- @return #number Number of parking spots.
|
|
function FLIGHTCONTROL:CountParking(SpotStatus)
|
|
|
|
local n=0
|
|
for _,_spot in pairs(self.parking) do
|
|
local spot=_spot --Wrapper.Airbase#AIRBASE.ParkingSpot
|
|
if SpotStatus==nil or SpotStatus==spot.Status then
|
|
n=n+1
|
|
end
|
|
|
|
end
|
|
|
|
return n
|
|
end
|
|
|
|
-------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------
|
|
-- ATIS Functions
|
|
-------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------
|
|
|
|
-------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------
|
|
-- ATC Functions
|
|
-------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------
|
|
|
|
-------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------
|
|
-- Human Player Functions
|
|
-------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------
|
|
|
|
--- Create player menu.
|
|
-- @param #FLIGHTCONTROL self
|
|
-- @param Ops.FlightGroup#FLIGHTGROUP flight Flight group.
|
|
-- @param #table atcmenu ATC root menu table.
|
|
function FLIGHTCONTROL:_CreatePlayerMenu(flight, atcmenu)
|
|
|
|
local group=flight.group
|
|
local groupname=flight.groupname
|
|
local gid=group:GetID()
|
|
|
|
local flightstatus=self:GetFlightStatus(flight)
|
|
local gotcontrol=self:IsControlling(flight)
|
|
|
|
self:I(self.lid..string.format("Creating ATC player menu for flight %s: in state=%s status=%s, gotcontrol=%s", tostring(flight.groupname), flight:GetState(), flightstatus, tostring(gotcontrol)))
|
|
|
|
local airbasename=self.airbasename
|
|
local airbaseName=airbasename
|
|
local airbaseName2=airbaseName
|
|
if gotcontrol then
|
|
--airbaseName2=airbaseName2.." *"
|
|
end
|
|
local Tag=airbasename
|
|
local Tnow=timer.getTime()
|
|
|
|
atcmenu[airbasename] = atcmenu[airbasename] or {}
|
|
|
|
if atcmenu[airbasename].root then
|
|
local rootmenu=atcmenu[airbasename].root --Core.Menu#MENU_GROUP
|
|
rootmenu:Remove()
|
|
end
|
|
|
|
-- Airbase root menu.
|
|
atcmenu[airbasename].root = MENU_GROUP:New(group, airbaseName2, atcmenu.root) --:SetTime(Tnow):SetTag(Tag)
|
|
|
|
local rootmenu=atcmenu[airbasename].root --Core.Menu#MENU_GROUP
|
|
|
|
-- Help Menu.
|
|
local helpmenu=MENU_GROUP:New(group, "Help", rootmenu)--:SetTime(Tnow):SetTag(Tag)
|
|
|
|
-- Some info.
|
|
local infomenu=MENU_GROUP:New(group, "Info", rootmenu)--:SetTime(Tnow):SetTag(Tag)
|
|
MENU_GROUP_COMMAND:New(group, "Airbase", infomenu, self._PlayerRequestInfo, self, groupname)--:SetTime(Tnow):SetTag(Tag)
|
|
MENU_GROUP_COMMAND:New(group, "Queues", infomenu, self._PlayerRequestInfoQueues, self, groupname)--:SetTime(Tnow):SetTag(Tag)
|
|
MENU_GROUP_COMMAND:New(group, "ATIS", infomenu, self._PlayerRequestInfoATIS, self, groupname)--:SetTime(Tnow):SetTag(Tag)
|
|
|
|
-- Root Commands.
|
|
if gotcontrol then
|
|
|
|
local status=self:GetFlightStatus(flight)
|
|
|
|
---
|
|
-- FC is controlling this flight
|
|
---
|
|
|
|
if flight:IsParking() then
|
|
---
|
|
-- Parking
|
|
---
|
|
|
|
if status==FLIGHTCONTROL.FlightStatus.READYTX then
|
|
MENU_GROUP_COMMAND:New(group, "Abort Taxi", rootmenu, self._PlayerAbortTaxi, self, groupname)--:SetTime(Tnow):SetTag(Tag)
|
|
else
|
|
MENU_GROUP_COMMAND:New(group, "Request Taxi", rootmenu, self._PlayerRequestTaxi, self, groupname)--:SetTime(Tnow):SetTag(Tag)
|
|
end
|
|
|
|
elseif flight:IsTaxiing() then
|
|
---
|
|
-- Taxiing
|
|
---
|
|
|
|
if status==FLIGHTCONTROL.FlightStatus.READYTO then
|
|
MENU_GROUP_COMMAND:New(group, "Abort Takeoff", rootmenu, self._PlayerAbortTakeoff, self, groupname)--:SetTime(Tnow):SetTag(Tag)
|
|
elseif status==FLIGHTCONTROL.FlightStatus.TAKEOFF then
|
|
MENU_GROUP_COMMAND:New(group, "Abort Takeoff", rootmenu, self._PlayerAbortTakeoff, self, groupname)--:SetTime(Tnow):SetTag(Tag)
|
|
elseif status==FLIGHTCONTROL.FlightStatus.READYTX or status==FLIGHTCONTROL.FlightStatus.TAXIOUT then
|
|
MENU_GROUP_COMMAND:New(group, "Abort Taxi", rootmenu, self._PlayerAbortTaxi, self, groupname)--:SetTime(Tnow):SetTag(Tag)
|
|
MENU_GROUP_COMMAND:New(group, "Request Takeoff", rootmenu, self._PlayerRequestTakeoff, self, groupname)--:SetTime(Tnow):SetTag(Tag)
|
|
elseif status==FLIGHTCONTROL.FlightStatus.TAXIINB then
|
|
-- Could be after "abort taxi" call and we changed our mind (again)
|
|
MENU_GROUP_COMMAND:New(group, "Request Taxi", rootmenu, self._PlayerRequestTaxi, self, groupname)
|
|
MENU_GROUP_COMMAND:New(group, "Request Parking", rootmenu, self._PlayerRequestParking, self, groupname)
|
|
end
|
|
|
|
MENU_GROUP_COMMAND:New(group, "Arrived at Parking", rootmenu, self._PlayerArrived, self, groupname)
|
|
|
|
|
|
|
|
elseif flight:IsAirborne() then
|
|
---
|
|
-- Airborne
|
|
---
|
|
|
|
elseif flight:IsInbound() then
|
|
|
|
MENU_GROUP_COMMAND:New(group, "Holding", rootmenu, self._PlayerHolding, self, groupname)--:SetTime(Tnow):SetTag(Tag)
|
|
--TODO: abort inbound
|
|
|
|
end
|
|
|
|
if flight:IsInbound() or flight:IsHolding() or flight:IsLanding() or flight:IsLanded() then
|
|
MENU_GROUP_COMMAND:New(group, "Request Parking", rootmenu, self._PlayerRequestParking, self, groupname)--:SetTime(Tnow):SetTag(Tag)
|
|
end
|
|
|
|
else
|
|
|
|
---
|
|
-- FC is NOT controlling this flight
|
|
---
|
|
|
|
if flight:IsAirborne() then
|
|
MENU_GROUP_COMMAND:New(group, "Inbound", rootmenu, self._PlayerInbound, self, groupname)--:SetTime(Tnow):SetTag(Tag)
|
|
end
|
|
|
|
end
|
|
|
|
if gotcontrol then
|
|
MENU_GROUP_COMMAND:New(group, "My Status", rootmenu, self._PlayerMyStatus, self, groupname)--:SetTime(Tnow):SetTag(Tag)
|
|
end
|
|
|
|
-- Reset the menu.
|
|
--rootmenu:Remove(Tnow, Tag)
|
|
--rootmenu:Set()
|
|
|
|
end
|
|
|
|
--- Player menu request info.
|
|
-- @param #FLIGHTCONTROL self
|
|
-- @param #string groupname Name of the flight group.
|
|
function FLIGHTCONTROL:_PlayerRequestParking(groupname)
|
|
|
|
-- Get flight group.
|
|
local flight=_DATABASE:GetOpsGroup(groupname) --Ops.FlightGroup#FLIGHTGROUP
|
|
|
|
if flight then
|
|
|
|
local group=flight:GetGroup()
|
|
local coord=flight:GetCoordinate()
|
|
|
|
--TODO: terminal type for helos!
|
|
local spot=self:GetClosestParkingSpot(coord, nil, true)
|
|
|
|
-- Get callsign.
|
|
local callsign=flight:GetCallsignName()
|
|
|
|
-- Message text.
|
|
local text=string.format("%s, tower, your assigned parking position is terminal ID %d. Check the F10 map for details.", callsign, spot.TerminalID)
|
|
|
|
-- Transmit message.
|
|
self:TransmissionTower(text, flight)
|
|
|
|
-- Create mark on F10 map.
|
|
if spot.Marker then
|
|
spot.Marker:Remove()
|
|
end
|
|
spot.Marker:SetText("Your assigned parking spot!"):ToGroup(group)
|
|
|
|
-- Set parking of player element.
|
|
for _,_element in pairs(flight.elements) do
|
|
local element=_element --Ops.FlightGroup#FLIGHTGROUP.Element
|
|
if not element.ai then
|
|
element.parking=spot
|
|
end
|
|
end
|
|
|
|
end
|
|
|
|
end
|
|
|
|
--- Player arrived at parking position.
|
|
-- @param #FLIGHTCONTROL self
|
|
-- @param #string groupname Name of the flight group.
|
|
function FLIGHTCONTROL:_PlayerArrived(groupname)
|
|
|
|
-- Get flight group.
|
|
local flight=_DATABASE:GetOpsGroup(groupname) --Ops.FlightGroup#FLIGHTGROUP
|
|
|
|
if flight then
|
|
|
|
local group=flight:GetGroup()
|
|
local coord=flight:GetCoordinate()
|
|
|
|
--Closest parking spot.
|
|
local spot=self:GetClosestParkingSpot(coord, nil, true)
|
|
|
|
-- Get callsign.
|
|
local callsign=flight:GetCallsignName()
|
|
|
|
-- Message text.
|
|
local text=string.format("Tower, %s, arrived at parking position. Terminal ID %d.", callsign, spot.TerminalID)
|
|
|
|
-- Transmit message.
|
|
self:TransmissionTower(text, flight)
|
|
|
|
self:SetFlightStatus(flight, FLIGHTCONTROL.FlightStatus.PARKING)
|
|
|
|
self:_CreatePlayerMenu(flight, flight.menu.atc)
|
|
|
|
-- Create mark on F10 map.
|
|
if spot.Marker then
|
|
spot.Marker:Remove()
|
|
end
|
|
spot.Marker:SetText("Your current parking spot!"):ToGroup(group)
|
|
|
|
-- Set parking of player element.
|
|
for _,_element in pairs(flight.elements) do
|
|
local element=_element --Ops.OpsGroup#OPSGROUP.Element
|
|
if not element.ai then
|
|
element.parking=spot
|
|
end
|
|
end
|
|
|
|
end
|
|
|
|
end
|
|
|
|
--- Player menu request info.
|
|
-- @param #FLIGHTCONTROL self
|
|
-- @param #string groupname Name of the flight group.
|
|
function FLIGHTCONTROL:_PlayerRequestInfo(groupname)
|
|
|
|
-- Get flight group.
|
|
local flight=_DATABASE:GetOpsGroup(groupname) --Ops.FlightGroup#FLIGHTGROUP
|
|
|
|
if flight then
|
|
|
|
local text=string.format("Airbase %s Info:", self.airbasename)
|
|
text=text..string.format("\nATC Status: %s", self:GetState())
|
|
text=text..string.format("\nFrequency: %.3f %s", self.frequency, UTILS.GetModulationName(self.modulation))
|
|
text=text..string.format("\nActive Runway: %s", self:GetActiveRunwayText())
|
|
|
|
-- Message to flight
|
|
self:TextMessageToFlight(text, flight, 10, true)
|
|
|
|
end
|
|
|
|
end
|
|
|
|
--- Player menu request info.
|
|
-- @param #FLIGHTCONTROL self
|
|
-- @param #string groupname Name of the flight group.
|
|
function FLIGHTCONTROL:_PlayerRequestInfoATIS(groupname)
|
|
|
|
-- Get flight group.
|
|
local flight=_DATABASE:GetOpsGroup(groupname) --Ops.FlightGroup#FLIGHTGROUP
|
|
|
|
if flight then
|
|
|
|
local text=string.format("Airbase %s ATIS:", self.airbasename)
|
|
|
|
if self.atis then
|
|
text=text..string.format("\nATIS %.3f MHz %s", self.atis.frequency, UTILS.GetModulationName(self.atis.modulation))
|
|
if self.atis.towerfrequency then
|
|
local tower=""
|
|
for _,freq in pairs(self.atis.towerfrequency) do
|
|
tower=tower..string.format("%.3f, ", freq)
|
|
end
|
|
text=text..string.format("\nTower %.3f MHz", self.atis.towerfrequency[1])
|
|
end
|
|
if self.atis.ils then
|
|
end
|
|
if self.atis.tacan then
|
|
--TACAN
|
|
end
|
|
if self.atis.ndbinner then
|
|
end
|
|
if self.atis.ndbouter then
|
|
|
|
end
|
|
|
|
end
|
|
|
|
-- Message to flight
|
|
self:TextMessageToFlight(text, flight, 10, true)
|
|
|
|
end
|
|
|
|
end
|
|
|
|
|
|
--- Player menu request info.
|
|
-- @param #FLIGHTCONTROL self
|
|
-- @param #string groupname Name of the flight group.
|
|
function FLIGHTCONTROL:_PlayerRequestInfoQueues(groupname)
|
|
|
|
-- Get flight group.
|
|
local flight=_DATABASE:GetOpsGroup(groupname) --Ops.FlightGroup#FLIGHTGROUP
|
|
|
|
if flight then
|
|
|
|
--
|
|
local text=string.format("Airbase %s Status:", self.airbasename)
|
|
text=text..string.format("\nFlights %d", #self.flights)
|
|
text=text..string.format("\nQinbound %d", self:CountFlights(FLIGHTCONTROL.FlightStatus.INBOUND))
|
|
text=text..string.format("\nQholding %d", self:CountFlights(FLIGHTCONTROL.FlightStatus.HOLDING))
|
|
text=text..string.format("\nQlanding %d", self:CountFlights(FLIGHTCONTROL.FlightStatus.LANDING))
|
|
text=text..string.format("\nQtaxiInb %d", self:CountFlights(FLIGHTCONTROL.FlightStatus.TAXIINB))
|
|
text=text..string.format("\nQarrived %d", self:CountFlights(FLIGHTCONTROL.FlightStatus.ARRIVED))
|
|
text=text..string.format("\nQparking %d", self:CountFlights(FLIGHTCONTROL.FlightStatus.PARKING))
|
|
text=text..string.format("\nQtaxiOut %d", self:CountFlights(FLIGHTCONTROL.FlightStatus.TAXIOUT))
|
|
text=text..string.format("\nQreadiTO %d", self:CountFlights(FLIGHTCONTROL.FlightStatus.READYTO))
|
|
text=text..string.format("\nQtakeoff %d", self:CountFlights(FLIGHTCONTROL.FlightStatus.TAKEOFF))
|
|
|
|
-- Message to flight
|
|
self:TextMessageToFlight(text, flight, 10, true)
|
|
|
|
else
|
|
MESSAGE:New(string.format("Cannot find flight group %s.", tostring(groupname)), 5):ToAll()
|
|
end
|
|
|
|
end
|
|
|
|
--- Player calls inbound.
|
|
-- @param #FLIGHTCONTROL self
|
|
-- @param #string groupname Name of the flight group.
|
|
function FLIGHTCONTROL:_PlayerRequestInbound(groupname)
|
|
|
|
-- Get flight group.
|
|
local flight=_DATABASE:GetOpsGroup(groupname) --Ops.FlightGroup#FLIGHTGROUP
|
|
|
|
if flight then
|
|
|
|
if flight:IsAirborne() then
|
|
|
|
if self:IsControlling(flight) then
|
|
-- Nothing to do as this flight has already the right flightcontrol.
|
|
else
|
|
|
|
-- Set FC controlling this flight.
|
|
flight:SetFlightControl(self)
|
|
|
|
end
|
|
|
|
-- Call sign.
|
|
local callsign=flight:GetCallsignName()
|
|
|
|
-- Pilot calls inbound for landing.
|
|
local text=string.format("%s, %s, inbound for landing", self.alias, callsign)
|
|
|
|
-- Radio message.
|
|
self:TransmissionPilot(text, flight)
|
|
|
|
-- Distance from player to airbase.
|
|
local dist=flight:GetCoordinate():Get2DDistance(self:GetCoordinate())
|
|
|
|
if dist<UTILS.NMToMeters(50) then
|
|
|
|
-- Call RTB event.
|
|
flight:RTB(self.airbase)
|
|
|
|
-- Add flight to inbound queue.
|
|
self:SetFlightStatus(flight, FLIGHTCONTROL.FlightStatus.INBOUND)
|
|
|
|
-- Get holding point.
|
|
local stack=self:_GetHoldingpoint(flight)
|
|
|
|
if stack then
|
|
|
|
-- Set flight.
|
|
stack.flightgroup=flight
|
|
|
|
-- Stack.
|
|
flight.stack=stack
|
|
|
|
-- Current postion.
|
|
local coord=flight:GetCoordinate()
|
|
|
|
-- Heading to holding point.
|
|
local heading=coord:HeadingTo(stack.pos0)
|
|
|
|
-- Distance to holding point.
|
|
local distance=coord:Get2DDistance(stack.pos0)
|
|
|
|
local dist=UTILS.MetersToNM(distance)
|
|
|
|
-- Message text.
|
|
local text=string.format("%s, %s, roger, fly heading %03d for %d nautical miles, hold at angels %d. Report status when entering the pattern",
|
|
callsign, self.alias, heading, dist, stack.angels)
|
|
|
|
-- Send message.
|
|
self:TransmissionTower(text, flight, 15)
|
|
|
|
else
|
|
self:E(self.lid..string.format("WARNING: Could not get holding stack for flight %s", flight:GetName()))
|
|
end
|
|
|
|
else
|
|
|
|
-- Message text.
|
|
local text=string.format("Negative, you have to be withing 50 nautical miles of the airbase to request inbound!")
|
|
|
|
-- Send message.
|
|
self:TextMessageToFlight(text, flight, 10)
|
|
|
|
end
|
|
|
|
else
|
|
-- Error you are not airborne!
|
|
local text=string.format("Negative, you must be AIRBORNE to call INBOUND!")
|
|
|
|
-- Send message.
|
|
self:TextMessageToFlight(text, flight, 10)
|
|
end
|
|
|
|
else
|
|
MESSAGE:New(string.format("Cannot find flight group %s.", tostring(groupname)), 5):ToAll()
|
|
end
|
|
|
|
end
|
|
|
|
--- Player calls inbound.
|
|
-- @param #FLIGHTCONTROL self
|
|
-- @param #string groupname Name of the flight group.
|
|
function FLIGHTCONTROL:_PlayerAbortInbound(groupname)
|
|
|
|
-- Get flight group.
|
|
local flight=_DATABASE:GetOpsGroup(groupname) --Ops.FlightGroup#FLIGHTGROUP
|
|
|
|
if flight then
|
|
|
|
if flight:IsInbound() and self:IsControlling(flight) then
|
|
|
|
-- Call sign.
|
|
local callsign=flight:GetCallsignName()
|
|
|
|
-- Pilot calls inbound for landing.
|
|
local text=string.format("%s, %s, abort inbound", self.alias, callsign)
|
|
|
|
-- Radio message.
|
|
self:TransmissionPilot(text, flight)
|
|
|
|
-- Add flight to inbound queue.
|
|
self:_RemoveFlight(flight)
|
|
|
|
-- Set flight.
|
|
flight.stack.flightgroup=nil
|
|
flight.stack=nil
|
|
|
|
-- Message text.
|
|
local text=string.format("%s, %s, roger, have a nice day!", callsign, self.alias)
|
|
|
|
-- Send message.
|
|
self:TransmissionTower(text, flight, 15)
|
|
|
|
else
|
|
|
|
-- Error you are not airborne!
|
|
local text=string.format("Negative, you must be INBOUND and CONTROLLED by us!")
|
|
|
|
-- Send message.
|
|
self:TextMessageToFlight(text, flight, 10)
|
|
end
|
|
|
|
else
|
|
MESSAGE:New(string.format("Cannot find flight group %s.", tostring(groupname)), 5):ToAll()
|
|
end
|
|
|
|
end
|
|
|
|
--- Player calls holding.
|
|
-- @param #FLIGHTCONTROL self
|
|
-- @param #string groupname Name of the flight group.
|
|
function FLIGHTCONTROL:_PlayerHolding(groupname)
|
|
|
|
-- Get flight group.
|
|
local flight=_DATABASE:GetOpsGroup(groupname) --Ops.FlightGroup#FLIGHTGROUP
|
|
|
|
if flight then
|
|
|
|
if flight:IsInbound() then
|
|
|
|
if self:IsControlling(flight) then
|
|
|
|
-- Holding stack.
|
|
local stack=flight.stack
|
|
|
|
if stack then
|
|
|
|
local Coordinate=flight:GetCoordinate()
|
|
|
|
local dist=stack.pos0:Get2DDistance(Coordinate)
|
|
|
|
if dist<5000 then
|
|
|
|
-- Message to flight
|
|
local text=string.format("Roger, you are added to the holding queue!")
|
|
self:TextMessageToFlight(text, flight, 10, true)
|
|
|
|
-- Call holding event.
|
|
flight:Holding()
|
|
|
|
else
|
|
|
|
-- Message to flight
|
|
local text=string.format("Negative, you have to be within 5 km!")
|
|
self:TextMessageToFlight(text, flight, 10, true)
|
|
|
|
end
|
|
|
|
else
|
|
--TODO: Error not holding stack.
|
|
end
|
|
|
|
else
|
|
|
|
-- Error: Not controlled by this FC.
|
|
local text=string.format("Negative, you are not controlled by us!")
|
|
|
|
-- Message to flight
|
|
self:TextMessageToFlight(text, flight, 10, true)
|
|
|
|
end
|
|
else
|
|
-- Error you are not airborne!
|
|
local text=string.format("Negative, you must be INBOUND to call HOLDING!")
|
|
|
|
-- Message to flight
|
|
self:TextMessageToFlight(text, flight, 10, true)
|
|
end
|
|
else
|
|
end
|
|
end
|
|
|
|
--- Create player menu.
|
|
-- @param #FLIGHTCONTROL self
|
|
-- @param #string groupname Name of the flight group.
|
|
function FLIGHTCONTROL:_PlayerMyStatus(groupname)
|
|
|
|
-- Get flight group.
|
|
local flight=_DATABASE:GetOpsGroup(groupname) --Ops.FlightGroup#FLIGHTGROUP
|
|
|
|
if flight then
|
|
|
|
local fc=flight.flightcontrol
|
|
|
|
-- Status text.
|
|
local text=string.format("My Status:")
|
|
text=text..string.format("\nFlight status: %s", tostring(flight:GetState()))
|
|
text=text..string.format("\nFlight control: %s status=%s", tostring(fc and fc.airbasename or "N/A"), tostring(fc and fc:GetFlightStatus(flight) or "N/A"))
|
|
|
|
-- Send message.
|
|
self:TextMessageToFlight(text, flight, 10, true)
|
|
|
|
else
|
|
MESSAGE:New(string.format("Cannot find flight group %s.", tostring(groupname)), 5):ToAll()
|
|
end
|
|
|
|
end
|
|
|
|
--- Player requests taxi.
|
|
-- @param #FLIGHTCONTROL self
|
|
-- @param #string groupname Name of the flight group.
|
|
function FLIGHTCONTROL:_PlayerRequestTaxi(groupname)
|
|
|
|
-- Get flight.
|
|
local flight=_DATABASE:GetOpsGroup(groupname) --Ops.FlightGroup#FLIGHTGROUP
|
|
|
|
if flight then
|
|
|
|
-- Get callsign.
|
|
local callsign=flight:GetCallsignName()
|
|
|
|
-- Pilot request for taxi.
|
|
local text=string.format("%s, %s, ready for departure. Request taxi to runway.", self.alias, callsign)
|
|
self:TransmissionPilot(text, flight)
|
|
|
|
if flight:IsParking() or flight:IsTaxiing() then
|
|
|
|
-- Tell pilot to wait until cleared.
|
|
local text=string.format("%s, %s, hold position until further notice.", callsign, self.alias)
|
|
self:TransmissionTower(text, flight, 10)
|
|
|
|
-- Set flight status to "Ready for Take-off".
|
|
self:SetFlightStatus(flight, FLIGHTCONTROL.FlightStatus.READYTX)
|
|
|
|
self:_CreatePlayerMenu(flight, flight.menu.atc)
|
|
|
|
else
|
|
MESSAGE:New(string.format("Negative, you must be PARKING to request TAXI!"), 5):ToAll()
|
|
end
|
|
|
|
else
|
|
-- Error message.
|
|
self:E(self.lid..string.format("Could not clear group %s for taxi!", groupname))
|
|
end
|
|
|
|
end
|
|
|
|
--- Player aborts taxi.
|
|
-- @param #FLIGHTCONTROL self
|
|
-- @param #string groupname Name of the flight group.
|
|
function FLIGHTCONTROL:_PlayerAbortTaxi(groupname)
|
|
|
|
-- Get flight.
|
|
local flight=_DATABASE:GetOpsGroup(groupname) --Ops.FlightGroup#FLIGHTGROUP
|
|
|
|
if flight then
|
|
|
|
-- Get callsign.
|
|
local callsign=flight:GetCallsignName()
|
|
|
|
-- Pilot request for taxi.
|
|
local text=string.format("%s, %s, abort taxi request.", self.alias, callsign)
|
|
self:TransmissionPilot(text, flight)
|
|
|
|
if flight:IsParking() then
|
|
|
|
-- Tell pilot remain parking.
|
|
local text=string.format("%s, %s, roger, remain on your parking position.", callsign, self.alias)
|
|
self:TransmissionTower(text, flight, 10)
|
|
|
|
-- Set flight status to "Ready for Take-off".
|
|
self:SetFlightStatus(flight, FLIGHTCONTROL.FlightStatus.PARKING)
|
|
|
|
self:_CreatePlayerMenu(flight, flight.menu.atc)
|
|
|
|
elseif flight:IsTaxiing() then
|
|
|
|
-- Tell pilot to return to parking.
|
|
local text=string.format("%s, %s, roger, return to your parking position.", callsign, self.alias)
|
|
self:TransmissionTower(text, flight, 10)
|
|
|
|
-- Set flight status to "Ready for Take-off".
|
|
self:SetFlightStatus(flight, FLIGHTCONTROL.FlightStatus.TAXIINB)
|
|
|
|
self:_CreatePlayerMenu(flight, flight.menu.atc)
|
|
|
|
else
|
|
MESSAGE:New(string.format("Negative, you must be PARKING or TAXIING to abort TAXI!"), 5):ToAll()
|
|
end
|
|
|
|
else
|
|
-- Error message.
|
|
self:E(self.lid..string.format("Could not clear group %s for taxi!", groupname))
|
|
end
|
|
|
|
end
|
|
|
|
--- Player requests takeoff.
|
|
-- @param #FLIGHTCONTROL self
|
|
-- @param #string groupname Name of the flight group.
|
|
function FLIGHTCONTROL:_PlayerRequestTakeoff(groupname)
|
|
|
|
MESSAGE:New("Request takeoff", 5):ToAll()
|
|
|
|
local flight=_DATABASE:GetOpsGroup(groupname) --Ops.FlightGroup#FLIGHTGROUP
|
|
|
|
if flight then
|
|
|
|
if flight:IsTaxiing() then
|
|
|
|
local Nlanding=self:CountFlights(FLIGHTCONTROL.FlightStatus.LANDING)
|
|
local Ntakeoff=self:CountFlights(FLIGHTCONTROL.FlightStatus.TAKEOFF)
|
|
|
|
if Nlanding==0 and Ntakeoff==0 then
|
|
MESSAGE:New("You are cleared for takeoff as there is no one else landing or queueing for takeoff", 5):ToAll()
|
|
self:SetFlightStatus(flight, FLIGHTCONTROL.FlightStatus.TAKEOFF)
|
|
elseif Nlanding>0 then
|
|
MESSAGE:New("Negative ghostrider, other flights are currently landing. Talk to you soon.", 5):ToAll()
|
|
self:SetFlightStatus(flight, FLIGHTCONTROL.FlightStatus.READYTO)
|
|
elseif Ntakeoff>0 then
|
|
MESSAGE:New("Negative ghostrider, other flights are ahead of you. Talk to you soon.", 5):ToAll()
|
|
self:SetFlightStatus(flight, FLIGHTCONTROL.FlightStatus.READYTO)
|
|
end
|
|
|
|
self:_CreatePlayerMenu(flight, flight.menu.atc)
|
|
|
|
else
|
|
MESSAGE:New(string.format("Negative, you must request TAXI before you can request TAKEOFF!"), 5):ToAll()
|
|
end
|
|
end
|
|
|
|
end
|
|
|
|
--- Player wants to abort takeoff.
|
|
-- @param #FLIGHTCONTROL self
|
|
-- @param #string groupname Name of the flight group.
|
|
function FLIGHTCONTROL:_PlayerAbortTakeoff(groupname)
|
|
|
|
-- Get flight group.
|
|
local flight=_DATABASE:GetOpsGroup(groupname) --Ops.FlightGroup#FLIGHTGROUP
|
|
|
|
if flight then
|
|
|
|
MESSAGE:New("Abort takeoff", 5):ToAll()
|
|
|
|
-- Flight status.
|
|
local status=self:GetFlightStatus(flight)
|
|
|
|
if status==FLIGHTCONTROL.FlightStatus.TAKEOFF or status==FLIGHTCONTROL.FlightStatus.READYTO then
|
|
|
|
if flight:IsParking() then
|
|
self:SetFlightStatus(flight, FLIGHTCONTROL.FlightStatus.PARKING)
|
|
elseif flight:IsTaxiing() then
|
|
self:SetFlightStatus(flight, FLIGHTCONTROL.FlightStatus.TAXIOUT)
|
|
else
|
|
env.info(self.lid.."ERROR")
|
|
end
|
|
|
|
self:_CreatePlayerMenu(flight, flight.menu.atc)
|
|
|
|
|
|
else
|
|
MESSAGE:New("Negative, You are NOT in the takeoff queue", 5):ToAll()
|
|
end
|
|
|
|
else
|
|
--TODO: Error message.
|
|
end
|
|
|
|
end
|
|
|
|
-------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------
|
|
-- Flight and Element Functions
|
|
-------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------
|
|
|
|
--- Create a new flight group.
|
|
-- @param #FLIGHTCONTROL self
|
|
-- @param Wrapper.Group#GROUP group Aircraft group.
|
|
-- @return Ops.FlightGroup#FLIGHTGROUP Flight group.
|
|
function FLIGHTCONTROL:_CreateFlightGroup(group)
|
|
|
|
-- Check if not already in flights
|
|
if self:_InQueue(self.flights, group) then
|
|
self:E(self.lid..string.format("WARNING: Flight group %s does already exist!", group:GetName()))
|
|
return
|
|
end
|
|
|
|
-- Debug info.
|
|
self:I(self.lid..string.format("Creating new flight for group %s of aircraft type %s.", group:GetName(), group:GetTypeName()))
|
|
|
|
-- Get flightgroup from data base.
|
|
local flight=_DATABASE:GetOpsGroup(group:GetName())
|
|
|
|
-- If it does not exist yet, create one.
|
|
if not flight then
|
|
flight=FLIGHTGROUP:New(group:GetName())
|
|
end
|
|
|
|
--if flight.destination and flight.destination:GetName()==self.airbasename then
|
|
if flight.homebase and flight.homebase:GetName()==self.airbasename then
|
|
flight:SetFlightControl(self)
|
|
end
|
|
|
|
return flight
|
|
end
|
|
|
|
--- Remove flight from all queues.
|
|
-- @param #FLIGHTCONTROL self
|
|
-- @param Ops.FlightGroup#FLIGHTGROUP flight The flight to be removed.
|
|
function FLIGHTCONTROL:_RemoveFlight(flight)
|
|
|
|
self:_RemoveFlightFromQueue(self.flights, flight, "flights")
|
|
|
|
end
|
|
|
|
--- Get flight from group.
|
|
-- @param #FLIGHTCONTROL self
|
|
-- @param Wrapper.Group#GROUP group Group that will be removed from queue.
|
|
-- @param #table queue The queue from which the group will be removed.
|
|
-- @return Ops.FlightGroup#FLIGHTGROUP Flight group or nil.
|
|
-- @return #number Queue index or nil.
|
|
function FLIGHTCONTROL:_GetFlightFromGroup(group)
|
|
|
|
if group then
|
|
|
|
-- Group name
|
|
local name=group:GetName()
|
|
|
|
-- Loop over all flight groups in queue
|
|
for i,_flight in pairs(self.flights) do
|
|
local flight=_flight --Ops.FlightGroup#FLIGHTGROUP
|
|
|
|
if flight.groupname==name then
|
|
return flight, i
|
|
end
|
|
end
|
|
|
|
self:T2(self.lid..string.format("WARNING: Flight group %s could not be found in queue.", name))
|
|
end
|
|
|
|
self:T2(self.lid..string.format("WARNING: Flight group could not be found in queue. Group is nil!"))
|
|
return nil, nil
|
|
end
|
|
|
|
--- Get element of flight from its unit name.
|
|
-- @param #FLIGHTCONTROL self
|
|
-- @param #string unitname Name of the unit.
|
|
-- @return Ops.OpsGroup#OPSGROUP.Element Element of the flight or nil.
|
|
-- @return #number Element index or nil.
|
|
-- @return Ops.FlightGroup#FLIGHTGROUP The Flight group or nil.
|
|
function FLIGHTCONTROL:_GetFlightElement(unitname)
|
|
|
|
-- Get the unit.
|
|
local unit=UNIT:FindByName(unitname)
|
|
|
|
-- Check if unit exists.
|
|
if unit then
|
|
|
|
-- Get flight element from all flights.
|
|
local flight=self:_GetFlightFromGroup(unit:GetGroup())
|
|
|
|
-- Check if fight exists.
|
|
if flight then
|
|
|
|
-- Loop over all elements in flight group.
|
|
for i,_element in pairs(flight.elements) do
|
|
local element=_element --Ops.OpsGroup#OPSGROUP.Element
|
|
|
|
if element.unit:GetName()==unitname then
|
|
return element, i, flight
|
|
end
|
|
end
|
|
|
|
self:T2(self.lid..string.format("WARNING: Flight element %s could not be found in flight group.", unitname, flight.groupname))
|
|
end
|
|
end
|
|
|
|
return nil, nil, nil
|
|
end
|
|
|
|
-------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------
|
|
-- Check Sanity Functions
|
|
-------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------
|
|
|
|
--- Check status of all registered flights and do some sanity checks.
|
|
-- @param #FLIGHTCONTROL self
|
|
function FLIGHTCONTROL:_CheckFlights()
|
|
|
|
-- First remove all dead flights.
|
|
for i=#self.flights,1,-1 do
|
|
local flight=self.flights[i] --Ops.FlightGroup#FLIGHTGROUP
|
|
if flight:IsDead() then
|
|
self:I(self.lid..string.format("Removing DEAD flight %s", tostring(flight.groupname)))
|
|
self:_RemoveFlight(flight)
|
|
end
|
|
end
|
|
|
|
--TODO: check parking?
|
|
|
|
end
|
|
|
|
--- Check status of all registered flights and do some sanity checks.
|
|
-- @param #FLIGHTCONTROL self
|
|
function FLIGHTCONTROL:_CheckParking()
|
|
|
|
for TerminalID,_spot in pairs(self.parking) do
|
|
local spot=_spot --Wrapper.Airbase#AIRBASE.ParkingSpot
|
|
|
|
if spot.Reserved then
|
|
if spot.MarkerID then
|
|
spot.Coordinate:RemoveMark(spot.MarkerID)
|
|
end
|
|
spot.MarkerID=spot.Coordinate:MarkToCoalition(string.format("Parking reserved for %s", tostring(spot.Reserved)), self:GetCoalition())
|
|
end
|
|
|
|
-- First remove all dead flights.
|
|
for i=1,#self.flights do
|
|
local flight=self.flights[i] --Ops.FlightGroup#FLIGHTGROUP
|
|
for _,_element in pairs(flight.elements) do
|
|
local element=_element --Ops.FlightGroup#FLIGHTGROUP.Element
|
|
if element.parking and element.parking.TerminalID==TerminalID then
|
|
if spot.MarkerID then
|
|
spot.Coordinate:RemoveMark(spot.MarkerID)
|
|
end
|
|
spot.MarkerID=spot.Coordinate:MarkToCoalition(string.format("Parking spot occupied by %s", tostring(element.name)), self:GetCoalition())
|
|
end
|
|
end
|
|
end
|
|
|
|
end
|
|
|
|
|
|
end
|
|
|
|
-------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------
|
|
-- Routing Functions
|
|
-------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------
|
|
|
|
--- Tell AI to land at the airbase. Flight is added to the landing queue.
|
|
-- @param #FLIGHTCONTROL self
|
|
-- @param Ops.FlightGroup#FLIGHTGROUP flight Flight group.
|
|
-- @param #table parking Free parking spots table.
|
|
function FLIGHTCONTROL:_LandAI(flight, parking)
|
|
|
|
-- Debug info.
|
|
self:I(self.lid..string.format("Landing AI flight %s.", flight.groupname))
|
|
|
|
-- Set flight status to LANDING.
|
|
self:SetFlightStatus(flight, FLIGHTCONTROL.FlightStatus.LANDING)
|
|
|
|
-- Flight is not holding any more.
|
|
flight.Tholding=nil
|
|
|
|
local respawn=false
|
|
|
|
if respawn then
|
|
|
|
-- Get group template.
|
|
local Template=flight.group:GetTemplate()
|
|
|
|
-- TODO: get landing waypoints from flightgroup.
|
|
|
|
-- Set route points.
|
|
Template.route.points=wp
|
|
|
|
for i,unit in pairs(Template.units) do
|
|
local spot=parking[i] --Wrapper.Airbase#AIRBASE.ParkingSpot
|
|
|
|
local element=flight:GetElementByName(unit.name)
|
|
if element then
|
|
|
|
-- Set the parking spot at the destination airbase.
|
|
unit.parking_landing=spot.TerminalID
|
|
|
|
local text=string.format("FF Reserving parking spot %d for unit %s", spot.TerminalID, tostring(unit.name))
|
|
self:I(self.lid..text)
|
|
|
|
-- Set parking to RESERVED.
|
|
self:SetParkingReserved(spot, element.name)
|
|
|
|
else
|
|
env.info("FF error could not get element to assign parking!")
|
|
end
|
|
end
|
|
|
|
-- Debug message.
|
|
MESSAGE:New(string.format("Respawning group %s", flight.groupname)):ToAll()
|
|
|
|
--Respawn the group.
|
|
flight:Respawn(Template)
|
|
|
|
else
|
|
|
|
-- Give signal to land.
|
|
flight:ClearToLand()
|
|
|
|
end
|
|
|
|
end
|
|
|
|
--- Get holding point.
|
|
-- @param #FLIGHTCONTROL self
|
|
-- @param Ops.FlightGroup#FLIGHTGROUP flight Flight group.
|
|
-- @return #FLIGHTCONTROL.HoldingStack Holding point.
|
|
function FLIGHTCONTROL:_GetHoldingpoint(flight)
|
|
|
|
--[[
|
|
local holdingpoint={} --#FLIGHTCONTROL.HoldingPoint
|
|
|
|
local runway=self:GetActiveRunway()
|
|
|
|
local hdg=runway.heading+90
|
|
local dx=UTILS.NMToMeters(5)
|
|
local dz=UTILS.NMToMeters(1)
|
|
|
|
local angels=UTILS.FeetToMeters(math.random(6,10)*1000)
|
|
|
|
holdingpoint.pos0=runway.position:Translate(dx, hdg):SetAltitude(angels)
|
|
holdingpoint.pos1=holdingpoint.pos0:Translate(dz, runway.heading):SetAltitude(angels)
|
|
|
|
]]
|
|
|
|
-- Debug message.
|
|
self:T(self.lid..string.format("Getting holding point for flight %s", flight:GetName()))
|
|
|
|
for i,_hp in pairs(self.holdingpoints) do
|
|
local holdingpoint=_hp --#FLIGHTCONTROL.HoldingPoint
|
|
|
|
self:T(self.lid..string.format("Checking holding point %s", holdingpoint.name))
|
|
|
|
for j,_stack in pairs(holdingpoint.stacks) do
|
|
local stack=_stack --#FLIGHTCONTROL.HoldingStack
|
|
local name=stack.flightgroup and stack.flightgroup:GetName() or "empty"
|
|
self:T(self.lid..string.format("Stack %d: %s", j, name))
|
|
if not stack.flightgroup then
|
|
return stack
|
|
end
|
|
end
|
|
|
|
end
|
|
|
|
return nil
|
|
end
|
|
|
|
-------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------
|
|
-- Radio Functions
|
|
-------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------
|
|
|
|
--- Radio transmission from tower.
|
|
-- @param #FLIGHTCONTROL self
|
|
-- @param #string Text The text to transmit.
|
|
-- @param Ops.FlightGroup#FLIGHTGROUP Flight The flight.
|
|
-- @param #number Delay Delay in seconds before the text is transmitted. Default 0 sec.
|
|
function FLIGHTCONTROL:TransmissionTower(Text, Flight, Delay)
|
|
|
|
self.msrsTower:PlayText(Text, Delay)
|
|
|
|
if Flight and not Flight.isAI then
|
|
self:TextMessageToFlight(Text, Flight, 5, false, Delay)
|
|
end
|
|
|
|
-- Debug message.
|
|
self:T(self.lid..string.format("Radio Tower: %s", Text))
|
|
|
|
end
|
|
|
|
--- Radio transmission.
|
|
-- @param #FLIGHTCONTROL self
|
|
-- @param #string Text The text to transmit.
|
|
-- @param Ops.FlightGroup#FLIGHTGROUP Flight The flight.
|
|
-- @param #number Delay Delay in seconds before the text is transmitted. Default 0 sec.
|
|
function FLIGHTCONTROL:TransmissionPilot(Text, Flight, Delay)
|
|
|
|
self.msrsPilot:PlayText(Text, Delay)
|
|
|
|
if Flight and not Flight.isAI then
|
|
self:TextMessageToFlight(Text, Flight, 5, false, Delay)
|
|
end
|
|
|
|
|
|
-- Debug message.
|
|
self:T(self.lid..string.format("Radio Pilot: %s", Text))
|
|
|
|
end
|
|
|
|
|
|
--- Text message to group.
|
|
-- @param #FLIGHTCONTROL self
|
|
-- @param #string Text The text to transmit.
|
|
-- @param Ops.FlightGroup#FLIGHTGROUP Flight The flight.
|
|
-- @param #number Duration Duration in seconds. Default 5.
|
|
-- @param #boolean Clear Clear screen.
|
|
-- @param #number Delay Delay in seconds before the text is transmitted. Default 0 sec.
|
|
function FLIGHTCONTROL:TextMessageToFlight(Text, Flight, Duration, Clear, Delay)
|
|
|
|
if Delay and Delay>0 then
|
|
self:ScheduleOnce(Delay, FLIGHTCONTROL.TextMessageToFlight, self, Text, Flight, Duration, Clear, 0)
|
|
else
|
|
|
|
if Flight and Flight.group and Flight.group:IsAlive() then
|
|
|
|
-- Group ID.
|
|
local gid=Flight.group:GetID()
|
|
|
|
-- Out text.
|
|
trigger.action.outTextForGroup(gid, self:_CleanText(Text), Duration or 5, Clear)
|
|
|
|
end
|
|
|
|
end
|
|
|
|
end
|
|
|
|
--- Clean text. Remove control sequences.
|
|
-- @param #FLIGHTCONTROL self
|
|
-- @param #string Text The text.
|
|
-- @param #string Cleaned text.
|
|
function FLIGHTCONTROL:_CleanText(Text)
|
|
|
|
local text=Text:gsub("\n$",""):gsub("\n$","")
|
|
|
|
return text
|
|
end
|
|
|
|
-------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------
|
|
-- Misc Functions
|
|
-------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------
|
|
|
|
--- Add parking guard in front of a parking aircraft.
|
|
-- @param #FLIGHTCONTROL self
|
|
-- @param Wrapper.Unit#UNIT unit The aircraft.
|
|
function FLIGHTCONTROL:SpawnParkingGuard(unit)
|
|
|
|
if unit and self.parkingGuard then
|
|
|
|
-- Position of the unit.
|
|
local coordinate=unit:GetCoordinate()
|
|
|
|
-- Parking spot.
|
|
local spot=self:GetClosestParkingSpot(coordinate)
|
|
|
|
-- Current heading of the unit.
|
|
local heading=unit:GetHeading()
|
|
|
|
-- Length of the unit + 3 meters.
|
|
local size, x, y, z=unit:GetObjectSize()
|
|
|
|
self:I(self.lid..string.format("Parking guard for %s: heading=%d, distance x=%.1f m", unit:GetName(), heading, x))
|
|
|
|
-- Coordinate for the guard.
|
|
local Coordinate=coordinate:Translate(0.75*x+3, heading)
|
|
|
|
-- Let him face the aircraft.
|
|
local lookat=heading-180
|
|
|
|
-- Set heading and AI off to save resources.
|
|
self.parkingGuard:InitHeading(lookat):InitAIOff()
|
|
|
|
-- Group that is spawned.
|
|
spot.ParkingGuard=self.parkingGuard:SpawnFromCoordinate(Coordinate)
|
|
|
|
end
|
|
|
|
end
|
|
|
|
--- Remove parking guard.
|
|
-- @param #FLIGHTCONTROL self
|
|
-- @param #FLIGHTCONTROL.ParkingSpot spot
|
|
-- @param #number delay Delay in seconds.
|
|
function FLIGHTCONTROL:RemoveParkingGuard(spot, delay)
|
|
|
|
if delay and delay>0 then
|
|
self:ScheduleOnce(delay, FLIGHTCONTROL.RemoveParkingGuard, self, spot)
|
|
else
|
|
|
|
if spot.ParkingGuard then
|
|
spot.ParkingGuard:Destroy()
|
|
spot.ParkingGuard=nil
|
|
end
|
|
|
|
end
|
|
|
|
end
|
|
|
|
|
|
--- Get coordinate of the airbase.
|
|
-- @param #FLIGHTCONTROL self
|
|
-- @return Core.Point#COORDINATE Coordinate of the airbase.
|
|
function FLIGHTCONTROL:GetCoordinate()
|
|
return self.airbase:GetCoordinate()
|
|
end
|
|
|
|
--- Get coalition of the airbase.
|
|
-- @param #FLIGHTCONTROL self
|
|
-- @return #number Coalition ID.
|
|
function FLIGHTCONTROL:GetCoalition()
|
|
return self.airbase:GetCoalition()
|
|
end
|
|
|
|
--- Get country of the airbase.
|
|
-- @param #FLIGHTCONTROL self
|
|
-- @return #number Country ID.
|
|
function FLIGHTCONTROL:GetCountry()
|
|
return self.airbase:GetCountry()
|
|
end
|
|
|
|
--- Returns the unit of a player and the player name. If the unit does not belong to a player, nil is returned.
|
|
-- @param #FLIGHTCONTROL self
|
|
-- @param #string unitName Name of the player unit.
|
|
-- @return Wrapper.Unit#UNIT Unit of player or nil.
|
|
-- @return #string Name of the player or nil.
|
|
function FLIGHTCONTROL:_GetPlayerUnitAndName(unitName)
|
|
|
|
if unitName then
|
|
|
|
-- Get DCS unit from its name.
|
|
local DCSunit=Unit.getByName(unitName)
|
|
|
|
if DCSunit then
|
|
|
|
-- Get player name if any.
|
|
local playername=DCSunit:getPlayerName()
|
|
|
|
-- Unit object.
|
|
local unit=UNIT:Find(DCSunit)
|
|
|
|
-- Check if enverything is there.
|
|
if DCSunit and unit and playername then
|
|
self:T(self.lid..string.format("Found DCS unit %s with player %s", tostring(unitName), tostring(playername)))
|
|
return unit, playername
|
|
end
|
|
|
|
end
|
|
|
|
end
|
|
|
|
-- Return nil if we could not find a player.
|
|
return nil,nil
|
|
end
|
|
|
|
|
|
-------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------
|
|
-------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------
|
|
-------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------
|