mirror of
https://github.com/FlightControl-Master/MOOSE.git
synced 2025-08-15 10:47:21 +00:00
972fa9f674
- Fixed bug in WAREHOUSE isShip - FLIGHTGROUP added damage and ammo checks that trigger FSM events - Improved engage detected targets - Improved OPSZONE
996 lines
30 KiB
Lua
996 lines
30 KiB
Lua
--- **Ops** - Strategic Zone.
|
|
--
|
|
-- **Main Features:**
|
|
--
|
|
-- * Monitor if a zone is captured.
|
|
-- * Monitor if an airbase is captured.
|
|
--
|
|
-- ===
|
|
--
|
|
-- ### Author: **funkyfranky**
|
|
--
|
|
-- @module Ops.OpsZone
|
|
-- @image OPS_OpsZone.png
|
|
|
|
|
|
--- OPSZONE class.
|
|
-- @type OPSZONE
|
|
-- @field #string ClassName Name of the class.
|
|
-- @field #string lid DCS log ID string.
|
|
-- @field #number verbose Verbosity of output.
|
|
-- @field Core.Zone#ZONE zone The zone.
|
|
-- @field Wrapper.Airbase#AIRBASE airbase The airbase that is monitored.
|
|
-- @field #string airbaseName Name of the airbase that is monitored.
|
|
-- @field #string zoneName Name of the zone.
|
|
-- @field #number zoneRadius Radius of the zone in meters.
|
|
-- @field #number ownerCurrent Coalition of the current owner of the zone.
|
|
-- @field #number ownerPrevious Coalition of the previous owner of the zone.
|
|
-- @field Core.Timer#TIMER timerStatus Timer for calling the status update.
|
|
-- @field #number Nred Number of red units in the zone.
|
|
-- @field #number Nblu Number of blue units in the zone.
|
|
-- @field #number Nnut Number of neutral units in the zone.
|
|
-- @field #table ObjectCategories Object categories for the scan.
|
|
-- @field #table UnitCategories Unit categories for the scan.
|
|
-- @field #number Tattacked Abs. mission time stamp when an attack was started.
|
|
-- @field #number dTCapture Time interval in seconds until a zone is captured.
|
|
-- @field #boolean neutralCanCapture Neutral units can capture. Default `false`.
|
|
-- @field #boolean drawZone If `true`, draw the zone on the F10 map.
|
|
-- @field #boolean markZone If `true`, mark the zone on the F10 map.
|
|
-- @extends Core.Fsm#FSM
|
|
|
|
--- Be surprised!
|
|
--
|
|
-- ===
|
|
--
|
|
-- # The OPSZONE Concept
|
|
--
|
|
-- An OPSZONE is a strategically important area.
|
|
--
|
|
-- **Restrictions**
|
|
--
|
|
-- * Since we are using a DCS routine that scans a zone for units or other objects present in the zone and this DCS routine is limited to cicular zones, only those can be used.
|
|
--
|
|
-- @field #OPSZONE
|
|
OPSZONE = {
|
|
ClassName = "OPSZONE",
|
|
verbose = 0,
|
|
Nred = 0,
|
|
Nblu = 0,
|
|
Nnut = 0,
|
|
}
|
|
|
|
|
|
--- OPSZONE class version.
|
|
-- @field #string version
|
|
OPSZONE.version="0.1.0"
|
|
|
|
-------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------
|
|
-- ToDo list
|
|
-------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------
|
|
|
|
-- TODO: Capture airbases.
|
|
-- TODO: Pause/unpause evaluations.
|
|
-- TODO: Capture time, i.e. time how long a single coalition has to be inside the zone to capture it.
|
|
-- TODO: Can neutrals capture? No, since they are _neutral_!
|
|
-- TODO: Can statics capture or hold a zone? No, unless explicitly requested by mission designer.
|
|
-- TODO: Differentiate between ground attack and boming by air or arty.
|
|
|
|
-------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------
|
|
-- Constructor
|
|
-------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------
|
|
|
|
--- Create a new OPSZONE class object.
|
|
-- @param #OPSZONE self
|
|
-- @param Core.Zone#ZONE Zone The zone.
|
|
-- @param #number CoalitionOwner Initial owner of the coaliton. Default `coalition.side.NEUTRAL`.
|
|
-- @return #OPSZONE self
|
|
function OPSZONE:New(Zone, CoalitionOwner)
|
|
|
|
-- Inherit everything from LEGION class.
|
|
local self=BASE:Inherit(self, FSM:New()) -- #OPSZONE
|
|
|
|
-- Check if zone name instead of ZONE object was passed.
|
|
if type(Zone)=="string" then
|
|
Zone=ZONE:New(Zone)
|
|
end
|
|
|
|
-- Basic checks.
|
|
if not Zone then
|
|
self:E("ERROR: OPSZONE not found!")
|
|
return nil
|
|
elseif not Zone:IsInstanceOf("ZONE_RADIUS") then
|
|
self:E("ERROR: OPSZONE must be a SPHERICAL zone due to DCS restrictions!")
|
|
return nil
|
|
end
|
|
|
|
-- Set some string id for output to DCS.log file.
|
|
self.lid=string.format("OPSZONE %s | ", Zone:GetName())
|
|
|
|
-- Set some values.
|
|
self.zone=Zone
|
|
self.zoneName=Zone:GetName()
|
|
self.zoneRadius=Zone:GetRadius()
|
|
|
|
-- Current and previous owners.
|
|
self.ownerCurrent=CoalitionOwner or coalition.side.NEUTRAL
|
|
self.ownerPrevious=CoalitionOwner or coalition.side.NEUTRAL
|
|
|
|
-- Set object categories.
|
|
self:SetObjectCategories()
|
|
self:SetUnitCategories()
|
|
|
|
self.drawZone=true
|
|
|
|
-- Status timer.
|
|
self.timerStatus=TIMER:New(OPSZONE.Status, self)
|
|
|
|
|
|
-- FMS start state is EMPTY.
|
|
self:SetStartState("Stopped")
|
|
|
|
-- Add FSM transitions.
|
|
-- From State --> Event --> To State
|
|
self:AddTransition("Stopped", "Start", "Empty") -- Start FSM.
|
|
self:AddTransition("*", "Stop", "Stopped") -- Stop FSM.
|
|
|
|
self:AddTransition("*", "Captured", "Guarded") -- Zone was captured.
|
|
|
|
self:AddTransition("Empty", "Guarded", "Guarded") -- Owning coalition left the zone and returned.
|
|
|
|
self:AddTransition("*", "Empty", "Empty") -- No red or blue units inside the zone.
|
|
|
|
|
|
self:AddTransition("*", "Attacked", "Attacked") -- A guarded zone is under attack.
|
|
self:AddTransition("*", "Defeated", "Guarded") -- The owning coalition defeated an attack.
|
|
|
|
------------------------
|
|
--- Pseudo Functions ---
|
|
------------------------
|
|
|
|
--- Triggers the FSM event "Start".
|
|
-- @function [parent=#OPSZONE] Start
|
|
-- @param #OPSZONE self
|
|
|
|
--- Triggers the FSM event "Start" after a delay.
|
|
-- @function [parent=#OPSZONE] __Start
|
|
-- @param #OPSZONE self
|
|
-- @param #number delay Delay in seconds.
|
|
|
|
|
|
--- Triggers the FSM event "Stop".
|
|
-- @param #OPSZONE self
|
|
|
|
--- Triggers the FSM event "Stop" after a delay.
|
|
-- @function [parent=#OPSZONE] __Stop
|
|
-- @param #OPSZONE self
|
|
-- @param #number delay Delay in seconds.
|
|
|
|
|
|
--- Triggers the FSM event "Captured".
|
|
-- @function [parent=#OPSZONE] Captured
|
|
-- @param #OPSZONE self
|
|
-- @param #number Coalition Coalition side that captured the zone.
|
|
|
|
--- Triggers the FSM event "Captured" after a delay.
|
|
-- @function [parent=#OPSZONE] __Captured
|
|
-- @param #OPSZONE self
|
|
-- @param #number delay Delay in seconds.
|
|
-- @param #number Coalition Coalition side that captured the zone.
|
|
|
|
--- On after "Captured" event.
|
|
-- @function [parent=#OPSZONE] OnAfterCaptured
|
|
-- @param #OPSZONE self
|
|
-- @param #string From From state.
|
|
-- @param #string Event Event.
|
|
-- @param #string To To state.
|
|
-- @param #number Coalition Coalition side that captured the zone.
|
|
|
|
|
|
--- Triggers the FSM event "Guarded".
|
|
-- @function [parent=#OPSZONE] Guarded
|
|
-- @param #OPSZONE self
|
|
|
|
--- Triggers the FSM event "Guarded" after a delay.
|
|
-- @function [parent=#OPSZONE] __Guarded
|
|
-- @param #OPSZONE self
|
|
-- @param #number delay Delay in seconds.
|
|
|
|
--- On after "Guarded" event.
|
|
-- @function [parent=#OPSZONE] OnAfterGuarded
|
|
-- @param #OPSZONE self
|
|
-- @param #string From From state.
|
|
-- @param #string Event Event.
|
|
-- @param #string To To state.
|
|
|
|
|
|
--- Triggers the FSM event "Empty".
|
|
-- @function [parent=#OPSZONE] Empty
|
|
-- @param #OPSZONE self
|
|
|
|
--- Triggers the FSM event "Empty" after a delay.
|
|
-- @function [parent=#OPSZONE] __Empty
|
|
-- @param #OPSZONE self
|
|
-- @param #number delay Delay in seconds.
|
|
|
|
--- On after "Empty" event.
|
|
-- @function [parent=#OPSZONE] OnAfterEmpty
|
|
-- @param #OPSZONE self
|
|
-- @param #string From From state.
|
|
-- @param #string Event Event.
|
|
-- @param #string To To state.
|
|
|
|
|
|
--- Triggers the FSM event "Attacked".
|
|
-- @function [parent=#OPSZONE] Attacked
|
|
-- @param #OPSZONE self
|
|
-- @param #number AttackerCoalition Coalition side that is attacking the zone.
|
|
|
|
--- Triggers the FSM event "Attacked" after a delay.
|
|
-- @function [parent=#OPSZONE] __Attacked
|
|
-- @param #OPSZONE self
|
|
-- @param #number delay Delay in seconds.
|
|
-- @param #number AttackerCoalition Coalition side that is attacking the zone.
|
|
|
|
--- On after "Attacked" event.
|
|
-- @function [parent=#OPSZONE] OnAfterAttacked
|
|
-- @param #OPSZONE self
|
|
-- @param #string From From state.
|
|
-- @param #string Event Event.
|
|
-- @param #string To To state.
|
|
-- @param #number AttackerCoalition Coalition side that is attacking the zone.
|
|
|
|
|
|
--- Triggers the FSM event "Defeated".
|
|
-- @function [parent=#OPSZONE] Defeated
|
|
-- @param #OPSZONE self
|
|
-- @param #number DefeatedCoalition Coalition side that was defeated.
|
|
|
|
--- Triggers the FSM event "Defeated" after a delay.
|
|
-- @function [parent=#OPSZONE] __Defeated
|
|
-- @param #OPSZONE self
|
|
-- @param #number delay Delay in seconds.
|
|
-- @param #number DefeatedCoalition Coalition side that was defeated.
|
|
|
|
--- On after "Defeated" event.
|
|
-- @function [parent=#OPSZONE] OnAfterDefeated
|
|
-- @param #OPSZONE self
|
|
-- @param #string From From state.
|
|
-- @param #string Event Event.
|
|
-- @param #string To To state.
|
|
-- @param #number DefeatedCoalition Coalition side that was defeated.
|
|
|
|
return self
|
|
end
|
|
|
|
-------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------
|
|
-- User Functions
|
|
-------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------
|
|
|
|
--- Set verbosity level.
|
|
-- @param #OPSZONE self
|
|
-- @param #number VerbosityLevel Level of output (higher=more). Default 0.
|
|
-- @return #OPSZONE self
|
|
function OPSZONE:SetVerbosity(VerbosityLevel)
|
|
self.verbose=VerbosityLevel or 0
|
|
return self
|
|
end
|
|
|
|
--- Set categories of objects that can capture or hold the zone.
|
|
-- @param #OPSZONE self
|
|
-- @param #table Categories Object categories. Default is `{Object.Category.UNIT, Object.Category.STATIC}`, i.e. UNITs and STATICs.
|
|
-- @return #OPSZONE self
|
|
function OPSZONE:SetObjectCategories(Categories)
|
|
|
|
-- Ensure table if something was passed.
|
|
if Categories and type(Categories)~="table" then
|
|
Categories={Categories}
|
|
end
|
|
|
|
-- Set categories.
|
|
self.ObjectCategories=Categories or {Object.Category.UNIT, Object.Category.STATIC}
|
|
|
|
return self
|
|
end
|
|
|
|
--- Set categories of units that can capture or hold the zone. See [DCS Class Unit](https://wiki.hoggitworld.com/view/DCS_Class_Unit).
|
|
-- @param #OPSZONE self
|
|
-- @param #table Categories Table of unit categories. Default `{Unit.Category.GROUND_UNIT}`.
|
|
-- @return #OPSZONE
|
|
function OPSZONE:SetUnitCategories(Categories)
|
|
|
|
-- Ensure table.
|
|
if Categories and type(Categories)~="table" then
|
|
Categories={Categories}
|
|
end
|
|
|
|
-- Set categories.
|
|
self.UnitCategories=Categories or {Unit.Category.GROUND_UNIT}
|
|
|
|
return self
|
|
end
|
|
|
|
--- Set whether *neutral* units can capture the zone.
|
|
-- @param #OPSZONE self
|
|
-- @param #boolean CanCapture If `true`, neutral units can.
|
|
-- @return #OPSZONE self
|
|
function OPSZONE:SetNeutralCanCapture(CanCapture)
|
|
self.neutralCanCapture=CanCapture
|
|
return self
|
|
end
|
|
|
|
--- Get current owner of the zone.
|
|
-- @param #OPSZONE self
|
|
-- @return #number Owner coalition.
|
|
function OPSZONE:GetOwner()
|
|
return self.ownerCurrent
|
|
end
|
|
|
|
--- Get previous owner of the zone.
|
|
-- @param #OPSZONE self
|
|
-- @return #number Previous owner coalition.
|
|
function OPSZONE:GetPreviousOwner()
|
|
return self.ownerPrevious
|
|
end
|
|
|
|
--- Get duration of the current attack.
|
|
-- @param #OPSZONE self
|
|
-- @return #number Duration in seconds since when the last attack began. Is `nil` if the zone is not under attack currently.
|
|
function OPSZONE:GetAttackDuration()
|
|
if self:IsAttacked() and self.Tattacked then
|
|
|
|
local dT=timer.getAbsTime()-self.Tattacked
|
|
return dT
|
|
end
|
|
|
|
return nil
|
|
end
|
|
|
|
|
|
--- Check if the red coalition is currently owning the zone.
|
|
-- @param #OPSZONE self
|
|
-- @return #boolean If `true`, zone is red.
|
|
function OPSZONE:IsRed()
|
|
local is=self.ownerCurrent==coalition.side.RED
|
|
return is
|
|
end
|
|
|
|
--- Check if the blue coalition is currently owning the zone.
|
|
-- @param #OPSZONE self
|
|
-- @return #boolean If `true`, zone is blue.
|
|
function OPSZONE:IsBlue()
|
|
local is=self.ownerCurrent==coalition.side.BLUE
|
|
return is
|
|
end
|
|
|
|
--- Check if the neutral coalition is currently owning the zone.
|
|
-- @param #OPSZONE self
|
|
-- @return #boolean If `true`, zone is neutral.
|
|
function OPSZONE:IsNeutral()
|
|
local is=self.ownerCurrent==coalition.side.NEUTRAL
|
|
return is
|
|
end
|
|
|
|
--- Check if zone is guarded.
|
|
-- @param #OPSZONE self
|
|
-- @return #boolean If `true`, zone is guarded.
|
|
function OPSZONE:IsGuarded()
|
|
local is=self:is("Guarded")
|
|
return is
|
|
end
|
|
|
|
--- Check if zone is empty.
|
|
-- @param #OPSZONE self
|
|
-- @return #boolean If `true`, zone is empty.
|
|
function OPSZONE:IsEmpty()
|
|
local is=self:is("Empty")
|
|
return is
|
|
end
|
|
|
|
--- Check if zone is being attacked by the opposite coalition.
|
|
-- @param #OPSZONE self
|
|
-- @return #boolean If `true`, zone is being attacked.
|
|
function OPSZONE:IsAttacked()
|
|
local is=self:is("Attacked")
|
|
return is
|
|
end
|
|
|
|
--- Check if zone is contested. Contested here means red *and* blue units are present in the zone.
|
|
-- @param #OPSZONE self
|
|
-- @return #boolean If `true`, zone is contested.
|
|
function OPSZONE:IsContested()
|
|
return self.isContested
|
|
end
|
|
|
|
--- Check if FMS is stopped.
|
|
-- @param #OPSZONE self
|
|
-- @return #boolean If `true`, FSM is stopped
|
|
function OPSZONE:IsStopped()
|
|
local is=self:is("Stopped")
|
|
return is
|
|
end
|
|
|
|
-------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------
|
|
-- Start/Stop Functions
|
|
-------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------
|
|
|
|
--- Start OPSZONE FSM.
|
|
-- @param #OPSZONE self
|
|
-- @param #string From From state.
|
|
-- @param #string Event Event.
|
|
-- @param #string To To state.
|
|
function OPSZONE:onafterStart(From, Event, To)
|
|
|
|
-- Info.
|
|
self:I(self.lid..string.format("Starting OPSZONE v%s", OPSZONE.version))
|
|
|
|
-- Reinit the timer.
|
|
self.timerStatus=self.timerStatus or TIMER:New(OPSZONE.Status, self)
|
|
|
|
-- Perform initial scan.
|
|
self:Scan()
|
|
|
|
if self.Nblu==0 and self.Nred==0 then
|
|
elseif self.Nblu>0 and self.Nred>0 then
|
|
|
|
elseif self.Nblu>0 then
|
|
|
|
elseif self.Nred>0 then
|
|
|
|
end
|
|
|
|
-- Status update.
|
|
self.timerStatus:Start(1, 60)
|
|
|
|
end
|
|
|
|
--- Stop OPSZONE FSM.
|
|
-- @param #OPSZONE self
|
|
-- @param #string From From state.
|
|
-- @param #string Event Event.
|
|
-- @param #string To To state.
|
|
function OPSZONE:onafterStop(From, Event, To)
|
|
|
|
-- Info.
|
|
self:I(self.lid..string.format("Stopping OPSZONE"))
|
|
|
|
-- Reinit the timer.
|
|
self.timerStatus:Stop()
|
|
|
|
end
|
|
|
|
-------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------
|
|
-- Status Functions
|
|
-------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------
|
|
|
|
--- Update status.
|
|
-- @param #OPSZONE self
|
|
function OPSZONE:Status()
|
|
|
|
-- Current FSM state.
|
|
local fsmstate=self:GetState()
|
|
|
|
-- Get contested.
|
|
local contested=tostring(self:IsContested())
|
|
|
|
-- Info message.
|
|
if self.verbose>=1 then
|
|
local text=string.format("State %s: Owner %d (previous %d), contested=%s, Nunits: red=%d, blue=%d, neutral=%d", fsmstate, self.ownerCurrent, self.ownerPrevious, contested, self.Nred, self.Nblu, self.Nnut)
|
|
self:I(self.lid..text)
|
|
end
|
|
|
|
-- Scanning zone.
|
|
self:Scan()
|
|
|
|
end
|
|
|
|
-------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------
|
|
-- FSM Functions
|
|
-------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------
|
|
|
|
--- On after "Captured" event.
|
|
-- @param #OPSZONE self
|
|
-- @param #string From From state.
|
|
-- @param #string Event Event.
|
|
-- @param #string To To state.
|
|
-- @param #number NewOwnerCoalition Coalition of the new owner.
|
|
function OPSZONE:onafterCaptured(From, Event, To, NewOwnerCoalition)
|
|
|
|
-- Debug info.
|
|
self:T(self.lid..string.format("Zone captured by coalition=%d", NewOwnerCoalition))
|
|
|
|
-- Set owners.
|
|
self.ownerPrevious=self.ownerCurrent
|
|
self.ownerCurrent=NewOwnerCoalition
|
|
|
|
end
|
|
|
|
--- On after "Empty" event.
|
|
-- @param #OPSZONE self
|
|
-- @param #string From From state.
|
|
-- @param #string Event Event.
|
|
-- @param #string To To state.
|
|
function OPSZONE:onafterEmpty(From, Event, To)
|
|
|
|
-- Debug info.
|
|
self:T(self.lid..string.format("Zone is empty EVENT"))
|
|
|
|
end
|
|
|
|
--- On after "Attacked" event.
|
|
-- @param #OPSZONE self
|
|
-- @param #string From From state.
|
|
-- @param #string Event Event.
|
|
-- @param #string To To state.
|
|
-- @param #number AttackerCoalition Coalition of the attacking ground troops.
|
|
function OPSZONE:onafterAttacked(From, Event, To, AttackerCoalition)
|
|
|
|
-- Debug info.
|
|
self:T(self.lid..string.format("Zone is being attacked by coalition=%s!", tostring(AttackerCoalition)))
|
|
|
|
end
|
|
|
|
--- On after "Defeated" event.
|
|
-- @param #OPSZONE self
|
|
-- @param #string From From state.
|
|
-- @param #string Event Event.
|
|
-- @param #string To To state.
|
|
-- @param #number DefeatedCoalition Coalition side that was defeated.
|
|
function OPSZONE:onafterDefeated(From, Event, To, DefeatedCoalition)
|
|
|
|
-- Debug info.
|
|
self:T(self.lid..string.format("Defeated attack on zone by coalition=%d", DefeatedCoalition))
|
|
|
|
-- Not attacked any more.
|
|
self.Tattacked=nil
|
|
|
|
end
|
|
|
|
--- On enter "Guarded" state.
|
|
-- @param #OPSZONE self
|
|
-- @param #string From From state.
|
|
-- @param #string Event Event.
|
|
-- @param #string To To state.
|
|
function OPSZONE:onenterGuarded(From, Event, To)
|
|
|
|
-- Debug info.
|
|
self:T(self.lid..string.format("Zone is guarded"))
|
|
|
|
-- Not attacked any more.
|
|
self.Tattacked=nil
|
|
|
|
if self.drawZone then
|
|
self.zone:UndrawZone()
|
|
|
|
local color=self:_GetZoneColor()
|
|
|
|
self.zone:DrawZone(nil, color, 1.0, color, 0.5)
|
|
end
|
|
|
|
end
|
|
|
|
--- On enter "Attacked" state.
|
|
-- @param #OPSZONE self
|
|
-- @param #string From From state.
|
|
-- @param #string Event Event.
|
|
-- @param #string To To state.
|
|
function OPSZONE:onenterAttacked(From, Event, To)
|
|
|
|
-- Debug info.
|
|
self:T(self.lid..string.format("Zone is Attacked"))
|
|
|
|
-- Time stamp when the attack started.
|
|
self.Tattacked=timer.getAbsTime()
|
|
|
|
if self.drawZone then
|
|
self.zone:UndrawZone()
|
|
|
|
|
|
local color={1,204/255,204/255}
|
|
|
|
self.zone:DrawZone(nil, color, 1.0, color, 0.5)
|
|
end
|
|
|
|
end
|
|
|
|
--- On enter "Empty" event.
|
|
-- @param #OPSZONE self
|
|
-- @param #string From From state.
|
|
-- @param #string Event Event.
|
|
-- @param #string To To state.
|
|
function OPSZONE:onenterEmpty(From, Event, To)
|
|
|
|
-- Debug info.
|
|
self:T(self.lid..string.format("Zone is empty now"))
|
|
|
|
if self.drawZone then
|
|
self.zone:UndrawZone()
|
|
|
|
local color=self:_GetZoneColor()
|
|
|
|
self.zone:DrawZone(nil, color, 1.0, color, 0.2)
|
|
end
|
|
|
|
end
|
|
|
|
-------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------
|
|
-- Scan Functions
|
|
-------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------
|
|
|
|
--- Scan zone.
|
|
-- @param #OPSZONE self
|
|
-- @return #OPSZONE self
|
|
function OPSZONE:Scan()
|
|
|
|
-- Debug info.
|
|
if self.verbose>=3 then
|
|
local text=string.format("Scanning zone %s R=%.1f m", self.zoneName, self.zoneRadius)
|
|
self:I(self.lid..text)
|
|
end
|
|
|
|
-- Search.
|
|
local SphereSearch={id=world.VolumeType.SPHERE, params={point=self.zone:GetVec3(), radius=self.zoneRadius}}
|
|
|
|
-- Init number of red, blue and neutral units.
|
|
local Nred=0
|
|
local Nblu=0
|
|
local Nnut=0
|
|
|
|
--- Function to evaluate the world search
|
|
local function EvaluateZone(_ZoneObject)
|
|
|
|
local ZoneObject=_ZoneObject --DCS#Object
|
|
|
|
if ZoneObject then
|
|
|
|
-- Object category.
|
|
local ObjectCategory=ZoneObject:getCategory()
|
|
|
|
if ObjectCategory==Object.Category.UNIT and ZoneObject:isExist() and ZoneObject:isActive() then
|
|
|
|
---
|
|
-- UNIT
|
|
---
|
|
|
|
-- This is a DCS unit object.
|
|
local DCSUnit=ZoneObject --DCS#Unit
|
|
|
|
--- Function to check if unit category is included.
|
|
local function Included()
|
|
|
|
if not self.UnitCategories then
|
|
-- Any unit is included.
|
|
return true
|
|
else
|
|
-- Check if found object is in specified categories.
|
|
local CategoryDCSUnit = ZoneObject:getDesc().category
|
|
|
|
for _,UnitCategory in pairs(self.UnitCategories) do
|
|
if UnitCategory==CategoryDCSUnit then
|
|
return true
|
|
end
|
|
end
|
|
|
|
end
|
|
|
|
return false
|
|
end
|
|
|
|
|
|
if Included() then
|
|
|
|
-- Get Coalition.
|
|
local Coalition=DCSUnit:getCoalition()
|
|
|
|
-- Increase counter.
|
|
if Coalition==coalition.side.RED then
|
|
Nred=Nred+1
|
|
elseif Coalition==coalition.side.BLUE then
|
|
Nblu=Nblu+1
|
|
elseif Coalition==coalition.side.NEUTRAL then
|
|
Nnut=Nnut+1
|
|
end
|
|
|
|
-- Debug info.
|
|
if self.verbose>=4 then
|
|
self:I(self.lid..string.format("Found unit %s (coalition=%d)", DCSUnit:getName(), Coalition))
|
|
end
|
|
end
|
|
|
|
elseif ObjectCategory==Object.Category.STATIC and ZoneObject:isExist() then
|
|
|
|
---
|
|
-- STATIC
|
|
---
|
|
|
|
-- This is a DCS static object.
|
|
local DCSStatic=ZoneObject --DCS#Static
|
|
|
|
-- Get coalition.
|
|
local Coalition=DCSStatic:getCoalition()
|
|
|
|
-- CAREFUL! Downed pilots break routine here without any error thrown.
|
|
--local unit=STATIC:Find(DCSStatic)
|
|
|
|
-- Increase counter.
|
|
if Coalition==coalition.side.RED then
|
|
Nred=Nred+1
|
|
elseif Coalition==coalition.side.BLUE then
|
|
Nblu=Nblu+1
|
|
elseif Coalition==coalition.side.NEUTRAL then
|
|
Nnut=Nnut+1
|
|
end
|
|
|
|
-- Debug info
|
|
if self.verbose>=4 then
|
|
self:I(self.lid..string.format("Found static %s (coalition=%d)", DCSStatic:getName(), Coalition))
|
|
end
|
|
|
|
elseif ObjectCategory==Object.Category.SCENERY then
|
|
|
|
---
|
|
-- SCENERY
|
|
---
|
|
|
|
local SceneryType = ZoneObject:getTypeName()
|
|
local SceneryName = ZoneObject:getName()
|
|
|
|
-- Debug info.
|
|
self:T2(self.lid..string.format("Found scenery type=%s, name=%s", SceneryType, SceneryName))
|
|
end
|
|
|
|
end
|
|
|
|
return true
|
|
end
|
|
|
|
-- Search objects.
|
|
world.searchObjects(self.ObjectCategories, SphereSearch, EvaluateZone)
|
|
|
|
-- Debug info.
|
|
if self.verbose>=3 then
|
|
local text=string.format("Scan result Nred=%d, Nblue=%d, Nneutral=%d", Nred, Nblu, Nnut)
|
|
self:I(self.lid..text)
|
|
end
|
|
|
|
-- Set values.
|
|
self.Nred=Nred
|
|
self.Nblu=Nblu
|
|
self.Nnut=Nnut
|
|
|
|
return self
|
|
end
|
|
|
|
--- Evaluate zone.
|
|
-- @param #OPSZONE self
|
|
-- @return #OPSZONE self
|
|
function OPSZONE:EvaluateZone()
|
|
|
|
-- Set values.
|
|
local Nred=self.Nred
|
|
local Nblu=self.Nblu
|
|
local Nnut=self.Nnut
|
|
|
|
if self:IsRed() then
|
|
|
|
---
|
|
-- RED zone
|
|
---
|
|
|
|
if Nred==0 then
|
|
|
|
-- No red units in red zone any more.
|
|
|
|
if Nblu>0 then
|
|
-- Blue captured red zone.
|
|
self:Captured(coalition.side.BLUE)
|
|
elseif Nnut>0 and self.neutralCanCapture then
|
|
-- Neutral captured red zone.
|
|
self:Captured(coalition.side.NEUTRAL)
|
|
else
|
|
-- Red zone is now empty (but will remain red).
|
|
if not self:IsEmpty() then
|
|
self:Empty()
|
|
end
|
|
end
|
|
|
|
else
|
|
|
|
-- Red units in red zone.
|
|
|
|
if Nblu>0 then
|
|
|
|
if not self:IsAttacked() then
|
|
self:Attacked(coalition.side.BLUE)
|
|
end
|
|
|
|
elseif Nblu==0 then
|
|
|
|
if self:IsAttacked() and self:IsContested() then
|
|
self:Defeated(coalition.side.BLUE)
|
|
elseif self:IsEmpty() then
|
|
-- Red units left zone and returned (or from initial Empty state).
|
|
self:Guarded()
|
|
end
|
|
|
|
end
|
|
|
|
end
|
|
|
|
-- Contested by blue?
|
|
if Nblu==0 then
|
|
self.isContested=false
|
|
else
|
|
self.isContested=true
|
|
end
|
|
|
|
elseif self:IsBlue() then
|
|
|
|
---
|
|
-- BLUE zone
|
|
---
|
|
|
|
if Nblu==0 then
|
|
|
|
-- No blue units in blue zone any more.
|
|
|
|
if Nred>0 then
|
|
-- Red captured blue zone.
|
|
self:Captured(coalition.side.RED)
|
|
elseif Nnut>0 and self.neutralCanCapture then
|
|
-- Neutral captured blue zone.
|
|
self:Captured(coalition.side.NEUTRAL)
|
|
else
|
|
-- Blue zone is empty now.
|
|
if not self:IsEmpty() then
|
|
self:Empty()
|
|
end
|
|
end
|
|
|
|
else
|
|
|
|
-- Still blue units in blue zone.
|
|
|
|
if Nred>0 then
|
|
|
|
if not self:IsAttacked() then
|
|
-- Red is attacking blue zone.
|
|
self:Attacked(coalition.side.RED)
|
|
end
|
|
|
|
elseif Nred==0 then
|
|
|
|
if self:IsAttacked() and self:IsContested() then
|
|
-- Blue defeated read attack.
|
|
self:Defeated(coalition.side.RED)
|
|
elseif self:IsEmpty() then
|
|
-- Blue units left zone and returned (or from initial Empty state).
|
|
self:Guarded()
|
|
end
|
|
|
|
end
|
|
|
|
end
|
|
|
|
-- Contested by red?
|
|
if Nred==0 then
|
|
self.isContested=false
|
|
else
|
|
self.isContested=true
|
|
end
|
|
|
|
elseif self:IsNeutral() then
|
|
|
|
---
|
|
-- NEUTRAL zone
|
|
---
|
|
|
|
-- Not checked as neutrals cant capture (for now).
|
|
--if Nnut==0 then
|
|
|
|
-- No neutral units in neutral zone any more.
|
|
|
|
if Nred>0 and Nblu>0 then
|
|
env.info(self.lid.."FF neutrals left neutral zone and red and blue are present! What to do?")
|
|
-- TODO Contested!
|
|
self:Attacked()
|
|
self.isContested=true
|
|
elseif Nred>0 then
|
|
-- Red captured neutral zone.
|
|
self:Captured(coalition.side.RED)
|
|
elseif Nblu>0 then
|
|
-- Blue captured neutral zone.
|
|
self:Captured(coalition.side.BLUE)
|
|
else
|
|
-- Neutral zone is empty now.
|
|
if not self:IsEmpty() then
|
|
self:Emtpy()
|
|
end
|
|
end
|
|
|
|
--end
|
|
|
|
else
|
|
self:E(self.lid.."ERROR!")
|
|
end
|
|
|
|
|
|
end
|
|
|
|
-------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------
|
|
-- DCS Event Functions
|
|
-------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------
|
|
|
|
--- Monitor hit events.
|
|
-- @param #OPSZONE self
|
|
-- @param Core.Event#EVENTDATA EventData The event data.
|
|
function OPSZONE:OnEventHit(EventData)
|
|
|
|
if self.HitsOn then
|
|
|
|
local UnitHit = EventData.TgtUnit
|
|
|
|
-- Check if unit is inside the capture zone and that it is of the defending coalition.
|
|
if UnitHit and UnitHit:IsInZone(self) and UnitHit:GetCoalition()==self.ownerCurrent then
|
|
|
|
-- Update last hit time.
|
|
self.HitTimeLast=timer.getTime()
|
|
|
|
-- Only trigger attacked event if not already in state "Attacked".
|
|
if not self:IsAttacked() then
|
|
self:T3(self.lid.."Hit ==> Attack")
|
|
self:Attacked()
|
|
end
|
|
|
|
end
|
|
|
|
end
|
|
|
|
end
|
|
|
|
--- Monitor hit events.
|
|
-- @param #OPSZONE self
|
|
-- @param Core.Event#EVENTDATA EventData The event data.
|
|
function OPSZONE:OnEventBaseCaptured(EventData)
|
|
|
|
if EventData and EventData.Place and self.airbase and self.airbaseName then
|
|
|
|
-- Place is the airbase that was captured.
|
|
local airbase=EventData.Place --Wrapper.Airbase#AIRBASE
|
|
|
|
-- Check that this airbase belongs or did belong to this warehouse.
|
|
if EventData.PlaceName==self.airbaseName then
|
|
|
|
end
|
|
|
|
end
|
|
|
|
end
|
|
|
|
-------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------
|
|
-- Misc Functions
|
|
-------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------
|
|
|
|
--- Get RGB color of zone depending on current owner.
|
|
-- @param #OPSZONE self
|
|
-- @return #table RGB color.
|
|
function OPSZONE:_GetZoneColor()
|
|
|
|
local color={0,0,0}
|
|
|
|
if self.ownerCurrent==coalition.side.NEUTRAL then
|
|
color={1, 1, 1}
|
|
elseif self.ownerCurrent==coalition.side.BLUE then
|
|
color={0, 0, 1}
|
|
elseif self.ownerCurrent==coalition.side.RED then
|
|
color={1, 0, 0}
|
|
else
|
|
|
|
end
|
|
|
|
return color
|
|
end
|
|
|
|
-------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------
|
|
-------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------
|
|
-------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------
|