Split TUM.supportWingmen into TUM.wingmen, TUM.wingmenMenu and TUM.wingmenTasking

This commit is contained in:
Ambroise Garel 2025-07-25 15:24:04 +02:00
parent 4699a6ee47
commit 99582fee91
7 changed files with 542 additions and 519 deletions

View File

@ -113,7 +113,7 @@ do
TUM.objectives.onEvent(event)
TUM.playerScore.onEvent(event)
TUM.mission.onEvent(event)
TUM.supportWingmen.onEvent(event)
TUM.wingmen.onEvent(event)
TUM.mizCleaner.onEvent(event) -- Must be last, can remove units which could cause bugs in other onEvent methods
end
@ -141,12 +141,12 @@ do
if TUM.mission.onClockTick() then return nextTickTime end
elseif clockTick % 4 == 1 then
if TUM.airForce.onClockTick(TUM.settings.getPlayerCoalition()) then return nextTickTime end
if TUM.supportWingmen.onClockTick() then return nextTickTime end
if TUM.wingmen.onClockTick() then return nextTickTime end
elseif clockTick % 4 == 2 then
if TUM.supportAWACS.onClockTick() then return nextTickTime end
else
if TUM.airForce.onClockTick(TUM.settings.getEnemyCoalition()) then return nextTickTime end
if TUM.supportWingmen.onClockTick() then return nextTickTime end
if TUM.wingmen.onClockTick() then return nextTickTime end
end
return nextTickTime

View File

@ -29,7 +29,7 @@ do
local function closeMission(removeAllUnits)
if removeAllUnits then
TUM.supportWingmen.removeAll()
TUM.wingmen.removeAll()
TUM.airForce.removeAll()
TUM.ambientWorld.removeAll()
TUM.enemyAirDefense.removeAll()

View File

@ -46,7 +46,7 @@ do
end
end
TUM.supportWingmen.createMenu()
TUM.wingmenMenu.create()
TUM.supportAWACS.createMenu()
if not TUM.settings.getValue(TUM.settings.id.MULTIPLAYER) then -- If not multiplayer, add "show mission score" command

View File

