weyne/DCS-CTLD
1
0
Fork 0
mirror of https://github.com/ciribob/DCS-CTLD.git synced 2025-08-15 06:17:22 +00:00
Code Issues Packages Projects Releases Wiki Activity

Added new Functions - Release 1.36

Browse Source 
Added ctld.loadTransport Mission Editor Function
Added ctld.countDroppedGroupsInZone(_zone, _blueFlag, _redFlag)
Added ctld.countDroppedUnitsInZone(_zone, _blueFlag, _redFlag)
This commit is contained in:
Ciaran Fisher
2015-11-01 13:45:29 +00:00
parent a840b9e3af
commit 3335429dfc
4 changed files with 188 additions and 99 deletions
Download Patch File Download Diff File Expand all files Collapse all files

271
CTLD.lua
View File

@@ -4,7 +4,7 @@
Allows Huey, Mi-8 and C130 to transport troops internally and Helicopters to transport Logistic / Vehicle units to the field via sling-loads Allows Huey, Mi-8 and C130 to transport troops internally and Helicopters to transport Logistic / Vehicle units to the field via sling-loads
without requiring external mods. without requiring external mods.
Supports some of the original CTTS functionality such as AI auto troop load and unload as well as group spawning and preloading of troops into units. Supports all of the original CTTS functionality such as AI auto troop load and unload as well as group spawning and preloading of troops into units.
Supports deployment of Auto Lasing JTAC to the field Supports deployment of Auto Lasing JTAC to the field
@@ -13,10 +13,9 @@
Contributors: Contributors:
- Steggles - https://github.com/Bob7heBuilder - Steggles - https://github.com/Bob7heBuilder
Version: 1.35 - 27/10/2015 - Added ctld.unloadTransport Mission Editor Function Version: 1.36 -01/11/2015 - Added ctld.loadTransport Mission Editor Function
- Added flag option to the pickup zones - Added ctld.countDroppedGroupsInZone(_zone, _blueFlag, _redFlag)
- Added ctld.changeRemainingGroupsForPickupZone Editor Function - Added ctld.countDroppedUnitsInZone(_zone, _blueFlag, _redFlag)
- Added ability to use a SHIP as a pickup zone, just add the Ship UNIT NAME to the ctld.pickupZone list
]] ]]
@@ -46,7 +45,7 @@ ctld.fastRopeMaximumHeight = 18.28 -- in meters which is 60 ft max fast rope (no
ctld.vehiclesForTransportRED = { "BRDM-2", "BTR_D" } -- vehicles to load onto Il-76 - Alternatives {"Strela-1 9P31","BMP-1"} ctld.vehiclesForTransportRED = { "BRDM-2", "BTR_D" } -- vehicles to load onto Il-76 - Alternatives {"Strela-1 9P31","BMP-1"}
ctld.vehiclesForTransportBLUE = { "M1045 HMMWV TOW", "M1043 HMMWV Armament" } -- vehicles to load onto c130 - Alternatives {"M1128 Stryker MGS","M1097 Avenger"} ctld.vehiclesForTransportBLUE = { "M1045 HMMWV TOW", "M1043 HMMWV Armament" } -- vehicles to load onto c130 - Alternatives {"M1128 Stryker MGS","M1097 Avenger"}
ctld.hawkLaunchers = 3 -- controls how many launchers to add to the hawk when its spawned. ctld.hawkLaunchers = 3 -- controls how many launchers to add to the hawk/kub/buk when its spawned.
ctld.spawnRPGWithCoalition = true --spawns a friendly RPG unit with Coalition forces ctld.spawnRPGWithCoalition = true --spawns a friendly RPG unit with Coalition forces
ctld.spawnStinger = false -- spawns a stinger / igla soldier with a group of 6 or more soldiers! ctld.spawnStinger = false -- spawns a stinger / igla soldier with a group of 6 or more soldiers!
@@ -579,6 +578,107 @@ function ctld.createExtractZone(_zone, _flagNumber, _smoke)
end end
end end
-- CONTINUOUS TRIGGER FUNCTION
-- This function will count the current number of extractable RED and BLUE
-- GROUPS in a zone and store the values in two flags
-- A group is only counted as being in a zone when the leader of that group
-- is in the zone
-- Use: ctld.countDroppedGroupsInZone("Zone Name", flagBlue, flagRed)
function ctld.countDroppedGroupsInZone(_zone, _blueFlag, _redFlag)
local _triggerZone = trigger.misc.getZone(_zone) -- trigger to use as reference position
if _triggerZone == nil then
trigger.action.outText("CTLD.lua ERROR: Cant find zone called " .. _zone, 10)
return
end
local _zonePos = mist.utils.zoneToVec3(_zone)
local _redCount = 0;
local _blueCount = 0;
local _allGroups = {ctld.droppedTroopsRED,ctld.droppedTroopsBLUE,ctld.droppedVehiclesRED,ctld.droppedVehiclesBLUE}
for _, _extractGroups in pairs(_allGroups) do
for _,_groupName in pairs(_extractGroups) do
local _groupUnits = ctld.getGroup(_groupName)
if #_groupUnits > 0 then
local _zonePos = mist.utils.zoneToVec3(_zone)
local _dist = ctld.getDistance(_groupUnits[1]:getPoint(), _zonePos)
if _dist <= _triggerZone.radius then
if (_groupUnits[1]:getCoalition() == 1) then
_redCount = _redCount + 1;
else
_blueCount = _blueCount + 1;
end
end
end
end
end
--set flag stuff
trigger.action.setUserFlag(_blueFlag, _blueCount)
trigger.action.setUserFlag(_redFlag, _redCount)
-- env.info("Groups in zone ".._blueCount.." ".._redCount)
end
-- CONTINUOUS TRIGGER FUNCTION
-- This function will count the current number of extractable RED and BLUE
-- UNITS in a zone and store the values in two flags
-- Use: ctld.countDroppedUnitsInZone("Zone Name", flagBlue, flagRed)
function ctld.countDroppedUnitsInZone(_zone, _blueFlag, _redFlag)
local _triggerZone = trigger.misc.getZone(_zone) -- trigger to use as reference position
if _triggerZone == nil then
trigger.action.outText("CTLD.lua ERROR: Cant find zone called " .. _zone, 10)
return
end
local _zonePos = mist.utils.zoneToVec3(_zone)
local _redCount = 0;
local _blueCount = 0;
local _allGroups = {ctld.droppedTroopsRED,ctld.droppedTroopsBLUE,ctld.droppedVehiclesRED,ctld.droppedVehiclesBLUE}
for _, _extractGroups in pairs(_allGroups) do
for _,_groupName in pairs(_extractGroups) do
local _groupUnits = ctld.getGroup(_groupName)
if #_groupUnits > 0 then
local _zonePos = mist.utils.zoneToVec3(_zone)
for _,_unit in pairs(_groupUnits) do
local _dist = ctld.getDistance(_unit:getPoint(), _zonePos)
if _dist <= _triggerZone.radius then
if (_unit:getCoalition() == 1) then
_redCount = _redCount + 1;
else
_blueCount = _blueCount + 1;
end
end
end
end
end
end
--set flag stuff
trigger.action.setUserFlag(_blueFlag, _blueCount)
trigger.action.setUserFlag(_redFlag, _redCount)
-- env.info("Units in zone ".._blueCount.." ".._redCount)
end
-- Creates a radio beacon on a random UHF - VHF and HF/FM frequency for homing -- Creates a radio beacon on a random UHF - VHF and HF/FM frequency for homing
-- This WILL NOT WORK if you dont add beacon.ogg and beaconsilent.ogg to the mission!!! -- This WILL NOT WORK if you dont add beacon.ogg and beaconsilent.ogg to the mission!!!
-- e.g. ctld.createRadioBeaconAtZone("beaconZone","red", 1440,"Waypoint 1") will create a beacon at trigger zone "beaconZone" for the Red side -- e.g. ctld.createRadioBeaconAtZone("beaconZone","red", 1440,"Waypoint 1") will create a beacon at trigger zone "beaconZone" for the Red side
@@ -757,7 +857,7 @@ function ctld.unloadInProximityToEnemy(_unitName,_distance)
if _nearestEnemy ~= nil then if _nearestEnemy ~= nil then
if ctld.troopsOnboard(_unit, true) then if ctld.troopsOnboard(_unit, true) then
ctld.deployTroops(_unit, true) ctld.deployTroops(_unit, true)
return true return true
end end
@@ -784,16 +884,33 @@ function ctld.unloadTransport(_unitName)
if _unit ~= nil then if _unit ~= nil then
if ctld.troopsOnboard(_unit, true) then if ctld.troopsOnboard(_unit, true) then
ctld.deployTroops(_unit, true) ctld.loadUnloadTroops({_unitName,true,"unload"})
end end
if ctld.unitCanCarryVehicles(_unit) and ctld.troopsOnboard(_unit, false) then if ctld.unitCanCarryVehicles(_unit) and ctld.troopsOnboard(_unit, false) then
ctld.deployTroops(_unit, false) ctld.loadUnloadTroops({_unitName,false,"unload"})
end end
end end
end end
-- Loads Troops and Vehicles from a zone or picks up nearby troops or vehicles
function ctld.loadTransport(_unitName)
local _unit = ctld.getTransportUnit(_unitName)
if _unit ~= nil then
ctld.loadUnloadTroops({_unitName,true,"load"})
if ctld.unitCanCarryVehicles(_unit) then
ctld.loadUnloadTroops({_unitName,false,"load"})
end
end
end
-- *************************************************************** -- ***************************************************************
-- **************** BE CAREFUL BELOW HERE ************************ -- **************** BE CAREFUL BELOW HERE ************************
-- *************************************************************** -- ***************************************************************
@@ -1384,6 +1501,7 @@ function ctld.loadUnloadTroops(_args)
local _heli = ctld.getTransportUnit(_args[1]) local _heli = ctld.getTransportUnit(_args[1])
local _troops = _args[2] local _troops = _args[2]
local _mode = _args[3] or ""
if _heli == nil then if _heli == nil then
return return
@@ -1391,27 +1509,22 @@ function ctld.loadUnloadTroops(_args)
local _zone = ctld.inPickupZone(_heli) local _zone = ctld.inPickupZone(_heli)
-- first check for extractable troops regardless of if we're in a zone or not if not ctld.troopsOnboard(_heli, _troops) and (_mode == "load" or _mode == "") then
if not ctld.troopsOnboard(_heli, _troops) then
local _extract local _extract
-- first check for extractable troops regardless of if we're in a zone or not
if _troops then if _troops then
if _heli:getCoalition() == 1 then if _heli:getCoalition() == 1 then
_extract = ctld.findNearestGroup(_heli, ctld.droppedTroopsRED) _extract = ctld.findNearestGroup(_heli, ctld.droppedTroopsRED)
else else
_extract = ctld.findNearestGroup(_heli, ctld.droppedTroopsBLUE) _extract = ctld.findNearestGroup(_heli, ctld.droppedTroopsBLUE)
end end
else else
if _heli:getCoalition() == 1 then if _heli:getCoalition() == 1 then
_extract = ctld.findNearestGroup(_heli, ctld.droppedVehiclesRED) _extract = ctld.findNearestGroup(_heli, ctld.droppedVehiclesRED)
else else
_extract = ctld.findNearestGroup(_heli, ctld.droppedVehiclesBLUE) _extract = ctld.findNearestGroup(_heli, ctld.droppedVehiclesBLUE)
end end
end end
@@ -1421,43 +1534,45 @@ function ctld.loadUnloadTroops(_args)
ctld.extractTroops(_heli, _troops) ctld.extractTroops(_heli, _troops)
return -- stop return -- stop
elseif _zone.inZone == true then
if _zone.limit - 1 >= 0 then
-- decrease zone counter by 1
ctld.updateZoneCounter(_zone.index, -1)
ctld.loadTroops(_heli, _troops)
else
ctld.displayMessageToGroup(_heli, "This area has no more reinforcements available!", 20)
end
else
-- search for nearest troops to pickup
ctld.extractTroops(_heli, _troops)
end
elseif ( _mode == "unload" or _mode == "") then -- dont unload if we just want to force loading
-- troops must be onboard to get here
if _zone.inZone == true then
if _troops then
ctld.displayMessageToGroup(_heli, "Dropped troops back to base", 20)
ctld.inTransitTroops[_heli:getName()].troops = nil
else
ctld.displayMessageToGroup(_heli, "Dropped vehicles back to base", 20)
ctld.inTransitTroops[_heli:getName()].vehicles = nil
end
-- increase zone counter by 1
ctld.updateZoneCounter(_zone.index, 1)
elseif _zone.inZone == false and ctld.troopsOnboard(_heli, _troops) then
ctld.deployTroops(_heli, _troops)
end end
end end
if _zone.inZone == true and ctld.troopsOnboard(_heli, _troops) then
if _troops then
ctld.displayMessageToGroup(_heli, "Dropped troops back to base", 20)
ctld.inTransitTroops[_heli:getName()].troops = nil
else
ctld.displayMessageToGroup(_heli, "Dropped vehicles back to base", 20)
ctld.inTransitTroops[_heli:getName()].vehicles = nil
end
-- increase zone counter by 1
ctld.updateZoneCounter(_zone.index, 1)
elseif _zone.inZone == false and ctld.troopsOnboard(_heli, _troops) then
ctld.deployTroops(_heli, _troops)
elseif _zone.inZone == true and not ctld.troopsOnboard(_heli, _troops) then
if _zone.limit - 1 >= 0 then
-- decrease zone counter by 1
ctld.updateZoneCounter(_zone.index, -1)
ctld.loadTroops(_heli, _troops)
else
ctld.displayMessageToGroup(_heli, "This area has no more reinforcements available!", 20)
end
else
-- search for nearest troops to pickup
ctld.extractTroops(_heli, _troops)
end
end end
function ctld.extractTroops(_heli, _troops) function ctld.extractTroops(_heli, _troops)
@@ -3532,70 +3647,28 @@ function ctld.checkAIStatus()
local _unit = ctld.getTransportUnit(_unitName) local _unit = ctld.getTransportUnit(_unitName)
-- no player name means AI!
if _unit ~= nil and _unit:getPlayerName() == nil then if _unit ~= nil and _unit:getPlayerName() == nil then
-- no player name means AI!
local _zone = ctld.inPickupZone(_unit) local _zone = ctld.inPickupZone(_unit)
if _zone.inZone == true and not ctld.troopsOnboard(_unit, true) then if _zone.inZone == true and not ctld.troopsOnboard(_unit, true) then
-- first check for extractable troop in the pickup zone ctld.loadUnloadTroops({_unitName,true,"load"})
local _extract
if _unit:getCoalition() == 1 then
_extract = ctld.findNearestGroup(_unit, ctld.droppedTroopsRED)
else
_extract = ctld.findNearestGroup(_unit, ctld.droppedTroopsBLUE)
end
if _extract ~= nil then
-- search for nearest troops to pickup
ctld.extractTroops(_unit, true)
else
--only allow if zone has units
if _zone.limit - 1 >= 0 then
ctld.updateZoneCounter(_zone.index, -1)
ctld.loadTroops(_unit, true)
end
end
elseif ctld.inDropoffZone(_unit) and ctld.troopsOnboard(_unit, true) then elseif ctld.inDropoffZone(_unit) and ctld.troopsOnboard(_unit, true) then
ctld.deployTroops(_unit, true) ctld.loadUnloadTroops({_unitName,true,"unload"})
end end
if ctld.unitCanCarryVehicles(_unit) then if ctld.unitCanCarryVehicles(_unit) then
local _zone = ctld.inPickupZone(_unit)
if _zone.inZone == true and not ctld.troopsOnboard(_unit, false) then if _zone.inZone == true and not ctld.troopsOnboard(_unit, false) then
-- first check for extractable vehicles in the pickup zone ctld.loadUnloadTroops({_unitName,false,"load"})
local _extract
if _unit:getCoalition() == 1 then
_extract = ctld.findNearestGroup(_unit, ctld.droppedVehiclesRED)
else
_extract = ctld.findNearestGroup(_unit, ctld.droppedVehiclesBLUE)
end
if _extract ~= nil then
-- search for nearest vehicles to pickup
ctld.extractTroops(_unit, false)
else
--only allow if zone has units
if _zone.limit - 1 >= 0 then
ctld.updateZoneCounter(_zone.index, -1)
ctld.loadTroops(_unit, false)
end
end
elseif ctld.inDropoffZone(_unit) and ctld.troopsOnboard(_unit, false) then elseif ctld.inDropoffZone(_unit) and ctld.troopsOnboard(_unit, false) then
ctld.deployTroops(_unit, false) ctld.loadUnloadTroops({_unitName,false,"unload"})
end end
end end
end end
@@ -4262,7 +4335,7 @@ function ctld.getGroup(groupName)
if _groupUnits ~= nil and #_groupUnits > 0 then if _groupUnits ~= nil and #_groupUnits > 0 then
for _x = 1, #_groupUnits do for _x = 1, #_groupUnits do
if _groupUnits[_x]:getLife() > 0 and _groupUnits[_x]:isExist() then if _groupUnits[_x]:getLife() > 0 then -- removed and _groupUnits[_x]:isExist() as isExist doesnt work on single units!
table.insert(_filteredUnits, _groupUnits[_x]) table.insert(_filteredUnits, _groupUnits[_x])
end end
end end

BIN
Pickup-Dropoff-Demo.miz
View File

Binary file not shown.

16
README.md
View File

@@ -244,6 +244,12 @@ You can force a unit to unload its units (as long as its on the ground) by calli
```lua ```lua
ctld.unloadTransport("helicargo1") ctld.unloadTransport("helicargo1")
###Load Transport
You can force a unit to load its units (as long as its on the ground) by calling this function.
```lua
ctld.loadTransport("helicargo1")
``` ```
###Auto Unload Transport in Proximity to Enemies ###Auto Unload Transport in Proximity to Enemies
@@ -274,6 +280,16 @@ Where ```"extractzone1"``` is the name of a Trigger Zone added using the mission
The settings for smoke are: Green = 0 , Red = 1, White = 2, Orange = 3, Blue = 4, NO SMOKE = -1 The settings for smoke are: Green = 0 , Red = 1, White = 2, Orange = 3, Blue = 4, NO SMOKE = -1
####Count Extractable UNITS in zone
You can count the number of extractable UNITS in a zone using: ```ctld.countDroppedUnitsInZone(_zone, _blueFlag, _redFlag)``` as a DO SCRIPT of a CONTINUOUS TRIGGER.
Where ```_zone``` is the zone name, ```_blueFlag``` is the flag to store the count of Blue units in and ```_redFlag``` is the flag to store the count of red units in
####Count Extractable GROUPS in zone
You can count the number of extractable GROUPS in a zone using: ```ctld.countDroppedGroupsInZone(_zone, _blueFlag, _redFlag)``` as a DO SCRIPT of a CONTINUOUS TRIGGER.
Where ```_zone``` is the zone name, ```_blueFlag``` is the flag to store the count of Blue groups in and ```_redFlag``` is the flag to store the count of red groups in
####Create Crate Drop Zone ####Create Crate Drop Zone
A crate drop zone is a zone where the number of crates in a zone in counted every 5 seconds and the current amount stored in a flag specified by the script. A crate drop zone is a zone where the number of crates in a zone in counted every 5 seconds and the current amount stored in a flag specified by the script.

BIN
test-mission.miz
View File

Binary file not shown.