Merge pull request #22 from FlightControl-Master/Applevangelist-MOP-1

Add files via upload
This commit is contained in:
Applevangelist 2022-03-16 09:24:00 +01:00 committed by GitHub
commit cea4b662df
No known key found for this signature in database
GPG Key ID: 4AEE18F83AFDEB23
2 changed files with 86 additions and 86 deletions

View File

@ -1,86 +1,86 @@
-------------------------------------------------------------------------
-- MOP-100 - MARKEROPS_BASE - Basic Demo
-------------------------------------------------------------------------
-- Documentation
--
-- MARKEROPS_BASE: https://flightcontrol-master.github.io/MOOSE_DOCS_DEVELOP/Documentation/Core.MarkerOps_Base.html
--
-------------------------------------------------------------------------
-- On the F10, call a tanker to start from the carrier. It will fly to
-- an initial zone. Set a marker on the F10 map with keyword "TankerDemo".
-- The Tanker will fly there. Set a marker on the F10 map with keywords
-- "TankerDemo RTB". The tanke will RTB to the carrier.
-------------------------------------------------------------------------
-- Date: May 2021
-------------------------------------------------------------------------
-- globals
mytanker = nil
tankergroup = nil
TankerAuftrag = nil
function menucalltanker()
if not mytanker then
-- new MARKEROPS_BASE object
mytanker = MARKEROPS_BASE:New("TankerDemo",{"RTB"}) -- Core.MarkerOps_Base#MARKEROPS_BASE
-- start FlightGroup
tankergroup = FLIGHTGROUP:New("Tanker")
tankergroup:SetHomebase(AIRBASE:FindByName("Truman"))
tankergroup:SetDefaultRadio(245,"AM",false)
tankergroup:SetDespawnAfterLanding()
tankergroup:SwitchTACAN(45, "TKR", 1, "X")
tankergroup:SetDefaultCallsign(CALLSIGN.Tanker.Texaco,1)
-- Mission
local InitialHold = ZONE:New("Initial Hold"):GetCoordinate()
TankerAuftrag = AUFTRAG:NewTANKER(InitialHold,18000,UTILS.KnotsToAltKIAS(220,18000),90,20,0)
TankerAuftrag:SetMissionRange(500)
tankergroup:AddMission(TankerAuftrag)
else
local status = tankergroup:GetState()
local m = MESSAGE:New(string.format("Tanker %s ops in status: %s", mytanker.Tag, status),10,"Info",true):ToAll()
end
-- Handler function
local function Handler(Keywords,Coord)
local MustRTB = false
for _,_word in pairs (Keywords) do
if string.lower(_word) == "rtb" then
MustRTB = true
end
end
-- cancel current Auftrag
TankerAuftrag:Cancel()
-- check if we need to RTB
if MustRTB then
tankergroup:RTB(AIRBASE:FindByName("Truman"))
else
-- no, fly to coordinate of marker
local auftrag = AUFTRAG:NewTANKER(Coord,18000,UTILS.KnotsToAltKIAS(220,18000),90,20,0)
auftrag:SetMissionRange(500)
tankergroup:AddMission(auftrag)
TankerAuftrag = auftrag
end
end
-- Event functions
function mytanker:OnAfterMarkAdded(From,Event,To,Text,Keywords,Coord)
local m = MESSAGE:New(string.format("Tanker %s Mark Added.", self.Tag),10,"Info",true):ToAll()
Handler(Keywords,Coord)
end
function mytanker:OnAfterMarkChanged(From,Event,To,Text,Keywords,Coord)
local m = MESSAGE:New(string.format("Tanker %s Mark Changed.", self.Tag),10,"Info",true):ToAll()
Handler(Keywords,Coord)
end
function mytanker:OnAfterMarkDeleted(From,Event,To)
local m = MESSAGE:New(string.format("Tanker %s Mark Deleted.", self.Tag),10,"Info",true):ToAll()
end
end
MenuTop = MENU_COALITION:New( coalition.side.BLUE,"Call Tanker")
MenuTanker = MENU_COALITION_COMMAND:New(coalition.side.BLUE,"Start Tanker",MenuTop,menucalltanker)
-------------------------------------------------------------------------
-- MOP-100 - MARKEROPS_BASE - Basic Demo
-------------------------------------------------------------------------
-- Documentation
--
-- MARKEROPS_BASE: https://flightcontrol-master.github.io/MOOSE_DOCS_DEVELOP/Documentation/Core.MarkerOps_Base.html
--
-------------------------------------------------------------------------
-- On the radio menu, call a tanker to start from the carrier. It will fly to
-- an initial zone. Set a marker on the F10 map with keyword "TankerDemo".
-- The Tanker will fly there. Set a marker on the F10 map with keywords
-- "TankerDemo RTB". The tanker will RTB to the carrier.
-------------------------------------------------------------------------
-- Date: May 2021
-------------------------------------------------------------------------
-- globals
mytanker = nil
tankergroup = nil
TankerAuftrag = nil
function menucalltanker()
if not mytanker then
-- new MARKEROPS_BASE object
mytanker = MARKEROPS_BASE:New("TankerDemo",{"RTB"}) -- Core.MarkerOps_Base#MARKEROPS_BASE
-- start FlightGroup
tankergroup = FLIGHTGROUP:New("Tanker")
tankergroup:SetHomebase(AIRBASE:FindByName("Truman"))
tankergroup:SetDefaultRadio(245,"AM",false)
tankergroup:SetDespawnAfterLanding()
tankergroup:SwitchTACAN(45, "TKR", 1, "X")
tankergroup:SetDefaultCallsign(CALLSIGN.Tanker.Texaco,1)
-- Mission
local InitialHold = ZONE:New("Initial Hold"):GetCoordinate()
TankerAuftrag = AUFTRAG:NewTANKER(InitialHold,18000,UTILS.KnotsToAltKIAS(220,18000),90,20,0)
TankerAuftrag:SetMissionRange(500)
tankergroup:AddMission(TankerAuftrag)
else
local status = tankergroup:GetState()
local m = MESSAGE:New(string.format("Tanker %s ops in status: %s", mytanker.Tag, status),10,"Info",true):ToAll()
end
-- Handler function
local function Handler(Keywords,Coord)
local MustRTB = false
for _,_word in pairs (Keywords) do
if string.lower(_word) == "rtb" then
MustRTB = true
end
end
-- cancel current Auftrag
TankerAuftrag:Cancel()
-- check if we need to RTB
if MustRTB then
tankergroup:RTB(AIRBASE:FindByName("Truman"))
else
-- no, fly to coordinate of marker
local auftrag = AUFTRAG:NewTANKER(Coord,18000,UTILS.KnotsToAltKIAS(220,18000),90,20,0)
auftrag:SetMissionRange(500)
tankergroup:AddMission(auftrag)
TankerAuftrag = auftrag
end
end
-- Event functions
function mytanker:OnAfterMarkAdded(From,Event,To,Text,Keywords,Coord)
local m = MESSAGE:New(string.format("Tanker %s Mark Added.", self.Tag),10,"Info",true):ToAll()
Handler(Keywords,Coord)
end
function mytanker:OnAfterMarkChanged(From,Event,To,Text,Keywords,Coord)
local m = MESSAGE:New(string.format("Tanker %s Mark Changed.", self.Tag),10,"Info",true):ToAll()
Handler(Keywords,Coord)
end
function mytanker:OnAfterMarkDeleted(From,Event,To)
local m = MESSAGE:New(string.format("Tanker %s Mark Deleted.", self.Tag),10,"Info",true):ToAll()
end
end
MenuTop = MENU_COALITION:New( coalition.side.BLUE,"Call Tanker")
MenuTanker = MENU_COALITION_COMMAND:New(coalition.side.BLUE,"Start Tanker",MenuTop,menucalltanker)