mirror of
https://github.com/weyne85/DML.git
synced 2025-10-29 16:57:49 +00:00
307 lines
8.1 KiB
Lua
307 lines
8.1 KiB
Lua
delicates = {}
|
|
delicates.version = "1.0.0"
|
|
delicates.verbose = false
|
|
delicates.ups = 1
|
|
delicates.requiredLibs = {
|
|
"dcsCommon", -- always
|
|
"cfxZones", -- Zones, of course
|
|
}
|
|
delicates.theDelicates = {}
|
|
delicates.inventory = {}
|
|
|
|
--[[--
|
|
Version History
|
|
1.0.0 - initial version
|
|
|
|
--]]--
|
|
function delicates.adddDelicates(theZone)
|
|
table.insert(delicates.theDelicates, theZone)
|
|
end
|
|
|
|
function delicates.getDelicatesByName(aName)
|
|
for idx, aZone in pairs(delicates.theDelicates) do
|
|
if aName == aZone.name then return aZone end
|
|
end
|
|
if delicates.verbose then
|
|
trigger.action.outText("+++deli: no delicates with name <" .. aName ..">", 30)
|
|
end
|
|
|
|
return nil
|
|
end
|
|
|
|
--
|
|
-- read zone
|
|
--
|
|
function delicates.objectHandler(theObject, theCollector)
|
|
table.insert(theCollector, theObject)
|
|
return true
|
|
end
|
|
|
|
function delicates.makeZoneInventory(theZone)
|
|
|
|
local allCats = {1, 3, 6}
|
|
-- Object.Category UNIT=1, WEAPON=2, STATIC=3, BASE=4, SCENERY=5, Cargo=6
|
|
|
|
for idx, aCat in pairs(allCats) do
|
|
local p = cfxZones.getPoint(theZone)
|
|
local lp = {x = p.x, y = p.z}
|
|
p.y = land.getHeight(lp)
|
|
local collector = {}
|
|
|
|
-- now build the search argument
|
|
local args = {
|
|
id = world.VolumeType.SPHERE,
|
|
params = {
|
|
point = p,
|
|
radius = theZone.radius
|
|
}
|
|
}
|
|
|
|
-- now call search
|
|
world.searchObjects(aCat, args, delicates.objectHandler, collector)
|
|
-- process results
|
|
if #collector > 0 then
|
|
if theZone.verbose or delicates.verbose then
|
|
trigger.action.outText("+++deli: zone " .. theZone.name, 30)
|
|
end
|
|
|
|
for idy, anObject in pairs(collector) do
|
|
local oName = anObject:getName()
|
|
if type(oName) == 'number' then oName = tostring(oName) end
|
|
local oLife = anObject:getLife()
|
|
if theZone.verbose or delicates.verbose then
|
|
trigger.action.outText("+++deli: cat=".. aCat .. ":<" .. oName .. "> Life=" .. oLife, 30)
|
|
end
|
|
local uP = anObject:getPoint()
|
|
if cfxZones.isPointInsideZone(uP, theZone) then
|
|
|
|
local desc = {}
|
|
desc.cat = aCat
|
|
desc.oLife = oLife
|
|
desc.theZone = theZone
|
|
desc.oName = oName
|
|
delicates.inventory[oName] = desc
|
|
else
|
|
if theZone.verbose or delicates.verbose then
|
|
trigger.action.outText("+++deli: (dropped)", 30)
|
|
end
|
|
end
|
|
end
|
|
end
|
|
end
|
|
end
|
|
|
|
function delicates.createDelicatesWithZone(theZone)
|
|
theZone.power = cfxZones.getNumberFromZoneProperty(theZone, "power", 10)
|
|
|
|
if cfxZones.hasProperty(theZone, "delicatesHit!") then
|
|
theZone.delicateHit = cfxZones.getStringFromZoneProperty(theZone, "delicatesHit!", "*<none>")
|
|
end
|
|
if cfxZones.hasProperty(theZone, "f!") then
|
|
theZone.delicateHit = cfxZones.getStringFromZoneProperty(theZone, "f!", "*<none>")
|
|
end
|
|
if cfxZones.hasProperty(theZone, "out!") then
|
|
theZone.delicateHit = cfxZones.getStringFromZoneProperty(theZone, "out!", "*<none>")
|
|
end
|
|
|
|
-- DML Method
|
|
theZone.delicateHitMethod = cfxZones.getStringFromZoneProperty(theZone, "method", "inc")
|
|
if cfxZones.hasProperty(theZone, "delicateMethod") then
|
|
theZone.delicateHitMethod = cfxZones.getStringFromZoneProperty(theZone, "delicatesMethod", "inc")
|
|
end
|
|
|
|
|
|
theZone.delicateRemove = cfxZones.getBoolFromZoneProperty(theZone, "remove", true)
|
|
|
|
-- read objects for this zone
|
|
-- may want to filter by objects, can be passed in delicates
|
|
delicates.makeZoneInventory(theZone)
|
|
|
|
if delicates.verbose or theZone.verbose then
|
|
trigger.action.outText("+++deli: new delicates zone <".. theZone.name ..">", 30)
|
|
end
|
|
|
|
end
|
|
|
|
--
|
|
-- blow me!
|
|
--
|
|
function delicates.scheduledBlow(args)
|
|
local desc = args.desc
|
|
if not desc then return end
|
|
local oName = desc.oName
|
|
|
|
local theObject = nil
|
|
-- UNIT=1, WEAPON=2, STATIC=3, BASE=4, SCENERY=5, Cargo=6
|
|
if desc.cat == 1 then
|
|
theObject = Unit.getByName(oName)
|
|
if not theObject then
|
|
theObject = StaticObject.getByName(oName)
|
|
end
|
|
elseif desc.cat == 3 or desc.cat == 6 then
|
|
theObject = StaticObject.getByName(oName)
|
|
else
|
|
-- can't handle at the moment
|
|
end
|
|
|
|
local theZone = desc.theZone
|
|
local p = theObject:getPoint()
|
|
local power = desc.theZone.power
|
|
if desc.theZone.delicateRemove then
|
|
theObject:destroy()
|
|
end
|
|
|
|
trigger.action.explosion(p, power)
|
|
|
|
-- bang out!
|
|
if theZone.delicateHit then
|
|
cfxZones.pollFlag(theZone.delicateHit, theZone.delicateHitMethod, theZone)
|
|
if delicates.verbose or theZone.verbose then
|
|
trigger.action.outText("+++deli: banging delicateHit! with <" .. theZone.delicateHitMethod .. "> on <" .. theZone.delicateHit .. "> for " .. theZone.name, 30)
|
|
end
|
|
end
|
|
end
|
|
|
|
function delicates.blowUpObject(desc, delay)
|
|
if not delay then delay = 0.5 end
|
|
if not desc then return end
|
|
local args = {}
|
|
args.desc = desc
|
|
timer.scheduleFunction(delicates.scheduledBlow, args, timer.getTime() + delay)
|
|
|
|
end
|
|
|
|
|
|
--
|
|
-- event handler
|
|
--
|
|
function delicates:onEvent(theEvent)
|
|
-- trigger.action.outText("yup", 30)
|
|
if not theEvent then return end
|
|
local theObj = theEvent.target
|
|
if not theObj then return end
|
|
if theEvent.id ~= 2 and theEvent.id ~= 23 then return end -- only hit and shooting start events
|
|
|
|
local oName = theObj:getName()
|
|
local desc = delicates.inventory[oName]
|
|
if desc then
|
|
-- trigger.action.outText("+++deli: REGISTERED HIT -- removing!", 30)
|
|
delicates.blowUpObject(desc)
|
|
-- remove it from further searches
|
|
delicates.inventory[oName] = nil
|
|
end
|
|
|
|
-- trigger.action.outText("+++deli: we hit " .. oName, 30)
|
|
|
|
end
|
|
|
|
--
|
|
-- Update
|
|
---
|
|
|
|
function delicates.update()
|
|
-- call me in a second to poll triggers
|
|
timer.scheduleFunction(delicates.update, {}, timer.getTime() + 1/delicates.ups)
|
|
|
|
-- see if any deli was damaged and filter for next iter
|
|
local newInventory = {}
|
|
for oName, oDesc in pairs(delicates.inventory) do
|
|
-- access the object
|
|
local theObj = nil
|
|
-- UNIT=1, WEAPON=2, STATIC=3, BASE=4, SCENERY=5, Cargo=6
|
|
if oDesc.cat == 1 then
|
|
theObj = Unit.getByName(oName)
|
|
if not theObj then
|
|
-- DCS now changes objects to static
|
|
-- so see if we can get this under statics
|
|
theObj = StaticObject.getByName(oName)
|
|
if theObj then
|
|
-- trigger.action.outText("+++deli: Aha! caught smokin'!", 30)
|
|
end
|
|
end
|
|
elseif oDesc.cat == 3 or oDesc.cat == 6 then
|
|
theObj = StaticObject.getByName(oName)
|
|
else
|
|
-- can't handle at the moment
|
|
end
|
|
|
|
if theObj then
|
|
local cLife = theObj:getLife()
|
|
if cLife >= oDesc.oLife then
|
|
-- transfer to next iter
|
|
newInventory[oName] = oDesc
|
|
else
|
|
-- blow stuff up
|
|
if oDesc.theZone.verbose or delicates.verbose then
|
|
trigger.action.outText(oName .. " was hit, will blow up, new health is at " .. oDesc.oLife .. ".", 30)
|
|
end
|
|
delicates.blowUpObject(oDesc)
|
|
end
|
|
else
|
|
-- nothing to do, don't transfer
|
|
if oDesc.theZone.verbose or delicates.verbose then
|
|
trigger.action.outText("+++deli: <" .. oName .. "> disappeared.", 30)
|
|
end
|
|
end
|
|
end
|
|
delicates.inventory = newInventory
|
|
end
|
|
|
|
--
|
|
-- Config & Start
|
|
--
|
|
function delicates.readConfigZone()
|
|
local theZone = cfxZones.getZoneByName("delicatesConfig")
|
|
if not theZone then
|
|
if delicates.verbose then
|
|
trigger.action.outText("+++deli: NO config zone!", 30)
|
|
end
|
|
return
|
|
end
|
|
|
|
delicates.verbose = cfxZones.getBoolFromZoneProperty(theZone, "verbose", false)
|
|
|
|
if delicates.verbose then
|
|
trigger.action.outText("+++deli: read config", 30)
|
|
end
|
|
end
|
|
|
|
function delicates.start()
|
|
-- lib check
|
|
if not dcsCommon.libCheck then
|
|
trigger.action.outText("cfx delicates requires dcsCommon", 30)
|
|
return false
|
|
end
|
|
if not dcsCommon.libCheck("cfx delicates", delicates.requiredLibs) then
|
|
return false
|
|
end
|
|
|
|
-- read config
|
|
delicates.readConfigZone()
|
|
|
|
-- process delicates Zones
|
|
-- old style
|
|
local attrZones = cfxZones.getZonesWithAttributeNamed("delicates")
|
|
for k, aZone in pairs(attrZones) do
|
|
delicates.createDelicatesWithZone(aZone) -- process attributes
|
|
delicates.adddDelicates(aZone) -- add to list
|
|
end
|
|
|
|
-- start update
|
|
delicates.update()
|
|
|
|
-- listen for events
|
|
world.addEventHandler(delicates)
|
|
|
|
trigger.action.outText("cfx delicates v" .. delicates.version .. " started.", 30)
|
|
return true
|
|
end
|
|
|
|
-- let's go!
|
|
if not delicates.start() then
|
|
trigger.action.outText("cfx delicates aborted: missing libraries", 30)
|
|
delicates = nil
|
|
end
|
|
|
|
-- To Do:
|
|
-- integrate with cloners and spawners |