MOOSE demonstration missions [skip ci]

MOP-100 - MARKEROPS_BASE/MOP-100 - MARKEROPS_BASE - Basic Demo.lua

@@ -0,0 +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/pack.ps1

@@ -0,0 +1,10 @@
+$dir = split-path -parent $MyInvocation.MyCommand.Definition
+cd $dir
+$file = Split-Path $dir -leaf
+
+$dir
+$file
+
+cd "_unpacked"
+. 7z a -r -y -tzip "..\$file.miz" *
+cd ..

MOP-100 - MARKEROPS_BASE/unpack.ps1

@@ -0,0 +1,7 @@
+$dir = split-path -parent $MyInvocation.MyCommand.Definition
+cd $dir
+$file = Split-Path $dir -leaf
+Remove-Item .\_unpacked -Force -Recurse
+md "_unpacked"
+cd "_unpacked"
+. 7z x -r -y "..\$file.miz" *