Add files via upload

OPS - PlayerTask/PlayerTask - 043 - CTLD and CSAR/PlayerTask - 043 - CTLD and CSAR.lua

@@ -0,0 +1,94 @@
+-------------------------------------------------------------------------
+-- PlayerTask 042 - Caucasus - Test Mission CTLD and CSAR tasks
+-------------------------------------------------------------------------
+-- Documentation
+-- 
+-- PLAYERTASK: https://flightcontrol-master.github.io/MOOSE_DOCS_DEVELOP/Documentation/Ops.PlayerTask.html
+-- 
+-------------------------------------------------------------------------
+-- Join the game master slot initially, and then a helicopter slot after a few
+-- seconds, to allow event capturing to start. Tasking is made available
+-- over the F10 Menu. 
+-- 
+-- Listen to AM 130 or 255 on SRS for messages. Change path below.
+-------------------------------------------------------------------------
+-- Date: October 2022
+-------------------------------------------------------------------------
+
+-- Settings
+_SETTINGS:SetPlayerMenuOn()
+_SETTINGS:SetImperial()
+_SETTINGS:SetA2G_BR()
+
+-- Set up A2G task controller for the blue side named "82nd Airborne"
+local taskmanager = PLAYERTASKCONTROLLER:New("82nd Airborne",coalition.side.BLUE,PLAYERTASKCONTROLLER.Type.A2G)
+
+-- Set the menu to be called Eagle Eye
+taskmanager:SetMenuName("Eagle Eye")
+
+-- Set up using SRS
+local hereSRSPath = "C:\\Program Files\\DCS-SimpleRadio-Standalone" -- location of the SRS installation folder, not the double \
+local hereSRSPort = 5002 -- SRS server listening to port 5002
+
+-- Set controller to use radio 130 and 255 AM, female voice, GB english, use "Microsoft Hazel" as voice pack (must be installed on your machine), volume 70%.
+taskmanager:SetSRS({130,255},{radio.modulation.AM,radio.modulation.AM},hereSRSPath,"female","en-GB",hereSRSPort,"Microsoft Hazel Desktop",0.7)
+
+-- Controller will announce itself after 60 seconds, on these two broadcast frequencies, when a new player joins
+taskmanager:SetSRSBroadcast({127.5,305},{radio.modulation.AM,radio.modulation.AM})
+
+-- create a CTLD instance
+local myCTLD = CTLD:New(coalition.side.BLUE,{"Air America"},"82nd Transport Wing")
+myCTLD:AddCratesCargo("Humvee",{"Humvee"},CTLD_CARGO.Enum.VEHICLE,1,50)
+myCTLD:AddTroopsCargo("Platoon",{"Infantry6"},CTLD_CARGO.Enum.TROOPS,6,80)
+myCTLD:AddCTLDZoneFromAirbase(AIRBASE.Caucasus.Batumi,CTLD.CargoZoneType.LOAD,SMOKECOLOR.Red,true,false)
+myCTLD:AddCTLDZone("CTLD Drop Zone",CTLD.CargoZoneType.DROP,SMOKECOLOR.Green,true,true)
+myCTLD.forcehoverload = false
+myCTLD:__Start(2)
+
+-- create a CSAR instance
+local myCSAR = CSAR:New(coalition.side.BLUE,"Downed Pilot","82nd Transport Wing")
+myCSAR.csarPrefix = { "Air America", "helicargo", "MEDEVAC"}
+myCSAR.pilotmustopendoors = true 
+myCSAR:__Start(2)
+
+-- create a CTLD task and assign it
+local newtask = PLAYERTASK:New(AUFTRAG.Type.CTLD,ZONE:FindByName("CTLD Drop Zone"),false,0,"Combat Transport")
+newtask:SetSubType("CratesBuild") -- this type name is the FSM event in CTLD we'll need to decide if the build was successful
+newtask:SetMenuName("Humvee Transport") -- name for the menu entry
+newtask:AddFreetext("Pick up crates for a Humvee and build a Humvee at the CTLD Drop Zone!")
+-- Assign
+taskmanager:AddPlayerTaskToQueue(newtask) -- add to task controller
+myCTLD:AddPlayerTask(newtask) -- add to CTLD instance
+
+-- create two CSAR tasks and assign them - this will be an chained task
+local csartask = PLAYERTASK:New(AUFTRAG.Type.CSAR,ZONE:FindByName("CSAR Rescue Zone"),false,0,"Rescue Pilot")
+csartask:SetSubType("Boarded") -- this type name is the FSM event in CSAR we'll need to decide the build was successful
+csartask:SetMenuName("Rescue Pilot") -- name for the menu entry
+csartask:AddFreetext("Pick up the downed pilot 'Moose' from the CSAR Rescue Zone!") -- this will be the text in the Task Info
+csartask.CSARPilotName = "Moose" -- this is the pilot we want to save
+-- Assign
+taskmanager:AddPlayerTaskToQueue(csartask) -- add to task controller
+myCSAR:AddPlayerTask(csartask) -- add to CTLD instance
+
+local csartask2 = PLAYERTASK:New(AUFTRAG.Type.CSAR,ZONE:FindByName("CSAR Drop Zone"),false,0,"Deliver Rescued Pilot")
+csartask2:SetSubType("Rescued") -- this type name is the FSM event in CSAR we'll need to decide the build was successful
+csartask2:SetMenuName("Deliver Rescued Pilot") -- name for the menu entry
+csartask2:AddFreetext("Deliver rescued pilots to nearest AFB, FARP or MASH!") -- this will be the text in the Task Info
+csartask2.CSARPilotName = "Moose" -- this is the pilot we want to save
+-- make this a follow-up task to csartask
+csartask:AddNextTaskAfterSuccess(csartask2) -- make csartask2 the task assigned to same pilots when csartask is successfully done
+-- assign
+taskmanager:AddPlayerTaskToQueue(csartask2) -- add to task controller
+myCSAR:AddPlayerTask(csartask2) -- add to CTLD instance
+
+-- drop a pilot in the field after 1 minute
+local function Csars()
+  myCSAR:SpawnCSARAtZone("CSAR Rescue Zone",coalition.side.BLUE,"Moose",true,false,"Moose",nil,true)
+end
+
+local timer=TIMER:New(Csars)
+timer:Start(60)
+
+
+
+

OPS - PlayerTask/PlayerTask - 043 - CTLD and CSAR/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 ..

OPS - PlayerTask/PlayerTask - 043 - CTLD and CSAR/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" *