@ -1,514 +0,0 @@
-- ====================================================================================
-- TUM.SUPPORTWINGMEN - HANDLES THE PLAYER'S WINGMEN
-- ====================================================================================
-- ====================================================================================
TUM.supportWingmen = {}
do
TUM.supportWingmen.orderID = {
ORBIT = 1,
REJOIN = 2,
ENGAGE_BANDITS = 3,
}
local CONTACT_REPORT_INTERVAL = 4 -- onClockTick is called twice by minute, so multiply this by 30 seconds (CONTACT_REPORT_INTERVAL = 4 means "every 2 minutes")
local WINGMEN_COUNT = 2 -- TODO: load from setting
local knownContacts = {}
local newContacts = {}
local nextContactReport = CONTACT_REPORT_INTERVAL
local wingmenGroupID = nil
local wingmenUnitID = {}
local function getWingmenGroup()
if TUM.settings.getValue(TUM.settings.id.MULTIPLAYER) then return nil end -- No wingmen in multiplayer
if not wingmenGroupID then return nil end
local wingmenGroup = DCSEx.world.getGroupByID(wingmenGroupID)
if not wingmenGroup then return nil end
if #wingmenGroup:getUnits() == 0 then return nil end
return wingmenGroup
end
local function getWingmanNumberAsWord(index)
if not index then return "Flight" end
return DCSEx.string.toStringNumber(index + 1, true)
end
local function getWingmanCallsign(wingmanIndex)
if wingmanIndex then
if wingmanIndex < 1 or wingmanIndex > #wingmenUnitID then return "Wingman" end
local wingmanUnit = DCSEx.world.getUnitByID(wingmenUnitID[wingmanIndex])
if not wingmanUnit then return "Wingman" end
return wingmanUnit:getCallsign()
end
for i=1,#wingmenUnitID do
local wingmanUnit = DCSEx.world.getUnitByID(wingmenUnitID[i])
if wingmanUnit then return wingmanUnit:getCallsign() end
end
return "Flight"
end
local function isValidTarget(detectedTarget, attributes)
attributes = attributes or {}
if not detectedTarget then return false end
if not detectedTarget.object then return false end
if #attributes == 0 then return true end
for _,a in ipairs(attributes) do
if detectedTarget.object:hasAttribute(a) then
return true
end
end
return false
end
local function getDetectedContacts(wingmanIndex, attributes, groupCategory)
attributes = attributes or {}
local searchPoints = {}
if wingmanIndex then
if wingmanIndex < 1 or wingmanIndex > #wingmenUnitID then return {} end
local u = DCSEx.world.getUnitByID(wingmenUnitID[wingmanIndex])
if not u then return {} end
searchPoints = { DCSEx.math.vec3ToVec2(u:getPoint()) }
else
for i=1,#wingmenUnitID do
local u = DCSEx.world.getUnitByID(wingmenUnitID[i])
if u then
table.insert(searchPoints, DCSEx.math.vec3ToVec2(u:getPoint()))
end
end
if #searchPoints == 0 then return {} end
end
-- Take into account better sensors (radars, TGPs...) in later periods
local detectionRangeMultiplier = 1.0
if TUM.settings.getValue(TUM.settings.id.TIME_PERIOD) == DCSEx.enums.timePeriod.MODERN then
detectionRangeMultiplier = 1.5
elseif TUM.settings.getValue(TUM.settings.id.TIME_PERIOD) == DCSEx.enums.timePeriod.COLD_WAR then
detectionRangeMultiplier = 1.25
end
local knownGroups = {}
local detectedTargets = {}
local allGroups = coalition.getGroups(TUM.settings.getEnemyCoalition(), groupCategory)
for _,g in ipairs(allGroups) do
local gID = g:getID()
if g:isExist() and g:getSize() > 0 and not DCSEx.table.contains(knownGroups, gID) then
local gPos = DCSEx.world.getGroupCenter(g)
local gCateg = Group.getCategory(g)
local specialGroupProperties = nil
local detectionRange = DCSEx.converter.nmToMeters(20 * detectionRangeMultiplier)
if gCateg == Group.Category.AIRPLANE then
detectionRange = DCSEx.converter.nmToMeters(50 * detectionRangeMultiplier)
elseif gCateg == Group.Category.SHIP then
detectionRange = DCSEx.converter.nmToMeters(30 * detectionRangeMultiplier)
elseif gCateg == Group.Category.GROUND then
local allInfantry = true
local airDefenseCount = 0
for _,u in ipairs(g:getUnits()) do
if not u:hasAttribute("Infantry") then allInfantry = false end
if u:hasAttribute("Air Defence") then airDefenseCount = airDefenseCount + 1 end
end
if allInfantry then
detectionRange = detectionRange / 8 -- Infantry is HARD to spot
specialGroupProperties = "Infantry"
elseif airDefenseCount >= g:getSize() / 1.5 then
specialGroupProperties = "Air Defence"
end
end
-- Check if at least one wingman is in detection range
local inRange = false
for _,p in ipairs(searchPoints) do
if DCSEx.math.getDistance2D(gPos, p) <= detectionRange then
inRange = true
break
end
end
if inRange then
table.insert(knownGroups, gID)
if not DCSEx.table.contains(knownContacts) then
table.insert(knownContacts, gID)
table.insert(newContacts, gID)
end
local groupInfo = {
id = gID,
point2 = gPos,
size = g:getSize(),
type = "unknown"
}
if gCateg == Group.Category.AIRPLANE then
groupInfo.type = "aircraft"
elseif gCateg == Group.Category.HELICOPTER then
groupInfo.type = "helicopters"
elseif gCateg == Group.Category.GROUND then
if specialGroupProperties == "Infantry" then
groupInfo.type = "infantry"
elseif specialGroupProperties == "Air Defence" then
groupInfo.type = "air defense"
else
groupInfo.type = "vehicles"
end
elseif gCateg == Group.Category.SHIP then
groupInfo.type = "ships"
elseif gCateg == Group.Category.TRAIN then
groupInfo.type = "trains"
end
table.insert(detectedTargets, groupInfo)
end
end
end
return detectedTargets
end
local function getWingmanController(wingmanIndex)
if not wingmanIndex then
local wingmenGroup = getWingmenGroup()
if not wingmenGroup then return nil end
return wingmenGroup:getController()
end
if wingmanIndex < 1 or wingmanIndex > #wingmenUnitID then return nil end
local wingmanUnit = DCSEx.world.getUnitByID(wingmenUnitID[wingmanIndex])
if not wingmanUnit then return nil end
return wingmanUnit:getController()
end
local function doWingmenCommandOrbit(args)
local player = world:getPlayer()
if not player then return end
TUM.radio.playForAll("playerWingmanOrbit", { getWingmanNumberAsWord(args.index) }, player:getCallsign(), false)
local wingmenCtrl = getWingmanController(args.index)
if not wingmenCtrl then return end
local point = nil
if args.index then
point = DCSEx.math.vec3ToVec2(DCSEx.world.getUnitByID(wingmenUnitID[args.index]):getPoint())
else
point = DCSEx.world.getGroupCenter(getWingmenGroup())
end
local taskTable = {
id = "Orbit",
params = {
pattern = "Circle",
point = point,
-- altitude = player:getPoint().y
}
}
wingmenCtrl:setTask(taskTable)
TUM.radio.playForAll("pilotWingmanOrbit", { getWingmanNumberAsWord(args.index) }, getWingmanCallsign(args.index), true)
end
local function doWingmenCommandRejoin(args)
local player = world:getPlayer()
if not player then return end
TUM.radio.playForAll("playerWingmanRejoin", { getWingmanNumberAsWord(args.index) }, player:getCallsign(), false)
local wingmenCtrl = getWingmanController(args.index)
if not wingmenCtrl then return end
local taskTable = {
id = "Follow",
params = {
groupId = DCSEx.dcs.getObjectIDAsNumber(player:getGroup()),
pos = { x = -100, y = 0, z = -100 },
lastWptIndexFlag = false,
lastWptIndex = -1
}
}
wingmenCtrl:setTask(taskTable)
TUM.radio.playForAll("pilotWingmanRejoin", { getWingmanNumberAsWord(args.index) }, getWingmanCallsign(args.index), true)
end
local function doWingmenCommandEngage(args)
local player = world:getPlayer()
if not player then return end
if args.radioSuffix then
TUM.radio.playForAll("playerWingmanEngage"..args.radioSuffix, { getWingmanNumberAsWord(args.index) }, player:getCallsign(), false)
end
local wingmenCtrl = getWingmanController(args.index)
if not wingmenCtrl then return end
local targets = getDetectedContacts(args.index, args.attributes, args.maxRange)
if not targets or #targets == 0 then
TUM.radio.playForAll("pilotWingmanEngageNoTarget", { getWingmanNumberAsWord(args.index) }, getWingmanCallsign(args.index), true)
return
end
local taskTable = {
id = "AttackGroup",
params = {
groupId = DCSEx.dcs.getObjectIDAsNumber(targetGroup),
}
}
wingmenCtrl:setTask(taskTable)
-- Rejoin back once bandit has been shot down
local rejoinBackTable = {
id = "Follow",
params = {
groupId = DCSEx.dcs.getObjectIDAsNumber(player:getGroup()),
pos = { x = -100, y = 0, z = -100 },
lastWptIndexFlag = false,
lastWptIndex = -1
}
}
wingmenCtrl:pushTask(rejoinBackTable)
if args.radioSuffix then
TUM.radio.playForAll("pilotWingmanEngage"..args.radioSuffix, { getWingmanNumberAsWord(args.index) }, getWingmanCallsign(args.index), true)
end
end
-- NOTE: returns true if a report was radioed, true if not
local function doWingmenCommandReportContacts(args)
args.noPlayerMessage = args.noPlayerMessage or false
local player = world:getPlayer()
if not player then return false end
if not args.noPlayerMessage then
TUM.radio.playForAll("playerWingmanReportTargets", { getWingmanNumberAsWord(args.index) }, player:getCallsign(), false)
end
local detectedTargets = getDetectedContacts(args.index, args.attributes)
if not detectedTargets or #detectedTargets == 0 then
if args.noPlayerMessage then return false end -- No need to bother the player with "I don't have any contacts" spontaneous messages
TUM.radio.playForAll("pilotWingmanReportTargetsNoJoy", { getWingmanNumberAsWord(args.index) }, getWingmanCallsign(args.index), true)
return true
else
local reportText = ""
for _,t in ipairs(detectedTargets) do
reportText = reportText.."\n - "..tostring(t.size).."x "..t.type..", "..DCSEx.dcs.getBRAA(t.point2, DCSEx.math.vec3ToVec2(world:getPlayer():getPoint()), false, false, false).." from you"
end
TUM.radio.playForAll("pilotWingmanReportTargets", { getWingmanNumberAsWord(args.index), reportText }, getWingmanCallsign(args.index), not args.noPlayerMessage)
return true
end
end
local function doWingmenCommandReportStatus(args)
args.noPlayerMessage = args.noPlayerMessage or false
local player = world:getPlayer()
if not player then return end
if not args.noPlayerMessage then
TUM.radio.playForAll("playerWingmanReportStatus", { getWingmanNumberAsWord(args.index) }, player:getCallsign(), false)
end
local wingmenGroup = getWingmenGroup()
if not wingmenGroup then return end
local statusMsg = ""
local atLeastOneUnit = false
for i,u in ipairs(wingmenGroup:getUnits()) do
if not args.index or args.index == i then
atLeastOneUnit = true
if not args.index then statusMsg = statusMsg..u:getCallsign():upper().."\n" end
if u:getLife() >= u:getLife0() then
statusMsg = statusMsg.."- No damage sustained, fuel green"
else
statusMsg = statusMsg.."- Aircraft suffered damage, fuel green"
end
statusMsg = statusMsg.."\n- BRAA from you: "..DCSEx.dcs.getBRAA(u:getPoint(), DCSEx.math.vec3ToVec2(player:getPoint()), true)
statusMsg = statusMsg.."\n- Armament: "
local ammo = u:getAmmo()
if #ammo == 0 then
statusMsg = statusMsg.."None"
else
for j,a in ipairs(ammo) do
if a.count and a.desc and (a.desc.displayName or a.desc.typeName) then
local ammoName = a.desc.displayName or a.desc.typeName
if j > 1 then statusMsg = statusMsg..", " end
statusMsg = statusMsg..tostring(a.count).."x "..ammoName
end
end
end
statusMsg = statusMsg.."\n\n"
end
end
if not atLeastOneUnit then return end
if #statusMsg >= 2 then -- Remove trailing "\n\n"
statusMsg = statusMsg:sub(1, #statusMsg - 2)
end
TUM.radio.playForAll("pilotWingmanReportStatus", { getWingmanNumberAsWord(args.index), statusMsg }, getWingmanCallsign(args.index), not args.noPlayerMessage)
end
local function createWingmen()
TUM.supportWingmen.removeAll() -- Destroy all pre-existing wingmen
TUM.log("Creating wingmen...")
local player = world:getPlayer()
if not player then return end
-- Retrive player unit type
local playerTypeName = player:getTypeName()
if not Library.aircraft[playerTypeName] then
TUM.log("Cannot spawn AI wingmen, aircraft \""..playerTypeName.."\" not found in the database.", TUM.logLevel.WARNING)
return
end
local playerCategory = Group.Category.AIRPLANE
if player:hasAttribute("Helicopters") then playerCategory = Group.Category.HELICOPTER end -- Player is a helicopter
-- Generate wingman callsign
local wingmanCallsign = DCSEx.envMission.getPlayerGroups()[1].units[1].callsign
if type(wingmanCallsign) == "table" then
wingmanCallsign[3] = nil
wingmanCallsign["name"] = wingmanCallsign["name"]:sub(1, #wingmanCallsign["name"] - 1)
if wingmanCallsign[4] then wingmanCallsign[4] = wingmanCallsign["name"] end
else
wingmanCallsign = DCSEx.unitCallsignMaker.getCallsign(playerTypeName)
end
local groupInfo = DCSEx.unitGroupMaker.create(
TUM.settings.getPlayerCoalition(),
playerCategory,
DCSEx.math.randomPointInCircle(DCSEx.math.vec3ToVec2(player:getPoint()), 500, 250),
{ playerTypeName, playerTypeName },
{
altitude = player:getPoint().y + 762.0, -- spawn at player altitude + 2500ft
callsign = wingmanCallsign,
callsignOffset = 1,
silenced = true,
skill = "Excellent",
taskFollow = DCSEx.dcs.getObjectIDAsNumber(player:getGroup()),
unlimitedFuel = true
}
)
if not groupInfo then
TUM.log("Failed to spawn AI wingmen", TUM.logLevel.WARNING)
return
end
wingmenGroupID = groupInfo.groupID
wingmenUnitID = DCSEx.table.deepCopy(groupInfo.unitsID)
knownContacts = {}
newContacts = {}
nextContactReport = CONTACT_REPORT_INTERVAL
TUM.log("Spawned AI wingmen")
TUM.radio.playForAll("pilotWingmanRejoin", { getWingmanNumberAsWord() }, getWingmanCallsign(), true)
end
local function doWingmenCommandGoToMapMarker(args)
local player = world:getPlayer()
if not player then return end
TUM.radio.playForAll("playerWingmanGoToMarker", { getWingmanNumberAsWord(args.index) }, player:getCallsign(), false)
local wingmenCtrl = getWingmanController(args.index)
if not wingmenCtrl then return end
local mapMarker = DCSEx.world.getMarkerByText("wingman")
if not mapMarker then
TUM.radio.playForAll("pilotWingmanGoToMarkerNoMarker", { getWingmanNumberAsWord(args.index) }, getWingmanCallsign(args.index), true)
return
end
local taskTable = {
id = "Orbit",
params = {
pattern = "Circle",
point = DCSEx.math.vec3ToVec2(mapMarker.pos),
}
}
wingmenCtrl:setTask(taskTable)
TUM.radio.playForAll("pilotWingmanGoToMarker", { getWingmanNumberAsWord(args.index) }, getWingmanCallsign(args.index), true)
end
function TUM.supportWingmen.removeAll()
if not wingmenGroupID then return end
TUM.log("Removing all wingmen...")
DCSEx.world.destroyGroupByID(wingmenGroupID)
-- TODO: delayed "returned to base" message from wingmen?
wingmenGroupID = nil
wingmenUnitID = {}
end
local function createWingmanSubMenu(rootPath, wingmanIndex)
local wingmanPath = missionCommands.addSubMenu(getWingmanNumberAsWord(wingmanIndex), rootPath)
missionCommands.addCommand("Engage bandits", wingmanPath, doWingmenCommandEngage, { index = wingmanIndex, attributes = { "Battle airplanes" }, maxRange = 60, radioSuffix = "Bandits" })
missionCommands.addCommand("Any contacts?", wingmanPath, doWingmenCommandReportContacts, { index = wingmanIndex, noPlayerMessage = false })
missionCommands.addCommand("Status report", wingmanPath, doWingmenCommandReportStatus, { index = wingmanIndex, noPlayerMessage = false } )
missionCommands.addCommand("Go to map marker WINGMAN", wingmanPath, doWingmenCommandGoToMapMarker, { index = wingmanIndex } )
missionCommands.addCommand("Orbit at position", wingmanPath, doWingmenCommandOrbit, { index = wingmanIndex })
missionCommands.addCommand("Rejoin", wingmanPath, doWingmenCommandRejoin, { index = wingmanIndex })
end
function TUM.supportWingmen.createMenu()
if TUM.settings.getValue(TUM.settings.id.MULTIPLAYER) then return end -- No wingmen in multiplayer
if WINGMEN_COUNT == 0 then return end
local rootPath = missionCommands.addSubMenu("Wingmen")
createWingmanSubMenu(rootPath, nil)
for i=1,WINGMEN_COUNT do
createWingmanSubMenu(rootPath, i)
end
end
----------------------------------------------------------
-- Called on every mission update tick (every 10-20 seconds)
-- @return True if something was done this tick, false otherwise
----------------------------------------------------------
function TUM.supportWingmen.onClockTick()
if TUM.settings.getValue(TUM.settings.id.MULTIPLAYER) then return false end -- No wingmen in multiplayer
if TUM.mission.getStatus() == TUM.mission.status.NONE then return false end
nextContactReport = nextContactReport - 1
if nextContactReport > 0 then return false end
nextContactReport = CONTACT_REPORT_INTERVAL
return doWingmenCommandReportContacts({ index = nil, noPlayerMessage = true })
end
-------------------------------------
-- Called when an event is raised
-- @param event The DCS World event
-------------------------------------
function TUM.supportWingmen.onEvent(event)
if TUM.settings.getValue(TUM.settings.id.MULTIPLAYER) then return end -- No wingmen in multiplayer
if TUM.mission.getStatus() == TUM.mission.status.NONE then return end
if not event.initiator then return end
if Object.getCategory(event.initiator) ~= Object.Category.UNIT then return end
if not event.initiator:getPlayerName() then return end
if event.id == world.event.S_EVENT_TAKEOFF then -- Create wingmen on takeoff
createWingmen()
elseif event.id == world.event.S_EVENT_LAND then
TUM.supportWingmen.removeAll() -- Remove wingmen on landing
end
end
end

View File

@ -0,0 +1,287 @@
-- ====================================================================================
-- TUM.WINGMEN - HANDLES THE PLAYER'S WINGMEN
-- ====================================================================================
-- ====================================================================================
TUM.wingmen = {}
do
local CONTACT_REPORT_INTERVAL = 4 -- onClockTick is called twice by minute, so multiply this by 30 seconds (CONTACT_REPORT_INTERVAL = 4 means "every 2 minutes")
local DEFAULT_PAYLOAD = "attack" -- Default payload
local WINGMEN_COUNT = 2 -- TODO: load from setting
local knownContacts = {}
local newContacts = {}
local nextContactReport = CONTACT_REPORT_INTERVAL
local wingmenGroupID = nil
local wingmenUnitID = {}
local function getWingmanPayloadForMission()
if TUM.mission.getStatus() == TUM.mission.status.NONE then return DEFAULT_PAYLOAD end
local taskingID = TUM.settings.getValue(TUM.settings.id.TASKING)
if taskingID == DCSEx.enums.taskFamily.ANTISHIP then
return "antiship"
-- elseif taskingID == DCSEx.enums.taskFamily.CAP = 2 then
-- elseif taskingID == DCSEx.enums.taskFamily.CAS = 3 then
elseif taskingID == DCSEx.enums.taskFamily.GROUND_ATTACK then
return "attack"
-- elseif taskingID == DCSEx.enums.taskFamily.HELICOPTER then
-- elseif taskingID == DCSEx.enums.taskFamily.HELO_HUN then
elseif taskingID == DCSEx.enums.taskFamily.INTERCEPTION then
return "cap"
-- elseif taskingID == DCSEx.enums.taskFamily.OCA then
elseif taskingID == DCSEx.enums.taskFamily.SEAD then
return "sead"
elseif taskingID == DCSEx.enums.taskFamily.STRIKE then
return "strike"
end
return DEFAULT_PAYLOAD
end
function TUM.wingmen.create()
TUM.wingmen.removeAll() -- Destroy all pre-existing wingmen
TUM.log("Creating wingmen...")
local player = world:getPlayer()
if not player then return end
-- Retrive player unit type
local playerTypeName = player:getTypeName()
if not Library.aircraft[playerTypeName] then
TUM.log("Cannot spawn AI wingmen, aircraft \""..playerTypeName.."\" not found in the database.", TUM.logLevel.WARNING)
return
end
local playerCategory = Group.Category.AIRPLANE
if player:hasAttribute("Helicopters") then playerCategory = Group.Category.HELICOPTER end -- Player is a helicopter
-- Generate wingman callsign
local wingmanCallsign = DCSEx.envMission.getPlayerGroups()[1].units[1].callsign
if type(wingmanCallsign) == "table" then
wingmanCallsign[3] = nil
wingmanCallsign["name"] = wingmanCallsign["name"]:sub(1, #wingmanCallsign["name"] - 1)
if wingmanCallsign[4] then wingmanCallsign[4] = wingmanCallsign["name"] end
else
wingmanCallsign = DCSEx.unitCallsignMaker.getCallsign(playerTypeName)
end
-- Select proper payload for mission
local groupInfo = DCSEx.unitGroupMaker.create(
TUM.settings.getPlayerCoalition(),
playerCategory,
DCSEx.math.randomPointInCircle(DCSEx.math.vec3ToVec2(player:getPoint()), 500, 250),
{ playerTypeName, playerTypeName },
{
altitude = player:getPoint().y + 762.0, -- spawn at player altitude + 2500ft
callsign = wingmanCallsign,
callsignOffset = 1,
payload = getWingmanPayloadForMission(),
silenced = true,
skill = "Excellent",
taskFollow = DCSEx.dcs.getObjectIDAsNumber(player:getGroup()),
unlimitedFuel = true
}
)
if not groupInfo then
TUM.log("Failed to spawn AI wingmen", TUM.logLevel.WARNING)
return
end
wingmenGroupID = groupInfo.groupID
wingmenUnitID = DCSEx.table.deepCopy(groupInfo.unitsID)
knownContacts = {}
newContacts = {}
nextContactReport = CONTACT_REPORT_INTERVAL
TUM.log("Spawned AI wingmen")
-- Play a "rejoining" radio message to let player know that wingmen are here
TUM.radio.playForAll("pilotWingmanRejoin", { TUM.wingmen.getFirstWingmanNumber() }, TUM.wingmen.getFirstWingmanCallsign(), true)
end
function TUM.wingmen.getContacts(groupCategory)
if TUM.settings.getValue(TUM.settings.id.MULTIPLAYER) then return {} end -- No wingmen in multiplayer
if TUM.mission.getStatus() == TUM.mission.status.NONE then return {} end
if #wingmenUnitID == 0 then return {} end
-- Build a list of all wingmen coordinates, from which the search will take place
local searchPoints = {}
for i=1,#wingmenUnitID do
local u = DCSEx.world.getUnitByID(wingmenUnitID[i])
if u then
table.insert(searchPoints, DCSEx.math.vec3ToVec2(u:getPoint()))
end
end
if #searchPoints == 0 then return {} end
-- Take into account better sensors (radars, TGPs...) in later periods
local detectionRangeMultiplier = 1.0
if TUM.settings.getValue(TUM.settings.id.TIME_PERIOD) == DCSEx.enums.timePeriod.MODERN then
detectionRangeMultiplier = 1.5
elseif TUM.settings.getValue(TUM.settings.id.TIME_PERIOD) == DCSEx.enums.timePeriod.COLD_WAR then
detectionRangeMultiplier = 1.25
end
local knownGroups = {}
local detectedTargets = {}
local allGroups = coalition.getGroups(TUM.settings.getEnemyCoalition(), groupCategory)
for _,g in ipairs(allGroups) do
local gID = g:getID()
if g:isExist() and g:getSize() > 0 and not DCSEx.table.contains(knownGroups, gID) then
local gPos = DCSEx.world.getGroupCenter(g)
local gCateg = Group.getCategory(g)
local specialGroupProperties = nil
local detectionRange = DCSEx.converter.nmToMeters(20 * detectionRangeMultiplier)
if gCateg == Group.Category.AIRPLANE then
detectionRange = DCSEx.converter.nmToMeters(50 * detectionRangeMultiplier)
elseif gCateg == Group.Category.SHIP then
detectionRange = DCSEx.converter.nmToMeters(30 * detectionRangeMultiplier)
elseif gCateg == Group.Category.GROUND then
local allInfantry = true
local airDefenseCount = 0
for _,u in ipairs(g:getUnits()) do
if not u:hasAttribute("Infantry") then allInfantry = false end
if u:hasAttribute("Air Defence") then airDefenseCount = airDefenseCount + 1 end
end
if allInfantry then
detectionRange = detectionRange / 8 -- Infantry is HARD to spot
specialGroupProperties = "Infantry"
elseif airDefenseCount >= g:getSize() / 1.5 then
specialGroupProperties = "Air Defence"
end
end
-- Check if at least one wingman is in detection range
local inRange = false
for _,p in ipairs(searchPoints) do
if DCSEx.math.getDistance2D(gPos, p) <= detectionRange then
inRange = true
break
end
end
if inRange then
table.insert(knownGroups, gID)
if not DCSEx.table.contains(knownContacts) then
table.insert(knownContacts, gID)
table.insert(newContacts, gID)
end
local groupInfo = {
id = gID,
point2 = gPos,
size = g:getSize(),
type = "unknown"
}
if gCateg == Group.Category.AIRPLANE then
groupInfo.type = "aircraft"
elseif gCateg == Group.Category.HELICOPTER then
groupInfo.type = "helicopters"
elseif gCateg == Group.Category.GROUND then
if specialGroupProperties == "Infantry" then
groupInfo.type = "infantry"
elseif specialGroupProperties == "Air Defence" then
groupInfo.type = "air defense"
else
groupInfo.type = "vehicles"
end
elseif gCateg == Group.Category.SHIP then
groupInfo.type = "ships"
elseif gCateg == Group.Category.TRAIN then
groupInfo.type = "trains"
end
table.insert(detectedTargets, groupInfo)
end
end
end
return detectedTargets
end
function TUM.wingmen.getController()
local wingmenGroup = TUM.wingmen.getGroup()
if not wingmenGroup then return nil end
return wingmenGroup:getController()
end
function TUM.wingmen.getFirstWingmanCallsign()
for i=1,#wingmenUnitID do
local wingmanUnit = DCSEx.world.getUnitByID(wingmenUnitID[i])
if wingmanUnit then return wingmanUnit:getCallsign() end
end
return "Flight"
end
function TUM.wingmen.getFirstWingmanNumber()
for i=1,#wingmenUnitID do
local wingmanUnit = DCSEx.world.getUnitByID(wingmenUnitID[i])
if wingmanUnit then return DCSEx.string.toStringNumber(i + 1, true) end
end
return "Two"
end
function TUM.wingmen.getGroup()
if TUM.settings.getValue(TUM.settings.id.MULTIPLAYER) then return nil end -- No wingmen in multiplayer
if not wingmenGroupID then return nil end
local wingmenGroup = DCSEx.world.getGroupByID(wingmenGroupID)
if not wingmenGroup then return nil end
if #wingmenGroup:getUnits() == 0 then return nil end
return wingmenGroup
end
function TUM.wingmen.removeAll()
if not wingmenGroupID then return end
TUM.log("Removing all wingmen...")
DCSEx.world.destroyGroupByID(wingmenGroupID)
wingmenGroupID = nil
wingmenUnitID = {}
end
----------------------------------------------------------
-- Called on every mission update tick (every 10-20 seconds)
-- @return True if something was done this tick, false otherwise
----------------------------------------------------------
function TUM.wingmen.onClockTick()
if TUM.settings.getValue(TUM.settings.id.MULTIPLAYER) then return false end -- No wingmen in multiplayer
if TUM.mission.getStatus() == TUM.mission.status.NONE then return false end
nextContactReport = nextContactReport - 1
if nextContactReport > 0 then return false end
nextContactReport = CONTACT_REPORT_INTERVAL
return TUM.wingmenTasking.commandReportContacts(nil, true, false)
end
-------------------------------------
-- Called when an event is raised
-- @param event The DCS World event
-------------------------------------
function TUM.wingmen.onEvent(event)
if TUM.settings.getValue(TUM.settings.id.MULTIPLAYER) then return end -- No wingmen in multiplayer
if not event.initiator then return end
if Object.getCategory(event.initiator) ~= Object.Category.UNIT then return end
if not event.initiator:getPlayerName() then return end
if event.id == world.event.S_EVENT_TAKEOFF then -- Create wingmen on player takeoff
if TUM.mission.getStatus() == TUM.mission.status.NONE then return end -- Mission not in progress, no wingman needed
TUM.wingmen.create()
elseif event.id == world.event.S_EVENT_LAND then -- Remove wingmen on player landing
TUM.wingmen.removeAll()
end
end
end

View File

@ -0,0 +1,70 @@
-- ====================================================================================
-- TUM.WINGMENMENU - HANDLES THE WINGMEN'S F10 MENU
-- ====================================================================================
-- ====================================================================================
TUM.wingmenMenu = {}
do
local function radioCommandReportContacts()
local player = world:getPlayer()
if not player then return false end
TUM.radio.playForAll("playerWingmanReportContacts", nil, player:getCallsign(), false)
TUM.wingmenTasking.commandReportContacts(nil, false, true)
end
local function radioCommandEngage(attributes)
end
local function radioCommandReportStatus()
local player = world:getPlayer()
if not player then return end
TUM.radio.playForAll("playerWingmanReportStatus", nil, player:getCallsign(), false)
TUM.wingmenTasking.commandReportStatus(true)
end
local function radioCommandGoToMapMarker()
local player = world:getPlayer()
if not player then return end
TUM.radio.playForAll("playerWingmanGoToMarker", nil, player:getCallsign(), false)
TUM.wingmenTasking.commandGoToMapMarker(TUM.wingmenTasking.DEFAULT_MARKER_TEXT, true)
end
local function radioCommandOrbit()
local player = world:getPlayer()
if not player then return end
TUM.radio.playForAll("playerWingmanOrbit", nil, player:getCallsign(), false)
TUM.wingmenTasking.commandOrbit(true)
end
local function radioCommandRejoin()
local player = world:getPlayer()
if not player then return end
TUM.radio.playForAll("playerWingmanRejoin", nil, player:getCallsign(), false)
TUM.wingmenTasking.commandRejoin(nil, true)
end
function TUM.wingmenMenu.create()
if TUM.settings.getValue(TUM.settings.id.MULTIPLAYER) then return end -- No wingmen in multiplayer
-- TODO: if WINGMEN_COUNT == 0 then return end
local rootPath = missionCommands.addSubMenu("Flight")
local engagePath = missionCommands.addSubMenu("Engage", rootPath)
missionCommands.addCommand("Bandits", engagePath, radioCommandEngage, {})
missionCommands.addCommand("Air defense", engagePath, radioCommandEngage, {})
missionCommands.addCommand("Ground targets", engagePath, radioCommandEngage, {})
missionCommands.addCommand("Ships", engagePath, radioCommandEngage, {})
missionCommands.addCommand("Any contacts?", rootPath, radioCommandReportContacts, nil)
missionCommands.addCommand("Status report", rootPath, radioCommandReportStatus, nil)
missionCommands.addCommand("Go to map marker "..TUM.wingmenTasking.DEFAULT_MARKER_TEXT:upper(), rootPath, radioCommandGoToMapMarker, nil)
missionCommands.addCommand("Hold", rootPath, radioCommandOrbit, nil)
missionCommands.addCommand("Rejoin", rootPath, radioCommandRejoin, nil)
end
end

View File

@ -0,0 +1,180 @@
-- ====================================================================================
-- TUM.WINGMENTASKING - HANDLES THE WINGMEN'S TASKING
-- ====================================================================================
-- ====================================================================================
TUM.wingmenTasking = {}
do
TUM.wingmenTasking.DEFAULT_MARKER_TEXT = "wingman"
local mapMarkerMissingWarningAlreadyDisplayed = false -- Was the "map marker missing" warning already displayed during the mission?
local function getOrbitTaskTable(point2)
return {
id = "Orbit",
params = {
altitude = math.max(DCSEx.converter.feetToMeters(10000), world.getPlayer():getPoint().y),
pattern = "Circle",
point = point2,
width = DCSEx.converter.nmToMeters(1.0)
}
}
end
-- local function doWingmenCommandEngage(args)
-- local player = world:getPlayer()
-- if not player then return end
-- if args.radioSuffix then
-- TUM.radio.playForAll("playerWingmanEngage"..args.radioSuffix, { getWingmanNumberAsWord(args.index) }, player:getCallsign(), false)
-- end
-- local wingmenCtrl = getWingmanController(args.index)
-- if not wingmenCtrl then return end
-- local targets = getDetectedContacts(args.index, args.attributes, args.maxRange)
-- if not targets or #targets == 0 then
-- TUM.radio.playForAll("pilotWingmanEngageNoTarget", { getWingmanNumberAsWord(args.index) }, getWingmanCallsign(args.index), true)
-- return
-- end
-- local taskTable = {
-- id = "AttackGroup",
-- params = {
-- groupId = DCSEx.dcs.getObjectIDAsNumber(targetGroup),
-- }
-- }
-- wingmenCtrl:setTask(taskTable)
-- -- Rejoin back once bandit has been shot down
-- local rejoinBackTable = {
-- id = "Follow",
-- params = {
-- groupId = DCSEx.dcs.getObjectIDAsNumber(player:getGroup()),
-- pos = { x = -100, y = 0, z = -100 },
-- lastWptIndexFlag = false,
-- lastWptIndex = -1
-- }
-- }
-- wingmenCtrl:pushTask(rejoinBackTable)
-- if args.radioSuffix then
-- TUM.radio.playForAll("pilotWingmanEngage"..args.radioSuffix, { getWingmanNumberAsWord(args.index) }, getWingmanCallsign(args.index), true)
-- end
-- end
function TUM.wingmenTasking.commandGoToMapMarker(markerText, delayRadioAnswer)
markerText = markerText or TUM.wingmenTasking.DEFAULT_MARKER_TEXT
delayRadioAnswer = delayRadioAnswer or false
if TUM.settings.getValue(TUM.settings.id.MULTIPLAYER) then return end -- No wingmen in multiplayer
local mapMarker = DCSEx.world.getMarkerByText(markerText)
if not mapMarker and not mapMarkerMissingWarningAlreadyDisplayed then
trigger.action.outText("Map marker missing.\nYou must create a marker on the F10 map and set it text to \""..markerText:upper().."\" (without quotes) to communicate coordinates to your wingmen.", 10)
mapMarkerMissingWarningAlreadyDisplayed = true
end
local wingmenCtrl = TUM.wingmen.getController()
if not wingmenCtrl then return end
if not mapMarker then
TUM.radio.playForAll("pilotWingmanGoToMarkerNoMarker", { TUM.wingmen.getFirstWingmanNumber() }, TUM.wingmen.getFirstWingmanCallsign(), true)
return
end
wingmenCtrl:setTask(getOrbitTaskTable(DCSEx.math.vec3ToVec2(mapMarker.pos)))
TUM.radio.playForAll("pilotWingmanGoToMarker", { TUM.wingmen.getFirstWingmanNumber() }, TUM.wingmen.getFirstWingmanCallsign(), true)
end
function TUM.wingmenTasking.commandOrbit(delayRadioAnswer)
delayRadioAnswer = delayRadioAnswer or false
if TUM.settings.getValue(TUM.settings.id.MULTIPLAYER) then return end -- No wingmen in multiplayer
local wingmenCtrl = TUM.wingmen.getController()
if not wingmenCtrl then return end
wingmenCtrl:setTask(getOrbitTaskTable(DCSEx.world.getGroupCenter(TUM.wingmen.getGroup())))
TUM.radio.playForAll("pilotWingmanOrbit", { TUM.wingmen.getFirstWingmanNumber() }, TUM.wingmen.getFirstWingmanCallsign(), delayRadioAnswer)
end
function TUM.wingmenTasking.commandRejoin(formationDistance, delayRadioAnswer)
formationDistance = formationDistance or 800
delayRadioAnswer = delayRadioAnswer or false
if TUM.settings.getValue(TUM.settings.id.MULTIPLAYER) then return end -- No wingmen in multiplayer
local player = world:getPlayer()
if not player then return end
local wingmenCtrl = TUM.wingmen.getController()
if not wingmenCtrl then return end
local taskTable = {
id = "Follow",
params = {
groupId = DCSEx.dcs.getObjectIDAsNumber(player:getGroup()),
lastWptIndexFlag = false,
lastWptIndex = -1,
pos = { x = -formationDistance, y = 0, z = -formationDistance }
}
}
wingmenCtrl:setTask(taskTable)
TUM.radio.playForAll("pilotWingmanRejoin", { TUM.wingmen.getFirstWingmanNumber() }, TUM.wingmen.getFirstWingmanCallsign(), delayRadioAnswer)
end
function TUM.wingmenTasking.commandReportContacts(groupCategory, noReportIfNoContacts, delayRadioAnswer)
delayRadioAnswer = delayRadioAnswer or false
noReportIfNoContacts = noReportIfNoContacts or false
local detectedTargets = TUM.wingmen.getContacts(groupCategory)
if not detectedTargets or #detectedTargets == 0 then
if noReportIfNoContacts then return false end
TUM.radio.playForAll("pilotWingmanReportContactsNoJoy", { TUM.wingmen.getFirstWingmanNumber() }, TUM.wingmen.getFirstWingmanCallsign(), true)
return true
else
local reportText = ""
for _,t in ipairs(detectedTargets) do
reportText = reportText.."\n - "..tostring(t.size).."x "..t.type..", "..DCSEx.dcs.getBRAA(t.point2, DCSEx.math.vec3ToVec2(world:getPlayer():getPoint()), false, false, false).." from you"
end
TUM.radio.playForAll("pilotWingmanReportContacts", { TUM.wingmen.getFirstWingmanNumber(), reportText }, TUM.wingmen.getFirstWingmanCallsign(), delayRadioAnswer)
return true
end
end
function TUM.wingmenTasking.commandReportStatus(delayRadioAnswer)
delayRadioAnswer = delayRadioAnswer or false
local wingmenGroup = TUM.wingmen.getGroup()
if not wingmenGroup then return end
local statusMsg = ""
for i,u in ipairs(wingmenGroup:getUnits()) do
statusMsg = statusMsg..u:getCallsign():upper().."\n"
if u:getLife() >= u:getLife0() then
statusMsg = statusMsg.."- No damage sustained, fuel green"
else
statusMsg = statusMsg.."- Aircraft suffered damage, fuel green"
end
statusMsg = statusMsg.."\n- BRAA from you: "..DCSEx.dcs.getBRAA(u:getPoint(), DCSEx.math.vec3ToVec2(world:getPlayer():getPoint()), true)
statusMsg = statusMsg.."\n- Armament: "
local ammo = u:getAmmo()
if #ammo == 0 then
statusMsg = statusMsg.."None"
else
for j,a in ipairs(ammo) do
if a.count and a.desc and (a.desc.displayName or a.desc.typeName) then
local ammoName = a.desc.displayName or a.desc.typeName
if j > 1 then statusMsg = statusMsg..", " end
statusMsg = statusMsg..tostring(a.count).."x "..ammoName
end
end
end
if i < #wingmenGroup:getUnits() then statusMsg = statusMsg.."\n\n" end
end
TUM.radio.playForAll("pilotWingmanReportStatus", { TUM.wingmen.getFirstWingmanNumber(), statusMsg }, TUM.wingmen.getFirstWingmanCallsign(), delayRadioAnswer)
end
end