From 6a39f6f1e3d4a6d833926a48bfcb86fb3f0a92b6 Mon Sep 17 00:00:00 2001 From: HellRayzr Date: Thu, 7 Jul 2016 21:40:06 +0200 Subject: [PATCH 1/7] Added AirbasePolice for Nevada --- Moose Development/Moose/AirbasePolice.lua | 291 +- .../l10n/DEFAULT/Moose.lua | 23579 +--------------- Moose Mission Setup/Moose.lua | 23579 +--------------- .../Moose_Test_AIRBASEPOLICE-DB.miz | Bin 0 -> 190629 bytes ... => Moose_Test_AIRBASEPOLICE_CAUCASUS.lua} | 0 ... => Moose_Test_AIRBASEPOLICE_CAUCASUS.miz} | Bin .../Moose_Test_AIRBASEPOLICE_NEVADA.lua | 3 + .../Moose_Test_AIRBASEPOLICE_NEVADA.miz | Bin 0 -> 27311 bytes .../Moose_Test_CLEANUP/Moose_Test_CLEANUP.miz | Bin 241842 -> 246724 bytes .../MOOSE_Test_GROUP_SwitchWayPoint.miz | Bin 160335 -> 166248 bytes 10 files changed, 306 insertions(+), 47146 deletions(-) create mode 100644 Moose Test Missions/Moose_Test_AIRBASEPOLICE/Moose_Test_AIRBASEPOLICE-DB.miz rename Moose Test Missions/Moose_Test_AIRBASEPOLICE/{Moose_Test_AIRBASEPOLICE.lua => Moose_Test_AIRBASEPOLICE_CAUCASUS.lua} (100%) rename Moose Test Missions/Moose_Test_AIRBASEPOLICE/{Moose_Test_AIRBASEPOLICE.miz => Moose_Test_AIRBASEPOLICE_CAUCASUS.miz} (100%) create mode 100644 Moose Test Missions/Moose_Test_AIRBASEPOLICE/Moose_Test_AIRBASEPOLICE_NEVADA.lua create mode 100644 Moose Test Missions/Moose_Test_AIRBASEPOLICE/Moose_Test_AIRBASEPOLICE_NEVADA.miz diff --git a/Moose Development/Moose/AirbasePolice.lua b/Moose Development/Moose/AirbasePolice.lua index b9a4b5f58..e5afa261d 100644 --- a/Moose Development/Moose/AirbasePolice.lua +++ b/Moose Development/Moose/AirbasePolice.lua @@ -1,31 +1,31 @@ --- This module contains the AIRBASEPOLICE classes. --- +-- -- === --- +-- -- 1) @{AirbasePolice#AIRBASEPOLICE_BASE} class, extends @{Base#BASE} -- ================================================================== -- The @{AirbasePolice#AIRBASEPOLICE_BASE} class provides the main methods to monitor CLIENT behaviour at airbases. -- CLIENTS should not be allowed to: --- +-- -- * Don't taxi faster than 40 km/h. -- * Don't take-off on taxiways. -- * Avoid to hit other planes on the airbase. -- * Obey ground control orders. --- +-- -- 2) @{AirbasePolice#AIRBASEPOLICE_CAUCASUS} class, extends @{AirbasePolice#AIRBASEPOLICE_BASE} -- ============================================================================================= -- All the airbases on the caucasus map can be monitored using this class. -- If you want to monitor specific airbases, you need to use the @{#AIRBASEPOLICE_BASE.Monitor}() method, which takes a table or airbase names. -- The following names can be given: --- * AnapaVityazevo --- * Batumi --- * Beslan --- * Gelendzhik --- * Gudauta --- * Kobuleti --- * KrasnodarCenter --- * KrasnodarPashkovsky --- * Krymsk +-- * AnapaVityazevo +-- * Batumi +-- * Beslan +-- * Gelendzhik +-- * Gudauta +-- * Kobuleti +-- * KrasnodarCenter +-- * KrasnodarPashkovsky +-- * Krymsk -- * Kutaisi -- * MaykopKhanskaya -- * MineralnyeVody @@ -38,9 +38,22 @@ -- * SukhumiBabushara -- * TbilisiLochini -- * Vaziani --- +-- +-- 3) @{AirbasePolice#AIRBASEPOLICE_NEVADA} class, extends @{AirbasePolice#AIRBASEPOLICE_BASE} +-- ============================================================================================= +-- All the airbases on the NEVADA map can be monitored using this class. +-- If you want to monitor specific airbases, you need to use the @{#AIRBASEPOLICE_BASE.Monitor}() method, which takes a table or airbase names. +-- The following names can be given: +-- * Nellis +-- * McCarran +-- * Creech +-- * Groom Lake +-- -- @module AirbasePolice --- @author FlightControl +-- @author Flight Control & DUTCH BARON + + + --- @type AIRBASEPOLICE_BASE @@ -121,9 +134,9 @@ function AIRBASEPOLICE_BASE:_AirbaseMonitor() for AirbaseID, Airbase in pairs( self.Airbases ) do if not self.AirbaseNames or self.AirbaseNames[AirbaseID] then - + self:E( AirbaseID ) - + self.SetClient:ForEachClientInZone( Airbase.ZoneBoundary, --- @param Client#CLIENT Client @@ -143,7 +156,7 @@ function AIRBASEPOLICE_BASE:_AirbaseMonitor() Client:Message( "Welcome at " .. AirbaseID .. ". The maximum taxiing speed is " .. Airbase.MaximumSpeed " km/h.", 20, "ATC" ) self:SetState( self, "Taxi", true ) end - + local VelocityVec3 = Client:GetVelocity() local Velocity = math.abs(VelocityVec3.x) + math.abs(VelocityVec3.y) + math.abs(VelocityVec3.z) local IsAboveRunway = Client:IsAboveRunway() @@ -729,7 +742,7 @@ function AIRBASEPOLICE_CAUCASUS:New( SetClient ) -- -- Batumi -- local BatumiBoundary = GROUP:FindByName( "Batumi Boundary" ) -- self.Airbases.Batumi.ZoneBoundary = ZONE_POLYGON:New( "Batumi Boundary", BatumiBoundary ):SmokeZone(POINT_VEC3.SmokeColor.White):Flush() - -- + -- -- local BatumiRunway1 = GROUP:FindByName( "Batumi Runway 1" ) -- self.Airbases.Batumi.ZoneRunways[1] = ZONE_POLYGON:New( "Batumi Runway 1", BatumiRunway1 ):SmokeZone(POINT_VEC3.SmokeColor.Red):Flush() -- @@ -920,6 +933,244 @@ function AIRBASEPOLICE_CAUCASUS:New( SetClient ) -- self.Airbases.Template.ZoneRunways[1] = ZONE_POLYGON:New( "Template Runway 1", TemplateRunway1 ):SmokeZone(POINT_VEC3.SmokeColor.Red):Flush() return self - + end + + + +--- @type AIRBASEPOLICE_NEVADA +-- @extends AirbasePolice#AIRBASEPOLICE_BASE +AIRBASEPOLICE_NEVADA = { + ClassName = "AIRBASEPOLICE_NEVADA", + Airbases = { + Nellis = { + PointsBoundary = { + [1]={["y"]=-17814.714285714,["x"]=-399823.14285714,}, + [2]={["y"]=-16875.857142857,["x"]=-398763.14285714,}, + [3]={["y"]=-16251.571428571,["x"]=-398988.85714286,}, + [4]={["y"]=-16163,["x"]=-398693.14285714,}, + [5]={["y"]=-16328.714285714,["x"]=-398034.57142857,}, + [6]={["y"]=-15943,["x"]=-397571.71428571,}, + [7]={["y"]=-15711.571428571,["x"]=-397551.71428571,}, + [8]={["y"]=-15748.714285714,["x"]=-396806,}, + [9]={["y"]=-16288.714285714,["x"]=-396517.42857143,}, + [10]={["y"]=-16751.571428571,["x"]=-396308.85714286,}, + [11]={["y"]=-17263,["x"]=-396234.57142857,}, + [12]={["y"]=-17577.285714286,["x"]=-396640.28571429,}, + [13]={["y"]=-17614.428571429,["x"]=-397400.28571429,}, + [14]={["y"]=-19405.857142857,["x"]=-399428.85714286,}, + [15]={["y"]=-19234.428571429,["x"]=-399683.14285714,}, + [16]={["y"]=-18708.714285714,["x"]=-399408.85714286,}, + [17]={["y"]=-18397.285714286,["x"]=-399657.42857143,}, + [18]={["y"]=-17814.428571429,["x"]=-399823.42857143,}, + }, + PointsRunways = { + [1] = { + [1]={["y"]=-18687,["x"]=-399380.28571429,}, + [2]={["y"]=-18620.714285714,["x"]=-399436.85714286,}, + [3]={["y"]=-16217.857142857,["x"]=-396596.85714286,}, + [4]={["y"]=-16300.142857143,["x"]=-396530,}, + [5]={["y"]=-18687,["x"]=-399380.85714286,}, + }, + [2] = { + [1]={["y"]=-18451.571428572,["x"]=-399580.57142857,}, + [2]={["y"]=-18392.142857143,["x"]=-399628.57142857,}, + [3]={["y"]=-16011,["x"]=-396806.85714286,}, + [4]={["y"]=-16074.714285714,["x"]=-396751.71428572,}, + [5]={["y"]=-18451.571428572,["x"]=-399580.85714285,}, + }, + }, + ZoneBoundary = {}, + ZoneRunways = {}, + MaximumSpeed = 50, + }, + McCarran = { + PointsBoundary = { + [1]={["y"]=-29455.285714286,["x"]=-416277.42857142,}, + [2]={["y"]=-28860.142857143,["x"]=-416492,}, + [3]={["y"]=-25044.428571429,["x"]=-416344.85714285,}, + [4]={["y"]=-24580.142857143,["x"]=-415959.14285714,}, + [5]={["y"]=-25073,["x"]=-415630.57142857,}, + [6]={["y"]=-25087.285714286,["x"]=-415130.57142857,}, + [7]={["y"]=-25830.142857143,["x"]=-414866.28571428,}, + [8]={["y"]=-26658.714285715,["x"]=-414880.57142857,}, + [9]={["y"]=-26973,["x"]=-415273.42857142,}, + [10]={["y"]=-27380.142857143,["x"]=-415187.71428571,}, + [11]={["y"]=-27715.857142857,["x"]=-414144.85714285,}, + [12]={["y"]=-27551.571428572,["x"]=-413473.42857142,}, + [13]={["y"]=-28630.142857143,["x"]=-413201.99999999,}, + [14]={["y"]=-29494.428571429,["x"]=-415437.71428571,}, + [15]={["y"]=-29455.571428572,["x"]=-416277.71428571,}, + }, + PointsRunways = { + [1] = { + [1]={["y"]=-29408.428571429,["x"]=-416016.28571428,}, + [2]={["y"]=-29408.142857144,["x"]=-416105.42857142,}, + [3]={["y"]=-24680.714285715,["x"]=-416003.14285713,}, + [4]={["y"]=-24681.857142858,["x"]=-415926.57142856,}, + [5]={["y"]=-29408.42857143,["x"]=-416016.57142856,}, + }, + [2] = { + [1]={["y"]=-28575.571428572,["x"]=-416303.14285713,}, + [2]={["y"]=-28575.571428572,["x"]=-416382.57142856,}, + [3]={["y"]=-25111.000000001,["x"]=-416309.7142857,}, + [4]={["y"]=-25111.000000001,["x"]=-416249.14285713,}, + [5]={["y"]=-28575.571428572,["x"]=-416303.7142857,}, + }, + [3] = { + [1]={["y"]=-29331.000000001,["x"]=-416275.42857141,}, + [2]={["y"]=-29259.000000001,["x"]=-416306.85714284,}, + [3]={["y"]=-28005.571428572,["x"]=-413449.7142857,}, + [4]={["y"]=-28068.714285715,["x"]=-413422.85714284,}, + [5]={["y"]=-29331.000000001,["x"]=-416275.7142857,}, + }, + [4] = { + [1]={["y"]=-29073.285714286,["x"]=-416386.57142856,}, + [2]={["y"]=-28997.285714286,["x"]=-416417.42857141,}, + [3]={["y"]=-27697.571428572,["x"]=-413464.57142856,}, + [4]={["y"]=-27767.857142858,["x"]=-413434.28571427,}, + [5]={["y"]=-29073.000000001,["x"]=-416386.85714284,}, + }, + }, + ZoneBoundary = {}, + ZoneRunways = {}, + MaximumSpeed = 50, + }, + Creech = { + PointsBoundary = { + [1]={["y"]=-74522.714285715,["x"]=-360887.99999998,}, + [2]={["y"]=-74197,["x"]=-360556.57142855,}, + [3]={["y"]=-74402.714285715,["x"]=-359639.42857141,}, + [4]={["y"]=-74637,["x"]=-359279.42857141,}, + [5]={["y"]=-75759.857142857,["x"]=-359005.14285712,}, + [6]={["y"]=-75834.142857143,["x"]=-359045.14285712,}, + [7]={["y"]=-75902.714285714,["x"]=-359782.28571427,}, + [8]={["y"]=-76099.857142857,["x"]=-360399.42857141,}, + [9]={["y"]=-77314.142857143,["x"]=-360219.42857141,}, + [10]={["y"]=-77728.428571429,["x"]=-360445.14285713,}, + [11]={["y"]=-77585.571428571,["x"]=-360585.14285713,}, + [12]={["y"]=-76471.285714286,["x"]=-360819.42857141,}, + [13]={["y"]=-76325.571428571,["x"]=-360942.28571427,}, + [14]={["y"]=-74671.857142857,["x"]=-360927.7142857,}, + [15]={["y"]=-74522.714285714,["x"]=-360888.85714284,}, + }, + PointsRunways = { + [1] = { + [1]={["y"]=-74237.571428571,["x"]=-360591.7142857,}, + [2]={["y"]=-74234.428571429,["x"]=-360493.71428571,}, + [3]={["y"]=-77605.285714286,["x"]=-360399.14285713,}, + [4]={["y"]=-77608.714285715,["x"]=-360498.85714285,}, + [5]={["y"]=-74237.857142857,["x"]=-360591.7142857,}, + }, + [2] = { + [1]={["y"]=-75807.571428572,["x"]=-359073.42857142,}, + [2]={["y"]=-74770.142857144,["x"]=-360581.71428571,}, + [3]={["y"]=-74641.285714287,["x"]=-360585.42857142,}, + [4]={["y"]=-75734.142857144,["x"]=-359023.14285714,}, + [5]={["y"]=-75807.285714287,["x"]=-359073.42857142,}, + }, + }, + ZoneBoundary = {}, + ZoneRunways = {}, + MaximumSpeed = 50, + }, + GroomLake = { + PointsBoundary = { + [1]={["y"]=-88916.714285714,["x"]=-289102.28571425,}, + [2]={["y"]=-87023.571428572,["x"]=-290388.57142857,}, + [3]={["y"]=-85916.428571429,["x"]=-290674.28571428,}, + [4]={["y"]=-87645.000000001,["x"]=-286567.14285714,}, + [5]={["y"]=-88380.714285715,["x"]=-286388.57142857,}, + [6]={["y"]=-89670.714285715,["x"]=-283524.28571428,}, + [7]={["y"]=-89797.857142858,["x"]=-283567.14285714,}, + [8]={["y"]=-88635.000000001,["x"]=-286749.99999999,}, + [9]={["y"]=-89177.857142858,["x"]=-287207.14285714,}, + [10]={["y"]=-89092.142857144,["x"]=-288892.85714285,}, + [11]={["y"]=-88917.000000001,["x"]=-289102.85714285,}, + }, + PointsRunways = { + [1] = { + [1]={["y"]=-86039.000000001,["x"]=-290606.28571428,}, + [2]={["y"]=-85965.285714287,["x"]=-290573.99999999,}, + [3]={["y"]=-87692.714285715,["x"]=-286634.85714285,}, + [4]={["y"]=-87756.714285715,["x"]=-286663.99999999,}, + [5]={["y"]=-86038.714285715,["x"]=-290606.85714285,}, + }, + [2] = { + [1]={["y"]=-86808.428571429,["x"]=-290375.7142857,}, + [2]={["y"]=-86732.714285715,["x"]=-290344.28571427,}, + [3]={["y"]=-89672.714285714,["x"]=-283546.57142855,}, + [4]={["y"]=-89772.142857143,["x"]=-283587.71428569,}, + [5]={["y"]=-86808.142857143,["x"]=-290375.7142857,}, + }, + }, + ZoneBoundary = {}, + ZoneRunways = {}, + MaximumSpeed = 50, + }, + }, +} + +--- Creates a new AIRBASEPOLICE_NEVADA object. +-- @param #AIRBASEPOLICE_NEVADA self +-- @param SetClient A SET_CLIENT object that will contain the CLIENT objects to be monitored if they follow the rules of the airbase. +-- @return #AIRBASEPOLICE_NEVADA self +function AIRBASEPOLICE_NEVADA:New( SetClient ) + + -- Inherits from BASE + local self = BASE:Inherit( self, AIRBASEPOLICE_BASE:New( SetClient, self.Airbases ) ) + +-- -- Nellis +-- local NellisBoundary = GROUP:FindByName( "Nellis Boundary" ) +-- self.Airbases.Nellis.ZoneBoundary = ZONE_POLYGON:New( "Nellis Boundary", NellisBoundary ):SmokeZone(POINT_VEC3.SmokeColor.White):Flush() +-- +-- local NellisRunway1 = GROUP:FindByName( "Nellis Runway 1" ) +-- self.Airbases.Nellis.ZoneRunways[1] = ZONE_POLYGON:New( "Nellis Runway 1", NellisRunway1 ):SmokeZone(POINT_VEC3.SmokeColor.Red):Flush() +-- +-- local NellisRunway2 = GROUP:FindByName( "Nellis Runway 2" ) +-- self.Airbases.Nellis.ZoneRunways[2] = ZONE_POLYGON:New( "Nellis Runway 2", NellisRunway2 ):SmokeZone(POINT_VEC3.SmokeColor.Red):Flush() +-- +-- -- McCarran +-- local McCarranBoundary = GROUP:FindByName( "McCarran Boundary" ) +-- self.Airbases.McCarran.ZoneBoundary = ZONE_POLYGON:New( "McCarran Boundary", McCarranBoundary ):SmokeZone(POINT_VEC3.SmokeColor.White):Flush() +-- +-- local McCarranRunway1 = GROUP:FindByName( "McCarran Runway 1" ) +-- self.Airbases.McCarran.ZoneRunways[1] = ZONE_POLYGON:New( "McCarran Runway 1", McCarranRunway1 ):SmokeZone(POINT_VEC3.SmokeColor.Red):Flush() +-- +-- local McCarranRunway2 = GROUP:FindByName( "McCarran Runway 2" ) +-- self.Airbases.McCarran.ZoneRunways[2] = ZONE_POLYGON:New( "McCarran Runway 2", McCarranRunway2 ):SmokeZone(POINT_VEC3.SmokeColor.Red):Flush() +-- +-- local McCarranRunway3 = GROUP:FindByName( "McCarran Runway 3" ) +-- self.Airbases.McCarran.ZoneRunways[3] = ZONE_POLYGON:New( "McCarran Runway 3", McCarranRunway3 ):SmokeZone(POINT_VEC3.SmokeColor.Red):Flush() +-- +-- local McCarranRunway4 = GROUP:FindByName( "McCarran Runway 4" ) +-- self.Airbases.McCarran.ZoneRunways[4] = ZONE_POLYGON:New( "McCarran Runway 4", McCarranRunway4 ):SmokeZone(POINT_VEC3.SmokeColor.Red):Flush() +-- +-- -- Creech +-- local CreechBoundary = GROUP:FindByName( "Creech Boundary" ) +-- self.Airbases.Creech.ZoneBoundary = ZONE_POLYGON:New( "Creech Boundary", CreechBoundary ):SmokeZone(POINT_VEC3.SmokeColor.White):Flush() +-- +-- local CreechRunway1 = GROUP:FindByName( "Creech Runway 1" ) +-- self.Airbases.Creech.ZoneRunways[1] = ZONE_POLYGON:New( "Creech Runway 1", CreechRunway1 ):SmokeZone(POINT_VEC3.SmokeColor.Red):Flush() +-- +-- local CreechRunway2 = GROUP:FindByName( "Creech Runway 2" ) +-- self.Airbases.Creech.ZoneRunways[2] = ZONE_POLYGON:New( "Creech Runway 2", CreechRunway2 ):SmokeZone(POINT_VEC3.SmokeColor.Red):Flush() +-- +-- -- Groom Lake +-- local GroomLakeBoundary = GROUP:FindByName( "GroomLake Boundary" ) +-- self.Airbases.GroomLake.ZoneBoundary = ZONE_POLYGON:New( "GroomLake Boundary", GroomLakeBoundary ):SmokeZone(POINT_VEC3.SmokeColor.White):Flush() +-- +-- local GroomLakeRunway1 = GROUP:FindByName( "GroomLake Runway 1" ) +-- self.Airbases.GroomLake.ZoneRunways[1] = ZONE_POLYGON:New( "GroomLake Runway 1", GroomLakeRunway1 ):SmokeZone(POINT_VEC3.SmokeColor.Red):Flush() +-- +-- local GroomLakeRunway2 = GROUP:FindByName( "GroomLake Runway 2" ) +-- self.Airbases.GroomLake.ZoneRunways[2] = ZONE_POLYGON:New( "GroomLake Runway 2", GroomLakeRunway2 ):SmokeZone(POINT_VEC3.SmokeColor.Red):Flush() + +end + + + + + + \ No newline at end of file diff --git a/Moose Mission Setup/Moose Mission Update/l10n/DEFAULT/Moose.lua b/Moose Mission Setup/Moose Mission Update/l10n/DEFAULT/Moose.lua index 02fd4b035..9567ea116 100644 --- a/Moose Mission Setup/Moose Mission Update/l10n/DEFAULT/Moose.lua +++ b/Moose Mission Setup/Moose Mission Update/l10n/DEFAULT/Moose.lua @@ -1,23578 +1,31 @@ -env.info( '*** MOOSE STATIC INCLUDE START *** ' ) -env.info( 'Moose Generation Timestamp: 20160706_0817' ) +env.info( '*** MOOSE DYNAMIC INCLUDE START *** ' ) +env.info( 'Moose Generation Timestamp: 20160707_2044' ) + local base = _G Include = {} -Include.Files = {} + Include.File = function( IncludeFile ) -end - ---- Various routines --- @module routines --- @author Flightcontrol - -env.setErrorMessageBoxEnabled(false) - ---- Extract of MIST functions. --- @author Grimes - -routines = {} - - --- don't change these -routines.majorVersion = 3 -routines.minorVersion = 3 -routines.build = 22 - ------------------------------------------------------------------------------------------------------------------ - ----------------------------------------------------------------------------------------------- --- Utils- conversion, Lua utils, etc. -routines.utils = {} - ---from http://lua-users.org/wiki/CopyTable -routines.utils.deepCopy = function(object) - local lookup_table = {} - local function _copy(object) - if type(object) ~= "table" then - return object - elseif lookup_table[object] then - return lookup_table[object] - end - local new_table = {} - lookup_table[object] = new_table - for index, value in pairs(object) do - new_table[_copy(index)] = _copy(value) - end - return setmetatable(new_table, getmetatable(object)) - end - local objectreturn = _copy(object) - return objectreturn -end - - --- porting in Slmod's serialize_slmod2 -routines.utils.oneLineSerialize = function(tbl) -- serialization of a table all on a single line, no comments, made to replace old get_table_string function - - lookup_table = {} - - local function _Serialize( tbl ) - - if type(tbl) == 'table' then --function only works for tables! - - if lookup_table[tbl] then - return lookup_table[object] - end - - local tbl_str = {} - - lookup_table[tbl] = tbl_str - - tbl_str[#tbl_str + 1] = '{' - - for ind,val in pairs(tbl) do -- serialize its fields - local ind_str = {} - if type(ind) == "number" then - ind_str[#ind_str + 1] = '[' - ind_str[#ind_str + 1] = tostring(ind) - ind_str[#ind_str + 1] = ']=' - else --must be a string - ind_str[#ind_str + 1] = '[' - ind_str[#ind_str + 1] = routines.utils.basicSerialize(ind) - ind_str[#ind_str + 1] = ']=' - end - - local val_str = {} - if ((type(val) == 'number') or (type(val) == 'boolean')) then - val_str[#val_str + 1] = tostring(val) - val_str[#val_str + 1] = ',' - tbl_str[#tbl_str + 1] = table.concat(ind_str) - tbl_str[#tbl_str + 1] = table.concat(val_str) - elseif type(val) == 'string' then - val_str[#val_str + 1] = routines.utils.basicSerialize(val) - val_str[#val_str + 1] = ',' - tbl_str[#tbl_str + 1] = table.concat(ind_str) - tbl_str[#tbl_str + 1] = table.concat(val_str) - elseif type(val) == 'nil' then -- won't ever happen, right? - val_str[#val_str + 1] = 'nil,' - tbl_str[#tbl_str + 1] = table.concat(ind_str) - tbl_str[#tbl_str + 1] = table.concat(val_str) - elseif type(val) == 'table' then - if ind == "__index" then - -- tbl_str[#tbl_str + 1] = "__index" - -- tbl_str[#tbl_str + 1] = ',' --I think this is right, I just added it - else - - val_str[#val_str + 1] = _Serialize(val) - val_str[#val_str + 1] = ',' --I think this is right, I just added it - tbl_str[#tbl_str + 1] = table.concat(ind_str) - tbl_str[#tbl_str + 1] = table.concat(val_str) - end - elseif type(val) == 'function' then - -- tbl_str[#tbl_str + 1] = "function " .. tostring(ind) - -- tbl_str[#tbl_str + 1] = ',' --I think this is right, I just added it - else --- env.info('unable to serialize value type ' .. routines.utils.basicSerialize(type(val)) .. ' at index ' .. tostring(ind)) --- env.info( debug.traceback() ) - end - - end - tbl_str[#tbl_str + 1] = '}' - return table.concat(tbl_str) + if not Include.Files[ IncludeFile ] then + Include.Files[IncludeFile] = IncludeFile + env.info( "Include:" .. IncludeFile .. " from " .. Include.ProgramPath ) + local f = assert( base.loadfile( Include.ProgramPath .. IncludeFile .. ".lua" ) ) + if f == nil then + error ("Could not load MOOSE file " .. IncludeFile .. ".lua" ) else - return tostring(tbl) - end - end - - local objectreturn = _Serialize(tbl) - return objectreturn -end - ---porting in Slmod's "safestring" basic serialize -routines.utils.basicSerialize = function(s) - if s == nil then - return "\"\"" - else - if ((type(s) == 'number') or (type(s) == 'boolean') or (type(s) == 'function') or (type(s) == 'table') or (type(s) == 'userdata') ) then - return tostring(s) - elseif type(s) == 'string' then - s = string.format('%q', s) - return s + env.info( "Include:" .. IncludeFile .. " loaded from " .. Include.ProgramPath ) + return f() end end end +Include.ProgramPath = "Scripts/Moose/" -routines.utils.toDegree = function(angle) - return angle*180/math.pi -end +env.info( "Include.ProgramPath = " .. Include.ProgramPath) -routines.utils.toRadian = function(angle) - return angle*math.pi/180 -end +Include.Files = {} -routines.utils.metersToNM = function(meters) - return meters/1852 -end - -routines.utils.metersToFeet = function(meters) - return meters/0.3048 -end - -routines.utils.NMToMeters = function(NM) - return NM*1852 -end - -routines.utils.feetToMeters = function(feet) - return feet*0.3048 -end - -routines.utils.mpsToKnots = function(mps) - return mps*3600/1852 -end - -routines.utils.mpsToKmph = function(mps) - return mps*3.6 -end - -routines.utils.knotsToMps = function(knots) - return knots*1852/3600 -end - -routines.utils.kmphToMps = function(kmph) - return kmph/3.6 -end - -function routines.utils.makeVec2(Vec3) - if Vec3.z then - return {x = Vec3.x, y = Vec3.z} - else - return {x = Vec3.x, y = Vec3.y} -- it was actually already vec2. - end -end - -function routines.utils.makeVec3(Vec2, y) - if not Vec2.z then - if not y then - y = 0 - end - return {x = Vec2.x, y = y, z = Vec2.y} - else - return {x = Vec2.x, y = Vec2.y, z = Vec2.z} -- it was already Vec3, actually. - end -end - -function routines.utils.makeVec3GL(Vec2, offset) - local adj = offset or 0 - - if not Vec2.z then - return {x = Vec2.x, y = (land.getHeight(Vec2) + adj), z = Vec2.y} - else - return {x = Vec2.x, y = (land.getHeight({x = Vec2.x, y = Vec2.z}) + adj), z = Vec2.z} - end -end - -routines.utils.zoneToVec3 = function(zone) - local new = {} - if type(zone) == 'table' and zone.point then - new.x = zone.point.x - new.y = zone.point.y - new.z = zone.point.z - return new - elseif type(zone) == 'string' then - zone = trigger.misc.getZone(zone) - if zone then - new.x = zone.point.x - new.y = zone.point.y - new.z = zone.point.z - return new - end - end -end - --- gets heading-error corrected direction from point along vector vec. -function routines.utils.getDir(vec, point) - local dir = math.atan2(vec.z, vec.x) - dir = dir + routines.getNorthCorrection(point) - if dir < 0 then - dir = dir + 2*math.pi -- put dir in range of 0 to 2*pi - end - return dir -end - --- gets distance in meters between two points (2 dimensional) -function routines.utils.get2DDist(point1, point2) - point1 = routines.utils.makeVec3(point1) - point2 = routines.utils.makeVec3(point2) - return routines.vec.mag({x = point1.x - point2.x, y = 0, z = point1.z - point2.z}) -end - --- gets distance in meters between two points (3 dimensional) -function routines.utils.get3DDist(point1, point2) - return routines.vec.mag({x = point1.x - point2.x, y = point1.y - point2.y, z = point1.z - point2.z}) -end - - - --- From http://lua-users.org/wiki/SimpleRound --- use negative idp for rounding ahead of decimal place, positive for rounding after decimal place -routines.utils.round = function(num, idp) - local mult = 10^(idp or 0) - return math.floor(num * mult + 0.5) / mult -end - --- porting in Slmod's dostring -routines.utils.dostring = function(s) - local f, err = loadstring(s) - if f then - return true, f() - else - return false, err - end -end - - ---3D Vector manipulation -routines.vec = {} - -routines.vec.add = function(vec1, vec2) - return {x = vec1.x + vec2.x, y = vec1.y + vec2.y, z = vec1.z + vec2.z} -end - -routines.vec.sub = function(vec1, vec2) - return {x = vec1.x - vec2.x, y = vec1.y - vec2.y, z = vec1.z - vec2.z} -end - -routines.vec.scalarMult = function(vec, mult) - return {x = vec.x*mult, y = vec.y*mult, z = vec.z*mult} -end - -routines.vec.scalar_mult = routines.vec.scalarMult - -routines.vec.dp = function(vec1, vec2) - return vec1.x*vec2.x + vec1.y*vec2.y + vec1.z*vec2.z -end - -routines.vec.cp = function(vec1, vec2) - return { x = vec1.y*vec2.z - vec1.z*vec2.y, y = vec1.z*vec2.x - vec1.x*vec2.z, z = vec1.x*vec2.y - vec1.y*vec2.x} -end - -routines.vec.mag = function(vec) - return (vec.x^2 + vec.y^2 + vec.z^2)^0.5 -end - -routines.vec.getUnitVec = function(vec) - local mag = routines.vec.mag(vec) - return { x = vec.x/mag, y = vec.y/mag, z = vec.z/mag } -end - -routines.vec.rotateVec2 = function(vec2, theta) - return { x = vec2.x*math.cos(theta) - vec2.y*math.sin(theta), y = vec2.x*math.sin(theta) + vec2.y*math.cos(theta)} -end ---------------------------------------------------------------------------------------------------------------------------- - - - - --- acc- the accuracy of each easting/northing. 0, 1, 2, 3, 4, or 5. -routines.tostringMGRS = function(MGRS, acc) - if acc == 0 then - return MGRS.UTMZone .. ' ' .. MGRS.MGRSDigraph - else - return MGRS.UTMZone .. ' ' .. MGRS.MGRSDigraph .. ' ' .. string.format('%0' .. acc .. 'd', routines.utils.round(MGRS.Easting/(10^(5-acc)), 0)) - .. ' ' .. string.format('%0' .. acc .. 'd', routines.utils.round(MGRS.Northing/(10^(5-acc)), 0)) - end -end - ---[[acc: -in DM: decimal point of minutes. -In DMS: decimal point of seconds. -position after the decimal of the least significant digit: -So: -42.32 - acc of 2. -]] -routines.tostringLL = function(lat, lon, acc, DMS) - - local latHemi, lonHemi - if lat > 0 then - latHemi = 'N' - else - latHemi = 'S' - end - - if lon > 0 then - lonHemi = 'E' - else - lonHemi = 'W' - end - - lat = math.abs(lat) - lon = math.abs(lon) - - local latDeg = math.floor(lat) - local latMin = (lat - latDeg)*60 - - local lonDeg = math.floor(lon) - local lonMin = (lon - lonDeg)*60 - - if DMS then -- degrees, minutes, and seconds. - local oldLatMin = latMin - latMin = math.floor(latMin) - local latSec = routines.utils.round((oldLatMin - latMin)*60, acc) - - local oldLonMin = lonMin - lonMin = math.floor(lonMin) - local lonSec = routines.utils.round((oldLonMin - lonMin)*60, acc) - - if latSec == 60 then - latSec = 0 - latMin = latMin + 1 - end - - if lonSec == 60 then - lonSec = 0 - lonMin = lonMin + 1 - end - - local secFrmtStr -- create the formatting string for the seconds place - if acc <= 0 then -- no decimal place. - secFrmtStr = '%02d' - else - local width = 3 + acc -- 01.310 - that's a width of 6, for example. - secFrmtStr = '%0' .. width .. '.' .. acc .. 'f' - end - - return string.format('%02d', latDeg) .. ' ' .. string.format('%02d', latMin) .. '\' ' .. string.format(secFrmtStr, latSec) .. '"' .. latHemi .. ' ' - .. string.format('%02d', lonDeg) .. ' ' .. string.format('%02d', lonMin) .. '\' ' .. string.format(secFrmtStr, lonSec) .. '"' .. lonHemi - - else -- degrees, decimal minutes. - latMin = routines.utils.round(latMin, acc) - lonMin = routines.utils.round(lonMin, acc) - - if latMin == 60 then - latMin = 0 - latDeg = latDeg + 1 - end - - if lonMin == 60 then - lonMin = 0 - lonDeg = lonDeg + 1 - end - - local minFrmtStr -- create the formatting string for the minutes place - if acc <= 0 then -- no decimal place. - minFrmtStr = '%02d' - else - local width = 3 + acc -- 01.310 - that's a width of 6, for example. - minFrmtStr = '%0' .. width .. '.' .. acc .. 'f' - end - - return string.format('%02d', latDeg) .. ' ' .. string.format(minFrmtStr, latMin) .. '\'' .. latHemi .. ' ' - .. string.format('%02d', lonDeg) .. ' ' .. string.format(minFrmtStr, lonMin) .. '\'' .. lonHemi - - end -end - ---[[ required: az - radian - required: dist - meters - optional: alt - meters (set to false or nil if you don't want to use it). - optional: metric - set true to get dist and alt in km and m. - precision will always be nearest degree and NM or km.]] -routines.tostringBR = function(az, dist, alt, metric) - az = routines.utils.round(routines.utils.toDegree(az), 0) - - if metric then - dist = routines.utils.round(dist/1000, 2) - else - dist = routines.utils.round(routines.utils.metersToNM(dist), 2) - end - - local s = string.format('%03d', az) .. ' for ' .. dist - - if alt then - if metric then - s = s .. ' at ' .. routines.utils.round(alt, 0) - else - s = s .. ' at ' .. routines.utils.round(routines.utils.metersToFeet(alt), 0) - end - end - return s -end - -routines.getNorthCorrection = function(point) --gets the correction needed for true north - if not point.z then --Vec2; convert to Vec3 - point.z = point.y - point.y = 0 - end - local lat, lon = coord.LOtoLL(point) - local north_posit = coord.LLtoLO(lat + 1, lon) - return math.atan2(north_posit.z - point.z, north_posit.x - point.x) -end - - -do - local idNum = 0 - - --Simplified event handler - routines.addEventHandler = function(f) --id is optional! - local handler = {} - idNum = idNum + 1 - handler.id = idNum - handler.f = f - handler.onEvent = function(self, event) - self.f(event) - end - world.addEventHandler(handler) - end - - routines.removeEventHandler = function(id) - for key, handler in pairs(world.eventHandlers) do - if handler.id and handler.id == id then - world.eventHandlers[key] = nil - return true - end - end - return false - end -end - --- need to return a Vec3 or Vec2? -function routines.getRandPointInCircle(point, radius, innerRadius) - local theta = 2*math.pi*math.random() - local rad = math.random() + math.random() - if rad > 1 then - rad = 2 - rad - end - - local radMult - if innerRadius and innerRadius <= radius then - radMult = (radius - innerRadius)*rad + innerRadius - else - radMult = radius*rad - end - - if not point.z then --might as well work with vec2/3 - point.z = point.y - end - - local rndCoord - if radius > 0 then - rndCoord = {x = math.cos(theta)*radMult + point.x, y = math.sin(theta)*radMult + point.z} - else - rndCoord = {x = point.x, y = point.z} - end - return rndCoord -end - -routines.goRoute = function(group, path) - local misTask = { - id = 'Mission', - params = { - route = { - points = routines.utils.deepCopy(path), - }, - }, - } - if type(group) == 'string' then - group = Group.getByName(group) - end - local groupCon = group:getController() - if groupCon then - groupCon:setTask(misTask) - return true - end - - Controller.setTask(groupCon, misTask) - return false -end - - --- Useful atomic functions from mist, ported. - -routines.ground = {} -routines.fixedWing = {} -routines.heli = {} - -routines.ground.buildWP = function(point, overRideForm, overRideSpeed) - - local wp = {} - wp.x = point.x - - if point.z then - wp.y = point.z - else - wp.y = point.y - end - local form, speed - - if point.speed and not overRideSpeed then - wp.speed = point.speed - elseif type(overRideSpeed) == 'number' then - wp.speed = overRideSpeed - else - wp.speed = routines.utils.kmphToMps(20) - end - - if point.form and not overRideForm then - form = point.form - else - form = overRideForm - end - - if not form then - wp.action = 'Cone' - else - form = string.lower(form) - if form == 'off_road' or form == 'off road' then - wp.action = 'Off Road' - elseif form == 'on_road' or form == 'on road' then - wp.action = 'On Road' - elseif form == 'rank' or form == 'line_abrest' or form == 'line abrest' or form == 'lineabrest'then - wp.action = 'Rank' - elseif form == 'cone' then - wp.action = 'Cone' - elseif form == 'diamond' then - wp.action = 'Diamond' - elseif form == 'vee' then - wp.action = 'Vee' - elseif form == 'echelon_left' or form == 'echelon left' or form == 'echelonl' then - wp.action = 'EchelonL' - elseif form == 'echelon_right' or form == 'echelon right' or form == 'echelonr' then - wp.action = 'EchelonR' - else - wp.action = 'Cone' -- if nothing matched - end - end - - wp.type = 'Turning Point' - - return wp - -end - -routines.fixedWing.buildWP = function(point, WPtype, speed, alt, altType) - - local wp = {} - wp.x = point.x - - if point.z then - wp.y = point.z - else - wp.y = point.y - end - - if alt and type(alt) == 'number' then - wp.alt = alt - else - wp.alt = 2000 - end - - if altType then - altType = string.lower(altType) - if altType == 'radio' or 'agl' then - wp.alt_type = 'RADIO' - elseif altType == 'baro' or 'asl' then - wp.alt_type = 'BARO' - end - else - wp.alt_type = 'RADIO' - end - - if point.speed then - speed = point.speed - end - - if point.type then - WPtype = point.type - end - - if not speed then - wp.speed = routines.utils.kmphToMps(500) - else - wp.speed = speed - end - - if not WPtype then - wp.action = 'Turning Point' - else - WPtype = string.lower(WPtype) - if WPtype == 'flyover' or WPtype == 'fly over' or WPtype == 'fly_over' then - wp.action = 'Fly Over Point' - elseif WPtype == 'turningpoint' or WPtype == 'turning point' or WPtype == 'turning_point' then - wp.action = 'Turning Point' - else - wp.action = 'Turning Point' - end - end - - wp.type = 'Turning Point' - return wp -end - -routines.heli.buildWP = function(point, WPtype, speed, alt, altType) - - local wp = {} - wp.x = point.x - - if point.z then - wp.y = point.z - else - wp.y = point.y - end - - if alt and type(alt) == 'number' then - wp.alt = alt - else - wp.alt = 500 - end - - if altType then - altType = string.lower(altType) - if altType == 'radio' or 'agl' then - wp.alt_type = 'RADIO' - elseif altType == 'baro' or 'asl' then - wp.alt_type = 'BARO' - end - else - wp.alt_type = 'RADIO' - end - - if point.speed then - speed = point.speed - end - - if point.type then - WPtype = point.type - end - - if not speed then - wp.speed = routines.utils.kmphToMps(200) - else - wp.speed = speed - end - - if not WPtype then - wp.action = 'Turning Point' - else - WPtype = string.lower(WPtype) - if WPtype == 'flyover' or WPtype == 'fly over' or WPtype == 'fly_over' then - wp.action = 'Fly Over Point' - elseif WPtype == 'turningpoint' or WPtype == 'turning point' or WPtype == 'turning_point' then - wp.action = 'Turning Point' - else - wp.action = 'Turning Point' - end - end - - wp.type = 'Turning Point' - return wp -end - -routines.groupToRandomPoint = function(vars) - local group = vars.group --Required - local point = vars.point --required - local radius = vars.radius or 0 - local innerRadius = vars.innerRadius - local form = vars.form or 'Cone' - local heading = vars.heading or math.random()*2*math.pi - local headingDegrees = vars.headingDegrees - local speed = vars.speed or routines.utils.kmphToMps(20) - - - local useRoads - if not vars.disableRoads then - useRoads = true - else - useRoads = false - end - - local path = {} - - if headingDegrees then - heading = headingDegrees*math.pi/180 - end - - if heading >= 2*math.pi then - heading = heading - 2*math.pi - end - - local rndCoord = routines.getRandPointInCircle(point, radius, innerRadius) - - local offset = {} - local posStart = routines.getLeadPos(group) - - offset.x = routines.utils.round(math.sin(heading - (math.pi/2)) * 50 + rndCoord.x, 3) - offset.z = routines.utils.round(math.cos(heading + (math.pi/2)) * 50 + rndCoord.y, 3) - path[#path + 1] = routines.ground.buildWP(posStart, form, speed) - - - if useRoads == true and ((point.x - posStart.x)^2 + (point.z - posStart.z)^2)^0.5 > radius * 1.3 then - path[#path + 1] = routines.ground.buildWP({['x'] = posStart.x + 11, ['z'] = posStart.z + 11}, 'off_road', speed) - path[#path + 1] = routines.ground.buildWP(posStart, 'on_road', speed) - path[#path + 1] = routines.ground.buildWP(offset, 'on_road', speed) - else - path[#path + 1] = routines.ground.buildWP({['x'] = posStart.x + 25, ['z'] = posStart.z + 25}, form, speed) - end - - path[#path + 1] = routines.ground.buildWP(offset, form, speed) - path[#path + 1] = routines.ground.buildWP(rndCoord, form, speed) - - routines.goRoute(group, path) - - return -end - -routines.groupRandomDistSelf = function(gpData, dist, form, heading, speed) - local pos = routines.getLeadPos(gpData) - local fakeZone = {} - fakeZone.radius = dist or math.random(300, 1000) - fakeZone.point = {x = pos.x, y, pos.y, z = pos.z} - routines.groupToRandomZone(gpData, fakeZone, form, heading, speed) - - return -end - -routines.groupToRandomZone = function(gpData, zone, form, heading, speed) - if type(gpData) == 'string' then - gpData = Group.getByName(gpData) - end - - if type(zone) == 'string' then - zone = trigger.misc.getZone(zone) - elseif type(zone) == 'table' and not zone.radius then - zone = trigger.misc.getZone(zone[math.random(1, #zone)]) - end - - if speed then - speed = routines.utils.kmphToMps(speed) - end - - local vars = {} - vars.group = gpData - vars.radius = zone.radius - vars.form = form - vars.headingDegrees = heading - vars.speed = speed - vars.point = routines.utils.zoneToVec3(zone) - - routines.groupToRandomPoint(vars) - - return -end - -routines.isTerrainValid = function(coord, terrainTypes) -- vec2/3 and enum or table of acceptable terrain types - if coord.z then - coord.y = coord.z - end - local typeConverted = {} - - if type(terrainTypes) == 'string' then -- if its a string it does this check - for constId, constData in pairs(land.SurfaceType) do - if string.lower(constId) == string.lower(terrainTypes) or string.lower(constData) == string.lower(terrainTypes) then - table.insert(typeConverted, constId) - end - end - elseif type(terrainTypes) == 'table' then -- if its a table it does this check - for typeId, typeData in pairs(terrainTypes) do - for constId, constData in pairs(land.SurfaceType) do - if string.lower(constId) == string.lower(typeData) or string.lower(constData) == string.lower(typeId) then - table.insert(typeConverted, constId) - end - end - end - end - for validIndex, validData in pairs(typeConverted) do - if land.getSurfaceType(coord) == land.SurfaceType[validData] then - return true - end - end - return false -end - -routines.groupToPoint = function(gpData, point, form, heading, speed, useRoads) - if type(point) == 'string' then - point = trigger.misc.getZone(point) - end - if speed then - speed = routines.utils.kmphToMps(speed) - end - - local vars = {} - vars.group = gpData - vars.form = form - vars.headingDegrees = heading - vars.speed = speed - vars.disableRoads = useRoads - vars.point = routines.utils.zoneToVec3(point) - routines.groupToRandomPoint(vars) - - return -end - - -routines.getLeadPos = function(group) - if type(group) == 'string' then -- group name - group = Group.getByName(group) - end - - local units = group:getUnits() - - local leader = units[1] - if not leader then -- SHOULD be good, but if there is a bug, this code future-proofs it then. - local lowestInd = math.huge - for ind, unit in pairs(units) do - if ind < lowestInd then - lowestInd = ind - leader = unit - end - end - end - if leader and Unit.isExist(leader) then -- maybe a little too paranoid now... - return leader:getPosition().p - end -end - ---[[ vars for routines.getMGRSString: -vars.units - table of unit names (NOT unitNameTable- maybe this should change). -vars.acc - integer between 0 and 5, inclusive -]] -routines.getMGRSString = function(vars) - local units = vars.units - local acc = vars.acc or 5 - local avgPos = routines.getAvgPos(units) - if avgPos then - return routines.tostringMGRS(coord.LLtoMGRS(coord.LOtoLL(avgPos)), acc) - end -end - ---[[ vars for routines.getLLString -vars.units - table of unit names (NOT unitNameTable- maybe this should change). -vars.acc - integer, number of numbers after decimal place -vars.DMS - if true, output in degrees, minutes, seconds. Otherwise, output in degrees, minutes. - - -]] -routines.getLLString = function(vars) - local units = vars.units - local acc = vars.acc or 3 - local DMS = vars.DMS - local avgPos = routines.getAvgPos(units) - if avgPos then - local lat, lon = coord.LOtoLL(avgPos) - return routines.tostringLL(lat, lon, acc, DMS) - end -end - ---[[ -vars.zone - table of a zone name. -vars.ref - vec3 ref point, maybe overload for vec2 as well? -vars.alt - boolean, if used, includes altitude in string -vars.metric - boolean, gives distance in km instead of NM. -]] -routines.getBRStringZone = function(vars) - local zone = trigger.misc.getZone( vars.zone ) - local ref = routines.utils.makeVec3(vars.ref, 0) -- turn it into Vec3 if it is not already. - local alt = vars.alt - local metric = vars.metric - if zone then - local vec = {x = zone.point.x - ref.x, y = zone.point.y - ref.y, z = zone.point.z - ref.z} - local dir = routines.utils.getDir(vec, ref) - local dist = routines.utils.get2DDist(zone.point, ref) - if alt then - alt = zone.y - end - return routines.tostringBR(dir, dist, alt, metric) - else - env.info( 'routines.getBRStringZone: error: zone is nil' ) - end -end - ---[[ -vars.units- table of unit names (NOT unitNameTable- maybe this should change). -vars.ref - vec3 ref point, maybe overload for vec2 as well? -vars.alt - boolean, if used, includes altitude in string -vars.metric - boolean, gives distance in km instead of NM. -]] -routines.getBRString = function(vars) - local units = vars.units - local ref = routines.utils.makeVec3(vars.ref, 0) -- turn it into Vec3 if it is not already. - local alt = vars.alt - local metric = vars.metric - local avgPos = routines.getAvgPos(units) - if avgPos then - local vec = {x = avgPos.x - ref.x, y = avgPos.y - ref.y, z = avgPos.z - ref.z} - local dir = routines.utils.getDir(vec, ref) - local dist = routines.utils.get2DDist(avgPos, ref) - if alt then - alt = avgPos.y - end - return routines.tostringBR(dir, dist, alt, metric) - end -end - - --- Returns the Vec3 coordinates of the average position of the concentration of units most in the heading direction. ---[[ vars for routines.getLeadingPos: -vars.units - table of unit names -vars.heading - direction -vars.radius - number -vars.headingDegrees - boolean, switches heading to degrees -]] -routines.getLeadingPos = function(vars) - local units = vars.units - local heading = vars.heading - local radius = vars.radius - if vars.headingDegrees then - heading = routines.utils.toRadian(vars.headingDegrees) - end - - local unitPosTbl = {} - for i = 1, #units do - local unit = Unit.getByName(units[i]) - if unit and unit:isExist() then - unitPosTbl[#unitPosTbl + 1] = unit:getPosition().p - end - end - if #unitPosTbl > 0 then -- one more more units found. - -- first, find the unit most in the heading direction - local maxPos = -math.huge - - local maxPosInd -- maxPos - the furthest in direction defined by heading; maxPosInd = - for i = 1, #unitPosTbl do - local rotatedVec2 = routines.vec.rotateVec2(routines.utils.makeVec2(unitPosTbl[i]), heading) - if (not maxPos) or maxPos < rotatedVec2.x then - maxPos = rotatedVec2.x - maxPosInd = i - end - end - - --now, get all the units around this unit... - local avgPos - if radius then - local maxUnitPos = unitPosTbl[maxPosInd] - local avgx, avgy, avgz, totNum = 0, 0, 0, 0 - for i = 1, #unitPosTbl do - if routines.utils.get2DDist(maxUnitPos, unitPosTbl[i]) <= radius then - avgx = avgx + unitPosTbl[i].x - avgy = avgy + unitPosTbl[i].y - avgz = avgz + unitPosTbl[i].z - totNum = totNum + 1 - end - end - avgPos = { x = avgx/totNum, y = avgy/totNum, z = avgz/totNum} - else - avgPos = unitPosTbl[maxPosInd] - end - - return avgPos - end -end - - ---[[ vars for routines.getLeadingMGRSString: -vars.units - table of unit names -vars.heading - direction -vars.radius - number -vars.headingDegrees - boolean, switches heading to degrees -vars.acc - number, 0 to 5. -]] -routines.getLeadingMGRSString = function(vars) - local pos = routines.getLeadingPos(vars) - if pos then - local acc = vars.acc or 5 - return routines.tostringMGRS(coord.LLtoMGRS(coord.LOtoLL(pos)), acc) - end -end - ---[[ vars for routines.getLeadingLLString: -vars.units - table of unit names -vars.heading - direction, number -vars.radius - number -vars.headingDegrees - boolean, switches heading to degrees -vars.acc - number of digits after decimal point (can be negative) -vars.DMS - boolean, true if you want DMS. -]] -routines.getLeadingLLString = function(vars) - local pos = routines.getLeadingPos(vars) - if pos then - local acc = vars.acc or 3 - local DMS = vars.DMS - local lat, lon = coord.LOtoLL(pos) - return routines.tostringLL(lat, lon, acc, DMS) - end -end - - - ---[[ vars for routines.getLeadingBRString: -vars.units - table of unit names -vars.heading - direction, number -vars.radius - number -vars.headingDegrees - boolean, switches heading to degrees -vars.metric - boolean, if true, use km instead of NM. -vars.alt - boolean, if true, include altitude. -vars.ref - vec3/vec2 reference point. -]] -routines.getLeadingBRString = function(vars) - local pos = routines.getLeadingPos(vars) - if pos then - local ref = vars.ref - local alt = vars.alt - local metric = vars.metric - - local vec = {x = pos.x - ref.x, y = pos.y - ref.y, z = pos.z - ref.z} - local dir = routines.utils.getDir(vec, ref) - local dist = routines.utils.get2DDist(pos, ref) - if alt then - alt = pos.y - end - return routines.tostringBR(dir, dist, alt, metric) - end -end - ---[[ vars for routines.message.add - vars.text = 'Hello World' - vars.displayTime = 20 - vars.msgFor = {coa = {'red'}, countries = {'Ukraine', 'Georgia'}, unitTypes = {'A-10C'}} - -]] - ---[[ vars for routines.msgMGRS -vars.units - table of unit names (NOT unitNameTable- maybe this should change). -vars.acc - integer between 0 and 5, inclusive -vars.text - text in the message -vars.displayTime - self explanatory -vars.msgFor - scope -]] -routines.msgMGRS = function(vars) - local units = vars.units - local acc = vars.acc - local text = vars.text - local displayTime = vars.displayTime - local msgFor = vars.msgFor - - local s = routines.getMGRSString{units = units, acc = acc} - local newText - if string.find(text, '%%s') then -- look for %s - newText = string.format(text, s) -- insert the coordinates into the message - else -- else, just append to the end. - newText = text .. s - end - - routines.message.add{ - text = newText, - displayTime = displayTime, - msgFor = msgFor - } -end - ---[[ vars for routines.msgLL -vars.units - table of unit names (NOT unitNameTable- maybe this should change) (Yes). -vars.acc - integer, number of numbers after decimal place -vars.DMS - if true, output in degrees, minutes, seconds. Otherwise, output in degrees, minutes. -vars.text - text in the message -vars.displayTime - self explanatory -vars.msgFor - scope -]] -routines.msgLL = function(vars) - local units = vars.units -- technically, I don't really need to do this, but it helps readability. - local acc = vars.acc - local DMS = vars.DMS - local text = vars.text - local displayTime = vars.displayTime - local msgFor = vars.msgFor - - local s = routines.getLLString{units = units, acc = acc, DMS = DMS} - local newText - if string.find(text, '%%s') then -- look for %s - newText = string.format(text, s) -- insert the coordinates into the message - else -- else, just append to the end. - newText = text .. s - end - - routines.message.add{ - text = newText, - displayTime = displayTime, - msgFor = msgFor - } - -end - - ---[[ -vars.units- table of unit names (NOT unitNameTable- maybe this should change). -vars.ref - vec3 ref point, maybe overload for vec2 as well? -vars.alt - boolean, if used, includes altitude in string -vars.metric - boolean, gives distance in km instead of NM. -vars.text - text of the message -vars.displayTime -vars.msgFor - scope -]] -routines.msgBR = function(vars) - local units = vars.units -- technically, I don't really need to do this, but it helps readability. - local ref = vars.ref -- vec2/vec3 will be handled in routines.getBRString - local alt = vars.alt - local metric = vars.metric - local text = vars.text - local displayTime = vars.displayTime - local msgFor = vars.msgFor - - local s = routines.getBRString{units = units, ref = ref, alt = alt, metric = metric} - local newText - if string.find(text, '%%s') then -- look for %s - newText = string.format(text, s) -- insert the coordinates into the message - else -- else, just append to the end. - newText = text .. s - end - - routines.message.add{ - text = newText, - displayTime = displayTime, - msgFor = msgFor - } - -end - - --------------------------------------------------------------------------------------------- --- basically, just sub-types of routines.msgBR... saves folks the work of getting the ref point. ---[[ -vars.units- table of unit names (NOT unitNameTable- maybe this should change). -vars.ref - string red, blue -vars.alt - boolean, if used, includes altitude in string -vars.metric - boolean, gives distance in km instead of NM. -vars.text - text of the message -vars.displayTime -vars.msgFor - scope -]] -routines.msgBullseye = function(vars) - if string.lower(vars.ref) == 'red' then - vars.ref = routines.DBs.missionData.bullseye.red - routines.msgBR(vars) - elseif string.lower(vars.ref) == 'blue' then - vars.ref = routines.DBs.missionData.bullseye.blue - routines.msgBR(vars) - end -end - ---[[ -vars.units- table of unit names (NOT unitNameTable- maybe this should change). -vars.ref - unit name of reference point -vars.alt - boolean, if used, includes altitude in string -vars.metric - boolean, gives distance in km instead of NM. -vars.text - text of the message -vars.displayTime -vars.msgFor - scope -]] - -routines.msgBRA = function(vars) - if Unit.getByName(vars.ref) then - vars.ref = Unit.getByName(vars.ref):getPosition().p - if not vars.alt then - vars.alt = true - end - routines.msgBR(vars) - end -end --------------------------------------------------------------------------------------------- - ---[[ vars for routines.msgLeadingMGRS: -vars.units - table of unit names -vars.heading - direction -vars.radius - number -vars.headingDegrees - boolean, switches heading to degrees (optional) -vars.acc - number, 0 to 5. -vars.text - text of the message -vars.displayTime -vars.msgFor - scope -]] -routines.msgLeadingMGRS = function(vars) - local units = vars.units -- technically, I don't really need to do this, but it helps readability. - local heading = vars.heading - local radius = vars.radius - local headingDegrees = vars.headingDegrees - local acc = vars.acc - local text = vars.text - local displayTime = vars.displayTime - local msgFor = vars.msgFor - - local s = routines.getLeadingMGRSString{units = units, heading = heading, radius = radius, headingDegrees = headingDegrees, acc = acc} - local newText - if string.find(text, '%%s') then -- look for %s - newText = string.format(text, s) -- insert the coordinates into the message - else -- else, just append to the end. - newText = text .. s - end - - routines.message.add{ - text = newText, - displayTime = displayTime, - msgFor = msgFor - } - - -end ---[[ vars for routines.msgLeadingLL: -vars.units - table of unit names -vars.heading - direction, number -vars.radius - number -vars.headingDegrees - boolean, switches heading to degrees (optional) -vars.acc - number of digits after decimal point (can be negative) -vars.DMS - boolean, true if you want DMS. (optional) -vars.text - text of the message -vars.displayTime -vars.msgFor - scope -]] -routines.msgLeadingLL = function(vars) - local units = vars.units -- technically, I don't really need to do this, but it helps readability. - local heading = vars.heading - local radius = vars.radius - local headingDegrees = vars.headingDegrees - local acc = vars.acc - local DMS = vars.DMS - local text = vars.text - local displayTime = vars.displayTime - local msgFor = vars.msgFor - - local s = routines.getLeadingLLString{units = units, heading = heading, radius = radius, headingDegrees = headingDegrees, acc = acc, DMS = DMS} - local newText - if string.find(text, '%%s') then -- look for %s - newText = string.format(text, s) -- insert the coordinates into the message - else -- else, just append to the end. - newText = text .. s - end - - routines.message.add{ - text = newText, - displayTime = displayTime, - msgFor = msgFor - } - -end - ---[[ -vars.units - table of unit names -vars.heading - direction, number -vars.radius - number -vars.headingDegrees - boolean, switches heading to degrees (optional) -vars.metric - boolean, if true, use km instead of NM. (optional) -vars.alt - boolean, if true, include altitude. (optional) -vars.ref - vec3/vec2 reference point. -vars.text - text of the message -vars.displayTime -vars.msgFor - scope -]] -routines.msgLeadingBR = function(vars) - local units = vars.units -- technically, I don't really need to do this, but it helps readability. - local heading = vars.heading - local radius = vars.radius - local headingDegrees = vars.headingDegrees - local metric = vars.metric - local alt = vars.alt - local ref = vars.ref -- vec2/vec3 will be handled in routines.getBRString - local text = vars.text - local displayTime = vars.displayTime - local msgFor = vars.msgFor - - local s = routines.getLeadingBRString{units = units, heading = heading, radius = radius, headingDegrees = headingDegrees, metric = metric, alt = alt, ref = ref} - local newText - if string.find(text, '%%s') then -- look for %s - newText = string.format(text, s) -- insert the coordinates into the message - else -- else, just append to the end. - newText = text .. s - end - - routines.message.add{ - text = newText, - displayTime = displayTime, - msgFor = msgFor - } -end - - -function spairs(t, order) - -- collect the keys - local keys = {} - for k in pairs(t) do keys[#keys+1] = k end - - -- if order function given, sort by it by passing the table and keys a, b, - -- otherwise just sort the keys - if order then - table.sort(keys, function(a,b) return order(t, a, b) end) - else - table.sort(keys) - end - - -- return the iterator function - local i = 0 - return function() - i = i + 1 - if keys[i] then - return keys[i], t[keys[i]] - end - end -end - - -function routines.IsPartOfGroupInZones( CargoGroup, LandingZones ) ---trace.f() - - local CurrentZoneID = nil - - if CargoGroup then - local CargoUnits = CargoGroup:getUnits() - for CargoUnitID, CargoUnit in pairs( CargoUnits ) do - if CargoUnit and CargoUnit:getLife() >= 1.0 then - CurrentZoneID = routines.IsUnitInZones( CargoUnit, LandingZones ) - if CurrentZoneID then - break - end - end - end - end - ---trace.r( "", "", { CurrentZoneID } ) - return CurrentZoneID -end - - - -function routines.IsUnitInZones( TransportUnit, LandingZones ) ---trace.f("", "routines.IsUnitInZones" ) - - local TransportZoneResult = nil - local TransportZonePos = nil - local TransportZone = nil - - -- fill-up some local variables to support further calculations to determine location of units within the zone. - if TransportUnit then - local TransportUnitPos = TransportUnit:getPosition().p - if type( LandingZones ) == "table" then - for LandingZoneID, LandingZoneName in pairs( LandingZones ) do - TransportZone = trigger.misc.getZone( LandingZoneName ) - if TransportZone then - TransportZonePos = {radius = TransportZone.radius, x = TransportZone.point.x, y = TransportZone.point.y, z = TransportZone.point.z} - if ((( TransportUnitPos.x - TransportZonePos.x)^2 + (TransportUnitPos.z - TransportZonePos.z)^2)^0.5 <= TransportZonePos.radius) then - TransportZoneResult = LandingZoneID - break - end - end - end - else - TransportZone = trigger.misc.getZone( LandingZones ) - TransportZonePos = {radius = TransportZone.radius, x = TransportZone.point.x, y = TransportZone.point.y, z = TransportZone.point.z} - if ((( TransportUnitPos.x - TransportZonePos.x)^2 + (TransportUnitPos.z - TransportZonePos.z)^2)^0.5 <= TransportZonePos.radius) then - TransportZoneResult = 1 - end - end - if TransportZoneResult then - --trace.i( "routines", "TransportZone:" .. TransportZoneResult ) - else - --trace.i( "routines", "TransportZone:nil logic" ) - end - return TransportZoneResult - else - --trace.i( "routines", "TransportZone:nil hard" ) - return nil - end -end - -function routines.IsUnitNearZonesRadius( TransportUnit, LandingZones, ZoneRadius ) ---trace.f("", "routines.IsUnitInZones" ) - - local TransportZoneResult = nil - local TransportZonePos = nil - local TransportZone = nil - - -- fill-up some local variables to support further calculations to determine location of units within the zone. - if TransportUnit then - local TransportUnitPos = TransportUnit:getPosition().p - if type( LandingZones ) == "table" then - for LandingZoneID, LandingZoneName in pairs( LandingZones ) do - TransportZone = trigger.misc.getZone( LandingZoneName ) - if TransportZone then - TransportZonePos = {radius = TransportZone.radius, x = TransportZone.point.x, y = TransportZone.point.y, z = TransportZone.point.z} - if ((( TransportUnitPos.x - TransportZonePos.x)^2 + (TransportUnitPos.z - TransportZonePos.z)^2)^0.5 <= ZoneRadius ) then - TransportZoneResult = LandingZoneID - break - end - end - end - else - TransportZone = trigger.misc.getZone( LandingZones ) - TransportZonePos = {radius = TransportZone.radius, x = TransportZone.point.x, y = TransportZone.point.y, z = TransportZone.point.z} - if ((( TransportUnitPos.x - TransportZonePos.x)^2 + (TransportUnitPos.z - TransportZonePos.z)^2)^0.5 <= ZoneRadius ) then - TransportZoneResult = 1 - end - end - if TransportZoneResult then - --trace.i( "routines", "TransportZone:" .. TransportZoneResult ) - else - --trace.i( "routines", "TransportZone:nil logic" ) - end - return TransportZoneResult - else - --trace.i( "routines", "TransportZone:nil hard" ) - return nil - end -end - - -function routines.IsStaticInZones( TransportStatic, LandingZones ) ---trace.f() - - local TransportZoneResult = nil - local TransportZonePos = nil - local TransportZone = nil - - -- fill-up some local variables to support further calculations to determine location of units within the zone. - local TransportStaticPos = TransportStatic:getPosition().p - if type( LandingZones ) == "table" then - for LandingZoneID, LandingZoneName in pairs( LandingZones ) do - TransportZone = trigger.misc.getZone( LandingZoneName ) - if TransportZone then - TransportZonePos = {radius = TransportZone.radius, x = TransportZone.point.x, y = TransportZone.point.y, z = TransportZone.point.z} - if ((( TransportStaticPos.x - TransportZonePos.x)^2 + (TransportStaticPos.z - TransportZonePos.z)^2)^0.5 <= TransportZonePos.radius) then - TransportZoneResult = LandingZoneID - break - end - end - end - else - TransportZone = trigger.misc.getZone( LandingZones ) - TransportZonePos = {radius = TransportZone.radius, x = TransportZone.point.x, y = TransportZone.point.y, z = TransportZone.point.z} - if ((( TransportStaticPos.x - TransportZonePos.x)^2 + (TransportStaticPos.z - TransportZonePos.z)^2)^0.5 <= TransportZonePos.radius) then - TransportZoneResult = 1 - end - end - ---trace.r( "", "", { TransportZoneResult } ) - return TransportZoneResult -end - - -function routines.IsUnitInRadius( CargoUnit, ReferencePosition, Radius ) ---trace.f() - - local Valid = true - - -- fill-up some local variables to support further calculations to determine location of units within the zone. - local CargoPos = CargoUnit:getPosition().p - local ReferenceP = ReferencePosition.p - - if (((CargoPos.x - ReferenceP.x)^2 + (CargoPos.z - ReferenceP.z)^2)^0.5 <= Radius) then - else - Valid = false - end - - return Valid -end - -function routines.IsPartOfGroupInRadius( CargoGroup, ReferencePosition, Radius ) ---trace.f() - - local Valid = true - - Valid = routines.ValidateGroup( CargoGroup, "CargoGroup", Valid ) - - -- fill-up some local variables to support further calculations to determine location of units within the zone - local CargoUnits = CargoGroup:getUnits() - for CargoUnitId, CargoUnit in pairs( CargoUnits ) do - local CargoUnitPos = CargoUnit:getPosition().p --- env.info( 'routines.IsPartOfGroupInRadius: CargoUnitPos.x = ' .. CargoUnitPos.x .. ' CargoUnitPos.z = ' .. CargoUnitPos.z ) - local ReferenceP = ReferencePosition.p --- env.info( 'routines.IsPartOfGroupInRadius: ReferenceGroupPos.x = ' .. ReferenceGroupPos.x .. ' ReferenceGroupPos.z = ' .. ReferenceGroupPos.z ) - - if ((( CargoUnitPos.x - ReferenceP.x)^2 + (CargoUnitPos.z - ReferenceP.z)^2)^0.5 <= Radius) then - else - Valid = false - break - end - end - - return Valid -end - - -function routines.ValidateString( Variable, VariableName, Valid ) ---trace.f() - - if type( Variable ) == "string" then - if Variable == "" then - error( "routines.ValidateString: error: " .. VariableName .. " must be filled out!" ) - Valid = false - end - else - error( "routines.ValidateString: error: " .. VariableName .. " is not a string." ) - Valid = false - end - ---trace.r( "", "", { Valid } ) - return Valid -end - -function routines.ValidateNumber( Variable, VariableName, Valid ) ---trace.f() - - if type( Variable ) == "number" then - else - error( "routines.ValidateNumber: error: " .. VariableName .. " is not a number." ) - Valid = false - end - ---trace.r( "", "", { Valid } ) - return Valid - -end - -function routines.ValidateGroup( Variable, VariableName, Valid ) ---trace.f() - - if Variable == nil then - error( "routines.ValidateGroup: error: " .. VariableName .. " is a nil value!" ) - Valid = false - end - ---trace.r( "", "", { Valid } ) - return Valid -end - -function routines.ValidateZone( LandingZones, VariableName, Valid ) ---trace.f() - - if LandingZones == nil then - error( "routines.ValidateGroup: error: " .. VariableName .. " is a nil value!" ) - Valid = false - end - - if type( LandingZones ) == "table" then - for LandingZoneID, LandingZoneName in pairs( LandingZones ) do - if trigger.misc.getZone( LandingZoneName ) == nil then - error( "routines.ValidateGroup: error: Zone " .. LandingZoneName .. " does not exist!" ) - Valid = false - break - end - end - else - if trigger.misc.getZone( LandingZones ) == nil then - error( "routines.ValidateGroup: error: Zone " .. LandingZones .. " does not exist!" ) - Valid = false - end - end - ---trace.r( "", "", { Valid } ) - return Valid -end - -function routines.ValidateEnumeration( Variable, VariableName, Enum, Valid ) ---trace.f() - - local ValidVariable = false - - for EnumId, EnumData in pairs( Enum ) do - if Variable == EnumData then - ValidVariable = true - break - end - end - - if ValidVariable then - else - error( 'TransportValidateEnum: " .. VariableName .. " is not a valid type.' .. Variable ) - Valid = false - end - ---trace.r( "", "", { Valid } ) - return Valid -end - -function routines.getGroupRoute(groupIdent, task) -- same as getGroupPoints but returns speed and formation type along with vec2 of point} - -- refactor to search by groupId and allow groupId and groupName as inputs - local gpId = groupIdent - if type(groupIdent) == 'string' and not tonumber(groupIdent) then - gpId = _DATABASE.Templates.Groups[groupIdent].groupId - end - - for coa_name, coa_data in pairs(env.mission.coalition) do - if (coa_name == 'red' or coa_name == 'blue') and type(coa_data) == 'table' then - if coa_data.country then --there is a country table - for cntry_id, cntry_data in pairs(coa_data.country) do - for obj_type_name, obj_type_data in pairs(cntry_data) do - if obj_type_name == "helicopter" or obj_type_name == "ship" or obj_type_name == "plane" or obj_type_name == "vehicle" then -- only these types have points - if ((type(obj_type_data) == 'table') and obj_type_data.group and (type(obj_type_data.group) == 'table') and (#obj_type_data.group > 0)) then --there's a group! - for group_num, group_data in pairs(obj_type_data.group) do - if group_data and group_data.groupId == gpId then -- this is the group we are looking for - if group_data.route and group_data.route.points and #group_data.route.points > 0 then - local points = {} - - for point_num, point in pairs(group_data.route.points) do - local routeData = {} - if not point.point then - routeData.x = point.x - routeData.y = point.y - else - routeData.point = point.point --it's possible that the ME could move to the point = Vec2 notation. - end - routeData.form = point.action - routeData.speed = point.speed - routeData.alt = point.alt - routeData.alt_type = point.alt_type - routeData.airdromeId = point.airdromeId - routeData.helipadId = point.helipadId - routeData.type = point.type - routeData.action = point.action - if task then - routeData.task = point.task - end - points[point_num] = routeData - end - - return points - end - return - end --if group_data and group_data.name and group_data.name == 'groupname' - end --for group_num, group_data in pairs(obj_type_data.group) do - end --if ((type(obj_type_data) == 'table') and obj_type_data.group and (type(obj_type_data.group) == 'table') and (#obj_type_data.group > 0)) then - end --if obj_type_name == "helicopter" or obj_type_name == "ship" or obj_type_name == "plane" or obj_type_name == "vehicle" or obj_type_name == "static" then - end --for obj_type_name, obj_type_data in pairs(cntry_data) do - end --for cntry_id, cntry_data in pairs(coa_data.country) do - end --if coa_data.country then --there is a country table - end --if coa_name == 'red' or coa_name == 'blue' and type(coa_data) == 'table' then - end --for coa_name, coa_data in pairs(mission.coalition) do -end - -routines.ground.patrolRoute = function(vars) - - - local tempRoute = {} - local useRoute = {} - local gpData = vars.gpData - if type(gpData) == 'string' then - gpData = Group.getByName(gpData) - end - - local useGroupRoute - if not vars.useGroupRoute then - useGroupRoute = vars.gpData - else - useGroupRoute = vars.useGroupRoute - end - local routeProvided = false - if not vars.route then - if useGroupRoute then - tempRoute = routines.getGroupRoute(useGroupRoute) - end - else - useRoute = vars.route - local posStart = routines.getLeadPos(gpData) - useRoute[1] = routines.ground.buildWP(posStart, useRoute[1].action, useRoute[1].speed) - routeProvided = true - end - - - local overRideSpeed = vars.speed or 'default' - local pType = vars.pType - local offRoadForm = vars.offRoadForm or 'default' - local onRoadForm = vars.onRoadForm or 'default' - - if routeProvided == false and #tempRoute > 0 then - local posStart = routines.getLeadPos(gpData) - - - useRoute[#useRoute + 1] = routines.ground.buildWP(posStart, offRoadForm, overRideSpeed) - for i = 1, #tempRoute do - local tempForm = tempRoute[i].action - local tempSpeed = tempRoute[i].speed - - if offRoadForm == 'default' then - tempForm = tempRoute[i].action - end - if onRoadForm == 'default' then - onRoadForm = 'On Road' - end - if (string.lower(tempRoute[i].action) == 'on road' or string.lower(tempRoute[i].action) == 'onroad' or string.lower(tempRoute[i].action) == 'on_road') then - tempForm = onRoadForm - else - tempForm = offRoadForm - end - - if type(overRideSpeed) == 'number' then - tempSpeed = overRideSpeed - end - - - useRoute[#useRoute + 1] = routines.ground.buildWP(tempRoute[i], tempForm, tempSpeed) - end - - if pType and string.lower(pType) == 'doubleback' then - local curRoute = routines.utils.deepCopy(useRoute) - for i = #curRoute, 2, -1 do - useRoute[#useRoute + 1] = routines.ground.buildWP(curRoute[i], curRoute[i].action, curRoute[i].speed) - end - end - - useRoute[1].action = useRoute[#useRoute].action -- make it so the first WP matches the last WP - end - - local cTask3 = {} - local newPatrol = {} - newPatrol.route = useRoute - newPatrol.gpData = gpData:getName() - cTask3[#cTask3 + 1] = 'routines.ground.patrolRoute(' - cTask3[#cTask3 + 1] = routines.utils.oneLineSerialize(newPatrol) - cTask3[#cTask3 + 1] = ')' - cTask3 = table.concat(cTask3) - local tempTask = { - id = 'WrappedAction', - params = { - action = { - id = 'Script', - params = { - command = cTask3, - - }, - }, - }, - } - - - useRoute[#useRoute].task = tempTask - routines.goRoute(gpData, useRoute) - - return -end - -routines.ground.patrol = function(gpData, pType, form, speed) - local vars = {} - - if type(gpData) == 'table' and gpData:getName() then - gpData = gpData:getName() - end - - vars.useGroupRoute = gpData - vars.gpData = gpData - vars.pType = pType - vars.offRoadForm = form - vars.speed = speed - - routines.ground.patrolRoute(vars) - - return -end - -function routines.GetUnitHeight( CheckUnit ) ---trace.f( "routines" ) - - local UnitPoint = CheckUnit:getPoint() - local UnitPosition = { x = UnitPoint.x, y = UnitPoint.z } - local UnitHeight = UnitPoint.y - - local LandHeight = land.getHeight( UnitPosition ) - - --env.info(( 'CarrierHeight: LandHeight = ' .. LandHeight .. ' CarrierHeight = ' .. CarrierHeight )) - - --trace.f( "routines", "Unit Height = " .. UnitHeight - LandHeight ) - - return UnitHeight - LandHeight - -end - - - -Su34Status = { status = {} } -boardMsgRed = { statusMsg = "" } -boardMsgAll = { timeMsg = "" } -SpawnSettings = {} -Su34MenuPath = {} -Su34Menus = 0 - - -function Su34AttackCarlVinson(groupName) ---trace.menu("", "Su34AttackCarlVinson") - local groupSu34 = Group.getByName( groupName ) - local controllerSu34 = groupSu34.getController(groupSu34) - local groupCarlVinson = Group.getByName("US Carl Vinson #001") - controllerSu34.setOption( controllerSu34, AI.Option.Air.id.ROE, AI.Option.Air.val.ROE.OPEN_FIRE ) - controllerSu34.setOption( controllerSu34, AI.Option.Air.id.REACTION_ON_THREAT, AI.Option.Air.val.REACTION_ON_THREAT.EVADE_FIRE ) - if groupCarlVinson ~= nil then - controllerSu34.pushTask(controllerSu34,{id = 'AttackGroup', params = { groupId = groupCarlVinson:getID(), expend = AI.Task.WeaponExpend.ALL, attackQtyLimit = true}}) - end - Su34Status.status[groupName] = 1 - MessageToRed( string.format('%s: ',groupName) .. 'Attacking carrier Carl Vinson. ', 10, 'RedStatus' .. groupName ) -end - -function Su34AttackWest(groupName) ---trace.f("","Su34AttackWest") - local groupSu34 = Group.getByName( groupName ) - local controllerSu34 = groupSu34.getController(groupSu34) - local groupShipWest1 = Group.getByName("US Ship West #001") - local groupShipWest2 = Group.getByName("US Ship West #002") - controllerSu34.setOption( controllerSu34, AI.Option.Air.id.ROE, AI.Option.Air.val.ROE.OPEN_FIRE ) - controllerSu34.setOption( controllerSu34, AI.Option.Air.id.REACTION_ON_THREAT, AI.Option.Air.val.REACTION_ON_THREAT.EVADE_FIRE ) - if groupShipWest1 ~= nil then - controllerSu34.pushTask(controllerSu34,{id = 'AttackGroup', params = { groupId = groupShipWest1:getID(), expend = AI.Task.WeaponExpend.ALL, attackQtyLimit = true}}) - end - if groupShipWest2 ~= nil then - controllerSu34.pushTask(controllerSu34,{id = 'AttackGroup', params = { groupId = groupShipWest2:getID(), expend = AI.Task.WeaponExpend.ALL, attackQtyLimit = true}}) - end - Su34Status.status[groupName] = 2 - MessageToRed( string.format('%s: ',groupName) .. 'Attacking invading ships in the west. ', 10, 'RedStatus' .. groupName ) -end - -function Su34AttackNorth(groupName) ---trace.menu("","Su34AttackNorth") - local groupSu34 = Group.getByName( groupName ) - local controllerSu34 = groupSu34.getController(groupSu34) - local groupShipNorth1 = Group.getByName("US Ship North #001") - local groupShipNorth2 = Group.getByName("US Ship North #002") - local groupShipNorth3 = Group.getByName("US Ship North #003") - controllerSu34.setOption( controllerSu34, AI.Option.Air.id.ROE, AI.Option.Air.val.ROE.OPEN_FIRE ) - controllerSu34.setOption( controllerSu34, AI.Option.Air.id.REACTION_ON_THREAT, AI.Option.Air.val.REACTION_ON_THREAT.EVADE_FIRE ) - if groupShipNorth1 ~= nil then - controllerSu34.pushTask(controllerSu34,{id = 'AttackGroup', params = { groupId = groupShipNorth1:getID(), expend = AI.Task.WeaponExpend.ALL, attackQtyLimit = false}}) - end - if groupShipNorth2 ~= nil then - controllerSu34.pushTask(controllerSu34,{id = 'AttackGroup', params = { groupId = groupShipNorth2:getID(), expend = AI.Task.WeaponExpend.ALL, attackQtyLimit = false}}) - end - if groupShipNorth3 ~= nil then - controllerSu34.pushTask(controllerSu34,{id = 'AttackGroup', params = { groupId = groupShipNorth3:getID(), expend = AI.Task.WeaponExpend.ALL, attackQtyLimit = false}}) - end - Su34Status.status[groupName] = 3 - MessageToRed( string.format('%s: ',groupName) .. 'Attacking invading ships in the north. ', 10, 'RedStatus' .. groupName ) -end - -function Su34Orbit(groupName) ---trace.menu("","Su34Orbit") - local groupSu34 = Group.getByName( groupName ) - local controllerSu34 = groupSu34:getController() - controllerSu34.setOption( controllerSu34, AI.Option.Air.id.ROE, AI.Option.Air.val.ROE.WEAPON_HOLD ) - controllerSu34.setOption( controllerSu34, AI.Option.Air.id.REACTION_ON_THREAT, AI.Option.Air.val.REACTION_ON_THREAT.EVADE_FIRE ) - controllerSu34:pushTask( {id = 'ControlledTask', params = { task = { id = 'Orbit', params = { pattern = AI.Task.OrbitPattern.RACE_TRACK } }, stopCondition = { duration = 600 } } } ) - Su34Status.status[groupName] = 4 - MessageToRed( string.format('%s: ',groupName) .. 'In orbit and awaiting further instructions. ', 10, 'RedStatus' .. groupName ) -end - -function Su34TakeOff(groupName) ---trace.menu("","Su34TakeOff") - local groupSu34 = Group.getByName( groupName ) - local controllerSu34 = groupSu34:getController() - controllerSu34.setOption( controllerSu34, AI.Option.Air.id.ROE, AI.Option.Air.val.ROE.WEAPON_HOLD ) - controllerSu34.setOption( controllerSu34, AI.Option.Air.id.REACTION_ON_THREAT, AI.Option.Air.val.REACTION_ON_THREAT.BYPASS_AND_ESCAPE ) - Su34Status.status[groupName] = 8 - MessageToRed( string.format('%s: ',groupName) .. 'Take-Off. ', 10, 'RedStatus' .. groupName ) -end - -function Su34Hold(groupName) ---trace.menu("","Su34Hold") - local groupSu34 = Group.getByName( groupName ) - local controllerSu34 = groupSu34:getController() - controllerSu34.setOption( controllerSu34, AI.Option.Air.id.ROE, AI.Option.Air.val.ROE.WEAPON_HOLD ) - controllerSu34.setOption( controllerSu34, AI.Option.Air.id.REACTION_ON_THREAT, AI.Option.Air.val.REACTION_ON_THREAT.BYPASS_AND_ESCAPE ) - Su34Status.status[groupName] = 5 - MessageToRed( string.format('%s: ',groupName) .. 'Holding Weapons. ', 10, 'RedStatus' .. groupName ) -end - -function Su34RTB(groupName) ---trace.menu("","Su34RTB") - Su34Status.status[groupName] = 6 - MessageToRed( string.format('%s: ',groupName) .. 'Return to Krasnodar. ', 10, 'RedStatus' .. groupName ) -end - -function Su34Destroyed(groupName) ---trace.menu("","Su34Destroyed") - Su34Status.status[groupName] = 7 - MessageToRed( string.format('%s: ',groupName) .. 'Destroyed. ', 30, 'RedStatus' .. groupName ) -end - -function GroupAlive( groupName ) ---trace.menu("","GroupAlive") - local groupTest = Group.getByName( groupName ) - - local groupExists = false - - if groupTest then - groupExists = groupTest:isExist() - end - - --trace.r( "", "", { groupExists } ) - return groupExists -end - -function Su34IsDead() ---trace.f() - -end - -function Su34OverviewStatus() ---trace.menu("","Su34OverviewStatus") - local msg = "" - local currentStatus = 0 - local Exists = false - - for groupName, currentStatus in pairs(Su34Status.status) do - - env.info(('Su34 Overview Status: GroupName = ' .. groupName )) - Alive = GroupAlive( groupName ) - - if Alive then - if currentStatus == 1 then - msg = msg .. string.format("%s: ",groupName) - msg = msg .. "Attacking carrier Carl Vinson. " - elseif currentStatus == 2 then - msg = msg .. string.format("%s: ",groupName) - msg = msg .. "Attacking supporting ships in the west. " - elseif currentStatus == 3 then - msg = msg .. string.format("%s: ",groupName) - msg = msg .. "Attacking invading ships in the north. " - elseif currentStatus == 4 then - msg = msg .. string.format("%s: ",groupName) - msg = msg .. "In orbit and awaiting further instructions. " - elseif currentStatus == 5 then - msg = msg .. string.format("%s: ",groupName) - msg = msg .. "Holding Weapons. " - elseif currentStatus == 6 then - msg = msg .. string.format("%s: ",groupName) - msg = msg .. "Return to Krasnodar. " - elseif currentStatus == 7 then - msg = msg .. string.format("%s: ",groupName) - msg = msg .. "Destroyed. " - elseif currentStatus == 8 then - msg = msg .. string.format("%s: ",groupName) - msg = msg .. "Take-Off. " - end - else - if currentStatus == 7 then - msg = msg .. string.format("%s: ",groupName) - msg = msg .. "Destroyed. " - else - Su34Destroyed(groupName) - end - end - end - - boardMsgRed.statusMsg = msg -end - - -function UpdateBoardMsg() ---trace.f() - Su34OverviewStatus() - MessageToRed( boardMsgRed.statusMsg, 15, 'RedStatus' ) -end - -function MusicReset( flg ) ---trace.f() - trigger.action.setUserFlag(95,flg) -end - -function PlaneActivate(groupNameFormat, flg) ---trace.f() - local groupName = groupNameFormat .. string.format("#%03d", trigger.misc.getUserFlag(flg)) - --trigger.action.outText(groupName,10) - trigger.action.activateGroup(Group.getByName(groupName)) -end - -function Su34Menu(groupName) ---trace.f() - - --env.info(( 'Su34Menu(' .. groupName .. ')' )) - local groupSu34 = Group.getByName( groupName ) - - if Su34Status.status[groupName] == 1 or - Su34Status.status[groupName] == 2 or - Su34Status.status[groupName] == 3 or - Su34Status.status[groupName] == 4 or - Su34Status.status[groupName] == 5 then - if Su34MenuPath[groupName] == nil then - if planeMenuPath == nil then - planeMenuPath = missionCommands.addSubMenuForCoalition( - coalition.side.RED, - "SU-34 anti-ship flights", - nil - ) - end - Su34MenuPath[groupName] = missionCommands.addSubMenuForCoalition( - coalition.side.RED, - "Flight " .. groupName, - planeMenuPath - ) - - missionCommands.addCommandForCoalition( - coalition.side.RED, - "Attack carrier Carl Vinson", - Su34MenuPath[groupName], - Su34AttackCarlVinson, - groupName - ) - - missionCommands.addCommandForCoalition( - coalition.side.RED, - "Attack ships in the west", - Su34MenuPath[groupName], - Su34AttackWest, - groupName - ) - - missionCommands.addCommandForCoalition( - coalition.side.RED, - "Attack ships in the north", - Su34MenuPath[groupName], - Su34AttackNorth, - groupName - ) - - missionCommands.addCommandForCoalition( - coalition.side.RED, - "Hold position and await instructions", - Su34MenuPath[groupName], - Su34Orbit, - groupName - ) - - missionCommands.addCommandForCoalition( - coalition.side.RED, - "Report status", - Su34MenuPath[groupName], - Su34OverviewStatus - ) - end - else - if Su34MenuPath[groupName] then - missionCommands.removeItemForCoalition(coalition.side.RED, Su34MenuPath[groupName]) - end - end -end - ---- Obsolete function, but kept to rework in framework. - -function ChooseInfantry ( TeleportPrefixTable, TeleportMax ) ---trace.f("Spawn") - --env.info(( 'ChooseInfantry: ' )) - - TeleportPrefixTableCount = #TeleportPrefixTable - TeleportPrefixTableIndex = math.random( 1, TeleportPrefixTableCount ) - - --env.info(( 'ChooseInfantry: TeleportPrefixTableIndex = ' .. TeleportPrefixTableIndex .. ' TeleportPrefixTableCount = ' .. TeleportPrefixTableCount .. ' TeleportMax = ' .. TeleportMax )) - - local TeleportFound = false - local TeleportLoop = true - local Index = TeleportPrefixTableIndex - local TeleportPrefix = '' - - while TeleportLoop do - TeleportPrefix = TeleportPrefixTable[Index] - if SpawnSettings[TeleportPrefix] then - if SpawnSettings[TeleportPrefix]['SpawnCount'] - 1 < TeleportMax then - SpawnSettings[TeleportPrefix]['SpawnCount'] = SpawnSettings[TeleportPrefix]['SpawnCount'] + 1 - TeleportFound = true - else - TeleportFound = false - end - else - SpawnSettings[TeleportPrefix] = {} - SpawnSettings[TeleportPrefix]['SpawnCount'] = 0 - TeleportFound = true - end - if TeleportFound then - TeleportLoop = false - else - if Index < TeleportPrefixTableCount then - Index = Index + 1 - else - TeleportLoop = false - end - end - --env.info(( 'ChooseInfantry: Loop 1 - TeleportPrefix = ' .. TeleportPrefix .. ' Index = ' .. Index )) - end - - if TeleportFound == false then - TeleportLoop = true - Index = 1 - while TeleportLoop do - TeleportPrefix = TeleportPrefixTable[Index] - if SpawnSettings[TeleportPrefix] then - if SpawnSettings[TeleportPrefix]['SpawnCount'] - 1 < TeleportMax then - SpawnSettings[TeleportPrefix]['SpawnCount'] = SpawnSettings[TeleportPrefix]['SpawnCount'] + 1 - TeleportFound = true - else - TeleportFound = false - end - else - SpawnSettings[TeleportPrefix] = {} - SpawnSettings[TeleportPrefix]['SpawnCount'] = 0 - TeleportFound = true - end - if TeleportFound then - TeleportLoop = false - else - if Index < TeleportPrefixTableIndex then - Index = Index + 1 - else - TeleportLoop = false - end - end - --env.info(( 'ChooseInfantry: Loop 2 - TeleportPrefix = ' .. TeleportPrefix .. ' Index = ' .. Index )) - end - end - - local TeleportGroupName = '' - if TeleportFound == true then - TeleportGroupName = TeleportPrefix .. string.format("#%03d", SpawnSettings[TeleportPrefix]['SpawnCount'] ) - else - TeleportGroupName = '' - end - - --env.info(('ChooseInfantry: TeleportGroupName = ' .. TeleportGroupName )) - --env.info(('ChooseInfantry: return')) - - return TeleportGroupName -end - -SpawnedInfantry = 0 - -function LandCarrier ( CarrierGroup, LandingZonePrefix ) ---trace.f() - --env.info(( 'LandCarrier: ' )) - --env.info(( 'LandCarrier: CarrierGroup = ' .. CarrierGroup:getName() )) - --env.info(( 'LandCarrier: LandingZone = ' .. LandingZonePrefix )) - - local controllerGroup = CarrierGroup:getController() - - local LandingZone = trigger.misc.getZone(LandingZonePrefix) - local LandingZonePos = {} - LandingZonePos.x = LandingZone.point.x + math.random(LandingZone.radius * -1, LandingZone.radius) - LandingZonePos.y = LandingZone.point.z + math.random(LandingZone.radius * -1, LandingZone.radius) - - controllerGroup:pushTask( { id = 'Land', params = { point = LandingZonePos, durationFlag = true, duration = 10 } } ) - - --env.info(( 'LandCarrier: end' )) -end - -EscortCount = 0 -function EscortCarrier ( CarrierGroup, EscortPrefix, EscortLastWayPoint, EscortEngagementDistanceMax, EscortTargetTypes ) ---trace.f() - --env.info(( 'EscortCarrier: ' )) - --env.info(( 'EscortCarrier: CarrierGroup = ' .. CarrierGroup:getName() )) - --env.info(( 'EscortCarrier: EscortPrefix = ' .. EscortPrefix )) - - local CarrierName = CarrierGroup:getName() - - local EscortMission = {} - local CarrierMission = {} - - local EscortMission = SpawnMissionGroup( EscortPrefix ) - local CarrierMission = SpawnMissionGroup( CarrierGroup:getName() ) - - if EscortMission ~= nil and CarrierMission ~= nil then - - EscortCount = EscortCount + 1 - EscortMissionName = string.format( EscortPrefix .. '#Escort %s', CarrierName ) - EscortMission.name = EscortMissionName - EscortMission.groupId = nil - EscortMission.lateActivation = false - EscortMission.taskSelected = false - - local EscortUnits = #EscortMission.units - for u = 1, EscortUnits do - EscortMission.units[u].name = string.format( EscortPrefix .. '#Escort %s %02d', CarrierName, u ) - EscortMission.units[u].unitId = nil - end - - - EscortMission.route.points[1].task = { id = "ComboTask", - params = - { - tasks = - { - [1] = - { - enabled = true, - auto = false, - id = "Escort", - number = 1, - params = - { - lastWptIndexFlagChangedManually = false, - groupId = CarrierGroup:getID(), - lastWptIndex = nil, - lastWptIndexFlag = false, - engagementDistMax = EscortEngagementDistanceMax, - targetTypes = EscortTargetTypes, - pos = - { - y = 20, - x = 20, - z = 0, - } -- end of ["pos"] - } -- end of ["params"] - } -- end of [1] - } -- end of ["tasks"] - } -- end of ["params"] - } -- end of ["task"] - - SpawnGroupAdd( EscortPrefix, EscortMission ) - - end -end - -function SendMessageToCarrier( CarrierGroup, CarrierMessage ) ---trace.f() - - if CarrierGroup ~= nil then - MessageToGroup( CarrierGroup, CarrierMessage, 30, 'Carrier/' .. CarrierGroup:getName() ) - end - -end - -function MessageToGroup( MsgGroup, MsgText, MsgTime, MsgName ) ---trace.f() - - if type(MsgGroup) == 'string' then - --env.info( 'MessageToGroup: Converted MsgGroup string "' .. MsgGroup .. '" into a Group structure.' ) - MsgGroup = Group.getByName( MsgGroup ) - end - - if MsgGroup ~= nil then - local MsgTable = {} - MsgTable.text = MsgText - MsgTable.displayTime = MsgTime - MsgTable.msgFor = { units = { MsgGroup:getUnits()[1]:getName() } } - MsgTable.name = MsgName - --routines.message.add( MsgTable ) - --env.info(('MessageToGroup: Message sent to ' .. MsgGroup:getUnits()[1]:getName() .. ' -> ' .. MsgText )) - end -end - -function MessageToUnit( UnitName, MsgText, MsgTime, MsgName ) ---trace.f() - - if UnitName ~= nil then - local MsgTable = {} - MsgTable.text = MsgText - MsgTable.displayTime = MsgTime - MsgTable.msgFor = { units = { UnitName } } - MsgTable.name = MsgName - --routines.message.add( MsgTable ) - end -end - -function MessageToAll( MsgText, MsgTime, MsgName ) ---trace.f() - - MESSAGE:New( MsgText, MsgTime, "Message" ):ToCoalition( coalition.side.RED ):ToCoalition( coalition.side.BLUE ) -end - -function MessageToRed( MsgText, MsgTime, MsgName ) ---trace.f() - - MESSAGE:New( MsgText, MsgTime, "To Red Coalition" ):ToCoalition( coalition.side.RED ) -end - -function MessageToBlue( MsgText, MsgTime, MsgName ) ---trace.f() - - MESSAGE:New( MsgText, MsgTime, "To Blue Coalition" ):ToCoalition( coalition.side.RED ) -end - -function getCarrierHeight( CarrierGroup ) ---trace.f() - - if CarrierGroup ~= nil then - if table.getn(CarrierGroup:getUnits()) == 1 then - local CarrierUnit = CarrierGroup:getUnits()[1] - local CurrentPoint = CarrierUnit:getPoint() - - local CurrentPosition = { x = CurrentPoint.x, y = CurrentPoint.z } - local CarrierHeight = CurrentPoint.y - - local LandHeight = land.getHeight( CurrentPosition ) - - --env.info(( 'CarrierHeight: LandHeight = ' .. LandHeight .. ' CarrierHeight = ' .. CarrierHeight )) - - return CarrierHeight - LandHeight - else - return 999999 - end - else - return 999999 - end - -end - -function GetUnitHeight( CheckUnit ) ---trace.f() - - local UnitPoint = CheckUnit:getPoint() - local UnitPosition = { x = CurrentPoint.x, y = CurrentPoint.z } - local UnitHeight = CurrentPoint.y - - local LandHeight = land.getHeight( CurrentPosition ) - - --env.info(( 'CarrierHeight: LandHeight = ' .. LandHeight .. ' CarrierHeight = ' .. CarrierHeight )) - - return UnitHeight - LandHeight - -end - - -_MusicTable = {} -_MusicTable.Files = {} -_MusicTable.Queue = {} -_MusicTable.FileCnt = 0 - - -function MusicRegister( SndRef, SndFile, SndTime ) ---trace.f() - - env.info(( 'MusicRegister: SndRef = ' .. SndRef )) - env.info(( 'MusicRegister: SndFile = ' .. SndFile )) - env.info(( 'MusicRegister: SndTime = ' .. SndTime )) - - - _MusicTable.FileCnt = _MusicTable.FileCnt + 1 - - _MusicTable.Files[_MusicTable.FileCnt] = {} - _MusicTable.Files[_MusicTable.FileCnt].Ref = SndRef - _MusicTable.Files[_MusicTable.FileCnt].File = SndFile - _MusicTable.Files[_MusicTable.FileCnt].Time = SndTime - - if not _MusicTable.Function then - _MusicTable.Function = routines.scheduleFunction( MusicScheduler, { }, timer.getTime() + 10, 10) - end - -end - -function MusicToPlayer( SndRef, PlayerName, SndContinue ) ---trace.f() - - --env.info(( 'MusicToPlayer: SndRef = ' .. SndRef )) - - local PlayerUnits = AlivePlayerUnits() - for PlayerUnitIdx, PlayerUnit in pairs(PlayerUnits) do - local PlayerUnitName = PlayerUnit:getPlayerName() - --env.info(( 'MusicToPlayer: PlayerUnitName = ' .. PlayerUnitName )) - if PlayerName == PlayerUnitName then - PlayerGroup = PlayerUnit:getGroup() - if PlayerGroup then - --env.info(( 'MusicToPlayer: PlayerGroup = ' .. PlayerGroup:getName() )) - MusicToGroup( SndRef, PlayerGroup, SndContinue ) - end - break - end - end - - --env.info(( 'MusicToPlayer: end' )) - -end - -function MusicToGroup( SndRef, SndGroup, SndContinue ) ---trace.f() - - --env.info(( 'MusicToGroup: SndRef = ' .. SndRef )) - - if SndGroup ~= nil then - if _MusicTable and _MusicTable.FileCnt > 0 then - if SndGroup:isExist() then - if MusicCanStart(SndGroup:getUnit(1):getPlayerName()) then - --env.info(( 'MusicToGroup: OK for Sound.' )) - local SndIdx = 0 - if SndRef == '' then - --env.info(( 'MusicToGroup: SndRef as empty. Queueing at random.' )) - SndIdx = math.random( 1, _MusicTable.FileCnt ) - else - for SndIdx = 1, _MusicTable.FileCnt do - if _MusicTable.Files[SndIdx].Ref == SndRef then - break - end - end - end - --env.info(( 'MusicToGroup: SndIdx = ' .. SndIdx )) - --env.info(( 'MusicToGroup: Queueing Music ' .. _MusicTable.Files[SndIdx].File .. ' for Group ' .. SndGroup:getID() )) - trigger.action.outSoundForGroup( SndGroup:getID(), _MusicTable.Files[SndIdx].File ) - MessageToGroup( SndGroup, 'Playing ' .. _MusicTable.Files[SndIdx].File, 15, 'Music-' .. SndGroup:getUnit(1):getPlayerName() ) - - local SndQueueRef = SndGroup:getUnit(1):getPlayerName() - if _MusicTable.Queue[SndQueueRef] == nil then - _MusicTable.Queue[SndQueueRef] = {} - end - _MusicTable.Queue[SndQueueRef].Start = timer.getTime() - _MusicTable.Queue[SndQueueRef].PlayerName = SndGroup:getUnit(1):getPlayerName() - _MusicTable.Queue[SndQueueRef].Group = SndGroup - _MusicTable.Queue[SndQueueRef].ID = SndGroup:getID() - _MusicTable.Queue[SndQueueRef].Ref = SndIdx - _MusicTable.Queue[SndQueueRef].Continue = SndContinue - _MusicTable.Queue[SndQueueRef].Type = Group - end - end - end - end -end - -function MusicCanStart(PlayerName) ---trace.f() - - --env.info(( 'MusicCanStart:' )) - - local MusicOut = false - - if _MusicTable['Queue'] ~= nil and _MusicTable.FileCnt > 0 then - --env.info(( 'MusicCanStart: PlayerName = ' .. PlayerName )) - local PlayerFound = false - local MusicStart = 0 - local MusicTime = 0 - for SndQueueIdx, SndQueue in pairs( _MusicTable.Queue ) do - if SndQueue.PlayerName == PlayerName then - PlayerFound = true - MusicStart = SndQueue.Start - MusicTime = _MusicTable.Files[SndQueue.Ref].Time - break - end - end - if PlayerFound then - --env.info(( 'MusicCanStart: MusicStart = ' .. MusicStart )) - --env.info(( 'MusicCanStart: MusicTime = ' .. MusicTime )) - --env.info(( 'MusicCanStart: timer.getTime() = ' .. timer.getTime() )) - - if MusicStart + MusicTime <= timer.getTime() then - MusicOut = true - end - else - MusicOut = true - end - end - - if MusicOut then - --env.info(( 'MusicCanStart: true' )) - else - --env.info(( 'MusicCanStart: false' )) - end - - return MusicOut -end - -function MusicScheduler() ---trace.scheduled("", "MusicScheduler") - - --env.info(( 'MusicScheduler:' )) - if _MusicTable['Queue'] ~= nil and _MusicTable.FileCnt > 0 then - --env.info(( 'MusicScheduler: Walking Sound Queue.')) - for SndQueueIdx, SndQueue in pairs( _MusicTable.Queue ) do - if SndQueue.Continue then - if MusicCanStart(SndQueue.PlayerName) then - --env.info(('MusicScheduler: MusicToGroup')) - MusicToPlayer( '', SndQueue.PlayerName, true ) - end - end - end - end - -end - - -env.info(( 'Init: Scripts Loaded v1.1' )) - ---- This module contains the BASE class. --- --- 1) @{#BASE} class --- ================= --- The @{#BASE} class is the super class for all the classes defined within MOOSE. --- --- It handles: --- --- * The construction and inheritance of child classes. --- * The tracing of objects during mission execution within the **DCS.log** file, under the **"Saved Games\DCS\Logs"** folder. --- --- Note: Normally you would not use the BASE class unless you are extending the MOOSE framework with new classes. --- --- 1.1) BASE constructor --- --------------------- --- Any class derived from BASE, must use the @{Base#BASE.New) constructor within the @{Base#BASE.Inherit) method. --- See an example at the @{Base#BASE.New} method how this is done. --- --- 1.2) BASE Trace functionality --- ----------------------------- --- The BASE class contains trace methods to trace progress within a mission execution of a certain object. --- Note that these trace methods are inherited by each MOOSE class interiting BASE. --- As such, each object created from derived class from BASE can use the tracing functions to trace its execution. --- --- 1.2.1) Tracing functions --- ------------------------ --- There are basically 3 types of tracing methods available within BASE: --- --- * @{#BASE.F}: Trace the beginning of a function and its given parameters. An F is indicated at column 44 in the DCS.log file. --- * @{#BASE.T}: Trace further logic within a function giving optional variables or parameters. A T is indicated at column 44 in the DCS.log file. --- * @{#BASE.E}: Trace an exception within a function giving optional variables or parameters. An E is indicated at column 44 in the DCS.log file. An exception will always be traced. --- --- 1.2.2) Tracing levels --- --------------------- --- There are 3 tracing levels within MOOSE. --- These tracing levels were defined to avoid bulks of tracing to be generated by lots of objects. --- --- As such, the F and T methods have additional variants to trace level 2 and 3 respectively: --- --- * @{#BASE.F2}: Trace the beginning of a function and its given parameters with tracing level 2. --- * @{#BASE.F3}: Trace the beginning of a function and its given parameters with tracing level 3. --- * @{#BASE.T2}: Trace further logic within a function giving optional variables or parameters with tracing level 2. --- * @{#BASE.T3}: Trace further logic within a function giving optional variables or parameters with tracing level 3. --- --- 1.3) BASE Inheritance support --- =========================== --- The following methods are available to support inheritance: --- --- * @{#BASE.Inherit}: Inherits from a class. --- * @{#BASE.Inherited}: Returns the parent class from the class. --- --- Future --- ====== --- Further methods may be added to BASE whenever there is a need to make "overall" functions available within MOOSE. --- --- ==== --- --- @module Base --- @author FlightControl - - - -local _TraceOnOff = true -local _TraceLevel = 1 -local _TraceAll = false -local _TraceClass = {} -local _TraceClassMethod = {} - -local _ClassID = 0 - ---- The BASE Class --- @type BASE --- @field ClassName The name of the class. --- @field ClassID The ID number of the class. --- @field ClassNameAndID The name of the class concatenated with the ID number of the class. -BASE = { - ClassName = "BASE", - ClassID = 0, - Events = {}, - States = {} -} - ---- The Formation Class --- @type FORMATION --- @field Cone A cone formation. -FORMATION = { - Cone = "Cone" -} - - - ---- The base constructor. This is the top top class of all classed defined within the MOOSE. --- Any new class needs to be derived from this class for proper inheritance. --- @param #BASE self --- @return #BASE The new instance of the BASE class. --- @usage --- -- This declares the constructor of the class TASK, inheriting from BASE. --- --- TASK constructor --- -- @param #TASK self --- -- @param Parameter The parameter of the New constructor. --- -- @return #TASK self --- function TASK:New( Parameter ) --- --- local self = BASE:Inherit( self, BASE:New() ) --- --- self.Variable = Parameter --- --- return self --- end --- @todo need to investigate if the deepCopy is really needed... Don't think so. -function BASE:New() - local self = routines.utils.deepCopy( self ) -- Create a new self instance - local MetaTable = {} - setmetatable( self, MetaTable ) - self.__index = self - _ClassID = _ClassID + 1 - self.ClassID = _ClassID - self.ClassNameAndID = string.format( '%s#%09d', self.ClassName, self.ClassID ) - return self -end - ---- This is the worker method to inherit from a parent class. --- @param #BASE self --- @param Child is the Child class that inherits. --- @param #BASE Parent is the Parent class that the Child inherits from. --- @return #BASE Child -function BASE:Inherit( Child, Parent ) - local Child = routines.utils.deepCopy( Child ) - --local Parent = routines.utils.deepCopy( Parent ) - --local Parent = Parent - if Child ~= nil then - setmetatable( Child, Parent ) - Child.__index = Child - end - --Child.ClassName = Child.ClassName .. '.' .. Child.ClassID - self:T( 'Inherited from ' .. Parent.ClassName ) - return Child -end - ---- This is the worker method to retrieve the Parent class. --- @param #BASE self --- @param #BASE Child is the Child class from which the Parent class needs to be retrieved. --- @return #BASE -function BASE:Inherited( Child ) - local Parent = getmetatable( Child ) --- env.info('Inherited class of ' .. Child.ClassName .. ' is ' .. Parent.ClassName ) - return Parent -end - ---- Get the ClassName + ClassID of the class instance. --- The ClassName + ClassID is formatted as '%s#%09d'. --- @param #BASE self --- @return #string The ClassName + ClassID of the class instance. -function BASE:GetClassNameAndID() - return self.ClassNameAndID -end - ---- Get the ClassName of the class instance. --- @param #BASE self --- @return #string The ClassName of the class instance. -function BASE:GetClassName() - return self.ClassName -end - ---- Get the ClassID of the class instance. --- @param #BASE self --- @return #string The ClassID of the class instance. -function BASE:GetClassID() - return self.ClassID -end - ---- Set a new listener for the class. --- @param self --- @param DCSTypes#Event Event --- @param #function EventFunction --- @return #BASE -function BASE:AddEvent( Event, EventFunction ) - self:F( Event ) - - self.Events[#self.Events+1] = {} - self.Events[#self.Events].Event = Event - self.Events[#self.Events].EventFunction = EventFunction - self.Events[#self.Events].EventEnabled = false - - return self -end - ---- Returns the event dispatcher --- @param #BASE self --- @return Event#EVENT -function BASE:Event() - - return _EVENTDISPATCHER -end - - - - - ---- Enable the event listeners for the class. --- @param #BASE self --- @return #BASE -function BASE:EnableEvents() - self:F( #self.Events ) - - for EventID, Event in pairs( self.Events ) do - Event.Self = self - Event.EventEnabled = true - end - self.Events.Handler = world.addEventHandler( self ) - - return self -end - - ---- Disable the event listeners for the class. --- @param #BASE self --- @return #BASE -function BASE:DisableEvents() - self:F() - - world.removeEventHandler( self ) - for EventID, Event in pairs( self.Events ) do - Event.Self = nil - Event.EventEnabled = false - end - - return self -end - - -local BaseEventCodes = { - "S_EVENT_SHOT", - "S_EVENT_HIT", - "S_EVENT_TAKEOFF", - "S_EVENT_LAND", - "S_EVENT_CRASH", - "S_EVENT_EJECTION", - "S_EVENT_REFUELING", - "S_EVENT_DEAD", - "S_EVENT_PILOT_DEAD", - "S_EVENT_BASE_CAPTURED", - "S_EVENT_MISSION_START", - "S_EVENT_MISSION_END", - "S_EVENT_TOOK_CONTROL", - "S_EVENT_REFUELING_STOP", - "S_EVENT_BIRTH", - "S_EVENT_HUMAN_FAILURE", - "S_EVENT_ENGINE_STARTUP", - "S_EVENT_ENGINE_SHUTDOWN", - "S_EVENT_PLAYER_ENTER_UNIT", - "S_EVENT_PLAYER_LEAVE_UNIT", - "S_EVENT_PLAYER_COMMENT", - "S_EVENT_SHOOTING_START", - "S_EVENT_SHOOTING_END", - "S_EVENT_MAX", -} - ---onEvent( {[1]="S_EVENT_BIRTH",[2]={["subPlace"]=5,["time"]=0,["initiator"]={["id_"]=16884480,},["place"]={["id_"]=5000040,},["id"]=15,["IniUnitName"]="US F-15C@RAMP-Air Support Mountains#001-01",},} --- Event = { --- id = enum world.event, --- time = Time, --- initiator = Unit, --- target = Unit, --- place = Unit, --- subPlace = enum world.BirthPlace, --- weapon = Weapon --- } - ---- Creation of a Birth Event. --- @param #BASE self --- @param DCSTypes#Time EventTime The time stamp of the event. --- @param DCSObject#Object Initiator The initiating object of the event. --- @param #string IniUnitName The initiating unit name. --- @param place --- @param subplace -function BASE:CreateEventBirth( EventTime, Initiator, IniUnitName, place, subplace ) - self:F( { EventTime, Initiator, IniUnitName, place, subplace } ) - - local Event = { - id = world.event.S_EVENT_BIRTH, - time = EventTime, - initiator = Initiator, - IniUnitName = IniUnitName, - place = place, - subplace = subplace - } - - world.onEvent( Event ) -end - ---- Creation of a Crash Event. --- @param #BASE self --- @param DCSTypes#Time EventTime The time stamp of the event. --- @param DCSObject#Object Initiator The initiating object of the event. -function BASE:CreateEventCrash( EventTime, Initiator ) - self:F( { EventTime, Initiator } ) - - local Event = { - id = world.event.S_EVENT_CRASH, - time = EventTime, - initiator = Initiator, - } - - world.onEvent( Event ) -end - --- TODO: Complete DCSTypes#Event structure. ---- The main event handling function... This function captures all events generated for the class. --- @param #BASE self --- @param DCSTypes#Event event -function BASE:onEvent(event) - --self:F( { BaseEventCodes[event.id], event } ) - - if self then - for EventID, EventObject in pairs( self.Events ) do - if EventObject.EventEnabled then - --env.info( 'onEvent Table EventObject.Self = ' .. tostring(EventObject.Self) ) - --env.info( 'onEvent event.id = ' .. tostring(event.id) ) - --env.info( 'onEvent EventObject.Event = ' .. tostring(EventObject.Event) ) - if event.id == EventObject.Event then - if self == EventObject.Self then - if event.initiator and event.initiator:isExist() then - event.IniUnitName = event.initiator:getName() - end - if event.target and event.target:isExist() then - event.TgtUnitName = event.target:getName() - end - --self:T( { BaseEventCodes[event.id], event } ) - --EventObject.EventFunction( self, event ) - end - end - end - end - end -end - -function BASE:SetState( Object, StateName, State ) - - local ClassNameAndID = Object:GetClassNameAndID() - - if not self.States[ClassNameAndID] then - self.States[ClassNameAndID] = {} - end - self.States[ClassNameAndID][StateName] = State - self:F2( { ClassNameAndID, StateName, State } ) - - return self.States[ClassNameAndID][StateName] -end - -function BASE:GetState( Object, StateName ) - - local ClassNameAndID = Object:GetClassNameAndID() - - if self.States[ClassNameAndID] then - local State = self.States[ClassNameAndID][StateName] - self:F2( { ClassNameAndID, StateName, State } ) - return State - end - - return nil -end - -function BASE:ClearState( Object, StateName ) - - local ClassNameAndID = Object:GetClassNameAndID() - if self.States[ClassNameAndID] then - self.States[ClassNameAndID][StateName] = nil - end -end - --- Trace section - --- Log a trace (only shown when trace is on) --- TODO: Make trace function using variable parameters. - ---- Set trace on or off --- Note that when trace is off, no debug statement is performed, increasing performance! --- When Moose is loaded statically, (as one file), tracing is switched off by default. --- So tracing must be switched on manually in your mission if you are using Moose statically. --- When moose is loading dynamically (for moose class development), tracing is switched on by default. --- @param BASE self --- @param #boolean TraceOnOff Switch the tracing on or off. --- @usage --- -- Switch the tracing On --- BASE:TraceOn( true ) --- --- -- Switch the tracing Off --- BASE:TraceOn( false ) -function BASE:TraceOnOff( TraceOnOff ) - _TraceOnOff = TraceOnOff -end - ---- Set trace level --- @param #BASE self --- @param #number Level -function BASE:TraceLevel( Level ) - _TraceLevel = Level - self:E( "Tracing level " .. Level ) -end - ---- Trace all methods in MOOSE --- @param #BASE self --- @param #boolean TraceAll true = trace all methods in MOOSE. -function BASE:TraceAll( TraceAll ) - - _TraceAll = TraceAll - - if _TraceAll then - self:E( "Tracing all methods in MOOSE " ) - else - self:E( "Switched off tracing all methods in MOOSE" ) - end -end - ---- Set tracing for a class --- @param #BASE self --- @param #string Class -function BASE:TraceClass( Class ) - _TraceClass[Class] = true - _TraceClassMethod[Class] = {} - self:E( "Tracing class " .. Class ) -end - ---- Set tracing for a specific method of class --- @param #BASE self --- @param #string Class --- @param #string Method -function BASE:TraceClassMethod( Class, Method ) - if not _TraceClassMethod[Class] then - _TraceClassMethod[Class] = {} - _TraceClassMethod[Class].Method = {} - end - _TraceClassMethod[Class].Method[Method] = true - self:E( "Tracing method " .. Method .. " of class " .. Class ) -end - ---- Trace a function call. This function is private. --- @param #BASE self --- @param Arguments A #table or any field. -function BASE:_F( Arguments, DebugInfoCurrentParam, DebugInfoFromParam ) - - if debug and ( _TraceAll == true ) or ( _TraceClass[self.ClassName] or _TraceClassMethod[self.ClassName] ) then - - local DebugInfoCurrent = DebugInfoCurrentParam and DebugInfoCurrentParam or debug.getinfo( 2, "nl" ) - local DebugInfoFrom = DebugInfoFromParam and DebugInfoFromParam or debug.getinfo( 3, "l" ) - - local Function = "function" - if DebugInfoCurrent.name then - Function = DebugInfoCurrent.name - end - - if _TraceAll == true or _TraceClass[self.ClassName] or _TraceClassMethod[self.ClassName].Method[Function] then - local LineCurrent = 0 - if DebugInfoCurrent.currentline then - LineCurrent = DebugInfoCurrent.currentline - end - local LineFrom = 0 - if DebugInfoFrom then - LineFrom = DebugInfoFrom.currentline - end - env.info( string.format( "%6d(%6d)/%1s:%20s%05d.%s(%s)" , LineCurrent, LineFrom, "F", self.ClassName, self.ClassID, Function, routines.utils.oneLineSerialize( Arguments ) ) ) - end - end -end - ---- Trace a function call. Must be at the beginning of the function logic. --- @param #BASE self --- @param Arguments A #table or any field. -function BASE:F( Arguments ) - - if debug and _TraceOnOff then - local DebugInfoCurrent = debug.getinfo( 2, "nl" ) - local DebugInfoFrom = debug.getinfo( 3, "l" ) - - if _TraceLevel >= 1 then - self:_F( Arguments, DebugInfoCurrent, DebugInfoFrom ) - end - end -end - - ---- Trace a function call level 2. Must be at the beginning of the function logic. --- @param #BASE self --- @param Arguments A #table or any field. -function BASE:F2( Arguments ) - - if debug and _TraceOnOff then - local DebugInfoCurrent = debug.getinfo( 2, "nl" ) - local DebugInfoFrom = debug.getinfo( 3, "l" ) - - if _TraceLevel >= 2 then - self:_F( Arguments, DebugInfoCurrent, DebugInfoFrom ) - end - end -end - ---- Trace a function call level 3. Must be at the beginning of the function logic. --- @param #BASE self --- @param Arguments A #table or any field. -function BASE:F3( Arguments ) - - if debug and _TraceOnOff then - local DebugInfoCurrent = debug.getinfo( 2, "nl" ) - local DebugInfoFrom = debug.getinfo( 3, "l" ) - - if _TraceLevel >= 3 then - self:_F( Arguments, DebugInfoCurrent, DebugInfoFrom ) - end - end -end - ---- Trace a function logic. --- @param #BASE self --- @param Arguments A #table or any field. -function BASE:_T( Arguments, DebugInfoCurrentParam, DebugInfoFromParam ) - - if debug and ( _TraceAll == true ) or ( _TraceClass[self.ClassName] or _TraceClassMethod[self.ClassName] ) then - - local DebugInfoCurrent = DebugInfoCurrentParam and DebugInfoCurrentParam or debug.getinfo( 2, "nl" ) - local DebugInfoFrom = DebugInfoFromParam and DebugInfoFromParam or debug.getinfo( 3, "l" ) - - local Function = "function" - if DebugInfoCurrent.name then - Function = DebugInfoCurrent.name - end - - if _TraceAll == true or _TraceClass[self.ClassName] or _TraceClassMethod[self.ClassName].Method[Function] then - local LineCurrent = 0 - if DebugInfoCurrent.currentline then - LineCurrent = DebugInfoCurrent.currentline - end - local LineFrom = 0 - if DebugInfoFrom then - LineFrom = DebugInfoFrom.currentline - end - env.info( string.format( "%6d(%6d)/%1s:%20s%05d.%s" , LineCurrent, LineFrom, "T", self.ClassName, self.ClassID, routines.utils.oneLineSerialize( Arguments ) ) ) - end - end -end - ---- Trace a function logic level 1. Can be anywhere within the function logic. --- @param #BASE self --- @param Arguments A #table or any field. -function BASE:T( Arguments ) - - if debug and _TraceOnOff then - local DebugInfoCurrent = debug.getinfo( 2, "nl" ) - local DebugInfoFrom = debug.getinfo( 3, "l" ) - - if _TraceLevel >= 1 then - self:_T( Arguments, DebugInfoCurrent, DebugInfoFrom ) - end - end -end - - ---- Trace a function logic level 2. Can be anywhere within the function logic. --- @param #BASE self --- @param Arguments A #table or any field. -function BASE:T2( Arguments ) - - if debug and _TraceOnOff then - local DebugInfoCurrent = debug.getinfo( 2, "nl" ) - local DebugInfoFrom = debug.getinfo( 3, "l" ) - - if _TraceLevel >= 2 then - self:_T( Arguments, DebugInfoCurrent, DebugInfoFrom ) - end - end -end - ---- Trace a function logic level 3. Can be anywhere within the function logic. --- @param #BASE self --- @param Arguments A #table or any field. -function BASE:T3( Arguments ) - - if debug and _TraceOnOff then - local DebugInfoCurrent = debug.getinfo( 2, "nl" ) - local DebugInfoFrom = debug.getinfo( 3, "l" ) - - if _TraceLevel >= 3 then - self:_T( Arguments, DebugInfoCurrent, DebugInfoFrom ) - end - end -end - ---- Log an exception which will be traced always. Can be anywhere within the function logic. --- @param #BASE self --- @param Arguments A #table or any field. -function BASE:E( Arguments ) - - if debug then - local DebugInfoCurrent = debug.getinfo( 2, "nl" ) - local DebugInfoFrom = debug.getinfo( 3, "l" ) - - local Function = "function" - if DebugInfoCurrent.name then - Function = DebugInfoCurrent.name - end - - local LineCurrent = DebugInfoCurrent.currentline - local LineFrom = -1 - if DebugInfoFrom then - LineFrom = DebugInfoFrom.currentline - end - - env.info( string.format( "%6d(%6d)/%1s:%20s%05d.%s(%s)" , LineCurrent, LineFrom, "E", self.ClassName, self.ClassID, Function, routines.utils.oneLineSerialize( Arguments ) ) ) - end - -end - - - ---- This module contains the OBJECT class. --- --- 1) @{Object#OBJECT} class, extends @{Base#BASE} --- =========================================================== --- The @{Object#OBJECT} class is a wrapper class to handle the DCS Object objects: --- --- * Support all DCS Object APIs. --- * Enhance with Object specific APIs not in the DCS Object API set. --- * Manage the "state" of the DCS Object. --- --- 1.1) OBJECT constructor: --- ------------------------------ --- The OBJECT class provides the following functions to construct a OBJECT instance: --- --- * @{Object#OBJECT.New}(): Create a OBJECT instance. --- --- 1.2) OBJECT methods: --- -------------------------- --- The following methods can be used to identify an Object object: --- --- * @{Object#OBJECT.GetID}(): Returns the ID of the Object object. --- --- === --- --- @module Object --- @author FlightControl - ---- The OBJECT class --- @type OBJECT --- @extends Base#BASE --- @field #string ObjectName The name of the Object. -OBJECT = { - ClassName = "OBJECT", - ObjectName = "", -} - - ---- A DCSObject --- @type DCSObject --- @field id_ The ID of the controllable in DCS - ---- Create a new OBJECT from a DCSObject --- @param #OBJECT self --- @param DCSObject#Object ObjectName The Object name --- @return #OBJECT self -function OBJECT:New( ObjectName ) - local self = BASE:Inherit( self, BASE:New() ) - self:F2( ObjectName ) - self.ObjectName = ObjectName - return self -end - - ---- Returns the unit's unique identifier. --- @param Object#OBJECT self --- @return DCSObject#Object.ID ObjectID --- @return #nil The DCS Object is not existing or alive. -function OBJECT:GetID() - self:F2( self.ObjectName ) - - local DCSObject = self:GetDCSObject() - - if DCSObject then - local ObjectID = DCSObject:getID() - return ObjectID - end - - return nil -end - - - ---- This module contains the IDENTIFIABLE class. --- --- 1) @{Identifiable#IDENTIFIABLE} class, extends @{Object#OBJECT} --- =============================================================== --- The @{Identifiable#IDENTIFIABLE} class is a wrapper class to handle the DCS Identifiable objects: --- --- * Support all DCS Identifiable APIs. --- * Enhance with Identifiable specific APIs not in the DCS Identifiable API set. --- * Manage the "state" of the DCS Identifiable. --- --- 1.1) IDENTIFIABLE constructor: --- ------------------------------ --- The IDENTIFIABLE class provides the following functions to construct a IDENTIFIABLE instance: --- --- * @{Identifiable#IDENTIFIABLE.New}(): Create a IDENTIFIABLE instance. --- --- 1.2) IDENTIFIABLE methods: --- -------------------------- --- The following methods can be used to identify an identifiable object: --- --- * @{Identifiable#IDENTIFIABLE.GetName}(): Returns the name of the Identifiable. --- * @{Identifiable#IDENTIFIABLE.IsAlive}(): Returns if the Identifiable is alive. --- * @{Identifiable#IDENTIFIABLE.GetTypeName}(): Returns the type name of the Identifiable. --- * @{Identifiable#IDENTIFIABLE.GetCoalition}(): Returns the coalition of the Identifiable. --- * @{Identifiable#IDENTIFIABLE.GetCountry}(): Returns the country of the Identifiable. --- * @{Identifiable#IDENTIFIABLE.GetDesc}(): Returns the descriptor structure of the Identifiable. --- --- --- === --- --- @module Identifiable --- @author FlightControl - ---- The IDENTIFIABLE class --- @type IDENTIFIABLE --- @extends Object#OBJECT --- @field #string IdentifiableName The name of the identifiable. -IDENTIFIABLE = { - ClassName = "IDENTIFIABLE", - IdentifiableName = "", -} - -local _CategoryName = { - [Unit.Category.AIRPLANE] = "Airplane", - [Unit.Category.HELICOPTER] = "Helicoper", - [Unit.Category.GROUND_UNIT] = "Ground Identifiable", - [Unit.Category.SHIP] = "Ship", - [Unit.Category.STRUCTURE] = "Structure", - } - ---- Create a new IDENTIFIABLE from a DCSIdentifiable --- @param #IDENTIFIABLE self --- @param DCSIdentifiable#Identifiable IdentifiableName The DCS Identifiable name --- @return #IDENTIFIABLE self -function IDENTIFIABLE:New( IdentifiableName ) - local self = BASE:Inherit( self, OBJECT:New( IdentifiableName ) ) - self:F2( IdentifiableName ) - self.IdentifiableName = IdentifiableName - return self -end - ---- Returns if the Identifiable is alive. --- @param Identifiable#IDENTIFIABLE self --- @return #boolean true if Identifiable is alive. --- @return #nil The DCS Identifiable is not existing or alive. -function IDENTIFIABLE:IsAlive() - self:F2( self.IdentifiableName ) - - local DCSIdentifiable = self:GetDCSObject() - - if DCSIdentifiable then - local IdentifiableIsAlive = DCSIdentifiable:isExist() - return IdentifiableIsAlive - end - - return false -end - - - - ---- Returns DCS Identifiable object name. --- The function provides access to non-activated objects too. --- @param Identifiable#IDENTIFIABLE self --- @return #string The name of the DCS Identifiable. --- @return #nil The DCS Identifiable is not existing or alive. -function IDENTIFIABLE:GetName() - self:F2( self.IdentifiableName ) - - local DCSIdentifiable = self:GetDCSObject() - - if DCSIdentifiable then - local IdentifiableName = self.IdentifiableName - return IdentifiableName - end - - self:E( self.ClassName .. " " .. self.IdentifiableName .. " not found!" ) - return nil -end - - ---- Returns the type name of the DCS Identifiable. --- @param Identifiable#IDENTIFIABLE self --- @return #string The type name of the DCS Identifiable. --- @return #nil The DCS Identifiable is not existing or alive. -function IDENTIFIABLE:GetTypeName() - self:F2( self.IdentifiableName ) - - local DCSIdentifiable = self:GetDCSObject() - - if DCSIdentifiable then - local IdentifiableTypeName = DCSIdentifiable:getTypeName() - self:T3( IdentifiableTypeName ) - return IdentifiableTypeName - end - - self:E( self.ClassName .. " " .. self.IdentifiableName .. " not found!" ) - return nil -end - - ---- Returns category of the DCS Identifiable. --- @param #IDENTIFIABLE self --- @return DCSObject#Object.Category The category ID -function IDENTIFIABLE:GetCategory() - self:F2( self.ObjectName ) - - local DCSObject = self:GetDCSObject() - if DCSObject then - local ObjectCategory = DCSObject:getCategory() - self:T3( ObjectCategory ) - return ObjectCategory - end - - return nil -end - - ---- Returns the DCS Identifiable category name as defined within the DCS Identifiable Descriptor. --- @param Identifiable#IDENTIFIABLE self --- @return #string The DCS Identifiable Category Name -function IDENTIFIABLE:GetCategoryName() - local DCSIdentifiable = self:GetDCSObject() - - if DCSIdentifiable then - local IdentifiableCategoryName = _CategoryName[ self:GetDesc().category ] - return IdentifiableCategoryName - end - - self:E( self.ClassName .. " " .. self.IdentifiableName .. " not found!" ) - return nil -end - ---- Returns coalition of the Identifiable. --- @param Identifiable#IDENTIFIABLE self --- @return DCSCoalitionObject#coalition.side The side of the coalition. --- @return #nil The DCS Identifiable is not existing or alive. -function IDENTIFIABLE:GetCoalition() - self:F2( self.IdentifiableName ) - - local DCSIdentifiable = self:GetDCSObject() - - if DCSIdentifiable then - local IdentifiableCoalition = DCSIdentifiable:getCoalition() - self:T3( IdentifiableCoalition ) - return IdentifiableCoalition - end - - self:E( self.ClassName .. " " .. self.IdentifiableName .. " not found!" ) - return nil -end - ---- Returns country of the Identifiable. --- @param Identifiable#IDENTIFIABLE self --- @return DCScountry#country.id The country identifier. --- @return #nil The DCS Identifiable is not existing or alive. -function IDENTIFIABLE:GetCountry() - self:F2( self.IdentifiableName ) - - local DCSIdentifiable = self:GetDCSObject() - - if DCSIdentifiable then - local IdentifiableCountry = DCSIdentifiable:getCountry() - self:T3( IdentifiableCountry ) - return IdentifiableCountry - end - - self:E( self.ClassName .. " " .. self.IdentifiableName .. " not found!" ) - return nil -end - - - ---- Returns Identifiable descriptor. Descriptor type depends on Identifiable category. --- @param Identifiable#IDENTIFIABLE self --- @return DCSIdentifiable#Identifiable.Desc The Identifiable descriptor. --- @return #nil The DCS Identifiable is not existing or alive. -function IDENTIFIABLE:GetDesc() - self:F2( self.IdentifiableName ) - - local DCSIdentifiable = self:GetDCSObject() - - if DCSIdentifiable then - local IdentifiableDesc = DCSIdentifiable:getDesc() - self:T2( IdentifiableDesc ) - return IdentifiableDesc - end - - self:E( self.ClassName .. " " .. self.IdentifiableName .. " not found!" ) - return nil -end - - - - - - - - - ---- This module contains the POSITIONABLE class. --- --- 1) @{Positionable#POSITIONABLE} class, extends @{Identifiable#IDENTIFIABLE} --- =========================================================== --- The @{Positionable#POSITIONABLE} class is a wrapper class to handle the DCS Positionable objects: --- --- * Support all DCS Positionable APIs. --- * Enhance with Positionable specific APIs not in the DCS Positionable API set. --- * Manage the "state" of the DCS Positionable. --- --- 1.1) POSITIONABLE constructor: --- ------------------------------ --- The POSITIONABLE class provides the following functions to construct a POSITIONABLE instance: --- --- * @{Positionable#POSITIONABLE.New}(): Create a POSITIONABLE instance. --- --- 1.2) POSITIONABLE methods: --- -------------------------- --- The following methods can be used to identify an measurable object: --- --- * @{Positionable#POSITIONABLE.GetID}(): Returns the ID of the measurable object. --- * @{Positionable#POSITIONABLE.GetName}(): Returns the name of the measurable object. --- --- === --- --- @module Positionable --- @author FlightControl - ---- The POSITIONABLE class --- @type POSITIONABLE --- @extends Identifiable#IDENTIFIABLE --- @field #string PositionableName The name of the measurable. -POSITIONABLE = { - ClassName = "POSITIONABLE", - PositionableName = "", -} - ---- A DCSPositionable --- @type DCSPositionable --- @field id_ The ID of the controllable in DCS - ---- Create a new POSITIONABLE from a DCSPositionable --- @param #POSITIONABLE self --- @param DCSPositionable#Positionable PositionableName The DCS Positionable name --- @return #POSITIONABLE self -function POSITIONABLE:New( PositionableName ) - local self = BASE:Inherit( self, IDENTIFIABLE:New( PositionableName ) ) - - return self -end - ---- Returns the @{DCSTypes#Position3} position vectors indicating the point and direction vectors in 3D of the DCS Positionable within the mission. --- @param Positionable#POSITIONABLE self --- @return DCSTypes#Position The 3D position vectors of the DCS Positionable. --- @return #nil The DCS Positionable is not existing or alive. -function POSITIONABLE:GetPositionVec3() - self:F2( self.PositionableName ) - - local DCSPositionable = self:GetDCSObject() - - if DCSPositionable then - local PositionablePosition = DCSPositionable:getPosition() - self:T3( PositionablePosition ) - return PositionablePosition - end - - return nil -end - ---- Returns the @{DCSTypes#Vec2} vector indicating the point in 2D of the DCS Positionable within the mission. --- @param Positionable#POSITIONABLE self --- @return DCSTypes#Vec2 The 2D point vector of the DCS Positionable. --- @return #nil The DCS Positionable is not existing or alive. -function POSITIONABLE:GetPointVec2() - self:F2( self.PositionableName ) - - local DCSPositionable = self:GetDCSObject() - - if DCSPositionable then - local PositionablePointVec3 = DCSPositionable:getPosition().p - - local PositionablePointVec2 = {} - PositionablePointVec2.x = PositionablePointVec3.x - PositionablePointVec2.y = PositionablePointVec3.z - - self:T2( PositionablePointVec2 ) - return PositionablePointVec2 - end - - return nil -end - - ---- Returns the @{DCSTypes#Vec3} vector indicating the point in 3D of the DCS Positionable within the mission. --- @param Positionable#POSITIONABLE self --- @return DCSTypes#Vec3 The 3D point vector of the DCS Positionable. --- @return #nil The DCS Positionable is not existing or alive. -function POSITIONABLE:GetPointVec3() - self:F2( self.PositionableName ) - - local DCSPositionable = self:GetDCSObject() - - if DCSPositionable then - local PositionablePointVec3 = DCSPositionable:getPosition().p - self:T3( PositionablePointVec3 ) - return PositionablePointVec3 - end - - return nil -end - ---- Returns the altitude of the DCS Positionable. --- @param Positionable#POSITIONABLE self --- @return DCSTypes#Distance The altitude of the DCS Positionable. --- @return #nil The DCS Positionable is not existing or alive. -function POSITIONABLE:GetAltitude() - self:F2() - - local DCSPositionable = self:GetDCSObject() - - if DCSPositionable then - local PositionablePointVec3 = DCSPositionable:getPoint() --DCSTypes#Vec3 - return PositionablePointVec3.y - end - - return nil -end - ---- Returns if the Positionable is located above a runway. --- @param Positionable#POSITIONABLE self --- @return #boolean true if Positionable is above a runway. --- @return #nil The DCS Positionable is not existing or alive. -function POSITIONABLE:IsAboveRunway() - self:F2( self.PositionableName ) - - local DCSPositionable = self:GetDCSObject() - - if DCSPositionable then - - local PointVec2 = self:GetPointVec2() - local SurfaceType = land.getSurfaceType( PointVec2 ) - local IsAboveRunway = SurfaceType == land.SurfaceType.RUNWAY - - self:T2( IsAboveRunway ) - return IsAboveRunway - end - - return nil -end - - - ---- Returns the DCS Positionable heading. --- @param Positionable#POSITIONABLE self --- @return #number The DCS Positionable heading -function POSITIONABLE:GetHeading() - local DCSPositionable = self:GetDCSObject() - - if DCSPositionable then - - local PositionablePosition = DCSPositionable:getPosition() - if PositionablePosition then - local PositionableHeading = math.atan2( PositionablePosition.x.z, PositionablePosition.x.x ) - if PositionableHeading < 0 then - PositionableHeading = PositionableHeading + 2 * math.pi - end - self:T2( PositionableHeading ) - return PositionableHeading - end - end - - return nil -end - - ---- Returns true if the DCS Positionable is in the air. --- @param Positionable#POSITIONABLE self --- @return #boolean true if in the air. --- @return #nil The DCS Positionable is not existing or alive. -function POSITIONABLE:InAir() - self:F2( self.PositionableName ) - - local DCSPositionable = self:GetDCSObject() - - if DCSPositionable then - local PositionableInAir = DCSPositionable:inAir() - self:T3( PositionableInAir ) - return PositionableInAir - end - - return nil -end - ---- Returns the DCS Positionable velocity vector. --- @param Positionable#POSITIONABLE self --- @return DCSTypes#Vec3 The velocity vector --- @return #nil The DCS Positionable is not existing or alive. -function POSITIONABLE:GetVelocity() - self:F2( self.PositionableName ) - - local DCSPositionable = self:GetDCSObject() - - if DCSPositionable then - local PositionableVelocityVec3 = DCSPositionable:getVelocity() - self:T3( PositionableVelocityVec3 ) - return PositionableVelocityVec3 - end - - return nil -end - - - ---- This module contains the CONTROLLABLE class. --- --- 1) @{Controllable#CONTROLLABLE} class, extends @{Positionable#POSITIONABLE} --- =========================================================== --- The @{Controllable#CONTROLLABLE} class is a wrapper class to handle the DCS Controllable objects: --- --- * Support all DCS Controllable APIs. --- * Enhance with Controllable specific APIs not in the DCS Controllable API set. --- * Handle local Controllable Controller. --- * Manage the "state" of the DCS Controllable. --- --- 1.1) CONTROLLABLE constructor --- ----------------------------- --- The CONTROLLABLE class provides the following functions to construct a CONTROLLABLE instance: --- --- * @{#CONTROLLABLE.New}(): Create a CONTROLLABLE instance. --- --- 1.2) CONTROLLABLE task methods --- ------------------------------ --- Several controllable task methods are available that help you to prepare tasks. --- These methods return a string consisting of the task description, which can then be given to either a @{Controllable#CONTROLLABLE.PushTask} or @{Controllable#SetTask} method to assign the task to the CONTROLLABLE. --- Tasks are specific for the category of the CONTROLLABLE, more specific, for AIR, GROUND or AIR and GROUND. --- Each task description where applicable indicates for which controllable category the task is valid. --- There are 2 main subdivisions of tasks: Assigned tasks and EnRoute tasks. --- --- ### 1.2.1) Assigned task methods --- --- Assigned task methods make the controllable execute the task where the location of the (possible) targets of the task are known before being detected. --- This is different from the EnRoute tasks, where the targets of the task need to be detected before the task can be executed. --- --- Find below a list of the **assigned task** methods: --- --- * @{#CONTROLLABLE.TaskAttackControllable}: (AIR) Attack a Controllable. --- * @{#CONTROLLABLE.TaskAttackMapObject}: (AIR) Attacking the map object (building, structure, e.t.c). --- * @{#CONTROLLABLE.TaskAttackUnit}: (AIR) Attack the Unit. --- * @{#CONTROLLABLE.TaskBombing}: (AIR) Delivering weapon at the point on the ground. --- * @{#CONTROLLABLE.TaskBombingRunway}: (AIR) Delivering weapon on the runway. --- * @{#CONTROLLABLE.TaskEmbarking}: (AIR) Move the controllable to a Vec2 Point, wait for a defined duration and embark a controllable. --- * @{#CONTROLLABLE.TaskEmbarkToTransport}: (GROUND) Embark to a Transport landed at a location. --- * @{#CONTROLLABLE.TaskEscort}: (AIR) Escort another airborne controllable. --- * @{#CONTROLLABLE.TaskFAC_AttackControllable}: (AIR + GROUND) The task makes the controllable/unit a FAC and orders the FAC to control the target (enemy ground controllable) destruction. --- * @{#CONTROLLABLE.TaskFireAtPoint}: (GROUND) Fire at a VEC2 point until ammunition is finished. --- * @{#CONTROLLABLE.TaskFollow}: (AIR) Following another airborne controllable. --- * @{#CONTROLLABLE.TaskHold}: (GROUND) Hold ground controllable from moving. --- * @{#CONTROLLABLE.TaskHoldPosition}: (AIR) Hold position at the current position of the first unit of the controllable. --- * @{#CONTROLLABLE.TaskLand}: (AIR HELICOPTER) Landing at the ground. For helicopters only. --- * @{#CONTROLLABLE.TaskLandAtZone}: (AIR) Land the controllable at a @{Zone#ZONE_RADIUS). --- * @{#CONTROLLABLE.TaskOrbitCircle}: (AIR) Orbit at the current position of the first unit of the controllable at a specified alititude. --- * @{#CONTROLLABLE.TaskOrbitCircleAtVec2}: (AIR) Orbit at a specified position at a specified alititude during a specified duration with a specified speed. --- * @{#CONTROLLABLE.TaskRefueling}: (AIR) Refueling from the nearest tanker. No parameters. --- * @{#CONTROLLABLE.TaskRoute}: (AIR + GROUND) Return a Misson task to follow a given route defined by Points. --- * @{#CONTROLLABLE.TaskRouteToVec2}: (AIR + GROUND) Make the Controllable move to a given point. --- * @{#CONTROLLABLE.TaskRouteToVec3}: (AIR + GROUND) Make the Controllable move to a given point. --- * @{#CONTROLLABLE.TaskRouteToZone}: (AIR + GROUND) Route the controllable to a given zone. --- * @{#CONTROLLABLE.TaskReturnToBase}: (AIR) Route the controllable to an airbase. --- --- ### 1.2.2) EnRoute task methods --- --- EnRoute tasks require the targets of the task need to be detected by the controllable (using its sensors) before the task can be executed: --- --- * @{#CONTROLLABLE.EnRouteTaskAWACS}: (AIR) Aircraft will act as an AWACS for friendly units (will provide them with information about contacts). No parameters. --- * @{#CONTROLLABLE.EnRouteTaskEngageControllable}: (AIR) Engaging a controllable. The task does not assign the target controllable to the unit/controllable to attack now; it just allows the unit/controllable to engage the target controllable as well as other assigned targets. --- * @{#CONTROLLABLE.EnRouteTaskEngageTargets}: (AIR) Engaging targets of defined types. --- * @{#CONTROLLABLE.EnRouteTaskEWR}: (AIR) Attack the Unit. --- * @{#CONTROLLABLE.EnRouteTaskFAC}: (AIR + GROUND) The task makes the controllable/unit a FAC and lets the FAC to choose a targets (enemy ground controllable) around as well as other assigned targets. --- * @{#CONTROLLABLE.EnRouteTaskFAC_EngageControllable}: (AIR + GROUND) The task makes the controllable/unit a FAC and lets the FAC to choose the target (enemy ground controllable) as well as other assigned targets. --- * @{#CONTROLLABLE.EnRouteTaskTanker}: (AIR) Aircraft will act as a tanker for friendly units. No parameters. --- --- ### 1.2.3) Preparation task methods --- --- There are certain task methods that allow to tailor the task behaviour: --- --- * @{#CONTROLLABLE.TaskWrappedAction}: Return a WrappedAction Task taking a Command. --- * @{#CONTROLLABLE.TaskCombo}: Return a Combo Task taking an array of Tasks. --- * @{#CONTROLLABLE.TaskCondition}: Return a condition section for a controlled task. --- * @{#CONTROLLABLE.TaskControlled}: Return a Controlled Task taking a Task and a TaskCondition. --- --- ### 1.2.4) Obtain the mission from controllable templates --- --- Controllable templates contain complete mission descriptions. Sometimes you want to copy a complete mission from a controllable and assign it to another: --- --- * @{#CONTROLLABLE.TaskMission}: (AIR + GROUND) Return a mission task from a mission template. --- --- 1.3) CONTROLLABLE Command methods --- -------------------------- --- Controllable **command methods** prepare the execution of commands using the @{#CONTROLLABLE.SetCommand} method: --- --- * @{#CONTROLLABLE.CommandDoScript}: Do Script command. --- * @{#CONTROLLABLE.CommandSwitchWayPoint}: Perform a switch waypoint command. --- --- 1.4) CONTROLLABLE Option methods --- ------------------------- --- Controllable **Option methods** change the behaviour of the Controllable while being alive. --- --- ### 1.4.1) Rule of Engagement: --- --- * @{#CONTROLLABLE.OptionROEWeaponFree} --- * @{#CONTROLLABLE.OptionROEOpenFire} --- * @{#CONTROLLABLE.OptionROEReturnFire} --- * @{#CONTROLLABLE.OptionROEEvadeFire} --- --- To check whether an ROE option is valid for a specific controllable, use: --- --- * @{#CONTROLLABLE.OptionROEWeaponFreePossible} --- * @{#CONTROLLABLE.OptionROEOpenFirePossible} --- * @{#CONTROLLABLE.OptionROEReturnFirePossible} --- * @{#CONTROLLABLE.OptionROEEvadeFirePossible} --- --- ### 1.4.2) Rule on thread: --- --- * @{#CONTROLLABLE.OptionROTNoReaction} --- * @{#CONTROLLABLE.OptionROTPassiveDefense} --- * @{#CONTROLLABLE.OptionROTEvadeFire} --- * @{#CONTROLLABLE.OptionROTVertical} --- --- To test whether an ROT option is valid for a specific controllable, use: --- --- * @{#CONTROLLABLE.OptionROTNoReactionPossible} --- * @{#CONTROLLABLE.OptionROTPassiveDefensePossible} --- * @{#CONTROLLABLE.OptionROTEvadeFirePossible} --- * @{#CONTROLLABLE.OptionROTVerticalPossible} --- --- === --- --- @module Controllable --- @author FlightControl - ---- The CONTROLLABLE class --- @type CONTROLLABLE --- @extends Positionable#POSITIONABLE --- @field DCSControllable#Controllable DCSControllable The DCS controllable class. --- @field #string ControllableName The name of the controllable. -CONTROLLABLE = { - ClassName = "CONTROLLABLE", - ControllableName = "", - WayPointFunctions = {}, -} - ---- Create a new CONTROLLABLE from a DCSControllable --- @param #CONTROLLABLE self --- @param DCSControllable#Controllable ControllableName The DCS Controllable name --- @return #CONTROLLABLE self -function CONTROLLABLE:New( ControllableName ) - local self = BASE:Inherit( self, POSITIONABLE:New( ControllableName ) ) - self:F2( ControllableName ) - self.ControllableName = ControllableName - return self -end - --- DCS Controllable methods support. - ---- Get the controller for the CONTROLLABLE. --- @param #CONTROLLABLE self --- @return DCSController#Controller -function CONTROLLABLE:_GetController() - self:F2( { self.ControllableName } ) - local DCSControllable = self:GetDCSObject() - - if DCSControllable then - local ControllableController = DCSControllable:getController() - self:T3( ControllableController ) - return ControllableController - end - - return nil -end - - - --- Tasks - ---- Popping current Task from the controllable. --- @param #CONTROLLABLE self --- @return Controllable#CONTROLLABLE self -function CONTROLLABLE:PopCurrentTask() - self:F2() - - local DCSControllable = self:GetDCSObject() - - if DCSControllable then - local Controller = self:_GetController() - Controller:popTask() - return self - end - - return nil -end - ---- Pushing Task on the queue from the controllable. --- @param #CONTROLLABLE self --- @return Controllable#CONTROLLABLE self -function CONTROLLABLE:PushTask( DCSTask, WaitTime ) - self:F2() - - local DCSControllable = self:GetDCSObject() - - if DCSControllable then - local Controller = self:_GetController() - - -- When a controllable SPAWNs, it takes about a second to get the controllable in the simulator. Setting tasks to unspawned controllables provides unexpected results. - -- Therefore we schedule the functions to set the mission and options for the Controllable. - -- Controller:pushTask( DCSTask ) - - if WaitTime then - SCHEDULER:New( Controller, Controller.pushTask, { DCSTask }, WaitTime ) - else - Controller:pushTask( DCSTask ) - end - - return self - end - - return nil -end - ---- Clearing the Task Queue and Setting the Task on the queue from the controllable. --- @param #CONTROLLABLE self --- @return Controllable#CONTROLLABLE self -function CONTROLLABLE:SetTask( DCSTask, WaitTime ) - self:F2( { DCSTask } ) - - local DCSControllable = self:GetDCSObject() - - if DCSControllable then - - local Controller = self:_GetController() - - -- When a controllable SPAWNs, it takes about a second to get the controllable in the simulator. Setting tasks to unspawned controllables provides unexpected results. - -- Therefore we schedule the functions to set the mission and options for the Controllable. - -- Controller.setTask( Controller, DCSTask ) - - if not WaitTime then - WaitTime = 1 - end - SCHEDULER:New( Controller, Controller.setTask, { DCSTask }, WaitTime ) - - return self - end - - return nil -end - - ---- Return a condition section for a controlled task. --- @param #CONTROLLABLE self --- @param DCSTime#Time time --- @param #string userFlag --- @param #boolean userFlagValue --- @param #string condition --- @param DCSTime#Time duration --- @param #number lastWayPoint --- return DCSTask#Task -function CONTROLLABLE:TaskCondition( time, userFlag, userFlagValue, condition, duration, lastWayPoint ) - self:F2( { time, userFlag, userFlagValue, condition, duration, lastWayPoint } ) - - local DCSStopCondition = {} - DCSStopCondition.time = time - DCSStopCondition.userFlag = userFlag - DCSStopCondition.userFlagValue = userFlagValue - DCSStopCondition.condition = condition - DCSStopCondition.duration = duration - DCSStopCondition.lastWayPoint = lastWayPoint - - self:T3( { DCSStopCondition } ) - return DCSStopCondition -end - ---- Return a Controlled Task taking a Task and a TaskCondition. --- @param #CONTROLLABLE self --- @param DCSTask#Task DCSTask --- @param #DCSStopCondition DCSStopCondition --- @return DCSTask#Task -function CONTROLLABLE:TaskControlled( DCSTask, DCSStopCondition ) - self:F2( { DCSTask, DCSStopCondition } ) - - local DCSTaskControlled - - DCSTaskControlled = { - id = 'ControlledTask', - params = { - task = DCSTask, - stopCondition = DCSStopCondition - } - } - - self:T3( { DCSTaskControlled } ) - return DCSTaskControlled -end - ---- Return a Combo Task taking an array of Tasks. --- @param #CONTROLLABLE self --- @param DCSTask#TaskArray DCSTasks Array of @{DCSTask#Task} --- @return DCSTask#Task -function CONTROLLABLE:TaskCombo( DCSTasks ) - self:F2( { DCSTasks } ) - - local DCSTaskCombo - - DCSTaskCombo = { - id = 'ComboTask', - params = { - tasks = DCSTasks - } - } - - self:T3( { DCSTaskCombo } ) - return DCSTaskCombo -end - ---- Return a WrappedAction Task taking a Command. --- @param #CONTROLLABLE self --- @param DCSCommand#Command DCSCommand --- @return DCSTask#Task -function CONTROLLABLE:TaskWrappedAction( DCSCommand, Index ) - self:F2( { DCSCommand } ) - - local DCSTaskWrappedAction - - DCSTaskWrappedAction = { - id = "WrappedAction", - enabled = true, - number = Index, - auto = false, - params = { - action = DCSCommand, - }, - } - - self:T3( { DCSTaskWrappedAction } ) - return DCSTaskWrappedAction -end - ---- Executes a command action --- @param #CONTROLLABLE self --- @param DCSCommand#Command DCSCommand --- @return #CONTROLLABLE self -function CONTROLLABLE:SetCommand( DCSCommand ) - self:F2( DCSCommand ) - - local DCSControllable = self:GetDCSObject() - - if DCSControllable then - local Controller = self:_GetController() - Controller:setCommand( DCSCommand ) - return self - end - - return nil -end - ---- Perform a switch waypoint command --- @param #CONTROLLABLE self --- @param #number FromWayPoint --- @param #number ToWayPoint --- @return DCSTask#Task --- @usage --- --- This test demonstrates the use(s) of the SwitchWayPoint method of the GROUP class. --- HeliGroup = GROUP:FindByName( "Helicopter" ) --- --- --- Route the helicopter back to the FARP after 60 seconds. --- -- We use the SCHEDULER class to do this. --- SCHEDULER:New( nil, --- function( HeliGroup ) --- local CommandRTB = HeliGroup:CommandSwitchWayPoint( 2, 8 ) --- HeliGroup:SetCommand( CommandRTB ) --- end, { HeliGroup }, 90 --- ) -function CONTROLLABLE:CommandSwitchWayPoint( FromWayPoint, ToWayPoint ) - self:F2( { FromWayPoint, ToWayPoint } ) - - local CommandSwitchWayPoint = { - id = 'SwitchWaypoint', - params = { - fromWaypointIndex = FromWayPoint, - goToWaypointIndex = ToWayPoint, - }, - } - - self:T3( { CommandSwitchWayPoint } ) - return CommandSwitchWayPoint -end - ---- Perform stop route command --- @param #CONTROLLABLE self --- @param #boolean StopRoute --- @return DCSTask#Task -function CONTROLLABLE:CommandStopRoute( StopRoute, Index ) - self:F2( { StopRoute, Index } ) - - local CommandStopRoute = { - id = 'StopRoute', - params = { - value = StopRoute, - }, - } - - self:T3( { CommandStopRoute } ) - return CommandStopRoute -end - - --- TASKS FOR AIR CONTROLLABLES - - ---- (AIR) Attack a Controllable. --- @param #CONTROLLABLE self --- @param Controllable#CONTROLLABLE AttackGroup The Controllable to be attacked. --- @param #number WeaponType (optional) Bitmask of weapon types those allowed to use. If parameter is not defined that means no limits on weapon usage. --- @param DCSTypes#AI.Task.WeaponExpend WeaponExpend (optional) Determines how much weapon will be released at each attack. If parameter is not defined the unit / controllable will choose expend on its own discretion. --- @param #number AttackQty (optional) This parameter limits maximal quantity of attack. The aicraft/controllable will not make more attack than allowed even if the target controllable not destroyed and the aicraft/controllable still have ammo. If not defined the aircraft/controllable will attack target until it will be destroyed or until the aircraft/controllable will run out of ammo. --- @param DCSTypes#Azimuth Direction (optional) Desired ingress direction from the target to the attacking aircraft. Controllable/aircraft will make its attacks from the direction. Of course if there is no way to attack from the direction due the terrain controllable/aircraft will choose another direction. --- @param DCSTypes#Distance Altitude (optional) Desired attack start altitude. Controllable/aircraft will make its attacks from the altitude. If the altitude is too low or too high to use weapon aircraft/controllable will choose closest altitude to the desired attack start altitude. If the desired altitude is defined controllable/aircraft will not attack from safe altitude. --- @param #boolean AttackQtyLimit (optional) The flag determines how to interpret attackQty parameter. If the flag is true then attackQty is a limit on maximal attack quantity for "AttackControllable" and "AttackUnit" tasks. If the flag is false then attackQty is a desired attack quantity for "Bombing" and "BombingRunway" tasks. --- @return DCSTask#Task The DCS task structure. -function CONTROLLABLE:TaskAttackGroup( AttackGroup, WeaponType, WeaponExpend, AttackQty, Direction, Altitude, AttackQtyLimit ) - self:F2( { self.ControllableName, AttackGroup, WeaponType, WeaponExpend, AttackQty, Direction, Altitude, AttackQtyLimit } ) - - -- AttackControllable = { - -- id = 'AttackControllable', - -- params = { - -- controllableId = Controllable.ID, - -- weaponType = number, - -- expend = enum AI.Task.WeaponExpend, - -- attackQty = number, - -- directionEnabled = boolean, - -- direction = Azimuth, - -- altitudeEnabled = boolean, - -- altitude = Distance, - -- attackQtyLimit = boolean, - -- } - -- } - - local DirectionEnabled = nil - if Direction then - DirectionEnabled = true - end - - local AltitudeEnabled = nil - if Altitude then - AltitudeEnabled = true - end - - local DCSTask - DCSTask = { id = 'AttackControllable', - params = { - controllableId = AttackGroup:GetID(), - weaponType = WeaponType, - expend = WeaponExpend, - attackQty = AttackQty, - directionEnabled = DirectionEnabled, - direction = Direction, - altitudeEnabled = AltitudeEnabled, - altitude = Altitude, - attackQtyLimit = AttackQtyLimit, - }, - }, - - self:T3( { DCSTask } ) - return DCSTask -end - - ---- (AIR) Attack the Unit. --- @param #CONTROLLABLE self --- @param Unit#UNIT AttackUnit The unit. --- @param #number WeaponType (optional) Bitmask of weapon types those allowed to use. If parameter is not defined that means no limits on weapon usage. --- @param DCSTypes#AI.Task.WeaponExpend WeaponExpend (optional) Determines how much weapon will be released at each attack. If parameter is not defined the unit / controllable will choose expend on its own discretion. --- @param #number AttackQty (optional) This parameter limits maximal quantity of attack. The aicraft/controllable will not make more attack than allowed even if the target controllable not destroyed and the aicraft/controllable still have ammo. If not defined the aircraft/controllable will attack target until it will be destroyed or until the aircraft/controllable will run out of ammo. --- @param DCSTypes#Azimuth Direction (optional) Desired ingress direction from the target to the attacking aircraft. Controllable/aircraft will make its attacks from the direction. Of course if there is no way to attack from the direction due the terrain controllable/aircraft will choose another direction. --- @param #boolean AttackQtyLimit (optional) The flag determines how to interpret attackQty parameter. If the flag is true then attackQty is a limit on maximal attack quantity for "AttackControllable" and "AttackUnit" tasks. If the flag is false then attackQty is a desired attack quantity for "Bombing" and "BombingRunway" tasks. --- @param #boolean ControllableAttack (optional) Flag indicates that the target must be engaged by all aircrafts of the controllable. Has effect only if the task is assigned to a controllable, not to a single aircraft. --- @return DCSTask#Task The DCS task structure. -function CONTROLLABLE:TaskAttackUnit( AttackUnit, WeaponType, WeaponExpend, AttackQty, Direction, AttackQtyLimit, ControllableAttack ) - self:F2( { self.ControllableName, AttackUnit, WeaponType, WeaponExpend, AttackQty, Direction, AttackQtyLimit, ControllableAttack } ) - - -- AttackUnit = { - -- id = 'AttackUnit', - -- params = { - -- unitId = Unit.ID, - -- weaponType = number, - -- expend = enum AI.Task.WeaponExpend - -- attackQty = number, - -- direction = Azimuth, - -- attackQtyLimit = boolean, - -- controllableAttack = boolean, - -- } - -- } - - local DCSTask - DCSTask = { id = 'AttackUnit', - params = { - unitId = AttackUnit:GetID(), - weaponType = WeaponType, - expend = WeaponExpend, - attackQty = AttackQty, - direction = Direction, - attackQtyLimit = AttackQtyLimit, - controllableAttack = ControllableAttack, - }, - }, - - self:T3( { DCSTask } ) - return DCSTask -end - - ---- (AIR) Delivering weapon at the point on the ground. --- @param #CONTROLLABLE self --- @param DCSTypes#Vec2 PointVec2 2D-coordinates of the point to deliver weapon at. --- @param #number WeaponType (optional) Bitmask of weapon types those allowed to use. If parameter is not defined that means no limits on weapon usage. --- @param DCSTypes#AI.Task.WeaponExpend WeaponExpend (optional) Determines how much weapon will be released at each attack. If parameter is not defined the unit / controllable will choose expend on its own discretion. --- @param #number AttackQty (optional) Desired quantity of passes. The parameter is not the same in AttackControllable and AttackUnit tasks. --- @param DCSTypes#Azimuth Direction (optional) Desired ingress direction from the target to the attacking aircraft. Controllable/aircraft will make its attacks from the direction. Of course if there is no way to attack from the direction due the terrain controllable/aircraft will choose another direction. --- @param #boolean ControllableAttack (optional) Flag indicates that the target must be engaged by all aircrafts of the controllable. Has effect only if the task is assigned to a controllable, not to a single aircraft. --- @return DCSTask#Task The DCS task structure. -function CONTROLLABLE:TaskBombing( PointVec2, WeaponType, WeaponExpend, AttackQty, Direction, ControllableAttack ) - self:F2( { self.ControllableName, PointVec2, WeaponType, WeaponExpend, AttackQty, Direction, ControllableAttack } ) - --- Bombing = { --- id = 'Bombing', --- params = { --- point = Vec2, --- weaponType = number, --- expend = enum AI.Task.WeaponExpend, --- attackQty = number, --- direction = Azimuth, --- controllableAttack = boolean, --- } --- } - - local DCSTask - DCSTask = { id = 'Bombing', - params = { - point = PointVec2, - weaponType = WeaponType, - expend = WeaponExpend, - attackQty = AttackQty, - direction = Direction, - controllableAttack = ControllableAttack, - }, - }, - - self:T3( { DCSTask } ) - return DCSTask -end - ---- (AIR) Orbit at a specified position at a specified alititude during a specified duration with a specified speed. --- @param #CONTROLLABLE self --- @param DCSTypes#Vec2 Point The point to hold the position. --- @param #number Altitude The altitude to hold the position. --- @param #number Speed The speed flying when holding the position. --- @return #CONTROLLABLE self -function CONTROLLABLE:TaskOrbitCircleAtVec2( Point, Altitude, Speed ) - self:F2( { self.ControllableName, Point, Altitude, Speed } ) - - -- pattern = enum AI.Task.OribtPattern, - -- point = Vec2, - -- point2 = Vec2, - -- speed = Distance, - -- altitude = Distance - - local LandHeight = land.getHeight( Point ) - - self:T3( { LandHeight } ) - - local DCSTask = { id = 'Orbit', - params = { pattern = AI.Task.OrbitPattern.CIRCLE, - point = Point, - speed = Speed, - altitude = Altitude + LandHeight - } - } - - - -- local AITask = { id = 'ControlledTask', - -- params = { task = { id = 'Orbit', - -- params = { pattern = AI.Task.OrbitPattern.CIRCLE, - -- point = Point, - -- speed = Speed, - -- altitude = Altitude + LandHeight - -- } - -- }, - -- stopCondition = { duration = Duration - -- } - -- } - -- } - -- ) - - return DCSTask -end - ---- (AIR) Orbit at the current position of the first unit of the controllable at a specified alititude. --- @param #CONTROLLABLE self --- @param #number Altitude The altitude to hold the position. --- @param #number Speed The speed flying when holding the position. --- @return #CONTROLLABLE self -function CONTROLLABLE:TaskOrbitCircle( Altitude, Speed ) - self:F2( { self.ControllableName, Altitude, Speed } ) - - local DCSControllable = self:GetDCSObject() - - if DCSControllable then - local ControllablePoint = self:GetPointVec2() - return self:TaskOrbitCircleAtVec2( ControllablePoint, Altitude, Speed ) - end - - return nil -end - - - ---- (AIR) Hold position at the current position of the first unit of the controllable. --- @param #CONTROLLABLE self --- @param #number Duration The maximum duration in seconds to hold the position. --- @return #CONTROLLABLE self -function CONTROLLABLE:TaskHoldPosition() - self:F2( { self.ControllableName } ) - - return self:TaskOrbitCircle( 30, 10 ) -end - - - - ---- (AIR) Attacking the map object (building, structure, e.t.c). --- @param #CONTROLLABLE self --- @param DCSTypes#Vec2 PointVec2 2D-coordinates of the point the map object is closest to. The distance between the point and the map object must not be greater than 2000 meters. Object id is not used here because Mission Editor doesn't support map object identificators. --- @param #number WeaponType (optional) Bitmask of weapon types those allowed to use. If parameter is not defined that means no limits on weapon usage. --- @param DCSTypes#AI.Task.WeaponExpend WeaponExpend (optional) Determines how much weapon will be released at each attack. If parameter is not defined the unit / controllable will choose expend on its own discretion. --- @param #number AttackQty (optional) This parameter limits maximal quantity of attack. The aicraft/controllable will not make more attack than allowed even if the target controllable not destroyed and the aicraft/controllable still have ammo. If not defined the aircraft/controllable will attack target until it will be destroyed or until the aircraft/controllable will run out of ammo. --- @param DCSTypes#Azimuth Direction (optional) Desired ingress direction from the target to the attacking aircraft. Controllable/aircraft will make its attacks from the direction. Of course if there is no way to attack from the direction due the terrain controllable/aircraft will choose another direction. --- @param #boolean ControllableAttack (optional) Flag indicates that the target must be engaged by all aircrafts of the controllable. Has effect only if the task is assigned to a controllable, not to a single aircraft. --- @return DCSTask#Task The DCS task structure. -function CONTROLLABLE:TaskAttackMapObject( PointVec2, WeaponType, WeaponExpend, AttackQty, Direction, ControllableAttack ) - self:F2( { self.ControllableName, PointVec2, WeaponType, WeaponExpend, AttackQty, Direction, ControllableAttack } ) - --- AttackMapObject = { --- id = 'AttackMapObject', --- params = { --- point = Vec2, --- weaponType = number, --- expend = enum AI.Task.WeaponExpend, --- attackQty = number, --- direction = Azimuth, --- controllableAttack = boolean, --- } --- } - - local DCSTask - DCSTask = { id = 'AttackMapObject', - params = { - point = PointVec2, - weaponType = WeaponType, - expend = WeaponExpend, - attackQty = AttackQty, - direction = Direction, - controllableAttack = ControllableAttack, - }, - }, - - self:T3( { DCSTask } ) - return DCSTask -end - - ---- (AIR) Delivering weapon on the runway. --- @param #CONTROLLABLE self --- @param Airbase#AIRBASE Airbase Airbase to attack. --- @param #number WeaponType (optional) Bitmask of weapon types those allowed to use. If parameter is not defined that means no limits on weapon usage. --- @param DCSTypes#AI.Task.WeaponExpend WeaponExpend (optional) Determines how much weapon will be released at each attack. If parameter is not defined the unit / controllable will choose expend on its own discretion. --- @param #number AttackQty (optional) This parameter limits maximal quantity of attack. The aicraft/controllable will not make more attack than allowed even if the target controllable not destroyed and the aicraft/controllable still have ammo. If not defined the aircraft/controllable will attack target until it will be destroyed or until the aircraft/controllable will run out of ammo. --- @param DCSTypes#Azimuth Direction (optional) Desired ingress direction from the target to the attacking aircraft. Controllable/aircraft will make its attacks from the direction. Of course if there is no way to attack from the direction due the terrain controllable/aircraft will choose another direction. --- @param #boolean ControllableAttack (optional) Flag indicates that the target must be engaged by all aircrafts of the controllable. Has effect only if the task is assigned to a controllable, not to a single aircraft. --- @return DCSTask#Task The DCS task structure. -function CONTROLLABLE:TaskBombingRunway( Airbase, WeaponType, WeaponExpend, AttackQty, Direction, ControllableAttack ) - self:F2( { self.ControllableName, Airbase, WeaponType, WeaponExpend, AttackQty, Direction, ControllableAttack } ) - --- BombingRunway = { --- id = 'BombingRunway', --- params = { --- runwayId = AirdromeId, --- weaponType = number, --- expend = enum AI.Task.WeaponExpend, --- attackQty = number, --- direction = Azimuth, --- controllableAttack = boolean, --- } --- } - - local DCSTask - DCSTask = { id = 'BombingRunway', - params = { - point = Airbase:GetID(), - weaponType = WeaponType, - expend = WeaponExpend, - attackQty = AttackQty, - direction = Direction, - controllableAttack = ControllableAttack, - }, - }, - - self:T3( { DCSTask } ) - return DCSTask -end - - ---- (AIR) Refueling from the nearest tanker. No parameters. --- @param #CONTROLLABLE self --- @return DCSTask#Task The DCS task structure. -function CONTROLLABLE:TaskRefueling() - self:F2( { self.ControllableName } ) - --- Refueling = { --- id = 'Refueling', --- params = {} --- } - - local DCSTask - DCSTask = { id = 'Refueling', - params = { - }, - }, - - self:T3( { DCSTask } ) - return DCSTask -end - - ---- (AIR HELICOPTER) Landing at the ground. For helicopters only. --- @param #CONTROLLABLE self --- @param DCSTypes#Vec2 Point The point where to land. --- @param #number Duration The duration in seconds to stay on the ground. --- @return #CONTROLLABLE self -function CONTROLLABLE:TaskLandAtVec2( Point, Duration ) - self:F2( { self.ControllableName, Point, Duration } ) - --- Land = { --- id= 'Land', --- params = { --- point = Vec2, --- durationFlag = boolean, --- duration = Time --- } --- } - - local DCSTask - if Duration and Duration > 0 then - DCSTask = { id = 'Land', - params = { - point = Point, - durationFlag = true, - duration = Duration, - }, - } - else - DCSTask = { id = 'Land', - params = { - point = Point, - durationFlag = false, - }, - } - end - - self:T3( DCSTask ) - return DCSTask -end - ---- (AIR) Land the controllable at a @{Zone#ZONE_RADIUS). --- @param #CONTROLLABLE self --- @param Zone#ZONE Zone The zone where to land. --- @param #number Duration The duration in seconds to stay on the ground. --- @return #CONTROLLABLE self -function CONTROLLABLE:TaskLandAtZone( Zone, Duration, RandomPoint ) - self:F2( { self.ControllableName, Zone, Duration, RandomPoint } ) - - local Point - if RandomPoint then - Point = Zone:GetRandomVec2() - else - Point = Zone:GetPointVec2() - end - - local DCSTask = self:TaskLandAtVec2( Point, Duration ) - - self:T3( DCSTask ) - return DCSTask -end - - - ---- (AIR) Following another airborne controllable. --- The unit / controllable will follow lead unit of another controllable, wingmens of both controllables will continue following their leaders. --- If another controllable is on land the unit / controllable will orbit around. --- @param #CONTROLLABLE self --- @param Controllable#CONTROLLABLE FollowControllable The controllable to be followed. --- @param DCSTypes#Vec3 PointVec3 Position of the unit / lead unit of the controllable relative lead unit of another controllable in frame reference oriented by course of lead unit of another controllable. If another controllable is on land the unit / controllable will orbit around. --- @param #number LastWaypointIndex Detach waypoint of another controllable. Once reached the unit / controllable Follow task is finished. --- @return DCSTask#Task The DCS task structure. -function CONTROLLABLE:TaskFollow( FollowControllable, PointVec3, LastWaypointIndex ) - self:F2( { self.ControllableName, FollowControllable, PointVec3, LastWaypointIndex } ) - --- Follow = { --- id = 'Follow', --- params = { --- controllableId = Controllable.ID, --- pos = Vec3, --- lastWptIndexFlag = boolean, --- lastWptIndex = number --- } --- } - - local LastWaypointIndexFlag = nil - if LastWaypointIndex then - LastWaypointIndexFlag = true - end - - local DCSTask - DCSTask = { id = 'Follow', - params = { - controllableId = FollowControllable:GetID(), - pos = PointVec3, - lastWptIndexFlag = LastWaypointIndexFlag, - lastWptIndex = LastWaypointIndex, - }, - }, - - self:T3( { DCSTask } ) - return DCSTask -end - - ---- (AIR) Escort another airborne controllable. --- The unit / controllable will follow lead unit of another controllable, wingmens of both controllables will continue following their leaders. --- The unit / controllable will also protect that controllable from threats of specified types. --- @param #CONTROLLABLE self --- @param Controllable#CONTROLLABLE EscortControllable The controllable to be escorted. --- @param DCSTypes#Vec3 PointVec3 Position of the unit / lead unit of the controllable relative lead unit of another controllable in frame reference oriented by course of lead unit of another controllable. If another controllable is on land the unit / controllable will orbit around. --- @param #number LastWaypointIndex Detach waypoint of another controllable. Once reached the unit / controllable Follow task is finished. --- @param #number EngagementDistanceMax Maximal distance from escorted controllable to threat. If the threat is already engaged by escort escort will disengage if the distance becomes greater than 1.5 * engagementDistMax. --- @param DCSTypes#AttributeNameArray TargetTypes Array of AttributeName that is contains threat categories allowed to engage. --- @return DCSTask#Task The DCS task structure. -function CONTROLLABLE:TaskEscort( FollowControllable, PointVec3, LastWaypointIndex, EngagementDistance, TargetTypes ) - self:F2( { self.ControllableName, FollowControllable, PointVec3, LastWaypointIndex, EngagementDistance, TargetTypes } ) - --- Escort = { --- id = 'Escort', --- params = { --- controllableId = Controllable.ID, --- pos = Vec3, --- lastWptIndexFlag = boolean, --- lastWptIndex = number, --- engagementDistMax = Distance, --- targetTypes = array of AttributeName, --- } --- } - - local LastWaypointIndexFlag = nil - if LastWaypointIndex then - LastWaypointIndexFlag = true - end - - local DCSTask - DCSTask = { id = 'Follow', - params = { - controllableId = FollowControllable:GetID(), - pos = PointVec3, - lastWptIndexFlag = LastWaypointIndexFlag, - lastWptIndex = LastWaypointIndex, - engagementDistMax = EngagementDistance, - targetTypes = TargetTypes, - }, - }, - - self:T3( { DCSTask } ) - return DCSTask -end - - --- GROUND TASKS - ---- (GROUND) Fire at a VEC2 point until ammunition is finished. --- @param #CONTROLLABLE self --- @param DCSTypes#Vec2 PointVec2 The point to fire at. --- @param DCSTypes#Distance Radius The radius of the zone to deploy the fire at. --- @return DCSTask#Task The DCS task structure. -function CONTROLLABLE:TaskFireAtPoint( PointVec2, Radius ) - self:F2( { self.ControllableName, PointVec2, Radius } ) - - -- FireAtPoint = { - -- id = 'FireAtPoint', - -- params = { - -- point = Vec2, - -- radius = Distance, - -- } - -- } - - local DCSTask - DCSTask = { id = 'FireAtPoint', - params = { - point = PointVec2, - radius = Radius, - } - } - - self:T3( { DCSTask } ) - return DCSTask -end - ---- (GROUND) Hold ground controllable from moving. --- @param #CONTROLLABLE self --- @return DCSTask#Task The DCS task structure. -function CONTROLLABLE:TaskHold() - self:F2( { self.ControllableName } ) - --- Hold = { --- id = 'Hold', --- params = { --- } --- } - - local DCSTask - DCSTask = { id = 'Hold', - params = { - } - } - - self:T3( { DCSTask } ) - return DCSTask -end - - --- TASKS FOR AIRBORNE AND GROUND UNITS/CONTROLLABLES - ---- (AIR + GROUND) The task makes the controllable/unit a FAC and orders the FAC to control the target (enemy ground controllable) destruction. --- The killer is player-controlled allied CAS-aircraft that is in contact with the FAC. --- If the task is assigned to the controllable lead unit will be a FAC. --- @param #CONTROLLABLE self --- @param Controllable#CONTROLLABLE AttackGroup Target CONTROLLABLE. --- @param #number WeaponType Bitmask of weapon types those allowed to use. If parameter is not defined that means no limits on weapon usage. --- @param DCSTypes#AI.Task.Designation Designation (optional) Designation type. --- @param #boolean Datalink (optional) Allows to use datalink to send the target information to attack aircraft. Enabled by default. --- @return DCSTask#Task The DCS task structure. -function CONTROLLABLE:TaskFAC_AttackGroup( AttackGroup, WeaponType, Designation, Datalink ) - self:F2( { self.ControllableName, AttackGroup, WeaponType, Designation, Datalink } ) - --- FAC_AttackControllable = { --- id = 'FAC_AttackControllable', --- params = { --- controllableId = Controllable.ID, --- weaponType = number, --- designation = enum AI.Task.Designation, --- datalink = boolean --- } --- } - - local DCSTask - DCSTask = { id = 'FAC_AttackControllable', - params = { - controllableId = AttackGroup:GetID(), - weaponType = WeaponType, - designation = Designation, - datalink = Datalink, - } - } - - self:T3( { DCSTask } ) - return DCSTask -end - --- EN-ROUTE TASKS FOR AIRBORNE CONTROLLABLES - ---- (AIR) Engaging targets of defined types. --- @param #CONTROLLABLE self --- @param DCSTypes#Distance Distance Maximal distance from the target to a route leg. If the target is on a greater distance it will be ignored. --- @param DCSTypes#AttributeNameArray TargetTypes Array of target categories allowed to engage. --- @param #number Priority All enroute tasks have the priority parameter. This is a number (less value - higher priority) that determines actions related to what task will be performed first. --- @return DCSTask#Task The DCS task structure. -function CONTROLLABLE:EnRouteTaskEngageTargets( Distance, TargetTypes, Priority ) - self:F2( { self.ControllableName, Distance, TargetTypes, Priority } ) - --- EngageTargets ={ --- id = 'EngageTargets', --- params = { --- maxDist = Distance, --- targetTypes = array of AttributeName, --- priority = number --- } --- } - - local DCSTask - DCSTask = { id = 'EngageTargets', - params = { - maxDist = Distance, - targetTypes = TargetTypes, - priority = Priority - } - } - - self:T3( { DCSTask } ) - return DCSTask -end - - - ---- (AIR) Engaging a targets of defined types at circle-shaped zone. --- @param #CONTROLLABLE self --- @param DCSTypes#Vec2 PointVec2 2D-coordinates of the zone. --- @param DCSTypes#Distance Radius Radius of the zone. --- @param DCSTypes#AttributeNameArray TargetTypes Array of target categories allowed to engage. --- @param #number Priority All en-route tasks have the priority parameter. This is a number (less value - higher priority) that determines actions related to what task will be performed first. --- @return DCSTask#Task The DCS task structure. -function CONTROLLABLE:EnRouteTaskEngageTargets( PointVec2, Radius, TargetTypes, Priority ) - self:F2( { self.ControllableName, PointVec2, Radius, TargetTypes, Priority } ) - --- EngageTargetsInZone = { --- id = 'EngageTargetsInZone', --- params = { --- point = Vec2, --- zoneRadius = Distance, --- targetTypes = array of AttributeName, --- priority = number --- } --- } - - local DCSTask - DCSTask = { id = 'EngageTargetsInZone', - params = { - point = PointVec2, - zoneRadius = Radius, - targetTypes = TargetTypes, - priority = Priority - } - } - - self:T3( { DCSTask } ) - return DCSTask -end - - ---- (AIR) Engaging a controllable. The task does not assign the target controllable to the unit/controllable to attack now; it just allows the unit/controllable to engage the target controllable as well as other assigned targets. --- @param #CONTROLLABLE self --- @param Controllable#CONTROLLABLE AttackGroup The Controllable to be attacked. --- @param #number Priority All en-route tasks have the priority parameter. This is a number (less value - higher priority) that determines actions related to what task will be performed first. --- @param #number WeaponType (optional) Bitmask of weapon types those allowed to use. If parameter is not defined that means no limits on weapon usage. --- @param DCSTypes#AI.Task.WeaponExpend WeaponExpend (optional) Determines how much weapon will be released at each attack. If parameter is not defined the unit / controllable will choose expend on its own discretion. --- @param #number AttackQty (optional) This parameter limits maximal quantity of attack. The aicraft/controllable will not make more attack than allowed even if the target controllable not destroyed and the aicraft/controllable still have ammo. If not defined the aircraft/controllable will attack target until it will be destroyed or until the aircraft/controllable will run out of ammo. --- @param DCSTypes#Azimuth Direction (optional) Desired ingress direction from the target to the attacking aircraft. Controllable/aircraft will make its attacks from the direction. Of course if there is no way to attack from the direction due the terrain controllable/aircraft will choose another direction. --- @param DCSTypes#Distance Altitude (optional) Desired attack start altitude. Controllable/aircraft will make its attacks from the altitude. If the altitude is too low or too high to use weapon aircraft/controllable will choose closest altitude to the desired attack start altitude. If the desired altitude is defined controllable/aircraft will not attack from safe altitude. --- @param #boolean AttackQtyLimit (optional) The flag determines how to interpret attackQty parameter. If the flag is true then attackQty is a limit on maximal attack quantity for "AttackControllable" and "AttackUnit" tasks. If the flag is false then attackQty is a desired attack quantity for "Bombing" and "BombingRunway" tasks. --- @return DCSTask#Task The DCS task structure. -function CONTROLLABLE:EnRouteTaskEngageGroup( AttackGroup, Priority, WeaponType, WeaponExpend, AttackQty, Direction, Altitude, AttackQtyLimit ) - self:F2( { self.ControllableName, AttackGroup, Priority, WeaponType, WeaponExpend, AttackQty, Direction, Altitude, AttackQtyLimit } ) - - -- EngageControllable = { - -- id = 'EngageControllable ', - -- params = { - -- controllableId = Controllable.ID, - -- weaponType = number, - -- expend = enum AI.Task.WeaponExpend, - -- attackQty = number, - -- directionEnabled = boolean, - -- direction = Azimuth, - -- altitudeEnabled = boolean, - -- altitude = Distance, - -- attackQtyLimit = boolean, - -- priority = number, - -- } - -- } - - local DirectionEnabled = nil - if Direction then - DirectionEnabled = true - end - - local AltitudeEnabled = nil - if Altitude then - AltitudeEnabled = true - end - - local DCSTask - DCSTask = { id = 'EngageControllable', - params = { - controllableId = AttackGroup:GetID(), - weaponType = WeaponType, - expend = WeaponExpend, - attackQty = AttackQty, - directionEnabled = DirectionEnabled, - direction = Direction, - altitudeEnabled = AltitudeEnabled, - altitude = Altitude, - attackQtyLimit = AttackQtyLimit, - priority = Priority, - }, - }, - - self:T3( { DCSTask } ) - return DCSTask -end - - ---- (AIR) Attack the Unit. --- @param #CONTROLLABLE self --- @param Unit#UNIT AttackUnit The UNIT. --- @param #number Priority All en-route tasks have the priority parameter. This is a number (less value - higher priority) that determines actions related to what task will be performed first. --- @param #number WeaponType (optional) Bitmask of weapon types those allowed to use. If parameter is not defined that means no limits on weapon usage. --- @param DCSTypes#AI.Task.WeaponExpend WeaponExpend (optional) Determines how much weapon will be released at each attack. If parameter is not defined the unit / controllable will choose expend on its own discretion. --- @param #number AttackQty (optional) This parameter limits maximal quantity of attack. The aicraft/controllable will not make more attack than allowed even if the target controllable not destroyed and the aicraft/controllable still have ammo. If not defined the aircraft/controllable will attack target until it will be destroyed or until the aircraft/controllable will run out of ammo. --- @param DCSTypes#Azimuth Direction (optional) Desired ingress direction from the target to the attacking aircraft. Controllable/aircraft will make its attacks from the direction. Of course if there is no way to attack from the direction due the terrain controllable/aircraft will choose another direction. --- @param #boolean AttackQtyLimit (optional) The flag determines how to interpret attackQty parameter. If the flag is true then attackQty is a limit on maximal attack quantity for "AttackControllable" and "AttackUnit" tasks. If the flag is false then attackQty is a desired attack quantity for "Bombing" and "BombingRunway" tasks. --- @param #boolean ControllableAttack (optional) Flag indicates that the target must be engaged by all aircrafts of the controllable. Has effect only if the task is assigned to a controllable, not to a single aircraft. --- @return DCSTask#Task The DCS task structure. -function CONTROLLABLE:EnRouteTaskEngageUnit( AttackUnit, Priority, WeaponType, WeaponExpend, AttackQty, Direction, AttackQtyLimit, ControllableAttack ) - self:F2( { self.ControllableName, AttackUnit, Priority, WeaponType, WeaponExpend, AttackQty, Direction, AttackQtyLimit, ControllableAttack } ) - - -- EngageUnit = { - -- id = 'EngageUnit', - -- params = { - -- unitId = Unit.ID, - -- weaponType = number, - -- expend = enum AI.Task.WeaponExpend - -- attackQty = number, - -- direction = Azimuth, - -- attackQtyLimit = boolean, - -- controllableAttack = boolean, - -- priority = number, - -- } - -- } - - local DCSTask - DCSTask = { id = 'EngageUnit', - params = { - unitId = AttackUnit:GetID(), - weaponType = WeaponType, - expend = WeaponExpend, - attackQty = AttackQty, - direction = Direction, - attackQtyLimit = AttackQtyLimit, - controllableAttack = ControllableAttack, - priority = Priority, - }, - }, - - self:T3( { DCSTask } ) - return DCSTask -end - - - ---- (AIR) Aircraft will act as an AWACS for friendly units (will provide them with information about contacts). No parameters. --- @param #CONTROLLABLE self --- @return DCSTask#Task The DCS task structure. -function CONTROLLABLE:EnRouteTaskAWACS( ) - self:F2( { self.ControllableName } ) - --- AWACS = { --- id = 'AWACS', --- params = { --- } --- } - - local DCSTask - DCSTask = { id = 'AWACS', - params = { - } - } - - self:T3( { DCSTask } ) - return DCSTask -end - - ---- (AIR) Aircraft will act as a tanker for friendly units. No parameters. --- @param #CONTROLLABLE self --- @return DCSTask#Task The DCS task structure. -function CONTROLLABLE:EnRouteTaskTanker( ) - self:F2( { self.ControllableName } ) - --- Tanker = { --- id = 'Tanker', --- params = { --- } --- } - - local DCSTask - DCSTask = { id = 'Tanker', - params = { - } - } - - self:T3( { DCSTask } ) - return DCSTask -end - - --- En-route tasks for ground units/controllables - ---- (GROUND) Ground unit (EW-radar) will act as an EWR for friendly units (will provide them with information about contacts). No parameters. --- @param #CONTROLLABLE self --- @return DCSTask#Task The DCS task structure. -function CONTROLLABLE:EnRouteTaskEWR( ) - self:F2( { self.ControllableName } ) - --- EWR = { --- id = 'EWR', --- params = { --- } --- } - - local DCSTask - DCSTask = { id = 'EWR', - params = { - } - } - - self:T3( { DCSTask } ) - return DCSTask -end - - --- En-route tasks for airborne and ground units/controllables - ---- (AIR + GROUND) The task makes the controllable/unit a FAC and lets the FAC to choose the target (enemy ground controllable) as well as other assigned targets. --- The killer is player-controlled allied CAS-aircraft that is in contact with the FAC. --- If the task is assigned to the controllable lead unit will be a FAC. --- @param #CONTROLLABLE self --- @param Controllable#CONTROLLABLE AttackGroup Target CONTROLLABLE. --- @param #number Priority All en-route tasks have the priority parameter. This is a number (less value - higher priority) that determines actions related to what task will be performed first. --- @param #number WeaponType Bitmask of weapon types those allowed to use. If parameter is not defined that means no limits on weapon usage. --- @param DCSTypes#AI.Task.Designation Designation (optional) Designation type. --- @param #boolean Datalink (optional) Allows to use datalink to send the target information to attack aircraft. Enabled by default. --- @return DCSTask#Task The DCS task structure. -function CONTROLLABLE:EnRouteTaskFAC_EngageGroup( AttackGroup, Priority, WeaponType, Designation, Datalink ) - self:F2( { self.ControllableName, AttackGroup, WeaponType, Priority, Designation, Datalink } ) - --- FAC_EngageControllable = { --- id = 'FAC_EngageControllable', --- params = { --- controllableId = Controllable.ID, --- weaponType = number, --- designation = enum AI.Task.Designation, --- datalink = boolean, --- priority = number, --- } --- } - - local DCSTask - DCSTask = { id = 'FAC_EngageControllable', - params = { - controllableId = AttackGroup:GetID(), - weaponType = WeaponType, - designation = Designation, - datalink = Datalink, - priority = Priority, - } - } - - self:T3( { DCSTask } ) - return DCSTask -end - - ---- (AIR + GROUND) The task makes the controllable/unit a FAC and lets the FAC to choose a targets (enemy ground controllable) around as well as other assigned targets. --- The killer is player-controlled allied CAS-aircraft that is in contact with the FAC. --- If the task is assigned to the controllable lead unit will be a FAC. --- @param #CONTROLLABLE self --- @param DCSTypes#Distance Radius The maximal distance from the FAC to a target. --- @param #number Priority All en-route tasks have the priority parameter. This is a number (less value - higher priority) that determines actions related to what task will be performed first. --- @return DCSTask#Task The DCS task structure. -function CONTROLLABLE:EnRouteTaskFAC( Radius, Priority ) - self:F2( { self.ControllableName, Radius, Priority } ) - --- FAC = { --- id = 'FAC', --- params = { --- radius = Distance, --- priority = number --- } --- } - - local DCSTask - DCSTask = { id = 'FAC', - params = { - radius = Radius, - priority = Priority - } - } - - self:T3( { DCSTask } ) - return DCSTask -end - - - - ---- (AIR) Move the controllable to a Vec2 Point, wait for a defined duration and embark a controllable. --- @param #CONTROLLABLE self --- @param DCSTypes#Vec2 Point The point where to wait. --- @param #number Duration The duration in seconds to wait. --- @param #CONTROLLABLE EmbarkingControllable The controllable to be embarked. --- @return DCSTask#Task The DCS task structure -function CONTROLLABLE:TaskEmbarking( Point, Duration, EmbarkingControllable ) - self:F2( { self.ControllableName, Point, Duration, EmbarkingControllable.DCSControllable } ) - - local DCSTask - DCSTask = { id = 'Embarking', - params = { x = Point.x, - y = Point.y, - duration = Duration, - controllablesForEmbarking = { EmbarkingControllable.ControllableID }, - durationFlag = true, - distributionFlag = false, - distribution = {}, - } - } - - self:T3( { DCSTask } ) - return DCSTask -end - ---- (GROUND) Embark to a Transport landed at a location. - ---- Move to a defined Vec2 Point, and embark to a controllable when arrived within a defined Radius. --- @param #CONTROLLABLE self --- @param DCSTypes#Vec2 Point The point where to wait. --- @param #number Radius The radius of the embarking zone around the Point. --- @return DCSTask#Task The DCS task structure. -function CONTROLLABLE:TaskEmbarkToTransport( Point, Radius ) - self:F2( { self.ControllableName, Point, Radius } ) - - local DCSTask --DCSTask#Task - DCSTask = { id = 'EmbarkToTransport', - params = { x = Point.x, - y = Point.y, - zoneRadius = Radius, - } - } - - self:T3( { DCSTask } ) - return DCSTask -end - - - ---- (AIR + GROUND) Return a mission task from a mission template. --- @param #CONTROLLABLE self --- @param #table TaskMission A table containing the mission task. --- @return DCSTask#Task -function CONTROLLABLE:TaskMission( TaskMission ) - self:F2( Points ) - - local DCSTask - DCSTask = { id = 'Mission', params = { TaskMission, }, } - - self:T3( { DCSTask } ) - return DCSTask -end - ---- Return a Misson task to follow a given route defined by Points. --- @param #CONTROLLABLE self --- @param #table Points A table of route points. --- @return DCSTask#Task -function CONTROLLABLE:TaskRoute( Points ) - self:F2( Points ) - - local DCSTask - DCSTask = { id = 'Mission', params = { route = { points = Points, }, }, } - - self:T3( { DCSTask } ) - return DCSTask -end - ---- (AIR + GROUND) Make the Controllable move to fly to a given point. --- @param #CONTROLLABLE self --- @param DCSTypes#Vec3 Point The destination point in Vec3 format. --- @param #number Speed The speed to travel. --- @return #CONTROLLABLE self -function CONTROLLABLE:TaskRouteToVec2( Point, Speed ) - self:F2( { Point, Speed } ) - - local ControllablePoint = self:GetUnit( 1 ):GetPointVec2() - - local PointFrom = {} - PointFrom.x = ControllablePoint.x - PointFrom.y = ControllablePoint.y - PointFrom.type = "Turning Point" - PointFrom.action = "Turning Point" - PointFrom.speed = Speed - PointFrom.speed_locked = true - PointFrom.properties = { - ["vnav"] = 1, - ["scale"] = 0, - ["angle"] = 0, - ["vangle"] = 0, - ["steer"] = 2, - } - - - local PointTo = {} - PointTo.x = Point.x - PointTo.y = Point.y - PointTo.type = "Turning Point" - PointTo.action = "Fly Over Point" - PointTo.speed = Speed - PointTo.speed_locked = true - PointTo.properties = { - ["vnav"] = 1, - ["scale"] = 0, - ["angle"] = 0, - ["vangle"] = 0, - ["steer"] = 2, - } - - - local Points = { PointFrom, PointTo } - - self:T3( Points ) - - self:Route( Points ) - - return self -end - ---- (AIR + GROUND) Make the Controllable move to a given point. --- @param #CONTROLLABLE self --- @param DCSTypes#Vec3 Point The destination point in Vec3 format. --- @param #number Speed The speed to travel. --- @return #CONTROLLABLE self -function CONTROLLABLE:TaskRouteToVec3( Point, Speed ) - self:F2( { Point, Speed } ) - - local ControllablePoint = self:GetUnit( 1 ):GetPointVec3() - - local PointFrom = {} - PointFrom.x = ControllablePoint.x - PointFrom.y = ControllablePoint.z - PointFrom.alt = ControllablePoint.y - PointFrom.alt_type = "BARO" - PointFrom.type = "Turning Point" - PointFrom.action = "Turning Point" - PointFrom.speed = Speed - PointFrom.speed_locked = true - PointFrom.properties = { - ["vnav"] = 1, - ["scale"] = 0, - ["angle"] = 0, - ["vangle"] = 0, - ["steer"] = 2, - } - - - local PointTo = {} - PointTo.x = Point.x - PointTo.y = Point.z - PointTo.alt = Point.y - PointTo.alt_type = "BARO" - PointTo.type = "Turning Point" - PointTo.action = "Fly Over Point" - PointTo.speed = Speed - PointTo.speed_locked = true - PointTo.properties = { - ["vnav"] = 1, - ["scale"] = 0, - ["angle"] = 0, - ["vangle"] = 0, - ["steer"] = 2, - } - - - local Points = { PointFrom, PointTo } - - self:T3( Points ) - - self:Route( Points ) - - return self -end - - - ---- Make the controllable to follow a given route. --- @param #CONTROLLABLE self --- @param #table GoPoints A table of Route Points. --- @return #CONTROLLABLE self -function CONTROLLABLE:Route( GoPoints ) - self:F2( GoPoints ) - - local DCSControllable = self:GetDCSObject() - - if DCSControllable then - local Points = routines.utils.deepCopy( GoPoints ) - local MissionTask = { id = 'Mission', params = { route = { points = Points, }, }, } - local Controller = self:_GetController() - --Controller.setTask( Controller, MissionTask ) - SCHEDULER:New( Controller, Controller.setTask, { MissionTask }, 1 ) - return self - end - - return nil -end - - - ---- (AIR + GROUND) Route the controllable to a given zone. --- The controllable final destination point can be randomized. --- A speed can be given in km/h. --- A given formation can be given. --- @param #CONTROLLABLE self --- @param Zone#ZONE Zone The zone where to route to. --- @param #boolean Randomize Defines whether to target point gets randomized within the Zone. --- @param #number Speed The speed. --- @param Base#FORMATION Formation The formation string. -function CONTROLLABLE:TaskRouteToZone( Zone, Randomize, Speed, Formation ) - self:F2( Zone ) - - local DCSControllable = self:GetDCSObject() - - if DCSControllable then - - local ControllablePoint = self:GetPointVec2() - - local PointFrom = {} - PointFrom.x = ControllablePoint.x - PointFrom.y = ControllablePoint.y - PointFrom.type = "Turning Point" - PointFrom.action = "Cone" - PointFrom.speed = 20 / 1.6 - - - local PointTo = {} - local ZonePoint - - if Randomize then - ZonePoint = Zone:GetRandomVec2() - else - ZonePoint = Zone:GetPointVec2() - end - - PointTo.x = ZonePoint.x - PointTo.y = ZonePoint.y - PointTo.type = "Turning Point" - - if Formation then - PointTo.action = Formation - else - PointTo.action = "Cone" - end - - if Speed then - PointTo.speed = Speed - else - PointTo.speed = 20 / 1.6 - end - - local Points = { PointFrom, PointTo } - - self:T3( Points ) - - self:Route( Points ) - - return self - end - - return nil -end - ---- (AIR) Return the Controllable to an @{Airbase#AIRBASE} --- A speed can be given in km/h. --- A given formation can be given. --- @param #CONTROLLABLE self --- @param Airbase#AIRBASE ReturnAirbase The @{Airbase#AIRBASE} to return to. --- @param #number Speed (optional) The speed. --- @return #string The route -function CONTROLLABLE:RouteReturnToAirbase( ReturnAirbase, Speed ) - self:F2( { ReturnAirbase, Speed } ) - --- Example --- [4] = --- { --- ["alt"] = 45, --- ["type"] = "Land", --- ["action"] = "Landing", --- ["alt_type"] = "BARO", --- ["formation_template"] = "", --- ["properties"] = --- { --- ["vnav"] = 1, --- ["scale"] = 0, --- ["angle"] = 0, --- ["vangle"] = 0, --- ["steer"] = 2, --- }, -- end of ["properties"] --- ["ETA"] = 527.81058817743, --- ["airdromeId"] = 12, --- ["y"] = 243127.2973737, --- ["x"] = -5406.2803440839, --- ["name"] = "DictKey_WptName_53", --- ["speed"] = 138.88888888889, --- ["ETA_locked"] = false, --- ["task"] = --- { --- ["id"] = "ComboTask", --- ["params"] = --- { --- ["tasks"] = --- { --- }, -- end of ["tasks"] --- }, -- end of ["params"] --- }, -- end of ["task"] --- ["speed_locked"] = true, --- }, -- end of [4] - - - local DCSControllable = self:GetDCSObject() - - if DCSControllable then - - local ControllablePoint = self:GetPointVec2() - local ControllableVelocity = self:GetMaxVelocity() - - local PointFrom = {} - PointFrom.x = ControllablePoint.x - PointFrom.y = ControllablePoint.y - PointFrom.type = "Turning Point" - PointFrom.action = "Turning Point" - PointFrom.speed = ControllableVelocity - - - local PointTo = {} - local AirbasePoint = ReturnAirbase:GetPointVec2() - - PointTo.x = AirbasePoint.x - PointTo.y = AirbasePoint.y - PointTo.type = "Land" - PointTo.action = "Landing" - PointTo.airdromeId = ReturnAirbase:GetID()-- Airdrome ID - self:T(PointTo.airdromeId) - --PointTo.alt = 0 - - local Points = { PointFrom, PointTo } - - self:T3( Points ) - - local Route = { points = Points, } - - return Route - end - - return nil -end - --- Commands - ---- Do Script command --- @param #CONTROLLABLE self --- @param #string DoScript --- @return #DCSCommand -function CONTROLLABLE:CommandDoScript( DoScript ) - - local DCSDoScript = { - id = "Script", - params = { - command = DoScript, - }, - } - - self:T3( DCSDoScript ) - return DCSDoScript -end - - ---- Return the mission template of the controllable. --- @param #CONTROLLABLE self --- @return #table The MissionTemplate --- TODO: Rework the method how to retrieve a template ... -function CONTROLLABLE:GetTaskMission() - self:F2( self.ControllableName ) - - return routines.utils.deepCopy( _DATABASE.Templates.Controllables[self.ControllableName].Template ) -end - ---- Return the mission route of the controllable. --- @param #CONTROLLABLE self --- @return #table The mission route defined by points. -function CONTROLLABLE:GetTaskRoute() - self:F2( self.ControllableName ) - - return routines.utils.deepCopy( _DATABASE.Templates.Controllables[self.ControllableName].Template.route.points ) -end - ---- Return the route of a controllable by using the @{Database#DATABASE} class. --- @param #CONTROLLABLE self --- @param #number Begin The route point from where the copy will start. The base route point is 0. --- @param #number End The route point where the copy will end. The End point is the last point - the End point. The last point has base 0. --- @param #boolean Randomize Randomization of the route, when true. --- @param #number Radius When randomization is on, the randomization is within the radius. -function CONTROLLABLE:CopyRoute( Begin, End, Randomize, Radius ) - self:F2( { Begin, End } ) - - local Points = {} - - -- Could be a Spawned Controllable - local ControllableName = string.match( self:GetName(), ".*#" ) - if ControllableName then - ControllableName = ControllableName:sub( 1, -2 ) - else - ControllableName = self:GetName() - end - - self:T3( { ControllableName } ) - - local Template = _DATABASE.Templates.Controllables[ControllableName].Template - - if Template then - if not Begin then - Begin = 0 - end - if not End then - End = 0 - end - - for TPointID = Begin + 1, #Template.route.points - End do - if Template.route.points[TPointID] then - Points[#Points+1] = routines.utils.deepCopy( Template.route.points[TPointID] ) - if Randomize then - if not Radius then - Radius = 500 - end - Points[#Points].x = Points[#Points].x + math.random( Radius * -1, Radius ) - Points[#Points].y = Points[#Points].y + math.random( Radius * -1, Radius ) - end - end - end - return Points - else - error( "Template not found for Controllable : " .. ControllableName ) - end - - return nil -end - - ---- Return the detected targets of the controllable. --- The optional parametes specify the detection methods that can be applied. --- If no detection method is given, the detection will use all the available methods by default. --- @param Controllable#CONTROLLABLE self --- @param #boolean DetectVisual (optional) --- @param #boolean DetectOptical (optional) --- @param #boolean DetectRadar (optional) --- @param #boolean DetectIRST (optional) --- @param #boolean DetectRWR (optional) --- @param #boolean DetectDLINK (optional) --- @return #table DetectedTargets -function CONTROLLABLE:GetDetectedTargets( DetectVisual, DetectOptical, DetectRadar, DetectIRST, DetectRWR, DetectDLINK ) - self:F2( self.ControllableName ) - - local DCSControllable = self:GetDCSObject() - if DCSControllable then - local DetectionVisual = ( DetectVisual and DetectVisual == true ) and Controller.Detection.VISUAL or nil - local DetectionOptical = ( DetectOptical and DetectOptical == true ) and Controller.Detection.OPTICAL or nil - local DetectionRadar = ( DetectRadar and DetectRadar == true ) and Controller.Detection.RADAR or nil - local DetectionIRST = ( DetectIRST and DetectIRST == true ) and Controller.Detection.IRST or nil - local DetectionRWR = ( DetectRWR and DetectRWR == true ) and Controller.Detection.RWR or nil - local DetectionDLINK = ( DetectDLINK and DetectDLINK == true ) and Controller.Detection.DLINK or nil - - - return self:_GetController():getDetectedTargets( DetectionVisual, DetectionOptical, DetectionRadar, DetectionIRST, DetectionRWR, DetectionDLINK ) - end - - return nil -end - -function CONTROLLABLE:IsTargetDetected( DCSObject ) - self:F2( self.ControllableName ) - - local DCSControllable = self:GetDCSObject() - if DCSControllable then - - local TargetIsDetected, TargetIsVisible, TargetLastTime, TargetKnowType, TargetKnowDistance, TargetLastPos, TargetLastVelocity - = self:_GetController().isTargetDetected( self:_GetController(), DCSObject, - Controller.Detection.VISUAL, - Controller.Detection.OPTIC, - Controller.Detection.RADAR, - Controller.Detection.IRST, - Controller.Detection.RWR, - Controller.Detection.DLINK - ) - return TargetIsDetected, TargetIsVisible, TargetLastTime, TargetKnowType, TargetKnowDistance, TargetLastPos, TargetLastVelocity - end - - return nil -end - --- Options - ---- Can the CONTROLLABLE hold their weapons? --- @param #CONTROLLABLE self --- @return #boolean -function CONTROLLABLE:OptionROEHoldFirePossible() - self:F2( { self.ControllableName } ) - - local DCSControllable = self:GetDCSObject() - if DCSControllable then - if self:IsAir() or self:IsGround() or self:IsShip() then - return true - end - - return false - end - - return nil -end - ---- Holding weapons. --- @param Controllable#CONTROLLABLE self --- @return Controllable#CONTROLLABLE self -function CONTROLLABLE:OptionROEHoldFire() - self:F2( { self.ControllableName } ) - - local DCSControllable = self:GetDCSObject() - if DCSControllable then - local Controller = self:_GetController() - - if self:IsAir() then - Controller:setOption( AI.Option.Air.id.ROE, AI.Option.Air.val.ROE.WEAPON_HOLD ) - elseif self:IsGround() then - Controller:setOption( AI.Option.Ground.id.ROE, AI.Option.Ground.val.ROE.WEAPON_HOLD ) - elseif self:IsShip() then - Controller:setOption( AI.Option.Naval.id.ROE, AI.Option.Naval.val.ROE.WEAPON_HOLD ) - end - - return self - end - - return nil -end - ---- Can the CONTROLLABLE attack returning on enemy fire? --- @param #CONTROLLABLE self --- @return #boolean -function CONTROLLABLE:OptionROEReturnFirePossible() - self:F2( { self.ControllableName } ) - - local DCSControllable = self:GetDCSObject() - if DCSControllable then - if self:IsAir() or self:IsGround() or self:IsShip() then - return true - end - - return false - end - - return nil -end - ---- Return fire. --- @param #CONTROLLABLE self --- @return #CONTROLLABLE self -function CONTROLLABLE:OptionROEReturnFire() - self:F2( { self.ControllableName } ) - - local DCSControllable = self:GetDCSObject() - if DCSControllable then - local Controller = self:_GetController() - - if self:IsAir() then - Controller:setOption( AI.Option.Air.id.ROE, AI.Option.Air.val.ROE.RETURN_FIRE ) - elseif self:IsGround() then - Controller:setOption( AI.Option.Ground.id.ROE, AI.Option.Ground.val.ROE.RETURN_FIRE ) - elseif self:IsShip() then - Controller:setOption( AI.Option.Naval.id.ROE, AI.Option.Naval.val.ROE.RETURN_FIRE ) - end - - return self - end - - return nil -end - ---- Can the CONTROLLABLE attack designated targets? --- @param #CONTROLLABLE self --- @return #boolean -function CONTROLLABLE:OptionROEOpenFirePossible() - self:F2( { self.ControllableName } ) - - local DCSControllable = self:GetDCSObject() - if DCSControllable then - if self:IsAir() or self:IsGround() or self:IsShip() then - return true - end - - return false - end - - return nil -end - ---- Openfire. --- @param #CONTROLLABLE self --- @return #CONTROLLABLE self -function CONTROLLABLE:OptionROEOpenFire() - self:F2( { self.ControllableName } ) - - local DCSControllable = self:GetDCSObject() - if DCSControllable then - local Controller = self:_GetController() - - if self:IsAir() then - Controller:setOption( AI.Option.Air.id.ROE, AI.Option.Air.val.ROE.OPEN_FIRE ) - elseif self:IsGround() then - Controller:setOption( AI.Option.Ground.id.ROE, AI.Option.Ground.val.ROE.OPEN_FIRE ) - elseif self:IsShip() then - Controller:setOption( AI.Option.Naval.id.ROE, AI.Option.Naval.val.ROE.OPEN_FIRE ) - end - - return self - end - - return nil -end - ---- Can the CONTROLLABLE attack targets of opportunity? --- @param #CONTROLLABLE self --- @return #boolean -function CONTROLLABLE:OptionROEWeaponFreePossible() - self:F2( { self.ControllableName } ) - - local DCSControllable = self:GetDCSObject() - if DCSControllable then - if self:IsAir() then - return true - end - - return false - end - - return nil -end - ---- Weapon free. --- @param #CONTROLLABLE self --- @return #CONTROLLABLE self -function CONTROLLABLE:OptionROEWeaponFree() - self:F2( { self.ControllableName } ) - - local DCSControllable = self:GetDCSObject() - if DCSControllable then - local Controller = self:_GetController() - - if self:IsAir() then - Controller:setOption( AI.Option.Air.id.ROE, AI.Option.Air.val.ROE.WEAPON_FREE ) - end - - return self - end - - return nil -end - ---- Can the CONTROLLABLE ignore enemy fire? --- @param #CONTROLLABLE self --- @return #boolean -function CONTROLLABLE:OptionROTNoReactionPossible() - self:F2( { self.ControllableName } ) - - local DCSControllable = self:GetDCSObject() - if DCSControllable then - if self:IsAir() then - return true - end - - return false - end - - return nil -end - - ---- No evasion on enemy threats. --- @param #CONTROLLABLE self --- @return #CONTROLLABLE self -function CONTROLLABLE:OptionROTNoReaction() - self:F2( { self.ControllableName } ) - - local DCSControllable = self:GetDCSObject() - if DCSControllable then - local Controller = self:_GetController() - - if self:IsAir() then - Controller:setOption( AI.Option.Air.id.REACTION_ON_THREAT, AI.Option.Air.val.REACTION_ON_THREAT.NO_REACTION ) - end - - return self - end - - return nil -end - ---- Can the CONTROLLABLE evade using passive defenses? --- @param #CONTROLLABLE self --- @return #boolean -function CONTROLLABLE:OptionROTPassiveDefensePossible() - self:F2( { self.ControllableName } ) - - local DCSControllable = self:GetDCSObject() - if DCSControllable then - if self:IsAir() then - return true - end - - return false - end - - return nil -end - ---- Evasion passive defense. --- @param #CONTROLLABLE self --- @return #CONTROLLABLE self -function CONTROLLABLE:OptionROTPassiveDefense() - self:F2( { self.ControllableName } ) - - local DCSControllable = self:GetDCSObject() - if DCSControllable then - local Controller = self:_GetController() - - if self:IsAir() then - Controller:setOption( AI.Option.Air.id.REACTION_ON_THREAT, AI.Option.Air.val.REACTION_ON_THREAT.PASSIVE_DEFENCE ) - end - - return self - end - - return nil -end - ---- Can the CONTROLLABLE evade on enemy fire? --- @param #CONTROLLABLE self --- @return #boolean -function CONTROLLABLE:OptionROTEvadeFirePossible() - self:F2( { self.ControllableName } ) - - local DCSControllable = self:GetDCSObject() - if DCSControllable then - if self:IsAir() then - return true - end - - return false - end - - return nil -end - - ---- Evade on fire. --- @param #CONTROLLABLE self --- @return #CONTROLLABLE self -function CONTROLLABLE:OptionROTEvadeFire() - self:F2( { self.ControllableName } ) - - local DCSControllable = self:GetDCSObject() - if DCSControllable then - local Controller = self:_GetController() - - if self:IsAir() then - Controller:setOption( AI.Option.Air.id.REACTION_ON_THREAT, AI.Option.Air.val.REACTION_ON_THREAT.EVADE_FIRE ) - end - - return self - end - - return nil -end - ---- Can the CONTROLLABLE evade on fire using vertical manoeuvres? --- @param #CONTROLLABLE self --- @return #boolean -function CONTROLLABLE:OptionROTVerticalPossible() - self:F2( { self.ControllableName } ) - - local DCSControllable = self:GetDCSObject() - if DCSControllable then - if self:IsAir() then - return true - end - - return false - end - - return nil -end - - ---- Evade on fire using vertical manoeuvres. --- @param #CONTROLLABLE self --- @return #CONTROLLABLE self -function CONTROLLABLE:OptionROTVertical() - self:F2( { self.ControllableName } ) - - local DCSControllable = self:GetDCSObject() - if DCSControllable then - local Controller = self:_GetController() - - if self:IsAir() then - Controller:setOption( AI.Option.Air.id.REACTION_ON_THREAT, AI.Option.Air.val.REACTION_ON_THREAT.BYPASS_AND_ESCAPE ) - end - - return self - end - - return nil -end - ---- Retrieve the controllable mission and allow to place function hooks within the mission waypoint plan. --- Use the method @{Controllable#CONTROLLABLE:WayPointFunction} to define the hook functions for specific waypoints. --- Use the method @{Controllable@CONTROLLABLE:WayPointExecute) to start the execution of the new mission plan. --- Note that when WayPointInitialize is called, the Mission of the controllable is RESTARTED! --- @param #CONTROLLABLE self --- @param #table WayPoints If WayPoints is given, then use the route. --- @return #CONTROLLABLE -function CONTROLLABLE:WayPointInitialize( WayPoints ) - - if WayPoints then - self.WayPoints = WayPoints - else - self.WayPoints = self:GetTaskRoute() - end - - return self -end - - ---- Registers a waypoint function that will be executed when the controllable moves over the WayPoint. --- @param #CONTROLLABLE self --- @param #number WayPoint The waypoint number. Note that the start waypoint on the route is WayPoint 1! --- @param #number WayPointIndex When defining multiple WayPoint functions for one WayPoint, use WayPointIndex to set the sequence of actions. --- @param #function WayPointFunction The waypoint function to be called when the controllable moves over the waypoint. The waypoint function takes variable parameters. --- @return #CONTROLLABLE -function CONTROLLABLE:WayPointFunction( WayPoint, WayPointIndex, WayPointFunction, ... ) - self:F2( { WayPoint, WayPointIndex, WayPointFunction } ) - - table.insert( self.WayPoints[WayPoint].task.params.tasks, WayPointIndex ) - self.WayPoints[WayPoint].task.params.tasks[WayPointIndex] = self:TaskFunction( WayPoint, WayPointIndex, WayPointFunction, arg ) - return self -end - - -function CONTROLLABLE:TaskFunction( WayPoint, WayPointIndex, FunctionString, FunctionArguments ) - self:F2( { WayPoint, WayPointIndex, FunctionString, FunctionArguments } ) - - local DCSTask - - local DCSScript = {} - DCSScript[#DCSScript+1] = "local MissionControllable = CONTROLLABLE:Find( ... ) " - - if FunctionArguments and #FunctionArguments > 0 then - DCSScript[#DCSScript+1] = FunctionString .. "( MissionControllable, " .. table.concat( FunctionArguments, "," ) .. ")" - else - DCSScript[#DCSScript+1] = FunctionString .. "( MissionControllable )" - end - - DCSTask = self:TaskWrappedAction( - self:CommandDoScript( - table.concat( DCSScript ) - ), WayPointIndex - ) - - self:T3( DCSTask ) - - return DCSTask - -end - ---- Executes the WayPoint plan. --- The function gets a WayPoint parameter, that you can use to restart the mission at a specific WayPoint. --- Note that when the WayPoint parameter is used, the new start mission waypoint of the controllable will be 1! --- @param #CONTROLLABLE self --- @param #number WayPoint The WayPoint from where to execute the mission. --- @param #number WaitTime The amount seconds to wait before initiating the mission. --- @return #CONTROLLABLE -function CONTROLLABLE:WayPointExecute( WayPoint, WaitTime ) - - if not WayPoint then - WayPoint = 1 - end - - -- When starting the mission from a certain point, the TaskPoints need to be deleted before the given WayPoint. - for TaskPointID = 1, WayPoint - 1 do - table.remove( self.WayPoints, 1 ) - end - - self:T3( self.WayPoints ) - - self:SetTask( self:TaskRoute( self.WayPoints ), WaitTime ) - - return self -end - - ---- This module contains the SCHEDULER class. --- --- 1) @{Scheduler#SCHEDULER} class, extends @{Base#BASE} --- ===================================================== --- The @{Scheduler#SCHEDULER} class models time events calling given event handling functions. --- --- 1.1) SCHEDULER constructor --- -------------------------- --- The SCHEDULER class is quite easy to use: --- --- * @{Scheduler#SCHEDULER.New}: Setup a new scheduler and start it with the specified parameters. --- --- 1.2) SCHEDULER timer stop and start --- ----------------------------------- --- The SCHEDULER can be stopped and restarted with the following methods: --- --- * @{Scheduler#SCHEDULER.Start}: (Re-)Start the scheduler. --- * @{Scheduler#SCHEDULER.Stop}: Stop the scheduler. --- --- @module Scheduler --- @author FlightControl - - ---- The SCHEDULER class --- @type SCHEDULER --- @field #number ScheduleID the ID of the scheduler. --- @extends Base#BASE -SCHEDULER = { - ClassName = "SCHEDULER", -} - ---- SCHEDULER constructor. --- @param #SCHEDULER self --- @param #table TimeEventObject Specified for which Moose object the timer is setup. If a value of nil is provided, a scheduler will be setup without an object reference. --- @param #function TimeEventFunction The event function to be called when a timer event occurs. The event function needs to accept the parameters specified in TimeEventFunctionArguments. --- @param #table TimeEventFunctionArguments Optional arguments that can be given as part of scheduler. The arguments need to be given as a table { param1, param 2, ... }. --- @param #number StartSeconds Specifies the amount of seconds that will be waited before the scheduling is started, and the event function is called. --- @param #number RepeatSecondsInterval Specifies the interval in seconds when the scheduler will call the event function. --- @param #number RandomizationFactor Specifies a randomization factor between 0 and 1 to randomize the RepeatSecondsInterval. --- @param #number StopSeconds Specifies the amount of seconds when the scheduler will be stopped. --- @return #SCHEDULER self -function SCHEDULER:New( TimeEventObject, TimeEventFunction, TimeEventFunctionArguments, StartSeconds, RepeatSecondsInterval, RandomizationFactor, StopSeconds ) - local self = BASE:Inherit( self, BASE:New() ) - self:F2( { TimeEventObject, TimeEventFunction, TimeEventFunctionArguments, StartSeconds, RepeatSecondsInterval, RandomizationFactor, StopSeconds } ) - - self.TimeEventObject = TimeEventObject - self.TimeEventFunction = TimeEventFunction - self.TimeEventFunctionArguments = TimeEventFunctionArguments - self.StartSeconds = StartSeconds - self.Repeat = false - - if RepeatSecondsInterval then - self.RepeatSecondsInterval = RepeatSecondsInterval - else - self.RepeatSecondsInterval = 0 - end - - if RandomizationFactor then - self.RandomizationFactor = RandomizationFactor - else - self.RandomizationFactor = 0 - end - - if StopSeconds then - self.StopSeconds = StopSeconds - end - - - self.StartTime = timer.getTime() - - self:Start() - - return self -end - ---- (Re-)Starts the scheduler. --- @param #SCHEDULER self --- @return #SCHEDULER self -function SCHEDULER:Start() - self:F2( self.TimeEventObject ) - - if self.RepeatSecondsInterval ~= 0 then - self.Repeat = true - end - self.ScheduleID = timer.scheduleFunction( self._Scheduler, self, timer.getTime() + self.StartSeconds + .01 ) - - return self -end - ---- Stops the scheduler. --- @param #SCHEDULER self --- @return #SCHEDULER self -function SCHEDULER:Stop() - self:F2( self.TimeEventObject ) - - self.Repeat = false - if self.ScheduleID then - timer.removeFunction( self.ScheduleID ) - end - self.ScheduleID = nil - - return self -end - --- Private Functions - ---- @param #SCHEDULER self -function SCHEDULER:_Scheduler() - self:F2( self.TimeEventFunctionArguments ) - - local ErrorHandler = function( errmsg ) - - env.info( "Error in SCHEDULER function:" .. errmsg ) - if debug ~= nil then - env.info( debug.traceback() ) - end - - return errmsg - end - - local Status, Result - if self.TimeEventObject then - Status, Result = xpcall( function() return self.TimeEventFunction( self.TimeEventObject, unpack( self.TimeEventFunctionArguments ) ) end, ErrorHandler ) - else - Status, Result = xpcall( function() return self.TimeEventFunction( unpack( self.TimeEventFunctionArguments ) ) end, ErrorHandler ) - end - - self:T( { self.TimeEventFunctionArguments, Status, Result, self.StartTime, self.RepeatSecondsInterval, self.RandomizationFactor, self.StopSeconds } ) - - if Status and ( ( Result == nil ) or ( Result and Result ~= false ) ) then - if self.Repeat and ( not self.StopSeconds or ( self.StopSeconds and timer.getTime() <= self.StartTime + self.StopSeconds ) ) then - local ScheduleTime = - timer.getTime() + - self.RepeatSecondsInterval + - math.random( - - ( self.RandomizationFactor * self.RepeatSecondsInterval / 2 ), - ( self.RandomizationFactor * self.RepeatSecondsInterval / 2 ) - ) + - 0.01 - self:T( { self.TimeEventFunctionArguments, "Repeat:", timer.getTime(), ScheduleTime } ) - return ScheduleTime -- returns the next time the function needs to be called. - else - timer.removeFunction( self.ScheduleID ) - self.ScheduleID = nil - end - else - timer.removeFunction( self.ScheduleID ) - self.ScheduleID = nil - end - - return nil -end - - - - - - - - - - - - - - - - ---- The EVENT class models an efficient event handling process between other classes and its units, weapons. --- @module Event --- @author FlightControl - ---- The EVENT structure --- @type EVENT --- @field #EVENT.Events Events -EVENT = { - ClassName = "EVENT", - ClassID = 0, -} - -local _EVENTCODES = { - "S_EVENT_SHOT", - "S_EVENT_HIT", - "S_EVENT_TAKEOFF", - "S_EVENT_LAND", - "S_EVENT_CRASH", - "S_EVENT_EJECTION", - "S_EVENT_REFUELING", - "S_EVENT_DEAD", - "S_EVENT_PILOT_DEAD", - "S_EVENT_BASE_CAPTURED", - "S_EVENT_MISSION_START", - "S_EVENT_MISSION_END", - "S_EVENT_TOOK_CONTROL", - "S_EVENT_REFUELING_STOP", - "S_EVENT_BIRTH", - "S_EVENT_HUMAN_FAILURE", - "S_EVENT_ENGINE_STARTUP", - "S_EVENT_ENGINE_SHUTDOWN", - "S_EVENT_PLAYER_ENTER_UNIT", - "S_EVENT_PLAYER_LEAVE_UNIT", - "S_EVENT_PLAYER_COMMENT", - "S_EVENT_SHOOTING_START", - "S_EVENT_SHOOTING_END", - "S_EVENT_MAX", -} - ---- The Event structure --- @type EVENTDATA --- @field id --- @field initiator --- @field target --- @field weapon --- @field IniDCSUnit --- @field IniDCSUnitName --- @field Unit#UNIT IniUnit --- @field #string IniUnitName --- @field IniDCSGroup --- @field IniDCSGroupName --- @field TgtDCSUnit --- @field TgtDCSUnitName --- @field Unit#UNIT TgtUnit --- @field #string TgtUnitName --- @field TgtDCSGroup --- @field TgtDCSGroupName --- @field Weapon --- @field WeaponName --- @field WeaponTgtDCSUnit - ---- The Events structure --- @type EVENT.Events --- @field #number IniUnit - -function EVENT:New() - local self = BASE:Inherit( self, BASE:New() ) - self:F2() - self.EventHandler = world.addEventHandler( self ) - return self -end - -function EVENT:EventText( EventID ) - - local EventText = _EVENTCODES[EventID] - - return EventText -end - - ---- Initializes the Events structure for the event --- @param #EVENT self --- @param DCSWorld#world.event EventID --- @param #string EventClass --- @return #EVENT.Events -function EVENT:Init( EventID, EventClass ) - self:F3( { _EVENTCODES[EventID], EventClass } ) - if not self.Events[EventID] then - self.Events[EventID] = {} - end - if not self.Events[EventID][EventClass] then - self.Events[EventID][EventClass] = {} - end - return self.Events[EventID][EventClass] -end - - ---- Create an OnDead event handler for a group --- @param #EVENT self --- @param #table EventTemplate --- @param #function EventFunction The function to be called when the event occurs for the unit. --- @param EventSelf The self instance of the class for which the event is. --- @param #function OnEventFunction --- @return #EVENT -function EVENT:OnEventForTemplate( EventTemplate, EventFunction, EventSelf, OnEventFunction ) - self:F2( EventTemplate.name ) - - for EventUnitID, EventUnit in pairs( EventTemplate.units ) do - OnEventFunction( self, EventUnit.name, EventFunction, EventSelf ) - end - return self -end - ---- Set a new listener for an S_EVENT_X event independent from a unit or a weapon. --- @param #EVENT self --- @param #function EventFunction The function to be called when the event occurs for the unit. --- @param Base#BASE EventSelf The self instance of the class for which the event is. --- @param EventID --- @return #EVENT -function EVENT:OnEventGeneric( EventFunction, EventSelf, EventID ) - self:F2( { EventID } ) - - local Event = self:Init( EventID, EventSelf:GetClassNameAndID() ) - Event.EventFunction = EventFunction - Event.EventSelf = EventSelf - return self -end - - ---- Set a new listener for an S_EVENT_X event --- @param #EVENT self --- @param #string EventDCSUnitName --- @param #function EventFunction The function to be called when the event occurs for the unit. --- @param Base#BASE EventSelf The self instance of the class for which the event is. --- @param EventID --- @return #EVENT -function EVENT:OnEventForUnit( EventDCSUnitName, EventFunction, EventSelf, EventID ) - self:F2( EventDCSUnitName ) - - local Event = self:Init( EventID, EventSelf:GetClassNameAndID() ) - if not Event.IniUnit then - Event.IniUnit = {} - end - Event.IniUnit[EventDCSUnitName] = {} - Event.IniUnit[EventDCSUnitName].EventFunction = EventFunction - Event.IniUnit[EventDCSUnitName].EventSelf = EventSelf - return self -end - - ---- Create an OnBirth event handler for a group --- @param #EVENT self --- @param Group#GROUP EventGroup --- @param #function EventFunction The function to be called when the event occurs for the unit. --- @param EventSelf The self instance of the class for which the event is. --- @return #EVENT -function EVENT:OnBirthForTemplate( EventTemplate, EventFunction, EventSelf ) - self:F2( EventTemplate.name ) - - self:OnEventForTemplate( EventTemplate, EventFunction, EventSelf, self.OnBirthForUnit ) - - return self -end - ---- Set a new listener for an S_EVENT_BIRTH event, and registers the unit born. --- @param #EVENT self --- @param #function EventFunction The function to be called when the event occurs for the unit. --- @param Base#BASE EventSelf --- @return #EVENT -function EVENT:OnBirth( EventFunction, EventSelf ) - self:F2() - - self:OnEventGeneric( EventFunction, EventSelf, world.event.S_EVENT_BIRTH ) - - return self -end - ---- Set a new listener for an S_EVENT_BIRTH event. --- @param #EVENT self --- @param #string EventDCSUnitName The id of the unit for the event to be handled. --- @param #function EventFunction The function to be called when the event occurs for the unit. --- @param Base#BASE EventSelf --- @return #EVENT -function EVENT:OnBirthForUnit( EventDCSUnitName, EventFunction, EventSelf ) - self:F2( EventDCSUnitName ) - - self:OnEventForUnit( EventDCSUnitName, EventFunction, EventSelf, world.event.S_EVENT_BIRTH ) - - return self -end - ---- Create an OnCrash event handler for a group --- @param #EVENT self --- @param Group#GROUP EventGroup --- @param #function EventFunction The function to be called when the event occurs for the unit. --- @param EventSelf The self instance of the class for which the event is. --- @return #EVENT -function EVENT:OnCrashForTemplate( EventTemplate, EventFunction, EventSelf ) - self:F2( EventTemplate.name ) - - self:OnEventForTemplate( EventTemplate, EventFunction, EventSelf, self.OnCrashForUnit ) - - return self -end - ---- Set a new listener for an S_EVENT_CRASH event. --- @param #EVENT self --- @param #function EventFunction The function to be called when the event occurs for the unit. --- @param Base#BASE EventSelf --- @return #EVENT -function EVENT:OnCrash( EventFunction, EventSelf ) - self:F2() - - self:OnEventGeneric( EventFunction, EventSelf, world.event.S_EVENT_CRASH ) - - return self -end - ---- Set a new listener for an S_EVENT_CRASH event. --- @param #EVENT self --- @param #string EventDCSUnitName --- @param #function EventFunction The function to be called when the event occurs for the unit. --- @param Base#BASE EventSelf The self instance of the class for which the event is. --- @return #EVENT -function EVENT:OnCrashForUnit( EventDCSUnitName, EventFunction, EventSelf ) - self:F2( EventDCSUnitName ) - - self:OnEventForUnit( EventDCSUnitName, EventFunction, EventSelf, world.event.S_EVENT_CRASH ) - - return self -end - ---- Create an OnDead event handler for a group --- @param #EVENT self --- @param Group#GROUP EventGroup --- @param #function EventFunction The function to be called when the event occurs for the unit. --- @param EventSelf The self instance of the class for which the event is. --- @return #EVENT -function EVENT:OnDeadForTemplate( EventTemplate, EventFunction, EventSelf ) - self:F2( EventTemplate.name ) - - self:OnEventForTemplate( EventTemplate, EventFunction, EventSelf, self.OnDeadForUnit ) - - return self -end - ---- Set a new listener for an S_EVENT_DEAD event. --- @param #EVENT self --- @param #function EventFunction The function to be called when the event occurs for the unit. --- @param Base#BASE EventSelf --- @return #EVENT -function EVENT:OnDead( EventFunction, EventSelf ) - self:F2() - - self:OnEventGeneric( EventFunction, EventSelf, world.event.S_EVENT_DEAD ) - - return self -end - - ---- Set a new listener for an S_EVENT_DEAD event. --- @param #EVENT self --- @param #string EventDCSUnitName --- @param #function EventFunction The function to be called when the event occurs for the unit. --- @param Base#BASE EventSelf The self instance of the class for which the event is. --- @return #EVENT -function EVENT:OnDeadForUnit( EventDCSUnitName, EventFunction, EventSelf ) - self:F2( EventDCSUnitName ) - - self:OnEventForUnit( EventDCSUnitName, EventFunction, EventSelf, world.event.S_EVENT_DEAD ) - - return self -end - ---- Set a new listener for an S_EVENT_PILOT_DEAD event. --- @param #EVENT self --- @param #string EventDCSUnitName --- @param #function EventFunction The function to be called when the event occurs for the unit. --- @param Base#BASE EventSelf The self instance of the class for which the event is. --- @return #EVENT -function EVENT:OnPilotDeadForUnit( EventDCSUnitName, EventFunction, EventSelf ) - self:F2( EventDCSUnitName ) - - self:OnEventForUnit( EventDCSUnitName, EventFunction, EventSelf, world.event.S_EVENT_PILOT_DEAD ) - - return self -end - ---- Create an OnDead event handler for a group --- @param #EVENT self --- @param #table EventTemplate --- @param #function EventFunction The function to be called when the event occurs for the unit. --- @param EventSelf The self instance of the class for which the event is. --- @return #EVENT -function EVENT:OnLandForTemplate( EventTemplate, EventFunction, EventSelf ) - self:F2( EventTemplate.name ) - - self:OnEventForTemplate( EventTemplate, EventFunction, EventSelf, self.OnLandForUnit ) - - return self -end - ---- Set a new listener for an S_EVENT_LAND event. --- @param #EVENT self --- @param #string EventDCSUnitName --- @param #function EventFunction The function to be called when the event occurs for the unit. --- @param Base#BASE EventSelf The self instance of the class for which the event is. --- @return #EVENT -function EVENT:OnLandForUnit( EventDCSUnitName, EventFunction, EventSelf ) - self:F2( EventDCSUnitName ) - - self:OnEventForUnit( EventDCSUnitName, EventFunction, EventSelf, world.event.S_EVENT_LAND ) - - return self -end - ---- Create an OnDead event handler for a group --- @param #EVENT self --- @param #table EventTemplate --- @param #function EventFunction The function to be called when the event occurs for the unit. --- @param EventSelf The self instance of the class for which the event is. --- @return #EVENT -function EVENT:OnTakeOffForTemplate( EventTemplate, EventFunction, EventSelf ) - self:F2( EventTemplate.name ) - - self:OnEventForTemplate( EventTemplate, EventFunction, EventSelf, self.OnTakeOffForUnit ) - - return self -end - ---- Set a new listener for an S_EVENT_TAKEOFF event. --- @param #EVENT self --- @param #string EventDCSUnitName --- @param #function EventFunction The function to be called when the event occurs for the unit. --- @param Base#BASE EventSelf The self instance of the class for which the event is. --- @return #EVENT -function EVENT:OnTakeOffForUnit( EventDCSUnitName, EventFunction, EventSelf ) - self:F2( EventDCSUnitName ) - - self:OnEventForUnit( EventDCSUnitName, EventFunction, EventSelf, world.event.S_EVENT_TAKEOFF ) - - return self -end - ---- Create an OnDead event handler for a group --- @param #EVENT self --- @param #table EventTemplate --- @param #function EventFunction The function to be called when the event occurs for the unit. --- @param EventSelf The self instance of the class for which the event is. --- @return #EVENT -function EVENT:OnEngineShutDownForTemplate( EventTemplate, EventFunction, EventSelf ) - self:F2( EventTemplate.name ) - - self:OnEventForTemplate( EventTemplate, EventFunction, EventSelf, self.OnEngineShutDownForUnit ) - - return self -end - ---- Set a new listener for an S_EVENT_ENGINE_SHUTDOWN event. --- @param #EVENT self --- @param #string EventDCSUnitName --- @param #function EventFunction The function to be called when the event occurs for the unit. --- @param Base#BASE EventSelf The self instance of the class for which the event is. --- @return #EVENT -function EVENT:OnEngineShutDownForUnit( EventDCSUnitName, EventFunction, EventSelf ) - self:F2( EventDCSUnitName ) - - self:OnEventForUnit( EventDCSUnitName, EventFunction, EventSelf, world.event.S_EVENT_ENGINE_SHUTDOWN ) - - return self -end - ---- Set a new listener for an S_EVENT_ENGINE_STARTUP event. --- @param #EVENT self --- @param #string EventDCSUnitName --- @param #function EventFunction The function to be called when the event occurs for the unit. --- @param Base#BASE EventSelf The self instance of the class for which the event is. --- @return #EVENT -function EVENT:OnEngineStartUpForUnit( EventDCSUnitName, EventFunction, EventSelf ) - self:F2( EventDCSUnitName ) - - self:OnEventForUnit( EventDCSUnitName, EventFunction, EventSelf, world.event.S_EVENT_ENGINE_STARTUP ) - - return self -end - ---- Set a new listener for an S_EVENT_SHOT event. --- @param #EVENT self --- @param #function EventFunction The function to be called when the event occurs for the unit. --- @param Base#BASE EventSelf The self instance of the class for which the event is. --- @return #EVENT -function EVENT:OnShot( EventFunction, EventSelf ) - self:F2() - - self:OnEventGeneric( EventFunction, EventSelf, world.event.S_EVENT_SHOT ) - - return self -end - ---- Set a new listener for an S_EVENT_SHOT event for a unit. --- @param #EVENT self --- @param #string EventDCSUnitName --- @param #function EventFunction The function to be called when the event occurs for the unit. --- @param Base#BASE EventSelf The self instance of the class for which the event is. --- @return #EVENT -function EVENT:OnShotForUnit( EventDCSUnitName, EventFunction, EventSelf ) - self:F2( EventDCSUnitName ) - - self:OnEventForUnit( EventDCSUnitName, EventFunction, EventSelf, world.event.S_EVENT_SHOT ) - - return self -end - ---- Set a new listener for an S_EVENT_HIT event. --- @param #EVENT self --- @param #function EventFunction The function to be called when the event occurs for the unit. --- @param Base#BASE EventSelf The self instance of the class for which the event is. --- @return #EVENT -function EVENT:OnHit( EventFunction, EventSelf ) - self:F2() - - self:OnEventGeneric( EventFunction, EventSelf, world.event.S_EVENT_HIT ) - - return self -end - ---- Set a new listener for an S_EVENT_HIT event. --- @param #EVENT self --- @param #string EventDCSUnitName --- @param #function EventFunction The function to be called when the event occurs for the unit. --- @param Base#BASE EventSelf The self instance of the class for which the event is. --- @return #EVENT -function EVENT:OnHitForUnit( EventDCSUnitName, EventFunction, EventSelf ) - self:F2( EventDCSUnitName ) - - self:OnEventForUnit( EventDCSUnitName, EventFunction, EventSelf, world.event.S_EVENT_HIT ) - - return self -end - ---- Set a new listener for an S_EVENT_PLAYER_ENTER_UNIT event. --- @param #EVENT self --- @param #function EventFunction The function to be called when the event occurs for the unit. --- @param Base#BASE EventSelf The self instance of the class for which the event is. --- @return #EVENT -function EVENT:OnPlayerEnterUnit( EventFunction, EventSelf ) - self:F2() - - self:OnEventGeneric( EventFunction, EventSelf, world.event.S_EVENT_PLAYER_ENTER_UNIT ) - - return self -end - ---- Set a new listener for an S_EVENT_PLAYER_LEAVE_UNIT event. --- @param #EVENT self --- @param #function EventFunction The function to be called when the event occurs for the unit. --- @param Base#BASE EventSelf The self instance of the class for which the event is. --- @return #EVENT -function EVENT:OnPlayerLeaveUnit( EventFunction, EventSelf ) - self:F2() - - self:OnEventGeneric( EventFunction, EventSelf, world.event.S_EVENT_PLAYER_LEAVE_UNIT ) - - return self -end - - ---- @param #EVENT self --- @param #EVENTDATA Event -function EVENT:onEvent( Event ) - self:F2( { _EVENTCODES[Event.id], Event } ) - - if self and self.Events and self.Events[Event.id] then - if Event.initiator and Event.initiator:getCategory() == Object.Category.UNIT then - Event.IniDCSUnit = Event.initiator - Event.IniDCSGroup = Event.IniDCSUnit:getGroup() - Event.IniDCSUnitName = Event.IniDCSUnit:getName() - Event.IniUnitName = Event.IniDCSUnitName - Event.IniUnit = UNIT:FindByName( Event.IniDCSUnitName ) - Event.IniDCSGroupName = "" - if Event.IniDCSGroup and Event.IniDCSGroup:isExist() then - Event.IniDCSGroupName = Event.IniDCSGroup:getName() - end - end - if Event.target then - if Event.target and Event.target:getCategory() == Object.Category.UNIT then - Event.TgtDCSUnit = Event.target - Event.TgtDCSGroup = Event.TgtDCSUnit:getGroup() - Event.TgtDCSUnitName = Event.TgtDCSUnit:getName() - Event.TgtUnitName = Event.TgtDCSUnitName - Event.TgtUnit = UNIT:FindByName( Event.TgtDCSUnitName ) - Event.TgtDCSGroupName = "" - if Event.TgtDCSGroup and Event.TgtDCSGroup:isExist() then - Event.TgtDCSGroupName = Event.TgtDCSGroup:getName() - end - end - end - if Event.weapon then - Event.Weapon = Event.weapon - Event.WeaponName = Event.Weapon:getTypeName() - --Event.WeaponTgtDCSUnit = Event.Weapon:getTarget() - end - self:E( { _EVENTCODES[Event.id], Event.IniUnitName, Event.TgtUnitName, Event.WeaponName } ) - for ClassName, EventData in pairs( self.Events[Event.id] ) do - if Event.IniDCSUnitName and EventData.IniUnit and EventData.IniUnit[Event.IniDCSUnitName] then - self:E( { "Calling event function for class ", ClassName, " unit ", Event.IniDCSUnitName } ) - EventData.IniUnit[Event.IniDCSUnitName].EventFunction( EventData.IniUnit[Event.IniDCSUnitName].EventSelf, Event ) - else - if Event.IniDCSUnit and not EventData.IniUnit then - self:E( { "Calling event function for class ", ClassName } ) - EventData.EventFunction( EventData.EventSelf, Event ) - end - end - end - end -end - ---- Encapsulation of DCS World Menu system in a set of MENU classes. --- @module Menu - ---- The MENU class --- @type MENU --- @extends Base#BASE -MENU = { - ClassName = "MENU", - MenuPath = nil, - MenuText = "", - MenuParentPath = nil -} - ---- -function MENU:New( MenuText, MenuParentPath ) - - -- Arrange meta tables - local Child = BASE:Inherit( self, BASE:New() ) - - Child.MenuPath = nil - Child.MenuText = MenuText - Child.MenuParentPath = MenuParentPath - return Child -end - ---- The COMMANDMENU class --- @type COMMANDMENU --- @extends Menu#MENU -COMMANDMENU = { - ClassName = "COMMANDMENU", - CommandMenuFunction = nil, - CommandMenuArgument = nil -} - -function COMMANDMENU:New( MenuText, ParentMenu, CommandMenuFunction, CommandMenuArgument ) - - -- Arrange meta tables - - local MenuParentPath = nil - if ParentMenu ~= nil then - MenuParentPath = ParentMenu.MenuPath - end - - local Child = BASE:Inherit( self, MENU:New( MenuText, MenuParentPath ) ) - - Child.MenuPath = missionCommands.addCommand( MenuText, MenuParentPath, CommandMenuFunction, CommandMenuArgument ) - Child.CommandMenuFunction = CommandMenuFunction - Child.CommandMenuArgument = CommandMenuArgument - return Child -end - ---- The SUBMENU class --- @type SUBMENU --- @extends Menu#MENU -SUBMENU = { - ClassName = "SUBMENU" -} - -function SUBMENU:New( MenuText, ParentMenu ) - - -- Arrange meta tables - local MenuParentPath = nil - if ParentMenu ~= nil then - MenuParentPath = ParentMenu.MenuPath - end - - local Child = BASE:Inherit( self, MENU:New( MenuText, MenuParentPath ) ) - - Child.MenuPath = missionCommands.addSubMenu( MenuText, MenuParentPath ) - return Child -end - --- This local variable is used to cache the menus registered under clients. --- Menus don't dissapear when clients are destroyed and restarted. --- So every menu for a client created must be tracked so that program logic accidentally does not create --- the same menus twice during initialization logic. --- These menu classes are handling this logic with this variable. -local _MENUCLIENTS = {} - ---- The MENU_CLIENT class --- @type MENU_CLIENT --- @extends Menu#MENU -MENU_CLIENT = { - ClassName = "MENU_CLIENT" -} - ---- Creates a new menu item for a group --- @param self --- @param Client#CLIENT MenuClient The Client owning the menu. --- @param #string MenuText The text for the menu. --- @param #table ParentMenu The parent menu. --- @return #MENU_CLIENT self -function MENU_CLIENT:New( MenuClient, MenuText, ParentMenu ) - - -- Arrange meta tables - local MenuParentPath = {} - if ParentMenu ~= nil then - MenuParentPath = ParentMenu.MenuPath - end - - local self = BASE:Inherit( self, MENU:New( MenuText, MenuParentPath ) ) - self:F( { MenuClient, MenuText, ParentMenu } ) - - self.MenuClient = MenuClient - self.MenuClientGroupID = MenuClient:GetClientGroupID() - self.MenuParentPath = MenuParentPath - self.MenuText = MenuText - self.ParentMenu = ParentMenu - - self.Menus = {} - - if not _MENUCLIENTS[self.MenuClientGroupID] then - _MENUCLIENTS[self.MenuClientGroupID] = {} - end - - local MenuPath = _MENUCLIENTS[self.MenuClientGroupID] - - self:T( { MenuClient:GetClientGroupName(), MenuPath[table.concat(MenuParentPath)], MenuParentPath, MenuText } ) - - local MenuPathID = table.concat(MenuParentPath) .. "/" .. MenuText - if MenuPath[MenuPathID] then - missionCommands.removeItemForGroup( self.MenuClient:GetClientGroupID(), MenuPath[MenuPathID] ) - end - - self.MenuPath = missionCommands.addSubMenuForGroup( self.MenuClient:GetClientGroupID(), MenuText, MenuParentPath ) - MenuPath[MenuPathID] = self.MenuPath - - self:T( { MenuClient:GetClientGroupName(), self.MenuPath } ) - - if ParentMenu and ParentMenu.Menus then - ParentMenu.Menus[self.MenuPath] = self - end - return self -end - ---- Removes the sub menus recursively of this MENU_CLIENT. --- @param #MENU_CLIENT self --- @return #MENU_CLIENT self -function MENU_CLIENT:RemoveSubMenus() - self:F( self.MenuPath ) - - for MenuID, Menu in pairs( self.Menus ) do - Menu:Remove() - end - -end - ---- Removes the sub menus recursively of this MENU_CLIENT. --- @param #MENU_CLIENT self --- @return #MENU_CLIENT self -function MENU_CLIENT:Remove() - self:F( self.MenuPath ) - - self:RemoveSubMenus() - - if not _MENUCLIENTS[self.MenuClientGroupID] then - _MENUCLIENTS[self.MenuClientGroupID] = {} - end - - local MenuPath = _MENUCLIENTS[self.MenuClientGroupID] - - if MenuPath[table.concat(self.MenuParentPath) .. "/" .. self.MenuText] then - MenuPath[table.concat(self.MenuParentPath) .. "/" .. self.MenuText] = nil - end - - missionCommands.removeItemForGroup( self.MenuClient:GetClientGroupID(), self.MenuPath ) - self.ParentMenu.Menus[self.MenuPath] = nil - return nil -end - - ---- The MENU_CLIENT_COMMAND class --- @type MENU_CLIENT_COMMAND --- @extends Menu#MENU -MENU_CLIENT_COMMAND = { - ClassName = "MENU_CLIENT_COMMAND" -} - ---- Creates a new radio command item for a group --- @param self --- @param Client#CLIENT MenuClient The Client owning the menu. --- @param MenuText The text for the menu. --- @param ParentMenu The parent menu. --- @param CommandMenuFunction A function that is called when the menu key is pressed. --- @param CommandMenuArgument An argument for the function. --- @return Menu#MENU_CLIENT_COMMAND self -function MENU_CLIENT_COMMAND:New( MenuClient, MenuText, ParentMenu, CommandMenuFunction, CommandMenuArgument ) - - -- Arrange meta tables - - local MenuParentPath = {} - if ParentMenu ~= nil then - MenuParentPath = ParentMenu.MenuPath - end - - local self = BASE:Inherit( self, MENU:New( MenuText, MenuParentPath ) ) - - self.MenuClient = MenuClient - self.MenuClientGroupID = MenuClient:GetClientGroupID() - self.MenuParentPath = MenuParentPath - self.MenuText = MenuText - self.ParentMenu = ParentMenu - - if not _MENUCLIENTS[self.MenuClientGroupID] then - _MENUCLIENTS[self.MenuClientGroupID] = {} - end - - local MenuPath = _MENUCLIENTS[self.MenuClientGroupID] - - self:T( { MenuClient:GetClientGroupName(), MenuPath[table.concat(MenuParentPath)], MenuParentPath, MenuText, CommandMenuFunction, CommandMenuArgument } ) - - local MenuPathID = table.concat(MenuParentPath) .. "/" .. MenuText - if MenuPath[MenuPathID] then - missionCommands.removeItemForGroup( self.MenuClient:GetClientGroupID(), MenuPath[MenuPathID] ) - end - - self.MenuPath = missionCommands.addCommandForGroup( self.MenuClient:GetClientGroupID(), MenuText, MenuParentPath, CommandMenuFunction, CommandMenuArgument ) - MenuPath[MenuPathID] = self.MenuPath - - self.CommandMenuFunction = CommandMenuFunction - self.CommandMenuArgument = CommandMenuArgument - - ParentMenu.Menus[self.MenuPath] = self - - return self -end - -function MENU_CLIENT_COMMAND:Remove() - self:F( self.MenuPath ) - - if not _MENUCLIENTS[self.MenuClientGroupID] then - _MENUCLIENTS[self.MenuClientGroupID] = {} - end - - local MenuPath = _MENUCLIENTS[self.MenuClientGroupID] - - if MenuPath[table.concat(self.MenuParentPath) .. "/" .. self.MenuText] then - MenuPath[table.concat(self.MenuParentPath) .. "/" .. self.MenuText] = nil - end - - missionCommands.removeItemForGroup( self.MenuClient:GetClientGroupID(), self.MenuPath ) - self.ParentMenu.Menus[self.MenuPath] = nil - return nil -end - - ---- The MENU_COALITION class --- @type MENU_COALITION --- @extends Menu#MENU -MENU_COALITION = { - ClassName = "MENU_COALITION" -} - ---- Creates a new coalition menu item --- @param #MENU_COALITION self --- @param DCSCoalition#coalition.side MenuCoalition The coalition owning the menu. --- @param #string MenuText The text for the menu. --- @param #table ParentMenu The parent menu. --- @return #MENU_COALITION self -function MENU_COALITION:New( MenuCoalition, MenuText, ParentMenu ) - - -- Arrange meta tables - local MenuParentPath = {} - if ParentMenu ~= nil then - MenuParentPath = ParentMenu.MenuPath - end - - local self = BASE:Inherit( self, MENU:New( MenuText, MenuParentPath ) ) - self:F( { MenuCoalition, MenuText, ParentMenu } ) - - self.MenuCoalition = MenuCoalition - self.MenuParentPath = MenuParentPath - self.MenuText = MenuText - self.ParentMenu = ParentMenu - - self.Menus = {} - - self:T( { MenuParentPath, MenuText } ) - - self.MenuPath = missionCommands.addSubMenuForCoalition( self.MenuCoalition, MenuText, MenuParentPath ) - - self:T( { self.MenuPath } ) - - if ParentMenu and ParentMenu.Menus then - ParentMenu.Menus[self.MenuPath] = self - end - return self -end - ---- Removes the sub menus recursively of this MENU_COALITION. --- @param #MENU_COALITION self --- @return #MENU_COALITION self -function MENU_COALITION:RemoveSubMenus() - self:F( self.MenuPath ) - - for MenuID, Menu in pairs( self.Menus ) do - Menu:Remove() - end - -end - ---- Removes the sub menus recursively of this MENU_COALITION. --- @param #MENU_COALITION self --- @return #MENU_COALITION self -function MENU_COALITION:Remove() - self:F( self.MenuPath ) - - self:RemoveSubMenus() - missionCommands.removeItemForCoalition( self.MenuCoalition, self.MenuPath ) - self.ParentMenu.Menus[self.MenuPath] = nil - - return nil -end - - ---- The MENU_COALITION_COMMAND class --- @type MENU_COALITION_COMMAND --- @extends Menu#MENU -MENU_COALITION_COMMAND = { - ClassName = "MENU_COALITION_COMMAND" -} - ---- Creates a new radio command item for a group --- @param #MENU_COALITION_COMMAND self --- @param DCSCoalition#coalition.side MenuCoalition The coalition owning the menu. --- @param MenuText The text for the menu. --- @param ParentMenu The parent menu. --- @param CommandMenuFunction A function that is called when the menu key is pressed. --- @param CommandMenuArgument An argument for the function. --- @return #MENU_COALITION_COMMAND self -function MENU_COALITION_COMMAND:New( MenuCoalition, MenuText, ParentMenu, CommandMenuFunction, CommandMenuArgument ) - - -- Arrange meta tables - - local MenuParentPath = {} - if ParentMenu ~= nil then - MenuParentPath = ParentMenu.MenuPath - end - - local self = BASE:Inherit( self, MENU:New( MenuText, MenuParentPath ) ) - - self.MenuCoalition = MenuCoalition - self.MenuParentPath = MenuParentPath - self.MenuText = MenuText - self.ParentMenu = ParentMenu - - self:T( { MenuParentPath, MenuText, CommandMenuFunction, CommandMenuArgument } ) - - self.MenuPath = missionCommands.addCommandForCoalition( self.MenuCoalition, MenuText, MenuParentPath, CommandMenuFunction, CommandMenuArgument ) - - self.CommandMenuFunction = CommandMenuFunction - self.CommandMenuArgument = CommandMenuArgument - - ParentMenu.Menus[self.MenuPath] = self - - return self -end - ---- Removes a radio command item for a coalition --- @param #MENU_COALITION_COMMAND self --- @return #MENU_COALITION_COMMAND self -function MENU_COALITION_COMMAND:Remove() - self:F( self.MenuPath ) - - missionCommands.removeItemForCoalition( self.MenuCoalition, self.MenuPath ) - self.ParentMenu.Menus[self.MenuPath] = nil - return nil -end ---- This module contains the GROUP class. --- --- 1) @{Group#GROUP} class, extends @{Controllable#CONTROLLABLE} --- ============================================================= --- The @{Group#GROUP} class is a wrapper class to handle the DCS Group objects: --- --- * Support all DCS Group APIs. --- * Enhance with Group specific APIs not in the DCS Group API set. --- * Handle local Group Controller. --- * Manage the "state" of the DCS Group. --- --- **IMPORTANT: ONE SHOULD NEVER SANATIZE these GROUP OBJECT REFERENCES! (make the GROUP object references nil).** --- --- 1.1) GROUP reference methods --- ----------------------- --- For each DCS Group object alive within a running mission, a GROUP wrapper object (instance) will be created within the _@{DATABASE} object. --- This is done at the beginning of the mission (when the mission starts), and dynamically when new DCS Group objects are spawned (using the @{SPAWN} class). --- --- The GROUP class does not contain a :New() method, rather it provides :Find() methods to retrieve the object reference --- using the DCS Group or the DCS GroupName. --- --- Another thing to know is that GROUP objects do not "contain" the DCS Group object. --- The GROUP methods will reference the DCS Group object by name when it is needed during API execution. --- If the DCS Group object does not exist or is nil, the GROUP methods will return nil and log an exception in the DCS.log file. --- --- The GROUP class provides the following functions to retrieve quickly the relevant GROUP instance: --- --- * @{#GROUP.Find}(): Find a GROUP instance from the _DATABASE object using a DCS Group object. --- * @{#GROUP.FindByName}(): Find a GROUP instance from the _DATABASE object using a DCS Group name. --- --- 1.2) GROUP task methods --- ----------------------- --- Several group task methods are available that help you to prepare tasks. --- These methods return a string consisting of the task description, which can then be given to either a --- @{Controllable#CONTROLLABLE.PushTask} or @{Controllable#CONTROLLABLE.SetTask} method to assign the task to the GROUP. --- Tasks are specific for the category of the GROUP, more specific, for AIR, GROUND or AIR and GROUND. --- Each task description where applicable indicates for which group category the task is valid. --- There are 2 main subdivisions of tasks: Assigned tasks and EnRoute tasks. --- --- ### 1.2.1) Assigned task methods --- --- Assigned task methods make the group execute the task where the location of the (possible) targets of the task are known before being detected. --- This is different from the EnRoute tasks, where the targets of the task need to be detected before the task can be executed. --- --- Find below a list of the **assigned task** methods: --- --- * @{Controllable#CONTROLLABLE.TaskAttackGroup}: (AIR) Attack a Group. --- * @{Controllable#CONTROLLABLE.TaskAttackMapObject}: (AIR) Attacking the map object (building, structure, e.t.c). --- * @{Controllable#CONTROLLABLE.TaskAttackUnit}: (AIR) Attack the Unit. --- * @{Controllable#CONTROLLABLE.TaskBombing}: (Controllable#CONTROLLABLEDelivering weapon at the point on the ground. --- * @{Controllable#CONTROLLABLE.TaskBombingRunway}: (AIR) Delivering weapon on the runway. --- * @{Controllable#CONTROLLABLE.TaskEmbarking}: (AIR) Move the group to a Vec2 Point, wait for a defined duration and embark a group. --- * @{Controllable#CONTROLLABLE.TaskEmbarkToTransport}: (GROUND) Embark to a Transport landed at a location. --- * @{Controllable#CONTROLLABLE.TaskEscort}: (AIR) Escort another airborne group. --- * @{Controllable#CONTROLLABLE.TaskFAC_AttackGroup}: (AIR + GROUND) The task makes the group/unit a FAC and orders the FAC to control the target (enemy ground group) destruction. --- * @{Controllable#CONTROLLABLE.TaskFireAtPoint}: (GROUND) Fire at a VEC2 point until ammunition is finished. --- * @{Controllable#CONTROLLABLE.TaskFollow}: (AIR) Following another airborne group. --- * @{Controllable#CONTROLLABLE.TaskHold}: (GROUND) Hold ground group from moving. --- * @{Controllable#CONTROLLABLE.TaskHoldPosition}: (AIR) Hold position at the current position of the first unit of the group. --- * @{Controllable#CONTROLLABLE.TaskLand}: (AIR HELICOPTER) Landing at the ground. For helicopters only. --- * @{Controllable#CONTROLLABLE.TaskLandAtZone}: (AIR) Land the group at a @{Zone#ZONE_RADIUS). --- * @{Controllable#CONTROLLABLE.TaskOrbitCircle}: (AIR) Orbit at the current position of the first unit of the group at a specified alititude. --- * @{Controllable#CONTROLLABLE.TaskOrbitCircleAtVec2}: (AIR) Orbit at a specified position at a specified alititude during a specified duration with a specified speed. --- * @{Controllable#CONTROLLABLE.TaskRefueling}: (AIR) Refueling from the nearest tanker. No parameters. --- * @{Controllable#CONTROLLABLE.TaskRoute}: (AIR + GROUND) Return a Misson task to follow a given route defined by Points. --- * @{Controllable#CONTROLLABLE.TaskRouteToVec2}: (AIR + GROUND) Make the Group move to a given point. --- * @{Controllable#CONTROLLABLE.TaskRouteToVec3}: (AIR + GROUND) Make the Group move to a given point. --- * @{Controllable#CONTROLLABLE.TaskRouteToZone}: (AIR + GROUND) Route the group to a given zone. --- * @{Controllable#CONTROLLABLE.TaskReturnToBase}: (AIR) Route the group to an airbase. --- --- ### 1.2.2) EnRoute task methods --- --- EnRoute tasks require the targets of the task need to be detected by the group (using its sensors) before the task can be executed: --- --- * @{Controllable#CONTROLLABLE.EnRouteTaskAWACS}: (AIR) Aircraft will act as an AWACS for friendly units (will provide them with information about contacts). No parameters. --- * @{Controllable#CONTROLLABLE.EnRouteTaskEngageGroup}: (AIR) Engaging a group. The task does not assign the target group to the unit/group to attack now; it just allows the unit/group to engage the target group as well as other assigned targets. --- * @{Controllable#CONTROLLABLE.EnRouteTaskEngageTargets}: (AIR) Engaging targets of defined types. --- * @{Controllable#CONTROLLABLE.EnRouteTaskEWR}: (AIR) Attack the Unit. --- * @{Controllable#CONTROLLABLE.EnRouteTaskFAC}: (AIR + GROUND) The task makes the group/unit a FAC and lets the FAC to choose a targets (enemy ground group) around as well as other assigned targets. --- * @{Controllable#CONTROLLABLE.EnRouteTaskFAC_EngageGroup}: (AIR + GROUND) The task makes the group/unit a FAC and lets the FAC to choose the target (enemy ground group) as well as other assigned targets. --- * @{Controllable#CONTROLLABLE.EnRouteTaskTanker}: (AIR) Aircraft will act as a tanker for friendly units. No parameters. --- --- ### 1.2.3) Preparation task methods --- --- There are certain task methods that allow to tailor the task behaviour: --- --- * @{Controllable#CONTROLLABLE.TaskWrappedAction}: Return a WrappedAction Task taking a Command. --- * @{Controllable#CONTROLLABLE.TaskCombo}: Return a Combo Task taking an array of Tasks. --- * @{Controllable#CONTROLLABLE.TaskCondition}: Return a condition section for a controlled task. --- * @{Controllable#CONTROLLABLE.TaskControlled}: Return a Controlled Task taking a Task and a TaskCondition. --- --- ### 1.2.4) Obtain the mission from group templates --- --- Group templates contain complete mission descriptions. Sometimes you want to copy a complete mission from a group and assign it to another: --- --- * @{Controllable#CONTROLLABLE.TaskMission}: (AIR + GROUND) Return a mission task from a mission template. --- --- 1.3) GROUP Command methods --- -------------------------- --- Group **command methods** prepare the execution of commands using the @{Controllable#CONTROLLABLE.SetCommand} method: --- --- * @{Controllable#CONTROLLABLE.CommandDoScript}: Do Script command. --- * @{Controllable#CONTROLLABLE.CommandSwitchWayPoint}: Perform a switch waypoint command. --- --- 1.4) GROUP Option methods --- ------------------------- --- Group **Option methods** change the behaviour of the Group while being alive. --- --- ### 1.4.1) Rule of Engagement: --- --- * @{Controllable#CONTROLLABLE.OptionROEWeaponFree} --- * @{Controllable#CONTROLLABLE.OptionROEOpenFire} --- * @{Controllable#CONTROLLABLE.OptionROEReturnFire} --- * @{Controllable#CONTROLLABLE.OptionROEEvadeFire} --- --- To check whether an ROE option is valid for a specific group, use: --- --- * @{Controllable#CONTROLLABLE.OptionROEWeaponFreePossible} --- * @{Controllable#CONTROLLABLE.OptionROEOpenFirePossible} --- * @{Controllable#CONTROLLABLE.OptionROEReturnFirePossible} --- * @{Controllable#CONTROLLABLE.OptionROEEvadeFirePossible} --- --- ### 1.4.2) Rule on thread: --- --- * @{Controllable#CONTROLLABLE.OptionROTNoReaction} --- * @{Controllable#CONTROLLABLE.OptionROTPassiveDefense} --- * @{Controllable#CONTROLLABLE.OptionROTEvadeFire} --- * @{Controllable#CONTROLLABLE.OptionROTVertical} --- --- To test whether an ROT option is valid for a specific group, use: --- --- * @{Controllable#CONTROLLABLE.OptionROTNoReactionPossible} --- * @{Controllable#CONTROLLABLE.OptionROTPassiveDefensePossible} --- * @{Controllable#CONTROLLABLE.OptionROTEvadeFirePossible} --- * @{Controllable#CONTROLLABLE.OptionROTVerticalPossible} --- --- 1.5) GROUP Zone validation methods --- ---------------------------------- --- The group can be validated whether it is completely, partly or not within a @{Zone}. --- Use the following Zone validation methods on the group: --- --- * @{#GROUP.IsCompletelyInZone}: Returns true if all units of the group are within a @{Zone}. --- * @{#GROUP.IsPartlyInZone}: Returns true if some units of the group are within a @{Zone}. --- * @{#GROUP.IsNotInZone}: Returns true if none of the group units of the group are within a @{Zone}. --- --- The zone can be of any @{Zone} class derived from @{Zone#ZONE_BASE}. So, these methods are polymorphic to the zones tested on. --- --- @module Group --- @author FlightControl - ---- The GROUP class --- @type GROUP --- @extends Controllable#CONTROLLABLE --- @field #string GroupName The name of the group. -GROUP = { - ClassName = "GROUP", -} - ---- Create a new GROUP from a DCSGroup --- @param #GROUP self --- @param DCSGroup#Group GroupName The DCS Group name --- @return #GROUP self -function GROUP:Register( GroupName ) - local self = BASE:Inherit( self, CONTROLLABLE:New( GroupName ) ) - self:F2( GroupName ) - self.GroupName = GroupName - return self -end - --- Reference methods. - ---- Find the GROUP wrapper class instance using the DCS Group. --- @param #GROUP self --- @param DCSGroup#Group DCSGroup The DCS Group. --- @return #GROUP The GROUP. -function GROUP:Find( DCSGroup ) - - local GroupName = DCSGroup:getName() -- Group#GROUP - local GroupFound = _DATABASE:FindGroup( GroupName ) - GroupFound:E( { GroupName, GroupFound:GetClassNameAndID() } ) - return GroupFound -end - ---- Find the created GROUP using the DCS Group Name. --- @param #GROUP self --- @param #string GroupName The DCS Group Name. --- @return #GROUP The GROUP. -function GROUP:FindByName( GroupName ) - - local GroupFound = _DATABASE:FindGroup( GroupName ) - return GroupFound -end - --- DCS Group methods support. - ---- Returns the DCS Group. --- @param #GROUP self --- @return DCSGroup#Group The DCS Group. -function GROUP:GetDCSObject() - local DCSGroup = Group.getByName( self.GroupName ) - - if DCSGroup then - return DCSGroup - end - - return nil -end - - ---- Returns if the DCS Group is alive. --- When the group exists at run-time, this method will return true, otherwise false. --- @param #GROUP self --- @return #boolean true if the DCS Group is alive. -function GROUP:IsAlive() - self:F2( self.GroupName ) - - local DCSGroup = self:GetDCSObject() - - if DCSGroup then - local GroupIsAlive = DCSGroup:isExist() - self:T3( GroupIsAlive ) - return GroupIsAlive - end - - return nil -end - ---- Destroys the DCS Group and all of its DCS Units. --- Note that this destroy method also raises a destroy event at run-time. --- So all event listeners will catch the destroy event of this DCS Group. --- @param #GROUP self -function GROUP:Destroy() - self:F2( self.GroupName ) - - local DCSGroup = self:GetDCSObject() - - if DCSGroup then - for Index, UnitData in pairs( DCSGroup:getUnits() ) do - self:CreateEventCrash( timer.getTime(), UnitData ) - end - DCSGroup:destroy() - DCSGroup = nil - end - - return nil -end - ---- Returns category of the DCS Group. --- @param #GROUP self --- @return DCSGroup#Group.Category The category ID -function GROUP:GetCategory() - self:F2( self.GroupName ) - - local DCSGroup = self:GetDCSObject() - if DCSGroup then - local GroupCategory = DCSGroup:getCategory() - self:T3( GroupCategory ) - return GroupCategory - end - - return nil -end - ---- Returns the category name of the DCS Group. --- @param #GROUP self --- @return #string Category name = Helicopter, Airplane, Ground Unit, Ship -function GROUP:GetCategoryName() - self:F2( self.GroupName ) - - local DCSGroup = self:GetDCSObject() - if DCSGroup then - local CategoryNames = { - [Group.Category.AIRPLANE] = "Airplane", - [Group.Category.HELICOPTER] = "Helicopter", - [Group.Category.GROUND] = "Ground Unit", - [Group.Category.SHIP] = "Ship", - } - local GroupCategory = DCSGroup:getCategory() - self:T3( GroupCategory ) - - return CategoryNames[GroupCategory] - end - - return nil -end - - ---- Returns the coalition of the DCS Group. --- @param #GROUP self --- @return DCSCoalitionObject#coalition.side The coalition side of the DCS Group. -function GROUP:GetCoalition() - self:F2( self.GroupName ) - - local DCSGroup = self:GetDCSObject() - if DCSGroup then - local GroupCoalition = DCSGroup:getCoalition() - self:T3( GroupCoalition ) - return GroupCoalition - end - - return nil -end - ---- Returns the country of the DCS Group. --- @param #GROUP self --- @return DCScountry#country.id The country identifier. --- @return #nil The DCS Group is not existing or alive. -function GROUP:GetCountry() - self:F2( self.GroupName ) - - local DCSGroup = self:GetDCSObject() - if DCSGroup then - local GroupCountry = DCSGroup:getUnit(1):getCountry() - self:T3( GroupCountry ) - return GroupCountry - end - - return nil -end - ---- Returns the UNIT wrapper class with number UnitNumber. --- If the underlying DCS Unit does not exist, the method will return nil. . --- @param #GROUP self --- @param #number UnitNumber The number of the UNIT wrapper class to be returned. --- @return Unit#UNIT The UNIT wrapper class. -function GROUP:GetUnit( UnitNumber ) - self:F2( { self.GroupName, UnitNumber } ) - - local DCSGroup = self:GetDCSObject() - - if DCSGroup then - local UnitFound = UNIT:Find( DCSGroup:getUnit( UnitNumber ) ) - self:T3( UnitFound.UnitName ) - self:T2( UnitFound ) - return UnitFound - end - - return nil -end - ---- Returns the DCS Unit with number UnitNumber. --- If the underlying DCS Unit does not exist, the method will return nil. . --- @param #GROUP self --- @param #number UnitNumber The number of the DCS Unit to be returned. --- @return DCSUnit#Unit The DCS Unit. -function GROUP:GetDCSUnit( UnitNumber ) - self:F2( { self.GroupName, UnitNumber } ) - - local DCSGroup = self:GetDCSObject() - - if DCSGroup then - local DCSUnitFound = DCSGroup:getUnit( UnitNumber ) - self:T3( DCSUnitFound ) - return DCSUnitFound - end - - return nil -end - ---- Returns current size of the DCS Group. --- If some of the DCS Units of the DCS Group are destroyed the size of the DCS Group is changed. --- @param #GROUP self --- @return #number The DCS Group size. -function GROUP:GetSize() - self:F2( { self.GroupName } ) - local DCSGroup = self:GetDCSObject() - - if DCSGroup then - local GroupSize = DCSGroup:getSize() - self:T3( GroupSize ) - return GroupSize - end - - return nil -end - ---- ---- Returns the initial size of the DCS Group. --- If some of the DCS Units of the DCS Group are destroyed, the initial size of the DCS Group is unchanged. --- @param #GROUP self --- @return #number The DCS Group initial size. -function GROUP:GetInitialSize() - self:F2( { self.GroupName } ) - local DCSGroup = self:GetDCSObject() - - if DCSGroup then - local GroupInitialSize = DCSGroup:getInitialSize() - self:T3( GroupInitialSize ) - return GroupInitialSize - end - - return nil -end - ---- Returns the UNITs wrappers of the DCS Units of the DCS Group. --- @param #GROUP self --- @return #table The UNITs wrappers. -function GROUP:GetUnits() - self:F2( { self.GroupName } ) - local DCSGroup = self:GetDCSObject() - - if DCSGroup then - local DCSUnits = DCSGroup:getUnits() - local Units = {} - for Index, UnitData in pairs( DCSUnits ) do - Units[#Units+1] = UNIT:Find( UnitData ) - end - self:T3( Units ) - return Units - end - - return nil -end - - ---- Returns the DCS Units of the DCS Group. --- @param #GROUP self --- @return #table The DCS Units. -function GROUP:GetDCSUnits() - self:F2( { self.GroupName } ) - local DCSGroup = self:GetDCSObject() - - if DCSGroup then - local DCSUnits = DCSGroup:getUnits() - self:T3( DCSUnits ) - return DCSUnits - end - - return nil -end - - ---- Activates a GROUP. --- @param #GROUP self -function GROUP:Activate() - self:F2( { self.GroupName } ) - trigger.action.activateGroup( self:GetDCSObject() ) - return self:GetDCSObject() -end - - ---- Gets the type name of the group. --- @param #GROUP self --- @return #string The type name of the group. -function GROUP:GetTypeName() - self:F2( self.GroupName ) - - local DCSGroup = self:GetDCSObject() - - if DCSGroup then - local GroupTypeName = DCSGroup:getUnit(1):getTypeName() - self:T3( GroupTypeName ) - return( GroupTypeName ) - end - - return nil -end - ---- Gets the CallSign of the first DCS Unit of the DCS Group. --- @param #GROUP self --- @return #string The CallSign of the first DCS Unit of the DCS Group. -function GROUP:GetCallsign() - self:F2( self.GroupName ) - - local DCSGroup = self:GetDCSObject() - - if DCSGroup then - local GroupCallSign = DCSGroup:getUnit(1):getCallsign() - self:T3( GroupCallSign ) - return GroupCallSign - end - - return nil -end - ---- Returns the current point (Vec2 vector) of the first DCS Unit in the DCS Group. --- @param #GROUP self --- @return DCSTypes#Vec2 Current Vec2 point of the first DCS Unit of the DCS Group. -function GROUP:GetPointVec2() - self:F2( self.GroupName ) - - local UnitPoint = self:GetUnit(1) - UnitPoint:GetPointVec2() - local GroupPointVec2 = UnitPoint:GetPointVec2() - self:T3( GroupPointVec2 ) - return GroupPointVec2 -end - ---- Returns the current point (Vec3 vector) of the first DCS Unit in the DCS Group. --- @return DCSTypes#Vec3 Current Vec3 point of the first DCS Unit of the DCS Group. -function GROUP:GetPointVec3() - self:F2( self.GroupName ) - - local GroupPointVec3 = self:GetUnit(1):GetPointVec3() - self:T3( GroupPointVec3 ) - return GroupPointVec3 -end - - - --- Is Zone Functions - ---- Returns true if all units of the group are within a @{Zone}. --- @param #GROUP self --- @param Zone#ZONE_BASE Zone The zone to test. --- @return #boolean Returns true if the Group is completely within the @{Zone#ZONE_BASE} -function GROUP:IsCompletelyInZone( Zone ) - self:F2( { self.GroupName, Zone } ) - - for UnitID, UnitData in pairs( self:GetUnits() ) do - local Unit = UnitData -- Unit#UNIT - if Zone:IsPointVec3InZone( Unit:GetPointVec3() ) then - else - return false - end - end - - return true -end - ---- Returns true if some units of the group are within a @{Zone}. --- @param #GROUP self --- @param Zone#ZONE_BASE Zone The zone to test. --- @return #boolean Returns true if the Group is completely within the @{Zone#ZONE_BASE} -function GROUP:IsPartlyInZone( Zone ) - self:F2( { self.GroupName, Zone } ) - - for UnitID, UnitData in pairs( self:GetUnits() ) do - local Unit = UnitData -- Unit#UNIT - if Zone:IsPointVec3InZone( Unit:GetPointVec3() ) then - return true - end - end - - return false -end - ---- Returns true if none of the group units of the group are within a @{Zone}. --- @param #GROUP self --- @param Zone#ZONE_BASE Zone The zone to test. --- @return #boolean Returns true if the Group is completely within the @{Zone#ZONE_BASE} -function GROUP:IsNotInZone( Zone ) - self:F2( { self.GroupName, Zone } ) - - for UnitID, UnitData in pairs( self:GetUnits() ) do - local Unit = UnitData -- Unit#UNIT - if Zone:IsPointVec3InZone( Unit:GetPointVec3() ) then - return false - end - end - - return true -end - ---- Returns if the group is of an air category. --- If the group is a helicopter or a plane, then this method will return true, otherwise false. --- @param #GROUP self --- @return #boolean Air category evaluation result. -function GROUP:IsAir() - self:F2( self.GroupName ) - - local DCSGroup = self:GetDCSObject() - - if DCSGroup then - local IsAirResult = DCSGroup:getCategory() == Group.Category.AIRPLANE or DCSGroup:getCategory() == Group.Category.HELICOPTER - self:T3( IsAirResult ) - return IsAirResult - end - - return nil -end - ---- Returns if the DCS Group contains Helicopters. --- @param #GROUP self --- @return #boolean true if DCS Group contains Helicopters. -function GROUP:IsHelicopter() - self:F2( self.GroupName ) - - local DCSGroup = self:GetDCSObject() - - if DCSGroup then - local GroupCategory = DCSGroup:getCategory() - self:T2( GroupCategory ) - return GroupCategory == Group.Category.HELICOPTER - end - - return nil -end - ---- Returns if the DCS Group contains AirPlanes. --- @param #GROUP self --- @return #boolean true if DCS Group contains AirPlanes. -function GROUP:IsAirPlane() - self:F2() - - local DCSGroup = self:GetDCSObject() - - if DCSGroup then - local GroupCategory = DCSGroup:getCategory() - self:T2( GroupCategory ) - return GroupCategory == Group.Category.AIRPLANE - end - - return nil -end - ---- Returns if the DCS Group contains Ground troops. --- @param #GROUP self --- @return #boolean true if DCS Group contains Ground troops. -function GROUP:IsGround() - self:F2() - - local DCSGroup = self:GetDCSObject() - - if DCSGroup then - local GroupCategory = DCSGroup:getCategory() - self:T2( GroupCategory ) - return GroupCategory == Group.Category.GROUND - end - - return nil -end - ---- Returns if the DCS Group contains Ships. --- @param #GROUP self --- @return #boolean true if DCS Group contains Ships. -function GROUP:IsShip() - self:F2() - - local DCSGroup = self:GetDCSObject() - - if DCSGroup then - local GroupCategory = DCSGroup:getCategory() - self:T2( GroupCategory ) - return GroupCategory == Group.Category.SHIP - end - - return nil -end - ---- Returns if all units of the group are on the ground or landed. --- If all units of this group are on the ground, this function will return true, otherwise false. --- @param #GROUP self --- @return #boolean All units on the ground result. -function GROUP:AllOnGround() - self:F2() - - local DCSGroup = self:GetDCSObject() - - if DCSGroup then - local AllOnGroundResult = true - - for Index, UnitData in pairs( DCSGroup:getUnits() ) do - if UnitData:inAir() then - AllOnGroundResult = false - end - end - - self:T3( AllOnGroundResult ) - return AllOnGroundResult - end - - return nil -end - ---- Returns the current maximum velocity of the group. --- Each unit within the group gets evaluated, and the maximum velocity (= the unit which is going the fastest) is returned. --- @param #GROUP self --- @return #number Maximum velocity found. -function GROUP:GetMaxVelocity() - self:F2() - - local DCSGroup = self:GetDCSObject() - - if DCSGroup then - local MaxVelocity = 0 - - for Index, UnitData in pairs( DCSGroup:getUnits() ) do - - local Velocity = UnitData:getVelocity() - local VelocityTotal = math.abs( Velocity.x ) + math.abs( Velocity.y ) + math.abs( Velocity.z ) - - if VelocityTotal < MaxVelocity then - MaxVelocity = VelocityTotal - end - end - - return MaxVelocity - end - - return nil -end - ---- Returns the current minimum height of the group. --- Each unit within the group gets evaluated, and the minimum height (= the unit which is the lowest elevated) is returned. --- @param #GROUP self --- @return #number Minimum height found. -function GROUP:GetMinHeight() - self:F2() - -end - ---- Returns the current maximum height of the group. --- Each unit within the group gets evaluated, and the maximum height (= the unit which is the highest elevated) is returned. --- @param #GROUP self --- @return #number Maximum height found. -function GROUP:GetMaxHeight() - self:F2() - -end - --- SPAWNING - ---- Respawn the @{GROUP} using a (tweaked) template of the Group. --- The template must be retrieved with the @{Group#GROUP.GetTemplate}() function. --- The template contains all the definitions as declared within the mission file. --- To understand templates, do the following: --- --- * unpack your .miz file into a directory using 7-zip. --- * browse in the directory created to the file **mission**. --- * open the file and search for the country group definitions. --- --- Your group template will contain the fields as described within the mission file. --- --- This function will: --- --- * Get the current position and heading of the group. --- * When the group is alive, it will tweak the template x, y and heading coordinates of the group and the embedded units to the current units positions. --- * Then it will destroy the current alive group. --- * And it will respawn the group using your new template definition. --- @param Group#GROUP self --- @param #table Template The template of the Group retrieved with GROUP:GetTemplate() -function GROUP:Respawn( Template ) - - local Vec3 = self:GetPointVec3() - Template.x = Vec3.x - Template.y = Vec3.z - --Template.x = nil - --Template.y = nil - - self:E( #Template.units ) - for UnitID, UnitData in pairs( self:GetUnits() ) do - local GroupUnit = UnitData -- Unit#UNIT - self:E( GroupUnit:GetName() ) - if GroupUnit:IsAlive() then - local GroupUnitVec3 = GroupUnit:GetPointVec3() - local GroupUnitHeading = GroupUnit:GetHeading() - Template.units[UnitID].alt = GroupUnitVec3.y - Template.units[UnitID].x = GroupUnitVec3.x - Template.units[UnitID].y = GroupUnitVec3.z - Template.units[UnitID].heading = GroupUnitHeading - self:E( { UnitID, Template.units[UnitID], Template.units[UnitID] } ) - end - end - - self:Destroy() - _DATABASE:Spawn( Template ) -end - ---- Returns the group template from the @{DATABASE} (_DATABASE object). --- @param #GROUP self --- @return #table -function GROUP:GetTemplate() - local GroupName = self:GetName() - self:E( GroupName ) - return _DATABASE:GetGroupTemplate( GroupName ) -end - ---- Sets the controlled status in a Template. --- @param #GROUP self --- @param #boolean Controlled true is controlled, false is uncontrolled. --- @return #table -function GROUP:SetTemplateControlled( Template, Controlled ) - Template.uncontrolled = not Controlled - return Template -end - ---- Sets the CountryID of the group in a Template. --- @param #GROUP self --- @param DCScountry#country.id CountryID The country ID. --- @return #table -function GROUP:SetTemplateCountry( Template, CountryID ) - Template.CountryID = CountryID - return Template -end - ---- Sets the CoalitionID of the group in a Template. --- @param #GROUP self --- @param DCSCoalitionObject#coalition.side CoalitionID The coalition ID. --- @return #table -function GROUP:SetTemplateCoalition( Template, CoalitionID ) - Template.CoalitionID = CoalitionID - return Template -end - - - - ---- Return the mission template of the group. --- @param #GROUP self --- @return #table The MissionTemplate -function GROUP:GetTaskMission() - self:F2( self.GroupName ) - - return routines.utils.deepCopy( _DATABASE.Templates.Groups[self.GroupName].Template ) -end - ---- Return the mission route of the group. --- @param #GROUP self --- @return #table The mission route defined by points. -function GROUP:GetTaskRoute() - self:F2( self.GroupName ) - - return routines.utils.deepCopy( _DATABASE.Templates.Groups[self.GroupName].Template.route.points ) -end - ---- Return the route of a group by using the @{Database#DATABASE} class. --- @param #GROUP self --- @param #number Begin The route point from where the copy will start. The base route point is 0. --- @param #number End The route point where the copy will end. The End point is the last point - the End point. The last point has base 0. --- @param #boolean Randomize Randomization of the route, when true. --- @param #number Radius When randomization is on, the randomization is within the radius. -function GROUP:CopyRoute( Begin, End, Randomize, Radius ) - self:F2( { Begin, End } ) - - local Points = {} - - -- Could be a Spawned Group - local GroupName = string.match( self:GetName(), ".*#" ) - if GroupName then - GroupName = GroupName:sub( 1, -2 ) - else - GroupName = self:GetName() - end - - self:T3( { GroupName } ) - - local Template = _DATABASE.Templates.Groups[GroupName].Template - - if Template then - if not Begin then - Begin = 0 - end - if not End then - End = 0 - end - - for TPointID = Begin + 1, #Template.route.points - End do - if Template.route.points[TPointID] then - Points[#Points+1] = routines.utils.deepCopy( Template.route.points[TPointID] ) - if Randomize then - if not Radius then - Radius = 500 - end - Points[#Points].x = Points[#Points].x + math.random( Radius * -1, Radius ) - Points[#Points].y = Points[#Points].y + math.random( Radius * -1, Radius ) - end - end - end - return Points - else - error( "Template not found for Group : " .. GroupName ) - end - - return nil -end - - --- Message APIs - ---- Returns a message for a coalition or a client. --- @param #GROUP self --- @param #string Message The message text --- @param DCSTypes#Duration Duration The duration of the message. --- @return Message#MESSAGE -function GROUP:Message( Message, Duration ) - self:F2( { Message, Duration } ) - - local DCSGroup = self:GetDCSObject() - if DCSGroup then - return MESSAGE:New( Message, Duration, self:GetCallsign() .. " (" .. self:GetTypeName() .. ")" ) - end - - return nil -end - ---- Send a message to all coalitions. --- The message will appear in the message area. The message will begin with the callsign of the group and the type of the first unit sending the message. --- @param #GROUP self --- @param #string Message The message text --- @param DCSTypes#Duration Duration The duration of the message. -function GROUP:MessageToAll( Message, Duration ) - self:F2( { Message, Duration } ) - - local DCSGroup = self:GetDCSObject() - if DCSGroup then - self:Message( Message, Duration ):ToAll() - end - - return nil -end - ---- Send a message to the red coalition. --- The message will appear in the message area. The message will begin with the callsign of the group and the type of the first unit sending the message. --- @param #GROUP self --- @param #string Message The message text --- @param DCSTYpes#Duration Duration The duration of the message. -function GROUP:MessageToRed( Message, Duration ) - self:F2( { Message, Duration } ) - - local DCSGroup = self:GetDCSObject() - if DCSGroup then - self:Message( Message, Duration ):ToRed() - end - - return nil -end - ---- Send a message to the blue coalition. --- The message will appear in the message area. The message will begin with the callsign of the group and the type of the first unit sending the message. --- @param #GROUP self --- @param #string Message The message text --- @param DCSTypes#Duration Duration The duration of the message. -function GROUP:MessageToBlue( Message, Duration ) - self:F2( { Message, Duration } ) - - local DCSGroup = self:GetDCSObject() - if DCSGroup then - self:Message( Message, Duration ):ToBlue() - end - - return nil -end - ---- Send a message to a client. --- The message will appear in the message area. The message will begin with the callsign of the group and the type of the first unit sending the message. --- @param #GROUP self --- @param #string Message The message text --- @param DCSTypes#Duration Duration The duration of the message. --- @param Client#CLIENT Client The client object receiving the message. -function GROUP:MessageToClient( Message, Duration, Client ) - self:F2( { Message, Duration } ) - - local DCSGroup = self:GetDCSObject() - if DCSGroup then - self:Message( Message, Duration ):ToClient( Client ) - end - - return nil -end ---- This module contains the UNIT class. --- --- 1) @{Unit#UNIT} class, extends @{Controllable#CONTROLLABLE} --- =========================================================== --- The @{Unit#UNIT} class is a wrapper class to handle the DCS Unit objects: --- --- * Support all DCS Unit APIs. --- * Enhance with Unit specific APIs not in the DCS Unit API set. --- * Handle local Unit Controller. --- * Manage the "state" of the DCS Unit. --- --- --- 1.1) UNIT reference methods --- ---------------------- --- For each DCS Unit object alive within a running mission, a UNIT wrapper object (instance) will be created within the _@{DATABASE} object. --- This is done at the beginning of the mission (when the mission starts), and dynamically when new DCS Unit objects are spawned (using the @{SPAWN} class). --- --- The UNIT class **does not contain a :New()** method, rather it provides **:Find()** methods to retrieve the object reference --- using the DCS Unit or the DCS UnitName. --- --- Another thing to know is that UNIT objects do not "contain" the DCS Unit object. --- The UNIT methods will reference the DCS Unit object by name when it is needed during API execution. --- If the DCS Unit object does not exist or is nil, the UNIT methods will return nil and log an exception in the DCS.log file. --- --- The UNIT class provides the following functions to retrieve quickly the relevant UNIT instance: --- --- * @{#UNIT.Find}(): Find a UNIT instance from the _DATABASE object using a DCS Unit object. --- * @{#UNIT.FindByName}(): Find a UNIT instance from the _DATABASE object using a DCS Unit name. --- --- IMPORTANT: ONE SHOULD NEVER SANATIZE these UNIT OBJECT REFERENCES! (make the UNIT object references nil). --- --- 1.2) DCS UNIT APIs --- ------------------ --- The DCS Unit APIs are used extensively within MOOSE. The UNIT class has for each DCS Unit API a corresponding method. --- To be able to distinguish easily in your code the difference between a UNIT API call and a DCS Unit API call, --- the first letter of the method is also capitalized. So, by example, the DCS Unit method @{DCSUnit#Unit.getName}() --- is implemented in the UNIT class as @{#UNIT.GetName}(). --- --- 1.3) Smoke, Flare Units --- ----------------------- --- The UNIT class provides methods to smoke or flare units easily. --- The @{#UNIT.SmokeBlue}(), @{#UNIT.SmokeGreen}(),@{#UNIT.SmokeOrange}(), @{#UNIT.SmokeRed}(), @{#UNIT.SmokeRed}() methods --- will smoke the unit in the corresponding color. Note that smoking a unit is done at the current position of the DCS Unit. --- When the DCS Unit moves for whatever reason, the smoking will still continue! --- The @{#UNIT.FlareGreen}(), @{#UNIT.FlareRed}(), @{#UNIT.FlareWhite}(), @{#UNIT.FlareYellow}() --- methods will fire off a flare in the air with the corresponding color. Note that a flare is a one-off shot and its effect is of very short duration. --- --- 1.4) Location Position, Point --- ----------------------------- --- The UNIT class provides methods to obtain the current point or position of the DCS Unit. --- The @{#UNIT.GetPointVec2}(), @{#UNIT.GetPointVec3}() will obtain the current **location** of the DCS Unit in a Vec2 (2D) or a **point** in a Vec3 (3D) vector respectively. --- If you want to obtain the complete **3D position** including oriëntation and direction vectors, consult the @{#UNIT.GetPositionVec3}() method respectively. --- --- 1.5) Test if alive --- ------------------ --- The @{#UNIT.IsAlive}(), @{#UNIT.IsActive}() methods determines if the DCS Unit is alive, meaning, it is existing and active. --- --- 1.6) Test for proximity --- ----------------------- --- The UNIT class contains methods to test the location or proximity against zones or other objects. --- --- ### 1.6.1) Zones --- To test whether the Unit is within a **zone**, use the @{#UNIT.IsInZone}() or the @{#UNIT.IsNotInZone}() methods. Any zone can be tested on, but the zone must be derived from @{Zone#ZONE_BASE}. --- --- ### 1.6.2) Units --- Test if another DCS Unit is within a given radius of the current DCS Unit, use the @{#UNIT.OtherUnitInRadius}() method. --- --- @module Unit --- @author FlightControl - - - - - ---- The UNIT class --- @type UNIT --- @extends Controllable#CONTROLLABLE --- @field #UNIT.FlareColor FlareColor --- @field #UNIT.SmokeColor SmokeColor -UNIT = { - ClassName="UNIT", - FlareColor = { - Green = trigger.flareColor.Green, - Red = trigger.flareColor.Red, - White = trigger.flareColor.White, - Yellow = trigger.flareColor.Yellow - }, - SmokeColor = { - Green = trigger.smokeColor.Green, - Red = trigger.smokeColor.Red, - White = trigger.smokeColor.White, - Orange = trigger.smokeColor.Orange, - Blue = trigger.smokeColor.Blue - }, - } - ---- FlareColor --- @type UNIT.FlareColor --- @field Green --- @field Red --- @field White --- @field Yellow - ---- SmokeColor --- @type UNIT.SmokeColor --- @field Green --- @field Red --- @field White --- @field Orange --- @field Blue - --- Registration. - ---- Create a new UNIT from DCSUnit. --- @param #UNIT self --- @param #string UnitName The name of the DCS unit. --- @return Unit#UNIT -function UNIT:Register( UnitName ) - local self = BASE:Inherit( self, CONTROLLABLE:New( UnitName ) ) - self.UnitName = UnitName - return self -end - --- Reference methods. - ---- Finds a UNIT from the _DATABASE using a DCSUnit object. --- @param #UNIT self --- @param DCSUnit#Unit DCSUnit An existing DCS Unit object reference. --- @return Unit#UNIT self -function UNIT:Find( DCSUnit ) - - local UnitName = DCSUnit:getName() - local UnitFound = _DATABASE:FindUnit( UnitName ) - return UnitFound -end - ---- Find a UNIT in the _DATABASE using the name of an existing DCS Unit. --- @param #UNIT self --- @param #string UnitName The Unit Name. --- @return Unit#UNIT self -function UNIT:FindByName( UnitName ) - - local UnitFound = _DATABASE:FindUnit( UnitName ) - return UnitFound -end - - ---- @param #UNIT self --- @return DCSUnit#Unit -function UNIT:GetDCSObject() - - local DCSUnit = Unit.getByName( self.UnitName ) - - if DCSUnit then - return DCSUnit - end - - return nil -end - - - - ---- Returns if the unit is activated. --- @param Unit#UNIT self --- @return #boolean true if Unit is activated. --- @return #nil The DCS Unit is not existing or alive. -function UNIT:IsActive() - self:F2( self.UnitName ) - - local DCSUnit = self:GetDCSObject() - - if DCSUnit then - - local UnitIsActive = DCSUnit:isActive() - return UnitIsActive - end - - return nil -end - ---- Returns the Unit's callsign - the localized string. --- @param Unit#UNIT self --- @return #string The Callsign of the Unit. --- @return #nil The DCS Unit is not existing or alive. -function UNIT:GetCallSign() - self:F2( self.UnitName ) - - local DCSUnit = self:GetDCSObject() - - if DCSUnit then - local UnitCallSign = DCSUnit:getCallsign() - return UnitCallSign - end - - self:E( self.ClassName .. " " .. self.UnitName .. " not found!" ) - return nil -end - - ---- Returns name of the player that control the unit or nil if the unit is controlled by A.I. --- @param Unit#UNIT self --- @return #string Player Name --- @return #nil The DCS Unit is not existing or alive. -function UNIT:GetPlayerName() - self:F2( self.UnitName ) - - local DCSUnit = self:GetDCSObject() - - if DCSUnit then - - local PlayerName = DCSUnit:getPlayerName() - if PlayerName == nil then - PlayerName = "" - end - return PlayerName - end - - return nil -end - ---- Returns the unit's number in the group. --- The number is the same number the unit has in ME. --- It may not be changed during the mission. --- If any unit in the group is destroyed, the numbers of another units will not be changed. --- @param Unit#UNIT self --- @return #number The Unit number. --- @return #nil The DCS Unit is not existing or alive. -function UNIT:GetNumber() - self:F2( self.UnitName ) - - local DCSUnit = self:GetDCSObject() - - if DCSUnit then - local UnitNumber = DCSUnit:getNumber() - return UnitNumber - end - - return nil -end - ---- Returns the unit's group if it exist and nil otherwise. --- @param Unit#UNIT self --- @return Group#GROUP The Group of the Unit. --- @return #nil The DCS Unit is not existing or alive. -function UNIT:GetGroup() - self:F2( self.UnitName ) - - local DCSUnit = self:GetDCSObject() - - if DCSUnit then - local UnitGroup = GROUP:Find( DCSUnit:getGroup() ) - return UnitGroup - end - - return nil -end - - --- Need to add here functions to check if radar is on and which object etc. - ---- Returns the prefix name of the DCS Unit. A prefix name is a part of the name before a '#'-sign. --- DCS Units spawned with the @{SPAWN} class contain a '#'-sign to indicate the end of the (base) DCS Unit name. --- The spawn sequence number and unit number are contained within the name after the '#' sign. --- @param Unit#UNIT self --- @return #string The name of the DCS Unit. --- @return #nil The DCS Unit is not existing or alive. -function UNIT:GetPrefix() - self:F2( self.UnitName ) - - local DCSUnit = self:GetDCSObject() - - if DCSUnit then - local UnitPrefix = string.match( self.UnitName, ".*#" ):sub( 1, -2 ) - self:T3( UnitPrefix ) - return UnitPrefix - end - - return nil -end - ---- Returns the Unit's ammunition. --- @param Unit#UNIT self --- @return DCSUnit#Unit.Ammo --- @return #nil The DCS Unit is not existing or alive. -function UNIT:GetAmmo() - self:F2( self.UnitName ) - - local DCSUnit = self:GetDCSObject() - - if DCSUnit then - local UnitAmmo = DCSUnit:getAmmo() - return UnitAmmo - end - - return nil -end - ---- Returns the unit sensors. --- @param Unit#UNIT self --- @return DCSUnit#Unit.Sensors --- @return #nil The DCS Unit is not existing or alive. -function UNIT:GetSensors() - self:F2( self.UnitName ) - - local DCSUnit = self:GetDCSObject() - - if DCSUnit then - local UnitSensors = DCSUnit:getSensors() - return UnitSensors - end - - return nil -end - --- Need to add here a function per sensortype --- unit:hasSensors(Unit.SensorType.RADAR, Unit.RadarType.AS) - ---- Returns two values: --- --- * First value indicates if at least one of the unit's radar(s) is on. --- * Second value is the object of the radar's interest. Not nil only if at least one radar of the unit is tracking a target. --- @param Unit#UNIT self --- @return #boolean Indicates if at least one of the unit's radar(s) is on. --- @return DCSObject#Object The object of the radar's interest. Not nil only if at least one radar of the unit is tracking a target. --- @return #nil The DCS Unit is not existing or alive. -function UNIT:GetRadar() - self:F2( self.UnitName ) - - local DCSUnit = self:GetDCSObject() - - if DCSUnit then - local UnitRadarOn, UnitRadarObject = DCSUnit:getRadar() - return UnitRadarOn, UnitRadarObject - end - - return nil, nil -end - ---- Returns relative amount of fuel (from 0.0 to 1.0) the unit has in its internal tanks. If there are additional fuel tanks the value may be greater than 1.0. --- @param Unit#UNIT self --- @return #number The relative amount of fuel (from 0.0 to 1.0). --- @return #nil The DCS Unit is not existing or alive. -function UNIT:GetFuel() - self:F2( self.UnitName ) - - local DCSUnit = self:GetDCSObject() - - if DCSUnit then - local UnitFuel = DCSUnit:getFuel() - return UnitFuel - end - - return nil -end - ---- Returns the unit's health. Dead units has health <= 1.0. --- @param Unit#UNIT self --- @return #number The Unit's health value. --- @return #nil The DCS Unit is not existing or alive. -function UNIT:GetLife() - self:F2( self.UnitName ) - - local DCSUnit = self:GetDCSObject() - - if DCSUnit then - local UnitLife = DCSUnit:getLife() - return UnitLife - end - - return nil -end - ---- Returns the Unit's initial health. --- @param Unit#UNIT self --- @return #number The Unit's initial health value. --- @return #nil The DCS Unit is not existing or alive. -function UNIT:GetLife0() - self:F2( self.UnitName ) - - local DCSUnit = self:GetDCSObject() - - if DCSUnit then - local UnitLife0 = DCSUnit:getLife0() - return UnitLife0 - end - - return nil -end - - - - --- Is functions - ---- Returns true if the unit is within a @{Zone}. --- @param #UNIT self --- @param Zone#ZONE_BASE Zone The zone to test. --- @return #boolean Returns true if the unit is within the @{Zone#ZONE_BASE} -function UNIT:IsInZone( Zone ) - self:F2( { self.UnitName, Zone } ) - - if self:IsAlive() then - local IsInZone = Zone:IsPointVec3InZone( self:GetPointVec3() ) - - self:T( { IsInZone } ) - return IsInZone - else - return false - end -end - ---- Returns true if the unit is not within a @{Zone}. --- @param #UNIT self --- @param Zone#ZONE_BASE Zone The zone to test. --- @return #boolean Returns true if the unit is not within the @{Zone#ZONE_BASE} -function UNIT:IsNotInZone( Zone ) - self:F2( { self.UnitName, Zone } ) - - if self:IsAlive() then - local IsInZone = not Zone:IsPointVec3InZone( self:GetPointVec3() ) - - self:T( { IsInZone } ) - return IsInZone - else - return false - end -end - - ---- Returns true if there is an **other** DCS Unit within a radius of the current 2D point of the DCS Unit. --- @param Unit#UNIT self --- @param Unit#UNIT AwaitUnit The other UNIT wrapper object. --- @param Radius The radius in meters with the DCS Unit in the centre. --- @return true If the other DCS Unit is within the radius of the 2D point of the DCS Unit. --- @return #nil The DCS Unit is not existing or alive. -function UNIT:OtherUnitInRadius( AwaitUnit, Radius ) - self:F2( { self.UnitName, AwaitUnit.UnitName, Radius } ) - - local DCSUnit = self:GetDCSObject() - - if DCSUnit then - local UnitPos = self:GetPointVec3() - local AwaitUnitPos = AwaitUnit:GetPointVec3() - - if (((UnitPos.x - AwaitUnitPos.x)^2 + (UnitPos.z - AwaitUnitPos.z)^2)^0.5 <= Radius) then - self:T3( "true" ) - return true - else - self:T3( "false" ) - return false - end - end - - return nil -end - - - ---- Signal a flare at the position of the UNIT. --- @param #UNIT self -function UNIT:Flare( FlareColor ) - self:F2() - trigger.action.signalFlare( self:GetPointVec3(), FlareColor , 0 ) -end - ---- Signal a white flare at the position of the UNIT. --- @param #UNIT self -function UNIT:FlareWhite() - self:F2() - trigger.action.signalFlare( self:GetPointVec3(), trigger.flareColor.White , 0 ) -end - ---- Signal a yellow flare at the position of the UNIT. --- @param #UNIT self -function UNIT:FlareYellow() - self:F2() - trigger.action.signalFlare( self:GetPointVec3(), trigger.flareColor.Yellow , 0 ) -end - ---- Signal a green flare at the position of the UNIT. --- @param #UNIT self -function UNIT:FlareGreen() - self:F2() - trigger.action.signalFlare( self:GetPointVec3(), trigger.flareColor.Green , 0 ) -end - ---- Signal a red flare at the position of the UNIT. --- @param #UNIT self -function UNIT:FlareRed() - self:F2() - trigger.action.signalFlare( self:GetPointVec3(), trigger.flareColor.Red, 0 ) -end - ---- Smoke the UNIT. --- @param #UNIT self -function UNIT:Smoke( SmokeColor ) - self:F2() - trigger.action.smoke( self:GetPointVec3(), SmokeColor ) -end - ---- Smoke the UNIT Green. --- @param #UNIT self -function UNIT:SmokeGreen() - self:F2() - trigger.action.smoke( self:GetPointVec3(), trigger.smokeColor.Green ) -end - ---- Smoke the UNIT Red. --- @param #UNIT self -function UNIT:SmokeRed() - self:F2() - trigger.action.smoke( self:GetPointVec3(), trigger.smokeColor.Red ) -end - ---- Smoke the UNIT White. --- @param #UNIT self -function UNIT:SmokeWhite() - self:F2() - trigger.action.smoke( self:GetPointVec3(), trigger.smokeColor.White ) -end - ---- Smoke the UNIT Orange. --- @param #UNIT self -function UNIT:SmokeOrange() - self:F2() - trigger.action.smoke( self:GetPointVec3(), trigger.smokeColor.Orange ) -end - ---- Smoke the UNIT Blue. --- @param #UNIT self -function UNIT:SmokeBlue() - self:F2() - trigger.action.smoke( self:GetPointVec3(), trigger.smokeColor.Blue ) -end - --- Is methods - ---- Returns if the unit is of an air category. --- If the unit is a helicopter or a plane, then this method will return true, otherwise false. --- @param #UNIT self --- @return #boolean Air category evaluation result. -function UNIT:IsAir() - self:F2() - - local UnitDescriptor = self.DCSUnit:getDesc() - self:T3( { UnitDescriptor.category, Unit.Category.AIRPLANE, Unit.Category.HELICOPTER } ) - - local IsAirResult = ( UnitDescriptor.category == Unit.Category.AIRPLANE ) or ( UnitDescriptor.category == Unit.Category.HELICOPTER ) - - self:T3( IsAirResult ) - return IsAirResult -end - ---- This module contains the ZONE classes, inherited from @{Zone#ZONE_BASE}. --- There are essentially two core functions that zones accomodate: --- --- * Test if an object is within the zone boundaries. --- * Provide the zone behaviour. Some zones are static, while others are moveable. --- --- The object classes are using the zone classes to test the zone boundaries, which can take various forms: --- --- * Test if completely within the zone. --- * Test if partly within the zone (for @{Group#GROUP} objects). --- * Test if not in the zone. --- * Distance to the nearest intersecting point of the zone. --- * Distance to the center of the zone. --- * ... --- --- Each of these ZONE classes have a zone name, and specific parameters defining the zone type: --- --- * @{Zone#ZONE_BASE}: The ZONE_BASE class defining the base for all other zone classes. --- * @{Zone#ZONE_RADIUS}: The ZONE_RADIUS class defined by a zone name, a location and a radius. --- * @{Zone#ZONE}: The ZONE class, defined by the zone name as defined within the Mission Editor. --- * @{Zone#ZONE_UNIT}: The ZONE_UNIT class defines by a zone around a @{Unit#UNIT} with a radius. --- * @{Zone#ZONE_GROUP}: The ZONE_GROUP class defines by a zone around a @{Group#GROUP} with a radius. --- * @{Zone#ZONE_POLYGON}: The ZONE_POLYGON class defines by a sequence of @{Group#GROUP} waypoints within the Mission Editor, forming a polygon. --- --- Each zone implements two polymorphic functions defined in @{Zone#ZONE_BASE}: --- --- * @{#ZONE_BASE.IsPointVec2InZone}: Returns if a location is within the zone. --- * @{#ZONE_BASE.IsPointVec3InZone}: Returns if a point is within the zone. --- --- === --- --- 1) @{Zone#ZONE_BASE} class, extends @{Base#BASE} --- ================================================ --- The ZONE_BASE class defining the base for all other zone classes. --- --- === --- --- 2) @{Zone#ZONE_RADIUS} class, extends @{Zone#ZONE_BASE} --- ======================================================= --- The ZONE_RADIUS class defined by a zone name, a location and a radius. --- --- === --- --- 3) @{Zone#ZONE} class, extends @{Zone#ZONE_RADIUS} --- ========================================== --- The ZONE class, defined by the zone name as defined within the Mission Editor. --- --- === --- --- 4) @{Zone#ZONE_UNIT} class, extends @{Zone#ZONE_RADIUS} --- ======================================================= --- The ZONE_UNIT class defined by a zone around a @{Unit#UNIT} with a radius. --- --- === --- --- 5) @{Zone#ZONE_GROUP} class, extends @{Zone#ZONE_RADIUS} --- ======================================================= --- The ZONE_GROUP class defines by a zone around a @{Group#GROUP} with a radius. The current leader of the group defines the center of the zone. --- --- === --- --- 6) @{Zone#ZONE_POLYGON} class, extends @{Zone#ZONE_BASE} --- ======================================================== --- The ZONE_POLYGON class defined by a sequence of @{Group#GROUP} waypoints within the Mission Editor, forming a polygon. --- --- === --- --- @module Zone --- @author FlightControl - - ---- The ZONE_BASE class --- @type ZONE_BASE --- @field #string ZoneName Name of the zone. --- @extends Base#BASE -ZONE_BASE = { - ClassName = "ZONE_BASE", - } - - ---- The ZONE_BASE.BoundingSquare --- @type ZONE_BASE.BoundingSquare --- @field DCSTypes#Distance x1 The lower x coordinate (left down) --- @field DCSTypes#Distance y1 The lower y coordinate (left down) --- @field DCSTypes#Distance x2 The higher x coordinate (right up) --- @field DCSTypes#Distance y2 The higher y coordinate (right up) - - ---- ZONE_BASE constructor --- @param #ZONE_BASE self --- @param #string ZoneName Name of the zone. --- @return #ZONE_BASE self -function ZONE_BASE:New( ZoneName ) - local self = BASE:Inherit( self, BASE:New() ) - self:F( ZoneName ) - - self.ZoneName = ZoneName - - return self -end - ---- Returns if a location is within the zone. --- @param #ZONE_BASE self --- @param DCSTypes#Vec2 PointVec2 The location to test. --- @return #boolean true if the location is within the zone. -function ZONE_BASE:IsPointVec2InZone( PointVec2 ) - self:F2( PointVec2 ) - - return false -end - ---- Returns if a point is within the zone. --- @param #ZONE_BASE self --- @param DCSTypes#Vec3 PointVec3 The point to test. --- @return #boolean true if the point is within the zone. -function ZONE_BASE:IsPointVec3InZone( PointVec3 ) - self:F2( PointVec3 ) - - local InZone = self:IsPointVec2InZone( { x = PointVec3.x, y = PointVec3.z } ) - - return InZone -end - ---- Define a random @{DCSTypes#Vec2} within the zone. --- @param #ZONE_BASE self --- @return DCSTypes#Vec2 The Vec2 coordinates. -function ZONE_BASE:GetRandomVec2() - return { x = 0, y = 0 } -end - ---- Get the bounding square the zone. --- @param #ZONE_BASE self --- @return #ZONE_BASE.BoundingSquare The bounding square. -function ZONE_BASE:GetBoundingSquare() - return { x1 = 0, y1 = 0, x2 = 0, y2 = 0 } -end - - ---- Smokes the zone boundaries in a color. --- @param #ZONE_BASE self --- @param SmokeColor The smoke color. -function ZONE_BASE:SmokeZone( SmokeColor ) - self:F2( SmokeColor ) - -end - - ---- The ZONE_RADIUS class, defined by a zone name, a location and a radius. --- @type ZONE_RADIUS --- @field DCSTypes#Vec2 PointVec2 The current location of the zone. --- @field DCSTypes#Distance Radius The radius of the zone. --- @extends Zone#ZONE_BASE -ZONE_RADIUS = { - ClassName="ZONE_RADIUS", - } - ---- Constructor of ZONE_RADIUS, taking the zone name, the zone location and a radius. --- @param #ZONE_RADIUS self --- @param #string ZoneName Name of the zone. --- @param DCSTypes#Vec2 PointVec2 The location of the zone. --- @param DCSTypes#Distance Radius The radius of the zone. --- @return #ZONE_RADIUS self -function ZONE_RADIUS:New( ZoneName, PointVec2, Radius ) - local self = BASE:Inherit( self, ZONE_BASE:New( ZoneName ) ) - self:F( { ZoneName, PointVec2, Radius } ) - - self.Radius = Radius - self.PointVec2 = PointVec2 - - return self -end - ---- Smokes the zone boundaries in a color. --- @param #ZONE_RADIUS self --- @param #POINT_VEC3.SmokeColor SmokeColor The smoke color. --- @param #number Points (optional) The amount of points in the circle. --- @return #ZONE_RADIUS self -function ZONE_RADIUS:SmokeZone( SmokeColor, Points ) - self:F2( SmokeColor ) - - local Point = {} - local PointVec2 = self:GetPointVec2() - - Points = Points and Points or 360 - - local Angle - local RadialBase = math.pi*2 - - for Angle = 0, 360, 360 / Points do - local Radial = Angle * RadialBase / 360 - Point.x = PointVec2.x + math.cos( Radial ) * self:GetRadius() - Point.y = PointVec2.y + math.sin( Radial ) * self:GetRadius() - POINT_VEC2:New( Point.x, Point.y ):Smoke( SmokeColor ) - end - - return self -end - - ---- Flares the zone boundaries in a color. --- @param #ZONE_RADIUS self --- @param #POINT_VEC3.FlareColor FlareColor The flare color. --- @param #number Points (optional) The amount of points in the circle. --- @param DCSTypes#Azimuth Azimuth (optional) Azimuth The azimuth of the flare. --- @return #ZONE_RADIUS self -function ZONE_RADIUS:FlareZone( FlareColor, Points, Azimuth ) - self:F2( { FlareColor, Azimuth } ) - - local Point = {} - local PointVec2 = self:GetPointVec2() - - Points = Points and Points or 360 - - local Angle - local RadialBase = math.pi*2 - - for Angle = 0, 360, 360 / Points do - local Radial = Angle * RadialBase / 360 - Point.x = PointVec2.x + math.cos( Radial ) * self:GetRadius() - Point.y = PointVec2.y + math.sin( Radial ) * self:GetRadius() - POINT_VEC2:New( Point.x, Point.y ):Flare( FlareColor, Azimuth ) - end - - return self -end - ---- Returns the radius of the zone. --- @param #ZONE_RADIUS self --- @return DCSTypes#Distance The radius of the zone. -function ZONE_RADIUS:GetRadius() - self:F2( self.ZoneName ) - - self:T2( { self.Radius } ) - - return self.Radius -end - ---- Sets the radius of the zone. --- @param #ZONE_RADIUS self --- @param DCSTypes#Distance Radius The radius of the zone. --- @return DCSTypes#Distance The radius of the zone. -function ZONE_RADIUS:SetRadius( Radius ) - self:F2( self.ZoneName ) - - self.Radius = Radius - self:T2( { self.Radius } ) - - return self.Radius -end - ---- Returns the location of the zone. --- @param #ZONE_RADIUS self --- @return DCSTypes#Vec2 The location of the zone. -function ZONE_RADIUS:GetPointVec2() - self:F2( self.ZoneName ) - - self:T2( { self.PointVec2 } ) - - return self.PointVec2 -end - ---- Sets the location of the zone. --- @param #ZONE_RADIUS self --- @param DCSTypes#Vec2 PointVec2 The new location of the zone. --- @return DCSTypes#Vec2 The new location of the zone. -function ZONE_RADIUS:SetPointVec2( PointVec2 ) - self:F2( self.ZoneName ) - - self.PointVec2 = PointVec2 - - self:T2( { self.PointVec2 } ) - - return self.PointVec2 -end - ---- Returns the point of the zone. --- @param #ZONE_RADIUS self --- @param DCSTypes#Distance Height The height to add to the land height where the center of the zone is located. --- @return DCSTypes#Vec3 The point of the zone. -function ZONE_RADIUS:GetPointVec3( Height ) - self:F2( self.ZoneName ) - - local PointVec2 = self:GetPointVec2() - - local PointVec3 = { x = PointVec2.x, y = land.getHeight( self:GetPointVec2() ) + Height, z = PointVec2.y } - - self:T2( { PointVec3 } ) - - return PointVec3 -end - - ---- Returns if a location is within the zone. --- @param #ZONE_RADIUS self --- @param DCSTypes#Vec2 PointVec2 The location to test. --- @return #boolean true if the location is within the zone. -function ZONE_RADIUS:IsPointVec2InZone( PointVec2 ) - self:F2( PointVec2 ) - - local ZonePointVec2 = self:GetPointVec2() - - if (( PointVec2.x - ZonePointVec2.x )^2 + ( PointVec2.y - ZonePointVec2.y ) ^2 ) ^ 0.5 <= self:GetRadius() then - return true - end - - return false -end - ---- Returns if a point is within the zone. --- @param #ZONE_RADIUS self --- @param DCSTypes#Vec3 PointVec3 The point to test. --- @return #boolean true if the point is within the zone. -function ZONE_RADIUS:IsPointVec3InZone( PointVec3 ) - self:F2( PointVec3 ) - - local InZone = self:IsPointVec2InZone( { x = PointVec3.x, y = PointVec3.z } ) - - return InZone -end - ---- Returns a random location within the zone. --- @param #ZONE_RADIUS self --- @return DCSTypes#Vec2 The random location within the zone. -function ZONE_RADIUS:GetRandomVec2() - self:F( self.ZoneName ) - - local Point = {} - local PointVec2 = self:GetPointVec2() - - local angle = math.random() * math.pi*2; - Point.x = PointVec2.x + math.cos( angle ) * math.random() * self:GetRadius(); - Point.y = PointVec2.y + math.sin( angle ) * math.random() * self:GetRadius(); - - self:T( { Point } ) - - return Point -end - - - ---- The ZONE class, defined by the zone name as defined within the Mission Editor. The location and the radius are automatically collected from the mission settings. --- @type ZONE --- @extends Zone#ZONE_RADIUS -ZONE = { - ClassName="ZONE", - } - - ---- Constructor of ZONE, taking the zone name. --- @param #ZONE self --- @param #string ZoneName The name of the zone as defined within the mission editor. --- @return #ZONE -function ZONE:New( ZoneName ) - - local Zone = trigger.misc.getZone( ZoneName ) - - if not Zone then - error( "Zone " .. ZoneName .. " does not exist." ) - return nil - end - - local self = BASE:Inherit( self, ZONE_RADIUS:New( ZoneName, { x = Zone.point.x, y = Zone.point.z }, Zone.radius ) ) - self:F( ZoneName ) - - self.Zone = Zone - - return self -end - - ---- The ZONE_UNIT class defined by a zone around a @{Unit#UNIT} with a radius. --- @type ZONE_UNIT --- @field Unit#UNIT ZoneUNIT --- @extends Zone#ZONE_RADIUS -ZONE_UNIT = { - ClassName="ZONE_UNIT", - } - ---- Constructor to create a ZONE_UNIT instance, taking the zone name, a zone unit and a radius. --- @param #ZONE_UNIT self --- @param #string ZoneName Name of the zone. --- @param Unit#UNIT ZoneUNIT The unit as the center of the zone. --- @param DCSTypes#Distance Radius The radius of the zone. --- @return #ZONE_UNIT self -function ZONE_UNIT:New( ZoneName, ZoneUNIT, Radius ) - local self = BASE:Inherit( self, ZONE_RADIUS:New( ZoneName, ZoneUNIT:GetPointVec2(), Radius ) ) - self:F( { ZoneName, ZoneUNIT:GetPointVec2(), Radius } ) - - self.ZoneUNIT = ZoneUNIT - - return self -end - - ---- Returns the current location of the @{Unit#UNIT}. --- @param #ZONE_UNIT self --- @return DCSTypes#Vec2 The location of the zone based on the @{Unit#UNIT}location. -function ZONE_UNIT:GetPointVec2() - self:F( self.ZoneName ) - - local ZonePointVec2 = self.ZoneUNIT:GetPointVec2() - - self:T( { ZonePointVec2 } ) - - return ZonePointVec2 -end - ---- Returns a random location within the zone. --- @param #ZONE_UNIT self --- @return DCSTypes#Vec2 The random location within the zone. -function ZONE_UNIT:GetRandomVec2() - self:F( self.ZoneName ) - - local Point = {} - local PointVec2 = self.ZoneUNIT:GetPointVec2() - - local angle = math.random() * math.pi*2; - Point.x = PointVec2.x + math.cos( angle ) * math.random() * self:GetRadius(); - Point.y = PointVec2.y + math.sin( angle ) * math.random() * self:GetRadius(); - - self:T( { Point } ) - - return Point -end - ---- The ZONE_GROUP class defined by a zone around a @{Group}, taking the average center point of all the units within the Group, with a radius. --- @type ZONE_GROUP --- @field Group#GROUP ZoneGROUP --- @extends Zone#ZONE_RADIUS -ZONE_GROUP = { - ClassName="ZONE_GROUP", - } - ---- Constructor to create a ZONE_GROUP instance, taking the zone name, a zone @{Group#GROUP} and a radius. --- @param #ZONE_GROUP self --- @param #string ZoneName Name of the zone. --- @param Group#GROUP ZoneGROUP The @{Group} as the center of the zone. --- @param DCSTypes#Distance Radius The radius of the zone. --- @return #ZONE_GROUP self -function ZONE_GROUP:New( ZoneName, ZoneGROUP, Radius ) - local self = BASE:Inherit( self, ZONE_RADIUS:New( ZoneName, ZoneGROUP:GetPointVec2(), Radius ) ) - self:F( { ZoneName, ZoneGROUP:GetPointVec2(), Radius } ) - - self.ZoneGROUP = ZoneGROUP - - return self -end - - ---- Returns the current location of the @{Group}. --- @param #ZONE_GROUP self --- @return DCSTypes#Vec2 The location of the zone based on the @{Group} location. -function ZONE_GROUP:GetPointVec2() - self:F( self.ZoneName ) - - local ZonePointVec2 = self.ZoneGROUP:GetPointVec2() - - self:T( { ZonePointVec2 } ) - - return ZonePointVec2 -end - ---- Returns a random location within the zone of the @{Group}. --- @param #ZONE_GROUP self --- @return DCSTypes#Vec2 The random location of the zone based on the @{Group} location. -function ZONE_GROUP:GetRandomVec2() - self:F( self.ZoneName ) - - local Point = {} - local PointVec2 = self.ZoneGROUP:GetPointVec2() - - local angle = math.random() * math.pi*2; - Point.x = PointVec2.x + math.cos( angle ) * math.random() * self:GetRadius(); - Point.y = PointVec2.y + math.sin( angle ) * math.random() * self:GetRadius(); - - self:T( { Point } ) - - return Point -end - - - --- Polygons - ---- The ZONE_POLYGON_BASE class defined by an array of @{DCSTypes#Vec2}, forming a polygon. --- @type ZONE_POLYGON_BASE --- @field #ZONE_POLYGON_BASE.ListVec2 Polygon The polygon defined by an array of @{DCSTypes#Vec2}. --- @extends Zone#ZONE_BASE -ZONE_POLYGON_BASE = { - ClassName="ZONE_POLYGON_BASE", - } - ---- A points array. --- @type ZONE_POLYGON_BASE.ListVec2 --- @list - ---- Constructor to create a ZONE_POLYGON_BASE instance, taking the zone name and an array of @{DCSTypes#Vec2}, forming a polygon. --- The @{Group#GROUP} waypoints define the polygon corners. The first and the last point are automatically connected. --- @param #ZONE_POLYGON_BASE self --- @param #string ZoneName Name of the zone. --- @param #ZONE_POLYGON_BASE.ListVec2 PointsArray An array of @{DCSTypes#Vec2}, forming a polygon.. --- @return #ZONE_POLYGON_BASE self -function ZONE_POLYGON_BASE:New( ZoneName, PointsArray ) - local self = BASE:Inherit( self, ZONE_BASE:New( ZoneName ) ) - self:F( { ZoneName, PointsArray } ) - - local i = 0 - - self.Polygon = {} - - for i = 1, #PointsArray do - self.Polygon[i] = {} - self.Polygon[i].x = PointsArray[i].x - self.Polygon[i].y = PointsArray[i].y - end - - return self -end - ---- Flush polygon coordinates as a table in DCS.log. --- @param #ZONE_POLYGON_BASE self --- @return #ZONE_POLYGON_BASE self -function ZONE_POLYGON_BASE:Flush() - self:F2() - - self:E( { Polygon = self.ZoneName, Coordinates = self.Polygon } ) - - return self -end - - ---- Smokes the zone boundaries in a color. --- @param #ZONE_POLYGON_BASE self --- @param #POINT_VEC3.SmokeColor SmokeColor The smoke color. --- @return #ZONE_POLYGON_BASE self -function ZONE_POLYGON_BASE:SmokeZone( SmokeColor ) - self:F2( SmokeColor ) - - local i - local j - local Segments = 10 - - i = 1 - j = #self.Polygon - - while i <= #self.Polygon do - self:T( { i, j, self.Polygon[i], self.Polygon[j] } ) - - local DeltaX = self.Polygon[j].x - self.Polygon[i].x - local DeltaY = self.Polygon[j].y - self.Polygon[i].y - - for Segment = 0, Segments do -- We divide each line in 5 segments and smoke a point on the line. - local PointX = self.Polygon[i].x + ( Segment * DeltaX / Segments ) - local PointY = self.Polygon[i].y + ( Segment * DeltaY / Segments ) - POINT_VEC2:New( PointX, PointY ):Smoke( SmokeColor ) - end - j = i - i = i + 1 - end - - return self -end - - - - ---- Returns if a location is within the zone. --- Source learned and taken from: https://www.ecse.rpi.edu/Homepages/wrf/Research/Short_Notes/pnpoly.html --- @param #ZONE_POLYGON_BASE self --- @param DCSTypes#Vec2 PointVec2 The location to test. --- @return #boolean true if the location is within the zone. -function ZONE_POLYGON_BASE:IsPointVec2InZone( PointVec2 ) - self:F2( PointVec2 ) - - local Next - local Prev - local InPolygon = false - - Next = 1 - Prev = #self.Polygon - - while Next <= #self.Polygon do - self:T( { Next, Prev, self.Polygon[Next], self.Polygon[Prev] } ) - if ( ( ( self.Polygon[Next].y > PointVec2.y ) ~= ( self.Polygon[Prev].y > PointVec2.y ) ) and - ( PointVec2.x < ( self.Polygon[Prev].x - self.Polygon[Next].x ) * ( PointVec2.y - self.Polygon[Next].y ) / ( self.Polygon[Prev].y - self.Polygon[Next].y ) + self.Polygon[Next].x ) - ) then - InPolygon = not InPolygon - end - self:T2( { InPolygon = InPolygon } ) - Prev = Next - Next = Next + 1 - end - - self:T( { InPolygon = InPolygon } ) - return InPolygon -end - ---- Define a random @{DCSTypes#Vec2} within the zone. --- @param #ZONE_POLYGON_BASE self --- @return DCSTypes#Vec2 The Vec2 coordinate. -function ZONE_POLYGON_BASE:GetRandomVec2() - self:F2() - - --- It is a bit tricky to find a random point within a polygon. Right now i am doing it the dirty and inefficient way... - local Vec2Found = false - local Vec2 - local BS = self:GetBoundingSquare() - - self:T2( BS ) - - while Vec2Found == false do - Vec2 = { x = math.random( BS.x1, BS.x2 ), y = math.random( BS.y1, BS.y2 ) } - self:T2( Vec2 ) - if self:IsPointVec2InZone( Vec2 ) then - Vec2Found = true - end - end - - self:T2( Vec2 ) - - return Vec2 -end - ---- Get the bounding square the zone. --- @param #ZONE_POLYGON_BASE self --- @return #ZONE_POLYGON_BASE.BoundingSquare The bounding square. -function ZONE_POLYGON_BASE:GetBoundingSquare() - - local x1 = self.Polygon[1].x - local y1 = self.Polygon[1].y - local x2 = self.Polygon[1].x - local y2 = self.Polygon[1].y - - for i = 2, #self.Polygon do - self:T2( { self.Polygon[i], x1, y1, x2, y2 } ) - x1 = ( x1 > self.Polygon[i].x ) and self.Polygon[i].x or x1 - x2 = ( x2 < self.Polygon[i].x ) and self.Polygon[i].x or x2 - y1 = ( y1 > self.Polygon[i].y ) and self.Polygon[i].y or y1 - y2 = ( y2 < self.Polygon[i].y ) and self.Polygon[i].y or y2 - - end - - return { x1 = x1, y1 = y1, x2 = x2, y2 = y2 } -end - - - - - ---- The ZONE_POLYGON class defined by a sequence of @{Group#GROUP} waypoints within the Mission Editor, forming a polygon. --- @type ZONE_POLYGON --- @extends Zone#ZONE_POLYGON_BASE -ZONE_POLYGON = { - ClassName="ZONE_POLYGON", - } - ---- Constructor to create a ZONE_POLYGON instance, taking the zone name and the name of the @{Group#GROUP} defined within the Mission Editor. --- The @{Group#GROUP} waypoints define the polygon corners. The first and the last point are automatically connected by ZONE_POLYGON. --- @param #ZONE_POLYGON self --- @param #string ZoneName Name of the zone. --- @param Group#GROUP ZoneGroup The GROUP waypoints as defined within the Mission Editor define the polygon shape. --- @return #ZONE_POLYGON self -function ZONE_POLYGON:New( ZoneName, ZoneGroup ) - - local GroupPoints = ZoneGroup:GetTaskRoute() - - local self = BASE:Inherit( self, ZONE_POLYGON_BASE:New( ZoneName, GroupPoints ) ) - self:F( { ZoneName, ZoneGroup, self.Polygon } ) - - return self -end - ---- This module contains the CLIENT class. --- --- 1) @{Client#CLIENT} class, extends @{Unit#UNIT} --- =============================================== --- Clients are those **Units** defined within the Mission Editor that have the skillset defined as __Client__ or __Player__. --- Note that clients are NOT the same as Units, they are NOT necessarily alive. --- The @{Client#CLIENT} class is a wrapper class to handle the DCS Unit objects that have the skillset defined as __Client__ or __Player__: --- --- * Wraps the DCS Unit objects with skill level set to Player or Client. --- * Support all DCS Unit APIs. --- * Enhance with Unit specific APIs not in the DCS Group API set. --- * When player joins Unit, execute alive init logic. --- * Handles messages to players. --- * Manage the "state" of the DCS Unit. --- --- Clients are being used by the @{MISSION} class to follow players and register their successes. --- --- 1.1) CLIENT reference methods --- ----------------------------- --- For each DCS Unit having skill level Player or Client, a CLIENT wrapper object (instance) will be created within the _@{DATABASE} object. --- This is done at the beginning of the mission (when the mission starts). --- --- The CLIENT class does not contain a :New() method, rather it provides :Find() methods to retrieve the object reference --- using the DCS Unit or the DCS UnitName. --- --- Another thing to know is that CLIENT objects do not "contain" the DCS Unit object. --- The CLIENT methods will reference the DCS Unit object by name when it is needed during API execution. --- If the DCS Unit object does not exist or is nil, the CLIENT methods will return nil and log an exception in the DCS.log file. --- --- The CLIENT class provides the following functions to retrieve quickly the relevant CLIENT instance: --- --- * @{#CLIENT.Find}(): Find a CLIENT instance from the _DATABASE object using a DCS Unit object. --- * @{#CLIENT.FindByName}(): Find a CLIENT instance from the _DATABASE object using a DCS Unit name. --- --- IMPORTANT: ONE SHOULD NEVER SANATIZE these CLIENT OBJECT REFERENCES! (make the CLIENT object references nil). --- --- @module Client --- @author FlightControl - ---- The CLIENT class --- @type CLIENT --- @extends Unit#UNIT -CLIENT = { - ONBOARDSIDE = { - NONE = 0, - LEFT = 1, - RIGHT = 2, - BACK = 3, - FRONT = 4 - }, - ClassName = "CLIENT", - ClientName = nil, - ClientAlive = false, - ClientTransport = false, - ClientBriefingShown = false, - _Menus = {}, - _Tasks = {}, - Messages = { - } -} - - ---- Finds a CLIENT from the _DATABASE using the relevant DCS Unit. --- @param #CLIENT self --- @param #string ClientName Name of the DCS **Unit** as defined within the Mission Editor. --- @param #string ClientBriefing Text that describes the briefing of the mission when a Player logs into the Client. --- @return #CLIENT --- @usage --- -- Create new Clients. --- local Mission = MISSIONSCHEDULER.AddMission( 'Russia Transport Troops SA-6', 'Operational', 'Transport troops from the control center to one of the SA-6 SAM sites to activate their operation.', 'Russia' ) --- Mission:AddGoal( DeploySA6TroopsGoal ) --- --- Mission:AddClient( CLIENT:FindByName( 'RU MI-8MTV2*HOT-Deploy Troops 1' ):Transport() ) --- Mission:AddClient( CLIENT:FindByName( 'RU MI-8MTV2*RAMP-Deploy Troops 3' ):Transport() ) --- Mission:AddClient( CLIENT:FindByName( 'RU MI-8MTV2*HOT-Deploy Troops 2' ):Transport() ) --- Mission:AddClient( CLIENT:FindByName( 'RU MI-8MTV2*RAMP-Deploy Troops 4' ):Transport() ) -function CLIENT:Find( DCSUnit ) - local ClientName = DCSUnit:getName() - local ClientFound = _DATABASE:FindClient( ClientName ) - - if ClientFound then - ClientFound:F( ClientName ) - return ClientFound - end - - error( "CLIENT not found for: " .. ClientName ) -end - - ---- Finds a CLIENT from the _DATABASE using the relevant Client Unit Name. --- As an optional parameter, a briefing text can be given also. --- @param #CLIENT self --- @param #string ClientName Name of the DCS **Unit** as defined within the Mission Editor. --- @param #string ClientBriefing Text that describes the briefing of the mission when a Player logs into the Client. --- @return #CLIENT --- @usage --- -- Create new Clients. --- local Mission = MISSIONSCHEDULER.AddMission( 'Russia Transport Troops SA-6', 'Operational', 'Transport troops from the control center to one of the SA-6 SAM sites to activate their operation.', 'Russia' ) --- Mission:AddGoal( DeploySA6TroopsGoal ) --- --- Mission:AddClient( CLIENT:FindByName( 'RU MI-8MTV2*HOT-Deploy Troops 1' ):Transport() ) --- Mission:AddClient( CLIENT:FindByName( 'RU MI-8MTV2*RAMP-Deploy Troops 3' ):Transport() ) --- Mission:AddClient( CLIENT:FindByName( 'RU MI-8MTV2*HOT-Deploy Troops 2' ):Transport() ) --- Mission:AddClient( CLIENT:FindByName( 'RU MI-8MTV2*RAMP-Deploy Troops 4' ):Transport() ) -function CLIENT:FindByName( ClientName, ClientBriefing ) - local ClientFound = _DATABASE:FindClient( ClientName ) - - if ClientFound then - ClientFound:F( { ClientName, ClientBriefing } ) - ClientFound:AddBriefing( ClientBriefing ) - ClientFound.MessageSwitch = true - - return ClientFound - end - - error( "CLIENT not found for: " .. ClientName ) -end - -function CLIENT:Register( ClientName ) - local self = BASE:Inherit( self, UNIT:Register( ClientName ) ) - - self:F( ClientName ) - self.ClientName = ClientName - self.MessageSwitch = true - self.ClientAlive2 = false - - --self.AliveCheckScheduler = routines.scheduleFunction( self._AliveCheckScheduler, { self }, timer.getTime() + 1, 5 ) - self.AliveCheckScheduler = SCHEDULER:New( self, self._AliveCheckScheduler, { "Client Alive " .. ClientName }, 1, 5 ) - - self:E( self ) - return self -end - - ---- Transport defines that the Client is a Transport. Transports show cargo. --- @param #CLIENT self --- @return #CLIENT -function CLIENT:Transport() - self:F() - - self.ClientTransport = true - return self -end - ---- AddBriefing adds a briefing to a CLIENT when a player joins a mission. --- @param #CLIENT self --- @param #string ClientBriefing is the text defining the Mission briefing. --- @return #CLIENT self -function CLIENT:AddBriefing( ClientBriefing ) - self:F( ClientBriefing ) - self.ClientBriefing = ClientBriefing - self.ClientBriefingShown = false - - return self -end - ---- Show the briefing of a CLIENT. --- @param #CLIENT self --- @return #CLIENT self -function CLIENT:ShowBriefing() - self:F( { self.ClientName, self.ClientBriefingShown } ) - - if not self.ClientBriefingShown then - self.ClientBriefingShown = true - local Briefing = "" - if self.ClientBriefing then - Briefing = Briefing .. self.ClientBriefing - end - Briefing = Briefing .. " Press [LEFT ALT]+[B] to view the complete mission briefing." - self:Message( Briefing, 60, "Briefing" ) - end - - return self -end - ---- Show the mission briefing of a MISSION to the CLIENT. --- @param #CLIENT self --- @param #string MissionBriefing --- @return #CLIENT self -function CLIENT:ShowMissionBriefing( MissionBriefing ) - self:F( { self.ClientName } ) - - if MissionBriefing then - self:Message( MissionBriefing, 60, "Mission Briefing" ) - end - - return self -end - - - ---- Resets a CLIENT. --- @param #CLIENT self --- @param #string ClientName Name of the Group as defined within the Mission Editor. The Group must have a Unit with the type Client. -function CLIENT:Reset( ClientName ) - self:F() - self._Menus = {} -end - --- Is Functions - ---- Checks if the CLIENT is a multi-seated UNIT. --- @param #CLIENT self --- @return #boolean true if multi-seated. -function CLIENT:IsMultiSeated() - self:F( self.ClientName ) - - local ClientMultiSeatedTypes = { - ["Mi-8MT"] = "Mi-8MT", - ["UH-1H"] = "UH-1H", - ["P-51B"] = "P-51B" - } - - if self:IsAlive() then - local ClientTypeName = self:GetClientGroupUnit():GetTypeName() - if ClientMultiSeatedTypes[ClientTypeName] then - return true - end - end - - return false -end - ---- Checks for a client alive event and calls a function on a continuous basis. --- @param #CLIENT self --- @param #function CallBack Function. --- @return #CLIENT -function CLIENT:Alive( CallBackFunction, ... ) - self:F() - - self.ClientCallBack = CallBackFunction - self.ClientParameters = arg - - return self -end - ---- @param #CLIENT self -function CLIENT:_AliveCheckScheduler( SchedulerName ) - self:F( { SchedulerName, self.ClientName, self.ClientAlive2, self.ClientBriefingShown, self.ClientCallBack } ) - - if self:IsAlive() then - if self.ClientAlive2 == false then - self:ShowBriefing() - if self.ClientCallBack then - self:T("Calling Callback function") - self.ClientCallBack( self, unpack( self.ClientParameters ) ) - end - self.ClientAlive2 = true - end - else - if self.ClientAlive2 == true then - self.ClientAlive2 = false - end - end - - return true -end - ---- Return the DCSGroup of a Client. --- This function is modified to deal with a couple of bugs in DCS 1.5.3 --- @param #CLIENT self --- @return DCSGroup#Group -function CLIENT:GetDCSGroup() - self:F3() - --- local ClientData = Group.getByName( self.ClientName ) --- if ClientData and ClientData:isExist() then --- self:T( self.ClientName .. " : group found!" ) --- return ClientData --- else --- return nil --- end - - local ClientUnit = Unit.getByName( self.ClientName ) - - local CoalitionsData = { AlivePlayersRed = coalition.getPlayers( coalition.side.RED ), AlivePlayersBlue = coalition.getPlayers( coalition.side.BLUE ) } - for CoalitionId, CoalitionData in pairs( CoalitionsData ) do - self:T3( { "CoalitionData:", CoalitionData } ) - for UnitId, UnitData in pairs( CoalitionData ) do - self:T3( { "UnitData:", UnitData } ) - if UnitData and UnitData:isExist() then - - --self:E(self.ClientName) - if ClientUnit then - local ClientGroup = ClientUnit:getGroup() - if ClientGroup then - self:T3( "ClientGroup = " .. self.ClientName ) - if ClientGroup:isExist() and UnitData:getGroup():isExist() then - if ClientGroup:getID() == UnitData:getGroup():getID() then - self:T3( "Normal logic" ) - self:T3( self.ClientName .. " : group found!" ) - self.ClientGroupID = ClientGroup:getID() - self.ClientGroupName = ClientGroup:getName() - return ClientGroup - end - else - -- Now we need to resolve the bugs in DCS 1.5 ... - -- Consult the database for the units of the Client Group. (ClientGroup:getUnits() returns nil) - self:T3( "Bug 1.5 logic" ) - local ClientGroupTemplate = _DATABASE.Templates.Units[self.ClientName].GroupTemplate - self.ClientGroupID = ClientGroupTemplate.groupId - self.ClientGroupName = _DATABASE.Templates.Units[self.ClientName].GroupName - self:T3( self.ClientName .. " : group found in bug 1.5 resolvement logic!" ) - return ClientGroup - end - -- else - -- error( "Client " .. self.ClientName .. " not found!" ) - end - else - --self:E( { "Client not found!", self.ClientName } ) - end - end - end - end - - -- For non player clients - if ClientUnit then - local ClientGroup = ClientUnit:getGroup() - if ClientGroup then - self:T3( "ClientGroup = " .. self.ClientName ) - if ClientGroup:isExist() then - self:T3( "Normal logic" ) - self:T3( self.ClientName .. " : group found!" ) - return ClientGroup - end - end - end - - self.ClientGroupID = nil - self.ClientGroupUnit = nil - - return nil -end - - --- TODO: Check DCSTypes#Group.ID ---- Get the group ID of the client. --- @param #CLIENT self --- @return DCSTypes#Group.ID -function CLIENT:GetClientGroupID() - - local ClientGroup = self:GetDCSGroup() - - --self:E( self.ClientGroupID ) -- Determined in GetDCSGroup() - return self.ClientGroupID -end - - ---- Get the name of the group of the client. --- @param #CLIENT self --- @return #string -function CLIENT:GetClientGroupName() - - local ClientGroup = self:GetDCSGroup() - - self:T( self.ClientGroupName ) -- Determined in GetDCSGroup() - return self.ClientGroupName -end - ---- Returns the UNIT of the CLIENT. --- @param #CLIENT self --- @return Unit#UNIT -function CLIENT:GetClientGroupUnit() - self:F2() - - local ClientDCSUnit = Unit.getByName( self.ClientName ) - - self:T( self.ClientDCSUnit ) - if ClientDCSUnit and ClientDCSUnit:isExist() then - local ClientUnit = _DATABASE:FindUnit( self.ClientName ) - self:T2( ClientUnit ) - return ClientUnit - end -end - ---- Returns the DCSUnit of the CLIENT. --- @param #CLIENT self --- @return DCSTypes#Unit -function CLIENT:GetClientGroupDCSUnit() - self:F2() - - local ClientDCSUnit = Unit.getByName( self.ClientName ) - - if ClientDCSUnit and ClientDCSUnit:isExist() then - self:T2( ClientDCSUnit ) - return ClientDCSUnit - end -end - - ---- Evaluates if the CLIENT is a transport. --- @param #CLIENT self --- @return #boolean true is a transport. -function CLIENT:IsTransport() - self:F() - return self.ClientTransport -end - ---- Shows the @{Cargo#CARGO} contained within the CLIENT to the player as a message. --- The @{Cargo#CARGO} is shown using the @{Message#MESSAGE} distribution system. --- @param #CLIENT self -function CLIENT:ShowCargo() - self:F() - - local CargoMsg = "" - - for CargoName, Cargo in pairs( CARGOS ) do - if self == Cargo:IsLoadedInClient() then - CargoMsg = CargoMsg .. Cargo.CargoName .. " Type:" .. Cargo.CargoType .. " Weight: " .. Cargo.CargoWeight .. "\n" - end - end - - if CargoMsg == "" then - CargoMsg = "empty" - end - - self:Message( CargoMsg, 15, "Co-Pilot: Cargo Status", 30 ) - -end - --- TODO (1) I urgently need to revise this. ---- A local function called by the DCS World Menu system to switch off messages. -function CLIENT.SwitchMessages( PrmTable ) - PrmTable[1].MessageSwitch = PrmTable[2] -end - ---- The main message driver for the CLIENT. --- This function displays various messages to the Player logged into the CLIENT through the DCS World Messaging system. --- @param #CLIENT self --- @param #string Message is the text describing the message. --- @param #number MessageDuration is the duration in seconds that the Message should be displayed. --- @param #string MessageCategory is the category of the message (the title). --- @param #number MessageInterval is the interval in seconds between the display of the @{Message#MESSAGE} when the CLIENT is in the air. --- @param #string MessageID is the identifier of the message when displayed with intervals. -function CLIENT:Message( Message, MessageDuration, MessageCategory, MessageInterval, MessageID ) - self:F( { Message, MessageDuration, MessageCategory, MessageInterval } ) - - if not self.MenuMessages then - if self:GetClientGroupID() then - self.MenuMessages = MENU_CLIENT:New( self, 'Messages' ) - self.MenuRouteMessageOn = MENU_CLIENT_COMMAND:New( self, 'Messages On', self.MenuMessages, CLIENT.SwitchMessages, { self, true } ) - self.MenuRouteMessageOff = MENU_CLIENT_COMMAND:New( self,'Messages Off', self.MenuMessages, CLIENT.SwitchMessages, { self, false } ) - end - end - - if self.MessageSwitch == true then - if MessageCategory == nil then - MessageCategory = "Messages" - end - if MessageID ~= nil then - if self.Messages[MessageID] == nil then - self.Messages[MessageID] = {} - self.Messages[MessageID].MessageId = MessageID - self.Messages[MessageID].MessageTime = timer.getTime() - self.Messages[MessageID].MessageDuration = MessageDuration - if MessageInterval == nil then - self.Messages[MessageID].MessageInterval = 600 - else - self.Messages[MessageID].MessageInterval = MessageInterval - end - MESSAGE:New( Message, MessageDuration, MessageCategory ):ToClient( self ) - else - if self:GetClientGroupDCSUnit() and not self:GetClientGroupDCSUnit():inAir() then - if timer.getTime() - self.Messages[MessageID].MessageTime >= self.Messages[MessageID].MessageDuration + 10 then - MESSAGE:New( Message, MessageDuration , MessageCategory):ToClient( self ) - self.Messages[MessageID].MessageTime = timer.getTime() - end - else - if timer.getTime() - self.Messages[MessageID].MessageTime >= self.Messages[MessageID].MessageDuration + self.Messages[MessageID].MessageInterval then - MESSAGE:New( Message, MessageDuration, MessageCategory ):ToClient( self ) - self.Messages[MessageID].MessageTime = timer.getTime() - end - end - end - else - MESSAGE:New( Message, MessageDuration, MessageCategory ):ToClient( self ) - end - end -end ---- This module contains the STATIC class. --- --- 1) @{Static#STATIC} class, extends @{Positionable#POSITIONABLE} --- =============================================================== --- Statics are **Static Units** defined within the Mission Editor. --- Note that Statics are almost the same as Units, but they don't have a controller. --- The @{Static#STATIC} class is a wrapper class to handle the DCS Static objects: --- --- * Wraps the DCS Static objects. --- * Support all DCS Static APIs. --- * Enhance with Static specific APIs not in the DCS API set. --- --- 1.1) STATIC reference methods --- ----------------------------- --- For each DCS Static will have a STATIC wrapper object (instance) within the _@{DATABASE} object. --- This is done at the beginning of the mission (when the mission starts). --- --- The STATIC class does not contain a :New() method, rather it provides :Find() methods to retrieve the object reference --- using the Static Name. --- --- Another thing to know is that STATIC objects do not "contain" the DCS Static object. --- The STATIc methods will reference the DCS Static object by name when it is needed during API execution. --- If the DCS Static object does not exist or is nil, the STATIC methods will return nil and log an exception in the DCS.log file. --- --- The STATIc class provides the following functions to retrieve quickly the relevant STATIC instance: --- --- * @{#STATIC.FindByName}(): Find a STATIC instance from the _DATABASE object using a DCS Static name. --- --- IMPORTANT: ONE SHOULD NEVER SANATIZE these STATIC OBJECT REFERENCES! (make the STATIC object references nil). --- --- @module Static --- @author FlightControl - - - - - - ---- The STATIC class --- @type STATIC --- @extends Positionable#POSITIONABLE -STATIC = { - ClassName = "STATIC", -} - - ---- Finds a STATIC from the _DATABASE using the relevant Static Name. --- As an optional parameter, a briefing text can be given also. --- @param #STATIC self --- @param #string StaticName Name of the DCS **Static** as defined within the Mission Editor. --- @return #STATIC -function STATIC:FindByName( StaticName ) - local StaticFound = _DATABASE:FindStatic( StaticName ) - - if StaticFound then - StaticFound:F( { StaticName } ) - - return StaticFound - end - - error( "STATIC not found for: " .. StaticName ) -end - -function STATIC:Register( StaticName ) - local self = BASE:Inherit( self, POSITIONABLE:New( StaticName ) ) - return self -end - - -function STATIC:GetDCSUnit() - local DCSStatic = StaticObject.getByName( self.UnitName ) - - if DCSStatic then - return DCSStatic - end - - return nil -end ---- This module contains the AIRBASE classes. --- --- === --- --- 1) @{Airbase#AIRBASE} class, extends @{Positionable#POSITIONABLE} --- ================================================================= --- The @{AIRBASE} class is a wrapper class to handle the DCS Airbase objects: --- --- * Support all DCS Airbase APIs. --- * Enhance with Airbase specific APIs not in the DCS Airbase API set. --- --- --- 1.1) AIRBASE reference methods --- ------------------------------ --- For each DCS Airbase object alive within a running mission, a AIRBASE wrapper object (instance) will be created within the _@{DATABASE} object. --- This is done at the beginning of the mission (when the mission starts). --- --- The AIRBASE class **does not contain a :New()** method, rather it provides **:Find()** methods to retrieve the object reference --- using the DCS Airbase or the DCS AirbaseName. --- --- Another thing to know is that AIRBASE objects do not "contain" the DCS Airbase object. --- The AIRBASE methods will reference the DCS Airbase object by name when it is needed during API execution. --- If the DCS Airbase object does not exist or is nil, the AIRBASE methods will return nil and log an exception in the DCS.log file. --- --- The AIRBASE class provides the following functions to retrieve quickly the relevant AIRBASE instance: --- --- * @{#AIRBASE.Find}(): Find a AIRBASE instance from the _DATABASE object using a DCS Airbase object. --- * @{#AIRBASE.FindByName}(): Find a AIRBASE instance from the _DATABASE object using a DCS Airbase name. --- --- IMPORTANT: ONE SHOULD NEVER SANATIZE these AIRBASE OBJECT REFERENCES! (make the AIRBASE object references nil). --- --- 1.2) DCS AIRBASE APIs --- --------------------- --- The DCS Airbase APIs are used extensively within MOOSE. The AIRBASE class has for each DCS Airbase API a corresponding method. --- To be able to distinguish easily in your code the difference between a AIRBASE API call and a DCS Airbase API call, --- the first letter of the method is also capitalized. So, by example, the DCS Airbase method @{DCSAirbase#Airbase.getName}() --- is implemented in the AIRBASE class as @{#AIRBASE.GetName}(). --- --- More functions will be added --- ---------------------------- --- During the MOOSE development, more functions will be added. --- --- @module Airbase --- @author FlightControl - - - - - ---- The AIRBASE class --- @type AIRBASE --- @extends Positionable#POSITIONABLE -AIRBASE = { - ClassName="AIRBASE", - CategoryName = { - [Airbase.Category.AIRDROME] = "Airdrome", - [Airbase.Category.HELIPAD] = "Helipad", - [Airbase.Category.SHIP] = "Ship", - }, - } - --- Registration. - ---- Create a new AIRBASE from DCSAirbase. --- @param #AIRBASE self --- @param #string AirbaseName The name of the airbase. --- @return Airbase#AIRBASE -function AIRBASE:Register( AirbaseName ) - - local self = BASE:Inherit( self, POSITIONABLE:New( AirbaseName ) ) - self.AirbaseName = AirbaseName - return self -end - --- Reference methods. - ---- Finds a AIRBASE from the _DATABASE using a DCSAirbase object. --- @param #AIRBASE self --- @param DCSAirbase#Airbase DCSAirbase An existing DCS Airbase object reference. --- @return Airbase#AIRBASE self -function AIRBASE:Find( DCSAirbase ) - - local AirbaseName = DCSAirbase:getName() - local AirbaseFound = _DATABASE:FindAirbase( AirbaseName ) - return AirbaseFound -end - ---- Find a AIRBASE in the _DATABASE using the name of an existing DCS Airbase. --- @param #AIRBASE self --- @param #string AirbaseName The Airbase Name. --- @return Airbase#AIRBASE self -function AIRBASE:FindByName( AirbaseName ) - - local AirbaseFound = _DATABASE:FindAirbase( AirbaseName ) - return AirbaseFound -end - -function AIRBASE:GetDCSObject() - local DCSAirbase = Airbase.getByName( self.AirbaseName ) - - if DCSAirbase then - return DCSAirbase - end - - return nil -end - - - ---- This module contains the DATABASE class, managing the database of mission objects. --- --- ==== --- --- 1) @{Database#DATABASE} class, extends @{Base#BASE} --- =================================================== --- Mission designers can use the DATABASE class to refer to: --- --- * UNITS --- * GROUPS --- * CLIENTS --- * AIRPORTS --- * PLAYERSJOINED --- * PLAYERS --- --- On top, for internal MOOSE administration purposes, the DATBASE administers the Unit and Group TEMPLATES as defined within the Mission Editor. --- --- Moose will automatically create one instance of the DATABASE class into the **global** object _DATABASE. --- Moose refers to _DATABASE within the framework extensively, but you can also refer to the _DATABASE object within your missions if required. --- --- 1.1) DATABASE iterators --- ----------------------- --- You can iterate the database with the available iterator methods. --- The iterator methods will walk the DATABASE set, and call for each element within the set a function that you provide. --- The following iterator methods are currently available within the DATABASE: --- --- * @{#DATABASE.ForEachUnit}: Calls a function for each @{UNIT} it finds within the DATABASE. --- * @{#DATABASE.ForEachGroup}: Calls a function for each @{GROUP} it finds within the DATABASE. --- * @{#DATABASE.ForEachPlayer}: Calls a function for each alive player it finds within the DATABASE. --- * @{#DATABASE.ForEachPlayerJoined}: Calls a function for each joined player it finds within the DATABASE. --- * @{#DATABASE.ForEachClient}: Calls a function for each @{CLIENT} it finds within the DATABASE. --- * @{#DATABASE.ForEachClientAlive}: Calls a function for each alive @{CLIENT} it finds within the DATABASE. --- --- === --- --- @module Database --- @author FlightControl - ---- DATABASE class --- @type DATABASE --- @extends Base#BASE -DATABASE = { - ClassName = "DATABASE", - Templates = { - Units = {}, - Groups = {}, - ClientsByName = {}, - ClientsByID = {}, - }, - UNITS = {}, - STATICS = {}, - GROUPS = {}, - PLAYERS = {}, - PLAYERSJOINED = {}, - CLIENTS = {}, - AIRBASES = {}, - NavPoints = {}, -} - -local _DATABASECoalition = - { - [1] = "Red", - [2] = "Blue", - } - -local _DATABASECategory = - { - ["plane"] = Unit.Category.AIRPLANE, - ["helicopter"] = Unit.Category.HELICOPTER, - ["vehicle"] = Unit.Category.GROUND_UNIT, - ["ship"] = Unit.Category.SHIP, - ["static"] = Unit.Category.STRUCTURE, - } - - ---- Creates a new DATABASE object, building a set of units belonging to a coalitions, categories, countries, types or with defined prefix names. --- @param #DATABASE self --- @return #DATABASE --- @usage --- -- Define a new DATABASE Object. This DBObject will contain a reference to all Group and Unit Templates defined within the ME and the DCSRTE. --- DBObject = DATABASE:New() -function DATABASE:New() - - -- Inherits from BASE - local self = BASE:Inherit( self, BASE:New() ) - - _EVENTDISPATCHER:OnBirth( self._EventOnBirth, self ) - _EVENTDISPATCHER:OnDead( self._EventOnDeadOrCrash, self ) - _EVENTDISPATCHER:OnCrash( self._EventOnDeadOrCrash, self ) - - - -- Follow alive players and clients - _EVENTDISPATCHER:OnPlayerEnterUnit( self._EventOnPlayerEnterUnit, self ) - _EVENTDISPATCHER:OnPlayerLeaveUnit( self._EventOnPlayerLeaveUnit, self ) - - self:_RegisterTemplates() - self:_RegisterGroupsAndUnits() - self:_RegisterClients() - self:_RegisterStatics() - self:_RegisterPlayers() - self:_RegisterAirbases() - - return self -end - ---- Finds a Unit based on the Unit Name. --- @param #DATABASE self --- @param #string UnitName --- @return Unit#UNIT The found Unit. -function DATABASE:FindUnit( UnitName ) - - local UnitFound = self.UNITS[UnitName] - return UnitFound -end - - ---- Adds a Unit based on the Unit Name in the DATABASE. --- @param #DATABASE self -function DATABASE:AddUnit( DCSUnitName ) - - if not self.UNITS[DCSUnitName] then - local UnitRegister = UNIT:Register( DCSUnitName ) - self:E( UnitRegister.UnitName ) - self.UNITS[DCSUnitName] = UNIT:Register( DCSUnitName ) - end - - return self.UNITS[DCSUnitName] -end - - ---- Deletes a Unit from the DATABASE based on the Unit Name. --- @param #DATABASE self -function DATABASE:DeleteUnit( DCSUnitName ) - - --self.UNITS[DCSUnitName] = nil -end - ---- Adds a Static based on the Static Name in the DATABASE. --- @param #DATABASE self -function DATABASE:AddStatic( DCSStaticName ) - - if not self.STATICS[DCSStaticName] then - self.STATICS[DCSStaticName] = STATIC:Register( DCSStaticName ) - end -end - - ---- Deletes a Static from the DATABASE based on the Static Name. --- @param #DATABASE self -function DATABASE:DeleteStatic( DCSStaticName ) - - --self.STATICS[DCSStaticName] = nil -end - ---- Finds a STATIC based on the StaticName. --- @param #DATABASE self --- @param #string StaticName --- @return Static#STATIC The found STATIC. -function DATABASE:FindStatic( StaticName ) - - local StaticFound = self.STATICS[StaticName] - return StaticFound -end - ---- Adds a Airbase based on the Airbase Name in the DATABASE. --- @param #DATABASE self -function DATABASE:AddAirbase( DCSAirbaseName ) - - if not self.AIRBASES[DCSAirbaseName] then - self.AIRBASES[DCSAirbaseName] = AIRBASE:Register( DCSAirbaseName ) - end -end - - ---- Deletes a Airbase from the DATABASE based on the Airbase Name. --- @param #DATABASE self -function DATABASE:DeleteAirbase( DCSAirbaseName ) - - --self.AIRBASES[DCSAirbaseName] = nil -end - ---- Finds a AIRBASE based on the AirbaseName. --- @param #DATABASE self --- @param #string AirbaseName --- @return Airbase#AIRBASE The found AIRBASE. -function DATABASE:FindAirbase( AirbaseName ) - - local AirbaseFound = self.AIRBASES[AirbaseName] - return AirbaseFound -end - - ---- Finds a CLIENT based on the ClientName. --- @param #DATABASE self --- @param #string ClientName --- @return Client#CLIENT The found CLIENT. -function DATABASE:FindClient( ClientName ) - - local ClientFound = self.CLIENTS[ClientName] - return ClientFound -end - - ---- Adds a CLIENT based on the ClientName in the DATABASE. --- @param #DATABASE self -function DATABASE:AddClient( ClientName ) - - if not self.CLIENTS[ClientName] then - self.CLIENTS[ClientName] = CLIENT:Register( ClientName ) - end - - return self.CLIENTS[ClientName] -end - - ---- Finds a GROUP based on the GroupName. --- @param #DATABASE self --- @param #string GroupName --- @return Group#GROUP The found GROUP. -function DATABASE:FindGroup( GroupName ) - - local GroupFound = self.GROUPS[GroupName] - return GroupFound -end - - ---- Adds a GROUP based on the GroupName in the DATABASE. --- @param #DATABASE self -function DATABASE:AddGroup( GroupName ) - - if not self.GROUPS[GroupName] then - self.GROUPS[GroupName] = GROUP:Register( GroupName ) - end - - return self.GROUPS[GroupName] -end - ---- Adds a player based on the Player Name in the DATABASE. --- @param #DATABASE self -function DATABASE:AddPlayer( UnitName, PlayerName ) - - if PlayerName then - self:E( { "Add player for unit:", UnitName, PlayerName } ) - self.PLAYERS[PlayerName] = self:FindUnit( UnitName ) - self.PLAYERSJOINED[PlayerName] = PlayerName - end -end - ---- Deletes a player from the DATABASE based on the Player Name. --- @param #DATABASE self -function DATABASE:DeletePlayer( PlayerName ) - - if PlayerName then - self:E( { "Clean player:", PlayerName } ) - self.PLAYERS[PlayerName] = nil - end -end - - ---- Instantiate new Groups within the DCSRTE. --- This method expects EXACTLY the same structure as a structure within the ME, and needs 2 additional fields defined: --- SpawnCountryID, SpawnCategoryID --- This method is used by the SPAWN class. --- @param #DATABASE self --- @param #table SpawnTemplate --- @return #DATABASE self -function DATABASE:Spawn( SpawnTemplate ) - self:F2( SpawnTemplate.name ) - - self:T2( { SpawnTemplate.SpawnCountryID, SpawnTemplate.SpawnCategoryID } ) - - -- Copy the spawn variables of the template in temporary storage, nullify, and restore the spawn variables. - local SpawnCoalitionID = SpawnTemplate.SpawnCoalitionID - local SpawnCountryID = SpawnTemplate.SpawnCountryID - local SpawnCategoryID = SpawnTemplate.SpawnCategoryID - - -- Nullify - SpawnTemplate.SpawnCoalitionID = nil - SpawnTemplate.SpawnCountryID = nil - SpawnTemplate.SpawnCategoryID = nil - - self:_RegisterTemplate( SpawnTemplate, SpawnCoalitionID, SpawnCategoryID, SpawnCountryID ) - - self:T3( SpawnTemplate ) - coalition.addGroup( SpawnCountryID, SpawnCategoryID, SpawnTemplate ) - - -- Restore - SpawnTemplate.SpawnCoalitionID = SpawnCoalitionID - SpawnTemplate.SpawnCountryID = SpawnCountryID - SpawnTemplate.SpawnCategoryID = SpawnCategoryID - - local SpawnGroup = self:AddGroup( SpawnTemplate.name ) - return SpawnGroup -end - ---- Set a status to a Group within the Database, this to check crossing events for example. -function DATABASE:SetStatusGroup( GroupName, Status ) - self:F2( Status ) - - self.Templates.Groups[GroupName].Status = Status -end - ---- Get a status to a Group within the Database, this to check crossing events for example. -function DATABASE:GetStatusGroup( GroupName ) - self:F2( Status ) - - if self.Templates.Groups[GroupName] then - return self.Templates.Groups[GroupName].Status - else - return "" - end -end - ---- Private method that registers new Group Templates within the DATABASE Object. --- @param #DATABASE self --- @param #table GroupTemplate --- @return #DATABASE self -function DATABASE:_RegisterTemplate( GroupTemplate, CoalitionID, CategoryID, CountryID ) - - local GroupTemplateName = env.getValueDictByKey(GroupTemplate.name) - - local TraceTable = {} - - if not self.Templates.Groups[GroupTemplateName] then - self.Templates.Groups[GroupTemplateName] = {} - self.Templates.Groups[GroupTemplateName].Status = nil - end - - -- Delete the spans from the route, it is not needed and takes memory. - if GroupTemplate.route and GroupTemplate.route.spans then - GroupTemplate.route.spans = nil - end - - self.Templates.Groups[GroupTemplateName].GroupName = GroupTemplateName - self.Templates.Groups[GroupTemplateName].Template = GroupTemplate - self.Templates.Groups[GroupTemplateName].groupId = GroupTemplate.groupId - self.Templates.Groups[GroupTemplateName].UnitCount = #GroupTemplate.units - self.Templates.Groups[GroupTemplateName].Units = GroupTemplate.units - self.Templates.Groups[GroupTemplateName].CategoryID = CategoryID - self.Templates.Groups[GroupTemplateName].CoalitionID = CoalitionID - self.Templates.Groups[GroupTemplateName].CountryID = CountryID - - - TraceTable[#TraceTable+1] = "Group" - TraceTable[#TraceTable+1] = self.Templates.Groups[GroupTemplateName].GroupName - - TraceTable[#TraceTable+1] = "Coalition" - TraceTable[#TraceTable+1] = self.Templates.Groups[GroupTemplateName].CoalitionID - TraceTable[#TraceTable+1] = "Category" - TraceTable[#TraceTable+1] = self.Templates.Groups[GroupTemplateName].CategoryID - TraceTable[#TraceTable+1] = "Country" - TraceTable[#TraceTable+1] = self.Templates.Groups[GroupTemplateName].CountryID - - TraceTable[#TraceTable+1] = "Units" - - for unit_num, UnitTemplate in pairs( GroupTemplate.units ) do - - local UnitTemplateName = env.getValueDictByKey(UnitTemplate.name) - self.Templates.Units[UnitTemplateName] = {} - self.Templates.Units[UnitTemplateName].UnitName = UnitTemplateName - self.Templates.Units[UnitTemplateName].Template = UnitTemplate - self.Templates.Units[UnitTemplateName].GroupName = GroupTemplateName - self.Templates.Units[UnitTemplateName].GroupTemplate = GroupTemplate - self.Templates.Units[UnitTemplateName].GroupId = GroupTemplate.groupId - self.Templates.Units[UnitTemplateName].CategoryID = CategoryID - self.Templates.Units[UnitTemplateName].CoalitionID = CoalitionID - self.Templates.Units[UnitTemplateName].CountryID = CountryID - - if UnitTemplate.skill and (UnitTemplate.skill == "Client" or UnitTemplate.skill == "Player") then - self.Templates.ClientsByName[UnitTemplateName] = UnitTemplate - self.Templates.ClientsByName[UnitTemplateName].CategoryID = CategoryID - self.Templates.ClientsByName[UnitTemplateName].CoalitionID = CoalitionID - self.Templates.ClientsByName[UnitTemplateName].CountryID = CountryID - self.Templates.ClientsByID[UnitTemplate.unitId] = UnitTemplate - end - - TraceTable[#TraceTable+1] = self.Templates.Units[UnitTemplateName].UnitName - end - - self:E( TraceTable ) -end - -function DATABASE:GetGroupTemplate( GroupName ) - local GroupTemplate = self.Templates.Groups[GroupName].Template - GroupTemplate.SpawnCoalitionID = self.Templates.Groups[GroupName].CoalitionID - GroupTemplate.SpawnCategoryID = self.Templates.Groups[GroupName].CategoryID - GroupTemplate.SpawnCountryID = self.Templates.Groups[GroupName].CountryID - return GroupTemplate -end - -function DATABASE:GetCoalitionFromClientTemplate( ClientName ) - return self.Templates.ClientsByName[ClientName].CoalitionID -end - -function DATABASE:GetCategoryFromClientTemplate( ClientName ) - return self.Templates.ClientsByName[ClientName].CategoryID -end - -function DATABASE:GetCountryFromClientTemplate( ClientName ) - return self.Templates.ClientsByName[ClientName].CountryID -end - ---- Airbase - -function DATABASE:GetCoalitionFromAirbase( AirbaseName ) - return self.AIRBASES[AirbaseName]:GetCoalition() -end - -function DATABASE:GetCategoryFromAirbase( AirbaseName ) - return self.AIRBASES[AirbaseName]:GetCategory() -end - - - ---- Private method that registers all alive players in the mission. --- @param #DATABASE self --- @return #DATABASE self -function DATABASE:_RegisterPlayers() - - local CoalitionsData = { AlivePlayersRed = coalition.getPlayers( coalition.side.RED ), AlivePlayersBlue = coalition.getPlayers( coalition.side.BLUE ) } - for CoalitionId, CoalitionData in pairs( CoalitionsData ) do - for UnitId, UnitData in pairs( CoalitionData ) do - self:T3( { "UnitData:", UnitData } ) - if UnitData and UnitData:isExist() then - local UnitName = UnitData:getName() - local PlayerName = UnitData:getPlayerName() - if not self.PLAYERS[PlayerName] then - self:E( { "Add player for unit:", UnitName, PlayerName } ) - self:AddPlayer( UnitName, PlayerName ) - end - end - end - end - - return self -end - - ---- Private method that registers all Groups and Units within in the mission. --- @param #DATABASE self --- @return #DATABASE self -function DATABASE:_RegisterGroupsAndUnits() - - local CoalitionsData = { GroupsRed = coalition.getGroups( coalition.side.RED ), GroupsBlue = coalition.getGroups( coalition.side.BLUE ) } - for CoalitionId, CoalitionData in pairs( CoalitionsData ) do - for DCSGroupId, DCSGroup in pairs( CoalitionData ) do - - if DCSGroup:isExist() then - local DCSGroupName = DCSGroup:getName() - - self:E( { "Register Group:", DCSGroupName } ) - self:AddGroup( DCSGroupName ) - - for DCSUnitId, DCSUnit in pairs( DCSGroup:getUnits() ) do - - local DCSUnitName = DCSUnit:getName() - self:E( { "Register Unit:", DCSUnitName } ) - self:AddUnit( DCSUnitName ) - end - else - self:E( { "Group does not exist: ", DCSGroup } ) - end - - end - end - - return self -end - ---- Private method that registers all Units of skill Client or Player within in the mission. --- @param #DATABASE self --- @return #DATABASE self -function DATABASE:_RegisterClients() - - for ClientName, ClientTemplate in pairs( self.Templates.ClientsByName ) do - self:E( { "Register Client:", ClientName } ) - self:AddClient( ClientName ) - end - - return self -end - ---- @param #DATABASE self -function DATABASE:_RegisterStatics() - - local CoalitionsData = { GroupsRed = coalition.getStaticObjects( coalition.side.RED ), GroupsBlue = coalition.getStaticObjects( coalition.side.BLUE ) } - for CoalitionId, CoalitionData in pairs( CoalitionsData ) do - for DCSStaticId, DCSStatic in pairs( CoalitionData ) do - - if DCSStatic:isExist() then - local DCSStaticName = DCSStatic:getName() - - self:E( { "Register Static:", DCSStaticName } ) - self:AddStatic( DCSStaticName ) - else - self:E( { "Static does not exist: ", DCSStatic } ) - end - end - end - - return self -end - ---- @param #DATABASE self -function DATABASE:_RegisterAirbases() - - local CoalitionsData = { AirbasesRed = coalition.getAirbases( coalition.side.RED ), AirbasesBlue = coalition.getAirbases( coalition.side.BLUE ), AirbasesNeutral = coalition.getAirbases( coalition.side.NEUTRAL ) } - for CoalitionId, CoalitionData in pairs( CoalitionsData ) do - for DCSAirbaseId, DCSAirbase in pairs( CoalitionData ) do - - local DCSAirbaseName = DCSAirbase:getName() - - self:E( { "Register Airbase:", DCSAirbaseName } ) - self:AddAirbase( DCSAirbaseName ) - end - end - - return self -end - - ---- Events - ---- Handles the OnBirth event for the alive units set. --- @param #DATABASE self --- @param Event#EVENTDATA Event -function DATABASE:_EventOnBirth( Event ) - self:F2( { Event } ) - - if Event.IniDCSUnit then - self:AddUnit( Event.IniDCSUnitName ) - self:AddGroup( Event.IniDCSGroupName ) - self:_EventOnPlayerEnterUnit( Event ) - end -end - - ---- Handles the OnDead or OnCrash event for alive units set. --- @param #DATABASE self --- @param Event#EVENTDATA Event -function DATABASE:_EventOnDeadOrCrash( Event ) - self:F2( { Event } ) - - if Event.IniDCSUnit then - if self.UNITS[Event.IniDCSUnitName] then - self:DeleteUnit( Event.IniDCSUnitName ) - -- add logic to correctly remove a group once all units are destroyed... - end - end -end - - ---- Handles the OnPlayerEnterUnit event to fill the active players table (with the unit filter applied). --- @param #DATABASE self --- @param Event#EVENTDATA Event -function DATABASE:_EventOnPlayerEnterUnit( Event ) - self:F2( { Event } ) - - if Event.IniUnit then - local PlayerName = Event.IniUnit:GetPlayerName() - if not self.PLAYERS[PlayerName] then - self:AddPlayer( Event.IniUnitName, PlayerName ) - end - end -end - - ---- Handles the OnPlayerLeaveUnit event to clean the active players table. --- @param #DATABASE self --- @param Event#EVENTDATA Event -function DATABASE:_EventOnPlayerLeaveUnit( Event ) - self:F2( { Event } ) - - if Event.IniUnit then - local PlayerName = Event.IniUnit:GetPlayerName() - if self.PLAYERS[PlayerName] then - self:DeletePlayer( PlayerName ) - end - end -end - ---- Iterators - ---- Iterate the DATABASE and call an iterator function for the given set, providing the Object for each element within the set and optional parameters. --- @param #DATABASE self --- @param #function IteratorFunction The function that will be called when there is an alive player in the database. --- @return #DATABASE self -function DATABASE:ForEach( IteratorFunction, FinalizeFunction, arg, Set ) - self:F2( arg ) - - local function CoRoutine() - local Count = 0 - for ObjectID, Object in pairs( Set ) do - self:T2( Object ) - IteratorFunction( Object, unpack( arg ) ) - Count = Count + 1 --- if Count % 100 == 0 then --- coroutine.yield( false ) --- end - end - return true - end - --- local co = coroutine.create( CoRoutine ) - local co = CoRoutine - - local function Schedule() - --- local status, res = coroutine.resume( co ) - local status, res = co() - self:T3( { status, res } ) - - if status == false then - error( res ) - end - if res == false then - return true -- resume next time the loop - end - if FinalizeFunction then - FinalizeFunction( unpack( arg ) ) - end - return false - end - - local Scheduler = SCHEDULER:New( self, Schedule, {}, 0.001, 0.001, 0 ) - - return self -end - - ---- Iterate the DATABASE and call an iterator function for each **alive** UNIT, providing the UNIT and optional parameters. --- @param #DATABASE self --- @param #function IteratorFunction The function that will be called when there is an alive UNIT in the database. The function needs to accept a UNIT parameter. --- @return #DATABASE self -function DATABASE:ForEachUnit( IteratorFunction, FinalizeFunction, ... ) - self:F2( arg ) - - self:ForEach( IteratorFunction, FinalizeFunction, arg, self.UNITS ) - - return self -end - ---- Iterate the DATABASE and call an iterator function for each **alive** GROUP, providing the GROUP and optional parameters. --- @param #DATABASE self --- @param #function IteratorFunction The function that will be called when there is an alive GROUP in the database. The function needs to accept a GROUP parameter. --- @return #DATABASE self -function DATABASE:ForEachGroup( IteratorFunction, ... ) - self:F2( arg ) - - self:ForEach( IteratorFunction, arg, self.GROUPS ) - - return self -end - - ---- Iterate the DATABASE and call an iterator function for each **ALIVE** player, providing the player name and optional parameters. --- @param #DATABASE self --- @param #function IteratorFunction The function that will be called when there is an player in the database. The function needs to accept the player name. --- @return #DATABASE self -function DATABASE:ForEachPlayer( IteratorFunction, ... ) - self:F2( arg ) - - self:ForEach( IteratorFunction, arg, self.PLAYERS ) - - return self -end - - ---- Iterate the DATABASE and call an iterator function for each player who has joined the mission, providing the Unit of the player and optional parameters. --- @param #DATABASE self --- @param #function IteratorFunction The function that will be called when there is was a player in the database. The function needs to accept a UNIT parameter. --- @return #DATABASE self -function DATABASE:ForEachPlayerJoined( IteratorFunction, ... ) - self:F2( arg ) - - self:ForEach( IteratorFunction, arg, self.PLAYERSJOINED ) - - return self -end - ---- Iterate the DATABASE and call an iterator function for each CLIENT, providing the CLIENT to the function and optional parameters. --- @param #DATABASE self --- @param #function IteratorFunction The function that will be called when there is an alive player in the database. The function needs to accept a CLIENT parameter. --- @return #DATABASE self -function DATABASE:ForEachClient( IteratorFunction, ... ) - self:F2( arg ) - - self:ForEach( IteratorFunction, arg, self.CLIENTS ) - - return self -end - - -function DATABASE:_RegisterTemplates() - self:F2() - - self.Navpoints = {} - self.UNITS = {} - --Build routines.db.units and self.Navpoints - for CoalitionName, coa_data in pairs(env.mission.coalition) do - - if (CoalitionName == 'red' or CoalitionName == 'blue') and type(coa_data) == 'table' then - --self.Units[coa_name] = {} - - ---------------------------------------------- - -- build nav points DB - self.Navpoints[CoalitionName] = {} - if coa_data.nav_points then --navpoints - for nav_ind, nav_data in pairs(coa_data.nav_points) do - - if type(nav_data) == 'table' then - self.Navpoints[CoalitionName][nav_ind] = routines.utils.deepCopy(nav_data) - - self.Navpoints[CoalitionName][nav_ind]['name'] = nav_data.callsignStr -- name is a little bit more self-explanatory. - self.Navpoints[CoalitionName][nav_ind]['point'] = {} -- point is used by SSE, support it. - self.Navpoints[CoalitionName][nav_ind]['point']['x'] = nav_data.x - self.Navpoints[CoalitionName][nav_ind]['point']['y'] = 0 - self.Navpoints[CoalitionName][nav_ind]['point']['z'] = nav_data.y - end - end - end - ------------------------------------------------- - if coa_data.country then --there is a country table - for cntry_id, cntry_data in pairs(coa_data.country) do - - local CountryName = string.upper(cntry_data.name) - --self.Units[coa_name][countryName] = {} - --self.Units[coa_name][countryName]["countryId"] = cntry_data.id - - if type(cntry_data) == 'table' then --just making sure - - for obj_type_name, obj_type_data in pairs(cntry_data) do - - if obj_type_name == "helicopter" or obj_type_name == "ship" or obj_type_name == "plane" or obj_type_name == "vehicle" or obj_type_name == "static" then --should be an unncessary check - - local CategoryName = obj_type_name - - if ((type(obj_type_data) == 'table') and obj_type_data.group and (type(obj_type_data.group) == 'table') and (#obj_type_data.group > 0)) then --there's a group! - - --self.Units[coa_name][countryName][category] = {} - - for group_num, GroupTemplate in pairs(obj_type_data.group) do - - if GroupTemplate and GroupTemplate.units and type(GroupTemplate.units) == 'table' then --making sure again- this is a valid group - self:_RegisterTemplate( - GroupTemplate, - coalition.side[string.upper(CoalitionName)], - _DATABASECategory[string.lower(CategoryName)], - country.id[string.upper(CountryName)] - ) - end --if GroupTemplate and GroupTemplate.units then - end --for group_num, GroupTemplate in pairs(obj_type_data.group) do - end --if ((type(obj_type_data) == 'table') and obj_type_data.group and (type(obj_type_data.group) == 'table') and (#obj_type_data.group > 0)) then - end --if obj_type_name == "helicopter" or obj_type_name == "ship" or obj_type_name == "plane" or obj_type_name == "vehicle" or obj_type_name == "static" then - end --for obj_type_name, obj_type_data in pairs(cntry_data) do - end --if type(cntry_data) == 'table' then - end --for cntry_id, cntry_data in pairs(coa_data.country) do - end --if coa_data.country then --there is a country table - end --if coa_name == 'red' or coa_name == 'blue' and type(coa_data) == 'table' then - end --for coa_name, coa_data in pairs(mission.coalition) do - - return self -end - - - - ---- This module contains the SET classes. --- --- === --- --- 1) @{Set#SET_BASE} class, extends @{Base#BASE} --- ============================================== --- The @{Set#SET_BASE} class defines the core functions that define a collection of objects. --- A SET provides iterators to iterate the SET, but will **temporarily** yield the ForEach interator loop at defined **"intervals"** to the mail simulator loop. --- In this way, large loops can be done while not blocking the simulator main processing loop. --- The default **"yield interval"** is after 10 objects processed. --- The default **"time interval"** is after 0.001 seconds. --- --- 1.1) Add or remove objects from the SET --- --------------------------------------- --- Some key core functions are @{Set#SET_BASE.Add} and @{Set#SET_BASE.Remove} to add or remove objects from the SET in your logic. --- --- 1.2) Define the SET iterator **"yield interval"** and the **"time interval"** --- ----------------------------------------------------------------------------- --- Modify the iterator intervals with the @{Set#SET_BASE.SetInteratorIntervals} method. --- You can set the **"yield interval"**, and the **"time interval"**. (See above). --- --- === --- --- 2) @{Set#SET_GROUP} class, extends @{Set#SET_BASE} --- ================================================== --- Mission designers can use the @{Set#SET_GROUP} class to build sets of groups belonging to certain: --- --- * Coalitions --- * Categories --- * Countries --- * Starting with certain prefix strings. --- --- 2.1) SET_GROUP construction method: --- ----------------------------------- --- Create a new SET_GROUP object with the @{#SET_GROUP.New} method: --- --- * @{#SET_GROUP.New}: Creates a new SET_GROUP object. --- --- 2.2) Add or Remove GROUP(s) from SET_GROUP: --- ------------------------------------------- --- GROUPS can be added and removed using the @{Set#SET_GROUP.AddGroupsByName} and @{Set#SET_GROUP.RemoveGroupsByName} respectively. --- These methods take a single GROUP name or an array of GROUP names to be added or removed from SET_GROUP. --- --- 2.3) SET_GROUP filter criteria: --- ------------------------------- --- You can set filter criteria to define the set of groups within the SET_GROUP. --- Filter criteria are defined by: --- --- * @{#SET_GROUP.FilterCoalitions}: Builds the SET_GROUP with the groups belonging to the coalition(s). --- * @{#SET_GROUP.FilterCategories}: Builds the SET_GROUP with the groups belonging to the category(ies). --- * @{#SET_GROUP.FilterCountries}: Builds the SET_GROUP with the gruops belonging to the country(ies). --- * @{#SET_GROUP.FilterPrefixes}: Builds the SET_GROUP with the groups starting with the same prefix string(s). --- --- Once the filter criteria have been set for the SET_GROUP, you can start filtering using: --- --- * @{#SET_GROUP.FilterStart}: Starts the filtering of the groups within the SET_GROUP and add or remove GROUP objects **dynamically**. --- --- Planned filter criteria within development are (so these are not yet available): --- --- * @{#SET_GROUP.FilterZones}: Builds the SET_GROUP with the groups within a @{Zone#ZONE}. --- --- 2.4) SET_GROUP iterators: --- ------------------------- --- Once the filters have been defined and the SET_GROUP has been built, you can iterate the SET_GROUP with the available iterator methods. --- The iterator methods will walk the SET_GROUP set, and call for each element within the set a function that you provide. --- The following iterator methods are currently available within the SET_GROUP: --- --- * @{#SET_GROUP.ForEachGroup}: Calls a function for each alive group it finds within the SET_GROUP. --- * @{#SET_GROUP.ForEachGroupCompletelyInZone}: Iterate the SET_GROUP and call an iterator function for each **alive** GROUP presence completely in a @{Zone}, providing the GROUP and optional parameters to the called function. --- * @{#SET_GROUP.ForEachGroupPartlyInZone}: Iterate the SET_GROUP and call an iterator function for each **alive** GROUP presence partly in a @{Zone}, providing the GROUP and optional parameters to the called function. --- * @{#SET_GROUP.ForEachGroupNotInZone}: Iterate the SET_GROUP and call an iterator function for each **alive** GROUP presence not in a @{Zone}, providing the GROUP and optional parameters to the called function. --- --- ==== --- --- 3) @{Set#SET_UNIT} class, extends @{Set#SET_BASE} --- =================================================== --- Mission designers can use the @{Set#SET_UNIT} class to build sets of units belonging to certain: --- --- * Coalitions --- * Categories --- * Countries --- * Unit types --- * Starting with certain prefix strings. --- --- 3.1) SET_UNIT construction method: --- ---------------------------------- --- Create a new SET_UNIT object with the @{#SET_UNIT.New} method: --- --- * @{#SET_UNIT.New}: Creates a new SET_UNIT object. --- --- 3.2) Add or Remove UNIT(s) from SET_UNIT: --- ----------------------------------------- --- UNITs can be added and removed using the @{Set#SET_UNIT.AddUnitsByName} and @{Set#SET_UNIT.RemoveUnitsByName} respectively. --- These methods take a single UNIT name or an array of UNIT names to be added or removed from SET_UNIT. --- --- 3.3) SET_UNIT filter criteria: --- ------------------------------ --- You can set filter criteria to define the set of units within the SET_UNIT. --- Filter criteria are defined by: --- --- * @{#SET_UNIT.FilterCoalitions}: Builds the SET_UNIT with the units belonging to the coalition(s). --- * @{#SET_UNIT.FilterCategories}: Builds the SET_UNIT with the units belonging to the category(ies). --- * @{#SET_UNIT.FilterTypes}: Builds the SET_UNIT with the units belonging to the unit type(s). --- * @{#SET_UNIT.FilterCountries}: Builds the SET_UNIT with the units belonging to the country(ies). --- * @{#SET_UNIT.FilterPrefixes}: Builds the SET_UNIT with the units starting with the same prefix string(s). --- --- Once the filter criteria have been set for the SET_UNIT, you can start filtering using: --- --- * @{#SET_UNIT.FilterStart}: Starts the filtering of the units within the SET_UNIT. --- --- Planned filter criteria within development are (so these are not yet available): --- --- * @{#SET_UNIT.FilterZones}: Builds the SET_UNIT with the units within a @{Zone#ZONE}. --- --- 3.4) SET_UNIT iterators: --- ------------------------ --- Once the filters have been defined and the SET_UNIT has been built, you can iterate the SET_UNIT with the available iterator methods. --- The iterator methods will walk the SET_UNIT set, and call for each element within the set a function that you provide. --- The following iterator methods are currently available within the SET_UNIT: --- --- * @{#SET_UNIT.ForEachUnit}: Calls a function for each alive unit it finds within the SET_UNIT. --- * @{#SET_GROUP.ForEachGroupCompletelyInZone}: Iterate the SET_GROUP and call an iterator function for each **alive** GROUP presence completely in a @{Zone}, providing the GROUP and optional parameters to the called function. --- * @{#SET_GROUP.ForEachGroupNotInZone}: Iterate the SET_GROUP and call an iterator function for each **alive** GROUP presence not in a @{Zone}, providing the GROUP and optional parameters to the called function. --- --- Planned iterators methods in development are (so these are not yet available): --- --- * @{#SET_UNIT.ForEachUnitInUnit}: Calls a function for each unit contained within the SET_UNIT. --- * @{#SET_UNIT.ForEachUnitCompletelyInZone}: Iterate and call an iterator function for each **alive** UNIT presence completely in a @{Zone}, providing the UNIT and optional parameters to the called function. --- * @{#SET_UNIT.ForEachUnitNotInZone}: Iterate and call an iterator function for each **alive** UNIT presence not in a @{Zone}, providing the UNIT and optional parameters to the called function. --- --- === --- --- 4) @{Set#SET_CLIENT} class, extends @{Set#SET_BASE} --- =================================================== --- Mission designers can use the @{Set#SET_CLIENT} class to build sets of units belonging to certain: --- --- * Coalitions --- * Categories --- * Countries --- * Client types --- * Starting with certain prefix strings. --- --- 4.1) SET_CLIENT construction method: --- ---------------------------------- --- Create a new SET_CLIENT object with the @{#SET_CLIENT.New} method: --- --- * @{#SET_CLIENT.New}: Creates a new SET_CLIENT object. --- --- 4.2) Add or Remove CLIENT(s) from SET_CLIENT: --- ----------------------------------------- --- CLIENTs can be added and removed using the @{Set#SET_CLIENT.AddClientsByName} and @{Set#SET_CLIENT.RemoveClientsByName} respectively. --- These methods take a single CLIENT name or an array of CLIENT names to be added or removed from SET_CLIENT. --- --- 4.3) SET_CLIENT filter criteria: --- ------------------------------ --- You can set filter criteria to define the set of clients within the SET_CLIENT. --- Filter criteria are defined by: --- --- * @{#SET_CLIENT.FilterCoalitions}: Builds the SET_CLIENT with the clients belonging to the coalition(s). --- * @{#SET_CLIENT.FilterCategories}: Builds the SET_CLIENT with the clients belonging to the category(ies). --- * @{#SET_CLIENT.FilterTypes}: Builds the SET_CLIENT with the clients belonging to the client type(s). --- * @{#SET_CLIENT.FilterCountries}: Builds the SET_CLIENT with the clients belonging to the country(ies). --- * @{#SET_CLIENT.FilterPrefixes}: Builds the SET_CLIENT with the clients starting with the same prefix string(s). --- --- Once the filter criteria have been set for the SET_CLIENT, you can start filtering using: --- --- * @{#SET_CLIENT.FilterStart}: Starts the filtering of the clients within the SET_CLIENT. --- --- Planned filter criteria within development are (so these are not yet available): --- --- * @{#SET_CLIENT.FilterZones}: Builds the SET_CLIENT with the clients within a @{Zone#ZONE}. --- --- 4.4) SET_CLIENT iterators: --- ------------------------ --- Once the filters have been defined and the SET_CLIENT has been built, you can iterate the SET_CLIENT with the available iterator methods. --- The iterator methods will walk the SET_CLIENT set, and call for each element within the set a function that you provide. --- The following iterator methods are currently available within the SET_CLIENT: --- --- * @{#SET_CLIENT.ForEachClient}: Calls a function for each alive client it finds within the SET_CLIENT. --- --- ==== --- --- 5) @{Set#SET_AIRBASE} class, extends @{Set#SET_BASE} --- ==================================================== --- Mission designers can use the @{Set#SET_AIRBASE} class to build sets of airbases optionally belonging to certain: --- --- * Coalitions --- --- 5.1) SET_AIRBASE construction --- ----------------------------- --- Create a new SET_AIRBASE object with the @{#SET_AIRBASE.New} method: --- --- * @{#SET_AIRBASE.New}: Creates a new SET_AIRBASE object. --- --- 5.2) Add or Remove AIRBASEs from SET_AIRBASE --- -------------------------------------------- --- AIRBASEs can be added and removed using the @{Set#SET_AIRBASE.AddAirbasesByName} and @{Set#SET_AIRBASE.RemoveAirbasesByName} respectively. --- These methods take a single AIRBASE name or an array of AIRBASE names to be added or removed from SET_AIRBASE. --- --- 5.3) SET_AIRBASE filter criteria --- -------------------------------- --- You can set filter criteria to define the set of clients within the SET_AIRBASE. --- Filter criteria are defined by: --- --- * @{#SET_AIRBASE.FilterCoalitions}: Builds the SET_AIRBASE with the airbases belonging to the coalition(s). --- --- Once the filter criteria have been set for the SET_AIRBASE, you can start filtering using: --- --- * @{#SET_AIRBASE.FilterStart}: Starts the filtering of the airbases within the SET_AIRBASE. --- --- 5.4) SET_AIRBASE iterators: --- --------------------------- --- Once the filters have been defined and the SET_AIRBASE has been built, you can iterate the SET_AIRBASE with the available iterator methods. --- The iterator methods will walk the SET_AIRBASE set, and call for each airbase within the set a function that you provide. --- The following iterator methods are currently available within the SET_AIRBASE: --- --- * @{#SET_AIRBASE.ForEachAirbase}: Calls a function for each airbase it finds within the SET_AIRBASE. --- --- ==== --- --- @module Set --- @author FlightControl - - ---- SET_BASE class --- @type SET_BASE --- @extends Base#BASE -SET_BASE = { - ClassName = "SET_BASE", - Set = {}, -} - ---- Creates a new SET_BASE object, building a set of units belonging to a coalitions, categories, countries, types or with defined prefix names. --- @param #SET_BASE self --- @return #SET_BASE --- @usage --- -- Define a new SET_BASE Object. This DBObject will contain a reference to all Group and Unit Templates defined within the ME and the DCSRTE. --- DBObject = SET_BASE:New() -function SET_BASE:New( Database ) - - -- Inherits from BASE - local self = BASE:Inherit( self, BASE:New() ) - - self.Database = Database - - self.YieldInterval = 10 - self.TimeInterval = 0.001 - - return self -end - ---- Finds an @{Base#BASE} object based on the object Name. --- @param #SET_BASE self --- @param #string ObjectName --- @return Base#BASE The Object found. -function SET_BASE:_Find( ObjectName ) - - local ObjectFound = self.Set[ObjectName] - return ObjectFound -end - - ---- Gets the Set. --- @param #SET_BASE self --- @return #SET_BASE self -function SET_BASE:GetSet() - self:F2() - - return self.Set -end - ---- Adds a @{Base#BASE} object in the @{Set#SET_BASE}, using the Object Name as the index. --- @param #SET_BASE self --- @param #string ObjectName --- @param Base#BASE Object --- @return Base#BASE The added BASE Object. -function SET_BASE:Add( ObjectName, Object ) - - self.Set[ObjectName] = Object -end - ---- Removes a @{Base#BASE} object from the @{Set#SET_BASE} and derived classes, based on the Object Name. --- @param #SET_BASE self --- @param #string ObjectName -function SET_BASE:Remove( ObjectName ) - - self.Set[ObjectName] = nil -end - ---- Define the SET iterator **"yield interval"** and the **"time interval"**. --- @param #SET_BASE self --- @param #number YieldInterval Sets the frequency when the iterator loop will yield after the number of objects processed. The default frequency is 10 objects processed. --- @param #number TimeInterval Sets the time in seconds when the main logic will resume the iterator loop. The default time is 0.001 seconds. --- @return #SET_BASE self -function SET_BASE:SetIteratorIntervals( YieldInterval, TimeInterval ) - - self.YieldInterval = YieldInterval - self.TimeInterval = TimeInterval - - return self -end - - - ---- Starts the filtering for the defined collection. --- @param #SET_BASE self --- @return #SET_BASE self -function SET_BASE:_FilterStart() - - for ObjectName, Object in pairs( self.Database ) do - - if self:IsIncludeObject( Object ) then - self:E( { "Adding Object:", ObjectName } ) - self:Add( ObjectName, Object ) - end - end - - _EVENTDISPATCHER:OnBirth( self._EventOnBirth, self ) - _EVENTDISPATCHER:OnDead( self._EventOnDeadOrCrash, self ) - _EVENTDISPATCHER:OnCrash( self._EventOnDeadOrCrash, self ) - - -- Follow alive players and clients --- _EVENTDISPATCHER:OnPlayerEnterUnit( self._EventOnPlayerEnterUnit, self ) --- _EVENTDISPATCHER:OnPlayerLeaveUnit( self._EventOnPlayerLeaveUnit, self ) - - - return self -end - ---- Iterate the SET_BASE while identifying the nearest object from a @{Point#POINT_VEC2}. --- @param #SET_BASE self --- @param Point#POINT_VEC2 PointVec2 A @{Point#POINT_VEC2} object from where to evaluate the closest object in the set. --- @return Base#BASE The closest object. -function SET_BASE:FindNearestObjectFromPointVec2( PointVec2 ) - self:F2( PointVec2 ) - - local NearestObject = nil - local ClosestDistance = nil - - for ObjectID, ObjectData in pairs( self.Set ) do - if NearestObject == nil then - NearestObject = ObjectData - ClosestDistance = PointVec2:DistanceFromVec2( ObjectData:GetPointVec2() ) - else - local Distance = PointVec2:DistanceFromVec2( ObjectData:GetPointVec2() ) - if Distance < ClosestDistance then - NearestObject = ObjectData - ClosestDistance = Distance - end - end - end - - return NearestObject -end - - - ------ Private method that registers all alive players in the mission. ----- @param #SET_BASE self ----- @return #SET_BASE self ---function SET_BASE:_RegisterPlayers() --- --- local CoalitionsData = { AlivePlayersRed = coalition.getPlayers( coalition.side.RED ), AlivePlayersBlue = coalition.getPlayers( coalition.side.BLUE ) } --- for CoalitionId, CoalitionData in pairs( CoalitionsData ) do --- for UnitId, UnitData in pairs( CoalitionData ) do --- self:T3( { "UnitData:", UnitData } ) --- if UnitData and UnitData:isExist() then --- local UnitName = UnitData:getName() --- if not self.PlayersAlive[UnitName] then --- self:E( { "Add player for unit:", UnitName, UnitData:getPlayerName() } ) --- self.PlayersAlive[UnitName] = UnitData:getPlayerName() --- end --- end --- end --- end --- --- return self ---end - ---- Events - ---- Handles the OnBirth event for the Set. --- @param #SET_BASE self --- @param Event#EVENTDATA Event -function SET_BASE:_EventOnBirth( Event ) - self:F3( { Event } ) - - if Event.IniDCSUnit then - local ObjectName, Object = self:AddInDatabase( Event ) - self:T3( ObjectName, Object ) - if self:IsIncludeObject( Object ) then - self:Add( ObjectName, Object ) - --self:_EventOnPlayerEnterUnit( Event ) - end - end -end - ---- Handles the OnDead or OnCrash event for alive units set. --- @param #SET_BASE self --- @param Event#EVENTDATA Event -function SET_BASE:_EventOnDeadOrCrash( Event ) - self:F3( { Event } ) - - if Event.IniDCSUnit then - local ObjectName, Object = self:FindInDatabase( Event ) - if ObjectName and Object then - self:Remove( ObjectName ) - end - end -end - ------ Handles the OnPlayerEnterUnit event to fill the active players table (with the unit filter applied). ----- @param #SET_BASE self ----- @param Event#EVENTDATA Event ---function SET_BASE:_EventOnPlayerEnterUnit( Event ) --- self:F3( { Event } ) --- --- if Event.IniDCSUnit then --- if self:IsIncludeObject( Event.IniDCSUnit ) then --- if not self.PlayersAlive[Event.IniDCSUnitName] then --- self:E( { "Add player for unit:", Event.IniDCSUnitName, Event.IniDCSUnit:getPlayerName() } ) --- self.PlayersAlive[Event.IniDCSUnitName] = Event.IniDCSUnit:getPlayerName() --- self.ClientsAlive[Event.IniDCSUnitName] = _DATABASE.Clients[ Event.IniDCSUnitName ] --- end --- end --- end ---end --- ------ Handles the OnPlayerLeaveUnit event to clean the active players table. ----- @param #SET_BASE self ----- @param Event#EVENTDATA Event ---function SET_BASE:_EventOnPlayerLeaveUnit( Event ) --- self:F3( { Event } ) --- --- if Event.IniDCSUnit then --- if self:IsIncludeObject( Event.IniDCSUnit ) then --- if self.PlayersAlive[Event.IniDCSUnitName] then --- self:E( { "Cleaning player for unit:", Event.IniDCSUnitName, Event.IniDCSUnit:getPlayerName() } ) --- self.PlayersAlive[Event.IniDCSUnitName] = nil --- self.ClientsAlive[Event.IniDCSUnitName] = nil --- end --- end --- end ---end - --- Iterators - ---- Iterate the SET_BASE and derived classes and call an iterator function for the given SET_BASE, providing the Object for each element within the set and optional parameters. --- @param #SET_BASE self --- @param #function IteratorFunction The function that will be called. --- @return #SET_BASE self -function SET_BASE:ForEach( IteratorFunction, arg, Set, Function, FunctionArguments ) - self:F3( arg ) - - local function CoRoutine() - local Count = 0 - for ObjectID, Object in pairs( Set ) do - self:T3( Object ) - if Function then - if Function( unpack( FunctionArguments ), Object ) == true then - IteratorFunction( Object, unpack( arg ) ) - end - else - IteratorFunction( Object, unpack( arg ) ) - end - Count = Count + 1 --- if Count % self.YieldInterval == 0 then --- coroutine.yield( false ) --- end - end - return true - end - --- local co = coroutine.create( CoRoutine ) - local co = CoRoutine - - local function Schedule() - --- local status, res = coroutine.resume( co ) - local status, res = co() - self:T3( { status, res } ) - - if status == false then - error( res ) - end - if res == false then - return true -- resume next time the loop - end - - return false - end - - local Scheduler = SCHEDULER:New( self, Schedule, {}, self.TimeInterval, self.TimeInterval, 0 ) - - return self -end - - ------ Iterate the SET_BASE and call an interator function for each **alive** unit, providing the Unit and optional parameters. ----- @param #SET_BASE self ----- @param #function IteratorFunction The function that will be called when there is an alive unit in the SET_BASE. The function needs to accept a UNIT parameter. ----- @return #SET_BASE self ---function SET_BASE:ForEachDCSUnitAlive( IteratorFunction, ... ) --- self:F3( arg ) --- --- self:ForEach( IteratorFunction, arg, self.DCSUnitsAlive ) --- --- return self ---end --- ------ Iterate the SET_BASE and call an interator function for each **alive** player, providing the Unit of the player and optional parameters. ----- @param #SET_BASE self ----- @param #function IteratorFunction The function that will be called when there is an alive player in the SET_BASE. The function needs to accept a UNIT parameter. ----- @return #SET_BASE self ---function SET_BASE:ForEachPlayer( IteratorFunction, ... ) --- self:F3( arg ) --- --- self:ForEach( IteratorFunction, arg, self.PlayersAlive ) --- --- return self ---end --- --- ------ Iterate the SET_BASE and call an interator function for each client, providing the Client to the function and optional parameters. ----- @param #SET_BASE self ----- @param #function IteratorFunction The function that will be called when there is an alive player in the SET_BASE. The function needs to accept a CLIENT parameter. ----- @return #SET_BASE self ---function SET_BASE:ForEachClient( IteratorFunction, ... ) --- self:F3( arg ) --- --- self:ForEach( IteratorFunction, arg, self.Clients ) --- --- return self ---end - - ---- Decides whether to include the Object --- @param #SET_BASE self --- @param #table Object --- @return #SET_BASE self -function SET_BASE:IsIncludeObject( Object ) - self:F3( Object ) - - return true -end - ---- Flushes the current SET_BASE contents in the log ... (for debugging reasons). --- @param #SET_BASE self --- @return #string A string with the names of the objects. -function SET_BASE:Flush() - self:F3() - - local ObjectNames = "" - for ObjectName, Object in pairs( self.Set ) do - ObjectNames = ObjectNames .. ObjectName .. ", " - end - self:T( { "Objects in Set:", ObjectNames } ) - - return ObjectNames -end - --- SET_GROUP - ---- SET_GROUP class --- @type SET_GROUP --- @extends Set#SET_BASE -SET_GROUP = { - ClassName = "SET_GROUP", - Filter = { - Coalitions = nil, - Categories = nil, - Countries = nil, - GroupPrefixes = nil, - }, - FilterMeta = { - Coalitions = { - red = coalition.side.RED, - blue = coalition.side.BLUE, - neutral = coalition.side.NEUTRAL, - }, - Categories = { - plane = Group.Category.AIRPLANE, - helicopter = Group.Category.HELICOPTER, - ground = Group.Category.GROUND_UNIT, - ship = Group.Category.SHIP, - structure = Group.Category.STRUCTURE, - }, - }, -} - - ---- Creates a new SET_GROUP object, building a set of groups belonging to a coalitions, categories, countries, types or with defined prefix names. --- @param #SET_GROUP self --- @return #SET_GROUP --- @usage --- -- Define a new SET_GROUP Object. This DBObject will contain a reference to all alive GROUPS. --- DBObject = SET_GROUP:New() -function SET_GROUP:New() - - -- Inherits from BASE - local self = BASE:Inherit( self, SET_BASE:New( _DATABASE.GROUPS ) ) - - return self -end - ---- Add GROUP(s) to SET_GROUP. --- @param Set#SET_GROUP self --- @param #string AddGroupNames A single name or an array of GROUP names. --- @return self -function SET_GROUP:AddGroupsByName( AddGroupNames ) - - local AddGroupNamesArray = ( type( AddGroupNames ) == "table" ) and AddGroupNames or { AddGroupNames } - - for AddGroupID, AddGroupName in pairs( AddGroupNamesArray ) do - self:Add( AddGroupName, GROUP:FindByName( AddGroupName ) ) - end - - return self -end - ---- Remove GROUP(s) from SET_GROUP. --- @param Set#SET_GROUP self --- @param Group#GROUP RemoveGroupNames A single name or an array of GROUP names. --- @return self -function SET_GROUP:RemoveGroupsByName( RemoveGroupNames ) - - local RemoveGroupNamesArray = ( type( RemoveGroupNames ) == "table" ) and RemoveGroupNames or { RemoveGroupNames } - - for RemoveGroupID, RemoveGroupName in pairs( RemoveGroupNamesArray ) do - self:Remove( RemoveGroupName.GroupName ) - end - - return self -end - - - - ---- Finds a Group based on the Group Name. --- @param #SET_GROUP self --- @param #string GroupName --- @return Group#GROUP The found Group. -function SET_GROUP:FindGroup( GroupName ) - - local GroupFound = self.Set[GroupName] - return GroupFound -end - - - ---- Builds a set of groups of coalitions. --- Possible current coalitions are red, blue and neutral. --- @param #SET_GROUP self --- @param #string Coalitions Can take the following values: "red", "blue", "neutral". --- @return #SET_GROUP self -function SET_GROUP:FilterCoalitions( Coalitions ) - if not self.Filter.Coalitions then - self.Filter.Coalitions = {} - end - if type( Coalitions ) ~= "table" then - Coalitions = { Coalitions } - end - for CoalitionID, Coalition in pairs( Coalitions ) do - self.Filter.Coalitions[Coalition] = Coalition - end - return self -end - - ---- Builds a set of groups out of categories. --- Possible current categories are plane, helicopter, ground, ship. --- @param #SET_GROUP self --- @param #string Categories Can take the following values: "plane", "helicopter", "ground", "ship". --- @return #SET_GROUP self -function SET_GROUP:FilterCategories( Categories ) - if not self.Filter.Categories then - self.Filter.Categories = {} - end - if type( Categories ) ~= "table" then - Categories = { Categories } - end - for CategoryID, Category in pairs( Categories ) do - self.Filter.Categories[Category] = Category - end - return self -end - ---- Builds a set of groups of defined countries. --- Possible current countries are those known within DCS world. --- @param #SET_GROUP self --- @param #string Countries Can take those country strings known within DCS world. --- @return #SET_GROUP self -function SET_GROUP:FilterCountries( Countries ) - if not self.Filter.Countries then - self.Filter.Countries = {} - end - if type( Countries ) ~= "table" then - Countries = { Countries } - end - for CountryID, Country in pairs( Countries ) do - self.Filter.Countries[Country] = Country - end - return self -end - - ---- Builds a set of groups of defined GROUP prefixes. --- All the groups starting with the given prefixes will be included within the set. --- @param #SET_GROUP self --- @param #string Prefixes The prefix of which the group name starts with. --- @return #SET_GROUP self -function SET_GROUP:FilterPrefixes( Prefixes ) - if not self.Filter.GroupPrefixes then - self.Filter.GroupPrefixes = {} - end - if type( Prefixes ) ~= "table" then - Prefixes = { Prefixes } - end - for PrefixID, Prefix in pairs( Prefixes ) do - self.Filter.GroupPrefixes[Prefix] = Prefix - end - return self -end - - ---- Starts the filtering. --- @param #SET_GROUP self --- @return #SET_GROUP self -function SET_GROUP:FilterStart() - - if _DATABASE then - self:_FilterStart() - end - - return self -end - ---- Handles the Database to check on an event (birth) that the Object was added in the Database. --- This is required, because sometimes the _DATABASE birth event gets called later than the SET_BASE birth event! --- @param #SET_GROUP self --- @param Event#EVENTDATA Event --- @return #string The name of the GROUP --- @return #table The GROUP -function SET_GROUP:AddInDatabase( Event ) - self:F3( { Event } ) - - if not self.Database[Event.IniDCSGroupName] then - self.Database[Event.IniDCSGroupName] = GROUP:Register( Event.IniDCSGroupName ) - self:T3( self.Database[Event.IniDCSGroupName] ) - end - - return Event.IniDCSGroupName, self.Database[Event.IniDCSGroupName] -end - ---- Handles the Database to check on any event that Object exists in the Database. --- This is required, because sometimes the _DATABASE event gets called later than the SET_BASE event or vise versa! --- @param #SET_GROUP self --- @param Event#EVENTDATA Event --- @return #string The name of the GROUP --- @return #table The GROUP -function SET_GROUP:FindInDatabase( Event ) - self:F3( { Event } ) - - return Event.IniDCSGroupName, self.Database[Event.IniDCSGroupName] -end - ---- Iterate the SET_GROUP and call an iterator function for each **alive** GROUP, providing the GROUP and optional parameters. --- @param #SET_GROUP self --- @param #function IteratorFunction The function that will be called when there is an alive GROUP in the SET_GROUP. The function needs to accept a GROUP parameter. --- @return #SET_GROUP self -function SET_GROUP:ForEachGroup( IteratorFunction, ... ) - self:F2( arg ) - - self:ForEach( IteratorFunction, arg, self.Set ) - - return self -end - ---- Iterate the SET_GROUP and call an iterator function for each **alive** GROUP presence completely in a @{Zone}, providing the GROUP and optional parameters to the called function. --- @param #SET_GROUP self --- @param Zone#ZONE ZoneObject The Zone to be tested for. --- @param #function IteratorFunction The function that will be called when there is an alive GROUP in the SET_GROUP. The function needs to accept a GROUP parameter. --- @return #SET_GROUP self -function SET_GROUP:ForEachGroupCompletelyInZone( ZoneObject, IteratorFunction, ... ) - self:F2( arg ) - - self:ForEach( IteratorFunction, arg, self.Set, - --- @param Zone#ZONE_BASE ZoneObject - -- @param Group#GROUP GroupObject - function( ZoneObject, GroupObject ) - if GroupObject:IsCompletelyInZone( ZoneObject ) then - return true - else - return false - end - end, { ZoneObject } ) - - return self -end - ---- Iterate the SET_GROUP and call an iterator function for each **alive** GROUP presence partly in a @{Zone}, providing the GROUP and optional parameters to the called function. --- @param #SET_GROUP self --- @param Zone#ZONE ZoneObject The Zone to be tested for. --- @param #function IteratorFunction The function that will be called when there is an alive GROUP in the SET_GROUP. The function needs to accept a GROUP parameter. --- @return #SET_GROUP self -function SET_GROUP:ForEachGroupPartlyInZone( ZoneObject, IteratorFunction, ... ) - self:F2( arg ) - - self:ForEach( IteratorFunction, arg, self.Set, - --- @param Zone#ZONE_BASE ZoneObject - -- @param Group#GROUP GroupObject - function( ZoneObject, GroupObject ) - if GroupObject:IsPartlyInZone( ZoneObject ) then - return true - else - return false - end - end, { ZoneObject } ) - - return self -end - ---- Iterate the SET_GROUP and call an iterator function for each **alive** GROUP presence not in a @{Zone}, providing the GROUP and optional parameters to the called function. --- @param #SET_GROUP self --- @param Zone#ZONE ZoneObject The Zone to be tested for. --- @param #function IteratorFunction The function that will be called when there is an alive GROUP in the SET_GROUP. The function needs to accept a GROUP parameter. --- @return #SET_GROUP self -function SET_GROUP:ForEachGroupNotInZone( ZoneObject, IteratorFunction, ... ) - self:F2( arg ) - - self:ForEach( IteratorFunction, arg, self.Set, - --- @param Zone#ZONE_BASE ZoneObject - -- @param Group#GROUP GroupObject - function( ZoneObject, GroupObject ) - if GroupObject:IsNotInZone( ZoneObject ) then - return true - else - return false - end - end, { ZoneObject } ) - - return self -end - - ------ Iterate the SET_GROUP and call an interator function for each **alive** player, providing the Group of the player and optional parameters. ----- @param #SET_GROUP self ----- @param #function IteratorFunction The function that will be called when there is an alive player in the SET_GROUP. The function needs to accept a GROUP parameter. ----- @return #SET_GROUP self ---function SET_GROUP:ForEachPlayer( IteratorFunction, ... ) --- self:F2( arg ) --- --- self:ForEach( IteratorFunction, arg, self.PlayersAlive ) --- --- return self ---end --- --- ------ Iterate the SET_GROUP and call an interator function for each client, providing the Client to the function and optional parameters. ----- @param #SET_GROUP self ----- @param #function IteratorFunction The function that will be called when there is an alive player in the SET_GROUP. The function needs to accept a CLIENT parameter. ----- @return #SET_GROUP self ---function SET_GROUP:ForEachClient( IteratorFunction, ... ) --- self:F2( arg ) --- --- self:ForEach( IteratorFunction, arg, self.Clients ) --- --- return self ---end - - ---- --- @param #SET_GROUP self --- @param Group#GROUP MooseGroup --- @return #SET_GROUP self -function SET_GROUP:IsIncludeObject( MooseGroup ) - self:F2( MooseGroup ) - local MooseGroupInclude = true - - if self.Filter.Coalitions then - local MooseGroupCoalition = false - for CoalitionID, CoalitionName in pairs( self.Filter.Coalitions ) do - self:T3( { "Coalition:", MooseGroup:GetCoalition(), self.FilterMeta.Coalitions[CoalitionName], CoalitionName } ) - if self.FilterMeta.Coalitions[CoalitionName] and self.FilterMeta.Coalitions[CoalitionName] == MooseGroup:GetCoalition() then - MooseGroupCoalition = true - end - end - MooseGroupInclude = MooseGroupInclude and MooseGroupCoalition - end - - if self.Filter.Categories then - local MooseGroupCategory = false - for CategoryID, CategoryName in pairs( self.Filter.Categories ) do - self:T3( { "Category:", MooseGroup:GetCategory(), self.FilterMeta.Categories[CategoryName], CategoryName } ) - if self.FilterMeta.Categories[CategoryName] and self.FilterMeta.Categories[CategoryName] == MooseGroup:GetCategory() then - MooseGroupCategory = true - end - end - MooseGroupInclude = MooseGroupInclude and MooseGroupCategory - end - - if self.Filter.Countries then - local MooseGroupCountry = false - for CountryID, CountryName in pairs( self.Filter.Countries ) do - self:T3( { "Country:", MooseGroup:GetCountry(), CountryName } ) - if country.id[CountryName] == MooseGroup:GetCountry() then - MooseGroupCountry = true - end - end - MooseGroupInclude = MooseGroupInclude and MooseGroupCountry - end - - if self.Filter.GroupPrefixes then - local MooseGroupPrefix = false - for GroupPrefixId, GroupPrefix in pairs( self.Filter.GroupPrefixes ) do - self:T3( { "Prefix:", string.find( MooseGroup:GetName(), GroupPrefix, 1 ), GroupPrefix } ) - if string.find( MooseGroup:GetName(), GroupPrefix, 1 ) then - MooseGroupPrefix = true - end - end - MooseGroupInclude = MooseGroupInclude and MooseGroupPrefix - end - - self:T2( MooseGroupInclude ) - return MooseGroupInclude -end - ---- SET_UNIT class --- @type SET_UNIT --- @extends Set#SET_BASE -SET_UNIT = { - ClassName = "SET_UNIT", - Units = {}, - Filter = { - Coalitions = nil, - Categories = nil, - Types = nil, - Countries = nil, - UnitPrefixes = nil, - }, - FilterMeta = { - Coalitions = { - red = coalition.side.RED, - blue = coalition.side.BLUE, - neutral = coalition.side.NEUTRAL, - }, - Categories = { - plane = Unit.Category.AIRPLANE, - helicopter = Unit.Category.HELICOPTER, - ground = Unit.Category.GROUND_UNIT, - ship = Unit.Category.SHIP, - structure = Unit.Category.STRUCTURE, - }, - }, -} - - ---- Creates a new SET_UNIT object, building a set of units belonging to a coalitions, categories, countries, types or with defined prefix names. --- @param #SET_UNIT self --- @return #SET_UNIT --- @usage --- -- Define a new SET_UNIT Object. This DBObject will contain a reference to all alive Units. --- DBObject = SET_UNIT:New() -function SET_UNIT:New() - - -- Inherits from BASE - local self = BASE:Inherit( self, SET_BASE:New( _DATABASE.UNITS ) ) - - _EVENTDISPATCHER:OnBirth( self._EventOnBirth, self ) - _EVENTDISPATCHER:OnDead( self._EventOnDeadOrCrash, self ) - _EVENTDISPATCHER:OnCrash( self._EventOnDeadOrCrash, self ) - - return self -end - ---- Add UNIT(s) to SET_UNIT. --- @param #SET_UNIT self --- @param #string AddUnit A single UNIT. --- @return #SET_UNIT self -function SET_UNIT:AddUnit( AddUnit ) - self:F2( AddUnit:GetName() ) - - self:Add( AddUnit:GetName(), AddUnit ) - - return self -end - - ---- Add UNIT(s) to SET_UNIT. --- @param #SET_UNIT self --- @param #string AddUnitNames A single name or an array of UNIT names. --- @return #SET_UNIT self -function SET_UNIT:AddUnitsByName( AddUnitNames ) - - local AddUnitNamesArray = ( type( AddUnitNames ) == "table" ) and AddUnitNames or { AddUnitNames } - - self:T( AddUnitNamesArray ) - for AddUnitID, AddUnitName in pairs( AddUnitNamesArray ) do - self:Add( AddUnitName, UNIT:FindByName( AddUnitName ) ) - end - - return self -end - ---- Remove UNIT(s) from SET_UNIT. --- @param Set#SET_UNIT self --- @param Unit#UNIT RemoveUnitNames A single name or an array of UNIT names. --- @return self -function SET_UNIT:RemoveUnitsByName( RemoveUnitNames ) - - local RemoveUnitNamesArray = ( type( RemoveUnitNames ) == "table" ) and RemoveUnitNames or { RemoveUnitNames } - - for RemoveUnitID, RemoveUnitName in pairs( RemoveUnitNamesArray ) do - self:Remove( RemoveUnitName.UnitName ) - end - - return self -end - - ---- Finds a Unit based on the Unit Name. --- @param #SET_UNIT self --- @param #string UnitName --- @return Unit#UNIT The found Unit. -function SET_UNIT:FindUnit( UnitName ) - - local UnitFound = self.Set[UnitName] - return UnitFound -end - - - ---- Builds a set of units of coalitions. --- Possible current coalitions are red, blue and neutral. --- @param #SET_UNIT self --- @param #string Coalitions Can take the following values: "red", "blue", "neutral". --- @return #SET_UNIT self -function SET_UNIT:FilterCoalitions( Coalitions ) - if not self.Filter.Coalitions then - self.Filter.Coalitions = {} - end - if type( Coalitions ) ~= "table" then - Coalitions = { Coalitions } - end - for CoalitionID, Coalition in pairs( Coalitions ) do - self.Filter.Coalitions[Coalition] = Coalition - end - return self -end - - ---- Builds a set of units out of categories. --- Possible current categories are plane, helicopter, ground, ship. --- @param #SET_UNIT self --- @param #string Categories Can take the following values: "plane", "helicopter", "ground", "ship". --- @return #SET_UNIT self -function SET_UNIT:FilterCategories( Categories ) - if not self.Filter.Categories then - self.Filter.Categories = {} - end - if type( Categories ) ~= "table" then - Categories = { Categories } - end - for CategoryID, Category in pairs( Categories ) do - self.Filter.Categories[Category] = Category - end - return self -end - - ---- Builds a set of units of defined unit types. --- Possible current types are those types known within DCS world. --- @param #SET_UNIT self --- @param #string Types Can take those type strings known within DCS world. --- @return #SET_UNIT self -function SET_UNIT:FilterTypes( Types ) - if not self.Filter.Types then - self.Filter.Types = {} - end - if type( Types ) ~= "table" then - Types = { Types } - end - for TypeID, Type in pairs( Types ) do - self.Filter.Types[Type] = Type - end - return self -end - - ---- Builds a set of units of defined countries. --- Possible current countries are those known within DCS world. --- @param #SET_UNIT self --- @param #string Countries Can take those country strings known within DCS world. --- @return #SET_UNIT self -function SET_UNIT:FilterCountries( Countries ) - if not self.Filter.Countries then - self.Filter.Countries = {} - end - if type( Countries ) ~= "table" then - Countries = { Countries } - end - for CountryID, Country in pairs( Countries ) do - self.Filter.Countries[Country] = Country - end - return self -end - - ---- Builds a set of units of defined unit prefixes. --- All the units starting with the given prefixes will be included within the set. --- @param #SET_UNIT self --- @param #string Prefixes The prefix of which the unit name starts with. --- @return #SET_UNIT self -function SET_UNIT:FilterPrefixes( Prefixes ) - if not self.Filter.UnitPrefixes then - self.Filter.UnitPrefixes = {} - end - if type( Prefixes ) ~= "table" then - Prefixes = { Prefixes } - end - for PrefixID, Prefix in pairs( Prefixes ) do - self.Filter.UnitPrefixes[Prefix] = Prefix - end - return self -end - - - - ---- Starts the filtering. --- @param #SET_UNIT self --- @return #SET_UNIT self -function SET_UNIT:FilterStart() - - if _DATABASE then - self:_FilterStart() - end - - return self -end - ---- Handles the Database to check on an event (birth) that the Object was added in the Database. --- This is required, because sometimes the _DATABASE birth event gets called later than the SET_BASE birth event! --- @param #SET_UNIT self --- @param Event#EVENTDATA Event --- @return #string The name of the UNIT --- @return #table The UNIT -function SET_UNIT:AddInDatabase( Event ) - self:F3( { Event } ) - - if not self.Database[Event.IniDCSUnitName] then - self.Database[Event.IniDCSUnitName] = UNIT:Register( Event.IniDCSUnitName ) - self:T3( self.Database[Event.IniDCSUnitName] ) - end - - return Event.IniDCSUnitName, self.Database[Event.IniDCSUnitName] -end - ---- Handles the Database to check on any event that Object exists in the Database. --- This is required, because sometimes the _DATABASE event gets called later than the SET_BASE event or vise versa! --- @param #SET_UNIT self --- @param Event#EVENTDATA Event --- @return #string The name of the UNIT --- @return #table The UNIT -function SET_UNIT:FindInDatabase( Event ) - self:F3( { Event } ) - - return Event.IniDCSUnitName, self.Database[Event.IniDCSUnitName] -end - ---- Iterate the SET_UNIT and call an interator function for each **alive** UNIT, providing the UNIT and optional parameters. --- @param #SET_UNIT self --- @param #function IteratorFunction The function that will be called when there is an alive UNIT in the SET_UNIT. The function needs to accept a UNIT parameter. --- @return #SET_UNIT self -function SET_UNIT:ForEachUnit( IteratorFunction, ... ) - self:F2( arg ) - - self:ForEach( IteratorFunction, arg, self.Set ) - - return self -end - ---- Iterate the SET_UNIT and call an iterator function for each **alive** UNIT presence completely in a @{Zone}, providing the UNIT and optional parameters to the called function. --- @param #SET_UNIT self --- @param Zone#ZONE ZoneObject The Zone to be tested for. --- @param #function IteratorFunction The function that will be called when there is an alive UNIT in the SET_UNIT. The function needs to accept a UNIT parameter. --- @return #SET_UNIT self -function SET_UNIT:ForEachUnitCompletelyInZone( ZoneObject, IteratorFunction, ... ) - self:F2( arg ) - - self:ForEach( IteratorFunction, arg, self.Set, - --- @param Zone#ZONE_BASE ZoneObject - -- @param Unit#UNIT UnitObject - function( ZoneObject, UnitObject ) - if UnitObject:IsCompletelyInZone( ZoneObject ) then - return true - else - return false - end - end, { ZoneObject } ) - - return self -end - ---- Iterate the SET_UNIT and call an iterator function for each **alive** UNIT presence not in a @{Zone}, providing the UNIT and optional parameters to the called function. --- @param #SET_UNIT self --- @param Zone#ZONE ZoneObject The Zone to be tested for. --- @param #function IteratorFunction The function that will be called when there is an alive UNIT in the SET_UNIT. The function needs to accept a UNIT parameter. --- @return #SET_UNIT self -function SET_UNIT:ForEachUnitNotInZone( ZoneObject, IteratorFunction, ... ) - self:F2( arg ) - - self:ForEach( IteratorFunction, arg, self.Set, - --- @param Zone#ZONE_BASE ZoneObject - -- @param Unit#UNIT UnitObject - function( ZoneObject, UnitObject ) - if UnitObject:IsNotInZone( ZoneObject ) then - return true - else - return false - end - end, { ZoneObject } ) - - return self -end - - - ------ Iterate the SET_UNIT and call an interator function for each **alive** player, providing the Unit of the player and optional parameters. ----- @param #SET_UNIT self ----- @param #function IteratorFunction The function that will be called when there is an alive player in the SET_UNIT. The function needs to accept a UNIT parameter. ----- @return #SET_UNIT self ---function SET_UNIT:ForEachPlayer( IteratorFunction, ... ) --- self:F2( arg ) --- --- self:ForEach( IteratorFunction, arg, self.PlayersAlive ) --- --- return self ---end --- --- ------ Iterate the SET_UNIT and call an interator function for each client, providing the Client to the function and optional parameters. ----- @param #SET_UNIT self ----- @param #function IteratorFunction The function that will be called when there is an alive player in the SET_UNIT. The function needs to accept a CLIENT parameter. ----- @return #SET_UNIT self ---function SET_UNIT:ForEachClient( IteratorFunction, ... ) --- self:F2( arg ) --- --- self:ForEach( IteratorFunction, arg, self.Clients ) --- --- return self ---end - - ---- --- @param #SET_UNIT self --- @param Unit#UNIT MUnit --- @return #SET_UNIT self -function SET_UNIT:IsIncludeObject( MUnit ) - self:F2( MUnit ) - local MUnitInclude = true - - if self.Filter.Coalitions then - local MUnitCoalition = false - for CoalitionID, CoalitionName in pairs( self.Filter.Coalitions ) do - self:T3( { "Coalition:", MUnit:GetCoalition(), self.FilterMeta.Coalitions[CoalitionName], CoalitionName } ) - if self.FilterMeta.Coalitions[CoalitionName] and self.FilterMeta.Coalitions[CoalitionName] == MUnit:GetCoalition() then - MUnitCoalition = true - end - end - MUnitInclude = MUnitInclude and MUnitCoalition - end - - if self.Filter.Categories then - local MUnitCategory = false - for CategoryID, CategoryName in pairs( self.Filter.Categories ) do - self:T3( { "Category:", MUnit:GetDesc().category, self.FilterMeta.Categories[CategoryName], CategoryName } ) - if self.FilterMeta.Categories[CategoryName] and self.FilterMeta.Categories[CategoryName] == MUnit:GetDesc().category then - MUnitCategory = true - end - end - MUnitInclude = MUnitInclude and MUnitCategory - end - - if self.Filter.Types then - local MUnitType = false - for TypeID, TypeName in pairs( self.Filter.Types ) do - self:T3( { "Type:", MUnit:GetTypeName(), TypeName } ) - if TypeName == MUnit:GetTypeName() then - MUnitType = true - end - end - MUnitInclude = MUnitInclude and MUnitType - end - - if self.Filter.Countries then - local MUnitCountry = false - for CountryID, CountryName in pairs( self.Filter.Countries ) do - self:T3( { "Country:", MUnit:GetCountry(), CountryName } ) - if country.id[CountryName] == MUnit:GetCountry() then - MUnitCountry = true - end - end - MUnitInclude = MUnitInclude and MUnitCountry - end - - if self.Filter.UnitPrefixes then - local MUnitPrefix = false - for UnitPrefixId, UnitPrefix in pairs( self.Filter.UnitPrefixes ) do - self:T3( { "Prefix:", string.find( MUnit:GetName(), UnitPrefix, 1 ), UnitPrefix } ) - if string.find( MUnit:GetName(), UnitPrefix, 1 ) then - MUnitPrefix = true - end - end - MUnitInclude = MUnitInclude and MUnitPrefix - end - - self:T2( MUnitInclude ) - return MUnitInclude -end - - ---- SET_CLIENT - ---- SET_CLIENT class --- @type SET_CLIENT --- @extends Set#SET_BASE -SET_CLIENT = { - ClassName = "SET_CLIENT", - Clients = {}, - Filter = { - Coalitions = nil, - Categories = nil, - Types = nil, - Countries = nil, - ClientPrefixes = nil, - }, - FilterMeta = { - Coalitions = { - red = coalition.side.RED, - blue = coalition.side.BLUE, - neutral = coalition.side.NEUTRAL, - }, - Categories = { - plane = Unit.Category.AIRPLANE, - helicopter = Unit.Category.HELICOPTER, - ground = Unit.Category.GROUND_UNIT, - ship = Unit.Category.SHIP, - structure = Unit.Category.STRUCTURE, - }, - }, -} - - ---- Creates a new SET_CLIENT object, building a set of clients belonging to a coalitions, categories, countries, types or with defined prefix names. --- @param #SET_CLIENT self --- @return #SET_CLIENT --- @usage --- -- Define a new SET_CLIENT Object. This DBObject will contain a reference to all Clients. --- DBObject = SET_CLIENT:New() -function SET_CLIENT:New() - -- Inherits from BASE - local self = BASE:Inherit( self, SET_BASE:New( _DATABASE.CLIENTS ) ) - - return self -end - ---- Add CLIENT(s) to SET_CLIENT. --- @param Set#SET_CLIENT self --- @param #string AddClientNames A single name or an array of CLIENT names. --- @return self -function SET_CLIENT:AddClientsByName( AddClientNames ) - - local AddClientNamesArray = ( type( AddClientNames ) == "table" ) and AddClientNames or { AddClientNames } - - for AddClientID, AddClientName in pairs( AddClientNamesArray ) do - self:Add( AddClientName, CLIENT:FindByName( AddClientName ) ) - end - - return self -end - ---- Remove CLIENT(s) from SET_CLIENT. --- @param Set#SET_CLIENT self --- @param Client#CLIENT RemoveClientNames A single name or an array of CLIENT names. --- @return self -function SET_CLIENT:RemoveClientsByName( RemoveClientNames ) - - local RemoveClientNamesArray = ( type( RemoveClientNames ) == "table" ) and RemoveClientNames or { RemoveClientNames } - - for RemoveClientID, RemoveClientName in pairs( RemoveClientNamesArray ) do - self:Remove( RemoveClientName.ClientName ) - end - - return self -end - - ---- Finds a Client based on the Client Name. --- @param #SET_CLIENT self --- @param #string ClientName --- @return Client#CLIENT The found Client. -function SET_CLIENT:FindClient( ClientName ) - - local ClientFound = self.Set[ClientName] - return ClientFound -end - - - ---- Builds a set of clients of coalitions. --- Possible current coalitions are red, blue and neutral. --- @param #SET_CLIENT self --- @param #string Coalitions Can take the following values: "red", "blue", "neutral". --- @return #SET_CLIENT self -function SET_CLIENT:FilterCoalitions( Coalitions ) - if not self.Filter.Coalitions then - self.Filter.Coalitions = {} - end - if type( Coalitions ) ~= "table" then - Coalitions = { Coalitions } - end - for CoalitionID, Coalition in pairs( Coalitions ) do - self.Filter.Coalitions[Coalition] = Coalition - end - return self -end - - ---- Builds a set of clients out of categories. --- Possible current categories are plane, helicopter, ground, ship. --- @param #SET_CLIENT self --- @param #string Categories Can take the following values: "plane", "helicopter", "ground", "ship". --- @return #SET_CLIENT self -function SET_CLIENT:FilterCategories( Categories ) - if not self.Filter.Categories then - self.Filter.Categories = {} - end - if type( Categories ) ~= "table" then - Categories = { Categories } - end - for CategoryID, Category in pairs( Categories ) do - self.Filter.Categories[Category] = Category - end - return self -end - - ---- Builds a set of clients of defined client types. --- Possible current types are those types known within DCS world. --- @param #SET_CLIENT self --- @param #string Types Can take those type strings known within DCS world. --- @return #SET_CLIENT self -function SET_CLIENT:FilterTypes( Types ) - if not self.Filter.Types then - self.Filter.Types = {} - end - if type( Types ) ~= "table" then - Types = { Types } - end - for TypeID, Type in pairs( Types ) do - self.Filter.Types[Type] = Type - end - return self -end - - ---- Builds a set of clients of defined countries. --- Possible current countries are those known within DCS world. --- @param #SET_CLIENT self --- @param #string Countries Can take those country strings known within DCS world. --- @return #SET_CLIENT self -function SET_CLIENT:FilterCountries( Countries ) - if not self.Filter.Countries then - self.Filter.Countries = {} - end - if type( Countries ) ~= "table" then - Countries = { Countries } - end - for CountryID, Country in pairs( Countries ) do - self.Filter.Countries[Country] = Country - end - return self -end - - ---- Builds a set of clients of defined client prefixes. --- All the clients starting with the given prefixes will be included within the set. --- @param #SET_CLIENT self --- @param #string Prefixes The prefix of which the client name starts with. --- @return #SET_CLIENT self -function SET_CLIENT:FilterPrefixes( Prefixes ) - if not self.Filter.ClientPrefixes then - self.Filter.ClientPrefixes = {} - end - if type( Prefixes ) ~= "table" then - Prefixes = { Prefixes } - end - for PrefixID, Prefix in pairs( Prefixes ) do - self.Filter.ClientPrefixes[Prefix] = Prefix - end - return self -end - - - - ---- Starts the filtering. --- @param #SET_CLIENT self --- @return #SET_CLIENT self -function SET_CLIENT:FilterStart() - - if _DATABASE then - self:_FilterStart() - end - - return self -end - ---- Handles the Database to check on an event (birth) that the Object was added in the Database. --- This is required, because sometimes the _DATABASE birth event gets called later than the SET_BASE birth event! --- @param #SET_CLIENT self --- @param Event#EVENTDATA Event --- @return #string The name of the CLIENT --- @return #table The CLIENT -function SET_CLIENT:AddInDatabase( Event ) - self:F3( { Event } ) - - return Event.IniDCSUnitName, self.Database[Event.IniDCSUnitName] -end - ---- Handles the Database to check on any event that Object exists in the Database. --- This is required, because sometimes the _DATABASE event gets called later than the SET_BASE event or vise versa! --- @param #SET_CLIENT self --- @param Event#EVENTDATA Event --- @return #string The name of the CLIENT --- @return #table The CLIENT -function SET_CLIENT:FindInDatabase( Event ) - self:F3( { Event } ) - - return Event.IniDCSUnitName, self.Database[Event.IniDCSUnitName] -end - ---- Iterate the SET_CLIENT and call an interator function for each **alive** CLIENT, providing the CLIENT and optional parameters. --- @param #SET_CLIENT self --- @param #function IteratorFunction The function that will be called when there is an alive CLIENT in the SET_CLIENT. The function needs to accept a CLIENT parameter. --- @return #SET_CLIENT self -function SET_CLIENT:ForEachClient( IteratorFunction, ... ) - self:F2( arg ) - - self:ForEach( IteratorFunction, arg, self.Set ) - - return self -end - ---- Iterate the SET_CLIENT and call an iterator function for each **alive** CLIENT presence completely in a @{Zone}, providing the CLIENT and optional parameters to the called function. --- @param #SET_CLIENT self --- @param Zone#ZONE ZoneObject The Zone to be tested for. --- @param #function IteratorFunction The function that will be called when there is an alive CLIENT in the SET_CLIENT. The function needs to accept a CLIENT parameter. --- @return #SET_CLIENT self -function SET_CLIENT:ForEachClientInZone( ZoneObject, IteratorFunction, ... ) - self:F2( arg ) - - self:ForEach( IteratorFunction, arg, self.Set, - --- @param Zone#ZONE_BASE ZoneObject - -- @param Client#CLIENT ClientObject - function( ZoneObject, ClientObject ) - if ClientObject:IsInZone( ZoneObject ) then - return true - else - return false - end - end, { ZoneObject } ) - - return self -end - ---- Iterate the SET_CLIENT and call an iterator function for each **alive** CLIENT presence not in a @{Zone}, providing the CLIENT and optional parameters to the called function. --- @param #SET_CLIENT self --- @param Zone#ZONE ZoneObject The Zone to be tested for. --- @param #function IteratorFunction The function that will be called when there is an alive CLIENT in the SET_CLIENT. The function needs to accept a CLIENT parameter. --- @return #SET_CLIENT self -function SET_CLIENT:ForEachClientNotInZone( ZoneObject, IteratorFunction, ... ) - self:F2( arg ) - - self:ForEach( IteratorFunction, arg, self.Set, - --- @param Zone#ZONE_BASE ZoneObject - -- @param Client#CLIENT ClientObject - function( ZoneObject, ClientObject ) - if ClientObject:IsNotInZone( ZoneObject ) then - return true - else - return false - end - end, { ZoneObject } ) - - return self -end - ---- --- @param #SET_CLIENT self --- @param Client#CLIENT MClient --- @return #SET_CLIENT self -function SET_CLIENT:IsIncludeObject( MClient ) - self:F2( MClient ) - - local MClientInclude = true - - if MClient then - local MClientName = MClient.UnitName - - if self.Filter.Coalitions then - local MClientCoalition = false - for CoalitionID, CoalitionName in pairs( self.Filter.Coalitions ) do - local ClientCoalitionID = _DATABASE:GetCoalitionFromClientTemplate( MClientName ) - self:T3( { "Coalition:", ClientCoalitionID, self.FilterMeta.Coalitions[CoalitionName], CoalitionName } ) - if self.FilterMeta.Coalitions[CoalitionName] and self.FilterMeta.Coalitions[CoalitionName] == ClientCoalitionID then - MClientCoalition = true - end - end - self:T( { "Evaluated Coalition", MClientCoalition } ) - MClientInclude = MClientInclude and MClientCoalition - end - - if self.Filter.Categories then - local MClientCategory = false - for CategoryID, CategoryName in pairs( self.Filter.Categories ) do - local ClientCategoryID = _DATABASE:GetCategoryFromClientTemplate( MClientName ) - self:T3( { "Category:", ClientCategoryID, self.FilterMeta.Categories[CategoryName], CategoryName } ) - if self.FilterMeta.Categories[CategoryName] and self.FilterMeta.Categories[CategoryName] == ClientCategoryID then - MClientCategory = true - end - end - self:T( { "Evaluated Category", MClientCategory } ) - MClientInclude = MClientInclude and MClientCategory - end - - if self.Filter.Types then - local MClientType = false - for TypeID, TypeName in pairs( self.Filter.Types ) do - self:T3( { "Type:", MClient:GetTypeName(), TypeName } ) - if TypeName == MClient:GetTypeName() then - MClientType = true - end - end - self:T( { "Evaluated Type", MClientType } ) - MClientInclude = MClientInclude and MClientType - end - - if self.Filter.Countries then - local MClientCountry = false - for CountryID, CountryName in pairs( self.Filter.Countries ) do - local ClientCountryID = _DATABASE:GetCountryFromClientTemplate(MClientName) - self:T3( { "Country:", ClientCountryID, country.id[CountryName], CountryName } ) - if country.id[CountryName] and country.id[CountryName] == ClientCountryID then - MClientCountry = true - end - end - self:T( { "Evaluated Country", MClientCountry } ) - MClientInclude = MClientInclude and MClientCountry - end - - if self.Filter.ClientPrefixes then - local MClientPrefix = false - for ClientPrefixId, ClientPrefix in pairs( self.Filter.ClientPrefixes ) do - self:T3( { "Prefix:", string.find( MClient.UnitName, ClientPrefix, 1 ), ClientPrefix } ) - if string.find( MClient.UnitName, ClientPrefix, 1 ) then - MClientPrefix = true - end - end - self:T( { "Evaluated Prefix", MClientPrefix } ) - MClientInclude = MClientInclude and MClientPrefix - end - end - - self:T2( MClientInclude ) - return MClientInclude -end - ---- SET_AIRBASE - ---- SET_AIRBASE class --- @type SET_AIRBASE --- @extends Set#SET_BASE -SET_AIRBASE = { - ClassName = "SET_AIRBASE", - Airbases = {}, - Filter = { - Coalitions = nil, - }, - FilterMeta = { - Coalitions = { - red = coalition.side.RED, - blue = coalition.side.BLUE, - neutral = coalition.side.NEUTRAL, - }, - Categories = { - airdrome = Airbase.Category.AIRDROME, - helipad = Airbase.Category.HELIPAD, - ship = Airbase.Category.SHIP, - }, - }, -} - - ---- Creates a new SET_AIRBASE object, building a set of airbases belonging to a coalitions and categories. --- @param #SET_AIRBASE self --- @return #SET_AIRBASE self --- @usage --- -- Define a new SET_AIRBASE Object. The DatabaseSet will contain a reference to all Airbases. --- DatabaseSet = SET_AIRBASE:New() -function SET_AIRBASE:New() - -- Inherits from BASE - local self = BASE:Inherit( self, SET_BASE:New( _DATABASE.AIRBASES ) ) - - return self -end - ---- Add AIRBASEs to SET_AIRBASE. --- @param Set#SET_AIRBASE self --- @param #string AddAirbaseNames A single name or an array of AIRBASE names. --- @return self -function SET_AIRBASE:AddAirbasesByName( AddAirbaseNames ) - - local AddAirbaseNamesArray = ( type( AddAirbaseNames ) == "table" ) and AddAirbaseNames or { AddAirbaseNames } - - for AddAirbaseID, AddAirbaseName in pairs( AddAirbaseNamesArray ) do - self:Add( AddAirbaseName, AIRBASE:FindByName( AddAirbaseName ) ) - end - - return self -end - ---- Remove AIRBASEs from SET_AIRBASE. --- @param Set#SET_AIRBASE self --- @param Airbase#AIRBASE RemoveAirbaseNames A single name or an array of AIRBASE names. --- @return self -function SET_AIRBASE:RemoveAirbasesByName( RemoveAirbaseNames ) - - local RemoveAirbaseNamesArray = ( type( RemoveAirbaseNames ) == "table" ) and RemoveAirbaseNames or { RemoveAirbaseNames } - - for RemoveAirbaseID, RemoveAirbaseName in pairs( RemoveAirbaseNamesArray ) do - self:Remove( RemoveAirbaseName.AirbaseName ) - end - - return self -end - - ---- Finds a Airbase based on the Airbase Name. --- @param #SET_AIRBASE self --- @param #string AirbaseName --- @return Airbase#AIRBASE The found Airbase. -function SET_AIRBASE:FindAirbase( AirbaseName ) - - local AirbaseFound = self.Set[AirbaseName] - return AirbaseFound -end - - - ---- Builds a set of airbases of coalitions. --- Possible current coalitions are red, blue and neutral. --- @param #SET_AIRBASE self --- @param #string Coalitions Can take the following values: "red", "blue", "neutral". --- @return #SET_AIRBASE self -function SET_AIRBASE:FilterCoalitions( Coalitions ) - if not self.Filter.Coalitions then - self.Filter.Coalitions = {} - end - if type( Coalitions ) ~= "table" then - Coalitions = { Coalitions } - end - for CoalitionID, Coalition in pairs( Coalitions ) do - self.Filter.Coalitions[Coalition] = Coalition - end - return self -end - - ---- Builds a set of airbases out of categories. --- Possible current categories are plane, helicopter, ground, ship. --- @param #SET_AIRBASE self --- @param #string Categories Can take the following values: "airdrome", "helipad", "ship". --- @return #SET_AIRBASE self -function SET_AIRBASE:FilterCategories( Categories ) - if not self.Filter.Categories then - self.Filter.Categories = {} - end - if type( Categories ) ~= "table" then - Categories = { Categories } - end - for CategoryID, Category in pairs( Categories ) do - self.Filter.Categories[Category] = Category - end - return self -end - ---- Starts the filtering. --- @param #SET_AIRBASE self --- @return #SET_AIRBASE self -function SET_AIRBASE:FilterStart() - - if _DATABASE then - self:_FilterStart() - end - - return self -end - - ---- Handles the Database to check on an event (birth) that the Object was added in the Database. --- This is required, because sometimes the _DATABASE birth event gets called later than the SET_BASE birth event! --- @param #SET_AIRBASE self --- @param Event#EVENTDATA Event --- @return #string The name of the AIRBASE --- @return #table The AIRBASE -function SET_AIRBASE:AddInDatabase( Event ) - self:F3( { Event } ) - - return Event.IniDCSUnitName, self.Database[Event.IniDCSUnitName] -end - ---- Handles the Database to check on any event that Object exists in the Database. --- This is required, because sometimes the _DATABASE event gets called later than the SET_BASE event or vise versa! --- @param #SET_AIRBASE self --- @param Event#EVENTDATA Event --- @return #string The name of the AIRBASE --- @return #table The AIRBASE -function SET_AIRBASE:FindInDatabase( Event ) - self:F3( { Event } ) - - return Event.IniDCSUnitName, self.Database[Event.IniDCSUnitName] -end - ---- Iterate the SET_AIRBASE and call an interator function for each AIRBASE, providing the AIRBASE and optional parameters. --- @param #SET_AIRBASE self --- @param #function IteratorFunction The function that will be called when there is an alive AIRBASE in the SET_AIRBASE. The function needs to accept a AIRBASE parameter. --- @return #SET_AIRBASE self -function SET_AIRBASE:ForEachAirbase( IteratorFunction, ... ) - self:F2( arg ) - - self:ForEach( IteratorFunction, arg, self.Set ) - - return self -end - ---- Iterate the SET_AIRBASE while identifying the nearest @{Airbase#AIRBASE} from a @{Point#POINT_VEC2}. --- @param #SET_AIRBASE self --- @param Point#POINT_VEC2 PointVec2 A @{Point#POINT_VEC2} object from where to evaluate the closest @{Airbase#AIRBASE}. --- @return Airbase#AIRBASE The closest @{Airbase#AIRBASE}. -function SET_AIRBASE:FindNearestAirbaseFromPointVec2( PointVec2 ) - self:F2( PointVec2 ) - - local NearestAirbase = self:FindNearestObjectFromPointVec2( PointVec2 ) - return NearestAirbase -end - - - ---- --- @param #SET_AIRBASE self --- @param Airbase#AIRBASE MAirbase --- @return #SET_AIRBASE self -function SET_AIRBASE:IsIncludeObject( MAirbase ) - self:F2( MAirbase ) - - local MAirbaseInclude = true - - if MAirbase then - local MAirbaseName = MAirbase:GetName() - - if self.Filter.Coalitions then - local MAirbaseCoalition = false - for CoalitionID, CoalitionName in pairs( self.Filter.Coalitions ) do - local AirbaseCoalitionID = _DATABASE:GetCoalitionFromAirbase( MAirbaseName ) - self:T3( { "Coalition:", AirbaseCoalitionID, self.FilterMeta.Coalitions[CoalitionName], CoalitionName } ) - if self.FilterMeta.Coalitions[CoalitionName] and self.FilterMeta.Coalitions[CoalitionName] == AirbaseCoalitionID then - MAirbaseCoalition = true - end - end - self:T( { "Evaluated Coalition", MAirbaseCoalition } ) - MAirbaseInclude = MAirbaseInclude and MAirbaseCoalition - end - - if self.Filter.Categories then - local MAirbaseCategory = false - for CategoryID, CategoryName in pairs( self.Filter.Categories ) do - local AirbaseCategoryID = _DATABASE:GetCategoryFromAirbase( MAirbaseName ) - self:T3( { "Category:", AirbaseCategoryID, self.FilterMeta.Categories[CategoryName], CategoryName } ) - if self.FilterMeta.Categories[CategoryName] and self.FilterMeta.Categories[CategoryName] == AirbaseCategoryID then - MAirbaseCategory = true - end - end - self:T( { "Evaluated Category", MAirbaseCategory } ) - MAirbaseInclude = MAirbaseInclude and MAirbaseCategory - end - end - - self:T2( MAirbaseInclude ) - return MAirbaseInclude -end ---- This module contains the POINT classes. --- --- 1) @{Point#POINT_VEC3} class, extends @{Base#BASE} --- =============================================== --- The @{Point#POINT_VEC3} class defines a 3D point in the simulator. --- --- 1.1) POINT_VEC3 constructor --- --------------------------- --- --- A new POINT instance can be created with: --- --- * @{#POINT_VEC3.New}(): a 3D point. --- --- 2) @{Point#POINT_VEC2} class, extends @{Point#POINT_VEC3} --- ========================================================= --- The @{Point#POINT_VEC2} class defines a 2D point in the simulator. The height coordinate (if needed) will be the land height + an optional added height specified. --- --- 2.1) POINT_VEC2 constructor --- --------------------------- --- --- A new POINT instance can be created with: --- --- * @{#POINT_VEC2.New}(): a 2D point. --- --- @module Point --- @author FlightControl - ---- The POINT_VEC3 class --- @type POINT_VEC3 --- @extends Base#BASE --- @field #POINT_VEC3.SmokeColor SmokeColor --- @field #POINT_VEC3.FlareColor FlareColor --- @field #POINT_VEC3.RoutePointAltType RoutePointAltType --- @field #POINT_VEC3.RoutePointType RoutePointType --- @field #POINT_VEC3.RoutePointAction RoutePointAction -POINT_VEC3 = { - ClassName = "POINT_VEC3", - SmokeColor = { - Green = trigger.smokeColor.Green, - Red = trigger.smokeColor.Red, - White = trigger.smokeColor.White, - Orange = trigger.smokeColor.Orange, - Blue = trigger.smokeColor.Blue - }, - FlareColor = { - Green = trigger.flareColor.Green, - Red = trigger.flareColor.Red, - White = trigger.flareColor.White, - Yellow = trigger.flareColor.Yellow - }, - RoutePointAltType = { - BARO = "BARO", - }, - RoutePointType = { - TurningPoint = "Turning Point", - }, - RoutePointAction = { - TurningPoint = "Turning Point", - }, -} - - ---- SmokeColor --- @type POINT_VEC3.SmokeColor --- @field Green --- @field Red --- @field White --- @field Orange --- @field Blue - - - ---- FlareColor --- @type POINT_VEC3.FlareColor --- @field Green --- @field Red --- @field White --- @field Yellow - - - ---- RoutePoint AltTypes --- @type POINT_VEC3.RoutePointAltType --- @field BARO "BARO" - - - ---- RoutePoint Types --- @type POINT_VEC3.RoutePointType --- @field TurningPoint "Turning Point" - - - ---- RoutePoint Actions --- @type POINT_VEC3.RoutePointAction --- @field TurningPoint "Turning Point" - - - --- Constructor. - ---- Create a new POINT_VEC3 object. --- @param #POINT_VEC3 self --- @param DCSTypes#Distance x The x coordinate of the Vec3 point, pointing to the North. --- @param DCSTypes#Distance y The y coordinate of the Vec3 point, pointing Upwards. --- @param DCSTypes#Distance z The z coordinate of the Vec3 point, pointing to the Right. --- @return Point#POINT_VEC3 self -function POINT_VEC3:New( x, y, z ) - - local self = BASE:Inherit( self, BASE:New() ) - self.PointVec3 = { x = x, y = y, z = z } - self:F2( self.PointVec3 ) - return self -end - - ---- Build an air type route point. --- @param #POINT_VEC3 self --- @param #POINT_VEC3.RoutePointAltType AltType The altitude type. --- @param #POINT_VEC3.RoutePointType Type The route point type. --- @param #POINT_VEC3.RoutePointAction Action The route point action. --- @param DCSTypes#Speed Speed Airspeed in km/h. --- @param #boolean SpeedLocked true means the speed is locked. --- @return #table The route point. -function POINT_VEC3:RoutePointAir( AltType, Type, Action, Speed, SpeedLocked ) - self:F2( { AltType, Type, Action, Speed, SpeedLocked } ) - - local RoutePoint = {} - RoutePoint.x = self.PointVec3.x - RoutePoint.y = self.PointVec3.z - RoutePoint.alt = self.PointVec3.y - RoutePoint.alt_type = AltType - - RoutePoint.type = Type - RoutePoint.action = Action - - RoutePoint.speed = Speed / 3.6 - RoutePoint.speed_locked = true - --- ["task"] = --- { --- ["id"] = "ComboTask", --- ["params"] = --- { --- ["tasks"] = --- { --- }, -- end of ["tasks"] --- }, -- end of ["params"] --- }, -- end of ["task"] - - - RoutePoint.task = {} - RoutePoint.task.id = "ComboTask" - RoutePoint.task.params = {} - RoutePoint.task.params.tasks = {} - - - return RoutePoint -end - - ---- Smokes the point in a color. --- @param #POINT_VEC3 self --- @param Point#POINT_VEC3.SmokeColor SmokeColor -function POINT_VEC3:Smoke( SmokeColor ) - self:F2( { SmokeColor, self.PointVec3 } ) - trigger.action.smoke( self.PointVec3, SmokeColor ) -end - ---- Smoke the POINT_VEC3 Green. --- @param #POINT_VEC3 self -function POINT_VEC3:SmokeGreen() - self:F2() - self:Smoke( POINT_VEC3.SmokeColor.Green ) -end - ---- Smoke the POINT_VEC3 Red. --- @param #POINT_VEC3 self -function POINT_VEC3:SmokeRed() - self:F2() - self:Smoke( POINT_VEC3.SmokeColor.Red ) -end - ---- Smoke the POINT_VEC3 White. --- @param #POINT_VEC3 self -function POINT_VEC3:SmokeWhite() - self:F2() - self:Smoke( POINT_VEC3.SmokeColor.White ) -end - ---- Smoke the POINT_VEC3 Orange. --- @param #POINT_VEC3 self -function POINT_VEC3:SmokeOrange() - self:F2() - self:Smoke( POINT_VEC3.SmokeColor.Orange ) -end - ---- Smoke the POINT_VEC3 Blue. --- @param #POINT_VEC3 self -function POINT_VEC3:SmokeBlue() - self:F2() - self:Smoke( POINT_VEC3.SmokeColor.Blue ) -end - ---- Flares the point in a color. --- @param #POINT_VEC3 self --- @param Point#POINT_VEC3.FlareColor --- @param DCSTypes#Azimuth (optional) Azimuth The azimuth of the flare direction. The default azimuth is 0. -function POINT_VEC3:Flare( FlareColor, Azimuth ) - self:F2( { FlareColor, self.PointVec3 } ) - trigger.action.signalFlare( self.PointVec3, FlareColor, Azimuth and Azimuth or 0 ) -end - ---- Flare the POINT_VEC3 White. --- @param #POINT_VEC3 self --- @param DCSTypes#Azimuth (optional) Azimuth The azimuth of the flare direction. The default azimuth is 0. -function POINT_VEC3:FlareWhite( Azimuth ) - self:F2( Azimuth ) - self:Flare( POINT_VEC3.FlareColor.White, Azimuth ) -end - ---- Flare the POINT_VEC3 Yellow. --- @param #POINT_VEC3 self --- @param DCSTypes#Azimuth (optional) Azimuth The azimuth of the flare direction. The default azimuth is 0. -function POINT_VEC3:FlareYellow( Azimuth ) - self:F2( Azimuth ) - self:Flare( POINT_VEC3.FlareColor.Yellow, Azimuth ) -end - ---- Flare the POINT_VEC3 Green. --- @param #POINT_VEC3 self --- @param DCSTypes#Azimuth (optional) Azimuth The azimuth of the flare direction. The default azimuth is 0. -function POINT_VEC3:FlareGreen( Azimuth ) - self:F2( Azimuth ) - self:Flare( POINT_VEC3.FlareColor.Green, Azimuth ) -end - ---- Flare the POINT_VEC3 Red. --- @param #POINT_VEC3 self -function POINT_VEC3:FlareRed( Azimuth ) - self:F2( Azimuth ) - self:Flare( POINT_VEC3.FlareColor.Red, Azimuth ) -end - - ---- The POINT_VEC2 class --- @type POINT_VEC2 --- @field DCSTypes#Vec2 PointVec2 --- @extends Point#POINT_VEC3 -POINT_VEC2 = { - ClassName = "POINT_VEC2", - } - ---- Create a new POINT_VEC2 object. --- @param #POINT_VEC2 self --- @param DCSTypes#Distance x The x coordinate of the Vec3 point, pointing to the North. --- @param DCSTypes#Distance y The y coordinate of the Vec3 point, pointing to the Right. --- @param DCSTypes#Distance LandHeightAdd (optional) The default height if required to be evaluated will be the land height of the x, y coordinate. You can specify an extra height to be added to the land height. --- @return Point#POINT_VEC2 -function POINT_VEC2:New( x, y, LandHeightAdd ) - - local LandHeight = land.getHeight( { ["x"] = x, ["y"] = y } ) - if LandHeightAdd then - LandHeight = LandHeight + LandHeightAdd - end - - local self = BASE:Inherit( self, POINT_VEC3:New( x, LandHeight, y ) ) - self:F2( { x, y, LandHeightAdd } ) - - self.PointVec2 = { x = x, y = y } - - return self -end - ---- Calculate the distance from a reference @{Point#POINT_VEC2}. --- @param #POINT_VEC2 self --- @param #POINT_VEC2 PointVec2Reference The reference @{Point#POINT_VEC2}. --- @return DCSTypes#Distance The distance from the reference @{Point#POINT_VEC2} in meters. -function POINT_VEC2:DistanceFromPointVec2( PointVec2Reference ) - self:F2( PointVec2Reference ) - - local Distance = ( ( PointVec2Reference.PointVec2.x - self.PointVec2.x ) ^ 2 + ( PointVec2Reference.PointVec2.y - self.PointVec2.y ) ^2 ) ^0.5 - - self:T2( Distance ) - return Distance -end - ---- Calculate the distance from a reference @{DCSTypes#Vec2}. --- @param #POINT_VEC2 self --- @param DCSTypes#Vec2 Vec2Reference The reference @{DCSTypes#Vec2}. --- @return DCSTypes#Distance The distance from the reference @{DCSTypes#Vec2} in meters. -function POINT_VEC2:DistanceFromVec2( Vec2Reference ) - self:F2( Vec2Reference ) - - local Distance = ( ( Vec2Reference.x - self.PointVec2.x ) ^ 2 + ( Vec2Reference.y - self.PointVec2.y ) ^2 ) ^0.5 - - self:T2( Distance ) - return Distance -end - - ---- The main include file for the MOOSE system. - -Include.File( "Routines" ) -Include.File( "Base" ) -Include.File( "Object" ) -Include.File( "Identifiable" ) -Include.File( "Positionable" ) -Include.File( "Controllable" ) -Include.File( "Scheduler" ) -Include.File( "Event" ) -Include.File( "Menu" ) -Include.File( "Group" ) -Include.File( "Unit" ) -Include.File( "Zone" ) -Include.File( "Client" ) -Include.File( "Static" ) -Include.File( "Airbase" ) -Include.File( "Database" ) -Include.File( "Set" ) -Include.File( "Point" ) Include.File( "Moose" ) -Include.File( "Scoring" ) -Include.File( "Cargo" ) -Include.File( "Message" ) -Include.File( "Stage" ) -Include.File( "Task" ) -Include.File( "GoHomeTask" ) -Include.File( "DestroyBaseTask" ) -Include.File( "DestroyGroupsTask" ) -Include.File( "DestroyRadarsTask" ) -Include.File( "DestroyUnitTypesTask" ) -Include.File( "PickupTask" ) -Include.File( "DeployTask" ) -Include.File( "NoTask" ) -Include.File( "RouteTask" ) -Include.File( "Mission" ) -Include.File( "CleanUp" ) -Include.File( "Spawn" ) -Include.File( "Movement" ) -Include.File( "Sead" ) -Include.File( "Escort" ) -Include.File( "MissileTrainer" ) -Include.File( "PatrolZone" ) -Include.File( "AIBalancer" ) -Include.File( "AirbasePolice" ) -Include.File( "Detection" ) -Include.File( "FAC" ) --- The order of the declarations is important here. Don't touch it. - ---- Declare the event dispatcher based on the EVENT class -_EVENTDISPATCHER = EVENT:New() -- #EVENT - ---- Declare the main database object, which is used internally by the MOOSE classes. -_DATABASE = DATABASE:New() -- Database#DATABASE - ---- Scoring system for MOOSE. --- This scoring class calculates the hits and kills that players make within a simulation session. --- Scoring is calculated using a defined algorithm. --- With a small change in MissionScripting.lua, the scoring can also be logged in a CSV file, that can then be uploaded --- to a database or a BI tool to publish the scoring results to the player community. --- @module Scoring --- @author FlightControl - - ---- The Scoring class --- @type SCORING --- @field Players A collection of the current players that have joined the game. --- @extends Base#BASE -SCORING = { - ClassName = "SCORING", - ClassID = 0, - Players = {}, -} - -local _SCORINGCoalition = - { - [1] = "Red", - [2] = "Blue", - } - -local _SCORINGCategory = - { - [Unit.Category.AIRPLANE] = "Plane", - [Unit.Category.HELICOPTER] = "Helicopter", - [Unit.Category.GROUND_UNIT] = "Vehicle", - [Unit.Category.SHIP] = "Ship", - [Unit.Category.STRUCTURE] = "Structure", - } - ---- Creates a new SCORING object to administer the scoring achieved by players. --- @param #SCORING self --- @param #string GameName The name of the game. This name is also logged in the CSV score file. --- @return #SCORING self --- @usage --- -- Define a new scoring object for the mission Gori Valley. --- ScoringObject = SCORING:New( "Gori Valley" ) -function SCORING:New( GameName ) - - -- Inherits from BASE - local self = BASE:Inherit( self, BASE:New() ) - - if GameName then - self.GameName = GameName - else - error( "A game name must be given to register the scoring results" ) - end - - - _EVENTDISPATCHER:OnDead( self._EventOnDeadOrCrash, self ) - _EVENTDISPATCHER:OnCrash( self._EventOnDeadOrCrash, self ) - _EVENTDISPATCHER:OnHit( self._EventOnHit, self ) - - --self.SchedulerId = routines.scheduleFunction( SCORING._FollowPlayersScheduled, { self }, 0, 5 ) - self.SchedulerId = SCHEDULER:New( self, self._FollowPlayersScheduled, {}, 0, 5 ) - - self:ScoreMenu() - - return self - -end - ---- Creates a score radio menu. Can be accessed using Radio -> F10. --- @param #SCORING self --- @return #SCORING self -function SCORING:ScoreMenu() - self.Menu = SUBMENU:New( 'Scoring' ) - self.AllScoresMenu = COMMANDMENU:New( 'Score All Active Players', self.Menu, SCORING.ReportScoreAll, self ) - --- = COMMANDMENU:New('Your Current Score', ReportScore, SCORING.ReportScorePlayer, self ) - return self -end - ---- Follows new players entering Clients within the DCSRTE. --- TODO: Need to see if i can catch this also with an event. It will eliminate the schedule ... -function SCORING:_FollowPlayersScheduled() - self:F3( "_FollowPlayersScheduled" ) - - local ClientUnit = 0 - local CoalitionsData = { AlivePlayersRed = coalition.getPlayers(coalition.side.RED), AlivePlayersBlue = coalition.getPlayers(coalition.side.BLUE) } - local unitId - local unitData - local AlivePlayerUnits = {} - - for CoalitionId, CoalitionData in pairs( CoalitionsData ) do - self:T3( { "_FollowPlayersScheduled", CoalitionData } ) - for UnitId, UnitData in pairs( CoalitionData ) do - self:_AddPlayerFromUnit( UnitData ) - end - end - - return true -end - - ---- Track DEAD or CRASH events for the scoring. --- @param #SCORING self --- @param Event#EVENTDATA Event -function SCORING:_EventOnDeadOrCrash( Event ) - self:F( { Event } ) - - local TargetUnit = nil - local TargetGroup = nil - local TargetUnitName = "" - local TargetGroupName = "" - local TargetPlayerName = "" - local TargetCoalition = nil - local TargetCategory = nil - local TargetType = nil - local TargetUnitCoalition = nil - local TargetUnitCategory = nil - local TargetUnitType = nil - - if Event.IniDCSUnit then - - TargetUnit = Event.IniDCSUnit - TargetUnitName = Event.IniDCSUnitName - TargetGroup = Event.IniDCSGroup - TargetGroupName = Event.IniDCSGroupName - TargetPlayerName = TargetUnit:getPlayerName() - - TargetCoalition = TargetUnit:getCoalition() - --TargetCategory = TargetUnit:getCategory() - TargetCategory = TargetUnit:getDesc().category -- Workaround - TargetType = TargetUnit:getTypeName() - - TargetUnitCoalition = _SCORINGCoalition[TargetCoalition] - TargetUnitCategory = _SCORINGCategory[TargetCategory] - TargetUnitType = TargetType - - self:T( { TargetUnitName, TargetGroupName, TargetPlayerName, TargetCoalition, TargetCategory, TargetType } ) - end - - for PlayerName, PlayerData in pairs( self.Players ) do - if PlayerData then -- This should normally not happen, but i'll test it anyway. - self:T( "Something got killed" ) - - -- Some variables - local InitUnitName = PlayerData.UnitName - local InitUnitType = PlayerData.UnitType - local InitCoalition = PlayerData.UnitCoalition - local InitCategory = PlayerData.UnitCategory - local InitUnitCoalition = _SCORINGCoalition[InitCoalition] - local InitUnitCategory = _SCORINGCategory[InitCategory] - - self:T( { InitUnitName, InitUnitType, InitUnitCoalition, InitCoalition, InitUnitCategory, InitCategory } ) - - -- What is he hitting? - if TargetCategory then - if PlayerData and PlayerData.Hit and PlayerData.Hit[TargetCategory] and PlayerData.Hit[TargetCategory][TargetUnitName] then -- Was there a hit for this unit for this player before registered??? - if not PlayerData.Kill[TargetCategory] then - PlayerData.Kill[TargetCategory] = {} - end - if not PlayerData.Kill[TargetCategory][TargetType] then - PlayerData.Kill[TargetCategory][TargetType] = {} - PlayerData.Kill[TargetCategory][TargetType].Score = 0 - PlayerData.Kill[TargetCategory][TargetType].ScoreKill = 0 - PlayerData.Kill[TargetCategory][TargetType].Penalty = 0 - PlayerData.Kill[TargetCategory][TargetType].PenaltyKill = 0 - end - - if InitCoalition == TargetCoalition then - PlayerData.Penalty = PlayerData.Penalty + 25 - PlayerData.Kill[TargetCategory][TargetType].Penalty = PlayerData.Kill[TargetCategory][TargetType].Penalty + 25 - PlayerData.Kill[TargetCategory][TargetType].PenaltyKill = PlayerData.Kill[TargetCategory][TargetType].PenaltyKill + 1 - MESSAGE:New( "Player '" .. PlayerName .. "' killed a friendly " .. TargetUnitCategory .. " ( " .. TargetType .. " ) " .. - PlayerData.Kill[TargetCategory][TargetType].PenaltyKill .. " times. Penalty: -" .. PlayerData.Kill[TargetCategory][TargetType].Penalty .. - ". Score Total:" .. PlayerData.Score - PlayerData.Penalty, - 5 ):ToAll() - self:ScoreCSV( PlayerName, "KILL_PENALTY", 1, -125, InitUnitName, InitUnitCoalition, InitUnitCategory, InitUnitType, TargetUnitName, TargetUnitCoalition, TargetUnitCategory, TargetUnitType ) - else - PlayerData.Score = PlayerData.Score + 10 - PlayerData.Kill[TargetCategory][TargetType].Score = PlayerData.Kill[TargetCategory][TargetType].Score + 10 - PlayerData.Kill[TargetCategory][TargetType].ScoreKill = PlayerData.Kill[TargetCategory][TargetType].ScoreKill + 1 - MESSAGE:New( "Player '" .. PlayerName .. "' killed an enemy " .. TargetUnitCategory .. " ( " .. TargetType .. " ) " .. - PlayerData.Kill[TargetCategory][TargetType].ScoreKill .. " times. Score: " .. PlayerData.Kill[TargetCategory][TargetType].Score .. - ". Score Total:" .. PlayerData.Score - PlayerData.Penalty, - 5 ):ToAll() - self:ScoreCSV( PlayerName, "KILL_SCORE", 1, 10, InitUnitName, InitUnitCoalition, InitUnitCategory, InitUnitType, TargetUnitName, TargetUnitCoalition, TargetUnitCategory, TargetUnitType ) - end - end - end - end - end -end - - - ---- Add a new player entering a Unit. -function SCORING:_AddPlayerFromUnit( UnitData ) - self:F( UnitData ) - - if UnitData and UnitData:isExist() then - local UnitName = UnitData:getName() - local PlayerName = UnitData:getPlayerName() - local UnitDesc = UnitData:getDesc() - local UnitCategory = UnitDesc.category - local UnitCoalition = UnitData:getCoalition() - local UnitTypeName = UnitData:getTypeName() - - self:T( { PlayerName, UnitName, UnitCategory, UnitCoalition, UnitTypeName } ) - - if self.Players[PlayerName] == nil then -- I believe this is the place where a Player gets a life in a mission when he enters a unit ... - self.Players[PlayerName] = {} - self.Players[PlayerName].Hit = {} - self.Players[PlayerName].Kill = {} - self.Players[PlayerName].Mission = {} - - -- for CategoryID, CategoryName in pairs( SCORINGCategory ) do - -- self.Players[PlayerName].Hit[CategoryID] = {} - -- self.Players[PlayerName].Kill[CategoryID] = {} - -- end - self.Players[PlayerName].HitPlayers = {} - self.Players[PlayerName].HitUnits = {} - self.Players[PlayerName].Score = 0 - self.Players[PlayerName].Penalty = 0 - self.Players[PlayerName].PenaltyCoalition = 0 - self.Players[PlayerName].PenaltyWarning = 0 - end - - if not self.Players[PlayerName].UnitCoalition then - self.Players[PlayerName].UnitCoalition = UnitCoalition - else - if self.Players[PlayerName].UnitCoalition ~= UnitCoalition then - self.Players[PlayerName].Penalty = self.Players[PlayerName].Penalty + 50 - self.Players[PlayerName].PenaltyCoalition = self.Players[PlayerName].PenaltyCoalition + 1 - MESSAGE:New( "Player '" .. PlayerName .. "' changed coalition from " .. _SCORINGCoalition[self.Players[PlayerName].UnitCoalition] .. " to " .. _SCORINGCoalition[UnitCoalition] .. - "(changed " .. self.Players[PlayerName].PenaltyCoalition .. " times the coalition). 50 Penalty points added.", - 2 - ):ToAll() - self:ScoreCSV( PlayerName, "COALITION_PENALTY", 1, -50, self.Players[PlayerName].UnitName, _SCORINGCoalition[self.Players[PlayerName].UnitCoalition], _SCORINGCategory[self.Players[PlayerName].UnitCategory], self.Players[PlayerName].UnitType, - UnitName, _SCORINGCoalition[UnitCoalition], _SCORINGCategory[UnitCategory], UnitData:getTypeName() ) - end - end - self.Players[PlayerName].UnitName = UnitName - self.Players[PlayerName].UnitCoalition = UnitCoalition - self.Players[PlayerName].UnitCategory = UnitCategory - self.Players[PlayerName].UnitType = UnitTypeName - - if self.Players[PlayerName].Penalty > 100 then - if self.Players[PlayerName].PenaltyWarning < 1 then - MESSAGE:New( "Player '" .. PlayerName .. "': WARNING! If you continue to commit FRATRICIDE and have a PENALTY score higher than 150, you will be COURT MARTIALED and DISMISSED from this mission! \nYour total penalty is: " .. self.Players[PlayerName].Penalty, - 30 - ):ToAll() - self.Players[PlayerName].PenaltyWarning = self.Players[PlayerName].PenaltyWarning + 1 - end - end - - if self.Players[PlayerName].Penalty > 150 then - ClientGroup = GROUP:NewFromDCSUnit( UnitData ) - ClientGroup:Destroy() - MESSAGE:New( "Player '" .. PlayerName .. "' committed FRATRICIDE, he will be COURT MARTIALED and is DISMISSED from this mission!", - 10 - ):ToAll() - end - - end -end - - ---- Registers Scores the players completing a Mission Task. -function SCORING:_AddMissionTaskScore( PlayerUnit, MissionName, Score ) - self:F( { PlayerUnit, MissionName, Score } ) - - local PlayerName = PlayerUnit:getPlayerName() - - if not self.Players[PlayerName].Mission[MissionName] then - self.Players[PlayerName].Mission[MissionName] = {} - self.Players[PlayerName].Mission[MissionName].ScoreTask = 0 - self.Players[PlayerName].Mission[MissionName].ScoreMission = 0 - end - - self:T( PlayerName ) - self:T( self.Players[PlayerName].Mission[MissionName] ) - - self.Players[PlayerName].Score = self.Players[PlayerName].Score + Score - self.Players[PlayerName].Mission[MissionName].ScoreTask = self.Players[PlayerName].Mission[MissionName].ScoreTask + Score - - MESSAGE:New( "Player '" .. PlayerName .. "' has finished another Task in Mission '" .. MissionName .. "'. " .. - Score .. " Score points added.", - 20 ):ToAll() - - self:ScoreCSV( PlayerName, "TASK_" .. MissionName:gsub( ' ', '_' ), 1, Score, PlayerUnit:getName() ) -end - - ---- Registers Mission Scores for possible multiple players that contributed in the Mission. -function SCORING:_AddMissionScore( MissionName, Score ) - self:F( { MissionName, Score } ) - - for PlayerName, PlayerData in pairs( self.Players ) do - - if PlayerData.Mission[MissionName] then - PlayerData.Score = PlayerData.Score + Score - PlayerData.Mission[MissionName].ScoreMission = PlayerData.Mission[MissionName].ScoreMission + Score - MESSAGE:New( "Player '" .. PlayerName .. "' has finished Mission '" .. MissionName .. "'. " .. - Score .. " Score points added.", - 20 ):ToAll() - self:ScoreCSV( PlayerName, "MISSION_" .. MissionName:gsub( ' ', '_' ), 1, Score ) - end - end -end - ---- Handles the OnHit event for the scoring. --- @param #SCORING self --- @param Event#EVENTDATA Event -function SCORING:_EventOnHit( Event ) - self:F( { Event } ) - - local InitUnit = nil - local InitUnitName = "" - local InitGroup = nil - local InitGroupName = "" - local InitPlayerName = nil - - local InitCoalition = nil - local InitCategory = nil - local InitType = nil - local InitUnitCoalition = nil - local InitUnitCategory = nil - local InitUnitType = nil - - local TargetUnit = nil - local TargetUnitName = "" - local TargetGroup = nil - local TargetGroupName = "" - local TargetPlayerName = "" - - local TargetCoalition = nil - local TargetCategory = nil - local TargetType = nil - local TargetUnitCoalition = nil - local TargetUnitCategory = nil - local TargetUnitType = nil - - if Event.IniDCSUnit then - - InitUnit = Event.IniDCSUnit - InitUnitName = Event.IniDCSUnitName - InitGroup = Event.IniDCSGroup - InitGroupName = Event.IniDCSGroupName - InitPlayerName = InitUnit:getPlayerName() - - InitCoalition = InitUnit:getCoalition() - --TODO: Workaround Client DCS Bug - --InitCategory = InitUnit:getCategory() - InitCategory = InitUnit:getDesc().category - InitType = InitUnit:getTypeName() - - InitUnitCoalition = _SCORINGCoalition[InitCoalition] - InitUnitCategory = _SCORINGCategory[InitCategory] - InitUnitType = InitType - - self:T( { InitUnitName, InitGroupName, InitPlayerName, InitCoalition, InitCategory, InitType , InitUnitCoalition, InitUnitCategory, InitUnitType } ) - end - - - if Event.TgtDCSUnit then - - TargetUnit = Event.TgtDCSUnit - TargetUnitName = Event.TgtDCSUnitName - TargetGroup = Event.TgtDCSGroup - TargetGroupName = Event.TgtDCSGroupName - TargetPlayerName = TargetUnit:getPlayerName() - - TargetCoalition = TargetUnit:getCoalition() - --TODO: Workaround Client DCS Bug - --TargetCategory = TargetUnit:getCategory() - TargetCategory = TargetUnit:getDesc().category - TargetType = TargetUnit:getTypeName() - - TargetUnitCoalition = _SCORINGCoalition[TargetCoalition] - TargetUnitCategory = _SCORINGCategory[TargetCategory] - TargetUnitType = TargetType - - self:T( { TargetUnitName, TargetGroupName, TargetPlayerName, TargetCoalition, TargetCategory, TargetType, TargetUnitCoalition, TargetUnitCategory, TargetUnitType } ) - end - - if InitPlayerName ~= nil then -- It is a player that is hitting something - self:_AddPlayerFromUnit( InitUnit ) - if self.Players[InitPlayerName] then -- This should normally not happen, but i'll test it anyway. - if TargetPlayerName ~= nil then -- It is a player hitting another player ... - self:_AddPlayerFromUnit( TargetUnit ) - self.Players[InitPlayerName].HitPlayers = self.Players[InitPlayerName].HitPlayers + 1 - end - - self:T( "Hitting Something" ) - -- What is he hitting? - if TargetCategory then - if not self.Players[InitPlayerName].Hit[TargetCategory] then - self.Players[InitPlayerName].Hit[TargetCategory] = {} - end - if not self.Players[InitPlayerName].Hit[TargetCategory][TargetUnitName] then - self.Players[InitPlayerName].Hit[TargetCategory][TargetUnitName] = {} - self.Players[InitPlayerName].Hit[TargetCategory][TargetUnitName].Score = 0 - self.Players[InitPlayerName].Hit[TargetCategory][TargetUnitName].Penalty = 0 - self.Players[InitPlayerName].Hit[TargetCategory][TargetUnitName].ScoreHit = 0 - self.Players[InitPlayerName].Hit[TargetCategory][TargetUnitName].PenaltyHit = 0 - end - local Score = 0 - if InitCoalition == TargetCoalition then - self.Players[InitPlayerName].Penalty = self.Players[InitPlayerName].Penalty + 10 - self.Players[InitPlayerName].Hit[TargetCategory][TargetUnitName].Penalty = self.Players[InitPlayerName].Hit[TargetCategory][TargetUnitName].Penalty + 10 - self.Players[InitPlayerName].Hit[TargetCategory][TargetUnitName].PenaltyHit = self.Players[InitPlayerName].Hit[TargetCategory][TargetUnitName].PenaltyHit + 1 - MESSAGE:New( "Player '" .. InitPlayerName .. "' hit a friendly " .. TargetUnitCategory .. " ( " .. TargetType .. " ) " .. - self.Players[InitPlayerName].Hit[TargetCategory][TargetUnitName].PenaltyHit .. " times. Penalty: -" .. self.Players[InitPlayerName].Hit[TargetCategory][TargetUnitName].Penalty .. - ". Score Total:" .. self.Players[InitPlayerName].Score - self.Players[InitPlayerName].Penalty, - 2 - ):ToAll() - self:ScoreCSV( InitPlayerName, "HIT_PENALTY", 1, -25, InitUnitName, InitUnitCoalition, InitUnitCategory, InitUnitType, TargetUnitName, TargetUnitCoalition, TargetUnitCategory, TargetUnitType ) - else - self.Players[InitPlayerName].Score = self.Players[InitPlayerName].Score + 10 - self.Players[InitPlayerName].Hit[TargetCategory][TargetUnitName].Score = self.Players[InitPlayerName].Hit[TargetCategory][TargetUnitName].Score + 1 - self.Players[InitPlayerName].Hit[TargetCategory][TargetUnitName].ScoreHit = self.Players[InitPlayerName].Hit[TargetCategory][TargetUnitName].ScoreHit + 1 - MESSAGE:New( "Player '" .. InitPlayerName .. "' hit a target " .. TargetUnitCategory .. " ( " .. TargetType .. " ) " .. - self.Players[InitPlayerName].Hit[TargetCategory][TargetUnitName].ScoreHit .. " times. Score: " .. self.Players[InitPlayerName].Hit[TargetCategory][TargetUnitName].Score .. - ". Score Total:" .. self.Players[InitPlayerName].Score - self.Players[InitPlayerName].Penalty, - 2 - ):ToAll() - self:ScoreCSV( InitPlayerName, "HIT_SCORE", 1, 1, InitUnitName, InitUnitCoalition, InitUnitCategory, InitUnitType, TargetUnitName, TargetUnitCoalition, TargetUnitCategory, TargetUnitType ) - end - end - end - elseif InitPlayerName == nil then -- It is an AI hitting a player??? - - end -end - - -function SCORING:ReportScoreAll() - - env.info( "Hello World " ) - - local ScoreMessage = "" - local PlayerMessage = "" - - self:T( "Score Report" ) - - for PlayerName, PlayerData in pairs( self.Players ) do - if PlayerData then -- This should normally not happen, but i'll test it anyway. - self:T( "Score Player: " .. PlayerName ) - - -- Some variables - local InitUnitCoalition = _SCORINGCoalition[PlayerData.UnitCoalition] - local InitUnitCategory = _SCORINGCategory[PlayerData.UnitCategory] - local InitUnitType = PlayerData.UnitType - local InitUnitName = PlayerData.UnitName - - local PlayerScore = 0 - local PlayerPenalty = 0 - - ScoreMessage = ":\n" - - local ScoreMessageHits = "" - - for CategoryID, CategoryName in pairs( _SCORINGCategory ) do - self:T( CategoryName ) - if PlayerData.Hit[CategoryID] then - local Score = 0 - local ScoreHit = 0 - local Penalty = 0 - local PenaltyHit = 0 - self:T( "Hit scores exist for player " .. PlayerName ) - for UnitName, UnitData in pairs( PlayerData.Hit[CategoryID] ) do - Score = Score + UnitData.Score - ScoreHit = ScoreHit + UnitData.ScoreHit - Penalty = Penalty + UnitData.Penalty - PenaltyHit = UnitData.PenaltyHit - end - local ScoreMessageHit = string.format( "%s:%d ", CategoryName, Score - Penalty ) - self:T( ScoreMessageHit ) - ScoreMessageHits = ScoreMessageHits .. ScoreMessageHit - PlayerScore = PlayerScore + Score - PlayerPenalty = PlayerPenalty + Penalty - else - --ScoreMessageHits = ScoreMessageHits .. string.format( "%s:%d ", string.format(CategoryName, 1, 1), 0 ) - end - end - if ScoreMessageHits ~= "" then - ScoreMessage = ScoreMessage .. " Hits: " .. ScoreMessageHits .. "\n" - end - - local ScoreMessageKills = "" - for CategoryID, CategoryName in pairs( _SCORINGCategory ) do - self:T( "Kill scores exist for player " .. PlayerName ) - if PlayerData.Kill[CategoryID] then - local Score = 0 - local ScoreKill = 0 - local Penalty = 0 - local PenaltyKill = 0 - - for UnitName, UnitData in pairs( PlayerData.Kill[CategoryID] ) do - Score = Score + UnitData.Score - ScoreKill = ScoreKill + UnitData.ScoreKill - Penalty = Penalty + UnitData.Penalty - PenaltyKill = PenaltyKill + UnitData.PenaltyKill - end - - local ScoreMessageKill = string.format( " %s:%d ", CategoryName, Score - Penalty ) - self:T( ScoreMessageKill ) - ScoreMessageKills = ScoreMessageKills .. ScoreMessageKill - - PlayerScore = PlayerScore + Score - PlayerPenalty = PlayerPenalty + Penalty - else - --ScoreMessageKills = ScoreMessageKills .. string.format( "%s:%d ", string.format(CategoryName, 1, 1), 0 ) - end - end - if ScoreMessageKills ~= "" then - ScoreMessage = ScoreMessage .. " Kills: " .. ScoreMessageKills .. "\n" - end - - local ScoreMessageCoalitionChangePenalties = "" - if PlayerData.PenaltyCoalition ~= 0 then - ScoreMessageCoalitionChangePenalties = ScoreMessageCoalitionChangePenalties .. string.format( " -%d (%d changed)", PlayerData.Penalty, PlayerData.PenaltyCoalition ) - PlayerPenalty = PlayerPenalty + PlayerData.Penalty - end - if ScoreMessageCoalitionChangePenalties ~= "" then - ScoreMessage = ScoreMessage .. " Coalition Penalties: " .. ScoreMessageCoalitionChangePenalties .. "\n" - end - - local ScoreMessageMission = "" - local ScoreMission = 0 - local ScoreTask = 0 - for MissionName, MissionData in pairs( PlayerData.Mission ) do - ScoreMission = ScoreMission + MissionData.ScoreMission - ScoreTask = ScoreTask + MissionData.ScoreTask - ScoreMessageMission = ScoreMessageMission .. "'" .. MissionName .. "'; " - end - PlayerScore = PlayerScore + ScoreMission + ScoreTask - - if ScoreMessageMission ~= "" then - ScoreMessage = ScoreMessage .. " Tasks: " .. ScoreTask .. " Mission: " .. ScoreMission .. " ( " .. ScoreMessageMission .. ")\n" - end - - PlayerMessage = PlayerMessage .. string.format( "Player '%s' Score:%d (%d Score -%d Penalties)%s", PlayerName, PlayerScore - PlayerPenalty, PlayerScore, PlayerPenalty, ScoreMessage ) - end - end - MESSAGE:New( PlayerMessage, 30, "Player Scores" ):ToAll() -end - - -function SCORING:ReportScorePlayer() - - env.info( "Hello World " ) - - local ScoreMessage = "" - local PlayerMessage = "" - - self:T( "Score Report" ) - - for PlayerName, PlayerData in pairs( self.Players ) do - if PlayerData then -- This should normally not happen, but i'll test it anyway. - self:T( "Score Player: " .. PlayerName ) - - -- Some variables - local InitUnitCoalition = _SCORINGCoalition[PlayerData.UnitCoalition] - local InitUnitCategory = _SCORINGCategory[PlayerData.UnitCategory] - local InitUnitType = PlayerData.UnitType - local InitUnitName = PlayerData.UnitName - - local PlayerScore = 0 - local PlayerPenalty = 0 - - ScoreMessage = "" - - local ScoreMessageHits = "" - - for CategoryID, CategoryName in pairs( _SCORINGCategory ) do - self:T( CategoryName ) - if PlayerData.Hit[CategoryID] then - local Score = 0 - local ScoreHit = 0 - local Penalty = 0 - local PenaltyHit = 0 - self:T( "Hit scores exist for player " .. PlayerName ) - for UnitName, UnitData in pairs( PlayerData.Hit[CategoryID] ) do - Score = Score + UnitData.Score - ScoreHit = ScoreHit + UnitData.ScoreHit - Penalty = Penalty + UnitData.Penalty - PenaltyHit = UnitData.PenaltyHit - end - local ScoreMessageHit = string.format( "\n %s = %d score(%d;-%d) hits(#%d;#-%d)", CategoryName, Score - Penalty, Score, Penalty, ScoreHit, PenaltyHit ) - self:T( ScoreMessageHit ) - ScoreMessageHits = ScoreMessageHits .. ScoreMessageHit - PlayerScore = PlayerScore + Score - PlayerPenalty = PlayerPenalty + Penalty - else - --ScoreMessageHits = ScoreMessageHits .. string.format( "%s:%d ", string.format(CategoryName, 1, 1), 0 ) - end - end - if ScoreMessageHits ~= "" then - ScoreMessage = ScoreMessage .. "\n Hits: " .. ScoreMessageHits .. " " - end - - local ScoreMessageKills = "" - for CategoryID, CategoryName in pairs( _SCORINGCategory ) do - self:T( "Kill scores exist for player " .. PlayerName ) - if PlayerData.Kill[CategoryID] then - local Score = 0 - local ScoreKill = 0 - local Penalty = 0 - local PenaltyKill = 0 - - for UnitName, UnitData in pairs( PlayerData.Kill[CategoryID] ) do - Score = Score + UnitData.Score - ScoreKill = ScoreKill + UnitData.ScoreKill - Penalty = Penalty + UnitData.Penalty - PenaltyKill = PenaltyKill + UnitData.PenaltyKill - end - - local ScoreMessageKill = string.format( "\n %s = %d score(%d;-%d) hits(#%d;#-%d)", CategoryName, Score - Penalty, Score, Penalty, ScoreKill, PenaltyKill ) - self:T( ScoreMessageKill ) - ScoreMessageKills = ScoreMessageKills .. ScoreMessageKill - - PlayerScore = PlayerScore + Score - PlayerPenalty = PlayerPenalty + Penalty - else - --ScoreMessageKills = ScoreMessageKills .. string.format( "%s:%d ", string.format(CategoryName, 1, 1), 0 ) - end - end - if ScoreMessageKills ~= "" then - ScoreMessage = ScoreMessage .. "\n Kills: " .. ScoreMessageKills .. " " - end - - local ScoreMessageCoalitionChangePenalties = "" - if PlayerData.PenaltyCoalition ~= 0 then - ScoreMessageCoalitionChangePenalties = ScoreMessageCoalitionChangePenalties .. string.format( " -%d (%d changed)", PlayerData.Penalty, PlayerData.PenaltyCoalition ) - PlayerPenalty = PlayerPenalty + PlayerData.Penalty - end - if ScoreMessageCoalitionChangePenalties ~= "" then - ScoreMessage = ScoreMessage .. "\n Coalition: " .. ScoreMessageCoalitionChangePenalties .. " " - end - - local ScoreMessageMission = "" - local ScoreMission = 0 - local ScoreTask = 0 - for MissionName, MissionData in pairs( PlayerData.Mission ) do - ScoreMission = ScoreMission + MissionData.ScoreMission - ScoreTask = ScoreTask + MissionData.ScoreTask - ScoreMessageMission = ScoreMessageMission .. "'" .. MissionName .. "'; " - end - PlayerScore = PlayerScore + ScoreMission + ScoreTask - - if ScoreMessageMission ~= "" then - ScoreMessage = ScoreMessage .. "\n Tasks: " .. ScoreTask .. " Mission: " .. ScoreMission .. " ( " .. ScoreMessageMission .. ") " - end - - PlayerMessage = PlayerMessage .. string.format( "Player '%s' Score = %d ( %d Score, -%d Penalties ):%s", PlayerName, PlayerScore - PlayerPenalty, PlayerScore, PlayerPenalty, ScoreMessage ) - end - end - MESSAGE:New( PlayerMessage, 30, "Player Scores" ):ToAll() - -end - - -function SCORING:SecondsToClock(sSeconds) - local nSeconds = sSeconds - if nSeconds == 0 then - --return nil; - return "00:00:00"; - else - nHours = string.format("%02.f", math.floor(nSeconds/3600)); - nMins = string.format("%02.f", math.floor(nSeconds/60 - (nHours*60))); - nSecs = string.format("%02.f", math.floor(nSeconds - nHours*3600 - nMins *60)); - return nHours..":"..nMins..":"..nSecs - end -end - ---- Opens a score CSV file to log the scores. --- @param #SCORING self --- @param #string ScoringCSV --- @return #SCORING self --- @usage --- -- Open a new CSV file to log the scores of the game Gori Valley. Let the name of the CSV file begin with "Player Scores". --- ScoringObject = SCORING:New( "Gori Valley" ) --- ScoringObject:OpenCSV( "Player Scores" ) -function SCORING:OpenCSV( ScoringCSV ) - self:F( ScoringCSV ) - - if lfs and io and os then - if ScoringCSV then - self.ScoringCSV = ScoringCSV - local fdir = lfs.writedir() .. [[Logs\]] .. self.ScoringCSV .. " " .. os.date( "%Y-%m-%d %H-%M-%S" ) .. ".csv" - - self.CSVFile, self.err = io.open( fdir, "w+" ) - if not self.CSVFile then - error( "Error: Cannot open CSV file in " .. lfs.writedir() ) - end - - self.CSVFile:write( '"GameName","RunTime","Time","PlayerName","ScoreType","PlayerUnitCoaltion","PlayerUnitCategory","PlayerUnitType","PlayerUnitName","TargetUnitCoalition","TargetUnitCategory","TargetUnitType","TargetUnitName","Times","Score"\n' ) - - self.RunTime = os.date("%y-%m-%d_%H-%M-%S") - else - error( "A string containing the CSV file name must be given." ) - end - else - self:E( "The MissionScripting.lua file has not been changed to allow lfs, io and os modules to be used..." ) - end - return self -end - - ---- Registers a score for a player. --- @param #SCORING self --- @param #string PlayerName The name of the player. --- @param #string ScoreType The type of the score. --- @param #string ScoreTimes The amount of scores achieved. --- @param #string ScoreAmount The score given. --- @param #string PlayerUnitName The unit name of the player. --- @param #string PlayerUnitCoalition The coalition of the player unit. --- @param #string PlayerUnitCategory The category of the player unit. --- @param #string PlayerUnitType The type of the player unit. --- @param #string TargetUnitName The name of the target unit. --- @param #string TargetUnitCoalition The coalition of the target unit. --- @param #string TargetUnitCategory The category of the target unit. --- @param #string TargetUnitType The type of the target unit. --- @return #SCORING self -function SCORING:ScoreCSV( PlayerName, ScoreType, ScoreTimes, ScoreAmount, PlayerUnitName, PlayerUnitCoalition, PlayerUnitCategory, PlayerUnitType, TargetUnitName, TargetUnitCoalition, TargetUnitCategory, TargetUnitType ) - --write statistic information to file - local ScoreTime = self:SecondsToClock( timer.getTime() ) - PlayerName = PlayerName:gsub( '"', '_' ) - - if PlayerUnitName and PlayerUnitName ~= '' then - local PlayerUnit = Unit.getByName( PlayerUnitName ) - - if PlayerUnit then - if not PlayerUnitCategory then - --PlayerUnitCategory = SCORINGCategory[PlayerUnit:getCategory()] - PlayerUnitCategory = _SCORINGCategory[PlayerUnit:getDesc().category] - end - - if not PlayerUnitCoalition then - PlayerUnitCoalition = _SCORINGCoalition[PlayerUnit:getCoalition()] - end - - if not PlayerUnitType then - PlayerUnitType = PlayerUnit:getTypeName() - end - else - PlayerUnitName = '' - PlayerUnitCategory = '' - PlayerUnitCoalition = '' - PlayerUnitType = '' - end - else - PlayerUnitName = '' - PlayerUnitCategory = '' - PlayerUnitCoalition = '' - PlayerUnitType = '' - end - - if not TargetUnitCoalition then - TargetUnitCoalition = '' - end - - if not TargetUnitCategory then - TargetUnitCategory = '' - end - - if not TargetUnitType then - TargetUnitType = '' - end - - if not TargetUnitName then - TargetUnitName = '' - end - - if lfs and io and os then - self.CSVFile:write( - '"' .. self.GameName .. '"' .. ',' .. - '"' .. self.RunTime .. '"' .. ',' .. - '' .. ScoreTime .. '' .. ',' .. - '"' .. PlayerName .. '"' .. ',' .. - '"' .. ScoreType .. '"' .. ',' .. - '"' .. PlayerUnitCoalition .. '"' .. ',' .. - '"' .. PlayerUnitCategory .. '"' .. ',' .. - '"' .. PlayerUnitType .. '"' .. ',' .. - '"' .. PlayerUnitName .. '"' .. ',' .. - '"' .. TargetUnitCoalition .. '"' .. ',' .. - '"' .. TargetUnitCategory .. '"' .. ',' .. - '"' .. TargetUnitType .. '"' .. ',' .. - '"' .. TargetUnitName .. '"' .. ',' .. - '' .. ScoreTimes .. '' .. ',' .. - '' .. ScoreAmount - ) - - self.CSVFile:write( "\n" ) - end -end - - -function SCORING:CloseCSV() - if lfs and io and os then - self.CSVFile:close() - end -end - ---- CARGO Classes --- @module CARGO - - - - - - - ---- Clients are those Groups defined within the Mission Editor that have the skillset defined as "Client" or "Player". --- These clients are defined within the Mission Orchestration Framework (MOF) - -CARGOS = {} - - -CARGO_ZONE = { - ClassName="CARGO_ZONE", - CargoZoneName = '', - CargoHostUnitName = '', - SIGNAL = { - TYPE = { - SMOKE = { ID = 1, TEXT = "smoke" }, - FLARE = { ID = 2, TEXT = "flare" } - }, - COLOR = { - GREEN = { ID = 1, TRIGGERCOLOR = trigger.smokeColor.Green, TEXT = "A green" }, - RED = { ID = 2, TRIGGERCOLOR = trigger.smokeColor.Red, TEXT = "A red" }, - WHITE = { ID = 3, TRIGGERCOLOR = trigger.smokeColor.White, TEXT = "A white" }, - ORANGE = { ID = 4, TRIGGERCOLOR = trigger.smokeColor.Orange, TEXT = "An orange" }, - BLUE = { ID = 5, TRIGGERCOLOR = trigger.smokeColor.Blue, TEXT = "A blue" }, - YELLOW = { ID = 6, TRIGGERCOLOR = trigger.flareColor.Yellow, TEXT = "A yellow" } - } - } -} - ---- Creates a new zone where cargo can be collected or deployed. --- The zone functionality is useful to smoke or indicate routes for cargo pickups or deployments. --- Provide the zone name as declared in the mission file into the CargoZoneName in the :New method. --- An optional parameter is the CargoHostName, which is a Group declared with Late Activation switched on in the mission file. --- The CargoHostName is the "host" of the cargo zone: --- --- * It will smoke the zone position when a client is approaching the zone. --- * Depending on the cargo type, it will assist in the delivery of the cargo by driving to and from the client. --- --- @param #CARGO_ZONE self --- @param #string CargoZoneName The name of the zone as declared within the mission editor. --- @param #string CargoHostName The name of the Group "hosting" the zone. The Group MUST NOT be a static, and must be a "mobile" unit. -function CARGO_ZONE:New( CargoZoneName, CargoHostName ) local self = BASE:Inherit( self, ZONE:New( CargoZoneName ) ) - self:F( { CargoZoneName, CargoHostName } ) - - self.CargoZoneName = CargoZoneName - self.SignalHeight = 2 - --self.CargoZone = trigger.misc.getZone( CargoZoneName ) - - - if CargoHostName then - self.CargoHostName = CargoHostName - end - - self:T( self.CargoZoneName ) - - return self -end - -function CARGO_ZONE:Spawn() - self:F( self.CargoHostName ) - - if self.CargoHostName then -- Only spawn a host in the zone when there is one given as a parameter in the New function. - if self.CargoHostSpawn then - local CargoHostGroup = self.CargoHostSpawn:GetGroupFromIndex() - if CargoHostGroup and CargoHostGroup:IsAlive() then - else - self.CargoHostSpawn:ReSpawn( 1 ) - end - else - self:T( "Initialize CargoHostSpawn" ) - self.CargoHostSpawn = SPAWN:New( self.CargoHostName ):Limit( 1, 1 ) - self.CargoHostSpawn:ReSpawn( 1 ) - end - end - - return self -end - -function CARGO_ZONE:GetHostUnit() - self:F( self ) - - if self.CargoHostName then - - -- A Host has been given, signal the host - local CargoHostGroup = self.CargoHostSpawn:GetGroupFromIndex() - local CargoHostUnit - if CargoHostGroup and CargoHostGroup:IsAlive() then - CargoHostUnit = CargoHostGroup:GetUnit(1) - else - CargoHostUnit = StaticObject.getByName( self.CargoHostName ) - end - - return CargoHostUnit - end - - return nil -end - -function CARGO_ZONE:ReportCargosToClient( Client, CargoType ) - self:F() - - local SignalUnit = self:GetHostUnit() - - if SignalUnit then - - local SignalUnitTypeName = SignalUnit:getTypeName() - - local HostMessage = "" - - local IsCargo = false - for CargoID, Cargo in pairs( CARGOS ) do - if Cargo.CargoType == Task.CargoType then - if Cargo:IsStatusNone() then - HostMessage = HostMessage .. " - " .. Cargo.CargoName .. " - " .. Cargo.CargoType .. " (" .. Cargo.Weight .. "kg)" .. "\n" - IsCargo = true - end - end - end - - if not IsCargo then - HostMessage = "No Cargo Available." - end - - Client:Message( HostMessage, 20, SignalUnitTypeName .. ": Reporting Cargo", 10 ) - end -end - - -function CARGO_ZONE:Signal() - self:F() - - local Signalled = false - - if self.SignalType then - - if self.CargoHostName then - - -- A Host has been given, signal the host - - local SignalUnit = self:GetHostUnit() - - if SignalUnit then - - self:T( 'Signalling Unit' ) - local SignalVehiclePos = SignalUnit:GetPointVec3() - SignalVehiclePos.y = SignalVehiclePos.y + 2 - - if self.SignalType.ID == CARGO_ZONE.SIGNAL.TYPE.SMOKE.ID then - - trigger.action.smoke( SignalVehiclePos, self.SignalColor.TRIGGERCOLOR ) - Signalled = true - - elseif self.SignalType.ID == CARGO_ZONE.SIGNAL.TYPE.FLARE.ID then - - trigger.action.signalFlare( SignalVehiclePos, self.SignalColor.TRIGGERCOLOR , 0 ) - Signalled = false - - end - end - - else - - local ZonePointVec3 = self:GetPointVec3( self.SignalHeight ) -- Get the zone position + the landheight + 2 meters - - if self.SignalType.ID == CARGO_ZONE.SIGNAL.TYPE.SMOKE.ID then - - trigger.action.smoke( ZonePointVec3, self.SignalColor.TRIGGERCOLOR ) - Signalled = true - - elseif self.SignalType.ID == CARGO_ZONE.SIGNAL.TYPE.FLARE.ID then - trigger.action.signalFlare( ZonePointVec3, self.SignalColor.TRIGGERCOLOR, 0 ) - Signalled = false - - end - end - end - - return Signalled - -end - -function CARGO_ZONE:WhiteSmoke( SignalHeight ) - self:F() - - self.SignalType = CARGO_ZONE.SIGNAL.TYPE.SMOKE - self.SignalColor = CARGO_ZONE.SIGNAL.COLOR.WHITE - - if SignalHeight then - self.SignalHeight = SignalHeight - end - - return self -end - -function CARGO_ZONE:BlueSmoke( SignalHeight ) - self:F() - - self.SignalType = CARGO_ZONE.SIGNAL.TYPE.SMOKE - self.SignalColor = CARGO_ZONE.SIGNAL.COLOR.BLUE - - if SignalHeight then - self.SignalHeight = SignalHeight - end - - return self -end - -function CARGO_ZONE:RedSmoke( SignalHeight ) - self:F() - - self.SignalType = CARGO_ZONE.SIGNAL.TYPE.SMOKE - self.SignalColor = CARGO_ZONE.SIGNAL.COLOR.RED - - if SignalHeight then - self.SignalHeight = SignalHeight - end - - return self -end - -function CARGO_ZONE:OrangeSmoke( SignalHeight ) - self:F() - - self.SignalType = CARGO_ZONE.SIGNAL.TYPE.SMOKE - self.SignalColor = CARGO_ZONE.SIGNAL.COLOR.ORANGE - - if SignalHeight then - self.SignalHeight = SignalHeight - end - - return self -end - -function CARGO_ZONE:GreenSmoke( SignalHeight ) - self:F() - - self.SignalType = CARGO_ZONE.SIGNAL.TYPE.SMOKE - self.SignalColor = CARGO_ZONE.SIGNAL.COLOR.GREEN - - if SignalHeight then - self.SignalHeight = SignalHeight - end - - return self -end - - -function CARGO_ZONE:WhiteFlare( SignalHeight ) - self:F() - - self.SignalType = CARGO_ZONE.SIGNAL.TYPE.FLARE - self.SignalColor = CARGO_ZONE.SIGNAL.COLOR.WHITE - - if SignalHeight then - self.SignalHeight = SignalHeight - end - - return self -end - -function CARGO_ZONE:RedFlare( SignalHeight ) - self:F() - - self.SignalType = CARGO_ZONE.SIGNAL.TYPE.FLARE - self.SignalColor = CARGO_ZONE.SIGNAL.COLOR.RED - - if SignalHeight then - self.SignalHeight = SignalHeight - end - - return self -end - -function CARGO_ZONE:GreenFlare( SignalHeight ) - self:F() - - self.SignalType = CARGO_ZONE.SIGNAL.TYPE.FLARE - self.SignalColor = CARGO_ZONE.SIGNAL.COLOR.GREEN - - if SignalHeight then - self.SignalHeight = SignalHeight - end - - return self -end - -function CARGO_ZONE:YellowFlare( SignalHeight ) - self:F() - - self.SignalType = CARGO_ZONE.SIGNAL.TYPE.FLARE - self.SignalColor = CARGO_ZONE.SIGNAL.COLOR.YELLOW - - if SignalHeight then - self.SignalHeight = SignalHeight - end - - return self -end - - -function CARGO_ZONE:GetCargoHostUnit() - self:F( self ) - - if self.CargoHostSpawn then - local CargoHostGroup = self.CargoHostSpawn:GetGroupFromIndex(1) - if CargoHostGroup and CargoHostGroup:IsAlive() then - local CargoHostUnit = CargoHostGroup:GetUnit(1) - if CargoHostUnit and CargoHostUnit:IsAlive() then - return CargoHostUnit - end - end - end - - return nil -end - -function CARGO_ZONE:GetCargoZoneName() - self:F() - - return self.CargoZoneName -end - -CARGO = { - ClassName = "CARGO", - STATUS = { - NONE = 0, - LOADED = 1, - UNLOADED = 2, - LOADING = 3 - }, - CargoClient = nil -} - ---- Add Cargo to the mission... Cargo functionality needs to be reworked a bit, so this is still under construction. I need to make a CARGO Class... -function CARGO:New( CargoType, CargoName, CargoWeight ) local self = BASE:Inherit( self, BASE:New() ) - self:F( { CargoType, CargoName, CargoWeight } ) - - - self.CargoType = CargoType - self.CargoName = CargoName - self.CargoWeight = CargoWeight - - self:StatusNone() - - return self -end - -function CARGO:Spawn( Client ) - self:F() - - return self - -end - -function CARGO:IsNear( Client, LandingZone ) - self:F() - - local Near = true - - return Near - -end - - -function CARGO:IsLoadingToClient() - self:F() - - if self:IsStatusLoading() then - return self.CargoClient - end - - return nil - -end - - -function CARGO:IsLoadedInClient() - self:F() - - if self:IsStatusLoaded() then - return self.CargoClient - end - - return nil - -end - - -function CARGO:UnLoad( Client, TargetZoneName ) - self:F() - - self:StatusUnLoaded() - - return self -end - -function CARGO:OnBoard( Client, LandingZone ) - self:F() - - local Valid = true - - self.CargoClient = Client - local ClientUnit = Client:GetClientGroupDCSUnit() - - return Valid -end - -function CARGO:OnBoarded( Client, LandingZone ) - self:F() - - local OnBoarded = true - - return OnBoarded -end - -function CARGO:Load( Client ) - self:F() - - self:StatusLoaded( Client ) - - return self -end - -function CARGO:IsLandingRequired() - self:F() - return true -end - -function CARGO:IsSlingLoad() - self:F() - return false -end - - -function CARGO:StatusNone() - self:F() - - self.CargoClient = nil - self.CargoStatus = CARGO.STATUS.NONE - - return self -end - -function CARGO:StatusLoading( Client ) - self:F() - - self.CargoClient = Client - self.CargoStatus = CARGO.STATUS.LOADING - self:T( "Cargo " .. self.CargoName .. " loading to Client: " .. self.CargoClient:GetClientGroupName() ) - - return self -end - -function CARGO:StatusLoaded( Client ) - self:F() - - self.CargoClient = Client - self.CargoStatus = CARGO.STATUS.LOADED - self:T( "Cargo " .. self.CargoName .. " loaded in Client: " .. self.CargoClient:GetClientGroupName() ) - - return self -end - -function CARGO:StatusUnLoaded() - self:F() - - self.CargoClient = nil - self.CargoStatus = CARGO.STATUS.UNLOADED - - return self -end - - -function CARGO:IsStatusNone() - self:F() - - return self.CargoStatus == CARGO.STATUS.NONE -end - -function CARGO:IsStatusLoading() - self:F() - - return self.CargoStatus == CARGO.STATUS.LOADING -end - -function CARGO:IsStatusLoaded() - self:F() - - return self.CargoStatus == CARGO.STATUS.LOADED -end - -function CARGO:IsStatusUnLoaded() - self:F() - - return self.CargoStatus == CARGO.STATUS.UNLOADED -end - - -CARGO_GROUP = { - ClassName = "CARGO_GROUP" -} - - -function CARGO_GROUP:New( CargoType, CargoName, CargoWeight, CargoGroupTemplate, CargoZone ) local self = BASE:Inherit( self, CARGO:New( CargoType, CargoName, CargoWeight ) ) - self:F( { CargoType, CargoName, CargoWeight, CargoGroupTemplate, CargoZone } ) - - self.CargoSpawn = SPAWN:NewWithAlias( CargoGroupTemplate, CargoName ) - self.CargoZone = CargoZone - - CARGOS[self.CargoName] = self - - return self - -end - -function CARGO_GROUP:Spawn( Client ) - self:F( { Client } ) - - local SpawnCargo = true - - if self:IsStatusNone() then - local CargoGroup = Group.getByName( self.CargoName ) - if CargoGroup and CargoGroup:isExist() then - SpawnCargo = false - end - - elseif self:IsStatusLoading() then - - local Client = self:IsLoadingToClient() - if Client and Client:GetDCSGroup() then - SpawnCargo = false - else - local CargoGroup = Group.getByName( self.CargoName ) - if CargoGroup and CargoGroup:isExist() then - SpawnCargo = false - end - end - - elseif self:IsStatusLoaded() then - - local ClientLoaded = self:IsLoadedInClient() - -- Now test if another Client is alive (not this one), and it has the CARGO, then this cargo does not need to be initialized and spawned. - if ClientLoaded and ClientLoaded ~= Client then - local ClientGroup = Client:GetDCSGroup() - if ClientLoaded:GetClientGroupDCSUnit() and ClientLoaded:GetClientGroupDCSUnit():isExist() then - SpawnCargo = false - else - self:StatusNone() - end - else - -- Same Client, but now in initialize, so set back the status to None. - self:StatusNone() - end - - elseif self:IsStatusUnLoaded() then - - SpawnCargo = false - - end - - if SpawnCargo then - if self.CargoZone:GetCargoHostUnit() then - --- ReSpawn the Cargo from the CargoHost - self.CargoGroupName = self.CargoSpawn:SpawnFromUnit( self.CargoZone:GetCargoHostUnit(), 60, 30, 1 ):GetName() - else - --- ReSpawn the Cargo in the CargoZone without a host ... - self:T( self.CargoZone ) - self.CargoGroupName = self.CargoSpawn:SpawnInZone( self.CargoZone, true, 1 ):GetName() - end - self:StatusNone() - end - - self:T( { self.CargoGroupName, CARGOS[self.CargoName].CargoGroupName } ) - - return self -end - -function CARGO_GROUP:IsNear( Client, LandingZone ) - self:F() - - local Near = false - - if self.CargoGroupName then - local CargoGroup = Group.getByName( self.CargoGroupName ) - if routines.IsPartOfGroupInRadius( CargoGroup, Client:GetPositionVec3(), 250 ) then - Near = true - end - end - - return Near - -end - - -function CARGO_GROUP:OnBoard( Client, LandingZone, OnBoardSide ) - self:F() - - local Valid = true - - local ClientUnit = Client:GetClientGroupDCSUnit() - - local CarrierPos = ClientUnit:getPoint() - local CarrierPosMove = ClientUnit:getPoint() - local CarrierPosOnBoard = ClientUnit:getPoint() - - local CargoGroup = Group.getByName( self.CargoGroupName ) - - local CargoUnit = CargoGroup:getUnit(1) - local CargoPos = CargoUnit:getPoint() - - self.CargoInAir = CargoUnit:inAir() - - self:T( self.CargoInAir ) - - -- Only move the group to the carrier when the cargo is not in the air - -- (eg. cargo can be on a oil derrick, moving the cargo on the oil derrick will drop the cargo on the sea). - if not self.CargoInAir then - - local Points = {} - - self:T( 'CargoPos x = ' .. CargoPos.x .. " z = " .. CargoPos.z ) - self:T( 'CarrierPosMove x = ' .. CarrierPosMove.x .. " z = " .. CarrierPosMove.z ) - - Points[#Points+1] = routines.ground.buildWP( CargoPos, "Cone", 10 ) - - self:T( 'Points[1] x = ' .. Points[1].x .. " y = " .. Points[1].y ) - - if OnBoardSide == nil then - OnBoardSide = CLIENT.ONBOARDSIDE.NONE - end - - if OnBoardSide == CLIENT.ONBOARDSIDE.LEFT then - - self:T( "TransportCargoOnBoard: Onboarding LEFT" ) - CarrierPosMove.z = CarrierPosMove.z - 25 - CarrierPosOnBoard.z = CarrierPosOnBoard.z - 5 - Points[#Points+1] = routines.ground.buildWP( CarrierPosMove, "Cone", 10 ) - Points[#Points+1] = routines.ground.buildWP( CarrierPosOnBoard, "Cone", 10 ) - - elseif OnBoardSide == CLIENT.ONBOARDSIDE.RIGHT then - - self:T( "TransportCargoOnBoard: Onboarding RIGHT" ) - CarrierPosMove.z = CarrierPosMove.z + 25 - CarrierPosOnBoard.z = CarrierPosOnBoard.z + 5 - Points[#Points+1] = routines.ground.buildWP( CarrierPosMove, "Cone", 10 ) - Points[#Points+1] = routines.ground.buildWP( CarrierPosOnBoard, "Cone", 10 ) - - elseif OnBoardSide == CLIENT.ONBOARDSIDE.BACK then - - self:T( "TransportCargoOnBoard: Onboarding BACK" ) - CarrierPosMove.x = CarrierPosMove.x - 25 - CarrierPosOnBoard.x = CarrierPosOnBoard.x - 5 - Points[#Points+1] = routines.ground.buildWP( CarrierPosMove, "Cone", 10 ) - Points[#Points+1] = routines.ground.buildWP( CarrierPosOnBoard, "Cone", 10 ) - - elseif OnBoardSide == CLIENT.ONBOARDSIDE.FRONT then - - self:T( "TransportCargoOnBoard: Onboarding FRONT" ) - CarrierPosMove.x = CarrierPosMove.x + 25 - CarrierPosOnBoard.x = CarrierPosOnBoard.x + 5 - Points[#Points+1] = routines.ground.buildWP( CarrierPosMove, "Cone", 10 ) - Points[#Points+1] = routines.ground.buildWP( CarrierPosOnBoard, "Cone", 10 ) - - elseif OnBoardSide == CLIENT.ONBOARDSIDE.NONE then - - self:T( "TransportCargoOnBoard: Onboarding CENTRAL" ) - Points[#Points+1] = routines.ground.buildWP( CarrierPos, "Cone", 10 ) - - end - self:T( "TransportCargoOnBoard: Routing " .. self.CargoGroupName ) - - --routines.scheduleFunction( routines.goRoute, { self.CargoGroupName, Points}, timer.getTime() + 4 ) - SCHEDULER:New( self, routines.goRoute, { self.CargoGroupName, Points}, 4 ) - end - - self:StatusLoading( Client ) - - return Valid - -end - - -function CARGO_GROUP:OnBoarded( Client, LandingZone ) - self:F() - - local OnBoarded = false - - local CargoGroup = Group.getByName( self.CargoGroupName ) - - if not self.CargoInAir then - if routines.IsPartOfGroupInRadius( CargoGroup, Client:GetPositionVec3(), 25 ) then - CargoGroup:destroy() - self:StatusLoaded( Client ) - OnBoarded = true - end - else - CargoGroup:destroy() - self:StatusLoaded( Client ) - OnBoarded = true - end - - return OnBoarded -end - - -function CARGO_GROUP:UnLoad( Client, TargetZoneName ) - self:F() - - self:T( 'self.CargoName = ' .. self.CargoName ) - - local CargoGroup = self.CargoSpawn:SpawnFromUnit( Client:GetClientGroupUnit(), 60, 30 ) - - self.CargoGroupName = CargoGroup:GetName() - self:T( 'self.CargoGroupName = ' .. self.CargoGroupName ) - - CargoGroup:TaskRouteToZone( ZONE:New( TargetZoneName ), true ) - - self:StatusUnLoaded() - - return self -end - - -CARGO_PACKAGE = { - ClassName = "CARGO_PACKAGE" -} - - -function CARGO_PACKAGE:New( CargoType, CargoName, CargoWeight, CargoClient ) local self = BASE:Inherit( self, CARGO:New( CargoType, CargoName, CargoWeight ) ) - self:F( { CargoType, CargoName, CargoWeight, CargoClient } ) - - self.CargoClient = CargoClient - - CARGOS[self.CargoName] = self - - return self - -end - - -function CARGO_PACKAGE:Spawn( Client ) - self:F( { self, Client } ) - - -- this needs to be checked thoroughly - - local CargoClientGroup = self.CargoClient:GetDCSGroup() - if not CargoClientGroup then - if not self.CargoClientSpawn then - self.CargoClientSpawn = SPAWN:New( self.CargoClient:GetClientGroupName() ):Limit( 1, 1 ) - end - self.CargoClientSpawn:ReSpawn( 1 ) - end - - local SpawnCargo = true - - if self:IsStatusNone() then - - elseif self:IsStatusLoading() or self:IsStatusLoaded() then - - local CargoClientLoaded = self:IsLoadedInClient() - if CargoClientLoaded and CargoClientLoaded:GetDCSGroup() then - SpawnCargo = false - end - - elseif self:IsStatusUnLoaded() then - - SpawnCargo = false - - else - - end - - if SpawnCargo then - self:StatusLoaded( self.CargoClient ) - end - - return self -end - - -function CARGO_PACKAGE:IsNear( Client, LandingZone ) - self:F() - - local Near = false - - if self.CargoClient and self.CargoClient:GetDCSGroup() then - self:T( self.CargoClient.ClientName ) - self:T( 'Client Exists.' ) - - if routines.IsUnitInRadius( self.CargoClient:GetClientGroupDCSUnit(), Client:GetPositionVec3(), 150 ) then - Near = true - end - end - - return Near - -end - - -function CARGO_PACKAGE:OnBoard( Client, LandingZone, OnBoardSide ) - self:F() - - local Valid = true - - local ClientUnit = Client:GetClientGroupDCSUnit() - - local CarrierPos = ClientUnit:getPoint() - local CarrierPosMove = ClientUnit:getPoint() - local CarrierPosOnBoard = ClientUnit:getPoint() - local CarrierPosMoveAway = ClientUnit:getPoint() - - local CargoHostGroup = self.CargoClient:GetDCSGroup() - local CargoHostName = self.CargoClient:GetDCSGroup():getName() - - local CargoHostUnits = CargoHostGroup:getUnits() - local CargoPos = CargoHostUnits[1]:getPoint() - - local Points = {} - - self:T( 'CargoPos x = ' .. CargoPos.x .. " z = " .. CargoPos.z ) - self:T( 'CarrierPosMove x = ' .. CarrierPosMove.x .. " z = " .. CarrierPosMove.z ) - - Points[#Points+1] = routines.ground.buildWP( CargoPos, "Cone", 10 ) - - self:T( 'Points[1] x = ' .. Points[1].x .. " y = " .. Points[1].y ) - - if OnBoardSide == nil then - OnBoardSide = CLIENT.ONBOARDSIDE.NONE - end - - if OnBoardSide == CLIENT.ONBOARDSIDE.LEFT then - - self:T( "TransportCargoOnBoard: Onboarding LEFT" ) - CarrierPosMove.z = CarrierPosMove.z - 25 - CarrierPosOnBoard.z = CarrierPosOnBoard.z - 5 - CarrierPosMoveAway.z = CarrierPosMoveAway.z - 20 - Points[#Points+1] = routines.ground.buildWP( CarrierPosMove, "Cone", 10 ) - Points[#Points+1] = routines.ground.buildWP( CarrierPosOnBoard, "Cone", 10 ) - Points[#Points+1] = routines.ground.buildWP( CarrierPosMoveAway, "Cone", 10 ) - - elseif OnBoardSide == CLIENT.ONBOARDSIDE.RIGHT then - - self:T( "TransportCargoOnBoard: Onboarding RIGHT" ) - CarrierPosMove.z = CarrierPosMove.z + 25 - CarrierPosOnBoard.z = CarrierPosOnBoard.z + 5 - CarrierPosMoveAway.z = CarrierPosMoveAway.z + 20 - Points[#Points+1] = routines.ground.buildWP( CarrierPosMove, "Cone", 10 ) - Points[#Points+1] = routines.ground.buildWP( CarrierPosOnBoard, "Cone", 10 ) - Points[#Points+1] = routines.ground.buildWP( CarrierPosMoveAway, "Cone", 10 ) - - elseif OnBoardSide == CLIENT.ONBOARDSIDE.BACK then - - self:T( "TransportCargoOnBoard: Onboarding BACK" ) - CarrierPosMove.x = CarrierPosMove.x - 25 - CarrierPosOnBoard.x = CarrierPosOnBoard.x - 5 - CarrierPosMoveAway.x = CarrierPosMoveAway.x - 20 - Points[#Points+1] = routines.ground.buildWP( CarrierPosMove, "Cone", 10 ) - Points[#Points+1] = routines.ground.buildWP( CarrierPosOnBoard, "Cone", 10 ) - Points[#Points+1] = routines.ground.buildWP( CarrierPosMoveAway, "Cone", 10 ) - - elseif OnBoardSide == CLIENT.ONBOARDSIDE.FRONT then - - self:T( "TransportCargoOnBoard: Onboarding FRONT" ) - CarrierPosMove.x = CarrierPosMove.x + 25 - CarrierPosOnBoard.x = CarrierPosOnBoard.x + 5 - CarrierPosMoveAway.x = CarrierPosMoveAway.x + 20 - Points[#Points+1] = routines.ground.buildWP( CarrierPosMove, "Cone", 10 ) - Points[#Points+1] = routines.ground.buildWP( CarrierPosOnBoard, "Cone", 10 ) - Points[#Points+1] = routines.ground.buildWP( CarrierPosMoveAway, "Cone", 10 ) - - elseif OnBoardSide == CLIENT.ONBOARDSIDE.NONE then - - self:T( "TransportCargoOnBoard: Onboarding FRONT" ) - CarrierPosMove.x = CarrierPosMove.x + 25 - CarrierPosOnBoard.x = CarrierPosOnBoard.x + 5 - CarrierPosMoveAway.x = CarrierPosMoveAway.x + 20 - Points[#Points+1] = routines.ground.buildWP( CarrierPosMove, "Cone", 10 ) - Points[#Points+1] = routines.ground.buildWP( CarrierPosOnBoard, "Cone", 10 ) - Points[#Points+1] = routines.ground.buildWP( CarrierPosMoveAway, "Cone", 10 ) - - end - self:T( "Routing " .. CargoHostName ) - - SCHEDULER:New( self, routines.goRoute, { CargoHostName, Points }, 4 ) - - return Valid - -end - - -function CARGO_PACKAGE:OnBoarded( Client, LandingZone ) - self:F() - - local OnBoarded = false - - if self.CargoClient and self.CargoClient:GetDCSGroup() then - if routines.IsUnitInRadius( self.CargoClient:GetClientGroupDCSUnit(), self.CargoClient:GetPositionVec3(), 10 ) then - - -- Switch Cargo from self.CargoClient to Client ... Each cargo can have only one client. So assigning the new client for the cargo is enough. - self:StatusLoaded( Client ) - - -- All done, onboarded the Cargo to the new Client. - OnBoarded = true - end - end - - return OnBoarded -end - - -function CARGO_PACKAGE:UnLoad( Client, TargetZoneName ) - self:F() - - self:T( 'self.CargoName = ' .. self.CargoName ) - --self:T( 'self.CargoHostName = ' .. self.CargoHostName ) - - --self.CargoSpawn:FromCarrier( Client:GetDCSGroup(), TargetZoneName, self.CargoHostName ) - self:StatusUnLoaded() - - return Cargo -end - - -CARGO_SLINGLOAD = { - ClassName = "CARGO_SLINGLOAD" -} - - -function CARGO_SLINGLOAD:New( CargoType, CargoName, CargoWeight, CargoZone, CargoHostName, CargoCountryID ) - local self = BASE:Inherit( self, CARGO:New( CargoType, CargoName, CargoWeight ) ) - self:F( { CargoType, CargoName, CargoWeight, CargoZone, CargoHostName, CargoCountryID } ) - - self.CargoHostName = CargoHostName - - -- Cargo will be initialized around the CargoZone position. - self.CargoZone = CargoZone - - self.CargoCount = 0 - self.CargoStaticName = string.format( "%s#%03d", self.CargoName, self.CargoCount ) - - -- The country ID needs to be correctly set. - self.CargoCountryID = CargoCountryID - - CARGOS[self.CargoName] = self - - return self - -end - - -function CARGO_SLINGLOAD:IsLandingRequired() - self:F() - return false -end - - -function CARGO_SLINGLOAD:IsSlingLoad() - self:F() - return true -end - - -function CARGO_SLINGLOAD:Spawn( Client ) - self:F( { self, Client } ) - - local Zone = trigger.misc.getZone( self.CargoZone ) - - local ZonePos = {} - ZonePos.x = Zone.point.x + math.random( Zone.radius / 2 * -1, Zone.radius / 2 ) - ZonePos.y = Zone.point.z + math.random( Zone.radius / 2 * -1, Zone.radius / 2 ) - - self:T( "Cargo Location = " .. ZonePos.x .. ", " .. ZonePos.y ) - - --[[ - -- This does not work in 1.5.2. - CargoStatic = StaticObject.getByName( self.CargoName ) - if CargoStatic then - CargoStatic:destroy() - end - --]] - - CargoStatic = StaticObject.getByName( self.CargoStaticName ) - - if CargoStatic and CargoStatic:isExist() then - CargoStatic:destroy() - end - - -- I need to make every time a new cargo due to bugs in 1.5.2. - - self.CargoCount = self.CargoCount + 1 - self.CargoStaticName = string.format( "%s#%03d", self.CargoName, self.CargoCount ) - - local CargoTemplate = { - ["category"] = "Cargo", - ["shape_name"] = "ab-212_cargo", - ["type"] = "Cargo1", - ["x"] = ZonePos.x, - ["y"] = ZonePos.y, - ["mass"] = self.CargoWeight, - ["name"] = self.CargoStaticName, - ["canCargo"] = true, - ["heading"] = 0, - } - - coalition.addStaticObject( self.CargoCountryID, CargoTemplate ) - --- end - - return self -end - - -function CARGO_SLINGLOAD:IsNear( Client, LandingZone ) - self:F() - - local Near = false - - return Near -end - - -function CARGO_SLINGLOAD:IsInLandingZone( Client, LandingZone ) - self:F() - - local Near = false - - local CargoStaticUnit = StaticObject.getByName( self.CargoName ) - if CargoStaticUnit then - if routines.IsStaticInZones( CargoStaticUnit, LandingZone ) then - Near = true - end - end - - return Near -end - - -function CARGO_SLINGLOAD:OnBoard( Client, LandingZone, OnBoardSide ) - self:F() - - local Valid = true - - - return Valid -end - - -function CARGO_SLINGLOAD:OnBoarded( Client, LandingZone ) - self:F() - - local OnBoarded = false - - local CargoStaticUnit = StaticObject.getByName( self.CargoName ) - if CargoStaticUnit then - if not routines.IsStaticInZones( CargoStaticUnit, LandingZone ) then - OnBoarded = true - end - end - - return OnBoarded -end - - -function CARGO_SLINGLOAD:UnLoad( Client, TargetZoneName ) - self:F() - - self:T( 'self.CargoName = ' .. self.CargoName ) - self:T( 'self.CargoGroupName = ' .. self.CargoGroupName ) - - self:StatusUnLoaded() - - return Cargo -end ---- This module contains the MESSAGE class. --- --- 1) @{Message#MESSAGE} class, extends @{Base#BASE} --- ================================================= --- Message System to display Messages to Clients, Coalitions or All. --- Messages are shown on the display panel for an amount of seconds, and will then disappear. --- Messages can contain a category which is indicating the category of the message. --- --- 1.1) MESSAGE construction methods --- --------------------------------- --- Messages are created with @{Message#MESSAGE.New}. Note that when the MESSAGE object is created, no message is sent yet. --- To send messages, you need to use the To functions. --- --- 1.2) Send messages with MESSAGE To methods --- ------------------------------------------ --- Messages are sent to: --- --- * Clients with @{Message#MESSAGE.ToClient}. --- * Coalitions with @{Message#MESSAGE.ToCoalition}. --- * All Players with @{Message#MESSAGE.ToAll}. --- --- @module Message --- @author FlightControl - ---- The MESSAGE class --- @type MESSAGE --- @extends Base#BASE -MESSAGE = { - ClassName = "MESSAGE", - MessageCategory = 0, - MessageID = 0, -} - - ---- Creates a new MESSAGE object. Note that these MESSAGE objects are not yet displayed on the display panel. You must use the functions @{ToClient} or @{ToCoalition} or @{ToAll} to send these Messages to the respective recipients. --- @param self --- @param #string MessageText is the text of the Message. --- @param #number MessageDuration is a number in seconds of how long the MESSAGE should be shown on the display panel. --- @param #string MessageCategory (optional) is a string expressing the "category" of the Message. The category will be shown as the first text in the message followed by a ": ". --- @return #MESSAGE --- @usage --- -- Create a series of new Messages. --- -- MessageAll is meant to be sent to all players, for 25 seconds, and is classified as "Score". --- -- MessageRED is meant to be sent to the RED players only, for 10 seconds, and is classified as "End of Mission", with ID "Win". --- -- MessageClient1 is meant to be sent to a Client, for 25 seconds, and is classified as "Score", with ID "Score". --- -- MessageClient1 is meant to be sent to a Client, for 25 seconds, and is classified as "Score", with ID "Score". --- MessageAll = MESSAGE:New( "To all Players: BLUE has won! Each player of BLUE wins 50 points!", 25, "End of Mission" ) --- MessageRED = MESSAGE:New( "To the RED Players: You receive a penalty because you've killed one of your own units", 25, "Penalty" ) --- MessageClient1 = MESSAGE:New( "Congratulations, you've just hit a target", 25, "Score" ) --- MessageClient2 = MESSAGE:New( "Congratulations, you've just killed a target", 25, "Score") -function MESSAGE:New( MessageText, MessageDuration, MessageCategory ) - local self = BASE:Inherit( self, BASE:New() ) - self:F( { MessageText, MessageDuration, MessageCategory } ) - - -- When no MessageCategory is given, we don't show it as a title... - if MessageCategory and MessageCategory ~= "" then - self.MessageCategory = MessageCategory .. ": " - else - self.MessageCategory = "" - end - - self.MessageDuration = MessageDuration - self.MessageTime = timer.getTime() - self.MessageText = MessageText - - self.MessageSent = false - self.MessageGroup = false - self.MessageCoalition = false - - return self -end - ---- Sends a MESSAGE to a Client Group. Note that the Group needs to be defined within the ME with the skillset "Client" or "Player". --- @param #MESSAGE self --- @param Client#CLIENT Client is the Group of the Client. --- @return #MESSAGE --- @usage --- -- Send the 2 messages created with the @{New} method to the Client Group. --- -- Note that the Message of MessageClient2 is overwriting the Message of MessageClient1. --- ClientGroup = Group.getByName( "ClientGroup" ) --- --- MessageClient1 = MESSAGE:New( "Congratulations, you've just hit a target", "Score", 25, "Score" ):ToClient( ClientGroup ) --- MessageClient2 = MESSAGE:New( "Congratulations, you've just killed a target", "Score", 25, "Score" ):ToClient( ClientGroup ) --- or --- MESSAGE:New( "Congratulations, you've just hit a target", "Score", 25, "Score" ):ToClient( ClientGroup ) --- MESSAGE:New( "Congratulations, you've just killed a target", "Score", 25, "Score" ):ToClient( ClientGroup ) --- or --- MessageClient1 = MESSAGE:New( "Congratulations, you've just hit a target", "Score", 25, "Score" ) --- MessageClient2 = MESSAGE:New( "Congratulations, you've just killed a target", "Score", 25, "Score" ) --- MessageClient1:ToClient( ClientGroup ) --- MessageClient2:ToClient( ClientGroup ) -function MESSAGE:ToClient( Client ) - self:F( Client ) - - if Client and Client:GetClientGroupID() then - - local ClientGroupID = Client:GetClientGroupID() - self:T( self.MessageCategory .. self.MessageText:gsub("\n$",""):gsub("\n$","") .. " / " .. self.MessageDuration ) - trigger.action.outTextForGroup( ClientGroupID, self.MessageCategory .. self.MessageText:gsub("\n$",""):gsub("\n$",""), self.MessageDuration ) - end - - return self -end - ---- Sends a MESSAGE to the Blue coalition. --- @param #MESSAGE self --- @return #MESSAGE --- @usage --- -- Send a message created with the @{New} method to the BLUE coalition. --- MessageBLUE = MESSAGE:New( "To the BLUE Players: You receive a penalty because you've killed one of your own units", "Penalty", 25, "Score" ):ToBlue() --- or --- MESSAGE:New( "To the BLUE Players: You receive a penalty because you've killed one of your own units", "Penalty", 25, "Score" ):ToBlue() --- or --- MessageBLUE = MESSAGE:New( "To the BLUE Players: You receive a penalty because you've killed one of your own units", "Penalty", 25, "Score" ) --- MessageBLUE:ToBlue() -function MESSAGE:ToBlue() - self:F() - - self:ToCoalition( coalition.side.BLUE ) - - return self -end - ---- Sends a MESSAGE to the Red Coalition. --- @param #MESSAGE self --- @return #MESSAGE --- @usage --- -- Send a message created with the @{New} method to the RED coalition. --- MessageRED = MESSAGE:New( "To the RED Players: You receive a penalty because you've killed one of your own units", "Penalty", 25, "Score" ):ToRed() --- or --- MESSAGE:New( "To the RED Players: You receive a penalty because you've killed one of your own units", "Penalty", 25, "Score" ):ToRed() --- or --- MessageRED = MESSAGE:New( "To the RED Players: You receive a penalty because you've killed one of your own units", "Penalty", 25, "Score" ) --- MessageRED:ToRed() -function MESSAGE:ToRed( ) - self:F() - - self:ToCoalition( coalition.side.RED ) - - return self -end - ---- Sends a MESSAGE to a Coalition. --- @param #MESSAGE self --- @param CoalitionSide needs to be filled out by the defined structure of the standard scripting engine @{coalition.side}. --- @return #MESSAGE --- @usage --- -- Send a message created with the @{New} method to the RED coalition. --- MessageRED = MESSAGE:New( "To the RED Players: You receive a penalty because you've killed one of your own units", "Penalty", 25, "Score" ):ToCoalition( coalition.side.RED ) --- or --- MESSAGE:New( "To the RED Players: You receive a penalty because you've killed one of your own units", "Penalty", 25, "Score" ):ToCoalition( coalition.side.RED ) --- or --- MessageRED = MESSAGE:New( "To the RED Players: You receive a penalty because you've killed one of your own units", "Penalty", 25, "Score" ) --- MessageRED:ToCoalition( coalition.side.RED ) -function MESSAGE:ToCoalition( CoalitionSide ) - self:F( CoalitionSide ) - - if CoalitionSide then - self:T( self.MessageCategory .. self.MessageText:gsub("\n$",""):gsub("\n$","") .. " / " .. self.MessageDuration ) - trigger.action.outTextForCoalition( CoalitionSide, self.MessageCategory .. self.MessageText:gsub("\n$",""):gsub("\n$",""), self.MessageDuration ) - end - - return self -end - ---- Sends a MESSAGE to all players. --- @param #MESSAGE self --- @return #MESSAGE --- @usage --- -- Send a message created to all players. --- MessageAll = MESSAGE:New( "To all Players: BLUE has won! Each player of BLUE wins 50 points!", "End of Mission", 25, "Win" ):ToAll() --- or --- MESSAGE:New( "To all Players: BLUE has won! Each player of BLUE wins 50 points!", "End of Mission", 25, "Win" ):ToAll() --- or --- MessageAll = MESSAGE:New( "To all Players: BLUE has won! Each player of BLUE wins 50 points!", "End of Mission", 25, "Win" ) --- MessageAll:ToAll() -function MESSAGE:ToAll() - self:F() - - self:ToCoalition( coalition.side.RED ) - self:ToCoalition( coalition.side.BLUE ) - - return self -end - - - ------ The MESSAGEQUEUE class ----- @type MESSAGEQUEUE ---MESSAGEQUEUE = { --- ClientGroups = {}, --- CoalitionSides = {} ---} --- ---function MESSAGEQUEUE:New( RefreshInterval ) --- local self = BASE:Inherit( self, BASE:New() ) --- self:F( { RefreshInterval } ) --- --- self.RefreshInterval = RefreshInterval --- --- --self.DisplayFunction = routines.scheduleFunction( self._DisplayMessages, { self }, 0, RefreshInterval ) --- self.DisplayFunction = SCHEDULER:New( self, self._DisplayMessages, {}, 0, RefreshInterval ) --- --- return self ---end --- ------ This function is called automatically by the MESSAGEQUEUE scheduler. ---function MESSAGEQUEUE:_DisplayMessages() --- --- -- First we display all messages that a coalition needs to receive... Also those who are not in a client (CA module clients...). --- for CoalitionSideID, CoalitionSideData in pairs( self.CoalitionSides ) do --- for MessageID, MessageData in pairs( CoalitionSideData.Messages ) do --- if MessageData.MessageSent == false then --- --trigger.action.outTextForCoalition( CoalitionSideID, MessageData.MessageCategory .. '\n' .. MessageData.MessageText:gsub("\n$",""):gsub("\n$",""), MessageData.MessageDuration ) --- MessageData.MessageSent = true --- end --- local MessageTimeLeft = ( MessageData.MessageTime + MessageData.MessageDuration ) - timer.getTime() --- if MessageTimeLeft <= 0 then --- MessageData = nil --- end --- end --- end --- --- -- Then we send the messages for each individual client, but also to be included are those Coalition messages for the Clients who belong to a coalition. --- -- Because the Client messages will overwrite the Coalition messages (for that Client). --- for ClientGroupName, ClientGroupData in pairs( self.ClientGroups ) do --- for MessageID, MessageData in pairs( ClientGroupData.Messages ) do --- if MessageData.MessageGroup == false then --- trigger.action.outTextForGroup( Group.getByName(ClientGroupName):getID(), MessageData.MessageCategory .. '\n' .. MessageData.MessageText:gsub("\n$",""):gsub("\n$",""), MessageData.MessageDuration ) --- MessageData.MessageGroup = true --- end --- local MessageTimeLeft = ( MessageData.MessageTime + MessageData.MessageDuration ) - timer.getTime() --- if MessageTimeLeft <= 0 then --- MessageData = nil --- end --- end --- --- -- Now check if the Client also has messages that belong to the Coalition of the Client... --- for CoalitionSideID, CoalitionSideData in pairs( self.CoalitionSides ) do --- for MessageID, MessageData in pairs( CoalitionSideData.Messages ) do --- local CoalitionGroup = Group.getByName( ClientGroupName ) --- if CoalitionGroup and CoalitionGroup:getCoalition() == CoalitionSideID then --- if MessageData.MessageCoalition == false then --- trigger.action.outTextForGroup( Group.getByName(ClientGroupName):getID(), MessageData.MessageCategory .. '\n' .. MessageData.MessageText:gsub("\n$",""):gsub("\n$",""), MessageData.MessageDuration ) --- MessageData.MessageCoalition = true --- end --- end --- local MessageTimeLeft = ( MessageData.MessageTime + MessageData.MessageDuration ) - timer.getTime() --- if MessageTimeLeft <= 0 then --- MessageData = nil --- end --- end --- end --- end --- --- return true ---end --- ------ The _MessageQueue object is created when the MESSAGE class module is loaded. -----_MessageQueue = MESSAGEQUEUE:New( 0.5 ) --- ---- Stages within a @{TASK} within a @{MISSION}. All of the STAGE functionality is considered internally administered and not to be used by any Mission designer. --- @module STAGE --- @author Flightcontrol - - - - - - - ---- The STAGE class --- @type -STAGE = { - ClassName = "STAGE", - MSG = { ID = "None", TIME = 10 }, - FREQUENCY = { NONE = 0, ONCE = 1, REPEAT = -1 }, - - Name = "NoStage", - StageType = '', - WaitTime = 1, - Frequency = 1, - MessageCount = 0, - MessageInterval = 15, - MessageShown = {}, - MessageShow = false, - MessageFlash = false -} - - -function STAGE:New() - local self = BASE:Inherit( self, BASE:New() ) - self:F() - return self -end - -function STAGE:Execute( Mission, Client, Task ) - - local Valid = true - - return Valid -end - -function STAGE:Executing( Mission, Client, Task ) - -end - -function STAGE:Validate( Mission, Client, Task ) - local Valid = true - - return Valid -end - - -STAGEBRIEF = { - ClassName = "BRIEF", - MSG = { ID = "Brief", TIME = 1 }, - Name = "Brief", - StageBriefingTime = 0, - StageBriefingDuration = 1 -} - -function STAGEBRIEF:New() - local self = BASE:Inherit( self, STAGE:New() ) - self:F() - self.StageType = 'CLIENT' - return self -end - ---- Execute --- @param #STAGEBRIEF self --- @param Mission#MISSION Mission --- @param Client#CLIENT Client --- @param Task#TASK Task --- @return #boolean -function STAGEBRIEF:Execute( Mission, Client, Task ) - local Valid = BASE:Inherited(self):Execute( Mission, Client, Task ) - self:F() - Client:ShowMissionBriefing( Mission.MissionBriefing ) - self.StageBriefingTime = timer.getTime() - return Valid -end - -function STAGEBRIEF:Validate( Mission, Client, Task ) - local Valid = STAGE:Validate( Mission, Client, Task ) - self:T() - - if timer.getTime() - self.StageBriefingTime <= self.StageBriefingDuration then - return 0 - else - self.StageBriefingTime = timer.getTime() - return 1 - end - -end - - -STAGESTART = { - ClassName = "START", - MSG = { ID = "Start", TIME = 1 }, - Name = "Start", - StageStartTime = 0, - StageStartDuration = 1 -} - -function STAGESTART:New() - local self = BASE:Inherit( self, STAGE:New() ) - self:F() - self.StageType = 'CLIENT' - return self -end - -function STAGESTART:Execute( Mission, Client, Task ) - self:F() - local Valid = BASE:Inherited(self):Execute( Mission, Client, Task ) - if Task.TaskBriefing then - Client:Message( Task.TaskBriefing, 30, "Command" ) - else - Client:Message( 'Task ' .. Task.TaskNumber .. '.', 30, "Command" ) - end - self.StageStartTime = timer.getTime() - return Valid -end - -function STAGESTART:Validate( Mission, Client, Task ) - self:F() - local Valid = STAGE:Validate( Mission, Client, Task ) - - if timer.getTime() - self.StageStartTime <= self.StageStartDuration then - return 0 - else - self.StageStartTime = timer.getTime() - return 1 - end - - return 1 - -end - -STAGE_CARGO_LOAD = { - ClassName = "STAGE_CARGO_LOAD" -} - -function STAGE_CARGO_LOAD:New() - local self = BASE:Inherit( self, STAGE:New() ) - self:F() - self.StageType = 'CLIENT' - return self -end - -function STAGE_CARGO_LOAD:Execute( Mission, Client, Task ) - self:F() - local Valid = BASE:Inherited(self):Execute( Mission, Client, Task ) - - for LoadCargoID, LoadCargo in pairs( Task.Cargos.LoadCargos ) do - LoadCargo:Load( Client ) - end - - if Mission.MissionReportFlash and Client:IsTransport() then - Client:ShowCargo() - end - - return Valid -end - -function STAGE_CARGO_LOAD:Validate( Mission, Client, Task ) - self:F() - local Valid = STAGE:Validate( Mission, Client, Task ) - - return 1 -end - - -STAGE_CARGO_INIT = { - ClassName = "STAGE_CARGO_INIT" -} - -function STAGE_CARGO_INIT:New() - local self = BASE:Inherit( self, STAGE:New() ) - self:F() - self.StageType = 'CLIENT' - return self -end - -function STAGE_CARGO_INIT:Execute( Mission, Client, Task ) - self:F() - local Valid = BASE:Inherited(self):Execute( Mission, Client, Task ) - - for InitLandingZoneID, InitLandingZone in pairs( Task.LandingZones.LandingZones ) do - self:T( InitLandingZone ) - InitLandingZone:Spawn() - end - - - self:T( Task.Cargos.InitCargos ) - for InitCargoID, InitCargoData in pairs( Task.Cargos.InitCargos ) do - self:T( { InitCargoData } ) - InitCargoData:Spawn( Client ) - end - - return Valid -end - - -function STAGE_CARGO_INIT:Validate( Mission, Client, Task ) - self:F() - local Valid = STAGE:Validate( Mission, Client, Task ) - - return 1 -end - - - -STAGEROUTE = { - ClassName = "STAGEROUTE", - MSG = { ID = "Route", TIME = 5 }, - Frequency = STAGE.FREQUENCY.REPEAT, - Name = "Route" -} - -function STAGEROUTE:New() - local self = BASE:Inherit( self, STAGE:New() ) - self:F() - self.StageType = 'CLIENT' - self.MessageSwitch = true - return self -end - - ---- Execute the routing. --- @param #STAGEROUTE self --- @param Mission#MISSION Mission --- @param Client#CLIENT Client --- @param Task#TASK Task -function STAGEROUTE:Execute( Mission, Client, Task ) - self:F() - local Valid = BASE:Inherited(self):Execute( Mission, Client, Task ) - - local RouteMessage = "Fly to: " - self:T( Task.LandingZones ) - for LandingZoneID, LandingZoneName in pairs( Task.LandingZones.LandingZoneNames ) do - RouteMessage = RouteMessage .. "\n " .. LandingZoneName .. ' at ' .. routines.getBRStringZone( { zone = LandingZoneName, ref = Client:GetClientGroupDCSUnit():getPoint(), true, true } ) .. ' km.' - end - - if Client:IsMultiSeated() then - Client:Message( RouteMessage, self.MSG.TIME, "Co-Pilot", 20, "Route" ) - else - Client:Message( RouteMessage, self.MSG.TIME, "Command", 20, "Route" ) - end - - - if Mission.MissionReportFlash and Client:IsTransport() then - Client:ShowCargo() - end - - return Valid -end - -function STAGEROUTE:Validate( Mission, Client, Task ) - self:F() - local Valid = STAGE:Validate( Mission, Client, Task ) - - -- check if the Client is in the landing zone - self:T( Task.LandingZones.LandingZoneNames ) - Task.CurrentLandingZoneName = routines.IsUnitNearZonesRadius( Client:GetClientGroupDCSUnit(), Task.LandingZones.LandingZoneNames, 500 ) - - if Task.CurrentLandingZoneName then - - Task.CurrentLandingZone = Task.LandingZones.LandingZones[Task.CurrentLandingZoneName].CargoZone - Task.CurrentCargoZone = Task.LandingZones.LandingZones[Task.CurrentLandingZoneName] - - if Task.CurrentCargoZone then - if not Task.Signalled then - Task.Signalled = Task.CurrentCargoZone:Signal() - end - end - - self:T( 1 ) - return 1 - end - - self:T( 0 ) - return 0 -end - - - -STAGELANDING = { - ClassName = "STAGELANDING", - MSG = { ID = "Landing", TIME = 10 }, - Name = "Landing", - Signalled = false -} - -function STAGELANDING:New() - local self = BASE:Inherit( self, STAGE:New() ) - self:F() - self.StageType = 'CLIENT' - return self -end - ---- Execute the landing coordination. --- @param #STAGELANDING self --- @param Mission#MISSION Mission --- @param Client#CLIENT Client --- @param Task#TASK Task -function STAGELANDING:Execute( Mission, Client, Task ) - self:F() - - if Client:IsMultiSeated() then - Client:Message( "We have arrived at the landing zone.", self.MSG.TIME, "Co-Pilot" ) - else - Client:Message( "You have arrived at the landing zone.", self.MSG.TIME, "Command" ) - end - - Task.HostUnit = Task.CurrentCargoZone:GetHostUnit() - - self:T( { Task.HostUnit } ) - - if Task.HostUnit then - - Task.HostUnitName = Task.HostUnit:GetPrefix() - Task.HostUnitTypeName = Task.HostUnit:GetTypeName() - - local HostMessage = "" - Task.CargoNames = "" - - local IsFirst = true - - for CargoID, Cargo in pairs( CARGOS ) do - if Cargo.CargoType == Task.CargoType then - - if Cargo:IsLandingRequired() then - self:T( "Task for cargo " .. Cargo.CargoType .. " requires landing.") - Task.IsLandingRequired = true - end - - if Cargo:IsSlingLoad() then - self:T( "Task for cargo " .. Cargo.CargoType .. " is a slingload.") - Task.IsSlingLoad = true - end - - if IsFirst then - IsFirst = false - Task.CargoNames = Task.CargoNames .. Cargo.CargoName .. "( " .. Cargo.CargoWeight .. " )" - else - Task.CargoNames = Task.CargoNames .. "; " .. Cargo.CargoName .. "( " .. Cargo.CargoWeight .. " )" - end - end - end - - if Task.IsLandingRequired then - HostMessage = "Land the helicopter to " .. Task.TEXT[1] .. " " .. Task.CargoNames .. "." - else - HostMessage = "Use the Radio menu and F6 to find the cargo, then fly or land near the cargo and " .. Task.TEXT[1] .. " " .. Task.CargoNames .. "." - end - - local Host = "Command" - if Task.HostUnitName then - Host = Task.HostUnitName .. " (" .. Task.HostUnitTypeName .. ")" - else - if Client:IsMultiSeated() then - Host = "Co-Pilot" - end - end - - Client:Message( HostMessage, self.MSG.TIME, Host ) - - end -end - -function STAGELANDING:Validate( Mission, Client, Task ) - self:F() - - Task.CurrentLandingZoneName = routines.IsUnitNearZonesRadius( Client:GetClientGroupDCSUnit(), Task.LandingZones.LandingZoneNames, 500 ) - if Task.CurrentLandingZoneName then - - -- Client is in de landing zone. - self:T( Task.CurrentLandingZoneName ) - - Task.CurrentLandingZone = Task.LandingZones.LandingZones[Task.CurrentLandingZoneName].CargoZone - Task.CurrentCargoZone = Task.LandingZones.LandingZones[Task.CurrentLandingZoneName] - - if Task.CurrentCargoZone then - if not Task.Signalled then - Task.Signalled = Task.CurrentCargoZone:Signal() - end - end - else - if Task.CurrentLandingZone then - Task.CurrentLandingZone = nil - end - if Task.CurrentCargoZone then - Task.CurrentCargoZone = nil - end - Task.Signalled = false - Task:RemoveCargoMenus( Client ) - self:T( -1 ) - return -1 - end - - - local DCSUnitVelocityVec3 = Client:GetClientGroupDCSUnit():getVelocity() - local DCSUnitVelocity = ( DCSUnitVelocityVec3.x ^2 + DCSUnitVelocityVec3.y ^2 + DCSUnitVelocityVec3.z ^2 ) ^ 0.5 - - local DCSUnitPointVec3 = Client:GetClientGroupDCSUnit():getPoint() - local LandHeight = land.getHeight( { x = DCSUnitPointVec3.x, y = DCSUnitPointVec3.z } ) - local DCSUnitHeight = DCSUnitPointVec3.y - LandHeight - - self:T( { Task.IsLandingRequired, Client:GetClientGroupDCSUnit():inAir() } ) - if Task.IsLandingRequired and not Client:GetClientGroupDCSUnit():inAir() then - self:T( 1 ) - Task.IsInAirTestRequired = true - return 1 - end - - self:T( { DCSUnitVelocity, DCSUnitHeight, LandHeight, Task.CurrentCargoZone.SignalHeight } ) - if Task.IsLandingRequired and DCSUnitVelocity <= 0.05 and DCSUnitHeight <= Task.CurrentCargoZone.SignalHeight then - self:T( 1 ) - Task.IsInAirTestRequired = false - return 1 - end - - self:T( 0 ) - return 0 -end - -STAGELANDED = { - ClassName = "STAGELANDED", - MSG = { ID = "Land", TIME = 10 }, - Name = "Landed", - MenusAdded = false -} - -function STAGELANDED:New() - local self = BASE:Inherit( self, STAGE:New() ) - self:F() - self.StageType = 'CLIENT' - return self -end - -function STAGELANDED:Execute( Mission, Client, Task ) - self:F() - - if Task.IsLandingRequired then - - local Host = "Command" - if Task.HostUnitName then - Host = Task.HostUnitName .. " (" .. Task.HostUnitTypeName .. ")" - else - if Client:IsMultiSeated() then - Host = "Co-Pilot" - end - end - - Client:Message( 'You have landed within the landing zone. Use the radio menu (F10) to ' .. Task.TEXT[1] .. ' the ' .. Task.CargoType .. '.', - self.MSG.TIME, Host ) - - if not self.MenusAdded then - Task.Cargo = nil - Task:RemoveCargoMenus( Client ) - Task:AddCargoMenus( Client, CARGOS, 250 ) - end - end -end - - - -function STAGELANDED:Validate( Mission, Client, Task ) - self:F() - - if not routines.IsUnitNearZonesRadius( Client:GetClientGroupDCSUnit(), Task.CurrentLandingZoneName, 500 ) then - self:T( "Client is not anymore in the landing zone, go back to stage Route, and remove cargo menus." ) - Task.Signalled = false - Task:RemoveCargoMenus( Client ) - self:T( -2 ) - return -2 - end - - local DCSUnitVelocityVec3 = Client:GetClientGroupDCSUnit():getVelocity() - local DCSUnitVelocity = ( DCSUnitVelocityVec3.x ^2 + DCSUnitVelocityVec3.y ^2 + DCSUnitVelocityVec3.z ^2 ) ^ 0.5 - - local DCSUnitPointVec3 = Client:GetClientGroupDCSUnit():getPoint() - local LandHeight = land.getHeight( { x = DCSUnitPointVec3.x, y = DCSUnitPointVec3.z } ) - local DCSUnitHeight = DCSUnitPointVec3.y - LandHeight - - self:T( { Task.IsLandingRequired, Client:GetClientGroupDCSUnit():inAir() } ) - if Task.IsLandingRequired and Task.IsInAirTestRequired == true and Client:GetClientGroupDCSUnit():inAir() then - self:T( "Client went back in the air. Go back to stage Landing." ) - self:T( -1 ) - return -1 - end - - self:T( { DCSUnitVelocity, DCSUnitHeight, LandHeight, Task.CurrentCargoZone.SignalHeight } ) - if Task.IsLandingRequired and Task.IsInAirTestRequired == false and DCSUnitVelocity >= 2 and DCSUnitHeight >= Task.CurrentCargoZone.SignalHeight then - self:T( "It seems the Client went back in the air and over the boundary limits. Go back to stage Landing." ) - self:T( -1 ) - return -1 - end - - -- Wait until cargo is selected from the menu. - if Task.IsLandingRequired then - if not Task.Cargo then - self:T( 0 ) - return 0 - end - end - - self:T( 1 ) - return 1 -end - -STAGEUNLOAD = { - ClassName = "STAGEUNLOAD", - MSG = { ID = "Unload", TIME = 10 }, - Name = "Unload" -} - -function STAGEUNLOAD:New() - local self = BASE:Inherit( self, STAGE:New() ) - self:F() - self.StageType = 'CLIENT' - return self -end - ---- Coordinate UnLoading --- @param #STAGEUNLOAD self --- @param Mission#MISSION Mission --- @param Client#CLIENT Client --- @param Task#TASK Task -function STAGEUNLOAD:Execute( Mission, Client, Task ) - self:F() - - if Client:IsMultiSeated() then - Client:Message( 'The ' .. Task.CargoType .. ' are being ' .. Task.TEXT[2] .. ' within the landing zone. Wait until the helicopter is ' .. Task.TEXT[3] .. '.', - "Co-Pilot" ) - else - Client:Message( 'You are unloading the ' .. Task.CargoType .. ' ' .. Task.TEXT[2] .. ' within the landing zone. Wait until the helicopter is ' .. Task.TEXT[3] .. '.', - "Command" ) - end - Task:RemoveCargoMenus( Client ) -end - -function STAGEUNLOAD:Executing( Mission, Client, Task ) - self:F() - env.info( 'STAGEUNLOAD:Executing() Task.Cargo.CargoName = ' .. Task.Cargo.CargoName ) - - local TargetZoneName - - if Task.TargetZoneName then - TargetZoneName = Task.TargetZoneName - else - TargetZoneName = Task.CurrentLandingZoneName - end - - if Task.Cargo:UnLoad( Client, TargetZoneName ) then - Task.ExecuteStage = _TransportExecuteStage.SUCCESS - if Mission.MissionReportFlash then - Client:ShowCargo() - end - end -end - ---- Validate UnLoading --- @param #STAGEUNLOAD self --- @param Mission#MISSION Mission --- @param Client#CLIENT Client --- @param Task#TASK Task -function STAGEUNLOAD:Validate( Mission, Client, Task ) - self:F() - env.info( 'STAGEUNLOAD:Validate()' ) - - if routines.IsUnitNearZonesRadius( Client:GetClientGroupDCSUnit(), Task.CurrentLandingZoneName, 500 ) then - else - Task.ExecuteStage = _TransportExecuteStage.FAILED - Task:RemoveCargoMenus( Client ) - if Client:IsMultiSeated() then - Client:Message( 'The ' .. Task.CargoType .. " haven't been successfully " .. Task.TEXT[3] .. ' within the landing zone. Task and mission has failed.', - _TransportStageMsgTime.DONE, "Co-Pilot" ) - else - Client:Message( 'The ' .. Task.CargoType .. " haven't been successfully " .. Task.TEXT[3] .. ' within the landing zone. Task and mission has failed.', - _TransportStageMsgTime.DONE, "Command" ) - end - return 1 - end - - if not Client:GetClientGroupDCSUnit():inAir() then - else - Task.ExecuteStage = _TransportExecuteStage.FAILED - Task:RemoveCargoMenus( Client ) - if Client:IsMultiSeated() then - Client:Message( 'The ' .. Task.CargoType .. " haven't been successfully " .. Task.TEXT[3] .. ' within the landing zone. Task and mission has failed.', - _TransportStageMsgTime.DONE, "Co-Pilot" ) - else - Client:Message( 'The ' .. Task.CargoType .. " haven't been successfully " .. Task.TEXT[3] .. ' within the landing zone. Task and mission has failed.', - _TransportStageMsgTime.DONE, "Command" ) - end - return 1 - end - - if Task.ExecuteStage == _TransportExecuteStage.SUCCESS then - if Client:IsMultiSeated() then - Client:Message( 'The ' .. Task.CargoType .. ' have been sucessfully ' .. Task.TEXT[3] .. ' within the landing zone.', _TransportStageMsgTime.DONE, "Co-Pilot" ) - else - Client:Message( 'The ' .. Task.CargoType .. ' have been sucessfully ' .. Task.TEXT[3] .. ' within the landing zone.', _TransportStageMsgTime.DONE, "Command" ) - end - Task:RemoveCargoMenus( Client ) - Task.MissionTask:AddGoalCompletion( Task.MissionTask.GoalVerb, Task.CargoName, 1 ) -- We set the cargo as one more goal completed in the mission. - return 1 - end - - return 1 -end - -STAGELOAD = { - ClassName = "STAGELOAD", - MSG = { ID = "Load", TIME = 10 }, - Name = "Load" -} - -function STAGELOAD:New() - local self = BASE:Inherit( self, STAGE:New() ) - self:F() - self.StageType = 'CLIENT' - return self -end - -function STAGELOAD:Execute( Mission, Client, Task ) - self:F() - - if not Task.IsSlingLoad then - - local Host = "Command" - if Task.HostUnitName then - Host = Task.HostUnitName .. " (" .. Task.HostUnitTypeName .. ")" - else - if Client:IsMultiSeated() then - Host = "Co-Pilot" - end - end - - Client:Message( 'The ' .. Task.CargoType .. ' are being ' .. Task.TEXT[2] .. ' within the landing zone. Wait until the helicopter is ' .. Task.TEXT[3] .. '.', - _TransportStageMsgTime.EXECUTING, Host ) - - -- Route the cargo to the Carrier - - Task.Cargo:OnBoard( Client, Task.CurrentCargoZone, Task.OnBoardSide ) - Task.ExecuteStage = _TransportExecuteStage.EXECUTING - else - Task.ExecuteStage = _TransportExecuteStage.EXECUTING - end -end - -function STAGELOAD:Executing( Mission, Client, Task ) - self:F() - - -- If the Cargo is ready to be loaded, load it into the Client. - - local Host = "Command" - if Task.HostUnitName then - Host = Task.HostUnitName .. " (" .. Task.HostUnitTypeName .. ")" - else - if Client:IsMultiSeated() then - Host = "Co-Pilot" - end - end - - if not Task.IsSlingLoad then - self:T( Task.Cargo.CargoName) - - if Task.Cargo:OnBoarded( Client, Task.CurrentCargoZone ) then - - -- Load the Cargo onto the Client - Task.Cargo:Load( Client ) - - -- Message to the pilot that cargo has been loaded. - Client:Message( "The cargo " .. Task.Cargo.CargoName .. " has been loaded in our helicopter.", - 20, Host ) - Task.ExecuteStage = _TransportExecuteStage.SUCCESS - - Client:ShowCargo() - end - else - Client:Message( "Hook the " .. Task.CargoNames .. " onto the helicopter " .. Task.TEXT[3] .. " within the landing zone.", - _TransportStageMsgTime.EXECUTING, Host ) - for CargoID, Cargo in pairs( CARGOS ) do - self:T( "Cargo.CargoName = " .. Cargo.CargoName ) - - if Cargo:IsSlingLoad() then - local CargoStatic = StaticObject.getByName( Cargo.CargoStaticName ) - if CargoStatic then - self:T( "Cargo is found in the DCS simulator.") - local CargoStaticPosition = CargoStatic:getPosition().p - self:T( "Cargo Position x = " .. CargoStaticPosition.x .. ", y = " .. CargoStaticPosition.y .. ", z = " .. CargoStaticPosition.z ) - local CargoStaticHeight = routines.GetUnitHeight( CargoStatic ) - if CargoStaticHeight > 5 then - self:T( "Cargo is airborne.") - Cargo:StatusLoaded() - Task.Cargo = Cargo - Client:Message( 'The Cargo has been successfully hooked onto the helicopter and is now being sling loaded. Fly outside the landing zone.', - self.MSG.TIME, Host ) - Task.ExecuteStage = _TransportExecuteStage.SUCCESS - break - end - else - self:T( "Cargo not found in the DCS simulator." ) - end - end - end - end - -end - -function STAGELOAD:Validate( Mission, Client, Task ) - self:F() - - self:T( "Task.CurrentLandingZoneName = " .. Task.CurrentLandingZoneName ) - - local Host = "Command" - if Task.HostUnitName then - Host = Task.HostUnitName .. " (" .. Task.HostUnitTypeName .. ")" - else - if Client:IsMultiSeated() then - Host = "Co-Pilot" - end - end - - if not Task.IsSlingLoad then - if not routines.IsUnitNearZonesRadius( Client:GetClientGroupDCSUnit(), Task.CurrentLandingZoneName, 500 ) then - Task:RemoveCargoMenus( Client ) - Task.ExecuteStage = _TransportExecuteStage.FAILED - Task.CargoName = nil - Client:Message( "The " .. Task.CargoType .. " loading has been aborted. You flew outside the pick-up zone while loading. ", - self.MSG.TIME, Host ) - self:T( -1 ) - return -1 - end - - local DCSUnitVelocityVec3 = Client:GetClientGroupDCSUnit():getVelocity() - local DCSUnitVelocity = ( DCSUnitVelocityVec3.x ^2 + DCSUnitVelocityVec3.y ^2 + DCSUnitVelocityVec3.z ^2 ) ^ 0.5 - - local DCSUnitPointVec3 = Client:GetClientGroupDCSUnit():getPoint() - local LandHeight = land.getHeight( { x = DCSUnitPointVec3.x, y = DCSUnitPointVec3.z } ) - local DCSUnitHeight = DCSUnitPointVec3.y - LandHeight - - self:T( { Task.IsLandingRequired, Client:GetClientGroupDCSUnit():inAir() } ) - if Task.IsLandingRequired and Task.IsInAirTestRequired == true and Client:GetClientGroupDCSUnit():inAir() then - Task:RemoveCargoMenus( Client ) - Task.ExecuteStage = _TransportExecuteStage.FAILED - Task.CargoName = nil - Client:Message( "The " .. Task.CargoType .. " loading has been aborted. Re-start the " .. Task.TEXT[3] .. " process. Don't fly outside the pick-up zone.", - self.MSG.TIME, Host ) - self:T( -1 ) - return -1 - end - - self:T( { DCSUnitVelocity, DCSUnitHeight, LandHeight, Task.CurrentCargoZone.SignalHeight } ) - if Task.IsLandingRequired and Task.IsInAirTestRequired == false and DCSUnitVelocity >= 2 and DCSUnitHeight >= Task.CurrentCargoZone.SignalHeight then - Task:RemoveCargoMenus( Client ) - Task.ExecuteStage = _TransportExecuteStage.FAILED - Task.CargoName = nil - Client:Message( "The " .. Task.CargoType .. " loading has been aborted. Re-start the " .. Task.TEXT[3] .. " process. Don't fly outside the pick-up zone.", - self.MSG.TIME, Host ) - self:T( -1 ) - return -1 - end - - if Task.ExecuteStage == _TransportExecuteStage.SUCCESS then - Task:RemoveCargoMenus( Client ) - Client:Message( "Good Job. The " .. Task.CargoType .. " has been sucessfully " .. Task.TEXT[3] .. " within the landing zone.", - self.MSG.TIME, Host ) - Task.MissionTask:AddGoalCompletion( Task.MissionTask.GoalVerb, Task.CargoName, 1 ) - self:T( 1 ) - return 1 - end - - else - if Task.ExecuteStage == _TransportExecuteStage.SUCCESS then - CargoStatic = StaticObject.getByName( Task.Cargo.CargoStaticName ) - if CargoStatic and not routines.IsStaticInZones( CargoStatic, Task.CurrentLandingZoneName ) then - Client:Message( "Good Job. The " .. Task.CargoType .. " has been sucessfully " .. Task.TEXT[3] .. " and flown outside of the landing zone.", - self.MSG.TIME, Host ) - Task.MissionTask:AddGoalCompletion( Task.MissionTask.GoalVerb, Task.Cargo.CargoName, 1 ) - self:T( 1 ) - return 1 - end - end - - end - - - self:T( 0 ) - return 0 -end - - -STAGEDONE = { - ClassName = "STAGEDONE", - MSG = { ID = "Done", TIME = 10 }, - Name = "Done" -} - -function STAGEDONE:New() - local self = BASE:Inherit( self, STAGE:New() ) - self:F() - self.StageType = 'AI' - return self -end - -function STAGEDONE:Execute( Mission, Client, Task ) - self:F() - -end - -function STAGEDONE:Validate( Mission, Client, Task ) - self:F() - - Task:Done() - - return 0 -end - -STAGEARRIVE = { - ClassName = "STAGEARRIVE", - MSG = { ID = "Arrive", TIME = 10 }, - Name = "Arrive" -} - -function STAGEARRIVE:New() - local self = BASE:Inherit( self, STAGE:New() ) - self:F() - self.StageType = 'CLIENT' - return self -end - - ---- Execute Arrival --- @param #STAGEARRIVE self --- @param Mission#MISSION Mission --- @param Client#CLIENT Client --- @param Task#TASK Task -function STAGEARRIVE:Execute( Mission, Client, Task ) - self:F() - - if Client:IsMultiSeated() then - Client:Message( 'We have arrived at ' .. Task.CurrentLandingZoneName .. ".", self.MSG.TIME, "Co-Pilot" ) - else - Client:Message( 'We have arrived at ' .. Task.CurrentLandingZoneName .. ".", self.MSG.TIME, "Command" ) - end - -end - -function STAGEARRIVE:Validate( Mission, Client, Task ) - self:F() - - Task.CurrentLandingZoneID = routines.IsUnitInZones( Client:GetClientGroupDCSUnit(), Task.LandingZones ) - if ( Task.CurrentLandingZoneID ) then - else - return -1 - end - - return 1 -end - -STAGEGROUPSDESTROYED = { - ClassName = "STAGEGROUPSDESTROYED", - DestroyGroupSize = -1, - Frequency = STAGE.FREQUENCY.REPEAT, - MSG = { ID = "DestroyGroup", TIME = 10 }, - Name = "GroupsDestroyed" -} - -function STAGEGROUPSDESTROYED:New() - local self = BASE:Inherit( self, STAGE:New() ) - self:F() - self.StageType = 'AI' - return self -end - ---function STAGEGROUPSDESTROYED:Execute( Mission, Client, Task ) --- --- Client:Message( 'Task: Still ' .. DestroyGroupSize .. " of " .. Task.DestroyGroupCount .. " " .. Task.DestroyGroupType .. " to be destroyed!", self.MSG.TIME, Mission.Name .. "/Stage" ) --- ---end - -function STAGEGROUPSDESTROYED:Validate( Mission, Client, Task ) - self:F() - - if Task.MissionTask:IsGoalReached() then - return 1 - else - return 0 - end -end - -function STAGEGROUPSDESTROYED:Execute( Mission, Client, Task ) - self:F() - self:T( { Task.ClassName, Task.Destroyed } ) - --env.info( 'Event Table Task = ' .. tostring(Task) ) - -end - - - - - - - - - - - - - ---[[ - _TransportStage: Defines the different stages of which of transport missions can be in. This table is internal and is used to control the sequence of messages, actions and flow. - - - _TransportStage.START - - _TransportStage.ROUTE - - _TransportStage.LAND - - _TransportStage.EXECUTE - - _TransportStage.DONE - - _TransportStage.REMOVE ---]] -_TransportStage = { - HOLD = "HOLD", - START = "START", - ROUTE = "ROUTE", - LANDING = "LANDING", - LANDED = "LANDED", - EXECUTING = "EXECUTING", - LOAD = "LOAD", - UNLOAD = "UNLOAD", - DONE = "DONE", - NEXT = "NEXT" -} - -_TransportStageMsgTime = { - HOLD = 10, - START = 60, - ROUTE = 5, - LANDING = 10, - LANDED = 30, - EXECUTING = 30, - LOAD = 30, - UNLOAD = 30, - DONE = 30, - NEXT = 0 -} - -_TransportStageTime = { - HOLD = 10, - START = 5, - ROUTE = 5, - LANDING = 1, - LANDED = 1, - EXECUTING = 5, - LOAD = 5, - UNLOAD = 5, - DONE = 1, - NEXT = 0 -} - -_TransportStageAction = { - REPEAT = -1, - NONE = 0, - ONCE = 1 -} ---- The TASK Classes define major end-to-end activities within a MISSION. The TASK Class is the Master Class to orchestrate these activities. From this class, many concrete TASK classes are inherited. --- @module TASK - - - - - - - ---- The TASK class --- @type TASK --- @extends Base#BASE -TASK = { - - -- Defines the different signal types with a Task. - SIGNAL = { - COLOR = { - RED = { ID = 1, COLOR = trigger.smokeColor.Red, TEXT = "A red" }, - GREEN = { ID = 2, COLOR = trigger.smokeColor.Green, TEXT = "A green" }, - BLUE = { ID = 3, COLOR = trigger.smokeColor.Blue, TEXT = "A blue" }, - WHITE = { ID = 4, COLOR = trigger.smokeColor.White, TEXT = "A white" }, - ORANGE = { ID = 5, COLOR = trigger.smokeColor.Orange, TEXT = "An orange" } - }, - TYPE = { - SMOKE = { ID = 1, TEXT = "smoke" }, - FLARE = { ID = 2, TEXT = "flare" } - } - }, - ClassName = "TASK", - Mission = {}, -- Owning mission of the Task - Name = '', - Stages = {}, - Stage = {}, - Cargos = { - InitCargos = {}, - LoadCargos = {} - }, - LandingZones = { - LandingZoneNames = {}, - LandingZones = {} - }, - ActiveStage = 0, - TaskDone = false, - TaskFailed = false, - GoalTasks = {} -} - ---- Instantiates a new TASK Base. Should never be used. Interface Class. --- @return TASK -function TASK:New() - local self = BASE:Inherit( self, BASE:New() ) - self:F() - - -- assign Task default values during construction - self.TaskBriefing = "Task: No Task." - self.Time = timer.getTime() - self.ExecuteStage = _TransportExecuteStage.NONE - - return self -end - -function TASK:SetStage( StageSequenceIncrement ) - self:F( { StageSequenceIncrement } ) - - local Valid = false - if StageSequenceIncrement ~= 0 then - self.ActiveStage = self.ActiveStage + StageSequenceIncrement - if 1 <= self.ActiveStage and self.ActiveStage <= #self.Stages then - self.Stage = self.Stages[self.ActiveStage] - self:T( { self.Stage.Name } ) - self.Frequency = self.Stage.Frequency - Valid = true - else - Valid = false - env.info( "TASK:SetStage() self.ActiveStage is smaller or larger than self.Stages array. self.ActiveStage = " .. self.ActiveStage ) - end - end - self.Time = timer.getTime() - return Valid -end - -function TASK:Init() - self:F() - self.ActiveStage = 0 - self:SetStage(1) - self.TaskDone = false - self.TaskFailed = false -end - - ---- Get progress of a TASK. --- @return string GoalsText -function TASK:GetGoalProgress() - self:F2() - - local GoalsText = "" - for GoalVerb, GoalVerbData in pairs( self.GoalTasks ) do - local Goals = self:GetGoalCompletion( GoalVerb ) - if Goals and Goals ~= "" then - Goals = '(' .. Goals .. ')' - else - Goals = '( - )' - end - GoalsText = GoalsText .. GoalVerb .. ': ' .. self:GetGoalCount(GoalVerb) .. ' goals ' .. Goals .. ' of ' .. self:GetGoalTotal(GoalVerb) .. ' goals completed (' .. self:GetGoalPercentage(GoalVerb) .. '%); ' - end - - if GoalsText == "" then - GoalsText = "( - )" - end - - return GoalsText -end - ---- Show progress of a TASK. --- @param MISSION Mission Group structure describing the Mission. --- @param CLIENT Client Group structure describing the Client. -function TASK:ShowGoalProgress( Mission, Client ) - self:F2() - - local GoalsText = "" - for GoalVerb, GoalVerbData in pairs( self.GoalTasks ) do - if Mission:IsCompleted() then - else - local Goals = self:GetGoalCompletion( GoalVerb ) - if Goals and Goals ~= "" then - else - Goals = "-" - end - GoalsText = GoalsText .. self:GetGoalProgress() - end - end - - if Mission.MissionReportFlash or Mission.MissionReportShow then - Client:Message( GoalsText, 10, "Mission Command: Task Status", 30, "Task status" ) - end -end - ---- Sets a TASK to status Done. -function TASK:Done() - self:F2() - self.TaskDone = true -end - ---- Returns if a TASK is done. --- @return bool -function TASK:IsDone() - self:F2( self.TaskDone ) - return self.TaskDone -end - ---- Sets a TASK to status failed. -function TASK:Failed() - self:F() - self.TaskFailed = true -end - ---- Returns if a TASk has failed. --- @return bool -function TASK:IsFailed() - self:F2( self.TaskFailed ) - return self.TaskFailed -end - -function TASK:Reset( Mission, Client ) - self:F2() - self.ExecuteStage = _TransportExecuteStage.NONE -end - ---- Returns the Goals of a TASK --- @return @table Goals -function TASK:GetGoals() - return self.GoalTasks -end - ---- Returns if a TASK has Goal(s). --- @param #TASK self --- @param #string GoalVerb is the name of the Goal of the TASK. --- @return bool -function TASK:Goal( GoalVerb ) - self:F2( { GoalVerb } ) - if not GoalVerb then - GoalVerb = self.GoalVerb - end - self:T2( {self.GoalTasks[GoalVerb] } ) - if self.GoalTasks[GoalVerb] and self.GoalTasks[GoalVerb].GoalTotal > 0 then - return true - else - return false - end -end - ---- Sets the total Goals to be achieved of the Goal Name --- @param number GoalTotal is the number of times the GoalVerb needs to be achieved. --- @param ?string GoalVerb is the name of the Goal of the TASK. If the GoalVerb is not given, then the default TASK Goals will be used. -function TASK:SetGoalTotal( GoalTotal, GoalVerb ) - self:F2( { GoalTotal, GoalVerb } ) - - if not GoalVerb then - GoalVerb = self.GoalVerb - end - self.GoalTasks[GoalVerb] = {} - self.GoalTasks[GoalVerb].Goals = {} - self.GoalTasks[GoalVerb].GoalTotal = GoalTotal - self.GoalTasks[GoalVerb].GoalCount = 0 - return self -end - ---- Gets the total of Goals to be achieved within the TASK of the GoalVerb. --- @param ?string GoalVerb is the name of the Goal of the TASK. If the GoalVerb is not given, then the default TASK Goals will be used. -function TASK:GetGoalTotal( GoalVerb ) - self:F2( { GoalVerb } ) - if not GoalVerb then - GoalVerb = self.GoalVerb - end - if self:Goal( GoalVerb ) then - return self.GoalTasks[GoalVerb].GoalTotal - else - return 0 - end -end - ---- Sets the total of Goals currently achieved within the TASK of the GoalVerb. --- @param number GoalCount is the total number of Goals achieved within the TASK. --- @param ?string GoalVerb is the name of the Goal of the TASK. If the GoalVerb is not given, then the default TASK Goals will be used. --- @return TASK -function TASK:SetGoalCount( GoalCount, GoalVerb ) - self:F2() - if not GoalVerb then - GoalVerb = self.GoalVerb - end - if self:Goal( GoalVerb) then - self.GoalTasks[GoalVerb].GoalCount = GoalCount - end - return self -end - ---- Increments the total of Goals currently achieved within the TASK of the GoalVerb, with the given GoalCountIncrease. --- @param number GoalCountIncrease is the number of new Goals achieved within the TASK. --- @param ?string GoalVerb is the name of the Goal of the TASK. If the GoalVerb is not given, then the default TASK Goals will be used. --- @return TASK -function TASK:IncreaseGoalCount( GoalCountIncrease, GoalVerb ) - self:F2( { GoalCountIncrease, GoalVerb } ) - if not GoalVerb then - GoalVerb = self.GoalVerb - end - if self:Goal( GoalVerb) then - self.GoalTasks[GoalVerb].GoalCount = self.GoalTasks[GoalVerb].GoalCount + GoalCountIncrease - end - return self -end - ---- Gets the total of Goals currently achieved within the TASK of the GoalVerb. --- @param ?string GoalVerb is the name of the Goal of the TASK. If the GoalVerb is not given, then the default TASK Goals will be used. --- @return TASK -function TASK:GetGoalCount( GoalVerb ) - self:F2() - if not GoalVerb then - GoalVerb = self.GoalVerb - end - if self:Goal( GoalVerb ) then - return self.GoalTasks[GoalVerb].GoalCount - else - return 0 - end -end - ---- Gets the percentage of Goals currently achieved within the TASK of the GoalVerb. --- @param ?string GoalVerb is the name of the Goal of the TASK. If the GoalVerb is not given, then the default TASK Goals will be used. --- @return TASK -function TASK:GetGoalPercentage( GoalVerb ) - self:F2() - if not GoalVerb then - GoalVerb = self.GoalVerb - end - if self:Goal( GoalVerb ) then - return math.floor( self:GetGoalCount( GoalVerb ) / self:GetGoalTotal( GoalVerb ) * 100 + .5 ) - else - return 100 - end -end - ---- Returns if all the Goals of the TASK were achieved. --- @return bool -function TASK:IsGoalReached() - self:F2() - - local GoalReached = true - - for GoalVerb, Goals in pairs( self.GoalTasks ) do - self:T2( { "GoalVerb", GoalVerb } ) - if self:Goal( GoalVerb ) then - local GoalToDo = self:GetGoalTotal( GoalVerb ) - self:GetGoalCount( GoalVerb ) - self:T2( "GoalToDo = " .. GoalToDo ) - if GoalToDo <= 0 then - else - GoalReached = false - break - end - else - break - end - end - - self:T( { GoalReached, self.GoalTasks } ) - return GoalReached -end - ---- Adds an Additional Goal for the TASK to be achieved. --- @param string GoalVerb is the name of the Goal of the TASK. --- @param string GoalTask is a text describing the Goal of the TASK to be achieved. --- @param number GoalIncrease is a number by which the Goal achievement is increasing. -function TASK:AddGoalCompletion( GoalVerb, GoalTask, GoalIncrease ) - self:F2( { GoalVerb, GoalTask, GoalIncrease } ) - - if self:Goal( GoalVerb ) then - self.GoalTasks[GoalVerb].Goals[#self.GoalTasks[GoalVerb].Goals+1] = GoalTask - self.GoalTasks[GoalVerb].GoalCount = self.GoalTasks[GoalVerb].GoalCount + GoalIncrease - end - return self -end - ---- Returns if the additional Goal for the TASK was completed. --- @param ?string GoalVerb is the name of the Goal of the TASK. If the GoalVerb is not given, then the default TASK Goals will be used. --- @return string Goals -function TASK:GetGoalCompletion( GoalVerb ) - self:F2( { GoalVerb } ) - - if self:Goal( GoalVerb ) then - local Goals = "" - for GoalID, GoalName in pairs( self.GoalTasks[GoalVerb].Goals ) do Goals = Goals .. GoalName .. " + " end - return Goals:gsub(" + $", ""), self.GoalTasks[GoalVerb].GoalCount - end -end - -function TASK.MenuAction( Parameter ) - Parameter.ReferenceTask.ExecuteStage = _TransportExecuteStage.EXECUTING - Parameter.ReferenceTask.Cargo = Parameter.CargoTask -end - -function TASK:StageExecute() - self:F() - - local Execute = false - - if self.Frequency == STAGE.FREQUENCY.REPEAT then - Execute = true - elseif self.Frequency == STAGE.FREQUENCY.NONE then - Execute = false - elseif self.Frequency >= 0 then - Execute = true - self.Frequency = self.Frequency - 1 - end - - return Execute - -end - ---- Work function to set signal events within a TASK. -function TASK:AddSignal( SignalUnitNames, SignalType, SignalColor, SignalHeight ) - self:F() - - local Valid = true - - if Valid then - if type( SignalUnitNames ) == "table" then - self.LandingZoneSignalUnitNames = SignalUnitNames - else - self.LandingZoneSignalUnitNames = { SignalUnitNames } - end - self.LandingZoneSignalType = SignalType - self.LandingZoneSignalColor = SignalColor - self.Signalled = false - if SignalHeight ~= nil then - self.LandingZoneSignalHeight = SignalHeight - else - self.LandingZoneSignalHeight = 0 - end - - if self.TaskBriefing then - self.TaskBriefing = self.TaskBriefing .. " " .. SignalColor.TEXT .. " " .. SignalType.TEXT .. " will be fired when entering the landing zone." - end - end - - return Valid -end - ---- When the CLIENT is approaching the landing zone, a RED SMOKE will be fired by an optional SignalUnitNames. --- @param table|string SignalUnitNames Name of the Group that will fire the signal. If this parameter is NIL, the signal will be fired from the center of the landing zone. --- @param number SignalHeight Altitude that the Signal should be fired... -function TASK:AddSmokeRed( SignalUnitNames, SignalHeight ) - self:F() - self:AddSignal( SignalUnitNames, TASK.SIGNAL.TYPE.SMOKE, TASK.SIGNAL.COLOR.RED, SignalHeight ) -end - ---- When the CLIENT is approaching the landing zone, a GREEN SMOKE will be fired by an optional SignalUnitNames. --- @param table|string SignalUnitNames Name of the Group that will fire the signal. If this parameter is NIL, the signal will be fired from the center of the landing zone. --- @param number SignalHeight Altitude that the Signal should be fired... -function TASK:AddSmokeGreen( SignalUnitNames, SignalHeight ) - self:F() - self:AddSignal( SignalUnitNames, TASK.SIGNAL.TYPE.SMOKE, TASK.SIGNAL.COLOR.GREEN, SignalHeight ) -end - ---- When the CLIENT is approaching the landing zone, a BLUE SMOKE will be fired by an optional SignalUnitNames. --- @param table|string SignalUnitNames Name of the Group that will fire the signal. If this parameter is NIL, the signal will be fired from the center of the landing zone. --- @param number SignalHeight Altitude that the Signal should be fired... -function TASK:AddSmokeBlue( SignalUnitNames, SignalHeight ) - self:F() - self:AddSignal( SignalUnitNames, TASK.SIGNAL.TYPE.SMOKE, TASK.SIGNAL.COLOR.BLUE, SignalHeight ) -end - ---- When the CLIENT is approaching the landing zone, a WHITE SMOKE will be fired by an optional SignalUnitNames. --- @param table|string SignalUnitNames Name of the Group that will fire the signal. If this parameter is NIL, the signal will be fired from the center of the landing zone. --- @param number SignalHeight Altitude that the Signal should be fired... -function TASK:AddSmokeWhite( SignalUnitNames, SignalHeight ) - self:F() - self:AddSignal( SignalUnitNames, TASK.SIGNAL.TYPE.SMOKE, TASK.SIGNAL.COLOR.WHITE, SignalHeight ) -end - ---- When the CLIENT is approaching the landing zone, an ORANGE SMOKE will be fired by an optional SignalUnitNames. --- @param table|string SignalUnitNames Name of the Group that will fire the signal. If this parameter is NIL, the signal will be fired from the center of the landing zone. --- @param number SignalHeight Altitude that the Signal should be fired... -function TASK:AddSmokeOrange( SignalUnitNames, SignalHeight ) - self:F() - self:AddSignal( SignalUnitNames, TASK.SIGNAL.TYPE.SMOKE, TASK.SIGNAL.COLOR.ORANGE, SignalHeight ) -end - ---- When the CLIENT is approaching the landing zone, a RED FLARE will be fired by an optional SignalUnitNames. --- @param table|string SignalUnitNames Name of the Group that will fire the signal. If this parameter is NIL, the signal will be fired from the center of the landing zone. --- @param number SignalHeight Altitude that the Signal should be fired... -function TASK:AddFlareRed( SignalUnitNames, SignalHeight ) - self:F() - self:AddSignal( SignalUnitNames, TASK.SIGNAL.TYPE.FLARE, TASK.SIGNAL.COLOR.RED, SignalHeight ) -end - ---- When the CLIENT is approaching the landing zone, a GREEN FLARE will be fired by an optional SignalUnitNames. --- @param table|string SignalUnitNames Name of the Group that will fire the signal. If this parameter is NIL, the signal will be fired from the center of the landing zone. --- @param number SignalHeight Altitude that the Signal should be fired... -function TASK:AddFlareGreen( SignalUnitNames, SignalHeight ) - self:F() - self:AddSignal( SignalUnitNames, TASK.SIGNAL.TYPE.FLARE, TASK.SIGNAL.COLOR.GREEN, SignalHeight ) -end - ---- When the CLIENT is approaching the landing zone, a BLUE FLARE will be fired by an optional SignalUnitNames. --- @param table|string SignalUnitNames Name of the Group that will fire the signal. If this parameter is NIL, the signal will be fired from the center of the landing zone. --- @param number SignalHeight Altitude that the Signal should be fired... -function TASK:AddFlareBlue( SignalUnitNames, SignalHeight ) - self:F() - self:AddSignal( SignalUnitNames, TASK.SIGNAL.TYPE.FLARE, TASK.SIGNAL.COLOR.BLUE, SignalHeight ) -end - ---- When the CLIENT is approaching the landing zone, a WHITE FLARE will be fired by an optional SignalUnitNames. --- @param table|string SignalUnitNames Name of the Group that will fire the signal. If this parameter is NIL, the signal will be fired from the center of the landing zone. --- @param number SignalHeight Altitude that the Signal should be fired... -function TASK:AddFlareWhite( SignalUnitNames, SignalHeight ) - self:F() - self:AddSignal( SignalUnitNames, TASK.SIGNAL.TYPE.FLARE, TASK.SIGNAL.COLOR.WHITE, SignalHeight ) -end - ---- When the CLIENT is approaching the landing zone, an ORANGE FLARE will be fired by an optional SignalUnitNames. --- @param table|string SignalUnitNames Name of the Group that will fire the signal. If this parameter is NIL, the signal will be fired from the center of the landing zone. --- @param number SignalHeight Altitude that the Signal should be fired... -function TASK:AddFlareOrange( SignalUnitNames, SignalHeight ) - self:F() - self:AddSignal( SignalUnitNames, TASK.SIGNAL.TYPE.FLARE, TASK.SIGNAL.COLOR.ORANGE, SignalHeight ) -end ---- A GOHOMETASK orchestrates the travel back to the home base, which is a specific zone defined within the ME. --- @module GOHOMETASK - ---- The GOHOMETASK class --- @type -GOHOMETASK = { - ClassName = "GOHOMETASK", -} - ---- Creates a new GOHOMETASK. --- @param table{string,...}|string LandingZones Table of Landing Zone names where Home(s) are located. --- @return GOHOMETASK -function GOHOMETASK:New( LandingZones ) - local self = BASE:Inherit( self, TASK:New() ) - self:F( { LandingZones } ) - local Valid = true - - Valid = routines.ValidateZone( LandingZones, "LandingZones", Valid ) - - if Valid then - self.Name = 'Fly Home' - self.TaskBriefing = "Task: Fly back to your home base. Your co-pilot will provide you with the directions (required flight angle in degrees) and the distance (in km) to your home base." - if type( LandingZones ) == "table" then - self.LandingZones = LandingZones - else - self.LandingZones = { LandingZones } - end - self.Stages = { STAGEBRIEF:New(), STAGESTART:New(), STAGEROUTE:New(), STAGEARRIVE:New(), STAGEDONE:New() } - self.SetStage( self, 1 ) - end - - return self -end ---- A DESTROYBASETASK will monitor the destruction of Groups and Units. This is a BASE class, other classes are derived from this class. --- @module DESTROYBASETASK --- @see DESTROYGROUPSTASK --- @see DESTROYUNITTYPESTASK --- @see DESTROY_RADARS_TASK - - - ---- The DESTROYBASETASK class --- @type DESTROYBASETASK -DESTROYBASETASK = { - ClassName = "DESTROYBASETASK", - Destroyed = 0, - GoalVerb = "Destroy", - DestroyPercentage = 100, -} - ---- Creates a new DESTROYBASETASK. --- @param #DESTROYBASETASK self --- @param #string DestroyGroupType Text describing the group to be destroyed. f.e. "Radar Installations", "Ships", "Vehicles", "Command Centers". --- @param #string DestroyUnitType Text describing the unit types to be destroyed. f.e. "SA-6", "Row Boats", "Tanks", "Tents". --- @param #list<#string> DestroyGroupPrefixes Table of Prefixes of the Groups to be destroyed before task is completed. --- @param #number DestroyPercentage defines the %-tage that needs to be destroyed to achieve mission success. eg. If in the Group there are 10 units, then a value of 75 would require 8 units to be destroyed from the Group to complete the @{TASK}. --- @return DESTROYBASETASK -function DESTROYBASETASK:New( DestroyGroupType, DestroyUnitType, DestroyGroupPrefixes, DestroyPercentage ) - local self = BASE:Inherit( self, TASK:New() ) - self:F() - - self.Name = 'Destroy' - self.Destroyed = 0 - self.DestroyGroupPrefixes = DestroyGroupPrefixes - self.DestroyGroupType = DestroyGroupType - self.DestroyUnitType = DestroyUnitType - if DestroyPercentage then - self.DestroyPercentage = DestroyPercentage - end - self.TaskBriefing = "Task: Destroy " .. DestroyGroupType .. "." - self.Stages = { STAGEBRIEF:New(), STAGESTART:New(), STAGEGROUPSDESTROYED:New(), STAGEDONE:New() } - self.SetStage( self, 1 ) - - return self -end - ---- Handle the S_EVENT_DEAD events to validate the destruction of units for the task monitoring. --- @param #DESTROYBASETASK self --- @param Event#EVENTDATA Event structure of MOOSE. -function DESTROYBASETASK:EventDead( Event ) - self:F( { Event } ) - - if Event.IniDCSUnit then - local DestroyUnit = Event.IniDCSUnit - local DestroyUnitName = Event.IniDCSUnitName - local DestroyGroup = Event.IniDCSGroup - local DestroyGroupName = Event.IniDCSGroupName - - --TODO: I need to fix here if 2 groups in the mission have a similar name with GroupPrefix equal, then i should differentiate for which group the goal was reached! - --I may need to test if for the goalverb that group goal was reached or something. Need to think about it a bit more ... - local UnitsDestroyed = 0 - for DestroyGroupPrefixID, DestroyGroupPrefix in pairs( self.DestroyGroupPrefixes ) do - self:T( DestroyGroupPrefix ) - if string.find( DestroyGroupName, DestroyGroupPrefix, 1, true ) then - self:T( BASE:Inherited(self).ClassName ) - UnitsDestroyed = self:ReportGoalProgress( DestroyGroup, DestroyUnit ) - self:T( UnitsDestroyed ) - end - end - - self:T( { UnitsDestroyed } ) - self:IncreaseGoalCount( UnitsDestroyed, self.GoalVerb ) - end - -end - ---- Validate task completeness of DESTROYBASETASK. --- @param DestroyGroup Group structure describing the group to be evaluated. --- @param DestroyUnit Unit structure describing the Unit to be evaluated. -function DESTROYBASETASK:ReportGoalProgress( DestroyGroup, DestroyUnit ) - self:F() - - return 0 -end ---- DESTROYGROUPSTASK --- @module DESTROYGROUPSTASK - - - ---- The DESTROYGROUPSTASK class --- @type -DESTROYGROUPSTASK = { - ClassName = "DESTROYGROUPSTASK", - GoalVerb = "Destroy Groups", -} - ---- Creates a new DESTROYGROUPSTASK. --- @param #DESTROYGROUPSTASK self --- @param #string DestroyGroupType String describing the group to be destroyed. --- @param #string DestroyUnitType String describing the unit to be destroyed. --- @param #list<#string> DestroyGroupNames Table of string containing the name of the groups to be destroyed before task is completed. --- @param #number DestroyPercentage defines the %-tage that needs to be destroyed to achieve mission success. eg. If in the Group there are 10 units, then a value of 75 would require 8 units to be destroyed from the Group to complete the @{TASK}. ----@return DESTROYGROUPSTASK -function DESTROYGROUPSTASK:New( DestroyGroupType, DestroyUnitType, DestroyGroupNames, DestroyPercentage ) - local self = BASE:Inherit( self, DESTROYBASETASK:New( DestroyGroupType, DestroyUnitType, DestroyGroupNames, DestroyPercentage ) ) - self:F() - - self.Name = 'Destroy Groups' - self.GoalVerb = "Destroy " .. DestroyGroupType - - _EVENTDISPATCHER:OnDead( self.EventDead , self ) - _EVENTDISPATCHER:OnCrash( self.EventDead , self ) - - return self -end - ---- Report Goal Progress. --- @param #DESTROYGROUPSTASK self --- @param DCSGroup#Group DestroyGroup Group structure describing the group to be evaluated. --- @param DCSUnit#Unit DestroyUnit Unit structure describing the Unit to be evaluated. --- @return #number The DestroyCount reflecting the amount of units destroyed within the group. -function DESTROYGROUPSTASK:ReportGoalProgress( DestroyGroup, DestroyUnit ) - self:F( { DestroyGroup, DestroyUnit, self.DestroyPercentage } ) - - local DestroyGroupSize = DestroyGroup:getSize() - 1 -- When a DEAD event occurs, the getSize is still one larger than the destroyed unit. - local DestroyGroupInitialSize = DestroyGroup:getInitialSize() - self:T( { DestroyGroupSize, DestroyGroupInitialSize - ( DestroyGroupInitialSize * self.DestroyPercentage / 100 ) } ) - - local DestroyCount = 0 - if DestroyGroup then - if DestroyGroupSize <= DestroyGroupInitialSize - ( DestroyGroupInitialSize * self.DestroyPercentage / 100 ) then - DestroyCount = 1 - end - else - DestroyCount = 1 - end - - self:T( DestroyCount ) - - return DestroyCount -end ---- Task class to destroy radar installations. --- @module DESTROYRADARSTASK - - - ---- The DESTROYRADARS class --- @type -DESTROYRADARSTASK = { - ClassName = "DESTROYRADARSTASK", - GoalVerb = "Destroy Radars" -} - ---- Creates a new DESTROYRADARSTASK. --- @param table{string,...} DestroyGroupNames Table of string containing the group names of which the radars are be destroyed. --- @return DESTROYRADARSTASK -function DESTROYRADARSTASK:New( DestroyGroupNames ) - local self = BASE:Inherit( self, DESTROYGROUPSTASK:New( 'radar installations', 'radars', DestroyGroupNames ) ) - self:F() - - self.Name = 'Destroy Radars' - - _EVENTDISPATCHER:OnDead( self.EventDead , self ) - - return self -end - ---- Report Goal Progress. --- @param Group DestroyGroup Group structure describing the group to be evaluated. --- @param Unit DestroyUnit Unit structure describing the Unit to be evaluated. -function DESTROYRADARSTASK:ReportGoalProgress( DestroyGroup, DestroyUnit ) - self:F( { DestroyGroup, DestroyUnit } ) - - local DestroyCount = 0 - if DestroyUnit and DestroyUnit:hasSensors( Unit.SensorType.RADAR, Unit.RadarType.AS ) then - if DestroyUnit and DestroyUnit:getLife() <= 1.0 then - self:T( 'Destroyed a radar' ) - DestroyCount = 1 - end - end - return DestroyCount -end ---- Set TASK to destroy certain unit types. --- @module DESTROYUNITTYPESTASK - - - ---- The DESTROYUNITTYPESTASK class --- @type -DESTROYUNITTYPESTASK = { - ClassName = "DESTROYUNITTYPESTASK", - GoalVerb = "Destroy", -} - ---- Creates a new DESTROYUNITTYPESTASK. --- @param string DestroyGroupType String describing the group to be destroyed. f.e. "Radar Installations", "Fleet", "Batallion", "Command Centers". --- @param string DestroyUnitType String describing the unit to be destroyed. f.e. "radars", "ships", "tanks", "centers". --- @param table{string,...} DestroyGroupNames Table of string containing the group names of which the radars are be destroyed. --- @param string DestroyUnitTypes Table of string containing the type names of the units to achieve mission success. --- @return DESTROYUNITTYPESTASK -function DESTROYUNITTYPESTASK:New( DestroyGroupType, DestroyUnitType, DestroyGroupNames, DestroyUnitTypes ) - local self = BASE:Inherit( self, DESTROYBASETASK:New( DestroyGroupType, DestroyUnitType, DestroyGroupNames ) ) - self:F( { DestroyGroupType, DestroyUnitType, DestroyGroupNames, DestroyUnitTypes } ) - - if type(DestroyUnitTypes) == 'table' then - self.DestroyUnitTypes = DestroyUnitTypes - else - self.DestroyUnitTypes = { DestroyUnitTypes } - end - - self.Name = 'Destroy Unit Types' - self.GoalVerb = "Destroy " .. DestroyGroupType - - _EVENTDISPATCHER:OnDead( self.EventDead , self ) - - return self -end - ---- Report Goal Progress. --- @param Group DestroyGroup Group structure describing the group to be evaluated. --- @param Unit DestroyUnit Unit structure describing the Unit to be evaluated. -function DESTROYUNITTYPESTASK:ReportGoalProgress( DestroyGroup, DestroyUnit ) - self:F( { DestroyGroup, DestroyUnit } ) - - local DestroyCount = 0 - for UnitTypeID, UnitType in pairs( self.DestroyUnitTypes ) do - if DestroyUnit and DestroyUnit:getTypeName() == UnitType then - if DestroyUnit and DestroyUnit:getLife() <= 1.0 then - DestroyCount = DestroyCount + 1 - end - end - end - return DestroyCount -end ---- A PICKUPTASK orchestrates the loading of CARGO at a specific landing zone. --- @module PICKUPTASK --- @parent TASK - ---- The PICKUPTASK class --- @type -PICKUPTASK = { - ClassName = "PICKUPTASK", - TEXT = { "Pick-Up", "picked-up", "loaded" }, - GoalVerb = "Pick-Up" -} - ---- Creates a new PICKUPTASK. --- @param table{string,...}|string LandingZones Table of Zone names where Cargo is to be loaded. --- @param CARGO_TYPE CargoType Type of the Cargo. The type must be of the following Enumeration:.. --- @param number OnBoardSide Reflects from which side the cargo Group will be on-boarded on the Carrier. -function PICKUPTASK:New( CargoType, OnBoardSide ) - local self = BASE:Inherit( self, TASK:New() ) - self:F() - - -- self holds the inherited instance of the PICKUPTASK Class to the BASE class. - - local Valid = true - - if Valid then - self.Name = 'Pickup Cargo' - self.TaskBriefing = "Task: Fly to the indicated landing zones and pickup " .. CargoType .. ". Your co-pilot will provide you with the directions (required flight angle in degrees) and the distance (in km) to the pickup zone." - self.CargoType = CargoType - self.GoalVerb = CargoType .. " " .. self.GoalVerb - self.OnBoardSide = OnBoardSide - self.IsLandingRequired = true -- required to decide whether the client needs to land or not - self.IsSlingLoad = false -- Indicates whether the cargo is a sling load cargo - self.Stages = { STAGE_CARGO_INIT:New(), STAGE_CARGO_LOAD:New(), STAGEBRIEF:New(), STAGESTART:New(), STAGEROUTE:New(), STAGELANDING:New(), STAGELANDED:New(), STAGELOAD:New(), STAGEDONE:New() } - self.SetStage( self, 1 ) - end - - return self -end - -function PICKUPTASK:FromZone( LandingZone ) - self:F() - - self.LandingZones.LandingZoneNames[LandingZone.CargoZoneName] = LandingZone.CargoZoneName - self.LandingZones.LandingZones[LandingZone.CargoZoneName] = LandingZone - - return self -end - -function PICKUPTASK:InitCargo( InitCargos ) - self:F( { InitCargos } ) - - if type( InitCargos ) == "table" then - self.Cargos.InitCargos = InitCargos - else - self.Cargos.InitCargos = { InitCargos } - end - - return self -end - -function PICKUPTASK:LoadCargo( LoadCargos ) - self:F( { LoadCargos } ) - - if type( LoadCargos ) == "table" then - self.Cargos.LoadCargos = LoadCargos - else - self.Cargos.LoadCargos = { LoadCargos } - end - - return self -end - -function PICKUPTASK:AddCargoMenus( Client, Cargos, TransportRadius ) - self:F() - - for CargoID, Cargo in pairs( Cargos ) do - - self:T( { Cargo.ClassName, Cargo.CargoName, Cargo.CargoType, Cargo:IsStatusNone(), Cargo:IsStatusLoaded(), Cargo:IsStatusLoading(), Cargo:IsStatusUnLoaded() } ) - - -- If the Cargo has no status, allow the menu option. - if Cargo:IsStatusNone() or ( Cargo:IsStatusLoading() and Client == Cargo:IsLoadingToClient() ) then - - local MenuAdd = false - if Cargo:IsNear( Client, self.CurrentCargoZone ) then - MenuAdd = true - end - - if MenuAdd then - if Client._Menus[Cargo.CargoType] == nil then - Client._Menus[Cargo.CargoType] = {} - end - - if not Client._Menus[Cargo.CargoType].PickupMenu then - Client._Menus[Cargo.CargoType].PickupMenu = missionCommands.addSubMenuForGroup( - Client:GetClientGroupID(), - self.TEXT[1] .. " " .. Cargo.CargoType, - nil - ) - self:T( 'Added PickupMenu: ' .. self.TEXT[1] .. " " .. Cargo.CargoType ) - end - - if Client._Menus[Cargo.CargoType].PickupSubMenus == nil then - Client._Menus[Cargo.CargoType].PickupSubMenus = {} - end - - Client._Menus[Cargo.CargoType].PickupSubMenus[ #Client._Menus[Cargo.CargoType].PickupSubMenus + 1 ] = missionCommands.addCommandForGroup( - Client:GetClientGroupID(), - Cargo.CargoName .. " ( " .. Cargo.CargoWeight .. "kg )", - Client._Menus[Cargo.CargoType].PickupMenu, - self.MenuAction, - { ReferenceTask = self, CargoTask = Cargo } - ) - self:T( 'Added PickupSubMenu' .. Cargo.CargoType .. ":" .. Cargo.CargoName .. " ( " .. Cargo.CargoWeight .. "kg )" ) - end - end - end - -end - -function PICKUPTASK:RemoveCargoMenus( Client ) - self:F() - - for MenuID, MenuData in pairs( Client._Menus ) do - for SubMenuID, SubMenuData in pairs( MenuData.PickupSubMenus ) do - missionCommands.removeItemForGroup( Client:GetClientGroupID(), SubMenuData ) - self:T( "Removed PickupSubMenu " ) - SubMenuData = nil - end - if MenuData.PickupMenu then - missionCommands.removeItemForGroup( Client:GetClientGroupID(), MenuData.PickupMenu ) - self:T( "Removed PickupMenu " ) - MenuData.PickupMenu = nil - end - end - - for CargoID, Cargo in pairs( CARGOS ) do - self:T( { Cargo.ClassName, Cargo.CargoName, Cargo.CargoType, Cargo:IsStatusNone(), Cargo:IsStatusLoaded(), Cargo:IsStatusLoading(), Cargo:IsStatusUnLoaded() } ) - if Cargo:IsStatusLoading() and Client == Cargo:IsLoadingToClient() then - Cargo:StatusNone() - end - end - -end - - - -function PICKUPTASK:HasFailed( ClientDead ) - self:F() - - local TaskHasFailed = self.TaskFailed - return TaskHasFailed -end - ---- A DEPLOYTASK orchestrates the deployment of CARGO within a specific landing zone. --- @module DEPLOYTASK - - - ---- A DeployTask --- @type DEPLOYTASK -DEPLOYTASK = { - ClassName = "DEPLOYTASK", - TEXT = { "Deploy", "deployed", "unloaded" }, - GoalVerb = "Deployment" -} - - ---- Creates a new DEPLOYTASK object, which models the sequence of STAGEs to unload a cargo. --- @function [parent=#DEPLOYTASK] New --- @param #string CargoType Type of the Cargo. --- @return #DEPLOYTASK The created DeployTask -function DEPLOYTASK:New( CargoType ) - local self = BASE:Inherit( self, TASK:New() ) - self:F() - - local Valid = true - - if Valid then - self.Name = 'Deploy Cargo' - self.TaskBriefing = "Fly to one of the indicated landing zones and deploy " .. CargoType .. ". Your co-pilot will provide you with the directions (required flight angle in degrees) and the distance (in km) to the deployment zone." - self.CargoType = CargoType - self.GoalVerb = CargoType .. " " .. self.GoalVerb - self.Stages = { STAGE_CARGO_INIT:New(), STAGE_CARGO_LOAD:New(), STAGEBRIEF:New(), STAGESTART:New(), STAGEROUTE:New(), STAGELANDING:New(), STAGELANDED:New(), STAGEUNLOAD:New(), STAGEDONE:New() } - self.SetStage( self, 1 ) - end - - return self -end - -function DEPLOYTASK:ToZone( LandingZone ) - self:F() - - self.LandingZones.LandingZoneNames[LandingZone.CargoZoneName] = LandingZone.CargoZoneName - self.LandingZones.LandingZones[LandingZone.CargoZoneName] = LandingZone - - return self -end - - -function DEPLOYTASK:InitCargo( InitCargos ) - self:F( { InitCargos } ) - - if type( InitCargos ) == "table" then - self.Cargos.InitCargos = InitCargos - else - self.Cargos.InitCargos = { InitCargos } - end - - return self -end - - -function DEPLOYTASK:LoadCargo( LoadCargos ) - self:F( { LoadCargos } ) - - if type( LoadCargos ) == "table" then - self.Cargos.LoadCargos = LoadCargos - else - self.Cargos.LoadCargos = { LoadCargos } - end - - return self -end - - ---- When the cargo is unloaded, it will move to the target zone name. --- @param string TargetZoneName Name of the Zone to where the Cargo should move after unloading. -function DEPLOYTASK:SetCargoTargetZoneName( TargetZoneName ) - self:F() - - local Valid = true - - Valid = routines.ValidateString( TargetZoneName, "TargetZoneName", Valid ) - - if Valid then - self.TargetZoneName = TargetZoneName - end - - return Valid - -end - -function DEPLOYTASK:AddCargoMenus( Client, Cargos, TransportRadius ) - self:F() - - local ClientGroupID = Client:GetClientGroupID() - - self:T( ClientGroupID ) - - for CargoID, Cargo in pairs( Cargos ) do - - self:T( { Cargo.ClassName, Cargo.CargoName, Cargo.CargoType, Cargo.CargoWeight } ) - - if Cargo:IsStatusLoaded() and Client == Cargo:IsLoadedInClient() then - - if Client._Menus[Cargo.CargoType] == nil then - Client._Menus[Cargo.CargoType] = {} - end - - if not Client._Menus[Cargo.CargoType].DeployMenu then - Client._Menus[Cargo.CargoType].DeployMenu = missionCommands.addSubMenuForGroup( - ClientGroupID, - self.TEXT[1] .. " " .. Cargo.CargoType, - nil - ) - self:T( 'Added DeployMenu ' .. self.TEXT[1] ) - end - - if Client._Menus[Cargo.CargoType].DeploySubMenus == nil then - Client._Menus[Cargo.CargoType].DeploySubMenus = {} - end - - if Client._Menus[Cargo.CargoType].DeployMenu == nil then - self:T( 'deploymenu is nil' ) - end - - Client._Menus[Cargo.CargoType].DeploySubMenus[ #Client._Menus[Cargo.CargoType].DeploySubMenus + 1 ] = missionCommands.addCommandForGroup( - ClientGroupID, - Cargo.CargoName .. " ( " .. Cargo.CargoWeight .. "kg )", - Client._Menus[Cargo.CargoType].DeployMenu, - self.MenuAction, - { ReferenceTask = self, CargoTask = Cargo } - ) - self:T( 'Added DeploySubMenu ' .. Cargo.CargoType .. ":" .. Cargo.CargoName .. " ( " .. Cargo.CargoWeight .. "kg )" ) - end - end - -end - -function DEPLOYTASK:RemoveCargoMenus( Client ) - self:F() - - local ClientGroupID = Client:GetClientGroupID() - self:T( ClientGroupID ) - - for MenuID, MenuData in pairs( Client._Menus ) do - if MenuData.DeploySubMenus ~= nil then - for SubMenuID, SubMenuData in pairs( MenuData.DeploySubMenus ) do - missionCommands.removeItemForGroup( ClientGroupID, SubMenuData ) - self:T( "Removed DeploySubMenu " ) - SubMenuData = nil - end - end - if MenuData.DeployMenu then - missionCommands.removeItemForGroup( ClientGroupID, MenuData.DeployMenu ) - self:T( "Removed DeployMenu " ) - MenuData.DeployMenu = nil - end - end - -end ---- A NOTASK is a dummy activity... But it will show a Mission Briefing... --- @module NOTASK - ---- The NOTASK class --- @type -NOTASK = { - ClassName = "NOTASK", -} - ---- Creates a new NOTASK. -function NOTASK:New() - local self = BASE:Inherit( self, TASK:New() ) - self:F() - - local Valid = true - - if Valid then - self.Name = 'Nothing' - self.TaskBriefing = "Task: Execute your mission." - self.Stages = { STAGEBRIEF:New(), STAGESTART:New(), STAGEDONE:New() } - self.SetStage( self, 1 ) - end - - return self -end ---- A ROUTETASK orchestrates the travel to a specific zone defined within the ME. --- @module ROUTETASK - ---- The ROUTETASK class --- @type -ROUTETASK = { - ClassName = "ROUTETASK", - GoalVerb = "Route", -} - ---- Creates a new ROUTETASK. --- @param table{sring,...}|string LandingZones Table of Zone Names where the target is located. --- @param string TaskBriefing (optional) Defines a text describing the briefing of the task. --- @return ROUTETASK -function ROUTETASK:New( LandingZones, TaskBriefing ) - local self = BASE:Inherit( self, TASK:New() ) - self:F( { LandingZones, TaskBriefing } ) - - local Valid = true - - Valid = routines.ValidateZone( LandingZones, "LandingZones", Valid ) - - if Valid then - self.Name = 'Route To Zone' - if TaskBriefing then - self.TaskBriefing = TaskBriefing .. " Your co-pilot will provide you with the directions (required flight angle in degrees) and the distance (in km) to the target objective." - else - self.TaskBriefing = "Task: Fly to specified zone(s). Your co-pilot will provide you with the directions (required flight angle in degrees) and the distance (in km) to the target objective." - end - if type( LandingZones ) == "table" then - self.LandingZones = LandingZones - else - self.LandingZones = { LandingZones } - end - self.Stages = { STAGEBRIEF:New(), STAGESTART:New(), STAGEROUTE:New(), STAGEARRIVE:New(), STAGEDONE:New() } - self.SetStage( self, 1 ) - end - - return self -end - ---- A MISSION is the main owner of a Mission orchestration within MOOSE . The Mission framework orchestrates @{CLIENT}s, @{TASK}s, @{STAGE}s etc. --- A @{CLIENT} needs to be registered within the @{MISSION} through the function @{AddClient}. A @{TASK} needs to be registered within the @{MISSION} through the function @{AddTask}. --- @module Mission - ---- The MISSION class --- @type MISSION --- @extends Base#BASE --- @field #MISSION.Clients _Clients --- @field #string MissionBriefing -MISSION = { - ClassName = "MISSION", - Name = "", - MissionStatus = "PENDING", - _Clients = {}, - _Tasks = {}, - _ActiveTasks = {}, - GoalFunction = nil, - MissionReportTrigger = 0, - MissionProgressTrigger = 0, - MissionReportShow = false, - MissionReportFlash = false, - MissionTimeInterval = 0, - MissionCoalition = "", - SUCCESS = 1, - FAILED = 2, - REPEAT = 3, - _GoalTasks = {} -} - ---- @type MISSION.Clients --- @list - -function MISSION:Meta() - - local self = BASE:Inherit( self, BASE:New() ) - self:F() - - return self -end - ---- This is the main MISSION declaration method. Each Mission is like the master or a Mission orchestration between, Clients, Tasks, Stages etc. --- @param string MissionName is the name of the mission. This name will be used to reference the status of each mission by the players. --- @param string MissionPriority is a string indicating the "priority" of the Mission. f.e. "Primary", "Secondary" or "First", "Second". It is free format and up to the Mission designer to choose. There are no rules behind this field. --- @param string MissionBriefing is a string indicating the mission briefing to be shown when a player joins a @{CLIENT}. --- @param string MissionCoalition is a string indicating the coalition or party to which this mission belongs to. It is free format and can be chosen freely by the mission designer. Note that this field is not to be confused with the coalition concept of the ME. Examples of a Mission Coalition could be "NATO", "CCCP", "Intruders", "Terrorists"... --- @return MISSION --- @usage --- -- Declare a few missions. --- local Mission = MISSIONSCHEDULER.AddMission( 'Russia Transport Troops SA-6', 'Operational', 'Transport troops from the control center to one of the SA-6 SAM sites to activate their operation.', 'Russia' ) --- local Mission = MISSIONSCHEDULER.AddMission( 'Patriots', 'Primary', 'Our intelligence reports that 3 Patriot SAM defense batteries are located near Ruisi, Kvarhiti and Gori.', 'Russia' ) --- local Mission = MISSIONSCHEDULER.AddMission( 'Package Delivery', 'Operational', 'In order to be in full control of the situation, we need you to deliver a very important package at a secret location. Fly undetected through the NATO defenses and deliver the secret package. The secret agent is located at waypoint 4.', 'Russia' ) --- local Mission = MISSIONSCHEDULER.AddMission( 'Rescue General', 'Tactical', 'Our intelligence has received a remote signal behind Gori. We believe it is a very important Russian General that was captured by Georgia. Go out there and rescue him! Ensure you stay out of the battle zone, keep south. Waypoint 4 is the location of our Russian General.', 'Russia' ) --- local Mission = MISSIONSCHEDULER.AddMission( 'NATO Transport Troops', 'Operational', 'Transport 3 groups of air defense engineers from our barracks "Gold" and "Titan" to each patriot battery control center to activate our air defenses.', 'NATO' ) --- local Mission = MISSIONSCHEDULER.AddMission( 'SA-6 SAMs', 'Primary', 'Our intelligence reports that 3 SA-6 SAM defense batteries are located near Didmukha, Khetagurov and Berula. Eliminate the Russian SAMs.', 'NATO' ) --- local Mission = MISSIONSCHEDULER.AddMission( 'NATO Sling Load', 'Operational', 'Fly to the cargo pickup zone at Dzegvi or Kaspi, and sling the cargo to Soganlug airbase.', 'NATO' ) --- local Mission = MISSIONSCHEDULER.AddMission( 'Rescue secret agent', 'Tactical', 'In order to be in full control of the situation, we need you to rescue a secret agent from the woods behind enemy lines. Avoid the Russian defenses and rescue the agent. Keep south until Khasuri, and keep your eyes open for any SAM presence. The agent is located at waypoint 4 on your kneeboard.', 'NATO' ) -function MISSION:New( MissionName, MissionPriority, MissionBriefing, MissionCoalition ) - - self = MISSION:Meta() - self:T({ MissionName, MissionPriority, MissionBriefing, MissionCoalition }) - - local Valid = true - - Valid = routines.ValidateString( MissionName, "MissionName", Valid ) - Valid = routines.ValidateString( MissionPriority, "MissionPriority", Valid ) - Valid = routines.ValidateString( MissionBriefing, "MissionBriefing", Valid ) - Valid = routines.ValidateString( MissionCoalition, "MissionCoalition", Valid ) - - if Valid then - self.Name = MissionName - self.MissionPriority = MissionPriority - self.MissionBriefing = MissionBriefing - self.MissionCoalition = MissionCoalition - end - - return self -end - ---- Returns if a Mission has completed. --- @return bool -function MISSION:IsCompleted() - self:F() - return self.MissionStatus == "ACCOMPLISHED" -end - ---- Set a Mission to completed. -function MISSION:Completed() - self:F() - self.MissionStatus = "ACCOMPLISHED" - self:StatusToClients() -end - ---- Returns if a Mission is ongoing. --- treturn bool -function MISSION:IsOngoing() - self:F() - return self.MissionStatus == "ONGOING" -end - ---- Set a Mission to ongoing. -function MISSION:Ongoing() - self:F() - self.MissionStatus = "ONGOING" - --self:StatusToClients() -end - ---- Returns if a Mission is pending. --- treturn bool -function MISSION:IsPending() - self:F() - return self.MissionStatus == "PENDING" -end - ---- Set a Mission to pending. -function MISSION:Pending() - self:F() - self.MissionStatus = "PENDING" - self:StatusToClients() -end - ---- Returns if a Mission has failed. --- treturn bool -function MISSION:IsFailed() - self:F() - return self.MissionStatus == "FAILED" -end - ---- Set a Mission to failed. -function MISSION:Failed() - self:F() - self.MissionStatus = "FAILED" - self:StatusToClients() -end - ---- Send the status of the MISSION to all Clients. -function MISSION:StatusToClients() - self:F() - if self.MissionReportFlash then - for ClientID, Client in pairs( self._Clients ) do - Client:Message( self.MissionCoalition .. ' "' .. self.Name .. '": ' .. self.MissionStatus .. '! ( ' .. self.MissionPriority .. ' mission ) ', 10, "Mission Command: Mission Status") - end - end -end - ---- Handles the reporting. After certain time intervals, a MISSION report MESSAGE will be shown to All Players. -function MISSION:ReportTrigger() - self:F() - - if self.MissionReportShow == true then - self.MissionReportShow = false - return true - else - if self.MissionReportFlash == true then - if timer.getTime() >= self.MissionReportTrigger then - self.MissionReportTrigger = timer.getTime() + self.MissionTimeInterval - return true - else - return false - end - else - return false - end - end -end - ---- Report the status of all MISSIONs to all active Clients. -function MISSION:ReportToAll() - self:F() - - local AlivePlayers = '' - for ClientID, Client in pairs( self._Clients ) do - if Client:GetDCSGroup() then - if Client:GetClientGroupDCSUnit() then - if Client:GetClientGroupDCSUnit():getLife() > 0.0 then - if AlivePlayers == '' then - AlivePlayers = ' Players: ' .. Client:GetClientGroupDCSUnit():getPlayerName() - else - AlivePlayers = AlivePlayers .. ' / ' .. Client:GetClientGroupDCSUnit():getPlayerName() - end - end - end - end - end - local Tasks = self:GetTasks() - local TaskText = "" - for TaskID, TaskData in pairs( Tasks ) do - TaskText = TaskText .. " - Task " .. TaskID .. ": " .. TaskData.Name .. ": " .. TaskData:GetGoalProgress() .. "\n" - end - MESSAGE:New( self.MissionCoalition .. ' "' .. self.Name .. '": ' .. self.MissionStatus .. ' ( ' .. self.MissionPriority .. ' mission )' .. AlivePlayers .. "\n" .. TaskText:gsub("\n$",""), 10, "Mission Command: Mission Report" ):ToAll() -end - - ---- Add a goal function to a MISSION. Goal functions are called when a @{TASK} within a mission has been completed. --- @param function GoalFunction is the function defined by the mission designer to evaluate whether a certain goal has been reached after a @{TASK} finishes within the @{MISSION}. A GoalFunction must accept 2 parameters: Mission, Client, which contains the current MISSION object and the current CLIENT object respectively. --- @usage --- PatriotActivation = { --- { "US SAM Patriot Zerti", false }, --- { "US SAM Patriot Zegduleti", false }, --- { "US SAM Patriot Gvleti", false } --- } --- --- function DeployPatriotTroopsGoal( Mission, Client ) --- --- --- -- Check if the cargo is all deployed for mission success. --- for CargoID, CargoData in pairs( Mission._Cargos ) do --- if Group.getByName( CargoData.CargoGroupName ) then --- CargoGroup = Group.getByName( CargoData.CargoGroupName ) --- if CargoGroup then --- -- Check if the cargo is ready to activate --- CurrentLandingZoneID = routines.IsUnitInZones( CargoGroup:getUnits()[1], Mission:GetTask( 2 ).LandingZones ) -- The second task is the Deploytask to measure mission success upon --- if CurrentLandingZoneID then --- if PatriotActivation[CurrentLandingZoneID][2] == false then --- -- Now check if this is a new Mission Task to be completed... --- trigger.action.setGroupAIOn( Group.getByName( PatriotActivation[CurrentLandingZoneID][1] ) ) --- PatriotActivation[CurrentLandingZoneID][2] = true --- MessageToBlue( "Mission Command: Message to all airborne units! The " .. PatriotActivation[CurrentLandingZoneID][1] .. " is armed. Our air defenses are now stronger.", 60, "BLUE/PatriotDefense" ) --- MessageToRed( "Mission Command: Our satellite systems are detecting additional NATO air defenses. To all airborne units: Take care!!!", 60, "RED/PatriotDefense" ) --- Mission:GetTask( 2 ):AddGoalCompletion( "Patriots activated", PatriotActivation[CurrentLandingZoneID][1], 1 ) -- Register Patriot activation as part of mission goal. --- end --- end --- end --- end --- end --- end --- --- local Mission = MISSIONSCHEDULER.AddMission( 'NATO Transport Troops', 'Operational', 'Transport 3 groups of air defense engineers from our barracks "Gold" and "Titan" to each patriot battery control center to activate our air defenses.', 'NATO' ) --- Mission:AddGoalFunction( DeployPatriotTroopsGoal ) -function MISSION:AddGoalFunction( GoalFunction ) - self:F() - self.GoalFunction = GoalFunction -end - ---- Register a new @{CLIENT} to participate within the mission. --- @param CLIENT Client is the @{CLIENT} object. The object must have been instantiated with @{CLIENT:New}. --- @return CLIENT --- @usage --- Add a number of Client objects to the Mission. --- Mission:AddClient( CLIENT:FindByName( 'US UH-1H*HOT-Deploy Troops 1', 'Transport 3 groups of air defense engineers from our barracks "Gold" and "Titan" to each patriot battery control center to activate our air defenses.' ):Transport() ) --- Mission:AddClient( CLIENT:FindByName( 'US UH-1H*RAMP-Deploy Troops 3', 'Transport 3 groups of air defense engineers from our barracks "Gold" and "Titan" to each patriot battery control center to activate our air defenses.' ):Transport() ) --- Mission:AddClient( CLIENT:FindByName( 'US UH-1H*HOT-Deploy Troops 2', 'Transport 3 groups of air defense engineers from our barracks "Gold" and "Titan" to each patriot battery control center to activate our air defenses.' ):Transport() ) --- Mission:AddClient( CLIENT:FindByName( 'US UH-1H*RAMP-Deploy Troops 4', 'Transport 3 groups of air defense engineers from our barracks "Gold" and "Titan" to each patriot battery control center to activate our air defenses.' ):Transport() ) -function MISSION:AddClient( Client ) - self:F( { Client } ) - - local Valid = true - - if Valid then - self._Clients[Client.ClientName] = Client - end - - return Client -end - ---- Find a @{CLIENT} object within the @{MISSION} by its ClientName. --- @param CLIENT ClientName is a string defining the Client Group as defined within the ME. --- @return CLIENT --- @usage --- -- Seach for Client "Bomber" within the Mission. --- local BomberClient = Mission:FindClient( "Bomber" ) -function MISSION:FindClient( ClientName ) - self:F( { self._Clients[ClientName] } ) - return self._Clients[ClientName] -end - - ---- Register a @{TASK} to be completed within the @{MISSION}. Note that there can be multiple @{TASK}s registered to be completed. Each TASK can be set a certain Goal. The MISSION will not be completed until all Goals are reached. --- @param TASK Task is the @{TASK} object. The object must have been instantiated with @{TASK:New} or any of its inherited @{TASK}s. --- @param number TaskNumber is the sequence number of the TASK within the MISSION. This number does have to be chronological. --- @return TASK --- @usage --- -- Define a few tasks for the Mission. --- PickupZones = { "NATO Gold Pickup Zone", "NATO Titan Pickup Zone" } --- PickupSignalUnits = { "NATO Gold Coordination Center", "NATO Titan Coordination Center" } --- --- -- Assign the Pickup Task --- local PickupTask = PICKUPTASK:New( PickupZones, CARGO_TYPE.ENGINEERS, CLIENT.ONBOARDSIDE.LEFT ) --- PickupTask:AddSmokeBlue( PickupSignalUnits ) --- PickupTask:SetGoalTotal( 3 ) --- Mission:AddTask( PickupTask, 1 ) --- --- -- Assign the Deploy Task --- local PatriotActivationZones = { "US Patriot Battery 1 Activation", "US Patriot Battery 2 Activation", "US Patriot Battery 3 Activation" } --- local PatriotActivationZonesSmokeUnits = { "US SAM Patriot - Battery 1 Control", "US SAM Patriot - Battery 2 Control", "US SAM Patriot - Battery 3 Control" } --- local DeployTask = DEPLOYTASK:New( PatriotActivationZones, CARGO_TYPE.ENGINEERS ) --- --DeployTask:SetCargoTargetZoneName( 'US Troops Attack ' .. math.random(2) ) --- DeployTask:AddSmokeBlue( PatriotActivationZonesSmokeUnits ) --- DeployTask:SetGoalTotal( 3 ) --- DeployTask:SetGoalTotal( 3, "Patriots activated" ) --- Mission:AddTask( DeployTask, 2 ) - -function MISSION:AddTask( Task, TaskNumber ) - self:F() - - self._Tasks[TaskNumber] = Task - self._Tasks[TaskNumber]:EnableEvents() - self._Tasks[TaskNumber].ID = TaskNumber - - return Task - end - ---- Get the TASK idenified by the TaskNumber from the Mission. This function is useful in GoalFunctions. --- @param number TaskNumber is the number of the @{TASK} within the @{MISSION}. --- @return TASK --- @usage --- -- Get Task 2 from the Mission. --- Task2 = Mission:GetTask( 2 ) - -function MISSION:GetTask( TaskNumber ) - self:F() - - local Valid = true - - local Task = nil - - if type(TaskNumber) ~= "number" then - Valid = false - end - - if Valid then - Task = self._Tasks[TaskNumber] - end - - return Task -end - ---- Get all the TASKs from the Mission. This function is useful in GoalFunctions. --- @return {TASK,...} Structure of TASKS with the @{TASK} number as the key. --- @usage --- -- Get Tasks from the Mission. --- Tasks = Mission:GetTasks() --- env.info( "Task 2 Completion = " .. Tasks[2]:GetGoalPercentage() .. "%" ) -function MISSION:GetTasks() - self:F() - - return self._Tasks -end - - ---[[ - _TransportExecuteStage: Defines the different stages of Transport unload/load execution. This table is internal and is used to control the validity of Transport load/unload timing. - - - _TransportExecuteStage.EXECUTING - - _TransportExecuteStage.SUCCESS - - _TransportExecuteStage.FAILED - ---]] -_TransportExecuteStage = { - NONE = 0, - EXECUTING = 1, - SUCCESS = 2, - FAILED = 3 -} - - ---- The MISSIONSCHEDULER is an OBJECT and is the main scheduler of ALL active MISSIONs registered within this scheduler. It's workings are considered internal and is automatically created when the Mission.lua file is included. --- @type MISSIONSCHEDULER --- @field #MISSIONSCHEDULER.MISSIONS Missions -MISSIONSCHEDULER = { - Missions = {}, - MissionCount = 0, - TimeIntervalCount = 0, - TimeIntervalShow = 150, - TimeSeconds = 14400, - TimeShow = 5 -} - ---- @type MISSIONSCHEDULER.MISSIONS --- @list <#MISSION> Mission - ---- This is the main MISSIONSCHEDULER Scheduler function. It is considered internal and is automatically created when the Mission.lua file is included. -function MISSIONSCHEDULER.Scheduler() - - - -- loop through the missions in the TransportTasks - for MissionName, MissionData in pairs( MISSIONSCHEDULER.Missions ) do - - local Mission = MissionData -- #MISSION - - if not Mission:IsCompleted() then - - -- This flag will monitor if for this mission, there are clients alive. If this flag is still false at the end of the loop, the mission status will be set to Pending (if not Failed or Completed). - local ClientsAlive = false - - for ClientID, ClientData in pairs( Mission._Clients ) do - - local Client = ClientData -- Client#CLIENT - - if Client:IsAlive() then - - -- There is at least one Client that is alive... So the Mission status is set to Ongoing. - ClientsAlive = true - - -- If this Client was not registered as Alive before: - -- 1. We register the Client as Alive. - -- 2. We initialize the Client Tasks and make a link to the original Mission Task. - -- 3. We initialize the Cargos. - -- 4. We flag the Mission as Ongoing. - if not Client.ClientAlive then - Client.ClientAlive = true - Client.ClientBriefingShown = false - for TaskNumber, Task in pairs( Mission._Tasks ) do - -- Note that this a deepCopy. Each client must have their own Tasks with own Stages!!! - Client._Tasks[TaskNumber] = routines.utils.deepCopy( Mission._Tasks[TaskNumber] ) - -- Each MissionTask must point to the original Mission. - Client._Tasks[TaskNumber].MissionTask = Mission._Tasks[TaskNumber] - Client._Tasks[TaskNumber].Cargos = Mission._Tasks[TaskNumber].Cargos - Client._Tasks[TaskNumber].LandingZones = Mission._Tasks[TaskNumber].LandingZones - end - - Mission:Ongoing() - end - - - -- For each Client, check for each Task the state and evolve the mission. - -- This flag will indicate if the Task of the Client is Complete. - local TaskComplete = false - - for TaskNumber, Task in pairs( Client._Tasks ) do - - if not Task.Stage then - Task:SetStage( 1 ) - end - - - local TransportTime = timer.getTime() - - if not Task:IsDone() then - - if Task:Goal() then - Task:ShowGoalProgress( Mission, Client ) - end - - --env.info( 'Scheduler: Mission = ' .. Mission.Name .. ' / Client = ' .. Client.ClientName .. ' / Task = ' .. Task.Name .. ' / Stage = ' .. Task.ActiveStage .. ' - ' .. Task.Stage.Name .. ' - ' .. Task.Stage.StageType ) - - -- Action - if Task:StageExecute() then - Task.Stage:Execute( Mission, Client, Task ) - end - - -- Wait until execution is finished - if Task.ExecuteStage == _TransportExecuteStage.EXECUTING then - Task.Stage:Executing( Mission, Client, Task ) - end - - -- Validate completion or reverse to earlier stage - if Task.Time + Task.Stage.WaitTime <= TransportTime then - Task:SetStage( Task.Stage:Validate( Mission, Client, Task ) ) - end - - if Task:IsDone() then - --env.info( 'Scheduler: Mission '.. Mission.Name .. ' Task ' .. Task.Name .. ' Stage ' .. Task.Stage.Name .. ' done. TaskComplete = ' .. string.format ( "%s", TaskComplete and "true" or "false" ) ) - TaskComplete = true -- when a task is not yet completed, a mission cannot be completed - - else - -- break only if this task is not yet done, so that future task are not yet activated. - TaskComplete = false -- when a task is not yet completed, a mission cannot be completed - --env.info( 'Scheduler: Mission "'.. Mission.Name .. '" Task "' .. Task.Name .. '" Stage "' .. Task.Stage.Name .. '" break. TaskComplete = ' .. string.format ( "%s", TaskComplete and "true" or "false" ) ) - break - end - - if TaskComplete then - - if Mission.GoalFunction ~= nil then - Mission.GoalFunction( Mission, Client ) - end - if MISSIONSCHEDULER.Scoring then - MISSIONSCHEDULER.Scoring:_AddMissionTaskScore( Client:GetClientGroupDCSUnit(), Mission.Name, 25 ) - end - --- if not Mission:IsCompleted() then --- end - end - end - end - - local MissionComplete = true - for TaskNumber, Task in pairs( Mission._Tasks ) do - if Task:Goal() then --- Task:ShowGoalProgress( Mission, Client ) - if Task:IsGoalReached() then - else - MissionComplete = false - end - else - MissionComplete = false -- If there is no goal, the mission should never be ended. The goal status will be set somewhere else. - end - end - - if MissionComplete then - Mission:Completed() - if MISSIONSCHEDULER.Scoring then - MISSIONSCHEDULER.Scoring:_AddMissionScore( Mission.Name, 100 ) - end - else - if TaskComplete then - -- Reset for new tasking of active client - Client.ClientAlive = false -- Reset the client tasks. - end - end - - - else - if Client.ClientAlive then - env.info( 'Scheduler: Client "' .. Client.ClientName .. '" is inactive.' ) - Client.ClientAlive = false - - -- This is tricky. If we sanitize Client._Tasks before sanitizing Client._Tasks[TaskNumber].MissionTask, then the original MissionTask will be sanitized, and will be lost within the garbage collector. - -- So first sanitize Client._Tasks[TaskNumber].MissionTask, after that, sanitize only the whole _Tasks structure... - --Client._Tasks[TaskNumber].MissionTask = nil - --Client._Tasks = nil - end - end - end - - -- If all Clients of this Mission are not activated, then the Mission status needs to be put back into Pending status. - -- But only if the Mission was Ongoing. In case the Mission is Completed or Failed, the Mission status may not be changed. In these cases, this will be the last run of this Mission in the Scheduler. - if ClientsAlive == false then - if Mission:IsOngoing() then - -- Mission status back to pending... - Mission:Pending() - end - end - end - - Mission:StatusToClients() - - if Mission:ReportTrigger() then - Mission:ReportToAll() - end - end - - return true -end - ---- Start the MISSIONSCHEDULER. -function MISSIONSCHEDULER.Start() - if MISSIONSCHEDULER ~= nil then - --MISSIONSCHEDULER.SchedulerId = routines.scheduleFunction( MISSIONSCHEDULER.Scheduler, { }, 0, 2 ) - MISSIONSCHEDULER.SchedulerId = SCHEDULER:New( nil, MISSIONSCHEDULER.Scheduler, { }, 0, 2 ) - end -end - ---- Stop the MISSIONSCHEDULER. -function MISSIONSCHEDULER.Stop() - if MISSIONSCHEDULER.SchedulerId then - routines.removeFunction(MISSIONSCHEDULER.SchedulerId) - MISSIONSCHEDULER.SchedulerId = nil - end -end - ---- This is the main MISSION declaration method. Each Mission is like the master or a Mission orchestration between, Clients, Tasks, Stages etc. --- @param Mission is the MISSION object instantiated by @{MISSION:New}. --- @return MISSION --- @usage --- -- Declare a mission. --- Mission = MISSION:New( 'Russia Transport Troops SA-6', --- 'Operational', --- 'Transport troops from the control center to one of the SA-6 SAM sites to activate their operation.', --- 'Russia' ) --- MISSIONSCHEDULER:AddMission( Mission ) -function MISSIONSCHEDULER.AddMission( Mission ) - MISSIONSCHEDULER.Missions[Mission.Name] = Mission - MISSIONSCHEDULER.MissionCount = MISSIONSCHEDULER.MissionCount + 1 - -- Add an overall AI Client for the AI tasks... This AI Client will facilitate the Events in the background for each Task. - --MissionAdd:AddClient( CLIENT:Register( 'AI' ) ) - - return Mission -end - ---- Remove a MISSION from the MISSIONSCHEDULER. --- @param MissionName is the name of the MISSION given at declaration using @{AddMission}. --- @usage --- -- Declare a mission. --- Mission = MISSION:New( 'Russia Transport Troops SA-6', --- 'Operational', --- 'Transport troops from the control center to one of the SA-6 SAM sites to activate their operation.', --- 'Russia' ) --- MISSIONSCHEDULER:AddMission( Mission ) --- --- -- Now remove the Mission. --- MISSIONSCHEDULER:RemoveMission( 'Russia Transport Troops SA-6' ) -function MISSIONSCHEDULER.RemoveMission( MissionName ) - MISSIONSCHEDULER.Missions[MissionName] = nil - MISSIONSCHEDULER.MissionCount = MISSIONSCHEDULER.MissionCount - 1 -end - ---- Find a MISSION within the MISSIONSCHEDULER. --- @param MissionName is the name of the MISSION given at declaration using @{AddMission}. --- @return MISSION --- @usage --- -- Declare a mission. --- Mission = MISSION:New( 'Russia Transport Troops SA-6', --- 'Operational', --- 'Transport troops from the control center to one of the SA-6 SAM sites to activate their operation.', --- 'Russia' ) --- MISSIONSCHEDULER:AddMission( Mission ) --- --- -- Now find the Mission. --- MissionFind = MISSIONSCHEDULER:FindMission( 'Russia Transport Troops SA-6' ) -function MISSIONSCHEDULER.FindMission( MissionName ) - return MISSIONSCHEDULER.Missions[MissionName] -end - --- Internal function used by the MISSIONSCHEDULER menu. -function MISSIONSCHEDULER.ReportMissionsShow( ) - for MissionName, Mission in pairs( MISSIONSCHEDULER.Missions ) do - Mission.MissionReportShow = true - Mission.MissionReportFlash = false - end -end - --- Internal function used by the MISSIONSCHEDULER menu. -function MISSIONSCHEDULER.ReportMissionsFlash( TimeInterval ) - local Count = 0 - for MissionName, Mission in pairs( MISSIONSCHEDULER.Missions ) do - Mission.MissionReportShow = false - Mission.MissionReportFlash = true - Mission.MissionReportTrigger = timer.getTime() + Count * TimeInterval - Mission.MissionTimeInterval = MISSIONSCHEDULER.MissionCount * TimeInterval - env.info( "TimeInterval = " .. Mission.MissionTimeInterval ) - Count = Count + 1 - end -end - --- Internal function used by the MISSIONSCHEDULER menu. -function MISSIONSCHEDULER.ReportMissionsHide( Prm ) - for MissionName, Mission in pairs( MISSIONSCHEDULER.Missions ) do - Mission.MissionReportShow = false - Mission.MissionReportFlash = false - end -end - ---- Enables a MENU option in the communications menu under F10 to control the status of the active missions. --- This function should be called only once when starting the MISSIONSCHEDULER. -function MISSIONSCHEDULER.ReportMenu() - local ReportMenu = SUBMENU:New( 'Status' ) - local ReportMenuShow = COMMANDMENU:New( 'Show Report Missions', ReportMenu, MISSIONSCHEDULER.ReportMissionsShow, 0 ) - local ReportMenuFlash = COMMANDMENU:New('Flash Report Missions', ReportMenu, MISSIONSCHEDULER.ReportMissionsFlash, 120 ) - local ReportMenuHide = COMMANDMENU:New( 'Hide Report Missions', ReportMenu, MISSIONSCHEDULER.ReportMissionsHide, 0 ) -end - ---- Show the remaining mission time. -function MISSIONSCHEDULER:TimeShow() - self.TimeIntervalCount = self.TimeIntervalCount + 1 - if self.TimeIntervalCount >= self.TimeTriggerShow then - local TimeMsg = string.format("%00d", ( self.TimeSeconds / 60 ) - ( timer.getTime() / 60 )) .. ' minutes left until mission reload.' - MESSAGE:New( TimeMsg, self.TimeShow, "Mission time" ):ToAll() - self.TimeIntervalCount = 0 - end -end - -function MISSIONSCHEDULER:Time( TimeSeconds, TimeIntervalShow, TimeShow ) - - self.TimeIntervalCount = 0 - self.TimeSeconds = TimeSeconds - self.TimeIntervalShow = TimeIntervalShow - self.TimeShow = TimeShow -end - ---- Adds a mission scoring to the game. -function MISSIONSCHEDULER:Scoring( Scoring ) - - self.Scoring = Scoring -end - ---- The CLEANUP class keeps an area clean of crashing or colliding airplanes. It also prevents airplanes from firing within this area. --- @module CleanUp --- @author Flightcontrol - - - - - - - ---- The CLEANUP class. --- @type CLEANUP --- @extends Base#BASE -CLEANUP = { - ClassName = "CLEANUP", - ZoneNames = {}, - TimeInterval = 300, - CleanUpList = {}, -} - ---- Creates the main object which is handling the cleaning of the debris within the given Zone Names. --- @param #CLEANUP self --- @param #table ZoneNames Is a table of zone names where the debris should be cleaned. Also a single string can be passed with one zone name. --- @param #number TimeInterval The interval in seconds when the clean activity takes place. The default is 300 seconds, thus every 5 minutes. --- @return #CLEANUP --- @usage --- -- Clean these Zones. --- CleanUpAirports = CLEANUP:New( { 'CLEAN Tbilisi', 'CLEAN Kutaisi' }, 150 ) --- or --- CleanUpTbilisi = CLEANUP:New( 'CLEAN Tbilisi', 150 ) --- CleanUpKutaisi = CLEANUP:New( 'CLEAN Kutaisi', 600 ) -function CLEANUP:New( ZoneNames, TimeInterval ) local self = BASE:Inherit( self, BASE:New() ) - self:F( { ZoneNames, TimeInterval } ) - - if type( ZoneNames ) == 'table' then - self.ZoneNames = ZoneNames - else - self.ZoneNames = { ZoneNames } - end - if TimeInterval then - self.TimeInterval = TimeInterval - end - - _EVENTDISPATCHER:OnBirth( self._OnEventBirth, self ) - - self.CleanUpScheduler = SCHEDULER:New( self, self._CleanUpScheduler, {}, 1, TimeInterval ) - - return self -end - - ---- Destroys a group from the simulator, but checks first if it is still existing! --- @param #CLEANUP self --- @param DCSGroup#Group GroupObject The object to be destroyed. --- @param #string CleanUpGroupName The groupname... -function CLEANUP:_DestroyGroup( GroupObject, CleanUpGroupName ) - self:F( { GroupObject, CleanUpGroupName } ) - - if GroupObject then -- and GroupObject:isExist() then - trigger.action.deactivateGroup(GroupObject) - self:T( { "GroupObject Destroyed", GroupObject } ) - end -end - ---- Destroys a @{DCSUnit#Unit} from the simulator, but checks first if it is still existing! --- @param #CLEANUP self --- @param DCSUnit#Unit CleanUpUnit The object to be destroyed. --- @param #string CleanUpUnitName The Unit name ... -function CLEANUP:_DestroyUnit( CleanUpUnit, CleanUpUnitName ) - self:F( { CleanUpUnit, CleanUpUnitName } ) - - if CleanUpUnit then - local CleanUpGroup = Unit.getGroup(CleanUpUnit) - -- TODO Client bug in 1.5.3 - if CleanUpGroup and CleanUpGroup:isExist() then - local CleanUpGroupUnits = CleanUpGroup:getUnits() - if #CleanUpGroupUnits == 1 then - local CleanUpGroupName = CleanUpGroup:getName() - --self:CreateEventCrash( timer.getTime(), CleanUpUnit ) - CleanUpGroup:destroy() - self:T( { "Destroyed Group:", CleanUpGroupName } ) - else - CleanUpUnit:destroy() - self:T( { "Destroyed Unit:", CleanUpUnitName } ) - end - self.CleanUpList[CleanUpUnitName] = nil -- Cleaning from the list - CleanUpUnit = nil - end - end -end - --- TODO check DCSTypes#Weapon ---- Destroys a missile from the simulator, but checks first if it is still existing! --- @param #CLEANUP self --- @param DCSTypes#Weapon MissileObject -function CLEANUP:_DestroyMissile( MissileObject ) - self:F( { MissileObject } ) - - if MissileObject and MissileObject:isExist() then - MissileObject:destroy() - self:T( "MissileObject Destroyed") - end -end - -function CLEANUP:_OnEventBirth( Event ) - self:F( { Event } ) - - self.CleanUpList[Event.IniDCSUnitName] = {} - self.CleanUpList[Event.IniDCSUnitName].CleanUpUnit = Event.IniDCSUnit - self.CleanUpList[Event.IniDCSUnitName].CleanUpGroup = Event.IniDCSGroup - self.CleanUpList[Event.IniDCSUnitName].CleanUpGroupName = Event.IniDCSGroupName - self.CleanUpList[Event.IniDCSUnitName].CleanUpUnitName = Event.IniDCSUnitName - - _EVENTDISPATCHER:OnEngineShutDownForUnit( Event.IniDCSUnitName, self._EventAddForCleanUp, self ) - _EVENTDISPATCHER:OnEngineStartUpForUnit( Event.IniDCSUnitName, self._EventAddForCleanUp, self ) - _EVENTDISPATCHER:OnHitForUnit( Event.IniDCSUnitName, self._EventAddForCleanUp, self ) - _EVENTDISPATCHER:OnPilotDeadForUnit( Event.IniDCSUnitName, self._EventCrash, self ) - _EVENTDISPATCHER:OnDeadForUnit( Event.IniDCSUnitName, self._EventCrash, self ) - _EVENTDISPATCHER:OnCrashForUnit( Event.IniDCSUnitName, self._EventCrash, self ) - _EVENTDISPATCHER:OnShotForUnit( Event.IniDCSUnitName, self._EventShot, self ) - - --self:AddEvent( world.event.S_EVENT_ENGINE_SHUTDOWN, self._EventAddForCleanUp ) - --self:AddEvent( world.event.S_EVENT_ENGINE_STARTUP, self._EventAddForCleanUp ) --- self:AddEvent( world.event.S_EVENT_HIT, self._EventAddForCleanUp ) -- , self._EventHitCleanUp ) --- self:AddEvent( world.event.S_EVENT_CRASH, self._EventCrash ) -- , self._EventHitCleanUp ) --- --self:AddEvent( world.event.S_EVENT_DEAD, self._EventCrash ) --- self:AddEvent( world.event.S_EVENT_SHOT, self._EventShot ) --- --- self:EnableEvents() - - -end - ---- Detects if a crash event occurs. --- Crashed units go into a CleanUpList for removal. --- @param #CLEANUP self --- @param DCSTypes#Event event -function CLEANUP:_EventCrash( Event ) - self:F( { Event } ) - - --TODO: This stuff is not working due to a DCS bug. Burning units cannot be destroyed. - -- self:T("before getGroup") - -- local _grp = Unit.getGroup(event.initiator)-- Identify the group that fired - -- self:T("after getGroup") - -- _grp:destroy() - -- self:T("after deactivateGroup") - -- event.initiator:destroy() - - self.CleanUpList[Event.IniDCSUnitName] = {} - self.CleanUpList[Event.IniDCSUnitName].CleanUpUnit = Event.IniDCSUnit - self.CleanUpList[Event.IniDCSUnitName].CleanUpGroup = Event.IniDCSGroup - self.CleanUpList[Event.IniDCSUnitName].CleanUpGroupName = Event.IniDCSGroupName - self.CleanUpList[Event.IniDCSUnitName].CleanUpUnitName = Event.IniDCSUnitName - -end - ---- Detects if a unit shoots a missile. --- If this occurs within one of the zones, then the weapon used must be destroyed. --- @param #CLEANUP self --- @param DCSTypes#Event event -function CLEANUP:_EventShot( Event ) - self:F( { Event } ) - - -- Test if the missile was fired within one of the CLEANUP.ZoneNames. - local CurrentLandingZoneID = 0 - CurrentLandingZoneID = routines.IsUnitInZones( Event.IniDCSUnit, self.ZoneNames ) - if ( CurrentLandingZoneID ) then - -- Okay, the missile was fired within the CLEANUP.ZoneNames, destroy the fired weapon. - --_SEADmissile:destroy() - SCHEDULER:New( self, CLEANUP._DestroyMissile, { Event.Weapon }, 0.1 ) - end -end - - ---- Detects if the Unit has an S_EVENT_HIT within the given ZoneNames. If this is the case, destroy the unit. --- @param #CLEANUP self --- @param DCSTypes#Event event -function CLEANUP:_EventHitCleanUp( Event ) - self:F( { Event } ) - - if Event.IniDCSUnit then - if routines.IsUnitInZones( Event.IniDCSUnit, self.ZoneNames ) ~= nil then - self:T( { "Life: ", Event.IniDCSUnitName, ' = ', Event.IniDCSUnit:getLife(), "/", Event.IniDCSUnit:getLife0() } ) - if Event.IniDCSUnit:getLife() < Event.IniDCSUnit:getLife0() then - self:T( "CleanUp: Destroy: " .. Event.IniDCSUnitName ) - SCHEDULER:New( self, CLEANUP._DestroyUnit, { Event.IniDCSUnit }, 0.1 ) - end - end - end - - if Event.TgtDCSUnit then - if routines.IsUnitInZones( Event.TgtDCSUnit, self.ZoneNames ) ~= nil then - self:T( { "Life: ", Event.TgtDCSUnitName, ' = ', Event.TgtDCSUnit:getLife(), "/", Event.TgtDCSUnit:getLife0() } ) - if Event.TgtDCSUnit:getLife() < Event.TgtDCSUnit:getLife0() then - self:T( "CleanUp: Destroy: " .. Event.TgtDCSUnitName ) - SCHEDULER:New( self, CLEANUP._DestroyUnit, { Event.TgtDCSUnit }, 0.1 ) - end - end - end -end - ---- Add the @{DCSUnit#Unit} to the CleanUpList for CleanUp. -function CLEANUP:_AddForCleanUp( CleanUpUnit, CleanUpUnitName ) - self:F( { CleanUpUnit, CleanUpUnitName } ) - - self.CleanUpList[CleanUpUnitName] = {} - self.CleanUpList[CleanUpUnitName].CleanUpUnit = CleanUpUnit - self.CleanUpList[CleanUpUnitName].CleanUpUnitName = CleanUpUnitName - self.CleanUpList[CleanUpUnitName].CleanUpGroup = Unit.getGroup(CleanUpUnit) - self.CleanUpList[CleanUpUnitName].CleanUpGroupName = Unit.getGroup(CleanUpUnit):getName() - self.CleanUpList[CleanUpUnitName].CleanUpTime = timer.getTime() - self.CleanUpList[CleanUpUnitName].CleanUpMoved = false - - self:T( { "CleanUp: Add to CleanUpList: ", Unit.getGroup(CleanUpUnit):getName(), CleanUpUnitName } ) - -end - ---- Detects if the Unit has an S_EVENT_ENGINE_SHUTDOWN or an S_EVENT_HIT within the given ZoneNames. If this is the case, add the Group to the CLEANUP List. --- @param #CLEANUP self --- @param DCSTypes#Event event -function CLEANUP:_EventAddForCleanUp( Event ) - - if Event.IniDCSUnit then - if self.CleanUpList[Event.IniDCSUnitName] == nil then - if routines.IsUnitInZones( Event.IniDCSUnit, self.ZoneNames ) ~= nil then - self:_AddForCleanUp( Event.IniDCSUnit, Event.IniDCSUnitName ) - end - end - end - - if Event.TgtDCSUnit then - if self.CleanUpList[Event.TgtDCSUnitName] == nil then - if routines.IsUnitInZones( Event.TgtDCSUnit, self.ZoneNames ) ~= nil then - self:_AddForCleanUp( Event.TgtDCSUnit, Event.TgtDCSUnitName ) - end - end - end - -end - -local CleanUpSurfaceTypeText = { - "LAND", - "SHALLOW_WATER", - "WATER", - "ROAD", - "RUNWAY" - } - ---- At the defined time interval, CleanUp the Groups within the CleanUpList. --- @param #CLEANUP self -function CLEANUP:_CleanUpScheduler() - self:F( { "CleanUp Scheduler" } ) - - local CleanUpCount = 0 - for CleanUpUnitName, UnitData in pairs( self.CleanUpList ) do - CleanUpCount = CleanUpCount + 1 - - self:T( { CleanUpUnitName, UnitData } ) - local CleanUpUnit = Unit.getByName(UnitData.CleanUpUnitName) - local CleanUpGroupName = UnitData.CleanUpGroupName - local CleanUpUnitName = UnitData.CleanUpUnitName - if CleanUpUnit then - self:T( { "CleanUp Scheduler", "Checking:", CleanUpUnitName } ) - if _DATABASE:GetStatusGroup( CleanUpGroupName ) ~= "ReSpawn" then - local CleanUpUnitVec3 = CleanUpUnit:getPoint() - --self:T( CleanUpUnitVec3 ) - local CleanUpUnitVec2 = {} - CleanUpUnitVec2.x = CleanUpUnitVec3.x - CleanUpUnitVec2.y = CleanUpUnitVec3.z - --self:T( CleanUpUnitVec2 ) - local CleanUpSurfaceType = land.getSurfaceType(CleanUpUnitVec2) - --self:T( CleanUpSurfaceType ) - - if CleanUpUnit and CleanUpUnit:getLife() <= CleanUpUnit:getLife0() * 0.95 then - if CleanUpSurfaceType == land.SurfaceType.RUNWAY then - if CleanUpUnit:inAir() then - local CleanUpLandHeight = land.getHeight(CleanUpUnitVec2) - local CleanUpUnitHeight = CleanUpUnitVec3.y - CleanUpLandHeight - self:T( { "CleanUp Scheduler", "Height = " .. CleanUpUnitHeight } ) - if CleanUpUnitHeight < 30 then - self:T( { "CleanUp Scheduler", "Destroy " .. CleanUpUnitName .. " because below safe height and damaged." } ) - self:_DestroyUnit(CleanUpUnit, CleanUpUnitName) - end - else - self:T( { "CleanUp Scheduler", "Destroy " .. CleanUpUnitName .. " because on runway and damaged." } ) - self:_DestroyUnit(CleanUpUnit, CleanUpUnitName) - end - end - end - -- Clean Units which are waiting for a very long time in the CleanUpZone. - if CleanUpUnit then - local CleanUpUnitVelocity = CleanUpUnit:getVelocity() - local CleanUpUnitVelocityTotal = math.abs(CleanUpUnitVelocity.x) + math.abs(CleanUpUnitVelocity.y) + math.abs(CleanUpUnitVelocity.z) - if CleanUpUnitVelocityTotal < 1 then - if UnitData.CleanUpMoved then - if UnitData.CleanUpTime + 180 <= timer.getTime() then - self:T( { "CleanUp Scheduler", "Destroy due to not moving anymore " .. CleanUpUnitName } ) - self:_DestroyUnit(CleanUpUnit, CleanUpUnitName) - end - end - else - UnitData.CleanUpTime = timer.getTime() - UnitData.CleanUpMoved = true - end - end - - else - -- Do nothing ... - self.CleanUpList[CleanUpUnitName] = nil -- Not anymore in the DCSRTE - end - else - self:T( "CleanUp: Group " .. CleanUpUnitName .. " cannot be found in DCS RTE, removing ..." ) - self.CleanUpList[CleanUpUnitName] = nil -- Not anymore in the DCSRTE - end - end - self:T(CleanUpCount) - - return true -end - ---- This module contains the SPAWN class. --- --- 1) @{Spawn#SPAWN} class, extends @{Base#BASE} --- ============================================= --- The @{#SPAWN} class allows to spawn dynamically new groups, based on pre-defined initialization settings, modifying the behaviour when groups are spawned. --- For each group to be spawned, within the mission editor, a group has to be created with the "late activation flag" set. We call this group the *"Spawn Template"* of the SPAWN object. --- A reference to this Spawn Template needs to be provided when constructing the SPAWN object, by indicating the name of the group within the mission editor in the constructor methods. --- --- Within the SPAWN object, there is an internal index that keeps track of which group from the internal group list was spawned. --- When new groups get spawned by using the SPAWN functions (see below), it will be validated whether the Limits (@{#SPAWN.Limit}) of the SPAWN object are not reached. --- When all is valid, a new group will be created by the spawning methods, and the internal index will be increased with 1. --- --- Regarding the name of new spawned groups, a _SpawnPrefix_ will be assigned for each new group created. --- If you want to have the Spawn Template name to be used as the _SpawnPrefix_ name, use the @{#SPAWN.New} constructor. --- However, when the @{#SPAWN.NewWithAlias} constructor was used, the Alias name will define the _SpawnPrefix_ name. --- Groups will follow the following naming structure when spawned at run-time: --- --- 1. Spawned groups will have the name _SpawnPrefix_#ggg, where ggg is a counter from 0 to 999. --- 2. Spawned units will have the name _SpawnPrefix_#ggg-uu, where uu is a counter from 0 to 99 for each new spawned unit belonging to the group. --- --- Some additional notes that need to be remembered: --- --- * Templates are actually groups defined within the mission editor, with the flag "Late Activation" set. As such, these groups are never used within the mission, but are used by the @{#SPAWN} module. --- * It is important to defined BEFORE you spawn new groups, a proper initialization of the SPAWN instance is done with the options you want to use. --- * When designing a mission, NEVER name groups using a "#" within the name of the group Spawn Template(s), or the SPAWN module logic won't work anymore. --- --- 1.1) SPAWN construction methods --- ------------------------------- --- Create a new SPAWN object with the @{#SPAWN.New} or the @{#SPAWN.NewWithAlias} methods: --- --- * @{#SPAWN.New}: Creates a new SPAWN object taking the name of the group that functions as the Template. --- --- It is important to understand how the SPAWN class works internally. The SPAWN object created will contain internally a list of groups that will be spawned and that are already spawned. --- The initialization functions will modify this list of groups so that when a group gets spawned, ALL information is already prepared when spawning. This is done for performance reasons. --- So in principle, the group list will contain all parameters and configurations after initialization, and when groups get actually spawned, this spawning can be done quickly and efficient. --- --- 1.2) SPAWN initialization methods --- --------------------------------- --- A spawn object will behave differently based on the usage of initialization methods: --- --- * @{#SPAWN.Limit}: Limits the amount of groups that can be alive at the same time and that can be dynamically spawned. --- * @{#SPAWN.RandomizeRoute}: Randomize the routes of spawned groups. --- * @{#SPAWN.RandomizeTemplate}: Randomize the group templates so that when a new group is spawned, a random group template is selected from one of the templates defined. --- * @{#SPAWN.Uncontrolled}: Spawn plane groups uncontrolled. --- * @{#SPAWN.Array}: Make groups visible before they are actually activated, and order these groups like a batallion in an array. --- * @{#SPAWN.InitRepeat}: Re-spawn groups when they land at the home base. Similar functions are @{#SPAWN.InitRepeatOnLanding} and @{#SPAWN.InitRepeatOnEngineShutDown}. --- --- 1.3) SPAWN spawning methods --- --------------------------- --- Groups can be spawned at different times and methods: --- --- * @{#SPAWN.Spawn}: Spawn one new group based on the last spawned index. --- * @{#SPAWN.ReSpawn}: Re-spawn a group based on a given index. --- * @{#SPAWN.SpawnScheduled}: Spawn groups at scheduled but randomized intervals. You can use @{#SPAWN.SpawnScheduleStart} and @{#SPAWN.SpawnScheduleStop} to start and stop the schedule respectively. --- * @{#SPAWN.SpawnFromUnit}: Spawn a new group taking the position of a @{UNIT}. --- * @{#SPAWN.SpawnInZone}: Spawn a new group in a @{ZONE}. --- --- Note that @{#SPAWN.Spawn} and @{#SPAWN.ReSpawn} return a @{GROUP#GROUP.New} object, that contains a reference to the DCSGroup object. --- You can use the @{GROUP} object to do further actions with the DCSGroup. --- --- 1.4) SPAWN object cleaning --- -------------------------- --- Sometimes, it will occur during a mission run-time, that ground or especially air objects get damaged, and will while being damged stop their activities, while remaining alive. --- In such cases, the SPAWN object will just sit there and wait until that group gets destroyed, but most of the time it won't, --- and it may occur that no new groups are or can be spawned as limits are reached. --- To prevent this, a @{#SPAWN.CleanUp} initialization method has been defined that will silently monitor the status of each spawned group. --- Once a group has a velocity = 0, and has been waiting for a defined interval, that group will be cleaned or removed from run-time. --- There is a catch however :-) If a damaged group has returned to an airbase within the coalition, that group will not be considered as "lost"... --- In such a case, when the inactive group is cleaned, a new group will Re-spawned automatically. --- This models AI that has succesfully returned to their airbase, to restart their combat activities. --- Check the @{#SPAWN.CleanUp} for further info. --- --- --- @module Spawn --- @author FlightControl - ---- SPAWN Class --- @type SPAWN --- @extends Base#BASE --- @field ClassName --- @field #string SpawnTemplatePrefix --- @field #string SpawnAliasPrefix -SPAWN = { - ClassName = "SPAWN", - SpawnTemplatePrefix = nil, - SpawnAliasPrefix = nil, -} - - - ---- Creates the main object to spawn a GROUP defined in the DCS ME. --- @param #SPAWN self --- @param #string SpawnTemplatePrefix is the name of the Group in the ME that defines the Template. Each new group will have the name starting with SpawnTemplatePrefix. --- @return #SPAWN --- @usage --- -- NATO helicopters engaging in the battle field. --- Spawn_BE_KA50 = SPAWN:New( 'BE KA-50@RAMP-Ground Defense' ) --- @usage local Plane = SPAWN:New( "Plane" ) -- Creates a new local variable that can initiate new planes with the name "Plane#ddd" using the template "Plane" as defined within the ME. -function SPAWN:New( SpawnTemplatePrefix ) - local self = BASE:Inherit( self, BASE:New() ) - self:F( { SpawnTemplatePrefix } ) - - local TemplateGroup = Group.getByName( SpawnTemplatePrefix ) - if TemplateGroup then - self.SpawnTemplatePrefix = SpawnTemplatePrefix - self.SpawnIndex = 0 - self.SpawnCount = 0 -- The internal counter of the amount of spawning the has happened since SpawnStart. - self.AliveUnits = 0 -- Contains the counter how many units are currently alive - self.SpawnIsScheduled = false -- Reflects if the spawning for this SpawnTemplatePrefix is going to be scheduled or not. - self.SpawnTemplate = self._GetTemplate( self, SpawnTemplatePrefix ) -- Contains the template structure for a Group Spawn from the Mission Editor. Note that this group must have lateActivation always on!!! - self.Repeat = false -- Don't repeat the group from Take-Off till Landing and back Take-Off by ReSpawning. - self.UnControlled = false -- When working in UnControlled mode, all planes are Spawned in UnControlled mode before the scheduler starts. - self.SpawnMaxUnitsAlive = 0 -- The maximum amount of groups that can be alive of SpawnTemplatePrefix at the same time. - self.SpawnMaxGroups = 0 -- The maximum amount of groups that can be spawned. - self.SpawnRandomize = false -- Sets the randomization flag of new Spawned units to false. - self.SpawnVisible = false -- Flag that indicates if all the Groups of the SpawnGroup need to be visible when Spawned. - - self.SpawnGroups = {} -- Array containing the descriptions of each Group to be Spawned. - else - error( "SPAWN:New: There is no group declared in the mission editor with SpawnTemplatePrefix = '" .. SpawnTemplatePrefix .. "'" ) - end - - return self -end - ---- Creates a new SPAWN instance to create new groups based on the defined template and using a new alias for each new group. --- @param #SPAWN self --- @param #string SpawnTemplatePrefix is the name of the Group in the ME that defines the Template. --- @param #string SpawnAliasPrefix is the name that will be given to the Group at runtime. --- @return #SPAWN --- @usage --- -- NATO helicopters engaging in the battle field. --- Spawn_BE_KA50 = SPAWN:NewWithAlias( 'BE KA-50@RAMP-Ground Defense', 'Helicopter Attacking a City' ) --- @usage local PlaneWithAlias = SPAWN:NewWithAlias( "Plane", "Bomber" ) -- Creates a new local variable that can instantiate new planes with the name "Bomber#ddd" using the template "Plane" as defined within the ME. -function SPAWN:NewWithAlias( SpawnTemplatePrefix, SpawnAliasPrefix ) - local self = BASE:Inherit( self, BASE:New() ) - self:F( { SpawnTemplatePrefix, SpawnAliasPrefix } ) - - local TemplateGroup = Group.getByName( SpawnTemplatePrefix ) - if TemplateGroup then - self.SpawnTemplatePrefix = SpawnTemplatePrefix - self.SpawnAliasPrefix = SpawnAliasPrefix - self.SpawnIndex = 0 - self.SpawnCount = 0 -- The internal counter of the amount of spawning the has happened since SpawnStart. - self.AliveUnits = 0 -- Contains the counter how many units are currently alive - self.SpawnIsScheduled = false -- Reflects if the spawning for this SpawnTemplatePrefix is going to be scheduled or not. - self.SpawnTemplate = self._GetTemplate( self, SpawnTemplatePrefix ) -- Contains the template structure for a Group Spawn from the Mission Editor. Note that this group must have lateActivation always on!!! - self.Repeat = false -- Don't repeat the group from Take-Off till Landing and back Take-Off by ReSpawning. - self.UnControlled = false -- When working in UnControlled mode, all planes are Spawned in UnControlled mode before the scheduler starts. - self.SpawnMaxUnitsAlive = 0 -- The maximum amount of groups that can be alive of SpawnTemplatePrefix at the same time. - self.SpawnMaxGroups = 0 -- The maximum amount of groups that can be spawned. - self.SpawnRandomize = false -- Sets the randomization flag of new Spawned units to false. - self.SpawnVisible = false -- Flag that indicates if all the Groups of the SpawnGroup need to be visible when Spawned. - - self.SpawnGroups = {} -- Array containing the descriptions of each Group to be Spawned. - else - error( "SPAWN:New: There is no group declared in the mission editor with SpawnTemplatePrefix = '" .. SpawnTemplatePrefix .. "'" ) - end - - return self -end - - ---- Limits the Maximum amount of Units that can be alive at the same time, and the maximum amount of groups that can be spawned. --- Note that this method is exceptionally important to balance the performance of the mission. Depending on the machine etc, a mission can only process a maximum amount of units. --- If the time interval must be short, but there should not be more Units or Groups alive than a maximum amount of units, then this function should be used... --- When a @{#SPAWN.New} is executed and the limit of the amount of units alive is reached, then no new spawn will happen of the group, until some of these units of the spawn object will be destroyed. --- @param #SPAWN self --- @param #number SpawnMaxUnitsAlive The maximum amount of units that can be alive at runtime. --- @param #number SpawnMaxGroups The maximum amount of groups that can be spawned. When the limit is reached, then no more actual spawns will happen of the group. --- This parameter is useful to define a maximum amount of airplanes, ground troops, helicopters, ships etc within a supply area. --- This parameter accepts the value 0, which defines that there are no maximum group limits, but there are limits on the maximum of units that can be alive at the same time. --- @return #SPAWN self --- @usage --- -- NATO helicopters engaging in the battle field. --- -- This helicopter group consists of one Unit. So, this group will SPAWN maximum 2 groups simultaneously within the DCSRTE. --- -- There will be maximum 24 groups spawned during the whole mission lifetime. --- Spawn_BE_KA50 = SPAWN:New( 'BE KA-50@RAMP-Ground Defense' ):Limit( 2, 24 ) -function SPAWN:Limit( SpawnMaxUnitsAlive, SpawnMaxGroups ) - self:F( { self.SpawnTemplatePrefix, SpawnMaxUnitsAlive, SpawnMaxGroups } ) - - self.SpawnMaxUnitsAlive = SpawnMaxUnitsAlive -- The maximum amount of groups that can be alive of SpawnTemplatePrefix at the same time. - self.SpawnMaxGroups = SpawnMaxGroups -- The maximum amount of groups that can be spawned. - - for SpawnGroupID = 1, self.SpawnMaxGroups do - self:_InitializeSpawnGroups( SpawnGroupID ) - end - - return self -end - - ---- Randomizes the defined route of the SpawnTemplatePrefix group in the ME. This is very useful to define extra variation of the behaviour of groups. --- @param #SPAWN self --- @param #number SpawnStartPoint is the waypoint where the randomization begins. --- Note that the StartPoint = 0 equaling the point where the group is spawned. --- @param #number SpawnEndPoint is the waypoint where the randomization ends counting backwards. --- This parameter is useful to avoid randomization to end at a waypoint earlier than the last waypoint on the route. --- @param #number SpawnRadius is the radius in meters in which the randomization of the new waypoints, with the original waypoint of the original template located in the middle ... --- @return #SPAWN --- @usage --- -- NATO helicopters engaging in the battle field. --- -- The KA-50 has waypoints Start point ( =0 or SP ), 1, 2, 3, 4, End point (= 5 or DP). --- -- Waypoints 2 and 3 will only be randomized. The others will remain on their original position with each new spawn of the helicopter. --- -- The randomization of waypoint 2 and 3 will take place within a radius of 2000 meters. --- Spawn_BE_KA50 = SPAWN:New( 'BE KA-50@RAMP-Ground Defense' ):RandomizeRoute( 2, 2, 2000 ) -function SPAWN:RandomizeRoute( SpawnStartPoint, SpawnEndPoint, SpawnRadius ) - self:F( { self.SpawnTemplatePrefix, SpawnStartPoint, SpawnEndPoint, SpawnRadius } ) - - self.SpawnRandomizeRoute = true - self.SpawnRandomizeRouteStartPoint = SpawnStartPoint - self.SpawnRandomizeRouteEndPoint = SpawnEndPoint - self.SpawnRandomizeRouteRadius = SpawnRadius - - for GroupID = 1, self.SpawnMaxGroups do - self:_RandomizeRoute( GroupID ) - end - - return self -end - - ---- This function is rather complicated to understand. But I'll try to explain. --- This function becomes useful when you need to spawn groups with random templates of groups defined within the mission editor, --- but they will all follow the same Template route and have the same prefix name. --- In other words, this method randomizes between a defined set of groups the template to be used for each new spawn of a group. --- @param #SPAWN self --- @param #string SpawnTemplatePrefixTable A table with the names of the groups defined within the mission editor, from which one will be choosen when a new group will be spawned. --- @return #SPAWN --- @usage --- -- NATO Tank Platoons invading Gori. --- -- Choose between 13 different 'US Tank Platoon' configurations for each new SPAWN the Group to be spawned for the --- -- 'US Tank Platoon Left', 'US Tank Platoon Middle' and 'US Tank Platoon Right' SpawnTemplatePrefixes. --- -- Each new SPAWN will randomize the route, with a defined time interval of 200 seconds with 40% time variation (randomization) and --- -- with a limit set of maximum 12 Units alive simulteneously and 150 Groups to be spawned during the whole mission. --- Spawn_US_Platoon = { 'US Tank Platoon 1', 'US Tank Platoon 2', 'US Tank Platoon 3', 'US Tank Platoon 4', 'US Tank Platoon 5', --- 'US Tank Platoon 6', 'US Tank Platoon 7', 'US Tank Platoon 8', 'US Tank Platoon 9', 'US Tank Platoon 10', --- 'US Tank Platoon 11', 'US Tank Platoon 12', 'US Tank Platoon 13' } --- Spawn_US_Platoon_Left = SPAWN:New( 'US Tank Platoon Left' ):Limit( 12, 150 ):Schedule( 200, 0.4 ):RandomizeTemplate( Spawn_US_Platoon ):RandomizeRoute( 3, 3, 2000 ) --- Spawn_US_Platoon_Middle = SPAWN:New( 'US Tank Platoon Middle' ):Limit( 12, 150 ):Schedule( 200, 0.4 ):RandomizeTemplate( Spawn_US_Platoon ):RandomizeRoute( 3, 3, 2000 ) --- Spawn_US_Platoon_Right = SPAWN:New( 'US Tank Platoon Right' ):Limit( 12, 150 ):Schedule( 200, 0.4 ):RandomizeTemplate( Spawn_US_Platoon ):RandomizeRoute( 3, 3, 2000 ) -function SPAWN:RandomizeTemplate( SpawnTemplatePrefixTable ) - self:F( { self.SpawnTemplatePrefix, SpawnTemplatePrefixTable } ) - - self.SpawnTemplatePrefixTable = SpawnTemplatePrefixTable - self.SpawnRandomizeTemplate = true - - for SpawnGroupID = 1, self.SpawnMaxGroups do - self:_RandomizeTemplate( SpawnGroupID ) - end - - return self -end - - - - - ---- For planes and helicopters, when these groups go home and land on their home airbases and farps, they normally would taxi to the parking spot, shut-down their engines and wait forever until the Group is removed by the runtime environment. --- This function is used to re-spawn automatically (so no extra call is needed anymore) the same group after it has landed. --- This will enable a spawned group to be re-spawned after it lands, until it is destroyed... --- Note: When the group is respawned, it will re-spawn from the original airbase where it took off. --- So ensure that the routes for groups that respawn, always return to the original airbase, or players may get confused ... --- @param #SPAWN self --- @return #SPAWN self --- @usage --- -- RU Su-34 - AI Ship Attack --- -- Re-SPAWN the Group(s) after each landing and Engine Shut-Down automatically. --- SpawnRU_SU34 = SPAWN:New( 'TF1 RU Su-34 Krymsk@AI - Attack Ships' ):Schedule( 2, 3, 1800, 0.4 ):SpawnUncontrolled():RandomizeRoute( 1, 1, 3000 ):RepeatOnEngineShutDown() -function SPAWN:InitRepeat() - self:F( { self.SpawnTemplatePrefix, self.SpawnIndex } ) - - self.Repeat = true - self.RepeatOnEngineShutDown = false - self.RepeatOnLanding = true - - return self -end - ---- Respawn group after landing. --- @param #SPAWN self --- @return #SPAWN self -function SPAWN:InitRepeatOnLanding() - self:F( { self.SpawnTemplatePrefix } ) - - self:InitRepeat() - self.RepeatOnEngineShutDown = false - self.RepeatOnLanding = true - - return self -end - - ---- Respawn after landing when its engines have shut down. --- @param #SPAWN self --- @return #SPAWN self -function SPAWN:InitRepeatOnEngineShutDown() - self:F( { self.SpawnTemplatePrefix } ) - - self:InitRepeat() - self.RepeatOnEngineShutDown = true - self.RepeatOnLanding = false - - return self -end - - ---- CleanUp groups when they are still alive, but inactive. --- When groups are still alive and have become inactive due to damage and are unable to contribute anything, then this group will be removed at defined intervals in seconds. --- @param #SPAWN self --- @param #string SpawnCleanUpInterval The interval to check for inactive groups within seconds. --- @return #SPAWN self --- @usage Spawn_Helicopter:CleanUp( 20 ) -- CleanUp the spawning of the helicopters every 20 seconds when they become inactive. -function SPAWN:CleanUp( SpawnCleanUpInterval ) - self:F( { self.SpawnTemplatePrefix, SpawnCleanUpInterval } ) - - self.SpawnCleanUpInterval = SpawnCleanUpInterval - self.SpawnCleanUpTimeStamps = {} - --self.CleanUpFunction = routines.scheduleFunction( self._SpawnCleanUpScheduler, { self }, timer.getTime() + 1, SpawnCleanUpInterval ) - self.CleanUpScheduler = SCHEDULER:New( self, self._SpawnCleanUpScheduler, {}, 1, SpawnCleanUpInterval, 0.2 ) - return self -end - - - ---- Makes the groups visible before start (like a batallion). --- The method will take the position of the group as the first position in the array. --- @param #SPAWN self --- @param #number SpawnAngle The angle in degrees how the groups and each unit of the group will be positioned. --- @param #number SpawnWidth The amount of Groups that will be positioned on the X axis. --- @param #number SpawnDeltaX The space between each Group on the X-axis. --- @param #number SpawnDeltaY The space between each Group on the Y-axis. --- @return #SPAWN self --- @usage --- -- Define an array of Groups. --- Spawn_BE_Ground = SPAWN:New( 'BE Ground' ):Limit( 2, 24 ):Visible( 90, "Diamond", 10, 100, 50 ) -function SPAWN:Array( SpawnAngle, SpawnWidth, SpawnDeltaX, SpawnDeltaY ) - self:F( { self.SpawnTemplatePrefix, SpawnAngle, SpawnWidth, SpawnDeltaX, SpawnDeltaY } ) - - self.SpawnVisible = true -- When the first Spawn executes, all the Groups need to be made visible before start. - - local SpawnX = 0 - local SpawnY = 0 - local SpawnXIndex = 0 - local SpawnYIndex = 0 - - for SpawnGroupID = 1, self.SpawnMaxGroups do - self:T( { SpawnX, SpawnY, SpawnXIndex, SpawnYIndex } ) - - self.SpawnGroups[SpawnGroupID].Visible = true - self.SpawnGroups[SpawnGroupID].Spawned = false - - SpawnXIndex = SpawnXIndex + 1 - if SpawnWidth and SpawnWidth ~= 0 then - if SpawnXIndex >= SpawnWidth then - SpawnXIndex = 0 - SpawnYIndex = SpawnYIndex + 1 - end - end - - local SpawnRootX = self.SpawnGroups[SpawnGroupID].SpawnTemplate.x - local SpawnRootY = self.SpawnGroups[SpawnGroupID].SpawnTemplate.y - - self:_TranslateRotate( SpawnGroupID, SpawnRootX, SpawnRootY, SpawnX, SpawnY, SpawnAngle ) - - self.SpawnGroups[SpawnGroupID].SpawnTemplate.lateActivation = true - self.SpawnGroups[SpawnGroupID].SpawnTemplate.visible = true - - self.SpawnGroups[SpawnGroupID].Visible = true - - _EVENTDISPATCHER:OnBirthForTemplate( self.SpawnGroups[SpawnGroupID].SpawnTemplate, self._OnBirth, self ) - _EVENTDISPATCHER:OnCrashForTemplate( self.SpawnGroups[SpawnGroupID].SpawnTemplate, self._OnDeadOrCrash, self ) - _EVENTDISPATCHER:OnDeadForTemplate( self.SpawnGroups[SpawnGroupID].SpawnTemplate, self._OnDeadOrCrash, self ) - - if self.Repeat then - _EVENTDISPATCHER:OnTakeOffForTemplate( self.SpawnGroups[SpawnGroupID].SpawnTemplate, self._OnTakeOff, self ) - _EVENTDISPATCHER:OnLandForTemplate( self.SpawnGroups[SpawnGroupID].SpawnTemplate, self._OnLand, self ) - end - if self.RepeatOnEngineShutDown then - _EVENTDISPATCHER:OnEngineShutDownForTemplate( self.SpawnGroups[SpawnGroupID].SpawnTemplate, self._OnEngineShutDown, self ) - end - - self.SpawnGroups[SpawnGroupID].Group = _DATABASE:Spawn( self.SpawnGroups[SpawnGroupID].SpawnTemplate ) - - SpawnX = SpawnXIndex * SpawnDeltaX - SpawnY = SpawnYIndex * SpawnDeltaY - end - - return self -end - - - ---- Will spawn a group based on the internal index. --- Note: Uses @{DATABASE} module defined in MOOSE. --- @param #SPAWN self --- @return Group#GROUP The group that was spawned. You can use this group for further actions. -function SPAWN:Spawn() - self:F( { self.SpawnTemplatePrefix, self.SpawnIndex } ) - - return self:SpawnWithIndex( self.SpawnIndex + 1 ) -end - ---- Will re-spawn a group based on a given index. --- Note: Uses @{DATABASE} module defined in MOOSE. --- @param #SPAWN self --- @param #string SpawnIndex The index of the group to be spawned. --- @return Group#GROUP The group that was spawned. You can use this group for further actions. -function SPAWN:ReSpawn( SpawnIndex ) - self:F( { self.SpawnTemplatePrefix, SpawnIndex } ) - - if not SpawnIndex then - SpawnIndex = 1 - end - --- TODO: This logic makes DCS crash and i don't know why (yet). - local SpawnGroup = self:GetGroupFromIndex( SpawnIndex ) - if SpawnGroup then - local SpawnDCSGroup = SpawnGroup:GetDCSObject() - if SpawnDCSGroup then - SpawnGroup:Destroy() - end - end - - return self:SpawnWithIndex( SpawnIndex ) -end - ---- Will spawn a group with a specified index number. --- Uses @{DATABASE} global object defined in MOOSE. --- @param #SPAWN self --- @return Group#GROUP The group that was spawned. You can use this group for further actions. -function SPAWN:SpawnWithIndex( SpawnIndex ) - self:F( { self.SpawnTemplatePrefix, SpawnIndex, self.SpawnMaxGroups } ) - - if self:_GetSpawnIndex( SpawnIndex ) then - - if self.SpawnGroups[self.SpawnIndex].Visible then - self.SpawnGroups[self.SpawnIndex].Group:Activate() - else - self:T( self.SpawnGroups[self.SpawnIndex].SpawnTemplate ) - _EVENTDISPATCHER:OnBirthForTemplate( self.SpawnGroups[self.SpawnIndex].SpawnTemplate, self._OnBirth, self ) - _EVENTDISPATCHER:OnCrashForTemplate( self.SpawnGroups[self.SpawnIndex].SpawnTemplate, self._OnDeadOrCrash, self ) - _EVENTDISPATCHER:OnDeadForTemplate( self.SpawnGroups[self.SpawnIndex].SpawnTemplate, self._OnDeadOrCrash, self ) - - if self.Repeat then - _EVENTDISPATCHER:OnTakeOffForTemplate( self.SpawnGroups[self.SpawnIndex].SpawnTemplate, self._OnTakeOff, self ) - _EVENTDISPATCHER:OnLandForTemplate( self.SpawnGroups[self.SpawnIndex].SpawnTemplate, self._OnLand, self ) - end - if self.RepeatOnEngineShutDown then - _EVENTDISPATCHER:OnEngineShutDownForTemplate( self.SpawnGroups[self.SpawnIndex].SpawnTemplate, self._OnEngineShutDown, self ) - end - - self:T( self.SpawnGroups[self.SpawnIndex].SpawnTemplate ) - - self.SpawnGroups[self.SpawnIndex].Group = _DATABASE:Spawn( self.SpawnGroups[self.SpawnIndex].SpawnTemplate ) - - -- If there is a SpawnFunction hook defined, call it. - if self.SpawnFunctionHook then - self.SpawnFunctionHook( self.SpawnGroups[self.SpawnIndex].Group, unpack( self.SpawnFunctionArguments ) ) - end - -- TODO: Need to fix this by putting an "R" in the name of the group when the group repeats. - --if self.Repeat then - -- _DATABASE:SetStatusGroup( SpawnTemplate.name, "ReSpawn" ) - --end - end - - self.SpawnGroups[self.SpawnIndex].Spawned = true - return self.SpawnGroups[self.SpawnIndex].Group - else - --self:E( { self.SpawnTemplatePrefix, "No more Groups to Spawn:", SpawnIndex, self.SpawnMaxGroups } ) - end - - return nil -end - ---- Spawns new groups at varying time intervals. --- This is useful if you want to have continuity within your missions of certain (AI) groups to be present (alive) within your missions. --- @param #SPAWN self --- @param #number SpawnTime The time interval defined in seconds between each new spawn of new groups. --- @param #number SpawnTimeVariation The variation to be applied on the defined time interval between each new spawn. --- The variation is a number between 0 and 1, representing the %-tage of variation to be applied on the time interval. --- @return #SPAWN self --- @usage --- -- NATO helicopters engaging in the battle field. --- -- The time interval is set to SPAWN new helicopters between each 600 seconds, with a time variation of 50%. --- -- The time variation in this case will be between 450 seconds and 750 seconds. --- -- This is calculated as follows: --- -- Low limit: 600 * ( 1 - 0.5 / 2 ) = 450 --- -- High limit: 600 * ( 1 + 0.5 / 2 ) = 750 --- -- Between these two values, a random amount of seconds will be choosen for each new spawn of the helicopters. --- Spawn_BE_KA50 = SPAWN:New( 'BE KA-50@RAMP-Ground Defense' ):Schedule( 600, 0.5 ) -function SPAWN:SpawnScheduled( SpawnTime, SpawnTimeVariation ) - self:F( { SpawnTime, SpawnTimeVariation } ) - - if SpawnTime ~= nil and SpawnTimeVariation ~= nil then - self.SpawnScheduler = SCHEDULER:New( self, self._Scheduler, {}, 1, SpawnTime, SpawnTimeVariation ) - end - - return self -end - ---- Will re-start the spawning scheduler. --- Note: This function is only required to be called when the schedule was stopped. -function SPAWN:SpawnScheduleStart() - self:F( { self.SpawnTemplatePrefix } ) - - self.SpawnScheduler:Start() -end - ---- Will stop the scheduled spawning scheduler. -function SPAWN:SpawnScheduleStop() - self:F( { self.SpawnTemplatePrefix } ) - - self.SpawnScheduler:Stop() -end - - ---- Allows to place a CallFunction hook when a new group spawns. --- The provided function will be called when a new group is spawned, including its given parameters. --- The first parameter of the SpawnFunction is the @{Group#GROUP} that was spawned. --- @param #SPAWN self --- @param #function SpawnFunctionHook The function to be called when a group spawns. --- @param SpawnFunctionArguments A random amount of arguments to be provided to the function when the group spawns. --- @return #SPAWN -function SPAWN:SpawnFunction( SpawnFunctionHook, ... ) - self:F( SpawnFunction ) - - self.SpawnFunctionHook = SpawnFunctionHook - self.SpawnFunctionArguments = {} - if arg then - self.SpawnFunctionArguments = arg - end - - return self -end - - - - ---- Will spawn a group from a hosting unit. This function is mostly advisable to be used if you want to simulate spawning from air units, like helicopters, which are dropping infantry into a defined Landing Zone. --- Note that each point in the route assigned to the spawning group is reset to the point of the spawn. --- You can use the returned group to further define the route to be followed. --- @param #SPAWN self --- @param Unit#UNIT HostUnit The air or ground unit dropping or unloading the group. --- @param #number OuterRadius The outer radius in meters where the new group will be spawned. --- @param #number InnerRadius The inner radius in meters where the new group will NOT be spawned. --- @param #number SpawnIndex (Optional) The index which group to spawn within the given zone. --- @return Group#GROUP that was spawned. --- @return #nil Nothing was spawned. -function SPAWN:SpawnFromUnit( HostUnit, OuterRadius, InnerRadius, SpawnIndex ) - self:F( { self.SpawnTemplatePrefix, HostUnit, OuterRadius, InnerRadius, SpawnIndex } ) - - if HostUnit and HostUnit:IsAlive() then -- and HostUnit:getUnit(1):inAir() == false then - - if SpawnIndex then - else - SpawnIndex = self.SpawnIndex + 1 - end - - if self:_GetSpawnIndex( SpawnIndex ) then - - local SpawnTemplate = self.SpawnGroups[self.SpawnIndex].SpawnTemplate - - if SpawnTemplate then - - local UnitPoint = HostUnit:GetPointVec2() - - self:T( { "Current point of ", self.SpawnTemplatePrefix, UnitPoint } ) - - --for PointID, Point in pairs( SpawnTemplate.route.points ) do - --Point.x = UnitPoint.x - --Point.y = UnitPoint.y - --Point.alt = nil - --Point.alt_type = nil - --end - - SpawnTemplate.route.points[1].x = UnitPoint.x - SpawnTemplate.route.points[1].y = UnitPoint.y - - if not InnerRadius then - InnerRadius = 10 - end - - if not OuterRadius then - OuterRadius = 50 - end - - -- Apply SpawnFormation - for UnitID = 1, #SpawnTemplate.units do - if InnerRadius == 0 then - SpawnTemplate.units[UnitID].x = UnitPoint.x - SpawnTemplate.units[UnitID].y = UnitPoint.y - else - local CirclePos = routines.getRandPointInCircle( UnitPoint, OuterRadius, InnerRadius ) - SpawnTemplate.units[UnitID].x = CirclePos.x - SpawnTemplate.units[UnitID].y = CirclePos.y - end - self:T( 'SpawnTemplate.units['..UnitID..'].x = ' .. SpawnTemplate.units[UnitID].x .. ', SpawnTemplate.units['..UnitID..'].y = ' .. SpawnTemplate.units[UnitID].y ) - end - - local SpawnPos = routines.getRandPointInCircle( UnitPoint, OuterRadius, InnerRadius ) - local Point = {} - Point.type = "Turning Point" - Point.x = SpawnPos.x - Point.y = SpawnPos.y - Point.action = "Cone" - Point.speed = 5 - - table.insert( SpawnTemplate.route.points, 2, Point ) - - return self:SpawnWithIndex( self.SpawnIndex ) - end - end - end - - return nil -end - ---- Will spawn a Group within a given @{Zone#ZONE}. --- Once the group is spawned within the zone, it will continue on its route. --- The first waypoint (where the group is spawned) is replaced with the zone coordinates. --- @param #SPAWN self --- @param Zone#ZONE Zone The zone where the group is to be spawned. --- @param #number ZoneRandomize (Optional) Set to true if you want to randomize the starting point in the zone. --- @param #number SpawnIndex (Optional) The index which group to spawn within the given zone. --- @return Group#GROUP that was spawned. --- @return #nil when nothing was spawned. -function SPAWN:SpawnInZone( Zone, ZoneRandomize, SpawnIndex ) - self:F( { self.SpawnTemplatePrefix, Zone, ZoneRandomize, SpawnIndex } ) - - if Zone then - - if SpawnIndex then - else - SpawnIndex = self.SpawnIndex + 1 - end - - if self:_GetSpawnIndex( SpawnIndex ) then - - local SpawnTemplate = self.SpawnGroups[self.SpawnIndex].SpawnTemplate - - if SpawnTemplate then - - local ZonePoint - - if ZoneRandomize == true then - ZonePoint = Zone:GetRandomVec2() - else - ZonePoint = Zone:GetPointVec2() - end - - SpawnTemplate.route.points[1].x = ZonePoint.x - SpawnTemplate.route.points[1].y = ZonePoint.y - - -- Apply SpawnFormation - for UnitID = 1, #SpawnTemplate.units do - local ZonePointUnit = Zone:GetRandomVec2() - SpawnTemplate.units[UnitID].x = ZonePointUnit.x - SpawnTemplate.units[UnitID].y = ZonePointUnit.y - self:T( 'SpawnTemplate.units['..UnitID..'].x = ' .. SpawnTemplate.units[UnitID].x .. ', SpawnTemplate.units['..UnitID..'].y = ' .. SpawnTemplate.units[UnitID].y ) - end - - return self:SpawnWithIndex( self.SpawnIndex ) - end - end - end - - return nil -end - - - - ---- Will spawn a plane group in uncontrolled mode... --- This will be similar to the uncontrolled flag setting in the ME. --- @return #SPAWN self -function SPAWN:UnControlled() - self:F( { self.SpawnTemplatePrefix } ) - - self.SpawnUnControlled = true - - for SpawnGroupID = 1, self.SpawnMaxGroups do - self.SpawnGroups[SpawnGroupID].UnControlled = true - end - - return self -end - - - ---- Will return the SpawnGroupName either with with a specific count number or without any count. --- @param #SPAWN self --- @param #number SpawnIndex Is the number of the Group that is to be spawned. --- @return #string SpawnGroupName -function SPAWN:SpawnGroupName( SpawnIndex ) - self:F( { self.SpawnTemplatePrefix, SpawnIndex } ) - - local SpawnPrefix = self.SpawnTemplatePrefix - if self.SpawnAliasPrefix then - SpawnPrefix = self.SpawnAliasPrefix - end - - if SpawnIndex then - local SpawnName = string.format( '%s#%03d', SpawnPrefix, SpawnIndex ) - self:T( SpawnName ) - return SpawnName - else - self:T( SpawnPrefix ) - return SpawnPrefix - end - -end - ---- Find the first alive group. --- @param #SPAWN self --- @param #number SpawnCursor A number holding the index from where to find the first group from. --- @return Group#GROUP, #number The group found, the new index where the group was found. --- @return #nil, #nil When no group is found, #nil is returned. -function SPAWN:GetFirstAliveGroup( SpawnCursor ) - self:F( { self.SpawnTemplatePrefix, self.SpawnAliasPrefix, SpawnCursor } ) - - for SpawnIndex = 1, self.SpawnCount do - local SpawnGroup = self:GetGroupFromIndex( SpawnIndex ) - if SpawnGroup and SpawnGroup:IsAlive() then - SpawnCursor = SpawnIndex - return SpawnGroup, SpawnCursor - end - end - - return nil, nil -end - - ---- Find the next alive group. --- @param #SPAWN self --- @param #number SpawnCursor A number holding the last found previous index. --- @return Group#GROUP, #number The group found, the new index where the group was found. --- @return #nil, #nil When no group is found, #nil is returned. -function SPAWN:GetNextAliveGroup( SpawnCursor ) - self:F( { self.SpawnTemplatePrefix, self.SpawnAliasPrefix, SpawnCursor } ) - - SpawnCursor = SpawnCursor + 1 - for SpawnIndex = SpawnCursor, self.SpawnCount do - local SpawnGroup = self:GetGroupFromIndex( SpawnIndex ) - if SpawnGroup and SpawnGroup:IsAlive() then - SpawnCursor = SpawnIndex - return SpawnGroup, SpawnCursor - end - end - - return nil, nil -end - ---- Find the last alive group during runtime. -function SPAWN:GetLastAliveGroup() - self:F( { self.SpawnTemplatePrefixself.SpawnAliasPrefix } ) - - self.SpawnIndex = self:_GetLastIndex() - for SpawnIndex = self.SpawnIndex, 1, -1 do - local SpawnGroup = self:GetGroupFromIndex( SpawnIndex ) - if SpawnGroup and SpawnGroup:IsAlive() then - self.SpawnIndex = SpawnIndex - return SpawnGroup - end - end - - self.SpawnIndex = nil - return nil -end - - - ---- Get the group from an index. --- Returns the group from the SpawnGroups list. --- If no index is given, it will return the first group in the list. --- @param #SPAWN self --- @param #number SpawnIndex The index of the group to return. --- @return Group#GROUP self -function SPAWN:GetGroupFromIndex( SpawnIndex ) - self:F( { self.SpawnTemplatePrefix, self.SpawnAliasPrefix, SpawnIndex } ) - - if not SpawnIndex then - SpawnIndex = 1 - end - - if self.SpawnGroups and self.SpawnGroups[SpawnIndex] then - local SpawnGroup = self.SpawnGroups[SpawnIndex].Group - return SpawnGroup - else - return nil - end -end - ---- Get the group index from a DCSUnit. --- The method will search for a #-mark, and will return the index behind the #-mark of the DCSUnit. --- It will return nil of no prefix was found. --- @param #SPAWN self --- @param DCSUnit The DCS unit to be searched. --- @return #string The prefix --- @return #nil Nothing found -function SPAWN:_GetGroupIndexFromDCSUnit( DCSUnit ) - self:F( { self.SpawnTemplatePrefix, self.SpawnAliasPrefix, DCSUnit } ) - - if DCSUnit and DCSUnit:getName() then - local IndexString = string.match( DCSUnit:getName(), "#.*-" ):sub( 2, -2 ) - self:T( IndexString ) - - if IndexString then - local Index = tonumber( IndexString ) - self:T( { "Index:", IndexString, Index } ) - return Index - end - end - - return nil -end - ---- Return the prefix of a DCSUnit. --- The method will search for a #-mark, and will return the text before the #-mark. --- It will return nil of no prefix was found. --- @param #SPAWN self --- @param DCSUnit The DCS unit to be searched. --- @return #string The prefix --- @return #nil Nothing found -function SPAWN:_GetPrefixFromDCSUnit( DCSUnit ) - self:F( { self.SpawnTemplatePrefix, self.SpawnAliasPrefix, DCSUnit } ) - - if DCSUnit and DCSUnit:getName() then - local SpawnPrefix = string.match( DCSUnit:getName(), ".*#" ) - if SpawnPrefix then - SpawnPrefix = SpawnPrefix:sub( 1, -2 ) - end - self:T( SpawnPrefix ) - return SpawnPrefix - end - - return nil -end - ---- Return the group within the SpawnGroups collection with input a DCSUnit. -function SPAWN:_GetGroupFromDCSUnit( DCSUnit ) - self:F( { self.SpawnTemplatePrefix, self.SpawnAliasPrefix, DCSUnit } ) - - if DCSUnit then - local SpawnPrefix = self:_GetPrefixFromDCSUnit( DCSUnit ) - - if self.SpawnTemplatePrefix == SpawnPrefix or ( self.SpawnAliasPrefix and self.SpawnAliasPrefix == SpawnPrefix ) then - local SpawnGroupIndex = self:_GetGroupIndexFromDCSUnit( DCSUnit ) - local SpawnGroup = self.SpawnGroups[SpawnGroupIndex].Group - self:T( SpawnGroup ) - return SpawnGroup - end - end - - return nil -end - - ---- Get the index from a given group. --- The function will search the name of the group for a #, and will return the number behind the #-mark. -function SPAWN:GetSpawnIndexFromGroup( SpawnGroup ) - self:F( { self.SpawnTemplatePrefix, self.SpawnAliasPrefix, SpawnGroup } ) - - local IndexString = string.match( SpawnGroup:GetName(), "#.*$" ):sub( 2 ) - local Index = tonumber( IndexString ) - - self:T( IndexString, Index ) - return Index - -end - ---- Return the last maximum index that can be used. -function SPAWN:_GetLastIndex() - self:F( { self.SpawnTemplatePrefix, self.SpawnAliasPrefix } ) - - return self.SpawnMaxGroups -end - ---- Initalize the SpawnGroups collection. -function SPAWN:_InitializeSpawnGroups( SpawnIndex ) - self:F( { self.SpawnTemplatePrefix, self.SpawnAliasPrefix, SpawnIndex } ) - - if not self.SpawnGroups[SpawnIndex] then - self.SpawnGroups[SpawnIndex] = {} - self.SpawnGroups[SpawnIndex].Visible = false - self.SpawnGroups[SpawnIndex].Spawned = false - self.SpawnGroups[SpawnIndex].UnControlled = false - self.SpawnGroups[SpawnIndex].SpawnTime = 0 - - self.SpawnGroups[SpawnIndex].SpawnTemplatePrefix = self.SpawnTemplatePrefix - self.SpawnGroups[SpawnIndex].SpawnTemplate = self:_Prepare( self.SpawnGroups[SpawnIndex].SpawnTemplatePrefix, SpawnIndex ) - end - - self:_RandomizeTemplate( SpawnIndex ) - self:_RandomizeRoute( SpawnIndex ) - --self:_TranslateRotate( SpawnIndex ) - - return self.SpawnGroups[SpawnIndex] -end - - - ---- Gets the CategoryID of the Group with the given SpawnPrefix -function SPAWN:_GetGroupCategoryID( SpawnPrefix ) - local TemplateGroup = Group.getByName( SpawnPrefix ) - - if TemplateGroup then - return TemplateGroup:getCategory() - else - return nil - end -end - ---- Gets the CoalitionID of the Group with the given SpawnPrefix -function SPAWN:_GetGroupCoalitionID( SpawnPrefix ) - local TemplateGroup = Group.getByName( SpawnPrefix ) - - if TemplateGroup then - return TemplateGroup:getCoalition() - else - return nil - end -end - ---- Gets the CountryID of the Group with the given SpawnPrefix -function SPAWN:_GetGroupCountryID( SpawnPrefix ) - self:F( { self.SpawnTemplatePrefix, self.SpawnAliasPrefix, SpawnPrefix } ) - - local TemplateGroup = Group.getByName( SpawnPrefix ) - - if TemplateGroup then - local TemplateUnits = TemplateGroup:getUnits() - return TemplateUnits[1]:getCountry() - else - return nil - end -end - ---- Gets the Group Template from the ME environment definition. --- This method used the @{DATABASE} object, which contains ALL initial and new spawned object in MOOSE. --- @param #SPAWN self --- @param #string SpawnTemplatePrefix --- @return @SPAWN self -function SPAWN:_GetTemplate( SpawnTemplatePrefix ) - self:F( { self.SpawnTemplatePrefix, self.SpawnAliasPrefix, SpawnTemplatePrefix } ) - - local SpawnTemplate = nil - - SpawnTemplate = routines.utils.deepCopy( _DATABASE.Templates.Groups[SpawnTemplatePrefix].Template ) - - if SpawnTemplate == nil then - error( 'No Template returned for SpawnTemplatePrefix = ' .. SpawnTemplatePrefix ) - end - - SpawnTemplate.SpawnCoalitionID = self:_GetGroupCoalitionID( SpawnTemplatePrefix ) - SpawnTemplate.SpawnCategoryID = self:_GetGroupCategoryID( SpawnTemplatePrefix ) - SpawnTemplate.SpawnCountryID = self:_GetGroupCountryID( SpawnTemplatePrefix ) - - self:T( { SpawnTemplate } ) - return SpawnTemplate -end - ---- Prepares the new Group Template. --- @param #SPAWN self --- @param #string SpawnTemplatePrefix --- @param #number SpawnIndex --- @return #SPAWN self -function SPAWN:_Prepare( SpawnTemplatePrefix, SpawnIndex ) - self:F( { self.SpawnTemplatePrefix, self.SpawnAliasPrefix } ) - - local SpawnTemplate = self:_GetTemplate( SpawnTemplatePrefix ) - SpawnTemplate.name = self:SpawnGroupName( SpawnIndex ) - - SpawnTemplate.groupId = nil - --SpawnTemplate.lateActivation = false - SpawnTemplate.lateActivation = false -- TODO BUGFIX - - if SpawnTemplate.SpawnCategoryID == Group.Category.GROUND then - self:T( "For ground units, visible needs to be false..." ) - SpawnTemplate.visible = false -- TODO BUGFIX - end - - if SpawnTemplate.SpawnCategoryID == Group.Category.HELICOPTER or SpawnTemplate.SpawnCategoryID == Group.Category.AIRPLANE then - SpawnTemplate.uncontrolled = false - end - - for UnitID = 1, #SpawnTemplate.units do - SpawnTemplate.units[UnitID].name = string.format( SpawnTemplate.name .. '-%02d', UnitID ) - SpawnTemplate.units[UnitID].unitId = nil - SpawnTemplate.units[UnitID].x = SpawnTemplate.route.points[1].x - SpawnTemplate.units[UnitID].y = SpawnTemplate.route.points[1].y - end - - self:T( { "Template:", SpawnTemplate } ) - return SpawnTemplate - -end - ---- Private method randomizing the routes. --- @param #SPAWN self --- @param #number SpawnIndex The index of the group to be spawned. --- @return #SPAWN -function SPAWN:_RandomizeRoute( SpawnIndex ) - self:F( { self.SpawnTemplatePrefix, SpawnIndex, self.SpawnRandomizeRoute, self.SpawnRandomizeRouteStartPoint, self.SpawnRandomizeRouteEndPoint, self.SpawnRandomizeRouteRadius } ) - - if self.SpawnRandomizeRoute then - local SpawnTemplate = self.SpawnGroups[SpawnIndex].SpawnTemplate - local RouteCount = #SpawnTemplate.route.points - - for t = self.SpawnRandomizeRouteStartPoint + 1, ( RouteCount - self.SpawnRandomizeRouteEndPoint ) do - SpawnTemplate.route.points[t].x = SpawnTemplate.route.points[t].x + math.random( self.SpawnRandomizeRouteRadius * -1, self.SpawnRandomizeRouteRadius ) - SpawnTemplate.route.points[t].y = SpawnTemplate.route.points[t].y + math.random( self.SpawnRandomizeRouteRadius * -1, self.SpawnRandomizeRouteRadius ) - -- TODO: manage altitude for airborne units ... - SpawnTemplate.route.points[t].alt = nil - --SpawnGroup.route.points[t].alt_type = nil - self:T( 'SpawnTemplate.route.points[' .. t .. '].x = ' .. SpawnTemplate.route.points[t].x .. ', SpawnTemplate.route.points[' .. t .. '].y = ' .. SpawnTemplate.route.points[t].y ) - end - end - - return self -end - ---- Private method that randomizes the template of the group. --- @param #SPAWN self --- @param #number SpawnIndex --- @return #SPAWN self -function SPAWN:_RandomizeTemplate( SpawnIndex ) - self:F( { self.SpawnTemplatePrefix, SpawnIndex, self.SpawnRandomizeTemplate } ) - - if self.SpawnRandomizeTemplate then - self.SpawnGroups[SpawnIndex].SpawnTemplatePrefix = self.SpawnTemplatePrefixTable[ math.random( 1, #self.SpawnTemplatePrefixTable ) ] - self.SpawnGroups[SpawnIndex].SpawnTemplate = self:_Prepare( self.SpawnGroups[SpawnIndex].SpawnTemplatePrefix, SpawnIndex ) - self.SpawnGroups[SpawnIndex].SpawnTemplate.route = routines.utils.deepCopy( self.SpawnTemplate.route ) - self.SpawnGroups[SpawnIndex].SpawnTemplate.x = self.SpawnTemplate.x - self.SpawnGroups[SpawnIndex].SpawnTemplate.y = self.SpawnTemplate.y - self.SpawnGroups[SpawnIndex].SpawnTemplate.start_time = self.SpawnTemplate.start_time - for UnitID = 1, #self.SpawnGroups[SpawnIndex].SpawnTemplate.units do - self.SpawnGroups[SpawnIndex].SpawnTemplate.units[UnitID].heading = self.SpawnTemplate.units[1].heading - end - end - - self:_RandomizeRoute( SpawnIndex ) - - return self -end - -function SPAWN:_TranslateRotate( SpawnIndex, SpawnRootX, SpawnRootY, SpawnX, SpawnY, SpawnAngle ) - self:F( { self.SpawnTemplatePrefix, SpawnIndex, SpawnRootX, SpawnRootY, SpawnX, SpawnY, SpawnAngle } ) - - -- Translate - local TranslatedX = SpawnX - local TranslatedY = SpawnY - - -- Rotate - -- From Wikipedia: https://en.wikipedia.org/wiki/Rotation_matrix#Common_rotations - -- x' = x \cos \theta - y \sin \theta\ - -- y' = x \sin \theta + y \cos \theta\ - local RotatedX = - TranslatedX * math.cos( math.rad( SpawnAngle ) ) - + TranslatedY * math.sin( math.rad( SpawnAngle ) ) - local RotatedY = TranslatedX * math.sin( math.rad( SpawnAngle ) ) - + TranslatedY * math.cos( math.rad( SpawnAngle ) ) - - -- Assign - self.SpawnGroups[SpawnIndex].SpawnTemplate.x = SpawnRootX - RotatedX - self.SpawnGroups[SpawnIndex].SpawnTemplate.y = SpawnRootY + RotatedY - - - local SpawnUnitCount = table.getn( self.SpawnGroups[SpawnIndex].SpawnTemplate.units ) - for u = 1, SpawnUnitCount do - - -- Translate - local TranslatedX = SpawnX - local TranslatedY = SpawnY - 10 * ( u - 1 ) - - -- Rotate - local RotatedX = - TranslatedX * math.cos( math.rad( SpawnAngle ) ) - + TranslatedY * math.sin( math.rad( SpawnAngle ) ) - local RotatedY = TranslatedX * math.sin( math.rad( SpawnAngle ) ) - + TranslatedY * math.cos( math.rad( SpawnAngle ) ) - - -- Assign - self.SpawnGroups[SpawnIndex].SpawnTemplate.units[u].x = SpawnRootX - RotatedX - self.SpawnGroups[SpawnIndex].SpawnTemplate.units[u].y = SpawnRootY + RotatedY - self.SpawnGroups[SpawnIndex].SpawnTemplate.units[u].heading = self.SpawnGroups[SpawnIndex].SpawnTemplate.units[u].heading + math.rad( SpawnAngle ) - end - - return self -end - ---- Get the next index of the groups to be spawned. This function is complicated, as it is used at several spaces. -function SPAWN:_GetSpawnIndex( SpawnIndex ) - self:F( { self.SpawnTemplatePrefix, SpawnIndex, self.SpawnMaxGroups, self.SpawnMaxUnitsAlive, self.AliveUnits, #self.SpawnTemplate.units } ) - - - if ( self.SpawnMaxGroups == 0 ) or ( SpawnIndex <= self.SpawnMaxGroups ) then - if ( self.SpawnMaxUnitsAlive == 0 ) or ( self.AliveUnits < self.SpawnMaxUnitsAlive * #self.SpawnTemplate.units ) or self.UnControlled then - if SpawnIndex and SpawnIndex >= self.SpawnCount + 1 then - self.SpawnCount = self.SpawnCount + 1 - SpawnIndex = self.SpawnCount - end - self.SpawnIndex = SpawnIndex - if not self.SpawnGroups[self.SpawnIndex] then - self:_InitializeSpawnGroups( self.SpawnIndex ) - end - else - return nil - end - else - return nil - end - - return self.SpawnIndex -end - - --- TODO Need to delete this... _DATABASE does this now ... -function SPAWN:_OnBirth( event ) - - if timer.getTime0() < timer.getAbsTime() then -- dont need to add units spawned in at the start of the mission if mist is loaded in init line - if event.initiator and event.initiator:getName() then - local EventPrefix = self:_GetPrefixFromDCSUnit( event.initiator ) - if EventPrefix == self.SpawnTemplatePrefix or ( self.SpawnAliasPrefix and EventPrefix == self.SpawnAliasPrefix ) then - self:T( { "Birth event: " .. event.initiator:getName(), event } ) - --MessageToAll( "Mission command: unit " .. SpawnTemplatePrefix .. " spawned." , 5, EventPrefix .. '/Event') - self.AliveUnits = self.AliveUnits + 1 - self:T( "Alive Units: " .. self.AliveUnits ) - end - end - end - -end - ---- Obscolete --- @todo Need to delete this... _DATABASE does this now ... -function SPAWN:_OnDeadOrCrash( event ) - self:F( self.SpawnTemplatePrefix, event ) - - if event.initiator and event.initiator:getName() then - local EventPrefix = self:_GetPrefixFromDCSUnit( event.initiator ) - if EventPrefix == self.SpawnTemplatePrefix or ( self.SpawnAliasPrefix and EventPrefix == self.SpawnAliasPrefix ) then - self:T( { "Dead event: " .. event.initiator:getName(), event } ) --- local DestroyedUnit = Unit.getByName( EventPrefix ) --- if DestroyedUnit and DestroyedUnit.getLife() <= 1.0 then - --MessageToAll( "Mission command: unit " .. SpawnTemplatePrefix .. " crashed." , 5, EventPrefix .. '/Event') - self.AliveUnits = self.AliveUnits - 1 - self:T( "Alive Units: " .. self.AliveUnits ) --- end - end - end -end - ---- Will detect AIR Units taking off... When the event takes place, the spawned Group is registered as airborne... --- This is needed to ensure that Re-SPAWNing only is done for landed AIR Groups. --- @todo Need to test for AIR Groups only... -function SPAWN:_OnTakeOff( event ) - self:F( self.SpawnTemplatePrefix, event ) - - if event.initiator and event.initiator:getName() then - local SpawnGroup = self:_GetGroupFromDCSUnit( event.initiator ) - if SpawnGroup then - self:T( { "TakeOff event: " .. event.initiator:getName(), event } ) - self:T( "self.Landed = false" ) - self.Landed = false - end - end -end - ---- Will detect AIR Units landing... When the event takes place, the spawned Group is registered as landed. --- This is needed to ensure that Re-SPAWNing is only done for landed AIR Groups. --- @todo Need to test for AIR Groups only... -function SPAWN:_OnLand( event ) - self:F( self.SpawnTemplatePrefix, event ) - - local SpawnUnit = event.initiator - if SpawnUnit and SpawnUnit:isExist() and Object.getCategory(SpawnUnit) == Object.Category.UNIT then - local SpawnGroup = self:_GetGroupFromDCSUnit( SpawnUnit ) - if SpawnGroup then - self:T( { "Landed event:" .. SpawnUnit:getName(), event } ) - self.Landed = true - self:T( "self.Landed = true" ) - if self.Landed and self.RepeatOnLanding then - local SpawnGroupIndex = self:GetSpawnIndexFromGroup( SpawnGroup ) - self:T( { "Landed:", "ReSpawn:", SpawnGroup:GetName(), SpawnGroupIndex } ) - self:ReSpawn( SpawnGroupIndex ) - end - end - end -end - ---- Will detect AIR Units shutting down their engines ... --- When the event takes place, and the method @{RepeatOnEngineShutDown} was called, the spawned Group will Re-SPAWN. --- But only when the Unit was registered to have landed. --- @param #SPAWN self --- @see _OnTakeOff --- @see _OnLand --- @todo Need to test for AIR Groups only... -function SPAWN:_OnEngineShutDown( event ) - self:F( self.SpawnTemplatePrefix, event ) - - local SpawnUnit = event.initiator - if SpawnUnit and SpawnUnit:isExist() and Object.getCategory(SpawnUnit) == Object.Category.UNIT then - local SpawnGroup = self:_GetGroupFromDCSUnit( SpawnUnit ) - if SpawnGroup then - self:T( { "EngineShutDown event: " .. SpawnUnit:getName(), event } ) - if self.Landed and self.RepeatOnEngineShutDown then - local SpawnGroupIndex = self:GetSpawnIndexFromGroup( SpawnGroup ) - self:T( { "EngineShutDown: ", "ReSpawn:", SpawnGroup:GetName(), SpawnGroupIndex } ) - self:ReSpawn( SpawnGroupIndex ) - end - end - end -end - ---- This function is called automatically by the Spawning scheduler. --- It is the internal worker method SPAWNing new Groups on the defined time intervals. -function SPAWN:_Scheduler() - self:F( { "_Scheduler", self.SpawnTemplatePrefix, self.SpawnAliasPrefix, self.SpawnIndex, self.SpawnMaxGroups, self.SpawnMaxUnitsAlive } ) - - -- Validate if there are still groups left in the batch... - self:Spawn() - - return true -end - -function SPAWN:_SpawnCleanUpScheduler() - self:F( { "CleanUp Scheduler:", self.SpawnTemplatePrefix } ) - - local SpawnCursor - local SpawnGroup, SpawnCursor = self:GetFirstAliveGroup( SpawnCursor ) - - self:T( { "CleanUp Scheduler:", SpawnGroup } ) - - while SpawnGroup do - - if SpawnGroup:AllOnGround() and SpawnGroup:GetMaxVelocity() < 1 then - if not self.SpawnCleanUpTimeStamps[SpawnGroup:GetName()] then - self.SpawnCleanUpTimeStamps[SpawnGroup:GetName()] = timer.getTime() - else - if self.SpawnCleanUpTimeStamps[SpawnGroup:GetName()] + self.SpawnCleanUpInterval < timer.getTime() then - self:T( { "CleanUp Scheduler:", "Cleaning:", SpawnGroup } ) - SpawnGroup:Destroy() - end - end - else - self.SpawnCleanUpTimeStamps[SpawnGroup:GetName()] = nil - end - - SpawnGroup, SpawnCursor = self:GetNextAliveGroup( SpawnCursor ) - - self:T( { "CleanUp Scheduler:", SpawnGroup } ) - - end - - return true -- Repeat - -end ---- Limit the simultaneous movement of Groups within a running Mission. --- This module is defined to improve the performance in missions, and to bring additional realism for GROUND vehicles. --- Performance: If in a DCSRTE there are a lot of moving GROUND units, then in a multi player mission, this WILL create lag if --- the main DCS execution core of your CPU is fully utilized. So, this class will limit the amount of simultaneous moving GROUND units --- on defined intervals (currently every minute). --- @module MOVEMENT - ---- the MOVEMENT class --- @type -MOVEMENT = { - ClassName = "MOVEMENT", -} - ---- Creates the main object which is handling the GROUND forces movement. --- @param table{string,...}|string MovePrefixes is a table of the Prefixes (names) of the GROUND Groups that need to be controlled by the MOVEMENT Object. --- @param number MoveMaximum is a number that defines the maximum amount of GROUND Units to be moving during one minute. --- @return MOVEMENT --- @usage --- -- Limit the amount of simultaneous moving units on the ground to prevent lag. --- Movement_US_Platoons = MOVEMENT:New( { 'US Tank Platoon Left', 'US Tank Platoon Middle', 'US Tank Platoon Right', 'US CH-47D Troops' }, 15 ) - -function MOVEMENT:New( MovePrefixes, MoveMaximum ) - local self = BASE:Inherit( self, BASE:New() ) - self:F( { MovePrefixes, MoveMaximum } ) - - if type( MovePrefixes ) == 'table' then - self.MovePrefixes = MovePrefixes - else - self.MovePrefixes = { MovePrefixes } - end - self.MoveCount = 0 -- The internal counter of the amount of Moveing the has happened since MoveStart. - self.MoveMaximum = MoveMaximum -- Contains the Maximum amount of units that are allowed to move... - self.AliveUnits = 0 -- Contains the counter how many units are currently alive - self.MoveUnits = {} -- Reflects if the Moving for this MovePrefixes is going to be scheduled or not. - - _EVENTDISPATCHER:OnBirth( self.OnBirth, self ) - --- self:AddEvent( world.event.S_EVENT_BIRTH, self.OnBirth ) --- --- self:EnableEvents() - - self:ScheduleStart() - - return self -end - ---- Call this function to start the MOVEMENT scheduling. -function MOVEMENT:ScheduleStart() - self:F() - --self.MoveFunction = routines.scheduleFunction( self._Scheduler, { self }, timer.getTime() + 1, 120 ) - self.MoveFunction = SCHEDULER:New( self, self._Scheduler, {}, 1, 120 ) -end - ---- Call this function to stop the MOVEMENT scheduling. --- @todo need to implement it ... Forgot. -function MOVEMENT:ScheduleStop() - self:F() - -end - ---- Captures the birth events when new Units were spawned. --- @todo This method should become obsolete. The new @{DATABASE} class will handle the collection administration. -function MOVEMENT:OnBirth( Event ) - self:F( { Event } ) - - if timer.getTime0() < timer.getAbsTime() then -- dont need to add units spawned in at the start of the mission if mist is loaded in init line - if Event.IniDCSUnit then - self:T( "Birth object : " .. Event.IniDCSUnitName ) - if Event.IniDCSGroup and Event.IniDCSGroup:isExist() then - for MovePrefixID, MovePrefix in pairs( self.MovePrefixes ) do - if string.find( Event.IniDCSUnitName, MovePrefix, 1, true ) then - self.AliveUnits = self.AliveUnits + 1 - self.MoveUnits[Event.IniDCSUnitName] = Event.IniDCSGroupName - self:T( self.AliveUnits ) - end - end - end - end - _EVENTDISPATCHER:OnCrashForUnit( Event.IniDCSUnitName, self.OnDeadOrCrash, self ) - _EVENTDISPATCHER:OnDeadForUnit( Event.IniDCSUnitName, self.OnDeadOrCrash, self ) - end - -end - ---- Captures the Dead or Crash events when Units crash or are destroyed. --- @todo This method should become obsolete. The new @{DATABASE} class will handle the collection administration. -function MOVEMENT:OnDeadOrCrash( Event ) - self:F( { Event } ) - - if Event.IniDCSUnit then - self:T( "Dead object : " .. Event.IniDCSUnitName ) - for MovePrefixID, MovePrefix in pairs( self.MovePrefixes ) do - if string.find( Event.IniDCSUnitName, MovePrefix, 1, true ) then - self.AliveUnits = self.AliveUnits - 1 - self.MoveUnits[Event.IniDCSUnitName] = nil - self:T( self.AliveUnits ) - end - end - end -end - ---- This function is called automatically by the MOVEMENT scheduler. A new function is scheduled when MoveScheduled is true. -function MOVEMENT:_Scheduler() - self:F( { self.MovePrefixes, self.MoveMaximum, self.AliveUnits, self.MovementGroups } ) - - if self.AliveUnits > 0 then - local MoveProbability = ( self.MoveMaximum * 100 ) / self.AliveUnits - self:T( 'Move Probability = ' .. MoveProbability ) - - for MovementUnitName, MovementGroupName in pairs( self.MoveUnits ) do - local MovementGroup = Group.getByName( MovementGroupName ) - if MovementGroup and MovementGroup:isExist() then - local MoveOrStop = math.random( 1, 100 ) - self:T( 'MoveOrStop = ' .. MoveOrStop ) - if MoveOrStop <= MoveProbability then - self:T( 'Group continues moving = ' .. MovementGroupName ) - trigger.action.groupContinueMoving( MovementGroup ) - else - self:T( 'Group stops moving = ' .. MovementGroupName ) - trigger.action.groupStopMoving( MovementGroup ) - end - else - self.MoveUnits[MovementUnitName] = nil - end - end - end - return true -end ---- Provides defensive behaviour to a set of SAM sites within a running Mission. --- @module Sead --- @author to be searched on the forum --- @author (co) Flightcontrol (Modified and enriched with functionality) - ---- The SEAD class --- @type SEAD --- @extends Base#BASE -SEAD = { - ClassName = "SEAD", - TargetSkill = { - Average = { Evade = 50, DelayOff = { 10, 25 }, DelayOn = { 10, 30 } } , - Good = { Evade = 30, DelayOff = { 8, 20 }, DelayOn = { 20, 40 } } , - High = { Evade = 15, DelayOff = { 5, 17 }, DelayOn = { 30, 50 } } , - Excellent = { Evade = 10, DelayOff = { 3, 10 }, DelayOn = { 30, 60 } } - }, - SEADGroupPrefixes = {} -} - ---- Creates the main object which is handling defensive actions for SA sites or moving SA vehicles. --- When an anti radiation missile is fired (KH-58, KH-31P, KH-31A, KH-25MPU, HARM missiles), the SA will shut down their radars and will take evasive actions... --- Chances are big that the missile will miss. --- @param table{string,...}|string SEADGroupPrefixes which is a table of Prefixes of the SA Groups in the DCSRTE on which evasive actions need to be taken. --- @return SEAD --- @usage --- -- CCCP SEAD Defenses --- -- Defends the Russian SA installations from SEAD attacks. --- SEAD_RU_SAM_Defenses = SEAD:New( { 'RU SA-6 Kub', 'RU SA-6 Defenses', 'RU MI-26 Troops', 'RU Attack Gori' } ) -function SEAD:New( SEADGroupPrefixes ) - local self = BASE:Inherit( self, BASE:New() ) - self:F( SEADGroupPrefixes ) - if type( SEADGroupPrefixes ) == 'table' then - for SEADGroupPrefixID, SEADGroupPrefix in pairs( SEADGroupPrefixes ) do - self.SEADGroupPrefixes[SEADGroupPrefix] = SEADGroupPrefix - end - else - self.SEADGroupNames[SEADGroupPrefixes] = SEADGroupPrefixes - end - _EVENTDISPATCHER:OnShot( self.EventShot, self ) - - return self -end - ---- Detects if an SA site was shot with an anti radiation missile. In this case, take evasive actions based on the skill level set within the ME. --- @see SEAD -function SEAD:EventShot( Event ) - self:F( { Event } ) - - local SEADUnit = Event.IniDCSUnit - local SEADUnitName = Event.IniDCSUnitName - local SEADWeapon = Event.Weapon -- Identify the weapon fired - local SEADWeaponName = Event.WeaponName -- return weapon type - -- Start of the 2nd loop - self:T( "Missile Launched = " .. SEADWeaponName ) - if SEADWeaponName == "KH-58" or SEADWeaponName == "KH-25MPU" or SEADWeaponName == "AGM-88" or SEADWeaponName == "KH-31A" or SEADWeaponName == "KH-31P" then -- Check if the missile is a SEAD - local _evade = math.random (1,100) -- random number for chance of evading action - local _targetMim = Event.Weapon:getTarget() -- Identify target - local _targetMimname = Unit.getName(_targetMim) - local _targetMimgroup = Unit.getGroup(Weapon.getTarget(SEADWeapon)) - local _targetMimgroupName = _targetMimgroup:getName() - local _targetMimcont= _targetMimgroup:getController() - local _targetskill = _DATABASE.Templates.Units[_targetMimname].Template.skill - self:T( self.SEADGroupPrefixes ) - self:T( _targetMimgroupName ) - local SEADGroupFound = false - for SEADGroupPrefixID, SEADGroupPrefix in pairs( self.SEADGroupPrefixes ) do - if string.find( _targetMimgroupName, SEADGroupPrefix, 1, true ) then - SEADGroupFound = true - self:T( 'Group Found' ) - break - end - end - if SEADGroupFound == true then - if _targetskill == "Random" then -- when skill is random, choose a skill - local Skills = { "Average", "Good", "High", "Excellent" } - _targetskill = Skills[ math.random(1,4) ] - end - self:T( _targetskill ) - if self.TargetSkill[_targetskill] then - if (_evade > self.TargetSkill[_targetskill].Evade) then - self:T( string.format("Evading, target skill " ..string.format(_targetskill)) ) - local _targetMim = Weapon.getTarget(SEADWeapon) - local _targetMimname = Unit.getName(_targetMim) - local _targetMimgroup = Unit.getGroup(Weapon.getTarget(SEADWeapon)) - local _targetMimcont= _targetMimgroup:getController() - routines.groupRandomDistSelf(_targetMimgroup,300,'Diamond',250,20) -- move randomly - local SuppressedGroups1 = {} -- unit suppressed radar off for a random time - local function SuppressionEnd1(id) - id.ctrl:setOption(AI.Option.Ground.id.ALARM_STATE,AI.Option.Ground.val.ALARM_STATE.GREEN) - SuppressedGroups1[id.groupName] = nil - end - local id = { - groupName = _targetMimgroup, - ctrl = _targetMimcont - } - local delay1 = math.random(self.TargetSkill[_targetskill].DelayOff[1], self.TargetSkill[_targetskill].DelayOff[2]) - if SuppressedGroups1[id.groupName] == nil then - SuppressedGroups1[id.groupName] = { - SuppressionEndTime1 = timer.getTime() + delay1, - SuppressionEndN1 = SuppressionEndCounter1 --Store instance of SuppressionEnd() scheduled function - } - Controller.setOption(_targetMimcont, AI.Option.Ground.id.ALARM_STATE,AI.Option.Ground.val.ALARM_STATE.GREEN) - timer.scheduleFunction(SuppressionEnd1, id, SuppressedGroups1[id.groupName].SuppressionEndTime1) --Schedule the SuppressionEnd() function - --trigger.action.outText( string.format("Radar Off " ..string.format(delay1)), 20) - end - - local SuppressedGroups = {} - local function SuppressionEnd(id) - id.ctrl:setOption(AI.Option.Ground.id.ALARM_STATE,AI.Option.Ground.val.ALARM_STATE.RED) - SuppressedGroups[id.groupName] = nil - end - local id = { - groupName = _targetMimgroup, - ctrl = _targetMimcont - } - local delay = math.random(self.TargetSkill[_targetskill].DelayOn[1], self.TargetSkill[_targetskill].DelayOn[2]) - if SuppressedGroups[id.groupName] == nil then - SuppressedGroups[id.groupName] = { - SuppressionEndTime = timer.getTime() + delay, - SuppressionEndN = SuppressionEndCounter --Store instance of SuppressionEnd() scheduled function - } - timer.scheduleFunction(SuppressionEnd, id, SuppressedGroups[id.groupName].SuppressionEndTime) --Schedule the SuppressionEnd() function - --trigger.action.outText( string.format("Radar On " ..string.format(delay)), 20) - end - end - end - end - end -end ---- Taking the lead of AI escorting your flight. --- --- @{#ESCORT} class --- ================ --- The @{#ESCORT} class allows you to interact with escorting AI on your flight and take the lead. --- Each escorting group can be commanded with a whole set of radio commands (radio menu in your flight, and then F10). --- --- The radio commands will vary according the category of the group. The richest set of commands are with Helicopters and AirPlanes. --- Ships and Ground troops will have a more limited set, but they can provide support through the bombing of targets designated by the other escorts. --- --- RADIO MENUs that can be created: --- ================================ --- Find a summary below of the current available commands: --- --- Navigation ...: --- --------------- --- Escort group navigation functions: --- --- * **"Join-Up and Follow at x meters":** The escort group fill follow you at about x meters, and they will follow you. --- * **"Flare":** Provides menu commands to let the escort group shoot a flare in the air in a color. --- * **"Smoke":** Provides menu commands to let the escort group smoke the air in a color. Note that smoking is only available for ground and naval troops. --- --- Hold position ...: --- ------------------ --- Escort group navigation functions: --- --- * **"At current location":** Stops the escort group and they will hover 30 meters above the ground at the position they stopped. --- * **"At client location":** Stops the escort group and they will hover 30 meters above the ground at the position they stopped. --- --- Report targets ...: --- ------------------- --- Report targets will make the escort group to report any target that it identifies within a 8km range. Any detected target can be attacked using the 4. Attack nearby targets function. (see below). --- --- * **"Report now":** Will report the current detected targets. --- * **"Report targets on":** Will make the escort group to report detected targets and will fill the "Attack nearby targets" menu list. --- * **"Report targets off":** Will stop detecting targets. --- --- Scan targets ...: --- ----------------- --- Menu items to pop-up the escort group for target scanning. After scanning, the escort group will resume with the mission or defined task. --- --- * **"Scan targets 30 seconds":** Scan 30 seconds for targets. --- * **"Scan targets 60 seconds":** Scan 60 seconds for targets. --- --- Attack targets ...: --- ------------------- --- This menu item will list all detected targets within a 15km range. Depending on the level of detection (known/unknown) and visuality, the targets type will also be listed. --- --- Request assistance from ...: --- ---------------------------- --- This menu item will list all detected targets within a 15km range, as with the menu item **Attack Targets**. --- This menu item allows to request attack support from other escorts supporting the current client group. --- eg. the function allows a player to request support from the Ship escort to attack a target identified by the Plane escort with its Tomahawk missiles. --- eg. the function allows a player to request support from other Planes escorting to bomb the unit with illumination missiles or bombs, so that the main plane escort can attack the area. --- --- ROE ...: --- -------- --- Sets the Rules of Engagement (ROE) of the escort group when in flight. --- --- * **"Hold Fire":** The escort group will hold fire. --- * **"Return Fire":** The escort group will return fire. --- * **"Open Fire":** The escort group will open fire on designated targets. --- * **"Weapon Free":** The escort group will engage with any target. --- --- Evasion ...: --- ------------ --- Will define the evasion techniques that the escort group will perform during flight or combat. --- --- * **"Fight until death":** The escort group will have no reaction to threats. --- * **"Use flares, chaff and jammers":** The escort group will use passive defense using flares and jammers. No evasive manoeuvres are executed. --- * **"Evade enemy fire":** The rescort group will evade enemy fire before firing. --- * **"Go below radar and evade fire":** The escort group will perform evasive vertical manoeuvres. --- --- Resume Mission ...: --- ------------------- --- Escort groups can have their own mission. This menu item will allow the escort group to resume their Mission from a given waypoint. --- Note that this is really fantastic, as you now have the dynamic of taking control of the escort groups, and allowing them to resume their path or mission. --- --- ESCORT construction methods. --- ============================ --- Create a new SPAWN object with the @{#ESCORT.New} method: --- --- * @{#ESCORT.New}: Creates a new ESCORT object from a @{Group#GROUP} for a @{Client#CLIENT}, with an optional briefing text. --- --- ESCORT initialization methods. --- ============================== --- The following menus are created within the RADIO MENU of an active unit hosted by a player: --- --- * @{#ESCORT.MenuFollowAt}: Creates a menu to make the escort follow the client. --- * @{#ESCORT.MenuHoldAtEscortPosition}: Creates a menu to hold the escort at its current position. --- * @{#ESCORT.MenuHoldAtLeaderPosition}: Creates a menu to hold the escort at the client position. --- * @{#ESCORT.MenuScanForTargets}: Creates a menu so that the escort scans targets. --- * @{#ESCORT.MenuFlare}: Creates a menu to disperse flares. --- * @{#ESCORT.MenuSmoke}: Creates a menu to disparse smoke. --- * @{#ESCORT.MenuReportTargets}: Creates a menu so that the escort reports targets. --- * @{#ESCORT.MenuReportPosition}: Creates a menu so that the escort reports its current position from bullseye. --- * @{#ESCORT.MenuAssistedAttack: Creates a menu so that the escort supportes assisted attack from other escorts with the client. --- * @{#ESCORT.MenuROE: Creates a menu structure to set the rules of engagement of the escort. --- * @{#ESCORT.MenuEvasion: Creates a menu structure to set the evasion techniques when the escort is under threat. --- * @{#ESCORT.MenuResumeMission}: Creates a menu structure so that the escort can resume from a waypoint. --- --- --- @usage --- -- Declare a new EscortPlanes object as follows: --- --- -- First find the GROUP object and the CLIENT object. --- local EscortClient = CLIENT:FindByName( "Unit Name" ) -- The Unit Name is the name of the unit flagged with the skill Client in the mission editor. --- local EscortGroup = GROUP:FindByName( "Group Name" ) -- The Group Name is the name of the group that will escort the Escort Client. --- --- -- Now use these 2 objects to construct the new EscortPlanes object. --- EscortPlanes = ESCORT:New( EscortClient, EscortGroup, "Desert", "Welcome to the mission. You are escorted by a plane with code name 'Desert', which can be instructed through the F10 radio menu." ) --- --- --- --- @module Escort --- @author FlightControl - ---- ESCORT class --- @type ESCORT --- @extends Base#BASE --- @field Client#CLIENT EscortClient --- @field Group#GROUP EscortGroup --- @field #string EscortName --- @field #ESCORT.MODE EscortMode The mode the escort is in. --- @field Scheduler#SCHEDULER FollowScheduler The instance of the SCHEDULER class. --- @field #number FollowDistance The current follow distance. --- @field #boolean ReportTargets If true, nearby targets are reported. --- @Field DCSTypes#AI.Option.Air.val.ROE OptionROE Which ROE is set to the EscortGroup. --- @field DCSTypes#AI.Option.Air.val.REACTION_ON_THREAT OptionReactionOnThreat Which REACTION_ON_THREAT is set to the EscortGroup. --- @field Menu#MENU_CLIENT EscortMenuResumeMission -ESCORT = { - ClassName = "ESCORT", - EscortName = nil, -- The Escort Name - EscortClient = nil, - EscortGroup = nil, - EscortMode = 1, - MODE = { - FOLLOW = 1, - MISSION = 2, - }, - Targets = {}, -- The identified targets - FollowScheduler = nil, - ReportTargets = true, - OptionROE = AI.Option.Air.val.ROE.OPEN_FIRE, - OptionReactionOnThreat = AI.Option.Air.val.REACTION_ON_THREAT.ALLOW_ABORT_MISSION, - SmokeDirectionVector = false, - TaskPoints = {} -} - ---- ESCORT.Mode class --- @type ESCORT.MODE --- @field #number FOLLOW --- @field #number MISSION - ---- MENUPARAM type --- @type MENUPARAM --- @field #ESCORT ParamSelf --- @field #Distance ParamDistance --- @field #function ParamFunction --- @field #string ParamMessage - ---- ESCORT class constructor for an AI group --- @param #ESCORT self --- @param Client#CLIENT EscortClient The client escorted by the EscortGroup. --- @param Group#GROUP EscortGroup The group AI escorting the EscortClient. --- @param #string EscortName Name of the escort. --- @return #ESCORT self --- @usage --- -- Declare a new EscortPlanes object as follows: --- --- -- First find the GROUP object and the CLIENT object. --- local EscortClient = CLIENT:FindByName( "Unit Name" ) -- The Unit Name is the name of the unit flagged with the skill Client in the mission editor. --- local EscortGroup = GROUP:FindByName( "Group Name" ) -- The Group Name is the name of the group that will escort the Escort Client. --- --- -- Now use these 2 objects to construct the new EscortPlanes object. --- EscortPlanes = ESCORT:New( EscortClient, EscortGroup, "Desert", "Welcome to the mission. You are escorted by a plane with code name 'Desert', which can be instructed through the F10 radio menu." ) -function ESCORT:New( EscortClient, EscortGroup, EscortName, EscortBriefing ) - local self = BASE:Inherit( self, BASE:New() ) - self:F( { EscortClient, EscortGroup, EscortName } ) - - self.EscortClient = EscortClient -- Client#CLIENT - self.EscortGroup = EscortGroup -- Group#GROUP - self.EscortName = EscortName - self.EscortBriefing = EscortBriefing - - -- Set EscortGroup known at EscortClient. - if not self.EscortClient._EscortGroups then - self.EscortClient._EscortGroups = {} - end - - if not self.EscortClient._EscortGroups[EscortGroup:GetName()] then - self.EscortClient._EscortGroups[EscortGroup:GetName()] = {} - self.EscortClient._EscortGroups[EscortGroup:GetName()].EscortGroup = self.EscortGroup - self.EscortClient._EscortGroups[EscortGroup:GetName()].EscortName = self.EscortName - self.EscortClient._EscortGroups[EscortGroup:GetName()].Targets = {} - end - - self.EscortMenu = MENU_CLIENT:New( self.EscortClient, self.EscortName ) - - self.EscortGroup:WayPointInitialize(1) - - self.EscortGroup:OptionROTVertical() - self.EscortGroup:OptionROEOpenFire() - - EscortGroup:MessageToClient( EscortGroup:GetCategoryName() .. " '" .. EscortName .. "' (" .. EscortGroup:GetCallsign() .. ") reporting! " .. - "We're escorting your flight. " .. - "Use the Radio Menu and F10 and use the options under + " .. EscortName .. "\n", - 60, EscortClient - ) - - self.FollowDistance = 100 - self.CT1 = 0 - self.GT1 = 0 - self.FollowScheduler = SCHEDULER:New( self, self._FollowScheduler, {}, 1, .5, .01 ) - self.EscortMode = ESCORT.MODE.MISSION - self.FollowScheduler:Stop() - - return self -end - ---- This function is for test, it will put on the frequency of the FollowScheduler a red smoke at the direction vector calculated for the escort to fly to. --- This allows to visualize where the escort is flying to. --- @param #ESCORT self --- @param #boolean SmokeDirection If true, then the direction vector will be smoked. -function ESCORT:TestSmokeDirectionVector( SmokeDirection ) - self.SmokeDirectionVector = ( SmokeDirection == true ) and true or false -end - - ---- Defines the default menus --- @param #ESCORT self --- @return #ESCORT -function ESCORT:Menus() - self:F() - - self:MenuFollowAt( 100 ) - self:MenuFollowAt( 200 ) - self:MenuFollowAt( 300 ) - self:MenuFollowAt( 400 ) - - self:MenuScanForTargets( 100, 60 ) - - self:MenuHoldAtEscortPosition( 30 ) - self:MenuHoldAtLeaderPosition( 30 ) - - self:MenuFlare() - self:MenuSmoke() - - self:MenuReportTargets( 60 ) - self:MenuAssistedAttack() - self:MenuROE() - self:MenuEvasion() - self:MenuResumeMission() - - - return self -end - - - ---- Defines a menu slot to let the escort Join and Follow you at a certain distance. --- This menu will appear under **Navigation**. --- @param #ESCORT self --- @param DCSTypes#Distance Distance The distance in meters that the escort needs to follow the client. --- @return #ESCORT -function ESCORT:MenuFollowAt( Distance ) - self:F(Distance) - - if self.EscortGroup:IsAir() then - if not self.EscortMenuReportNavigation then - self.EscortMenuReportNavigation = MENU_CLIENT:New( self.EscortClient, "Navigation", self.EscortMenu ) - end - - if not self.EscortMenuJoinUpAndFollow then - self.EscortMenuJoinUpAndFollow = {} - end - - self.EscortMenuJoinUpAndFollow[#self.EscortMenuJoinUpAndFollow+1] = MENU_CLIENT_COMMAND:New( self.EscortClient, "Join-Up and Follow at " .. Distance, self.EscortMenuReportNavigation, ESCORT._JoinUpAndFollow, { ParamSelf = self, ParamDistance = Distance } ) - - self.EscortMode = ESCORT.MODE.FOLLOW - end - - return self -end - ---- Defines a menu slot to let the escort hold at their current position and stay low with a specified height during a specified time in seconds. --- This menu will appear under **Hold position**. --- @param #ESCORT self --- @param DCSTypes#Distance Height Optional parameter that sets the height in meters to let the escort orbit at the current location. The default value is 30 meters. --- @param DCSTypes#Time Seconds Optional parameter that lets the escort orbit at the current position for a specified time. (not implemented yet). The default value is 0 seconds, meaning, that the escort will orbit forever until a sequent command is given. --- @param #string MenuTextFormat Optional parameter that shows the menu option text. The text string is formatted, and should contain two %d tokens in the string. The first for the Height, the second for the Time (if given). If no text is given, the default text will be displayed. --- @return #ESCORT --- TODO: Implement Seconds parameter. Challenge is to first develop the "continue from last activity" function. -function ESCORT:MenuHoldAtEscortPosition( Height, Seconds, MenuTextFormat ) - self:F( { Height, Seconds, MenuTextFormat } ) - - if self.EscortGroup:IsAir() then - - if not self.EscortMenuHold then - self.EscortMenuHold = MENU_CLIENT:New( self.EscortClient, "Hold position", self.EscortMenu ) - end - - if not Height then - Height = 30 - end - - if not Seconds then - Seconds = 0 - end - - local MenuText = "" - if not MenuTextFormat then - if Seconds == 0 then - MenuText = string.format( "Hold at %d meter", Height ) - else - MenuText = string.format( "Hold at %d meter for %d seconds", Height, Seconds ) - end - else - if Seconds == 0 then - MenuText = string.format( MenuTextFormat, Height ) - else - MenuText = string.format( MenuTextFormat, Height, Seconds ) - end - end - - if not self.EscortMenuHoldPosition then - self.EscortMenuHoldPosition = {} - end - - self.EscortMenuHoldPosition[#self.EscortMenuHoldPosition+1] = MENU_CLIENT_COMMAND - :New( - self.EscortClient, - MenuText, - self.EscortMenuHold, - ESCORT._HoldPosition, - { ParamSelf = self, - ParamOrbitGroup = self.EscortGroup, - ParamHeight = Height, - ParamSeconds = Seconds - } - ) - end - - return self -end - - ---- Defines a menu slot to let the escort hold at the client position and stay low with a specified height during a specified time in seconds. --- This menu will appear under **Navigation**. --- @param #ESCORT self --- @param DCSTypes#Distance Height Optional parameter that sets the height in meters to let the escort orbit at the current location. The default value is 30 meters. --- @param DCSTypes#Time Seconds Optional parameter that lets the escort orbit at the current position for a specified time. (not implemented yet). The default value is 0 seconds, meaning, that the escort will orbit forever until a sequent command is given. --- @param #string MenuTextFormat Optional parameter that shows the menu option text. The text string is formatted, and should contain one or two %d tokens in the string. The first for the Height, the second for the Time (if given). If no text is given, the default text will be displayed. --- @return #ESCORT --- TODO: Implement Seconds parameter. Challenge is to first develop the "continue from last activity" function. -function ESCORT:MenuHoldAtLeaderPosition( Height, Seconds, MenuTextFormat ) - self:F( { Height, Seconds, MenuTextFormat } ) - - if self.EscortGroup:IsAir() then - - if not self.EscortMenuHold then - self.EscortMenuHold = MENU_CLIENT:New( self.EscortClient, "Hold position", self.EscortMenu ) - end - - if not Height then - Height = 30 - end - - if not Seconds then - Seconds = 0 - end - - local MenuText = "" - if not MenuTextFormat then - if Seconds == 0 then - MenuText = string.format( "Rejoin and hold at %d meter", Height ) - else - MenuText = string.format( "Rejoin and hold at %d meter for %d seconds", Height, Seconds ) - end - else - if Seconds == 0 then - MenuText = string.format( MenuTextFormat, Height ) - else - MenuText = string.format( MenuTextFormat, Height, Seconds ) - end - end - - if not self.EscortMenuHoldAtLeaderPosition then - self.EscortMenuHoldAtLeaderPosition = {} - end - - self.EscortMenuHoldAtLeaderPosition[#self.EscortMenuHoldAtLeaderPosition+1] = MENU_CLIENT_COMMAND - :New( - self.EscortClient, - MenuText, - self.EscortMenuHold, - ESCORT._HoldPosition, - { ParamSelf = self, - ParamOrbitGroup = self.EscortClient, - ParamHeight = Height, - ParamSeconds = Seconds - } - ) - end - - return self -end - ---- Defines a menu slot to let the escort scan for targets at a certain height for a certain time in seconds. --- This menu will appear under **Scan targets**. --- @param #ESCORT self --- @param DCSTypes#Distance Height Optional parameter that sets the height in meters to let the escort orbit at the current location. The default value is 30 meters. --- @param DCSTypes#Time Seconds Optional parameter that lets the escort orbit at the current position for a specified time. (not implemented yet). The default value is 0 seconds, meaning, that the escort will orbit forever until a sequent command is given. --- @param #string MenuTextFormat Optional parameter that shows the menu option text. The text string is formatted, and should contain one or two %d tokens in the string. The first for the Height, the second for the Time (if given). If no text is given, the default text will be displayed. --- @return #ESCORT -function ESCORT:MenuScanForTargets( Height, Seconds, MenuTextFormat ) - self:F( { Height, Seconds, MenuTextFormat } ) - - if self.EscortGroup:IsAir() then - if not self.EscortMenuScan then - self.EscortMenuScan = MENU_CLIENT:New( self.EscortClient, "Scan for targets", self.EscortMenu ) - end - - if not Height then - Height = 100 - end - - if not Seconds then - Seconds = 30 - end - - local MenuText = "" - if not MenuTextFormat then - if Seconds == 0 then - MenuText = string.format( "At %d meter", Height ) - else - MenuText = string.format( "At %d meter for %d seconds", Height, Seconds ) - end - else - if Seconds == 0 then - MenuText = string.format( MenuTextFormat, Height ) - else - MenuText = string.format( MenuTextFormat, Height, Seconds ) - end - end - - if not self.EscortMenuScanForTargets then - self.EscortMenuScanForTargets = {} - end - - self.EscortMenuScanForTargets[#self.EscortMenuScanForTargets+1] = MENU_CLIENT_COMMAND - :New( - self.EscortClient, - MenuText, - self.EscortMenuScan, - ESCORT._ScanTargets, - { ParamSelf = self, - ParamScanDuration = 30 - } - ) - end - - return self -end - - - ---- Defines a menu slot to let the escort disperse a flare in a certain color. --- This menu will appear under **Navigation**. --- The flare will be fired from the first unit in the group. --- @param #ESCORT self --- @param #string MenuTextFormat Optional parameter that shows the menu option text. If no text is given, the default text will be displayed. --- @return #ESCORT -function ESCORT:MenuFlare( MenuTextFormat ) - self:F() - - if not self.EscortMenuReportNavigation then - self.EscortMenuReportNavigation = MENU_CLIENT:New( self.EscortClient, "Navigation", self.EscortMenu ) - end - - local MenuText = "" - if not MenuTextFormat then - MenuText = "Flare" - else - MenuText = MenuTextFormat - end - - if not self.EscortMenuFlare then - self.EscortMenuFlare = MENU_CLIENT:New( self.EscortClient, MenuText, self.EscortMenuReportNavigation, ESCORT._Flare, { ParamSelf = self } ) - self.EscortMenuFlareGreen = MENU_CLIENT_COMMAND:New( self.EscortClient, "Release green flare", self.EscortMenuFlare, ESCORT._Flare, { ParamSelf = self, ParamColor = UNIT.FlareColor.Green, ParamMessage = "Released a green flare!" } ) - self.EscortMenuFlareRed = MENU_CLIENT_COMMAND:New( self.EscortClient, "Release red flare", self.EscortMenuFlare, ESCORT._Flare, { ParamSelf = self, ParamColor = UNIT.FlareColor.Red, ParamMessage = "Released a red flare!" } ) - self.EscortMenuFlareWhite = MENU_CLIENT_COMMAND:New( self.EscortClient, "Release white flare", self.EscortMenuFlare, ESCORT._Flare, { ParamSelf = self, ParamColor = UNIT.FlareColor.White, ParamMessage = "Released a white flare!" } ) - self.EscortMenuFlareYellow = MENU_CLIENT_COMMAND:New( self.EscortClient, "Release yellow flare", self.EscortMenuFlare, ESCORT._Flare, { ParamSelf = self, ParamColor = UNIT.FlareColor.Yellow, ParamMessage = "Released a yellow flare!" } ) - end - - return self -end - ---- Defines a menu slot to let the escort disperse a smoke in a certain color. --- This menu will appear under **Navigation**. --- Note that smoke menu options will only be displayed for ships and ground units. Not for air units. --- The smoke will be fired from the first unit in the group. --- @param #ESCORT self --- @param #string MenuTextFormat Optional parameter that shows the menu option text. If no text is given, the default text will be displayed. --- @return #ESCORT -function ESCORT:MenuSmoke( MenuTextFormat ) - self:F() - - if not self.EscortGroup:IsAir() then - if not self.EscortMenuReportNavigation then - self.EscortMenuReportNavigation = MENU_CLIENT:New( self.EscortClient, "Navigation", self.EscortMenu ) - end - - local MenuText = "" - if not MenuTextFormat then - MenuText = "Smoke" - else - MenuText = MenuTextFormat - end - - if not self.EscortMenuSmoke then - self.EscortMenuSmoke = MENU_CLIENT:New( self.EscortClient, "Smoke", self.EscortMenuReportNavigation, ESCORT._Smoke, { ParamSelf = self } ) - self.EscortMenuSmokeGreen = MENU_CLIENT_COMMAND:New( self.EscortClient, "Release green smoke", self.EscortMenuSmoke, ESCORT._Smoke, { ParamSelf = self, ParamColor = UNIT.SmokeColor.Green, ParamMessage = "Releasing green smoke!" } ) - self.EscortMenuSmokeRed = MENU_CLIENT_COMMAND:New( self.EscortClient, "Release red smoke", self.EscortMenuSmoke, ESCORT._Smoke, { ParamSelf = self, ParamColor = UNIT.SmokeColor.Red, ParamMessage = "Releasing red smoke!" } ) - self.EscortMenuSmokeWhite = MENU_CLIENT_COMMAND:New( self.EscortClient, "Release white smoke", self.EscortMenuSmoke, ESCORT._Smoke, { ParamSelf = self, ParamColor = UNIT.SmokeColor.White, ParamMessage = "Releasing white smoke!" } ) - self.EscortMenuSmokeOrange = MENU_CLIENT_COMMAND:New( self.EscortClient, "Release orange smoke", self.EscortMenuSmoke, ESCORT._Smoke, { ParamSelf = self, ParamColor = UNIT.SmokeColor.Orange, ParamMessage = "Releasing orange smoke!" } ) - self.EscortMenuSmokeBlue = MENU_CLIENT_COMMAND:New( self.EscortClient, "Release blue smoke", self.EscortMenuSmoke, ESCORT._Smoke, { ParamSelf = self, ParamColor = UNIT.SmokeColor.Blue, ParamMessage = "Releasing blue smoke!" } ) - end - end - - return self -end - ---- Defines a menu slot to let the escort report their current detected targets with a specified time interval in seconds. --- This menu will appear under **Report targets**. --- Note that if a report targets menu is not specified, no targets will be detected by the escort, and the attack and assisted attack menus will not be displayed. --- @param #ESCORT self --- @param DCSTypes#Time Seconds Optional parameter that lets the escort report their current detected targets after specified time interval in seconds. The default time is 30 seconds. --- @return #ESCORT -function ESCORT:MenuReportTargets( Seconds ) - self:F( { Seconds } ) - - if not self.EscortMenuReportNearbyTargets then - self.EscortMenuReportNearbyTargets = MENU_CLIENT:New( self.EscortClient, "Report targets", self.EscortMenu ) - end - - if not Seconds then - Seconds = 30 - end - - -- Report Targets - self.EscortMenuReportNearbyTargetsNow = MENU_CLIENT_COMMAND:New( self.EscortClient, "Report targets now!", self.EscortMenuReportNearbyTargets, ESCORT._ReportNearbyTargetsNow, { ParamSelf = self } ) - self.EscortMenuReportNearbyTargetsOn = MENU_CLIENT_COMMAND:New( self.EscortClient, "Report targets on", self.EscortMenuReportNearbyTargets, ESCORT._SwitchReportNearbyTargets, { ParamSelf = self, ParamReportTargets = true } ) - self.EscortMenuReportNearbyTargetsOff = MENU_CLIENT_COMMAND:New( self.EscortClient, "Report targets off", self.EscortMenuReportNearbyTargets, ESCORT._SwitchReportNearbyTargets, { ParamSelf = self, ParamReportTargets = false, } ) - - -- Attack Targets - self.EscortMenuAttackNearbyTargets = MENU_CLIENT:New( self.EscortClient, "Attack targets", self.EscortMenu ) - - - self.ReportTargetsScheduler = SCHEDULER:New( self, self._ReportTargetsScheduler, {}, 1, Seconds ) - - return self -end - ---- Defines a menu slot to let the escort attack its detected targets using assisted attack from another escort joined also with the client. --- This menu will appear under **Request assistance from**. --- Note that this method needs to be preceded with the method MenuReportTargets. --- @param #ESCORT self --- @return #ESCORT -function ESCORT:MenuAssistedAttack() - self:F() - - -- Request assistance from other escorts. - -- This is very useful to let f.e. an escorting ship attack a target detected by an escorting plane... - self.EscortMenuTargetAssistance = MENU_CLIENT:New( self.EscortClient, "Request assistance from", self.EscortMenu ) - - return self -end - ---- Defines a menu to let the escort set its rules of engagement. --- All rules of engagement will appear under the menu **ROE**. --- @param #ESCORT self --- @return #ESCORT -function ESCORT:MenuROE( MenuTextFormat ) - self:F( MenuTextFormat ) - - if not self.EscortMenuROE then - -- Rules of Engagement - self.EscortMenuROE = MENU_CLIENT:New( self.EscortClient, "ROE", self.EscortMenu ) - if self.EscortGroup:OptionROEHoldFirePossible() then - self.EscortMenuROEHoldFire = MENU_CLIENT_COMMAND:New( self.EscortClient, "Hold Fire", self.EscortMenuROE, ESCORT._ROE, { ParamSelf = self, ParamFunction = self.EscortGroup:OptionROEHoldFire(), ParamMessage = "Holding weapons!" } ) - end - if self.EscortGroup:OptionROEReturnFirePossible() then - self.EscortMenuROEReturnFire = MENU_CLIENT_COMMAND:New( self.EscortClient, "Return Fire", self.EscortMenuROE, ESCORT._ROE, { ParamSelf = self, ParamFunction = self.EscortGroup:OptionROEReturnFire(), ParamMessage = "Returning fire!" } ) - end - if self.EscortGroup:OptionROEOpenFirePossible() then - self.EscortMenuROEOpenFire = MENU_CLIENT_COMMAND:New( self.EscortClient, "Open Fire", self.EscortMenuROE, ESCORT._ROE, { ParamSelf = self, ParamFunction = self.EscortGroup:OptionROEOpenFire(), ParamMessage = "Opening fire on designated targets!!" } ) - end - if self.EscortGroup:OptionROEWeaponFreePossible() then - self.EscortMenuROEWeaponFree = MENU_CLIENT_COMMAND:New( self.EscortClient, "Weapon Free", self.EscortMenuROE, ESCORT._ROE, { ParamSelf = self, ParamFunction = self.EscortGroup:OptionROEWeaponFree(), ParamMessage = "Opening fire on targets of opportunity!" } ) - end - end - - return self -end - - ---- Defines a menu to let the escort set its evasion when under threat. --- All rules of engagement will appear under the menu **Evasion**. --- @param #ESCORT self --- @return #ESCORT -function ESCORT:MenuEvasion( MenuTextFormat ) - self:F( MenuTextFormat ) - - if self.EscortGroup:IsAir() then - if not self.EscortMenuEvasion then - -- Reaction to Threats - self.EscortMenuEvasion = MENU_CLIENT:New( self.EscortClient, "Evasion", self.EscortMenu ) - if self.EscortGroup:OptionROTNoReactionPossible() then - self.EscortMenuEvasionNoReaction = MENU_CLIENT_COMMAND:New( self.EscortClient, "Fight until death", self.EscortMenuEvasion, ESCORT._ROT, { ParamSelf = self, ParamFunction = self.EscortGroup:OptionROTNoReaction(), ParamMessage = "Fighting until death!" } ) - end - if self.EscortGroup:OptionROTPassiveDefensePossible() then - self.EscortMenuEvasionPassiveDefense = MENU_CLIENT_COMMAND:New( self.EscortClient, "Use flares, chaff and jammers", self.EscortMenuEvasion, ESCORT._ROT, { ParamSelf = self, ParamFunction = self.EscortGroup:OptionROTPassiveDefense(), ParamMessage = "Defending using jammers, chaff and flares!" } ) - end - if self.EscortGroup:OptionROTEvadeFirePossible() then - self.EscortMenuEvasionEvadeFire = MENU_CLIENT_COMMAND:New( self.EscortClient, "Evade enemy fire", self.EscortMenuEvasion, ESCORT._ROT, { ParamSelf = self, ParamFunction = self.EscortGroup:OptionROTEvadeFire(), ParamMessage = "Evading on enemy fire!" } ) - end - if self.EscortGroup:OptionROTVerticalPossible() then - self.EscortMenuOptionEvasionVertical = MENU_CLIENT_COMMAND:New( self.EscortClient, "Go below radar and evade fire", self.EscortMenuEvasion, ESCORT._ROT, { ParamSelf = self, ParamFunction = self.EscortGroup:OptionROTVertical(), ParamMessage = "Evading on enemy fire with vertical manoeuvres!" } ) - end - end - end - - return self -end - ---- Defines a menu to let the escort resume its mission from a waypoint on its route. --- All rules of engagement will appear under the menu **Resume mission from**. --- @param #ESCORT self --- @return #ESCORT -function ESCORT:MenuResumeMission() - self:F() - - if not self.EscortMenuResumeMission then - -- Mission Resume Menu Root - self.EscortMenuResumeMission = MENU_CLIENT:New( self.EscortClient, "Resume mission from", self.EscortMenu ) - end - - return self -end - - ---- @param #MENUPARAM MenuParam -function ESCORT._HoldPosition( MenuParam ) - - local self = MenuParam.ParamSelf - local EscortGroup = self.EscortGroup - local EscortClient = self.EscortClient - - local OrbitGroup = MenuParam.ParamOrbitGroup -- Group#GROUP - local OrbitUnit = OrbitGroup:GetUnit(1) -- Unit#UNIT - local OrbitHeight = MenuParam.ParamHeight - local OrbitSeconds = MenuParam.ParamSeconds -- Not implemented yet - - self.FollowScheduler:Stop() - - local PointFrom = {} - local GroupPoint = EscortGroup:GetUnit(1):GetPointVec3() - PointFrom = {} - PointFrom.x = GroupPoint.x - PointFrom.y = GroupPoint.z - PointFrom.speed = 250 - PointFrom.type = AI.Task.WaypointType.TURNING_POINT - PointFrom.alt = GroupPoint.y - PointFrom.alt_type = AI.Task.AltitudeType.BARO - - local OrbitPoint = OrbitUnit:GetPointVec2() - local PointTo = {} - PointTo.x = OrbitPoint.x - PointTo.y = OrbitPoint.y - PointTo.speed = 250 - PointTo.type = AI.Task.WaypointType.TURNING_POINT - PointTo.alt = OrbitHeight - PointTo.alt_type = AI.Task.AltitudeType.BARO - PointTo.task = EscortGroup:TaskOrbitCircleAtVec2( OrbitPoint, OrbitHeight, 0 ) - - local Points = { PointFrom, PointTo } - - EscortGroup:OptionROEHoldFire() - EscortGroup:OptionROTPassiveDefense() - - EscortGroup:SetTask( EscortGroup:TaskRoute( Points ) ) - EscortGroup:MessageToClient( "Orbiting at location.", 10, EscortClient ) - -end - ---- @param #MENUPARAM MenuParam -function ESCORT._JoinUpAndFollow( MenuParam ) - - local self = MenuParam.ParamSelf - local EscortGroup = self.EscortGroup - local EscortClient = self.EscortClient - - self.Distance = MenuParam.ParamDistance - - self:JoinUpAndFollow( EscortGroup, EscortClient, self.Distance ) -end - ---- JoinsUp and Follows a CLIENT. --- @param Escort#ESCORT self --- @param Group#GROUP EscortGroup --- @param Client#CLIENT EscortClient --- @param DCSTypes#Distance Distance -function ESCORT:JoinUpAndFollow( EscortGroup, EscortClient, Distance ) - self:F( { EscortGroup, EscortClient, Distance } ) - - self.FollowScheduler:Stop() - - EscortGroup:OptionROEHoldFire() - EscortGroup:OptionROTPassiveDefense() - - self.EscortMode = ESCORT.MODE.FOLLOW - - self.CT1 = 0 - self.GT1 = 0 - self.FollowScheduler:Start() - - EscortGroup:MessageToClient( "Rejoining and Following at " .. Distance .. "!", 30, EscortClient ) -end - ---- @param #MENUPARAM MenuParam -function ESCORT._Flare( MenuParam ) - - local self = MenuParam.ParamSelf - local EscortGroup = self.EscortGroup - local EscortClient = self.EscortClient - - local Color = MenuParam.ParamColor - local Message = MenuParam.ParamMessage - - EscortGroup:GetUnit(1):Flare( Color ) - EscortGroup:MessageToClient( Message, 10, EscortClient ) -end - ---- @param #MENUPARAM MenuParam -function ESCORT._Smoke( MenuParam ) - - local self = MenuParam.ParamSelf - local EscortGroup = self.EscortGroup - local EscortClient = self.EscortClient - - local Color = MenuParam.ParamColor - local Message = MenuParam.ParamMessage - - EscortGroup:GetUnit(1):Smoke( Color ) - EscortGroup:MessageToClient( Message, 10, EscortClient ) -end - - ---- @param #MENUPARAM MenuParam -function ESCORT._ReportNearbyTargetsNow( MenuParam ) - - local self = MenuParam.ParamSelf - local EscortGroup = self.EscortGroup - local EscortClient = self.EscortClient - - self:_ReportTargetsScheduler() - -end - -function ESCORT._SwitchReportNearbyTargets( MenuParam ) - - local self = MenuParam.ParamSelf - local EscortGroup = self.EscortGroup - local EscortClient = self.EscortClient - - self.ReportTargets = MenuParam.ParamReportTargets - - if self.ReportTargets then - if not self.ReportTargetsScheduler then - self.ReportTargetsScheduler = SCHEDULER:New( self, self._ReportTargetsScheduler, {}, 1, 30 ) - end - else - routines.removeFunction( self.ReportTargetsScheduler ) - self.ReportTargetsScheduler = nil - end -end - ---- @param #MENUPARAM MenuParam -function ESCORT._ScanTargets( MenuParam ) - - local self = MenuParam.ParamSelf - local EscortGroup = self.EscortGroup - local EscortClient = self.EscortClient - - local ScanDuration = MenuParam.ParamScanDuration - - self.FollowScheduler:Stop() - - if EscortGroup:IsHelicopter() then - SCHEDULER:New( EscortGroup, EscortGroup.PushTask, - { EscortGroup:TaskControlled( - EscortGroup:TaskOrbitCircle( 200, 20 ), - EscortGroup:TaskCondition( nil, nil, nil, nil, ScanDuration, nil ) - ) - }, - 1 - ) - elseif EscortGroup:IsAirPlane() then - SCHEDULER:New( EscortGroup, EscortGroup.PushTask, - { EscortGroup:TaskControlled( - EscortGroup:TaskOrbitCircle( 1000, 500 ), - EscortGroup:TaskCondition( nil, nil, nil, nil, ScanDuration, nil ) - ) - }, - 1 - ) - end - - EscortGroup:MessageToClient( "Scanning targets for " .. ScanDuration .. " seconds.", ScanDuration, EscortClient ) - - if self.EscortMode == ESCORT.MODE.FOLLOW then - self.FollowScheduler:Start() - end - -end - ---- @param Group#GROUP EscortGroup -function _Resume( EscortGroup ) - env.info( '_Resume' ) - - local Escort = EscortGroup:GetState( EscortGroup, "Escort" ) - env.info( "EscortMode = " .. Escort.EscortMode ) - if Escort.EscortMode == ESCORT.MODE.FOLLOW then - Escort:JoinUpAndFollow( EscortGroup, Escort.EscortClient, Escort.Distance ) - end - -end - ---- @param #MENUPARAM MenuParam -function ESCORT._AttackTarget( MenuParam ) - - local self = MenuParam.ParamSelf - local EscortGroup = self.EscortGroup - - local EscortClient = self.EscortClient - local AttackUnit = MenuParam.ParamUnit -- Unit#UNIT - - self.FollowScheduler:Stop() - - self:T( AttackUnit ) - - if EscortGroup:IsAir() then - EscortGroup:OptionROEOpenFire() - EscortGroup:OptionROTPassiveDefense() - EscortGroup:SetState( EscortGroup, "Escort", self ) - SCHEDULER:New( EscortGroup, - EscortGroup.PushTask, - { EscortGroup:TaskCombo( - { EscortGroup:TaskAttackUnit( AttackUnit ), - EscortGroup:TaskFunction( 1, 2, "_Resume", { "''" } ) - } - ) - }, 10 - ) - else - SCHEDULER:New( EscortGroup, - EscortGroup.PushTask, - { EscortGroup:TaskCombo( - { EscortGroup:TaskFireAtPoint( AttackUnit:GetPointVec2(), 50 ) - } - ) - }, 10 - ) - end - - EscortGroup:MessageToClient( "Engaging Designated Unit!", 10, EscortClient ) - -end - ---- @param #MENUPARAM MenuParam -function ESCORT._AssistTarget( MenuParam ) - - local self = MenuParam.ParamSelf - local EscortGroup = self.EscortGroup - local EscortClient = self.EscortClient - local EscortGroupAttack = MenuParam.ParamEscortGroup - local AttackUnit = MenuParam.ParamUnit -- Unit#UNIT - - self.FollowScheduler:Stop() - - self:T( AttackUnit ) - - if EscortGroupAttack:IsAir() then - EscortGroupAttack:OptionROEOpenFire() - EscortGroupAttack:OptionROTVertical() - SCHDULER:New( EscortGroupAttack, - EscortGroupAttack.PushTask, - { EscortGroupAttack:TaskCombo( - { EscortGroupAttack:TaskAttackUnit( AttackUnit ), - EscortGroupAttack:TaskOrbitCircle( 500, 350 ) - } - ) - }, 10 - ) - else - SCHEDULER:New( EscortGroupAttack, - EscortGroupAttack.PushTask, - { EscortGroupAttack:TaskCombo( - { EscortGroupAttack:TaskFireAtPoint( AttackUnit:GetPointVec2(), 50 ) - } - ) - }, 10 - ) - end - EscortGroupAttack:MessageToClient( "Assisting with the destroying the enemy unit!", 10, EscortClient ) - -end - ---- @param #MENUPARAM MenuParam -function ESCORT._ROE( MenuParam ) - - local self = MenuParam.ParamSelf - local EscortGroup = self.EscortGroup - local EscortClient = self.EscortClient - - local EscortROEFunction = MenuParam.ParamFunction - local EscortROEMessage = MenuParam.ParamMessage - - pcall( function() EscortROEFunction() end ) - EscortGroup:MessageToClient( EscortROEMessage, 10, EscortClient ) -end - ---- @param #MENUPARAM MenuParam -function ESCORT._ROT( MenuParam ) - - local self = MenuParam.ParamSelf - local EscortGroup = self.EscortGroup - local EscortClient = self.EscortClient - - local EscortROTFunction = MenuParam.ParamFunction - local EscortROTMessage = MenuParam.ParamMessage - - pcall( function() EscortROTFunction() end ) - EscortGroup:MessageToClient( EscortROTMessage, 10, EscortClient ) -end - ---- @param #MENUPARAM MenuParam -function ESCORT._ResumeMission( MenuParam ) - - local self = MenuParam.ParamSelf - local EscortGroup = self.EscortGroup - local EscortClient = self.EscortClient - - local WayPoint = MenuParam.ParamWayPoint - - self.FollowScheduler:Stop() - - local WayPoints = EscortGroup:GetTaskRoute() - self:T( WayPoint, WayPoints ) - - for WayPointIgnore = 1, WayPoint do - table.remove( WayPoints, 1 ) - end - - SCHEDULER:New( EscortGroup, EscortGroup.SetTask, { EscortGroup:TaskRoute( WayPoints ) }, 1 ) - - EscortGroup:MessageToClient( "Resuming mission from waypoint " .. WayPoint .. ".", 10, EscortClient ) -end - ---- Registers the waypoints --- @param #ESCORT self --- @return #table -function ESCORT:RegisterRoute() - self:F() - - local EscortGroup = self.EscortGroup -- Group#GROUP - - local TaskPoints = EscortGroup:GetTaskRoute() - - self:T( TaskPoints ) - - return TaskPoints -end - ---- @param Escort#ESCORT self -function ESCORT:_FollowScheduler() - self:F( { self.FollowDistance } ) - - self:T( {self.EscortClient.UnitName, self.EscortGroup.GroupName } ) - if self.EscortGroup:IsAlive() and self.EscortClient:IsAlive() then - - local ClientUnit = self.EscortClient:GetClientGroupUnit() - local GroupUnit = self.EscortGroup:GetUnit( 1 ) - local FollowDistance = self.FollowDistance - - self:T( {ClientUnit.UnitName, GroupUnit.UnitName } ) - - if self.CT1 == 0 and self.GT1 == 0 then - self.CV1 = ClientUnit:GetPointVec3() - self:T( { "self.CV1", self.CV1 } ) - self.CT1 = timer.getTime() - self.GV1 = GroupUnit:GetPointVec3() - self.GT1 = timer.getTime() - else - local CT1 = self.CT1 - local CT2 = timer.getTime() - local CV1 = self.CV1 - local CV2 = ClientUnit:GetPointVec3() - self.CT1 = CT2 - self.CV1 = CV2 - - local CD = ( ( CV2.x - CV1.x )^2 + ( CV2.y - CV1.y )^2 + ( CV2.z - CV1.z )^2 ) ^ 0.5 - local CT = CT2 - CT1 - - local CS = ( 3600 / CT ) * ( CD / 1000 ) - - self:T2( { "Client:", CS, CD, CT, CV2, CV1, CT2, CT1 } ) - - local GT1 = self.GT1 - local GT2 = timer.getTime() - local GV1 = self.GV1 - local GV2 = GroupUnit:GetPointVec3() - self.GT1 = GT2 - self.GV1 = GV2 - - local GD = ( ( GV2.x - GV1.x )^2 + ( GV2.y - GV1.y )^2 + ( GV2.z - GV1.z )^2 ) ^ 0.5 - local GT = GT2 - GT1 - - local GS = ( 3600 / GT ) * ( GD / 1000 ) - - self:T2( { "Group:", GS, GD, GT, GV2, GV1, GT2, GT1 } ) - - -- Calculate the group direction vector - local GV = { x = GV2.x - CV2.x, y = GV2.y - CV2.y, z = GV2.z - CV2.z } - - -- Calculate GH2, GH2 with the same height as CV2. - local GH2 = { x = GV2.x, y = CV2.y, z = GV2.z } - - -- Calculate the angle of GV to the orthonormal plane - local alpha = math.atan2( GV.z, GV.x ) - - -- Now we calculate the intersecting vector between the circle around CV2 with radius FollowDistance and GH2. - -- From the GeoGebra model: CVI = (x(CV2) + FollowDistance cos(alpha), y(GH2) + FollowDistance sin(alpha), z(CV2)) - local CVI = { x = CV2.x + FollowDistance * math.cos(alpha), - y = GH2.y, - z = CV2.z + FollowDistance * math.sin(alpha), - } - - -- Calculate the direction vector DV of the escort group. We use CVI as the base and CV2 as the direction. - local DV = { x = CV2.x - CVI.x, y = CV2.y - CVI.y, z = CV2.z - CVI.z } - - -- We now calculate the unary direction vector DVu, so that we can multiply DVu with the speed, which is expressed in meters / s. - -- We need to calculate this vector to predict the point the escort group needs to fly to according its speed. - -- The distance of the destination point should be far enough not to have the aircraft starting to swipe left to right... - local DVu = { x = DV.x / FollowDistance, y = DV.y / FollowDistance, z = DV.z / FollowDistance } - - -- Now we can calculate the group destination vector GDV. - local GDV = { x = DVu.x * CS * 8 + CVI.x, y = CVI.y, z = DVu.z * CS * 8 + CVI.z } - - if self.SmokeDirectionVector == true then - trigger.action.smoke( GDV, trigger.smokeColor.Red ) - end - - self:T2( { "CV2:", CV2 } ) - self:T2( { "CVI:", CVI } ) - self:T2( { "GDV:", GDV } ) - - -- Measure distance between client and group - local CatchUpDistance = ( ( GDV.x - GV2.x )^2 + ( GDV.y - GV2.y )^2 + ( GDV.z - GV2.z )^2 ) ^ 0.5 - - -- The calculation of the Speed would simulate that the group would take 30 seconds to overcome - -- the requested Distance). - local Time = 10 - local CatchUpSpeed = ( CatchUpDistance - ( CS * 8.4 ) ) / Time - - local Speed = CS + CatchUpSpeed - if Speed < 0 then - Speed = 0 - end - - self:T( { "Client Speed, Escort Speed, Speed, FollowDistance, Time:", CS, GS, Speed, FollowDistance, Time } ) - - -- Now route the escort to the desired point with the desired speed. - self.EscortGroup:TaskRouteToVec3( GDV, Speed / 3.6 ) -- DCS models speed in Mps (Miles per second) - end - - return true - end - - return false -end - - ---- Report Targets Scheduler. --- @param #ESCORT self -function ESCORT:_ReportTargetsScheduler() - self:F( self.EscortGroup:GetName() ) - - if self.EscortGroup:IsAlive() and self.EscortClient:IsAlive() then - local EscortGroupName = self.EscortGroup:GetName() - local EscortTargets = self.EscortGroup:GetDetectedTargets() - - local ClientEscortTargets = self.EscortClient._EscortGroups[EscortGroupName].Targets - - local EscortTargetMessages = "" - for EscortTargetID, EscortTarget in pairs( EscortTargets ) do - local EscortObject = EscortTarget.object - self:T( EscortObject ) - if EscortObject and EscortObject:isExist() and EscortObject.id_ < 50000000 then - - local EscortTargetUnit = UNIT:Find( EscortObject ) - local EscortTargetUnitName = EscortTargetUnit:GetName() - - - - -- local EscortTargetIsDetected, - -- EscortTargetIsVisible, - -- EscortTargetLastTime, - -- EscortTargetKnowType, - -- EscortTargetKnowDistance, - -- EscortTargetLastPos, - -- EscortTargetLastVelocity - -- = self.EscortGroup:IsTargetDetected( EscortObject ) - -- - -- self:T( { EscortTargetIsDetected, - -- EscortTargetIsVisible, - -- EscortTargetLastTime, - -- EscortTargetKnowType, - -- EscortTargetKnowDistance, - -- EscortTargetLastPos, - -- EscortTargetLastVelocity } ) - - - local EscortTargetUnitPositionVec3 = EscortTargetUnit:GetPointVec3() - local EscortPositionVec3 = self.EscortGroup:GetPointVec3() - local Distance = ( ( EscortTargetUnitPositionVec3.x - EscortPositionVec3.x )^2 + - ( EscortTargetUnitPositionVec3.y - EscortPositionVec3.y )^2 + - ( EscortTargetUnitPositionVec3.z - EscortPositionVec3.z )^2 - ) ^ 0.5 / 1000 - - self:T( { self.EscortGroup:GetName(), EscortTargetUnit:GetName(), Distance, EscortTarget } ) - - if Distance <= 15 then - - if not ClientEscortTargets[EscortTargetUnitName] then - ClientEscortTargets[EscortTargetUnitName] = {} - end - ClientEscortTargets[EscortTargetUnitName].AttackUnit = EscortTargetUnit - ClientEscortTargets[EscortTargetUnitName].visible = EscortTarget.visible - ClientEscortTargets[EscortTargetUnitName].type = EscortTarget.type - ClientEscortTargets[EscortTargetUnitName].distance = EscortTarget.distance - else - if ClientEscortTargets[EscortTargetUnitName] then - ClientEscortTargets[EscortTargetUnitName] = nil - end - end - end - end - - self:T( { "Sorting Targets Table:", ClientEscortTargets } ) - table.sort( ClientEscortTargets, function( a, b ) return a.Distance < b.Distance end ) - self:T( { "Sorted Targets Table:", ClientEscortTargets } ) - - -- Remove the sub menus of the Attack menu of the Escort for the EscortGroup. - self.EscortMenuAttackNearbyTargets:RemoveSubMenus() - - if self.EscortMenuTargetAssistance then - self.EscortMenuTargetAssistance:RemoveSubMenus() - end - - --for MenuIndex = 1, #self.EscortMenuAttackTargets do - -- self:T( { "Remove Menu:", self.EscortMenuAttackTargets[MenuIndex] } ) - -- self.EscortMenuAttackTargets[MenuIndex] = self.EscortMenuAttackTargets[MenuIndex]:Remove() - --end - - - if ClientEscortTargets then - for ClientEscortTargetUnitName, ClientEscortTargetData in pairs( ClientEscortTargets ) do - - for ClientEscortGroupName, EscortGroupData in pairs( self.EscortClient._EscortGroups ) do - - if ClientEscortTargetData and ClientEscortTargetData.AttackUnit:IsAlive() then - - local EscortTargetMessage = "" - local EscortTargetCategoryName = ClientEscortTargetData.AttackUnit:GetCategoryName() - local EscortTargetCategoryType = ClientEscortTargetData.AttackUnit:GetTypeName() - if ClientEscortTargetData.type then - EscortTargetMessage = EscortTargetMessage .. EscortTargetCategoryName .. " (" .. EscortTargetCategoryType .. ") at " - else - EscortTargetMessage = EscortTargetMessage .. "Unknown target at " - end - - local EscortTargetUnitPositionVec3 = ClientEscortTargetData.AttackUnit:GetPointVec3() - local EscortPositionVec3 = self.EscortGroup:GetPointVec3() - local Distance = ( ( EscortTargetUnitPositionVec3.x - EscortPositionVec3.x )^2 + - ( EscortTargetUnitPositionVec3.y - EscortPositionVec3.y )^2 + - ( EscortTargetUnitPositionVec3.z - EscortPositionVec3.z )^2 - ) ^ 0.5 / 1000 - - self:T( { self.EscortGroup:GetName(), ClientEscortTargetData.AttackUnit:GetName(), Distance, ClientEscortTargetData.AttackUnit } ) - if ClientEscortTargetData.visible == false then - EscortTargetMessage = EscortTargetMessage .. string.format( "%.2f", Distance ) .. " estimated km" - else - EscortTargetMessage = EscortTargetMessage .. string.format( "%.2f", Distance ) .. " km" - end - - if ClientEscortTargetData.visible then - EscortTargetMessage = EscortTargetMessage .. ", visual" - end - - if ClientEscortGroupName == EscortGroupName then - - MENU_CLIENT_COMMAND:New( self.EscortClient, - EscortTargetMessage, - self.EscortMenuAttackNearbyTargets, - ESCORT._AttackTarget, - { ParamSelf = self, - ParamUnit = ClientEscortTargetData.AttackUnit - } - ) - EscortTargetMessages = EscortTargetMessages .. "\n - " .. EscortTargetMessage - else - if self.EscortMenuTargetAssistance then - local MenuTargetAssistance = MENU_CLIENT:New( self.EscortClient, EscortGroupData.EscortName, self.EscortMenuTargetAssistance ) - MENU_CLIENT_COMMAND:New( self.EscortClient, - EscortTargetMessage, - MenuTargetAssistance, - ESCORT._AssistTarget, - { ParamSelf = self, - ParamEscortGroup = EscortGroupData.EscortGroup, - ParamUnit = ClientEscortTargetData.AttackUnit - } - ) - end - end - else - ClientEscortTargetData = nil - end - end - end - - if EscortTargetMessages ~= "" and self.ReportTargets == true then - self.EscortGroup:MessageToClient( "Detected targets within 15 km range:" .. EscortTargetMessages:gsub("\n$",""), 20, self.EscortClient ) - else - self.EscortGroup:MessageToClient( "No targets detected!", 20, self.EscortClient ) - end - end - - if self.EscortMenuResumeMission then - self.EscortMenuResumeMission:RemoveSubMenus() - - -- if self.EscortMenuResumeWayPoints then - -- for MenuIndex = 1, #self.EscortMenuResumeWayPoints do - -- self:T( { "Remove Menu:", self.EscortMenuResumeWayPoints[MenuIndex] } ) - -- self.EscortMenuResumeWayPoints[MenuIndex] = self.EscortMenuResumeWayPoints[MenuIndex]:Remove() - -- end - -- end - - local TaskPoints = self:RegisterRoute() - for WayPointID, WayPoint in pairs( TaskPoints ) do - local EscortPositionVec3 = self.EscortGroup:GetPointVec3() - local Distance = ( ( WayPoint.x - EscortPositionVec3.x )^2 + - ( WayPoint.y - EscortPositionVec3.z )^2 - ) ^ 0.5 / 1000 - MENU_CLIENT_COMMAND:New( self.EscortClient, "Waypoint " .. WayPointID .. " at " .. string.format( "%.2f", Distance ).. "km", self.EscortMenuResumeMission, ESCORT._ResumeMission, { ParamSelf = self, ParamWayPoint = WayPointID } ) - end - end - - return true - end - - return false -end ---- This module contains the MISSILETRAINER class. --- --- === --- --- 1) @{MissileTrainer#MISSILETRAINER} class, extends @{Base#BASE} --- =============================================================== --- The @{#MISSILETRAINER} class uses the DCS world messaging system to be alerted of any missiles fired, and when a missile would hit your aircraft, --- the class will destroy the missile within a certain range, to avoid damage to your aircraft. --- It suports the following functionality: --- --- * Track the missiles fired at you and other players, providing bearing and range information of the missiles towards the airplanes. --- * Provide alerts of missile launches, including detailed information of the units launching, including bearing, range … --- * Provide alerts when a missile would have killed your aircraft. --- * Provide alerts when the missile self destructs. --- * Enable / Disable and Configure the Missile Trainer using the various menu options. --- --- When running a mission where MISSILETRAINER is used, the following radio menu structure ( 'Radio Menu' -> 'Other (F10)' -> 'MissileTrainer' ) options are available for the players: --- --- * **Messages**: Menu to configure all messages. --- * **Messages On**: Show all messages. --- * **Messages Off**: Disable all messages. --- * **Tracking**: Menu to configure missile tracking messages. --- * **To All**: Shows missile tracking messages to all players. --- * **To Target**: Shows missile tracking messages only to the player where the missile is targetted at. --- * **Tracking On**: Show missile tracking messages. --- * **Tracking Off**: Disable missile tracking messages. --- * **Frequency Increase**: Increases the missile tracking message frequency with one second. --- * **Frequency Decrease**: Decreases the missile tracking message frequency with one second. --- * **Alerts**: Menu to configure alert messages. --- * **To All**: Shows alert messages to all players. --- * **To Target**: Shows alert messages only to the player where the missile is (was) targetted at. --- * **Hits On**: Show missile hit alert messages. --- * **Hits Off**: Disable missile hit alert messages. --- * **Launches On**: Show missile launch messages. --- * **Launches Off**: Disable missile launch messages. --- * **Details**: Menu to configure message details. --- * **Range On**: Shows range information when a missile is fired to a target. --- * **Range Off**: Disable range information when a missile is fired to a target. --- * **Bearing On**: Shows bearing information when a missile is fired to a target. --- * **Bearing Off**: Disable bearing information when a missile is fired to a target. --- * **Distance**: Menu to configure the distance when a missile needs to be destroyed when near to a player, during tracking. This will improve/influence hit calculation accuracy, but has the risk of damaging the aircraft when the missile reaches the aircraft before the distance is measured. --- * **50 meter**: Destroys the missile when the distance to the aircraft is below or equal to 50 meter. --- * **100 meter**: Destroys the missile when the distance to the aircraft is below or equal to 100 meter. --- * **150 meter**: Destroys the missile when the distance to the aircraft is below or equal to 150 meter. --- * **200 meter**: Destroys the missile when the distance to the aircraft is below or equal to 200 meter. --- --- --- 1.1) MISSILETRAINER construction methods: --- ----------------------------------------- --- Create a new MISSILETRAINER object with the @{#MISSILETRAINER.New} method: --- --- * @{#MISSILETRAINER.New}: Creates a new MISSILETRAINER object taking the maximum distance to your aircraft to evaluate when a missile needs to be destroyed. --- --- MISSILETRAINER will collect each unit declared in the mission with a skill level "Client" and "Player", and will monitor the missiles shot at those. --- --- 1.2) MISSILETRAINER initialization methods: --- ------------------------------------------- --- A MISSILETRAINER object will behave differently based on the usage of initialization methods: --- --- * @{#MISSILETRAINER.InitMessagesOnOff}: Sets by default the display of any message to be ON or OFF. --- * @{#MISSILETRAINER.InitTrackingToAll}: Sets by default the missile tracking report for all players or only for those missiles targetted to you. --- * @{#MISSILETRAINER.InitTrackingOnOff}: Sets by default the display of missile tracking report to be ON or OFF. --- * @{#MISSILETRAINER.InitTrackingFrequency}: Increases, decreases the missile tracking message display frequency with the provided time interval in seconds. --- * @{#MISSILETRAINER.InitAlertsToAll}: Sets by default the display of alerts to be shown to all players or only to you. --- * @{#MISSILETRAINER.InitAlertsHitsOnOff}: Sets by default the display of hit alerts ON or OFF. --- * @{#MISSILETRAINER.InitAlertsLaunchesOnOff}: Sets by default the display of launch alerts ON or OFF. --- * @{#MISSILETRAINER.InitRangeOnOff}: Sets by default the display of range information of missiles ON of OFF. --- * @{#MISSILETRAINER.InitBearingOnOff}: Sets by default the display of bearing information of missiles ON of OFF. --- * @{#MISSILETRAINER.InitMenusOnOff}: Allows to configure the options through the radio menu. --- --- === --- --- CREDITS --- ======= --- **Stuka (Danny)** Who you can search on the Eagle Dynamics Forums. --- Working together with Danny has resulted in the MISSILETRAINER class. --- Danny has shared his ideas and together we made a design. --- Together with the **476 virtual team**, we tested the MISSILETRAINER class, and got much positive feedback! --- --- @module MissileTrainer --- @author FlightControl - - ---- The MISSILETRAINER class --- @type MISSILETRAINER --- @field Set#SET_CLIENT DBClients --- @extends Base#BASE -MISSILETRAINER = { - ClassName = "MISSILETRAINER", - TrackingMissiles = {}, -} - -function MISSILETRAINER._Alive( Client, self ) - - if self.Briefing then - Client:Message( self.Briefing, 15, "Trainer" ) - end - - if self.MenusOnOff == true then - Client:Message( "Use the 'Radio Menu' -> 'Other (F10)' -> 'Missile Trainer' menu options to change the Missile Trainer settings (for all players).", 15, "Trainer" ) - - Client.MainMenu = MENU_CLIENT:New( Client, "Missile Trainer", nil ) -- Menu#MENU_CLIENT - - Client.MenuMessages = MENU_CLIENT:New( Client, "Messages", Client.MainMenu ) - Client.MenuOn = MENU_CLIENT_COMMAND:New( Client, "Messages On", Client.MenuMessages, self._MenuMessages, { MenuSelf = self, MessagesOnOff = true } ) - Client.MenuOff = MENU_CLIENT_COMMAND:New( Client, "Messages Off", Client.MenuMessages, self._MenuMessages, { MenuSelf = self, MessagesOnOff = false } ) - - Client.MenuTracking = MENU_CLIENT:New( Client, "Tracking", Client.MainMenu ) - Client.MenuTrackingToAll = MENU_CLIENT_COMMAND:New( Client, "To All", Client.MenuTracking, self._MenuMessages, { MenuSelf = self, TrackingToAll = true } ) - Client.MenuTrackingToTarget = MENU_CLIENT_COMMAND:New( Client, "To Target", Client.MenuTracking, self._MenuMessages, { MenuSelf = self, TrackingToAll = false } ) - Client.MenuTrackOn = MENU_CLIENT_COMMAND:New( Client, "Tracking On", Client.MenuTracking, self._MenuMessages, { MenuSelf = self, TrackingOnOff = true } ) - Client.MenuTrackOff = MENU_CLIENT_COMMAND:New( Client, "Tracking Off", Client.MenuTracking, self._MenuMessages, { MenuSelf = self, TrackingOnOff = false } ) - Client.MenuTrackIncrease = MENU_CLIENT_COMMAND:New( Client, "Frequency Increase", Client.MenuTracking, self._MenuMessages, { MenuSelf = self, TrackingFrequency = -1 } ) - Client.MenuTrackDecrease = MENU_CLIENT_COMMAND:New( Client, "Frequency Decrease", Client.MenuTracking, self._MenuMessages, { MenuSelf = self, TrackingFrequency = 1 } ) - - Client.MenuAlerts = MENU_CLIENT:New( Client, "Alerts", Client.MainMenu ) - Client.MenuAlertsToAll = MENU_CLIENT_COMMAND:New( Client, "To All", Client.MenuAlerts, self._MenuMessages, { MenuSelf = self, AlertsToAll = true } ) - Client.MenuAlertsToTarget = MENU_CLIENT_COMMAND:New( Client, "To Target", Client.MenuAlerts, self._MenuMessages, { MenuSelf = self, AlertsToAll = false } ) - Client.MenuHitsOn = MENU_CLIENT_COMMAND:New( Client, "Hits On", Client.MenuAlerts, self._MenuMessages, { MenuSelf = self, AlertsHitsOnOff = true } ) - Client.MenuHitsOff = MENU_CLIENT_COMMAND:New( Client, "Hits Off", Client.MenuAlerts, self._MenuMessages, { MenuSelf = self, AlertsHitsOnOff = false } ) - Client.MenuLaunchesOn = MENU_CLIENT_COMMAND:New( Client, "Launches On", Client.MenuAlerts, self._MenuMessages, { MenuSelf = self, AlertsLaunchesOnOff = true } ) - Client.MenuLaunchesOff = MENU_CLIENT_COMMAND:New( Client, "Launches Off", Client.MenuAlerts, self._MenuMessages, { MenuSelf = self, AlertsLaunchesOnOff = false } ) - - Client.MenuDetails = MENU_CLIENT:New( Client, "Details", Client.MainMenu ) - Client.MenuDetailsDistanceOn = MENU_CLIENT_COMMAND:New( Client, "Range On", Client.MenuDetails, self._MenuMessages, { MenuSelf = self, DetailsRangeOnOff = true } ) - Client.MenuDetailsDistanceOff = MENU_CLIENT_COMMAND:New( Client, "Range Off", Client.MenuDetails, self._MenuMessages, { MenuSelf = self, DetailsRangeOnOff = false } ) - Client.MenuDetailsBearingOn = MENU_CLIENT_COMMAND:New( Client, "Bearing On", Client.MenuDetails, self._MenuMessages, { MenuSelf = self, DetailsBearingOnOff = true } ) - Client.MenuDetailsBearingOff = MENU_CLIENT_COMMAND:New( Client, "Bearing Off", Client.MenuDetails, self._MenuMessages, { MenuSelf = self, DetailsBearingOnOff = false } ) - - Client.MenuDistance = MENU_CLIENT:New( Client, "Set distance to plane", Client.MainMenu ) - Client.MenuDistance50 = MENU_CLIENT_COMMAND:New( Client, "50 meter", Client.MenuDistance, self._MenuMessages, { MenuSelf = self, Distance = 50 / 1000 } ) - Client.MenuDistance100 = MENU_CLIENT_COMMAND:New( Client, "100 meter", Client.MenuDistance, self._MenuMessages, { MenuSelf = self, Distance = 100 / 1000 } ) - Client.MenuDistance150 = MENU_CLIENT_COMMAND:New( Client, "150 meter", Client.MenuDistance, self._MenuMessages, { MenuSelf = self, Distance = 150 / 1000 } ) - Client.MenuDistance200 = MENU_CLIENT_COMMAND:New( Client, "200 meter", Client.MenuDistance, self._MenuMessages, { MenuSelf = self, Distance = 200 / 1000 } ) - else - if Client.MainMenu then - Client.MainMenu:Remove() - end - end - - local ClientID = Client:GetID() - self:T( ClientID ) - if not self.TrackingMissiles[ClientID] then - self.TrackingMissiles[ClientID] = {} - end - self.TrackingMissiles[ClientID].Client = Client - if not self.TrackingMissiles[ClientID].MissileData then - self.TrackingMissiles[ClientID].MissileData = {} - end -end - ---- Creates the main object which is handling missile tracking. --- When a missile is fired a SCHEDULER is set off that follows the missile. When near a certain a client player, the missile will be destroyed. --- @param #MISSILETRAINER self --- @param #number Distance The distance in meters when a tracked missile needs to be destroyed when close to a player. --- @param #string Briefing (Optional) Will show a text to the players when starting their mission. Can be used for briefing purposes. --- @return #MISSILETRAINER -function MISSILETRAINER:New( Distance, Briefing ) - local self = BASE:Inherit( self, BASE:New() ) - self:F( Distance ) - - if Briefing then - self.Briefing = Briefing - end - - self.Schedulers = {} - self.SchedulerID = 0 - - self.MessageInterval = 2 - self.MessageLastTime = timer.getTime() - - self.Distance = Distance / 1000 - - _EVENTDISPATCHER:OnShot( self._EventShot, self ) - - self.DBClients = SET_CLIENT:New():FilterStart() - - --- for ClientID, Client in pairs( self.DBClients.Database ) do --- self:E( "ForEach:" .. Client.UnitName ) --- Client:Alive( self._Alive, self ) --- end --- - self.DBClients:ForEachClient( - function( Client ) - self:E( "ForEach:" .. Client.UnitName ) - Client:Alive( self._Alive, self ) - end - ) - - - --- self.DB:ForEachClient( --- --- @param Client#CLIENT Client --- function( Client ) --- --- ... actions ... --- --- end --- ) - - self.MessagesOnOff = true - - self.TrackingToAll = false - self.TrackingOnOff = true - self.TrackingFrequency = 3 - - self.AlertsToAll = true - self.AlertsHitsOnOff = true - self.AlertsLaunchesOnOff = true - - self.DetailsRangeOnOff = true - self.DetailsBearingOnOff = true - - self.MenusOnOff = true - - self.TrackingMissiles = {} - - self.TrackingScheduler = SCHEDULER:New( self, self._TrackMissiles, {}, 0.5, 0.05, 0 ) - - return self -end - --- Initialization methods. - - - ---- Sets by default the display of any message to be ON or OFF. --- @param #MISSILETRAINER self --- @param #boolean MessagesOnOff true or false --- @return #MISSILETRAINER self -function MISSILETRAINER:InitMessagesOnOff( MessagesOnOff ) - self:F( MessagesOnOff ) - - self.MessagesOnOff = MessagesOnOff - if self.MessagesOnOff == true then - MESSAGE:New( "Messages ON", 15, "Menu" ):ToAll() - else - MESSAGE:New( "Messages OFF", 15, "Menu" ):ToAll() - end - - return self -end - ---- Sets by default the missile tracking report for all players or only for those missiles targetted to you. --- @param #MISSILETRAINER self --- @param #boolean TrackingToAll true or false --- @return #MISSILETRAINER self -function MISSILETRAINER:InitTrackingToAll( TrackingToAll ) - self:F( TrackingToAll ) - - self.TrackingToAll = TrackingToAll - if self.TrackingToAll == true then - MESSAGE:New( "Missile tracking to all players ON", 15, "Menu" ):ToAll() - else - MESSAGE:New( "Missile tracking to all players OFF", 15, "Menu" ):ToAll() - end - - return self -end - ---- Sets by default the display of missile tracking report to be ON or OFF. --- @param #MISSILETRAINER self --- @param #boolean TrackingOnOff true or false --- @return #MISSILETRAINER self -function MISSILETRAINER:InitTrackingOnOff( TrackingOnOff ) - self:F( TrackingOnOff ) - - self.TrackingOnOff = TrackingOnOff - if self.TrackingOnOff == true then - MESSAGE:New( "Missile tracking ON", 15, "Menu" ):ToAll() - else - MESSAGE:New( "Missile tracking OFF", 15, "Menu" ):ToAll() - end - - return self -end - ---- Increases, decreases the missile tracking message display frequency with the provided time interval in seconds. --- The default frequency is a 3 second interval, so the Tracking Frequency parameter specifies the increase or decrease from the default 3 seconds or the last frequency update. --- @param #MISSILETRAINER self --- @param #number TrackingFrequency Provide a negative or positive value in seconds to incraese or decrease the display frequency. --- @return #MISSILETRAINER self -function MISSILETRAINER:InitTrackingFrequency( TrackingFrequency ) - self:F( TrackingFrequency ) - - self.TrackingFrequency = self.TrackingFrequency + TrackingFrequency - if self.TrackingFrequency < 0.5 then - self.TrackingFrequency = 0.5 - end - if self.TrackingFrequency then - MESSAGE:New( "Missile tracking frequency is " .. self.TrackingFrequency .. " seconds.", 15, "Menu" ):ToAll() - end - - return self -end - ---- Sets by default the display of alerts to be shown to all players or only to you. --- @param #MISSILETRAINER self --- @param #boolean AlertsToAll true or false --- @return #MISSILETRAINER self -function MISSILETRAINER:InitAlertsToAll( AlertsToAll ) - self:F( AlertsToAll ) - - self.AlertsToAll = AlertsToAll - if self.AlertsToAll == true then - MESSAGE:New( "Alerts to all players ON", 15, "Menu" ):ToAll() - else - MESSAGE:New( "Alerts to all players OFF", 15, "Menu" ):ToAll() - end - - return self -end - ---- Sets by default the display of hit alerts ON or OFF. --- @param #MISSILETRAINER self --- @param #boolean AlertsHitsOnOff true or false --- @return #MISSILETRAINER self -function MISSILETRAINER:InitAlertsHitsOnOff( AlertsHitsOnOff ) - self:F( AlertsHitsOnOff ) - - self.AlertsHitsOnOff = AlertsHitsOnOff - if self.AlertsHitsOnOff == true then - MESSAGE:New( "Alerts Hits ON", 15, "Menu" ):ToAll() - else - MESSAGE:New( "Alerts Hits OFF", 15, "Menu" ):ToAll() - end - - return self -end - ---- Sets by default the display of launch alerts ON or OFF. --- @param #MISSILETRAINER self --- @param #boolean AlertsLaunchesOnOff true or false --- @return #MISSILETRAINER self -function MISSILETRAINER:InitAlertsLaunchesOnOff( AlertsLaunchesOnOff ) - self:F( AlertsLaunchesOnOff ) - - self.AlertsLaunchesOnOff = AlertsLaunchesOnOff - if self.AlertsLaunchesOnOff == true then - MESSAGE:New( "Alerts Launches ON", 15, "Menu" ):ToAll() - else - MESSAGE:New( "Alerts Launches OFF", 15, "Menu" ):ToAll() - end - - return self -end - ---- Sets by default the display of range information of missiles ON of OFF. --- @param #MISSILETRAINER self --- @param #boolean DetailsRangeOnOff true or false --- @return #MISSILETRAINER self -function MISSILETRAINER:InitRangeOnOff( DetailsRangeOnOff ) - self:F( DetailsRangeOnOff ) - - self.DetailsRangeOnOff = DetailsRangeOnOff - if self.DetailsRangeOnOff == true then - MESSAGE:New( "Range display ON", 15, "Menu" ):ToAll() - else - MESSAGE:New( "Range display OFF", 15, "Menu" ):ToAll() - end - - return self -end - ---- Sets by default the display of bearing information of missiles ON of OFF. --- @param #MISSILETRAINER self --- @param #boolean DetailsBearingOnOff true or false --- @return #MISSILETRAINER self -function MISSILETRAINER:InitBearingOnOff( DetailsBearingOnOff ) - self:F( DetailsBearingOnOff ) - - self.DetailsBearingOnOff = DetailsBearingOnOff - if self.DetailsBearingOnOff == true then - MESSAGE:New( "Bearing display OFF", 15, "Menu" ):ToAll() - else - MESSAGE:New( "Bearing display OFF", 15, "Menu" ):ToAll() - end - - return self -end - ---- Enables / Disables the menus. --- @param #MISSILETRAINER self --- @param #boolean MenusOnOff true or false --- @return #MISSILETRAINER self -function MISSILETRAINER:InitMenusOnOff( MenusOnOff ) - self:F( MenusOnOff ) - - self.MenusOnOff = MenusOnOff - if self.MenusOnOff == true then - MESSAGE:New( "Menus are ENABLED (only when a player rejoins a slot)", 15, "Menu" ):ToAll() - else - MESSAGE:New( "Menus are DISABLED", 15, "Menu" ):ToAll() - end - - return self -end - - --- Menu functions - -function MISSILETRAINER._MenuMessages( MenuParameters ) - - local self = MenuParameters.MenuSelf - - if MenuParameters.MessagesOnOff ~= nil then - self:InitMessagesOnOff( MenuParameters.MessagesOnOff ) - end - - if MenuParameters.TrackingToAll ~= nil then - self:InitTrackingToAll( MenuParameters.TrackingToAll ) - end - - if MenuParameters.TrackingOnOff ~= nil then - self:InitTrackingOnOff( MenuParameters.TrackingOnOff ) - end - - if MenuParameters.TrackingFrequency ~= nil then - self:InitTrackingFrequency( MenuParameters.TrackingFrequency ) - end - - if MenuParameters.AlertsToAll ~= nil then - self:InitAlertsToAll( MenuParameters.AlertsToAll ) - end - - if MenuParameters.AlertsHitsOnOff ~= nil then - self:InitAlertsHitsOnOff( MenuParameters.AlertsHitsOnOff ) - end - - if MenuParameters.AlertsLaunchesOnOff ~= nil then - self:InitAlertsLaunchesOnOff( MenuParameters.AlertsLaunchesOnOff ) - end - - if MenuParameters.DetailsRangeOnOff ~= nil then - self:InitRangeOnOff( MenuParameters.DetailsRangeOnOff ) - end - - if MenuParameters.DetailsBearingOnOff ~= nil then - self:InitBearingOnOff( MenuParameters.DetailsBearingOnOff ) - end - - if MenuParameters.Distance ~= nil then - self.Distance = MenuParameters.Distance - MESSAGE:New( "Hit detection distance set to " .. self.Distance .. " meters", 15, "Menu" ):ToAll() - end - -end - ---- Detects if an SA site was shot with an anti radiation missile. In this case, take evasive actions based on the skill level set within the ME. --- @param #MISSILETRAINER self --- @param Event#EVENTDATA Event -function MISSILETRAINER:_EventShot( Event ) - self:F( { Event } ) - - local TrainerSourceDCSUnit = Event.IniDCSUnit - local TrainerSourceDCSUnitName = Event.IniDCSUnitName - local TrainerWeapon = Event.Weapon -- Identify the weapon fired - local TrainerWeaponName = Event.WeaponName -- return weapon type - - self:T( "Missile Launched = " .. TrainerWeaponName ) - - local TrainerTargetDCSUnit = TrainerWeapon:getTarget() -- Identify target - local TrainerTargetDCSUnitName = Unit.getName( TrainerTargetDCSUnit ) - local TrainerTargetSkill = _DATABASE.Templates.Units[TrainerTargetDCSUnitName].Template.skill - - self:T(TrainerTargetDCSUnitName ) - - local Client = self.DBClients:FindClient( TrainerTargetDCSUnitName ) - if Client then - - local TrainerSourceUnit = UNIT:Find( TrainerSourceDCSUnit ) - local TrainerTargetUnit = UNIT:Find( TrainerTargetDCSUnit ) - - if self.MessagesOnOff == true and self.AlertsLaunchesOnOff == true then - - local Message = MESSAGE:New( - string.format( "%s launched a %s", - TrainerSourceUnit:GetTypeName(), - TrainerWeaponName - ) .. self:_AddRange( Client, TrainerWeapon ) .. self:_AddBearing( Client, TrainerWeapon ), 5, "Launch Alert" ) - - if self.AlertsToAll then - Message:ToAll() - else - Message:ToClient( Client ) - end - end - - local ClientID = Client:GetID() - self:T( ClientID ) - local MissileData = {} - MissileData.TrainerSourceUnit = TrainerSourceUnit - MissileData.TrainerWeapon = TrainerWeapon - MissileData.TrainerTargetUnit = TrainerTargetUnit - MissileData.TrainerWeaponTypeName = TrainerWeapon:getTypeName() - MissileData.TrainerWeaponLaunched = true - table.insert( self.TrackingMissiles[ClientID].MissileData, MissileData ) - --self:T( self.TrackingMissiles ) - end -end - -function MISSILETRAINER:_AddRange( Client, TrainerWeapon ) - - local RangeText = "" - - if self.DetailsRangeOnOff then - - local PositionMissile = TrainerWeapon:getPoint() - local PositionTarget = Client:GetPointVec3() - - local Range = ( ( PositionMissile.x - PositionTarget.x )^2 + - ( PositionMissile.y - PositionTarget.y )^2 + - ( PositionMissile.z - PositionTarget.z )^2 - ) ^ 0.5 / 1000 - - RangeText = string.format( ", at %4.2fkm", Range ) - end - - return RangeText -end - -function MISSILETRAINER:_AddBearing( Client, TrainerWeapon ) - - local BearingText = "" - - if self.DetailsBearingOnOff then - - local PositionMissile = TrainerWeapon:getPoint() - local PositionTarget = Client:GetPointVec3() - - self:T2( { PositionTarget, PositionMissile }) - - local DirectionVector = { x = PositionMissile.x - PositionTarget.x, y = PositionMissile.y - PositionTarget.y, z = PositionMissile.z - PositionTarget.z } - local DirectionRadians = math.atan2( DirectionVector.z, DirectionVector.x ) - --DirectionRadians = DirectionRadians + routines.getNorthCorrection( PositionTarget ) - if DirectionRadians < 0 then - DirectionRadians = DirectionRadians + 2 * math.pi - end - local DirectionDegrees = DirectionRadians * 180 / math.pi - - BearingText = string.format( ", %d degrees", DirectionDegrees ) - end - - return BearingText -end - - -function MISSILETRAINER:_TrackMissiles() - self:F2() - - - local ShowMessages = false - if self.MessagesOnOff and self.MessageLastTime + self.TrackingFrequency <= timer.getTime() then - self.MessageLastTime = timer.getTime() - ShowMessages = true - end - - -- ALERTS PART - - -- Loop for all Player Clients to check the alerts and deletion of missiles. - for ClientDataID, ClientData in pairs( self.TrackingMissiles ) do - - local Client = ClientData.Client - self:T2( { Client:GetName() } ) - - for MissileDataID, MissileData in pairs( ClientData.MissileData ) do - self:T3( MissileDataID ) - - local TrainerSourceUnit = MissileData.TrainerSourceUnit - local TrainerWeapon = MissileData.TrainerWeapon - local TrainerTargetUnit = MissileData.TrainerTargetUnit - local TrainerWeaponTypeName = MissileData.TrainerWeaponTypeName - local TrainerWeaponLaunched = MissileData.TrainerWeaponLaunched - - if Client and Client:IsAlive() and TrainerSourceUnit and TrainerSourceUnit:IsAlive() and TrainerWeapon and TrainerWeapon:isExist() and TrainerTargetUnit and TrainerTargetUnit:IsAlive() then - local PositionMissile = TrainerWeapon:getPosition().p - local PositionTarget = Client:GetPointVec3() - - local Distance = ( ( PositionMissile.x - PositionTarget.x )^2 + - ( PositionMissile.y - PositionTarget.y )^2 + - ( PositionMissile.z - PositionTarget.z )^2 - ) ^ 0.5 / 1000 - - if Distance <= self.Distance then - -- Hit alert - TrainerWeapon:destroy() - if self.MessagesOnOff == true and self.AlertsHitsOnOff == true then - - self:T( "killed" ) - - local Message = MESSAGE:New( - string.format( "%s launched by %s killed %s", - TrainerWeapon:getTypeName(), - TrainerSourceUnit:GetTypeName(), - TrainerTargetUnit:GetPlayerName() - ), 15, "Hit Alert" ) - - if self.AlertsToAll == true then - Message:ToAll() - else - Message:ToClient( Client ) - end - - MissileData = nil - table.remove( ClientData.MissileData, MissileDataID ) - self:T(ClientData.MissileData) - end - end - else - if not ( TrainerWeapon and TrainerWeapon:isExist() ) then - if self.MessagesOnOff == true and self.AlertsLaunchesOnOff == true then - -- Weapon does not exist anymore. Delete from Table - local Message = MESSAGE:New( - string.format( "%s launched by %s self destructed!", - TrainerWeaponTypeName, - TrainerSourceUnit:GetTypeName() - ), 5, "Tracking" ) - - if self.AlertsToAll == true then - Message:ToAll() - else - Message:ToClient( Client ) - end - end - MissileData = nil - table.remove( ClientData.MissileData, MissileDataID ) - self:T( ClientData.MissileData ) - end - end - end - end - - if ShowMessages == true and self.MessagesOnOff == true and self.TrackingOnOff == true then -- Only do this when tracking information needs to be displayed. - - -- TRACKING PART - - -- For the current client, the missile range and bearing details are displayed To the Player Client. - -- For the other clients, the missile range and bearing details are displayed To the other Player Clients. - -- To achieve this, a cross loop is done for each Player Client <-> Other Player Client missile information. - - -- Main Player Client loop - for ClientDataID, ClientData in pairs( self.TrackingMissiles ) do - - local Client = ClientData.Client - self:T2( { Client:GetName() } ) - - - ClientData.MessageToClient = "" - ClientData.MessageToAll = "" - - -- Other Players Client loop - for TrackingDataID, TrackingData in pairs( self.TrackingMissiles ) do - - for MissileDataID, MissileData in pairs( TrackingData.MissileData ) do - self:T3( MissileDataID ) - - local TrainerSourceUnit = MissileData.TrainerSourceUnit - local TrainerWeapon = MissileData.TrainerWeapon - local TrainerTargetUnit = MissileData.TrainerTargetUnit - local TrainerWeaponTypeName = MissileData.TrainerWeaponTypeName - local TrainerWeaponLaunched = MissileData.TrainerWeaponLaunched - - if Client and Client:IsAlive() and TrainerSourceUnit and TrainerSourceUnit:IsAlive() and TrainerWeapon and TrainerWeapon:isExist() and TrainerTargetUnit and TrainerTargetUnit:IsAlive() then - - if ShowMessages == true then - local TrackingTo - TrackingTo = string.format( " -> %s", - TrainerWeaponTypeName - ) - - if ClientDataID == TrackingDataID then - if ClientData.MessageToClient == "" then - ClientData.MessageToClient = "Missiles to You:\n" - end - ClientData.MessageToClient = ClientData.MessageToClient .. TrackingTo .. self:_AddRange( ClientData.Client, TrainerWeapon ) .. self:_AddBearing( ClientData.Client, TrainerWeapon ) .. "\n" - else - if self.TrackingToAll == true then - if ClientData.MessageToAll == "" then - ClientData.MessageToAll = "Missiles to other Players:\n" - end - ClientData.MessageToAll = ClientData.MessageToAll .. TrackingTo .. self:_AddRange( ClientData.Client, TrainerWeapon ) .. self:_AddBearing( ClientData.Client, TrainerWeapon ) .. " ( " .. TrainerTargetUnit:GetPlayerName() .. " )\n" - end - end - end - end - end - end - - -- Once the Player Client and the Other Player Client tracking messages are prepared, show them. - if ClientData.MessageToClient ~= "" or ClientData.MessageToAll ~= "" then - local Message = MESSAGE:New( ClientData.MessageToClient .. ClientData.MessageToAll, 1, "Tracking" ):ToClient( Client ) - end - end - end - - return true -end ---- This module contains the PATROLZONE class. --- --- === --- --- 1) @{Patrol#PATROLZONE} class, extends @{Base#BASE} --- =================================================== --- The @{Patrol#PATROLZONE} class implements the core functions to patrol a @{Zone}. --- --- 1.1) PATROLZONE constructor: --- ---------------------------- --- @{PatrolZone#PATROLZONE.New}(): Creates a new PATROLZONE object. --- --- 1.2) Modify the PATROLZONE parameters: --- -------------------------------------- --- The following methods are available to modify the parameters of a PATROLZONE object: --- --- * @{PatrolZone#PATROLZONE.SetGroup}(): Set the AI Patrol Group. --- * @{PatrolZone#PATROLZONE.SetSpeed}(): Set the patrol speed of the AI, for the next patrol. --- * @{PatrolZone#PATROLZONE.SetAltitude}(): Set altitude of the AI, for the next patrol. --- --- 1.3) Manage the out of fuel in the PATROLZONE: --- ---------------------------------------------- --- When the PatrolGroup is out of fuel, it is required that a new PatrolGroup is started, before the old PatrolGroup can return to the home base. --- Therefore, with a parameter and a calculation of the distance to the home base, the fuel treshold is calculated. --- When the fuel treshold is reached, the PatrolGroup will continue for a given time its patrol task in orbit, while a new PatrolGroup is targetted to the PATROLZONE. --- Once the time is finished, the old PatrolGroup will return to the base. --- Use the method @{PatrolZone#PATROLZONE.ManageFuel}() to have this proces in place. --- --- === --- --- @module PatrolZone --- @author FlightControl - - ---- PATROLZONE class --- @type PATROLZONE --- @field Group#GROUP PatrolGroup The @{Group} patrolling. --- @field Zone#ZONE_BASE PatrolZone The @{Zone} where the patrol needs to be executed. --- @field DCSTypes#Altitude PatrolFloorAltitude The lowest altitude in meters where to execute the patrol. --- @field DCSTypes#Altitude PatrolCeilingAltitude The highest altitude in meters where to execute the patrol. --- @field DCSTypes#Speed PatrolMinSpeed The minimum speed of the @{Group} in km/h. --- @field DCSTypes#Speed PatrolMaxSpeed The maximum speed of the @{Group} in km/h. --- @extends Base#BASE -PATROLZONE = { - ClassName = "PATROLZONE", -} - ---- Creates a new PATROLZONE object, taking a @{Group} object as a parameter. The GROUP needs to be alive. --- @param #PATROLZONE self --- @param Zone#ZONE_BASE PatrolZone The @{Zone} where the patrol needs to be executed. --- @param DCSTypes#Altitude PatrolFloorAltitude The lowest altitude in meters where to execute the patrol. --- @param DCSTypes#Altitude PatrolCeilingAltitude The highest altitude in meters where to execute the patrol. --- @param DCSTypes#Speed PatrolMinSpeed The minimum speed of the @{Group} in km/h. --- @param DCSTypes#Speed PatrolMaxSpeed The maximum speed of the @{Group} in km/h. --- @return #PATROLZONE self --- @usage --- -- Define a new PATROLZONE Object. This PatrolArea will patrol a group within PatrolZone between 3000 and 6000 meters, with a variying speed between 600 and 900 km/h. --- PatrolZone = ZONE:New( 'PatrolZone' ) --- PatrolGroup = GROUP:FindByName( "Patrol Group" ) --- PatrolArea = PATROLZONE:New( PatrolGroup, PatrolZone, 3000, 6000, 600, 900 ) -function PATROLZONE:New( PatrolZone, PatrolFloorAltitude, PatrolCeilingAltitude, PatrolMinSpeed, PatrolMaxSpeed ) - - -- Inherits from BASE - local self = BASE:Inherit( self, BASE:New() ) - - self.PatrolZone = PatrolZone - self.PatrolFloorAltitude = PatrolFloorAltitude - self.PatrolCeilingAltitude = PatrolCeilingAltitude - self.PatrolMinSpeed = PatrolMinSpeed - self.PatrolMaxSpeed = PatrolMaxSpeed - - return self -end - ---- Set the @{Group} to act as the Patroller. --- @param #PATROLZONE self --- @param Group#GROUP PatrolGroup The @{Group} patrolling. --- @return #PATROLZONE self -function PATROLZONE:SetGroup( PatrolGroup ) - - self.PatrolGroup = PatrolGroup - self.PatrolGroupTemplateName = PatrolGroup:GetName() - self:NewPatrolRoute() - - if not self.PatrolOutOfFuelMonitor then - self.PatrolOutOfFuelMonitor = SCHEDULER:New( nil, _MonitorOutOfFuelScheduled, { self }, 1, 120, 0 ) - self.SpawnPatrolGroup = SPAWN:New( self.PatrolGroupTemplateName ) - end - - return self -end - ---- Sets (modifies) the minimum and maximum speed of the patrol. --- @param #PATROLZONE self --- @param DCSTypes#Speed PatrolMinSpeed The minimum speed of the @{Group} in km/h. --- @param DCSTypes#Speed PatrolMaxSpeed The maximum speed of the @{Group} in km/h. --- @return #PATROLZONE self -function PATROLZONE:SetSpeed( PatrolMinSpeed, PatrolMaxSpeed ) - self:F2( { PatrolMinSpeed, PatrolMaxSpeed } ) - - self.PatrolMinSpeed = PatrolMinSpeed - self.PatrolMaxSpeed = PatrolMaxSpeed -end - ---- Sets the floor and ceiling altitude of the patrol. --- @param #PATROLZONE self --- @param DCSTypes#Altitude PatrolFloorAltitude The lowest altitude in meters where to execute the patrol. --- @param DCSTypes#Altitude PatrolCeilingAltitude The highest altitude in meters where to execute the patrol. --- @return #PATROLZONE self -function PATROLZONE:SetAltitude( PatrolFloorAltitude, PatrolCeilingAltitude ) - self:F2( { PatrolFloorAltitude, PatrolCeilingAltitude } ) - - self.PatrolFloorAltitude = PatrolFloorAltitude - self.PatrolCeilingAltitude = PatrolCeilingAltitude -end - - - ---- @param Group#GROUP PatrolGroup -function _NewPatrolRoute( PatrolGroup ) - - PatrolGroup:T( "NewPatrolRoute" ) - local PatrolZone = PatrolGroup:GetState( PatrolGroup, "PatrolZone" ) -- PatrolZone#PATROLZONE - PatrolZone:NewPatrolRoute() -end - ---- Defines a new patrol route using the @{PatrolZone} parameters and settings. --- @param #PATROLZONE self --- @return #PATROLZONE self -function PATROLZONE:NewPatrolRoute() - - self:F2() - - local PatrolRoute = {} - - if self.PatrolGroup:IsAlive() then - --- Determine if the PatrolGroup is within the PatrolZone. - -- If not, make a waypoint within the to that the PatrolGroup will fly at maximum speed to that point. - --- --- Calculate the current route point. --- local CurrentVec2 = self.PatrolGroup:GetPointVec2() --- local CurrentAltitude = self.PatrolGroup:GetUnit(1):GetAltitude() --- local CurrentPointVec3 = POINT_VEC3:New( CurrentVec2.x, CurrentAltitude, CurrentVec2.y ) --- local CurrentRoutePoint = CurrentPointVec3:RoutePointAir( --- POINT_VEC3.RoutePointAltType.BARO, --- POINT_VEC3.RoutePointType.TurningPoint, --- POINT_VEC3.RoutePointAction.TurningPoint, --- ToPatrolZoneSpeed, --- true --- ) --- --- PatrolRoute[#PatrolRoute+1] = CurrentRoutePoint - - self:T2( PatrolRoute ) - - if self.PatrolGroup:IsNotInZone( self.PatrolZone ) then - --- Find a random 2D point in PatrolZone. - local ToPatrolZoneVec2 = self.PatrolZone:GetRandomVec2() - self:T2( ToPatrolZoneVec2 ) - - --- Define Speed and Altitude. - local ToPatrolZoneAltitude = math.random( self.PatrolFloorAltitude, self.PatrolCeilingAltitude ) - local ToPatrolZoneSpeed = self.PatrolMaxSpeed - self:T2( ToPatrolZoneSpeed ) - - --- Obtain a 3D @{Point} from the 2D point + altitude. - local ToPatrolZonePointVec3 = POINT_VEC3:New( ToPatrolZoneVec2.x, ToPatrolZoneAltitude, ToPatrolZoneVec2.y ) - - --- Create a route point of type air. - local ToPatrolZoneRoutePoint = ToPatrolZonePointVec3:RoutePointAir( - POINT_VEC3.RoutePointAltType.BARO, - POINT_VEC3.RoutePointType.TurningPoint, - POINT_VEC3.RoutePointAction.TurningPoint, - ToPatrolZoneSpeed, - true - ) - - PatrolRoute[#PatrolRoute+1] = ToPatrolZoneRoutePoint - - end - - --- Define a random point in the @{Zone}. The AI will fly to that point within the zone. - - --- Find a random 2D point in PatrolZone. - local ToTargetVec2 = self.PatrolZone:GetRandomVec2() - self:T2( ToTargetVec2 ) - - --- Define Speed and Altitude. - local ToTargetAltitude = math.random( self.PatrolFloorAltitude, self.PatrolCeilingAltitude ) - local ToTargetSpeed = math.random( self.PatrolMinSpeed, self.PatrolMaxSpeed ) - self:T2( { self.PatrolMinSpeed, self.PatrolMaxSpeed, ToTargetSpeed } ) - - --- Obtain a 3D @{Point} from the 2D point + altitude. - local ToTargetPointVec3 = POINT_VEC3:New( ToTargetVec2.x, ToTargetAltitude, ToTargetVec2.y ) - - --- Create a route point of type air. - local ToTargetRoutePoint = ToTargetPointVec3:RoutePointAir( - POINT_VEC3.RoutePointAltType.BARO, - POINT_VEC3.RoutePointType.TurningPoint, - POINT_VEC3.RoutePointAction.TurningPoint, - ToTargetSpeed, - true - ) - - --ToTargetPointVec3:SmokeRed() - - PatrolRoute[#PatrolRoute+1] = ToTargetRoutePoint - - --- Now we're going to do something special, we're going to call a function from a waypoint action at the PatrolGroup... - self.PatrolGroup:WayPointInitialize( PatrolRoute ) - - --- Do a trick, link the NewPatrolRoute function of the PATROLGROUP object to the PatrolGroup in a temporary variable ... - self.PatrolGroup:SetState( self.PatrolGroup, "PatrolZone", self ) - self.PatrolGroup:WayPointFunction( #PatrolRoute, 1, "_NewPatrolRoute" ) - - --- NOW ROUTE THE GROUP! - self.PatrolGroup:WayPointExecute( 1, 2 ) - end - -end - ---- When the PatrolGroup is out of fuel, it is required that a new PatrolGroup is started, before the old PatrolGroup can return to the home base. --- Therefore, with a parameter and a calculation of the distance to the home base, the fuel treshold is calculated. --- When the fuel treshold is reached, the PatrolGroup will continue for a given time its patrol task in orbit, while a new PatrolGroup is targetted to the PATROLZONE. --- Once the time is finished, the old PatrolGroup will return to the base. --- @param #PATROLZONE self --- @param #number PatrolFuelTresholdPercentage The treshold in percentage (between 0 and 1) when the PatrolGroup is considered to get out of fuel. --- @param #number PatrolOutOfFuelOrbitTime The amount of seconds the out of fuel PatrolGroup will orbit before returning to the base. --- @return #PATROLZONE self -function PATROLZONE:ManageFuel( PatrolFuelTresholdPercentage, PatrolOutOfFuelOrbitTime ) - - self.PatrolManageFuel = true - self.PatrolFuelTresholdPercentage = PatrolFuelTresholdPercentage - self.PatrolOutOfFuelOrbitTime = PatrolOutOfFuelOrbitTime - - if self.PatrolGroup then - self.PatrolOutOfFuelMonitor = SCHEDULER:New( self, self._MonitorOutOfFuelScheduled, {}, 1, 120, 0 ) - self.SpawnPatrolGroup = SPAWN:New( self.PatrolGroupTemplateName ) - end - return self -end - ---- @param #PATROLZONE self -function _MonitorOutOfFuelScheduled( self ) - self:F2( "_MonitorOutOfFuelScheduled" ) - - if self.PatrolGroup and self.PatrolGroup:IsAlive() then - - local Fuel = self.PatrolGroup:GetUnit(1):GetFuel() - if Fuel < self.PatrolFuelTresholdPercentage then - local OldPatrolGroup = self.PatrolGroup - local PatrolGroupTemplate = self.PatrolGroup:GetTemplate() - - local OrbitTask = OldPatrolGroup:TaskOrbitCircle( math.random( self.PatrolFloorAltitude, self.PatrolCeilingAltitude ), self.PatrolMinSpeed ) - local TimedOrbitTask = OldPatrolGroup:TaskControlled( OrbitTask, OldPatrolGroup:TaskCondition(nil,nil,nil,nil,self.PatrolOutOfFuelOrbitTime,nil ) ) - OldPatrolGroup:SetTask( TimedOrbitTask, 10 ) - - local NewPatrolGroup = self.SpawnPatrolGroup:Spawn() - self.PatrolGroup = NewPatrolGroup - self:NewPatrolRoute() - end - else - self.PatrolOutOfFuelMonitor:Stop() - end -end--- This module contains the AIBALANCER class. --- --- === --- --- 1) @{AIBalancer#AIBALANCER} class, extends @{Base#BASE} --- ================================================ --- The @{AIBalancer#AIBALANCER} class controls the dynamic spawning of AI GROUPS depending on a SET_CLIENT. --- There will be as many AI GROUPS spawned as there at CLIENTS in SET_CLIENT not spawned. --- --- 1.1) AIBALANCER construction method: --- ------------------------------------ --- Create a new AIBALANCER object with the @{#AIBALANCER.New} method: --- --- * @{#AIBALANCER.New}: Creates a new AIBALANCER object. --- --- 1.2) AIBALANCER returns AI to Airbases: --- --------------------------------------- --- You can configure to have the AI to return to: --- --- * @{#AIBALANCER.ReturnToHomeAirbase}: Returns the AI to the home @{Airbase#AIRBASE}. --- * @{#AIBALANCER.ReturnToNearestAirbases}: Returns the AI to the nearest friendly @{Airbase#AIRBASE}. --- --- 1.3) AIBALANCER allows AI to patrol specific zones: --- --------------------------------------------------- --- Use @{AIBalancer#AIBALANCER.SetPatrolZone}() to specify a zone where the AI needs to patrol. --- --- --- === --- --- CREDITS --- ======= --- **Dutch_Baron (James)** Who you can search on the Eagle Dynamics Forums. --- Working together with James has resulted in the creation of the AIBALANCER class. --- James has shared his ideas on balancing AI with air units, and together we made a first design which you can use now :-) --- --- **SNAFU** --- Had a couple of mails with the guys to validate, if the same concept in the GCI/CAP script could be reworked within MOOSE. --- None of the script code has been used however within the new AIBALANCER moose class. --- --- @module AIBalancer --- @author FlightControl - ---- AIBALANCER class --- @type AIBALANCER --- @field Set#SET_CLIENT SetClient --- @field Spawn#SPAWN SpawnAI --- @field #boolean ToNearestAirbase --- @field Set#SET_AIRBASE ReturnAirbaseSet --- @field DCSTypes#Distance ReturnTresholdRange --- @field #boolean ToHomeAirbase --- @field PatrolZone#PATROLZONE PatrolZone --- @extends Base#BASE -AIBALANCER = { - ClassName = "AIBALANCER", - PatrolZones = {}, - AIGroups = {}, -} - ---- Creates a new AIBALANCER object, building a set of units belonging to a coalitions, categories, countries, types or with defined prefix names. --- @param #AIBALANCER self --- @param SetClient A SET_CLIENT object that will contain the CLIENT objects to be monitored if they are alive or not (joined by a player). --- @param SpawnAI A SPAWN object that will spawn the AI units required, balancing the SetClient. --- @return #AIBALANCER self -function AIBALANCER:New( SetClient, SpawnAI ) - - -- Inherits from BASE - local self = BASE:Inherit( self, BASE:New() ) - - self.SetClient = SetClient - if type( SpawnAI ) == "table" then - if SpawnAI.ClassName and SpawnAI.ClassName == "SPAWN" then - self.SpawnAI = { SpawnAI } - else - local SpawnObjects = true - for SpawnObjectID, SpawnObject in pairs( SpawnAI ) do - if SpawnObject.ClassName and SpawnObject.ClassName == "SPAWN" then - self:E( SpawnObject.ClassName ) - else - self:E( "other object" ) - SpawnObjects = false - end - end - if SpawnObjects == true then - self.SpawnAI = SpawnAI - else - error( "No SPAWN object given in parameter SpawnAI, either as a single object or as a table of objects!" ) - end - end - end - - self.ToNearestAirbase = false - self.ReturnHomeAirbase = false - - self.AIMonitorSchedule = SCHEDULER:New( self, self._ClientAliveMonitorScheduler, {}, 1, 10, 0 ) - - return self -end - ---- Returns the AI to the nearest friendly @{Airbase#AIRBASE}. --- @param #AIBALANCER self --- @param DCSTypes#Distance ReturnTresholdRange If there is an enemy @{Client#CLIENT} within the ReturnTresholdRange given in meters, the AI will not return to the nearest @{Airbase#AIRBASE}. --- @param Set#SET_AIRBASE ReturnAirbaseSet The SET of @{Set#SET_AIRBASE}s to evaluate where to return to. -function AIBALANCER:ReturnToNearestAirbases( ReturnTresholdRange, ReturnAirbaseSet ) - - self.ToNearestAirbase = true - self.ReturnTresholdRange = ReturnTresholdRange - self.ReturnAirbaseSet = ReturnAirbaseSet -end - ---- Returns the AI to the home @{Airbase#AIRBASE}. --- @param #AIBALANCER self --- @param DCSTypes#Distance ReturnTresholdRange If there is an enemy @{Client#CLIENT} within the ReturnTresholdRange given in meters, the AI will not return to the nearest @{Airbase#AIRBASE}. -function AIBALANCER:ReturnToHomeAirbase( ReturnTresholdRange ) - - self.ToHomeAirbase = true - self.ReturnTresholdRange = ReturnTresholdRange -end - ---- Let the AI patrol a @{Zone} with a given Speed range and Altitude range. --- @param #AIBALANCER self --- @param PatrolZone#PATROLZONE PatrolZone The @{PatrolZone} where the AI needs to patrol. --- @return PatrolZone#PATROLZONE self -function AIBALANCER:SetPatrolZone( PatrolZone ) - - self.PatrolZone = PatrolZone -end - ---- @param #AIBALANCER self -function AIBALANCER:_ClientAliveMonitorScheduler() - - self.SetClient:ForEachClient( - --- @param Client#CLIENT Client - function( Client ) - local ClientAIAliveState = Client:GetState( self, 'AIAlive' ) - self:T( ClientAIAliveState ) - if Client:IsAlive() then - if ClientAIAliveState == true then - Client:SetState( self, 'AIAlive', false ) - - local AIGroup = self.AIGroups[Client.UnitName] -- Group#GROUP - --- local PatrolZone = Client:GetState( self, "PatrolZone" ) --- if PatrolZone then --- PatrolZone = nil --- Client:ClearState( self, "PatrolZone" ) --- end - - if self.ToNearestAirbase == false and self.ToHomeAirbase == false then - AIGroup:Destroy() - else - -- We test if there is no other CLIENT within the self.ReturnTresholdRange of the first unit of the AI group. - -- If there is a CLIENT, the AI stays engaged and will not return. - -- If there is no CLIENT within the self.ReturnTresholdRange, then the unit will return to the Airbase return method selected. - - local PlayerInRange = { Value = false } - local RangeZone = ZONE_RADIUS:New( 'RangeZone', AIGroup:GetPointVec2(), self.ReturnTresholdRange ) - - self:E( RangeZone ) - - _DATABASE:ForEachPlayer( - --- @param Unit#UNIT RangeTestUnit - function( RangeTestUnit, RangeZone, AIGroup, PlayerInRange ) - self:E( { PlayerInRange, RangeTestUnit.UnitName, RangeZone.ZoneName } ) - if RangeTestUnit:IsInZone( RangeZone ) == true then - self:E( "in zone" ) - if RangeTestUnit:GetCoalition() ~= AIGroup:GetCoalition() then - self:E( "in range" ) - PlayerInRange.Value = true - end - end - end, - - --- @param Zone#ZONE_RADIUS RangeZone - -- @param Group#GROUP AIGroup - function( RangeZone, AIGroup, PlayerInRange ) - local AIGroupTemplate = AIGroup:GetTemplate() - if PlayerInRange.Value == false then - if self.ToHomeAirbase == true then - local WayPointCount = #AIGroupTemplate.route.points - local SwitchWayPointCommand = AIGroup:CommandSwitchWayPoint( 1, WayPointCount, 1 ) - AIGroup:SetCommand( SwitchWayPointCommand ) - AIGroup:MessageToRed( "Returning to home base ...", 30 ) - else - -- Okay, we need to send this Group back to the nearest base of the Coalition of the AI. - --TODO: i need to rework the POINT_VEC2 thing. - local PointVec2 = POINT_VEC2:New( AIGroup:GetPointVec2().x, AIGroup:GetPointVec2().y ) - local ClosestAirbase = self.ReturnAirbaseSet:FindNearestAirbaseFromPointVec2( PointVec2 ) - self:T( ClosestAirbase.AirbaseName ) - AIGroup:MessageToRed( "Returning to " .. ClosestAirbase:GetName().. " ...", 30 ) - local RTBRoute = AIGroup:RouteReturnToAirbase( ClosestAirbase ) - AIGroupTemplate.route = RTBRoute - AIGroup:Respawn( AIGroupTemplate ) - end - end - end - , RangeZone, AIGroup, PlayerInRange - ) - - end - end - else - if not ClientAIAliveState or ClientAIAliveState == false then - Client:SetState( self, 'AIAlive', true ) - - - -- OK, spawn a new group from the SpawnAI objects provided. - local SpawnAICount = #self.SpawnAI - local SpawnAIIndex = math.random( 1, SpawnAICount ) - local AIGroup = self.SpawnAI[SpawnAIIndex]:Spawn() - AIGroup:E( "spawning new AIGroup" ) - --TODO: need to rework UnitName thing ... - self.AIGroups[Client.UnitName] = AIGroup - - --- Now test if the AIGroup needs to patrol a zone, otherwise let it follow its route... - if self.PatrolZone then - self.PatrolZones[#self.PatrolZones+1] = PATROLZONE:New( - self.PatrolZone.PatrolZone, - self.PatrolZone.PatrolFloorAltitude, - self.PatrolZone.PatrolCeilingAltitude, - self.PatrolZone.PatrolMinSpeed, - self.PatrolZone.PatrolMaxSpeed - ) - - if self.PatrolZone.PatrolManageFuel == true then - self.PatrolZones[#self.PatrolZones]:ManageFuel( self.PatrolZone.PatrolFuelTresholdPercentage, self.PatrolZone.PatrolOutOfFuelOrbitTime ) - end - self.PatrolZones[#self.PatrolZones]:SetGroup( AIGroup ) - - --self.PatrolZones[#self.PatrolZones+1] = PatrolZone - - --Client:SetState( self, "PatrolZone", PatrolZone ) - end - end - end - end - ) - return true -end - - - ---- This module contains the AIRBASEPOLICE classes. --- --- === --- --- 1) @{AirbasePolice#AIRBASEPOLICE_BASE} class, extends @{Base#BASE} --- ================================================================== --- The @{AirbasePolice#AIRBASEPOLICE_BASE} class provides the main methods to monitor CLIENT behaviour at airbases. --- CLIENTS should not be allowed to: --- --- * Don't taxi faster than 40 km/h. --- * Don't take-off on taxiways. --- * Avoid to hit other planes on the airbase. --- * Obey ground control orders. --- --- 2) @{AirbasePolice#AIRBASEPOLICE_CAUCASUS} class, extends @{AirbasePolice#AIRBASEPOLICE_BASE} --- ============================================================================================= --- All the airbases on the caucasus map can be monitored using this class. --- If you want to monitor specific airbases, you need to use the @{#AIRBASEPOLICE_BASE.Monitor}() method, which takes a table or airbase names. --- The following names can be given: --- * AnapaVityazevo --- * Batumi --- * Beslan --- * Gelendzhik --- * Gudauta --- * Kobuleti --- * KrasnodarCenter --- * KrasnodarPashkovsky --- * Krymsk --- * Kutaisi --- * MaykopKhanskaya --- * MineralnyeVody --- * Mozdok --- * Nalchik --- * Novorossiysk --- * SenakiKolkhi --- * SochiAdler --- * Soganlug --- * SukhumiBabushara --- * TbilisiLochini --- * Vaziani --- --- @module AirbasePolice --- @author FlightControl - - ---- @type AIRBASEPOLICE_BASE --- @field Set#SET_CLIENT SetClient --- @extends Base#BASE - -AIRBASEPOLICE_BASE = { - ClassName = "AIRBASEPOLICE_BASE", - SetClient = nil, - Airbases = nil, - AirbaseNames = nil, -} - - ---- Creates a new AIRBASEPOLICE_BASE object. --- @param #AIRBASEPOLICE_BASE self --- @param SetClient A SET_CLIENT object that will contain the CLIENT objects to be monitored if they follow the rules of the airbase. --- @param Airbases A table of Airbase Names. --- @return #AIRBASEPOLICE_BASE self -function AIRBASEPOLICE_BASE:New( SetClient, Airbases ) - - -- Inherits from BASE - local self = BASE:Inherit( self, BASE:New() ) - self:E( { self.ClassName, SetClient, Airbases } ) - - self.SetClient = SetClient - self.Airbases = Airbases - - for AirbaseID, Airbase in pairs( self.Airbases ) do - Airbase.ZoneBoundary = ZONE_POLYGON_BASE:New( "Boundary", Airbase.PointsBoundary ):SmokeZone(POINT_VEC3.SmokeColor.White):Flush() - for PointsRunwayID, PointsRunway in pairs( Airbase.PointsRunways ) do - Airbase.ZoneRunways[PointsRunwayID] = ZONE_POLYGON_BASE:New( "Runway " .. PointsRunwayID, PointsRunway ):SmokeZone(POINT_VEC3.SmokeColor.Red):Flush() - end - end - - -- -- Template - -- local TemplateBoundary = GROUP:FindByName( "Template Boundary" ) - -- self.Airbases.Template.ZoneBoundary = ZONE_POLYGON:New( "Template Boundary", TemplateBoundary ):SmokeZone(POINT_VEC3.SmokeColor.White):Flush() - -- - -- local TemplateRunway1 = GROUP:FindByName( "Template Runway 1" ) - -- self.Airbases.Template.ZoneRunways[1] = ZONE_POLYGON:New( "Template Runway 1", TemplateRunway1 ):SmokeZone(POINT_VEC3.SmokeColor.Red):Flush() - - self.SetClient:ForEachClient( - --- @param Client#CLIENT Client - function( Client ) - Client:SetState( self, "Speeding", false ) - Client:SetState( self, "Warnings", 0) - Client:SetState( self, "Taxi", false ) - end - ) - - self.AirbaseMonitor = SCHEDULER:New( self, self._AirbaseMonitor, {}, 0, 2, 0.05 ) - - return self -end - ---- @type AIRBASEPOLICE_BASE.AirbaseNames --- @list <#string> - ---- Monitor a table of airbase names. --- @param #AIRBASEPOLICE_BASE self --- @param #AIRBASEPOLICE_BASE.AirbaseNames AirbaseNames A list of AirbaseNames to monitor. If this parameters is nil, then all airbases will be monitored. --- @return #AIRBASEPOLICE_BASE self -function AIRBASEPOLICE_BASE:Monitor( AirbaseNames ) - - if AirbaseNames then - if type( AirbaseNames ) == "table" then - self.AirbaseNames = AirbaseNames - else - self.AirbaseNames = { AirbaseNames } - end - end -end - ---- @param #AIRBASEPOLICE_BASE self -function AIRBASEPOLICE_BASE:_AirbaseMonitor() - - for AirbaseID, Airbase in pairs( self.Airbases ) do - - if not self.AirbaseNames or self.AirbaseNames[AirbaseID] then - - self:E( AirbaseID ) - - self.SetClient:ForEachClientInZone( Airbase.ZoneBoundary, - - --- @param Client#CLIENT Client - function( Client ) - - self:E( Client.UnitName ) - if Client:IsAlive() then - local NotInRunwayZone = true - for ZoneRunwayID, ZoneRunway in pairs( Airbase.ZoneRunways ) do - NotInRunwayZone = ( Client:IsNotInZone( ZoneRunway ) == true ) and NotInRunwayZone or false - end - - if NotInRunwayZone then - local Taxi = self:GetState( self, "Taxi" ) - self:E( Taxi ) - if Taxi == false then - Client:Message( "Welcome at " .. AirbaseID .. ". The maximum taxiing speed is " .. Airbase.MaximumSpeed " km/h.", 20, "ATC" ) - self:SetState( self, "Taxi", true ) - end - - local VelocityVec3 = Client:GetVelocity() - local Velocity = math.abs(VelocityVec3.x) + math.abs(VelocityVec3.y) + math.abs(VelocityVec3.z) - local IsAboveRunway = Client:IsAboveRunway() - local IsOnGround = Client:InAir() == false - self:T( IsAboveRunway, IsOnGround ) - - if IsAboveRunway and IsOnGround then - - if Velocity > Airbase.MaximumSpeed then - local IsSpeeding = Client:GetState( self, "Speeding" ) - - if IsSpeeding == true then - local SpeedingWarnings = Client:GetState( self, "Warnings" ) - self:T( SpeedingWarnings ) - - if SpeedingWarnings <= 5 then - Client:Message( "You are speeding on the taxiway! Slow down or you will be removed from this airbase! Your current velocity is " .. string.format( "%2.0f km/h", Velocity ), 5, "Warning " .. SpeedingWarnings .. " / 5" ) - Client:SetState( self, "Warnings", SpeedingWarnings + 1 ) - else - MESSAGE:New( "Player " .. Client:GetPlayerName() .. " has been removed from the airbase, due to a speeding violation ...", 10, "Airbase Police" ):ToAll() - Client:GetGroup():Destroy() - Client:SetState( self, "Speeding", false ) - Client:SetState( self, "Warnings", 0 ) - end - - else - Client:Message( "You are speeding on the taxiway! Slow down please ...! Your current velocity is " .. string.format( "%2.0f km/h", Velocity ), 5, "Attention! " ) - Client:SetState( self, "Speeding", true ) - Client:SetState( self, "Warnings", 1 ) - end - - else - Client:SetState( self, "Speeding", false ) - Client:SetState( self, "Warnings", 0 ) - end - end - - else - Client:SetState( self, "Speeding", false ) - Client:SetState( self, "Warnings", 0 ) - local Taxi = self:GetState( self, "Taxi" ) - if Taxi == true then - Client:Message( "You have progressed to the runway ... Await take-off clearance ...", 20, "ATC" ) - self:SetState( self, "Taxi", false ) - end - end - end - end - ) - end - end - - return true -end - - ---- @type AIRBASEPOLICE_CAUCASUS --- @field Set#SET_CLIENT SetClient --- @extends #AIRBASEPOLICE_BASE - -AIRBASEPOLICE_CAUCASUS = { - ClassName = "AIRBASEPOLICE_CAUCASUS", - Airbases = { - AnapaVityazevo = { - PointsBoundary = { - [1]={["y"]=242234.85714287,["x"]=-6616.5714285726,}, - [2]={["y"]=241060.57142858,["x"]=-5585.142857144,}, - [3]={["y"]=243806.2857143,["x"]=-3962.2857142868,}, - [4]={["y"]=245240.57142858,["x"]=-4816.5714285726,}, - [5]={["y"]=244783.42857144,["x"]=-5630.8571428583,}, - [6]={["y"]=243800.57142858,["x"]=-5065.142857144,}, - [7]={["y"]=242232.00000001,["x"]=-6622.2857142868,}, - }, - PointsRunways = { - [1] = { - }, - }, - ZoneBoundary = {}, - ZoneRunways = {}, - MaximumSpeed = 50, - }, - Batumi = { - PointsBoundary = { - [1]={["y"]=617567.14285714,["x"]=-355313.14285715,}, - [2]={["y"]=616181.42857142,["x"]=-354800.28571429,}, - [3]={["y"]=616007.14285714,["x"]=-355128.85714286,}, - [4]={["y"]=618230,["x"]=-356914.57142858,}, - [5]={["y"]=618727.14285714,["x"]=-356166,}, - [6]={["y"]=617572.85714285,["x"]=-355308.85714286,}, - }, - PointsRunways = { - [1] = { - [1]={["y"]=616442.28571429,["x"]=-355090.28571429,}, - [2]={["y"]=618450.57142857,["x"]=-356522,}, - [3]={["y"]=618407.71428571,["x"]=-356584.85714286,}, - [4]={["y"]=618361.99999999,["x"]=-356554.85714286,}, - [5]={["y"]=618324.85714285,["x"]=-356599.14285715,}, - [6]={["y"]=618250.57142856,["x"]=-356543.42857143,}, - [7]={["y"]=618257.7142857,["x"]=-356496.28571429,}, - [8]={["y"]=618237.7142857,["x"]=-356459.14285715,}, - [9]={["y"]=616555.71428571,["x"]=-355258.85714286,}, - [10]={["y"]=616486.28571428,["x"]=-355280.57142858,}, - [11]={["y"]=616410.57142856,["x"]=-355227.71428572,}, - [12]={["y"]=616441.99999999,["x"]=-355179.14285715,}, - [13]={["y"]=616401.99999999,["x"]=-355147.71428572,}, - [14]={["y"]=616441.42857142,["x"]=-355092.57142858,}, - }, - }, - ZoneBoundary = {}, - ZoneRunways = {}, - MaximumSpeed = 50, - }, - Beslan = { - PointsBoundary = { - [1]={["y"]=842082.57142857,["x"]=-148445.14285715,}, - [2]={["y"]=845237.71428572,["x"]=-148639.71428572,}, - [3]={["y"]=845232,["x"]=-148765.42857143,}, - [4]={["y"]=844220.57142857,["x"]=-149168.28571429,}, - [5]={["y"]=843274.85714286,["x"]=-149125.42857143,}, - [6]={["y"]=842077.71428572,["x"]=-148554,}, - [7]={["y"]=842083.42857143,["x"]=-148445.42857143,}, - }, - PointsRunways = { - [1] = { - [1]={["y"]=842104.57142857,["x"]=-148460.57142857,}, - [2]={["y"]=845225.71428572,["x"]=-148656,}, - [3]={["y"]=845220.57142858,["x"]=-148750,}, - [4]={["y"]=842098.85714286,["x"]=-148556.28571429,}, - [5]={["y"]=842104,["x"]=-148460.28571429,}, - }, - }, - ZoneBoundary = {}, - ZoneRunways = {}, - MaximumSpeed = 50, - }, - Gelendzhik = { - PointsBoundary = { - [1]={["y"]=297856.00000001,["x"]=-51151.428571429,}, - [2]={["y"]=299044.57142858,["x"]=-49720.000000001,}, - [3]={["y"]=298861.71428572,["x"]=-49580.000000001,}, - [4]={["y"]=298198.85714286,["x"]=-49842.857142858,}, - [5]={["y"]=297990.28571429,["x"]=-50151.428571429,}, - [6]={["y"]=297696.00000001,["x"]=-51054.285714286,}, - [7]={["y"]=297850.28571429,["x"]=-51160.000000001,}, - }, - PointsRunways = { - [1] = { - [1]={["y"]=297834.00000001,["x"]=-51107.428571429,}, - [2]={["y"]=297786.57142858,["x"]=-51068.857142858,}, - [3]={["y"]=298946.57142858,["x"]=-49686.000000001,}, - [4]={["y"]=298993.14285715,["x"]=-49725.714285715,}, - [5]={["y"]=297835.14285715,["x"]=-51107.714285715,}, - }, - }, - ZoneBoundary = {}, - ZoneRunways = {}, - MaximumSpeed = 50, - }, - Gudauta = { - PointsBoundary = { - [1]={["y"]=517246.57142857,["x"]=-197850.28571429,}, - [2]={["y"]=516749.42857142,["x"]=-198070.28571429,}, - [3]={["y"]=515755.14285714,["x"]=-197598.85714286,}, - [4]={["y"]=515369.42857142,["x"]=-196538.85714286,}, - [5]={["y"]=515623.71428571,["x"]=-195618.85714286,}, - [6]={["y"]=515946.57142857,["x"]=-195510.28571429,}, - [7]={["y"]=517243.71428571,["x"]=-197858.85714286,}, - }, - PointsRunways = { - [1] = { - [1]={["y"]=517096.57142857,["x"]=-197804.57142857,}, - [2]={["y"]=515880.85714285,["x"]=-195590.28571429,}, - [3]={["y"]=515812.28571428,["x"]=-195628.85714286,}, - [4]={["y"]=517036.57142857,["x"]=-197834.57142857,}, - [5]={["y"]=517097.99999999,["x"]=-197807.42857143,}, - }, - }, - ZoneBoundary = {}, - ZoneRunways = {}, - MaximumSpeed = 50, - }, - Kobuleti = { - PointsBoundary = { - [1]={["y"]=634427.71428571,["x"]=-318290.28571429,}, - [2]={["y"]=635033.42857143,["x"]=-317550.2857143,}, - [3]={["y"]=635864.85714286,["x"]=-317333.14285715,}, - [4]={["y"]=636967.71428571,["x"]=-317261.71428572,}, - [5]={["y"]=637144.85714286,["x"]=-317913.14285715,}, - [6]={["y"]=634630.57142857,["x"]=-318687.42857144,}, - [7]={["y"]=634424.85714286,["x"]=-318290.2857143,}, - }, - PointsRunways = { - [1] = { - [1]={["y"]=634509.71428571,["x"]=-318339.42857144,}, - [2]={["y"]=636767.42857143,["x"]=-317516.57142858,}, - [3]={["y"]=636790,["x"]=-317575.71428572,}, - [4]={["y"]=634531.42857143,["x"]=-318398.00000001,}, - [5]={["y"]=634510.28571429,["x"]=-318339.71428572,}, - }, - }, - ZoneBoundary = {}, - ZoneRunways = {}, - MaximumSpeed = 50, - }, - KrasnodarCenter = { - PointsBoundary = { - [1]={["y"]=366680.28571429,["x"]=11699.142857142,}, - [2]={["y"]=366654.28571429,["x"]=11225.142857142,}, - [3]={["y"]=367497.14285715,["x"]=11082.285714285,}, - [4]={["y"]=368025.71428572,["x"]=10396.57142857,}, - [5]={["y"]=369854.28571429,["x"]=11367.999999999,}, - [6]={["y"]=369840.00000001,["x"]=11910.857142856,}, - [7]={["y"]=366682.57142858,["x"]=11697.999999999,}, - }, - PointsRunways = { - [1] = { - [1]={["y"]=369205.42857144,["x"]=11789.142857142,}, - [2]={["y"]=369209.71428572,["x"]=11714.857142856,}, - [3]={["y"]=366699.71428572,["x"]=11581.714285713,}, - [4]={["y"]=366698.28571429,["x"]=11659.142857142,}, - [5]={["y"]=369208.85714286,["x"]=11788.57142857,}, - }, - }, - ZoneBoundary = {}, - ZoneRunways = {}, - MaximumSpeed = 50, - }, - KrasnodarPashkovsky = { - PointsBoundary = { - [1]={["y"]=386754,["x"]=6476.5714285703,}, - [2]={["y"]=389182.57142858,["x"]=8722.2857142846,}, - [3]={["y"]=388832.57142858,["x"]=9086.5714285703,}, - [4]={["y"]=386961.14285715,["x"]=7707.9999999989,}, - [5]={["y"]=385404,["x"]=9179.4285714274,}, - [6]={["y"]=383239.71428572,["x"]=7386.5714285703,}, - [7]={["y"]=383954,["x"]=6486.5714285703,}, - [8]={["y"]=385775.42857143,["x"]=8097.9999999989,}, - [9]={["y"]=386804,["x"]=7319.4285714274,}, - [10]={["y"]=386375.42857143,["x"]=6797.9999999989,}, - [11]={["y"]=386746.85714286,["x"]=6472.2857142846,}, - }, - PointsRunways = { - [1] = { - [1]={["y"]=385891.14285715,["x"]=8416.5714285703,}, - [2]={["y"]=385842.28571429,["x"]=8467.9999999989,}, - [3]={["y"]=384180.85714286,["x"]=6917.1428571417,}, - [4]={["y"]=384228.57142858,["x"]=6867.7142857132,}, - [5]={["y"]=385891.14285715,["x"]=8416.5714285703,}, - }, - [2] = { - [1]={["y"]=386714.85714286,["x"]=6674.857142856,}, - [2]={["y"]=386757.71428572,["x"]=6627.7142857132,}, - [3]={["y"]=389028.57142858,["x"]=8741.4285714275,}, - [4]={["y"]=388981.71428572,["x"]=8790.5714285703,}, - [5]={["y"]=386714.57142858,["x"]=6674.5714285703,}, - }, - }, - ZoneBoundary = {}, - ZoneRunways = {}, - MaximumSpeed = 50, - }, - Krymsk = { - PointsBoundary = { - [1]={["y"]=293338.00000001,["x"]=-7575.4285714297,}, - [2]={["y"]=295199.42857144,["x"]=-5434.0000000011,}, - [3]={["y"]=295595.14285715,["x"]=-6239.7142857154,}, - [4]={["y"]=294152.2857143,["x"]=-8325.4285714297,}, - [5]={["y"]=293345.14285715,["x"]=-7596.8571428582,}, - }, - PointsRunways = { - [1] = { - [1]={["y"]=293522.00000001,["x"]=-7567.4285714297,}, - [2]={["y"]=293578.57142858,["x"]=-7616.0000000011,}, - [3]={["y"]=295246.00000001,["x"]=-5591.142857144,}, - [4]={["y"]=295187.71428573,["x"]=-5546.0000000011,}, - [5]={["y"]=293523.14285715,["x"]=-7568.2857142868,}, - }, - }, - ZoneBoundary = {}, - ZoneRunways = {}, - MaximumSpeed = 50, - }, - Kutaisi = { - PointsBoundary = { - [1]={["y"]=682087.42857143,["x"]=-284512.85714286,}, - [2]={["y"]=685387.42857143,["x"]=-283662.85714286,}, - [3]={["y"]=685294.57142857,["x"]=-284977.14285715,}, - [4]={["y"]=682744.57142857,["x"]=-286505.71428572,}, - [5]={["y"]=682094.57142857,["x"]=-284527.14285715,}, - }, - PointsRunways = { - [1] = { - [1]={["y"]=682638,["x"]=-285202.28571429,}, - [2]={["y"]=685050.28571429,["x"]=-284507.42857144,}, - [3]={["y"]=685068.85714286,["x"]=-284578.85714286,}, - [4]={["y"]=682657.42857143,["x"]=-285264.28571429,}, - [5]={["y"]=682638.28571429,["x"]=-285202.85714286,}, - }, - }, - ZoneBoundary = {}, - ZoneRunways = {}, - MaximumSpeed = 50, - }, - MaykopKhanskaya = { - PointsBoundary = { - [1]={["y"]=456876.28571429,["x"]=-27665.42857143,}, - [2]={["y"]=457800,["x"]=-28392.857142858,}, - [3]={["y"]=459368.57142857,["x"]=-26378.571428573,}, - [4]={["y"]=459425.71428572,["x"]=-25242.857142858,}, - [5]={["y"]=458961.42857143,["x"]=-24964.285714287,}, - [6]={["y"]=456878.57142857,["x"]=-27667.714285715,}, - }, - PointsRunways = { - [1] = { - [1]={["y"]=457005.42857143,["x"]=-27668.000000001,}, - [2]={["y"]=459028.85714286,["x"]=-25168.857142858,}, - [3]={["y"]=459082.57142857,["x"]=-25216.857142858,}, - [4]={["y"]=457060,["x"]=-27714.285714287,}, - [5]={["y"]=457004.57142857,["x"]=-27669.714285715,}, - }, - }, - ZoneBoundary = {}, - ZoneRunways = {}, - MaximumSpeed = 50, - }, - MineralnyeVody = { - PointsBoundary = { - [1]={["y"]=703857.14285714,["x"]=-50226.000000002,}, - [2]={["y"]=707385.71428571,["x"]=-51911.714285716,}, - [3]={["y"]=707595.71428571,["x"]=-51434.857142859,}, - [4]={["y"]=707900,["x"]=-51568.857142859,}, - [5]={["y"]=707542.85714286,["x"]=-52326.000000002,}, - [6]={["y"]=706628.57142857,["x"]=-52568.857142859,}, - [7]={["y"]=705142.85714286,["x"]=-51790.285714288,}, - [8]={["y"]=703678.57142857,["x"]=-50611.714285716,}, - [9]={["y"]=703857.42857143,["x"]=-50226.857142859,}, - }, - PointsRunways = { - [1] = { - [1]={["y"]=703904,["x"]=-50352.571428573,}, - [2]={["y"]=707596.28571429,["x"]=-52094.571428573,}, - [3]={["y"]=707560.57142858,["x"]=-52161.714285716,}, - [4]={["y"]=703871.71428572,["x"]=-50420.571428573,}, - [5]={["y"]=703902,["x"]=-50352.000000002,}, - }, - }, - ZoneBoundary = {}, - ZoneRunways = {}, - MaximumSpeed = 50, - }, - Mozdok = { - PointsBoundary = { - [1]={["y"]=832123.42857143,["x"]=-83608.571428573,}, - [2]={["y"]=835916.28571429,["x"]=-83144.285714288,}, - [3]={["y"]=835474.28571429,["x"]=-84170.571428573,}, - [4]={["y"]=832911.42857143,["x"]=-84470.571428573,}, - [5]={["y"]=832487.71428572,["x"]=-85565.714285716,}, - [6]={["y"]=831573.42857143,["x"]=-85351.42857143,}, - [7]={["y"]=832123.71428572,["x"]=-83610.285714288,}, - }, - PointsRunways = { - [1] = { - [1]={["y"]=832201.14285715,["x"]=-83699.428571431,}, - [2]={["y"]=832212.57142857,["x"]=-83780.571428574,}, - [3]={["y"]=835730.28571429,["x"]=-83335.714285717,}, - [4]={["y"]=835718.85714286,["x"]=-83246.571428574,}, - [5]={["y"]=832200.57142857,["x"]=-83700.000000002,}, - }, - }, - ZoneBoundary = {}, - ZoneRunways = {}, - MaximumSpeed = 50, - }, - Nalchik = { - PointsBoundary = { - [1]={["y"]=759370,["x"]=-125502.85714286,}, - [2]={["y"]=761384.28571429,["x"]=-124177.14285714,}, - [3]={["y"]=761472.85714286,["x"]=-124325.71428572,}, - [4]={["y"]=761092.85714286,["x"]=-125048.57142857,}, - [5]={["y"]=760295.71428572,["x"]=-125685.71428572,}, - [6]={["y"]=759444.28571429,["x"]=-125734.28571429,}, - [7]={["y"]=759375.71428572,["x"]=-125511.42857143,}, - }, - PointsRunways = { - [1] = { - [1]={["y"]=759454.28571429,["x"]=-125551.42857143,}, - [2]={["y"]=759492.85714286,["x"]=-125610.85714286,}, - [3]={["y"]=761406.28571429,["x"]=-124304.28571429,}, - [4]={["y"]=761361.14285714,["x"]=-124239.71428572,}, - [5]={["y"]=759456,["x"]=-125552.57142857,}, - }, - }, - ZoneBoundary = {}, - ZoneRunways = {}, - MaximumSpeed = 50, - }, - Novorossiysk = { - PointsBoundary = { - [1]={["y"]=278677.71428573,["x"]=-41656.571428572,}, - [2]={["y"]=278446.2857143,["x"]=-41453.714285715,}, - [3]={["y"]=278989.14285716,["x"]=-40188.000000001,}, - [4]={["y"]=279717.71428573,["x"]=-39968.000000001,}, - [5]={["y"]=280020.57142859,["x"]=-40208.000000001,}, - [6]={["y"]=278674.85714287,["x"]=-41660.857142858,}, - }, - PointsRunways = { - [1] = { - [1]={["y"]=278673.14285716,["x"]=-41615.142857144,}, - [2]={["y"]=278625.42857144,["x"]=-41570.571428572,}, - [3]={["y"]=279835.42857144,["x"]=-40226.000000001,}, - [4]={["y"]=279882.2857143,["x"]=-40270.000000001,}, - [5]={["y"]=278672.00000001,["x"]=-41614.857142858,}, - }, - }, - ZoneBoundary = {}, - ZoneRunways = {}, - MaximumSpeed = 50, - }, - SenakiKolkhi = { - PointsBoundary = { - [1]={["y"]=646036.57142857,["x"]=-281778.85714286,}, - [2]={["y"]=646045.14285714,["x"]=-281191.71428571,}, - [3]={["y"]=647032.28571429,["x"]=-280598.85714285,}, - [4]={["y"]=647669.42857143,["x"]=-281273.14285714,}, - [5]={["y"]=648323.71428571,["x"]=-281370.28571428,}, - [6]={["y"]=648520.85714286,["x"]=-281978.85714285,}, - [7]={["y"]=646039.42857143,["x"]=-281783.14285714,}, - }, - PointsRunways = { - [1] = { - [1]={["y"]=646060.85714285,["x"]=-281736,}, - [2]={["y"]=646056.57142857,["x"]=-281631.71428571,}, - [3]={["y"]=648442.28571428,["x"]=-281840.28571428,}, - [4]={["y"]=648432.28571428,["x"]=-281918.85714286,}, - [5]={["y"]=646063.71428571,["x"]=-281738.85714286,}, - }, - }, - ZoneBoundary = {}, - ZoneRunways = {}, - MaximumSpeed = 50, - }, - SochiAdler = { - PointsBoundary = { - [1]={["y"]=460642.28571428,["x"]=-164861.71428571,}, - [2]={["y"]=462820.85714285,["x"]=-163368.85714286,}, - [3]={["y"]=463649.42857142,["x"]=-163340.28571429,}, - [4]={["y"]=463835.14285714,["x"]=-164040.28571429,}, - [5]={["y"]=462535.14285714,["x"]=-165654.57142857,}, - [6]={["y"]=460678,["x"]=-165247.42857143,}, - [7]={["y"]=460635.14285714,["x"]=-164876,}, - }, - PointsRunways = { - [1] = { - [1]={["y"]=460831.42857143,["x"]=-165180,}, - [2]={["y"]=460878.57142857,["x"]=-165257.14285714,}, - [3]={["y"]=463663.71428571,["x"]=-163793.14285714,}, - [4]={["y"]=463612.28571428,["x"]=-163697.42857143,}, - [5]={["y"]=460831.42857143,["x"]=-165177.14285714,}, - }, - [2] = { - [1]={["y"]=460831.42857143,["x"]=-165180,}, - [2]={["y"]=460878.57142857,["x"]=-165257.14285714,}, - [3]={["y"]=463663.71428571,["x"]=-163793.14285714,}, - [4]={["y"]=463612.28571428,["x"]=-163697.42857143,}, - [5]={["y"]=460831.42857143,["x"]=-165177.14285714,}, - }, - }, - ZoneBoundary = {}, - ZoneRunways = {}, - MaximumSpeed = 50, - }, - Soganlug = { - PointsBoundary = { - [1]={["y"]=894530.85714286,["x"]=-316928.28571428,}, - [2]={["y"]=896422.28571428,["x"]=-318622.57142857,}, - [3]={["y"]=896090.85714286,["x"]=-318934,}, - [4]={["y"]=894019.42857143,["x"]=-317119.71428571,}, - [5]={["y"]=894533.71428571,["x"]=-316925.42857143,}, - }, - PointsRunways = { - [1] = { - [1]={["y"]=894525.71428571,["x"]=-316964,}, - [2]={["y"]=896363.14285714,["x"]=-318634.28571428,}, - [3]={["y"]=896299.14285714,["x"]=-318702.85714286,}, - [4]={["y"]=894464,["x"]=-317031.71428571,}, - [5]={["y"]=894524.57142857,["x"]=-316963.71428571,}, - }, - }, - ZoneBoundary = {}, - ZoneRunways = {}, - MaximumSpeed = 50, - }, - SukhumiBabushara = { - PointsBoundary = { - [1]={["y"]=562541.14285714,["x"]=-219852.28571429,}, - [2]={["y"]=562691.14285714,["x"]=-219395.14285714,}, - [3]={["y"]=564326.85714286,["x"]=-219523.71428571,}, - [4]={["y"]=566262.57142857,["x"]=-221166.57142857,}, - [5]={["y"]=566069.71428571,["x"]=-221580.85714286,}, - [6]={["y"]=562534,["x"]=-219873.71428571,}, - }, - PointsRunways = { - [1] = { - [1]={["y"]=562684,["x"]=-219779.71428571,}, - [2]={["y"]=562717.71428571,["x"]=-219718,}, - [3]={["y"]=566046.85714286,["x"]=-221376.57142857,}, - [4]={["y"]=566012.28571428,["x"]=-221446.57142857,}, - [5]={["y"]=562684.57142857,["x"]=-219782.57142857,}, - }, - }, - ZoneBoundary = {}, - ZoneRunways = {}, - MaximumSpeed = 50, - }, - TbilisiLochini = { - PointsBoundary = { - [1]={["y"]=895172.85714286,["x"]=-314667.42857143,}, - [2]={["y"]=895337.42857143,["x"]=-314143.14285714,}, - [3]={["y"]=895990.28571429,["x"]=-314036,}, - [4]={["y"]=897730.28571429,["x"]=-315284.57142857,}, - [5]={["y"]=897901.71428571,["x"]=-316284.57142857,}, - [6]={["y"]=897684.57142857,["x"]=-316618.85714286,}, - [7]={["y"]=895173.14285714,["x"]=-314667.42857143,}, - }, - PointsRunways = { - [1] = { - [1]={["y"]=895261.14285715,["x"]=-314652.28571428,}, - [2]={["y"]=897654.57142857,["x"]=-316523.14285714,}, - [3]={["y"]=897711.71428571,["x"]=-316450.28571429,}, - [4]={["y"]=895327.42857143,["x"]=-314568.85714286,}, - [5]={["y"]=895261.71428572,["x"]=-314656,}, - }, - }, - ZoneBoundary = {}, - ZoneRunways = {}, - MaximumSpeed = 50, - }, - Vaziani = { - PointsBoundary = { - [1]={["y"]=902122,["x"]=-318163.71428572,}, - [2]={["y"]=902678.57142857,["x"]=-317594,}, - [3]={["y"]=903275.71428571,["x"]=-317405.42857143,}, - [4]={["y"]=903418.57142857,["x"]=-317891.14285714,}, - [5]={["y"]=904292.85714286,["x"]=-318748.28571429,}, - [6]={["y"]=904542,["x"]=-319740.85714286,}, - [7]={["y"]=904042,["x"]=-320166.57142857,}, - [8]={["y"]=902121.42857143,["x"]=-318164.85714286,}, - }, - PointsRunways = { - [1] = { - [1]={["y"]=902239.14285714,["x"]=-318190.85714286,}, - [2]={["y"]=904014.28571428,["x"]=-319994.57142857,}, - [3]={["y"]=904064.85714285,["x"]=-319945.14285715,}, - [4]={["y"]=902294.57142857,["x"]=-318146,}, - [5]={["y"]=902247.71428571,["x"]=-318190.85714286,}, - }, - }, - ZoneBoundary = {}, - ZoneRunways = {}, - MaximumSpeed = 50, - }, - }, -} - ---- Creates a new AIRBASEPOLICE_CAUCASUS object. --- @param #AIRBASEPOLICE_CAUCASUS self --- @param SetClient A SET_CLIENT object that will contain the CLIENT objects to be monitored if they follow the rules of the airbase. --- @return #AIRBASEPOLICE_CAUCASUS self -function AIRBASEPOLICE_CAUCASUS:New( SetClient ) - - -- Inherits from BASE - local self = BASE:Inherit( self, AIRBASEPOLICE_BASE:New( SetClient, self.Airbases ) ) - - -- -- AnapaVityazevo - -- local AnapaVityazevoBoundary = GROUP:FindByName( "AnapaVityazevo Boundary" ) - -- self.Airbases.AnapaVityazevo.ZoneBoundary = ZONE_POLYGON:New( "AnapaVityazevo Boundary", AnapaVityazevoBoundary ):SmokeZone(POINT_VEC3.SmokeColor.White):Flush() - -- - -- local AnapaVityazevoRunway1 = GROUP:FindByName( "AnapaVityazevo Runway 1" ) - -- self.Airbases.AnapaVityazevo.ZoneRunways[1] = ZONE_POLYGON:New( "AnapaVityazevo Runway 1", AnapaVityazevoRunway1 ):SmokeZone(POINT_VEC3.SmokeColor.Red):Flush() - -- - -- - -- - -- -- Batumi - -- local BatumiBoundary = GROUP:FindByName( "Batumi Boundary" ) - -- self.Airbases.Batumi.ZoneBoundary = ZONE_POLYGON:New( "Batumi Boundary", BatumiBoundary ):SmokeZone(POINT_VEC3.SmokeColor.White):Flush() - -- - -- local BatumiRunway1 = GROUP:FindByName( "Batumi Runway 1" ) - -- self.Airbases.Batumi.ZoneRunways[1] = ZONE_POLYGON:New( "Batumi Runway 1", BatumiRunway1 ):SmokeZone(POINT_VEC3.SmokeColor.Red):Flush() - -- - -- - -- - -- -- Beslan - -- local BeslanBoundary = GROUP:FindByName( "Beslan Boundary" ) - -- self.Airbases.Beslan.ZoneBoundary = ZONE_POLYGON:New( "Beslan Boundary", BeslanBoundary ):SmokeZone(POINT_VEC3.SmokeColor.White):Flush() - -- - -- local BeslanRunway1 = GROUP:FindByName( "Beslan Runway 1" ) - -- self.Airbases.Beslan.ZoneRunways[1] = ZONE_POLYGON:New( "Beslan Runway 1", BeslanRunway1 ):SmokeZone(POINT_VEC3.SmokeColor.Red):Flush() - -- - -- - -- - -- -- Gelendzhik - -- local GelendzhikBoundary = GROUP:FindByName( "Gelendzhik Boundary" ) - -- self.Airbases.Gelendzhik.ZoneBoundary = ZONE_POLYGON:New( "Gelendzhik Boundary", GelendzhikBoundary ):SmokeZone(POINT_VEC3.SmokeColor.White):Flush() - -- - -- local GelendzhikRunway1 = GROUP:FindByName( "Gelendzhik Runway 1" ) - -- self.Airbases.Gelendzhik.ZoneRunways[1] = ZONE_POLYGON:New( "Gelendzhik Runway 1", GelendzhikRunway1 ):SmokeZone(POINT_VEC3.SmokeColor.Red):Flush() - -- - -- - -- - -- -- Gudauta - -- local GudautaBoundary = GROUP:FindByName( "Gudauta Boundary" ) - -- self.Airbases.Gudauta.ZoneBoundary = ZONE_POLYGON:New( "Gudauta Boundary", GudautaBoundary ):SmokeZone(POINT_VEC3.SmokeColor.White):Flush() - -- - -- local GudautaRunway1 = GROUP:FindByName( "Gudauta Runway 1" ) - -- self.Airbases.Gudauta.ZoneRunways[1] = ZONE_POLYGON:New( "Gudauta Runway 1", GudautaRunway1 ):SmokeZone(POINT_VEC3.SmokeColor.Red):Flush() - -- - -- - -- - -- -- Kobuleti - -- local KobuletiBoundary = GROUP:FindByName( "Kobuleti Boundary" ) - -- self.Airbases.Kobuleti.ZoneBoundary = ZONE_POLYGON:New( "Kobuleti Boundary", KobuletiBoundary ):SmokeZone(POINT_VEC3.SmokeColor.White):Flush() - -- - -- local KobuletiRunway1 = GROUP:FindByName( "Kobuleti Runway 1" ) - -- self.Airbases.Kobuleti.ZoneRunways[1] = ZONE_POLYGON:New( "Kobuleti Runway 1", KobuletiRunway1 ):SmokeZone(POINT_VEC3.SmokeColor.Red):Flush() - -- - -- - -- - -- -- KrasnodarCenter - -- local KrasnodarCenterBoundary = GROUP:FindByName( "KrasnodarCenter Boundary" ) - -- self.Airbases.KrasnodarCenter.ZoneBoundary = ZONE_POLYGON:New( "KrasnodarCenter Boundary", KrasnodarCenterBoundary ):SmokeZone(POINT_VEC3.SmokeColor.White):Flush() - -- - -- local KrasnodarCenterRunway1 = GROUP:FindByName( "KrasnodarCenter Runway 1" ) - -- self.Airbases.KrasnodarCenter.ZoneRunways[1] = ZONE_POLYGON:New( "KrasnodarCenter Runway 1", KrasnodarCenterRunway1 ):SmokeZone(POINT_VEC3.SmokeColor.Red):Flush() - -- - -- - -- - -- -- KrasnodarPashkovsky - -- local KrasnodarPashkovskyBoundary = GROUP:FindByName( "KrasnodarPashkovsky Boundary" ) - -- self.Airbases.KrasnodarPashkovsky.ZoneBoundary = ZONE_POLYGON:New( "KrasnodarPashkovsky Boundary", KrasnodarPashkovskyBoundary ):SmokeZone(POINT_VEC3.SmokeColor.White):Flush() - -- - -- local KrasnodarPashkovskyRunway1 = GROUP:FindByName( "KrasnodarPashkovsky Runway 1" ) - -- self.Airbases.KrasnodarPashkovsky.ZoneRunways[1] = ZONE_POLYGON:New( "KrasnodarPashkovsky Runway 1", KrasnodarPashkovskyRunway1 ):SmokeZone(POINT_VEC3.SmokeColor.Red):Flush() - -- local KrasnodarPashkovskyRunway2 = GROUP:FindByName( "KrasnodarPashkovsky Runway 2" ) - -- self.Airbases.KrasnodarPashkovsky.ZoneRunways[2] = ZONE_POLYGON:New( "KrasnodarPashkovsky Runway 2", KrasnodarPashkovskyRunway2 ):SmokeZone(POINT_VEC3.SmokeColor.Red):Flush() - -- - -- - -- - -- -- Krymsk - -- local KrymskBoundary = GROUP:FindByName( "Krymsk Boundary" ) - -- self.Airbases.Krymsk.ZoneBoundary = ZONE_POLYGON:New( "Krymsk Boundary", KrymskBoundary ):SmokeZone(POINT_VEC3.SmokeColor.White):Flush() - -- - -- local KrymskRunway1 = GROUP:FindByName( "Krymsk Runway 1" ) - -- self.Airbases.Krymsk.ZoneRunways[1] = ZONE_POLYGON:New( "Krymsk Runway 1", KrymskRunway1 ):SmokeZone(POINT_VEC3.SmokeColor.Red):Flush() - -- - -- - -- - -- -- Kutaisi - -- local KutaisiBoundary = GROUP:FindByName( "Kutaisi Boundary" ) - -- self.Airbases.Kutaisi.ZoneBoundary = ZONE_POLYGON:New( "Kutaisi Boundary", KutaisiBoundary ):SmokeZone(POINT_VEC3.SmokeColor.White):Flush() - -- - -- local KutaisiRunway1 = GROUP:FindByName( "Kutaisi Runway 1" ) - -- self.Airbases.Kutaisi.ZoneRunways[1] = ZONE_POLYGON:New( "Kutaisi Runway 1", KutaisiRunway1 ):SmokeZone(POINT_VEC3.SmokeColor.Red):Flush() - -- - -- - -- - -- -- MaykopKhanskaya - -- local MaykopKhanskayaBoundary = GROUP:FindByName( "MaykopKhanskaya Boundary" ) - -- self.Airbases.MaykopKhanskaya.ZoneBoundary = ZONE_POLYGON:New( "MaykopKhanskaya Boundary", MaykopKhanskayaBoundary ):SmokeZone(POINT_VEC3.SmokeColor.White):Flush() - -- - -- local MaykopKhanskayaRunway1 = GROUP:FindByName( "MaykopKhanskaya Runway 1" ) - -- self.Airbases.MaykopKhanskaya.ZoneRunways[1] = ZONE_POLYGON:New( "MaykopKhanskaya Runway 1", MaykopKhanskayaRunway1 ):SmokeZone(POINT_VEC3.SmokeColor.Red):Flush() - -- - -- - -- - -- -- MineralnyeVody - -- local MineralnyeVodyBoundary = GROUP:FindByName( "MineralnyeVody Boundary" ) - -- self.Airbases.MineralnyeVody.ZoneBoundary = ZONE_POLYGON:New( "MineralnyeVody Boundary", MineralnyeVodyBoundary ):SmokeZone(POINT_VEC3.SmokeColor.White):Flush() - -- - -- local MineralnyeVodyRunway1 = GROUP:FindByName( "MineralnyeVody Runway 1" ) - -- self.Airbases.MineralnyeVody.ZoneRunways[1] = ZONE_POLYGON:New( "MineralnyeVody Runway 1", MineralnyeVodyRunway1 ):SmokeZone(POINT_VEC3.SmokeColor.Red):Flush() - -- - -- - -- - -- -- Mozdok - -- local MozdokBoundary = GROUP:FindByName( "Mozdok Boundary" ) - -- self.Airbases.Mozdok.ZoneBoundary = ZONE_POLYGON:New( "Mozdok Boundary", MozdokBoundary ):SmokeZone(POINT_VEC3.SmokeColor.White):Flush() - -- - -- local MozdokRunway1 = GROUP:FindByName( "Mozdok Runway 1" ) - -- self.Airbases.Mozdok.ZoneRunways[1] = ZONE_POLYGON:New( "Mozdok Runway 1", MozdokRunway1 ):SmokeZone(POINT_VEC3.SmokeColor.Red):Flush() - -- - -- - -- - -- -- Nalchik - -- local NalchikBoundary = GROUP:FindByName( "Nalchik Boundary" ) - -- self.Airbases.Nalchik.ZoneBoundary = ZONE_POLYGON:New( "Nalchik Boundary", NalchikBoundary ):SmokeZone(POINT_VEC3.SmokeColor.White):Flush() - -- - -- local NalchikRunway1 = GROUP:FindByName( "Nalchik Runway 1" ) - -- self.Airbases.Nalchik.ZoneRunways[1] = ZONE_POLYGON:New( "Nalchik Runway 1", NalchikRunway1 ):SmokeZone(POINT_VEC3.SmokeColor.Red):Flush() - -- - -- - -- - -- -- Novorossiysk - -- local NovorossiyskBoundary = GROUP:FindByName( "Novorossiysk Boundary" ) - -- self.Airbases.Novorossiysk.ZoneBoundary = ZONE_POLYGON:New( "Novorossiysk Boundary", NovorossiyskBoundary ):SmokeZone(POINT_VEC3.SmokeColor.White):Flush() - -- - -- local NovorossiyskRunway1 = GROUP:FindByName( "Novorossiysk Runway 1" ) - -- self.Airbases.Novorossiysk.ZoneRunways[1] = ZONE_POLYGON:New( "Novorossiysk Runway 1", NovorossiyskRunway1 ):SmokeZone(POINT_VEC3.SmokeColor.Red):Flush() - -- - -- - -- - -- -- SenakiKolkhi - -- local SenakiKolkhiBoundary = GROUP:FindByName( "SenakiKolkhi Boundary" ) - -- self.Airbases.SenakiKolkhi.ZoneBoundary = ZONE_POLYGON:New( "SenakiKolkhi Boundary", SenakiKolkhiBoundary ):SmokeZone(POINT_VEC3.SmokeColor.White):Flush() - -- - -- local SenakiKolkhiRunway1 = GROUP:FindByName( "SenakiKolkhi Runway 1" ) - -- self.Airbases.SenakiKolkhi.ZoneRunways[1] = ZONE_POLYGON:New( "SenakiKolkhi Runway 1", SenakiKolkhiRunway1 ):SmokeZone(POINT_VEC3.SmokeColor.Red):Flush() - -- - -- - -- - -- -- SochiAdler - -- local SochiAdlerBoundary = GROUP:FindByName( "SochiAdler Boundary" ) - -- self.Airbases.SochiAdler.ZoneBoundary = ZONE_POLYGON:New( "SochiAdler Boundary", SochiAdlerBoundary ):SmokeZone(POINT_VEC3.SmokeColor.White):Flush() - -- - -- local SochiAdlerRunway1 = GROUP:FindByName( "SochiAdler Runway 1" ) - -- self.Airbases.SochiAdler.ZoneRunways[1] = ZONE_POLYGON:New( "SochiAdler Runway 1", SochiAdlerRunway1 ):SmokeZone(POINT_VEC3.SmokeColor.Red):Flush() - -- local SochiAdlerRunway2 = GROUP:FindByName( "SochiAdler Runway 2" ) - -- self.Airbases.SochiAdler.ZoneRunways[2] = ZONE_POLYGON:New( "SochiAdler Runway 2", SochiAdlerRunway1 ):SmokeZone(POINT_VEC3.SmokeColor.Red):Flush() - -- - -- - -- - -- -- Soganlug - -- local SoganlugBoundary = GROUP:FindByName( "Soganlug Boundary" ) - -- self.Airbases.Soganlug.ZoneBoundary = ZONE_POLYGON:New( "Soganlug Boundary", SoganlugBoundary ):SmokeZone(POINT_VEC3.SmokeColor.White):Flush() - -- - -- local SoganlugRunway1 = GROUP:FindByName( "Soganlug Runway 1" ) - -- self.Airbases.Soganlug.ZoneRunways[1] = ZONE_POLYGON:New( "Soganlug Runway 1", SoganlugRunway1 ):SmokeZone(POINT_VEC3.SmokeColor.Red):Flush() - -- - -- - -- - -- -- SukhumiBabushara - -- local SukhumiBabusharaBoundary = GROUP:FindByName( "SukhumiBabushara Boundary" ) - -- self.Airbases.SukhumiBabushara.ZoneBoundary = ZONE_POLYGON:New( "SukhumiBabushara Boundary", SukhumiBabusharaBoundary ):SmokeZone(POINT_VEC3.SmokeColor.White):Flush() - -- - -- local SukhumiBabusharaRunway1 = GROUP:FindByName( "SukhumiBabushara Runway 1" ) - -- self.Airbases.SukhumiBabushara.ZoneRunways[1] = ZONE_POLYGON:New( "SukhumiBabushara Runway 1", SukhumiBabusharaRunway1 ):SmokeZone(POINT_VEC3.SmokeColor.Red):Flush() - -- - -- - -- - -- -- TbilisiLochini - -- local TbilisiLochiniBoundary = GROUP:FindByName( "TbilisiLochini Boundary" ) - -- self.Airbases.TbilisiLochini.ZoneBoundary = ZONE_POLYGON:New( "TbilisiLochini Boundary", TbilisiLochiniBoundary ):SmokeZone(POINT_VEC3.SmokeColor.White):Flush() - -- - -- local TbilisiLochiniRunway1 = GROUP:FindByName( "TbilisiLochini Runway 1" ) - -- self.Airbases.TbilisiLochini.ZoneRunways[1] = ZONE_POLYGON:New( "TbilisiLochini Runway 1", TbilisiLochiniRunway1 ):SmokeZone(POINT_VEC3.SmokeColor.Red):Flush() - -- - -- - -- - -- -- Vaziani - -- local VazianiBoundary = GROUP:FindByName( "Vaziani Boundary" ) - -- self.Airbases.Vaziani.ZoneBoundary = ZONE_POLYGON:New( "Vaziani Boundary", VazianiBoundary ):SmokeZone(POINT_VEC3.SmokeColor.White):Flush() - -- - -- local VazianiRunway1 = GROUP:FindByName( "Vaziani Runway 1" ) - -- self.Airbases.Vaziani.ZoneRunways[1] = ZONE_POLYGON:New( "Vaziani Runway 1", VazianiRunway1 ):SmokeZone(POINT_VEC3.SmokeColor.Red):Flush() - -- - -- - -- - - - -- -- Template - -- local TemplateBoundary = GROUP:FindByName( "Template Boundary" ) - -- self.Airbases.Template.ZoneBoundary = ZONE_POLYGON:New( "Template Boundary", TemplateBoundary ):SmokeZone(POINT_VEC3.SmokeColor.White):Flush() - -- - -- local TemplateRunway1 = GROUP:FindByName( "Template Runway 1" ) - -- self.Airbases.Template.ZoneRunways[1] = ZONE_POLYGON:New( "Template Runway 1", TemplateRunway1 ):SmokeZone(POINT_VEC3.SmokeColor.Red):Flush() - - return self - -end - ---- This module contains the DETECTION classes. --- --- === --- --- 1) @{Detection#DETECTION_BASE} class, extends @{Base#BASE} --- ========================================================== --- The @{Detection#DETECTION_BASE} class defines the core functions to administer detected objects. --- --- 1.1) DETECTION_BASE constructor --- ------------------------------- --- Construct a new DETECTION_BASE instance using the @{Detection#DETECTION_BASE.New}() method. --- --- 1.2) DETECTION_BASE initialization --- ---------------------------------- --- By default, detection will return detected objects with all the detection sensors available. --- However, you can ask how the objects were found with specific detection methods. --- If you use one of the below methods, the detection will work with the detection method specified. --- You can specify to apply multiple detection methods. --- --- Use the following functions to report the objects it detected using the methods Visual, Optical, Radar, IRST, RWR, DLINK: --- --- * @{Detection#DETECTION_BASE.InitDetectVisual}(): Detected using Visual. --- * @{Detection#DETECTION_BASE.InitDetectOptical}(): Detected using Optical. --- * @{Detection#DETECTION_BASE.InitDetectRadar}(): Detected using Radar. --- * @{Detection#DETECTION_BASE.InitDetectIRST}(): Detected using IRST. --- * @{Detection#DETECTION_BASE.InitDetectRWR}(): Detected using RWR. --- * @{Detection#DETECTION_BASE.InitDetectDLINK}(): Detected using DLINK. --- --- 1.3) Obtain objects detected by DETECTION_BASE --- ---------------------------------------------- --- DETECTION_BASE builds @{Set}s of objects detected. These @{Set#SET_BASE}s can be retrieved using the method @{Detection#DETECTION_BASE.GetDetectedSets}(). --- The method will return a list (table) of @{Set#SET_BASE} objects. --- --- === --- --- 2) @{Detection#DETECTION_UNITGROUPS} class, extends @{Detection#DETECTION_BASE} --- =============================================================================== --- The @{Detection#DETECTION_UNITGROUPS} class will detect units within the battle zone for a FAC group, --- and will build a list (table) of @{Set#SET_UNIT}s containing the @{Unit#UNIT}s detected. --- The class is group the detected units within zones given a DetectedZoneRange parameter. --- A set with multiple detected zones will be created as there are groups of units detected. --- --- 2.1) Retrieve the Detected Unit sets and Detected Zones --- ------------------------------------------------------- --- The DetectedUnitSets methods are implemented in @{Detection#DECTECTION_BASE} and the DetectedZones methods is implemented in @{Detection#DETECTION_UNITGROUPS}. --- --- Retrieve the DetectedUnitSets with the method @{Detection#DETECTION_BASE.GetDetectedSets}(). A table will be return of @{Set#SET_UNIT}s. --- To understand the amount of sets created, use the method @{Detection#DETECTION_BASE.GetDetectedSetCount}(). --- If you want to obtain a specific set from the DetectedSets, use the method @{Detection#DETECTION_BASE.GetDetectedSet}() with a given index. --- --- Retrieve the formed @{Zone@ZONE_UNIT}s as a result of the grouping the detected units within the DetectionZoneRange, use the method @{Detection#DETECTION_BASE.GetDetectionZones}(). --- To understand the amount of zones created, use the method @{Detection#DETECTION_BASE.GetDetectionZoneCount}(). --- If you want to obtain a specific zone from the DetectedZones, use the method @{Detection#DETECTION_BASE.GetDetectionZone}() with a given index. --- --- 1.4) Flare or Smoke detected units --- ---------------------------------- --- Use the methods @{Detection#DETECTION_UNITGROUPS.FlareDetectedUnits}() or @{Detection#DETECTION_UNITGROUPS.SmokeDetectedUnits}() to flare or smoke the detected units when a new detection has taken place. --- --- 1.5) Flare or Smoke detected zones --- ---------------------------------- --- Use the methods @{Detection#DETECTION_UNITGROUPS.FlareDetectedZones}() or @{Detection#DETECTION_UNITGROUPS.SmokeDetectedZones}() to flare or smoke the detected zones when a new detection has taken place. --- --- === --- --- @module Detection --- @author Mechanic : Concept & Testing --- @author FlightControl : Design & Programming - - - ---- DETECTION_BASE class --- @type DETECTION_BASE --- @field Group#GROUP FACGroup The GROUP in the Forward Air Controller role. --- @field DCSTypes#Distance DetectionRange The range till which targets are accepted to be detected. --- @field #DETECTION_BASE.DetectedSets DetectedSets A list of @{Set#SET_BASE}s containing the objects in each set that were detected. The base class will not build the detected sets, but will leave that to the derived classes. --- @extends Base#BASE -DETECTION_BASE = { - ClassName = "DETECTION_BASE", - DetectedSets = {}, - DetectedObjects = {}, - FACGroup = nil, - DetectionRange = nil, -} - ---- @type DETECTION_BASE.DetectedSets --- @list - - ---- @type DETECTION_BASE.DetectedZones --- @list - - ---- DETECTION constructor. --- @param #DETECTION_BASE self --- @param Group#GROUP FACGroup The GROUP in the Forward Air Controller role. --- @param DCSTypes#Distance DetectionRange The range till which targets are accepted to be detected. --- @return #DETECTION_BASE self -function DETECTION_BASE:New( FACGroup, DetectionRange ) - - -- Inherits from BASE - local self = BASE:Inherit( self, BASE:New() ) - - self.FACGroup = FACGroup - self.DetectionRange = DetectionRange - - self:InitDetectVisual( false ) - self:InitDetectOptical( false ) - self:InitDetectRadar( false ) - self:InitDetectRWR( false ) - self:InitDetectIRST( false ) - self:InitDetectDLINK( false ) - - return self -end - ---- Detect Visual. --- @param #DETECTION_BASE self --- @param #boolean DetectVisual --- @return #DETECTION_BASE self -function DETECTION_BASE:InitDetectVisual( DetectVisual ) - - self.DetectVisual = DetectVisual -end - ---- Detect Optical. --- @param #DETECTION_BASE self --- @param #boolean DetectOptical --- @return #DETECTION_BASE self -function DETECTION_BASE:InitDetectOptical( DetectOptical ) - self:F2() - - self.DetectOptical = DetectOptical -end - ---- Detect Radar. --- @param #DETECTION_BASE self --- @param #boolean DetectRadar --- @return #DETECTION_BASE self -function DETECTION_BASE:InitDetectRadar( DetectRadar ) - self:F2() - - self.DetectRadar = DetectRadar -end - ---- Detect IRST. --- @param #DETECTION_BASE self --- @param #boolean DetectIRST --- @return #DETECTION_BASE self -function DETECTION_BASE:InitDetectIRST( DetectIRST ) - self:F2() - - self.DetectIRST = DetectIRST -end - ---- Detect RWR. --- @param #DETECTION_BASE self --- @param #boolean DetectRWR --- @return #DETECTION_BASE self -function DETECTION_BASE:InitDetectRWR( DetectRWR ) - self:F2() - - self.DetectRWR = DetectRWR -end - ---- Detect DLINK. --- @param #DETECTION_BASE self --- @param #boolean DetectDLINK --- @return #DETECTION_BASE self -function DETECTION_BASE:InitDetectDLINK( DetectDLINK ) - self:F2() - - self.DetectDLINK = DetectDLINK -end - ---- Gets the FAC group. --- @param #DETECTION_BASE self --- @return Group#GROUP self -function DETECTION_BASE:GetFACGroup() - self:F2() - - return self.FACGroup -end - ---- Get the detected @{Set#SET_BASE}s. --- @param #DETECTION_BASE self --- @return #DETECTION_BASE.DetectedSets DetectedSets -function DETECTION_BASE:GetDetectedSets() - - local DetectionSets = self.DetectedSets - return DetectionSets -end - ---- Get the amount of SETs with detected objects. --- @param #DETECTION_BASE self --- @return #number Count -function DETECTION_BASE:GetDetectedSetCount() - - local DetectionSetCount = #self.DetectedSets - return DetectionSetCount -end - ---- Get a SET of detected objects using a given numeric index. --- @param #DETECTION_BASE self --- @param #number Index --- @return Set#SET_BASE -function DETECTION_BASE:GetDetectedSet( Index ) - - local DetectionSet = self.DetectedSets[Index] - if DetectionSet then - return DetectionSet - end - - return nil -end - - ---- Make a DetectionSet table. This function will be overridden in the derived clsses. --- @param #DETECTION_BASE self --- @return #DETECTION_BASE self -function DETECTION_BASE:CreateDetectionSets() - self:F2() - - self:E( "Error, in DETECTION_BASE class..." ) - -end - ---- Schedule the DETECTION construction. --- @param #DETECTION_BASE self --- @param #number DelayTime The delay in seconds to wait the reporting. --- @param #number RepeatInterval The repeat interval in seconds for the reporting to happen repeatedly. --- @return #DETECTION_BASE self -function DETECTION_BASE:Schedule( DelayTime, RepeatInterval ) - self:F2() - - self.ScheduleDelayTime = DelayTime - self.ScheduleRepeatInterval = RepeatInterval - - self.DetectionScheduler = SCHEDULER:New(self, self._DetectionScheduler, { self, "Detection" }, DelayTime, RepeatInterval ) - return self -end - - ---- Form @{Set}s of detected @{Unit#UNIT}s in an array of @{Set#SET_BASE}s. --- @param #DETECTION_BASE self -function DETECTION_BASE:_DetectionScheduler( SchedulerName ) - self:F2( { SchedulerName } ) - - self.DetectedObjects = {} - self.DetectedSets = {} - self.DetectedZones = {} - - if self.FACGroup:IsAlive() then - local FACGroupName = self.FACGroup:GetName() - - local FACDetectedTargets = self.FACGroup:GetDetectedTargets( - self.DetectVisual, - self.DetectOptical, - self.DetectRadar, - self.DetectIRST, - self.DetectRWR, - self.DetectDLINK - ) - - for FACDetectedTargetID, FACDetectedTarget in pairs( FACDetectedTargets ) do - local FACObject = FACDetectedTarget.object -- DCSObject#Object - self:T2( FACObject ) - - if FACObject and FACObject:isExist() and FACObject.id_ < 50000000 then - - local FACDetectedObjectName = FACObject:getName() - - local FACDetectedObjectPositionVec3 = FACObject:getPoint() - local FACGroupPositionVec3 = self.FACGroup:GetPointVec3() - - local Distance = ( ( FACDetectedObjectPositionVec3.x - FACGroupPositionVec3.x )^2 + - ( FACDetectedObjectPositionVec3.y - FACGroupPositionVec3.y )^2 + - ( FACDetectedObjectPositionVec3.z - FACGroupPositionVec3.z )^2 - ) ^ 0.5 / 1000 - - self:T( { FACGroupName, FACDetectedObjectName, Distance } ) - - if Distance <= self.DetectionRange then - - if not self.DetectedObjects[FACDetectedObjectName] then - self.DetectedObjects[FACDetectedObjectName] = {} - end - self.DetectedObjects[FACDetectedObjectName].Name = FACDetectedObjectName - self.DetectedObjects[FACDetectedObjectName].Visible = FACDetectedTarget.visible - self.DetectedObjects[FACDetectedObjectName].Type = FACDetectedTarget.type - self.DetectedObjects[FACDetectedObjectName].Distance = FACDetectedTarget.distance - else - -- if beyond the DetectionRange then nullify... - if self.DetectedObjects[FACDetectedObjectName] then - self.DetectedObjects[FACDetectedObjectName] = nil - end - end - end - end - - self:T2( self.DetectedObjects ) - - -- okay, now we have a list of detected object names ... - -- Sort the table based on distance ... - self:T( { "Sorting DetectedObjects table:", self.DetectedObjects } ) - table.sort( self.DetectedObjects, function( a, b ) return a.Distance < b.Distance end ) - self:T( { "Sorted Targets Table:", self.DetectedObjects } ) - - -- Now group the DetectedObjects table into SET_BASEs, evaluating the DetectionZoneRange. - - if self.DetectedObjects then - self:CreateDetectionSets() - end - - - end -end - ---- @type DETECTION_UNITGROUPS.DetectedSets --- @list --- - - ---- @type DETECTION_UNITGROUPS.DetectedZones --- @list --- - - ---- DETECTION_UNITGROUPS class --- @type DETECTION_UNITGROUPS --- @param DCSTypes#Distance DetectionZoneRange The range till which targets are grouped upon the first detected target. --- @field #DETECTION_UNITGROUPS.DetectedSets DetectedSets A list of @{Set#SET_UNIT}s containing the units in each set that were detected within a DetectionZoneRange. --- @field #DETECTION_UNITGROUPS.DetectedZones DetectedZones A list of @{Zone#ZONE_UNIT}s containing the zones of the reference detected units. --- @extends Detection#DETECTION_BASE -DETECTION_UNITGROUPS = { - ClassName = "DETECTION_UNITGROUPS", - DetectedZones = {}, -} - - - ---- DETECTION_UNITGROUPS constructor. --- @param Detection#DETECTION_UNITGROUPS self --- @param Group#GROUP FACGroup The GROUP in the Forward Air Controller role. --- @param DCSTypes#Distance DetectionRange The range till which targets are accepted to be detected. --- @param DCSTypes#Distance DetectionZoneRange The range till which targets are grouped upon the first detected target. --- @return Detection#DETECTION_UNITGROUPS self -function DETECTION_UNITGROUPS:New( FACGroup, DetectionRange, DetectionZoneRange ) - - -- Inherits from DETECTION_BASE - local self = BASE:Inherit( self, DETECTION_BASE:New( FACGroup, DetectionRange ) ) - self.DetectionZoneRange = DetectionZoneRange - - self:Schedule( 10, 30 ) - - return self -end - ---- Get the detected @{Zone#ZONE_UNIT}s. --- @param #DETECTION_UNITGROUPS self --- @return #DETECTION_UNITGROUPS.DetectedZones DetectedZones -function DETECTION_UNITGROUPS:GetDetectedZones() - - local DetectedZones = self.DetectedZones - return DetectedZones -end - ---- Get the amount of @{Zone#ZONE_UNIT}s with detected units. --- @param #DETECTION_UNITGROUPS self --- @return #number Count -function DETECTION_UNITGROUPS:GetDetectedZoneCount() - - local DetectedZoneCount = #self.DetectedZones - return DetectedZoneCount -end - ---- Get a SET of detected objects using a given numeric index. --- @param #DETECTION_UNITGROUPS self --- @param #number Index --- @return Zone#ZONE_UNIT -function DETECTION_UNITGROUPS:GetDetectedZone( Index ) - - local DetectedZone = self.DetectedZones[Index] - if DetectedZone then - return DetectedZone - end - - return nil -end - ---- Smoke the detected units --- @param #DETECTION_UNITGROUPS self --- @return #DETECTION_UNITGROUPS self -function DETECTION_UNITGROUPS:SmokeDetectedUnits() - self:F2() - - self._SmokeDetectedUnits = true - return self -end - ---- Flare the detected units --- @param #DETECTION_UNITGROUPS self --- @return #DETECTION_UNITGROUPS self -function DETECTION_UNITGROUPS:FlareDetectedUnits() - self:F2() - - self._FlareDetectedUnits = true - return self -end - ---- Smoke the detected zones --- @param #DETECTION_UNITGROUPS self --- @return #DETECTION_UNITGROUPS self -function DETECTION_UNITGROUPS:SmokeDetectedZones() - self:F2() - - self._SmokeDetectedZones = true - return self -end - ---- Flare the detected zones --- @param #DETECTION_UNITGROUPS self --- @return #DETECTION_UNITGROUPS self -function DETECTION_UNITGROUPS:FlareDetectedZones() - self:F2() - - self._FlareDetectedZones = true - return self -end - - ---- Make a DetectionSet table. This function will be overridden in the derived clsses. --- @param #DETECTION_UNITGROUPS self --- @return #DETECTION_UNITGROUPS self -function DETECTION_UNITGROUPS:CreateDetectionSets() - self:F2() - - for DetectedUnitName, DetectedUnitData in pairs( self.DetectedObjects ) do - self:T( DetectedUnitData.Name ) - local DetectedUnit = UNIT:FindByName( DetectedUnitData.Name ) -- Unit#UNIT - if DetectedUnit and DetectedUnit:IsAlive() then - self:T( DetectedUnit:GetName() ) - if #self.DetectedSets == 0 then - self:T( { "Adding Unit Set #", 1 } ) - self.DetectedZones[1] = ZONE_UNIT:New( DetectedUnitName, DetectedUnit, self.DetectionZoneRange ) - self.DetectedSets[1] = SET_UNIT:New() - self.DetectedSets[1]:AddUnit( DetectedUnit ) - else - local AddedToSet = false - for DetectedZoneIndex = 1, #self.DetectedZones do - self:T( "Detected Unit Set #" .. DetectedZoneIndex ) - local DetectedUnitSet = self.DetectedSets[DetectedZoneIndex] -- Set#SET_BASE - local DetectedZone = self.DetectedZones[DetectedZoneIndex] -- Zone#ZONE_UNIT - if DetectedUnit:IsInZone( DetectedZone ) then - self:T( "Adding to Unit Set #" .. DetectedZoneIndex ) - DetectedUnitSet:AddUnit( DetectedUnit ) - AddedToSet = true - end - end - if AddedToSet == false then - local DetectedZoneIndex = #self.DetectedZones + 1 - self:T( "Adding new zone #" .. DetectedZoneIndex ) - self.DetectedZones[DetectedZoneIndex] = ZONE_UNIT:New( DetectedUnitName, DetectedUnit, self.DetectionZoneRange ) - self.DetectedSets[DetectedZoneIndex] = SET_UNIT:New() - self.DetectedSets[DetectedZoneIndex]:AddUnit( DetectedUnit ) - end - end - end - end - - -- Now all the tests should have been build, now make some smoke and flares... - - for DetectedZoneIndex = 1, #self.DetectedZones do - local DetectedUnitSet = self.DetectedSets[DetectedZoneIndex] -- Set#SET_BASE - local DetectedZone = self.DetectedZones[DetectedZoneIndex] -- Zone#ZONE_UNIT - self:T( "Detected Set #" .. DetectedZoneIndex ) - DetectedUnitSet:ForEachUnit( - --- @param Unit#UNIT DetectedUnit - function( DetectedUnit ) - self:T( DetectedUnit:GetName() ) - if self._FlareDetectedUnits then - DetectedUnit:FlareRed() - end - if self._SmokeDetectedUnits then - DetectedUnit:SmokeRed() - end - end - ) - if self._FlareDetectedZones then - DetectedZone:FlareZone( POINT_VEC3.SmokeColor.White, 30, math.random( 0,90 ) ) - end - if self._SmokeDetectedZones then - DetectedZone:SmokeZone( POINT_VEC3.SmokeColor.White, 30 ) - end - end - -end - - ---- This module contains the FAC classes. --- --- === --- --- 1) @{Fac#FAC_BASE} class, extends @{Base#BASE} --- ============================================== --- The @{Fac#FAC_BASE} class defines the core functions to report detected objects to clients. --- Reportings can be done in several manners, and it is up to the derived classes if FAC_BASE to model the reporting behaviour. --- --- 1.1) FAC_BASE constructor: --- ---------------------------- --- * @{Fac#FAC_BASE.New}(): Create a new FAC_BASE instance. --- --- 1.2) FAC_BASE reporting: --- ------------------------ --- Derived FAC_BASE classes will reports detected units using the method @{Fac#FAC_BASE.ReportDetected}(). This method implements polymorphic behaviour. --- --- The time interval in seconds of the reporting can be changed using the methods @{Fac#FAC_BASE.SetReportInterval}(). --- To control how long a reporting message is displayed, use @{Fac#FAC_BASE.SetReportDisplayTime}(). --- Derived classes need to implement the method @{Fac#FAC_BASE.GetReportDisplayTime}() to use the correct display time for displayed messages during a report. --- --- Reporting can be started and stopped using the methods @{Fac#FAC_BASE.StartReporting}() and @{Fac#FAC_BASE.StopReporting}() respectively. --- If an ad-hoc report is requested, use the method @{Fac#FAC_BASE#ReportNow}(). --- --- The default reporting interval is every 60 seconds. The reporting messages are displayed 15 seconds. --- --- === --- --- 2) @{Fac#FAC_REPORTING} class, extends @{Fac#FAC_BASE} --- ====================================================== --- The @{Fac#FAC_REPORTING} class implements detected units reporting. Reporting can be controlled using the reporting methods available in the @{Fac#FAC_BASE} class. --- --- 2.1) FAC_REPORTING constructor: --- ------------------------------- --- The @{Fac#FAC_REPORTING.New}() method creates a new FAC_REPORTING instance. --- --- === --- --- @module Fac --- @author Mechanic, Prof_Hilactic, FlightControl : Concept & Testing --- @author FlightControl : Design & Programming - - - ---- FAC_BASE class. --- @type FAC_BASE --- @field Set#SET_CLIENT ClientSet The clients to which the FAC will report to. --- @field Detection#DETECTION_BASE Detection The DETECTION_BASE object that is used to report the detected objects. --- @extends Base#BASE -FAC_BASE = { - ClassName = "FAC_BASE", - ClientSet = nil, - Detection = nil, -} - ---- FAC constructor. --- @param #FAC_BASE self --- @param Set#SET_CLIENT ClientSet --- @param Detection#DETECTION_BASE Detection --- @return #FAC_BASE self -function FAC_BASE:New( ClientSet, Detection ) - - -- Inherits from BASE - local self = BASE:Inherit( self, BASE:New() ) -- Fac#FAC_BASE - - self.ClientSet = ClientSet - self.Detection = Detection - - self:SetReportInterval( 60 ) - self:SetReportDisplayTime( 15 ) - - return self -end - ---- Set the reporting time interval. --- @param #FAC_BASE self --- @param #number ReportInterval The interval in seconds when a report needs to be done. --- @return #FAC_BASE self -function FAC_BASE:SetReportInterval( ReportInterval ) - self:F2() - - self._ReportInterval = ReportInterval -end - - ---- Set the reporting message display time. --- @param #FAC_BASE self --- @param #number ReportDisplayTime The display time in seconds when a report needs to be done. --- @return #FAC_BASE self -function FAC_BASE:SetReportDisplayTime( ReportDisplayTime ) - self:F2() - - self._ReportDisplayTime = ReportDisplayTime -end - ---- Get the reporting message display time. --- @param #FAC_BASE self --- @return #number ReportDisplayTime The display time in seconds when a report needs to be done. -function FAC_BASE:GetReportDisplayTime() - self:F2() - - return self._ReportDisplayTime -end - ---- Reports the detected items to the @{Set#SET_CLIENT}. --- @param #FAC_BASE self --- @param Set#SET_BASE DetectedSets The detected Sets created by the @{Detection#DETECTION_BASE} object. --- @return #FAC_BASE self -function FAC_BASE:ReportDetected( DetectedSets ) - self:F2() - - - -end - ---- Schedule the FAC reporting. --- @param #FAC_BASE self --- @param #number DelayTime The delay in seconds to wait the reporting. --- @param #number ReportInterval The repeat interval in seconds for the reporting to happen repeatedly. --- @return #FAC_BASE self -function FAC_BASE:Schedule( DelayTime, ReportInterval ) - self:F2() - - self._ScheduleDelayTime = DelayTime - - self:SetReportInterval( ReportInterval ) - - self.FacScheduler = SCHEDULER:New(self, self._FacScheduler, { self, "Fac" }, self._ScheduleDelayTime, self._ReportInterval ) - return self -end - ---- Report the detected @{Unit#UNIT}s detected within the @{DetectION#DETECTION_BASE} object to the @{Set#SET_CLIENT}s. --- @param #FAC_BASE self -function FAC_BASE:_FacScheduler( SchedulerName ) - self:F2( { SchedulerName } ) - - self.ClientSet:ForEachClient( - --- @param Client#CLIENT Client - function( Client ) - if Client:IsAlive() then - local DetectedSets = self.Detection:GetDetectedSets() - return self:ReportDetected( Client, DetectedSets ) - end - end - ) - - return true -end - --- FAC_REPORTING - ---- FAC_REPORTING class. --- @type FAC_REPORTING --- @field Set#SET_CLIENT ClientSet The clients to which the FAC will report to. --- @field Detection#DETECTION_BASE Detection The DETECTION_BASE object that is used to report the detected objects. --- @extends #FAC_BASE -FAC_REPORTING = { - ClassName = "FAC_REPORTING", -} - - ---- FAC_REPORTING constructor. --- @param #FAC_REPORTING self --- @param Set#SET_CLIENT ClientSet --- @param Detection#DETECTION_BASE Detection --- @return #FAC_REPORTING self -function FAC_REPORTING:New( ClientSet, Detection ) - - -- Inherits from FAC_BASE - local self = BASE:Inherit( self, FAC_BASE:New( ClientSet, Detection ) ) -- #FAC_REPORTING - - self:Schedule( 5, 60 ) - return self -end - - ---- Reports the detected items to the @{Set#SET_CLIENT}. --- @param #FAC_REPORTING self --- @param Client#CLIENT Client The @{Client} object to where the report needs to go. --- @param Set#SET_BASE DetectedSets The detected Sets created by the @{Detection#DETECTION_BASE} object. --- @return #boolean Return true if you want the reporting to continue... false will cancel the reporting loop. -function FAC_REPORTING:ReportDetected( Client, DetectedSets ) - self:F2( Client ) - - local DetectedMsg = {} - for DetectedUnitSetID, DetectedUnitSet in pairs( DetectedSets ) do - local UnitSet = DetectedUnitSet -- Set#SET_UNIT - local MT = {} -- Message Text - local UnitTypes = {} - for DetectedUnitID, DetectedUnitData in pairs( UnitSet:GetSet() ) do - local DetectedUnit = DetectedUnitData -- Unit#UNIT - local UnitType = DetectedUnit:GetTypeName() - if not UnitTypes[UnitType] then - UnitTypes[UnitType] = 1 - else - UnitTypes[UnitType] = UnitTypes[UnitType] + 1 - end - end - for UnitTypeID, UnitType in pairs( UnitTypes ) do - MT[#MT+1] = UnitType .. " of " .. UnitTypeID - end - local MessageText = table.concat( MT, ", " ) - DetectedMsg[#DetectedMsg+1] = " - Group #" .. DetectedUnitSetID .. ": " .. MessageText - end - local FACGroup = self.Detection:GetFACGroup() - FACGroup:MessageToClient( "Reporting detected target groups:\n" .. table.concat( DetectedMsg, "\n" ), self:GetReportDisplayTime(), Client ) - - return true -end - - -BASE:TraceOnOff( false ) +BASE:TraceOnOff( true ) env.info( '*** MOOSE INCLUDE END *** ' ) diff --git a/Moose Mission Setup/Moose.lua b/Moose Mission Setup/Moose.lua index 02fd4b035..9567ea116 100644 --- a/Moose Mission Setup/Moose.lua +++ b/Moose Mission Setup/Moose.lua @@ -1,23578 +1,31 @@ -env.info( '*** MOOSE STATIC INCLUDE START *** ' ) -env.info( 'Moose Generation Timestamp: 20160706_0817' ) +env.info( '*** MOOSE DYNAMIC INCLUDE START *** ' ) +env.info( 'Moose Generation Timestamp: 20160707_2044' ) + local base = _G Include = {} -Include.Files = {} + Include.File = function( IncludeFile ) -end - ---- Various routines --- @module routines --- @author Flightcontrol - -env.setErrorMessageBoxEnabled(false) - ---- Extract of MIST functions. --- @author Grimes - -routines = {} - - --- don't change these -routines.majorVersion = 3 -routines.minorVersion = 3 -routines.build = 22 - ------------------------------------------------------------------------------------------------------------------ - ----------------------------------------------------------------------------------------------- --- Utils- conversion, Lua utils, etc. -routines.utils = {} - ---from http://lua-users.org/wiki/CopyTable -routines.utils.deepCopy = function(object) - local lookup_table = {} - local function _copy(object) - if type(object) ~= "table" then - return object - elseif lookup_table[object] then - return lookup_table[object] - end - local new_table = {} - lookup_table[object] = new_table - for index, value in pairs(object) do - new_table[_copy(index)] = _copy(value) - end - return setmetatable(new_table, getmetatable(object)) - end - local objectreturn = _copy(object) - return objectreturn -end - - --- porting in Slmod's serialize_slmod2 -routines.utils.oneLineSerialize = function(tbl) -- serialization of a table all on a single line, no comments, made to replace old get_table_string function - - lookup_table = {} - - local function _Serialize( tbl ) - - if type(tbl) == 'table' then --function only works for tables! - - if lookup_table[tbl] then - return lookup_table[object] - end - - local tbl_str = {} - - lookup_table[tbl] = tbl_str - - tbl_str[#tbl_str + 1] = '{' - - for ind,val in pairs(tbl) do -- serialize its fields - local ind_str = {} - if type(ind) == "number" then - ind_str[#ind_str + 1] = '[' - ind_str[#ind_str + 1] = tostring(ind) - ind_str[#ind_str + 1] = ']=' - else --must be a string - ind_str[#ind_str + 1] = '[' - ind_str[#ind_str + 1] = routines.utils.basicSerialize(ind) - ind_str[#ind_str + 1] = ']=' - end - - local val_str = {} - if ((type(val) == 'number') or (type(val) == 'boolean')) then - val_str[#val_str + 1] = tostring(val) - val_str[#val_str + 1] = ',' - tbl_str[#tbl_str + 1] = table.concat(ind_str) - tbl_str[#tbl_str + 1] = table.concat(val_str) - elseif type(val) == 'string' then - val_str[#val_str + 1] = routines.utils.basicSerialize(val) - val_str[#val_str + 1] = ',' - tbl_str[#tbl_str + 1] = table.concat(ind_str) - tbl_str[#tbl_str + 1] = table.concat(val_str) - elseif type(val) == 'nil' then -- won't ever happen, right? - val_str[#val_str + 1] = 'nil,' - tbl_str[#tbl_str + 1] = table.concat(ind_str) - tbl_str[#tbl_str + 1] = table.concat(val_str) - elseif type(val) == 'table' then - if ind == "__index" then - -- tbl_str[#tbl_str + 1] = "__index" - -- tbl_str[#tbl_str + 1] = ',' --I think this is right, I just added it - else - - val_str[#val_str + 1] = _Serialize(val) - val_str[#val_str + 1] = ',' --I think this is right, I just added it - tbl_str[#tbl_str + 1] = table.concat(ind_str) - tbl_str[#tbl_str + 1] = table.concat(val_str) - end - elseif type(val) == 'function' then - -- tbl_str[#tbl_str + 1] = "function " .. tostring(ind) - -- tbl_str[#tbl_str + 1] = ',' --I think this is right, I just added it - else --- env.info('unable to serialize value type ' .. routines.utils.basicSerialize(type(val)) .. ' at index ' .. tostring(ind)) --- env.info( debug.traceback() ) - end - - end - tbl_str[#tbl_str + 1] = '}' - return table.concat(tbl_str) + if not Include.Files[ IncludeFile ] then + Include.Files[IncludeFile] = IncludeFile + env.info( "Include:" .. IncludeFile .. " from " .. Include.ProgramPath ) + local f = assert( base.loadfile( Include.ProgramPath .. IncludeFile .. ".lua" ) ) + if f == nil then + error ("Could not load MOOSE file " .. IncludeFile .. ".lua" ) else - return tostring(tbl) - end - end - - local objectreturn = _Serialize(tbl) - return objectreturn -end - ---porting in Slmod's "safestring" basic serialize -routines.utils.basicSerialize = function(s) - if s == nil then - return "\"\"" - else - if ((type(s) == 'number') or (type(s) == 'boolean') or (type(s) == 'function') or (type(s) == 'table') or (type(s) == 'userdata') ) then - return tostring(s) - elseif type(s) == 'string' then - s = string.format('%q', s) - return s + env.info( "Include:" .. IncludeFile .. " loaded from " .. Include.ProgramPath ) + return f() end end end +Include.ProgramPath = "Scripts/Moose/" -routines.utils.toDegree = function(angle) - return angle*180/math.pi -end +env.info( "Include.ProgramPath = " .. Include.ProgramPath) -routines.utils.toRadian = function(angle) - return angle*math.pi/180 -end +Include.Files = {} -routines.utils.metersToNM = function(meters) - return meters/1852 -end - -routines.utils.metersToFeet = function(meters) - return meters/0.3048 -end - -routines.utils.NMToMeters = function(NM) - return NM*1852 -end - -routines.utils.feetToMeters = function(feet) - return feet*0.3048 -end - -routines.utils.mpsToKnots = function(mps) - return mps*3600/1852 -end - -routines.utils.mpsToKmph = function(mps) - return mps*3.6 -end - -routines.utils.knotsToMps = function(knots) - return knots*1852/3600 -end - -routines.utils.kmphToMps = function(kmph) - return kmph/3.6 -end - -function routines.utils.makeVec2(Vec3) - if Vec3.z then - return {x = Vec3.x, y = Vec3.z} - else - return {x = Vec3.x, y = Vec3.y} -- it was actually already vec2. - end -end - -function routines.utils.makeVec3(Vec2, y) - if not Vec2.z then - if not y then - y = 0 - end - return {x = Vec2.x, y = y, z = Vec2.y} - else - return {x = Vec2.x, y = Vec2.y, z = Vec2.z} -- it was already Vec3, actually. - end -end - -function routines.utils.makeVec3GL(Vec2, offset) - local adj = offset or 0 - - if not Vec2.z then - return {x = Vec2.x, y = (land.getHeight(Vec2) + adj), z = Vec2.y} - else - return {x = Vec2.x, y = (land.getHeight({x = Vec2.x, y = Vec2.z}) + adj), z = Vec2.z} - end -end - -routines.utils.zoneToVec3 = function(zone) - local new = {} - if type(zone) == 'table' and zone.point then - new.x = zone.point.x - new.y = zone.point.y - new.z = zone.point.z - return new - elseif type(zone) == 'string' then - zone = trigger.misc.getZone(zone) - if zone then - new.x = zone.point.x - new.y = zone.point.y - new.z = zone.point.z - return new - end - end -end - --- gets heading-error corrected direction from point along vector vec. -function routines.utils.getDir(vec, point) - local dir = math.atan2(vec.z, vec.x) - dir = dir + routines.getNorthCorrection(point) - if dir < 0 then - dir = dir + 2*math.pi -- put dir in range of 0 to 2*pi - end - return dir -end - --- gets distance in meters between two points (2 dimensional) -function routines.utils.get2DDist(point1, point2) - point1 = routines.utils.makeVec3(point1) - point2 = routines.utils.makeVec3(point2) - return routines.vec.mag({x = point1.x - point2.x, y = 0, z = point1.z - point2.z}) -end - --- gets distance in meters between two points (3 dimensional) -function routines.utils.get3DDist(point1, point2) - return routines.vec.mag({x = point1.x - point2.x, y = point1.y - point2.y, z = point1.z - point2.z}) -end - - - --- From http://lua-users.org/wiki/SimpleRound --- use negative idp for rounding ahead of decimal place, positive for rounding after decimal place -routines.utils.round = function(num, idp) - local mult = 10^(idp or 0) - return math.floor(num * mult + 0.5) / mult -end - --- porting in Slmod's dostring -routines.utils.dostring = function(s) - local f, err = loadstring(s) - if f then - return true, f() - else - return false, err - end -end - - ---3D Vector manipulation -routines.vec = {} - -routines.vec.add = function(vec1, vec2) - return {x = vec1.x + vec2.x, y = vec1.y + vec2.y, z = vec1.z + vec2.z} -end - -routines.vec.sub = function(vec1, vec2) - return {x = vec1.x - vec2.x, y = vec1.y - vec2.y, z = vec1.z - vec2.z} -end - -routines.vec.scalarMult = function(vec, mult) - return {x = vec.x*mult, y = vec.y*mult, z = vec.z*mult} -end - -routines.vec.scalar_mult = routines.vec.scalarMult - -routines.vec.dp = function(vec1, vec2) - return vec1.x*vec2.x + vec1.y*vec2.y + vec1.z*vec2.z -end - -routines.vec.cp = function(vec1, vec2) - return { x = vec1.y*vec2.z - vec1.z*vec2.y, y = vec1.z*vec2.x - vec1.x*vec2.z, z = vec1.x*vec2.y - vec1.y*vec2.x} -end - -routines.vec.mag = function(vec) - return (vec.x^2 + vec.y^2 + vec.z^2)^0.5 -end - -routines.vec.getUnitVec = function(vec) - local mag = routines.vec.mag(vec) - return { x = vec.x/mag, y = vec.y/mag, z = vec.z/mag } -end - -routines.vec.rotateVec2 = function(vec2, theta) - return { x = vec2.x*math.cos(theta) - vec2.y*math.sin(theta), y = vec2.x*math.sin(theta) + vec2.y*math.cos(theta)} -end ---------------------------------------------------------------------------------------------------------------------------- - - - - --- acc- the accuracy of each easting/northing. 0, 1, 2, 3, 4, or 5. -routines.tostringMGRS = function(MGRS, acc) - if acc == 0 then - return MGRS.UTMZone .. ' ' .. MGRS.MGRSDigraph - else - return MGRS.UTMZone .. ' ' .. MGRS.MGRSDigraph .. ' ' .. string.format('%0' .. acc .. 'd', routines.utils.round(MGRS.Easting/(10^(5-acc)), 0)) - .. ' ' .. string.format('%0' .. acc .. 'd', routines.utils.round(MGRS.Northing/(10^(5-acc)), 0)) - end -end - ---[[acc: -in DM: decimal point of minutes. -In DMS: decimal point of seconds. -position after the decimal of the least significant digit: -So: -42.32 - acc of 2. -]] -routines.tostringLL = function(lat, lon, acc, DMS) - - local latHemi, lonHemi - if lat > 0 then - latHemi = 'N' - else - latHemi = 'S' - end - - if lon > 0 then - lonHemi = 'E' - else - lonHemi = 'W' - end - - lat = math.abs(lat) - lon = math.abs(lon) - - local latDeg = math.floor(lat) - local latMin = (lat - latDeg)*60 - - local lonDeg = math.floor(lon) - local lonMin = (lon - lonDeg)*60 - - if DMS then -- degrees, minutes, and seconds. - local oldLatMin = latMin - latMin = math.floor(latMin) - local latSec = routines.utils.round((oldLatMin - latMin)*60, acc) - - local oldLonMin = lonMin - lonMin = math.floor(lonMin) - local lonSec = routines.utils.round((oldLonMin - lonMin)*60, acc) - - if latSec == 60 then - latSec = 0 - latMin = latMin + 1 - end - - if lonSec == 60 then - lonSec = 0 - lonMin = lonMin + 1 - end - - local secFrmtStr -- create the formatting string for the seconds place - if acc <= 0 then -- no decimal place. - secFrmtStr = '%02d' - else - local width = 3 + acc -- 01.310 - that's a width of 6, for example. - secFrmtStr = '%0' .. width .. '.' .. acc .. 'f' - end - - return string.format('%02d', latDeg) .. ' ' .. string.format('%02d', latMin) .. '\' ' .. string.format(secFrmtStr, latSec) .. '"' .. latHemi .. ' ' - .. string.format('%02d', lonDeg) .. ' ' .. string.format('%02d', lonMin) .. '\' ' .. string.format(secFrmtStr, lonSec) .. '"' .. lonHemi - - else -- degrees, decimal minutes. - latMin = routines.utils.round(latMin, acc) - lonMin = routines.utils.round(lonMin, acc) - - if latMin == 60 then - latMin = 0 - latDeg = latDeg + 1 - end - - if lonMin == 60 then - lonMin = 0 - lonDeg = lonDeg + 1 - end - - local minFrmtStr -- create the formatting string for the minutes place - if acc <= 0 then -- no decimal place. - minFrmtStr = '%02d' - else - local width = 3 + acc -- 01.310 - that's a width of 6, for example. - minFrmtStr = '%0' .. width .. '.' .. acc .. 'f' - end - - return string.format('%02d', latDeg) .. ' ' .. string.format(minFrmtStr, latMin) .. '\'' .. latHemi .. ' ' - .. string.format('%02d', lonDeg) .. ' ' .. string.format(minFrmtStr, lonMin) .. '\'' .. lonHemi - - end -end - ---[[ required: az - radian - required: dist - meters - optional: alt - meters (set to false or nil if you don't want to use it). - optional: metric - set true to get dist and alt in km and m. - precision will always be nearest degree and NM or km.]] -routines.tostringBR = function(az, dist, alt, metric) - az = routines.utils.round(routines.utils.toDegree(az), 0) - - if metric then - dist = routines.utils.round(dist/1000, 2) - else - dist = routines.utils.round(routines.utils.metersToNM(dist), 2) - end - - local s = string.format('%03d', az) .. ' for ' .. dist - - if alt then - if metric then - s = s .. ' at ' .. routines.utils.round(alt, 0) - else - s = s .. ' at ' .. routines.utils.round(routines.utils.metersToFeet(alt), 0) - end - end - return s -end - -routines.getNorthCorrection = function(point) --gets the correction needed for true north - if not point.z then --Vec2; convert to Vec3 - point.z = point.y - point.y = 0 - end - local lat, lon = coord.LOtoLL(point) - local north_posit = coord.LLtoLO(lat + 1, lon) - return math.atan2(north_posit.z - point.z, north_posit.x - point.x) -end - - -do - local idNum = 0 - - --Simplified event handler - routines.addEventHandler = function(f) --id is optional! - local handler = {} - idNum = idNum + 1 - handler.id = idNum - handler.f = f - handler.onEvent = function(self, event) - self.f(event) - end - world.addEventHandler(handler) - end - - routines.removeEventHandler = function(id) - for key, handler in pairs(world.eventHandlers) do - if handler.id and handler.id == id then - world.eventHandlers[key] = nil - return true - end - end - return false - end -end - --- need to return a Vec3 or Vec2? -function routines.getRandPointInCircle(point, radius, innerRadius) - local theta = 2*math.pi*math.random() - local rad = math.random() + math.random() - if rad > 1 then - rad = 2 - rad - end - - local radMult - if innerRadius and innerRadius <= radius then - radMult = (radius - innerRadius)*rad + innerRadius - else - radMult = radius*rad - end - - if not point.z then --might as well work with vec2/3 - point.z = point.y - end - - local rndCoord - if radius > 0 then - rndCoord = {x = math.cos(theta)*radMult + point.x, y = math.sin(theta)*radMult + point.z} - else - rndCoord = {x = point.x, y = point.z} - end - return rndCoord -end - -routines.goRoute = function(group, path) - local misTask = { - id = 'Mission', - params = { - route = { - points = routines.utils.deepCopy(path), - }, - }, - } - if type(group) == 'string' then - group = Group.getByName(group) - end - local groupCon = group:getController() - if groupCon then - groupCon:setTask(misTask) - return true - end - - Controller.setTask(groupCon, misTask) - return false -end - - --- Useful atomic functions from mist, ported. - -routines.ground = {} -routines.fixedWing = {} -routines.heli = {} - -routines.ground.buildWP = function(point, overRideForm, overRideSpeed) - - local wp = {} - wp.x = point.x - - if point.z then - wp.y = point.z - else - wp.y = point.y - end - local form, speed - - if point.speed and not overRideSpeed then - wp.speed = point.speed - elseif type(overRideSpeed) == 'number' then - wp.speed = overRideSpeed - else - wp.speed = routines.utils.kmphToMps(20) - end - - if point.form and not overRideForm then - form = point.form - else - form = overRideForm - end - - if not form then - wp.action = 'Cone' - else - form = string.lower(form) - if form == 'off_road' or form == 'off road' then - wp.action = 'Off Road' - elseif form == 'on_road' or form == 'on road' then - wp.action = 'On Road' - elseif form == 'rank' or form == 'line_abrest' or form == 'line abrest' or form == 'lineabrest'then - wp.action = 'Rank' - elseif form == 'cone' then - wp.action = 'Cone' - elseif form == 'diamond' then - wp.action = 'Diamond' - elseif form == 'vee' then - wp.action = 'Vee' - elseif form == 'echelon_left' or form == 'echelon left' or form == 'echelonl' then - wp.action = 'EchelonL' - elseif form == 'echelon_right' or form == 'echelon right' or form == 'echelonr' then - wp.action = 'EchelonR' - else - wp.action = 'Cone' -- if nothing matched - end - end - - wp.type = 'Turning Point' - - return wp - -end - -routines.fixedWing.buildWP = function(point, WPtype, speed, alt, altType) - - local wp = {} - wp.x = point.x - - if point.z then - wp.y = point.z - else - wp.y = point.y - end - - if alt and type(alt) == 'number' then - wp.alt = alt - else - wp.alt = 2000 - end - - if altType then - altType = string.lower(altType) - if altType == 'radio' or 'agl' then - wp.alt_type = 'RADIO' - elseif altType == 'baro' or 'asl' then - wp.alt_type = 'BARO' - end - else - wp.alt_type = 'RADIO' - end - - if point.speed then - speed = point.speed - end - - if point.type then - WPtype = point.type - end - - if not speed then - wp.speed = routines.utils.kmphToMps(500) - else - wp.speed = speed - end - - if not WPtype then - wp.action = 'Turning Point' - else - WPtype = string.lower(WPtype) - if WPtype == 'flyover' or WPtype == 'fly over' or WPtype == 'fly_over' then - wp.action = 'Fly Over Point' - elseif WPtype == 'turningpoint' or WPtype == 'turning point' or WPtype == 'turning_point' then - wp.action = 'Turning Point' - else - wp.action = 'Turning Point' - end - end - - wp.type = 'Turning Point' - return wp -end - -routines.heli.buildWP = function(point, WPtype, speed, alt, altType) - - local wp = {} - wp.x = point.x - - if point.z then - wp.y = point.z - else - wp.y = point.y - end - - if alt and type(alt) == 'number' then - wp.alt = alt - else - wp.alt = 500 - end - - if altType then - altType = string.lower(altType) - if altType == 'radio' or 'agl' then - wp.alt_type = 'RADIO' - elseif altType == 'baro' or 'asl' then - wp.alt_type = 'BARO' - end - else - wp.alt_type = 'RADIO' - end - - if point.speed then - speed = point.speed - end - - if point.type then - WPtype = point.type - end - - if not speed then - wp.speed = routines.utils.kmphToMps(200) - else - wp.speed = speed - end - - if not WPtype then - wp.action = 'Turning Point' - else - WPtype = string.lower(WPtype) - if WPtype == 'flyover' or WPtype == 'fly over' or WPtype == 'fly_over' then - wp.action = 'Fly Over Point' - elseif WPtype == 'turningpoint' or WPtype == 'turning point' or WPtype == 'turning_point' then - wp.action = 'Turning Point' - else - wp.action = 'Turning Point' - end - end - - wp.type = 'Turning Point' - return wp -end - -routines.groupToRandomPoint = function(vars) - local group = vars.group --Required - local point = vars.point --required - local radius = vars.radius or 0 - local innerRadius = vars.innerRadius - local form = vars.form or 'Cone' - local heading = vars.heading or math.random()*2*math.pi - local headingDegrees = vars.headingDegrees - local speed = vars.speed or routines.utils.kmphToMps(20) - - - local useRoads - if not vars.disableRoads then - useRoads = true - else - useRoads = false - end - - local path = {} - - if headingDegrees then - heading = headingDegrees*math.pi/180 - end - - if heading >= 2*math.pi then - heading = heading - 2*math.pi - end - - local rndCoord = routines.getRandPointInCircle(point, radius, innerRadius) - - local offset = {} - local posStart = routines.getLeadPos(group) - - offset.x = routines.utils.round(math.sin(heading - (math.pi/2)) * 50 + rndCoord.x, 3) - offset.z = routines.utils.round(math.cos(heading + (math.pi/2)) * 50 + rndCoord.y, 3) - path[#path + 1] = routines.ground.buildWP(posStart, form, speed) - - - if useRoads == true and ((point.x - posStart.x)^2 + (point.z - posStart.z)^2)^0.5 > radius * 1.3 then - path[#path + 1] = routines.ground.buildWP({['x'] = posStart.x + 11, ['z'] = posStart.z + 11}, 'off_road', speed) - path[#path + 1] = routines.ground.buildWP(posStart, 'on_road', speed) - path[#path + 1] = routines.ground.buildWP(offset, 'on_road', speed) - else - path[#path + 1] = routines.ground.buildWP({['x'] = posStart.x + 25, ['z'] = posStart.z + 25}, form, speed) - end - - path[#path + 1] = routines.ground.buildWP(offset, form, speed) - path[#path + 1] = routines.ground.buildWP(rndCoord, form, speed) - - routines.goRoute(group, path) - - return -end - -routines.groupRandomDistSelf = function(gpData, dist, form, heading, speed) - local pos = routines.getLeadPos(gpData) - local fakeZone = {} - fakeZone.radius = dist or math.random(300, 1000) - fakeZone.point = {x = pos.x, y, pos.y, z = pos.z} - routines.groupToRandomZone(gpData, fakeZone, form, heading, speed) - - return -end - -routines.groupToRandomZone = function(gpData, zone, form, heading, speed) - if type(gpData) == 'string' then - gpData = Group.getByName(gpData) - end - - if type(zone) == 'string' then - zone = trigger.misc.getZone(zone) - elseif type(zone) == 'table' and not zone.radius then - zone = trigger.misc.getZone(zone[math.random(1, #zone)]) - end - - if speed then - speed = routines.utils.kmphToMps(speed) - end - - local vars = {} - vars.group = gpData - vars.radius = zone.radius - vars.form = form - vars.headingDegrees = heading - vars.speed = speed - vars.point = routines.utils.zoneToVec3(zone) - - routines.groupToRandomPoint(vars) - - return -end - -routines.isTerrainValid = function(coord, terrainTypes) -- vec2/3 and enum or table of acceptable terrain types - if coord.z then - coord.y = coord.z - end - local typeConverted = {} - - if type(terrainTypes) == 'string' then -- if its a string it does this check - for constId, constData in pairs(land.SurfaceType) do - if string.lower(constId) == string.lower(terrainTypes) or string.lower(constData) == string.lower(terrainTypes) then - table.insert(typeConverted, constId) - end - end - elseif type(terrainTypes) == 'table' then -- if its a table it does this check - for typeId, typeData in pairs(terrainTypes) do - for constId, constData in pairs(land.SurfaceType) do - if string.lower(constId) == string.lower(typeData) or string.lower(constData) == string.lower(typeId) then - table.insert(typeConverted, constId) - end - end - end - end - for validIndex, validData in pairs(typeConverted) do - if land.getSurfaceType(coord) == land.SurfaceType[validData] then - return true - end - end - return false -end - -routines.groupToPoint = function(gpData, point, form, heading, speed, useRoads) - if type(point) == 'string' then - point = trigger.misc.getZone(point) - end - if speed then - speed = routines.utils.kmphToMps(speed) - end - - local vars = {} - vars.group = gpData - vars.form = form - vars.headingDegrees = heading - vars.speed = speed - vars.disableRoads = useRoads - vars.point = routines.utils.zoneToVec3(point) - routines.groupToRandomPoint(vars) - - return -end - - -routines.getLeadPos = function(group) - if type(group) == 'string' then -- group name - group = Group.getByName(group) - end - - local units = group:getUnits() - - local leader = units[1] - if not leader then -- SHOULD be good, but if there is a bug, this code future-proofs it then. - local lowestInd = math.huge - for ind, unit in pairs(units) do - if ind < lowestInd then - lowestInd = ind - leader = unit - end - end - end - if leader and Unit.isExist(leader) then -- maybe a little too paranoid now... - return leader:getPosition().p - end -end - ---[[ vars for routines.getMGRSString: -vars.units - table of unit names (NOT unitNameTable- maybe this should change). -vars.acc - integer between 0 and 5, inclusive -]] -routines.getMGRSString = function(vars) - local units = vars.units - local acc = vars.acc or 5 - local avgPos = routines.getAvgPos(units) - if avgPos then - return routines.tostringMGRS(coord.LLtoMGRS(coord.LOtoLL(avgPos)), acc) - end -end - ---[[ vars for routines.getLLString -vars.units - table of unit names (NOT unitNameTable- maybe this should change). -vars.acc - integer, number of numbers after decimal place -vars.DMS - if true, output in degrees, minutes, seconds. Otherwise, output in degrees, minutes. - - -]] -routines.getLLString = function(vars) - local units = vars.units - local acc = vars.acc or 3 - local DMS = vars.DMS - local avgPos = routines.getAvgPos(units) - if avgPos then - local lat, lon = coord.LOtoLL(avgPos) - return routines.tostringLL(lat, lon, acc, DMS) - end -end - ---[[ -vars.zone - table of a zone name. -vars.ref - vec3 ref point, maybe overload for vec2 as well? -vars.alt - boolean, if used, includes altitude in string -vars.metric - boolean, gives distance in km instead of NM. -]] -routines.getBRStringZone = function(vars) - local zone = trigger.misc.getZone( vars.zone ) - local ref = routines.utils.makeVec3(vars.ref, 0) -- turn it into Vec3 if it is not already. - local alt = vars.alt - local metric = vars.metric - if zone then - local vec = {x = zone.point.x - ref.x, y = zone.point.y - ref.y, z = zone.point.z - ref.z} - local dir = routines.utils.getDir(vec, ref) - local dist = routines.utils.get2DDist(zone.point, ref) - if alt then - alt = zone.y - end - return routines.tostringBR(dir, dist, alt, metric) - else - env.info( 'routines.getBRStringZone: error: zone is nil' ) - end -end - ---[[ -vars.units- table of unit names (NOT unitNameTable- maybe this should change). -vars.ref - vec3 ref point, maybe overload for vec2 as well? -vars.alt - boolean, if used, includes altitude in string -vars.metric - boolean, gives distance in km instead of NM. -]] -routines.getBRString = function(vars) - local units = vars.units - local ref = routines.utils.makeVec3(vars.ref, 0) -- turn it into Vec3 if it is not already. - local alt = vars.alt - local metric = vars.metric - local avgPos = routines.getAvgPos(units) - if avgPos then - local vec = {x = avgPos.x - ref.x, y = avgPos.y - ref.y, z = avgPos.z - ref.z} - local dir = routines.utils.getDir(vec, ref) - local dist = routines.utils.get2DDist(avgPos, ref) - if alt then - alt = avgPos.y - end - return routines.tostringBR(dir, dist, alt, metric) - end -end - - --- Returns the Vec3 coordinates of the average position of the concentration of units most in the heading direction. ---[[ vars for routines.getLeadingPos: -vars.units - table of unit names -vars.heading - direction -vars.radius - number -vars.headingDegrees - boolean, switches heading to degrees -]] -routines.getLeadingPos = function(vars) - local units = vars.units - local heading = vars.heading - local radius = vars.radius - if vars.headingDegrees then - heading = routines.utils.toRadian(vars.headingDegrees) - end - - local unitPosTbl = {} - for i = 1, #units do - local unit = Unit.getByName(units[i]) - if unit and unit:isExist() then - unitPosTbl[#unitPosTbl + 1] = unit:getPosition().p - end - end - if #unitPosTbl > 0 then -- one more more units found. - -- first, find the unit most in the heading direction - local maxPos = -math.huge - - local maxPosInd -- maxPos - the furthest in direction defined by heading; maxPosInd = - for i = 1, #unitPosTbl do - local rotatedVec2 = routines.vec.rotateVec2(routines.utils.makeVec2(unitPosTbl[i]), heading) - if (not maxPos) or maxPos < rotatedVec2.x then - maxPos = rotatedVec2.x - maxPosInd = i - end - end - - --now, get all the units around this unit... - local avgPos - if radius then - local maxUnitPos = unitPosTbl[maxPosInd] - local avgx, avgy, avgz, totNum = 0, 0, 0, 0 - for i = 1, #unitPosTbl do - if routines.utils.get2DDist(maxUnitPos, unitPosTbl[i]) <= radius then - avgx = avgx + unitPosTbl[i].x - avgy = avgy + unitPosTbl[i].y - avgz = avgz + unitPosTbl[i].z - totNum = totNum + 1 - end - end - avgPos = { x = avgx/totNum, y = avgy/totNum, z = avgz/totNum} - else - avgPos = unitPosTbl[maxPosInd] - end - - return avgPos - end -end - - ---[[ vars for routines.getLeadingMGRSString: -vars.units - table of unit names -vars.heading - direction -vars.radius - number -vars.headingDegrees - boolean, switches heading to degrees -vars.acc - number, 0 to 5. -]] -routines.getLeadingMGRSString = function(vars) - local pos = routines.getLeadingPos(vars) - if pos then - local acc = vars.acc or 5 - return routines.tostringMGRS(coord.LLtoMGRS(coord.LOtoLL(pos)), acc) - end -end - ---[[ vars for routines.getLeadingLLString: -vars.units - table of unit names -vars.heading - direction, number -vars.radius - number -vars.headingDegrees - boolean, switches heading to degrees -vars.acc - number of digits after decimal point (can be negative) -vars.DMS - boolean, true if you want DMS. -]] -routines.getLeadingLLString = function(vars) - local pos = routines.getLeadingPos(vars) - if pos then - local acc = vars.acc or 3 - local DMS = vars.DMS - local lat, lon = coord.LOtoLL(pos) - return routines.tostringLL(lat, lon, acc, DMS) - end -end - - - ---[[ vars for routines.getLeadingBRString: -vars.units - table of unit names -vars.heading - direction, number -vars.radius - number -vars.headingDegrees - boolean, switches heading to degrees -vars.metric - boolean, if true, use km instead of NM. -vars.alt - boolean, if true, include altitude. -vars.ref - vec3/vec2 reference point. -]] -routines.getLeadingBRString = function(vars) - local pos = routines.getLeadingPos(vars) - if pos then - local ref = vars.ref - local alt = vars.alt - local metric = vars.metric - - local vec = {x = pos.x - ref.x, y = pos.y - ref.y, z = pos.z - ref.z} - local dir = routines.utils.getDir(vec, ref) - local dist = routines.utils.get2DDist(pos, ref) - if alt then - alt = pos.y - end - return routines.tostringBR(dir, dist, alt, metric) - end -end - ---[[ vars for routines.message.add - vars.text = 'Hello World' - vars.displayTime = 20 - vars.msgFor = {coa = {'red'}, countries = {'Ukraine', 'Georgia'}, unitTypes = {'A-10C'}} - -]] - ---[[ vars for routines.msgMGRS -vars.units - table of unit names (NOT unitNameTable- maybe this should change). -vars.acc - integer between 0 and 5, inclusive -vars.text - text in the message -vars.displayTime - self explanatory -vars.msgFor - scope -]] -routines.msgMGRS = function(vars) - local units = vars.units - local acc = vars.acc - local text = vars.text - local displayTime = vars.displayTime - local msgFor = vars.msgFor - - local s = routines.getMGRSString{units = units, acc = acc} - local newText - if string.find(text, '%%s') then -- look for %s - newText = string.format(text, s) -- insert the coordinates into the message - else -- else, just append to the end. - newText = text .. s - end - - routines.message.add{ - text = newText, - displayTime = displayTime, - msgFor = msgFor - } -end - ---[[ vars for routines.msgLL -vars.units - table of unit names (NOT unitNameTable- maybe this should change) (Yes). -vars.acc - integer, number of numbers after decimal place -vars.DMS - if true, output in degrees, minutes, seconds. Otherwise, output in degrees, minutes. -vars.text - text in the message -vars.displayTime - self explanatory -vars.msgFor - scope -]] -routines.msgLL = function(vars) - local units = vars.units -- technically, I don't really need to do this, but it helps readability. - local acc = vars.acc - local DMS = vars.DMS - local text = vars.text - local displayTime = vars.displayTime - local msgFor = vars.msgFor - - local s = routines.getLLString{units = units, acc = acc, DMS = DMS} - local newText - if string.find(text, '%%s') then -- look for %s - newText = string.format(text, s) -- insert the coordinates into the message - else -- else, just append to the end. - newText = text .. s - end - - routines.message.add{ - text = newText, - displayTime = displayTime, - msgFor = msgFor - } - -end - - ---[[ -vars.units- table of unit names (NOT unitNameTable- maybe this should change). -vars.ref - vec3 ref point, maybe overload for vec2 as well? -vars.alt - boolean, if used, includes altitude in string -vars.metric - boolean, gives distance in km instead of NM. -vars.text - text of the message -vars.displayTime -vars.msgFor - scope -]] -routines.msgBR = function(vars) - local units = vars.units -- technically, I don't really need to do this, but it helps readability. - local ref = vars.ref -- vec2/vec3 will be handled in routines.getBRString - local alt = vars.alt - local metric = vars.metric - local text = vars.text - local displayTime = vars.displayTime - local msgFor = vars.msgFor - - local s = routines.getBRString{units = units, ref = ref, alt = alt, metric = metric} - local newText - if string.find(text, '%%s') then -- look for %s - newText = string.format(text, s) -- insert the coordinates into the message - else -- else, just append to the end. - newText = text .. s - end - - routines.message.add{ - text = newText, - displayTime = displayTime, - msgFor = msgFor - } - -end - - --------------------------------------------------------------------------------------------- --- basically, just sub-types of routines.msgBR... saves folks the work of getting the ref point. ---[[ -vars.units- table of unit names (NOT unitNameTable- maybe this should change). -vars.ref - string red, blue -vars.alt - boolean, if used, includes altitude in string -vars.metric - boolean, gives distance in km instead of NM. -vars.text - text of the message -vars.displayTime -vars.msgFor - scope -]] -routines.msgBullseye = function(vars) - if string.lower(vars.ref) == 'red' then - vars.ref = routines.DBs.missionData.bullseye.red - routines.msgBR(vars) - elseif string.lower(vars.ref) == 'blue' then - vars.ref = routines.DBs.missionData.bullseye.blue - routines.msgBR(vars) - end -end - ---[[ -vars.units- table of unit names (NOT unitNameTable- maybe this should change). -vars.ref - unit name of reference point -vars.alt - boolean, if used, includes altitude in string -vars.metric - boolean, gives distance in km instead of NM. -vars.text - text of the message -vars.displayTime -vars.msgFor - scope -]] - -routines.msgBRA = function(vars) - if Unit.getByName(vars.ref) then - vars.ref = Unit.getByName(vars.ref):getPosition().p - if not vars.alt then - vars.alt = true - end - routines.msgBR(vars) - end -end --------------------------------------------------------------------------------------------- - ---[[ vars for routines.msgLeadingMGRS: -vars.units - table of unit names -vars.heading - direction -vars.radius - number -vars.headingDegrees - boolean, switches heading to degrees (optional) -vars.acc - number, 0 to 5. -vars.text - text of the message -vars.displayTime -vars.msgFor - scope -]] -routines.msgLeadingMGRS = function(vars) - local units = vars.units -- technically, I don't really need to do this, but it helps readability. - local heading = vars.heading - local radius = vars.radius - local headingDegrees = vars.headingDegrees - local acc = vars.acc - local text = vars.text - local displayTime = vars.displayTime - local msgFor = vars.msgFor - - local s = routines.getLeadingMGRSString{units = units, heading = heading, radius = radius, headingDegrees = headingDegrees, acc = acc} - local newText - if string.find(text, '%%s') then -- look for %s - newText = string.format(text, s) -- insert the coordinates into the message - else -- else, just append to the end. - newText = text .. s - end - - routines.message.add{ - text = newText, - displayTime = displayTime, - msgFor = msgFor - } - - -end ---[[ vars for routines.msgLeadingLL: -vars.units - table of unit names -vars.heading - direction, number -vars.radius - number -vars.headingDegrees - boolean, switches heading to degrees (optional) -vars.acc - number of digits after decimal point (can be negative) -vars.DMS - boolean, true if you want DMS. (optional) -vars.text - text of the message -vars.displayTime -vars.msgFor - scope -]] -routines.msgLeadingLL = function(vars) - local units = vars.units -- technically, I don't really need to do this, but it helps readability. - local heading = vars.heading - local radius = vars.radius - local headingDegrees = vars.headingDegrees - local acc = vars.acc - local DMS = vars.DMS - local text = vars.text - local displayTime = vars.displayTime - local msgFor = vars.msgFor - - local s = routines.getLeadingLLString{units = units, heading = heading, radius = radius, headingDegrees = headingDegrees, acc = acc, DMS = DMS} - local newText - if string.find(text, '%%s') then -- look for %s - newText = string.format(text, s) -- insert the coordinates into the message - else -- else, just append to the end. - newText = text .. s - end - - routines.message.add{ - text = newText, - displayTime = displayTime, - msgFor = msgFor - } - -end - ---[[ -vars.units - table of unit names -vars.heading - direction, number -vars.radius - number -vars.headingDegrees - boolean, switches heading to degrees (optional) -vars.metric - boolean, if true, use km instead of NM. (optional) -vars.alt - boolean, if true, include altitude. (optional) -vars.ref - vec3/vec2 reference point. -vars.text - text of the message -vars.displayTime -vars.msgFor - scope -]] -routines.msgLeadingBR = function(vars) - local units = vars.units -- technically, I don't really need to do this, but it helps readability. - local heading = vars.heading - local radius = vars.radius - local headingDegrees = vars.headingDegrees - local metric = vars.metric - local alt = vars.alt - local ref = vars.ref -- vec2/vec3 will be handled in routines.getBRString - local text = vars.text - local displayTime = vars.displayTime - local msgFor = vars.msgFor - - local s = routines.getLeadingBRString{units = units, heading = heading, radius = radius, headingDegrees = headingDegrees, metric = metric, alt = alt, ref = ref} - local newText - if string.find(text, '%%s') then -- look for %s - newText = string.format(text, s) -- insert the coordinates into the message - else -- else, just append to the end. - newText = text .. s - end - - routines.message.add{ - text = newText, - displayTime = displayTime, - msgFor = msgFor - } -end - - -function spairs(t, order) - -- collect the keys - local keys = {} - for k in pairs(t) do keys[#keys+1] = k end - - -- if order function given, sort by it by passing the table and keys a, b, - -- otherwise just sort the keys - if order then - table.sort(keys, function(a,b) return order(t, a, b) end) - else - table.sort(keys) - end - - -- return the iterator function - local i = 0 - return function() - i = i + 1 - if keys[i] then - return keys[i], t[keys[i]] - end - end -end - - -function routines.IsPartOfGroupInZones( CargoGroup, LandingZones ) ---trace.f() - - local CurrentZoneID = nil - - if CargoGroup then - local CargoUnits = CargoGroup:getUnits() - for CargoUnitID, CargoUnit in pairs( CargoUnits ) do - if CargoUnit and CargoUnit:getLife() >= 1.0 then - CurrentZoneID = routines.IsUnitInZones( CargoUnit, LandingZones ) - if CurrentZoneID then - break - end - end - end - end - ---trace.r( "", "", { CurrentZoneID } ) - return CurrentZoneID -end - - - -function routines.IsUnitInZones( TransportUnit, LandingZones ) ---trace.f("", "routines.IsUnitInZones" ) - - local TransportZoneResult = nil - local TransportZonePos = nil - local TransportZone = nil - - -- fill-up some local variables to support further calculations to determine location of units within the zone. - if TransportUnit then - local TransportUnitPos = TransportUnit:getPosition().p - if type( LandingZones ) == "table" then - for LandingZoneID, LandingZoneName in pairs( LandingZones ) do - TransportZone = trigger.misc.getZone( LandingZoneName ) - if TransportZone then - TransportZonePos = {radius = TransportZone.radius, x = TransportZone.point.x, y = TransportZone.point.y, z = TransportZone.point.z} - if ((( TransportUnitPos.x - TransportZonePos.x)^2 + (TransportUnitPos.z - TransportZonePos.z)^2)^0.5 <= TransportZonePos.radius) then - TransportZoneResult = LandingZoneID - break - end - end - end - else - TransportZone = trigger.misc.getZone( LandingZones ) - TransportZonePos = {radius = TransportZone.radius, x = TransportZone.point.x, y = TransportZone.point.y, z = TransportZone.point.z} - if ((( TransportUnitPos.x - TransportZonePos.x)^2 + (TransportUnitPos.z - TransportZonePos.z)^2)^0.5 <= TransportZonePos.radius) then - TransportZoneResult = 1 - end - end - if TransportZoneResult then - --trace.i( "routines", "TransportZone:" .. TransportZoneResult ) - else - --trace.i( "routines", "TransportZone:nil logic" ) - end - return TransportZoneResult - else - --trace.i( "routines", "TransportZone:nil hard" ) - return nil - end -end - -function routines.IsUnitNearZonesRadius( TransportUnit, LandingZones, ZoneRadius ) ---trace.f("", "routines.IsUnitInZones" ) - - local TransportZoneResult = nil - local TransportZonePos = nil - local TransportZone = nil - - -- fill-up some local variables to support further calculations to determine location of units within the zone. - if TransportUnit then - local TransportUnitPos = TransportUnit:getPosition().p - if type( LandingZones ) == "table" then - for LandingZoneID, LandingZoneName in pairs( LandingZones ) do - TransportZone = trigger.misc.getZone( LandingZoneName ) - if TransportZone then - TransportZonePos = {radius = TransportZone.radius, x = TransportZone.point.x, y = TransportZone.point.y, z = TransportZone.point.z} - if ((( TransportUnitPos.x - TransportZonePos.x)^2 + (TransportUnitPos.z - TransportZonePos.z)^2)^0.5 <= ZoneRadius ) then - TransportZoneResult = LandingZoneID - break - end - end - end - else - TransportZone = trigger.misc.getZone( LandingZones ) - TransportZonePos = {radius = TransportZone.radius, x = TransportZone.point.x, y = TransportZone.point.y, z = TransportZone.point.z} - if ((( TransportUnitPos.x - TransportZonePos.x)^2 + (TransportUnitPos.z - TransportZonePos.z)^2)^0.5 <= ZoneRadius ) then - TransportZoneResult = 1 - end - end - if TransportZoneResult then - --trace.i( "routines", "TransportZone:" .. TransportZoneResult ) - else - --trace.i( "routines", "TransportZone:nil logic" ) - end - return TransportZoneResult - else - --trace.i( "routines", "TransportZone:nil hard" ) - return nil - end -end - - -function routines.IsStaticInZones( TransportStatic, LandingZones ) ---trace.f() - - local TransportZoneResult = nil - local TransportZonePos = nil - local TransportZone = nil - - -- fill-up some local variables to support further calculations to determine location of units within the zone. - local TransportStaticPos = TransportStatic:getPosition().p - if type( LandingZones ) == "table" then - for LandingZoneID, LandingZoneName in pairs( LandingZones ) do - TransportZone = trigger.misc.getZone( LandingZoneName ) - if TransportZone then - TransportZonePos = {radius = TransportZone.radius, x = TransportZone.point.x, y = TransportZone.point.y, z = TransportZone.point.z} - if ((( TransportStaticPos.x - TransportZonePos.x)^2 + (TransportStaticPos.z - TransportZonePos.z)^2)^0.5 <= TransportZonePos.radius) then - TransportZoneResult = LandingZoneID - break - end - end - end - else - TransportZone = trigger.misc.getZone( LandingZones ) - TransportZonePos = {radius = TransportZone.radius, x = TransportZone.point.x, y = TransportZone.point.y, z = TransportZone.point.z} - if ((( TransportStaticPos.x - TransportZonePos.x)^2 + (TransportStaticPos.z - TransportZonePos.z)^2)^0.5 <= TransportZonePos.radius) then - TransportZoneResult = 1 - end - end - ---trace.r( "", "", { TransportZoneResult } ) - return TransportZoneResult -end - - -function routines.IsUnitInRadius( CargoUnit, ReferencePosition, Radius ) ---trace.f() - - local Valid = true - - -- fill-up some local variables to support further calculations to determine location of units within the zone. - local CargoPos = CargoUnit:getPosition().p - local ReferenceP = ReferencePosition.p - - if (((CargoPos.x - ReferenceP.x)^2 + (CargoPos.z - ReferenceP.z)^2)^0.5 <= Radius) then - else - Valid = false - end - - return Valid -end - -function routines.IsPartOfGroupInRadius( CargoGroup, ReferencePosition, Radius ) ---trace.f() - - local Valid = true - - Valid = routines.ValidateGroup( CargoGroup, "CargoGroup", Valid ) - - -- fill-up some local variables to support further calculations to determine location of units within the zone - local CargoUnits = CargoGroup:getUnits() - for CargoUnitId, CargoUnit in pairs( CargoUnits ) do - local CargoUnitPos = CargoUnit:getPosition().p --- env.info( 'routines.IsPartOfGroupInRadius: CargoUnitPos.x = ' .. CargoUnitPos.x .. ' CargoUnitPos.z = ' .. CargoUnitPos.z ) - local ReferenceP = ReferencePosition.p --- env.info( 'routines.IsPartOfGroupInRadius: ReferenceGroupPos.x = ' .. ReferenceGroupPos.x .. ' ReferenceGroupPos.z = ' .. ReferenceGroupPos.z ) - - if ((( CargoUnitPos.x - ReferenceP.x)^2 + (CargoUnitPos.z - ReferenceP.z)^2)^0.5 <= Radius) then - else - Valid = false - break - end - end - - return Valid -end - - -function routines.ValidateString( Variable, VariableName, Valid ) ---trace.f() - - if type( Variable ) == "string" then - if Variable == "" then - error( "routines.ValidateString: error: " .. VariableName .. " must be filled out!" ) - Valid = false - end - else - error( "routines.ValidateString: error: " .. VariableName .. " is not a string." ) - Valid = false - end - ---trace.r( "", "", { Valid } ) - return Valid -end - -function routines.ValidateNumber( Variable, VariableName, Valid ) ---trace.f() - - if type( Variable ) == "number" then - else - error( "routines.ValidateNumber: error: " .. VariableName .. " is not a number." ) - Valid = false - end - ---trace.r( "", "", { Valid } ) - return Valid - -end - -function routines.ValidateGroup( Variable, VariableName, Valid ) ---trace.f() - - if Variable == nil then - error( "routines.ValidateGroup: error: " .. VariableName .. " is a nil value!" ) - Valid = false - end - ---trace.r( "", "", { Valid } ) - return Valid -end - -function routines.ValidateZone( LandingZones, VariableName, Valid ) ---trace.f() - - if LandingZones == nil then - error( "routines.ValidateGroup: error: " .. VariableName .. " is a nil value!" ) - Valid = false - end - - if type( LandingZones ) == "table" then - for LandingZoneID, LandingZoneName in pairs( LandingZones ) do - if trigger.misc.getZone( LandingZoneName ) == nil then - error( "routines.ValidateGroup: error: Zone " .. LandingZoneName .. " does not exist!" ) - Valid = false - break - end - end - else - if trigger.misc.getZone( LandingZones ) == nil then - error( "routines.ValidateGroup: error: Zone " .. LandingZones .. " does not exist!" ) - Valid = false - end - end - ---trace.r( "", "", { Valid } ) - return Valid -end - -function routines.ValidateEnumeration( Variable, VariableName, Enum, Valid ) ---trace.f() - - local ValidVariable = false - - for EnumId, EnumData in pairs( Enum ) do - if Variable == EnumData then - ValidVariable = true - break - end - end - - if ValidVariable then - else - error( 'TransportValidateEnum: " .. VariableName .. " is not a valid type.' .. Variable ) - Valid = false - end - ---trace.r( "", "", { Valid } ) - return Valid -end - -function routines.getGroupRoute(groupIdent, task) -- same as getGroupPoints but returns speed and formation type along with vec2 of point} - -- refactor to search by groupId and allow groupId and groupName as inputs - local gpId = groupIdent - if type(groupIdent) == 'string' and not tonumber(groupIdent) then - gpId = _DATABASE.Templates.Groups[groupIdent].groupId - end - - for coa_name, coa_data in pairs(env.mission.coalition) do - if (coa_name == 'red' or coa_name == 'blue') and type(coa_data) == 'table' then - if coa_data.country then --there is a country table - for cntry_id, cntry_data in pairs(coa_data.country) do - for obj_type_name, obj_type_data in pairs(cntry_data) do - if obj_type_name == "helicopter" or obj_type_name == "ship" or obj_type_name == "plane" or obj_type_name == "vehicle" then -- only these types have points - if ((type(obj_type_data) == 'table') and obj_type_data.group and (type(obj_type_data.group) == 'table') and (#obj_type_data.group > 0)) then --there's a group! - for group_num, group_data in pairs(obj_type_data.group) do - if group_data and group_data.groupId == gpId then -- this is the group we are looking for - if group_data.route and group_data.route.points and #group_data.route.points > 0 then - local points = {} - - for point_num, point in pairs(group_data.route.points) do - local routeData = {} - if not point.point then - routeData.x = point.x - routeData.y = point.y - else - routeData.point = point.point --it's possible that the ME could move to the point = Vec2 notation. - end - routeData.form = point.action - routeData.speed = point.speed - routeData.alt = point.alt - routeData.alt_type = point.alt_type - routeData.airdromeId = point.airdromeId - routeData.helipadId = point.helipadId - routeData.type = point.type - routeData.action = point.action - if task then - routeData.task = point.task - end - points[point_num] = routeData - end - - return points - end - return - end --if group_data and group_data.name and group_data.name == 'groupname' - end --for group_num, group_data in pairs(obj_type_data.group) do - end --if ((type(obj_type_data) == 'table') and obj_type_data.group and (type(obj_type_data.group) == 'table') and (#obj_type_data.group > 0)) then - end --if obj_type_name == "helicopter" or obj_type_name == "ship" or obj_type_name == "plane" or obj_type_name == "vehicle" or obj_type_name == "static" then - end --for obj_type_name, obj_type_data in pairs(cntry_data) do - end --for cntry_id, cntry_data in pairs(coa_data.country) do - end --if coa_data.country then --there is a country table - end --if coa_name == 'red' or coa_name == 'blue' and type(coa_data) == 'table' then - end --for coa_name, coa_data in pairs(mission.coalition) do -end - -routines.ground.patrolRoute = function(vars) - - - local tempRoute = {} - local useRoute = {} - local gpData = vars.gpData - if type(gpData) == 'string' then - gpData = Group.getByName(gpData) - end - - local useGroupRoute - if not vars.useGroupRoute then - useGroupRoute = vars.gpData - else - useGroupRoute = vars.useGroupRoute - end - local routeProvided = false - if not vars.route then - if useGroupRoute then - tempRoute = routines.getGroupRoute(useGroupRoute) - end - else - useRoute = vars.route - local posStart = routines.getLeadPos(gpData) - useRoute[1] = routines.ground.buildWP(posStart, useRoute[1].action, useRoute[1].speed) - routeProvided = true - end - - - local overRideSpeed = vars.speed or 'default' - local pType = vars.pType - local offRoadForm = vars.offRoadForm or 'default' - local onRoadForm = vars.onRoadForm or 'default' - - if routeProvided == false and #tempRoute > 0 then - local posStart = routines.getLeadPos(gpData) - - - useRoute[#useRoute + 1] = routines.ground.buildWP(posStart, offRoadForm, overRideSpeed) - for i = 1, #tempRoute do - local tempForm = tempRoute[i].action - local tempSpeed = tempRoute[i].speed - - if offRoadForm == 'default' then - tempForm = tempRoute[i].action - end - if onRoadForm == 'default' then - onRoadForm = 'On Road' - end - if (string.lower(tempRoute[i].action) == 'on road' or string.lower(tempRoute[i].action) == 'onroad' or string.lower(tempRoute[i].action) == 'on_road') then - tempForm = onRoadForm - else - tempForm = offRoadForm - end - - if type(overRideSpeed) == 'number' then - tempSpeed = overRideSpeed - end - - - useRoute[#useRoute + 1] = routines.ground.buildWP(tempRoute[i], tempForm, tempSpeed) - end - - if pType and string.lower(pType) == 'doubleback' then - local curRoute = routines.utils.deepCopy(useRoute) - for i = #curRoute, 2, -1 do - useRoute[#useRoute + 1] = routines.ground.buildWP(curRoute[i], curRoute[i].action, curRoute[i].speed) - end - end - - useRoute[1].action = useRoute[#useRoute].action -- make it so the first WP matches the last WP - end - - local cTask3 = {} - local newPatrol = {} - newPatrol.route = useRoute - newPatrol.gpData = gpData:getName() - cTask3[#cTask3 + 1] = 'routines.ground.patrolRoute(' - cTask3[#cTask3 + 1] = routines.utils.oneLineSerialize(newPatrol) - cTask3[#cTask3 + 1] = ')' - cTask3 = table.concat(cTask3) - local tempTask = { - id = 'WrappedAction', - params = { - action = { - id = 'Script', - params = { - command = cTask3, - - }, - }, - }, - } - - - useRoute[#useRoute].task = tempTask - routines.goRoute(gpData, useRoute) - - return -end - -routines.ground.patrol = function(gpData, pType, form, speed) - local vars = {} - - if type(gpData) == 'table' and gpData:getName() then - gpData = gpData:getName() - end - - vars.useGroupRoute = gpData - vars.gpData = gpData - vars.pType = pType - vars.offRoadForm = form - vars.speed = speed - - routines.ground.patrolRoute(vars) - - return -end - -function routines.GetUnitHeight( CheckUnit ) ---trace.f( "routines" ) - - local UnitPoint = CheckUnit:getPoint() - local UnitPosition = { x = UnitPoint.x, y = UnitPoint.z } - local UnitHeight = UnitPoint.y - - local LandHeight = land.getHeight( UnitPosition ) - - --env.info(( 'CarrierHeight: LandHeight = ' .. LandHeight .. ' CarrierHeight = ' .. CarrierHeight )) - - --trace.f( "routines", "Unit Height = " .. UnitHeight - LandHeight ) - - return UnitHeight - LandHeight - -end - - - -Su34Status = { status = {} } -boardMsgRed = { statusMsg = "" } -boardMsgAll = { timeMsg = "" } -SpawnSettings = {} -Su34MenuPath = {} -Su34Menus = 0 - - -function Su34AttackCarlVinson(groupName) ---trace.menu("", "Su34AttackCarlVinson") - local groupSu34 = Group.getByName( groupName ) - local controllerSu34 = groupSu34.getController(groupSu34) - local groupCarlVinson = Group.getByName("US Carl Vinson #001") - controllerSu34.setOption( controllerSu34, AI.Option.Air.id.ROE, AI.Option.Air.val.ROE.OPEN_FIRE ) - controllerSu34.setOption( controllerSu34, AI.Option.Air.id.REACTION_ON_THREAT, AI.Option.Air.val.REACTION_ON_THREAT.EVADE_FIRE ) - if groupCarlVinson ~= nil then - controllerSu34.pushTask(controllerSu34,{id = 'AttackGroup', params = { groupId = groupCarlVinson:getID(), expend = AI.Task.WeaponExpend.ALL, attackQtyLimit = true}}) - end - Su34Status.status[groupName] = 1 - MessageToRed( string.format('%s: ',groupName) .. 'Attacking carrier Carl Vinson. ', 10, 'RedStatus' .. groupName ) -end - -function Su34AttackWest(groupName) ---trace.f("","Su34AttackWest") - local groupSu34 = Group.getByName( groupName ) - local controllerSu34 = groupSu34.getController(groupSu34) - local groupShipWest1 = Group.getByName("US Ship West #001") - local groupShipWest2 = Group.getByName("US Ship West #002") - controllerSu34.setOption( controllerSu34, AI.Option.Air.id.ROE, AI.Option.Air.val.ROE.OPEN_FIRE ) - controllerSu34.setOption( controllerSu34, AI.Option.Air.id.REACTION_ON_THREAT, AI.Option.Air.val.REACTION_ON_THREAT.EVADE_FIRE ) - if groupShipWest1 ~= nil then - controllerSu34.pushTask(controllerSu34,{id = 'AttackGroup', params = { groupId = groupShipWest1:getID(), expend = AI.Task.WeaponExpend.ALL, attackQtyLimit = true}}) - end - if groupShipWest2 ~= nil then - controllerSu34.pushTask(controllerSu34,{id = 'AttackGroup', params = { groupId = groupShipWest2:getID(), expend = AI.Task.WeaponExpend.ALL, attackQtyLimit = true}}) - end - Su34Status.status[groupName] = 2 - MessageToRed( string.format('%s: ',groupName) .. 'Attacking invading ships in the west. ', 10, 'RedStatus' .. groupName ) -end - -function Su34AttackNorth(groupName) ---trace.menu("","Su34AttackNorth") - local groupSu34 = Group.getByName( groupName ) - local controllerSu34 = groupSu34.getController(groupSu34) - local groupShipNorth1 = Group.getByName("US Ship North #001") - local groupShipNorth2 = Group.getByName("US Ship North #002") - local groupShipNorth3 = Group.getByName("US Ship North #003") - controllerSu34.setOption( controllerSu34, AI.Option.Air.id.ROE, AI.Option.Air.val.ROE.OPEN_FIRE ) - controllerSu34.setOption( controllerSu34, AI.Option.Air.id.REACTION_ON_THREAT, AI.Option.Air.val.REACTION_ON_THREAT.EVADE_FIRE ) - if groupShipNorth1 ~= nil then - controllerSu34.pushTask(controllerSu34,{id = 'AttackGroup', params = { groupId = groupShipNorth1:getID(), expend = AI.Task.WeaponExpend.ALL, attackQtyLimit = false}}) - end - if groupShipNorth2 ~= nil then - controllerSu34.pushTask(controllerSu34,{id = 'AttackGroup', params = { groupId = groupShipNorth2:getID(), expend = AI.Task.WeaponExpend.ALL, attackQtyLimit = false}}) - end - if groupShipNorth3 ~= nil then - controllerSu34.pushTask(controllerSu34,{id = 'AttackGroup', params = { groupId = groupShipNorth3:getID(), expend = AI.Task.WeaponExpend.ALL, attackQtyLimit = false}}) - end - Su34Status.status[groupName] = 3 - MessageToRed( string.format('%s: ',groupName) .. 'Attacking invading ships in the north. ', 10, 'RedStatus' .. groupName ) -end - -function Su34Orbit(groupName) ---trace.menu("","Su34Orbit") - local groupSu34 = Group.getByName( groupName ) - local controllerSu34 = groupSu34:getController() - controllerSu34.setOption( controllerSu34, AI.Option.Air.id.ROE, AI.Option.Air.val.ROE.WEAPON_HOLD ) - controllerSu34.setOption( controllerSu34, AI.Option.Air.id.REACTION_ON_THREAT, AI.Option.Air.val.REACTION_ON_THREAT.EVADE_FIRE ) - controllerSu34:pushTask( {id = 'ControlledTask', params = { task = { id = 'Orbit', params = { pattern = AI.Task.OrbitPattern.RACE_TRACK } }, stopCondition = { duration = 600 } } } ) - Su34Status.status[groupName] = 4 - MessageToRed( string.format('%s: ',groupName) .. 'In orbit and awaiting further instructions. ', 10, 'RedStatus' .. groupName ) -end - -function Su34TakeOff(groupName) ---trace.menu("","Su34TakeOff") - local groupSu34 = Group.getByName( groupName ) - local controllerSu34 = groupSu34:getController() - controllerSu34.setOption( controllerSu34, AI.Option.Air.id.ROE, AI.Option.Air.val.ROE.WEAPON_HOLD ) - controllerSu34.setOption( controllerSu34, AI.Option.Air.id.REACTION_ON_THREAT, AI.Option.Air.val.REACTION_ON_THREAT.BYPASS_AND_ESCAPE ) - Su34Status.status[groupName] = 8 - MessageToRed( string.format('%s: ',groupName) .. 'Take-Off. ', 10, 'RedStatus' .. groupName ) -end - -function Su34Hold(groupName) ---trace.menu("","Su34Hold") - local groupSu34 = Group.getByName( groupName ) - local controllerSu34 = groupSu34:getController() - controllerSu34.setOption( controllerSu34, AI.Option.Air.id.ROE, AI.Option.Air.val.ROE.WEAPON_HOLD ) - controllerSu34.setOption( controllerSu34, AI.Option.Air.id.REACTION_ON_THREAT, AI.Option.Air.val.REACTION_ON_THREAT.BYPASS_AND_ESCAPE ) - Su34Status.status[groupName] = 5 - MessageToRed( string.format('%s: ',groupName) .. 'Holding Weapons. ', 10, 'RedStatus' .. groupName ) -end - -function Su34RTB(groupName) ---trace.menu("","Su34RTB") - Su34Status.status[groupName] = 6 - MessageToRed( string.format('%s: ',groupName) .. 'Return to Krasnodar. ', 10, 'RedStatus' .. groupName ) -end - -function Su34Destroyed(groupName) ---trace.menu("","Su34Destroyed") - Su34Status.status[groupName] = 7 - MessageToRed( string.format('%s: ',groupName) .. 'Destroyed. ', 30, 'RedStatus' .. groupName ) -end - -function GroupAlive( groupName ) ---trace.menu("","GroupAlive") - local groupTest = Group.getByName( groupName ) - - local groupExists = false - - if groupTest then - groupExists = groupTest:isExist() - end - - --trace.r( "", "", { groupExists } ) - return groupExists -end - -function Su34IsDead() ---trace.f() - -end - -function Su34OverviewStatus() ---trace.menu("","Su34OverviewStatus") - local msg = "" - local currentStatus = 0 - local Exists = false - - for groupName, currentStatus in pairs(Su34Status.status) do - - env.info(('Su34 Overview Status: GroupName = ' .. groupName )) - Alive = GroupAlive( groupName ) - - if Alive then - if currentStatus == 1 then - msg = msg .. string.format("%s: ",groupName) - msg = msg .. "Attacking carrier Carl Vinson. " - elseif currentStatus == 2 then - msg = msg .. string.format("%s: ",groupName) - msg = msg .. "Attacking supporting ships in the west. " - elseif currentStatus == 3 then - msg = msg .. string.format("%s: ",groupName) - msg = msg .. "Attacking invading ships in the north. " - elseif currentStatus == 4 then - msg = msg .. string.format("%s: ",groupName) - msg = msg .. "In orbit and awaiting further instructions. " - elseif currentStatus == 5 then - msg = msg .. string.format("%s: ",groupName) - msg = msg .. "Holding Weapons. " - elseif currentStatus == 6 then - msg = msg .. string.format("%s: ",groupName) - msg = msg .. "Return to Krasnodar. " - elseif currentStatus == 7 then - msg = msg .. string.format("%s: ",groupName) - msg = msg .. "Destroyed. " - elseif currentStatus == 8 then - msg = msg .. string.format("%s: ",groupName) - msg = msg .. "Take-Off. " - end - else - if currentStatus == 7 then - msg = msg .. string.format("%s: ",groupName) - msg = msg .. "Destroyed. " - else - Su34Destroyed(groupName) - end - end - end - - boardMsgRed.statusMsg = msg -end - - -function UpdateBoardMsg() ---trace.f() - Su34OverviewStatus() - MessageToRed( boardMsgRed.statusMsg, 15, 'RedStatus' ) -end - -function MusicReset( flg ) ---trace.f() - trigger.action.setUserFlag(95,flg) -end - -function PlaneActivate(groupNameFormat, flg) ---trace.f() - local groupName = groupNameFormat .. string.format("#%03d", trigger.misc.getUserFlag(flg)) - --trigger.action.outText(groupName,10) - trigger.action.activateGroup(Group.getByName(groupName)) -end - -function Su34Menu(groupName) ---trace.f() - - --env.info(( 'Su34Menu(' .. groupName .. ')' )) - local groupSu34 = Group.getByName( groupName ) - - if Su34Status.status[groupName] == 1 or - Su34Status.status[groupName] == 2 or - Su34Status.status[groupName] == 3 or - Su34Status.status[groupName] == 4 or - Su34Status.status[groupName] == 5 then - if Su34MenuPath[groupName] == nil then - if planeMenuPath == nil then - planeMenuPath = missionCommands.addSubMenuForCoalition( - coalition.side.RED, - "SU-34 anti-ship flights", - nil - ) - end - Su34MenuPath[groupName] = missionCommands.addSubMenuForCoalition( - coalition.side.RED, - "Flight " .. groupName, - planeMenuPath - ) - - missionCommands.addCommandForCoalition( - coalition.side.RED, - "Attack carrier Carl Vinson", - Su34MenuPath[groupName], - Su34AttackCarlVinson, - groupName - ) - - missionCommands.addCommandForCoalition( - coalition.side.RED, - "Attack ships in the west", - Su34MenuPath[groupName], - Su34AttackWest, - groupName - ) - - missionCommands.addCommandForCoalition( - coalition.side.RED, - "Attack ships in the north", - Su34MenuPath[groupName], - Su34AttackNorth, - groupName - ) - - missionCommands.addCommandForCoalition( - coalition.side.RED, - "Hold position and await instructions", - Su34MenuPath[groupName], - Su34Orbit, - groupName - ) - - missionCommands.addCommandForCoalition( - coalition.side.RED, - "Report status", - Su34MenuPath[groupName], - Su34OverviewStatus - ) - end - else - if Su34MenuPath[groupName] then - missionCommands.removeItemForCoalition(coalition.side.RED, Su34MenuPath[groupName]) - end - end -end - ---- Obsolete function, but kept to rework in framework. - -function ChooseInfantry ( TeleportPrefixTable, TeleportMax ) ---trace.f("Spawn") - --env.info(( 'ChooseInfantry: ' )) - - TeleportPrefixTableCount = #TeleportPrefixTable - TeleportPrefixTableIndex = math.random( 1, TeleportPrefixTableCount ) - - --env.info(( 'ChooseInfantry: TeleportPrefixTableIndex = ' .. TeleportPrefixTableIndex .. ' TeleportPrefixTableCount = ' .. TeleportPrefixTableCount .. ' TeleportMax = ' .. TeleportMax )) - - local TeleportFound = false - local TeleportLoop = true - local Index = TeleportPrefixTableIndex - local TeleportPrefix = '' - - while TeleportLoop do - TeleportPrefix = TeleportPrefixTable[Index] - if SpawnSettings[TeleportPrefix] then - if SpawnSettings[TeleportPrefix]['SpawnCount'] - 1 < TeleportMax then - SpawnSettings[TeleportPrefix]['SpawnCount'] = SpawnSettings[TeleportPrefix]['SpawnCount'] + 1 - TeleportFound = true - else - TeleportFound = false - end - else - SpawnSettings[TeleportPrefix] = {} - SpawnSettings[TeleportPrefix]['SpawnCount'] = 0 - TeleportFound = true - end - if TeleportFound then - TeleportLoop = false - else - if Index < TeleportPrefixTableCount then - Index = Index + 1 - else - TeleportLoop = false - end - end - --env.info(( 'ChooseInfantry: Loop 1 - TeleportPrefix = ' .. TeleportPrefix .. ' Index = ' .. Index )) - end - - if TeleportFound == false then - TeleportLoop = true - Index = 1 - while TeleportLoop do - TeleportPrefix = TeleportPrefixTable[Index] - if SpawnSettings[TeleportPrefix] then - if SpawnSettings[TeleportPrefix]['SpawnCount'] - 1 < TeleportMax then - SpawnSettings[TeleportPrefix]['SpawnCount'] = SpawnSettings[TeleportPrefix]['SpawnCount'] + 1 - TeleportFound = true - else - TeleportFound = false - end - else - SpawnSettings[TeleportPrefix] = {} - SpawnSettings[TeleportPrefix]['SpawnCount'] = 0 - TeleportFound = true - end - if TeleportFound then - TeleportLoop = false - else - if Index < TeleportPrefixTableIndex then - Index = Index + 1 - else - TeleportLoop = false - end - end - --env.info(( 'ChooseInfantry: Loop 2 - TeleportPrefix = ' .. TeleportPrefix .. ' Index = ' .. Index )) - end - end - - local TeleportGroupName = '' - if TeleportFound == true then - TeleportGroupName = TeleportPrefix .. string.format("#%03d", SpawnSettings[TeleportPrefix]['SpawnCount'] ) - else - TeleportGroupName = '' - end - - --env.info(('ChooseInfantry: TeleportGroupName = ' .. TeleportGroupName )) - --env.info(('ChooseInfantry: return')) - - return TeleportGroupName -end - -SpawnedInfantry = 0 - -function LandCarrier ( CarrierGroup, LandingZonePrefix ) ---trace.f() - --env.info(( 'LandCarrier: ' )) - --env.info(( 'LandCarrier: CarrierGroup = ' .. CarrierGroup:getName() )) - --env.info(( 'LandCarrier: LandingZone = ' .. LandingZonePrefix )) - - local controllerGroup = CarrierGroup:getController() - - local LandingZone = trigger.misc.getZone(LandingZonePrefix) - local LandingZonePos = {} - LandingZonePos.x = LandingZone.point.x + math.random(LandingZone.radius * -1, LandingZone.radius) - LandingZonePos.y = LandingZone.point.z + math.random(LandingZone.radius * -1, LandingZone.radius) - - controllerGroup:pushTask( { id = 'Land', params = { point = LandingZonePos, durationFlag = true, duration = 10 } } ) - - --env.info(( 'LandCarrier: end' )) -end - -EscortCount = 0 -function EscortCarrier ( CarrierGroup, EscortPrefix, EscortLastWayPoint, EscortEngagementDistanceMax, EscortTargetTypes ) ---trace.f() - --env.info(( 'EscortCarrier: ' )) - --env.info(( 'EscortCarrier: CarrierGroup = ' .. CarrierGroup:getName() )) - --env.info(( 'EscortCarrier: EscortPrefix = ' .. EscortPrefix )) - - local CarrierName = CarrierGroup:getName() - - local EscortMission = {} - local CarrierMission = {} - - local EscortMission = SpawnMissionGroup( EscortPrefix ) - local CarrierMission = SpawnMissionGroup( CarrierGroup:getName() ) - - if EscortMission ~= nil and CarrierMission ~= nil then - - EscortCount = EscortCount + 1 - EscortMissionName = string.format( EscortPrefix .. '#Escort %s', CarrierName ) - EscortMission.name = EscortMissionName - EscortMission.groupId = nil - EscortMission.lateActivation = false - EscortMission.taskSelected = false - - local EscortUnits = #EscortMission.units - for u = 1, EscortUnits do - EscortMission.units[u].name = string.format( EscortPrefix .. '#Escort %s %02d', CarrierName, u ) - EscortMission.units[u].unitId = nil - end - - - EscortMission.route.points[1].task = { id = "ComboTask", - params = - { - tasks = - { - [1] = - { - enabled = true, - auto = false, - id = "Escort", - number = 1, - params = - { - lastWptIndexFlagChangedManually = false, - groupId = CarrierGroup:getID(), - lastWptIndex = nil, - lastWptIndexFlag = false, - engagementDistMax = EscortEngagementDistanceMax, - targetTypes = EscortTargetTypes, - pos = - { - y = 20, - x = 20, - z = 0, - } -- end of ["pos"] - } -- end of ["params"] - } -- end of [1] - } -- end of ["tasks"] - } -- end of ["params"] - } -- end of ["task"] - - SpawnGroupAdd( EscortPrefix, EscortMission ) - - end -end - -function SendMessageToCarrier( CarrierGroup, CarrierMessage ) ---trace.f() - - if CarrierGroup ~= nil then - MessageToGroup( CarrierGroup, CarrierMessage, 30, 'Carrier/' .. CarrierGroup:getName() ) - end - -end - -function MessageToGroup( MsgGroup, MsgText, MsgTime, MsgName ) ---trace.f() - - if type(MsgGroup) == 'string' then - --env.info( 'MessageToGroup: Converted MsgGroup string "' .. MsgGroup .. '" into a Group structure.' ) - MsgGroup = Group.getByName( MsgGroup ) - end - - if MsgGroup ~= nil then - local MsgTable = {} - MsgTable.text = MsgText - MsgTable.displayTime = MsgTime - MsgTable.msgFor = { units = { MsgGroup:getUnits()[1]:getName() } } - MsgTable.name = MsgName - --routines.message.add( MsgTable ) - --env.info(('MessageToGroup: Message sent to ' .. MsgGroup:getUnits()[1]:getName() .. ' -> ' .. MsgText )) - end -end - -function MessageToUnit( UnitName, MsgText, MsgTime, MsgName ) ---trace.f() - - if UnitName ~= nil then - local MsgTable = {} - MsgTable.text = MsgText - MsgTable.displayTime = MsgTime - MsgTable.msgFor = { units = { UnitName } } - MsgTable.name = MsgName - --routines.message.add( MsgTable ) - end -end - -function MessageToAll( MsgText, MsgTime, MsgName ) ---trace.f() - - MESSAGE:New( MsgText, MsgTime, "Message" ):ToCoalition( coalition.side.RED ):ToCoalition( coalition.side.BLUE ) -end - -function MessageToRed( MsgText, MsgTime, MsgName ) ---trace.f() - - MESSAGE:New( MsgText, MsgTime, "To Red Coalition" ):ToCoalition( coalition.side.RED ) -end - -function MessageToBlue( MsgText, MsgTime, MsgName ) ---trace.f() - - MESSAGE:New( MsgText, MsgTime, "To Blue Coalition" ):ToCoalition( coalition.side.RED ) -end - -function getCarrierHeight( CarrierGroup ) ---trace.f() - - if CarrierGroup ~= nil then - if table.getn(CarrierGroup:getUnits()) == 1 then - local CarrierUnit = CarrierGroup:getUnits()[1] - local CurrentPoint = CarrierUnit:getPoint() - - local CurrentPosition = { x = CurrentPoint.x, y = CurrentPoint.z } - local CarrierHeight = CurrentPoint.y - - local LandHeight = land.getHeight( CurrentPosition ) - - --env.info(( 'CarrierHeight: LandHeight = ' .. LandHeight .. ' CarrierHeight = ' .. CarrierHeight )) - - return CarrierHeight - LandHeight - else - return 999999 - end - else - return 999999 - end - -end - -function GetUnitHeight( CheckUnit ) ---trace.f() - - local UnitPoint = CheckUnit:getPoint() - local UnitPosition = { x = CurrentPoint.x, y = CurrentPoint.z } - local UnitHeight = CurrentPoint.y - - local LandHeight = land.getHeight( CurrentPosition ) - - --env.info(( 'CarrierHeight: LandHeight = ' .. LandHeight .. ' CarrierHeight = ' .. CarrierHeight )) - - return UnitHeight - LandHeight - -end - - -_MusicTable = {} -_MusicTable.Files = {} -_MusicTable.Queue = {} -_MusicTable.FileCnt = 0 - - -function MusicRegister( SndRef, SndFile, SndTime ) ---trace.f() - - env.info(( 'MusicRegister: SndRef = ' .. SndRef )) - env.info(( 'MusicRegister: SndFile = ' .. SndFile )) - env.info(( 'MusicRegister: SndTime = ' .. SndTime )) - - - _MusicTable.FileCnt = _MusicTable.FileCnt + 1 - - _MusicTable.Files[_MusicTable.FileCnt] = {} - _MusicTable.Files[_MusicTable.FileCnt].Ref = SndRef - _MusicTable.Files[_MusicTable.FileCnt].File = SndFile - _MusicTable.Files[_MusicTable.FileCnt].Time = SndTime - - if not _MusicTable.Function then - _MusicTable.Function = routines.scheduleFunction( MusicScheduler, { }, timer.getTime() + 10, 10) - end - -end - -function MusicToPlayer( SndRef, PlayerName, SndContinue ) ---trace.f() - - --env.info(( 'MusicToPlayer: SndRef = ' .. SndRef )) - - local PlayerUnits = AlivePlayerUnits() - for PlayerUnitIdx, PlayerUnit in pairs(PlayerUnits) do - local PlayerUnitName = PlayerUnit:getPlayerName() - --env.info(( 'MusicToPlayer: PlayerUnitName = ' .. PlayerUnitName )) - if PlayerName == PlayerUnitName then - PlayerGroup = PlayerUnit:getGroup() - if PlayerGroup then - --env.info(( 'MusicToPlayer: PlayerGroup = ' .. PlayerGroup:getName() )) - MusicToGroup( SndRef, PlayerGroup, SndContinue ) - end - break - end - end - - --env.info(( 'MusicToPlayer: end' )) - -end - -function MusicToGroup( SndRef, SndGroup, SndContinue ) ---trace.f() - - --env.info(( 'MusicToGroup: SndRef = ' .. SndRef )) - - if SndGroup ~= nil then - if _MusicTable and _MusicTable.FileCnt > 0 then - if SndGroup:isExist() then - if MusicCanStart(SndGroup:getUnit(1):getPlayerName()) then - --env.info(( 'MusicToGroup: OK for Sound.' )) - local SndIdx = 0 - if SndRef == '' then - --env.info(( 'MusicToGroup: SndRef as empty. Queueing at random.' )) - SndIdx = math.random( 1, _MusicTable.FileCnt ) - else - for SndIdx = 1, _MusicTable.FileCnt do - if _MusicTable.Files[SndIdx].Ref == SndRef then - break - end - end - end - --env.info(( 'MusicToGroup: SndIdx = ' .. SndIdx )) - --env.info(( 'MusicToGroup: Queueing Music ' .. _MusicTable.Files[SndIdx].File .. ' for Group ' .. SndGroup:getID() )) - trigger.action.outSoundForGroup( SndGroup:getID(), _MusicTable.Files[SndIdx].File ) - MessageToGroup( SndGroup, 'Playing ' .. _MusicTable.Files[SndIdx].File, 15, 'Music-' .. SndGroup:getUnit(1):getPlayerName() ) - - local SndQueueRef = SndGroup:getUnit(1):getPlayerName() - if _MusicTable.Queue[SndQueueRef] == nil then - _MusicTable.Queue[SndQueueRef] = {} - end - _MusicTable.Queue[SndQueueRef].Start = timer.getTime() - _MusicTable.Queue[SndQueueRef].PlayerName = SndGroup:getUnit(1):getPlayerName() - _MusicTable.Queue[SndQueueRef].Group = SndGroup - _MusicTable.Queue[SndQueueRef].ID = SndGroup:getID() - _MusicTable.Queue[SndQueueRef].Ref = SndIdx - _MusicTable.Queue[SndQueueRef].Continue = SndContinue - _MusicTable.Queue[SndQueueRef].Type = Group - end - end - end - end -end - -function MusicCanStart(PlayerName) ---trace.f() - - --env.info(( 'MusicCanStart:' )) - - local MusicOut = false - - if _MusicTable['Queue'] ~= nil and _MusicTable.FileCnt > 0 then - --env.info(( 'MusicCanStart: PlayerName = ' .. PlayerName )) - local PlayerFound = false - local MusicStart = 0 - local MusicTime = 0 - for SndQueueIdx, SndQueue in pairs( _MusicTable.Queue ) do - if SndQueue.PlayerName == PlayerName then - PlayerFound = true - MusicStart = SndQueue.Start - MusicTime = _MusicTable.Files[SndQueue.Ref].Time - break - end - end - if PlayerFound then - --env.info(( 'MusicCanStart: MusicStart = ' .. MusicStart )) - --env.info(( 'MusicCanStart: MusicTime = ' .. MusicTime )) - --env.info(( 'MusicCanStart: timer.getTime() = ' .. timer.getTime() )) - - if MusicStart + MusicTime <= timer.getTime() then - MusicOut = true - end - else - MusicOut = true - end - end - - if MusicOut then - --env.info(( 'MusicCanStart: true' )) - else - --env.info(( 'MusicCanStart: false' )) - end - - return MusicOut -end - -function MusicScheduler() ---trace.scheduled("", "MusicScheduler") - - --env.info(( 'MusicScheduler:' )) - if _MusicTable['Queue'] ~= nil and _MusicTable.FileCnt > 0 then - --env.info(( 'MusicScheduler: Walking Sound Queue.')) - for SndQueueIdx, SndQueue in pairs( _MusicTable.Queue ) do - if SndQueue.Continue then - if MusicCanStart(SndQueue.PlayerName) then - --env.info(('MusicScheduler: MusicToGroup')) - MusicToPlayer( '', SndQueue.PlayerName, true ) - end - end - end - end - -end - - -env.info(( 'Init: Scripts Loaded v1.1' )) - ---- This module contains the BASE class. --- --- 1) @{#BASE} class --- ================= --- The @{#BASE} class is the super class for all the classes defined within MOOSE. --- --- It handles: --- --- * The construction and inheritance of child classes. --- * The tracing of objects during mission execution within the **DCS.log** file, under the **"Saved Games\DCS\Logs"** folder. --- --- Note: Normally you would not use the BASE class unless you are extending the MOOSE framework with new classes. --- --- 1.1) BASE constructor --- --------------------- --- Any class derived from BASE, must use the @{Base#BASE.New) constructor within the @{Base#BASE.Inherit) method. --- See an example at the @{Base#BASE.New} method how this is done. --- --- 1.2) BASE Trace functionality --- ----------------------------- --- The BASE class contains trace methods to trace progress within a mission execution of a certain object. --- Note that these trace methods are inherited by each MOOSE class interiting BASE. --- As such, each object created from derived class from BASE can use the tracing functions to trace its execution. --- --- 1.2.1) Tracing functions --- ------------------------ --- There are basically 3 types of tracing methods available within BASE: --- --- * @{#BASE.F}: Trace the beginning of a function and its given parameters. An F is indicated at column 44 in the DCS.log file. --- * @{#BASE.T}: Trace further logic within a function giving optional variables or parameters. A T is indicated at column 44 in the DCS.log file. --- * @{#BASE.E}: Trace an exception within a function giving optional variables or parameters. An E is indicated at column 44 in the DCS.log file. An exception will always be traced. --- --- 1.2.2) Tracing levels --- --------------------- --- There are 3 tracing levels within MOOSE. --- These tracing levels were defined to avoid bulks of tracing to be generated by lots of objects. --- --- As such, the F and T methods have additional variants to trace level 2 and 3 respectively: --- --- * @{#BASE.F2}: Trace the beginning of a function and its given parameters with tracing level 2. --- * @{#BASE.F3}: Trace the beginning of a function and its given parameters with tracing level 3. --- * @{#BASE.T2}: Trace further logic within a function giving optional variables or parameters with tracing level 2. --- * @{#BASE.T3}: Trace further logic within a function giving optional variables or parameters with tracing level 3. --- --- 1.3) BASE Inheritance support --- =========================== --- The following methods are available to support inheritance: --- --- * @{#BASE.Inherit}: Inherits from a class. --- * @{#BASE.Inherited}: Returns the parent class from the class. --- --- Future --- ====== --- Further methods may be added to BASE whenever there is a need to make "overall" functions available within MOOSE. --- --- ==== --- --- @module Base --- @author FlightControl - - - -local _TraceOnOff = true -local _TraceLevel = 1 -local _TraceAll = false -local _TraceClass = {} -local _TraceClassMethod = {} - -local _ClassID = 0 - ---- The BASE Class --- @type BASE --- @field ClassName The name of the class. --- @field ClassID The ID number of the class. --- @field ClassNameAndID The name of the class concatenated with the ID number of the class. -BASE = { - ClassName = "BASE", - ClassID = 0, - Events = {}, - States = {} -} - ---- The Formation Class --- @type FORMATION --- @field Cone A cone formation. -FORMATION = { - Cone = "Cone" -} - - - ---- The base constructor. This is the top top class of all classed defined within the MOOSE. --- Any new class needs to be derived from this class for proper inheritance. --- @param #BASE self --- @return #BASE The new instance of the BASE class. --- @usage --- -- This declares the constructor of the class TASK, inheriting from BASE. --- --- TASK constructor --- -- @param #TASK self --- -- @param Parameter The parameter of the New constructor. --- -- @return #TASK self --- function TASK:New( Parameter ) --- --- local self = BASE:Inherit( self, BASE:New() ) --- --- self.Variable = Parameter --- --- return self --- end --- @todo need to investigate if the deepCopy is really needed... Don't think so. -function BASE:New() - local self = routines.utils.deepCopy( self ) -- Create a new self instance - local MetaTable = {} - setmetatable( self, MetaTable ) - self.__index = self - _ClassID = _ClassID + 1 - self.ClassID = _ClassID - self.ClassNameAndID = string.format( '%s#%09d', self.ClassName, self.ClassID ) - return self -end - ---- This is the worker method to inherit from a parent class. --- @param #BASE self --- @param Child is the Child class that inherits. --- @param #BASE Parent is the Parent class that the Child inherits from. --- @return #BASE Child -function BASE:Inherit( Child, Parent ) - local Child = routines.utils.deepCopy( Child ) - --local Parent = routines.utils.deepCopy( Parent ) - --local Parent = Parent - if Child ~= nil then - setmetatable( Child, Parent ) - Child.__index = Child - end - --Child.ClassName = Child.ClassName .. '.' .. Child.ClassID - self:T( 'Inherited from ' .. Parent.ClassName ) - return Child -end - ---- This is the worker method to retrieve the Parent class. --- @param #BASE self --- @param #BASE Child is the Child class from which the Parent class needs to be retrieved. --- @return #BASE -function BASE:Inherited( Child ) - local Parent = getmetatable( Child ) --- env.info('Inherited class of ' .. Child.ClassName .. ' is ' .. Parent.ClassName ) - return Parent -end - ---- Get the ClassName + ClassID of the class instance. --- The ClassName + ClassID is formatted as '%s#%09d'. --- @param #BASE self --- @return #string The ClassName + ClassID of the class instance. -function BASE:GetClassNameAndID() - return self.ClassNameAndID -end - ---- Get the ClassName of the class instance. --- @param #BASE self --- @return #string The ClassName of the class instance. -function BASE:GetClassName() - return self.ClassName -end - ---- Get the ClassID of the class instance. --- @param #BASE self --- @return #string The ClassID of the class instance. -function BASE:GetClassID() - return self.ClassID -end - ---- Set a new listener for the class. --- @param self --- @param DCSTypes#Event Event --- @param #function EventFunction --- @return #BASE -function BASE:AddEvent( Event, EventFunction ) - self:F( Event ) - - self.Events[#self.Events+1] = {} - self.Events[#self.Events].Event = Event - self.Events[#self.Events].EventFunction = EventFunction - self.Events[#self.Events].EventEnabled = false - - return self -end - ---- Returns the event dispatcher --- @param #BASE self --- @return Event#EVENT -function BASE:Event() - - return _EVENTDISPATCHER -end - - - - - ---- Enable the event listeners for the class. --- @param #BASE self --- @return #BASE -function BASE:EnableEvents() - self:F( #self.Events ) - - for EventID, Event in pairs( self.Events ) do - Event.Self = self - Event.EventEnabled = true - end - self.Events.Handler = world.addEventHandler( self ) - - return self -end - - ---- Disable the event listeners for the class. --- @param #BASE self --- @return #BASE -function BASE:DisableEvents() - self:F() - - world.removeEventHandler( self ) - for EventID, Event in pairs( self.Events ) do - Event.Self = nil - Event.EventEnabled = false - end - - return self -end - - -local BaseEventCodes = { - "S_EVENT_SHOT", - "S_EVENT_HIT", - "S_EVENT_TAKEOFF", - "S_EVENT_LAND", - "S_EVENT_CRASH", - "S_EVENT_EJECTION", - "S_EVENT_REFUELING", - "S_EVENT_DEAD", - "S_EVENT_PILOT_DEAD", - "S_EVENT_BASE_CAPTURED", - "S_EVENT_MISSION_START", - "S_EVENT_MISSION_END", - "S_EVENT_TOOK_CONTROL", - "S_EVENT_REFUELING_STOP", - "S_EVENT_BIRTH", - "S_EVENT_HUMAN_FAILURE", - "S_EVENT_ENGINE_STARTUP", - "S_EVENT_ENGINE_SHUTDOWN", - "S_EVENT_PLAYER_ENTER_UNIT", - "S_EVENT_PLAYER_LEAVE_UNIT", - "S_EVENT_PLAYER_COMMENT", - "S_EVENT_SHOOTING_START", - "S_EVENT_SHOOTING_END", - "S_EVENT_MAX", -} - ---onEvent( {[1]="S_EVENT_BIRTH",[2]={["subPlace"]=5,["time"]=0,["initiator"]={["id_"]=16884480,},["place"]={["id_"]=5000040,},["id"]=15,["IniUnitName"]="US F-15C@RAMP-Air Support Mountains#001-01",},} --- Event = { --- id = enum world.event, --- time = Time, --- initiator = Unit, --- target = Unit, --- place = Unit, --- subPlace = enum world.BirthPlace, --- weapon = Weapon --- } - ---- Creation of a Birth Event. --- @param #BASE self --- @param DCSTypes#Time EventTime The time stamp of the event. --- @param DCSObject#Object Initiator The initiating object of the event. --- @param #string IniUnitName The initiating unit name. --- @param place --- @param subplace -function BASE:CreateEventBirth( EventTime, Initiator, IniUnitName, place, subplace ) - self:F( { EventTime, Initiator, IniUnitName, place, subplace } ) - - local Event = { - id = world.event.S_EVENT_BIRTH, - time = EventTime, - initiator = Initiator, - IniUnitName = IniUnitName, - place = place, - subplace = subplace - } - - world.onEvent( Event ) -end - ---- Creation of a Crash Event. --- @param #BASE self --- @param DCSTypes#Time EventTime The time stamp of the event. --- @param DCSObject#Object Initiator The initiating object of the event. -function BASE:CreateEventCrash( EventTime, Initiator ) - self:F( { EventTime, Initiator } ) - - local Event = { - id = world.event.S_EVENT_CRASH, - time = EventTime, - initiator = Initiator, - } - - world.onEvent( Event ) -end - --- TODO: Complete DCSTypes#Event structure. ---- The main event handling function... This function captures all events generated for the class. --- @param #BASE self --- @param DCSTypes#Event event -function BASE:onEvent(event) - --self:F( { BaseEventCodes[event.id], event } ) - - if self then - for EventID, EventObject in pairs( self.Events ) do - if EventObject.EventEnabled then - --env.info( 'onEvent Table EventObject.Self = ' .. tostring(EventObject.Self) ) - --env.info( 'onEvent event.id = ' .. tostring(event.id) ) - --env.info( 'onEvent EventObject.Event = ' .. tostring(EventObject.Event) ) - if event.id == EventObject.Event then - if self == EventObject.Self then - if event.initiator and event.initiator:isExist() then - event.IniUnitName = event.initiator:getName() - end - if event.target and event.target:isExist() then - event.TgtUnitName = event.target:getName() - end - --self:T( { BaseEventCodes[event.id], event } ) - --EventObject.EventFunction( self, event ) - end - end - end - end - end -end - -function BASE:SetState( Object, StateName, State ) - - local ClassNameAndID = Object:GetClassNameAndID() - - if not self.States[ClassNameAndID] then - self.States[ClassNameAndID] = {} - end - self.States[ClassNameAndID][StateName] = State - self:F2( { ClassNameAndID, StateName, State } ) - - return self.States[ClassNameAndID][StateName] -end - -function BASE:GetState( Object, StateName ) - - local ClassNameAndID = Object:GetClassNameAndID() - - if self.States[ClassNameAndID] then - local State = self.States[ClassNameAndID][StateName] - self:F2( { ClassNameAndID, StateName, State } ) - return State - end - - return nil -end - -function BASE:ClearState( Object, StateName ) - - local ClassNameAndID = Object:GetClassNameAndID() - if self.States[ClassNameAndID] then - self.States[ClassNameAndID][StateName] = nil - end -end - --- Trace section - --- Log a trace (only shown when trace is on) --- TODO: Make trace function using variable parameters. - ---- Set trace on or off --- Note that when trace is off, no debug statement is performed, increasing performance! --- When Moose is loaded statically, (as one file), tracing is switched off by default. --- So tracing must be switched on manually in your mission if you are using Moose statically. --- When moose is loading dynamically (for moose class development), tracing is switched on by default. --- @param BASE self --- @param #boolean TraceOnOff Switch the tracing on or off. --- @usage --- -- Switch the tracing On --- BASE:TraceOn( true ) --- --- -- Switch the tracing Off --- BASE:TraceOn( false ) -function BASE:TraceOnOff( TraceOnOff ) - _TraceOnOff = TraceOnOff -end - ---- Set trace level --- @param #BASE self --- @param #number Level -function BASE:TraceLevel( Level ) - _TraceLevel = Level - self:E( "Tracing level " .. Level ) -end - ---- Trace all methods in MOOSE --- @param #BASE self --- @param #boolean TraceAll true = trace all methods in MOOSE. -function BASE:TraceAll( TraceAll ) - - _TraceAll = TraceAll - - if _TraceAll then - self:E( "Tracing all methods in MOOSE " ) - else - self:E( "Switched off tracing all methods in MOOSE" ) - end -end - ---- Set tracing for a class --- @param #BASE self --- @param #string Class -function BASE:TraceClass( Class ) - _TraceClass[Class] = true - _TraceClassMethod[Class] = {} - self:E( "Tracing class " .. Class ) -end - ---- Set tracing for a specific method of class --- @param #BASE self --- @param #string Class --- @param #string Method -function BASE:TraceClassMethod( Class, Method ) - if not _TraceClassMethod[Class] then - _TraceClassMethod[Class] = {} - _TraceClassMethod[Class].Method = {} - end - _TraceClassMethod[Class].Method[Method] = true - self:E( "Tracing method " .. Method .. " of class " .. Class ) -end - ---- Trace a function call. This function is private. --- @param #BASE self --- @param Arguments A #table or any field. -function BASE:_F( Arguments, DebugInfoCurrentParam, DebugInfoFromParam ) - - if debug and ( _TraceAll == true ) or ( _TraceClass[self.ClassName] or _TraceClassMethod[self.ClassName] ) then - - local DebugInfoCurrent = DebugInfoCurrentParam and DebugInfoCurrentParam or debug.getinfo( 2, "nl" ) - local DebugInfoFrom = DebugInfoFromParam and DebugInfoFromParam or debug.getinfo( 3, "l" ) - - local Function = "function" - if DebugInfoCurrent.name then - Function = DebugInfoCurrent.name - end - - if _TraceAll == true or _TraceClass[self.ClassName] or _TraceClassMethod[self.ClassName].Method[Function] then - local LineCurrent = 0 - if DebugInfoCurrent.currentline then - LineCurrent = DebugInfoCurrent.currentline - end - local LineFrom = 0 - if DebugInfoFrom then - LineFrom = DebugInfoFrom.currentline - end - env.info( string.format( "%6d(%6d)/%1s:%20s%05d.%s(%s)" , LineCurrent, LineFrom, "F", self.ClassName, self.ClassID, Function, routines.utils.oneLineSerialize( Arguments ) ) ) - end - end -end - ---- Trace a function call. Must be at the beginning of the function logic. --- @param #BASE self --- @param Arguments A #table or any field. -function BASE:F( Arguments ) - - if debug and _TraceOnOff then - local DebugInfoCurrent = debug.getinfo( 2, "nl" ) - local DebugInfoFrom = debug.getinfo( 3, "l" ) - - if _TraceLevel >= 1 then - self:_F( Arguments, DebugInfoCurrent, DebugInfoFrom ) - end - end -end - - ---- Trace a function call level 2. Must be at the beginning of the function logic. --- @param #BASE self --- @param Arguments A #table or any field. -function BASE:F2( Arguments ) - - if debug and _TraceOnOff then - local DebugInfoCurrent = debug.getinfo( 2, "nl" ) - local DebugInfoFrom = debug.getinfo( 3, "l" ) - - if _TraceLevel >= 2 then - self:_F( Arguments, DebugInfoCurrent, DebugInfoFrom ) - end - end -end - ---- Trace a function call level 3. Must be at the beginning of the function logic. --- @param #BASE self --- @param Arguments A #table or any field. -function BASE:F3( Arguments ) - - if debug and _TraceOnOff then - local DebugInfoCurrent = debug.getinfo( 2, "nl" ) - local DebugInfoFrom = debug.getinfo( 3, "l" ) - - if _TraceLevel >= 3 then - self:_F( Arguments, DebugInfoCurrent, DebugInfoFrom ) - end - end -end - ---- Trace a function logic. --- @param #BASE self --- @param Arguments A #table or any field. -function BASE:_T( Arguments, DebugInfoCurrentParam, DebugInfoFromParam ) - - if debug and ( _TraceAll == true ) or ( _TraceClass[self.ClassName] or _TraceClassMethod[self.ClassName] ) then - - local DebugInfoCurrent = DebugInfoCurrentParam and DebugInfoCurrentParam or debug.getinfo( 2, "nl" ) - local DebugInfoFrom = DebugInfoFromParam and DebugInfoFromParam or debug.getinfo( 3, "l" ) - - local Function = "function" - if DebugInfoCurrent.name then - Function = DebugInfoCurrent.name - end - - if _TraceAll == true or _TraceClass[self.ClassName] or _TraceClassMethod[self.ClassName].Method[Function] then - local LineCurrent = 0 - if DebugInfoCurrent.currentline then - LineCurrent = DebugInfoCurrent.currentline - end - local LineFrom = 0 - if DebugInfoFrom then - LineFrom = DebugInfoFrom.currentline - end - env.info( string.format( "%6d(%6d)/%1s:%20s%05d.%s" , LineCurrent, LineFrom, "T", self.ClassName, self.ClassID, routines.utils.oneLineSerialize( Arguments ) ) ) - end - end -end - ---- Trace a function logic level 1. Can be anywhere within the function logic. --- @param #BASE self --- @param Arguments A #table or any field. -function BASE:T( Arguments ) - - if debug and _TraceOnOff then - local DebugInfoCurrent = debug.getinfo( 2, "nl" ) - local DebugInfoFrom = debug.getinfo( 3, "l" ) - - if _TraceLevel >= 1 then - self:_T( Arguments, DebugInfoCurrent, DebugInfoFrom ) - end - end -end - - ---- Trace a function logic level 2. Can be anywhere within the function logic. --- @param #BASE self --- @param Arguments A #table or any field. -function BASE:T2( Arguments ) - - if debug and _TraceOnOff then - local DebugInfoCurrent = debug.getinfo( 2, "nl" ) - local DebugInfoFrom = debug.getinfo( 3, "l" ) - - if _TraceLevel >= 2 then - self:_T( Arguments, DebugInfoCurrent, DebugInfoFrom ) - end - end -end - ---- Trace a function logic level 3. Can be anywhere within the function logic. --- @param #BASE self --- @param Arguments A #table or any field. -function BASE:T3( Arguments ) - - if debug and _TraceOnOff then - local DebugInfoCurrent = debug.getinfo( 2, "nl" ) - local DebugInfoFrom = debug.getinfo( 3, "l" ) - - if _TraceLevel >= 3 then - self:_T( Arguments, DebugInfoCurrent, DebugInfoFrom ) - end - end -end - ---- Log an exception which will be traced always. Can be anywhere within the function logic. --- @param #BASE self --- @param Arguments A #table or any field. -function BASE:E( Arguments ) - - if debug then - local DebugInfoCurrent = debug.getinfo( 2, "nl" ) - local DebugInfoFrom = debug.getinfo( 3, "l" ) - - local Function = "function" - if DebugInfoCurrent.name then - Function = DebugInfoCurrent.name - end - - local LineCurrent = DebugInfoCurrent.currentline - local LineFrom = -1 - if DebugInfoFrom then - LineFrom = DebugInfoFrom.currentline - end - - env.info( string.format( "%6d(%6d)/%1s:%20s%05d.%s(%s)" , LineCurrent, LineFrom, "E", self.ClassName, self.ClassID, Function, routines.utils.oneLineSerialize( Arguments ) ) ) - end - -end - - - ---- This module contains the OBJECT class. --- --- 1) @{Object#OBJECT} class, extends @{Base#BASE} --- =========================================================== --- The @{Object#OBJECT} class is a wrapper class to handle the DCS Object objects: --- --- * Support all DCS Object APIs. --- * Enhance with Object specific APIs not in the DCS Object API set. --- * Manage the "state" of the DCS Object. --- --- 1.1) OBJECT constructor: --- ------------------------------ --- The OBJECT class provides the following functions to construct a OBJECT instance: --- --- * @{Object#OBJECT.New}(): Create a OBJECT instance. --- --- 1.2) OBJECT methods: --- -------------------------- --- The following methods can be used to identify an Object object: --- --- * @{Object#OBJECT.GetID}(): Returns the ID of the Object object. --- --- === --- --- @module Object --- @author FlightControl - ---- The OBJECT class --- @type OBJECT --- @extends Base#BASE --- @field #string ObjectName The name of the Object. -OBJECT = { - ClassName = "OBJECT", - ObjectName = "", -} - - ---- A DCSObject --- @type DCSObject --- @field id_ The ID of the controllable in DCS - ---- Create a new OBJECT from a DCSObject --- @param #OBJECT self --- @param DCSObject#Object ObjectName The Object name --- @return #OBJECT self -function OBJECT:New( ObjectName ) - local self = BASE:Inherit( self, BASE:New() ) - self:F2( ObjectName ) - self.ObjectName = ObjectName - return self -end - - ---- Returns the unit's unique identifier. --- @param Object#OBJECT self --- @return DCSObject#Object.ID ObjectID --- @return #nil The DCS Object is not existing or alive. -function OBJECT:GetID() - self:F2( self.ObjectName ) - - local DCSObject = self:GetDCSObject() - - if DCSObject then - local ObjectID = DCSObject:getID() - return ObjectID - end - - return nil -end - - - ---- This module contains the IDENTIFIABLE class. --- --- 1) @{Identifiable#IDENTIFIABLE} class, extends @{Object#OBJECT} --- =============================================================== --- The @{Identifiable#IDENTIFIABLE} class is a wrapper class to handle the DCS Identifiable objects: --- --- * Support all DCS Identifiable APIs. --- * Enhance with Identifiable specific APIs not in the DCS Identifiable API set. --- * Manage the "state" of the DCS Identifiable. --- --- 1.1) IDENTIFIABLE constructor: --- ------------------------------ --- The IDENTIFIABLE class provides the following functions to construct a IDENTIFIABLE instance: --- --- * @{Identifiable#IDENTIFIABLE.New}(): Create a IDENTIFIABLE instance. --- --- 1.2) IDENTIFIABLE methods: --- -------------------------- --- The following methods can be used to identify an identifiable object: --- --- * @{Identifiable#IDENTIFIABLE.GetName}(): Returns the name of the Identifiable. --- * @{Identifiable#IDENTIFIABLE.IsAlive}(): Returns if the Identifiable is alive. --- * @{Identifiable#IDENTIFIABLE.GetTypeName}(): Returns the type name of the Identifiable. --- * @{Identifiable#IDENTIFIABLE.GetCoalition}(): Returns the coalition of the Identifiable. --- * @{Identifiable#IDENTIFIABLE.GetCountry}(): Returns the country of the Identifiable. --- * @{Identifiable#IDENTIFIABLE.GetDesc}(): Returns the descriptor structure of the Identifiable. --- --- --- === --- --- @module Identifiable --- @author FlightControl - ---- The IDENTIFIABLE class --- @type IDENTIFIABLE --- @extends Object#OBJECT --- @field #string IdentifiableName The name of the identifiable. -IDENTIFIABLE = { - ClassName = "IDENTIFIABLE", - IdentifiableName = "", -} - -local _CategoryName = { - [Unit.Category.AIRPLANE] = "Airplane", - [Unit.Category.HELICOPTER] = "Helicoper", - [Unit.Category.GROUND_UNIT] = "Ground Identifiable", - [Unit.Category.SHIP] = "Ship", - [Unit.Category.STRUCTURE] = "Structure", - } - ---- Create a new IDENTIFIABLE from a DCSIdentifiable --- @param #IDENTIFIABLE self --- @param DCSIdentifiable#Identifiable IdentifiableName The DCS Identifiable name --- @return #IDENTIFIABLE self -function IDENTIFIABLE:New( IdentifiableName ) - local self = BASE:Inherit( self, OBJECT:New( IdentifiableName ) ) - self:F2( IdentifiableName ) - self.IdentifiableName = IdentifiableName - return self -end - ---- Returns if the Identifiable is alive. --- @param Identifiable#IDENTIFIABLE self --- @return #boolean true if Identifiable is alive. --- @return #nil The DCS Identifiable is not existing or alive. -function IDENTIFIABLE:IsAlive() - self:F2( self.IdentifiableName ) - - local DCSIdentifiable = self:GetDCSObject() - - if DCSIdentifiable then - local IdentifiableIsAlive = DCSIdentifiable:isExist() - return IdentifiableIsAlive - end - - return false -end - - - - ---- Returns DCS Identifiable object name. --- The function provides access to non-activated objects too. --- @param Identifiable#IDENTIFIABLE self --- @return #string The name of the DCS Identifiable. --- @return #nil The DCS Identifiable is not existing or alive. -function IDENTIFIABLE:GetName() - self:F2( self.IdentifiableName ) - - local DCSIdentifiable = self:GetDCSObject() - - if DCSIdentifiable then - local IdentifiableName = self.IdentifiableName - return IdentifiableName - end - - self:E( self.ClassName .. " " .. self.IdentifiableName .. " not found!" ) - return nil -end - - ---- Returns the type name of the DCS Identifiable. --- @param Identifiable#IDENTIFIABLE self --- @return #string The type name of the DCS Identifiable. --- @return #nil The DCS Identifiable is not existing or alive. -function IDENTIFIABLE:GetTypeName() - self:F2( self.IdentifiableName ) - - local DCSIdentifiable = self:GetDCSObject() - - if DCSIdentifiable then - local IdentifiableTypeName = DCSIdentifiable:getTypeName() - self:T3( IdentifiableTypeName ) - return IdentifiableTypeName - end - - self:E( self.ClassName .. " " .. self.IdentifiableName .. " not found!" ) - return nil -end - - ---- Returns category of the DCS Identifiable. --- @param #IDENTIFIABLE self --- @return DCSObject#Object.Category The category ID -function IDENTIFIABLE:GetCategory() - self:F2( self.ObjectName ) - - local DCSObject = self:GetDCSObject() - if DCSObject then - local ObjectCategory = DCSObject:getCategory() - self:T3( ObjectCategory ) - return ObjectCategory - end - - return nil -end - - ---- Returns the DCS Identifiable category name as defined within the DCS Identifiable Descriptor. --- @param Identifiable#IDENTIFIABLE self --- @return #string The DCS Identifiable Category Name -function IDENTIFIABLE:GetCategoryName() - local DCSIdentifiable = self:GetDCSObject() - - if DCSIdentifiable then - local IdentifiableCategoryName = _CategoryName[ self:GetDesc().category ] - return IdentifiableCategoryName - end - - self:E( self.ClassName .. " " .. self.IdentifiableName .. " not found!" ) - return nil -end - ---- Returns coalition of the Identifiable. --- @param Identifiable#IDENTIFIABLE self --- @return DCSCoalitionObject#coalition.side The side of the coalition. --- @return #nil The DCS Identifiable is not existing or alive. -function IDENTIFIABLE:GetCoalition() - self:F2( self.IdentifiableName ) - - local DCSIdentifiable = self:GetDCSObject() - - if DCSIdentifiable then - local IdentifiableCoalition = DCSIdentifiable:getCoalition() - self:T3( IdentifiableCoalition ) - return IdentifiableCoalition - end - - self:E( self.ClassName .. " " .. self.IdentifiableName .. " not found!" ) - return nil -end - ---- Returns country of the Identifiable. --- @param Identifiable#IDENTIFIABLE self --- @return DCScountry#country.id The country identifier. --- @return #nil The DCS Identifiable is not existing or alive. -function IDENTIFIABLE:GetCountry() - self:F2( self.IdentifiableName ) - - local DCSIdentifiable = self:GetDCSObject() - - if DCSIdentifiable then - local IdentifiableCountry = DCSIdentifiable:getCountry() - self:T3( IdentifiableCountry ) - return IdentifiableCountry - end - - self:E( self.ClassName .. " " .. self.IdentifiableName .. " not found!" ) - return nil -end - - - ---- Returns Identifiable descriptor. Descriptor type depends on Identifiable category. --- @param Identifiable#IDENTIFIABLE self --- @return DCSIdentifiable#Identifiable.Desc The Identifiable descriptor. --- @return #nil The DCS Identifiable is not existing or alive. -function IDENTIFIABLE:GetDesc() - self:F2( self.IdentifiableName ) - - local DCSIdentifiable = self:GetDCSObject() - - if DCSIdentifiable then - local IdentifiableDesc = DCSIdentifiable:getDesc() - self:T2( IdentifiableDesc ) - return IdentifiableDesc - end - - self:E( self.ClassName .. " " .. self.IdentifiableName .. " not found!" ) - return nil -end - - - - - - - - - ---- This module contains the POSITIONABLE class. --- --- 1) @{Positionable#POSITIONABLE} class, extends @{Identifiable#IDENTIFIABLE} --- =========================================================== --- The @{Positionable#POSITIONABLE} class is a wrapper class to handle the DCS Positionable objects: --- --- * Support all DCS Positionable APIs. --- * Enhance with Positionable specific APIs not in the DCS Positionable API set. --- * Manage the "state" of the DCS Positionable. --- --- 1.1) POSITIONABLE constructor: --- ------------------------------ --- The POSITIONABLE class provides the following functions to construct a POSITIONABLE instance: --- --- * @{Positionable#POSITIONABLE.New}(): Create a POSITIONABLE instance. --- --- 1.2) POSITIONABLE methods: --- -------------------------- --- The following methods can be used to identify an measurable object: --- --- * @{Positionable#POSITIONABLE.GetID}(): Returns the ID of the measurable object. --- * @{Positionable#POSITIONABLE.GetName}(): Returns the name of the measurable object. --- --- === --- --- @module Positionable --- @author FlightControl - ---- The POSITIONABLE class --- @type POSITIONABLE --- @extends Identifiable#IDENTIFIABLE --- @field #string PositionableName The name of the measurable. -POSITIONABLE = { - ClassName = "POSITIONABLE", - PositionableName = "", -} - ---- A DCSPositionable --- @type DCSPositionable --- @field id_ The ID of the controllable in DCS - ---- Create a new POSITIONABLE from a DCSPositionable --- @param #POSITIONABLE self --- @param DCSPositionable#Positionable PositionableName The DCS Positionable name --- @return #POSITIONABLE self -function POSITIONABLE:New( PositionableName ) - local self = BASE:Inherit( self, IDENTIFIABLE:New( PositionableName ) ) - - return self -end - ---- Returns the @{DCSTypes#Position3} position vectors indicating the point and direction vectors in 3D of the DCS Positionable within the mission. --- @param Positionable#POSITIONABLE self --- @return DCSTypes#Position The 3D position vectors of the DCS Positionable. --- @return #nil The DCS Positionable is not existing or alive. -function POSITIONABLE:GetPositionVec3() - self:F2( self.PositionableName ) - - local DCSPositionable = self:GetDCSObject() - - if DCSPositionable then - local PositionablePosition = DCSPositionable:getPosition() - self:T3( PositionablePosition ) - return PositionablePosition - end - - return nil -end - ---- Returns the @{DCSTypes#Vec2} vector indicating the point in 2D of the DCS Positionable within the mission. --- @param Positionable#POSITIONABLE self --- @return DCSTypes#Vec2 The 2D point vector of the DCS Positionable. --- @return #nil The DCS Positionable is not existing or alive. -function POSITIONABLE:GetPointVec2() - self:F2( self.PositionableName ) - - local DCSPositionable = self:GetDCSObject() - - if DCSPositionable then - local PositionablePointVec3 = DCSPositionable:getPosition().p - - local PositionablePointVec2 = {} - PositionablePointVec2.x = PositionablePointVec3.x - PositionablePointVec2.y = PositionablePointVec3.z - - self:T2( PositionablePointVec2 ) - return PositionablePointVec2 - end - - return nil -end - - ---- Returns the @{DCSTypes#Vec3} vector indicating the point in 3D of the DCS Positionable within the mission. --- @param Positionable#POSITIONABLE self --- @return DCSTypes#Vec3 The 3D point vector of the DCS Positionable. --- @return #nil The DCS Positionable is not existing or alive. -function POSITIONABLE:GetPointVec3() - self:F2( self.PositionableName ) - - local DCSPositionable = self:GetDCSObject() - - if DCSPositionable then - local PositionablePointVec3 = DCSPositionable:getPosition().p - self:T3( PositionablePointVec3 ) - return PositionablePointVec3 - end - - return nil -end - ---- Returns the altitude of the DCS Positionable. --- @param Positionable#POSITIONABLE self --- @return DCSTypes#Distance The altitude of the DCS Positionable. --- @return #nil The DCS Positionable is not existing or alive. -function POSITIONABLE:GetAltitude() - self:F2() - - local DCSPositionable = self:GetDCSObject() - - if DCSPositionable then - local PositionablePointVec3 = DCSPositionable:getPoint() --DCSTypes#Vec3 - return PositionablePointVec3.y - end - - return nil -end - ---- Returns if the Positionable is located above a runway. --- @param Positionable#POSITIONABLE self --- @return #boolean true if Positionable is above a runway. --- @return #nil The DCS Positionable is not existing or alive. -function POSITIONABLE:IsAboveRunway() - self:F2( self.PositionableName ) - - local DCSPositionable = self:GetDCSObject() - - if DCSPositionable then - - local PointVec2 = self:GetPointVec2() - local SurfaceType = land.getSurfaceType( PointVec2 ) - local IsAboveRunway = SurfaceType == land.SurfaceType.RUNWAY - - self:T2( IsAboveRunway ) - return IsAboveRunway - end - - return nil -end - - - ---- Returns the DCS Positionable heading. --- @param Positionable#POSITIONABLE self --- @return #number The DCS Positionable heading -function POSITIONABLE:GetHeading() - local DCSPositionable = self:GetDCSObject() - - if DCSPositionable then - - local PositionablePosition = DCSPositionable:getPosition() - if PositionablePosition then - local PositionableHeading = math.atan2( PositionablePosition.x.z, PositionablePosition.x.x ) - if PositionableHeading < 0 then - PositionableHeading = PositionableHeading + 2 * math.pi - end - self:T2( PositionableHeading ) - return PositionableHeading - end - end - - return nil -end - - ---- Returns true if the DCS Positionable is in the air. --- @param Positionable#POSITIONABLE self --- @return #boolean true if in the air. --- @return #nil The DCS Positionable is not existing or alive. -function POSITIONABLE:InAir() - self:F2( self.PositionableName ) - - local DCSPositionable = self:GetDCSObject() - - if DCSPositionable then - local PositionableInAir = DCSPositionable:inAir() - self:T3( PositionableInAir ) - return PositionableInAir - end - - return nil -end - ---- Returns the DCS Positionable velocity vector. --- @param Positionable#POSITIONABLE self --- @return DCSTypes#Vec3 The velocity vector --- @return #nil The DCS Positionable is not existing or alive. -function POSITIONABLE:GetVelocity() - self:F2( self.PositionableName ) - - local DCSPositionable = self:GetDCSObject() - - if DCSPositionable then - local PositionableVelocityVec3 = DCSPositionable:getVelocity() - self:T3( PositionableVelocityVec3 ) - return PositionableVelocityVec3 - end - - return nil -end - - - ---- This module contains the CONTROLLABLE class. --- --- 1) @{Controllable#CONTROLLABLE} class, extends @{Positionable#POSITIONABLE} --- =========================================================== --- The @{Controllable#CONTROLLABLE} class is a wrapper class to handle the DCS Controllable objects: --- --- * Support all DCS Controllable APIs. --- * Enhance with Controllable specific APIs not in the DCS Controllable API set. --- * Handle local Controllable Controller. --- * Manage the "state" of the DCS Controllable. --- --- 1.1) CONTROLLABLE constructor --- ----------------------------- --- The CONTROLLABLE class provides the following functions to construct a CONTROLLABLE instance: --- --- * @{#CONTROLLABLE.New}(): Create a CONTROLLABLE instance. --- --- 1.2) CONTROLLABLE task methods --- ------------------------------ --- Several controllable task methods are available that help you to prepare tasks. --- These methods return a string consisting of the task description, which can then be given to either a @{Controllable#CONTROLLABLE.PushTask} or @{Controllable#SetTask} method to assign the task to the CONTROLLABLE. --- Tasks are specific for the category of the CONTROLLABLE, more specific, for AIR, GROUND or AIR and GROUND. --- Each task description where applicable indicates for which controllable category the task is valid. --- There are 2 main subdivisions of tasks: Assigned tasks and EnRoute tasks. --- --- ### 1.2.1) Assigned task methods --- --- Assigned task methods make the controllable execute the task where the location of the (possible) targets of the task are known before being detected. --- This is different from the EnRoute tasks, where the targets of the task need to be detected before the task can be executed. --- --- Find below a list of the **assigned task** methods: --- --- * @{#CONTROLLABLE.TaskAttackControllable}: (AIR) Attack a Controllable. --- * @{#CONTROLLABLE.TaskAttackMapObject}: (AIR) Attacking the map object (building, structure, e.t.c). --- * @{#CONTROLLABLE.TaskAttackUnit}: (AIR) Attack the Unit. --- * @{#CONTROLLABLE.TaskBombing}: (AIR) Delivering weapon at the point on the ground. --- * @{#CONTROLLABLE.TaskBombingRunway}: (AIR) Delivering weapon on the runway. --- * @{#CONTROLLABLE.TaskEmbarking}: (AIR) Move the controllable to a Vec2 Point, wait for a defined duration and embark a controllable. --- * @{#CONTROLLABLE.TaskEmbarkToTransport}: (GROUND) Embark to a Transport landed at a location. --- * @{#CONTROLLABLE.TaskEscort}: (AIR) Escort another airborne controllable. --- * @{#CONTROLLABLE.TaskFAC_AttackControllable}: (AIR + GROUND) The task makes the controllable/unit a FAC and orders the FAC to control the target (enemy ground controllable) destruction. --- * @{#CONTROLLABLE.TaskFireAtPoint}: (GROUND) Fire at a VEC2 point until ammunition is finished. --- * @{#CONTROLLABLE.TaskFollow}: (AIR) Following another airborne controllable. --- * @{#CONTROLLABLE.TaskHold}: (GROUND) Hold ground controllable from moving. --- * @{#CONTROLLABLE.TaskHoldPosition}: (AIR) Hold position at the current position of the first unit of the controllable. --- * @{#CONTROLLABLE.TaskLand}: (AIR HELICOPTER) Landing at the ground. For helicopters only. --- * @{#CONTROLLABLE.TaskLandAtZone}: (AIR) Land the controllable at a @{Zone#ZONE_RADIUS). --- * @{#CONTROLLABLE.TaskOrbitCircle}: (AIR) Orbit at the current position of the first unit of the controllable at a specified alititude. --- * @{#CONTROLLABLE.TaskOrbitCircleAtVec2}: (AIR) Orbit at a specified position at a specified alititude during a specified duration with a specified speed. --- * @{#CONTROLLABLE.TaskRefueling}: (AIR) Refueling from the nearest tanker. No parameters. --- * @{#CONTROLLABLE.TaskRoute}: (AIR + GROUND) Return a Misson task to follow a given route defined by Points. --- * @{#CONTROLLABLE.TaskRouteToVec2}: (AIR + GROUND) Make the Controllable move to a given point. --- * @{#CONTROLLABLE.TaskRouteToVec3}: (AIR + GROUND) Make the Controllable move to a given point. --- * @{#CONTROLLABLE.TaskRouteToZone}: (AIR + GROUND) Route the controllable to a given zone. --- * @{#CONTROLLABLE.TaskReturnToBase}: (AIR) Route the controllable to an airbase. --- --- ### 1.2.2) EnRoute task methods --- --- EnRoute tasks require the targets of the task need to be detected by the controllable (using its sensors) before the task can be executed: --- --- * @{#CONTROLLABLE.EnRouteTaskAWACS}: (AIR) Aircraft will act as an AWACS for friendly units (will provide them with information about contacts). No parameters. --- * @{#CONTROLLABLE.EnRouteTaskEngageControllable}: (AIR) Engaging a controllable. The task does not assign the target controllable to the unit/controllable to attack now; it just allows the unit/controllable to engage the target controllable as well as other assigned targets. --- * @{#CONTROLLABLE.EnRouteTaskEngageTargets}: (AIR) Engaging targets of defined types. --- * @{#CONTROLLABLE.EnRouteTaskEWR}: (AIR) Attack the Unit. --- * @{#CONTROLLABLE.EnRouteTaskFAC}: (AIR + GROUND) The task makes the controllable/unit a FAC and lets the FAC to choose a targets (enemy ground controllable) around as well as other assigned targets. --- * @{#CONTROLLABLE.EnRouteTaskFAC_EngageControllable}: (AIR + GROUND) The task makes the controllable/unit a FAC and lets the FAC to choose the target (enemy ground controllable) as well as other assigned targets. --- * @{#CONTROLLABLE.EnRouteTaskTanker}: (AIR) Aircraft will act as a tanker for friendly units. No parameters. --- --- ### 1.2.3) Preparation task methods --- --- There are certain task methods that allow to tailor the task behaviour: --- --- * @{#CONTROLLABLE.TaskWrappedAction}: Return a WrappedAction Task taking a Command. --- * @{#CONTROLLABLE.TaskCombo}: Return a Combo Task taking an array of Tasks. --- * @{#CONTROLLABLE.TaskCondition}: Return a condition section for a controlled task. --- * @{#CONTROLLABLE.TaskControlled}: Return a Controlled Task taking a Task and a TaskCondition. --- --- ### 1.2.4) Obtain the mission from controllable templates --- --- Controllable templates contain complete mission descriptions. Sometimes you want to copy a complete mission from a controllable and assign it to another: --- --- * @{#CONTROLLABLE.TaskMission}: (AIR + GROUND) Return a mission task from a mission template. --- --- 1.3) CONTROLLABLE Command methods --- -------------------------- --- Controllable **command methods** prepare the execution of commands using the @{#CONTROLLABLE.SetCommand} method: --- --- * @{#CONTROLLABLE.CommandDoScript}: Do Script command. --- * @{#CONTROLLABLE.CommandSwitchWayPoint}: Perform a switch waypoint command. --- --- 1.4) CONTROLLABLE Option methods --- ------------------------- --- Controllable **Option methods** change the behaviour of the Controllable while being alive. --- --- ### 1.4.1) Rule of Engagement: --- --- * @{#CONTROLLABLE.OptionROEWeaponFree} --- * @{#CONTROLLABLE.OptionROEOpenFire} --- * @{#CONTROLLABLE.OptionROEReturnFire} --- * @{#CONTROLLABLE.OptionROEEvadeFire} --- --- To check whether an ROE option is valid for a specific controllable, use: --- --- * @{#CONTROLLABLE.OptionROEWeaponFreePossible} --- * @{#CONTROLLABLE.OptionROEOpenFirePossible} --- * @{#CONTROLLABLE.OptionROEReturnFirePossible} --- * @{#CONTROLLABLE.OptionROEEvadeFirePossible} --- --- ### 1.4.2) Rule on thread: --- --- * @{#CONTROLLABLE.OptionROTNoReaction} --- * @{#CONTROLLABLE.OptionROTPassiveDefense} --- * @{#CONTROLLABLE.OptionROTEvadeFire} --- * @{#CONTROLLABLE.OptionROTVertical} --- --- To test whether an ROT option is valid for a specific controllable, use: --- --- * @{#CONTROLLABLE.OptionROTNoReactionPossible} --- * @{#CONTROLLABLE.OptionROTPassiveDefensePossible} --- * @{#CONTROLLABLE.OptionROTEvadeFirePossible} --- * @{#CONTROLLABLE.OptionROTVerticalPossible} --- --- === --- --- @module Controllable --- @author FlightControl - ---- The CONTROLLABLE class --- @type CONTROLLABLE --- @extends Positionable#POSITIONABLE --- @field DCSControllable#Controllable DCSControllable The DCS controllable class. --- @field #string ControllableName The name of the controllable. -CONTROLLABLE = { - ClassName = "CONTROLLABLE", - ControllableName = "", - WayPointFunctions = {}, -} - ---- Create a new CONTROLLABLE from a DCSControllable --- @param #CONTROLLABLE self --- @param DCSControllable#Controllable ControllableName The DCS Controllable name --- @return #CONTROLLABLE self -function CONTROLLABLE:New( ControllableName ) - local self = BASE:Inherit( self, POSITIONABLE:New( ControllableName ) ) - self:F2( ControllableName ) - self.ControllableName = ControllableName - return self -end - --- DCS Controllable methods support. - ---- Get the controller for the CONTROLLABLE. --- @param #CONTROLLABLE self --- @return DCSController#Controller -function CONTROLLABLE:_GetController() - self:F2( { self.ControllableName } ) - local DCSControllable = self:GetDCSObject() - - if DCSControllable then - local ControllableController = DCSControllable:getController() - self:T3( ControllableController ) - return ControllableController - end - - return nil -end - - - --- Tasks - ---- Popping current Task from the controllable. --- @param #CONTROLLABLE self --- @return Controllable#CONTROLLABLE self -function CONTROLLABLE:PopCurrentTask() - self:F2() - - local DCSControllable = self:GetDCSObject() - - if DCSControllable then - local Controller = self:_GetController() - Controller:popTask() - return self - end - - return nil -end - ---- Pushing Task on the queue from the controllable. --- @param #CONTROLLABLE self --- @return Controllable#CONTROLLABLE self -function CONTROLLABLE:PushTask( DCSTask, WaitTime ) - self:F2() - - local DCSControllable = self:GetDCSObject() - - if DCSControllable then - local Controller = self:_GetController() - - -- When a controllable SPAWNs, it takes about a second to get the controllable in the simulator. Setting tasks to unspawned controllables provides unexpected results. - -- Therefore we schedule the functions to set the mission and options for the Controllable. - -- Controller:pushTask( DCSTask ) - - if WaitTime then - SCHEDULER:New( Controller, Controller.pushTask, { DCSTask }, WaitTime ) - else - Controller:pushTask( DCSTask ) - end - - return self - end - - return nil -end - ---- Clearing the Task Queue and Setting the Task on the queue from the controllable. --- @param #CONTROLLABLE self --- @return Controllable#CONTROLLABLE self -function CONTROLLABLE:SetTask( DCSTask, WaitTime ) - self:F2( { DCSTask } ) - - local DCSControllable = self:GetDCSObject() - - if DCSControllable then - - local Controller = self:_GetController() - - -- When a controllable SPAWNs, it takes about a second to get the controllable in the simulator. Setting tasks to unspawned controllables provides unexpected results. - -- Therefore we schedule the functions to set the mission and options for the Controllable. - -- Controller.setTask( Controller, DCSTask ) - - if not WaitTime then - WaitTime = 1 - end - SCHEDULER:New( Controller, Controller.setTask, { DCSTask }, WaitTime ) - - return self - end - - return nil -end - - ---- Return a condition section for a controlled task. --- @param #CONTROLLABLE self --- @param DCSTime#Time time --- @param #string userFlag --- @param #boolean userFlagValue --- @param #string condition --- @param DCSTime#Time duration --- @param #number lastWayPoint --- return DCSTask#Task -function CONTROLLABLE:TaskCondition( time, userFlag, userFlagValue, condition, duration, lastWayPoint ) - self:F2( { time, userFlag, userFlagValue, condition, duration, lastWayPoint } ) - - local DCSStopCondition = {} - DCSStopCondition.time = time - DCSStopCondition.userFlag = userFlag - DCSStopCondition.userFlagValue = userFlagValue - DCSStopCondition.condition = condition - DCSStopCondition.duration = duration - DCSStopCondition.lastWayPoint = lastWayPoint - - self:T3( { DCSStopCondition } ) - return DCSStopCondition -end - ---- Return a Controlled Task taking a Task and a TaskCondition. --- @param #CONTROLLABLE self --- @param DCSTask#Task DCSTask --- @param #DCSStopCondition DCSStopCondition --- @return DCSTask#Task -function CONTROLLABLE:TaskControlled( DCSTask, DCSStopCondition ) - self:F2( { DCSTask, DCSStopCondition } ) - - local DCSTaskControlled - - DCSTaskControlled = { - id = 'ControlledTask', - params = { - task = DCSTask, - stopCondition = DCSStopCondition - } - } - - self:T3( { DCSTaskControlled } ) - return DCSTaskControlled -end - ---- Return a Combo Task taking an array of Tasks. --- @param #CONTROLLABLE self --- @param DCSTask#TaskArray DCSTasks Array of @{DCSTask#Task} --- @return DCSTask#Task -function CONTROLLABLE:TaskCombo( DCSTasks ) - self:F2( { DCSTasks } ) - - local DCSTaskCombo - - DCSTaskCombo = { - id = 'ComboTask', - params = { - tasks = DCSTasks - } - } - - self:T3( { DCSTaskCombo } ) - return DCSTaskCombo -end - ---- Return a WrappedAction Task taking a Command. --- @param #CONTROLLABLE self --- @param DCSCommand#Command DCSCommand --- @return DCSTask#Task -function CONTROLLABLE:TaskWrappedAction( DCSCommand, Index ) - self:F2( { DCSCommand } ) - - local DCSTaskWrappedAction - - DCSTaskWrappedAction = { - id = "WrappedAction", - enabled = true, - number = Index, - auto = false, - params = { - action = DCSCommand, - }, - } - - self:T3( { DCSTaskWrappedAction } ) - return DCSTaskWrappedAction -end - ---- Executes a command action --- @param #CONTROLLABLE self --- @param DCSCommand#Command DCSCommand --- @return #CONTROLLABLE self -function CONTROLLABLE:SetCommand( DCSCommand ) - self:F2( DCSCommand ) - - local DCSControllable = self:GetDCSObject() - - if DCSControllable then - local Controller = self:_GetController() - Controller:setCommand( DCSCommand ) - return self - end - - return nil -end - ---- Perform a switch waypoint command --- @param #CONTROLLABLE self --- @param #number FromWayPoint --- @param #number ToWayPoint --- @return DCSTask#Task --- @usage --- --- This test demonstrates the use(s) of the SwitchWayPoint method of the GROUP class. --- HeliGroup = GROUP:FindByName( "Helicopter" ) --- --- --- Route the helicopter back to the FARP after 60 seconds. --- -- We use the SCHEDULER class to do this. --- SCHEDULER:New( nil, --- function( HeliGroup ) --- local CommandRTB = HeliGroup:CommandSwitchWayPoint( 2, 8 ) --- HeliGroup:SetCommand( CommandRTB ) --- end, { HeliGroup }, 90 --- ) -function CONTROLLABLE:CommandSwitchWayPoint( FromWayPoint, ToWayPoint ) - self:F2( { FromWayPoint, ToWayPoint } ) - - local CommandSwitchWayPoint = { - id = 'SwitchWaypoint', - params = { - fromWaypointIndex = FromWayPoint, - goToWaypointIndex = ToWayPoint, - }, - } - - self:T3( { CommandSwitchWayPoint } ) - return CommandSwitchWayPoint -end - ---- Perform stop route command --- @param #CONTROLLABLE self --- @param #boolean StopRoute --- @return DCSTask#Task -function CONTROLLABLE:CommandStopRoute( StopRoute, Index ) - self:F2( { StopRoute, Index } ) - - local CommandStopRoute = { - id = 'StopRoute', - params = { - value = StopRoute, - }, - } - - self:T3( { CommandStopRoute } ) - return CommandStopRoute -end - - --- TASKS FOR AIR CONTROLLABLES - - ---- (AIR) Attack a Controllable. --- @param #CONTROLLABLE self --- @param Controllable#CONTROLLABLE AttackGroup The Controllable to be attacked. --- @param #number WeaponType (optional) Bitmask of weapon types those allowed to use. If parameter is not defined that means no limits on weapon usage. --- @param DCSTypes#AI.Task.WeaponExpend WeaponExpend (optional) Determines how much weapon will be released at each attack. If parameter is not defined the unit / controllable will choose expend on its own discretion. --- @param #number AttackQty (optional) This parameter limits maximal quantity of attack. The aicraft/controllable will not make more attack than allowed even if the target controllable not destroyed and the aicraft/controllable still have ammo. If not defined the aircraft/controllable will attack target until it will be destroyed or until the aircraft/controllable will run out of ammo. --- @param DCSTypes#Azimuth Direction (optional) Desired ingress direction from the target to the attacking aircraft. Controllable/aircraft will make its attacks from the direction. Of course if there is no way to attack from the direction due the terrain controllable/aircraft will choose another direction. --- @param DCSTypes#Distance Altitude (optional) Desired attack start altitude. Controllable/aircraft will make its attacks from the altitude. If the altitude is too low or too high to use weapon aircraft/controllable will choose closest altitude to the desired attack start altitude. If the desired altitude is defined controllable/aircraft will not attack from safe altitude. --- @param #boolean AttackQtyLimit (optional) The flag determines how to interpret attackQty parameter. If the flag is true then attackQty is a limit on maximal attack quantity for "AttackControllable" and "AttackUnit" tasks. If the flag is false then attackQty is a desired attack quantity for "Bombing" and "BombingRunway" tasks. --- @return DCSTask#Task The DCS task structure. -function CONTROLLABLE:TaskAttackGroup( AttackGroup, WeaponType, WeaponExpend, AttackQty, Direction, Altitude, AttackQtyLimit ) - self:F2( { self.ControllableName, AttackGroup, WeaponType, WeaponExpend, AttackQty, Direction, Altitude, AttackQtyLimit } ) - - -- AttackControllable = { - -- id = 'AttackControllable', - -- params = { - -- controllableId = Controllable.ID, - -- weaponType = number, - -- expend = enum AI.Task.WeaponExpend, - -- attackQty = number, - -- directionEnabled = boolean, - -- direction = Azimuth, - -- altitudeEnabled = boolean, - -- altitude = Distance, - -- attackQtyLimit = boolean, - -- } - -- } - - local DirectionEnabled = nil - if Direction then - DirectionEnabled = true - end - - local AltitudeEnabled = nil - if Altitude then - AltitudeEnabled = true - end - - local DCSTask - DCSTask = { id = 'AttackControllable', - params = { - controllableId = AttackGroup:GetID(), - weaponType = WeaponType, - expend = WeaponExpend, - attackQty = AttackQty, - directionEnabled = DirectionEnabled, - direction = Direction, - altitudeEnabled = AltitudeEnabled, - altitude = Altitude, - attackQtyLimit = AttackQtyLimit, - }, - }, - - self:T3( { DCSTask } ) - return DCSTask -end - - ---- (AIR) Attack the Unit. --- @param #CONTROLLABLE self --- @param Unit#UNIT AttackUnit The unit. --- @param #number WeaponType (optional) Bitmask of weapon types those allowed to use. If parameter is not defined that means no limits on weapon usage. --- @param DCSTypes#AI.Task.WeaponExpend WeaponExpend (optional) Determines how much weapon will be released at each attack. If parameter is not defined the unit / controllable will choose expend on its own discretion. --- @param #number AttackQty (optional) This parameter limits maximal quantity of attack. The aicraft/controllable will not make more attack than allowed even if the target controllable not destroyed and the aicraft/controllable still have ammo. If not defined the aircraft/controllable will attack target until it will be destroyed or until the aircraft/controllable will run out of ammo. --- @param DCSTypes#Azimuth Direction (optional) Desired ingress direction from the target to the attacking aircraft. Controllable/aircraft will make its attacks from the direction. Of course if there is no way to attack from the direction due the terrain controllable/aircraft will choose another direction. --- @param #boolean AttackQtyLimit (optional) The flag determines how to interpret attackQty parameter. If the flag is true then attackQty is a limit on maximal attack quantity for "AttackControllable" and "AttackUnit" tasks. If the flag is false then attackQty is a desired attack quantity for "Bombing" and "BombingRunway" tasks. --- @param #boolean ControllableAttack (optional) Flag indicates that the target must be engaged by all aircrafts of the controllable. Has effect only if the task is assigned to a controllable, not to a single aircraft. --- @return DCSTask#Task The DCS task structure. -function CONTROLLABLE:TaskAttackUnit( AttackUnit, WeaponType, WeaponExpend, AttackQty, Direction, AttackQtyLimit, ControllableAttack ) - self:F2( { self.ControllableName, AttackUnit, WeaponType, WeaponExpend, AttackQty, Direction, AttackQtyLimit, ControllableAttack } ) - - -- AttackUnit = { - -- id = 'AttackUnit', - -- params = { - -- unitId = Unit.ID, - -- weaponType = number, - -- expend = enum AI.Task.WeaponExpend - -- attackQty = number, - -- direction = Azimuth, - -- attackQtyLimit = boolean, - -- controllableAttack = boolean, - -- } - -- } - - local DCSTask - DCSTask = { id = 'AttackUnit', - params = { - unitId = AttackUnit:GetID(), - weaponType = WeaponType, - expend = WeaponExpend, - attackQty = AttackQty, - direction = Direction, - attackQtyLimit = AttackQtyLimit, - controllableAttack = ControllableAttack, - }, - }, - - self:T3( { DCSTask } ) - return DCSTask -end - - ---- (AIR) Delivering weapon at the point on the ground. --- @param #CONTROLLABLE self --- @param DCSTypes#Vec2 PointVec2 2D-coordinates of the point to deliver weapon at. --- @param #number WeaponType (optional) Bitmask of weapon types those allowed to use. If parameter is not defined that means no limits on weapon usage. --- @param DCSTypes#AI.Task.WeaponExpend WeaponExpend (optional) Determines how much weapon will be released at each attack. If parameter is not defined the unit / controllable will choose expend on its own discretion. --- @param #number AttackQty (optional) Desired quantity of passes. The parameter is not the same in AttackControllable and AttackUnit tasks. --- @param DCSTypes#Azimuth Direction (optional) Desired ingress direction from the target to the attacking aircraft. Controllable/aircraft will make its attacks from the direction. Of course if there is no way to attack from the direction due the terrain controllable/aircraft will choose another direction. --- @param #boolean ControllableAttack (optional) Flag indicates that the target must be engaged by all aircrafts of the controllable. Has effect only if the task is assigned to a controllable, not to a single aircraft. --- @return DCSTask#Task The DCS task structure. -function CONTROLLABLE:TaskBombing( PointVec2, WeaponType, WeaponExpend, AttackQty, Direction, ControllableAttack ) - self:F2( { self.ControllableName, PointVec2, WeaponType, WeaponExpend, AttackQty, Direction, ControllableAttack } ) - --- Bombing = { --- id = 'Bombing', --- params = { --- point = Vec2, --- weaponType = number, --- expend = enum AI.Task.WeaponExpend, --- attackQty = number, --- direction = Azimuth, --- controllableAttack = boolean, --- } --- } - - local DCSTask - DCSTask = { id = 'Bombing', - params = { - point = PointVec2, - weaponType = WeaponType, - expend = WeaponExpend, - attackQty = AttackQty, - direction = Direction, - controllableAttack = ControllableAttack, - }, - }, - - self:T3( { DCSTask } ) - return DCSTask -end - ---- (AIR) Orbit at a specified position at a specified alititude during a specified duration with a specified speed. --- @param #CONTROLLABLE self --- @param DCSTypes#Vec2 Point The point to hold the position. --- @param #number Altitude The altitude to hold the position. --- @param #number Speed The speed flying when holding the position. --- @return #CONTROLLABLE self -function CONTROLLABLE:TaskOrbitCircleAtVec2( Point, Altitude, Speed ) - self:F2( { self.ControllableName, Point, Altitude, Speed } ) - - -- pattern = enum AI.Task.OribtPattern, - -- point = Vec2, - -- point2 = Vec2, - -- speed = Distance, - -- altitude = Distance - - local LandHeight = land.getHeight( Point ) - - self:T3( { LandHeight } ) - - local DCSTask = { id = 'Orbit', - params = { pattern = AI.Task.OrbitPattern.CIRCLE, - point = Point, - speed = Speed, - altitude = Altitude + LandHeight - } - } - - - -- local AITask = { id = 'ControlledTask', - -- params = { task = { id = 'Orbit', - -- params = { pattern = AI.Task.OrbitPattern.CIRCLE, - -- point = Point, - -- speed = Speed, - -- altitude = Altitude + LandHeight - -- } - -- }, - -- stopCondition = { duration = Duration - -- } - -- } - -- } - -- ) - - return DCSTask -end - ---- (AIR) Orbit at the current position of the first unit of the controllable at a specified alititude. --- @param #CONTROLLABLE self --- @param #number Altitude The altitude to hold the position. --- @param #number Speed The speed flying when holding the position. --- @return #CONTROLLABLE self -function CONTROLLABLE:TaskOrbitCircle( Altitude, Speed ) - self:F2( { self.ControllableName, Altitude, Speed } ) - - local DCSControllable = self:GetDCSObject() - - if DCSControllable then - local ControllablePoint = self:GetPointVec2() - return self:TaskOrbitCircleAtVec2( ControllablePoint, Altitude, Speed ) - end - - return nil -end - - - ---- (AIR) Hold position at the current position of the first unit of the controllable. --- @param #CONTROLLABLE self --- @param #number Duration The maximum duration in seconds to hold the position. --- @return #CONTROLLABLE self -function CONTROLLABLE:TaskHoldPosition() - self:F2( { self.ControllableName } ) - - return self:TaskOrbitCircle( 30, 10 ) -end - - - - ---- (AIR) Attacking the map object (building, structure, e.t.c). --- @param #CONTROLLABLE self --- @param DCSTypes#Vec2 PointVec2 2D-coordinates of the point the map object is closest to. The distance between the point and the map object must not be greater than 2000 meters. Object id is not used here because Mission Editor doesn't support map object identificators. --- @param #number WeaponType (optional) Bitmask of weapon types those allowed to use. If parameter is not defined that means no limits on weapon usage. --- @param DCSTypes#AI.Task.WeaponExpend WeaponExpend (optional) Determines how much weapon will be released at each attack. If parameter is not defined the unit / controllable will choose expend on its own discretion. --- @param #number AttackQty (optional) This parameter limits maximal quantity of attack. The aicraft/controllable will not make more attack than allowed even if the target controllable not destroyed and the aicraft/controllable still have ammo. If not defined the aircraft/controllable will attack target until it will be destroyed or until the aircraft/controllable will run out of ammo. --- @param DCSTypes#Azimuth Direction (optional) Desired ingress direction from the target to the attacking aircraft. Controllable/aircraft will make its attacks from the direction. Of course if there is no way to attack from the direction due the terrain controllable/aircraft will choose another direction. --- @param #boolean ControllableAttack (optional) Flag indicates that the target must be engaged by all aircrafts of the controllable. Has effect only if the task is assigned to a controllable, not to a single aircraft. --- @return DCSTask#Task The DCS task structure. -function CONTROLLABLE:TaskAttackMapObject( PointVec2, WeaponType, WeaponExpend, AttackQty, Direction, ControllableAttack ) - self:F2( { self.ControllableName, PointVec2, WeaponType, WeaponExpend, AttackQty, Direction, ControllableAttack } ) - --- AttackMapObject = { --- id = 'AttackMapObject', --- params = { --- point = Vec2, --- weaponType = number, --- expend = enum AI.Task.WeaponExpend, --- attackQty = number, --- direction = Azimuth, --- controllableAttack = boolean, --- } --- } - - local DCSTask - DCSTask = { id = 'AttackMapObject', - params = { - point = PointVec2, - weaponType = WeaponType, - expend = WeaponExpend, - attackQty = AttackQty, - direction = Direction, - controllableAttack = ControllableAttack, - }, - }, - - self:T3( { DCSTask } ) - return DCSTask -end - - ---- (AIR) Delivering weapon on the runway. --- @param #CONTROLLABLE self --- @param Airbase#AIRBASE Airbase Airbase to attack. --- @param #number WeaponType (optional) Bitmask of weapon types those allowed to use. If parameter is not defined that means no limits on weapon usage. --- @param DCSTypes#AI.Task.WeaponExpend WeaponExpend (optional) Determines how much weapon will be released at each attack. If parameter is not defined the unit / controllable will choose expend on its own discretion. --- @param #number AttackQty (optional) This parameter limits maximal quantity of attack. The aicraft/controllable will not make more attack than allowed even if the target controllable not destroyed and the aicraft/controllable still have ammo. If not defined the aircraft/controllable will attack target until it will be destroyed or until the aircraft/controllable will run out of ammo. --- @param DCSTypes#Azimuth Direction (optional) Desired ingress direction from the target to the attacking aircraft. Controllable/aircraft will make its attacks from the direction. Of course if there is no way to attack from the direction due the terrain controllable/aircraft will choose another direction. --- @param #boolean ControllableAttack (optional) Flag indicates that the target must be engaged by all aircrafts of the controllable. Has effect only if the task is assigned to a controllable, not to a single aircraft. --- @return DCSTask#Task The DCS task structure. -function CONTROLLABLE:TaskBombingRunway( Airbase, WeaponType, WeaponExpend, AttackQty, Direction, ControllableAttack ) - self:F2( { self.ControllableName, Airbase, WeaponType, WeaponExpend, AttackQty, Direction, ControllableAttack } ) - --- BombingRunway = { --- id = 'BombingRunway', --- params = { --- runwayId = AirdromeId, --- weaponType = number, --- expend = enum AI.Task.WeaponExpend, --- attackQty = number, --- direction = Azimuth, --- controllableAttack = boolean, --- } --- } - - local DCSTask - DCSTask = { id = 'BombingRunway', - params = { - point = Airbase:GetID(), - weaponType = WeaponType, - expend = WeaponExpend, - attackQty = AttackQty, - direction = Direction, - controllableAttack = ControllableAttack, - }, - }, - - self:T3( { DCSTask } ) - return DCSTask -end - - ---- (AIR) Refueling from the nearest tanker. No parameters. --- @param #CONTROLLABLE self --- @return DCSTask#Task The DCS task structure. -function CONTROLLABLE:TaskRefueling() - self:F2( { self.ControllableName } ) - --- Refueling = { --- id = 'Refueling', --- params = {} --- } - - local DCSTask - DCSTask = { id = 'Refueling', - params = { - }, - }, - - self:T3( { DCSTask } ) - return DCSTask -end - - ---- (AIR HELICOPTER) Landing at the ground. For helicopters only. --- @param #CONTROLLABLE self --- @param DCSTypes#Vec2 Point The point where to land. --- @param #number Duration The duration in seconds to stay on the ground. --- @return #CONTROLLABLE self -function CONTROLLABLE:TaskLandAtVec2( Point, Duration ) - self:F2( { self.ControllableName, Point, Duration } ) - --- Land = { --- id= 'Land', --- params = { --- point = Vec2, --- durationFlag = boolean, --- duration = Time --- } --- } - - local DCSTask - if Duration and Duration > 0 then - DCSTask = { id = 'Land', - params = { - point = Point, - durationFlag = true, - duration = Duration, - }, - } - else - DCSTask = { id = 'Land', - params = { - point = Point, - durationFlag = false, - }, - } - end - - self:T3( DCSTask ) - return DCSTask -end - ---- (AIR) Land the controllable at a @{Zone#ZONE_RADIUS). --- @param #CONTROLLABLE self --- @param Zone#ZONE Zone The zone where to land. --- @param #number Duration The duration in seconds to stay on the ground. --- @return #CONTROLLABLE self -function CONTROLLABLE:TaskLandAtZone( Zone, Duration, RandomPoint ) - self:F2( { self.ControllableName, Zone, Duration, RandomPoint } ) - - local Point - if RandomPoint then - Point = Zone:GetRandomVec2() - else - Point = Zone:GetPointVec2() - end - - local DCSTask = self:TaskLandAtVec2( Point, Duration ) - - self:T3( DCSTask ) - return DCSTask -end - - - ---- (AIR) Following another airborne controllable. --- The unit / controllable will follow lead unit of another controllable, wingmens of both controllables will continue following their leaders. --- If another controllable is on land the unit / controllable will orbit around. --- @param #CONTROLLABLE self --- @param Controllable#CONTROLLABLE FollowControllable The controllable to be followed. --- @param DCSTypes#Vec3 PointVec3 Position of the unit / lead unit of the controllable relative lead unit of another controllable in frame reference oriented by course of lead unit of another controllable. If another controllable is on land the unit / controllable will orbit around. --- @param #number LastWaypointIndex Detach waypoint of another controllable. Once reached the unit / controllable Follow task is finished. --- @return DCSTask#Task The DCS task structure. -function CONTROLLABLE:TaskFollow( FollowControllable, PointVec3, LastWaypointIndex ) - self:F2( { self.ControllableName, FollowControllable, PointVec3, LastWaypointIndex } ) - --- Follow = { --- id = 'Follow', --- params = { --- controllableId = Controllable.ID, --- pos = Vec3, --- lastWptIndexFlag = boolean, --- lastWptIndex = number --- } --- } - - local LastWaypointIndexFlag = nil - if LastWaypointIndex then - LastWaypointIndexFlag = true - end - - local DCSTask - DCSTask = { id = 'Follow', - params = { - controllableId = FollowControllable:GetID(), - pos = PointVec3, - lastWptIndexFlag = LastWaypointIndexFlag, - lastWptIndex = LastWaypointIndex, - }, - }, - - self:T3( { DCSTask } ) - return DCSTask -end - - ---- (AIR) Escort another airborne controllable. --- The unit / controllable will follow lead unit of another controllable, wingmens of both controllables will continue following their leaders. --- The unit / controllable will also protect that controllable from threats of specified types. --- @param #CONTROLLABLE self --- @param Controllable#CONTROLLABLE EscortControllable The controllable to be escorted. --- @param DCSTypes#Vec3 PointVec3 Position of the unit / lead unit of the controllable relative lead unit of another controllable in frame reference oriented by course of lead unit of another controllable. If another controllable is on land the unit / controllable will orbit around. --- @param #number LastWaypointIndex Detach waypoint of another controllable. Once reached the unit / controllable Follow task is finished. --- @param #number EngagementDistanceMax Maximal distance from escorted controllable to threat. If the threat is already engaged by escort escort will disengage if the distance becomes greater than 1.5 * engagementDistMax. --- @param DCSTypes#AttributeNameArray TargetTypes Array of AttributeName that is contains threat categories allowed to engage. --- @return DCSTask#Task The DCS task structure. -function CONTROLLABLE:TaskEscort( FollowControllable, PointVec3, LastWaypointIndex, EngagementDistance, TargetTypes ) - self:F2( { self.ControllableName, FollowControllable, PointVec3, LastWaypointIndex, EngagementDistance, TargetTypes } ) - --- Escort = { --- id = 'Escort', --- params = { --- controllableId = Controllable.ID, --- pos = Vec3, --- lastWptIndexFlag = boolean, --- lastWptIndex = number, --- engagementDistMax = Distance, --- targetTypes = array of AttributeName, --- } --- } - - local LastWaypointIndexFlag = nil - if LastWaypointIndex then - LastWaypointIndexFlag = true - end - - local DCSTask - DCSTask = { id = 'Follow', - params = { - controllableId = FollowControllable:GetID(), - pos = PointVec3, - lastWptIndexFlag = LastWaypointIndexFlag, - lastWptIndex = LastWaypointIndex, - engagementDistMax = EngagementDistance, - targetTypes = TargetTypes, - }, - }, - - self:T3( { DCSTask } ) - return DCSTask -end - - --- GROUND TASKS - ---- (GROUND) Fire at a VEC2 point until ammunition is finished. --- @param #CONTROLLABLE self --- @param DCSTypes#Vec2 PointVec2 The point to fire at. --- @param DCSTypes#Distance Radius The radius of the zone to deploy the fire at. --- @return DCSTask#Task The DCS task structure. -function CONTROLLABLE:TaskFireAtPoint( PointVec2, Radius ) - self:F2( { self.ControllableName, PointVec2, Radius } ) - - -- FireAtPoint = { - -- id = 'FireAtPoint', - -- params = { - -- point = Vec2, - -- radius = Distance, - -- } - -- } - - local DCSTask - DCSTask = { id = 'FireAtPoint', - params = { - point = PointVec2, - radius = Radius, - } - } - - self:T3( { DCSTask } ) - return DCSTask -end - ---- (GROUND) Hold ground controllable from moving. --- @param #CONTROLLABLE self --- @return DCSTask#Task The DCS task structure. -function CONTROLLABLE:TaskHold() - self:F2( { self.ControllableName } ) - --- Hold = { --- id = 'Hold', --- params = { --- } --- } - - local DCSTask - DCSTask = { id = 'Hold', - params = { - } - } - - self:T3( { DCSTask } ) - return DCSTask -end - - --- TASKS FOR AIRBORNE AND GROUND UNITS/CONTROLLABLES - ---- (AIR + GROUND) The task makes the controllable/unit a FAC and orders the FAC to control the target (enemy ground controllable) destruction. --- The killer is player-controlled allied CAS-aircraft that is in contact with the FAC. --- If the task is assigned to the controllable lead unit will be a FAC. --- @param #CONTROLLABLE self --- @param Controllable#CONTROLLABLE AttackGroup Target CONTROLLABLE. --- @param #number WeaponType Bitmask of weapon types those allowed to use. If parameter is not defined that means no limits on weapon usage. --- @param DCSTypes#AI.Task.Designation Designation (optional) Designation type. --- @param #boolean Datalink (optional) Allows to use datalink to send the target information to attack aircraft. Enabled by default. --- @return DCSTask#Task The DCS task structure. -function CONTROLLABLE:TaskFAC_AttackGroup( AttackGroup, WeaponType, Designation, Datalink ) - self:F2( { self.ControllableName, AttackGroup, WeaponType, Designation, Datalink } ) - --- FAC_AttackControllable = { --- id = 'FAC_AttackControllable', --- params = { --- controllableId = Controllable.ID, --- weaponType = number, --- designation = enum AI.Task.Designation, --- datalink = boolean --- } --- } - - local DCSTask - DCSTask = { id = 'FAC_AttackControllable', - params = { - controllableId = AttackGroup:GetID(), - weaponType = WeaponType, - designation = Designation, - datalink = Datalink, - } - } - - self:T3( { DCSTask } ) - return DCSTask -end - --- EN-ROUTE TASKS FOR AIRBORNE CONTROLLABLES - ---- (AIR) Engaging targets of defined types. --- @param #CONTROLLABLE self --- @param DCSTypes#Distance Distance Maximal distance from the target to a route leg. If the target is on a greater distance it will be ignored. --- @param DCSTypes#AttributeNameArray TargetTypes Array of target categories allowed to engage. --- @param #number Priority All enroute tasks have the priority parameter. This is a number (less value - higher priority) that determines actions related to what task will be performed first. --- @return DCSTask#Task The DCS task structure. -function CONTROLLABLE:EnRouteTaskEngageTargets( Distance, TargetTypes, Priority ) - self:F2( { self.ControllableName, Distance, TargetTypes, Priority } ) - --- EngageTargets ={ --- id = 'EngageTargets', --- params = { --- maxDist = Distance, --- targetTypes = array of AttributeName, --- priority = number --- } --- } - - local DCSTask - DCSTask = { id = 'EngageTargets', - params = { - maxDist = Distance, - targetTypes = TargetTypes, - priority = Priority - } - } - - self:T3( { DCSTask } ) - return DCSTask -end - - - ---- (AIR) Engaging a targets of defined types at circle-shaped zone. --- @param #CONTROLLABLE self --- @param DCSTypes#Vec2 PointVec2 2D-coordinates of the zone. --- @param DCSTypes#Distance Radius Radius of the zone. --- @param DCSTypes#AttributeNameArray TargetTypes Array of target categories allowed to engage. --- @param #number Priority All en-route tasks have the priority parameter. This is a number (less value - higher priority) that determines actions related to what task will be performed first. --- @return DCSTask#Task The DCS task structure. -function CONTROLLABLE:EnRouteTaskEngageTargets( PointVec2, Radius, TargetTypes, Priority ) - self:F2( { self.ControllableName, PointVec2, Radius, TargetTypes, Priority } ) - --- EngageTargetsInZone = { --- id = 'EngageTargetsInZone', --- params = { --- point = Vec2, --- zoneRadius = Distance, --- targetTypes = array of AttributeName, --- priority = number --- } --- } - - local DCSTask - DCSTask = { id = 'EngageTargetsInZone', - params = { - point = PointVec2, - zoneRadius = Radius, - targetTypes = TargetTypes, - priority = Priority - } - } - - self:T3( { DCSTask } ) - return DCSTask -end - - ---- (AIR) Engaging a controllable. The task does not assign the target controllable to the unit/controllable to attack now; it just allows the unit/controllable to engage the target controllable as well as other assigned targets. --- @param #CONTROLLABLE self --- @param Controllable#CONTROLLABLE AttackGroup The Controllable to be attacked. --- @param #number Priority All en-route tasks have the priority parameter. This is a number (less value - higher priority) that determines actions related to what task will be performed first. --- @param #number WeaponType (optional) Bitmask of weapon types those allowed to use. If parameter is not defined that means no limits on weapon usage. --- @param DCSTypes#AI.Task.WeaponExpend WeaponExpend (optional) Determines how much weapon will be released at each attack. If parameter is not defined the unit / controllable will choose expend on its own discretion. --- @param #number AttackQty (optional) This parameter limits maximal quantity of attack. The aicraft/controllable will not make more attack than allowed even if the target controllable not destroyed and the aicraft/controllable still have ammo. If not defined the aircraft/controllable will attack target until it will be destroyed or until the aircraft/controllable will run out of ammo. --- @param DCSTypes#Azimuth Direction (optional) Desired ingress direction from the target to the attacking aircraft. Controllable/aircraft will make its attacks from the direction. Of course if there is no way to attack from the direction due the terrain controllable/aircraft will choose another direction. --- @param DCSTypes#Distance Altitude (optional) Desired attack start altitude. Controllable/aircraft will make its attacks from the altitude. If the altitude is too low or too high to use weapon aircraft/controllable will choose closest altitude to the desired attack start altitude. If the desired altitude is defined controllable/aircraft will not attack from safe altitude. --- @param #boolean AttackQtyLimit (optional) The flag determines how to interpret attackQty parameter. If the flag is true then attackQty is a limit on maximal attack quantity for "AttackControllable" and "AttackUnit" tasks. If the flag is false then attackQty is a desired attack quantity for "Bombing" and "BombingRunway" tasks. --- @return DCSTask#Task The DCS task structure. -function CONTROLLABLE:EnRouteTaskEngageGroup( AttackGroup, Priority, WeaponType, WeaponExpend, AttackQty, Direction, Altitude, AttackQtyLimit ) - self:F2( { self.ControllableName, AttackGroup, Priority, WeaponType, WeaponExpend, AttackQty, Direction, Altitude, AttackQtyLimit } ) - - -- EngageControllable = { - -- id = 'EngageControllable ', - -- params = { - -- controllableId = Controllable.ID, - -- weaponType = number, - -- expend = enum AI.Task.WeaponExpend, - -- attackQty = number, - -- directionEnabled = boolean, - -- direction = Azimuth, - -- altitudeEnabled = boolean, - -- altitude = Distance, - -- attackQtyLimit = boolean, - -- priority = number, - -- } - -- } - - local DirectionEnabled = nil - if Direction then - DirectionEnabled = true - end - - local AltitudeEnabled = nil - if Altitude then - AltitudeEnabled = true - end - - local DCSTask - DCSTask = { id = 'EngageControllable', - params = { - controllableId = AttackGroup:GetID(), - weaponType = WeaponType, - expend = WeaponExpend, - attackQty = AttackQty, - directionEnabled = DirectionEnabled, - direction = Direction, - altitudeEnabled = AltitudeEnabled, - altitude = Altitude, - attackQtyLimit = AttackQtyLimit, - priority = Priority, - }, - }, - - self:T3( { DCSTask } ) - return DCSTask -end - - ---- (AIR) Attack the Unit. --- @param #CONTROLLABLE self --- @param Unit#UNIT AttackUnit The UNIT. --- @param #number Priority All en-route tasks have the priority parameter. This is a number (less value - higher priority) that determines actions related to what task will be performed first. --- @param #number WeaponType (optional) Bitmask of weapon types those allowed to use. If parameter is not defined that means no limits on weapon usage. --- @param DCSTypes#AI.Task.WeaponExpend WeaponExpend (optional) Determines how much weapon will be released at each attack. If parameter is not defined the unit / controllable will choose expend on its own discretion. --- @param #number AttackQty (optional) This parameter limits maximal quantity of attack. The aicraft/controllable will not make more attack than allowed even if the target controllable not destroyed and the aicraft/controllable still have ammo. If not defined the aircraft/controllable will attack target until it will be destroyed or until the aircraft/controllable will run out of ammo. --- @param DCSTypes#Azimuth Direction (optional) Desired ingress direction from the target to the attacking aircraft. Controllable/aircraft will make its attacks from the direction. Of course if there is no way to attack from the direction due the terrain controllable/aircraft will choose another direction. --- @param #boolean AttackQtyLimit (optional) The flag determines how to interpret attackQty parameter. If the flag is true then attackQty is a limit on maximal attack quantity for "AttackControllable" and "AttackUnit" tasks. If the flag is false then attackQty is a desired attack quantity for "Bombing" and "BombingRunway" tasks. --- @param #boolean ControllableAttack (optional) Flag indicates that the target must be engaged by all aircrafts of the controllable. Has effect only if the task is assigned to a controllable, not to a single aircraft. --- @return DCSTask#Task The DCS task structure. -function CONTROLLABLE:EnRouteTaskEngageUnit( AttackUnit, Priority, WeaponType, WeaponExpend, AttackQty, Direction, AttackQtyLimit, ControllableAttack ) - self:F2( { self.ControllableName, AttackUnit, Priority, WeaponType, WeaponExpend, AttackQty, Direction, AttackQtyLimit, ControllableAttack } ) - - -- EngageUnit = { - -- id = 'EngageUnit', - -- params = { - -- unitId = Unit.ID, - -- weaponType = number, - -- expend = enum AI.Task.WeaponExpend - -- attackQty = number, - -- direction = Azimuth, - -- attackQtyLimit = boolean, - -- controllableAttack = boolean, - -- priority = number, - -- } - -- } - - local DCSTask - DCSTask = { id = 'EngageUnit', - params = { - unitId = AttackUnit:GetID(), - weaponType = WeaponType, - expend = WeaponExpend, - attackQty = AttackQty, - direction = Direction, - attackQtyLimit = AttackQtyLimit, - controllableAttack = ControllableAttack, - priority = Priority, - }, - }, - - self:T3( { DCSTask } ) - return DCSTask -end - - - ---- (AIR) Aircraft will act as an AWACS for friendly units (will provide them with information about contacts). No parameters. --- @param #CONTROLLABLE self --- @return DCSTask#Task The DCS task structure. -function CONTROLLABLE:EnRouteTaskAWACS( ) - self:F2( { self.ControllableName } ) - --- AWACS = { --- id = 'AWACS', --- params = { --- } --- } - - local DCSTask - DCSTask = { id = 'AWACS', - params = { - } - } - - self:T3( { DCSTask } ) - return DCSTask -end - - ---- (AIR) Aircraft will act as a tanker for friendly units. No parameters. --- @param #CONTROLLABLE self --- @return DCSTask#Task The DCS task structure. -function CONTROLLABLE:EnRouteTaskTanker( ) - self:F2( { self.ControllableName } ) - --- Tanker = { --- id = 'Tanker', --- params = { --- } --- } - - local DCSTask - DCSTask = { id = 'Tanker', - params = { - } - } - - self:T3( { DCSTask } ) - return DCSTask -end - - --- En-route tasks for ground units/controllables - ---- (GROUND) Ground unit (EW-radar) will act as an EWR for friendly units (will provide them with information about contacts). No parameters. --- @param #CONTROLLABLE self --- @return DCSTask#Task The DCS task structure. -function CONTROLLABLE:EnRouteTaskEWR( ) - self:F2( { self.ControllableName } ) - --- EWR = { --- id = 'EWR', --- params = { --- } --- } - - local DCSTask - DCSTask = { id = 'EWR', - params = { - } - } - - self:T3( { DCSTask } ) - return DCSTask -end - - --- En-route tasks for airborne and ground units/controllables - ---- (AIR + GROUND) The task makes the controllable/unit a FAC and lets the FAC to choose the target (enemy ground controllable) as well as other assigned targets. --- The killer is player-controlled allied CAS-aircraft that is in contact with the FAC. --- If the task is assigned to the controllable lead unit will be a FAC. --- @param #CONTROLLABLE self --- @param Controllable#CONTROLLABLE AttackGroup Target CONTROLLABLE. --- @param #number Priority All en-route tasks have the priority parameter. This is a number (less value - higher priority) that determines actions related to what task will be performed first. --- @param #number WeaponType Bitmask of weapon types those allowed to use. If parameter is not defined that means no limits on weapon usage. --- @param DCSTypes#AI.Task.Designation Designation (optional) Designation type. --- @param #boolean Datalink (optional) Allows to use datalink to send the target information to attack aircraft. Enabled by default. --- @return DCSTask#Task The DCS task structure. -function CONTROLLABLE:EnRouteTaskFAC_EngageGroup( AttackGroup, Priority, WeaponType, Designation, Datalink ) - self:F2( { self.ControllableName, AttackGroup, WeaponType, Priority, Designation, Datalink } ) - --- FAC_EngageControllable = { --- id = 'FAC_EngageControllable', --- params = { --- controllableId = Controllable.ID, --- weaponType = number, --- designation = enum AI.Task.Designation, --- datalink = boolean, --- priority = number, --- } --- } - - local DCSTask - DCSTask = { id = 'FAC_EngageControllable', - params = { - controllableId = AttackGroup:GetID(), - weaponType = WeaponType, - designation = Designation, - datalink = Datalink, - priority = Priority, - } - } - - self:T3( { DCSTask } ) - return DCSTask -end - - ---- (AIR + GROUND) The task makes the controllable/unit a FAC and lets the FAC to choose a targets (enemy ground controllable) around as well as other assigned targets. --- The killer is player-controlled allied CAS-aircraft that is in contact with the FAC. --- If the task is assigned to the controllable lead unit will be a FAC. --- @param #CONTROLLABLE self --- @param DCSTypes#Distance Radius The maximal distance from the FAC to a target. --- @param #number Priority All en-route tasks have the priority parameter. This is a number (less value - higher priority) that determines actions related to what task will be performed first. --- @return DCSTask#Task The DCS task structure. -function CONTROLLABLE:EnRouteTaskFAC( Radius, Priority ) - self:F2( { self.ControllableName, Radius, Priority } ) - --- FAC = { --- id = 'FAC', --- params = { --- radius = Distance, --- priority = number --- } --- } - - local DCSTask - DCSTask = { id = 'FAC', - params = { - radius = Radius, - priority = Priority - } - } - - self:T3( { DCSTask } ) - return DCSTask -end - - - - ---- (AIR) Move the controllable to a Vec2 Point, wait for a defined duration and embark a controllable. --- @param #CONTROLLABLE self --- @param DCSTypes#Vec2 Point The point where to wait. --- @param #number Duration The duration in seconds to wait. --- @param #CONTROLLABLE EmbarkingControllable The controllable to be embarked. --- @return DCSTask#Task The DCS task structure -function CONTROLLABLE:TaskEmbarking( Point, Duration, EmbarkingControllable ) - self:F2( { self.ControllableName, Point, Duration, EmbarkingControllable.DCSControllable } ) - - local DCSTask - DCSTask = { id = 'Embarking', - params = { x = Point.x, - y = Point.y, - duration = Duration, - controllablesForEmbarking = { EmbarkingControllable.ControllableID }, - durationFlag = true, - distributionFlag = false, - distribution = {}, - } - } - - self:T3( { DCSTask } ) - return DCSTask -end - ---- (GROUND) Embark to a Transport landed at a location. - ---- Move to a defined Vec2 Point, and embark to a controllable when arrived within a defined Radius. --- @param #CONTROLLABLE self --- @param DCSTypes#Vec2 Point The point where to wait. --- @param #number Radius The radius of the embarking zone around the Point. --- @return DCSTask#Task The DCS task structure. -function CONTROLLABLE:TaskEmbarkToTransport( Point, Radius ) - self:F2( { self.ControllableName, Point, Radius } ) - - local DCSTask --DCSTask#Task - DCSTask = { id = 'EmbarkToTransport', - params = { x = Point.x, - y = Point.y, - zoneRadius = Radius, - } - } - - self:T3( { DCSTask } ) - return DCSTask -end - - - ---- (AIR + GROUND) Return a mission task from a mission template. --- @param #CONTROLLABLE self --- @param #table TaskMission A table containing the mission task. --- @return DCSTask#Task -function CONTROLLABLE:TaskMission( TaskMission ) - self:F2( Points ) - - local DCSTask - DCSTask = { id = 'Mission', params = { TaskMission, }, } - - self:T3( { DCSTask } ) - return DCSTask -end - ---- Return a Misson task to follow a given route defined by Points. --- @param #CONTROLLABLE self --- @param #table Points A table of route points. --- @return DCSTask#Task -function CONTROLLABLE:TaskRoute( Points ) - self:F2( Points ) - - local DCSTask - DCSTask = { id = 'Mission', params = { route = { points = Points, }, }, } - - self:T3( { DCSTask } ) - return DCSTask -end - ---- (AIR + GROUND) Make the Controllable move to fly to a given point. --- @param #CONTROLLABLE self --- @param DCSTypes#Vec3 Point The destination point in Vec3 format. --- @param #number Speed The speed to travel. --- @return #CONTROLLABLE self -function CONTROLLABLE:TaskRouteToVec2( Point, Speed ) - self:F2( { Point, Speed } ) - - local ControllablePoint = self:GetUnit( 1 ):GetPointVec2() - - local PointFrom = {} - PointFrom.x = ControllablePoint.x - PointFrom.y = ControllablePoint.y - PointFrom.type = "Turning Point" - PointFrom.action = "Turning Point" - PointFrom.speed = Speed - PointFrom.speed_locked = true - PointFrom.properties = { - ["vnav"] = 1, - ["scale"] = 0, - ["angle"] = 0, - ["vangle"] = 0, - ["steer"] = 2, - } - - - local PointTo = {} - PointTo.x = Point.x - PointTo.y = Point.y - PointTo.type = "Turning Point" - PointTo.action = "Fly Over Point" - PointTo.speed = Speed - PointTo.speed_locked = true - PointTo.properties = { - ["vnav"] = 1, - ["scale"] = 0, - ["angle"] = 0, - ["vangle"] = 0, - ["steer"] = 2, - } - - - local Points = { PointFrom, PointTo } - - self:T3( Points ) - - self:Route( Points ) - - return self -end - ---- (AIR + GROUND) Make the Controllable move to a given point. --- @param #CONTROLLABLE self --- @param DCSTypes#Vec3 Point The destination point in Vec3 format. --- @param #number Speed The speed to travel. --- @return #CONTROLLABLE self -function CONTROLLABLE:TaskRouteToVec3( Point, Speed ) - self:F2( { Point, Speed } ) - - local ControllablePoint = self:GetUnit( 1 ):GetPointVec3() - - local PointFrom = {} - PointFrom.x = ControllablePoint.x - PointFrom.y = ControllablePoint.z - PointFrom.alt = ControllablePoint.y - PointFrom.alt_type = "BARO" - PointFrom.type = "Turning Point" - PointFrom.action = "Turning Point" - PointFrom.speed = Speed - PointFrom.speed_locked = true - PointFrom.properties = { - ["vnav"] = 1, - ["scale"] = 0, - ["angle"] = 0, - ["vangle"] = 0, - ["steer"] = 2, - } - - - local PointTo = {} - PointTo.x = Point.x - PointTo.y = Point.z - PointTo.alt = Point.y - PointTo.alt_type = "BARO" - PointTo.type = "Turning Point" - PointTo.action = "Fly Over Point" - PointTo.speed = Speed - PointTo.speed_locked = true - PointTo.properties = { - ["vnav"] = 1, - ["scale"] = 0, - ["angle"] = 0, - ["vangle"] = 0, - ["steer"] = 2, - } - - - local Points = { PointFrom, PointTo } - - self:T3( Points ) - - self:Route( Points ) - - return self -end - - - ---- Make the controllable to follow a given route. --- @param #CONTROLLABLE self --- @param #table GoPoints A table of Route Points. --- @return #CONTROLLABLE self -function CONTROLLABLE:Route( GoPoints ) - self:F2( GoPoints ) - - local DCSControllable = self:GetDCSObject() - - if DCSControllable then - local Points = routines.utils.deepCopy( GoPoints ) - local MissionTask = { id = 'Mission', params = { route = { points = Points, }, }, } - local Controller = self:_GetController() - --Controller.setTask( Controller, MissionTask ) - SCHEDULER:New( Controller, Controller.setTask, { MissionTask }, 1 ) - return self - end - - return nil -end - - - ---- (AIR + GROUND) Route the controllable to a given zone. --- The controllable final destination point can be randomized. --- A speed can be given in km/h. --- A given formation can be given. --- @param #CONTROLLABLE self --- @param Zone#ZONE Zone The zone where to route to. --- @param #boolean Randomize Defines whether to target point gets randomized within the Zone. --- @param #number Speed The speed. --- @param Base#FORMATION Formation The formation string. -function CONTROLLABLE:TaskRouteToZone( Zone, Randomize, Speed, Formation ) - self:F2( Zone ) - - local DCSControllable = self:GetDCSObject() - - if DCSControllable then - - local ControllablePoint = self:GetPointVec2() - - local PointFrom = {} - PointFrom.x = ControllablePoint.x - PointFrom.y = ControllablePoint.y - PointFrom.type = "Turning Point" - PointFrom.action = "Cone" - PointFrom.speed = 20 / 1.6 - - - local PointTo = {} - local ZonePoint - - if Randomize then - ZonePoint = Zone:GetRandomVec2() - else - ZonePoint = Zone:GetPointVec2() - end - - PointTo.x = ZonePoint.x - PointTo.y = ZonePoint.y - PointTo.type = "Turning Point" - - if Formation then - PointTo.action = Formation - else - PointTo.action = "Cone" - end - - if Speed then - PointTo.speed = Speed - else - PointTo.speed = 20 / 1.6 - end - - local Points = { PointFrom, PointTo } - - self:T3( Points ) - - self:Route( Points ) - - return self - end - - return nil -end - ---- (AIR) Return the Controllable to an @{Airbase#AIRBASE} --- A speed can be given in km/h. --- A given formation can be given. --- @param #CONTROLLABLE self --- @param Airbase#AIRBASE ReturnAirbase The @{Airbase#AIRBASE} to return to. --- @param #number Speed (optional) The speed. --- @return #string The route -function CONTROLLABLE:RouteReturnToAirbase( ReturnAirbase, Speed ) - self:F2( { ReturnAirbase, Speed } ) - --- Example --- [4] = --- { --- ["alt"] = 45, --- ["type"] = "Land", --- ["action"] = "Landing", --- ["alt_type"] = "BARO", --- ["formation_template"] = "", --- ["properties"] = --- { --- ["vnav"] = 1, --- ["scale"] = 0, --- ["angle"] = 0, --- ["vangle"] = 0, --- ["steer"] = 2, --- }, -- end of ["properties"] --- ["ETA"] = 527.81058817743, --- ["airdromeId"] = 12, --- ["y"] = 243127.2973737, --- ["x"] = -5406.2803440839, --- ["name"] = "DictKey_WptName_53", --- ["speed"] = 138.88888888889, --- ["ETA_locked"] = false, --- ["task"] = --- { --- ["id"] = "ComboTask", --- ["params"] = --- { --- ["tasks"] = --- { --- }, -- end of ["tasks"] --- }, -- end of ["params"] --- }, -- end of ["task"] --- ["speed_locked"] = true, --- }, -- end of [4] - - - local DCSControllable = self:GetDCSObject() - - if DCSControllable then - - local ControllablePoint = self:GetPointVec2() - local ControllableVelocity = self:GetMaxVelocity() - - local PointFrom = {} - PointFrom.x = ControllablePoint.x - PointFrom.y = ControllablePoint.y - PointFrom.type = "Turning Point" - PointFrom.action = "Turning Point" - PointFrom.speed = ControllableVelocity - - - local PointTo = {} - local AirbasePoint = ReturnAirbase:GetPointVec2() - - PointTo.x = AirbasePoint.x - PointTo.y = AirbasePoint.y - PointTo.type = "Land" - PointTo.action = "Landing" - PointTo.airdromeId = ReturnAirbase:GetID()-- Airdrome ID - self:T(PointTo.airdromeId) - --PointTo.alt = 0 - - local Points = { PointFrom, PointTo } - - self:T3( Points ) - - local Route = { points = Points, } - - return Route - end - - return nil -end - --- Commands - ---- Do Script command --- @param #CONTROLLABLE self --- @param #string DoScript --- @return #DCSCommand -function CONTROLLABLE:CommandDoScript( DoScript ) - - local DCSDoScript = { - id = "Script", - params = { - command = DoScript, - }, - } - - self:T3( DCSDoScript ) - return DCSDoScript -end - - ---- Return the mission template of the controllable. --- @param #CONTROLLABLE self --- @return #table The MissionTemplate --- TODO: Rework the method how to retrieve a template ... -function CONTROLLABLE:GetTaskMission() - self:F2( self.ControllableName ) - - return routines.utils.deepCopy( _DATABASE.Templates.Controllables[self.ControllableName].Template ) -end - ---- Return the mission route of the controllable. --- @param #CONTROLLABLE self --- @return #table The mission route defined by points. -function CONTROLLABLE:GetTaskRoute() - self:F2( self.ControllableName ) - - return routines.utils.deepCopy( _DATABASE.Templates.Controllables[self.ControllableName].Template.route.points ) -end - ---- Return the route of a controllable by using the @{Database#DATABASE} class. --- @param #CONTROLLABLE self --- @param #number Begin The route point from where the copy will start. The base route point is 0. --- @param #number End The route point where the copy will end. The End point is the last point - the End point. The last point has base 0. --- @param #boolean Randomize Randomization of the route, when true. --- @param #number Radius When randomization is on, the randomization is within the radius. -function CONTROLLABLE:CopyRoute( Begin, End, Randomize, Radius ) - self:F2( { Begin, End } ) - - local Points = {} - - -- Could be a Spawned Controllable - local ControllableName = string.match( self:GetName(), ".*#" ) - if ControllableName then - ControllableName = ControllableName:sub( 1, -2 ) - else - ControllableName = self:GetName() - end - - self:T3( { ControllableName } ) - - local Template = _DATABASE.Templates.Controllables[ControllableName].Template - - if Template then - if not Begin then - Begin = 0 - end - if not End then - End = 0 - end - - for TPointID = Begin + 1, #Template.route.points - End do - if Template.route.points[TPointID] then - Points[#Points+1] = routines.utils.deepCopy( Template.route.points[TPointID] ) - if Randomize then - if not Radius then - Radius = 500 - end - Points[#Points].x = Points[#Points].x + math.random( Radius * -1, Radius ) - Points[#Points].y = Points[#Points].y + math.random( Radius * -1, Radius ) - end - end - end - return Points - else - error( "Template not found for Controllable : " .. ControllableName ) - end - - return nil -end - - ---- Return the detected targets of the controllable. --- The optional parametes specify the detection methods that can be applied. --- If no detection method is given, the detection will use all the available methods by default. --- @param Controllable#CONTROLLABLE self --- @param #boolean DetectVisual (optional) --- @param #boolean DetectOptical (optional) --- @param #boolean DetectRadar (optional) --- @param #boolean DetectIRST (optional) --- @param #boolean DetectRWR (optional) --- @param #boolean DetectDLINK (optional) --- @return #table DetectedTargets -function CONTROLLABLE:GetDetectedTargets( DetectVisual, DetectOptical, DetectRadar, DetectIRST, DetectRWR, DetectDLINK ) - self:F2( self.ControllableName ) - - local DCSControllable = self:GetDCSObject() - if DCSControllable then - local DetectionVisual = ( DetectVisual and DetectVisual == true ) and Controller.Detection.VISUAL or nil - local DetectionOptical = ( DetectOptical and DetectOptical == true ) and Controller.Detection.OPTICAL or nil - local DetectionRadar = ( DetectRadar and DetectRadar == true ) and Controller.Detection.RADAR or nil - local DetectionIRST = ( DetectIRST and DetectIRST == true ) and Controller.Detection.IRST or nil - local DetectionRWR = ( DetectRWR and DetectRWR == true ) and Controller.Detection.RWR or nil - local DetectionDLINK = ( DetectDLINK and DetectDLINK == true ) and Controller.Detection.DLINK or nil - - - return self:_GetController():getDetectedTargets( DetectionVisual, DetectionOptical, DetectionRadar, DetectionIRST, DetectionRWR, DetectionDLINK ) - end - - return nil -end - -function CONTROLLABLE:IsTargetDetected( DCSObject ) - self:F2( self.ControllableName ) - - local DCSControllable = self:GetDCSObject() - if DCSControllable then - - local TargetIsDetected, TargetIsVisible, TargetLastTime, TargetKnowType, TargetKnowDistance, TargetLastPos, TargetLastVelocity - = self:_GetController().isTargetDetected( self:_GetController(), DCSObject, - Controller.Detection.VISUAL, - Controller.Detection.OPTIC, - Controller.Detection.RADAR, - Controller.Detection.IRST, - Controller.Detection.RWR, - Controller.Detection.DLINK - ) - return TargetIsDetected, TargetIsVisible, TargetLastTime, TargetKnowType, TargetKnowDistance, TargetLastPos, TargetLastVelocity - end - - return nil -end - --- Options - ---- Can the CONTROLLABLE hold their weapons? --- @param #CONTROLLABLE self --- @return #boolean -function CONTROLLABLE:OptionROEHoldFirePossible() - self:F2( { self.ControllableName } ) - - local DCSControllable = self:GetDCSObject() - if DCSControllable then - if self:IsAir() or self:IsGround() or self:IsShip() then - return true - end - - return false - end - - return nil -end - ---- Holding weapons. --- @param Controllable#CONTROLLABLE self --- @return Controllable#CONTROLLABLE self -function CONTROLLABLE:OptionROEHoldFire() - self:F2( { self.ControllableName } ) - - local DCSControllable = self:GetDCSObject() - if DCSControllable then - local Controller = self:_GetController() - - if self:IsAir() then - Controller:setOption( AI.Option.Air.id.ROE, AI.Option.Air.val.ROE.WEAPON_HOLD ) - elseif self:IsGround() then - Controller:setOption( AI.Option.Ground.id.ROE, AI.Option.Ground.val.ROE.WEAPON_HOLD ) - elseif self:IsShip() then - Controller:setOption( AI.Option.Naval.id.ROE, AI.Option.Naval.val.ROE.WEAPON_HOLD ) - end - - return self - end - - return nil -end - ---- Can the CONTROLLABLE attack returning on enemy fire? --- @param #CONTROLLABLE self --- @return #boolean -function CONTROLLABLE:OptionROEReturnFirePossible() - self:F2( { self.ControllableName } ) - - local DCSControllable = self:GetDCSObject() - if DCSControllable then - if self:IsAir() or self:IsGround() or self:IsShip() then - return true - end - - return false - end - - return nil -end - ---- Return fire. --- @param #CONTROLLABLE self --- @return #CONTROLLABLE self -function CONTROLLABLE:OptionROEReturnFire() - self:F2( { self.ControllableName } ) - - local DCSControllable = self:GetDCSObject() - if DCSControllable then - local Controller = self:_GetController() - - if self:IsAir() then - Controller:setOption( AI.Option.Air.id.ROE, AI.Option.Air.val.ROE.RETURN_FIRE ) - elseif self:IsGround() then - Controller:setOption( AI.Option.Ground.id.ROE, AI.Option.Ground.val.ROE.RETURN_FIRE ) - elseif self:IsShip() then - Controller:setOption( AI.Option.Naval.id.ROE, AI.Option.Naval.val.ROE.RETURN_FIRE ) - end - - return self - end - - return nil -end - ---- Can the CONTROLLABLE attack designated targets? --- @param #CONTROLLABLE self --- @return #boolean -function CONTROLLABLE:OptionROEOpenFirePossible() - self:F2( { self.ControllableName } ) - - local DCSControllable = self:GetDCSObject() - if DCSControllable then - if self:IsAir() or self:IsGround() or self:IsShip() then - return true - end - - return false - end - - return nil -end - ---- Openfire. --- @param #CONTROLLABLE self --- @return #CONTROLLABLE self -function CONTROLLABLE:OptionROEOpenFire() - self:F2( { self.ControllableName } ) - - local DCSControllable = self:GetDCSObject() - if DCSControllable then - local Controller = self:_GetController() - - if self:IsAir() then - Controller:setOption( AI.Option.Air.id.ROE, AI.Option.Air.val.ROE.OPEN_FIRE ) - elseif self:IsGround() then - Controller:setOption( AI.Option.Ground.id.ROE, AI.Option.Ground.val.ROE.OPEN_FIRE ) - elseif self:IsShip() then - Controller:setOption( AI.Option.Naval.id.ROE, AI.Option.Naval.val.ROE.OPEN_FIRE ) - end - - return self - end - - return nil -end - ---- Can the CONTROLLABLE attack targets of opportunity? --- @param #CONTROLLABLE self --- @return #boolean -function CONTROLLABLE:OptionROEWeaponFreePossible() - self:F2( { self.ControllableName } ) - - local DCSControllable = self:GetDCSObject() - if DCSControllable then - if self:IsAir() then - return true - end - - return false - end - - return nil -end - ---- Weapon free. --- @param #CONTROLLABLE self --- @return #CONTROLLABLE self -function CONTROLLABLE:OptionROEWeaponFree() - self:F2( { self.ControllableName } ) - - local DCSControllable = self:GetDCSObject() - if DCSControllable then - local Controller = self:_GetController() - - if self:IsAir() then - Controller:setOption( AI.Option.Air.id.ROE, AI.Option.Air.val.ROE.WEAPON_FREE ) - end - - return self - end - - return nil -end - ---- Can the CONTROLLABLE ignore enemy fire? --- @param #CONTROLLABLE self --- @return #boolean -function CONTROLLABLE:OptionROTNoReactionPossible() - self:F2( { self.ControllableName } ) - - local DCSControllable = self:GetDCSObject() - if DCSControllable then - if self:IsAir() then - return true - end - - return false - end - - return nil -end - - ---- No evasion on enemy threats. --- @param #CONTROLLABLE self --- @return #CONTROLLABLE self -function CONTROLLABLE:OptionROTNoReaction() - self:F2( { self.ControllableName } ) - - local DCSControllable = self:GetDCSObject() - if DCSControllable then - local Controller = self:_GetController() - - if self:IsAir() then - Controller:setOption( AI.Option.Air.id.REACTION_ON_THREAT, AI.Option.Air.val.REACTION_ON_THREAT.NO_REACTION ) - end - - return self - end - - return nil -end - ---- Can the CONTROLLABLE evade using passive defenses? --- @param #CONTROLLABLE self --- @return #boolean -function CONTROLLABLE:OptionROTPassiveDefensePossible() - self:F2( { self.ControllableName } ) - - local DCSControllable = self:GetDCSObject() - if DCSControllable then - if self:IsAir() then - return true - end - - return false - end - - return nil -end - ---- Evasion passive defense. --- @param #CONTROLLABLE self --- @return #CONTROLLABLE self -function CONTROLLABLE:OptionROTPassiveDefense() - self:F2( { self.ControllableName } ) - - local DCSControllable = self:GetDCSObject() - if DCSControllable then - local Controller = self:_GetController() - - if self:IsAir() then - Controller:setOption( AI.Option.Air.id.REACTION_ON_THREAT, AI.Option.Air.val.REACTION_ON_THREAT.PASSIVE_DEFENCE ) - end - - return self - end - - return nil -end - ---- Can the CONTROLLABLE evade on enemy fire? --- @param #CONTROLLABLE self --- @return #boolean -function CONTROLLABLE:OptionROTEvadeFirePossible() - self:F2( { self.ControllableName } ) - - local DCSControllable = self:GetDCSObject() - if DCSControllable then - if self:IsAir() then - return true - end - - return false - end - - return nil -end - - ---- Evade on fire. --- @param #CONTROLLABLE self --- @return #CONTROLLABLE self -function CONTROLLABLE:OptionROTEvadeFire() - self:F2( { self.ControllableName } ) - - local DCSControllable = self:GetDCSObject() - if DCSControllable then - local Controller = self:_GetController() - - if self:IsAir() then - Controller:setOption( AI.Option.Air.id.REACTION_ON_THREAT, AI.Option.Air.val.REACTION_ON_THREAT.EVADE_FIRE ) - end - - return self - end - - return nil -end - ---- Can the CONTROLLABLE evade on fire using vertical manoeuvres? --- @param #CONTROLLABLE self --- @return #boolean -function CONTROLLABLE:OptionROTVerticalPossible() - self:F2( { self.ControllableName } ) - - local DCSControllable = self:GetDCSObject() - if DCSControllable then - if self:IsAir() then - return true - end - - return false - end - - return nil -end - - ---- Evade on fire using vertical manoeuvres. --- @param #CONTROLLABLE self --- @return #CONTROLLABLE self -function CONTROLLABLE:OptionROTVertical() - self:F2( { self.ControllableName } ) - - local DCSControllable = self:GetDCSObject() - if DCSControllable then - local Controller = self:_GetController() - - if self:IsAir() then - Controller:setOption( AI.Option.Air.id.REACTION_ON_THREAT, AI.Option.Air.val.REACTION_ON_THREAT.BYPASS_AND_ESCAPE ) - end - - return self - end - - return nil -end - ---- Retrieve the controllable mission and allow to place function hooks within the mission waypoint plan. --- Use the method @{Controllable#CONTROLLABLE:WayPointFunction} to define the hook functions for specific waypoints. --- Use the method @{Controllable@CONTROLLABLE:WayPointExecute) to start the execution of the new mission plan. --- Note that when WayPointInitialize is called, the Mission of the controllable is RESTARTED! --- @param #CONTROLLABLE self --- @param #table WayPoints If WayPoints is given, then use the route. --- @return #CONTROLLABLE -function CONTROLLABLE:WayPointInitialize( WayPoints ) - - if WayPoints then - self.WayPoints = WayPoints - else - self.WayPoints = self:GetTaskRoute() - end - - return self -end - - ---- Registers a waypoint function that will be executed when the controllable moves over the WayPoint. --- @param #CONTROLLABLE self --- @param #number WayPoint The waypoint number. Note that the start waypoint on the route is WayPoint 1! --- @param #number WayPointIndex When defining multiple WayPoint functions for one WayPoint, use WayPointIndex to set the sequence of actions. --- @param #function WayPointFunction The waypoint function to be called when the controllable moves over the waypoint. The waypoint function takes variable parameters. --- @return #CONTROLLABLE -function CONTROLLABLE:WayPointFunction( WayPoint, WayPointIndex, WayPointFunction, ... ) - self:F2( { WayPoint, WayPointIndex, WayPointFunction } ) - - table.insert( self.WayPoints[WayPoint].task.params.tasks, WayPointIndex ) - self.WayPoints[WayPoint].task.params.tasks[WayPointIndex] = self:TaskFunction( WayPoint, WayPointIndex, WayPointFunction, arg ) - return self -end - - -function CONTROLLABLE:TaskFunction( WayPoint, WayPointIndex, FunctionString, FunctionArguments ) - self:F2( { WayPoint, WayPointIndex, FunctionString, FunctionArguments } ) - - local DCSTask - - local DCSScript = {} - DCSScript[#DCSScript+1] = "local MissionControllable = CONTROLLABLE:Find( ... ) " - - if FunctionArguments and #FunctionArguments > 0 then - DCSScript[#DCSScript+1] = FunctionString .. "( MissionControllable, " .. table.concat( FunctionArguments, "," ) .. ")" - else - DCSScript[#DCSScript+1] = FunctionString .. "( MissionControllable )" - end - - DCSTask = self:TaskWrappedAction( - self:CommandDoScript( - table.concat( DCSScript ) - ), WayPointIndex - ) - - self:T3( DCSTask ) - - return DCSTask - -end - ---- Executes the WayPoint plan. --- The function gets a WayPoint parameter, that you can use to restart the mission at a specific WayPoint. --- Note that when the WayPoint parameter is used, the new start mission waypoint of the controllable will be 1! --- @param #CONTROLLABLE self --- @param #number WayPoint The WayPoint from where to execute the mission. --- @param #number WaitTime The amount seconds to wait before initiating the mission. --- @return #CONTROLLABLE -function CONTROLLABLE:WayPointExecute( WayPoint, WaitTime ) - - if not WayPoint then - WayPoint = 1 - end - - -- When starting the mission from a certain point, the TaskPoints need to be deleted before the given WayPoint. - for TaskPointID = 1, WayPoint - 1 do - table.remove( self.WayPoints, 1 ) - end - - self:T3( self.WayPoints ) - - self:SetTask( self:TaskRoute( self.WayPoints ), WaitTime ) - - return self -end - - ---- This module contains the SCHEDULER class. --- --- 1) @{Scheduler#SCHEDULER} class, extends @{Base#BASE} --- ===================================================== --- The @{Scheduler#SCHEDULER} class models time events calling given event handling functions. --- --- 1.1) SCHEDULER constructor --- -------------------------- --- The SCHEDULER class is quite easy to use: --- --- * @{Scheduler#SCHEDULER.New}: Setup a new scheduler and start it with the specified parameters. --- --- 1.2) SCHEDULER timer stop and start --- ----------------------------------- --- The SCHEDULER can be stopped and restarted with the following methods: --- --- * @{Scheduler#SCHEDULER.Start}: (Re-)Start the scheduler. --- * @{Scheduler#SCHEDULER.Stop}: Stop the scheduler. --- --- @module Scheduler --- @author FlightControl - - ---- The SCHEDULER class --- @type SCHEDULER --- @field #number ScheduleID the ID of the scheduler. --- @extends Base#BASE -SCHEDULER = { - ClassName = "SCHEDULER", -} - ---- SCHEDULER constructor. --- @param #SCHEDULER self --- @param #table TimeEventObject Specified for which Moose object the timer is setup. If a value of nil is provided, a scheduler will be setup without an object reference. --- @param #function TimeEventFunction The event function to be called when a timer event occurs. The event function needs to accept the parameters specified in TimeEventFunctionArguments. --- @param #table TimeEventFunctionArguments Optional arguments that can be given as part of scheduler. The arguments need to be given as a table { param1, param 2, ... }. --- @param #number StartSeconds Specifies the amount of seconds that will be waited before the scheduling is started, and the event function is called. --- @param #number RepeatSecondsInterval Specifies the interval in seconds when the scheduler will call the event function. --- @param #number RandomizationFactor Specifies a randomization factor between 0 and 1 to randomize the RepeatSecondsInterval. --- @param #number StopSeconds Specifies the amount of seconds when the scheduler will be stopped. --- @return #SCHEDULER self -function SCHEDULER:New( TimeEventObject, TimeEventFunction, TimeEventFunctionArguments, StartSeconds, RepeatSecondsInterval, RandomizationFactor, StopSeconds ) - local self = BASE:Inherit( self, BASE:New() ) - self:F2( { TimeEventObject, TimeEventFunction, TimeEventFunctionArguments, StartSeconds, RepeatSecondsInterval, RandomizationFactor, StopSeconds } ) - - self.TimeEventObject = TimeEventObject - self.TimeEventFunction = TimeEventFunction - self.TimeEventFunctionArguments = TimeEventFunctionArguments - self.StartSeconds = StartSeconds - self.Repeat = false - - if RepeatSecondsInterval then - self.RepeatSecondsInterval = RepeatSecondsInterval - else - self.RepeatSecondsInterval = 0 - end - - if RandomizationFactor then - self.RandomizationFactor = RandomizationFactor - else - self.RandomizationFactor = 0 - end - - if StopSeconds then - self.StopSeconds = StopSeconds - end - - - self.StartTime = timer.getTime() - - self:Start() - - return self -end - ---- (Re-)Starts the scheduler. --- @param #SCHEDULER self --- @return #SCHEDULER self -function SCHEDULER:Start() - self:F2( self.TimeEventObject ) - - if self.RepeatSecondsInterval ~= 0 then - self.Repeat = true - end - self.ScheduleID = timer.scheduleFunction( self._Scheduler, self, timer.getTime() + self.StartSeconds + .01 ) - - return self -end - ---- Stops the scheduler. --- @param #SCHEDULER self --- @return #SCHEDULER self -function SCHEDULER:Stop() - self:F2( self.TimeEventObject ) - - self.Repeat = false - if self.ScheduleID then - timer.removeFunction( self.ScheduleID ) - end - self.ScheduleID = nil - - return self -end - --- Private Functions - ---- @param #SCHEDULER self -function SCHEDULER:_Scheduler() - self:F2( self.TimeEventFunctionArguments ) - - local ErrorHandler = function( errmsg ) - - env.info( "Error in SCHEDULER function:" .. errmsg ) - if debug ~= nil then - env.info( debug.traceback() ) - end - - return errmsg - end - - local Status, Result - if self.TimeEventObject then - Status, Result = xpcall( function() return self.TimeEventFunction( self.TimeEventObject, unpack( self.TimeEventFunctionArguments ) ) end, ErrorHandler ) - else - Status, Result = xpcall( function() return self.TimeEventFunction( unpack( self.TimeEventFunctionArguments ) ) end, ErrorHandler ) - end - - self:T( { self.TimeEventFunctionArguments, Status, Result, self.StartTime, self.RepeatSecondsInterval, self.RandomizationFactor, self.StopSeconds } ) - - if Status and ( ( Result == nil ) or ( Result and Result ~= false ) ) then - if self.Repeat and ( not self.StopSeconds or ( self.StopSeconds and timer.getTime() <= self.StartTime + self.StopSeconds ) ) then - local ScheduleTime = - timer.getTime() + - self.RepeatSecondsInterval + - math.random( - - ( self.RandomizationFactor * self.RepeatSecondsInterval / 2 ), - ( self.RandomizationFactor * self.RepeatSecondsInterval / 2 ) - ) + - 0.01 - self:T( { self.TimeEventFunctionArguments, "Repeat:", timer.getTime(), ScheduleTime } ) - return ScheduleTime -- returns the next time the function needs to be called. - else - timer.removeFunction( self.ScheduleID ) - self.ScheduleID = nil - end - else - timer.removeFunction( self.ScheduleID ) - self.ScheduleID = nil - end - - return nil -end - - - - - - - - - - - - - - - - ---- The EVENT class models an efficient event handling process between other classes and its units, weapons. --- @module Event --- @author FlightControl - ---- The EVENT structure --- @type EVENT --- @field #EVENT.Events Events -EVENT = { - ClassName = "EVENT", - ClassID = 0, -} - -local _EVENTCODES = { - "S_EVENT_SHOT", - "S_EVENT_HIT", - "S_EVENT_TAKEOFF", - "S_EVENT_LAND", - "S_EVENT_CRASH", - "S_EVENT_EJECTION", - "S_EVENT_REFUELING", - "S_EVENT_DEAD", - "S_EVENT_PILOT_DEAD", - "S_EVENT_BASE_CAPTURED", - "S_EVENT_MISSION_START", - "S_EVENT_MISSION_END", - "S_EVENT_TOOK_CONTROL", - "S_EVENT_REFUELING_STOP", - "S_EVENT_BIRTH", - "S_EVENT_HUMAN_FAILURE", - "S_EVENT_ENGINE_STARTUP", - "S_EVENT_ENGINE_SHUTDOWN", - "S_EVENT_PLAYER_ENTER_UNIT", - "S_EVENT_PLAYER_LEAVE_UNIT", - "S_EVENT_PLAYER_COMMENT", - "S_EVENT_SHOOTING_START", - "S_EVENT_SHOOTING_END", - "S_EVENT_MAX", -} - ---- The Event structure --- @type EVENTDATA --- @field id --- @field initiator --- @field target --- @field weapon --- @field IniDCSUnit --- @field IniDCSUnitName --- @field Unit#UNIT IniUnit --- @field #string IniUnitName --- @field IniDCSGroup --- @field IniDCSGroupName --- @field TgtDCSUnit --- @field TgtDCSUnitName --- @field Unit#UNIT TgtUnit --- @field #string TgtUnitName --- @field TgtDCSGroup --- @field TgtDCSGroupName --- @field Weapon --- @field WeaponName --- @field WeaponTgtDCSUnit - ---- The Events structure --- @type EVENT.Events --- @field #number IniUnit - -function EVENT:New() - local self = BASE:Inherit( self, BASE:New() ) - self:F2() - self.EventHandler = world.addEventHandler( self ) - return self -end - -function EVENT:EventText( EventID ) - - local EventText = _EVENTCODES[EventID] - - return EventText -end - - ---- Initializes the Events structure for the event --- @param #EVENT self --- @param DCSWorld#world.event EventID --- @param #string EventClass --- @return #EVENT.Events -function EVENT:Init( EventID, EventClass ) - self:F3( { _EVENTCODES[EventID], EventClass } ) - if not self.Events[EventID] then - self.Events[EventID] = {} - end - if not self.Events[EventID][EventClass] then - self.Events[EventID][EventClass] = {} - end - return self.Events[EventID][EventClass] -end - - ---- Create an OnDead event handler for a group --- @param #EVENT self --- @param #table EventTemplate --- @param #function EventFunction The function to be called when the event occurs for the unit. --- @param EventSelf The self instance of the class for which the event is. --- @param #function OnEventFunction --- @return #EVENT -function EVENT:OnEventForTemplate( EventTemplate, EventFunction, EventSelf, OnEventFunction ) - self:F2( EventTemplate.name ) - - for EventUnitID, EventUnit in pairs( EventTemplate.units ) do - OnEventFunction( self, EventUnit.name, EventFunction, EventSelf ) - end - return self -end - ---- Set a new listener for an S_EVENT_X event independent from a unit or a weapon. --- @param #EVENT self --- @param #function EventFunction The function to be called when the event occurs for the unit. --- @param Base#BASE EventSelf The self instance of the class for which the event is. --- @param EventID --- @return #EVENT -function EVENT:OnEventGeneric( EventFunction, EventSelf, EventID ) - self:F2( { EventID } ) - - local Event = self:Init( EventID, EventSelf:GetClassNameAndID() ) - Event.EventFunction = EventFunction - Event.EventSelf = EventSelf - return self -end - - ---- Set a new listener for an S_EVENT_X event --- @param #EVENT self --- @param #string EventDCSUnitName --- @param #function EventFunction The function to be called when the event occurs for the unit. --- @param Base#BASE EventSelf The self instance of the class for which the event is. --- @param EventID --- @return #EVENT -function EVENT:OnEventForUnit( EventDCSUnitName, EventFunction, EventSelf, EventID ) - self:F2( EventDCSUnitName ) - - local Event = self:Init( EventID, EventSelf:GetClassNameAndID() ) - if not Event.IniUnit then - Event.IniUnit = {} - end - Event.IniUnit[EventDCSUnitName] = {} - Event.IniUnit[EventDCSUnitName].EventFunction = EventFunction - Event.IniUnit[EventDCSUnitName].EventSelf = EventSelf - return self -end - - ---- Create an OnBirth event handler for a group --- @param #EVENT self --- @param Group#GROUP EventGroup --- @param #function EventFunction The function to be called when the event occurs for the unit. --- @param EventSelf The self instance of the class for which the event is. --- @return #EVENT -function EVENT:OnBirthForTemplate( EventTemplate, EventFunction, EventSelf ) - self:F2( EventTemplate.name ) - - self:OnEventForTemplate( EventTemplate, EventFunction, EventSelf, self.OnBirthForUnit ) - - return self -end - ---- Set a new listener for an S_EVENT_BIRTH event, and registers the unit born. --- @param #EVENT self --- @param #function EventFunction The function to be called when the event occurs for the unit. --- @param Base#BASE EventSelf --- @return #EVENT -function EVENT:OnBirth( EventFunction, EventSelf ) - self:F2() - - self:OnEventGeneric( EventFunction, EventSelf, world.event.S_EVENT_BIRTH ) - - return self -end - ---- Set a new listener for an S_EVENT_BIRTH event. --- @param #EVENT self --- @param #string EventDCSUnitName The id of the unit for the event to be handled. --- @param #function EventFunction The function to be called when the event occurs for the unit. --- @param Base#BASE EventSelf --- @return #EVENT -function EVENT:OnBirthForUnit( EventDCSUnitName, EventFunction, EventSelf ) - self:F2( EventDCSUnitName ) - - self:OnEventForUnit( EventDCSUnitName, EventFunction, EventSelf, world.event.S_EVENT_BIRTH ) - - return self -end - ---- Create an OnCrash event handler for a group --- @param #EVENT self --- @param Group#GROUP EventGroup --- @param #function EventFunction The function to be called when the event occurs for the unit. --- @param EventSelf The self instance of the class for which the event is. --- @return #EVENT -function EVENT:OnCrashForTemplate( EventTemplate, EventFunction, EventSelf ) - self:F2( EventTemplate.name ) - - self:OnEventForTemplate( EventTemplate, EventFunction, EventSelf, self.OnCrashForUnit ) - - return self -end - ---- Set a new listener for an S_EVENT_CRASH event. --- @param #EVENT self --- @param #function EventFunction The function to be called when the event occurs for the unit. --- @param Base#BASE EventSelf --- @return #EVENT -function EVENT:OnCrash( EventFunction, EventSelf ) - self:F2() - - self:OnEventGeneric( EventFunction, EventSelf, world.event.S_EVENT_CRASH ) - - return self -end - ---- Set a new listener for an S_EVENT_CRASH event. --- @param #EVENT self --- @param #string EventDCSUnitName --- @param #function EventFunction The function to be called when the event occurs for the unit. --- @param Base#BASE EventSelf The self instance of the class for which the event is. --- @return #EVENT -function EVENT:OnCrashForUnit( EventDCSUnitName, EventFunction, EventSelf ) - self:F2( EventDCSUnitName ) - - self:OnEventForUnit( EventDCSUnitName, EventFunction, EventSelf, world.event.S_EVENT_CRASH ) - - return self -end - ---- Create an OnDead event handler for a group --- @param #EVENT self --- @param Group#GROUP EventGroup --- @param #function EventFunction The function to be called when the event occurs for the unit. --- @param EventSelf The self instance of the class for which the event is. --- @return #EVENT -function EVENT:OnDeadForTemplate( EventTemplate, EventFunction, EventSelf ) - self:F2( EventTemplate.name ) - - self:OnEventForTemplate( EventTemplate, EventFunction, EventSelf, self.OnDeadForUnit ) - - return self -end - ---- Set a new listener for an S_EVENT_DEAD event. --- @param #EVENT self --- @param #function EventFunction The function to be called when the event occurs for the unit. --- @param Base#BASE EventSelf --- @return #EVENT -function EVENT:OnDead( EventFunction, EventSelf ) - self:F2() - - self:OnEventGeneric( EventFunction, EventSelf, world.event.S_EVENT_DEAD ) - - return self -end - - ---- Set a new listener for an S_EVENT_DEAD event. --- @param #EVENT self --- @param #string EventDCSUnitName --- @param #function EventFunction The function to be called when the event occurs for the unit. --- @param Base#BASE EventSelf The self instance of the class for which the event is. --- @return #EVENT -function EVENT:OnDeadForUnit( EventDCSUnitName, EventFunction, EventSelf ) - self:F2( EventDCSUnitName ) - - self:OnEventForUnit( EventDCSUnitName, EventFunction, EventSelf, world.event.S_EVENT_DEAD ) - - return self -end - ---- Set a new listener for an S_EVENT_PILOT_DEAD event. --- @param #EVENT self --- @param #string EventDCSUnitName --- @param #function EventFunction The function to be called when the event occurs for the unit. --- @param Base#BASE EventSelf The self instance of the class for which the event is. --- @return #EVENT -function EVENT:OnPilotDeadForUnit( EventDCSUnitName, EventFunction, EventSelf ) - self:F2( EventDCSUnitName ) - - self:OnEventForUnit( EventDCSUnitName, EventFunction, EventSelf, world.event.S_EVENT_PILOT_DEAD ) - - return self -end - ---- Create an OnDead event handler for a group --- @param #EVENT self --- @param #table EventTemplate --- @param #function EventFunction The function to be called when the event occurs for the unit. --- @param EventSelf The self instance of the class for which the event is. --- @return #EVENT -function EVENT:OnLandForTemplate( EventTemplate, EventFunction, EventSelf ) - self:F2( EventTemplate.name ) - - self:OnEventForTemplate( EventTemplate, EventFunction, EventSelf, self.OnLandForUnit ) - - return self -end - ---- Set a new listener for an S_EVENT_LAND event. --- @param #EVENT self --- @param #string EventDCSUnitName --- @param #function EventFunction The function to be called when the event occurs for the unit. --- @param Base#BASE EventSelf The self instance of the class for which the event is. --- @return #EVENT -function EVENT:OnLandForUnit( EventDCSUnitName, EventFunction, EventSelf ) - self:F2( EventDCSUnitName ) - - self:OnEventForUnit( EventDCSUnitName, EventFunction, EventSelf, world.event.S_EVENT_LAND ) - - return self -end - ---- Create an OnDead event handler for a group --- @param #EVENT self --- @param #table EventTemplate --- @param #function EventFunction The function to be called when the event occurs for the unit. --- @param EventSelf The self instance of the class for which the event is. --- @return #EVENT -function EVENT:OnTakeOffForTemplate( EventTemplate, EventFunction, EventSelf ) - self:F2( EventTemplate.name ) - - self:OnEventForTemplate( EventTemplate, EventFunction, EventSelf, self.OnTakeOffForUnit ) - - return self -end - ---- Set a new listener for an S_EVENT_TAKEOFF event. --- @param #EVENT self --- @param #string EventDCSUnitName --- @param #function EventFunction The function to be called when the event occurs for the unit. --- @param Base#BASE EventSelf The self instance of the class for which the event is. --- @return #EVENT -function EVENT:OnTakeOffForUnit( EventDCSUnitName, EventFunction, EventSelf ) - self:F2( EventDCSUnitName ) - - self:OnEventForUnit( EventDCSUnitName, EventFunction, EventSelf, world.event.S_EVENT_TAKEOFF ) - - return self -end - ---- Create an OnDead event handler for a group --- @param #EVENT self --- @param #table EventTemplate --- @param #function EventFunction The function to be called when the event occurs for the unit. --- @param EventSelf The self instance of the class for which the event is. --- @return #EVENT -function EVENT:OnEngineShutDownForTemplate( EventTemplate, EventFunction, EventSelf ) - self:F2( EventTemplate.name ) - - self:OnEventForTemplate( EventTemplate, EventFunction, EventSelf, self.OnEngineShutDownForUnit ) - - return self -end - ---- Set a new listener for an S_EVENT_ENGINE_SHUTDOWN event. --- @param #EVENT self --- @param #string EventDCSUnitName --- @param #function EventFunction The function to be called when the event occurs for the unit. --- @param Base#BASE EventSelf The self instance of the class for which the event is. --- @return #EVENT -function EVENT:OnEngineShutDownForUnit( EventDCSUnitName, EventFunction, EventSelf ) - self:F2( EventDCSUnitName ) - - self:OnEventForUnit( EventDCSUnitName, EventFunction, EventSelf, world.event.S_EVENT_ENGINE_SHUTDOWN ) - - return self -end - ---- Set a new listener for an S_EVENT_ENGINE_STARTUP event. --- @param #EVENT self --- @param #string EventDCSUnitName --- @param #function EventFunction The function to be called when the event occurs for the unit. --- @param Base#BASE EventSelf The self instance of the class for which the event is. --- @return #EVENT -function EVENT:OnEngineStartUpForUnit( EventDCSUnitName, EventFunction, EventSelf ) - self:F2( EventDCSUnitName ) - - self:OnEventForUnit( EventDCSUnitName, EventFunction, EventSelf, world.event.S_EVENT_ENGINE_STARTUP ) - - return self -end - ---- Set a new listener for an S_EVENT_SHOT event. --- @param #EVENT self --- @param #function EventFunction The function to be called when the event occurs for the unit. --- @param Base#BASE EventSelf The self instance of the class for which the event is. --- @return #EVENT -function EVENT:OnShot( EventFunction, EventSelf ) - self:F2() - - self:OnEventGeneric( EventFunction, EventSelf, world.event.S_EVENT_SHOT ) - - return self -end - ---- Set a new listener for an S_EVENT_SHOT event for a unit. --- @param #EVENT self --- @param #string EventDCSUnitName --- @param #function EventFunction The function to be called when the event occurs for the unit. --- @param Base#BASE EventSelf The self instance of the class for which the event is. --- @return #EVENT -function EVENT:OnShotForUnit( EventDCSUnitName, EventFunction, EventSelf ) - self:F2( EventDCSUnitName ) - - self:OnEventForUnit( EventDCSUnitName, EventFunction, EventSelf, world.event.S_EVENT_SHOT ) - - return self -end - ---- Set a new listener for an S_EVENT_HIT event. --- @param #EVENT self --- @param #function EventFunction The function to be called when the event occurs for the unit. --- @param Base#BASE EventSelf The self instance of the class for which the event is. --- @return #EVENT -function EVENT:OnHit( EventFunction, EventSelf ) - self:F2() - - self:OnEventGeneric( EventFunction, EventSelf, world.event.S_EVENT_HIT ) - - return self -end - ---- Set a new listener for an S_EVENT_HIT event. --- @param #EVENT self --- @param #string EventDCSUnitName --- @param #function EventFunction The function to be called when the event occurs for the unit. --- @param Base#BASE EventSelf The self instance of the class for which the event is. --- @return #EVENT -function EVENT:OnHitForUnit( EventDCSUnitName, EventFunction, EventSelf ) - self:F2( EventDCSUnitName ) - - self:OnEventForUnit( EventDCSUnitName, EventFunction, EventSelf, world.event.S_EVENT_HIT ) - - return self -end - ---- Set a new listener for an S_EVENT_PLAYER_ENTER_UNIT event. --- @param #EVENT self --- @param #function EventFunction The function to be called when the event occurs for the unit. --- @param Base#BASE EventSelf The self instance of the class for which the event is. --- @return #EVENT -function EVENT:OnPlayerEnterUnit( EventFunction, EventSelf ) - self:F2() - - self:OnEventGeneric( EventFunction, EventSelf, world.event.S_EVENT_PLAYER_ENTER_UNIT ) - - return self -end - ---- Set a new listener for an S_EVENT_PLAYER_LEAVE_UNIT event. --- @param #EVENT self --- @param #function EventFunction The function to be called when the event occurs for the unit. --- @param Base#BASE EventSelf The self instance of the class for which the event is. --- @return #EVENT -function EVENT:OnPlayerLeaveUnit( EventFunction, EventSelf ) - self:F2() - - self:OnEventGeneric( EventFunction, EventSelf, world.event.S_EVENT_PLAYER_LEAVE_UNIT ) - - return self -end - - ---- @param #EVENT self --- @param #EVENTDATA Event -function EVENT:onEvent( Event ) - self:F2( { _EVENTCODES[Event.id], Event } ) - - if self and self.Events and self.Events[Event.id] then - if Event.initiator and Event.initiator:getCategory() == Object.Category.UNIT then - Event.IniDCSUnit = Event.initiator - Event.IniDCSGroup = Event.IniDCSUnit:getGroup() - Event.IniDCSUnitName = Event.IniDCSUnit:getName() - Event.IniUnitName = Event.IniDCSUnitName - Event.IniUnit = UNIT:FindByName( Event.IniDCSUnitName ) - Event.IniDCSGroupName = "" - if Event.IniDCSGroup and Event.IniDCSGroup:isExist() then - Event.IniDCSGroupName = Event.IniDCSGroup:getName() - end - end - if Event.target then - if Event.target and Event.target:getCategory() == Object.Category.UNIT then - Event.TgtDCSUnit = Event.target - Event.TgtDCSGroup = Event.TgtDCSUnit:getGroup() - Event.TgtDCSUnitName = Event.TgtDCSUnit:getName() - Event.TgtUnitName = Event.TgtDCSUnitName - Event.TgtUnit = UNIT:FindByName( Event.TgtDCSUnitName ) - Event.TgtDCSGroupName = "" - if Event.TgtDCSGroup and Event.TgtDCSGroup:isExist() then - Event.TgtDCSGroupName = Event.TgtDCSGroup:getName() - end - end - end - if Event.weapon then - Event.Weapon = Event.weapon - Event.WeaponName = Event.Weapon:getTypeName() - --Event.WeaponTgtDCSUnit = Event.Weapon:getTarget() - end - self:E( { _EVENTCODES[Event.id], Event.IniUnitName, Event.TgtUnitName, Event.WeaponName } ) - for ClassName, EventData in pairs( self.Events[Event.id] ) do - if Event.IniDCSUnitName and EventData.IniUnit and EventData.IniUnit[Event.IniDCSUnitName] then - self:E( { "Calling event function for class ", ClassName, " unit ", Event.IniDCSUnitName } ) - EventData.IniUnit[Event.IniDCSUnitName].EventFunction( EventData.IniUnit[Event.IniDCSUnitName].EventSelf, Event ) - else - if Event.IniDCSUnit and not EventData.IniUnit then - self:E( { "Calling event function for class ", ClassName } ) - EventData.EventFunction( EventData.EventSelf, Event ) - end - end - end - end -end - ---- Encapsulation of DCS World Menu system in a set of MENU classes. --- @module Menu - ---- The MENU class --- @type MENU --- @extends Base#BASE -MENU = { - ClassName = "MENU", - MenuPath = nil, - MenuText = "", - MenuParentPath = nil -} - ---- -function MENU:New( MenuText, MenuParentPath ) - - -- Arrange meta tables - local Child = BASE:Inherit( self, BASE:New() ) - - Child.MenuPath = nil - Child.MenuText = MenuText - Child.MenuParentPath = MenuParentPath - return Child -end - ---- The COMMANDMENU class --- @type COMMANDMENU --- @extends Menu#MENU -COMMANDMENU = { - ClassName = "COMMANDMENU", - CommandMenuFunction = nil, - CommandMenuArgument = nil -} - -function COMMANDMENU:New( MenuText, ParentMenu, CommandMenuFunction, CommandMenuArgument ) - - -- Arrange meta tables - - local MenuParentPath = nil - if ParentMenu ~= nil then - MenuParentPath = ParentMenu.MenuPath - end - - local Child = BASE:Inherit( self, MENU:New( MenuText, MenuParentPath ) ) - - Child.MenuPath = missionCommands.addCommand( MenuText, MenuParentPath, CommandMenuFunction, CommandMenuArgument ) - Child.CommandMenuFunction = CommandMenuFunction - Child.CommandMenuArgument = CommandMenuArgument - return Child -end - ---- The SUBMENU class --- @type SUBMENU --- @extends Menu#MENU -SUBMENU = { - ClassName = "SUBMENU" -} - -function SUBMENU:New( MenuText, ParentMenu ) - - -- Arrange meta tables - local MenuParentPath = nil - if ParentMenu ~= nil then - MenuParentPath = ParentMenu.MenuPath - end - - local Child = BASE:Inherit( self, MENU:New( MenuText, MenuParentPath ) ) - - Child.MenuPath = missionCommands.addSubMenu( MenuText, MenuParentPath ) - return Child -end - --- This local variable is used to cache the menus registered under clients. --- Menus don't dissapear when clients are destroyed and restarted. --- So every menu for a client created must be tracked so that program logic accidentally does not create --- the same menus twice during initialization logic. --- These menu classes are handling this logic with this variable. -local _MENUCLIENTS = {} - ---- The MENU_CLIENT class --- @type MENU_CLIENT --- @extends Menu#MENU -MENU_CLIENT = { - ClassName = "MENU_CLIENT" -} - ---- Creates a new menu item for a group --- @param self --- @param Client#CLIENT MenuClient The Client owning the menu. --- @param #string MenuText The text for the menu. --- @param #table ParentMenu The parent menu. --- @return #MENU_CLIENT self -function MENU_CLIENT:New( MenuClient, MenuText, ParentMenu ) - - -- Arrange meta tables - local MenuParentPath = {} - if ParentMenu ~= nil then - MenuParentPath = ParentMenu.MenuPath - end - - local self = BASE:Inherit( self, MENU:New( MenuText, MenuParentPath ) ) - self:F( { MenuClient, MenuText, ParentMenu } ) - - self.MenuClient = MenuClient - self.MenuClientGroupID = MenuClient:GetClientGroupID() - self.MenuParentPath = MenuParentPath - self.MenuText = MenuText - self.ParentMenu = ParentMenu - - self.Menus = {} - - if not _MENUCLIENTS[self.MenuClientGroupID] then - _MENUCLIENTS[self.MenuClientGroupID] = {} - end - - local MenuPath = _MENUCLIENTS[self.MenuClientGroupID] - - self:T( { MenuClient:GetClientGroupName(), MenuPath[table.concat(MenuParentPath)], MenuParentPath, MenuText } ) - - local MenuPathID = table.concat(MenuParentPath) .. "/" .. MenuText - if MenuPath[MenuPathID] then - missionCommands.removeItemForGroup( self.MenuClient:GetClientGroupID(), MenuPath[MenuPathID] ) - end - - self.MenuPath = missionCommands.addSubMenuForGroup( self.MenuClient:GetClientGroupID(), MenuText, MenuParentPath ) - MenuPath[MenuPathID] = self.MenuPath - - self:T( { MenuClient:GetClientGroupName(), self.MenuPath } ) - - if ParentMenu and ParentMenu.Menus then - ParentMenu.Menus[self.MenuPath] = self - end - return self -end - ---- Removes the sub menus recursively of this MENU_CLIENT. --- @param #MENU_CLIENT self --- @return #MENU_CLIENT self -function MENU_CLIENT:RemoveSubMenus() - self:F( self.MenuPath ) - - for MenuID, Menu in pairs( self.Menus ) do - Menu:Remove() - end - -end - ---- Removes the sub menus recursively of this MENU_CLIENT. --- @param #MENU_CLIENT self --- @return #MENU_CLIENT self -function MENU_CLIENT:Remove() - self:F( self.MenuPath ) - - self:RemoveSubMenus() - - if not _MENUCLIENTS[self.MenuClientGroupID] then - _MENUCLIENTS[self.MenuClientGroupID] = {} - end - - local MenuPath = _MENUCLIENTS[self.MenuClientGroupID] - - if MenuPath[table.concat(self.MenuParentPath) .. "/" .. self.MenuText] then - MenuPath[table.concat(self.MenuParentPath) .. "/" .. self.MenuText] = nil - end - - missionCommands.removeItemForGroup( self.MenuClient:GetClientGroupID(), self.MenuPath ) - self.ParentMenu.Menus[self.MenuPath] = nil - return nil -end - - ---- The MENU_CLIENT_COMMAND class --- @type MENU_CLIENT_COMMAND --- @extends Menu#MENU -MENU_CLIENT_COMMAND = { - ClassName = "MENU_CLIENT_COMMAND" -} - ---- Creates a new radio command item for a group --- @param self --- @param Client#CLIENT MenuClient The Client owning the menu. --- @param MenuText The text for the menu. --- @param ParentMenu The parent menu. --- @param CommandMenuFunction A function that is called when the menu key is pressed. --- @param CommandMenuArgument An argument for the function. --- @return Menu#MENU_CLIENT_COMMAND self -function MENU_CLIENT_COMMAND:New( MenuClient, MenuText, ParentMenu, CommandMenuFunction, CommandMenuArgument ) - - -- Arrange meta tables - - local MenuParentPath = {} - if ParentMenu ~= nil then - MenuParentPath = ParentMenu.MenuPath - end - - local self = BASE:Inherit( self, MENU:New( MenuText, MenuParentPath ) ) - - self.MenuClient = MenuClient - self.MenuClientGroupID = MenuClient:GetClientGroupID() - self.MenuParentPath = MenuParentPath - self.MenuText = MenuText - self.ParentMenu = ParentMenu - - if not _MENUCLIENTS[self.MenuClientGroupID] then - _MENUCLIENTS[self.MenuClientGroupID] = {} - end - - local MenuPath = _MENUCLIENTS[self.MenuClientGroupID] - - self:T( { MenuClient:GetClientGroupName(), MenuPath[table.concat(MenuParentPath)], MenuParentPath, MenuText, CommandMenuFunction, CommandMenuArgument } ) - - local MenuPathID = table.concat(MenuParentPath) .. "/" .. MenuText - if MenuPath[MenuPathID] then - missionCommands.removeItemForGroup( self.MenuClient:GetClientGroupID(), MenuPath[MenuPathID] ) - end - - self.MenuPath = missionCommands.addCommandForGroup( self.MenuClient:GetClientGroupID(), MenuText, MenuParentPath, CommandMenuFunction, CommandMenuArgument ) - MenuPath[MenuPathID] = self.MenuPath - - self.CommandMenuFunction = CommandMenuFunction - self.CommandMenuArgument = CommandMenuArgument - - ParentMenu.Menus[self.MenuPath] = self - - return self -end - -function MENU_CLIENT_COMMAND:Remove() - self:F( self.MenuPath ) - - if not _MENUCLIENTS[self.MenuClientGroupID] then - _MENUCLIENTS[self.MenuClientGroupID] = {} - end - - local MenuPath = _MENUCLIENTS[self.MenuClientGroupID] - - if MenuPath[table.concat(self.MenuParentPath) .. "/" .. self.MenuText] then - MenuPath[table.concat(self.MenuParentPath) .. "/" .. self.MenuText] = nil - end - - missionCommands.removeItemForGroup( self.MenuClient:GetClientGroupID(), self.MenuPath ) - self.ParentMenu.Menus[self.MenuPath] = nil - return nil -end - - ---- The MENU_COALITION class --- @type MENU_COALITION --- @extends Menu#MENU -MENU_COALITION = { - ClassName = "MENU_COALITION" -} - ---- Creates a new coalition menu item --- @param #MENU_COALITION self --- @param DCSCoalition#coalition.side MenuCoalition The coalition owning the menu. --- @param #string MenuText The text for the menu. --- @param #table ParentMenu The parent menu. --- @return #MENU_COALITION self -function MENU_COALITION:New( MenuCoalition, MenuText, ParentMenu ) - - -- Arrange meta tables - local MenuParentPath = {} - if ParentMenu ~= nil then - MenuParentPath = ParentMenu.MenuPath - end - - local self = BASE:Inherit( self, MENU:New( MenuText, MenuParentPath ) ) - self:F( { MenuCoalition, MenuText, ParentMenu } ) - - self.MenuCoalition = MenuCoalition - self.MenuParentPath = MenuParentPath - self.MenuText = MenuText - self.ParentMenu = ParentMenu - - self.Menus = {} - - self:T( { MenuParentPath, MenuText } ) - - self.MenuPath = missionCommands.addSubMenuForCoalition( self.MenuCoalition, MenuText, MenuParentPath ) - - self:T( { self.MenuPath } ) - - if ParentMenu and ParentMenu.Menus then - ParentMenu.Menus[self.MenuPath] = self - end - return self -end - ---- Removes the sub menus recursively of this MENU_COALITION. --- @param #MENU_COALITION self --- @return #MENU_COALITION self -function MENU_COALITION:RemoveSubMenus() - self:F( self.MenuPath ) - - for MenuID, Menu in pairs( self.Menus ) do - Menu:Remove() - end - -end - ---- Removes the sub menus recursively of this MENU_COALITION. --- @param #MENU_COALITION self --- @return #MENU_COALITION self -function MENU_COALITION:Remove() - self:F( self.MenuPath ) - - self:RemoveSubMenus() - missionCommands.removeItemForCoalition( self.MenuCoalition, self.MenuPath ) - self.ParentMenu.Menus[self.MenuPath] = nil - - return nil -end - - ---- The MENU_COALITION_COMMAND class --- @type MENU_COALITION_COMMAND --- @extends Menu#MENU -MENU_COALITION_COMMAND = { - ClassName = "MENU_COALITION_COMMAND" -} - ---- Creates a new radio command item for a group --- @param #MENU_COALITION_COMMAND self --- @param DCSCoalition#coalition.side MenuCoalition The coalition owning the menu. --- @param MenuText The text for the menu. --- @param ParentMenu The parent menu. --- @param CommandMenuFunction A function that is called when the menu key is pressed. --- @param CommandMenuArgument An argument for the function. --- @return #MENU_COALITION_COMMAND self -function MENU_COALITION_COMMAND:New( MenuCoalition, MenuText, ParentMenu, CommandMenuFunction, CommandMenuArgument ) - - -- Arrange meta tables - - local MenuParentPath = {} - if ParentMenu ~= nil then - MenuParentPath = ParentMenu.MenuPath - end - - local self = BASE:Inherit( self, MENU:New( MenuText, MenuParentPath ) ) - - self.MenuCoalition = MenuCoalition - self.MenuParentPath = MenuParentPath - self.MenuText = MenuText - self.ParentMenu = ParentMenu - - self:T( { MenuParentPath, MenuText, CommandMenuFunction, CommandMenuArgument } ) - - self.MenuPath = missionCommands.addCommandForCoalition( self.MenuCoalition, MenuText, MenuParentPath, CommandMenuFunction, CommandMenuArgument ) - - self.CommandMenuFunction = CommandMenuFunction - self.CommandMenuArgument = CommandMenuArgument - - ParentMenu.Menus[self.MenuPath] = self - - return self -end - ---- Removes a radio command item for a coalition --- @param #MENU_COALITION_COMMAND self --- @return #MENU_COALITION_COMMAND self -function MENU_COALITION_COMMAND:Remove() - self:F( self.MenuPath ) - - missionCommands.removeItemForCoalition( self.MenuCoalition, self.MenuPath ) - self.ParentMenu.Menus[self.MenuPath] = nil - return nil -end ---- This module contains the GROUP class. --- --- 1) @{Group#GROUP} class, extends @{Controllable#CONTROLLABLE} --- ============================================================= --- The @{Group#GROUP} class is a wrapper class to handle the DCS Group objects: --- --- * Support all DCS Group APIs. --- * Enhance with Group specific APIs not in the DCS Group API set. --- * Handle local Group Controller. --- * Manage the "state" of the DCS Group. --- --- **IMPORTANT: ONE SHOULD NEVER SANATIZE these GROUP OBJECT REFERENCES! (make the GROUP object references nil).** --- --- 1.1) GROUP reference methods --- ----------------------- --- For each DCS Group object alive within a running mission, a GROUP wrapper object (instance) will be created within the _@{DATABASE} object. --- This is done at the beginning of the mission (when the mission starts), and dynamically when new DCS Group objects are spawned (using the @{SPAWN} class). --- --- The GROUP class does not contain a :New() method, rather it provides :Find() methods to retrieve the object reference --- using the DCS Group or the DCS GroupName. --- --- Another thing to know is that GROUP objects do not "contain" the DCS Group object. --- The GROUP methods will reference the DCS Group object by name when it is needed during API execution. --- If the DCS Group object does not exist or is nil, the GROUP methods will return nil and log an exception in the DCS.log file. --- --- The GROUP class provides the following functions to retrieve quickly the relevant GROUP instance: --- --- * @{#GROUP.Find}(): Find a GROUP instance from the _DATABASE object using a DCS Group object. --- * @{#GROUP.FindByName}(): Find a GROUP instance from the _DATABASE object using a DCS Group name. --- --- 1.2) GROUP task methods --- ----------------------- --- Several group task methods are available that help you to prepare tasks. --- These methods return a string consisting of the task description, which can then be given to either a --- @{Controllable#CONTROLLABLE.PushTask} or @{Controllable#CONTROLLABLE.SetTask} method to assign the task to the GROUP. --- Tasks are specific for the category of the GROUP, more specific, for AIR, GROUND or AIR and GROUND. --- Each task description where applicable indicates for which group category the task is valid. --- There are 2 main subdivisions of tasks: Assigned tasks and EnRoute tasks. --- --- ### 1.2.1) Assigned task methods --- --- Assigned task methods make the group execute the task where the location of the (possible) targets of the task are known before being detected. --- This is different from the EnRoute tasks, where the targets of the task need to be detected before the task can be executed. --- --- Find below a list of the **assigned task** methods: --- --- * @{Controllable#CONTROLLABLE.TaskAttackGroup}: (AIR) Attack a Group. --- * @{Controllable#CONTROLLABLE.TaskAttackMapObject}: (AIR) Attacking the map object (building, structure, e.t.c). --- * @{Controllable#CONTROLLABLE.TaskAttackUnit}: (AIR) Attack the Unit. --- * @{Controllable#CONTROLLABLE.TaskBombing}: (Controllable#CONTROLLABLEDelivering weapon at the point on the ground. --- * @{Controllable#CONTROLLABLE.TaskBombingRunway}: (AIR) Delivering weapon on the runway. --- * @{Controllable#CONTROLLABLE.TaskEmbarking}: (AIR) Move the group to a Vec2 Point, wait for a defined duration and embark a group. --- * @{Controllable#CONTROLLABLE.TaskEmbarkToTransport}: (GROUND) Embark to a Transport landed at a location. --- * @{Controllable#CONTROLLABLE.TaskEscort}: (AIR) Escort another airborne group. --- * @{Controllable#CONTROLLABLE.TaskFAC_AttackGroup}: (AIR + GROUND) The task makes the group/unit a FAC and orders the FAC to control the target (enemy ground group) destruction. --- * @{Controllable#CONTROLLABLE.TaskFireAtPoint}: (GROUND) Fire at a VEC2 point until ammunition is finished. --- * @{Controllable#CONTROLLABLE.TaskFollow}: (AIR) Following another airborne group. --- * @{Controllable#CONTROLLABLE.TaskHold}: (GROUND) Hold ground group from moving. --- * @{Controllable#CONTROLLABLE.TaskHoldPosition}: (AIR) Hold position at the current position of the first unit of the group. --- * @{Controllable#CONTROLLABLE.TaskLand}: (AIR HELICOPTER) Landing at the ground. For helicopters only. --- * @{Controllable#CONTROLLABLE.TaskLandAtZone}: (AIR) Land the group at a @{Zone#ZONE_RADIUS). --- * @{Controllable#CONTROLLABLE.TaskOrbitCircle}: (AIR) Orbit at the current position of the first unit of the group at a specified alititude. --- * @{Controllable#CONTROLLABLE.TaskOrbitCircleAtVec2}: (AIR) Orbit at a specified position at a specified alititude during a specified duration with a specified speed. --- * @{Controllable#CONTROLLABLE.TaskRefueling}: (AIR) Refueling from the nearest tanker. No parameters. --- * @{Controllable#CONTROLLABLE.TaskRoute}: (AIR + GROUND) Return a Misson task to follow a given route defined by Points. --- * @{Controllable#CONTROLLABLE.TaskRouteToVec2}: (AIR + GROUND) Make the Group move to a given point. --- * @{Controllable#CONTROLLABLE.TaskRouteToVec3}: (AIR + GROUND) Make the Group move to a given point. --- * @{Controllable#CONTROLLABLE.TaskRouteToZone}: (AIR + GROUND) Route the group to a given zone. --- * @{Controllable#CONTROLLABLE.TaskReturnToBase}: (AIR) Route the group to an airbase. --- --- ### 1.2.2) EnRoute task methods --- --- EnRoute tasks require the targets of the task need to be detected by the group (using its sensors) before the task can be executed: --- --- * @{Controllable#CONTROLLABLE.EnRouteTaskAWACS}: (AIR) Aircraft will act as an AWACS for friendly units (will provide them with information about contacts). No parameters. --- * @{Controllable#CONTROLLABLE.EnRouteTaskEngageGroup}: (AIR) Engaging a group. The task does not assign the target group to the unit/group to attack now; it just allows the unit/group to engage the target group as well as other assigned targets. --- * @{Controllable#CONTROLLABLE.EnRouteTaskEngageTargets}: (AIR) Engaging targets of defined types. --- * @{Controllable#CONTROLLABLE.EnRouteTaskEWR}: (AIR) Attack the Unit. --- * @{Controllable#CONTROLLABLE.EnRouteTaskFAC}: (AIR + GROUND) The task makes the group/unit a FAC and lets the FAC to choose a targets (enemy ground group) around as well as other assigned targets. --- * @{Controllable#CONTROLLABLE.EnRouteTaskFAC_EngageGroup}: (AIR + GROUND) The task makes the group/unit a FAC and lets the FAC to choose the target (enemy ground group) as well as other assigned targets. --- * @{Controllable#CONTROLLABLE.EnRouteTaskTanker}: (AIR) Aircraft will act as a tanker for friendly units. No parameters. --- --- ### 1.2.3) Preparation task methods --- --- There are certain task methods that allow to tailor the task behaviour: --- --- * @{Controllable#CONTROLLABLE.TaskWrappedAction}: Return a WrappedAction Task taking a Command. --- * @{Controllable#CONTROLLABLE.TaskCombo}: Return a Combo Task taking an array of Tasks. --- * @{Controllable#CONTROLLABLE.TaskCondition}: Return a condition section for a controlled task. --- * @{Controllable#CONTROLLABLE.TaskControlled}: Return a Controlled Task taking a Task and a TaskCondition. --- --- ### 1.2.4) Obtain the mission from group templates --- --- Group templates contain complete mission descriptions. Sometimes you want to copy a complete mission from a group and assign it to another: --- --- * @{Controllable#CONTROLLABLE.TaskMission}: (AIR + GROUND) Return a mission task from a mission template. --- --- 1.3) GROUP Command methods --- -------------------------- --- Group **command methods** prepare the execution of commands using the @{Controllable#CONTROLLABLE.SetCommand} method: --- --- * @{Controllable#CONTROLLABLE.CommandDoScript}: Do Script command. --- * @{Controllable#CONTROLLABLE.CommandSwitchWayPoint}: Perform a switch waypoint command. --- --- 1.4) GROUP Option methods --- ------------------------- --- Group **Option methods** change the behaviour of the Group while being alive. --- --- ### 1.4.1) Rule of Engagement: --- --- * @{Controllable#CONTROLLABLE.OptionROEWeaponFree} --- * @{Controllable#CONTROLLABLE.OptionROEOpenFire} --- * @{Controllable#CONTROLLABLE.OptionROEReturnFire} --- * @{Controllable#CONTROLLABLE.OptionROEEvadeFire} --- --- To check whether an ROE option is valid for a specific group, use: --- --- * @{Controllable#CONTROLLABLE.OptionROEWeaponFreePossible} --- * @{Controllable#CONTROLLABLE.OptionROEOpenFirePossible} --- * @{Controllable#CONTROLLABLE.OptionROEReturnFirePossible} --- * @{Controllable#CONTROLLABLE.OptionROEEvadeFirePossible} --- --- ### 1.4.2) Rule on thread: --- --- * @{Controllable#CONTROLLABLE.OptionROTNoReaction} --- * @{Controllable#CONTROLLABLE.OptionROTPassiveDefense} --- * @{Controllable#CONTROLLABLE.OptionROTEvadeFire} --- * @{Controllable#CONTROLLABLE.OptionROTVertical} --- --- To test whether an ROT option is valid for a specific group, use: --- --- * @{Controllable#CONTROLLABLE.OptionROTNoReactionPossible} --- * @{Controllable#CONTROLLABLE.OptionROTPassiveDefensePossible} --- * @{Controllable#CONTROLLABLE.OptionROTEvadeFirePossible} --- * @{Controllable#CONTROLLABLE.OptionROTVerticalPossible} --- --- 1.5) GROUP Zone validation methods --- ---------------------------------- --- The group can be validated whether it is completely, partly or not within a @{Zone}. --- Use the following Zone validation methods on the group: --- --- * @{#GROUP.IsCompletelyInZone}: Returns true if all units of the group are within a @{Zone}. --- * @{#GROUP.IsPartlyInZone}: Returns true if some units of the group are within a @{Zone}. --- * @{#GROUP.IsNotInZone}: Returns true if none of the group units of the group are within a @{Zone}. --- --- The zone can be of any @{Zone} class derived from @{Zone#ZONE_BASE}. So, these methods are polymorphic to the zones tested on. --- --- @module Group --- @author FlightControl - ---- The GROUP class --- @type GROUP --- @extends Controllable#CONTROLLABLE --- @field #string GroupName The name of the group. -GROUP = { - ClassName = "GROUP", -} - ---- Create a new GROUP from a DCSGroup --- @param #GROUP self --- @param DCSGroup#Group GroupName The DCS Group name --- @return #GROUP self -function GROUP:Register( GroupName ) - local self = BASE:Inherit( self, CONTROLLABLE:New( GroupName ) ) - self:F2( GroupName ) - self.GroupName = GroupName - return self -end - --- Reference methods. - ---- Find the GROUP wrapper class instance using the DCS Group. --- @param #GROUP self --- @param DCSGroup#Group DCSGroup The DCS Group. --- @return #GROUP The GROUP. -function GROUP:Find( DCSGroup ) - - local GroupName = DCSGroup:getName() -- Group#GROUP - local GroupFound = _DATABASE:FindGroup( GroupName ) - GroupFound:E( { GroupName, GroupFound:GetClassNameAndID() } ) - return GroupFound -end - ---- Find the created GROUP using the DCS Group Name. --- @param #GROUP self --- @param #string GroupName The DCS Group Name. --- @return #GROUP The GROUP. -function GROUP:FindByName( GroupName ) - - local GroupFound = _DATABASE:FindGroup( GroupName ) - return GroupFound -end - --- DCS Group methods support. - ---- Returns the DCS Group. --- @param #GROUP self --- @return DCSGroup#Group The DCS Group. -function GROUP:GetDCSObject() - local DCSGroup = Group.getByName( self.GroupName ) - - if DCSGroup then - return DCSGroup - end - - return nil -end - - ---- Returns if the DCS Group is alive. --- When the group exists at run-time, this method will return true, otherwise false. --- @param #GROUP self --- @return #boolean true if the DCS Group is alive. -function GROUP:IsAlive() - self:F2( self.GroupName ) - - local DCSGroup = self:GetDCSObject() - - if DCSGroup then - local GroupIsAlive = DCSGroup:isExist() - self:T3( GroupIsAlive ) - return GroupIsAlive - end - - return nil -end - ---- Destroys the DCS Group and all of its DCS Units. --- Note that this destroy method also raises a destroy event at run-time. --- So all event listeners will catch the destroy event of this DCS Group. --- @param #GROUP self -function GROUP:Destroy() - self:F2( self.GroupName ) - - local DCSGroup = self:GetDCSObject() - - if DCSGroup then - for Index, UnitData in pairs( DCSGroup:getUnits() ) do - self:CreateEventCrash( timer.getTime(), UnitData ) - end - DCSGroup:destroy() - DCSGroup = nil - end - - return nil -end - ---- Returns category of the DCS Group. --- @param #GROUP self --- @return DCSGroup#Group.Category The category ID -function GROUP:GetCategory() - self:F2( self.GroupName ) - - local DCSGroup = self:GetDCSObject() - if DCSGroup then - local GroupCategory = DCSGroup:getCategory() - self:T3( GroupCategory ) - return GroupCategory - end - - return nil -end - ---- Returns the category name of the DCS Group. --- @param #GROUP self --- @return #string Category name = Helicopter, Airplane, Ground Unit, Ship -function GROUP:GetCategoryName() - self:F2( self.GroupName ) - - local DCSGroup = self:GetDCSObject() - if DCSGroup then - local CategoryNames = { - [Group.Category.AIRPLANE] = "Airplane", - [Group.Category.HELICOPTER] = "Helicopter", - [Group.Category.GROUND] = "Ground Unit", - [Group.Category.SHIP] = "Ship", - } - local GroupCategory = DCSGroup:getCategory() - self:T3( GroupCategory ) - - return CategoryNames[GroupCategory] - end - - return nil -end - - ---- Returns the coalition of the DCS Group. --- @param #GROUP self --- @return DCSCoalitionObject#coalition.side The coalition side of the DCS Group. -function GROUP:GetCoalition() - self:F2( self.GroupName ) - - local DCSGroup = self:GetDCSObject() - if DCSGroup then - local GroupCoalition = DCSGroup:getCoalition() - self:T3( GroupCoalition ) - return GroupCoalition - end - - return nil -end - ---- Returns the country of the DCS Group. --- @param #GROUP self --- @return DCScountry#country.id The country identifier. --- @return #nil The DCS Group is not existing or alive. -function GROUP:GetCountry() - self:F2( self.GroupName ) - - local DCSGroup = self:GetDCSObject() - if DCSGroup then - local GroupCountry = DCSGroup:getUnit(1):getCountry() - self:T3( GroupCountry ) - return GroupCountry - end - - return nil -end - ---- Returns the UNIT wrapper class with number UnitNumber. --- If the underlying DCS Unit does not exist, the method will return nil. . --- @param #GROUP self --- @param #number UnitNumber The number of the UNIT wrapper class to be returned. --- @return Unit#UNIT The UNIT wrapper class. -function GROUP:GetUnit( UnitNumber ) - self:F2( { self.GroupName, UnitNumber } ) - - local DCSGroup = self:GetDCSObject() - - if DCSGroup then - local UnitFound = UNIT:Find( DCSGroup:getUnit( UnitNumber ) ) - self:T3( UnitFound.UnitName ) - self:T2( UnitFound ) - return UnitFound - end - - return nil -end - ---- Returns the DCS Unit with number UnitNumber. --- If the underlying DCS Unit does not exist, the method will return nil. . --- @param #GROUP self --- @param #number UnitNumber The number of the DCS Unit to be returned. --- @return DCSUnit#Unit The DCS Unit. -function GROUP:GetDCSUnit( UnitNumber ) - self:F2( { self.GroupName, UnitNumber } ) - - local DCSGroup = self:GetDCSObject() - - if DCSGroup then - local DCSUnitFound = DCSGroup:getUnit( UnitNumber ) - self:T3( DCSUnitFound ) - return DCSUnitFound - end - - return nil -end - ---- Returns current size of the DCS Group. --- If some of the DCS Units of the DCS Group are destroyed the size of the DCS Group is changed. --- @param #GROUP self --- @return #number The DCS Group size. -function GROUP:GetSize() - self:F2( { self.GroupName } ) - local DCSGroup = self:GetDCSObject() - - if DCSGroup then - local GroupSize = DCSGroup:getSize() - self:T3( GroupSize ) - return GroupSize - end - - return nil -end - ---- ---- Returns the initial size of the DCS Group. --- If some of the DCS Units of the DCS Group are destroyed, the initial size of the DCS Group is unchanged. --- @param #GROUP self --- @return #number The DCS Group initial size. -function GROUP:GetInitialSize() - self:F2( { self.GroupName } ) - local DCSGroup = self:GetDCSObject() - - if DCSGroup then - local GroupInitialSize = DCSGroup:getInitialSize() - self:T3( GroupInitialSize ) - return GroupInitialSize - end - - return nil -end - ---- Returns the UNITs wrappers of the DCS Units of the DCS Group. --- @param #GROUP self --- @return #table The UNITs wrappers. -function GROUP:GetUnits() - self:F2( { self.GroupName } ) - local DCSGroup = self:GetDCSObject() - - if DCSGroup then - local DCSUnits = DCSGroup:getUnits() - local Units = {} - for Index, UnitData in pairs( DCSUnits ) do - Units[#Units+1] = UNIT:Find( UnitData ) - end - self:T3( Units ) - return Units - end - - return nil -end - - ---- Returns the DCS Units of the DCS Group. --- @param #GROUP self --- @return #table The DCS Units. -function GROUP:GetDCSUnits() - self:F2( { self.GroupName } ) - local DCSGroup = self:GetDCSObject() - - if DCSGroup then - local DCSUnits = DCSGroup:getUnits() - self:T3( DCSUnits ) - return DCSUnits - end - - return nil -end - - ---- Activates a GROUP. --- @param #GROUP self -function GROUP:Activate() - self:F2( { self.GroupName } ) - trigger.action.activateGroup( self:GetDCSObject() ) - return self:GetDCSObject() -end - - ---- Gets the type name of the group. --- @param #GROUP self --- @return #string The type name of the group. -function GROUP:GetTypeName() - self:F2( self.GroupName ) - - local DCSGroup = self:GetDCSObject() - - if DCSGroup then - local GroupTypeName = DCSGroup:getUnit(1):getTypeName() - self:T3( GroupTypeName ) - return( GroupTypeName ) - end - - return nil -end - ---- Gets the CallSign of the first DCS Unit of the DCS Group. --- @param #GROUP self --- @return #string The CallSign of the first DCS Unit of the DCS Group. -function GROUP:GetCallsign() - self:F2( self.GroupName ) - - local DCSGroup = self:GetDCSObject() - - if DCSGroup then - local GroupCallSign = DCSGroup:getUnit(1):getCallsign() - self:T3( GroupCallSign ) - return GroupCallSign - end - - return nil -end - ---- Returns the current point (Vec2 vector) of the first DCS Unit in the DCS Group. --- @param #GROUP self --- @return DCSTypes#Vec2 Current Vec2 point of the first DCS Unit of the DCS Group. -function GROUP:GetPointVec2() - self:F2( self.GroupName ) - - local UnitPoint = self:GetUnit(1) - UnitPoint:GetPointVec2() - local GroupPointVec2 = UnitPoint:GetPointVec2() - self:T3( GroupPointVec2 ) - return GroupPointVec2 -end - ---- Returns the current point (Vec3 vector) of the first DCS Unit in the DCS Group. --- @return DCSTypes#Vec3 Current Vec3 point of the first DCS Unit of the DCS Group. -function GROUP:GetPointVec3() - self:F2( self.GroupName ) - - local GroupPointVec3 = self:GetUnit(1):GetPointVec3() - self:T3( GroupPointVec3 ) - return GroupPointVec3 -end - - - --- Is Zone Functions - ---- Returns true if all units of the group are within a @{Zone}. --- @param #GROUP self --- @param Zone#ZONE_BASE Zone The zone to test. --- @return #boolean Returns true if the Group is completely within the @{Zone#ZONE_BASE} -function GROUP:IsCompletelyInZone( Zone ) - self:F2( { self.GroupName, Zone } ) - - for UnitID, UnitData in pairs( self:GetUnits() ) do - local Unit = UnitData -- Unit#UNIT - if Zone:IsPointVec3InZone( Unit:GetPointVec3() ) then - else - return false - end - end - - return true -end - ---- Returns true if some units of the group are within a @{Zone}. --- @param #GROUP self --- @param Zone#ZONE_BASE Zone The zone to test. --- @return #boolean Returns true if the Group is completely within the @{Zone#ZONE_BASE} -function GROUP:IsPartlyInZone( Zone ) - self:F2( { self.GroupName, Zone } ) - - for UnitID, UnitData in pairs( self:GetUnits() ) do - local Unit = UnitData -- Unit#UNIT - if Zone:IsPointVec3InZone( Unit:GetPointVec3() ) then - return true - end - end - - return false -end - ---- Returns true if none of the group units of the group are within a @{Zone}. --- @param #GROUP self --- @param Zone#ZONE_BASE Zone The zone to test. --- @return #boolean Returns true if the Group is completely within the @{Zone#ZONE_BASE} -function GROUP:IsNotInZone( Zone ) - self:F2( { self.GroupName, Zone } ) - - for UnitID, UnitData in pairs( self:GetUnits() ) do - local Unit = UnitData -- Unit#UNIT - if Zone:IsPointVec3InZone( Unit:GetPointVec3() ) then - return false - end - end - - return true -end - ---- Returns if the group is of an air category. --- If the group is a helicopter or a plane, then this method will return true, otherwise false. --- @param #GROUP self --- @return #boolean Air category evaluation result. -function GROUP:IsAir() - self:F2( self.GroupName ) - - local DCSGroup = self:GetDCSObject() - - if DCSGroup then - local IsAirResult = DCSGroup:getCategory() == Group.Category.AIRPLANE or DCSGroup:getCategory() == Group.Category.HELICOPTER - self:T3( IsAirResult ) - return IsAirResult - end - - return nil -end - ---- Returns if the DCS Group contains Helicopters. --- @param #GROUP self --- @return #boolean true if DCS Group contains Helicopters. -function GROUP:IsHelicopter() - self:F2( self.GroupName ) - - local DCSGroup = self:GetDCSObject() - - if DCSGroup then - local GroupCategory = DCSGroup:getCategory() - self:T2( GroupCategory ) - return GroupCategory == Group.Category.HELICOPTER - end - - return nil -end - ---- Returns if the DCS Group contains AirPlanes. --- @param #GROUP self --- @return #boolean true if DCS Group contains AirPlanes. -function GROUP:IsAirPlane() - self:F2() - - local DCSGroup = self:GetDCSObject() - - if DCSGroup then - local GroupCategory = DCSGroup:getCategory() - self:T2( GroupCategory ) - return GroupCategory == Group.Category.AIRPLANE - end - - return nil -end - ---- Returns if the DCS Group contains Ground troops. --- @param #GROUP self --- @return #boolean true if DCS Group contains Ground troops. -function GROUP:IsGround() - self:F2() - - local DCSGroup = self:GetDCSObject() - - if DCSGroup then - local GroupCategory = DCSGroup:getCategory() - self:T2( GroupCategory ) - return GroupCategory == Group.Category.GROUND - end - - return nil -end - ---- Returns if the DCS Group contains Ships. --- @param #GROUP self --- @return #boolean true if DCS Group contains Ships. -function GROUP:IsShip() - self:F2() - - local DCSGroup = self:GetDCSObject() - - if DCSGroup then - local GroupCategory = DCSGroup:getCategory() - self:T2( GroupCategory ) - return GroupCategory == Group.Category.SHIP - end - - return nil -end - ---- Returns if all units of the group are on the ground or landed. --- If all units of this group are on the ground, this function will return true, otherwise false. --- @param #GROUP self --- @return #boolean All units on the ground result. -function GROUP:AllOnGround() - self:F2() - - local DCSGroup = self:GetDCSObject() - - if DCSGroup then - local AllOnGroundResult = true - - for Index, UnitData in pairs( DCSGroup:getUnits() ) do - if UnitData:inAir() then - AllOnGroundResult = false - end - end - - self:T3( AllOnGroundResult ) - return AllOnGroundResult - end - - return nil -end - ---- Returns the current maximum velocity of the group. --- Each unit within the group gets evaluated, and the maximum velocity (= the unit which is going the fastest) is returned. --- @param #GROUP self --- @return #number Maximum velocity found. -function GROUP:GetMaxVelocity() - self:F2() - - local DCSGroup = self:GetDCSObject() - - if DCSGroup then - local MaxVelocity = 0 - - for Index, UnitData in pairs( DCSGroup:getUnits() ) do - - local Velocity = UnitData:getVelocity() - local VelocityTotal = math.abs( Velocity.x ) + math.abs( Velocity.y ) + math.abs( Velocity.z ) - - if VelocityTotal < MaxVelocity then - MaxVelocity = VelocityTotal - end - end - - return MaxVelocity - end - - return nil -end - ---- Returns the current minimum height of the group. --- Each unit within the group gets evaluated, and the minimum height (= the unit which is the lowest elevated) is returned. --- @param #GROUP self --- @return #number Minimum height found. -function GROUP:GetMinHeight() - self:F2() - -end - ---- Returns the current maximum height of the group. --- Each unit within the group gets evaluated, and the maximum height (= the unit which is the highest elevated) is returned. --- @param #GROUP self --- @return #number Maximum height found. -function GROUP:GetMaxHeight() - self:F2() - -end - --- SPAWNING - ---- Respawn the @{GROUP} using a (tweaked) template of the Group. --- The template must be retrieved with the @{Group#GROUP.GetTemplate}() function. --- The template contains all the definitions as declared within the mission file. --- To understand templates, do the following: --- --- * unpack your .miz file into a directory using 7-zip. --- * browse in the directory created to the file **mission**. --- * open the file and search for the country group definitions. --- --- Your group template will contain the fields as described within the mission file. --- --- This function will: --- --- * Get the current position and heading of the group. --- * When the group is alive, it will tweak the template x, y and heading coordinates of the group and the embedded units to the current units positions. --- * Then it will destroy the current alive group. --- * And it will respawn the group using your new template definition. --- @param Group#GROUP self --- @param #table Template The template of the Group retrieved with GROUP:GetTemplate() -function GROUP:Respawn( Template ) - - local Vec3 = self:GetPointVec3() - Template.x = Vec3.x - Template.y = Vec3.z - --Template.x = nil - --Template.y = nil - - self:E( #Template.units ) - for UnitID, UnitData in pairs( self:GetUnits() ) do - local GroupUnit = UnitData -- Unit#UNIT - self:E( GroupUnit:GetName() ) - if GroupUnit:IsAlive() then - local GroupUnitVec3 = GroupUnit:GetPointVec3() - local GroupUnitHeading = GroupUnit:GetHeading() - Template.units[UnitID].alt = GroupUnitVec3.y - Template.units[UnitID].x = GroupUnitVec3.x - Template.units[UnitID].y = GroupUnitVec3.z - Template.units[UnitID].heading = GroupUnitHeading - self:E( { UnitID, Template.units[UnitID], Template.units[UnitID] } ) - end - end - - self:Destroy() - _DATABASE:Spawn( Template ) -end - ---- Returns the group template from the @{DATABASE} (_DATABASE object). --- @param #GROUP self --- @return #table -function GROUP:GetTemplate() - local GroupName = self:GetName() - self:E( GroupName ) - return _DATABASE:GetGroupTemplate( GroupName ) -end - ---- Sets the controlled status in a Template. --- @param #GROUP self --- @param #boolean Controlled true is controlled, false is uncontrolled. --- @return #table -function GROUP:SetTemplateControlled( Template, Controlled ) - Template.uncontrolled = not Controlled - return Template -end - ---- Sets the CountryID of the group in a Template. --- @param #GROUP self --- @param DCScountry#country.id CountryID The country ID. --- @return #table -function GROUP:SetTemplateCountry( Template, CountryID ) - Template.CountryID = CountryID - return Template -end - ---- Sets the CoalitionID of the group in a Template. --- @param #GROUP self --- @param DCSCoalitionObject#coalition.side CoalitionID The coalition ID. --- @return #table -function GROUP:SetTemplateCoalition( Template, CoalitionID ) - Template.CoalitionID = CoalitionID - return Template -end - - - - ---- Return the mission template of the group. --- @param #GROUP self --- @return #table The MissionTemplate -function GROUP:GetTaskMission() - self:F2( self.GroupName ) - - return routines.utils.deepCopy( _DATABASE.Templates.Groups[self.GroupName].Template ) -end - ---- Return the mission route of the group. --- @param #GROUP self --- @return #table The mission route defined by points. -function GROUP:GetTaskRoute() - self:F2( self.GroupName ) - - return routines.utils.deepCopy( _DATABASE.Templates.Groups[self.GroupName].Template.route.points ) -end - ---- Return the route of a group by using the @{Database#DATABASE} class. --- @param #GROUP self --- @param #number Begin The route point from where the copy will start. The base route point is 0. --- @param #number End The route point where the copy will end. The End point is the last point - the End point. The last point has base 0. --- @param #boolean Randomize Randomization of the route, when true. --- @param #number Radius When randomization is on, the randomization is within the radius. -function GROUP:CopyRoute( Begin, End, Randomize, Radius ) - self:F2( { Begin, End } ) - - local Points = {} - - -- Could be a Spawned Group - local GroupName = string.match( self:GetName(), ".*#" ) - if GroupName then - GroupName = GroupName:sub( 1, -2 ) - else - GroupName = self:GetName() - end - - self:T3( { GroupName } ) - - local Template = _DATABASE.Templates.Groups[GroupName].Template - - if Template then - if not Begin then - Begin = 0 - end - if not End then - End = 0 - end - - for TPointID = Begin + 1, #Template.route.points - End do - if Template.route.points[TPointID] then - Points[#Points+1] = routines.utils.deepCopy( Template.route.points[TPointID] ) - if Randomize then - if not Radius then - Radius = 500 - end - Points[#Points].x = Points[#Points].x + math.random( Radius * -1, Radius ) - Points[#Points].y = Points[#Points].y + math.random( Radius * -1, Radius ) - end - end - end - return Points - else - error( "Template not found for Group : " .. GroupName ) - end - - return nil -end - - --- Message APIs - ---- Returns a message for a coalition or a client. --- @param #GROUP self --- @param #string Message The message text --- @param DCSTypes#Duration Duration The duration of the message. --- @return Message#MESSAGE -function GROUP:Message( Message, Duration ) - self:F2( { Message, Duration } ) - - local DCSGroup = self:GetDCSObject() - if DCSGroup then - return MESSAGE:New( Message, Duration, self:GetCallsign() .. " (" .. self:GetTypeName() .. ")" ) - end - - return nil -end - ---- Send a message to all coalitions. --- The message will appear in the message area. The message will begin with the callsign of the group and the type of the first unit sending the message. --- @param #GROUP self --- @param #string Message The message text --- @param DCSTypes#Duration Duration The duration of the message. -function GROUP:MessageToAll( Message, Duration ) - self:F2( { Message, Duration } ) - - local DCSGroup = self:GetDCSObject() - if DCSGroup then - self:Message( Message, Duration ):ToAll() - end - - return nil -end - ---- Send a message to the red coalition. --- The message will appear in the message area. The message will begin with the callsign of the group and the type of the first unit sending the message. --- @param #GROUP self --- @param #string Message The message text --- @param DCSTYpes#Duration Duration The duration of the message. -function GROUP:MessageToRed( Message, Duration ) - self:F2( { Message, Duration } ) - - local DCSGroup = self:GetDCSObject() - if DCSGroup then - self:Message( Message, Duration ):ToRed() - end - - return nil -end - ---- Send a message to the blue coalition. --- The message will appear in the message area. The message will begin with the callsign of the group and the type of the first unit sending the message. --- @param #GROUP self --- @param #string Message The message text --- @param DCSTypes#Duration Duration The duration of the message. -function GROUP:MessageToBlue( Message, Duration ) - self:F2( { Message, Duration } ) - - local DCSGroup = self:GetDCSObject() - if DCSGroup then - self:Message( Message, Duration ):ToBlue() - end - - return nil -end - ---- Send a message to a client. --- The message will appear in the message area. The message will begin with the callsign of the group and the type of the first unit sending the message. --- @param #GROUP self --- @param #string Message The message text --- @param DCSTypes#Duration Duration The duration of the message. --- @param Client#CLIENT Client The client object receiving the message. -function GROUP:MessageToClient( Message, Duration, Client ) - self:F2( { Message, Duration } ) - - local DCSGroup = self:GetDCSObject() - if DCSGroup then - self:Message( Message, Duration ):ToClient( Client ) - end - - return nil -end ---- This module contains the UNIT class. --- --- 1) @{Unit#UNIT} class, extends @{Controllable#CONTROLLABLE} --- =========================================================== --- The @{Unit#UNIT} class is a wrapper class to handle the DCS Unit objects: --- --- * Support all DCS Unit APIs. --- * Enhance with Unit specific APIs not in the DCS Unit API set. --- * Handle local Unit Controller. --- * Manage the "state" of the DCS Unit. --- --- --- 1.1) UNIT reference methods --- ---------------------- --- For each DCS Unit object alive within a running mission, a UNIT wrapper object (instance) will be created within the _@{DATABASE} object. --- This is done at the beginning of the mission (when the mission starts), and dynamically when new DCS Unit objects are spawned (using the @{SPAWN} class). --- --- The UNIT class **does not contain a :New()** method, rather it provides **:Find()** methods to retrieve the object reference --- using the DCS Unit or the DCS UnitName. --- --- Another thing to know is that UNIT objects do not "contain" the DCS Unit object. --- The UNIT methods will reference the DCS Unit object by name when it is needed during API execution. --- If the DCS Unit object does not exist or is nil, the UNIT methods will return nil and log an exception in the DCS.log file. --- --- The UNIT class provides the following functions to retrieve quickly the relevant UNIT instance: --- --- * @{#UNIT.Find}(): Find a UNIT instance from the _DATABASE object using a DCS Unit object. --- * @{#UNIT.FindByName}(): Find a UNIT instance from the _DATABASE object using a DCS Unit name. --- --- IMPORTANT: ONE SHOULD NEVER SANATIZE these UNIT OBJECT REFERENCES! (make the UNIT object references nil). --- --- 1.2) DCS UNIT APIs --- ------------------ --- The DCS Unit APIs are used extensively within MOOSE. The UNIT class has for each DCS Unit API a corresponding method. --- To be able to distinguish easily in your code the difference between a UNIT API call and a DCS Unit API call, --- the first letter of the method is also capitalized. So, by example, the DCS Unit method @{DCSUnit#Unit.getName}() --- is implemented in the UNIT class as @{#UNIT.GetName}(). --- --- 1.3) Smoke, Flare Units --- ----------------------- --- The UNIT class provides methods to smoke or flare units easily. --- The @{#UNIT.SmokeBlue}(), @{#UNIT.SmokeGreen}(),@{#UNIT.SmokeOrange}(), @{#UNIT.SmokeRed}(), @{#UNIT.SmokeRed}() methods --- will smoke the unit in the corresponding color. Note that smoking a unit is done at the current position of the DCS Unit. --- When the DCS Unit moves for whatever reason, the smoking will still continue! --- The @{#UNIT.FlareGreen}(), @{#UNIT.FlareRed}(), @{#UNIT.FlareWhite}(), @{#UNIT.FlareYellow}() --- methods will fire off a flare in the air with the corresponding color. Note that a flare is a one-off shot and its effect is of very short duration. --- --- 1.4) Location Position, Point --- ----------------------------- --- The UNIT class provides methods to obtain the current point or position of the DCS Unit. --- The @{#UNIT.GetPointVec2}(), @{#UNIT.GetPointVec3}() will obtain the current **location** of the DCS Unit in a Vec2 (2D) or a **point** in a Vec3 (3D) vector respectively. --- If you want to obtain the complete **3D position** including oriëntation and direction vectors, consult the @{#UNIT.GetPositionVec3}() method respectively. --- --- 1.5) Test if alive --- ------------------ --- The @{#UNIT.IsAlive}(), @{#UNIT.IsActive}() methods determines if the DCS Unit is alive, meaning, it is existing and active. --- --- 1.6) Test for proximity --- ----------------------- --- The UNIT class contains methods to test the location or proximity against zones or other objects. --- --- ### 1.6.1) Zones --- To test whether the Unit is within a **zone**, use the @{#UNIT.IsInZone}() or the @{#UNIT.IsNotInZone}() methods. Any zone can be tested on, but the zone must be derived from @{Zone#ZONE_BASE}. --- --- ### 1.6.2) Units --- Test if another DCS Unit is within a given radius of the current DCS Unit, use the @{#UNIT.OtherUnitInRadius}() method. --- --- @module Unit --- @author FlightControl - - - - - ---- The UNIT class --- @type UNIT --- @extends Controllable#CONTROLLABLE --- @field #UNIT.FlareColor FlareColor --- @field #UNIT.SmokeColor SmokeColor -UNIT = { - ClassName="UNIT", - FlareColor = { - Green = trigger.flareColor.Green, - Red = trigger.flareColor.Red, - White = trigger.flareColor.White, - Yellow = trigger.flareColor.Yellow - }, - SmokeColor = { - Green = trigger.smokeColor.Green, - Red = trigger.smokeColor.Red, - White = trigger.smokeColor.White, - Orange = trigger.smokeColor.Orange, - Blue = trigger.smokeColor.Blue - }, - } - ---- FlareColor --- @type UNIT.FlareColor --- @field Green --- @field Red --- @field White --- @field Yellow - ---- SmokeColor --- @type UNIT.SmokeColor --- @field Green --- @field Red --- @field White --- @field Orange --- @field Blue - --- Registration. - ---- Create a new UNIT from DCSUnit. --- @param #UNIT self --- @param #string UnitName The name of the DCS unit. --- @return Unit#UNIT -function UNIT:Register( UnitName ) - local self = BASE:Inherit( self, CONTROLLABLE:New( UnitName ) ) - self.UnitName = UnitName - return self -end - --- Reference methods. - ---- Finds a UNIT from the _DATABASE using a DCSUnit object. --- @param #UNIT self --- @param DCSUnit#Unit DCSUnit An existing DCS Unit object reference. --- @return Unit#UNIT self -function UNIT:Find( DCSUnit ) - - local UnitName = DCSUnit:getName() - local UnitFound = _DATABASE:FindUnit( UnitName ) - return UnitFound -end - ---- Find a UNIT in the _DATABASE using the name of an existing DCS Unit. --- @param #UNIT self --- @param #string UnitName The Unit Name. --- @return Unit#UNIT self -function UNIT:FindByName( UnitName ) - - local UnitFound = _DATABASE:FindUnit( UnitName ) - return UnitFound -end - - ---- @param #UNIT self --- @return DCSUnit#Unit -function UNIT:GetDCSObject() - - local DCSUnit = Unit.getByName( self.UnitName ) - - if DCSUnit then - return DCSUnit - end - - return nil -end - - - - ---- Returns if the unit is activated. --- @param Unit#UNIT self --- @return #boolean true if Unit is activated. --- @return #nil The DCS Unit is not existing or alive. -function UNIT:IsActive() - self:F2( self.UnitName ) - - local DCSUnit = self:GetDCSObject() - - if DCSUnit then - - local UnitIsActive = DCSUnit:isActive() - return UnitIsActive - end - - return nil -end - ---- Returns the Unit's callsign - the localized string. --- @param Unit#UNIT self --- @return #string The Callsign of the Unit. --- @return #nil The DCS Unit is not existing or alive. -function UNIT:GetCallSign() - self:F2( self.UnitName ) - - local DCSUnit = self:GetDCSObject() - - if DCSUnit then - local UnitCallSign = DCSUnit:getCallsign() - return UnitCallSign - end - - self:E( self.ClassName .. " " .. self.UnitName .. " not found!" ) - return nil -end - - ---- Returns name of the player that control the unit or nil if the unit is controlled by A.I. --- @param Unit#UNIT self --- @return #string Player Name --- @return #nil The DCS Unit is not existing or alive. -function UNIT:GetPlayerName() - self:F2( self.UnitName ) - - local DCSUnit = self:GetDCSObject() - - if DCSUnit then - - local PlayerName = DCSUnit:getPlayerName() - if PlayerName == nil then - PlayerName = "" - end - return PlayerName - end - - return nil -end - ---- Returns the unit's number in the group. --- The number is the same number the unit has in ME. --- It may not be changed during the mission. --- If any unit in the group is destroyed, the numbers of another units will not be changed. --- @param Unit#UNIT self --- @return #number The Unit number. --- @return #nil The DCS Unit is not existing or alive. -function UNIT:GetNumber() - self:F2( self.UnitName ) - - local DCSUnit = self:GetDCSObject() - - if DCSUnit then - local UnitNumber = DCSUnit:getNumber() - return UnitNumber - end - - return nil -end - ---- Returns the unit's group if it exist and nil otherwise. --- @param Unit#UNIT self --- @return Group#GROUP The Group of the Unit. --- @return #nil The DCS Unit is not existing or alive. -function UNIT:GetGroup() - self:F2( self.UnitName ) - - local DCSUnit = self:GetDCSObject() - - if DCSUnit then - local UnitGroup = GROUP:Find( DCSUnit:getGroup() ) - return UnitGroup - end - - return nil -end - - --- Need to add here functions to check if radar is on and which object etc. - ---- Returns the prefix name of the DCS Unit. A prefix name is a part of the name before a '#'-sign. --- DCS Units spawned with the @{SPAWN} class contain a '#'-sign to indicate the end of the (base) DCS Unit name. --- The spawn sequence number and unit number are contained within the name after the '#' sign. --- @param Unit#UNIT self --- @return #string The name of the DCS Unit. --- @return #nil The DCS Unit is not existing or alive. -function UNIT:GetPrefix() - self:F2( self.UnitName ) - - local DCSUnit = self:GetDCSObject() - - if DCSUnit then - local UnitPrefix = string.match( self.UnitName, ".*#" ):sub( 1, -2 ) - self:T3( UnitPrefix ) - return UnitPrefix - end - - return nil -end - ---- Returns the Unit's ammunition. --- @param Unit#UNIT self --- @return DCSUnit#Unit.Ammo --- @return #nil The DCS Unit is not existing or alive. -function UNIT:GetAmmo() - self:F2( self.UnitName ) - - local DCSUnit = self:GetDCSObject() - - if DCSUnit then - local UnitAmmo = DCSUnit:getAmmo() - return UnitAmmo - end - - return nil -end - ---- Returns the unit sensors. --- @param Unit#UNIT self --- @return DCSUnit#Unit.Sensors --- @return #nil The DCS Unit is not existing or alive. -function UNIT:GetSensors() - self:F2( self.UnitName ) - - local DCSUnit = self:GetDCSObject() - - if DCSUnit then - local UnitSensors = DCSUnit:getSensors() - return UnitSensors - end - - return nil -end - --- Need to add here a function per sensortype --- unit:hasSensors(Unit.SensorType.RADAR, Unit.RadarType.AS) - ---- Returns two values: --- --- * First value indicates if at least one of the unit's radar(s) is on. --- * Second value is the object of the radar's interest. Not nil only if at least one radar of the unit is tracking a target. --- @param Unit#UNIT self --- @return #boolean Indicates if at least one of the unit's radar(s) is on. --- @return DCSObject#Object The object of the radar's interest. Not nil only if at least one radar of the unit is tracking a target. --- @return #nil The DCS Unit is not existing or alive. -function UNIT:GetRadar() - self:F2( self.UnitName ) - - local DCSUnit = self:GetDCSObject() - - if DCSUnit then - local UnitRadarOn, UnitRadarObject = DCSUnit:getRadar() - return UnitRadarOn, UnitRadarObject - end - - return nil, nil -end - ---- Returns relative amount of fuel (from 0.0 to 1.0) the unit has in its internal tanks. If there are additional fuel tanks the value may be greater than 1.0. --- @param Unit#UNIT self --- @return #number The relative amount of fuel (from 0.0 to 1.0). --- @return #nil The DCS Unit is not existing or alive. -function UNIT:GetFuel() - self:F2( self.UnitName ) - - local DCSUnit = self:GetDCSObject() - - if DCSUnit then - local UnitFuel = DCSUnit:getFuel() - return UnitFuel - end - - return nil -end - ---- Returns the unit's health. Dead units has health <= 1.0. --- @param Unit#UNIT self --- @return #number The Unit's health value. --- @return #nil The DCS Unit is not existing or alive. -function UNIT:GetLife() - self:F2( self.UnitName ) - - local DCSUnit = self:GetDCSObject() - - if DCSUnit then - local UnitLife = DCSUnit:getLife() - return UnitLife - end - - return nil -end - ---- Returns the Unit's initial health. --- @param Unit#UNIT self --- @return #number The Unit's initial health value. --- @return #nil The DCS Unit is not existing or alive. -function UNIT:GetLife0() - self:F2( self.UnitName ) - - local DCSUnit = self:GetDCSObject() - - if DCSUnit then - local UnitLife0 = DCSUnit:getLife0() - return UnitLife0 - end - - return nil -end - - - - --- Is functions - ---- Returns true if the unit is within a @{Zone}. --- @param #UNIT self --- @param Zone#ZONE_BASE Zone The zone to test. --- @return #boolean Returns true if the unit is within the @{Zone#ZONE_BASE} -function UNIT:IsInZone( Zone ) - self:F2( { self.UnitName, Zone } ) - - if self:IsAlive() then - local IsInZone = Zone:IsPointVec3InZone( self:GetPointVec3() ) - - self:T( { IsInZone } ) - return IsInZone - else - return false - end -end - ---- Returns true if the unit is not within a @{Zone}. --- @param #UNIT self --- @param Zone#ZONE_BASE Zone The zone to test. --- @return #boolean Returns true if the unit is not within the @{Zone#ZONE_BASE} -function UNIT:IsNotInZone( Zone ) - self:F2( { self.UnitName, Zone } ) - - if self:IsAlive() then - local IsInZone = not Zone:IsPointVec3InZone( self:GetPointVec3() ) - - self:T( { IsInZone } ) - return IsInZone - else - return false - end -end - - ---- Returns true if there is an **other** DCS Unit within a radius of the current 2D point of the DCS Unit. --- @param Unit#UNIT self --- @param Unit#UNIT AwaitUnit The other UNIT wrapper object. --- @param Radius The radius in meters with the DCS Unit in the centre. --- @return true If the other DCS Unit is within the radius of the 2D point of the DCS Unit. --- @return #nil The DCS Unit is not existing or alive. -function UNIT:OtherUnitInRadius( AwaitUnit, Radius ) - self:F2( { self.UnitName, AwaitUnit.UnitName, Radius } ) - - local DCSUnit = self:GetDCSObject() - - if DCSUnit then - local UnitPos = self:GetPointVec3() - local AwaitUnitPos = AwaitUnit:GetPointVec3() - - if (((UnitPos.x - AwaitUnitPos.x)^2 + (UnitPos.z - AwaitUnitPos.z)^2)^0.5 <= Radius) then - self:T3( "true" ) - return true - else - self:T3( "false" ) - return false - end - end - - return nil -end - - - ---- Signal a flare at the position of the UNIT. --- @param #UNIT self -function UNIT:Flare( FlareColor ) - self:F2() - trigger.action.signalFlare( self:GetPointVec3(), FlareColor , 0 ) -end - ---- Signal a white flare at the position of the UNIT. --- @param #UNIT self -function UNIT:FlareWhite() - self:F2() - trigger.action.signalFlare( self:GetPointVec3(), trigger.flareColor.White , 0 ) -end - ---- Signal a yellow flare at the position of the UNIT. --- @param #UNIT self -function UNIT:FlareYellow() - self:F2() - trigger.action.signalFlare( self:GetPointVec3(), trigger.flareColor.Yellow , 0 ) -end - ---- Signal a green flare at the position of the UNIT. --- @param #UNIT self -function UNIT:FlareGreen() - self:F2() - trigger.action.signalFlare( self:GetPointVec3(), trigger.flareColor.Green , 0 ) -end - ---- Signal a red flare at the position of the UNIT. --- @param #UNIT self -function UNIT:FlareRed() - self:F2() - trigger.action.signalFlare( self:GetPointVec3(), trigger.flareColor.Red, 0 ) -end - ---- Smoke the UNIT. --- @param #UNIT self -function UNIT:Smoke( SmokeColor ) - self:F2() - trigger.action.smoke( self:GetPointVec3(), SmokeColor ) -end - ---- Smoke the UNIT Green. --- @param #UNIT self -function UNIT:SmokeGreen() - self:F2() - trigger.action.smoke( self:GetPointVec3(), trigger.smokeColor.Green ) -end - ---- Smoke the UNIT Red. --- @param #UNIT self -function UNIT:SmokeRed() - self:F2() - trigger.action.smoke( self:GetPointVec3(), trigger.smokeColor.Red ) -end - ---- Smoke the UNIT White. --- @param #UNIT self -function UNIT:SmokeWhite() - self:F2() - trigger.action.smoke( self:GetPointVec3(), trigger.smokeColor.White ) -end - ---- Smoke the UNIT Orange. --- @param #UNIT self -function UNIT:SmokeOrange() - self:F2() - trigger.action.smoke( self:GetPointVec3(), trigger.smokeColor.Orange ) -end - ---- Smoke the UNIT Blue. --- @param #UNIT self -function UNIT:SmokeBlue() - self:F2() - trigger.action.smoke( self:GetPointVec3(), trigger.smokeColor.Blue ) -end - --- Is methods - ---- Returns if the unit is of an air category. --- If the unit is a helicopter or a plane, then this method will return true, otherwise false. --- @param #UNIT self --- @return #boolean Air category evaluation result. -function UNIT:IsAir() - self:F2() - - local UnitDescriptor = self.DCSUnit:getDesc() - self:T3( { UnitDescriptor.category, Unit.Category.AIRPLANE, Unit.Category.HELICOPTER } ) - - local IsAirResult = ( UnitDescriptor.category == Unit.Category.AIRPLANE ) or ( UnitDescriptor.category == Unit.Category.HELICOPTER ) - - self:T3( IsAirResult ) - return IsAirResult -end - ---- This module contains the ZONE classes, inherited from @{Zone#ZONE_BASE}. --- There are essentially two core functions that zones accomodate: --- --- * Test if an object is within the zone boundaries. --- * Provide the zone behaviour. Some zones are static, while others are moveable. --- --- The object classes are using the zone classes to test the zone boundaries, which can take various forms: --- --- * Test if completely within the zone. --- * Test if partly within the zone (for @{Group#GROUP} objects). --- * Test if not in the zone. --- * Distance to the nearest intersecting point of the zone. --- * Distance to the center of the zone. --- * ... --- --- Each of these ZONE classes have a zone name, and specific parameters defining the zone type: --- --- * @{Zone#ZONE_BASE}: The ZONE_BASE class defining the base for all other zone classes. --- * @{Zone#ZONE_RADIUS}: The ZONE_RADIUS class defined by a zone name, a location and a radius. --- * @{Zone#ZONE}: The ZONE class, defined by the zone name as defined within the Mission Editor. --- * @{Zone#ZONE_UNIT}: The ZONE_UNIT class defines by a zone around a @{Unit#UNIT} with a radius. --- * @{Zone#ZONE_GROUP}: The ZONE_GROUP class defines by a zone around a @{Group#GROUP} with a radius. --- * @{Zone#ZONE_POLYGON}: The ZONE_POLYGON class defines by a sequence of @{Group#GROUP} waypoints within the Mission Editor, forming a polygon. --- --- Each zone implements two polymorphic functions defined in @{Zone#ZONE_BASE}: --- --- * @{#ZONE_BASE.IsPointVec2InZone}: Returns if a location is within the zone. --- * @{#ZONE_BASE.IsPointVec3InZone}: Returns if a point is within the zone. --- --- === --- --- 1) @{Zone#ZONE_BASE} class, extends @{Base#BASE} --- ================================================ --- The ZONE_BASE class defining the base for all other zone classes. --- --- === --- --- 2) @{Zone#ZONE_RADIUS} class, extends @{Zone#ZONE_BASE} --- ======================================================= --- The ZONE_RADIUS class defined by a zone name, a location and a radius. --- --- === --- --- 3) @{Zone#ZONE} class, extends @{Zone#ZONE_RADIUS} --- ========================================== --- The ZONE class, defined by the zone name as defined within the Mission Editor. --- --- === --- --- 4) @{Zone#ZONE_UNIT} class, extends @{Zone#ZONE_RADIUS} --- ======================================================= --- The ZONE_UNIT class defined by a zone around a @{Unit#UNIT} with a radius. --- --- === --- --- 5) @{Zone#ZONE_GROUP} class, extends @{Zone#ZONE_RADIUS} --- ======================================================= --- The ZONE_GROUP class defines by a zone around a @{Group#GROUP} with a radius. The current leader of the group defines the center of the zone. --- --- === --- --- 6) @{Zone#ZONE_POLYGON} class, extends @{Zone#ZONE_BASE} --- ======================================================== --- The ZONE_POLYGON class defined by a sequence of @{Group#GROUP} waypoints within the Mission Editor, forming a polygon. --- --- === --- --- @module Zone --- @author FlightControl - - ---- The ZONE_BASE class --- @type ZONE_BASE --- @field #string ZoneName Name of the zone. --- @extends Base#BASE -ZONE_BASE = { - ClassName = "ZONE_BASE", - } - - ---- The ZONE_BASE.BoundingSquare --- @type ZONE_BASE.BoundingSquare --- @field DCSTypes#Distance x1 The lower x coordinate (left down) --- @field DCSTypes#Distance y1 The lower y coordinate (left down) --- @field DCSTypes#Distance x2 The higher x coordinate (right up) --- @field DCSTypes#Distance y2 The higher y coordinate (right up) - - ---- ZONE_BASE constructor --- @param #ZONE_BASE self --- @param #string ZoneName Name of the zone. --- @return #ZONE_BASE self -function ZONE_BASE:New( ZoneName ) - local self = BASE:Inherit( self, BASE:New() ) - self:F( ZoneName ) - - self.ZoneName = ZoneName - - return self -end - ---- Returns if a location is within the zone. --- @param #ZONE_BASE self --- @param DCSTypes#Vec2 PointVec2 The location to test. --- @return #boolean true if the location is within the zone. -function ZONE_BASE:IsPointVec2InZone( PointVec2 ) - self:F2( PointVec2 ) - - return false -end - ---- Returns if a point is within the zone. --- @param #ZONE_BASE self --- @param DCSTypes#Vec3 PointVec3 The point to test. --- @return #boolean true if the point is within the zone. -function ZONE_BASE:IsPointVec3InZone( PointVec3 ) - self:F2( PointVec3 ) - - local InZone = self:IsPointVec2InZone( { x = PointVec3.x, y = PointVec3.z } ) - - return InZone -end - ---- Define a random @{DCSTypes#Vec2} within the zone. --- @param #ZONE_BASE self --- @return DCSTypes#Vec2 The Vec2 coordinates. -function ZONE_BASE:GetRandomVec2() - return { x = 0, y = 0 } -end - ---- Get the bounding square the zone. --- @param #ZONE_BASE self --- @return #ZONE_BASE.BoundingSquare The bounding square. -function ZONE_BASE:GetBoundingSquare() - return { x1 = 0, y1 = 0, x2 = 0, y2 = 0 } -end - - ---- Smokes the zone boundaries in a color. --- @param #ZONE_BASE self --- @param SmokeColor The smoke color. -function ZONE_BASE:SmokeZone( SmokeColor ) - self:F2( SmokeColor ) - -end - - ---- The ZONE_RADIUS class, defined by a zone name, a location and a radius. --- @type ZONE_RADIUS --- @field DCSTypes#Vec2 PointVec2 The current location of the zone. --- @field DCSTypes#Distance Radius The radius of the zone. --- @extends Zone#ZONE_BASE -ZONE_RADIUS = { - ClassName="ZONE_RADIUS", - } - ---- Constructor of ZONE_RADIUS, taking the zone name, the zone location and a radius. --- @param #ZONE_RADIUS self --- @param #string ZoneName Name of the zone. --- @param DCSTypes#Vec2 PointVec2 The location of the zone. --- @param DCSTypes#Distance Radius The radius of the zone. --- @return #ZONE_RADIUS self -function ZONE_RADIUS:New( ZoneName, PointVec2, Radius ) - local self = BASE:Inherit( self, ZONE_BASE:New( ZoneName ) ) - self:F( { ZoneName, PointVec2, Radius } ) - - self.Radius = Radius - self.PointVec2 = PointVec2 - - return self -end - ---- Smokes the zone boundaries in a color. --- @param #ZONE_RADIUS self --- @param #POINT_VEC3.SmokeColor SmokeColor The smoke color. --- @param #number Points (optional) The amount of points in the circle. --- @return #ZONE_RADIUS self -function ZONE_RADIUS:SmokeZone( SmokeColor, Points ) - self:F2( SmokeColor ) - - local Point = {} - local PointVec2 = self:GetPointVec2() - - Points = Points and Points or 360 - - local Angle - local RadialBase = math.pi*2 - - for Angle = 0, 360, 360 / Points do - local Radial = Angle * RadialBase / 360 - Point.x = PointVec2.x + math.cos( Radial ) * self:GetRadius() - Point.y = PointVec2.y + math.sin( Radial ) * self:GetRadius() - POINT_VEC2:New( Point.x, Point.y ):Smoke( SmokeColor ) - end - - return self -end - - ---- Flares the zone boundaries in a color. --- @param #ZONE_RADIUS self --- @param #POINT_VEC3.FlareColor FlareColor The flare color. --- @param #number Points (optional) The amount of points in the circle. --- @param DCSTypes#Azimuth Azimuth (optional) Azimuth The azimuth of the flare. --- @return #ZONE_RADIUS self -function ZONE_RADIUS:FlareZone( FlareColor, Points, Azimuth ) - self:F2( { FlareColor, Azimuth } ) - - local Point = {} - local PointVec2 = self:GetPointVec2() - - Points = Points and Points or 360 - - local Angle - local RadialBase = math.pi*2 - - for Angle = 0, 360, 360 / Points do - local Radial = Angle * RadialBase / 360 - Point.x = PointVec2.x + math.cos( Radial ) * self:GetRadius() - Point.y = PointVec2.y + math.sin( Radial ) * self:GetRadius() - POINT_VEC2:New( Point.x, Point.y ):Flare( FlareColor, Azimuth ) - end - - return self -end - ---- Returns the radius of the zone. --- @param #ZONE_RADIUS self --- @return DCSTypes#Distance The radius of the zone. -function ZONE_RADIUS:GetRadius() - self:F2( self.ZoneName ) - - self:T2( { self.Radius } ) - - return self.Radius -end - ---- Sets the radius of the zone. --- @param #ZONE_RADIUS self --- @param DCSTypes#Distance Radius The radius of the zone. --- @return DCSTypes#Distance The radius of the zone. -function ZONE_RADIUS:SetRadius( Radius ) - self:F2( self.ZoneName ) - - self.Radius = Radius - self:T2( { self.Radius } ) - - return self.Radius -end - ---- Returns the location of the zone. --- @param #ZONE_RADIUS self --- @return DCSTypes#Vec2 The location of the zone. -function ZONE_RADIUS:GetPointVec2() - self:F2( self.ZoneName ) - - self:T2( { self.PointVec2 } ) - - return self.PointVec2 -end - ---- Sets the location of the zone. --- @param #ZONE_RADIUS self --- @param DCSTypes#Vec2 PointVec2 The new location of the zone. --- @return DCSTypes#Vec2 The new location of the zone. -function ZONE_RADIUS:SetPointVec2( PointVec2 ) - self:F2( self.ZoneName ) - - self.PointVec2 = PointVec2 - - self:T2( { self.PointVec2 } ) - - return self.PointVec2 -end - ---- Returns the point of the zone. --- @param #ZONE_RADIUS self --- @param DCSTypes#Distance Height The height to add to the land height where the center of the zone is located. --- @return DCSTypes#Vec3 The point of the zone. -function ZONE_RADIUS:GetPointVec3( Height ) - self:F2( self.ZoneName ) - - local PointVec2 = self:GetPointVec2() - - local PointVec3 = { x = PointVec2.x, y = land.getHeight( self:GetPointVec2() ) + Height, z = PointVec2.y } - - self:T2( { PointVec3 } ) - - return PointVec3 -end - - ---- Returns if a location is within the zone. --- @param #ZONE_RADIUS self --- @param DCSTypes#Vec2 PointVec2 The location to test. --- @return #boolean true if the location is within the zone. -function ZONE_RADIUS:IsPointVec2InZone( PointVec2 ) - self:F2( PointVec2 ) - - local ZonePointVec2 = self:GetPointVec2() - - if (( PointVec2.x - ZonePointVec2.x )^2 + ( PointVec2.y - ZonePointVec2.y ) ^2 ) ^ 0.5 <= self:GetRadius() then - return true - end - - return false -end - ---- Returns if a point is within the zone. --- @param #ZONE_RADIUS self --- @param DCSTypes#Vec3 PointVec3 The point to test. --- @return #boolean true if the point is within the zone. -function ZONE_RADIUS:IsPointVec3InZone( PointVec3 ) - self:F2( PointVec3 ) - - local InZone = self:IsPointVec2InZone( { x = PointVec3.x, y = PointVec3.z } ) - - return InZone -end - ---- Returns a random location within the zone. --- @param #ZONE_RADIUS self --- @return DCSTypes#Vec2 The random location within the zone. -function ZONE_RADIUS:GetRandomVec2() - self:F( self.ZoneName ) - - local Point = {} - local PointVec2 = self:GetPointVec2() - - local angle = math.random() * math.pi*2; - Point.x = PointVec2.x + math.cos( angle ) * math.random() * self:GetRadius(); - Point.y = PointVec2.y + math.sin( angle ) * math.random() * self:GetRadius(); - - self:T( { Point } ) - - return Point -end - - - ---- The ZONE class, defined by the zone name as defined within the Mission Editor. The location and the radius are automatically collected from the mission settings. --- @type ZONE --- @extends Zone#ZONE_RADIUS -ZONE = { - ClassName="ZONE", - } - - ---- Constructor of ZONE, taking the zone name. --- @param #ZONE self --- @param #string ZoneName The name of the zone as defined within the mission editor. --- @return #ZONE -function ZONE:New( ZoneName ) - - local Zone = trigger.misc.getZone( ZoneName ) - - if not Zone then - error( "Zone " .. ZoneName .. " does not exist." ) - return nil - end - - local self = BASE:Inherit( self, ZONE_RADIUS:New( ZoneName, { x = Zone.point.x, y = Zone.point.z }, Zone.radius ) ) - self:F( ZoneName ) - - self.Zone = Zone - - return self -end - - ---- The ZONE_UNIT class defined by a zone around a @{Unit#UNIT} with a radius. --- @type ZONE_UNIT --- @field Unit#UNIT ZoneUNIT --- @extends Zone#ZONE_RADIUS -ZONE_UNIT = { - ClassName="ZONE_UNIT", - } - ---- Constructor to create a ZONE_UNIT instance, taking the zone name, a zone unit and a radius. --- @param #ZONE_UNIT self --- @param #string ZoneName Name of the zone. --- @param Unit#UNIT ZoneUNIT The unit as the center of the zone. --- @param DCSTypes#Distance Radius The radius of the zone. --- @return #ZONE_UNIT self -function ZONE_UNIT:New( ZoneName, ZoneUNIT, Radius ) - local self = BASE:Inherit( self, ZONE_RADIUS:New( ZoneName, ZoneUNIT:GetPointVec2(), Radius ) ) - self:F( { ZoneName, ZoneUNIT:GetPointVec2(), Radius } ) - - self.ZoneUNIT = ZoneUNIT - - return self -end - - ---- Returns the current location of the @{Unit#UNIT}. --- @param #ZONE_UNIT self --- @return DCSTypes#Vec2 The location of the zone based on the @{Unit#UNIT}location. -function ZONE_UNIT:GetPointVec2() - self:F( self.ZoneName ) - - local ZonePointVec2 = self.ZoneUNIT:GetPointVec2() - - self:T( { ZonePointVec2 } ) - - return ZonePointVec2 -end - ---- Returns a random location within the zone. --- @param #ZONE_UNIT self --- @return DCSTypes#Vec2 The random location within the zone. -function ZONE_UNIT:GetRandomVec2() - self:F( self.ZoneName ) - - local Point = {} - local PointVec2 = self.ZoneUNIT:GetPointVec2() - - local angle = math.random() * math.pi*2; - Point.x = PointVec2.x + math.cos( angle ) * math.random() * self:GetRadius(); - Point.y = PointVec2.y + math.sin( angle ) * math.random() * self:GetRadius(); - - self:T( { Point } ) - - return Point -end - ---- The ZONE_GROUP class defined by a zone around a @{Group}, taking the average center point of all the units within the Group, with a radius. --- @type ZONE_GROUP --- @field Group#GROUP ZoneGROUP --- @extends Zone#ZONE_RADIUS -ZONE_GROUP = { - ClassName="ZONE_GROUP", - } - ---- Constructor to create a ZONE_GROUP instance, taking the zone name, a zone @{Group#GROUP} and a radius. --- @param #ZONE_GROUP self --- @param #string ZoneName Name of the zone. --- @param Group#GROUP ZoneGROUP The @{Group} as the center of the zone. --- @param DCSTypes#Distance Radius The radius of the zone. --- @return #ZONE_GROUP self -function ZONE_GROUP:New( ZoneName, ZoneGROUP, Radius ) - local self = BASE:Inherit( self, ZONE_RADIUS:New( ZoneName, ZoneGROUP:GetPointVec2(), Radius ) ) - self:F( { ZoneName, ZoneGROUP:GetPointVec2(), Radius } ) - - self.ZoneGROUP = ZoneGROUP - - return self -end - - ---- Returns the current location of the @{Group}. --- @param #ZONE_GROUP self --- @return DCSTypes#Vec2 The location of the zone based on the @{Group} location. -function ZONE_GROUP:GetPointVec2() - self:F( self.ZoneName ) - - local ZonePointVec2 = self.ZoneGROUP:GetPointVec2() - - self:T( { ZonePointVec2 } ) - - return ZonePointVec2 -end - ---- Returns a random location within the zone of the @{Group}. --- @param #ZONE_GROUP self --- @return DCSTypes#Vec2 The random location of the zone based on the @{Group} location. -function ZONE_GROUP:GetRandomVec2() - self:F( self.ZoneName ) - - local Point = {} - local PointVec2 = self.ZoneGROUP:GetPointVec2() - - local angle = math.random() * math.pi*2; - Point.x = PointVec2.x + math.cos( angle ) * math.random() * self:GetRadius(); - Point.y = PointVec2.y + math.sin( angle ) * math.random() * self:GetRadius(); - - self:T( { Point } ) - - return Point -end - - - --- Polygons - ---- The ZONE_POLYGON_BASE class defined by an array of @{DCSTypes#Vec2}, forming a polygon. --- @type ZONE_POLYGON_BASE --- @field #ZONE_POLYGON_BASE.ListVec2 Polygon The polygon defined by an array of @{DCSTypes#Vec2}. --- @extends Zone#ZONE_BASE -ZONE_POLYGON_BASE = { - ClassName="ZONE_POLYGON_BASE", - } - ---- A points array. --- @type ZONE_POLYGON_BASE.ListVec2 --- @list - ---- Constructor to create a ZONE_POLYGON_BASE instance, taking the zone name and an array of @{DCSTypes#Vec2}, forming a polygon. --- The @{Group#GROUP} waypoints define the polygon corners. The first and the last point are automatically connected. --- @param #ZONE_POLYGON_BASE self --- @param #string ZoneName Name of the zone. --- @param #ZONE_POLYGON_BASE.ListVec2 PointsArray An array of @{DCSTypes#Vec2}, forming a polygon.. --- @return #ZONE_POLYGON_BASE self -function ZONE_POLYGON_BASE:New( ZoneName, PointsArray ) - local self = BASE:Inherit( self, ZONE_BASE:New( ZoneName ) ) - self:F( { ZoneName, PointsArray } ) - - local i = 0 - - self.Polygon = {} - - for i = 1, #PointsArray do - self.Polygon[i] = {} - self.Polygon[i].x = PointsArray[i].x - self.Polygon[i].y = PointsArray[i].y - end - - return self -end - ---- Flush polygon coordinates as a table in DCS.log. --- @param #ZONE_POLYGON_BASE self --- @return #ZONE_POLYGON_BASE self -function ZONE_POLYGON_BASE:Flush() - self:F2() - - self:E( { Polygon = self.ZoneName, Coordinates = self.Polygon } ) - - return self -end - - ---- Smokes the zone boundaries in a color. --- @param #ZONE_POLYGON_BASE self --- @param #POINT_VEC3.SmokeColor SmokeColor The smoke color. --- @return #ZONE_POLYGON_BASE self -function ZONE_POLYGON_BASE:SmokeZone( SmokeColor ) - self:F2( SmokeColor ) - - local i - local j - local Segments = 10 - - i = 1 - j = #self.Polygon - - while i <= #self.Polygon do - self:T( { i, j, self.Polygon[i], self.Polygon[j] } ) - - local DeltaX = self.Polygon[j].x - self.Polygon[i].x - local DeltaY = self.Polygon[j].y - self.Polygon[i].y - - for Segment = 0, Segments do -- We divide each line in 5 segments and smoke a point on the line. - local PointX = self.Polygon[i].x + ( Segment * DeltaX / Segments ) - local PointY = self.Polygon[i].y + ( Segment * DeltaY / Segments ) - POINT_VEC2:New( PointX, PointY ):Smoke( SmokeColor ) - end - j = i - i = i + 1 - end - - return self -end - - - - ---- Returns if a location is within the zone. --- Source learned and taken from: https://www.ecse.rpi.edu/Homepages/wrf/Research/Short_Notes/pnpoly.html --- @param #ZONE_POLYGON_BASE self --- @param DCSTypes#Vec2 PointVec2 The location to test. --- @return #boolean true if the location is within the zone. -function ZONE_POLYGON_BASE:IsPointVec2InZone( PointVec2 ) - self:F2( PointVec2 ) - - local Next - local Prev - local InPolygon = false - - Next = 1 - Prev = #self.Polygon - - while Next <= #self.Polygon do - self:T( { Next, Prev, self.Polygon[Next], self.Polygon[Prev] } ) - if ( ( ( self.Polygon[Next].y > PointVec2.y ) ~= ( self.Polygon[Prev].y > PointVec2.y ) ) and - ( PointVec2.x < ( self.Polygon[Prev].x - self.Polygon[Next].x ) * ( PointVec2.y - self.Polygon[Next].y ) / ( self.Polygon[Prev].y - self.Polygon[Next].y ) + self.Polygon[Next].x ) - ) then - InPolygon = not InPolygon - end - self:T2( { InPolygon = InPolygon } ) - Prev = Next - Next = Next + 1 - end - - self:T( { InPolygon = InPolygon } ) - return InPolygon -end - ---- Define a random @{DCSTypes#Vec2} within the zone. --- @param #ZONE_POLYGON_BASE self --- @return DCSTypes#Vec2 The Vec2 coordinate. -function ZONE_POLYGON_BASE:GetRandomVec2() - self:F2() - - --- It is a bit tricky to find a random point within a polygon. Right now i am doing it the dirty and inefficient way... - local Vec2Found = false - local Vec2 - local BS = self:GetBoundingSquare() - - self:T2( BS ) - - while Vec2Found == false do - Vec2 = { x = math.random( BS.x1, BS.x2 ), y = math.random( BS.y1, BS.y2 ) } - self:T2( Vec2 ) - if self:IsPointVec2InZone( Vec2 ) then - Vec2Found = true - end - end - - self:T2( Vec2 ) - - return Vec2 -end - ---- Get the bounding square the zone. --- @param #ZONE_POLYGON_BASE self --- @return #ZONE_POLYGON_BASE.BoundingSquare The bounding square. -function ZONE_POLYGON_BASE:GetBoundingSquare() - - local x1 = self.Polygon[1].x - local y1 = self.Polygon[1].y - local x2 = self.Polygon[1].x - local y2 = self.Polygon[1].y - - for i = 2, #self.Polygon do - self:T2( { self.Polygon[i], x1, y1, x2, y2 } ) - x1 = ( x1 > self.Polygon[i].x ) and self.Polygon[i].x or x1 - x2 = ( x2 < self.Polygon[i].x ) and self.Polygon[i].x or x2 - y1 = ( y1 > self.Polygon[i].y ) and self.Polygon[i].y or y1 - y2 = ( y2 < self.Polygon[i].y ) and self.Polygon[i].y or y2 - - end - - return { x1 = x1, y1 = y1, x2 = x2, y2 = y2 } -end - - - - - ---- The ZONE_POLYGON class defined by a sequence of @{Group#GROUP} waypoints within the Mission Editor, forming a polygon. --- @type ZONE_POLYGON --- @extends Zone#ZONE_POLYGON_BASE -ZONE_POLYGON = { - ClassName="ZONE_POLYGON", - } - ---- Constructor to create a ZONE_POLYGON instance, taking the zone name and the name of the @{Group#GROUP} defined within the Mission Editor. --- The @{Group#GROUP} waypoints define the polygon corners. The first and the last point are automatically connected by ZONE_POLYGON. --- @param #ZONE_POLYGON self --- @param #string ZoneName Name of the zone. --- @param Group#GROUP ZoneGroup The GROUP waypoints as defined within the Mission Editor define the polygon shape. --- @return #ZONE_POLYGON self -function ZONE_POLYGON:New( ZoneName, ZoneGroup ) - - local GroupPoints = ZoneGroup:GetTaskRoute() - - local self = BASE:Inherit( self, ZONE_POLYGON_BASE:New( ZoneName, GroupPoints ) ) - self:F( { ZoneName, ZoneGroup, self.Polygon } ) - - return self -end - ---- This module contains the CLIENT class. --- --- 1) @{Client#CLIENT} class, extends @{Unit#UNIT} --- =============================================== --- Clients are those **Units** defined within the Mission Editor that have the skillset defined as __Client__ or __Player__. --- Note that clients are NOT the same as Units, they are NOT necessarily alive. --- The @{Client#CLIENT} class is a wrapper class to handle the DCS Unit objects that have the skillset defined as __Client__ or __Player__: --- --- * Wraps the DCS Unit objects with skill level set to Player or Client. --- * Support all DCS Unit APIs. --- * Enhance with Unit specific APIs not in the DCS Group API set. --- * When player joins Unit, execute alive init logic. --- * Handles messages to players. --- * Manage the "state" of the DCS Unit. --- --- Clients are being used by the @{MISSION} class to follow players and register their successes. --- --- 1.1) CLIENT reference methods --- ----------------------------- --- For each DCS Unit having skill level Player or Client, a CLIENT wrapper object (instance) will be created within the _@{DATABASE} object. --- This is done at the beginning of the mission (when the mission starts). --- --- The CLIENT class does not contain a :New() method, rather it provides :Find() methods to retrieve the object reference --- using the DCS Unit or the DCS UnitName. --- --- Another thing to know is that CLIENT objects do not "contain" the DCS Unit object. --- The CLIENT methods will reference the DCS Unit object by name when it is needed during API execution. --- If the DCS Unit object does not exist or is nil, the CLIENT methods will return nil and log an exception in the DCS.log file. --- --- The CLIENT class provides the following functions to retrieve quickly the relevant CLIENT instance: --- --- * @{#CLIENT.Find}(): Find a CLIENT instance from the _DATABASE object using a DCS Unit object. --- * @{#CLIENT.FindByName}(): Find a CLIENT instance from the _DATABASE object using a DCS Unit name. --- --- IMPORTANT: ONE SHOULD NEVER SANATIZE these CLIENT OBJECT REFERENCES! (make the CLIENT object references nil). --- --- @module Client --- @author FlightControl - ---- The CLIENT class --- @type CLIENT --- @extends Unit#UNIT -CLIENT = { - ONBOARDSIDE = { - NONE = 0, - LEFT = 1, - RIGHT = 2, - BACK = 3, - FRONT = 4 - }, - ClassName = "CLIENT", - ClientName = nil, - ClientAlive = false, - ClientTransport = false, - ClientBriefingShown = false, - _Menus = {}, - _Tasks = {}, - Messages = { - } -} - - ---- Finds a CLIENT from the _DATABASE using the relevant DCS Unit. --- @param #CLIENT self --- @param #string ClientName Name of the DCS **Unit** as defined within the Mission Editor. --- @param #string ClientBriefing Text that describes the briefing of the mission when a Player logs into the Client. --- @return #CLIENT --- @usage --- -- Create new Clients. --- local Mission = MISSIONSCHEDULER.AddMission( 'Russia Transport Troops SA-6', 'Operational', 'Transport troops from the control center to one of the SA-6 SAM sites to activate their operation.', 'Russia' ) --- Mission:AddGoal( DeploySA6TroopsGoal ) --- --- Mission:AddClient( CLIENT:FindByName( 'RU MI-8MTV2*HOT-Deploy Troops 1' ):Transport() ) --- Mission:AddClient( CLIENT:FindByName( 'RU MI-8MTV2*RAMP-Deploy Troops 3' ):Transport() ) --- Mission:AddClient( CLIENT:FindByName( 'RU MI-8MTV2*HOT-Deploy Troops 2' ):Transport() ) --- Mission:AddClient( CLIENT:FindByName( 'RU MI-8MTV2*RAMP-Deploy Troops 4' ):Transport() ) -function CLIENT:Find( DCSUnit ) - local ClientName = DCSUnit:getName() - local ClientFound = _DATABASE:FindClient( ClientName ) - - if ClientFound then - ClientFound:F( ClientName ) - return ClientFound - end - - error( "CLIENT not found for: " .. ClientName ) -end - - ---- Finds a CLIENT from the _DATABASE using the relevant Client Unit Name. --- As an optional parameter, a briefing text can be given also. --- @param #CLIENT self --- @param #string ClientName Name of the DCS **Unit** as defined within the Mission Editor. --- @param #string ClientBriefing Text that describes the briefing of the mission when a Player logs into the Client. --- @return #CLIENT --- @usage --- -- Create new Clients. --- local Mission = MISSIONSCHEDULER.AddMission( 'Russia Transport Troops SA-6', 'Operational', 'Transport troops from the control center to one of the SA-6 SAM sites to activate their operation.', 'Russia' ) --- Mission:AddGoal( DeploySA6TroopsGoal ) --- --- Mission:AddClient( CLIENT:FindByName( 'RU MI-8MTV2*HOT-Deploy Troops 1' ):Transport() ) --- Mission:AddClient( CLIENT:FindByName( 'RU MI-8MTV2*RAMP-Deploy Troops 3' ):Transport() ) --- Mission:AddClient( CLIENT:FindByName( 'RU MI-8MTV2*HOT-Deploy Troops 2' ):Transport() ) --- Mission:AddClient( CLIENT:FindByName( 'RU MI-8MTV2*RAMP-Deploy Troops 4' ):Transport() ) -function CLIENT:FindByName( ClientName, ClientBriefing ) - local ClientFound = _DATABASE:FindClient( ClientName ) - - if ClientFound then - ClientFound:F( { ClientName, ClientBriefing } ) - ClientFound:AddBriefing( ClientBriefing ) - ClientFound.MessageSwitch = true - - return ClientFound - end - - error( "CLIENT not found for: " .. ClientName ) -end - -function CLIENT:Register( ClientName ) - local self = BASE:Inherit( self, UNIT:Register( ClientName ) ) - - self:F( ClientName ) - self.ClientName = ClientName - self.MessageSwitch = true - self.ClientAlive2 = false - - --self.AliveCheckScheduler = routines.scheduleFunction( self._AliveCheckScheduler, { self }, timer.getTime() + 1, 5 ) - self.AliveCheckScheduler = SCHEDULER:New( self, self._AliveCheckScheduler, { "Client Alive " .. ClientName }, 1, 5 ) - - self:E( self ) - return self -end - - ---- Transport defines that the Client is a Transport. Transports show cargo. --- @param #CLIENT self --- @return #CLIENT -function CLIENT:Transport() - self:F() - - self.ClientTransport = true - return self -end - ---- AddBriefing adds a briefing to a CLIENT when a player joins a mission. --- @param #CLIENT self --- @param #string ClientBriefing is the text defining the Mission briefing. --- @return #CLIENT self -function CLIENT:AddBriefing( ClientBriefing ) - self:F( ClientBriefing ) - self.ClientBriefing = ClientBriefing - self.ClientBriefingShown = false - - return self -end - ---- Show the briefing of a CLIENT. --- @param #CLIENT self --- @return #CLIENT self -function CLIENT:ShowBriefing() - self:F( { self.ClientName, self.ClientBriefingShown } ) - - if not self.ClientBriefingShown then - self.ClientBriefingShown = true - local Briefing = "" - if self.ClientBriefing then - Briefing = Briefing .. self.ClientBriefing - end - Briefing = Briefing .. " Press [LEFT ALT]+[B] to view the complete mission briefing." - self:Message( Briefing, 60, "Briefing" ) - end - - return self -end - ---- Show the mission briefing of a MISSION to the CLIENT. --- @param #CLIENT self --- @param #string MissionBriefing --- @return #CLIENT self -function CLIENT:ShowMissionBriefing( MissionBriefing ) - self:F( { self.ClientName } ) - - if MissionBriefing then - self:Message( MissionBriefing, 60, "Mission Briefing" ) - end - - return self -end - - - ---- Resets a CLIENT. --- @param #CLIENT self --- @param #string ClientName Name of the Group as defined within the Mission Editor. The Group must have a Unit with the type Client. -function CLIENT:Reset( ClientName ) - self:F() - self._Menus = {} -end - --- Is Functions - ---- Checks if the CLIENT is a multi-seated UNIT. --- @param #CLIENT self --- @return #boolean true if multi-seated. -function CLIENT:IsMultiSeated() - self:F( self.ClientName ) - - local ClientMultiSeatedTypes = { - ["Mi-8MT"] = "Mi-8MT", - ["UH-1H"] = "UH-1H", - ["P-51B"] = "P-51B" - } - - if self:IsAlive() then - local ClientTypeName = self:GetClientGroupUnit():GetTypeName() - if ClientMultiSeatedTypes[ClientTypeName] then - return true - end - end - - return false -end - ---- Checks for a client alive event and calls a function on a continuous basis. --- @param #CLIENT self --- @param #function CallBack Function. --- @return #CLIENT -function CLIENT:Alive( CallBackFunction, ... ) - self:F() - - self.ClientCallBack = CallBackFunction - self.ClientParameters = arg - - return self -end - ---- @param #CLIENT self -function CLIENT:_AliveCheckScheduler( SchedulerName ) - self:F( { SchedulerName, self.ClientName, self.ClientAlive2, self.ClientBriefingShown, self.ClientCallBack } ) - - if self:IsAlive() then - if self.ClientAlive2 == false then - self:ShowBriefing() - if self.ClientCallBack then - self:T("Calling Callback function") - self.ClientCallBack( self, unpack( self.ClientParameters ) ) - end - self.ClientAlive2 = true - end - else - if self.ClientAlive2 == true then - self.ClientAlive2 = false - end - end - - return true -end - ---- Return the DCSGroup of a Client. --- This function is modified to deal with a couple of bugs in DCS 1.5.3 --- @param #CLIENT self --- @return DCSGroup#Group -function CLIENT:GetDCSGroup() - self:F3() - --- local ClientData = Group.getByName( self.ClientName ) --- if ClientData and ClientData:isExist() then --- self:T( self.ClientName .. " : group found!" ) --- return ClientData --- else --- return nil --- end - - local ClientUnit = Unit.getByName( self.ClientName ) - - local CoalitionsData = { AlivePlayersRed = coalition.getPlayers( coalition.side.RED ), AlivePlayersBlue = coalition.getPlayers( coalition.side.BLUE ) } - for CoalitionId, CoalitionData in pairs( CoalitionsData ) do - self:T3( { "CoalitionData:", CoalitionData } ) - for UnitId, UnitData in pairs( CoalitionData ) do - self:T3( { "UnitData:", UnitData } ) - if UnitData and UnitData:isExist() then - - --self:E(self.ClientName) - if ClientUnit then - local ClientGroup = ClientUnit:getGroup() - if ClientGroup then - self:T3( "ClientGroup = " .. self.ClientName ) - if ClientGroup:isExist() and UnitData:getGroup():isExist() then - if ClientGroup:getID() == UnitData:getGroup():getID() then - self:T3( "Normal logic" ) - self:T3( self.ClientName .. " : group found!" ) - self.ClientGroupID = ClientGroup:getID() - self.ClientGroupName = ClientGroup:getName() - return ClientGroup - end - else - -- Now we need to resolve the bugs in DCS 1.5 ... - -- Consult the database for the units of the Client Group. (ClientGroup:getUnits() returns nil) - self:T3( "Bug 1.5 logic" ) - local ClientGroupTemplate = _DATABASE.Templates.Units[self.ClientName].GroupTemplate - self.ClientGroupID = ClientGroupTemplate.groupId - self.ClientGroupName = _DATABASE.Templates.Units[self.ClientName].GroupName - self:T3( self.ClientName .. " : group found in bug 1.5 resolvement logic!" ) - return ClientGroup - end - -- else - -- error( "Client " .. self.ClientName .. " not found!" ) - end - else - --self:E( { "Client not found!", self.ClientName } ) - end - end - end - end - - -- For non player clients - if ClientUnit then - local ClientGroup = ClientUnit:getGroup() - if ClientGroup then - self:T3( "ClientGroup = " .. self.ClientName ) - if ClientGroup:isExist() then - self:T3( "Normal logic" ) - self:T3( self.ClientName .. " : group found!" ) - return ClientGroup - end - end - end - - self.ClientGroupID = nil - self.ClientGroupUnit = nil - - return nil -end - - --- TODO: Check DCSTypes#Group.ID ---- Get the group ID of the client. --- @param #CLIENT self --- @return DCSTypes#Group.ID -function CLIENT:GetClientGroupID() - - local ClientGroup = self:GetDCSGroup() - - --self:E( self.ClientGroupID ) -- Determined in GetDCSGroup() - return self.ClientGroupID -end - - ---- Get the name of the group of the client. --- @param #CLIENT self --- @return #string -function CLIENT:GetClientGroupName() - - local ClientGroup = self:GetDCSGroup() - - self:T( self.ClientGroupName ) -- Determined in GetDCSGroup() - return self.ClientGroupName -end - ---- Returns the UNIT of the CLIENT. --- @param #CLIENT self --- @return Unit#UNIT -function CLIENT:GetClientGroupUnit() - self:F2() - - local ClientDCSUnit = Unit.getByName( self.ClientName ) - - self:T( self.ClientDCSUnit ) - if ClientDCSUnit and ClientDCSUnit:isExist() then - local ClientUnit = _DATABASE:FindUnit( self.ClientName ) - self:T2( ClientUnit ) - return ClientUnit - end -end - ---- Returns the DCSUnit of the CLIENT. --- @param #CLIENT self --- @return DCSTypes#Unit -function CLIENT:GetClientGroupDCSUnit() - self:F2() - - local ClientDCSUnit = Unit.getByName( self.ClientName ) - - if ClientDCSUnit and ClientDCSUnit:isExist() then - self:T2( ClientDCSUnit ) - return ClientDCSUnit - end -end - - ---- Evaluates if the CLIENT is a transport. --- @param #CLIENT self --- @return #boolean true is a transport. -function CLIENT:IsTransport() - self:F() - return self.ClientTransport -end - ---- Shows the @{Cargo#CARGO} contained within the CLIENT to the player as a message. --- The @{Cargo#CARGO} is shown using the @{Message#MESSAGE} distribution system. --- @param #CLIENT self -function CLIENT:ShowCargo() - self:F() - - local CargoMsg = "" - - for CargoName, Cargo in pairs( CARGOS ) do - if self == Cargo:IsLoadedInClient() then - CargoMsg = CargoMsg .. Cargo.CargoName .. " Type:" .. Cargo.CargoType .. " Weight: " .. Cargo.CargoWeight .. "\n" - end - end - - if CargoMsg == "" then - CargoMsg = "empty" - end - - self:Message( CargoMsg, 15, "Co-Pilot: Cargo Status", 30 ) - -end - --- TODO (1) I urgently need to revise this. ---- A local function called by the DCS World Menu system to switch off messages. -function CLIENT.SwitchMessages( PrmTable ) - PrmTable[1].MessageSwitch = PrmTable[2] -end - ---- The main message driver for the CLIENT. --- This function displays various messages to the Player logged into the CLIENT through the DCS World Messaging system. --- @param #CLIENT self --- @param #string Message is the text describing the message. --- @param #number MessageDuration is the duration in seconds that the Message should be displayed. --- @param #string MessageCategory is the category of the message (the title). --- @param #number MessageInterval is the interval in seconds between the display of the @{Message#MESSAGE} when the CLIENT is in the air. --- @param #string MessageID is the identifier of the message when displayed with intervals. -function CLIENT:Message( Message, MessageDuration, MessageCategory, MessageInterval, MessageID ) - self:F( { Message, MessageDuration, MessageCategory, MessageInterval } ) - - if not self.MenuMessages then - if self:GetClientGroupID() then - self.MenuMessages = MENU_CLIENT:New( self, 'Messages' ) - self.MenuRouteMessageOn = MENU_CLIENT_COMMAND:New( self, 'Messages On', self.MenuMessages, CLIENT.SwitchMessages, { self, true } ) - self.MenuRouteMessageOff = MENU_CLIENT_COMMAND:New( self,'Messages Off', self.MenuMessages, CLIENT.SwitchMessages, { self, false } ) - end - end - - if self.MessageSwitch == true then - if MessageCategory == nil then - MessageCategory = "Messages" - end - if MessageID ~= nil then - if self.Messages[MessageID] == nil then - self.Messages[MessageID] = {} - self.Messages[MessageID].MessageId = MessageID - self.Messages[MessageID].MessageTime = timer.getTime() - self.Messages[MessageID].MessageDuration = MessageDuration - if MessageInterval == nil then - self.Messages[MessageID].MessageInterval = 600 - else - self.Messages[MessageID].MessageInterval = MessageInterval - end - MESSAGE:New( Message, MessageDuration, MessageCategory ):ToClient( self ) - else - if self:GetClientGroupDCSUnit() and not self:GetClientGroupDCSUnit():inAir() then - if timer.getTime() - self.Messages[MessageID].MessageTime >= self.Messages[MessageID].MessageDuration + 10 then - MESSAGE:New( Message, MessageDuration , MessageCategory):ToClient( self ) - self.Messages[MessageID].MessageTime = timer.getTime() - end - else - if timer.getTime() - self.Messages[MessageID].MessageTime >= self.Messages[MessageID].MessageDuration + self.Messages[MessageID].MessageInterval then - MESSAGE:New( Message, MessageDuration, MessageCategory ):ToClient( self ) - self.Messages[MessageID].MessageTime = timer.getTime() - end - end - end - else - MESSAGE:New( Message, MessageDuration, MessageCategory ):ToClient( self ) - end - end -end ---- This module contains the STATIC class. --- --- 1) @{Static#STATIC} class, extends @{Positionable#POSITIONABLE} --- =============================================================== --- Statics are **Static Units** defined within the Mission Editor. --- Note that Statics are almost the same as Units, but they don't have a controller. --- The @{Static#STATIC} class is a wrapper class to handle the DCS Static objects: --- --- * Wraps the DCS Static objects. --- * Support all DCS Static APIs. --- * Enhance with Static specific APIs not in the DCS API set. --- --- 1.1) STATIC reference methods --- ----------------------------- --- For each DCS Static will have a STATIC wrapper object (instance) within the _@{DATABASE} object. --- This is done at the beginning of the mission (when the mission starts). --- --- The STATIC class does not contain a :New() method, rather it provides :Find() methods to retrieve the object reference --- using the Static Name. --- --- Another thing to know is that STATIC objects do not "contain" the DCS Static object. --- The STATIc methods will reference the DCS Static object by name when it is needed during API execution. --- If the DCS Static object does not exist or is nil, the STATIC methods will return nil and log an exception in the DCS.log file. --- --- The STATIc class provides the following functions to retrieve quickly the relevant STATIC instance: --- --- * @{#STATIC.FindByName}(): Find a STATIC instance from the _DATABASE object using a DCS Static name. --- --- IMPORTANT: ONE SHOULD NEVER SANATIZE these STATIC OBJECT REFERENCES! (make the STATIC object references nil). --- --- @module Static --- @author FlightControl - - - - - - ---- The STATIC class --- @type STATIC --- @extends Positionable#POSITIONABLE -STATIC = { - ClassName = "STATIC", -} - - ---- Finds a STATIC from the _DATABASE using the relevant Static Name. --- As an optional parameter, a briefing text can be given also. --- @param #STATIC self --- @param #string StaticName Name of the DCS **Static** as defined within the Mission Editor. --- @return #STATIC -function STATIC:FindByName( StaticName ) - local StaticFound = _DATABASE:FindStatic( StaticName ) - - if StaticFound then - StaticFound:F( { StaticName } ) - - return StaticFound - end - - error( "STATIC not found for: " .. StaticName ) -end - -function STATIC:Register( StaticName ) - local self = BASE:Inherit( self, POSITIONABLE:New( StaticName ) ) - return self -end - - -function STATIC:GetDCSUnit() - local DCSStatic = StaticObject.getByName( self.UnitName ) - - if DCSStatic then - return DCSStatic - end - - return nil -end ---- This module contains the AIRBASE classes. --- --- === --- --- 1) @{Airbase#AIRBASE} class, extends @{Positionable#POSITIONABLE} --- ================================================================= --- The @{AIRBASE} class is a wrapper class to handle the DCS Airbase objects: --- --- * Support all DCS Airbase APIs. --- * Enhance with Airbase specific APIs not in the DCS Airbase API set. --- --- --- 1.1) AIRBASE reference methods --- ------------------------------ --- For each DCS Airbase object alive within a running mission, a AIRBASE wrapper object (instance) will be created within the _@{DATABASE} object. --- This is done at the beginning of the mission (when the mission starts). --- --- The AIRBASE class **does not contain a :New()** method, rather it provides **:Find()** methods to retrieve the object reference --- using the DCS Airbase or the DCS AirbaseName. --- --- Another thing to know is that AIRBASE objects do not "contain" the DCS Airbase object. --- The AIRBASE methods will reference the DCS Airbase object by name when it is needed during API execution. --- If the DCS Airbase object does not exist or is nil, the AIRBASE methods will return nil and log an exception in the DCS.log file. --- --- The AIRBASE class provides the following functions to retrieve quickly the relevant AIRBASE instance: --- --- * @{#AIRBASE.Find}(): Find a AIRBASE instance from the _DATABASE object using a DCS Airbase object. --- * @{#AIRBASE.FindByName}(): Find a AIRBASE instance from the _DATABASE object using a DCS Airbase name. --- --- IMPORTANT: ONE SHOULD NEVER SANATIZE these AIRBASE OBJECT REFERENCES! (make the AIRBASE object references nil). --- --- 1.2) DCS AIRBASE APIs --- --------------------- --- The DCS Airbase APIs are used extensively within MOOSE. The AIRBASE class has for each DCS Airbase API a corresponding method. --- To be able to distinguish easily in your code the difference between a AIRBASE API call and a DCS Airbase API call, --- the first letter of the method is also capitalized. So, by example, the DCS Airbase method @{DCSAirbase#Airbase.getName}() --- is implemented in the AIRBASE class as @{#AIRBASE.GetName}(). --- --- More functions will be added --- ---------------------------- --- During the MOOSE development, more functions will be added. --- --- @module Airbase --- @author FlightControl - - - - - ---- The AIRBASE class --- @type AIRBASE --- @extends Positionable#POSITIONABLE -AIRBASE = { - ClassName="AIRBASE", - CategoryName = { - [Airbase.Category.AIRDROME] = "Airdrome", - [Airbase.Category.HELIPAD] = "Helipad", - [Airbase.Category.SHIP] = "Ship", - }, - } - --- Registration. - ---- Create a new AIRBASE from DCSAirbase. --- @param #AIRBASE self --- @param #string AirbaseName The name of the airbase. --- @return Airbase#AIRBASE -function AIRBASE:Register( AirbaseName ) - - local self = BASE:Inherit( self, POSITIONABLE:New( AirbaseName ) ) - self.AirbaseName = AirbaseName - return self -end - --- Reference methods. - ---- Finds a AIRBASE from the _DATABASE using a DCSAirbase object. --- @param #AIRBASE self --- @param DCSAirbase#Airbase DCSAirbase An existing DCS Airbase object reference. --- @return Airbase#AIRBASE self -function AIRBASE:Find( DCSAirbase ) - - local AirbaseName = DCSAirbase:getName() - local AirbaseFound = _DATABASE:FindAirbase( AirbaseName ) - return AirbaseFound -end - ---- Find a AIRBASE in the _DATABASE using the name of an existing DCS Airbase. --- @param #AIRBASE self --- @param #string AirbaseName The Airbase Name. --- @return Airbase#AIRBASE self -function AIRBASE:FindByName( AirbaseName ) - - local AirbaseFound = _DATABASE:FindAirbase( AirbaseName ) - return AirbaseFound -end - -function AIRBASE:GetDCSObject() - local DCSAirbase = Airbase.getByName( self.AirbaseName ) - - if DCSAirbase then - return DCSAirbase - end - - return nil -end - - - ---- This module contains the DATABASE class, managing the database of mission objects. --- --- ==== --- --- 1) @{Database#DATABASE} class, extends @{Base#BASE} --- =================================================== --- Mission designers can use the DATABASE class to refer to: --- --- * UNITS --- * GROUPS --- * CLIENTS --- * AIRPORTS --- * PLAYERSJOINED --- * PLAYERS --- --- On top, for internal MOOSE administration purposes, the DATBASE administers the Unit and Group TEMPLATES as defined within the Mission Editor. --- --- Moose will automatically create one instance of the DATABASE class into the **global** object _DATABASE. --- Moose refers to _DATABASE within the framework extensively, but you can also refer to the _DATABASE object within your missions if required. --- --- 1.1) DATABASE iterators --- ----------------------- --- You can iterate the database with the available iterator methods. --- The iterator methods will walk the DATABASE set, and call for each element within the set a function that you provide. --- The following iterator methods are currently available within the DATABASE: --- --- * @{#DATABASE.ForEachUnit}: Calls a function for each @{UNIT} it finds within the DATABASE. --- * @{#DATABASE.ForEachGroup}: Calls a function for each @{GROUP} it finds within the DATABASE. --- * @{#DATABASE.ForEachPlayer}: Calls a function for each alive player it finds within the DATABASE. --- * @{#DATABASE.ForEachPlayerJoined}: Calls a function for each joined player it finds within the DATABASE. --- * @{#DATABASE.ForEachClient}: Calls a function for each @{CLIENT} it finds within the DATABASE. --- * @{#DATABASE.ForEachClientAlive}: Calls a function for each alive @{CLIENT} it finds within the DATABASE. --- --- === --- --- @module Database --- @author FlightControl - ---- DATABASE class --- @type DATABASE --- @extends Base#BASE -DATABASE = { - ClassName = "DATABASE", - Templates = { - Units = {}, - Groups = {}, - ClientsByName = {}, - ClientsByID = {}, - }, - UNITS = {}, - STATICS = {}, - GROUPS = {}, - PLAYERS = {}, - PLAYERSJOINED = {}, - CLIENTS = {}, - AIRBASES = {}, - NavPoints = {}, -} - -local _DATABASECoalition = - { - [1] = "Red", - [2] = "Blue", - } - -local _DATABASECategory = - { - ["plane"] = Unit.Category.AIRPLANE, - ["helicopter"] = Unit.Category.HELICOPTER, - ["vehicle"] = Unit.Category.GROUND_UNIT, - ["ship"] = Unit.Category.SHIP, - ["static"] = Unit.Category.STRUCTURE, - } - - ---- Creates a new DATABASE object, building a set of units belonging to a coalitions, categories, countries, types or with defined prefix names. --- @param #DATABASE self --- @return #DATABASE --- @usage --- -- Define a new DATABASE Object. This DBObject will contain a reference to all Group and Unit Templates defined within the ME and the DCSRTE. --- DBObject = DATABASE:New() -function DATABASE:New() - - -- Inherits from BASE - local self = BASE:Inherit( self, BASE:New() ) - - _EVENTDISPATCHER:OnBirth( self._EventOnBirth, self ) - _EVENTDISPATCHER:OnDead( self._EventOnDeadOrCrash, self ) - _EVENTDISPATCHER:OnCrash( self._EventOnDeadOrCrash, self ) - - - -- Follow alive players and clients - _EVENTDISPATCHER:OnPlayerEnterUnit( self._EventOnPlayerEnterUnit, self ) - _EVENTDISPATCHER:OnPlayerLeaveUnit( self._EventOnPlayerLeaveUnit, self ) - - self:_RegisterTemplates() - self:_RegisterGroupsAndUnits() - self:_RegisterClients() - self:_RegisterStatics() - self:_RegisterPlayers() - self:_RegisterAirbases() - - return self -end - ---- Finds a Unit based on the Unit Name. --- @param #DATABASE self --- @param #string UnitName --- @return Unit#UNIT The found Unit. -function DATABASE:FindUnit( UnitName ) - - local UnitFound = self.UNITS[UnitName] - return UnitFound -end - - ---- Adds a Unit based on the Unit Name in the DATABASE. --- @param #DATABASE self -function DATABASE:AddUnit( DCSUnitName ) - - if not self.UNITS[DCSUnitName] then - local UnitRegister = UNIT:Register( DCSUnitName ) - self:E( UnitRegister.UnitName ) - self.UNITS[DCSUnitName] = UNIT:Register( DCSUnitName ) - end - - return self.UNITS[DCSUnitName] -end - - ---- Deletes a Unit from the DATABASE based on the Unit Name. --- @param #DATABASE self -function DATABASE:DeleteUnit( DCSUnitName ) - - --self.UNITS[DCSUnitName] = nil -end - ---- Adds a Static based on the Static Name in the DATABASE. --- @param #DATABASE self -function DATABASE:AddStatic( DCSStaticName ) - - if not self.STATICS[DCSStaticName] then - self.STATICS[DCSStaticName] = STATIC:Register( DCSStaticName ) - end -end - - ---- Deletes a Static from the DATABASE based on the Static Name. --- @param #DATABASE self -function DATABASE:DeleteStatic( DCSStaticName ) - - --self.STATICS[DCSStaticName] = nil -end - ---- Finds a STATIC based on the StaticName. --- @param #DATABASE self --- @param #string StaticName --- @return Static#STATIC The found STATIC. -function DATABASE:FindStatic( StaticName ) - - local StaticFound = self.STATICS[StaticName] - return StaticFound -end - ---- Adds a Airbase based on the Airbase Name in the DATABASE. --- @param #DATABASE self -function DATABASE:AddAirbase( DCSAirbaseName ) - - if not self.AIRBASES[DCSAirbaseName] then - self.AIRBASES[DCSAirbaseName] = AIRBASE:Register( DCSAirbaseName ) - end -end - - ---- Deletes a Airbase from the DATABASE based on the Airbase Name. --- @param #DATABASE self -function DATABASE:DeleteAirbase( DCSAirbaseName ) - - --self.AIRBASES[DCSAirbaseName] = nil -end - ---- Finds a AIRBASE based on the AirbaseName. --- @param #DATABASE self --- @param #string AirbaseName --- @return Airbase#AIRBASE The found AIRBASE. -function DATABASE:FindAirbase( AirbaseName ) - - local AirbaseFound = self.AIRBASES[AirbaseName] - return AirbaseFound -end - - ---- Finds a CLIENT based on the ClientName. --- @param #DATABASE self --- @param #string ClientName --- @return Client#CLIENT The found CLIENT. -function DATABASE:FindClient( ClientName ) - - local ClientFound = self.CLIENTS[ClientName] - return ClientFound -end - - ---- Adds a CLIENT based on the ClientName in the DATABASE. --- @param #DATABASE self -function DATABASE:AddClient( ClientName ) - - if not self.CLIENTS[ClientName] then - self.CLIENTS[ClientName] = CLIENT:Register( ClientName ) - end - - return self.CLIENTS[ClientName] -end - - ---- Finds a GROUP based on the GroupName. --- @param #DATABASE self --- @param #string GroupName --- @return Group#GROUP The found GROUP. -function DATABASE:FindGroup( GroupName ) - - local GroupFound = self.GROUPS[GroupName] - return GroupFound -end - - ---- Adds a GROUP based on the GroupName in the DATABASE. --- @param #DATABASE self -function DATABASE:AddGroup( GroupName ) - - if not self.GROUPS[GroupName] then - self.GROUPS[GroupName] = GROUP:Register( GroupName ) - end - - return self.GROUPS[GroupName] -end - ---- Adds a player based on the Player Name in the DATABASE. --- @param #DATABASE self -function DATABASE:AddPlayer( UnitName, PlayerName ) - - if PlayerName then - self:E( { "Add player for unit:", UnitName, PlayerName } ) - self.PLAYERS[PlayerName] = self:FindUnit( UnitName ) - self.PLAYERSJOINED[PlayerName] = PlayerName - end -end - ---- Deletes a player from the DATABASE based on the Player Name. --- @param #DATABASE self -function DATABASE:DeletePlayer( PlayerName ) - - if PlayerName then - self:E( { "Clean player:", PlayerName } ) - self.PLAYERS[PlayerName] = nil - end -end - - ---- Instantiate new Groups within the DCSRTE. --- This method expects EXACTLY the same structure as a structure within the ME, and needs 2 additional fields defined: --- SpawnCountryID, SpawnCategoryID --- This method is used by the SPAWN class. --- @param #DATABASE self --- @param #table SpawnTemplate --- @return #DATABASE self -function DATABASE:Spawn( SpawnTemplate ) - self:F2( SpawnTemplate.name ) - - self:T2( { SpawnTemplate.SpawnCountryID, SpawnTemplate.SpawnCategoryID } ) - - -- Copy the spawn variables of the template in temporary storage, nullify, and restore the spawn variables. - local SpawnCoalitionID = SpawnTemplate.SpawnCoalitionID - local SpawnCountryID = SpawnTemplate.SpawnCountryID - local SpawnCategoryID = SpawnTemplate.SpawnCategoryID - - -- Nullify - SpawnTemplate.SpawnCoalitionID = nil - SpawnTemplate.SpawnCountryID = nil - SpawnTemplate.SpawnCategoryID = nil - - self:_RegisterTemplate( SpawnTemplate, SpawnCoalitionID, SpawnCategoryID, SpawnCountryID ) - - self:T3( SpawnTemplate ) - coalition.addGroup( SpawnCountryID, SpawnCategoryID, SpawnTemplate ) - - -- Restore - SpawnTemplate.SpawnCoalitionID = SpawnCoalitionID - SpawnTemplate.SpawnCountryID = SpawnCountryID - SpawnTemplate.SpawnCategoryID = SpawnCategoryID - - local SpawnGroup = self:AddGroup( SpawnTemplate.name ) - return SpawnGroup -end - ---- Set a status to a Group within the Database, this to check crossing events for example. -function DATABASE:SetStatusGroup( GroupName, Status ) - self:F2( Status ) - - self.Templates.Groups[GroupName].Status = Status -end - ---- Get a status to a Group within the Database, this to check crossing events for example. -function DATABASE:GetStatusGroup( GroupName ) - self:F2( Status ) - - if self.Templates.Groups[GroupName] then - return self.Templates.Groups[GroupName].Status - else - return "" - end -end - ---- Private method that registers new Group Templates within the DATABASE Object. --- @param #DATABASE self --- @param #table GroupTemplate --- @return #DATABASE self -function DATABASE:_RegisterTemplate( GroupTemplate, CoalitionID, CategoryID, CountryID ) - - local GroupTemplateName = env.getValueDictByKey(GroupTemplate.name) - - local TraceTable = {} - - if not self.Templates.Groups[GroupTemplateName] then - self.Templates.Groups[GroupTemplateName] = {} - self.Templates.Groups[GroupTemplateName].Status = nil - end - - -- Delete the spans from the route, it is not needed and takes memory. - if GroupTemplate.route and GroupTemplate.route.spans then - GroupTemplate.route.spans = nil - end - - self.Templates.Groups[GroupTemplateName].GroupName = GroupTemplateName - self.Templates.Groups[GroupTemplateName].Template = GroupTemplate - self.Templates.Groups[GroupTemplateName].groupId = GroupTemplate.groupId - self.Templates.Groups[GroupTemplateName].UnitCount = #GroupTemplate.units - self.Templates.Groups[GroupTemplateName].Units = GroupTemplate.units - self.Templates.Groups[GroupTemplateName].CategoryID = CategoryID - self.Templates.Groups[GroupTemplateName].CoalitionID = CoalitionID - self.Templates.Groups[GroupTemplateName].CountryID = CountryID - - - TraceTable[#TraceTable+1] = "Group" - TraceTable[#TraceTable+1] = self.Templates.Groups[GroupTemplateName].GroupName - - TraceTable[#TraceTable+1] = "Coalition" - TraceTable[#TraceTable+1] = self.Templates.Groups[GroupTemplateName].CoalitionID - TraceTable[#TraceTable+1] = "Category" - TraceTable[#TraceTable+1] = self.Templates.Groups[GroupTemplateName].CategoryID - TraceTable[#TraceTable+1] = "Country" - TraceTable[#TraceTable+1] = self.Templates.Groups[GroupTemplateName].CountryID - - TraceTable[#TraceTable+1] = "Units" - - for unit_num, UnitTemplate in pairs( GroupTemplate.units ) do - - local UnitTemplateName = env.getValueDictByKey(UnitTemplate.name) - self.Templates.Units[UnitTemplateName] = {} - self.Templates.Units[UnitTemplateName].UnitName = UnitTemplateName - self.Templates.Units[UnitTemplateName].Template = UnitTemplate - self.Templates.Units[UnitTemplateName].GroupName = GroupTemplateName - self.Templates.Units[UnitTemplateName].GroupTemplate = GroupTemplate - self.Templates.Units[UnitTemplateName].GroupId = GroupTemplate.groupId - self.Templates.Units[UnitTemplateName].CategoryID = CategoryID - self.Templates.Units[UnitTemplateName].CoalitionID = CoalitionID - self.Templates.Units[UnitTemplateName].CountryID = CountryID - - if UnitTemplate.skill and (UnitTemplate.skill == "Client" or UnitTemplate.skill == "Player") then - self.Templates.ClientsByName[UnitTemplateName] = UnitTemplate - self.Templates.ClientsByName[UnitTemplateName].CategoryID = CategoryID - self.Templates.ClientsByName[UnitTemplateName].CoalitionID = CoalitionID - self.Templates.ClientsByName[UnitTemplateName].CountryID = CountryID - self.Templates.ClientsByID[UnitTemplate.unitId] = UnitTemplate - end - - TraceTable[#TraceTable+1] = self.Templates.Units[UnitTemplateName].UnitName - end - - self:E( TraceTable ) -end - -function DATABASE:GetGroupTemplate( GroupName ) - local GroupTemplate = self.Templates.Groups[GroupName].Template - GroupTemplate.SpawnCoalitionID = self.Templates.Groups[GroupName].CoalitionID - GroupTemplate.SpawnCategoryID = self.Templates.Groups[GroupName].CategoryID - GroupTemplate.SpawnCountryID = self.Templates.Groups[GroupName].CountryID - return GroupTemplate -end - -function DATABASE:GetCoalitionFromClientTemplate( ClientName ) - return self.Templates.ClientsByName[ClientName].CoalitionID -end - -function DATABASE:GetCategoryFromClientTemplate( ClientName ) - return self.Templates.ClientsByName[ClientName].CategoryID -end - -function DATABASE:GetCountryFromClientTemplate( ClientName ) - return self.Templates.ClientsByName[ClientName].CountryID -end - ---- Airbase - -function DATABASE:GetCoalitionFromAirbase( AirbaseName ) - return self.AIRBASES[AirbaseName]:GetCoalition() -end - -function DATABASE:GetCategoryFromAirbase( AirbaseName ) - return self.AIRBASES[AirbaseName]:GetCategory() -end - - - ---- Private method that registers all alive players in the mission. --- @param #DATABASE self --- @return #DATABASE self -function DATABASE:_RegisterPlayers() - - local CoalitionsData = { AlivePlayersRed = coalition.getPlayers( coalition.side.RED ), AlivePlayersBlue = coalition.getPlayers( coalition.side.BLUE ) } - for CoalitionId, CoalitionData in pairs( CoalitionsData ) do - for UnitId, UnitData in pairs( CoalitionData ) do - self:T3( { "UnitData:", UnitData } ) - if UnitData and UnitData:isExist() then - local UnitName = UnitData:getName() - local PlayerName = UnitData:getPlayerName() - if not self.PLAYERS[PlayerName] then - self:E( { "Add player for unit:", UnitName, PlayerName } ) - self:AddPlayer( UnitName, PlayerName ) - end - end - end - end - - return self -end - - ---- Private method that registers all Groups and Units within in the mission. --- @param #DATABASE self --- @return #DATABASE self -function DATABASE:_RegisterGroupsAndUnits() - - local CoalitionsData = { GroupsRed = coalition.getGroups( coalition.side.RED ), GroupsBlue = coalition.getGroups( coalition.side.BLUE ) } - for CoalitionId, CoalitionData in pairs( CoalitionsData ) do - for DCSGroupId, DCSGroup in pairs( CoalitionData ) do - - if DCSGroup:isExist() then - local DCSGroupName = DCSGroup:getName() - - self:E( { "Register Group:", DCSGroupName } ) - self:AddGroup( DCSGroupName ) - - for DCSUnitId, DCSUnit in pairs( DCSGroup:getUnits() ) do - - local DCSUnitName = DCSUnit:getName() - self:E( { "Register Unit:", DCSUnitName } ) - self:AddUnit( DCSUnitName ) - end - else - self:E( { "Group does not exist: ", DCSGroup } ) - end - - end - end - - return self -end - ---- Private method that registers all Units of skill Client or Player within in the mission. --- @param #DATABASE self --- @return #DATABASE self -function DATABASE:_RegisterClients() - - for ClientName, ClientTemplate in pairs( self.Templates.ClientsByName ) do - self:E( { "Register Client:", ClientName } ) - self:AddClient( ClientName ) - end - - return self -end - ---- @param #DATABASE self -function DATABASE:_RegisterStatics() - - local CoalitionsData = { GroupsRed = coalition.getStaticObjects( coalition.side.RED ), GroupsBlue = coalition.getStaticObjects( coalition.side.BLUE ) } - for CoalitionId, CoalitionData in pairs( CoalitionsData ) do - for DCSStaticId, DCSStatic in pairs( CoalitionData ) do - - if DCSStatic:isExist() then - local DCSStaticName = DCSStatic:getName() - - self:E( { "Register Static:", DCSStaticName } ) - self:AddStatic( DCSStaticName ) - else - self:E( { "Static does not exist: ", DCSStatic } ) - end - end - end - - return self -end - ---- @param #DATABASE self -function DATABASE:_RegisterAirbases() - - local CoalitionsData = { AirbasesRed = coalition.getAirbases( coalition.side.RED ), AirbasesBlue = coalition.getAirbases( coalition.side.BLUE ), AirbasesNeutral = coalition.getAirbases( coalition.side.NEUTRAL ) } - for CoalitionId, CoalitionData in pairs( CoalitionsData ) do - for DCSAirbaseId, DCSAirbase in pairs( CoalitionData ) do - - local DCSAirbaseName = DCSAirbase:getName() - - self:E( { "Register Airbase:", DCSAirbaseName } ) - self:AddAirbase( DCSAirbaseName ) - end - end - - return self -end - - ---- Events - ---- Handles the OnBirth event for the alive units set. --- @param #DATABASE self --- @param Event#EVENTDATA Event -function DATABASE:_EventOnBirth( Event ) - self:F2( { Event } ) - - if Event.IniDCSUnit then - self:AddUnit( Event.IniDCSUnitName ) - self:AddGroup( Event.IniDCSGroupName ) - self:_EventOnPlayerEnterUnit( Event ) - end -end - - ---- Handles the OnDead or OnCrash event for alive units set. --- @param #DATABASE self --- @param Event#EVENTDATA Event -function DATABASE:_EventOnDeadOrCrash( Event ) - self:F2( { Event } ) - - if Event.IniDCSUnit then - if self.UNITS[Event.IniDCSUnitName] then - self:DeleteUnit( Event.IniDCSUnitName ) - -- add logic to correctly remove a group once all units are destroyed... - end - end -end - - ---- Handles the OnPlayerEnterUnit event to fill the active players table (with the unit filter applied). --- @param #DATABASE self --- @param Event#EVENTDATA Event -function DATABASE:_EventOnPlayerEnterUnit( Event ) - self:F2( { Event } ) - - if Event.IniUnit then - local PlayerName = Event.IniUnit:GetPlayerName() - if not self.PLAYERS[PlayerName] then - self:AddPlayer( Event.IniUnitName, PlayerName ) - end - end -end - - ---- Handles the OnPlayerLeaveUnit event to clean the active players table. --- @param #DATABASE self --- @param Event#EVENTDATA Event -function DATABASE:_EventOnPlayerLeaveUnit( Event ) - self:F2( { Event } ) - - if Event.IniUnit then - local PlayerName = Event.IniUnit:GetPlayerName() - if self.PLAYERS[PlayerName] then - self:DeletePlayer( PlayerName ) - end - end -end - ---- Iterators - ---- Iterate the DATABASE and call an iterator function for the given set, providing the Object for each element within the set and optional parameters. --- @param #DATABASE self --- @param #function IteratorFunction The function that will be called when there is an alive player in the database. --- @return #DATABASE self -function DATABASE:ForEach( IteratorFunction, FinalizeFunction, arg, Set ) - self:F2( arg ) - - local function CoRoutine() - local Count = 0 - for ObjectID, Object in pairs( Set ) do - self:T2( Object ) - IteratorFunction( Object, unpack( arg ) ) - Count = Count + 1 --- if Count % 100 == 0 then --- coroutine.yield( false ) --- end - end - return true - end - --- local co = coroutine.create( CoRoutine ) - local co = CoRoutine - - local function Schedule() - --- local status, res = coroutine.resume( co ) - local status, res = co() - self:T3( { status, res } ) - - if status == false then - error( res ) - end - if res == false then - return true -- resume next time the loop - end - if FinalizeFunction then - FinalizeFunction( unpack( arg ) ) - end - return false - end - - local Scheduler = SCHEDULER:New( self, Schedule, {}, 0.001, 0.001, 0 ) - - return self -end - - ---- Iterate the DATABASE and call an iterator function for each **alive** UNIT, providing the UNIT and optional parameters. --- @param #DATABASE self --- @param #function IteratorFunction The function that will be called when there is an alive UNIT in the database. The function needs to accept a UNIT parameter. --- @return #DATABASE self -function DATABASE:ForEachUnit( IteratorFunction, FinalizeFunction, ... ) - self:F2( arg ) - - self:ForEach( IteratorFunction, FinalizeFunction, arg, self.UNITS ) - - return self -end - ---- Iterate the DATABASE and call an iterator function for each **alive** GROUP, providing the GROUP and optional parameters. --- @param #DATABASE self --- @param #function IteratorFunction The function that will be called when there is an alive GROUP in the database. The function needs to accept a GROUP parameter. --- @return #DATABASE self -function DATABASE:ForEachGroup( IteratorFunction, ... ) - self:F2( arg ) - - self:ForEach( IteratorFunction, arg, self.GROUPS ) - - return self -end - - ---- Iterate the DATABASE and call an iterator function for each **ALIVE** player, providing the player name and optional parameters. --- @param #DATABASE self --- @param #function IteratorFunction The function that will be called when there is an player in the database. The function needs to accept the player name. --- @return #DATABASE self -function DATABASE:ForEachPlayer( IteratorFunction, ... ) - self:F2( arg ) - - self:ForEach( IteratorFunction, arg, self.PLAYERS ) - - return self -end - - ---- Iterate the DATABASE and call an iterator function for each player who has joined the mission, providing the Unit of the player and optional parameters. --- @param #DATABASE self --- @param #function IteratorFunction The function that will be called when there is was a player in the database. The function needs to accept a UNIT parameter. --- @return #DATABASE self -function DATABASE:ForEachPlayerJoined( IteratorFunction, ... ) - self:F2( arg ) - - self:ForEach( IteratorFunction, arg, self.PLAYERSJOINED ) - - return self -end - ---- Iterate the DATABASE and call an iterator function for each CLIENT, providing the CLIENT to the function and optional parameters. --- @param #DATABASE self --- @param #function IteratorFunction The function that will be called when there is an alive player in the database. The function needs to accept a CLIENT parameter. --- @return #DATABASE self -function DATABASE:ForEachClient( IteratorFunction, ... ) - self:F2( arg ) - - self:ForEach( IteratorFunction, arg, self.CLIENTS ) - - return self -end - - -function DATABASE:_RegisterTemplates() - self:F2() - - self.Navpoints = {} - self.UNITS = {} - --Build routines.db.units and self.Navpoints - for CoalitionName, coa_data in pairs(env.mission.coalition) do - - if (CoalitionName == 'red' or CoalitionName == 'blue') and type(coa_data) == 'table' then - --self.Units[coa_name] = {} - - ---------------------------------------------- - -- build nav points DB - self.Navpoints[CoalitionName] = {} - if coa_data.nav_points then --navpoints - for nav_ind, nav_data in pairs(coa_data.nav_points) do - - if type(nav_data) == 'table' then - self.Navpoints[CoalitionName][nav_ind] = routines.utils.deepCopy(nav_data) - - self.Navpoints[CoalitionName][nav_ind]['name'] = nav_data.callsignStr -- name is a little bit more self-explanatory. - self.Navpoints[CoalitionName][nav_ind]['point'] = {} -- point is used by SSE, support it. - self.Navpoints[CoalitionName][nav_ind]['point']['x'] = nav_data.x - self.Navpoints[CoalitionName][nav_ind]['point']['y'] = 0 - self.Navpoints[CoalitionName][nav_ind]['point']['z'] = nav_data.y - end - end - end - ------------------------------------------------- - if coa_data.country then --there is a country table - for cntry_id, cntry_data in pairs(coa_data.country) do - - local CountryName = string.upper(cntry_data.name) - --self.Units[coa_name][countryName] = {} - --self.Units[coa_name][countryName]["countryId"] = cntry_data.id - - if type(cntry_data) == 'table' then --just making sure - - for obj_type_name, obj_type_data in pairs(cntry_data) do - - if obj_type_name == "helicopter" or obj_type_name == "ship" or obj_type_name == "plane" or obj_type_name == "vehicle" or obj_type_name == "static" then --should be an unncessary check - - local CategoryName = obj_type_name - - if ((type(obj_type_data) == 'table') and obj_type_data.group and (type(obj_type_data.group) == 'table') and (#obj_type_data.group > 0)) then --there's a group! - - --self.Units[coa_name][countryName][category] = {} - - for group_num, GroupTemplate in pairs(obj_type_data.group) do - - if GroupTemplate and GroupTemplate.units and type(GroupTemplate.units) == 'table' then --making sure again- this is a valid group - self:_RegisterTemplate( - GroupTemplate, - coalition.side[string.upper(CoalitionName)], - _DATABASECategory[string.lower(CategoryName)], - country.id[string.upper(CountryName)] - ) - end --if GroupTemplate and GroupTemplate.units then - end --for group_num, GroupTemplate in pairs(obj_type_data.group) do - end --if ((type(obj_type_data) == 'table') and obj_type_data.group and (type(obj_type_data.group) == 'table') and (#obj_type_data.group > 0)) then - end --if obj_type_name == "helicopter" or obj_type_name == "ship" or obj_type_name == "plane" or obj_type_name == "vehicle" or obj_type_name == "static" then - end --for obj_type_name, obj_type_data in pairs(cntry_data) do - end --if type(cntry_data) == 'table' then - end --for cntry_id, cntry_data in pairs(coa_data.country) do - end --if coa_data.country then --there is a country table - end --if coa_name == 'red' or coa_name == 'blue' and type(coa_data) == 'table' then - end --for coa_name, coa_data in pairs(mission.coalition) do - - return self -end - - - - ---- This module contains the SET classes. --- --- === --- --- 1) @{Set#SET_BASE} class, extends @{Base#BASE} --- ============================================== --- The @{Set#SET_BASE} class defines the core functions that define a collection of objects. --- A SET provides iterators to iterate the SET, but will **temporarily** yield the ForEach interator loop at defined **"intervals"** to the mail simulator loop. --- In this way, large loops can be done while not blocking the simulator main processing loop. --- The default **"yield interval"** is after 10 objects processed. --- The default **"time interval"** is after 0.001 seconds. --- --- 1.1) Add or remove objects from the SET --- --------------------------------------- --- Some key core functions are @{Set#SET_BASE.Add} and @{Set#SET_BASE.Remove} to add or remove objects from the SET in your logic. --- --- 1.2) Define the SET iterator **"yield interval"** and the **"time interval"** --- ----------------------------------------------------------------------------- --- Modify the iterator intervals with the @{Set#SET_BASE.SetInteratorIntervals} method. --- You can set the **"yield interval"**, and the **"time interval"**. (See above). --- --- === --- --- 2) @{Set#SET_GROUP} class, extends @{Set#SET_BASE} --- ================================================== --- Mission designers can use the @{Set#SET_GROUP} class to build sets of groups belonging to certain: --- --- * Coalitions --- * Categories --- * Countries --- * Starting with certain prefix strings. --- --- 2.1) SET_GROUP construction method: --- ----------------------------------- --- Create a new SET_GROUP object with the @{#SET_GROUP.New} method: --- --- * @{#SET_GROUP.New}: Creates a new SET_GROUP object. --- --- 2.2) Add or Remove GROUP(s) from SET_GROUP: --- ------------------------------------------- --- GROUPS can be added and removed using the @{Set#SET_GROUP.AddGroupsByName} and @{Set#SET_GROUP.RemoveGroupsByName} respectively. --- These methods take a single GROUP name or an array of GROUP names to be added or removed from SET_GROUP. --- --- 2.3) SET_GROUP filter criteria: --- ------------------------------- --- You can set filter criteria to define the set of groups within the SET_GROUP. --- Filter criteria are defined by: --- --- * @{#SET_GROUP.FilterCoalitions}: Builds the SET_GROUP with the groups belonging to the coalition(s). --- * @{#SET_GROUP.FilterCategories}: Builds the SET_GROUP with the groups belonging to the category(ies). --- * @{#SET_GROUP.FilterCountries}: Builds the SET_GROUP with the gruops belonging to the country(ies). --- * @{#SET_GROUP.FilterPrefixes}: Builds the SET_GROUP with the groups starting with the same prefix string(s). --- --- Once the filter criteria have been set for the SET_GROUP, you can start filtering using: --- --- * @{#SET_GROUP.FilterStart}: Starts the filtering of the groups within the SET_GROUP and add or remove GROUP objects **dynamically**. --- --- Planned filter criteria within development are (so these are not yet available): --- --- * @{#SET_GROUP.FilterZones}: Builds the SET_GROUP with the groups within a @{Zone#ZONE}. --- --- 2.4) SET_GROUP iterators: --- ------------------------- --- Once the filters have been defined and the SET_GROUP has been built, you can iterate the SET_GROUP with the available iterator methods. --- The iterator methods will walk the SET_GROUP set, and call for each element within the set a function that you provide. --- The following iterator methods are currently available within the SET_GROUP: --- --- * @{#SET_GROUP.ForEachGroup}: Calls a function for each alive group it finds within the SET_GROUP. --- * @{#SET_GROUP.ForEachGroupCompletelyInZone}: Iterate the SET_GROUP and call an iterator function for each **alive** GROUP presence completely in a @{Zone}, providing the GROUP and optional parameters to the called function. --- * @{#SET_GROUP.ForEachGroupPartlyInZone}: Iterate the SET_GROUP and call an iterator function for each **alive** GROUP presence partly in a @{Zone}, providing the GROUP and optional parameters to the called function. --- * @{#SET_GROUP.ForEachGroupNotInZone}: Iterate the SET_GROUP and call an iterator function for each **alive** GROUP presence not in a @{Zone}, providing the GROUP and optional parameters to the called function. --- --- ==== --- --- 3) @{Set#SET_UNIT} class, extends @{Set#SET_BASE} --- =================================================== --- Mission designers can use the @{Set#SET_UNIT} class to build sets of units belonging to certain: --- --- * Coalitions --- * Categories --- * Countries --- * Unit types --- * Starting with certain prefix strings. --- --- 3.1) SET_UNIT construction method: --- ---------------------------------- --- Create a new SET_UNIT object with the @{#SET_UNIT.New} method: --- --- * @{#SET_UNIT.New}: Creates a new SET_UNIT object. --- --- 3.2) Add or Remove UNIT(s) from SET_UNIT: --- ----------------------------------------- --- UNITs can be added and removed using the @{Set#SET_UNIT.AddUnitsByName} and @{Set#SET_UNIT.RemoveUnitsByName} respectively. --- These methods take a single UNIT name or an array of UNIT names to be added or removed from SET_UNIT. --- --- 3.3) SET_UNIT filter criteria: --- ------------------------------ --- You can set filter criteria to define the set of units within the SET_UNIT. --- Filter criteria are defined by: --- --- * @{#SET_UNIT.FilterCoalitions}: Builds the SET_UNIT with the units belonging to the coalition(s). --- * @{#SET_UNIT.FilterCategories}: Builds the SET_UNIT with the units belonging to the category(ies). --- * @{#SET_UNIT.FilterTypes}: Builds the SET_UNIT with the units belonging to the unit type(s). --- * @{#SET_UNIT.FilterCountries}: Builds the SET_UNIT with the units belonging to the country(ies). --- * @{#SET_UNIT.FilterPrefixes}: Builds the SET_UNIT with the units starting with the same prefix string(s). --- --- Once the filter criteria have been set for the SET_UNIT, you can start filtering using: --- --- * @{#SET_UNIT.FilterStart}: Starts the filtering of the units within the SET_UNIT. --- --- Planned filter criteria within development are (so these are not yet available): --- --- * @{#SET_UNIT.FilterZones}: Builds the SET_UNIT with the units within a @{Zone#ZONE}. --- --- 3.4) SET_UNIT iterators: --- ------------------------ --- Once the filters have been defined and the SET_UNIT has been built, you can iterate the SET_UNIT with the available iterator methods. --- The iterator methods will walk the SET_UNIT set, and call for each element within the set a function that you provide. --- The following iterator methods are currently available within the SET_UNIT: --- --- * @{#SET_UNIT.ForEachUnit}: Calls a function for each alive unit it finds within the SET_UNIT. --- * @{#SET_GROUP.ForEachGroupCompletelyInZone}: Iterate the SET_GROUP and call an iterator function for each **alive** GROUP presence completely in a @{Zone}, providing the GROUP and optional parameters to the called function. --- * @{#SET_GROUP.ForEachGroupNotInZone}: Iterate the SET_GROUP and call an iterator function for each **alive** GROUP presence not in a @{Zone}, providing the GROUP and optional parameters to the called function. --- --- Planned iterators methods in development are (so these are not yet available): --- --- * @{#SET_UNIT.ForEachUnitInUnit}: Calls a function for each unit contained within the SET_UNIT. --- * @{#SET_UNIT.ForEachUnitCompletelyInZone}: Iterate and call an iterator function for each **alive** UNIT presence completely in a @{Zone}, providing the UNIT and optional parameters to the called function. --- * @{#SET_UNIT.ForEachUnitNotInZone}: Iterate and call an iterator function for each **alive** UNIT presence not in a @{Zone}, providing the UNIT and optional parameters to the called function. --- --- === --- --- 4) @{Set#SET_CLIENT} class, extends @{Set#SET_BASE} --- =================================================== --- Mission designers can use the @{Set#SET_CLIENT} class to build sets of units belonging to certain: --- --- * Coalitions --- * Categories --- * Countries --- * Client types --- * Starting with certain prefix strings. --- --- 4.1) SET_CLIENT construction method: --- ---------------------------------- --- Create a new SET_CLIENT object with the @{#SET_CLIENT.New} method: --- --- * @{#SET_CLIENT.New}: Creates a new SET_CLIENT object. --- --- 4.2) Add or Remove CLIENT(s) from SET_CLIENT: --- ----------------------------------------- --- CLIENTs can be added and removed using the @{Set#SET_CLIENT.AddClientsByName} and @{Set#SET_CLIENT.RemoveClientsByName} respectively. --- These methods take a single CLIENT name or an array of CLIENT names to be added or removed from SET_CLIENT. --- --- 4.3) SET_CLIENT filter criteria: --- ------------------------------ --- You can set filter criteria to define the set of clients within the SET_CLIENT. --- Filter criteria are defined by: --- --- * @{#SET_CLIENT.FilterCoalitions}: Builds the SET_CLIENT with the clients belonging to the coalition(s). --- * @{#SET_CLIENT.FilterCategories}: Builds the SET_CLIENT with the clients belonging to the category(ies). --- * @{#SET_CLIENT.FilterTypes}: Builds the SET_CLIENT with the clients belonging to the client type(s). --- * @{#SET_CLIENT.FilterCountries}: Builds the SET_CLIENT with the clients belonging to the country(ies). --- * @{#SET_CLIENT.FilterPrefixes}: Builds the SET_CLIENT with the clients starting with the same prefix string(s). --- --- Once the filter criteria have been set for the SET_CLIENT, you can start filtering using: --- --- * @{#SET_CLIENT.FilterStart}: Starts the filtering of the clients within the SET_CLIENT. --- --- Planned filter criteria within development are (so these are not yet available): --- --- * @{#SET_CLIENT.FilterZones}: Builds the SET_CLIENT with the clients within a @{Zone#ZONE}. --- --- 4.4) SET_CLIENT iterators: --- ------------------------ --- Once the filters have been defined and the SET_CLIENT has been built, you can iterate the SET_CLIENT with the available iterator methods. --- The iterator methods will walk the SET_CLIENT set, and call for each element within the set a function that you provide. --- The following iterator methods are currently available within the SET_CLIENT: --- --- * @{#SET_CLIENT.ForEachClient}: Calls a function for each alive client it finds within the SET_CLIENT. --- --- ==== --- --- 5) @{Set#SET_AIRBASE} class, extends @{Set#SET_BASE} --- ==================================================== --- Mission designers can use the @{Set#SET_AIRBASE} class to build sets of airbases optionally belonging to certain: --- --- * Coalitions --- --- 5.1) SET_AIRBASE construction --- ----------------------------- --- Create a new SET_AIRBASE object with the @{#SET_AIRBASE.New} method: --- --- * @{#SET_AIRBASE.New}: Creates a new SET_AIRBASE object. --- --- 5.2) Add or Remove AIRBASEs from SET_AIRBASE --- -------------------------------------------- --- AIRBASEs can be added and removed using the @{Set#SET_AIRBASE.AddAirbasesByName} and @{Set#SET_AIRBASE.RemoveAirbasesByName} respectively. --- These methods take a single AIRBASE name or an array of AIRBASE names to be added or removed from SET_AIRBASE. --- --- 5.3) SET_AIRBASE filter criteria --- -------------------------------- --- You can set filter criteria to define the set of clients within the SET_AIRBASE. --- Filter criteria are defined by: --- --- * @{#SET_AIRBASE.FilterCoalitions}: Builds the SET_AIRBASE with the airbases belonging to the coalition(s). --- --- Once the filter criteria have been set for the SET_AIRBASE, you can start filtering using: --- --- * @{#SET_AIRBASE.FilterStart}: Starts the filtering of the airbases within the SET_AIRBASE. --- --- 5.4) SET_AIRBASE iterators: --- --------------------------- --- Once the filters have been defined and the SET_AIRBASE has been built, you can iterate the SET_AIRBASE with the available iterator methods. --- The iterator methods will walk the SET_AIRBASE set, and call for each airbase within the set a function that you provide. --- The following iterator methods are currently available within the SET_AIRBASE: --- --- * @{#SET_AIRBASE.ForEachAirbase}: Calls a function for each airbase it finds within the SET_AIRBASE. --- --- ==== --- --- @module Set --- @author FlightControl - - ---- SET_BASE class --- @type SET_BASE --- @extends Base#BASE -SET_BASE = { - ClassName = "SET_BASE", - Set = {}, -} - ---- Creates a new SET_BASE object, building a set of units belonging to a coalitions, categories, countries, types or with defined prefix names. --- @param #SET_BASE self --- @return #SET_BASE --- @usage --- -- Define a new SET_BASE Object. This DBObject will contain a reference to all Group and Unit Templates defined within the ME and the DCSRTE. --- DBObject = SET_BASE:New() -function SET_BASE:New( Database ) - - -- Inherits from BASE - local self = BASE:Inherit( self, BASE:New() ) - - self.Database = Database - - self.YieldInterval = 10 - self.TimeInterval = 0.001 - - return self -end - ---- Finds an @{Base#BASE} object based on the object Name. --- @param #SET_BASE self --- @param #string ObjectName --- @return Base#BASE The Object found. -function SET_BASE:_Find( ObjectName ) - - local ObjectFound = self.Set[ObjectName] - return ObjectFound -end - - ---- Gets the Set. --- @param #SET_BASE self --- @return #SET_BASE self -function SET_BASE:GetSet() - self:F2() - - return self.Set -end - ---- Adds a @{Base#BASE} object in the @{Set#SET_BASE}, using the Object Name as the index. --- @param #SET_BASE self --- @param #string ObjectName --- @param Base#BASE Object --- @return Base#BASE The added BASE Object. -function SET_BASE:Add( ObjectName, Object ) - - self.Set[ObjectName] = Object -end - ---- Removes a @{Base#BASE} object from the @{Set#SET_BASE} and derived classes, based on the Object Name. --- @param #SET_BASE self --- @param #string ObjectName -function SET_BASE:Remove( ObjectName ) - - self.Set[ObjectName] = nil -end - ---- Define the SET iterator **"yield interval"** and the **"time interval"**. --- @param #SET_BASE self --- @param #number YieldInterval Sets the frequency when the iterator loop will yield after the number of objects processed. The default frequency is 10 objects processed. --- @param #number TimeInterval Sets the time in seconds when the main logic will resume the iterator loop. The default time is 0.001 seconds. --- @return #SET_BASE self -function SET_BASE:SetIteratorIntervals( YieldInterval, TimeInterval ) - - self.YieldInterval = YieldInterval - self.TimeInterval = TimeInterval - - return self -end - - - ---- Starts the filtering for the defined collection. --- @param #SET_BASE self --- @return #SET_BASE self -function SET_BASE:_FilterStart() - - for ObjectName, Object in pairs( self.Database ) do - - if self:IsIncludeObject( Object ) then - self:E( { "Adding Object:", ObjectName } ) - self:Add( ObjectName, Object ) - end - end - - _EVENTDISPATCHER:OnBirth( self._EventOnBirth, self ) - _EVENTDISPATCHER:OnDead( self._EventOnDeadOrCrash, self ) - _EVENTDISPATCHER:OnCrash( self._EventOnDeadOrCrash, self ) - - -- Follow alive players and clients --- _EVENTDISPATCHER:OnPlayerEnterUnit( self._EventOnPlayerEnterUnit, self ) --- _EVENTDISPATCHER:OnPlayerLeaveUnit( self._EventOnPlayerLeaveUnit, self ) - - - return self -end - ---- Iterate the SET_BASE while identifying the nearest object from a @{Point#POINT_VEC2}. --- @param #SET_BASE self --- @param Point#POINT_VEC2 PointVec2 A @{Point#POINT_VEC2} object from where to evaluate the closest object in the set. --- @return Base#BASE The closest object. -function SET_BASE:FindNearestObjectFromPointVec2( PointVec2 ) - self:F2( PointVec2 ) - - local NearestObject = nil - local ClosestDistance = nil - - for ObjectID, ObjectData in pairs( self.Set ) do - if NearestObject == nil then - NearestObject = ObjectData - ClosestDistance = PointVec2:DistanceFromVec2( ObjectData:GetPointVec2() ) - else - local Distance = PointVec2:DistanceFromVec2( ObjectData:GetPointVec2() ) - if Distance < ClosestDistance then - NearestObject = ObjectData - ClosestDistance = Distance - end - end - end - - return NearestObject -end - - - ------ Private method that registers all alive players in the mission. ----- @param #SET_BASE self ----- @return #SET_BASE self ---function SET_BASE:_RegisterPlayers() --- --- local CoalitionsData = { AlivePlayersRed = coalition.getPlayers( coalition.side.RED ), AlivePlayersBlue = coalition.getPlayers( coalition.side.BLUE ) } --- for CoalitionId, CoalitionData in pairs( CoalitionsData ) do --- for UnitId, UnitData in pairs( CoalitionData ) do --- self:T3( { "UnitData:", UnitData } ) --- if UnitData and UnitData:isExist() then --- local UnitName = UnitData:getName() --- if not self.PlayersAlive[UnitName] then --- self:E( { "Add player for unit:", UnitName, UnitData:getPlayerName() } ) --- self.PlayersAlive[UnitName] = UnitData:getPlayerName() --- end --- end --- end --- end --- --- return self ---end - ---- Events - ---- Handles the OnBirth event for the Set. --- @param #SET_BASE self --- @param Event#EVENTDATA Event -function SET_BASE:_EventOnBirth( Event ) - self:F3( { Event } ) - - if Event.IniDCSUnit then - local ObjectName, Object = self:AddInDatabase( Event ) - self:T3( ObjectName, Object ) - if self:IsIncludeObject( Object ) then - self:Add( ObjectName, Object ) - --self:_EventOnPlayerEnterUnit( Event ) - end - end -end - ---- Handles the OnDead or OnCrash event for alive units set. --- @param #SET_BASE self --- @param Event#EVENTDATA Event -function SET_BASE:_EventOnDeadOrCrash( Event ) - self:F3( { Event } ) - - if Event.IniDCSUnit then - local ObjectName, Object = self:FindInDatabase( Event ) - if ObjectName and Object then - self:Remove( ObjectName ) - end - end -end - ------ Handles the OnPlayerEnterUnit event to fill the active players table (with the unit filter applied). ----- @param #SET_BASE self ----- @param Event#EVENTDATA Event ---function SET_BASE:_EventOnPlayerEnterUnit( Event ) --- self:F3( { Event } ) --- --- if Event.IniDCSUnit then --- if self:IsIncludeObject( Event.IniDCSUnit ) then --- if not self.PlayersAlive[Event.IniDCSUnitName] then --- self:E( { "Add player for unit:", Event.IniDCSUnitName, Event.IniDCSUnit:getPlayerName() } ) --- self.PlayersAlive[Event.IniDCSUnitName] = Event.IniDCSUnit:getPlayerName() --- self.ClientsAlive[Event.IniDCSUnitName] = _DATABASE.Clients[ Event.IniDCSUnitName ] --- end --- end --- end ---end --- ------ Handles the OnPlayerLeaveUnit event to clean the active players table. ----- @param #SET_BASE self ----- @param Event#EVENTDATA Event ---function SET_BASE:_EventOnPlayerLeaveUnit( Event ) --- self:F3( { Event } ) --- --- if Event.IniDCSUnit then --- if self:IsIncludeObject( Event.IniDCSUnit ) then --- if self.PlayersAlive[Event.IniDCSUnitName] then --- self:E( { "Cleaning player for unit:", Event.IniDCSUnitName, Event.IniDCSUnit:getPlayerName() } ) --- self.PlayersAlive[Event.IniDCSUnitName] = nil --- self.ClientsAlive[Event.IniDCSUnitName] = nil --- end --- end --- end ---end - --- Iterators - ---- Iterate the SET_BASE and derived classes and call an iterator function for the given SET_BASE, providing the Object for each element within the set and optional parameters. --- @param #SET_BASE self --- @param #function IteratorFunction The function that will be called. --- @return #SET_BASE self -function SET_BASE:ForEach( IteratorFunction, arg, Set, Function, FunctionArguments ) - self:F3( arg ) - - local function CoRoutine() - local Count = 0 - for ObjectID, Object in pairs( Set ) do - self:T3( Object ) - if Function then - if Function( unpack( FunctionArguments ), Object ) == true then - IteratorFunction( Object, unpack( arg ) ) - end - else - IteratorFunction( Object, unpack( arg ) ) - end - Count = Count + 1 --- if Count % self.YieldInterval == 0 then --- coroutine.yield( false ) --- end - end - return true - end - --- local co = coroutine.create( CoRoutine ) - local co = CoRoutine - - local function Schedule() - --- local status, res = coroutine.resume( co ) - local status, res = co() - self:T3( { status, res } ) - - if status == false then - error( res ) - end - if res == false then - return true -- resume next time the loop - end - - return false - end - - local Scheduler = SCHEDULER:New( self, Schedule, {}, self.TimeInterval, self.TimeInterval, 0 ) - - return self -end - - ------ Iterate the SET_BASE and call an interator function for each **alive** unit, providing the Unit and optional parameters. ----- @param #SET_BASE self ----- @param #function IteratorFunction The function that will be called when there is an alive unit in the SET_BASE. The function needs to accept a UNIT parameter. ----- @return #SET_BASE self ---function SET_BASE:ForEachDCSUnitAlive( IteratorFunction, ... ) --- self:F3( arg ) --- --- self:ForEach( IteratorFunction, arg, self.DCSUnitsAlive ) --- --- return self ---end --- ------ Iterate the SET_BASE and call an interator function for each **alive** player, providing the Unit of the player and optional parameters. ----- @param #SET_BASE self ----- @param #function IteratorFunction The function that will be called when there is an alive player in the SET_BASE. The function needs to accept a UNIT parameter. ----- @return #SET_BASE self ---function SET_BASE:ForEachPlayer( IteratorFunction, ... ) --- self:F3( arg ) --- --- self:ForEach( IteratorFunction, arg, self.PlayersAlive ) --- --- return self ---end --- --- ------ Iterate the SET_BASE and call an interator function for each client, providing the Client to the function and optional parameters. ----- @param #SET_BASE self ----- @param #function IteratorFunction The function that will be called when there is an alive player in the SET_BASE. The function needs to accept a CLIENT parameter. ----- @return #SET_BASE self ---function SET_BASE:ForEachClient( IteratorFunction, ... ) --- self:F3( arg ) --- --- self:ForEach( IteratorFunction, arg, self.Clients ) --- --- return self ---end - - ---- Decides whether to include the Object --- @param #SET_BASE self --- @param #table Object --- @return #SET_BASE self -function SET_BASE:IsIncludeObject( Object ) - self:F3( Object ) - - return true -end - ---- Flushes the current SET_BASE contents in the log ... (for debugging reasons). --- @param #SET_BASE self --- @return #string A string with the names of the objects. -function SET_BASE:Flush() - self:F3() - - local ObjectNames = "" - for ObjectName, Object in pairs( self.Set ) do - ObjectNames = ObjectNames .. ObjectName .. ", " - end - self:T( { "Objects in Set:", ObjectNames } ) - - return ObjectNames -end - --- SET_GROUP - ---- SET_GROUP class --- @type SET_GROUP --- @extends Set#SET_BASE -SET_GROUP = { - ClassName = "SET_GROUP", - Filter = { - Coalitions = nil, - Categories = nil, - Countries = nil, - GroupPrefixes = nil, - }, - FilterMeta = { - Coalitions = { - red = coalition.side.RED, - blue = coalition.side.BLUE, - neutral = coalition.side.NEUTRAL, - }, - Categories = { - plane = Group.Category.AIRPLANE, - helicopter = Group.Category.HELICOPTER, - ground = Group.Category.GROUND_UNIT, - ship = Group.Category.SHIP, - structure = Group.Category.STRUCTURE, - }, - }, -} - - ---- Creates a new SET_GROUP object, building a set of groups belonging to a coalitions, categories, countries, types or with defined prefix names. --- @param #SET_GROUP self --- @return #SET_GROUP --- @usage --- -- Define a new SET_GROUP Object. This DBObject will contain a reference to all alive GROUPS. --- DBObject = SET_GROUP:New() -function SET_GROUP:New() - - -- Inherits from BASE - local self = BASE:Inherit( self, SET_BASE:New( _DATABASE.GROUPS ) ) - - return self -end - ---- Add GROUP(s) to SET_GROUP. --- @param Set#SET_GROUP self --- @param #string AddGroupNames A single name or an array of GROUP names. --- @return self -function SET_GROUP:AddGroupsByName( AddGroupNames ) - - local AddGroupNamesArray = ( type( AddGroupNames ) == "table" ) and AddGroupNames or { AddGroupNames } - - for AddGroupID, AddGroupName in pairs( AddGroupNamesArray ) do - self:Add( AddGroupName, GROUP:FindByName( AddGroupName ) ) - end - - return self -end - ---- Remove GROUP(s) from SET_GROUP. --- @param Set#SET_GROUP self --- @param Group#GROUP RemoveGroupNames A single name or an array of GROUP names. --- @return self -function SET_GROUP:RemoveGroupsByName( RemoveGroupNames ) - - local RemoveGroupNamesArray = ( type( RemoveGroupNames ) == "table" ) and RemoveGroupNames or { RemoveGroupNames } - - for RemoveGroupID, RemoveGroupName in pairs( RemoveGroupNamesArray ) do - self:Remove( RemoveGroupName.GroupName ) - end - - return self -end - - - - ---- Finds a Group based on the Group Name. --- @param #SET_GROUP self --- @param #string GroupName --- @return Group#GROUP The found Group. -function SET_GROUP:FindGroup( GroupName ) - - local GroupFound = self.Set[GroupName] - return GroupFound -end - - - ---- Builds a set of groups of coalitions. --- Possible current coalitions are red, blue and neutral. --- @param #SET_GROUP self --- @param #string Coalitions Can take the following values: "red", "blue", "neutral". --- @return #SET_GROUP self -function SET_GROUP:FilterCoalitions( Coalitions ) - if not self.Filter.Coalitions then - self.Filter.Coalitions = {} - end - if type( Coalitions ) ~= "table" then - Coalitions = { Coalitions } - end - for CoalitionID, Coalition in pairs( Coalitions ) do - self.Filter.Coalitions[Coalition] = Coalition - end - return self -end - - ---- Builds a set of groups out of categories. --- Possible current categories are plane, helicopter, ground, ship. --- @param #SET_GROUP self --- @param #string Categories Can take the following values: "plane", "helicopter", "ground", "ship". --- @return #SET_GROUP self -function SET_GROUP:FilterCategories( Categories ) - if not self.Filter.Categories then - self.Filter.Categories = {} - end - if type( Categories ) ~= "table" then - Categories = { Categories } - end - for CategoryID, Category in pairs( Categories ) do - self.Filter.Categories[Category] = Category - end - return self -end - ---- Builds a set of groups of defined countries. --- Possible current countries are those known within DCS world. --- @param #SET_GROUP self --- @param #string Countries Can take those country strings known within DCS world. --- @return #SET_GROUP self -function SET_GROUP:FilterCountries( Countries ) - if not self.Filter.Countries then - self.Filter.Countries = {} - end - if type( Countries ) ~= "table" then - Countries = { Countries } - end - for CountryID, Country in pairs( Countries ) do - self.Filter.Countries[Country] = Country - end - return self -end - - ---- Builds a set of groups of defined GROUP prefixes. --- All the groups starting with the given prefixes will be included within the set. --- @param #SET_GROUP self --- @param #string Prefixes The prefix of which the group name starts with. --- @return #SET_GROUP self -function SET_GROUP:FilterPrefixes( Prefixes ) - if not self.Filter.GroupPrefixes then - self.Filter.GroupPrefixes = {} - end - if type( Prefixes ) ~= "table" then - Prefixes = { Prefixes } - end - for PrefixID, Prefix in pairs( Prefixes ) do - self.Filter.GroupPrefixes[Prefix] = Prefix - end - return self -end - - ---- Starts the filtering. --- @param #SET_GROUP self --- @return #SET_GROUP self -function SET_GROUP:FilterStart() - - if _DATABASE then - self:_FilterStart() - end - - return self -end - ---- Handles the Database to check on an event (birth) that the Object was added in the Database. --- This is required, because sometimes the _DATABASE birth event gets called later than the SET_BASE birth event! --- @param #SET_GROUP self --- @param Event#EVENTDATA Event --- @return #string The name of the GROUP --- @return #table The GROUP -function SET_GROUP:AddInDatabase( Event ) - self:F3( { Event } ) - - if not self.Database[Event.IniDCSGroupName] then - self.Database[Event.IniDCSGroupName] = GROUP:Register( Event.IniDCSGroupName ) - self:T3( self.Database[Event.IniDCSGroupName] ) - end - - return Event.IniDCSGroupName, self.Database[Event.IniDCSGroupName] -end - ---- Handles the Database to check on any event that Object exists in the Database. --- This is required, because sometimes the _DATABASE event gets called later than the SET_BASE event or vise versa! --- @param #SET_GROUP self --- @param Event#EVENTDATA Event --- @return #string The name of the GROUP --- @return #table The GROUP -function SET_GROUP:FindInDatabase( Event ) - self:F3( { Event } ) - - return Event.IniDCSGroupName, self.Database[Event.IniDCSGroupName] -end - ---- Iterate the SET_GROUP and call an iterator function for each **alive** GROUP, providing the GROUP and optional parameters. --- @param #SET_GROUP self --- @param #function IteratorFunction The function that will be called when there is an alive GROUP in the SET_GROUP. The function needs to accept a GROUP parameter. --- @return #SET_GROUP self -function SET_GROUP:ForEachGroup( IteratorFunction, ... ) - self:F2( arg ) - - self:ForEach( IteratorFunction, arg, self.Set ) - - return self -end - ---- Iterate the SET_GROUP and call an iterator function for each **alive** GROUP presence completely in a @{Zone}, providing the GROUP and optional parameters to the called function. --- @param #SET_GROUP self --- @param Zone#ZONE ZoneObject The Zone to be tested for. --- @param #function IteratorFunction The function that will be called when there is an alive GROUP in the SET_GROUP. The function needs to accept a GROUP parameter. --- @return #SET_GROUP self -function SET_GROUP:ForEachGroupCompletelyInZone( ZoneObject, IteratorFunction, ... ) - self:F2( arg ) - - self:ForEach( IteratorFunction, arg, self.Set, - --- @param Zone#ZONE_BASE ZoneObject - -- @param Group#GROUP GroupObject - function( ZoneObject, GroupObject ) - if GroupObject:IsCompletelyInZone( ZoneObject ) then - return true - else - return false - end - end, { ZoneObject } ) - - return self -end - ---- Iterate the SET_GROUP and call an iterator function for each **alive** GROUP presence partly in a @{Zone}, providing the GROUP and optional parameters to the called function. --- @param #SET_GROUP self --- @param Zone#ZONE ZoneObject The Zone to be tested for. --- @param #function IteratorFunction The function that will be called when there is an alive GROUP in the SET_GROUP. The function needs to accept a GROUP parameter. --- @return #SET_GROUP self -function SET_GROUP:ForEachGroupPartlyInZone( ZoneObject, IteratorFunction, ... ) - self:F2( arg ) - - self:ForEach( IteratorFunction, arg, self.Set, - --- @param Zone#ZONE_BASE ZoneObject - -- @param Group#GROUP GroupObject - function( ZoneObject, GroupObject ) - if GroupObject:IsPartlyInZone( ZoneObject ) then - return true - else - return false - end - end, { ZoneObject } ) - - return self -end - ---- Iterate the SET_GROUP and call an iterator function for each **alive** GROUP presence not in a @{Zone}, providing the GROUP and optional parameters to the called function. --- @param #SET_GROUP self --- @param Zone#ZONE ZoneObject The Zone to be tested for. --- @param #function IteratorFunction The function that will be called when there is an alive GROUP in the SET_GROUP. The function needs to accept a GROUP parameter. --- @return #SET_GROUP self -function SET_GROUP:ForEachGroupNotInZone( ZoneObject, IteratorFunction, ... ) - self:F2( arg ) - - self:ForEach( IteratorFunction, arg, self.Set, - --- @param Zone#ZONE_BASE ZoneObject - -- @param Group#GROUP GroupObject - function( ZoneObject, GroupObject ) - if GroupObject:IsNotInZone( ZoneObject ) then - return true - else - return false - end - end, { ZoneObject } ) - - return self -end - - ------ Iterate the SET_GROUP and call an interator function for each **alive** player, providing the Group of the player and optional parameters. ----- @param #SET_GROUP self ----- @param #function IteratorFunction The function that will be called when there is an alive player in the SET_GROUP. The function needs to accept a GROUP parameter. ----- @return #SET_GROUP self ---function SET_GROUP:ForEachPlayer( IteratorFunction, ... ) --- self:F2( arg ) --- --- self:ForEach( IteratorFunction, arg, self.PlayersAlive ) --- --- return self ---end --- --- ------ Iterate the SET_GROUP and call an interator function for each client, providing the Client to the function and optional parameters. ----- @param #SET_GROUP self ----- @param #function IteratorFunction The function that will be called when there is an alive player in the SET_GROUP. The function needs to accept a CLIENT parameter. ----- @return #SET_GROUP self ---function SET_GROUP:ForEachClient( IteratorFunction, ... ) --- self:F2( arg ) --- --- self:ForEach( IteratorFunction, arg, self.Clients ) --- --- return self ---end - - ---- --- @param #SET_GROUP self --- @param Group#GROUP MooseGroup --- @return #SET_GROUP self -function SET_GROUP:IsIncludeObject( MooseGroup ) - self:F2( MooseGroup ) - local MooseGroupInclude = true - - if self.Filter.Coalitions then - local MooseGroupCoalition = false - for CoalitionID, CoalitionName in pairs( self.Filter.Coalitions ) do - self:T3( { "Coalition:", MooseGroup:GetCoalition(), self.FilterMeta.Coalitions[CoalitionName], CoalitionName } ) - if self.FilterMeta.Coalitions[CoalitionName] and self.FilterMeta.Coalitions[CoalitionName] == MooseGroup:GetCoalition() then - MooseGroupCoalition = true - end - end - MooseGroupInclude = MooseGroupInclude and MooseGroupCoalition - end - - if self.Filter.Categories then - local MooseGroupCategory = false - for CategoryID, CategoryName in pairs( self.Filter.Categories ) do - self:T3( { "Category:", MooseGroup:GetCategory(), self.FilterMeta.Categories[CategoryName], CategoryName } ) - if self.FilterMeta.Categories[CategoryName] and self.FilterMeta.Categories[CategoryName] == MooseGroup:GetCategory() then - MooseGroupCategory = true - end - end - MooseGroupInclude = MooseGroupInclude and MooseGroupCategory - end - - if self.Filter.Countries then - local MooseGroupCountry = false - for CountryID, CountryName in pairs( self.Filter.Countries ) do - self:T3( { "Country:", MooseGroup:GetCountry(), CountryName } ) - if country.id[CountryName] == MooseGroup:GetCountry() then - MooseGroupCountry = true - end - end - MooseGroupInclude = MooseGroupInclude and MooseGroupCountry - end - - if self.Filter.GroupPrefixes then - local MooseGroupPrefix = false - for GroupPrefixId, GroupPrefix in pairs( self.Filter.GroupPrefixes ) do - self:T3( { "Prefix:", string.find( MooseGroup:GetName(), GroupPrefix, 1 ), GroupPrefix } ) - if string.find( MooseGroup:GetName(), GroupPrefix, 1 ) then - MooseGroupPrefix = true - end - end - MooseGroupInclude = MooseGroupInclude and MooseGroupPrefix - end - - self:T2( MooseGroupInclude ) - return MooseGroupInclude -end - ---- SET_UNIT class --- @type SET_UNIT --- @extends Set#SET_BASE -SET_UNIT = { - ClassName = "SET_UNIT", - Units = {}, - Filter = { - Coalitions = nil, - Categories = nil, - Types = nil, - Countries = nil, - UnitPrefixes = nil, - }, - FilterMeta = { - Coalitions = { - red = coalition.side.RED, - blue = coalition.side.BLUE, - neutral = coalition.side.NEUTRAL, - }, - Categories = { - plane = Unit.Category.AIRPLANE, - helicopter = Unit.Category.HELICOPTER, - ground = Unit.Category.GROUND_UNIT, - ship = Unit.Category.SHIP, - structure = Unit.Category.STRUCTURE, - }, - }, -} - - ---- Creates a new SET_UNIT object, building a set of units belonging to a coalitions, categories, countries, types or with defined prefix names. --- @param #SET_UNIT self --- @return #SET_UNIT --- @usage --- -- Define a new SET_UNIT Object. This DBObject will contain a reference to all alive Units. --- DBObject = SET_UNIT:New() -function SET_UNIT:New() - - -- Inherits from BASE - local self = BASE:Inherit( self, SET_BASE:New( _DATABASE.UNITS ) ) - - _EVENTDISPATCHER:OnBirth( self._EventOnBirth, self ) - _EVENTDISPATCHER:OnDead( self._EventOnDeadOrCrash, self ) - _EVENTDISPATCHER:OnCrash( self._EventOnDeadOrCrash, self ) - - return self -end - ---- Add UNIT(s) to SET_UNIT. --- @param #SET_UNIT self --- @param #string AddUnit A single UNIT. --- @return #SET_UNIT self -function SET_UNIT:AddUnit( AddUnit ) - self:F2( AddUnit:GetName() ) - - self:Add( AddUnit:GetName(), AddUnit ) - - return self -end - - ---- Add UNIT(s) to SET_UNIT. --- @param #SET_UNIT self --- @param #string AddUnitNames A single name or an array of UNIT names. --- @return #SET_UNIT self -function SET_UNIT:AddUnitsByName( AddUnitNames ) - - local AddUnitNamesArray = ( type( AddUnitNames ) == "table" ) and AddUnitNames or { AddUnitNames } - - self:T( AddUnitNamesArray ) - for AddUnitID, AddUnitName in pairs( AddUnitNamesArray ) do - self:Add( AddUnitName, UNIT:FindByName( AddUnitName ) ) - end - - return self -end - ---- Remove UNIT(s) from SET_UNIT. --- @param Set#SET_UNIT self --- @param Unit#UNIT RemoveUnitNames A single name or an array of UNIT names. --- @return self -function SET_UNIT:RemoveUnitsByName( RemoveUnitNames ) - - local RemoveUnitNamesArray = ( type( RemoveUnitNames ) == "table" ) and RemoveUnitNames or { RemoveUnitNames } - - for RemoveUnitID, RemoveUnitName in pairs( RemoveUnitNamesArray ) do - self:Remove( RemoveUnitName.UnitName ) - end - - return self -end - - ---- Finds a Unit based on the Unit Name. --- @param #SET_UNIT self --- @param #string UnitName --- @return Unit#UNIT The found Unit. -function SET_UNIT:FindUnit( UnitName ) - - local UnitFound = self.Set[UnitName] - return UnitFound -end - - - ---- Builds a set of units of coalitions. --- Possible current coalitions are red, blue and neutral. --- @param #SET_UNIT self --- @param #string Coalitions Can take the following values: "red", "blue", "neutral". --- @return #SET_UNIT self -function SET_UNIT:FilterCoalitions( Coalitions ) - if not self.Filter.Coalitions then - self.Filter.Coalitions = {} - end - if type( Coalitions ) ~= "table" then - Coalitions = { Coalitions } - end - for CoalitionID, Coalition in pairs( Coalitions ) do - self.Filter.Coalitions[Coalition] = Coalition - end - return self -end - - ---- Builds a set of units out of categories. --- Possible current categories are plane, helicopter, ground, ship. --- @param #SET_UNIT self --- @param #string Categories Can take the following values: "plane", "helicopter", "ground", "ship". --- @return #SET_UNIT self -function SET_UNIT:FilterCategories( Categories ) - if not self.Filter.Categories then - self.Filter.Categories = {} - end - if type( Categories ) ~= "table" then - Categories = { Categories } - end - for CategoryID, Category in pairs( Categories ) do - self.Filter.Categories[Category] = Category - end - return self -end - - ---- Builds a set of units of defined unit types. --- Possible current types are those types known within DCS world. --- @param #SET_UNIT self --- @param #string Types Can take those type strings known within DCS world. --- @return #SET_UNIT self -function SET_UNIT:FilterTypes( Types ) - if not self.Filter.Types then - self.Filter.Types = {} - end - if type( Types ) ~= "table" then - Types = { Types } - end - for TypeID, Type in pairs( Types ) do - self.Filter.Types[Type] = Type - end - return self -end - - ---- Builds a set of units of defined countries. --- Possible current countries are those known within DCS world. --- @param #SET_UNIT self --- @param #string Countries Can take those country strings known within DCS world. --- @return #SET_UNIT self -function SET_UNIT:FilterCountries( Countries ) - if not self.Filter.Countries then - self.Filter.Countries = {} - end - if type( Countries ) ~= "table" then - Countries = { Countries } - end - for CountryID, Country in pairs( Countries ) do - self.Filter.Countries[Country] = Country - end - return self -end - - ---- Builds a set of units of defined unit prefixes. --- All the units starting with the given prefixes will be included within the set. --- @param #SET_UNIT self --- @param #string Prefixes The prefix of which the unit name starts with. --- @return #SET_UNIT self -function SET_UNIT:FilterPrefixes( Prefixes ) - if not self.Filter.UnitPrefixes then - self.Filter.UnitPrefixes = {} - end - if type( Prefixes ) ~= "table" then - Prefixes = { Prefixes } - end - for PrefixID, Prefix in pairs( Prefixes ) do - self.Filter.UnitPrefixes[Prefix] = Prefix - end - return self -end - - - - ---- Starts the filtering. --- @param #SET_UNIT self --- @return #SET_UNIT self -function SET_UNIT:FilterStart() - - if _DATABASE then - self:_FilterStart() - end - - return self -end - ---- Handles the Database to check on an event (birth) that the Object was added in the Database. --- This is required, because sometimes the _DATABASE birth event gets called later than the SET_BASE birth event! --- @param #SET_UNIT self --- @param Event#EVENTDATA Event --- @return #string The name of the UNIT --- @return #table The UNIT -function SET_UNIT:AddInDatabase( Event ) - self:F3( { Event } ) - - if not self.Database[Event.IniDCSUnitName] then - self.Database[Event.IniDCSUnitName] = UNIT:Register( Event.IniDCSUnitName ) - self:T3( self.Database[Event.IniDCSUnitName] ) - end - - return Event.IniDCSUnitName, self.Database[Event.IniDCSUnitName] -end - ---- Handles the Database to check on any event that Object exists in the Database. --- This is required, because sometimes the _DATABASE event gets called later than the SET_BASE event or vise versa! --- @param #SET_UNIT self --- @param Event#EVENTDATA Event --- @return #string The name of the UNIT --- @return #table The UNIT -function SET_UNIT:FindInDatabase( Event ) - self:F3( { Event } ) - - return Event.IniDCSUnitName, self.Database[Event.IniDCSUnitName] -end - ---- Iterate the SET_UNIT and call an interator function for each **alive** UNIT, providing the UNIT and optional parameters. --- @param #SET_UNIT self --- @param #function IteratorFunction The function that will be called when there is an alive UNIT in the SET_UNIT. The function needs to accept a UNIT parameter. --- @return #SET_UNIT self -function SET_UNIT:ForEachUnit( IteratorFunction, ... ) - self:F2( arg ) - - self:ForEach( IteratorFunction, arg, self.Set ) - - return self -end - ---- Iterate the SET_UNIT and call an iterator function for each **alive** UNIT presence completely in a @{Zone}, providing the UNIT and optional parameters to the called function. --- @param #SET_UNIT self --- @param Zone#ZONE ZoneObject The Zone to be tested for. --- @param #function IteratorFunction The function that will be called when there is an alive UNIT in the SET_UNIT. The function needs to accept a UNIT parameter. --- @return #SET_UNIT self -function SET_UNIT:ForEachUnitCompletelyInZone( ZoneObject, IteratorFunction, ... ) - self:F2( arg ) - - self:ForEach( IteratorFunction, arg, self.Set, - --- @param Zone#ZONE_BASE ZoneObject - -- @param Unit#UNIT UnitObject - function( ZoneObject, UnitObject ) - if UnitObject:IsCompletelyInZone( ZoneObject ) then - return true - else - return false - end - end, { ZoneObject } ) - - return self -end - ---- Iterate the SET_UNIT and call an iterator function for each **alive** UNIT presence not in a @{Zone}, providing the UNIT and optional parameters to the called function. --- @param #SET_UNIT self --- @param Zone#ZONE ZoneObject The Zone to be tested for. --- @param #function IteratorFunction The function that will be called when there is an alive UNIT in the SET_UNIT. The function needs to accept a UNIT parameter. --- @return #SET_UNIT self -function SET_UNIT:ForEachUnitNotInZone( ZoneObject, IteratorFunction, ... ) - self:F2( arg ) - - self:ForEach( IteratorFunction, arg, self.Set, - --- @param Zone#ZONE_BASE ZoneObject - -- @param Unit#UNIT UnitObject - function( ZoneObject, UnitObject ) - if UnitObject:IsNotInZone( ZoneObject ) then - return true - else - return false - end - end, { ZoneObject } ) - - return self -end - - - ------ Iterate the SET_UNIT and call an interator function for each **alive** player, providing the Unit of the player and optional parameters. ----- @param #SET_UNIT self ----- @param #function IteratorFunction The function that will be called when there is an alive player in the SET_UNIT. The function needs to accept a UNIT parameter. ----- @return #SET_UNIT self ---function SET_UNIT:ForEachPlayer( IteratorFunction, ... ) --- self:F2( arg ) --- --- self:ForEach( IteratorFunction, arg, self.PlayersAlive ) --- --- return self ---end --- --- ------ Iterate the SET_UNIT and call an interator function for each client, providing the Client to the function and optional parameters. ----- @param #SET_UNIT self ----- @param #function IteratorFunction The function that will be called when there is an alive player in the SET_UNIT. The function needs to accept a CLIENT parameter. ----- @return #SET_UNIT self ---function SET_UNIT:ForEachClient( IteratorFunction, ... ) --- self:F2( arg ) --- --- self:ForEach( IteratorFunction, arg, self.Clients ) --- --- return self ---end - - ---- --- @param #SET_UNIT self --- @param Unit#UNIT MUnit --- @return #SET_UNIT self -function SET_UNIT:IsIncludeObject( MUnit ) - self:F2( MUnit ) - local MUnitInclude = true - - if self.Filter.Coalitions then - local MUnitCoalition = false - for CoalitionID, CoalitionName in pairs( self.Filter.Coalitions ) do - self:T3( { "Coalition:", MUnit:GetCoalition(), self.FilterMeta.Coalitions[CoalitionName], CoalitionName } ) - if self.FilterMeta.Coalitions[CoalitionName] and self.FilterMeta.Coalitions[CoalitionName] == MUnit:GetCoalition() then - MUnitCoalition = true - end - end - MUnitInclude = MUnitInclude and MUnitCoalition - end - - if self.Filter.Categories then - local MUnitCategory = false - for CategoryID, CategoryName in pairs( self.Filter.Categories ) do - self:T3( { "Category:", MUnit:GetDesc().category, self.FilterMeta.Categories[CategoryName], CategoryName } ) - if self.FilterMeta.Categories[CategoryName] and self.FilterMeta.Categories[CategoryName] == MUnit:GetDesc().category then - MUnitCategory = true - end - end - MUnitInclude = MUnitInclude and MUnitCategory - end - - if self.Filter.Types then - local MUnitType = false - for TypeID, TypeName in pairs( self.Filter.Types ) do - self:T3( { "Type:", MUnit:GetTypeName(), TypeName } ) - if TypeName == MUnit:GetTypeName() then - MUnitType = true - end - end - MUnitInclude = MUnitInclude and MUnitType - end - - if self.Filter.Countries then - local MUnitCountry = false - for CountryID, CountryName in pairs( self.Filter.Countries ) do - self:T3( { "Country:", MUnit:GetCountry(), CountryName } ) - if country.id[CountryName] == MUnit:GetCountry() then - MUnitCountry = true - end - end - MUnitInclude = MUnitInclude and MUnitCountry - end - - if self.Filter.UnitPrefixes then - local MUnitPrefix = false - for UnitPrefixId, UnitPrefix in pairs( self.Filter.UnitPrefixes ) do - self:T3( { "Prefix:", string.find( MUnit:GetName(), UnitPrefix, 1 ), UnitPrefix } ) - if string.find( MUnit:GetName(), UnitPrefix, 1 ) then - MUnitPrefix = true - end - end - MUnitInclude = MUnitInclude and MUnitPrefix - end - - self:T2( MUnitInclude ) - return MUnitInclude -end - - ---- SET_CLIENT - ---- SET_CLIENT class --- @type SET_CLIENT --- @extends Set#SET_BASE -SET_CLIENT = { - ClassName = "SET_CLIENT", - Clients = {}, - Filter = { - Coalitions = nil, - Categories = nil, - Types = nil, - Countries = nil, - ClientPrefixes = nil, - }, - FilterMeta = { - Coalitions = { - red = coalition.side.RED, - blue = coalition.side.BLUE, - neutral = coalition.side.NEUTRAL, - }, - Categories = { - plane = Unit.Category.AIRPLANE, - helicopter = Unit.Category.HELICOPTER, - ground = Unit.Category.GROUND_UNIT, - ship = Unit.Category.SHIP, - structure = Unit.Category.STRUCTURE, - }, - }, -} - - ---- Creates a new SET_CLIENT object, building a set of clients belonging to a coalitions, categories, countries, types or with defined prefix names. --- @param #SET_CLIENT self --- @return #SET_CLIENT --- @usage --- -- Define a new SET_CLIENT Object. This DBObject will contain a reference to all Clients. --- DBObject = SET_CLIENT:New() -function SET_CLIENT:New() - -- Inherits from BASE - local self = BASE:Inherit( self, SET_BASE:New( _DATABASE.CLIENTS ) ) - - return self -end - ---- Add CLIENT(s) to SET_CLIENT. --- @param Set#SET_CLIENT self --- @param #string AddClientNames A single name or an array of CLIENT names. --- @return self -function SET_CLIENT:AddClientsByName( AddClientNames ) - - local AddClientNamesArray = ( type( AddClientNames ) == "table" ) and AddClientNames or { AddClientNames } - - for AddClientID, AddClientName in pairs( AddClientNamesArray ) do - self:Add( AddClientName, CLIENT:FindByName( AddClientName ) ) - end - - return self -end - ---- Remove CLIENT(s) from SET_CLIENT. --- @param Set#SET_CLIENT self --- @param Client#CLIENT RemoveClientNames A single name or an array of CLIENT names. --- @return self -function SET_CLIENT:RemoveClientsByName( RemoveClientNames ) - - local RemoveClientNamesArray = ( type( RemoveClientNames ) == "table" ) and RemoveClientNames or { RemoveClientNames } - - for RemoveClientID, RemoveClientName in pairs( RemoveClientNamesArray ) do - self:Remove( RemoveClientName.ClientName ) - end - - return self -end - - ---- Finds a Client based on the Client Name. --- @param #SET_CLIENT self --- @param #string ClientName --- @return Client#CLIENT The found Client. -function SET_CLIENT:FindClient( ClientName ) - - local ClientFound = self.Set[ClientName] - return ClientFound -end - - - ---- Builds a set of clients of coalitions. --- Possible current coalitions are red, blue and neutral. --- @param #SET_CLIENT self --- @param #string Coalitions Can take the following values: "red", "blue", "neutral". --- @return #SET_CLIENT self -function SET_CLIENT:FilterCoalitions( Coalitions ) - if not self.Filter.Coalitions then - self.Filter.Coalitions = {} - end - if type( Coalitions ) ~= "table" then - Coalitions = { Coalitions } - end - for CoalitionID, Coalition in pairs( Coalitions ) do - self.Filter.Coalitions[Coalition] = Coalition - end - return self -end - - ---- Builds a set of clients out of categories. --- Possible current categories are plane, helicopter, ground, ship. --- @param #SET_CLIENT self --- @param #string Categories Can take the following values: "plane", "helicopter", "ground", "ship". --- @return #SET_CLIENT self -function SET_CLIENT:FilterCategories( Categories ) - if not self.Filter.Categories then - self.Filter.Categories = {} - end - if type( Categories ) ~= "table" then - Categories = { Categories } - end - for CategoryID, Category in pairs( Categories ) do - self.Filter.Categories[Category] = Category - end - return self -end - - ---- Builds a set of clients of defined client types. --- Possible current types are those types known within DCS world. --- @param #SET_CLIENT self --- @param #string Types Can take those type strings known within DCS world. --- @return #SET_CLIENT self -function SET_CLIENT:FilterTypes( Types ) - if not self.Filter.Types then - self.Filter.Types = {} - end - if type( Types ) ~= "table" then - Types = { Types } - end - for TypeID, Type in pairs( Types ) do - self.Filter.Types[Type] = Type - end - return self -end - - ---- Builds a set of clients of defined countries. --- Possible current countries are those known within DCS world. --- @param #SET_CLIENT self --- @param #string Countries Can take those country strings known within DCS world. --- @return #SET_CLIENT self -function SET_CLIENT:FilterCountries( Countries ) - if not self.Filter.Countries then - self.Filter.Countries = {} - end - if type( Countries ) ~= "table" then - Countries = { Countries } - end - for CountryID, Country in pairs( Countries ) do - self.Filter.Countries[Country] = Country - end - return self -end - - ---- Builds a set of clients of defined client prefixes. --- All the clients starting with the given prefixes will be included within the set. --- @param #SET_CLIENT self --- @param #string Prefixes The prefix of which the client name starts with. --- @return #SET_CLIENT self -function SET_CLIENT:FilterPrefixes( Prefixes ) - if not self.Filter.ClientPrefixes then - self.Filter.ClientPrefixes = {} - end - if type( Prefixes ) ~= "table" then - Prefixes = { Prefixes } - end - for PrefixID, Prefix in pairs( Prefixes ) do - self.Filter.ClientPrefixes[Prefix] = Prefix - end - return self -end - - - - ---- Starts the filtering. --- @param #SET_CLIENT self --- @return #SET_CLIENT self -function SET_CLIENT:FilterStart() - - if _DATABASE then - self:_FilterStart() - end - - return self -end - ---- Handles the Database to check on an event (birth) that the Object was added in the Database. --- This is required, because sometimes the _DATABASE birth event gets called later than the SET_BASE birth event! --- @param #SET_CLIENT self --- @param Event#EVENTDATA Event --- @return #string The name of the CLIENT --- @return #table The CLIENT -function SET_CLIENT:AddInDatabase( Event ) - self:F3( { Event } ) - - return Event.IniDCSUnitName, self.Database[Event.IniDCSUnitName] -end - ---- Handles the Database to check on any event that Object exists in the Database. --- This is required, because sometimes the _DATABASE event gets called later than the SET_BASE event or vise versa! --- @param #SET_CLIENT self --- @param Event#EVENTDATA Event --- @return #string The name of the CLIENT --- @return #table The CLIENT -function SET_CLIENT:FindInDatabase( Event ) - self:F3( { Event } ) - - return Event.IniDCSUnitName, self.Database[Event.IniDCSUnitName] -end - ---- Iterate the SET_CLIENT and call an interator function for each **alive** CLIENT, providing the CLIENT and optional parameters. --- @param #SET_CLIENT self --- @param #function IteratorFunction The function that will be called when there is an alive CLIENT in the SET_CLIENT. The function needs to accept a CLIENT parameter. --- @return #SET_CLIENT self -function SET_CLIENT:ForEachClient( IteratorFunction, ... ) - self:F2( arg ) - - self:ForEach( IteratorFunction, arg, self.Set ) - - return self -end - ---- Iterate the SET_CLIENT and call an iterator function for each **alive** CLIENT presence completely in a @{Zone}, providing the CLIENT and optional parameters to the called function. --- @param #SET_CLIENT self --- @param Zone#ZONE ZoneObject The Zone to be tested for. --- @param #function IteratorFunction The function that will be called when there is an alive CLIENT in the SET_CLIENT. The function needs to accept a CLIENT parameter. --- @return #SET_CLIENT self -function SET_CLIENT:ForEachClientInZone( ZoneObject, IteratorFunction, ... ) - self:F2( arg ) - - self:ForEach( IteratorFunction, arg, self.Set, - --- @param Zone#ZONE_BASE ZoneObject - -- @param Client#CLIENT ClientObject - function( ZoneObject, ClientObject ) - if ClientObject:IsInZone( ZoneObject ) then - return true - else - return false - end - end, { ZoneObject } ) - - return self -end - ---- Iterate the SET_CLIENT and call an iterator function for each **alive** CLIENT presence not in a @{Zone}, providing the CLIENT and optional parameters to the called function. --- @param #SET_CLIENT self --- @param Zone#ZONE ZoneObject The Zone to be tested for. --- @param #function IteratorFunction The function that will be called when there is an alive CLIENT in the SET_CLIENT. The function needs to accept a CLIENT parameter. --- @return #SET_CLIENT self -function SET_CLIENT:ForEachClientNotInZone( ZoneObject, IteratorFunction, ... ) - self:F2( arg ) - - self:ForEach( IteratorFunction, arg, self.Set, - --- @param Zone#ZONE_BASE ZoneObject - -- @param Client#CLIENT ClientObject - function( ZoneObject, ClientObject ) - if ClientObject:IsNotInZone( ZoneObject ) then - return true - else - return false - end - end, { ZoneObject } ) - - return self -end - ---- --- @param #SET_CLIENT self --- @param Client#CLIENT MClient --- @return #SET_CLIENT self -function SET_CLIENT:IsIncludeObject( MClient ) - self:F2( MClient ) - - local MClientInclude = true - - if MClient then - local MClientName = MClient.UnitName - - if self.Filter.Coalitions then - local MClientCoalition = false - for CoalitionID, CoalitionName in pairs( self.Filter.Coalitions ) do - local ClientCoalitionID = _DATABASE:GetCoalitionFromClientTemplate( MClientName ) - self:T3( { "Coalition:", ClientCoalitionID, self.FilterMeta.Coalitions[CoalitionName], CoalitionName } ) - if self.FilterMeta.Coalitions[CoalitionName] and self.FilterMeta.Coalitions[CoalitionName] == ClientCoalitionID then - MClientCoalition = true - end - end - self:T( { "Evaluated Coalition", MClientCoalition } ) - MClientInclude = MClientInclude and MClientCoalition - end - - if self.Filter.Categories then - local MClientCategory = false - for CategoryID, CategoryName in pairs( self.Filter.Categories ) do - local ClientCategoryID = _DATABASE:GetCategoryFromClientTemplate( MClientName ) - self:T3( { "Category:", ClientCategoryID, self.FilterMeta.Categories[CategoryName], CategoryName } ) - if self.FilterMeta.Categories[CategoryName] and self.FilterMeta.Categories[CategoryName] == ClientCategoryID then - MClientCategory = true - end - end - self:T( { "Evaluated Category", MClientCategory } ) - MClientInclude = MClientInclude and MClientCategory - end - - if self.Filter.Types then - local MClientType = false - for TypeID, TypeName in pairs( self.Filter.Types ) do - self:T3( { "Type:", MClient:GetTypeName(), TypeName } ) - if TypeName == MClient:GetTypeName() then - MClientType = true - end - end - self:T( { "Evaluated Type", MClientType } ) - MClientInclude = MClientInclude and MClientType - end - - if self.Filter.Countries then - local MClientCountry = false - for CountryID, CountryName in pairs( self.Filter.Countries ) do - local ClientCountryID = _DATABASE:GetCountryFromClientTemplate(MClientName) - self:T3( { "Country:", ClientCountryID, country.id[CountryName], CountryName } ) - if country.id[CountryName] and country.id[CountryName] == ClientCountryID then - MClientCountry = true - end - end - self:T( { "Evaluated Country", MClientCountry } ) - MClientInclude = MClientInclude and MClientCountry - end - - if self.Filter.ClientPrefixes then - local MClientPrefix = false - for ClientPrefixId, ClientPrefix in pairs( self.Filter.ClientPrefixes ) do - self:T3( { "Prefix:", string.find( MClient.UnitName, ClientPrefix, 1 ), ClientPrefix } ) - if string.find( MClient.UnitName, ClientPrefix, 1 ) then - MClientPrefix = true - end - end - self:T( { "Evaluated Prefix", MClientPrefix } ) - MClientInclude = MClientInclude and MClientPrefix - end - end - - self:T2( MClientInclude ) - return MClientInclude -end - ---- SET_AIRBASE - ---- SET_AIRBASE class --- @type SET_AIRBASE --- @extends Set#SET_BASE -SET_AIRBASE = { - ClassName = "SET_AIRBASE", - Airbases = {}, - Filter = { - Coalitions = nil, - }, - FilterMeta = { - Coalitions = { - red = coalition.side.RED, - blue = coalition.side.BLUE, - neutral = coalition.side.NEUTRAL, - }, - Categories = { - airdrome = Airbase.Category.AIRDROME, - helipad = Airbase.Category.HELIPAD, - ship = Airbase.Category.SHIP, - }, - }, -} - - ---- Creates a new SET_AIRBASE object, building a set of airbases belonging to a coalitions and categories. --- @param #SET_AIRBASE self --- @return #SET_AIRBASE self --- @usage --- -- Define a new SET_AIRBASE Object. The DatabaseSet will contain a reference to all Airbases. --- DatabaseSet = SET_AIRBASE:New() -function SET_AIRBASE:New() - -- Inherits from BASE - local self = BASE:Inherit( self, SET_BASE:New( _DATABASE.AIRBASES ) ) - - return self -end - ---- Add AIRBASEs to SET_AIRBASE. --- @param Set#SET_AIRBASE self --- @param #string AddAirbaseNames A single name or an array of AIRBASE names. --- @return self -function SET_AIRBASE:AddAirbasesByName( AddAirbaseNames ) - - local AddAirbaseNamesArray = ( type( AddAirbaseNames ) == "table" ) and AddAirbaseNames or { AddAirbaseNames } - - for AddAirbaseID, AddAirbaseName in pairs( AddAirbaseNamesArray ) do - self:Add( AddAirbaseName, AIRBASE:FindByName( AddAirbaseName ) ) - end - - return self -end - ---- Remove AIRBASEs from SET_AIRBASE. --- @param Set#SET_AIRBASE self --- @param Airbase#AIRBASE RemoveAirbaseNames A single name or an array of AIRBASE names. --- @return self -function SET_AIRBASE:RemoveAirbasesByName( RemoveAirbaseNames ) - - local RemoveAirbaseNamesArray = ( type( RemoveAirbaseNames ) == "table" ) and RemoveAirbaseNames or { RemoveAirbaseNames } - - for RemoveAirbaseID, RemoveAirbaseName in pairs( RemoveAirbaseNamesArray ) do - self:Remove( RemoveAirbaseName.AirbaseName ) - end - - return self -end - - ---- Finds a Airbase based on the Airbase Name. --- @param #SET_AIRBASE self --- @param #string AirbaseName --- @return Airbase#AIRBASE The found Airbase. -function SET_AIRBASE:FindAirbase( AirbaseName ) - - local AirbaseFound = self.Set[AirbaseName] - return AirbaseFound -end - - - ---- Builds a set of airbases of coalitions. --- Possible current coalitions are red, blue and neutral. --- @param #SET_AIRBASE self --- @param #string Coalitions Can take the following values: "red", "blue", "neutral". --- @return #SET_AIRBASE self -function SET_AIRBASE:FilterCoalitions( Coalitions ) - if not self.Filter.Coalitions then - self.Filter.Coalitions = {} - end - if type( Coalitions ) ~= "table" then - Coalitions = { Coalitions } - end - for CoalitionID, Coalition in pairs( Coalitions ) do - self.Filter.Coalitions[Coalition] = Coalition - end - return self -end - - ---- Builds a set of airbases out of categories. --- Possible current categories are plane, helicopter, ground, ship. --- @param #SET_AIRBASE self --- @param #string Categories Can take the following values: "airdrome", "helipad", "ship". --- @return #SET_AIRBASE self -function SET_AIRBASE:FilterCategories( Categories ) - if not self.Filter.Categories then - self.Filter.Categories = {} - end - if type( Categories ) ~= "table" then - Categories = { Categories } - end - for CategoryID, Category in pairs( Categories ) do - self.Filter.Categories[Category] = Category - end - return self -end - ---- Starts the filtering. --- @param #SET_AIRBASE self --- @return #SET_AIRBASE self -function SET_AIRBASE:FilterStart() - - if _DATABASE then - self:_FilterStart() - end - - return self -end - - ---- Handles the Database to check on an event (birth) that the Object was added in the Database. --- This is required, because sometimes the _DATABASE birth event gets called later than the SET_BASE birth event! --- @param #SET_AIRBASE self --- @param Event#EVENTDATA Event --- @return #string The name of the AIRBASE --- @return #table The AIRBASE -function SET_AIRBASE:AddInDatabase( Event ) - self:F3( { Event } ) - - return Event.IniDCSUnitName, self.Database[Event.IniDCSUnitName] -end - ---- Handles the Database to check on any event that Object exists in the Database. --- This is required, because sometimes the _DATABASE event gets called later than the SET_BASE event or vise versa! --- @param #SET_AIRBASE self --- @param Event#EVENTDATA Event --- @return #string The name of the AIRBASE --- @return #table The AIRBASE -function SET_AIRBASE:FindInDatabase( Event ) - self:F3( { Event } ) - - return Event.IniDCSUnitName, self.Database[Event.IniDCSUnitName] -end - ---- Iterate the SET_AIRBASE and call an interator function for each AIRBASE, providing the AIRBASE and optional parameters. --- @param #SET_AIRBASE self --- @param #function IteratorFunction The function that will be called when there is an alive AIRBASE in the SET_AIRBASE. The function needs to accept a AIRBASE parameter. --- @return #SET_AIRBASE self -function SET_AIRBASE:ForEachAirbase( IteratorFunction, ... ) - self:F2( arg ) - - self:ForEach( IteratorFunction, arg, self.Set ) - - return self -end - ---- Iterate the SET_AIRBASE while identifying the nearest @{Airbase#AIRBASE} from a @{Point#POINT_VEC2}. --- @param #SET_AIRBASE self --- @param Point#POINT_VEC2 PointVec2 A @{Point#POINT_VEC2} object from where to evaluate the closest @{Airbase#AIRBASE}. --- @return Airbase#AIRBASE The closest @{Airbase#AIRBASE}. -function SET_AIRBASE:FindNearestAirbaseFromPointVec2( PointVec2 ) - self:F2( PointVec2 ) - - local NearestAirbase = self:FindNearestObjectFromPointVec2( PointVec2 ) - return NearestAirbase -end - - - ---- --- @param #SET_AIRBASE self --- @param Airbase#AIRBASE MAirbase --- @return #SET_AIRBASE self -function SET_AIRBASE:IsIncludeObject( MAirbase ) - self:F2( MAirbase ) - - local MAirbaseInclude = true - - if MAirbase then - local MAirbaseName = MAirbase:GetName() - - if self.Filter.Coalitions then - local MAirbaseCoalition = false - for CoalitionID, CoalitionName in pairs( self.Filter.Coalitions ) do - local AirbaseCoalitionID = _DATABASE:GetCoalitionFromAirbase( MAirbaseName ) - self:T3( { "Coalition:", AirbaseCoalitionID, self.FilterMeta.Coalitions[CoalitionName], CoalitionName } ) - if self.FilterMeta.Coalitions[CoalitionName] and self.FilterMeta.Coalitions[CoalitionName] == AirbaseCoalitionID then - MAirbaseCoalition = true - end - end - self:T( { "Evaluated Coalition", MAirbaseCoalition } ) - MAirbaseInclude = MAirbaseInclude and MAirbaseCoalition - end - - if self.Filter.Categories then - local MAirbaseCategory = false - for CategoryID, CategoryName in pairs( self.Filter.Categories ) do - local AirbaseCategoryID = _DATABASE:GetCategoryFromAirbase( MAirbaseName ) - self:T3( { "Category:", AirbaseCategoryID, self.FilterMeta.Categories[CategoryName], CategoryName } ) - if self.FilterMeta.Categories[CategoryName] and self.FilterMeta.Categories[CategoryName] == AirbaseCategoryID then - MAirbaseCategory = true - end - end - self:T( { "Evaluated Category", MAirbaseCategory } ) - MAirbaseInclude = MAirbaseInclude and MAirbaseCategory - end - end - - self:T2( MAirbaseInclude ) - return MAirbaseInclude -end ---- This module contains the POINT classes. --- --- 1) @{Point#POINT_VEC3} class, extends @{Base#BASE} --- =============================================== --- The @{Point#POINT_VEC3} class defines a 3D point in the simulator. --- --- 1.1) POINT_VEC3 constructor --- --------------------------- --- --- A new POINT instance can be created with: --- --- * @{#POINT_VEC3.New}(): a 3D point. --- --- 2) @{Point#POINT_VEC2} class, extends @{Point#POINT_VEC3} --- ========================================================= --- The @{Point#POINT_VEC2} class defines a 2D point in the simulator. The height coordinate (if needed) will be the land height + an optional added height specified. --- --- 2.1) POINT_VEC2 constructor --- --------------------------- --- --- A new POINT instance can be created with: --- --- * @{#POINT_VEC2.New}(): a 2D point. --- --- @module Point --- @author FlightControl - ---- The POINT_VEC3 class --- @type POINT_VEC3 --- @extends Base#BASE --- @field #POINT_VEC3.SmokeColor SmokeColor --- @field #POINT_VEC3.FlareColor FlareColor --- @field #POINT_VEC3.RoutePointAltType RoutePointAltType --- @field #POINT_VEC3.RoutePointType RoutePointType --- @field #POINT_VEC3.RoutePointAction RoutePointAction -POINT_VEC3 = { - ClassName = "POINT_VEC3", - SmokeColor = { - Green = trigger.smokeColor.Green, - Red = trigger.smokeColor.Red, - White = trigger.smokeColor.White, - Orange = trigger.smokeColor.Orange, - Blue = trigger.smokeColor.Blue - }, - FlareColor = { - Green = trigger.flareColor.Green, - Red = trigger.flareColor.Red, - White = trigger.flareColor.White, - Yellow = trigger.flareColor.Yellow - }, - RoutePointAltType = { - BARO = "BARO", - }, - RoutePointType = { - TurningPoint = "Turning Point", - }, - RoutePointAction = { - TurningPoint = "Turning Point", - }, -} - - ---- SmokeColor --- @type POINT_VEC3.SmokeColor --- @field Green --- @field Red --- @field White --- @field Orange --- @field Blue - - - ---- FlareColor --- @type POINT_VEC3.FlareColor --- @field Green --- @field Red --- @field White --- @field Yellow - - - ---- RoutePoint AltTypes --- @type POINT_VEC3.RoutePointAltType --- @field BARO "BARO" - - - ---- RoutePoint Types --- @type POINT_VEC3.RoutePointType --- @field TurningPoint "Turning Point" - - - ---- RoutePoint Actions --- @type POINT_VEC3.RoutePointAction --- @field TurningPoint "Turning Point" - - - --- Constructor. - ---- Create a new POINT_VEC3 object. --- @param #POINT_VEC3 self --- @param DCSTypes#Distance x The x coordinate of the Vec3 point, pointing to the North. --- @param DCSTypes#Distance y The y coordinate of the Vec3 point, pointing Upwards. --- @param DCSTypes#Distance z The z coordinate of the Vec3 point, pointing to the Right. --- @return Point#POINT_VEC3 self -function POINT_VEC3:New( x, y, z ) - - local self = BASE:Inherit( self, BASE:New() ) - self.PointVec3 = { x = x, y = y, z = z } - self:F2( self.PointVec3 ) - return self -end - - ---- Build an air type route point. --- @param #POINT_VEC3 self --- @param #POINT_VEC3.RoutePointAltType AltType The altitude type. --- @param #POINT_VEC3.RoutePointType Type The route point type. --- @param #POINT_VEC3.RoutePointAction Action The route point action. --- @param DCSTypes#Speed Speed Airspeed in km/h. --- @param #boolean SpeedLocked true means the speed is locked. --- @return #table The route point. -function POINT_VEC3:RoutePointAir( AltType, Type, Action, Speed, SpeedLocked ) - self:F2( { AltType, Type, Action, Speed, SpeedLocked } ) - - local RoutePoint = {} - RoutePoint.x = self.PointVec3.x - RoutePoint.y = self.PointVec3.z - RoutePoint.alt = self.PointVec3.y - RoutePoint.alt_type = AltType - - RoutePoint.type = Type - RoutePoint.action = Action - - RoutePoint.speed = Speed / 3.6 - RoutePoint.speed_locked = true - --- ["task"] = --- { --- ["id"] = "ComboTask", --- ["params"] = --- { --- ["tasks"] = --- { --- }, -- end of ["tasks"] --- }, -- end of ["params"] --- }, -- end of ["task"] - - - RoutePoint.task = {} - RoutePoint.task.id = "ComboTask" - RoutePoint.task.params = {} - RoutePoint.task.params.tasks = {} - - - return RoutePoint -end - - ---- Smokes the point in a color. --- @param #POINT_VEC3 self --- @param Point#POINT_VEC3.SmokeColor SmokeColor -function POINT_VEC3:Smoke( SmokeColor ) - self:F2( { SmokeColor, self.PointVec3 } ) - trigger.action.smoke( self.PointVec3, SmokeColor ) -end - ---- Smoke the POINT_VEC3 Green. --- @param #POINT_VEC3 self -function POINT_VEC3:SmokeGreen() - self:F2() - self:Smoke( POINT_VEC3.SmokeColor.Green ) -end - ---- Smoke the POINT_VEC3 Red. --- @param #POINT_VEC3 self -function POINT_VEC3:SmokeRed() - self:F2() - self:Smoke( POINT_VEC3.SmokeColor.Red ) -end - ---- Smoke the POINT_VEC3 White. --- @param #POINT_VEC3 self -function POINT_VEC3:SmokeWhite() - self:F2() - self:Smoke( POINT_VEC3.SmokeColor.White ) -end - ---- Smoke the POINT_VEC3 Orange. --- @param #POINT_VEC3 self -function POINT_VEC3:SmokeOrange() - self:F2() - self:Smoke( POINT_VEC3.SmokeColor.Orange ) -end - ---- Smoke the POINT_VEC3 Blue. --- @param #POINT_VEC3 self -function POINT_VEC3:SmokeBlue() - self:F2() - self:Smoke( POINT_VEC3.SmokeColor.Blue ) -end - ---- Flares the point in a color. --- @param #POINT_VEC3 self --- @param Point#POINT_VEC3.FlareColor --- @param DCSTypes#Azimuth (optional) Azimuth The azimuth of the flare direction. The default azimuth is 0. -function POINT_VEC3:Flare( FlareColor, Azimuth ) - self:F2( { FlareColor, self.PointVec3 } ) - trigger.action.signalFlare( self.PointVec3, FlareColor, Azimuth and Azimuth or 0 ) -end - ---- Flare the POINT_VEC3 White. --- @param #POINT_VEC3 self --- @param DCSTypes#Azimuth (optional) Azimuth The azimuth of the flare direction. The default azimuth is 0. -function POINT_VEC3:FlareWhite( Azimuth ) - self:F2( Azimuth ) - self:Flare( POINT_VEC3.FlareColor.White, Azimuth ) -end - ---- Flare the POINT_VEC3 Yellow. --- @param #POINT_VEC3 self --- @param DCSTypes#Azimuth (optional) Azimuth The azimuth of the flare direction. The default azimuth is 0. -function POINT_VEC3:FlareYellow( Azimuth ) - self:F2( Azimuth ) - self:Flare( POINT_VEC3.FlareColor.Yellow, Azimuth ) -end - ---- Flare the POINT_VEC3 Green. --- @param #POINT_VEC3 self --- @param DCSTypes#Azimuth (optional) Azimuth The azimuth of the flare direction. The default azimuth is 0. -function POINT_VEC3:FlareGreen( Azimuth ) - self:F2( Azimuth ) - self:Flare( POINT_VEC3.FlareColor.Green, Azimuth ) -end - ---- Flare the POINT_VEC3 Red. --- @param #POINT_VEC3 self -function POINT_VEC3:FlareRed( Azimuth ) - self:F2( Azimuth ) - self:Flare( POINT_VEC3.FlareColor.Red, Azimuth ) -end - - ---- The POINT_VEC2 class --- @type POINT_VEC2 --- @field DCSTypes#Vec2 PointVec2 --- @extends Point#POINT_VEC3 -POINT_VEC2 = { - ClassName = "POINT_VEC2", - } - ---- Create a new POINT_VEC2 object. --- @param #POINT_VEC2 self --- @param DCSTypes#Distance x The x coordinate of the Vec3 point, pointing to the North. --- @param DCSTypes#Distance y The y coordinate of the Vec3 point, pointing to the Right. --- @param DCSTypes#Distance LandHeightAdd (optional) The default height if required to be evaluated will be the land height of the x, y coordinate. You can specify an extra height to be added to the land height. --- @return Point#POINT_VEC2 -function POINT_VEC2:New( x, y, LandHeightAdd ) - - local LandHeight = land.getHeight( { ["x"] = x, ["y"] = y } ) - if LandHeightAdd then - LandHeight = LandHeight + LandHeightAdd - end - - local self = BASE:Inherit( self, POINT_VEC3:New( x, LandHeight, y ) ) - self:F2( { x, y, LandHeightAdd } ) - - self.PointVec2 = { x = x, y = y } - - return self -end - ---- Calculate the distance from a reference @{Point#POINT_VEC2}. --- @param #POINT_VEC2 self --- @param #POINT_VEC2 PointVec2Reference The reference @{Point#POINT_VEC2}. --- @return DCSTypes#Distance The distance from the reference @{Point#POINT_VEC2} in meters. -function POINT_VEC2:DistanceFromPointVec2( PointVec2Reference ) - self:F2( PointVec2Reference ) - - local Distance = ( ( PointVec2Reference.PointVec2.x - self.PointVec2.x ) ^ 2 + ( PointVec2Reference.PointVec2.y - self.PointVec2.y ) ^2 ) ^0.5 - - self:T2( Distance ) - return Distance -end - ---- Calculate the distance from a reference @{DCSTypes#Vec2}. --- @param #POINT_VEC2 self --- @param DCSTypes#Vec2 Vec2Reference The reference @{DCSTypes#Vec2}. --- @return DCSTypes#Distance The distance from the reference @{DCSTypes#Vec2} in meters. -function POINT_VEC2:DistanceFromVec2( Vec2Reference ) - self:F2( Vec2Reference ) - - local Distance = ( ( Vec2Reference.x - self.PointVec2.x ) ^ 2 + ( Vec2Reference.y - self.PointVec2.y ) ^2 ) ^0.5 - - self:T2( Distance ) - return Distance -end - - ---- The main include file for the MOOSE system. - -Include.File( "Routines" ) -Include.File( "Base" ) -Include.File( "Object" ) -Include.File( "Identifiable" ) -Include.File( "Positionable" ) -Include.File( "Controllable" ) -Include.File( "Scheduler" ) -Include.File( "Event" ) -Include.File( "Menu" ) -Include.File( "Group" ) -Include.File( "Unit" ) -Include.File( "Zone" ) -Include.File( "Client" ) -Include.File( "Static" ) -Include.File( "Airbase" ) -Include.File( "Database" ) -Include.File( "Set" ) -Include.File( "Point" ) Include.File( "Moose" ) -Include.File( "Scoring" ) -Include.File( "Cargo" ) -Include.File( "Message" ) -Include.File( "Stage" ) -Include.File( "Task" ) -Include.File( "GoHomeTask" ) -Include.File( "DestroyBaseTask" ) -Include.File( "DestroyGroupsTask" ) -Include.File( "DestroyRadarsTask" ) -Include.File( "DestroyUnitTypesTask" ) -Include.File( "PickupTask" ) -Include.File( "DeployTask" ) -Include.File( "NoTask" ) -Include.File( "RouteTask" ) -Include.File( "Mission" ) -Include.File( "CleanUp" ) -Include.File( "Spawn" ) -Include.File( "Movement" ) -Include.File( "Sead" ) -Include.File( "Escort" ) -Include.File( "MissileTrainer" ) -Include.File( "PatrolZone" ) -Include.File( "AIBalancer" ) -Include.File( "AirbasePolice" ) -Include.File( "Detection" ) -Include.File( "FAC" ) --- The order of the declarations is important here. Don't touch it. - ---- Declare the event dispatcher based on the EVENT class -_EVENTDISPATCHER = EVENT:New() -- #EVENT - ---- Declare the main database object, which is used internally by the MOOSE classes. -_DATABASE = DATABASE:New() -- Database#DATABASE - ---- Scoring system for MOOSE. --- This scoring class calculates the hits and kills that players make within a simulation session. --- Scoring is calculated using a defined algorithm. --- With a small change in MissionScripting.lua, the scoring can also be logged in a CSV file, that can then be uploaded --- to a database or a BI tool to publish the scoring results to the player community. --- @module Scoring --- @author FlightControl - - ---- The Scoring class --- @type SCORING --- @field Players A collection of the current players that have joined the game. --- @extends Base#BASE -SCORING = { - ClassName = "SCORING", - ClassID = 0, - Players = {}, -} - -local _SCORINGCoalition = - { - [1] = "Red", - [2] = "Blue", - } - -local _SCORINGCategory = - { - [Unit.Category.AIRPLANE] = "Plane", - [Unit.Category.HELICOPTER] = "Helicopter", - [Unit.Category.GROUND_UNIT] = "Vehicle", - [Unit.Category.SHIP] = "Ship", - [Unit.Category.STRUCTURE] = "Structure", - } - ---- Creates a new SCORING object to administer the scoring achieved by players. --- @param #SCORING self --- @param #string GameName The name of the game. This name is also logged in the CSV score file. --- @return #SCORING self --- @usage --- -- Define a new scoring object for the mission Gori Valley. --- ScoringObject = SCORING:New( "Gori Valley" ) -function SCORING:New( GameName ) - - -- Inherits from BASE - local self = BASE:Inherit( self, BASE:New() ) - - if GameName then - self.GameName = GameName - else - error( "A game name must be given to register the scoring results" ) - end - - - _EVENTDISPATCHER:OnDead( self._EventOnDeadOrCrash, self ) - _EVENTDISPATCHER:OnCrash( self._EventOnDeadOrCrash, self ) - _EVENTDISPATCHER:OnHit( self._EventOnHit, self ) - - --self.SchedulerId = routines.scheduleFunction( SCORING._FollowPlayersScheduled, { self }, 0, 5 ) - self.SchedulerId = SCHEDULER:New( self, self._FollowPlayersScheduled, {}, 0, 5 ) - - self:ScoreMenu() - - return self - -end - ---- Creates a score radio menu. Can be accessed using Radio -> F10. --- @param #SCORING self --- @return #SCORING self -function SCORING:ScoreMenu() - self.Menu = SUBMENU:New( 'Scoring' ) - self.AllScoresMenu = COMMANDMENU:New( 'Score All Active Players', self.Menu, SCORING.ReportScoreAll, self ) - --- = COMMANDMENU:New('Your Current Score', ReportScore, SCORING.ReportScorePlayer, self ) - return self -end - ---- Follows new players entering Clients within the DCSRTE. --- TODO: Need to see if i can catch this also with an event. It will eliminate the schedule ... -function SCORING:_FollowPlayersScheduled() - self:F3( "_FollowPlayersScheduled" ) - - local ClientUnit = 0 - local CoalitionsData = { AlivePlayersRed = coalition.getPlayers(coalition.side.RED), AlivePlayersBlue = coalition.getPlayers(coalition.side.BLUE) } - local unitId - local unitData - local AlivePlayerUnits = {} - - for CoalitionId, CoalitionData in pairs( CoalitionsData ) do - self:T3( { "_FollowPlayersScheduled", CoalitionData } ) - for UnitId, UnitData in pairs( CoalitionData ) do - self:_AddPlayerFromUnit( UnitData ) - end - end - - return true -end - - ---- Track DEAD or CRASH events for the scoring. --- @param #SCORING self --- @param Event#EVENTDATA Event -function SCORING:_EventOnDeadOrCrash( Event ) - self:F( { Event } ) - - local TargetUnit = nil - local TargetGroup = nil - local TargetUnitName = "" - local TargetGroupName = "" - local TargetPlayerName = "" - local TargetCoalition = nil - local TargetCategory = nil - local TargetType = nil - local TargetUnitCoalition = nil - local TargetUnitCategory = nil - local TargetUnitType = nil - - if Event.IniDCSUnit then - - TargetUnit = Event.IniDCSUnit - TargetUnitName = Event.IniDCSUnitName - TargetGroup = Event.IniDCSGroup - TargetGroupName = Event.IniDCSGroupName - TargetPlayerName = TargetUnit:getPlayerName() - - TargetCoalition = TargetUnit:getCoalition() - --TargetCategory = TargetUnit:getCategory() - TargetCategory = TargetUnit:getDesc().category -- Workaround - TargetType = TargetUnit:getTypeName() - - TargetUnitCoalition = _SCORINGCoalition[TargetCoalition] - TargetUnitCategory = _SCORINGCategory[TargetCategory] - TargetUnitType = TargetType - - self:T( { TargetUnitName, TargetGroupName, TargetPlayerName, TargetCoalition, TargetCategory, TargetType } ) - end - - for PlayerName, PlayerData in pairs( self.Players ) do - if PlayerData then -- This should normally not happen, but i'll test it anyway. - self:T( "Something got killed" ) - - -- Some variables - local InitUnitName = PlayerData.UnitName - local InitUnitType = PlayerData.UnitType - local InitCoalition = PlayerData.UnitCoalition - local InitCategory = PlayerData.UnitCategory - local InitUnitCoalition = _SCORINGCoalition[InitCoalition] - local InitUnitCategory = _SCORINGCategory[InitCategory] - - self:T( { InitUnitName, InitUnitType, InitUnitCoalition, InitCoalition, InitUnitCategory, InitCategory } ) - - -- What is he hitting? - if TargetCategory then - if PlayerData and PlayerData.Hit and PlayerData.Hit[TargetCategory] and PlayerData.Hit[TargetCategory][TargetUnitName] then -- Was there a hit for this unit for this player before registered??? - if not PlayerData.Kill[TargetCategory] then - PlayerData.Kill[TargetCategory] = {} - end - if not PlayerData.Kill[TargetCategory][TargetType] then - PlayerData.Kill[TargetCategory][TargetType] = {} - PlayerData.Kill[TargetCategory][TargetType].Score = 0 - PlayerData.Kill[TargetCategory][TargetType].ScoreKill = 0 - PlayerData.Kill[TargetCategory][TargetType].Penalty = 0 - PlayerData.Kill[TargetCategory][TargetType].PenaltyKill = 0 - end - - if InitCoalition == TargetCoalition then - PlayerData.Penalty = PlayerData.Penalty + 25 - PlayerData.Kill[TargetCategory][TargetType].Penalty = PlayerData.Kill[TargetCategory][TargetType].Penalty + 25 - PlayerData.Kill[TargetCategory][TargetType].PenaltyKill = PlayerData.Kill[TargetCategory][TargetType].PenaltyKill + 1 - MESSAGE:New( "Player '" .. PlayerName .. "' killed a friendly " .. TargetUnitCategory .. " ( " .. TargetType .. " ) " .. - PlayerData.Kill[TargetCategory][TargetType].PenaltyKill .. " times. Penalty: -" .. PlayerData.Kill[TargetCategory][TargetType].Penalty .. - ". Score Total:" .. PlayerData.Score - PlayerData.Penalty, - 5 ):ToAll() - self:ScoreCSV( PlayerName, "KILL_PENALTY", 1, -125, InitUnitName, InitUnitCoalition, InitUnitCategory, InitUnitType, TargetUnitName, TargetUnitCoalition, TargetUnitCategory, TargetUnitType ) - else - PlayerData.Score = PlayerData.Score + 10 - PlayerData.Kill[TargetCategory][TargetType].Score = PlayerData.Kill[TargetCategory][TargetType].Score + 10 - PlayerData.Kill[TargetCategory][TargetType].ScoreKill = PlayerData.Kill[TargetCategory][TargetType].ScoreKill + 1 - MESSAGE:New( "Player '" .. PlayerName .. "' killed an enemy " .. TargetUnitCategory .. " ( " .. TargetType .. " ) " .. - PlayerData.Kill[TargetCategory][TargetType].ScoreKill .. " times. Score: " .. PlayerData.Kill[TargetCategory][TargetType].Score .. - ". Score Total:" .. PlayerData.Score - PlayerData.Penalty, - 5 ):ToAll() - self:ScoreCSV( PlayerName, "KILL_SCORE", 1, 10, InitUnitName, InitUnitCoalition, InitUnitCategory, InitUnitType, TargetUnitName, TargetUnitCoalition, TargetUnitCategory, TargetUnitType ) - end - end - end - end - end -end - - - ---- Add a new player entering a Unit. -function SCORING:_AddPlayerFromUnit( UnitData ) - self:F( UnitData ) - - if UnitData and UnitData:isExist() then - local UnitName = UnitData:getName() - local PlayerName = UnitData:getPlayerName() - local UnitDesc = UnitData:getDesc() - local UnitCategory = UnitDesc.category - local UnitCoalition = UnitData:getCoalition() - local UnitTypeName = UnitData:getTypeName() - - self:T( { PlayerName, UnitName, UnitCategory, UnitCoalition, UnitTypeName } ) - - if self.Players[PlayerName] == nil then -- I believe this is the place where a Player gets a life in a mission when he enters a unit ... - self.Players[PlayerName] = {} - self.Players[PlayerName].Hit = {} - self.Players[PlayerName].Kill = {} - self.Players[PlayerName].Mission = {} - - -- for CategoryID, CategoryName in pairs( SCORINGCategory ) do - -- self.Players[PlayerName].Hit[CategoryID] = {} - -- self.Players[PlayerName].Kill[CategoryID] = {} - -- end - self.Players[PlayerName].HitPlayers = {} - self.Players[PlayerName].HitUnits = {} - self.Players[PlayerName].Score = 0 - self.Players[PlayerName].Penalty = 0 - self.Players[PlayerName].PenaltyCoalition = 0 - self.Players[PlayerName].PenaltyWarning = 0 - end - - if not self.Players[PlayerName].UnitCoalition then - self.Players[PlayerName].UnitCoalition = UnitCoalition - else - if self.Players[PlayerName].UnitCoalition ~= UnitCoalition then - self.Players[PlayerName].Penalty = self.Players[PlayerName].Penalty + 50 - self.Players[PlayerName].PenaltyCoalition = self.Players[PlayerName].PenaltyCoalition + 1 - MESSAGE:New( "Player '" .. PlayerName .. "' changed coalition from " .. _SCORINGCoalition[self.Players[PlayerName].UnitCoalition] .. " to " .. _SCORINGCoalition[UnitCoalition] .. - "(changed " .. self.Players[PlayerName].PenaltyCoalition .. " times the coalition). 50 Penalty points added.", - 2 - ):ToAll() - self:ScoreCSV( PlayerName, "COALITION_PENALTY", 1, -50, self.Players[PlayerName].UnitName, _SCORINGCoalition[self.Players[PlayerName].UnitCoalition], _SCORINGCategory[self.Players[PlayerName].UnitCategory], self.Players[PlayerName].UnitType, - UnitName, _SCORINGCoalition[UnitCoalition], _SCORINGCategory[UnitCategory], UnitData:getTypeName() ) - end - end - self.Players[PlayerName].UnitName = UnitName - self.Players[PlayerName].UnitCoalition = UnitCoalition - self.Players[PlayerName].UnitCategory = UnitCategory - self.Players[PlayerName].UnitType = UnitTypeName - - if self.Players[PlayerName].Penalty > 100 then - if self.Players[PlayerName].PenaltyWarning < 1 then - MESSAGE:New( "Player '" .. PlayerName .. "': WARNING! If you continue to commit FRATRICIDE and have a PENALTY score higher than 150, you will be COURT MARTIALED and DISMISSED from this mission! \nYour total penalty is: " .. self.Players[PlayerName].Penalty, - 30 - ):ToAll() - self.Players[PlayerName].PenaltyWarning = self.Players[PlayerName].PenaltyWarning + 1 - end - end - - if self.Players[PlayerName].Penalty > 150 then - ClientGroup = GROUP:NewFromDCSUnit( UnitData ) - ClientGroup:Destroy() - MESSAGE:New( "Player '" .. PlayerName .. "' committed FRATRICIDE, he will be COURT MARTIALED and is DISMISSED from this mission!", - 10 - ):ToAll() - end - - end -end - - ---- Registers Scores the players completing a Mission Task. -function SCORING:_AddMissionTaskScore( PlayerUnit, MissionName, Score ) - self:F( { PlayerUnit, MissionName, Score } ) - - local PlayerName = PlayerUnit:getPlayerName() - - if not self.Players[PlayerName].Mission[MissionName] then - self.Players[PlayerName].Mission[MissionName] = {} - self.Players[PlayerName].Mission[MissionName].ScoreTask = 0 - self.Players[PlayerName].Mission[MissionName].ScoreMission = 0 - end - - self:T( PlayerName ) - self:T( self.Players[PlayerName].Mission[MissionName] ) - - self.Players[PlayerName].Score = self.Players[PlayerName].Score + Score - self.Players[PlayerName].Mission[MissionName].ScoreTask = self.Players[PlayerName].Mission[MissionName].ScoreTask + Score - - MESSAGE:New( "Player '" .. PlayerName .. "' has finished another Task in Mission '" .. MissionName .. "'. " .. - Score .. " Score points added.", - 20 ):ToAll() - - self:ScoreCSV( PlayerName, "TASK_" .. MissionName:gsub( ' ', '_' ), 1, Score, PlayerUnit:getName() ) -end - - ---- Registers Mission Scores for possible multiple players that contributed in the Mission. -function SCORING:_AddMissionScore( MissionName, Score ) - self:F( { MissionName, Score } ) - - for PlayerName, PlayerData in pairs( self.Players ) do - - if PlayerData.Mission[MissionName] then - PlayerData.Score = PlayerData.Score + Score - PlayerData.Mission[MissionName].ScoreMission = PlayerData.Mission[MissionName].ScoreMission + Score - MESSAGE:New( "Player '" .. PlayerName .. "' has finished Mission '" .. MissionName .. "'. " .. - Score .. " Score points added.", - 20 ):ToAll() - self:ScoreCSV( PlayerName, "MISSION_" .. MissionName:gsub( ' ', '_' ), 1, Score ) - end - end -end - ---- Handles the OnHit event for the scoring. --- @param #SCORING self --- @param Event#EVENTDATA Event -function SCORING:_EventOnHit( Event ) - self:F( { Event } ) - - local InitUnit = nil - local InitUnitName = "" - local InitGroup = nil - local InitGroupName = "" - local InitPlayerName = nil - - local InitCoalition = nil - local InitCategory = nil - local InitType = nil - local InitUnitCoalition = nil - local InitUnitCategory = nil - local InitUnitType = nil - - local TargetUnit = nil - local TargetUnitName = "" - local TargetGroup = nil - local TargetGroupName = "" - local TargetPlayerName = "" - - local TargetCoalition = nil - local TargetCategory = nil - local TargetType = nil - local TargetUnitCoalition = nil - local TargetUnitCategory = nil - local TargetUnitType = nil - - if Event.IniDCSUnit then - - InitUnit = Event.IniDCSUnit - InitUnitName = Event.IniDCSUnitName - InitGroup = Event.IniDCSGroup - InitGroupName = Event.IniDCSGroupName - InitPlayerName = InitUnit:getPlayerName() - - InitCoalition = InitUnit:getCoalition() - --TODO: Workaround Client DCS Bug - --InitCategory = InitUnit:getCategory() - InitCategory = InitUnit:getDesc().category - InitType = InitUnit:getTypeName() - - InitUnitCoalition = _SCORINGCoalition[InitCoalition] - InitUnitCategory = _SCORINGCategory[InitCategory] - InitUnitType = InitType - - self:T( { InitUnitName, InitGroupName, InitPlayerName, InitCoalition, InitCategory, InitType , InitUnitCoalition, InitUnitCategory, InitUnitType } ) - end - - - if Event.TgtDCSUnit then - - TargetUnit = Event.TgtDCSUnit - TargetUnitName = Event.TgtDCSUnitName - TargetGroup = Event.TgtDCSGroup - TargetGroupName = Event.TgtDCSGroupName - TargetPlayerName = TargetUnit:getPlayerName() - - TargetCoalition = TargetUnit:getCoalition() - --TODO: Workaround Client DCS Bug - --TargetCategory = TargetUnit:getCategory() - TargetCategory = TargetUnit:getDesc().category - TargetType = TargetUnit:getTypeName() - - TargetUnitCoalition = _SCORINGCoalition[TargetCoalition] - TargetUnitCategory = _SCORINGCategory[TargetCategory] - TargetUnitType = TargetType - - self:T( { TargetUnitName, TargetGroupName, TargetPlayerName, TargetCoalition, TargetCategory, TargetType, TargetUnitCoalition, TargetUnitCategory, TargetUnitType } ) - end - - if InitPlayerName ~= nil then -- It is a player that is hitting something - self:_AddPlayerFromUnit( InitUnit ) - if self.Players[InitPlayerName] then -- This should normally not happen, but i'll test it anyway. - if TargetPlayerName ~= nil then -- It is a player hitting another player ... - self:_AddPlayerFromUnit( TargetUnit ) - self.Players[InitPlayerName].HitPlayers = self.Players[InitPlayerName].HitPlayers + 1 - end - - self:T( "Hitting Something" ) - -- What is he hitting? - if TargetCategory then - if not self.Players[InitPlayerName].Hit[TargetCategory] then - self.Players[InitPlayerName].Hit[TargetCategory] = {} - end - if not self.Players[InitPlayerName].Hit[TargetCategory][TargetUnitName] then - self.Players[InitPlayerName].Hit[TargetCategory][TargetUnitName] = {} - self.Players[InitPlayerName].Hit[TargetCategory][TargetUnitName].Score = 0 - self.Players[InitPlayerName].Hit[TargetCategory][TargetUnitName].Penalty = 0 - self.Players[InitPlayerName].Hit[TargetCategory][TargetUnitName].ScoreHit = 0 - self.Players[InitPlayerName].Hit[TargetCategory][TargetUnitName].PenaltyHit = 0 - end - local Score = 0 - if InitCoalition == TargetCoalition then - self.Players[InitPlayerName].Penalty = self.Players[InitPlayerName].Penalty + 10 - self.Players[InitPlayerName].Hit[TargetCategory][TargetUnitName].Penalty = self.Players[InitPlayerName].Hit[TargetCategory][TargetUnitName].Penalty + 10 - self.Players[InitPlayerName].Hit[TargetCategory][TargetUnitName].PenaltyHit = self.Players[InitPlayerName].Hit[TargetCategory][TargetUnitName].PenaltyHit + 1 - MESSAGE:New( "Player '" .. InitPlayerName .. "' hit a friendly " .. TargetUnitCategory .. " ( " .. TargetType .. " ) " .. - self.Players[InitPlayerName].Hit[TargetCategory][TargetUnitName].PenaltyHit .. " times. Penalty: -" .. self.Players[InitPlayerName].Hit[TargetCategory][TargetUnitName].Penalty .. - ". Score Total:" .. self.Players[InitPlayerName].Score - self.Players[InitPlayerName].Penalty, - 2 - ):ToAll() - self:ScoreCSV( InitPlayerName, "HIT_PENALTY", 1, -25, InitUnitName, InitUnitCoalition, InitUnitCategory, InitUnitType, TargetUnitName, TargetUnitCoalition, TargetUnitCategory, TargetUnitType ) - else - self.Players[InitPlayerName].Score = self.Players[InitPlayerName].Score + 10 - self.Players[InitPlayerName].Hit[TargetCategory][TargetUnitName].Score = self.Players[InitPlayerName].Hit[TargetCategory][TargetUnitName].Score + 1 - self.Players[InitPlayerName].Hit[TargetCategory][TargetUnitName].ScoreHit = self.Players[InitPlayerName].Hit[TargetCategory][TargetUnitName].ScoreHit + 1 - MESSAGE:New( "Player '" .. InitPlayerName .. "' hit a target " .. TargetUnitCategory .. " ( " .. TargetType .. " ) " .. - self.Players[InitPlayerName].Hit[TargetCategory][TargetUnitName].ScoreHit .. " times. Score: " .. self.Players[InitPlayerName].Hit[TargetCategory][TargetUnitName].Score .. - ". Score Total:" .. self.Players[InitPlayerName].Score - self.Players[InitPlayerName].Penalty, - 2 - ):ToAll() - self:ScoreCSV( InitPlayerName, "HIT_SCORE", 1, 1, InitUnitName, InitUnitCoalition, InitUnitCategory, InitUnitType, TargetUnitName, TargetUnitCoalition, TargetUnitCategory, TargetUnitType ) - end - end - end - elseif InitPlayerName == nil then -- It is an AI hitting a player??? - - end -end - - -function SCORING:ReportScoreAll() - - env.info( "Hello World " ) - - local ScoreMessage = "" - local PlayerMessage = "" - - self:T( "Score Report" ) - - for PlayerName, PlayerData in pairs( self.Players ) do - if PlayerData then -- This should normally not happen, but i'll test it anyway. - self:T( "Score Player: " .. PlayerName ) - - -- Some variables - local InitUnitCoalition = _SCORINGCoalition[PlayerData.UnitCoalition] - local InitUnitCategory = _SCORINGCategory[PlayerData.UnitCategory] - local InitUnitType = PlayerData.UnitType - local InitUnitName = PlayerData.UnitName - - local PlayerScore = 0 - local PlayerPenalty = 0 - - ScoreMessage = ":\n" - - local ScoreMessageHits = "" - - for CategoryID, CategoryName in pairs( _SCORINGCategory ) do - self:T( CategoryName ) - if PlayerData.Hit[CategoryID] then - local Score = 0 - local ScoreHit = 0 - local Penalty = 0 - local PenaltyHit = 0 - self:T( "Hit scores exist for player " .. PlayerName ) - for UnitName, UnitData in pairs( PlayerData.Hit[CategoryID] ) do - Score = Score + UnitData.Score - ScoreHit = ScoreHit + UnitData.ScoreHit - Penalty = Penalty + UnitData.Penalty - PenaltyHit = UnitData.PenaltyHit - end - local ScoreMessageHit = string.format( "%s:%d ", CategoryName, Score - Penalty ) - self:T( ScoreMessageHit ) - ScoreMessageHits = ScoreMessageHits .. ScoreMessageHit - PlayerScore = PlayerScore + Score - PlayerPenalty = PlayerPenalty + Penalty - else - --ScoreMessageHits = ScoreMessageHits .. string.format( "%s:%d ", string.format(CategoryName, 1, 1), 0 ) - end - end - if ScoreMessageHits ~= "" then - ScoreMessage = ScoreMessage .. " Hits: " .. ScoreMessageHits .. "\n" - end - - local ScoreMessageKills = "" - for CategoryID, CategoryName in pairs( _SCORINGCategory ) do - self:T( "Kill scores exist for player " .. PlayerName ) - if PlayerData.Kill[CategoryID] then - local Score = 0 - local ScoreKill = 0 - local Penalty = 0 - local PenaltyKill = 0 - - for UnitName, UnitData in pairs( PlayerData.Kill[CategoryID] ) do - Score = Score + UnitData.Score - ScoreKill = ScoreKill + UnitData.ScoreKill - Penalty = Penalty + UnitData.Penalty - PenaltyKill = PenaltyKill + UnitData.PenaltyKill - end - - local ScoreMessageKill = string.format( " %s:%d ", CategoryName, Score - Penalty ) - self:T( ScoreMessageKill ) - ScoreMessageKills = ScoreMessageKills .. ScoreMessageKill - - PlayerScore = PlayerScore + Score - PlayerPenalty = PlayerPenalty + Penalty - else - --ScoreMessageKills = ScoreMessageKills .. string.format( "%s:%d ", string.format(CategoryName, 1, 1), 0 ) - end - end - if ScoreMessageKills ~= "" then - ScoreMessage = ScoreMessage .. " Kills: " .. ScoreMessageKills .. "\n" - end - - local ScoreMessageCoalitionChangePenalties = "" - if PlayerData.PenaltyCoalition ~= 0 then - ScoreMessageCoalitionChangePenalties = ScoreMessageCoalitionChangePenalties .. string.format( " -%d (%d changed)", PlayerData.Penalty, PlayerData.PenaltyCoalition ) - PlayerPenalty = PlayerPenalty + PlayerData.Penalty - end - if ScoreMessageCoalitionChangePenalties ~= "" then - ScoreMessage = ScoreMessage .. " Coalition Penalties: " .. ScoreMessageCoalitionChangePenalties .. "\n" - end - - local ScoreMessageMission = "" - local ScoreMission = 0 - local ScoreTask = 0 - for MissionName, MissionData in pairs( PlayerData.Mission ) do - ScoreMission = ScoreMission + MissionData.ScoreMission - ScoreTask = ScoreTask + MissionData.ScoreTask - ScoreMessageMission = ScoreMessageMission .. "'" .. MissionName .. "'; " - end - PlayerScore = PlayerScore + ScoreMission + ScoreTask - - if ScoreMessageMission ~= "" then - ScoreMessage = ScoreMessage .. " Tasks: " .. ScoreTask .. " Mission: " .. ScoreMission .. " ( " .. ScoreMessageMission .. ")\n" - end - - PlayerMessage = PlayerMessage .. string.format( "Player '%s' Score:%d (%d Score -%d Penalties)%s", PlayerName, PlayerScore - PlayerPenalty, PlayerScore, PlayerPenalty, ScoreMessage ) - end - end - MESSAGE:New( PlayerMessage, 30, "Player Scores" ):ToAll() -end - - -function SCORING:ReportScorePlayer() - - env.info( "Hello World " ) - - local ScoreMessage = "" - local PlayerMessage = "" - - self:T( "Score Report" ) - - for PlayerName, PlayerData in pairs( self.Players ) do - if PlayerData then -- This should normally not happen, but i'll test it anyway. - self:T( "Score Player: " .. PlayerName ) - - -- Some variables - local InitUnitCoalition = _SCORINGCoalition[PlayerData.UnitCoalition] - local InitUnitCategory = _SCORINGCategory[PlayerData.UnitCategory] - local InitUnitType = PlayerData.UnitType - local InitUnitName = PlayerData.UnitName - - local PlayerScore = 0 - local PlayerPenalty = 0 - - ScoreMessage = "" - - local ScoreMessageHits = "" - - for CategoryID, CategoryName in pairs( _SCORINGCategory ) do - self:T( CategoryName ) - if PlayerData.Hit[CategoryID] then - local Score = 0 - local ScoreHit = 0 - local Penalty = 0 - local PenaltyHit = 0 - self:T( "Hit scores exist for player " .. PlayerName ) - for UnitName, UnitData in pairs( PlayerData.Hit[CategoryID] ) do - Score = Score + UnitData.Score - ScoreHit = ScoreHit + UnitData.ScoreHit - Penalty = Penalty + UnitData.Penalty - PenaltyHit = UnitData.PenaltyHit - end - local ScoreMessageHit = string.format( "\n %s = %d score(%d;-%d) hits(#%d;#-%d)", CategoryName, Score - Penalty, Score, Penalty, ScoreHit, PenaltyHit ) - self:T( ScoreMessageHit ) - ScoreMessageHits = ScoreMessageHits .. ScoreMessageHit - PlayerScore = PlayerScore + Score - PlayerPenalty = PlayerPenalty + Penalty - else - --ScoreMessageHits = ScoreMessageHits .. string.format( "%s:%d ", string.format(CategoryName, 1, 1), 0 ) - end - end - if ScoreMessageHits ~= "" then - ScoreMessage = ScoreMessage .. "\n Hits: " .. ScoreMessageHits .. " " - end - - local ScoreMessageKills = "" - for CategoryID, CategoryName in pairs( _SCORINGCategory ) do - self:T( "Kill scores exist for player " .. PlayerName ) - if PlayerData.Kill[CategoryID] then - local Score = 0 - local ScoreKill = 0 - local Penalty = 0 - local PenaltyKill = 0 - - for UnitName, UnitData in pairs( PlayerData.Kill[CategoryID] ) do - Score = Score + UnitData.Score - ScoreKill = ScoreKill + UnitData.ScoreKill - Penalty = Penalty + UnitData.Penalty - PenaltyKill = PenaltyKill + UnitData.PenaltyKill - end - - local ScoreMessageKill = string.format( "\n %s = %d score(%d;-%d) hits(#%d;#-%d)", CategoryName, Score - Penalty, Score, Penalty, ScoreKill, PenaltyKill ) - self:T( ScoreMessageKill ) - ScoreMessageKills = ScoreMessageKills .. ScoreMessageKill - - PlayerScore = PlayerScore + Score - PlayerPenalty = PlayerPenalty + Penalty - else - --ScoreMessageKills = ScoreMessageKills .. string.format( "%s:%d ", string.format(CategoryName, 1, 1), 0 ) - end - end - if ScoreMessageKills ~= "" then - ScoreMessage = ScoreMessage .. "\n Kills: " .. ScoreMessageKills .. " " - end - - local ScoreMessageCoalitionChangePenalties = "" - if PlayerData.PenaltyCoalition ~= 0 then - ScoreMessageCoalitionChangePenalties = ScoreMessageCoalitionChangePenalties .. string.format( " -%d (%d changed)", PlayerData.Penalty, PlayerData.PenaltyCoalition ) - PlayerPenalty = PlayerPenalty + PlayerData.Penalty - end - if ScoreMessageCoalitionChangePenalties ~= "" then - ScoreMessage = ScoreMessage .. "\n Coalition: " .. ScoreMessageCoalitionChangePenalties .. " " - end - - local ScoreMessageMission = "" - local ScoreMission = 0 - local ScoreTask = 0 - for MissionName, MissionData in pairs( PlayerData.Mission ) do - ScoreMission = ScoreMission + MissionData.ScoreMission - ScoreTask = ScoreTask + MissionData.ScoreTask - ScoreMessageMission = ScoreMessageMission .. "'" .. MissionName .. "'; " - end - PlayerScore = PlayerScore + ScoreMission + ScoreTask - - if ScoreMessageMission ~= "" then - ScoreMessage = ScoreMessage .. "\n Tasks: " .. ScoreTask .. " Mission: " .. ScoreMission .. " ( " .. ScoreMessageMission .. ") " - end - - PlayerMessage = PlayerMessage .. string.format( "Player '%s' Score = %d ( %d Score, -%d Penalties ):%s", PlayerName, PlayerScore - PlayerPenalty, PlayerScore, PlayerPenalty, ScoreMessage ) - end - end - MESSAGE:New( PlayerMessage, 30, "Player Scores" ):ToAll() - -end - - -function SCORING:SecondsToClock(sSeconds) - local nSeconds = sSeconds - if nSeconds == 0 then - --return nil; - return "00:00:00"; - else - nHours = string.format("%02.f", math.floor(nSeconds/3600)); - nMins = string.format("%02.f", math.floor(nSeconds/60 - (nHours*60))); - nSecs = string.format("%02.f", math.floor(nSeconds - nHours*3600 - nMins *60)); - return nHours..":"..nMins..":"..nSecs - end -end - ---- Opens a score CSV file to log the scores. --- @param #SCORING self --- @param #string ScoringCSV --- @return #SCORING self --- @usage --- -- Open a new CSV file to log the scores of the game Gori Valley. Let the name of the CSV file begin with "Player Scores". --- ScoringObject = SCORING:New( "Gori Valley" ) --- ScoringObject:OpenCSV( "Player Scores" ) -function SCORING:OpenCSV( ScoringCSV ) - self:F( ScoringCSV ) - - if lfs and io and os then - if ScoringCSV then - self.ScoringCSV = ScoringCSV - local fdir = lfs.writedir() .. [[Logs\]] .. self.ScoringCSV .. " " .. os.date( "%Y-%m-%d %H-%M-%S" ) .. ".csv" - - self.CSVFile, self.err = io.open( fdir, "w+" ) - if not self.CSVFile then - error( "Error: Cannot open CSV file in " .. lfs.writedir() ) - end - - self.CSVFile:write( '"GameName","RunTime","Time","PlayerName","ScoreType","PlayerUnitCoaltion","PlayerUnitCategory","PlayerUnitType","PlayerUnitName","TargetUnitCoalition","TargetUnitCategory","TargetUnitType","TargetUnitName","Times","Score"\n' ) - - self.RunTime = os.date("%y-%m-%d_%H-%M-%S") - else - error( "A string containing the CSV file name must be given." ) - end - else - self:E( "The MissionScripting.lua file has not been changed to allow lfs, io and os modules to be used..." ) - end - return self -end - - ---- Registers a score for a player. --- @param #SCORING self --- @param #string PlayerName The name of the player. --- @param #string ScoreType The type of the score. --- @param #string ScoreTimes The amount of scores achieved. --- @param #string ScoreAmount The score given. --- @param #string PlayerUnitName The unit name of the player. --- @param #string PlayerUnitCoalition The coalition of the player unit. --- @param #string PlayerUnitCategory The category of the player unit. --- @param #string PlayerUnitType The type of the player unit. --- @param #string TargetUnitName The name of the target unit. --- @param #string TargetUnitCoalition The coalition of the target unit. --- @param #string TargetUnitCategory The category of the target unit. --- @param #string TargetUnitType The type of the target unit. --- @return #SCORING self -function SCORING:ScoreCSV( PlayerName, ScoreType, ScoreTimes, ScoreAmount, PlayerUnitName, PlayerUnitCoalition, PlayerUnitCategory, PlayerUnitType, TargetUnitName, TargetUnitCoalition, TargetUnitCategory, TargetUnitType ) - --write statistic information to file - local ScoreTime = self:SecondsToClock( timer.getTime() ) - PlayerName = PlayerName:gsub( '"', '_' ) - - if PlayerUnitName and PlayerUnitName ~= '' then - local PlayerUnit = Unit.getByName( PlayerUnitName ) - - if PlayerUnit then - if not PlayerUnitCategory then - --PlayerUnitCategory = SCORINGCategory[PlayerUnit:getCategory()] - PlayerUnitCategory = _SCORINGCategory[PlayerUnit:getDesc().category] - end - - if not PlayerUnitCoalition then - PlayerUnitCoalition = _SCORINGCoalition[PlayerUnit:getCoalition()] - end - - if not PlayerUnitType then - PlayerUnitType = PlayerUnit:getTypeName() - end - else - PlayerUnitName = '' - PlayerUnitCategory = '' - PlayerUnitCoalition = '' - PlayerUnitType = '' - end - else - PlayerUnitName = '' - PlayerUnitCategory = '' - PlayerUnitCoalition = '' - PlayerUnitType = '' - end - - if not TargetUnitCoalition then - TargetUnitCoalition = '' - end - - if not TargetUnitCategory then - TargetUnitCategory = '' - end - - if not TargetUnitType then - TargetUnitType = '' - end - - if not TargetUnitName then - TargetUnitName = '' - end - - if lfs and io and os then - self.CSVFile:write( - '"' .. self.GameName .. '"' .. ',' .. - '"' .. self.RunTime .. '"' .. ',' .. - '' .. ScoreTime .. '' .. ',' .. - '"' .. PlayerName .. '"' .. ',' .. - '"' .. ScoreType .. '"' .. ',' .. - '"' .. PlayerUnitCoalition .. '"' .. ',' .. - '"' .. PlayerUnitCategory .. '"' .. ',' .. - '"' .. PlayerUnitType .. '"' .. ',' .. - '"' .. PlayerUnitName .. '"' .. ',' .. - '"' .. TargetUnitCoalition .. '"' .. ',' .. - '"' .. TargetUnitCategory .. '"' .. ',' .. - '"' .. TargetUnitType .. '"' .. ',' .. - '"' .. TargetUnitName .. '"' .. ',' .. - '' .. ScoreTimes .. '' .. ',' .. - '' .. ScoreAmount - ) - - self.CSVFile:write( "\n" ) - end -end - - -function SCORING:CloseCSV() - if lfs and io and os then - self.CSVFile:close() - end -end - ---- CARGO Classes --- @module CARGO - - - - - - - ---- Clients are those Groups defined within the Mission Editor that have the skillset defined as "Client" or "Player". --- These clients are defined within the Mission Orchestration Framework (MOF) - -CARGOS = {} - - -CARGO_ZONE = { - ClassName="CARGO_ZONE", - CargoZoneName = '', - CargoHostUnitName = '', - SIGNAL = { - TYPE = { - SMOKE = { ID = 1, TEXT = "smoke" }, - FLARE = { ID = 2, TEXT = "flare" } - }, - COLOR = { - GREEN = { ID = 1, TRIGGERCOLOR = trigger.smokeColor.Green, TEXT = "A green" }, - RED = { ID = 2, TRIGGERCOLOR = trigger.smokeColor.Red, TEXT = "A red" }, - WHITE = { ID = 3, TRIGGERCOLOR = trigger.smokeColor.White, TEXT = "A white" }, - ORANGE = { ID = 4, TRIGGERCOLOR = trigger.smokeColor.Orange, TEXT = "An orange" }, - BLUE = { ID = 5, TRIGGERCOLOR = trigger.smokeColor.Blue, TEXT = "A blue" }, - YELLOW = { ID = 6, TRIGGERCOLOR = trigger.flareColor.Yellow, TEXT = "A yellow" } - } - } -} - ---- Creates a new zone where cargo can be collected or deployed. --- The zone functionality is useful to smoke or indicate routes for cargo pickups or deployments. --- Provide the zone name as declared in the mission file into the CargoZoneName in the :New method. --- An optional parameter is the CargoHostName, which is a Group declared with Late Activation switched on in the mission file. --- The CargoHostName is the "host" of the cargo zone: --- --- * It will smoke the zone position when a client is approaching the zone. --- * Depending on the cargo type, it will assist in the delivery of the cargo by driving to and from the client. --- --- @param #CARGO_ZONE self --- @param #string CargoZoneName The name of the zone as declared within the mission editor. --- @param #string CargoHostName The name of the Group "hosting" the zone. The Group MUST NOT be a static, and must be a "mobile" unit. -function CARGO_ZONE:New( CargoZoneName, CargoHostName ) local self = BASE:Inherit( self, ZONE:New( CargoZoneName ) ) - self:F( { CargoZoneName, CargoHostName } ) - - self.CargoZoneName = CargoZoneName - self.SignalHeight = 2 - --self.CargoZone = trigger.misc.getZone( CargoZoneName ) - - - if CargoHostName then - self.CargoHostName = CargoHostName - end - - self:T( self.CargoZoneName ) - - return self -end - -function CARGO_ZONE:Spawn() - self:F( self.CargoHostName ) - - if self.CargoHostName then -- Only spawn a host in the zone when there is one given as a parameter in the New function. - if self.CargoHostSpawn then - local CargoHostGroup = self.CargoHostSpawn:GetGroupFromIndex() - if CargoHostGroup and CargoHostGroup:IsAlive() then - else - self.CargoHostSpawn:ReSpawn( 1 ) - end - else - self:T( "Initialize CargoHostSpawn" ) - self.CargoHostSpawn = SPAWN:New( self.CargoHostName ):Limit( 1, 1 ) - self.CargoHostSpawn:ReSpawn( 1 ) - end - end - - return self -end - -function CARGO_ZONE:GetHostUnit() - self:F( self ) - - if self.CargoHostName then - - -- A Host has been given, signal the host - local CargoHostGroup = self.CargoHostSpawn:GetGroupFromIndex() - local CargoHostUnit - if CargoHostGroup and CargoHostGroup:IsAlive() then - CargoHostUnit = CargoHostGroup:GetUnit(1) - else - CargoHostUnit = StaticObject.getByName( self.CargoHostName ) - end - - return CargoHostUnit - end - - return nil -end - -function CARGO_ZONE:ReportCargosToClient( Client, CargoType ) - self:F() - - local SignalUnit = self:GetHostUnit() - - if SignalUnit then - - local SignalUnitTypeName = SignalUnit:getTypeName() - - local HostMessage = "" - - local IsCargo = false - for CargoID, Cargo in pairs( CARGOS ) do - if Cargo.CargoType == Task.CargoType then - if Cargo:IsStatusNone() then - HostMessage = HostMessage .. " - " .. Cargo.CargoName .. " - " .. Cargo.CargoType .. " (" .. Cargo.Weight .. "kg)" .. "\n" - IsCargo = true - end - end - end - - if not IsCargo then - HostMessage = "No Cargo Available." - end - - Client:Message( HostMessage, 20, SignalUnitTypeName .. ": Reporting Cargo", 10 ) - end -end - - -function CARGO_ZONE:Signal() - self:F() - - local Signalled = false - - if self.SignalType then - - if self.CargoHostName then - - -- A Host has been given, signal the host - - local SignalUnit = self:GetHostUnit() - - if SignalUnit then - - self:T( 'Signalling Unit' ) - local SignalVehiclePos = SignalUnit:GetPointVec3() - SignalVehiclePos.y = SignalVehiclePos.y + 2 - - if self.SignalType.ID == CARGO_ZONE.SIGNAL.TYPE.SMOKE.ID then - - trigger.action.smoke( SignalVehiclePos, self.SignalColor.TRIGGERCOLOR ) - Signalled = true - - elseif self.SignalType.ID == CARGO_ZONE.SIGNAL.TYPE.FLARE.ID then - - trigger.action.signalFlare( SignalVehiclePos, self.SignalColor.TRIGGERCOLOR , 0 ) - Signalled = false - - end - end - - else - - local ZonePointVec3 = self:GetPointVec3( self.SignalHeight ) -- Get the zone position + the landheight + 2 meters - - if self.SignalType.ID == CARGO_ZONE.SIGNAL.TYPE.SMOKE.ID then - - trigger.action.smoke( ZonePointVec3, self.SignalColor.TRIGGERCOLOR ) - Signalled = true - - elseif self.SignalType.ID == CARGO_ZONE.SIGNAL.TYPE.FLARE.ID then - trigger.action.signalFlare( ZonePointVec3, self.SignalColor.TRIGGERCOLOR, 0 ) - Signalled = false - - end - end - end - - return Signalled - -end - -function CARGO_ZONE:WhiteSmoke( SignalHeight ) - self:F() - - self.SignalType = CARGO_ZONE.SIGNAL.TYPE.SMOKE - self.SignalColor = CARGO_ZONE.SIGNAL.COLOR.WHITE - - if SignalHeight then - self.SignalHeight = SignalHeight - end - - return self -end - -function CARGO_ZONE:BlueSmoke( SignalHeight ) - self:F() - - self.SignalType = CARGO_ZONE.SIGNAL.TYPE.SMOKE - self.SignalColor = CARGO_ZONE.SIGNAL.COLOR.BLUE - - if SignalHeight then - self.SignalHeight = SignalHeight - end - - return self -end - -function CARGO_ZONE:RedSmoke( SignalHeight ) - self:F() - - self.SignalType = CARGO_ZONE.SIGNAL.TYPE.SMOKE - self.SignalColor = CARGO_ZONE.SIGNAL.COLOR.RED - - if SignalHeight then - self.SignalHeight = SignalHeight - end - - return self -end - -function CARGO_ZONE:OrangeSmoke( SignalHeight ) - self:F() - - self.SignalType = CARGO_ZONE.SIGNAL.TYPE.SMOKE - self.SignalColor = CARGO_ZONE.SIGNAL.COLOR.ORANGE - - if SignalHeight then - self.SignalHeight = SignalHeight - end - - return self -end - -function CARGO_ZONE:GreenSmoke( SignalHeight ) - self:F() - - self.SignalType = CARGO_ZONE.SIGNAL.TYPE.SMOKE - self.SignalColor = CARGO_ZONE.SIGNAL.COLOR.GREEN - - if SignalHeight then - self.SignalHeight = SignalHeight - end - - return self -end - - -function CARGO_ZONE:WhiteFlare( SignalHeight ) - self:F() - - self.SignalType = CARGO_ZONE.SIGNAL.TYPE.FLARE - self.SignalColor = CARGO_ZONE.SIGNAL.COLOR.WHITE - - if SignalHeight then - self.SignalHeight = SignalHeight - end - - return self -end - -function CARGO_ZONE:RedFlare( SignalHeight ) - self:F() - - self.SignalType = CARGO_ZONE.SIGNAL.TYPE.FLARE - self.SignalColor = CARGO_ZONE.SIGNAL.COLOR.RED - - if SignalHeight then - self.SignalHeight = SignalHeight - end - - return self -end - -function CARGO_ZONE:GreenFlare( SignalHeight ) - self:F() - - self.SignalType = CARGO_ZONE.SIGNAL.TYPE.FLARE - self.SignalColor = CARGO_ZONE.SIGNAL.COLOR.GREEN - - if SignalHeight then - self.SignalHeight = SignalHeight - end - - return self -end - -function CARGO_ZONE:YellowFlare( SignalHeight ) - self:F() - - self.SignalType = CARGO_ZONE.SIGNAL.TYPE.FLARE - self.SignalColor = CARGO_ZONE.SIGNAL.COLOR.YELLOW - - if SignalHeight then - self.SignalHeight = SignalHeight - end - - return self -end - - -function CARGO_ZONE:GetCargoHostUnit() - self:F( self ) - - if self.CargoHostSpawn then - local CargoHostGroup = self.CargoHostSpawn:GetGroupFromIndex(1) - if CargoHostGroup and CargoHostGroup:IsAlive() then - local CargoHostUnit = CargoHostGroup:GetUnit(1) - if CargoHostUnit and CargoHostUnit:IsAlive() then - return CargoHostUnit - end - end - end - - return nil -end - -function CARGO_ZONE:GetCargoZoneName() - self:F() - - return self.CargoZoneName -end - -CARGO = { - ClassName = "CARGO", - STATUS = { - NONE = 0, - LOADED = 1, - UNLOADED = 2, - LOADING = 3 - }, - CargoClient = nil -} - ---- Add Cargo to the mission... Cargo functionality needs to be reworked a bit, so this is still under construction. I need to make a CARGO Class... -function CARGO:New( CargoType, CargoName, CargoWeight ) local self = BASE:Inherit( self, BASE:New() ) - self:F( { CargoType, CargoName, CargoWeight } ) - - - self.CargoType = CargoType - self.CargoName = CargoName - self.CargoWeight = CargoWeight - - self:StatusNone() - - return self -end - -function CARGO:Spawn( Client ) - self:F() - - return self - -end - -function CARGO:IsNear( Client, LandingZone ) - self:F() - - local Near = true - - return Near - -end - - -function CARGO:IsLoadingToClient() - self:F() - - if self:IsStatusLoading() then - return self.CargoClient - end - - return nil - -end - - -function CARGO:IsLoadedInClient() - self:F() - - if self:IsStatusLoaded() then - return self.CargoClient - end - - return nil - -end - - -function CARGO:UnLoad( Client, TargetZoneName ) - self:F() - - self:StatusUnLoaded() - - return self -end - -function CARGO:OnBoard( Client, LandingZone ) - self:F() - - local Valid = true - - self.CargoClient = Client - local ClientUnit = Client:GetClientGroupDCSUnit() - - return Valid -end - -function CARGO:OnBoarded( Client, LandingZone ) - self:F() - - local OnBoarded = true - - return OnBoarded -end - -function CARGO:Load( Client ) - self:F() - - self:StatusLoaded( Client ) - - return self -end - -function CARGO:IsLandingRequired() - self:F() - return true -end - -function CARGO:IsSlingLoad() - self:F() - return false -end - - -function CARGO:StatusNone() - self:F() - - self.CargoClient = nil - self.CargoStatus = CARGO.STATUS.NONE - - return self -end - -function CARGO:StatusLoading( Client ) - self:F() - - self.CargoClient = Client - self.CargoStatus = CARGO.STATUS.LOADING - self:T( "Cargo " .. self.CargoName .. " loading to Client: " .. self.CargoClient:GetClientGroupName() ) - - return self -end - -function CARGO:StatusLoaded( Client ) - self:F() - - self.CargoClient = Client - self.CargoStatus = CARGO.STATUS.LOADED - self:T( "Cargo " .. self.CargoName .. " loaded in Client: " .. self.CargoClient:GetClientGroupName() ) - - return self -end - -function CARGO:StatusUnLoaded() - self:F() - - self.CargoClient = nil - self.CargoStatus = CARGO.STATUS.UNLOADED - - return self -end - - -function CARGO:IsStatusNone() - self:F() - - return self.CargoStatus == CARGO.STATUS.NONE -end - -function CARGO:IsStatusLoading() - self:F() - - return self.CargoStatus == CARGO.STATUS.LOADING -end - -function CARGO:IsStatusLoaded() - self:F() - - return self.CargoStatus == CARGO.STATUS.LOADED -end - -function CARGO:IsStatusUnLoaded() - self:F() - - return self.CargoStatus == CARGO.STATUS.UNLOADED -end - - -CARGO_GROUP = { - ClassName = "CARGO_GROUP" -} - - -function CARGO_GROUP:New( CargoType, CargoName, CargoWeight, CargoGroupTemplate, CargoZone ) local self = BASE:Inherit( self, CARGO:New( CargoType, CargoName, CargoWeight ) ) - self:F( { CargoType, CargoName, CargoWeight, CargoGroupTemplate, CargoZone } ) - - self.CargoSpawn = SPAWN:NewWithAlias( CargoGroupTemplate, CargoName ) - self.CargoZone = CargoZone - - CARGOS[self.CargoName] = self - - return self - -end - -function CARGO_GROUP:Spawn( Client ) - self:F( { Client } ) - - local SpawnCargo = true - - if self:IsStatusNone() then - local CargoGroup = Group.getByName( self.CargoName ) - if CargoGroup and CargoGroup:isExist() then - SpawnCargo = false - end - - elseif self:IsStatusLoading() then - - local Client = self:IsLoadingToClient() - if Client and Client:GetDCSGroup() then - SpawnCargo = false - else - local CargoGroup = Group.getByName( self.CargoName ) - if CargoGroup and CargoGroup:isExist() then - SpawnCargo = false - end - end - - elseif self:IsStatusLoaded() then - - local ClientLoaded = self:IsLoadedInClient() - -- Now test if another Client is alive (not this one), and it has the CARGO, then this cargo does not need to be initialized and spawned. - if ClientLoaded and ClientLoaded ~= Client then - local ClientGroup = Client:GetDCSGroup() - if ClientLoaded:GetClientGroupDCSUnit() and ClientLoaded:GetClientGroupDCSUnit():isExist() then - SpawnCargo = false - else - self:StatusNone() - end - else - -- Same Client, but now in initialize, so set back the status to None. - self:StatusNone() - end - - elseif self:IsStatusUnLoaded() then - - SpawnCargo = false - - end - - if SpawnCargo then - if self.CargoZone:GetCargoHostUnit() then - --- ReSpawn the Cargo from the CargoHost - self.CargoGroupName = self.CargoSpawn:SpawnFromUnit( self.CargoZone:GetCargoHostUnit(), 60, 30, 1 ):GetName() - else - --- ReSpawn the Cargo in the CargoZone without a host ... - self:T( self.CargoZone ) - self.CargoGroupName = self.CargoSpawn:SpawnInZone( self.CargoZone, true, 1 ):GetName() - end - self:StatusNone() - end - - self:T( { self.CargoGroupName, CARGOS[self.CargoName].CargoGroupName } ) - - return self -end - -function CARGO_GROUP:IsNear( Client, LandingZone ) - self:F() - - local Near = false - - if self.CargoGroupName then - local CargoGroup = Group.getByName( self.CargoGroupName ) - if routines.IsPartOfGroupInRadius( CargoGroup, Client:GetPositionVec3(), 250 ) then - Near = true - end - end - - return Near - -end - - -function CARGO_GROUP:OnBoard( Client, LandingZone, OnBoardSide ) - self:F() - - local Valid = true - - local ClientUnit = Client:GetClientGroupDCSUnit() - - local CarrierPos = ClientUnit:getPoint() - local CarrierPosMove = ClientUnit:getPoint() - local CarrierPosOnBoard = ClientUnit:getPoint() - - local CargoGroup = Group.getByName( self.CargoGroupName ) - - local CargoUnit = CargoGroup:getUnit(1) - local CargoPos = CargoUnit:getPoint() - - self.CargoInAir = CargoUnit:inAir() - - self:T( self.CargoInAir ) - - -- Only move the group to the carrier when the cargo is not in the air - -- (eg. cargo can be on a oil derrick, moving the cargo on the oil derrick will drop the cargo on the sea). - if not self.CargoInAir then - - local Points = {} - - self:T( 'CargoPos x = ' .. CargoPos.x .. " z = " .. CargoPos.z ) - self:T( 'CarrierPosMove x = ' .. CarrierPosMove.x .. " z = " .. CarrierPosMove.z ) - - Points[#Points+1] = routines.ground.buildWP( CargoPos, "Cone", 10 ) - - self:T( 'Points[1] x = ' .. Points[1].x .. " y = " .. Points[1].y ) - - if OnBoardSide == nil then - OnBoardSide = CLIENT.ONBOARDSIDE.NONE - end - - if OnBoardSide == CLIENT.ONBOARDSIDE.LEFT then - - self:T( "TransportCargoOnBoard: Onboarding LEFT" ) - CarrierPosMove.z = CarrierPosMove.z - 25 - CarrierPosOnBoard.z = CarrierPosOnBoard.z - 5 - Points[#Points+1] = routines.ground.buildWP( CarrierPosMove, "Cone", 10 ) - Points[#Points+1] = routines.ground.buildWP( CarrierPosOnBoard, "Cone", 10 ) - - elseif OnBoardSide == CLIENT.ONBOARDSIDE.RIGHT then - - self:T( "TransportCargoOnBoard: Onboarding RIGHT" ) - CarrierPosMove.z = CarrierPosMove.z + 25 - CarrierPosOnBoard.z = CarrierPosOnBoard.z + 5 - Points[#Points+1] = routines.ground.buildWP( CarrierPosMove, "Cone", 10 ) - Points[#Points+1] = routines.ground.buildWP( CarrierPosOnBoard, "Cone", 10 ) - - elseif OnBoardSide == CLIENT.ONBOARDSIDE.BACK then - - self:T( "TransportCargoOnBoard: Onboarding BACK" ) - CarrierPosMove.x = CarrierPosMove.x - 25 - CarrierPosOnBoard.x = CarrierPosOnBoard.x - 5 - Points[#Points+1] = routines.ground.buildWP( CarrierPosMove, "Cone", 10 ) - Points[#Points+1] = routines.ground.buildWP( CarrierPosOnBoard, "Cone", 10 ) - - elseif OnBoardSide == CLIENT.ONBOARDSIDE.FRONT then - - self:T( "TransportCargoOnBoard: Onboarding FRONT" ) - CarrierPosMove.x = CarrierPosMove.x + 25 - CarrierPosOnBoard.x = CarrierPosOnBoard.x + 5 - Points[#Points+1] = routines.ground.buildWP( CarrierPosMove, "Cone", 10 ) - Points[#Points+1] = routines.ground.buildWP( CarrierPosOnBoard, "Cone", 10 ) - - elseif OnBoardSide == CLIENT.ONBOARDSIDE.NONE then - - self:T( "TransportCargoOnBoard: Onboarding CENTRAL" ) - Points[#Points+1] = routines.ground.buildWP( CarrierPos, "Cone", 10 ) - - end - self:T( "TransportCargoOnBoard: Routing " .. self.CargoGroupName ) - - --routines.scheduleFunction( routines.goRoute, { self.CargoGroupName, Points}, timer.getTime() + 4 ) - SCHEDULER:New( self, routines.goRoute, { self.CargoGroupName, Points}, 4 ) - end - - self:StatusLoading( Client ) - - return Valid - -end - - -function CARGO_GROUP:OnBoarded( Client, LandingZone ) - self:F() - - local OnBoarded = false - - local CargoGroup = Group.getByName( self.CargoGroupName ) - - if not self.CargoInAir then - if routines.IsPartOfGroupInRadius( CargoGroup, Client:GetPositionVec3(), 25 ) then - CargoGroup:destroy() - self:StatusLoaded( Client ) - OnBoarded = true - end - else - CargoGroup:destroy() - self:StatusLoaded( Client ) - OnBoarded = true - end - - return OnBoarded -end - - -function CARGO_GROUP:UnLoad( Client, TargetZoneName ) - self:F() - - self:T( 'self.CargoName = ' .. self.CargoName ) - - local CargoGroup = self.CargoSpawn:SpawnFromUnit( Client:GetClientGroupUnit(), 60, 30 ) - - self.CargoGroupName = CargoGroup:GetName() - self:T( 'self.CargoGroupName = ' .. self.CargoGroupName ) - - CargoGroup:TaskRouteToZone( ZONE:New( TargetZoneName ), true ) - - self:StatusUnLoaded() - - return self -end - - -CARGO_PACKAGE = { - ClassName = "CARGO_PACKAGE" -} - - -function CARGO_PACKAGE:New( CargoType, CargoName, CargoWeight, CargoClient ) local self = BASE:Inherit( self, CARGO:New( CargoType, CargoName, CargoWeight ) ) - self:F( { CargoType, CargoName, CargoWeight, CargoClient } ) - - self.CargoClient = CargoClient - - CARGOS[self.CargoName] = self - - return self - -end - - -function CARGO_PACKAGE:Spawn( Client ) - self:F( { self, Client } ) - - -- this needs to be checked thoroughly - - local CargoClientGroup = self.CargoClient:GetDCSGroup() - if not CargoClientGroup then - if not self.CargoClientSpawn then - self.CargoClientSpawn = SPAWN:New( self.CargoClient:GetClientGroupName() ):Limit( 1, 1 ) - end - self.CargoClientSpawn:ReSpawn( 1 ) - end - - local SpawnCargo = true - - if self:IsStatusNone() then - - elseif self:IsStatusLoading() or self:IsStatusLoaded() then - - local CargoClientLoaded = self:IsLoadedInClient() - if CargoClientLoaded and CargoClientLoaded:GetDCSGroup() then - SpawnCargo = false - end - - elseif self:IsStatusUnLoaded() then - - SpawnCargo = false - - else - - end - - if SpawnCargo then - self:StatusLoaded( self.CargoClient ) - end - - return self -end - - -function CARGO_PACKAGE:IsNear( Client, LandingZone ) - self:F() - - local Near = false - - if self.CargoClient and self.CargoClient:GetDCSGroup() then - self:T( self.CargoClient.ClientName ) - self:T( 'Client Exists.' ) - - if routines.IsUnitInRadius( self.CargoClient:GetClientGroupDCSUnit(), Client:GetPositionVec3(), 150 ) then - Near = true - end - end - - return Near - -end - - -function CARGO_PACKAGE:OnBoard( Client, LandingZone, OnBoardSide ) - self:F() - - local Valid = true - - local ClientUnit = Client:GetClientGroupDCSUnit() - - local CarrierPos = ClientUnit:getPoint() - local CarrierPosMove = ClientUnit:getPoint() - local CarrierPosOnBoard = ClientUnit:getPoint() - local CarrierPosMoveAway = ClientUnit:getPoint() - - local CargoHostGroup = self.CargoClient:GetDCSGroup() - local CargoHostName = self.CargoClient:GetDCSGroup():getName() - - local CargoHostUnits = CargoHostGroup:getUnits() - local CargoPos = CargoHostUnits[1]:getPoint() - - local Points = {} - - self:T( 'CargoPos x = ' .. CargoPos.x .. " z = " .. CargoPos.z ) - self:T( 'CarrierPosMove x = ' .. CarrierPosMove.x .. " z = " .. CarrierPosMove.z ) - - Points[#Points+1] = routines.ground.buildWP( CargoPos, "Cone", 10 ) - - self:T( 'Points[1] x = ' .. Points[1].x .. " y = " .. Points[1].y ) - - if OnBoardSide == nil then - OnBoardSide = CLIENT.ONBOARDSIDE.NONE - end - - if OnBoardSide == CLIENT.ONBOARDSIDE.LEFT then - - self:T( "TransportCargoOnBoard: Onboarding LEFT" ) - CarrierPosMove.z = CarrierPosMove.z - 25 - CarrierPosOnBoard.z = CarrierPosOnBoard.z - 5 - CarrierPosMoveAway.z = CarrierPosMoveAway.z - 20 - Points[#Points+1] = routines.ground.buildWP( CarrierPosMove, "Cone", 10 ) - Points[#Points+1] = routines.ground.buildWP( CarrierPosOnBoard, "Cone", 10 ) - Points[#Points+1] = routines.ground.buildWP( CarrierPosMoveAway, "Cone", 10 ) - - elseif OnBoardSide == CLIENT.ONBOARDSIDE.RIGHT then - - self:T( "TransportCargoOnBoard: Onboarding RIGHT" ) - CarrierPosMove.z = CarrierPosMove.z + 25 - CarrierPosOnBoard.z = CarrierPosOnBoard.z + 5 - CarrierPosMoveAway.z = CarrierPosMoveAway.z + 20 - Points[#Points+1] = routines.ground.buildWP( CarrierPosMove, "Cone", 10 ) - Points[#Points+1] = routines.ground.buildWP( CarrierPosOnBoard, "Cone", 10 ) - Points[#Points+1] = routines.ground.buildWP( CarrierPosMoveAway, "Cone", 10 ) - - elseif OnBoardSide == CLIENT.ONBOARDSIDE.BACK then - - self:T( "TransportCargoOnBoard: Onboarding BACK" ) - CarrierPosMove.x = CarrierPosMove.x - 25 - CarrierPosOnBoard.x = CarrierPosOnBoard.x - 5 - CarrierPosMoveAway.x = CarrierPosMoveAway.x - 20 - Points[#Points+1] = routines.ground.buildWP( CarrierPosMove, "Cone", 10 ) - Points[#Points+1] = routines.ground.buildWP( CarrierPosOnBoard, "Cone", 10 ) - Points[#Points+1] = routines.ground.buildWP( CarrierPosMoveAway, "Cone", 10 ) - - elseif OnBoardSide == CLIENT.ONBOARDSIDE.FRONT then - - self:T( "TransportCargoOnBoard: Onboarding FRONT" ) - CarrierPosMove.x = CarrierPosMove.x + 25 - CarrierPosOnBoard.x = CarrierPosOnBoard.x + 5 - CarrierPosMoveAway.x = CarrierPosMoveAway.x + 20 - Points[#Points+1] = routines.ground.buildWP( CarrierPosMove, "Cone", 10 ) - Points[#Points+1] = routines.ground.buildWP( CarrierPosOnBoard, "Cone", 10 ) - Points[#Points+1] = routines.ground.buildWP( CarrierPosMoveAway, "Cone", 10 ) - - elseif OnBoardSide == CLIENT.ONBOARDSIDE.NONE then - - self:T( "TransportCargoOnBoard: Onboarding FRONT" ) - CarrierPosMove.x = CarrierPosMove.x + 25 - CarrierPosOnBoard.x = CarrierPosOnBoard.x + 5 - CarrierPosMoveAway.x = CarrierPosMoveAway.x + 20 - Points[#Points+1] = routines.ground.buildWP( CarrierPosMove, "Cone", 10 ) - Points[#Points+1] = routines.ground.buildWP( CarrierPosOnBoard, "Cone", 10 ) - Points[#Points+1] = routines.ground.buildWP( CarrierPosMoveAway, "Cone", 10 ) - - end - self:T( "Routing " .. CargoHostName ) - - SCHEDULER:New( self, routines.goRoute, { CargoHostName, Points }, 4 ) - - return Valid - -end - - -function CARGO_PACKAGE:OnBoarded( Client, LandingZone ) - self:F() - - local OnBoarded = false - - if self.CargoClient and self.CargoClient:GetDCSGroup() then - if routines.IsUnitInRadius( self.CargoClient:GetClientGroupDCSUnit(), self.CargoClient:GetPositionVec3(), 10 ) then - - -- Switch Cargo from self.CargoClient to Client ... Each cargo can have only one client. So assigning the new client for the cargo is enough. - self:StatusLoaded( Client ) - - -- All done, onboarded the Cargo to the new Client. - OnBoarded = true - end - end - - return OnBoarded -end - - -function CARGO_PACKAGE:UnLoad( Client, TargetZoneName ) - self:F() - - self:T( 'self.CargoName = ' .. self.CargoName ) - --self:T( 'self.CargoHostName = ' .. self.CargoHostName ) - - --self.CargoSpawn:FromCarrier( Client:GetDCSGroup(), TargetZoneName, self.CargoHostName ) - self:StatusUnLoaded() - - return Cargo -end - - -CARGO_SLINGLOAD = { - ClassName = "CARGO_SLINGLOAD" -} - - -function CARGO_SLINGLOAD:New( CargoType, CargoName, CargoWeight, CargoZone, CargoHostName, CargoCountryID ) - local self = BASE:Inherit( self, CARGO:New( CargoType, CargoName, CargoWeight ) ) - self:F( { CargoType, CargoName, CargoWeight, CargoZone, CargoHostName, CargoCountryID } ) - - self.CargoHostName = CargoHostName - - -- Cargo will be initialized around the CargoZone position. - self.CargoZone = CargoZone - - self.CargoCount = 0 - self.CargoStaticName = string.format( "%s#%03d", self.CargoName, self.CargoCount ) - - -- The country ID needs to be correctly set. - self.CargoCountryID = CargoCountryID - - CARGOS[self.CargoName] = self - - return self - -end - - -function CARGO_SLINGLOAD:IsLandingRequired() - self:F() - return false -end - - -function CARGO_SLINGLOAD:IsSlingLoad() - self:F() - return true -end - - -function CARGO_SLINGLOAD:Spawn( Client ) - self:F( { self, Client } ) - - local Zone = trigger.misc.getZone( self.CargoZone ) - - local ZonePos = {} - ZonePos.x = Zone.point.x + math.random( Zone.radius / 2 * -1, Zone.radius / 2 ) - ZonePos.y = Zone.point.z + math.random( Zone.radius / 2 * -1, Zone.radius / 2 ) - - self:T( "Cargo Location = " .. ZonePos.x .. ", " .. ZonePos.y ) - - --[[ - -- This does not work in 1.5.2. - CargoStatic = StaticObject.getByName( self.CargoName ) - if CargoStatic then - CargoStatic:destroy() - end - --]] - - CargoStatic = StaticObject.getByName( self.CargoStaticName ) - - if CargoStatic and CargoStatic:isExist() then - CargoStatic:destroy() - end - - -- I need to make every time a new cargo due to bugs in 1.5.2. - - self.CargoCount = self.CargoCount + 1 - self.CargoStaticName = string.format( "%s#%03d", self.CargoName, self.CargoCount ) - - local CargoTemplate = { - ["category"] = "Cargo", - ["shape_name"] = "ab-212_cargo", - ["type"] = "Cargo1", - ["x"] = ZonePos.x, - ["y"] = ZonePos.y, - ["mass"] = self.CargoWeight, - ["name"] = self.CargoStaticName, - ["canCargo"] = true, - ["heading"] = 0, - } - - coalition.addStaticObject( self.CargoCountryID, CargoTemplate ) - --- end - - return self -end - - -function CARGO_SLINGLOAD:IsNear( Client, LandingZone ) - self:F() - - local Near = false - - return Near -end - - -function CARGO_SLINGLOAD:IsInLandingZone( Client, LandingZone ) - self:F() - - local Near = false - - local CargoStaticUnit = StaticObject.getByName( self.CargoName ) - if CargoStaticUnit then - if routines.IsStaticInZones( CargoStaticUnit, LandingZone ) then - Near = true - end - end - - return Near -end - - -function CARGO_SLINGLOAD:OnBoard( Client, LandingZone, OnBoardSide ) - self:F() - - local Valid = true - - - return Valid -end - - -function CARGO_SLINGLOAD:OnBoarded( Client, LandingZone ) - self:F() - - local OnBoarded = false - - local CargoStaticUnit = StaticObject.getByName( self.CargoName ) - if CargoStaticUnit then - if not routines.IsStaticInZones( CargoStaticUnit, LandingZone ) then - OnBoarded = true - end - end - - return OnBoarded -end - - -function CARGO_SLINGLOAD:UnLoad( Client, TargetZoneName ) - self:F() - - self:T( 'self.CargoName = ' .. self.CargoName ) - self:T( 'self.CargoGroupName = ' .. self.CargoGroupName ) - - self:StatusUnLoaded() - - return Cargo -end ---- This module contains the MESSAGE class. --- --- 1) @{Message#MESSAGE} class, extends @{Base#BASE} --- ================================================= --- Message System to display Messages to Clients, Coalitions or All. --- Messages are shown on the display panel for an amount of seconds, and will then disappear. --- Messages can contain a category which is indicating the category of the message. --- --- 1.1) MESSAGE construction methods --- --------------------------------- --- Messages are created with @{Message#MESSAGE.New}. Note that when the MESSAGE object is created, no message is sent yet. --- To send messages, you need to use the To functions. --- --- 1.2) Send messages with MESSAGE To methods --- ------------------------------------------ --- Messages are sent to: --- --- * Clients with @{Message#MESSAGE.ToClient}. --- * Coalitions with @{Message#MESSAGE.ToCoalition}. --- * All Players with @{Message#MESSAGE.ToAll}. --- --- @module Message --- @author FlightControl - ---- The MESSAGE class --- @type MESSAGE --- @extends Base#BASE -MESSAGE = { - ClassName = "MESSAGE", - MessageCategory = 0, - MessageID = 0, -} - - ---- Creates a new MESSAGE object. Note that these MESSAGE objects are not yet displayed on the display panel. You must use the functions @{ToClient} or @{ToCoalition} or @{ToAll} to send these Messages to the respective recipients. --- @param self --- @param #string MessageText is the text of the Message. --- @param #number MessageDuration is a number in seconds of how long the MESSAGE should be shown on the display panel. --- @param #string MessageCategory (optional) is a string expressing the "category" of the Message. The category will be shown as the first text in the message followed by a ": ". --- @return #MESSAGE --- @usage --- -- Create a series of new Messages. --- -- MessageAll is meant to be sent to all players, for 25 seconds, and is classified as "Score". --- -- MessageRED is meant to be sent to the RED players only, for 10 seconds, and is classified as "End of Mission", with ID "Win". --- -- MessageClient1 is meant to be sent to a Client, for 25 seconds, and is classified as "Score", with ID "Score". --- -- MessageClient1 is meant to be sent to a Client, for 25 seconds, and is classified as "Score", with ID "Score". --- MessageAll = MESSAGE:New( "To all Players: BLUE has won! Each player of BLUE wins 50 points!", 25, "End of Mission" ) --- MessageRED = MESSAGE:New( "To the RED Players: You receive a penalty because you've killed one of your own units", 25, "Penalty" ) --- MessageClient1 = MESSAGE:New( "Congratulations, you've just hit a target", 25, "Score" ) --- MessageClient2 = MESSAGE:New( "Congratulations, you've just killed a target", 25, "Score") -function MESSAGE:New( MessageText, MessageDuration, MessageCategory ) - local self = BASE:Inherit( self, BASE:New() ) - self:F( { MessageText, MessageDuration, MessageCategory } ) - - -- When no MessageCategory is given, we don't show it as a title... - if MessageCategory and MessageCategory ~= "" then - self.MessageCategory = MessageCategory .. ": " - else - self.MessageCategory = "" - end - - self.MessageDuration = MessageDuration - self.MessageTime = timer.getTime() - self.MessageText = MessageText - - self.MessageSent = false - self.MessageGroup = false - self.MessageCoalition = false - - return self -end - ---- Sends a MESSAGE to a Client Group. Note that the Group needs to be defined within the ME with the skillset "Client" or "Player". --- @param #MESSAGE self --- @param Client#CLIENT Client is the Group of the Client. --- @return #MESSAGE --- @usage --- -- Send the 2 messages created with the @{New} method to the Client Group. --- -- Note that the Message of MessageClient2 is overwriting the Message of MessageClient1. --- ClientGroup = Group.getByName( "ClientGroup" ) --- --- MessageClient1 = MESSAGE:New( "Congratulations, you've just hit a target", "Score", 25, "Score" ):ToClient( ClientGroup ) --- MessageClient2 = MESSAGE:New( "Congratulations, you've just killed a target", "Score", 25, "Score" ):ToClient( ClientGroup ) --- or --- MESSAGE:New( "Congratulations, you've just hit a target", "Score", 25, "Score" ):ToClient( ClientGroup ) --- MESSAGE:New( "Congratulations, you've just killed a target", "Score", 25, "Score" ):ToClient( ClientGroup ) --- or --- MessageClient1 = MESSAGE:New( "Congratulations, you've just hit a target", "Score", 25, "Score" ) --- MessageClient2 = MESSAGE:New( "Congratulations, you've just killed a target", "Score", 25, "Score" ) --- MessageClient1:ToClient( ClientGroup ) --- MessageClient2:ToClient( ClientGroup ) -function MESSAGE:ToClient( Client ) - self:F( Client ) - - if Client and Client:GetClientGroupID() then - - local ClientGroupID = Client:GetClientGroupID() - self:T( self.MessageCategory .. self.MessageText:gsub("\n$",""):gsub("\n$","") .. " / " .. self.MessageDuration ) - trigger.action.outTextForGroup( ClientGroupID, self.MessageCategory .. self.MessageText:gsub("\n$",""):gsub("\n$",""), self.MessageDuration ) - end - - return self -end - ---- Sends a MESSAGE to the Blue coalition. --- @param #MESSAGE self --- @return #MESSAGE --- @usage --- -- Send a message created with the @{New} method to the BLUE coalition. --- MessageBLUE = MESSAGE:New( "To the BLUE Players: You receive a penalty because you've killed one of your own units", "Penalty", 25, "Score" ):ToBlue() --- or --- MESSAGE:New( "To the BLUE Players: You receive a penalty because you've killed one of your own units", "Penalty", 25, "Score" ):ToBlue() --- or --- MessageBLUE = MESSAGE:New( "To the BLUE Players: You receive a penalty because you've killed one of your own units", "Penalty", 25, "Score" ) --- MessageBLUE:ToBlue() -function MESSAGE:ToBlue() - self:F() - - self:ToCoalition( coalition.side.BLUE ) - - return self -end - ---- Sends a MESSAGE to the Red Coalition. --- @param #MESSAGE self --- @return #MESSAGE --- @usage --- -- Send a message created with the @{New} method to the RED coalition. --- MessageRED = MESSAGE:New( "To the RED Players: You receive a penalty because you've killed one of your own units", "Penalty", 25, "Score" ):ToRed() --- or --- MESSAGE:New( "To the RED Players: You receive a penalty because you've killed one of your own units", "Penalty", 25, "Score" ):ToRed() --- or --- MessageRED = MESSAGE:New( "To the RED Players: You receive a penalty because you've killed one of your own units", "Penalty", 25, "Score" ) --- MessageRED:ToRed() -function MESSAGE:ToRed( ) - self:F() - - self:ToCoalition( coalition.side.RED ) - - return self -end - ---- Sends a MESSAGE to a Coalition. --- @param #MESSAGE self --- @param CoalitionSide needs to be filled out by the defined structure of the standard scripting engine @{coalition.side}. --- @return #MESSAGE --- @usage --- -- Send a message created with the @{New} method to the RED coalition. --- MessageRED = MESSAGE:New( "To the RED Players: You receive a penalty because you've killed one of your own units", "Penalty", 25, "Score" ):ToCoalition( coalition.side.RED ) --- or --- MESSAGE:New( "To the RED Players: You receive a penalty because you've killed one of your own units", "Penalty", 25, "Score" ):ToCoalition( coalition.side.RED ) --- or --- MessageRED = MESSAGE:New( "To the RED Players: You receive a penalty because you've killed one of your own units", "Penalty", 25, "Score" ) --- MessageRED:ToCoalition( coalition.side.RED ) -function MESSAGE:ToCoalition( CoalitionSide ) - self:F( CoalitionSide ) - - if CoalitionSide then - self:T( self.MessageCategory .. self.MessageText:gsub("\n$",""):gsub("\n$","") .. " / " .. self.MessageDuration ) - trigger.action.outTextForCoalition( CoalitionSide, self.MessageCategory .. self.MessageText:gsub("\n$",""):gsub("\n$",""), self.MessageDuration ) - end - - return self -end - ---- Sends a MESSAGE to all players. --- @param #MESSAGE self --- @return #MESSAGE --- @usage --- -- Send a message created to all players. --- MessageAll = MESSAGE:New( "To all Players: BLUE has won! Each player of BLUE wins 50 points!", "End of Mission", 25, "Win" ):ToAll() --- or --- MESSAGE:New( "To all Players: BLUE has won! Each player of BLUE wins 50 points!", "End of Mission", 25, "Win" ):ToAll() --- or --- MessageAll = MESSAGE:New( "To all Players: BLUE has won! Each player of BLUE wins 50 points!", "End of Mission", 25, "Win" ) --- MessageAll:ToAll() -function MESSAGE:ToAll() - self:F() - - self:ToCoalition( coalition.side.RED ) - self:ToCoalition( coalition.side.BLUE ) - - return self -end - - - ------ The MESSAGEQUEUE class ----- @type MESSAGEQUEUE ---MESSAGEQUEUE = { --- ClientGroups = {}, --- CoalitionSides = {} ---} --- ---function MESSAGEQUEUE:New( RefreshInterval ) --- local self = BASE:Inherit( self, BASE:New() ) --- self:F( { RefreshInterval } ) --- --- self.RefreshInterval = RefreshInterval --- --- --self.DisplayFunction = routines.scheduleFunction( self._DisplayMessages, { self }, 0, RefreshInterval ) --- self.DisplayFunction = SCHEDULER:New( self, self._DisplayMessages, {}, 0, RefreshInterval ) --- --- return self ---end --- ------ This function is called automatically by the MESSAGEQUEUE scheduler. ---function MESSAGEQUEUE:_DisplayMessages() --- --- -- First we display all messages that a coalition needs to receive... Also those who are not in a client (CA module clients...). --- for CoalitionSideID, CoalitionSideData in pairs( self.CoalitionSides ) do --- for MessageID, MessageData in pairs( CoalitionSideData.Messages ) do --- if MessageData.MessageSent == false then --- --trigger.action.outTextForCoalition( CoalitionSideID, MessageData.MessageCategory .. '\n' .. MessageData.MessageText:gsub("\n$",""):gsub("\n$",""), MessageData.MessageDuration ) --- MessageData.MessageSent = true --- end --- local MessageTimeLeft = ( MessageData.MessageTime + MessageData.MessageDuration ) - timer.getTime() --- if MessageTimeLeft <= 0 then --- MessageData = nil --- end --- end --- end --- --- -- Then we send the messages for each individual client, but also to be included are those Coalition messages for the Clients who belong to a coalition. --- -- Because the Client messages will overwrite the Coalition messages (for that Client). --- for ClientGroupName, ClientGroupData in pairs( self.ClientGroups ) do --- for MessageID, MessageData in pairs( ClientGroupData.Messages ) do --- if MessageData.MessageGroup == false then --- trigger.action.outTextForGroup( Group.getByName(ClientGroupName):getID(), MessageData.MessageCategory .. '\n' .. MessageData.MessageText:gsub("\n$",""):gsub("\n$",""), MessageData.MessageDuration ) --- MessageData.MessageGroup = true --- end --- local MessageTimeLeft = ( MessageData.MessageTime + MessageData.MessageDuration ) - timer.getTime() --- if MessageTimeLeft <= 0 then --- MessageData = nil --- end --- end --- --- -- Now check if the Client also has messages that belong to the Coalition of the Client... --- for CoalitionSideID, CoalitionSideData in pairs( self.CoalitionSides ) do --- for MessageID, MessageData in pairs( CoalitionSideData.Messages ) do --- local CoalitionGroup = Group.getByName( ClientGroupName ) --- if CoalitionGroup and CoalitionGroup:getCoalition() == CoalitionSideID then --- if MessageData.MessageCoalition == false then --- trigger.action.outTextForGroup( Group.getByName(ClientGroupName):getID(), MessageData.MessageCategory .. '\n' .. MessageData.MessageText:gsub("\n$",""):gsub("\n$",""), MessageData.MessageDuration ) --- MessageData.MessageCoalition = true --- end --- end --- local MessageTimeLeft = ( MessageData.MessageTime + MessageData.MessageDuration ) - timer.getTime() --- if MessageTimeLeft <= 0 then --- MessageData = nil --- end --- end --- end --- end --- --- return true ---end --- ------ The _MessageQueue object is created when the MESSAGE class module is loaded. -----_MessageQueue = MESSAGEQUEUE:New( 0.5 ) --- ---- Stages within a @{TASK} within a @{MISSION}. All of the STAGE functionality is considered internally administered and not to be used by any Mission designer. --- @module STAGE --- @author Flightcontrol - - - - - - - ---- The STAGE class --- @type -STAGE = { - ClassName = "STAGE", - MSG = { ID = "None", TIME = 10 }, - FREQUENCY = { NONE = 0, ONCE = 1, REPEAT = -1 }, - - Name = "NoStage", - StageType = '', - WaitTime = 1, - Frequency = 1, - MessageCount = 0, - MessageInterval = 15, - MessageShown = {}, - MessageShow = false, - MessageFlash = false -} - - -function STAGE:New() - local self = BASE:Inherit( self, BASE:New() ) - self:F() - return self -end - -function STAGE:Execute( Mission, Client, Task ) - - local Valid = true - - return Valid -end - -function STAGE:Executing( Mission, Client, Task ) - -end - -function STAGE:Validate( Mission, Client, Task ) - local Valid = true - - return Valid -end - - -STAGEBRIEF = { - ClassName = "BRIEF", - MSG = { ID = "Brief", TIME = 1 }, - Name = "Brief", - StageBriefingTime = 0, - StageBriefingDuration = 1 -} - -function STAGEBRIEF:New() - local self = BASE:Inherit( self, STAGE:New() ) - self:F() - self.StageType = 'CLIENT' - return self -end - ---- Execute --- @param #STAGEBRIEF self --- @param Mission#MISSION Mission --- @param Client#CLIENT Client --- @param Task#TASK Task --- @return #boolean -function STAGEBRIEF:Execute( Mission, Client, Task ) - local Valid = BASE:Inherited(self):Execute( Mission, Client, Task ) - self:F() - Client:ShowMissionBriefing( Mission.MissionBriefing ) - self.StageBriefingTime = timer.getTime() - return Valid -end - -function STAGEBRIEF:Validate( Mission, Client, Task ) - local Valid = STAGE:Validate( Mission, Client, Task ) - self:T() - - if timer.getTime() - self.StageBriefingTime <= self.StageBriefingDuration then - return 0 - else - self.StageBriefingTime = timer.getTime() - return 1 - end - -end - - -STAGESTART = { - ClassName = "START", - MSG = { ID = "Start", TIME = 1 }, - Name = "Start", - StageStartTime = 0, - StageStartDuration = 1 -} - -function STAGESTART:New() - local self = BASE:Inherit( self, STAGE:New() ) - self:F() - self.StageType = 'CLIENT' - return self -end - -function STAGESTART:Execute( Mission, Client, Task ) - self:F() - local Valid = BASE:Inherited(self):Execute( Mission, Client, Task ) - if Task.TaskBriefing then - Client:Message( Task.TaskBriefing, 30, "Command" ) - else - Client:Message( 'Task ' .. Task.TaskNumber .. '.', 30, "Command" ) - end - self.StageStartTime = timer.getTime() - return Valid -end - -function STAGESTART:Validate( Mission, Client, Task ) - self:F() - local Valid = STAGE:Validate( Mission, Client, Task ) - - if timer.getTime() - self.StageStartTime <= self.StageStartDuration then - return 0 - else - self.StageStartTime = timer.getTime() - return 1 - end - - return 1 - -end - -STAGE_CARGO_LOAD = { - ClassName = "STAGE_CARGO_LOAD" -} - -function STAGE_CARGO_LOAD:New() - local self = BASE:Inherit( self, STAGE:New() ) - self:F() - self.StageType = 'CLIENT' - return self -end - -function STAGE_CARGO_LOAD:Execute( Mission, Client, Task ) - self:F() - local Valid = BASE:Inherited(self):Execute( Mission, Client, Task ) - - for LoadCargoID, LoadCargo in pairs( Task.Cargos.LoadCargos ) do - LoadCargo:Load( Client ) - end - - if Mission.MissionReportFlash and Client:IsTransport() then - Client:ShowCargo() - end - - return Valid -end - -function STAGE_CARGO_LOAD:Validate( Mission, Client, Task ) - self:F() - local Valid = STAGE:Validate( Mission, Client, Task ) - - return 1 -end - - -STAGE_CARGO_INIT = { - ClassName = "STAGE_CARGO_INIT" -} - -function STAGE_CARGO_INIT:New() - local self = BASE:Inherit( self, STAGE:New() ) - self:F() - self.StageType = 'CLIENT' - return self -end - -function STAGE_CARGO_INIT:Execute( Mission, Client, Task ) - self:F() - local Valid = BASE:Inherited(self):Execute( Mission, Client, Task ) - - for InitLandingZoneID, InitLandingZone in pairs( Task.LandingZones.LandingZones ) do - self:T( InitLandingZone ) - InitLandingZone:Spawn() - end - - - self:T( Task.Cargos.InitCargos ) - for InitCargoID, InitCargoData in pairs( Task.Cargos.InitCargos ) do - self:T( { InitCargoData } ) - InitCargoData:Spawn( Client ) - end - - return Valid -end - - -function STAGE_CARGO_INIT:Validate( Mission, Client, Task ) - self:F() - local Valid = STAGE:Validate( Mission, Client, Task ) - - return 1 -end - - - -STAGEROUTE = { - ClassName = "STAGEROUTE", - MSG = { ID = "Route", TIME = 5 }, - Frequency = STAGE.FREQUENCY.REPEAT, - Name = "Route" -} - -function STAGEROUTE:New() - local self = BASE:Inherit( self, STAGE:New() ) - self:F() - self.StageType = 'CLIENT' - self.MessageSwitch = true - return self -end - - ---- Execute the routing. --- @param #STAGEROUTE self --- @param Mission#MISSION Mission --- @param Client#CLIENT Client --- @param Task#TASK Task -function STAGEROUTE:Execute( Mission, Client, Task ) - self:F() - local Valid = BASE:Inherited(self):Execute( Mission, Client, Task ) - - local RouteMessage = "Fly to: " - self:T( Task.LandingZones ) - for LandingZoneID, LandingZoneName in pairs( Task.LandingZones.LandingZoneNames ) do - RouteMessage = RouteMessage .. "\n " .. LandingZoneName .. ' at ' .. routines.getBRStringZone( { zone = LandingZoneName, ref = Client:GetClientGroupDCSUnit():getPoint(), true, true } ) .. ' km.' - end - - if Client:IsMultiSeated() then - Client:Message( RouteMessage, self.MSG.TIME, "Co-Pilot", 20, "Route" ) - else - Client:Message( RouteMessage, self.MSG.TIME, "Command", 20, "Route" ) - end - - - if Mission.MissionReportFlash and Client:IsTransport() then - Client:ShowCargo() - end - - return Valid -end - -function STAGEROUTE:Validate( Mission, Client, Task ) - self:F() - local Valid = STAGE:Validate( Mission, Client, Task ) - - -- check if the Client is in the landing zone - self:T( Task.LandingZones.LandingZoneNames ) - Task.CurrentLandingZoneName = routines.IsUnitNearZonesRadius( Client:GetClientGroupDCSUnit(), Task.LandingZones.LandingZoneNames, 500 ) - - if Task.CurrentLandingZoneName then - - Task.CurrentLandingZone = Task.LandingZones.LandingZones[Task.CurrentLandingZoneName].CargoZone - Task.CurrentCargoZone = Task.LandingZones.LandingZones[Task.CurrentLandingZoneName] - - if Task.CurrentCargoZone then - if not Task.Signalled then - Task.Signalled = Task.CurrentCargoZone:Signal() - end - end - - self:T( 1 ) - return 1 - end - - self:T( 0 ) - return 0 -end - - - -STAGELANDING = { - ClassName = "STAGELANDING", - MSG = { ID = "Landing", TIME = 10 }, - Name = "Landing", - Signalled = false -} - -function STAGELANDING:New() - local self = BASE:Inherit( self, STAGE:New() ) - self:F() - self.StageType = 'CLIENT' - return self -end - ---- Execute the landing coordination. --- @param #STAGELANDING self --- @param Mission#MISSION Mission --- @param Client#CLIENT Client --- @param Task#TASK Task -function STAGELANDING:Execute( Mission, Client, Task ) - self:F() - - if Client:IsMultiSeated() then - Client:Message( "We have arrived at the landing zone.", self.MSG.TIME, "Co-Pilot" ) - else - Client:Message( "You have arrived at the landing zone.", self.MSG.TIME, "Command" ) - end - - Task.HostUnit = Task.CurrentCargoZone:GetHostUnit() - - self:T( { Task.HostUnit } ) - - if Task.HostUnit then - - Task.HostUnitName = Task.HostUnit:GetPrefix() - Task.HostUnitTypeName = Task.HostUnit:GetTypeName() - - local HostMessage = "" - Task.CargoNames = "" - - local IsFirst = true - - for CargoID, Cargo in pairs( CARGOS ) do - if Cargo.CargoType == Task.CargoType then - - if Cargo:IsLandingRequired() then - self:T( "Task for cargo " .. Cargo.CargoType .. " requires landing.") - Task.IsLandingRequired = true - end - - if Cargo:IsSlingLoad() then - self:T( "Task for cargo " .. Cargo.CargoType .. " is a slingload.") - Task.IsSlingLoad = true - end - - if IsFirst then - IsFirst = false - Task.CargoNames = Task.CargoNames .. Cargo.CargoName .. "( " .. Cargo.CargoWeight .. " )" - else - Task.CargoNames = Task.CargoNames .. "; " .. Cargo.CargoName .. "( " .. Cargo.CargoWeight .. " )" - end - end - end - - if Task.IsLandingRequired then - HostMessage = "Land the helicopter to " .. Task.TEXT[1] .. " " .. Task.CargoNames .. "." - else - HostMessage = "Use the Radio menu and F6 to find the cargo, then fly or land near the cargo and " .. Task.TEXT[1] .. " " .. Task.CargoNames .. "." - end - - local Host = "Command" - if Task.HostUnitName then - Host = Task.HostUnitName .. " (" .. Task.HostUnitTypeName .. ")" - else - if Client:IsMultiSeated() then - Host = "Co-Pilot" - end - end - - Client:Message( HostMessage, self.MSG.TIME, Host ) - - end -end - -function STAGELANDING:Validate( Mission, Client, Task ) - self:F() - - Task.CurrentLandingZoneName = routines.IsUnitNearZonesRadius( Client:GetClientGroupDCSUnit(), Task.LandingZones.LandingZoneNames, 500 ) - if Task.CurrentLandingZoneName then - - -- Client is in de landing zone. - self:T( Task.CurrentLandingZoneName ) - - Task.CurrentLandingZone = Task.LandingZones.LandingZones[Task.CurrentLandingZoneName].CargoZone - Task.CurrentCargoZone = Task.LandingZones.LandingZones[Task.CurrentLandingZoneName] - - if Task.CurrentCargoZone then - if not Task.Signalled then - Task.Signalled = Task.CurrentCargoZone:Signal() - end - end - else - if Task.CurrentLandingZone then - Task.CurrentLandingZone = nil - end - if Task.CurrentCargoZone then - Task.CurrentCargoZone = nil - end - Task.Signalled = false - Task:RemoveCargoMenus( Client ) - self:T( -1 ) - return -1 - end - - - local DCSUnitVelocityVec3 = Client:GetClientGroupDCSUnit():getVelocity() - local DCSUnitVelocity = ( DCSUnitVelocityVec3.x ^2 + DCSUnitVelocityVec3.y ^2 + DCSUnitVelocityVec3.z ^2 ) ^ 0.5 - - local DCSUnitPointVec3 = Client:GetClientGroupDCSUnit():getPoint() - local LandHeight = land.getHeight( { x = DCSUnitPointVec3.x, y = DCSUnitPointVec3.z } ) - local DCSUnitHeight = DCSUnitPointVec3.y - LandHeight - - self:T( { Task.IsLandingRequired, Client:GetClientGroupDCSUnit():inAir() } ) - if Task.IsLandingRequired and not Client:GetClientGroupDCSUnit():inAir() then - self:T( 1 ) - Task.IsInAirTestRequired = true - return 1 - end - - self:T( { DCSUnitVelocity, DCSUnitHeight, LandHeight, Task.CurrentCargoZone.SignalHeight } ) - if Task.IsLandingRequired and DCSUnitVelocity <= 0.05 and DCSUnitHeight <= Task.CurrentCargoZone.SignalHeight then - self:T( 1 ) - Task.IsInAirTestRequired = false - return 1 - end - - self:T( 0 ) - return 0 -end - -STAGELANDED = { - ClassName = "STAGELANDED", - MSG = { ID = "Land", TIME = 10 }, - Name = "Landed", - MenusAdded = false -} - -function STAGELANDED:New() - local self = BASE:Inherit( self, STAGE:New() ) - self:F() - self.StageType = 'CLIENT' - return self -end - -function STAGELANDED:Execute( Mission, Client, Task ) - self:F() - - if Task.IsLandingRequired then - - local Host = "Command" - if Task.HostUnitName then - Host = Task.HostUnitName .. " (" .. Task.HostUnitTypeName .. ")" - else - if Client:IsMultiSeated() then - Host = "Co-Pilot" - end - end - - Client:Message( 'You have landed within the landing zone. Use the radio menu (F10) to ' .. Task.TEXT[1] .. ' the ' .. Task.CargoType .. '.', - self.MSG.TIME, Host ) - - if not self.MenusAdded then - Task.Cargo = nil - Task:RemoveCargoMenus( Client ) - Task:AddCargoMenus( Client, CARGOS, 250 ) - end - end -end - - - -function STAGELANDED:Validate( Mission, Client, Task ) - self:F() - - if not routines.IsUnitNearZonesRadius( Client:GetClientGroupDCSUnit(), Task.CurrentLandingZoneName, 500 ) then - self:T( "Client is not anymore in the landing zone, go back to stage Route, and remove cargo menus." ) - Task.Signalled = false - Task:RemoveCargoMenus( Client ) - self:T( -2 ) - return -2 - end - - local DCSUnitVelocityVec3 = Client:GetClientGroupDCSUnit():getVelocity() - local DCSUnitVelocity = ( DCSUnitVelocityVec3.x ^2 + DCSUnitVelocityVec3.y ^2 + DCSUnitVelocityVec3.z ^2 ) ^ 0.5 - - local DCSUnitPointVec3 = Client:GetClientGroupDCSUnit():getPoint() - local LandHeight = land.getHeight( { x = DCSUnitPointVec3.x, y = DCSUnitPointVec3.z } ) - local DCSUnitHeight = DCSUnitPointVec3.y - LandHeight - - self:T( { Task.IsLandingRequired, Client:GetClientGroupDCSUnit():inAir() } ) - if Task.IsLandingRequired and Task.IsInAirTestRequired == true and Client:GetClientGroupDCSUnit():inAir() then - self:T( "Client went back in the air. Go back to stage Landing." ) - self:T( -1 ) - return -1 - end - - self:T( { DCSUnitVelocity, DCSUnitHeight, LandHeight, Task.CurrentCargoZone.SignalHeight } ) - if Task.IsLandingRequired and Task.IsInAirTestRequired == false and DCSUnitVelocity >= 2 and DCSUnitHeight >= Task.CurrentCargoZone.SignalHeight then - self:T( "It seems the Client went back in the air and over the boundary limits. Go back to stage Landing." ) - self:T( -1 ) - return -1 - end - - -- Wait until cargo is selected from the menu. - if Task.IsLandingRequired then - if not Task.Cargo then - self:T( 0 ) - return 0 - end - end - - self:T( 1 ) - return 1 -end - -STAGEUNLOAD = { - ClassName = "STAGEUNLOAD", - MSG = { ID = "Unload", TIME = 10 }, - Name = "Unload" -} - -function STAGEUNLOAD:New() - local self = BASE:Inherit( self, STAGE:New() ) - self:F() - self.StageType = 'CLIENT' - return self -end - ---- Coordinate UnLoading --- @param #STAGEUNLOAD self --- @param Mission#MISSION Mission --- @param Client#CLIENT Client --- @param Task#TASK Task -function STAGEUNLOAD:Execute( Mission, Client, Task ) - self:F() - - if Client:IsMultiSeated() then - Client:Message( 'The ' .. Task.CargoType .. ' are being ' .. Task.TEXT[2] .. ' within the landing zone. Wait until the helicopter is ' .. Task.TEXT[3] .. '.', - "Co-Pilot" ) - else - Client:Message( 'You are unloading the ' .. Task.CargoType .. ' ' .. Task.TEXT[2] .. ' within the landing zone. Wait until the helicopter is ' .. Task.TEXT[3] .. '.', - "Command" ) - end - Task:RemoveCargoMenus( Client ) -end - -function STAGEUNLOAD:Executing( Mission, Client, Task ) - self:F() - env.info( 'STAGEUNLOAD:Executing() Task.Cargo.CargoName = ' .. Task.Cargo.CargoName ) - - local TargetZoneName - - if Task.TargetZoneName then - TargetZoneName = Task.TargetZoneName - else - TargetZoneName = Task.CurrentLandingZoneName - end - - if Task.Cargo:UnLoad( Client, TargetZoneName ) then - Task.ExecuteStage = _TransportExecuteStage.SUCCESS - if Mission.MissionReportFlash then - Client:ShowCargo() - end - end -end - ---- Validate UnLoading --- @param #STAGEUNLOAD self --- @param Mission#MISSION Mission --- @param Client#CLIENT Client --- @param Task#TASK Task -function STAGEUNLOAD:Validate( Mission, Client, Task ) - self:F() - env.info( 'STAGEUNLOAD:Validate()' ) - - if routines.IsUnitNearZonesRadius( Client:GetClientGroupDCSUnit(), Task.CurrentLandingZoneName, 500 ) then - else - Task.ExecuteStage = _TransportExecuteStage.FAILED - Task:RemoveCargoMenus( Client ) - if Client:IsMultiSeated() then - Client:Message( 'The ' .. Task.CargoType .. " haven't been successfully " .. Task.TEXT[3] .. ' within the landing zone. Task and mission has failed.', - _TransportStageMsgTime.DONE, "Co-Pilot" ) - else - Client:Message( 'The ' .. Task.CargoType .. " haven't been successfully " .. Task.TEXT[3] .. ' within the landing zone. Task and mission has failed.', - _TransportStageMsgTime.DONE, "Command" ) - end - return 1 - end - - if not Client:GetClientGroupDCSUnit():inAir() then - else - Task.ExecuteStage = _TransportExecuteStage.FAILED - Task:RemoveCargoMenus( Client ) - if Client:IsMultiSeated() then - Client:Message( 'The ' .. Task.CargoType .. " haven't been successfully " .. Task.TEXT[3] .. ' within the landing zone. Task and mission has failed.', - _TransportStageMsgTime.DONE, "Co-Pilot" ) - else - Client:Message( 'The ' .. Task.CargoType .. " haven't been successfully " .. Task.TEXT[3] .. ' within the landing zone. Task and mission has failed.', - _TransportStageMsgTime.DONE, "Command" ) - end - return 1 - end - - if Task.ExecuteStage == _TransportExecuteStage.SUCCESS then - if Client:IsMultiSeated() then - Client:Message( 'The ' .. Task.CargoType .. ' have been sucessfully ' .. Task.TEXT[3] .. ' within the landing zone.', _TransportStageMsgTime.DONE, "Co-Pilot" ) - else - Client:Message( 'The ' .. Task.CargoType .. ' have been sucessfully ' .. Task.TEXT[3] .. ' within the landing zone.', _TransportStageMsgTime.DONE, "Command" ) - end - Task:RemoveCargoMenus( Client ) - Task.MissionTask:AddGoalCompletion( Task.MissionTask.GoalVerb, Task.CargoName, 1 ) -- We set the cargo as one more goal completed in the mission. - return 1 - end - - return 1 -end - -STAGELOAD = { - ClassName = "STAGELOAD", - MSG = { ID = "Load", TIME = 10 }, - Name = "Load" -} - -function STAGELOAD:New() - local self = BASE:Inherit( self, STAGE:New() ) - self:F() - self.StageType = 'CLIENT' - return self -end - -function STAGELOAD:Execute( Mission, Client, Task ) - self:F() - - if not Task.IsSlingLoad then - - local Host = "Command" - if Task.HostUnitName then - Host = Task.HostUnitName .. " (" .. Task.HostUnitTypeName .. ")" - else - if Client:IsMultiSeated() then - Host = "Co-Pilot" - end - end - - Client:Message( 'The ' .. Task.CargoType .. ' are being ' .. Task.TEXT[2] .. ' within the landing zone. Wait until the helicopter is ' .. Task.TEXT[3] .. '.', - _TransportStageMsgTime.EXECUTING, Host ) - - -- Route the cargo to the Carrier - - Task.Cargo:OnBoard( Client, Task.CurrentCargoZone, Task.OnBoardSide ) - Task.ExecuteStage = _TransportExecuteStage.EXECUTING - else - Task.ExecuteStage = _TransportExecuteStage.EXECUTING - end -end - -function STAGELOAD:Executing( Mission, Client, Task ) - self:F() - - -- If the Cargo is ready to be loaded, load it into the Client. - - local Host = "Command" - if Task.HostUnitName then - Host = Task.HostUnitName .. " (" .. Task.HostUnitTypeName .. ")" - else - if Client:IsMultiSeated() then - Host = "Co-Pilot" - end - end - - if not Task.IsSlingLoad then - self:T( Task.Cargo.CargoName) - - if Task.Cargo:OnBoarded( Client, Task.CurrentCargoZone ) then - - -- Load the Cargo onto the Client - Task.Cargo:Load( Client ) - - -- Message to the pilot that cargo has been loaded. - Client:Message( "The cargo " .. Task.Cargo.CargoName .. " has been loaded in our helicopter.", - 20, Host ) - Task.ExecuteStage = _TransportExecuteStage.SUCCESS - - Client:ShowCargo() - end - else - Client:Message( "Hook the " .. Task.CargoNames .. " onto the helicopter " .. Task.TEXT[3] .. " within the landing zone.", - _TransportStageMsgTime.EXECUTING, Host ) - for CargoID, Cargo in pairs( CARGOS ) do - self:T( "Cargo.CargoName = " .. Cargo.CargoName ) - - if Cargo:IsSlingLoad() then - local CargoStatic = StaticObject.getByName( Cargo.CargoStaticName ) - if CargoStatic then - self:T( "Cargo is found in the DCS simulator.") - local CargoStaticPosition = CargoStatic:getPosition().p - self:T( "Cargo Position x = " .. CargoStaticPosition.x .. ", y = " .. CargoStaticPosition.y .. ", z = " .. CargoStaticPosition.z ) - local CargoStaticHeight = routines.GetUnitHeight( CargoStatic ) - if CargoStaticHeight > 5 then - self:T( "Cargo is airborne.") - Cargo:StatusLoaded() - Task.Cargo = Cargo - Client:Message( 'The Cargo has been successfully hooked onto the helicopter and is now being sling loaded. Fly outside the landing zone.', - self.MSG.TIME, Host ) - Task.ExecuteStage = _TransportExecuteStage.SUCCESS - break - end - else - self:T( "Cargo not found in the DCS simulator." ) - end - end - end - end - -end - -function STAGELOAD:Validate( Mission, Client, Task ) - self:F() - - self:T( "Task.CurrentLandingZoneName = " .. Task.CurrentLandingZoneName ) - - local Host = "Command" - if Task.HostUnitName then - Host = Task.HostUnitName .. " (" .. Task.HostUnitTypeName .. ")" - else - if Client:IsMultiSeated() then - Host = "Co-Pilot" - end - end - - if not Task.IsSlingLoad then - if not routines.IsUnitNearZonesRadius( Client:GetClientGroupDCSUnit(), Task.CurrentLandingZoneName, 500 ) then - Task:RemoveCargoMenus( Client ) - Task.ExecuteStage = _TransportExecuteStage.FAILED - Task.CargoName = nil - Client:Message( "The " .. Task.CargoType .. " loading has been aborted. You flew outside the pick-up zone while loading. ", - self.MSG.TIME, Host ) - self:T( -1 ) - return -1 - end - - local DCSUnitVelocityVec3 = Client:GetClientGroupDCSUnit():getVelocity() - local DCSUnitVelocity = ( DCSUnitVelocityVec3.x ^2 + DCSUnitVelocityVec3.y ^2 + DCSUnitVelocityVec3.z ^2 ) ^ 0.5 - - local DCSUnitPointVec3 = Client:GetClientGroupDCSUnit():getPoint() - local LandHeight = land.getHeight( { x = DCSUnitPointVec3.x, y = DCSUnitPointVec3.z } ) - local DCSUnitHeight = DCSUnitPointVec3.y - LandHeight - - self:T( { Task.IsLandingRequired, Client:GetClientGroupDCSUnit():inAir() } ) - if Task.IsLandingRequired and Task.IsInAirTestRequired == true and Client:GetClientGroupDCSUnit():inAir() then - Task:RemoveCargoMenus( Client ) - Task.ExecuteStage = _TransportExecuteStage.FAILED - Task.CargoName = nil - Client:Message( "The " .. Task.CargoType .. " loading has been aborted. Re-start the " .. Task.TEXT[3] .. " process. Don't fly outside the pick-up zone.", - self.MSG.TIME, Host ) - self:T( -1 ) - return -1 - end - - self:T( { DCSUnitVelocity, DCSUnitHeight, LandHeight, Task.CurrentCargoZone.SignalHeight } ) - if Task.IsLandingRequired and Task.IsInAirTestRequired == false and DCSUnitVelocity >= 2 and DCSUnitHeight >= Task.CurrentCargoZone.SignalHeight then - Task:RemoveCargoMenus( Client ) - Task.ExecuteStage = _TransportExecuteStage.FAILED - Task.CargoName = nil - Client:Message( "The " .. Task.CargoType .. " loading has been aborted. Re-start the " .. Task.TEXT[3] .. " process. Don't fly outside the pick-up zone.", - self.MSG.TIME, Host ) - self:T( -1 ) - return -1 - end - - if Task.ExecuteStage == _TransportExecuteStage.SUCCESS then - Task:RemoveCargoMenus( Client ) - Client:Message( "Good Job. The " .. Task.CargoType .. " has been sucessfully " .. Task.TEXT[3] .. " within the landing zone.", - self.MSG.TIME, Host ) - Task.MissionTask:AddGoalCompletion( Task.MissionTask.GoalVerb, Task.CargoName, 1 ) - self:T( 1 ) - return 1 - end - - else - if Task.ExecuteStage == _TransportExecuteStage.SUCCESS then - CargoStatic = StaticObject.getByName( Task.Cargo.CargoStaticName ) - if CargoStatic and not routines.IsStaticInZones( CargoStatic, Task.CurrentLandingZoneName ) then - Client:Message( "Good Job. The " .. Task.CargoType .. " has been sucessfully " .. Task.TEXT[3] .. " and flown outside of the landing zone.", - self.MSG.TIME, Host ) - Task.MissionTask:AddGoalCompletion( Task.MissionTask.GoalVerb, Task.Cargo.CargoName, 1 ) - self:T( 1 ) - return 1 - end - end - - end - - - self:T( 0 ) - return 0 -end - - -STAGEDONE = { - ClassName = "STAGEDONE", - MSG = { ID = "Done", TIME = 10 }, - Name = "Done" -} - -function STAGEDONE:New() - local self = BASE:Inherit( self, STAGE:New() ) - self:F() - self.StageType = 'AI' - return self -end - -function STAGEDONE:Execute( Mission, Client, Task ) - self:F() - -end - -function STAGEDONE:Validate( Mission, Client, Task ) - self:F() - - Task:Done() - - return 0 -end - -STAGEARRIVE = { - ClassName = "STAGEARRIVE", - MSG = { ID = "Arrive", TIME = 10 }, - Name = "Arrive" -} - -function STAGEARRIVE:New() - local self = BASE:Inherit( self, STAGE:New() ) - self:F() - self.StageType = 'CLIENT' - return self -end - - ---- Execute Arrival --- @param #STAGEARRIVE self --- @param Mission#MISSION Mission --- @param Client#CLIENT Client --- @param Task#TASK Task -function STAGEARRIVE:Execute( Mission, Client, Task ) - self:F() - - if Client:IsMultiSeated() then - Client:Message( 'We have arrived at ' .. Task.CurrentLandingZoneName .. ".", self.MSG.TIME, "Co-Pilot" ) - else - Client:Message( 'We have arrived at ' .. Task.CurrentLandingZoneName .. ".", self.MSG.TIME, "Command" ) - end - -end - -function STAGEARRIVE:Validate( Mission, Client, Task ) - self:F() - - Task.CurrentLandingZoneID = routines.IsUnitInZones( Client:GetClientGroupDCSUnit(), Task.LandingZones ) - if ( Task.CurrentLandingZoneID ) then - else - return -1 - end - - return 1 -end - -STAGEGROUPSDESTROYED = { - ClassName = "STAGEGROUPSDESTROYED", - DestroyGroupSize = -1, - Frequency = STAGE.FREQUENCY.REPEAT, - MSG = { ID = "DestroyGroup", TIME = 10 }, - Name = "GroupsDestroyed" -} - -function STAGEGROUPSDESTROYED:New() - local self = BASE:Inherit( self, STAGE:New() ) - self:F() - self.StageType = 'AI' - return self -end - ---function STAGEGROUPSDESTROYED:Execute( Mission, Client, Task ) --- --- Client:Message( 'Task: Still ' .. DestroyGroupSize .. " of " .. Task.DestroyGroupCount .. " " .. Task.DestroyGroupType .. " to be destroyed!", self.MSG.TIME, Mission.Name .. "/Stage" ) --- ---end - -function STAGEGROUPSDESTROYED:Validate( Mission, Client, Task ) - self:F() - - if Task.MissionTask:IsGoalReached() then - return 1 - else - return 0 - end -end - -function STAGEGROUPSDESTROYED:Execute( Mission, Client, Task ) - self:F() - self:T( { Task.ClassName, Task.Destroyed } ) - --env.info( 'Event Table Task = ' .. tostring(Task) ) - -end - - - - - - - - - - - - - ---[[ - _TransportStage: Defines the different stages of which of transport missions can be in. This table is internal and is used to control the sequence of messages, actions and flow. - - - _TransportStage.START - - _TransportStage.ROUTE - - _TransportStage.LAND - - _TransportStage.EXECUTE - - _TransportStage.DONE - - _TransportStage.REMOVE ---]] -_TransportStage = { - HOLD = "HOLD", - START = "START", - ROUTE = "ROUTE", - LANDING = "LANDING", - LANDED = "LANDED", - EXECUTING = "EXECUTING", - LOAD = "LOAD", - UNLOAD = "UNLOAD", - DONE = "DONE", - NEXT = "NEXT" -} - -_TransportStageMsgTime = { - HOLD = 10, - START = 60, - ROUTE = 5, - LANDING = 10, - LANDED = 30, - EXECUTING = 30, - LOAD = 30, - UNLOAD = 30, - DONE = 30, - NEXT = 0 -} - -_TransportStageTime = { - HOLD = 10, - START = 5, - ROUTE = 5, - LANDING = 1, - LANDED = 1, - EXECUTING = 5, - LOAD = 5, - UNLOAD = 5, - DONE = 1, - NEXT = 0 -} - -_TransportStageAction = { - REPEAT = -1, - NONE = 0, - ONCE = 1 -} ---- The TASK Classes define major end-to-end activities within a MISSION. The TASK Class is the Master Class to orchestrate these activities. From this class, many concrete TASK classes are inherited. --- @module TASK - - - - - - - ---- The TASK class --- @type TASK --- @extends Base#BASE -TASK = { - - -- Defines the different signal types with a Task. - SIGNAL = { - COLOR = { - RED = { ID = 1, COLOR = trigger.smokeColor.Red, TEXT = "A red" }, - GREEN = { ID = 2, COLOR = trigger.smokeColor.Green, TEXT = "A green" }, - BLUE = { ID = 3, COLOR = trigger.smokeColor.Blue, TEXT = "A blue" }, - WHITE = { ID = 4, COLOR = trigger.smokeColor.White, TEXT = "A white" }, - ORANGE = { ID = 5, COLOR = trigger.smokeColor.Orange, TEXT = "An orange" } - }, - TYPE = { - SMOKE = { ID = 1, TEXT = "smoke" }, - FLARE = { ID = 2, TEXT = "flare" } - } - }, - ClassName = "TASK", - Mission = {}, -- Owning mission of the Task - Name = '', - Stages = {}, - Stage = {}, - Cargos = { - InitCargos = {}, - LoadCargos = {} - }, - LandingZones = { - LandingZoneNames = {}, - LandingZones = {} - }, - ActiveStage = 0, - TaskDone = false, - TaskFailed = false, - GoalTasks = {} -} - ---- Instantiates a new TASK Base. Should never be used. Interface Class. --- @return TASK -function TASK:New() - local self = BASE:Inherit( self, BASE:New() ) - self:F() - - -- assign Task default values during construction - self.TaskBriefing = "Task: No Task." - self.Time = timer.getTime() - self.ExecuteStage = _TransportExecuteStage.NONE - - return self -end - -function TASK:SetStage( StageSequenceIncrement ) - self:F( { StageSequenceIncrement } ) - - local Valid = false - if StageSequenceIncrement ~= 0 then - self.ActiveStage = self.ActiveStage + StageSequenceIncrement - if 1 <= self.ActiveStage and self.ActiveStage <= #self.Stages then - self.Stage = self.Stages[self.ActiveStage] - self:T( { self.Stage.Name } ) - self.Frequency = self.Stage.Frequency - Valid = true - else - Valid = false - env.info( "TASK:SetStage() self.ActiveStage is smaller or larger than self.Stages array. self.ActiveStage = " .. self.ActiveStage ) - end - end - self.Time = timer.getTime() - return Valid -end - -function TASK:Init() - self:F() - self.ActiveStage = 0 - self:SetStage(1) - self.TaskDone = false - self.TaskFailed = false -end - - ---- Get progress of a TASK. --- @return string GoalsText -function TASK:GetGoalProgress() - self:F2() - - local GoalsText = "" - for GoalVerb, GoalVerbData in pairs( self.GoalTasks ) do - local Goals = self:GetGoalCompletion( GoalVerb ) - if Goals and Goals ~= "" then - Goals = '(' .. Goals .. ')' - else - Goals = '( - )' - end - GoalsText = GoalsText .. GoalVerb .. ': ' .. self:GetGoalCount(GoalVerb) .. ' goals ' .. Goals .. ' of ' .. self:GetGoalTotal(GoalVerb) .. ' goals completed (' .. self:GetGoalPercentage(GoalVerb) .. '%); ' - end - - if GoalsText == "" then - GoalsText = "( - )" - end - - return GoalsText -end - ---- Show progress of a TASK. --- @param MISSION Mission Group structure describing the Mission. --- @param CLIENT Client Group structure describing the Client. -function TASK:ShowGoalProgress( Mission, Client ) - self:F2() - - local GoalsText = "" - for GoalVerb, GoalVerbData in pairs( self.GoalTasks ) do - if Mission:IsCompleted() then - else - local Goals = self:GetGoalCompletion( GoalVerb ) - if Goals and Goals ~= "" then - else - Goals = "-" - end - GoalsText = GoalsText .. self:GetGoalProgress() - end - end - - if Mission.MissionReportFlash or Mission.MissionReportShow then - Client:Message( GoalsText, 10, "Mission Command: Task Status", 30, "Task status" ) - end -end - ---- Sets a TASK to status Done. -function TASK:Done() - self:F2() - self.TaskDone = true -end - ---- Returns if a TASK is done. --- @return bool -function TASK:IsDone() - self:F2( self.TaskDone ) - return self.TaskDone -end - ---- Sets a TASK to status failed. -function TASK:Failed() - self:F() - self.TaskFailed = true -end - ---- Returns if a TASk has failed. --- @return bool -function TASK:IsFailed() - self:F2( self.TaskFailed ) - return self.TaskFailed -end - -function TASK:Reset( Mission, Client ) - self:F2() - self.ExecuteStage = _TransportExecuteStage.NONE -end - ---- Returns the Goals of a TASK --- @return @table Goals -function TASK:GetGoals() - return self.GoalTasks -end - ---- Returns if a TASK has Goal(s). --- @param #TASK self --- @param #string GoalVerb is the name of the Goal of the TASK. --- @return bool -function TASK:Goal( GoalVerb ) - self:F2( { GoalVerb } ) - if not GoalVerb then - GoalVerb = self.GoalVerb - end - self:T2( {self.GoalTasks[GoalVerb] } ) - if self.GoalTasks[GoalVerb] and self.GoalTasks[GoalVerb].GoalTotal > 0 then - return true - else - return false - end -end - ---- Sets the total Goals to be achieved of the Goal Name --- @param number GoalTotal is the number of times the GoalVerb needs to be achieved. --- @param ?string GoalVerb is the name of the Goal of the TASK. If the GoalVerb is not given, then the default TASK Goals will be used. -function TASK:SetGoalTotal( GoalTotal, GoalVerb ) - self:F2( { GoalTotal, GoalVerb } ) - - if not GoalVerb then - GoalVerb = self.GoalVerb - end - self.GoalTasks[GoalVerb] = {} - self.GoalTasks[GoalVerb].Goals = {} - self.GoalTasks[GoalVerb].GoalTotal = GoalTotal - self.GoalTasks[GoalVerb].GoalCount = 0 - return self -end - ---- Gets the total of Goals to be achieved within the TASK of the GoalVerb. --- @param ?string GoalVerb is the name of the Goal of the TASK. If the GoalVerb is not given, then the default TASK Goals will be used. -function TASK:GetGoalTotal( GoalVerb ) - self:F2( { GoalVerb } ) - if not GoalVerb then - GoalVerb = self.GoalVerb - end - if self:Goal( GoalVerb ) then - return self.GoalTasks[GoalVerb].GoalTotal - else - return 0 - end -end - ---- Sets the total of Goals currently achieved within the TASK of the GoalVerb. --- @param number GoalCount is the total number of Goals achieved within the TASK. --- @param ?string GoalVerb is the name of the Goal of the TASK. If the GoalVerb is not given, then the default TASK Goals will be used. --- @return TASK -function TASK:SetGoalCount( GoalCount, GoalVerb ) - self:F2() - if not GoalVerb then - GoalVerb = self.GoalVerb - end - if self:Goal( GoalVerb) then - self.GoalTasks[GoalVerb].GoalCount = GoalCount - end - return self -end - ---- Increments the total of Goals currently achieved within the TASK of the GoalVerb, with the given GoalCountIncrease. --- @param number GoalCountIncrease is the number of new Goals achieved within the TASK. --- @param ?string GoalVerb is the name of the Goal of the TASK. If the GoalVerb is not given, then the default TASK Goals will be used. --- @return TASK -function TASK:IncreaseGoalCount( GoalCountIncrease, GoalVerb ) - self:F2( { GoalCountIncrease, GoalVerb } ) - if not GoalVerb then - GoalVerb = self.GoalVerb - end - if self:Goal( GoalVerb) then - self.GoalTasks[GoalVerb].GoalCount = self.GoalTasks[GoalVerb].GoalCount + GoalCountIncrease - end - return self -end - ---- Gets the total of Goals currently achieved within the TASK of the GoalVerb. --- @param ?string GoalVerb is the name of the Goal of the TASK. If the GoalVerb is not given, then the default TASK Goals will be used. --- @return TASK -function TASK:GetGoalCount( GoalVerb ) - self:F2() - if not GoalVerb then - GoalVerb = self.GoalVerb - end - if self:Goal( GoalVerb ) then - return self.GoalTasks[GoalVerb].GoalCount - else - return 0 - end -end - ---- Gets the percentage of Goals currently achieved within the TASK of the GoalVerb. --- @param ?string GoalVerb is the name of the Goal of the TASK. If the GoalVerb is not given, then the default TASK Goals will be used. --- @return TASK -function TASK:GetGoalPercentage( GoalVerb ) - self:F2() - if not GoalVerb then - GoalVerb = self.GoalVerb - end - if self:Goal( GoalVerb ) then - return math.floor( self:GetGoalCount( GoalVerb ) / self:GetGoalTotal( GoalVerb ) * 100 + .5 ) - else - return 100 - end -end - ---- Returns if all the Goals of the TASK were achieved. --- @return bool -function TASK:IsGoalReached() - self:F2() - - local GoalReached = true - - for GoalVerb, Goals in pairs( self.GoalTasks ) do - self:T2( { "GoalVerb", GoalVerb } ) - if self:Goal( GoalVerb ) then - local GoalToDo = self:GetGoalTotal( GoalVerb ) - self:GetGoalCount( GoalVerb ) - self:T2( "GoalToDo = " .. GoalToDo ) - if GoalToDo <= 0 then - else - GoalReached = false - break - end - else - break - end - end - - self:T( { GoalReached, self.GoalTasks } ) - return GoalReached -end - ---- Adds an Additional Goal for the TASK to be achieved. --- @param string GoalVerb is the name of the Goal of the TASK. --- @param string GoalTask is a text describing the Goal of the TASK to be achieved. --- @param number GoalIncrease is a number by which the Goal achievement is increasing. -function TASK:AddGoalCompletion( GoalVerb, GoalTask, GoalIncrease ) - self:F2( { GoalVerb, GoalTask, GoalIncrease } ) - - if self:Goal( GoalVerb ) then - self.GoalTasks[GoalVerb].Goals[#self.GoalTasks[GoalVerb].Goals+1] = GoalTask - self.GoalTasks[GoalVerb].GoalCount = self.GoalTasks[GoalVerb].GoalCount + GoalIncrease - end - return self -end - ---- Returns if the additional Goal for the TASK was completed. --- @param ?string GoalVerb is the name of the Goal of the TASK. If the GoalVerb is not given, then the default TASK Goals will be used. --- @return string Goals -function TASK:GetGoalCompletion( GoalVerb ) - self:F2( { GoalVerb } ) - - if self:Goal( GoalVerb ) then - local Goals = "" - for GoalID, GoalName in pairs( self.GoalTasks[GoalVerb].Goals ) do Goals = Goals .. GoalName .. " + " end - return Goals:gsub(" + $", ""), self.GoalTasks[GoalVerb].GoalCount - end -end - -function TASK.MenuAction( Parameter ) - Parameter.ReferenceTask.ExecuteStage = _TransportExecuteStage.EXECUTING - Parameter.ReferenceTask.Cargo = Parameter.CargoTask -end - -function TASK:StageExecute() - self:F() - - local Execute = false - - if self.Frequency == STAGE.FREQUENCY.REPEAT then - Execute = true - elseif self.Frequency == STAGE.FREQUENCY.NONE then - Execute = false - elseif self.Frequency >= 0 then - Execute = true - self.Frequency = self.Frequency - 1 - end - - return Execute - -end - ---- Work function to set signal events within a TASK. -function TASK:AddSignal( SignalUnitNames, SignalType, SignalColor, SignalHeight ) - self:F() - - local Valid = true - - if Valid then - if type( SignalUnitNames ) == "table" then - self.LandingZoneSignalUnitNames = SignalUnitNames - else - self.LandingZoneSignalUnitNames = { SignalUnitNames } - end - self.LandingZoneSignalType = SignalType - self.LandingZoneSignalColor = SignalColor - self.Signalled = false - if SignalHeight ~= nil then - self.LandingZoneSignalHeight = SignalHeight - else - self.LandingZoneSignalHeight = 0 - end - - if self.TaskBriefing then - self.TaskBriefing = self.TaskBriefing .. " " .. SignalColor.TEXT .. " " .. SignalType.TEXT .. " will be fired when entering the landing zone." - end - end - - return Valid -end - ---- When the CLIENT is approaching the landing zone, a RED SMOKE will be fired by an optional SignalUnitNames. --- @param table|string SignalUnitNames Name of the Group that will fire the signal. If this parameter is NIL, the signal will be fired from the center of the landing zone. --- @param number SignalHeight Altitude that the Signal should be fired... -function TASK:AddSmokeRed( SignalUnitNames, SignalHeight ) - self:F() - self:AddSignal( SignalUnitNames, TASK.SIGNAL.TYPE.SMOKE, TASK.SIGNAL.COLOR.RED, SignalHeight ) -end - ---- When the CLIENT is approaching the landing zone, a GREEN SMOKE will be fired by an optional SignalUnitNames. --- @param table|string SignalUnitNames Name of the Group that will fire the signal. If this parameter is NIL, the signal will be fired from the center of the landing zone. --- @param number SignalHeight Altitude that the Signal should be fired... -function TASK:AddSmokeGreen( SignalUnitNames, SignalHeight ) - self:F() - self:AddSignal( SignalUnitNames, TASK.SIGNAL.TYPE.SMOKE, TASK.SIGNAL.COLOR.GREEN, SignalHeight ) -end - ---- When the CLIENT is approaching the landing zone, a BLUE SMOKE will be fired by an optional SignalUnitNames. --- @param table|string SignalUnitNames Name of the Group that will fire the signal. If this parameter is NIL, the signal will be fired from the center of the landing zone. --- @param number SignalHeight Altitude that the Signal should be fired... -function TASK:AddSmokeBlue( SignalUnitNames, SignalHeight ) - self:F() - self:AddSignal( SignalUnitNames, TASK.SIGNAL.TYPE.SMOKE, TASK.SIGNAL.COLOR.BLUE, SignalHeight ) -end - ---- When the CLIENT is approaching the landing zone, a WHITE SMOKE will be fired by an optional SignalUnitNames. --- @param table|string SignalUnitNames Name of the Group that will fire the signal. If this parameter is NIL, the signal will be fired from the center of the landing zone. --- @param number SignalHeight Altitude that the Signal should be fired... -function TASK:AddSmokeWhite( SignalUnitNames, SignalHeight ) - self:F() - self:AddSignal( SignalUnitNames, TASK.SIGNAL.TYPE.SMOKE, TASK.SIGNAL.COLOR.WHITE, SignalHeight ) -end - ---- When the CLIENT is approaching the landing zone, an ORANGE SMOKE will be fired by an optional SignalUnitNames. --- @param table|string SignalUnitNames Name of the Group that will fire the signal. If this parameter is NIL, the signal will be fired from the center of the landing zone. --- @param number SignalHeight Altitude that the Signal should be fired... -function TASK:AddSmokeOrange( SignalUnitNames, SignalHeight ) - self:F() - self:AddSignal( SignalUnitNames, TASK.SIGNAL.TYPE.SMOKE, TASK.SIGNAL.COLOR.ORANGE, SignalHeight ) -end - ---- When the CLIENT is approaching the landing zone, a RED FLARE will be fired by an optional SignalUnitNames. --- @param table|string SignalUnitNames Name of the Group that will fire the signal. If this parameter is NIL, the signal will be fired from the center of the landing zone. --- @param number SignalHeight Altitude that the Signal should be fired... -function TASK:AddFlareRed( SignalUnitNames, SignalHeight ) - self:F() - self:AddSignal( SignalUnitNames, TASK.SIGNAL.TYPE.FLARE, TASK.SIGNAL.COLOR.RED, SignalHeight ) -end - ---- When the CLIENT is approaching the landing zone, a GREEN FLARE will be fired by an optional SignalUnitNames. --- @param table|string SignalUnitNames Name of the Group that will fire the signal. If this parameter is NIL, the signal will be fired from the center of the landing zone. --- @param number SignalHeight Altitude that the Signal should be fired... -function TASK:AddFlareGreen( SignalUnitNames, SignalHeight ) - self:F() - self:AddSignal( SignalUnitNames, TASK.SIGNAL.TYPE.FLARE, TASK.SIGNAL.COLOR.GREEN, SignalHeight ) -end - ---- When the CLIENT is approaching the landing zone, a BLUE FLARE will be fired by an optional SignalUnitNames. --- @param table|string SignalUnitNames Name of the Group that will fire the signal. If this parameter is NIL, the signal will be fired from the center of the landing zone. --- @param number SignalHeight Altitude that the Signal should be fired... -function TASK:AddFlareBlue( SignalUnitNames, SignalHeight ) - self:F() - self:AddSignal( SignalUnitNames, TASK.SIGNAL.TYPE.FLARE, TASK.SIGNAL.COLOR.BLUE, SignalHeight ) -end - ---- When the CLIENT is approaching the landing zone, a WHITE FLARE will be fired by an optional SignalUnitNames. --- @param table|string SignalUnitNames Name of the Group that will fire the signal. If this parameter is NIL, the signal will be fired from the center of the landing zone. --- @param number SignalHeight Altitude that the Signal should be fired... -function TASK:AddFlareWhite( SignalUnitNames, SignalHeight ) - self:F() - self:AddSignal( SignalUnitNames, TASK.SIGNAL.TYPE.FLARE, TASK.SIGNAL.COLOR.WHITE, SignalHeight ) -end - ---- When the CLIENT is approaching the landing zone, an ORANGE FLARE will be fired by an optional SignalUnitNames. --- @param table|string SignalUnitNames Name of the Group that will fire the signal. If this parameter is NIL, the signal will be fired from the center of the landing zone. --- @param number SignalHeight Altitude that the Signal should be fired... -function TASK:AddFlareOrange( SignalUnitNames, SignalHeight ) - self:F() - self:AddSignal( SignalUnitNames, TASK.SIGNAL.TYPE.FLARE, TASK.SIGNAL.COLOR.ORANGE, SignalHeight ) -end ---- A GOHOMETASK orchestrates the travel back to the home base, which is a specific zone defined within the ME. --- @module GOHOMETASK - ---- The GOHOMETASK class --- @type -GOHOMETASK = { - ClassName = "GOHOMETASK", -} - ---- Creates a new GOHOMETASK. --- @param table{string,...}|string LandingZones Table of Landing Zone names where Home(s) are located. --- @return GOHOMETASK -function GOHOMETASK:New( LandingZones ) - local self = BASE:Inherit( self, TASK:New() ) - self:F( { LandingZones } ) - local Valid = true - - Valid = routines.ValidateZone( LandingZones, "LandingZones", Valid ) - - if Valid then - self.Name = 'Fly Home' - self.TaskBriefing = "Task: Fly back to your home base. Your co-pilot will provide you with the directions (required flight angle in degrees) and the distance (in km) to your home base." - if type( LandingZones ) == "table" then - self.LandingZones = LandingZones - else - self.LandingZones = { LandingZones } - end - self.Stages = { STAGEBRIEF:New(), STAGESTART:New(), STAGEROUTE:New(), STAGEARRIVE:New(), STAGEDONE:New() } - self.SetStage( self, 1 ) - end - - return self -end ---- A DESTROYBASETASK will monitor the destruction of Groups and Units. This is a BASE class, other classes are derived from this class. --- @module DESTROYBASETASK --- @see DESTROYGROUPSTASK --- @see DESTROYUNITTYPESTASK --- @see DESTROY_RADARS_TASK - - - ---- The DESTROYBASETASK class --- @type DESTROYBASETASK -DESTROYBASETASK = { - ClassName = "DESTROYBASETASK", - Destroyed = 0, - GoalVerb = "Destroy", - DestroyPercentage = 100, -} - ---- Creates a new DESTROYBASETASK. --- @param #DESTROYBASETASK self --- @param #string DestroyGroupType Text describing the group to be destroyed. f.e. "Radar Installations", "Ships", "Vehicles", "Command Centers". --- @param #string DestroyUnitType Text describing the unit types to be destroyed. f.e. "SA-6", "Row Boats", "Tanks", "Tents". --- @param #list<#string> DestroyGroupPrefixes Table of Prefixes of the Groups to be destroyed before task is completed. --- @param #number DestroyPercentage defines the %-tage that needs to be destroyed to achieve mission success. eg. If in the Group there are 10 units, then a value of 75 would require 8 units to be destroyed from the Group to complete the @{TASK}. --- @return DESTROYBASETASK -function DESTROYBASETASK:New( DestroyGroupType, DestroyUnitType, DestroyGroupPrefixes, DestroyPercentage ) - local self = BASE:Inherit( self, TASK:New() ) - self:F() - - self.Name = 'Destroy' - self.Destroyed = 0 - self.DestroyGroupPrefixes = DestroyGroupPrefixes - self.DestroyGroupType = DestroyGroupType - self.DestroyUnitType = DestroyUnitType - if DestroyPercentage then - self.DestroyPercentage = DestroyPercentage - end - self.TaskBriefing = "Task: Destroy " .. DestroyGroupType .. "." - self.Stages = { STAGEBRIEF:New(), STAGESTART:New(), STAGEGROUPSDESTROYED:New(), STAGEDONE:New() } - self.SetStage( self, 1 ) - - return self -end - ---- Handle the S_EVENT_DEAD events to validate the destruction of units for the task monitoring. --- @param #DESTROYBASETASK self --- @param Event#EVENTDATA Event structure of MOOSE. -function DESTROYBASETASK:EventDead( Event ) - self:F( { Event } ) - - if Event.IniDCSUnit then - local DestroyUnit = Event.IniDCSUnit - local DestroyUnitName = Event.IniDCSUnitName - local DestroyGroup = Event.IniDCSGroup - local DestroyGroupName = Event.IniDCSGroupName - - --TODO: I need to fix here if 2 groups in the mission have a similar name with GroupPrefix equal, then i should differentiate for which group the goal was reached! - --I may need to test if for the goalverb that group goal was reached or something. Need to think about it a bit more ... - local UnitsDestroyed = 0 - for DestroyGroupPrefixID, DestroyGroupPrefix in pairs( self.DestroyGroupPrefixes ) do - self:T( DestroyGroupPrefix ) - if string.find( DestroyGroupName, DestroyGroupPrefix, 1, true ) then - self:T( BASE:Inherited(self).ClassName ) - UnitsDestroyed = self:ReportGoalProgress( DestroyGroup, DestroyUnit ) - self:T( UnitsDestroyed ) - end - end - - self:T( { UnitsDestroyed } ) - self:IncreaseGoalCount( UnitsDestroyed, self.GoalVerb ) - end - -end - ---- Validate task completeness of DESTROYBASETASK. --- @param DestroyGroup Group structure describing the group to be evaluated. --- @param DestroyUnit Unit structure describing the Unit to be evaluated. -function DESTROYBASETASK:ReportGoalProgress( DestroyGroup, DestroyUnit ) - self:F() - - return 0 -end ---- DESTROYGROUPSTASK --- @module DESTROYGROUPSTASK - - - ---- The DESTROYGROUPSTASK class --- @type -DESTROYGROUPSTASK = { - ClassName = "DESTROYGROUPSTASK", - GoalVerb = "Destroy Groups", -} - ---- Creates a new DESTROYGROUPSTASK. --- @param #DESTROYGROUPSTASK self --- @param #string DestroyGroupType String describing the group to be destroyed. --- @param #string DestroyUnitType String describing the unit to be destroyed. --- @param #list<#string> DestroyGroupNames Table of string containing the name of the groups to be destroyed before task is completed. --- @param #number DestroyPercentage defines the %-tage that needs to be destroyed to achieve mission success. eg. If in the Group there are 10 units, then a value of 75 would require 8 units to be destroyed from the Group to complete the @{TASK}. ----@return DESTROYGROUPSTASK -function DESTROYGROUPSTASK:New( DestroyGroupType, DestroyUnitType, DestroyGroupNames, DestroyPercentage ) - local self = BASE:Inherit( self, DESTROYBASETASK:New( DestroyGroupType, DestroyUnitType, DestroyGroupNames, DestroyPercentage ) ) - self:F() - - self.Name = 'Destroy Groups' - self.GoalVerb = "Destroy " .. DestroyGroupType - - _EVENTDISPATCHER:OnDead( self.EventDead , self ) - _EVENTDISPATCHER:OnCrash( self.EventDead , self ) - - return self -end - ---- Report Goal Progress. --- @param #DESTROYGROUPSTASK self --- @param DCSGroup#Group DestroyGroup Group structure describing the group to be evaluated. --- @param DCSUnit#Unit DestroyUnit Unit structure describing the Unit to be evaluated. --- @return #number The DestroyCount reflecting the amount of units destroyed within the group. -function DESTROYGROUPSTASK:ReportGoalProgress( DestroyGroup, DestroyUnit ) - self:F( { DestroyGroup, DestroyUnit, self.DestroyPercentage } ) - - local DestroyGroupSize = DestroyGroup:getSize() - 1 -- When a DEAD event occurs, the getSize is still one larger than the destroyed unit. - local DestroyGroupInitialSize = DestroyGroup:getInitialSize() - self:T( { DestroyGroupSize, DestroyGroupInitialSize - ( DestroyGroupInitialSize * self.DestroyPercentage / 100 ) } ) - - local DestroyCount = 0 - if DestroyGroup then - if DestroyGroupSize <= DestroyGroupInitialSize - ( DestroyGroupInitialSize * self.DestroyPercentage / 100 ) then - DestroyCount = 1 - end - else - DestroyCount = 1 - end - - self:T( DestroyCount ) - - return DestroyCount -end ---- Task class to destroy radar installations. --- @module DESTROYRADARSTASK - - - ---- The DESTROYRADARS class --- @type -DESTROYRADARSTASK = { - ClassName = "DESTROYRADARSTASK", - GoalVerb = "Destroy Radars" -} - ---- Creates a new DESTROYRADARSTASK. --- @param table{string,...} DestroyGroupNames Table of string containing the group names of which the radars are be destroyed. --- @return DESTROYRADARSTASK -function DESTROYRADARSTASK:New( DestroyGroupNames ) - local self = BASE:Inherit( self, DESTROYGROUPSTASK:New( 'radar installations', 'radars', DestroyGroupNames ) ) - self:F() - - self.Name = 'Destroy Radars' - - _EVENTDISPATCHER:OnDead( self.EventDead , self ) - - return self -end - ---- Report Goal Progress. --- @param Group DestroyGroup Group structure describing the group to be evaluated. --- @param Unit DestroyUnit Unit structure describing the Unit to be evaluated. -function DESTROYRADARSTASK:ReportGoalProgress( DestroyGroup, DestroyUnit ) - self:F( { DestroyGroup, DestroyUnit } ) - - local DestroyCount = 0 - if DestroyUnit and DestroyUnit:hasSensors( Unit.SensorType.RADAR, Unit.RadarType.AS ) then - if DestroyUnit and DestroyUnit:getLife() <= 1.0 then - self:T( 'Destroyed a radar' ) - DestroyCount = 1 - end - end - return DestroyCount -end ---- Set TASK to destroy certain unit types. --- @module DESTROYUNITTYPESTASK - - - ---- The DESTROYUNITTYPESTASK class --- @type -DESTROYUNITTYPESTASK = { - ClassName = "DESTROYUNITTYPESTASK", - GoalVerb = "Destroy", -} - ---- Creates a new DESTROYUNITTYPESTASK. --- @param string DestroyGroupType String describing the group to be destroyed. f.e. "Radar Installations", "Fleet", "Batallion", "Command Centers". --- @param string DestroyUnitType String describing the unit to be destroyed. f.e. "radars", "ships", "tanks", "centers". --- @param table{string,...} DestroyGroupNames Table of string containing the group names of which the radars are be destroyed. --- @param string DestroyUnitTypes Table of string containing the type names of the units to achieve mission success. --- @return DESTROYUNITTYPESTASK -function DESTROYUNITTYPESTASK:New( DestroyGroupType, DestroyUnitType, DestroyGroupNames, DestroyUnitTypes ) - local self = BASE:Inherit( self, DESTROYBASETASK:New( DestroyGroupType, DestroyUnitType, DestroyGroupNames ) ) - self:F( { DestroyGroupType, DestroyUnitType, DestroyGroupNames, DestroyUnitTypes } ) - - if type(DestroyUnitTypes) == 'table' then - self.DestroyUnitTypes = DestroyUnitTypes - else - self.DestroyUnitTypes = { DestroyUnitTypes } - end - - self.Name = 'Destroy Unit Types' - self.GoalVerb = "Destroy " .. DestroyGroupType - - _EVENTDISPATCHER:OnDead( self.EventDead , self ) - - return self -end - ---- Report Goal Progress. --- @param Group DestroyGroup Group structure describing the group to be evaluated. --- @param Unit DestroyUnit Unit structure describing the Unit to be evaluated. -function DESTROYUNITTYPESTASK:ReportGoalProgress( DestroyGroup, DestroyUnit ) - self:F( { DestroyGroup, DestroyUnit } ) - - local DestroyCount = 0 - for UnitTypeID, UnitType in pairs( self.DestroyUnitTypes ) do - if DestroyUnit and DestroyUnit:getTypeName() == UnitType then - if DestroyUnit and DestroyUnit:getLife() <= 1.0 then - DestroyCount = DestroyCount + 1 - end - end - end - return DestroyCount -end ---- A PICKUPTASK orchestrates the loading of CARGO at a specific landing zone. --- @module PICKUPTASK --- @parent TASK - ---- The PICKUPTASK class --- @type -PICKUPTASK = { - ClassName = "PICKUPTASK", - TEXT = { "Pick-Up", "picked-up", "loaded" }, - GoalVerb = "Pick-Up" -} - ---- Creates a new PICKUPTASK. --- @param table{string,...}|string LandingZones Table of Zone names where Cargo is to be loaded. --- @param CARGO_TYPE CargoType Type of the Cargo. The type must be of the following Enumeration:.. --- @param number OnBoardSide Reflects from which side the cargo Group will be on-boarded on the Carrier. -function PICKUPTASK:New( CargoType, OnBoardSide ) - local self = BASE:Inherit( self, TASK:New() ) - self:F() - - -- self holds the inherited instance of the PICKUPTASK Class to the BASE class. - - local Valid = true - - if Valid then - self.Name = 'Pickup Cargo' - self.TaskBriefing = "Task: Fly to the indicated landing zones and pickup " .. CargoType .. ". Your co-pilot will provide you with the directions (required flight angle in degrees) and the distance (in km) to the pickup zone." - self.CargoType = CargoType - self.GoalVerb = CargoType .. " " .. self.GoalVerb - self.OnBoardSide = OnBoardSide - self.IsLandingRequired = true -- required to decide whether the client needs to land or not - self.IsSlingLoad = false -- Indicates whether the cargo is a sling load cargo - self.Stages = { STAGE_CARGO_INIT:New(), STAGE_CARGO_LOAD:New(), STAGEBRIEF:New(), STAGESTART:New(), STAGEROUTE:New(), STAGELANDING:New(), STAGELANDED:New(), STAGELOAD:New(), STAGEDONE:New() } - self.SetStage( self, 1 ) - end - - return self -end - -function PICKUPTASK:FromZone( LandingZone ) - self:F() - - self.LandingZones.LandingZoneNames[LandingZone.CargoZoneName] = LandingZone.CargoZoneName - self.LandingZones.LandingZones[LandingZone.CargoZoneName] = LandingZone - - return self -end - -function PICKUPTASK:InitCargo( InitCargos ) - self:F( { InitCargos } ) - - if type( InitCargos ) == "table" then - self.Cargos.InitCargos = InitCargos - else - self.Cargos.InitCargos = { InitCargos } - end - - return self -end - -function PICKUPTASK:LoadCargo( LoadCargos ) - self:F( { LoadCargos } ) - - if type( LoadCargos ) == "table" then - self.Cargos.LoadCargos = LoadCargos - else - self.Cargos.LoadCargos = { LoadCargos } - end - - return self -end - -function PICKUPTASK:AddCargoMenus( Client, Cargos, TransportRadius ) - self:F() - - for CargoID, Cargo in pairs( Cargos ) do - - self:T( { Cargo.ClassName, Cargo.CargoName, Cargo.CargoType, Cargo:IsStatusNone(), Cargo:IsStatusLoaded(), Cargo:IsStatusLoading(), Cargo:IsStatusUnLoaded() } ) - - -- If the Cargo has no status, allow the menu option. - if Cargo:IsStatusNone() or ( Cargo:IsStatusLoading() and Client == Cargo:IsLoadingToClient() ) then - - local MenuAdd = false - if Cargo:IsNear( Client, self.CurrentCargoZone ) then - MenuAdd = true - end - - if MenuAdd then - if Client._Menus[Cargo.CargoType] == nil then - Client._Menus[Cargo.CargoType] = {} - end - - if not Client._Menus[Cargo.CargoType].PickupMenu then - Client._Menus[Cargo.CargoType].PickupMenu = missionCommands.addSubMenuForGroup( - Client:GetClientGroupID(), - self.TEXT[1] .. " " .. Cargo.CargoType, - nil - ) - self:T( 'Added PickupMenu: ' .. self.TEXT[1] .. " " .. Cargo.CargoType ) - end - - if Client._Menus[Cargo.CargoType].PickupSubMenus == nil then - Client._Menus[Cargo.CargoType].PickupSubMenus = {} - end - - Client._Menus[Cargo.CargoType].PickupSubMenus[ #Client._Menus[Cargo.CargoType].PickupSubMenus + 1 ] = missionCommands.addCommandForGroup( - Client:GetClientGroupID(), - Cargo.CargoName .. " ( " .. Cargo.CargoWeight .. "kg )", - Client._Menus[Cargo.CargoType].PickupMenu, - self.MenuAction, - { ReferenceTask = self, CargoTask = Cargo } - ) - self:T( 'Added PickupSubMenu' .. Cargo.CargoType .. ":" .. Cargo.CargoName .. " ( " .. Cargo.CargoWeight .. "kg )" ) - end - end - end - -end - -function PICKUPTASK:RemoveCargoMenus( Client ) - self:F() - - for MenuID, MenuData in pairs( Client._Menus ) do - for SubMenuID, SubMenuData in pairs( MenuData.PickupSubMenus ) do - missionCommands.removeItemForGroup( Client:GetClientGroupID(), SubMenuData ) - self:T( "Removed PickupSubMenu " ) - SubMenuData = nil - end - if MenuData.PickupMenu then - missionCommands.removeItemForGroup( Client:GetClientGroupID(), MenuData.PickupMenu ) - self:T( "Removed PickupMenu " ) - MenuData.PickupMenu = nil - end - end - - for CargoID, Cargo in pairs( CARGOS ) do - self:T( { Cargo.ClassName, Cargo.CargoName, Cargo.CargoType, Cargo:IsStatusNone(), Cargo:IsStatusLoaded(), Cargo:IsStatusLoading(), Cargo:IsStatusUnLoaded() } ) - if Cargo:IsStatusLoading() and Client == Cargo:IsLoadingToClient() then - Cargo:StatusNone() - end - end - -end - - - -function PICKUPTASK:HasFailed( ClientDead ) - self:F() - - local TaskHasFailed = self.TaskFailed - return TaskHasFailed -end - ---- A DEPLOYTASK orchestrates the deployment of CARGO within a specific landing zone. --- @module DEPLOYTASK - - - ---- A DeployTask --- @type DEPLOYTASK -DEPLOYTASK = { - ClassName = "DEPLOYTASK", - TEXT = { "Deploy", "deployed", "unloaded" }, - GoalVerb = "Deployment" -} - - ---- Creates a new DEPLOYTASK object, which models the sequence of STAGEs to unload a cargo. --- @function [parent=#DEPLOYTASK] New --- @param #string CargoType Type of the Cargo. --- @return #DEPLOYTASK The created DeployTask -function DEPLOYTASK:New( CargoType ) - local self = BASE:Inherit( self, TASK:New() ) - self:F() - - local Valid = true - - if Valid then - self.Name = 'Deploy Cargo' - self.TaskBriefing = "Fly to one of the indicated landing zones and deploy " .. CargoType .. ". Your co-pilot will provide you with the directions (required flight angle in degrees) and the distance (in km) to the deployment zone." - self.CargoType = CargoType - self.GoalVerb = CargoType .. " " .. self.GoalVerb - self.Stages = { STAGE_CARGO_INIT:New(), STAGE_CARGO_LOAD:New(), STAGEBRIEF:New(), STAGESTART:New(), STAGEROUTE:New(), STAGELANDING:New(), STAGELANDED:New(), STAGEUNLOAD:New(), STAGEDONE:New() } - self.SetStage( self, 1 ) - end - - return self -end - -function DEPLOYTASK:ToZone( LandingZone ) - self:F() - - self.LandingZones.LandingZoneNames[LandingZone.CargoZoneName] = LandingZone.CargoZoneName - self.LandingZones.LandingZones[LandingZone.CargoZoneName] = LandingZone - - return self -end - - -function DEPLOYTASK:InitCargo( InitCargos ) - self:F( { InitCargos } ) - - if type( InitCargos ) == "table" then - self.Cargos.InitCargos = InitCargos - else - self.Cargos.InitCargos = { InitCargos } - end - - return self -end - - -function DEPLOYTASK:LoadCargo( LoadCargos ) - self:F( { LoadCargos } ) - - if type( LoadCargos ) == "table" then - self.Cargos.LoadCargos = LoadCargos - else - self.Cargos.LoadCargos = { LoadCargos } - end - - return self -end - - ---- When the cargo is unloaded, it will move to the target zone name. --- @param string TargetZoneName Name of the Zone to where the Cargo should move after unloading. -function DEPLOYTASK:SetCargoTargetZoneName( TargetZoneName ) - self:F() - - local Valid = true - - Valid = routines.ValidateString( TargetZoneName, "TargetZoneName", Valid ) - - if Valid then - self.TargetZoneName = TargetZoneName - end - - return Valid - -end - -function DEPLOYTASK:AddCargoMenus( Client, Cargos, TransportRadius ) - self:F() - - local ClientGroupID = Client:GetClientGroupID() - - self:T( ClientGroupID ) - - for CargoID, Cargo in pairs( Cargos ) do - - self:T( { Cargo.ClassName, Cargo.CargoName, Cargo.CargoType, Cargo.CargoWeight } ) - - if Cargo:IsStatusLoaded() and Client == Cargo:IsLoadedInClient() then - - if Client._Menus[Cargo.CargoType] == nil then - Client._Menus[Cargo.CargoType] = {} - end - - if not Client._Menus[Cargo.CargoType].DeployMenu then - Client._Menus[Cargo.CargoType].DeployMenu = missionCommands.addSubMenuForGroup( - ClientGroupID, - self.TEXT[1] .. " " .. Cargo.CargoType, - nil - ) - self:T( 'Added DeployMenu ' .. self.TEXT[1] ) - end - - if Client._Menus[Cargo.CargoType].DeploySubMenus == nil then - Client._Menus[Cargo.CargoType].DeploySubMenus = {} - end - - if Client._Menus[Cargo.CargoType].DeployMenu == nil then - self:T( 'deploymenu is nil' ) - end - - Client._Menus[Cargo.CargoType].DeploySubMenus[ #Client._Menus[Cargo.CargoType].DeploySubMenus + 1 ] = missionCommands.addCommandForGroup( - ClientGroupID, - Cargo.CargoName .. " ( " .. Cargo.CargoWeight .. "kg )", - Client._Menus[Cargo.CargoType].DeployMenu, - self.MenuAction, - { ReferenceTask = self, CargoTask = Cargo } - ) - self:T( 'Added DeploySubMenu ' .. Cargo.CargoType .. ":" .. Cargo.CargoName .. " ( " .. Cargo.CargoWeight .. "kg )" ) - end - end - -end - -function DEPLOYTASK:RemoveCargoMenus( Client ) - self:F() - - local ClientGroupID = Client:GetClientGroupID() - self:T( ClientGroupID ) - - for MenuID, MenuData in pairs( Client._Menus ) do - if MenuData.DeploySubMenus ~= nil then - for SubMenuID, SubMenuData in pairs( MenuData.DeploySubMenus ) do - missionCommands.removeItemForGroup( ClientGroupID, SubMenuData ) - self:T( "Removed DeploySubMenu " ) - SubMenuData = nil - end - end - if MenuData.DeployMenu then - missionCommands.removeItemForGroup( ClientGroupID, MenuData.DeployMenu ) - self:T( "Removed DeployMenu " ) - MenuData.DeployMenu = nil - end - end - -end ---- A NOTASK is a dummy activity... But it will show a Mission Briefing... --- @module NOTASK - ---- The NOTASK class --- @type -NOTASK = { - ClassName = "NOTASK", -} - ---- Creates a new NOTASK. -function NOTASK:New() - local self = BASE:Inherit( self, TASK:New() ) - self:F() - - local Valid = true - - if Valid then - self.Name = 'Nothing' - self.TaskBriefing = "Task: Execute your mission." - self.Stages = { STAGEBRIEF:New(), STAGESTART:New(), STAGEDONE:New() } - self.SetStage( self, 1 ) - end - - return self -end ---- A ROUTETASK orchestrates the travel to a specific zone defined within the ME. --- @module ROUTETASK - ---- The ROUTETASK class --- @type -ROUTETASK = { - ClassName = "ROUTETASK", - GoalVerb = "Route", -} - ---- Creates a new ROUTETASK. --- @param table{sring,...}|string LandingZones Table of Zone Names where the target is located. --- @param string TaskBriefing (optional) Defines a text describing the briefing of the task. --- @return ROUTETASK -function ROUTETASK:New( LandingZones, TaskBriefing ) - local self = BASE:Inherit( self, TASK:New() ) - self:F( { LandingZones, TaskBriefing } ) - - local Valid = true - - Valid = routines.ValidateZone( LandingZones, "LandingZones", Valid ) - - if Valid then - self.Name = 'Route To Zone' - if TaskBriefing then - self.TaskBriefing = TaskBriefing .. " Your co-pilot will provide you with the directions (required flight angle in degrees) and the distance (in km) to the target objective." - else - self.TaskBriefing = "Task: Fly to specified zone(s). Your co-pilot will provide you with the directions (required flight angle in degrees) and the distance (in km) to the target objective." - end - if type( LandingZones ) == "table" then - self.LandingZones = LandingZones - else - self.LandingZones = { LandingZones } - end - self.Stages = { STAGEBRIEF:New(), STAGESTART:New(), STAGEROUTE:New(), STAGEARRIVE:New(), STAGEDONE:New() } - self.SetStage( self, 1 ) - end - - return self -end - ---- A MISSION is the main owner of a Mission orchestration within MOOSE . The Mission framework orchestrates @{CLIENT}s, @{TASK}s, @{STAGE}s etc. --- A @{CLIENT} needs to be registered within the @{MISSION} through the function @{AddClient}. A @{TASK} needs to be registered within the @{MISSION} through the function @{AddTask}. --- @module Mission - ---- The MISSION class --- @type MISSION --- @extends Base#BASE --- @field #MISSION.Clients _Clients --- @field #string MissionBriefing -MISSION = { - ClassName = "MISSION", - Name = "", - MissionStatus = "PENDING", - _Clients = {}, - _Tasks = {}, - _ActiveTasks = {}, - GoalFunction = nil, - MissionReportTrigger = 0, - MissionProgressTrigger = 0, - MissionReportShow = false, - MissionReportFlash = false, - MissionTimeInterval = 0, - MissionCoalition = "", - SUCCESS = 1, - FAILED = 2, - REPEAT = 3, - _GoalTasks = {} -} - ---- @type MISSION.Clients --- @list - -function MISSION:Meta() - - local self = BASE:Inherit( self, BASE:New() ) - self:F() - - return self -end - ---- This is the main MISSION declaration method. Each Mission is like the master or a Mission orchestration between, Clients, Tasks, Stages etc. --- @param string MissionName is the name of the mission. This name will be used to reference the status of each mission by the players. --- @param string MissionPriority is a string indicating the "priority" of the Mission. f.e. "Primary", "Secondary" or "First", "Second". It is free format and up to the Mission designer to choose. There are no rules behind this field. --- @param string MissionBriefing is a string indicating the mission briefing to be shown when a player joins a @{CLIENT}. --- @param string MissionCoalition is a string indicating the coalition or party to which this mission belongs to. It is free format and can be chosen freely by the mission designer. Note that this field is not to be confused with the coalition concept of the ME. Examples of a Mission Coalition could be "NATO", "CCCP", "Intruders", "Terrorists"... --- @return MISSION --- @usage --- -- Declare a few missions. --- local Mission = MISSIONSCHEDULER.AddMission( 'Russia Transport Troops SA-6', 'Operational', 'Transport troops from the control center to one of the SA-6 SAM sites to activate their operation.', 'Russia' ) --- local Mission = MISSIONSCHEDULER.AddMission( 'Patriots', 'Primary', 'Our intelligence reports that 3 Patriot SAM defense batteries are located near Ruisi, Kvarhiti and Gori.', 'Russia' ) --- local Mission = MISSIONSCHEDULER.AddMission( 'Package Delivery', 'Operational', 'In order to be in full control of the situation, we need you to deliver a very important package at a secret location. Fly undetected through the NATO defenses and deliver the secret package. The secret agent is located at waypoint 4.', 'Russia' ) --- local Mission = MISSIONSCHEDULER.AddMission( 'Rescue General', 'Tactical', 'Our intelligence has received a remote signal behind Gori. We believe it is a very important Russian General that was captured by Georgia. Go out there and rescue him! Ensure you stay out of the battle zone, keep south. Waypoint 4 is the location of our Russian General.', 'Russia' ) --- local Mission = MISSIONSCHEDULER.AddMission( 'NATO Transport Troops', 'Operational', 'Transport 3 groups of air defense engineers from our barracks "Gold" and "Titan" to each patriot battery control center to activate our air defenses.', 'NATO' ) --- local Mission = MISSIONSCHEDULER.AddMission( 'SA-6 SAMs', 'Primary', 'Our intelligence reports that 3 SA-6 SAM defense batteries are located near Didmukha, Khetagurov and Berula. Eliminate the Russian SAMs.', 'NATO' ) --- local Mission = MISSIONSCHEDULER.AddMission( 'NATO Sling Load', 'Operational', 'Fly to the cargo pickup zone at Dzegvi or Kaspi, and sling the cargo to Soganlug airbase.', 'NATO' ) --- local Mission = MISSIONSCHEDULER.AddMission( 'Rescue secret agent', 'Tactical', 'In order to be in full control of the situation, we need you to rescue a secret agent from the woods behind enemy lines. Avoid the Russian defenses and rescue the agent. Keep south until Khasuri, and keep your eyes open for any SAM presence. The agent is located at waypoint 4 on your kneeboard.', 'NATO' ) -function MISSION:New( MissionName, MissionPriority, MissionBriefing, MissionCoalition ) - - self = MISSION:Meta() - self:T({ MissionName, MissionPriority, MissionBriefing, MissionCoalition }) - - local Valid = true - - Valid = routines.ValidateString( MissionName, "MissionName", Valid ) - Valid = routines.ValidateString( MissionPriority, "MissionPriority", Valid ) - Valid = routines.ValidateString( MissionBriefing, "MissionBriefing", Valid ) - Valid = routines.ValidateString( MissionCoalition, "MissionCoalition", Valid ) - - if Valid then - self.Name = MissionName - self.MissionPriority = MissionPriority - self.MissionBriefing = MissionBriefing - self.MissionCoalition = MissionCoalition - end - - return self -end - ---- Returns if a Mission has completed. --- @return bool -function MISSION:IsCompleted() - self:F() - return self.MissionStatus == "ACCOMPLISHED" -end - ---- Set a Mission to completed. -function MISSION:Completed() - self:F() - self.MissionStatus = "ACCOMPLISHED" - self:StatusToClients() -end - ---- Returns if a Mission is ongoing. --- treturn bool -function MISSION:IsOngoing() - self:F() - return self.MissionStatus == "ONGOING" -end - ---- Set a Mission to ongoing. -function MISSION:Ongoing() - self:F() - self.MissionStatus = "ONGOING" - --self:StatusToClients() -end - ---- Returns if a Mission is pending. --- treturn bool -function MISSION:IsPending() - self:F() - return self.MissionStatus == "PENDING" -end - ---- Set a Mission to pending. -function MISSION:Pending() - self:F() - self.MissionStatus = "PENDING" - self:StatusToClients() -end - ---- Returns if a Mission has failed. --- treturn bool -function MISSION:IsFailed() - self:F() - return self.MissionStatus == "FAILED" -end - ---- Set a Mission to failed. -function MISSION:Failed() - self:F() - self.MissionStatus = "FAILED" - self:StatusToClients() -end - ---- Send the status of the MISSION to all Clients. -function MISSION:StatusToClients() - self:F() - if self.MissionReportFlash then - for ClientID, Client in pairs( self._Clients ) do - Client:Message( self.MissionCoalition .. ' "' .. self.Name .. '": ' .. self.MissionStatus .. '! ( ' .. self.MissionPriority .. ' mission ) ', 10, "Mission Command: Mission Status") - end - end -end - ---- Handles the reporting. After certain time intervals, a MISSION report MESSAGE will be shown to All Players. -function MISSION:ReportTrigger() - self:F() - - if self.MissionReportShow == true then - self.MissionReportShow = false - return true - else - if self.MissionReportFlash == true then - if timer.getTime() >= self.MissionReportTrigger then - self.MissionReportTrigger = timer.getTime() + self.MissionTimeInterval - return true - else - return false - end - else - return false - end - end -end - ---- Report the status of all MISSIONs to all active Clients. -function MISSION:ReportToAll() - self:F() - - local AlivePlayers = '' - for ClientID, Client in pairs( self._Clients ) do - if Client:GetDCSGroup() then - if Client:GetClientGroupDCSUnit() then - if Client:GetClientGroupDCSUnit():getLife() > 0.0 then - if AlivePlayers == '' then - AlivePlayers = ' Players: ' .. Client:GetClientGroupDCSUnit():getPlayerName() - else - AlivePlayers = AlivePlayers .. ' / ' .. Client:GetClientGroupDCSUnit():getPlayerName() - end - end - end - end - end - local Tasks = self:GetTasks() - local TaskText = "" - for TaskID, TaskData in pairs( Tasks ) do - TaskText = TaskText .. " - Task " .. TaskID .. ": " .. TaskData.Name .. ": " .. TaskData:GetGoalProgress() .. "\n" - end - MESSAGE:New( self.MissionCoalition .. ' "' .. self.Name .. '": ' .. self.MissionStatus .. ' ( ' .. self.MissionPriority .. ' mission )' .. AlivePlayers .. "\n" .. TaskText:gsub("\n$",""), 10, "Mission Command: Mission Report" ):ToAll() -end - - ---- Add a goal function to a MISSION. Goal functions are called when a @{TASK} within a mission has been completed. --- @param function GoalFunction is the function defined by the mission designer to evaluate whether a certain goal has been reached after a @{TASK} finishes within the @{MISSION}. A GoalFunction must accept 2 parameters: Mission, Client, which contains the current MISSION object and the current CLIENT object respectively. --- @usage --- PatriotActivation = { --- { "US SAM Patriot Zerti", false }, --- { "US SAM Patriot Zegduleti", false }, --- { "US SAM Patriot Gvleti", false } --- } --- --- function DeployPatriotTroopsGoal( Mission, Client ) --- --- --- -- Check if the cargo is all deployed for mission success. --- for CargoID, CargoData in pairs( Mission._Cargos ) do --- if Group.getByName( CargoData.CargoGroupName ) then --- CargoGroup = Group.getByName( CargoData.CargoGroupName ) --- if CargoGroup then --- -- Check if the cargo is ready to activate --- CurrentLandingZoneID = routines.IsUnitInZones( CargoGroup:getUnits()[1], Mission:GetTask( 2 ).LandingZones ) -- The second task is the Deploytask to measure mission success upon --- if CurrentLandingZoneID then --- if PatriotActivation[CurrentLandingZoneID][2] == false then --- -- Now check if this is a new Mission Task to be completed... --- trigger.action.setGroupAIOn( Group.getByName( PatriotActivation[CurrentLandingZoneID][1] ) ) --- PatriotActivation[CurrentLandingZoneID][2] = true --- MessageToBlue( "Mission Command: Message to all airborne units! The " .. PatriotActivation[CurrentLandingZoneID][1] .. " is armed. Our air defenses are now stronger.", 60, "BLUE/PatriotDefense" ) --- MessageToRed( "Mission Command: Our satellite systems are detecting additional NATO air defenses. To all airborne units: Take care!!!", 60, "RED/PatriotDefense" ) --- Mission:GetTask( 2 ):AddGoalCompletion( "Patriots activated", PatriotActivation[CurrentLandingZoneID][1], 1 ) -- Register Patriot activation as part of mission goal. --- end --- end --- end --- end --- end --- end --- --- local Mission = MISSIONSCHEDULER.AddMission( 'NATO Transport Troops', 'Operational', 'Transport 3 groups of air defense engineers from our barracks "Gold" and "Titan" to each patriot battery control center to activate our air defenses.', 'NATO' ) --- Mission:AddGoalFunction( DeployPatriotTroopsGoal ) -function MISSION:AddGoalFunction( GoalFunction ) - self:F() - self.GoalFunction = GoalFunction -end - ---- Register a new @{CLIENT} to participate within the mission. --- @param CLIENT Client is the @{CLIENT} object. The object must have been instantiated with @{CLIENT:New}. --- @return CLIENT --- @usage --- Add a number of Client objects to the Mission. --- Mission:AddClient( CLIENT:FindByName( 'US UH-1H*HOT-Deploy Troops 1', 'Transport 3 groups of air defense engineers from our barracks "Gold" and "Titan" to each patriot battery control center to activate our air defenses.' ):Transport() ) --- Mission:AddClient( CLIENT:FindByName( 'US UH-1H*RAMP-Deploy Troops 3', 'Transport 3 groups of air defense engineers from our barracks "Gold" and "Titan" to each patriot battery control center to activate our air defenses.' ):Transport() ) --- Mission:AddClient( CLIENT:FindByName( 'US UH-1H*HOT-Deploy Troops 2', 'Transport 3 groups of air defense engineers from our barracks "Gold" and "Titan" to each patriot battery control center to activate our air defenses.' ):Transport() ) --- Mission:AddClient( CLIENT:FindByName( 'US UH-1H*RAMP-Deploy Troops 4', 'Transport 3 groups of air defense engineers from our barracks "Gold" and "Titan" to each patriot battery control center to activate our air defenses.' ):Transport() ) -function MISSION:AddClient( Client ) - self:F( { Client } ) - - local Valid = true - - if Valid then - self._Clients[Client.ClientName] = Client - end - - return Client -end - ---- Find a @{CLIENT} object within the @{MISSION} by its ClientName. --- @param CLIENT ClientName is a string defining the Client Group as defined within the ME. --- @return CLIENT --- @usage --- -- Seach for Client "Bomber" within the Mission. --- local BomberClient = Mission:FindClient( "Bomber" ) -function MISSION:FindClient( ClientName ) - self:F( { self._Clients[ClientName] } ) - return self._Clients[ClientName] -end - - ---- Register a @{TASK} to be completed within the @{MISSION}. Note that there can be multiple @{TASK}s registered to be completed. Each TASK can be set a certain Goal. The MISSION will not be completed until all Goals are reached. --- @param TASK Task is the @{TASK} object. The object must have been instantiated with @{TASK:New} or any of its inherited @{TASK}s. --- @param number TaskNumber is the sequence number of the TASK within the MISSION. This number does have to be chronological. --- @return TASK --- @usage --- -- Define a few tasks for the Mission. --- PickupZones = { "NATO Gold Pickup Zone", "NATO Titan Pickup Zone" } --- PickupSignalUnits = { "NATO Gold Coordination Center", "NATO Titan Coordination Center" } --- --- -- Assign the Pickup Task --- local PickupTask = PICKUPTASK:New( PickupZones, CARGO_TYPE.ENGINEERS, CLIENT.ONBOARDSIDE.LEFT ) --- PickupTask:AddSmokeBlue( PickupSignalUnits ) --- PickupTask:SetGoalTotal( 3 ) --- Mission:AddTask( PickupTask, 1 ) --- --- -- Assign the Deploy Task --- local PatriotActivationZones = { "US Patriot Battery 1 Activation", "US Patriot Battery 2 Activation", "US Patriot Battery 3 Activation" } --- local PatriotActivationZonesSmokeUnits = { "US SAM Patriot - Battery 1 Control", "US SAM Patriot - Battery 2 Control", "US SAM Patriot - Battery 3 Control" } --- local DeployTask = DEPLOYTASK:New( PatriotActivationZones, CARGO_TYPE.ENGINEERS ) --- --DeployTask:SetCargoTargetZoneName( 'US Troops Attack ' .. math.random(2) ) --- DeployTask:AddSmokeBlue( PatriotActivationZonesSmokeUnits ) --- DeployTask:SetGoalTotal( 3 ) --- DeployTask:SetGoalTotal( 3, "Patriots activated" ) --- Mission:AddTask( DeployTask, 2 ) - -function MISSION:AddTask( Task, TaskNumber ) - self:F() - - self._Tasks[TaskNumber] = Task - self._Tasks[TaskNumber]:EnableEvents() - self._Tasks[TaskNumber].ID = TaskNumber - - return Task - end - ---- Get the TASK idenified by the TaskNumber from the Mission. This function is useful in GoalFunctions. --- @param number TaskNumber is the number of the @{TASK} within the @{MISSION}. --- @return TASK --- @usage --- -- Get Task 2 from the Mission. --- Task2 = Mission:GetTask( 2 ) - -function MISSION:GetTask( TaskNumber ) - self:F() - - local Valid = true - - local Task = nil - - if type(TaskNumber) ~= "number" then - Valid = false - end - - if Valid then - Task = self._Tasks[TaskNumber] - end - - return Task -end - ---- Get all the TASKs from the Mission. This function is useful in GoalFunctions. --- @return {TASK,...} Structure of TASKS with the @{TASK} number as the key. --- @usage --- -- Get Tasks from the Mission. --- Tasks = Mission:GetTasks() --- env.info( "Task 2 Completion = " .. Tasks[2]:GetGoalPercentage() .. "%" ) -function MISSION:GetTasks() - self:F() - - return self._Tasks -end - - ---[[ - _TransportExecuteStage: Defines the different stages of Transport unload/load execution. This table is internal and is used to control the validity of Transport load/unload timing. - - - _TransportExecuteStage.EXECUTING - - _TransportExecuteStage.SUCCESS - - _TransportExecuteStage.FAILED - ---]] -_TransportExecuteStage = { - NONE = 0, - EXECUTING = 1, - SUCCESS = 2, - FAILED = 3 -} - - ---- The MISSIONSCHEDULER is an OBJECT and is the main scheduler of ALL active MISSIONs registered within this scheduler. It's workings are considered internal and is automatically created when the Mission.lua file is included. --- @type MISSIONSCHEDULER --- @field #MISSIONSCHEDULER.MISSIONS Missions -MISSIONSCHEDULER = { - Missions = {}, - MissionCount = 0, - TimeIntervalCount = 0, - TimeIntervalShow = 150, - TimeSeconds = 14400, - TimeShow = 5 -} - ---- @type MISSIONSCHEDULER.MISSIONS --- @list <#MISSION> Mission - ---- This is the main MISSIONSCHEDULER Scheduler function. It is considered internal and is automatically created when the Mission.lua file is included. -function MISSIONSCHEDULER.Scheduler() - - - -- loop through the missions in the TransportTasks - for MissionName, MissionData in pairs( MISSIONSCHEDULER.Missions ) do - - local Mission = MissionData -- #MISSION - - if not Mission:IsCompleted() then - - -- This flag will monitor if for this mission, there are clients alive. If this flag is still false at the end of the loop, the mission status will be set to Pending (if not Failed or Completed). - local ClientsAlive = false - - for ClientID, ClientData in pairs( Mission._Clients ) do - - local Client = ClientData -- Client#CLIENT - - if Client:IsAlive() then - - -- There is at least one Client that is alive... So the Mission status is set to Ongoing. - ClientsAlive = true - - -- If this Client was not registered as Alive before: - -- 1. We register the Client as Alive. - -- 2. We initialize the Client Tasks and make a link to the original Mission Task. - -- 3. We initialize the Cargos. - -- 4. We flag the Mission as Ongoing. - if not Client.ClientAlive then - Client.ClientAlive = true - Client.ClientBriefingShown = false - for TaskNumber, Task in pairs( Mission._Tasks ) do - -- Note that this a deepCopy. Each client must have their own Tasks with own Stages!!! - Client._Tasks[TaskNumber] = routines.utils.deepCopy( Mission._Tasks[TaskNumber] ) - -- Each MissionTask must point to the original Mission. - Client._Tasks[TaskNumber].MissionTask = Mission._Tasks[TaskNumber] - Client._Tasks[TaskNumber].Cargos = Mission._Tasks[TaskNumber].Cargos - Client._Tasks[TaskNumber].LandingZones = Mission._Tasks[TaskNumber].LandingZones - end - - Mission:Ongoing() - end - - - -- For each Client, check for each Task the state and evolve the mission. - -- This flag will indicate if the Task of the Client is Complete. - local TaskComplete = false - - for TaskNumber, Task in pairs( Client._Tasks ) do - - if not Task.Stage then - Task:SetStage( 1 ) - end - - - local TransportTime = timer.getTime() - - if not Task:IsDone() then - - if Task:Goal() then - Task:ShowGoalProgress( Mission, Client ) - end - - --env.info( 'Scheduler: Mission = ' .. Mission.Name .. ' / Client = ' .. Client.ClientName .. ' / Task = ' .. Task.Name .. ' / Stage = ' .. Task.ActiveStage .. ' - ' .. Task.Stage.Name .. ' - ' .. Task.Stage.StageType ) - - -- Action - if Task:StageExecute() then - Task.Stage:Execute( Mission, Client, Task ) - end - - -- Wait until execution is finished - if Task.ExecuteStage == _TransportExecuteStage.EXECUTING then - Task.Stage:Executing( Mission, Client, Task ) - end - - -- Validate completion or reverse to earlier stage - if Task.Time + Task.Stage.WaitTime <= TransportTime then - Task:SetStage( Task.Stage:Validate( Mission, Client, Task ) ) - end - - if Task:IsDone() then - --env.info( 'Scheduler: Mission '.. Mission.Name .. ' Task ' .. Task.Name .. ' Stage ' .. Task.Stage.Name .. ' done. TaskComplete = ' .. string.format ( "%s", TaskComplete and "true" or "false" ) ) - TaskComplete = true -- when a task is not yet completed, a mission cannot be completed - - else - -- break only if this task is not yet done, so that future task are not yet activated. - TaskComplete = false -- when a task is not yet completed, a mission cannot be completed - --env.info( 'Scheduler: Mission "'.. Mission.Name .. '" Task "' .. Task.Name .. '" Stage "' .. Task.Stage.Name .. '" break. TaskComplete = ' .. string.format ( "%s", TaskComplete and "true" or "false" ) ) - break - end - - if TaskComplete then - - if Mission.GoalFunction ~= nil then - Mission.GoalFunction( Mission, Client ) - end - if MISSIONSCHEDULER.Scoring then - MISSIONSCHEDULER.Scoring:_AddMissionTaskScore( Client:GetClientGroupDCSUnit(), Mission.Name, 25 ) - end - --- if not Mission:IsCompleted() then --- end - end - end - end - - local MissionComplete = true - for TaskNumber, Task in pairs( Mission._Tasks ) do - if Task:Goal() then --- Task:ShowGoalProgress( Mission, Client ) - if Task:IsGoalReached() then - else - MissionComplete = false - end - else - MissionComplete = false -- If there is no goal, the mission should never be ended. The goal status will be set somewhere else. - end - end - - if MissionComplete then - Mission:Completed() - if MISSIONSCHEDULER.Scoring then - MISSIONSCHEDULER.Scoring:_AddMissionScore( Mission.Name, 100 ) - end - else - if TaskComplete then - -- Reset for new tasking of active client - Client.ClientAlive = false -- Reset the client tasks. - end - end - - - else - if Client.ClientAlive then - env.info( 'Scheduler: Client "' .. Client.ClientName .. '" is inactive.' ) - Client.ClientAlive = false - - -- This is tricky. If we sanitize Client._Tasks before sanitizing Client._Tasks[TaskNumber].MissionTask, then the original MissionTask will be sanitized, and will be lost within the garbage collector. - -- So first sanitize Client._Tasks[TaskNumber].MissionTask, after that, sanitize only the whole _Tasks structure... - --Client._Tasks[TaskNumber].MissionTask = nil - --Client._Tasks = nil - end - end - end - - -- If all Clients of this Mission are not activated, then the Mission status needs to be put back into Pending status. - -- But only if the Mission was Ongoing. In case the Mission is Completed or Failed, the Mission status may not be changed. In these cases, this will be the last run of this Mission in the Scheduler. - if ClientsAlive == false then - if Mission:IsOngoing() then - -- Mission status back to pending... - Mission:Pending() - end - end - end - - Mission:StatusToClients() - - if Mission:ReportTrigger() then - Mission:ReportToAll() - end - end - - return true -end - ---- Start the MISSIONSCHEDULER. -function MISSIONSCHEDULER.Start() - if MISSIONSCHEDULER ~= nil then - --MISSIONSCHEDULER.SchedulerId = routines.scheduleFunction( MISSIONSCHEDULER.Scheduler, { }, 0, 2 ) - MISSIONSCHEDULER.SchedulerId = SCHEDULER:New( nil, MISSIONSCHEDULER.Scheduler, { }, 0, 2 ) - end -end - ---- Stop the MISSIONSCHEDULER. -function MISSIONSCHEDULER.Stop() - if MISSIONSCHEDULER.SchedulerId then - routines.removeFunction(MISSIONSCHEDULER.SchedulerId) - MISSIONSCHEDULER.SchedulerId = nil - end -end - ---- This is the main MISSION declaration method. Each Mission is like the master or a Mission orchestration between, Clients, Tasks, Stages etc. --- @param Mission is the MISSION object instantiated by @{MISSION:New}. --- @return MISSION --- @usage --- -- Declare a mission. --- Mission = MISSION:New( 'Russia Transport Troops SA-6', --- 'Operational', --- 'Transport troops from the control center to one of the SA-6 SAM sites to activate their operation.', --- 'Russia' ) --- MISSIONSCHEDULER:AddMission( Mission ) -function MISSIONSCHEDULER.AddMission( Mission ) - MISSIONSCHEDULER.Missions[Mission.Name] = Mission - MISSIONSCHEDULER.MissionCount = MISSIONSCHEDULER.MissionCount + 1 - -- Add an overall AI Client for the AI tasks... This AI Client will facilitate the Events in the background for each Task. - --MissionAdd:AddClient( CLIENT:Register( 'AI' ) ) - - return Mission -end - ---- Remove a MISSION from the MISSIONSCHEDULER. --- @param MissionName is the name of the MISSION given at declaration using @{AddMission}. --- @usage --- -- Declare a mission. --- Mission = MISSION:New( 'Russia Transport Troops SA-6', --- 'Operational', --- 'Transport troops from the control center to one of the SA-6 SAM sites to activate their operation.', --- 'Russia' ) --- MISSIONSCHEDULER:AddMission( Mission ) --- --- -- Now remove the Mission. --- MISSIONSCHEDULER:RemoveMission( 'Russia Transport Troops SA-6' ) -function MISSIONSCHEDULER.RemoveMission( MissionName ) - MISSIONSCHEDULER.Missions[MissionName] = nil - MISSIONSCHEDULER.MissionCount = MISSIONSCHEDULER.MissionCount - 1 -end - ---- Find a MISSION within the MISSIONSCHEDULER. --- @param MissionName is the name of the MISSION given at declaration using @{AddMission}. --- @return MISSION --- @usage --- -- Declare a mission. --- Mission = MISSION:New( 'Russia Transport Troops SA-6', --- 'Operational', --- 'Transport troops from the control center to one of the SA-6 SAM sites to activate their operation.', --- 'Russia' ) --- MISSIONSCHEDULER:AddMission( Mission ) --- --- -- Now find the Mission. --- MissionFind = MISSIONSCHEDULER:FindMission( 'Russia Transport Troops SA-6' ) -function MISSIONSCHEDULER.FindMission( MissionName ) - return MISSIONSCHEDULER.Missions[MissionName] -end - --- Internal function used by the MISSIONSCHEDULER menu. -function MISSIONSCHEDULER.ReportMissionsShow( ) - for MissionName, Mission in pairs( MISSIONSCHEDULER.Missions ) do - Mission.MissionReportShow = true - Mission.MissionReportFlash = false - end -end - --- Internal function used by the MISSIONSCHEDULER menu. -function MISSIONSCHEDULER.ReportMissionsFlash( TimeInterval ) - local Count = 0 - for MissionName, Mission in pairs( MISSIONSCHEDULER.Missions ) do - Mission.MissionReportShow = false - Mission.MissionReportFlash = true - Mission.MissionReportTrigger = timer.getTime() + Count * TimeInterval - Mission.MissionTimeInterval = MISSIONSCHEDULER.MissionCount * TimeInterval - env.info( "TimeInterval = " .. Mission.MissionTimeInterval ) - Count = Count + 1 - end -end - --- Internal function used by the MISSIONSCHEDULER menu. -function MISSIONSCHEDULER.ReportMissionsHide( Prm ) - for MissionName, Mission in pairs( MISSIONSCHEDULER.Missions ) do - Mission.MissionReportShow = false - Mission.MissionReportFlash = false - end -end - ---- Enables a MENU option in the communications menu under F10 to control the status of the active missions. --- This function should be called only once when starting the MISSIONSCHEDULER. -function MISSIONSCHEDULER.ReportMenu() - local ReportMenu = SUBMENU:New( 'Status' ) - local ReportMenuShow = COMMANDMENU:New( 'Show Report Missions', ReportMenu, MISSIONSCHEDULER.ReportMissionsShow, 0 ) - local ReportMenuFlash = COMMANDMENU:New('Flash Report Missions', ReportMenu, MISSIONSCHEDULER.ReportMissionsFlash, 120 ) - local ReportMenuHide = COMMANDMENU:New( 'Hide Report Missions', ReportMenu, MISSIONSCHEDULER.ReportMissionsHide, 0 ) -end - ---- Show the remaining mission time. -function MISSIONSCHEDULER:TimeShow() - self.TimeIntervalCount = self.TimeIntervalCount + 1 - if self.TimeIntervalCount >= self.TimeTriggerShow then - local TimeMsg = string.format("%00d", ( self.TimeSeconds / 60 ) - ( timer.getTime() / 60 )) .. ' minutes left until mission reload.' - MESSAGE:New( TimeMsg, self.TimeShow, "Mission time" ):ToAll() - self.TimeIntervalCount = 0 - end -end - -function MISSIONSCHEDULER:Time( TimeSeconds, TimeIntervalShow, TimeShow ) - - self.TimeIntervalCount = 0 - self.TimeSeconds = TimeSeconds - self.TimeIntervalShow = TimeIntervalShow - self.TimeShow = TimeShow -end - ---- Adds a mission scoring to the game. -function MISSIONSCHEDULER:Scoring( Scoring ) - - self.Scoring = Scoring -end - ---- The CLEANUP class keeps an area clean of crashing or colliding airplanes. It also prevents airplanes from firing within this area. --- @module CleanUp --- @author Flightcontrol - - - - - - - ---- The CLEANUP class. --- @type CLEANUP --- @extends Base#BASE -CLEANUP = { - ClassName = "CLEANUP", - ZoneNames = {}, - TimeInterval = 300, - CleanUpList = {}, -} - ---- Creates the main object which is handling the cleaning of the debris within the given Zone Names. --- @param #CLEANUP self --- @param #table ZoneNames Is a table of zone names where the debris should be cleaned. Also a single string can be passed with one zone name. --- @param #number TimeInterval The interval in seconds when the clean activity takes place. The default is 300 seconds, thus every 5 minutes. --- @return #CLEANUP --- @usage --- -- Clean these Zones. --- CleanUpAirports = CLEANUP:New( { 'CLEAN Tbilisi', 'CLEAN Kutaisi' }, 150 ) --- or --- CleanUpTbilisi = CLEANUP:New( 'CLEAN Tbilisi', 150 ) --- CleanUpKutaisi = CLEANUP:New( 'CLEAN Kutaisi', 600 ) -function CLEANUP:New( ZoneNames, TimeInterval ) local self = BASE:Inherit( self, BASE:New() ) - self:F( { ZoneNames, TimeInterval } ) - - if type( ZoneNames ) == 'table' then - self.ZoneNames = ZoneNames - else - self.ZoneNames = { ZoneNames } - end - if TimeInterval then - self.TimeInterval = TimeInterval - end - - _EVENTDISPATCHER:OnBirth( self._OnEventBirth, self ) - - self.CleanUpScheduler = SCHEDULER:New( self, self._CleanUpScheduler, {}, 1, TimeInterval ) - - return self -end - - ---- Destroys a group from the simulator, but checks first if it is still existing! --- @param #CLEANUP self --- @param DCSGroup#Group GroupObject The object to be destroyed. --- @param #string CleanUpGroupName The groupname... -function CLEANUP:_DestroyGroup( GroupObject, CleanUpGroupName ) - self:F( { GroupObject, CleanUpGroupName } ) - - if GroupObject then -- and GroupObject:isExist() then - trigger.action.deactivateGroup(GroupObject) - self:T( { "GroupObject Destroyed", GroupObject } ) - end -end - ---- Destroys a @{DCSUnit#Unit} from the simulator, but checks first if it is still existing! --- @param #CLEANUP self --- @param DCSUnit#Unit CleanUpUnit The object to be destroyed. --- @param #string CleanUpUnitName The Unit name ... -function CLEANUP:_DestroyUnit( CleanUpUnit, CleanUpUnitName ) - self:F( { CleanUpUnit, CleanUpUnitName } ) - - if CleanUpUnit then - local CleanUpGroup = Unit.getGroup(CleanUpUnit) - -- TODO Client bug in 1.5.3 - if CleanUpGroup and CleanUpGroup:isExist() then - local CleanUpGroupUnits = CleanUpGroup:getUnits() - if #CleanUpGroupUnits == 1 then - local CleanUpGroupName = CleanUpGroup:getName() - --self:CreateEventCrash( timer.getTime(), CleanUpUnit ) - CleanUpGroup:destroy() - self:T( { "Destroyed Group:", CleanUpGroupName } ) - else - CleanUpUnit:destroy() - self:T( { "Destroyed Unit:", CleanUpUnitName } ) - end - self.CleanUpList[CleanUpUnitName] = nil -- Cleaning from the list - CleanUpUnit = nil - end - end -end - --- TODO check DCSTypes#Weapon ---- Destroys a missile from the simulator, but checks first if it is still existing! --- @param #CLEANUP self --- @param DCSTypes#Weapon MissileObject -function CLEANUP:_DestroyMissile( MissileObject ) - self:F( { MissileObject } ) - - if MissileObject and MissileObject:isExist() then - MissileObject:destroy() - self:T( "MissileObject Destroyed") - end -end - -function CLEANUP:_OnEventBirth( Event ) - self:F( { Event } ) - - self.CleanUpList[Event.IniDCSUnitName] = {} - self.CleanUpList[Event.IniDCSUnitName].CleanUpUnit = Event.IniDCSUnit - self.CleanUpList[Event.IniDCSUnitName].CleanUpGroup = Event.IniDCSGroup - self.CleanUpList[Event.IniDCSUnitName].CleanUpGroupName = Event.IniDCSGroupName - self.CleanUpList[Event.IniDCSUnitName].CleanUpUnitName = Event.IniDCSUnitName - - _EVENTDISPATCHER:OnEngineShutDownForUnit( Event.IniDCSUnitName, self._EventAddForCleanUp, self ) - _EVENTDISPATCHER:OnEngineStartUpForUnit( Event.IniDCSUnitName, self._EventAddForCleanUp, self ) - _EVENTDISPATCHER:OnHitForUnit( Event.IniDCSUnitName, self._EventAddForCleanUp, self ) - _EVENTDISPATCHER:OnPilotDeadForUnit( Event.IniDCSUnitName, self._EventCrash, self ) - _EVENTDISPATCHER:OnDeadForUnit( Event.IniDCSUnitName, self._EventCrash, self ) - _EVENTDISPATCHER:OnCrashForUnit( Event.IniDCSUnitName, self._EventCrash, self ) - _EVENTDISPATCHER:OnShotForUnit( Event.IniDCSUnitName, self._EventShot, self ) - - --self:AddEvent( world.event.S_EVENT_ENGINE_SHUTDOWN, self._EventAddForCleanUp ) - --self:AddEvent( world.event.S_EVENT_ENGINE_STARTUP, self._EventAddForCleanUp ) --- self:AddEvent( world.event.S_EVENT_HIT, self._EventAddForCleanUp ) -- , self._EventHitCleanUp ) --- self:AddEvent( world.event.S_EVENT_CRASH, self._EventCrash ) -- , self._EventHitCleanUp ) --- --self:AddEvent( world.event.S_EVENT_DEAD, self._EventCrash ) --- self:AddEvent( world.event.S_EVENT_SHOT, self._EventShot ) --- --- self:EnableEvents() - - -end - ---- Detects if a crash event occurs. --- Crashed units go into a CleanUpList for removal. --- @param #CLEANUP self --- @param DCSTypes#Event event -function CLEANUP:_EventCrash( Event ) - self:F( { Event } ) - - --TODO: This stuff is not working due to a DCS bug. Burning units cannot be destroyed. - -- self:T("before getGroup") - -- local _grp = Unit.getGroup(event.initiator)-- Identify the group that fired - -- self:T("after getGroup") - -- _grp:destroy() - -- self:T("after deactivateGroup") - -- event.initiator:destroy() - - self.CleanUpList[Event.IniDCSUnitName] = {} - self.CleanUpList[Event.IniDCSUnitName].CleanUpUnit = Event.IniDCSUnit - self.CleanUpList[Event.IniDCSUnitName].CleanUpGroup = Event.IniDCSGroup - self.CleanUpList[Event.IniDCSUnitName].CleanUpGroupName = Event.IniDCSGroupName - self.CleanUpList[Event.IniDCSUnitName].CleanUpUnitName = Event.IniDCSUnitName - -end - ---- Detects if a unit shoots a missile. --- If this occurs within one of the zones, then the weapon used must be destroyed. --- @param #CLEANUP self --- @param DCSTypes#Event event -function CLEANUP:_EventShot( Event ) - self:F( { Event } ) - - -- Test if the missile was fired within one of the CLEANUP.ZoneNames. - local CurrentLandingZoneID = 0 - CurrentLandingZoneID = routines.IsUnitInZones( Event.IniDCSUnit, self.ZoneNames ) - if ( CurrentLandingZoneID ) then - -- Okay, the missile was fired within the CLEANUP.ZoneNames, destroy the fired weapon. - --_SEADmissile:destroy() - SCHEDULER:New( self, CLEANUP._DestroyMissile, { Event.Weapon }, 0.1 ) - end -end - - ---- Detects if the Unit has an S_EVENT_HIT within the given ZoneNames. If this is the case, destroy the unit. --- @param #CLEANUP self --- @param DCSTypes#Event event -function CLEANUP:_EventHitCleanUp( Event ) - self:F( { Event } ) - - if Event.IniDCSUnit then - if routines.IsUnitInZones( Event.IniDCSUnit, self.ZoneNames ) ~= nil then - self:T( { "Life: ", Event.IniDCSUnitName, ' = ', Event.IniDCSUnit:getLife(), "/", Event.IniDCSUnit:getLife0() } ) - if Event.IniDCSUnit:getLife() < Event.IniDCSUnit:getLife0() then - self:T( "CleanUp: Destroy: " .. Event.IniDCSUnitName ) - SCHEDULER:New( self, CLEANUP._DestroyUnit, { Event.IniDCSUnit }, 0.1 ) - end - end - end - - if Event.TgtDCSUnit then - if routines.IsUnitInZones( Event.TgtDCSUnit, self.ZoneNames ) ~= nil then - self:T( { "Life: ", Event.TgtDCSUnitName, ' = ', Event.TgtDCSUnit:getLife(), "/", Event.TgtDCSUnit:getLife0() } ) - if Event.TgtDCSUnit:getLife() < Event.TgtDCSUnit:getLife0() then - self:T( "CleanUp: Destroy: " .. Event.TgtDCSUnitName ) - SCHEDULER:New( self, CLEANUP._DestroyUnit, { Event.TgtDCSUnit }, 0.1 ) - end - end - end -end - ---- Add the @{DCSUnit#Unit} to the CleanUpList for CleanUp. -function CLEANUP:_AddForCleanUp( CleanUpUnit, CleanUpUnitName ) - self:F( { CleanUpUnit, CleanUpUnitName } ) - - self.CleanUpList[CleanUpUnitName] = {} - self.CleanUpList[CleanUpUnitName].CleanUpUnit = CleanUpUnit - self.CleanUpList[CleanUpUnitName].CleanUpUnitName = CleanUpUnitName - self.CleanUpList[CleanUpUnitName].CleanUpGroup = Unit.getGroup(CleanUpUnit) - self.CleanUpList[CleanUpUnitName].CleanUpGroupName = Unit.getGroup(CleanUpUnit):getName() - self.CleanUpList[CleanUpUnitName].CleanUpTime = timer.getTime() - self.CleanUpList[CleanUpUnitName].CleanUpMoved = false - - self:T( { "CleanUp: Add to CleanUpList: ", Unit.getGroup(CleanUpUnit):getName(), CleanUpUnitName } ) - -end - ---- Detects if the Unit has an S_EVENT_ENGINE_SHUTDOWN or an S_EVENT_HIT within the given ZoneNames. If this is the case, add the Group to the CLEANUP List. --- @param #CLEANUP self --- @param DCSTypes#Event event -function CLEANUP:_EventAddForCleanUp( Event ) - - if Event.IniDCSUnit then - if self.CleanUpList[Event.IniDCSUnitName] == nil then - if routines.IsUnitInZones( Event.IniDCSUnit, self.ZoneNames ) ~= nil then - self:_AddForCleanUp( Event.IniDCSUnit, Event.IniDCSUnitName ) - end - end - end - - if Event.TgtDCSUnit then - if self.CleanUpList[Event.TgtDCSUnitName] == nil then - if routines.IsUnitInZones( Event.TgtDCSUnit, self.ZoneNames ) ~= nil then - self:_AddForCleanUp( Event.TgtDCSUnit, Event.TgtDCSUnitName ) - end - end - end - -end - -local CleanUpSurfaceTypeText = { - "LAND", - "SHALLOW_WATER", - "WATER", - "ROAD", - "RUNWAY" - } - ---- At the defined time interval, CleanUp the Groups within the CleanUpList. --- @param #CLEANUP self -function CLEANUP:_CleanUpScheduler() - self:F( { "CleanUp Scheduler" } ) - - local CleanUpCount = 0 - for CleanUpUnitName, UnitData in pairs( self.CleanUpList ) do - CleanUpCount = CleanUpCount + 1 - - self:T( { CleanUpUnitName, UnitData } ) - local CleanUpUnit = Unit.getByName(UnitData.CleanUpUnitName) - local CleanUpGroupName = UnitData.CleanUpGroupName - local CleanUpUnitName = UnitData.CleanUpUnitName - if CleanUpUnit then - self:T( { "CleanUp Scheduler", "Checking:", CleanUpUnitName } ) - if _DATABASE:GetStatusGroup( CleanUpGroupName ) ~= "ReSpawn" then - local CleanUpUnitVec3 = CleanUpUnit:getPoint() - --self:T( CleanUpUnitVec3 ) - local CleanUpUnitVec2 = {} - CleanUpUnitVec2.x = CleanUpUnitVec3.x - CleanUpUnitVec2.y = CleanUpUnitVec3.z - --self:T( CleanUpUnitVec2 ) - local CleanUpSurfaceType = land.getSurfaceType(CleanUpUnitVec2) - --self:T( CleanUpSurfaceType ) - - if CleanUpUnit and CleanUpUnit:getLife() <= CleanUpUnit:getLife0() * 0.95 then - if CleanUpSurfaceType == land.SurfaceType.RUNWAY then - if CleanUpUnit:inAir() then - local CleanUpLandHeight = land.getHeight(CleanUpUnitVec2) - local CleanUpUnitHeight = CleanUpUnitVec3.y - CleanUpLandHeight - self:T( { "CleanUp Scheduler", "Height = " .. CleanUpUnitHeight } ) - if CleanUpUnitHeight < 30 then - self:T( { "CleanUp Scheduler", "Destroy " .. CleanUpUnitName .. " because below safe height and damaged." } ) - self:_DestroyUnit(CleanUpUnit, CleanUpUnitName) - end - else - self:T( { "CleanUp Scheduler", "Destroy " .. CleanUpUnitName .. " because on runway and damaged." } ) - self:_DestroyUnit(CleanUpUnit, CleanUpUnitName) - end - end - end - -- Clean Units which are waiting for a very long time in the CleanUpZone. - if CleanUpUnit then - local CleanUpUnitVelocity = CleanUpUnit:getVelocity() - local CleanUpUnitVelocityTotal = math.abs(CleanUpUnitVelocity.x) + math.abs(CleanUpUnitVelocity.y) + math.abs(CleanUpUnitVelocity.z) - if CleanUpUnitVelocityTotal < 1 then - if UnitData.CleanUpMoved then - if UnitData.CleanUpTime + 180 <= timer.getTime() then - self:T( { "CleanUp Scheduler", "Destroy due to not moving anymore " .. CleanUpUnitName } ) - self:_DestroyUnit(CleanUpUnit, CleanUpUnitName) - end - end - else - UnitData.CleanUpTime = timer.getTime() - UnitData.CleanUpMoved = true - end - end - - else - -- Do nothing ... - self.CleanUpList[CleanUpUnitName] = nil -- Not anymore in the DCSRTE - end - else - self:T( "CleanUp: Group " .. CleanUpUnitName .. " cannot be found in DCS RTE, removing ..." ) - self.CleanUpList[CleanUpUnitName] = nil -- Not anymore in the DCSRTE - end - end - self:T(CleanUpCount) - - return true -end - ---- This module contains the SPAWN class. --- --- 1) @{Spawn#SPAWN} class, extends @{Base#BASE} --- ============================================= --- The @{#SPAWN} class allows to spawn dynamically new groups, based on pre-defined initialization settings, modifying the behaviour when groups are spawned. --- For each group to be spawned, within the mission editor, a group has to be created with the "late activation flag" set. We call this group the *"Spawn Template"* of the SPAWN object. --- A reference to this Spawn Template needs to be provided when constructing the SPAWN object, by indicating the name of the group within the mission editor in the constructor methods. --- --- Within the SPAWN object, there is an internal index that keeps track of which group from the internal group list was spawned. --- When new groups get spawned by using the SPAWN functions (see below), it will be validated whether the Limits (@{#SPAWN.Limit}) of the SPAWN object are not reached. --- When all is valid, a new group will be created by the spawning methods, and the internal index will be increased with 1. --- --- Regarding the name of new spawned groups, a _SpawnPrefix_ will be assigned for each new group created. --- If you want to have the Spawn Template name to be used as the _SpawnPrefix_ name, use the @{#SPAWN.New} constructor. --- However, when the @{#SPAWN.NewWithAlias} constructor was used, the Alias name will define the _SpawnPrefix_ name. --- Groups will follow the following naming structure when spawned at run-time: --- --- 1. Spawned groups will have the name _SpawnPrefix_#ggg, where ggg is a counter from 0 to 999. --- 2. Spawned units will have the name _SpawnPrefix_#ggg-uu, where uu is a counter from 0 to 99 for each new spawned unit belonging to the group. --- --- Some additional notes that need to be remembered: --- --- * Templates are actually groups defined within the mission editor, with the flag "Late Activation" set. As such, these groups are never used within the mission, but are used by the @{#SPAWN} module. --- * It is important to defined BEFORE you spawn new groups, a proper initialization of the SPAWN instance is done with the options you want to use. --- * When designing a mission, NEVER name groups using a "#" within the name of the group Spawn Template(s), or the SPAWN module logic won't work anymore. --- --- 1.1) SPAWN construction methods --- ------------------------------- --- Create a new SPAWN object with the @{#SPAWN.New} or the @{#SPAWN.NewWithAlias} methods: --- --- * @{#SPAWN.New}: Creates a new SPAWN object taking the name of the group that functions as the Template. --- --- It is important to understand how the SPAWN class works internally. The SPAWN object created will contain internally a list of groups that will be spawned and that are already spawned. --- The initialization functions will modify this list of groups so that when a group gets spawned, ALL information is already prepared when spawning. This is done for performance reasons. --- So in principle, the group list will contain all parameters and configurations after initialization, and when groups get actually spawned, this spawning can be done quickly and efficient. --- --- 1.2) SPAWN initialization methods --- --------------------------------- --- A spawn object will behave differently based on the usage of initialization methods: --- --- * @{#SPAWN.Limit}: Limits the amount of groups that can be alive at the same time and that can be dynamically spawned. --- * @{#SPAWN.RandomizeRoute}: Randomize the routes of spawned groups. --- * @{#SPAWN.RandomizeTemplate}: Randomize the group templates so that when a new group is spawned, a random group template is selected from one of the templates defined. --- * @{#SPAWN.Uncontrolled}: Spawn plane groups uncontrolled. --- * @{#SPAWN.Array}: Make groups visible before they are actually activated, and order these groups like a batallion in an array. --- * @{#SPAWN.InitRepeat}: Re-spawn groups when they land at the home base. Similar functions are @{#SPAWN.InitRepeatOnLanding} and @{#SPAWN.InitRepeatOnEngineShutDown}. --- --- 1.3) SPAWN spawning methods --- --------------------------- --- Groups can be spawned at different times and methods: --- --- * @{#SPAWN.Spawn}: Spawn one new group based on the last spawned index. --- * @{#SPAWN.ReSpawn}: Re-spawn a group based on a given index. --- * @{#SPAWN.SpawnScheduled}: Spawn groups at scheduled but randomized intervals. You can use @{#SPAWN.SpawnScheduleStart} and @{#SPAWN.SpawnScheduleStop} to start and stop the schedule respectively. --- * @{#SPAWN.SpawnFromUnit}: Spawn a new group taking the position of a @{UNIT}. --- * @{#SPAWN.SpawnInZone}: Spawn a new group in a @{ZONE}. --- --- Note that @{#SPAWN.Spawn} and @{#SPAWN.ReSpawn} return a @{GROUP#GROUP.New} object, that contains a reference to the DCSGroup object. --- You can use the @{GROUP} object to do further actions with the DCSGroup. --- --- 1.4) SPAWN object cleaning --- -------------------------- --- Sometimes, it will occur during a mission run-time, that ground or especially air objects get damaged, and will while being damged stop their activities, while remaining alive. --- In such cases, the SPAWN object will just sit there and wait until that group gets destroyed, but most of the time it won't, --- and it may occur that no new groups are or can be spawned as limits are reached. --- To prevent this, a @{#SPAWN.CleanUp} initialization method has been defined that will silently monitor the status of each spawned group. --- Once a group has a velocity = 0, and has been waiting for a defined interval, that group will be cleaned or removed from run-time. --- There is a catch however :-) If a damaged group has returned to an airbase within the coalition, that group will not be considered as "lost"... --- In such a case, when the inactive group is cleaned, a new group will Re-spawned automatically. --- This models AI that has succesfully returned to their airbase, to restart their combat activities. --- Check the @{#SPAWN.CleanUp} for further info. --- --- --- @module Spawn --- @author FlightControl - ---- SPAWN Class --- @type SPAWN --- @extends Base#BASE --- @field ClassName --- @field #string SpawnTemplatePrefix --- @field #string SpawnAliasPrefix -SPAWN = { - ClassName = "SPAWN", - SpawnTemplatePrefix = nil, - SpawnAliasPrefix = nil, -} - - - ---- Creates the main object to spawn a GROUP defined in the DCS ME. --- @param #SPAWN self --- @param #string SpawnTemplatePrefix is the name of the Group in the ME that defines the Template. Each new group will have the name starting with SpawnTemplatePrefix. --- @return #SPAWN --- @usage --- -- NATO helicopters engaging in the battle field. --- Spawn_BE_KA50 = SPAWN:New( 'BE KA-50@RAMP-Ground Defense' ) --- @usage local Plane = SPAWN:New( "Plane" ) -- Creates a new local variable that can initiate new planes with the name "Plane#ddd" using the template "Plane" as defined within the ME. -function SPAWN:New( SpawnTemplatePrefix ) - local self = BASE:Inherit( self, BASE:New() ) - self:F( { SpawnTemplatePrefix } ) - - local TemplateGroup = Group.getByName( SpawnTemplatePrefix ) - if TemplateGroup then - self.SpawnTemplatePrefix = SpawnTemplatePrefix - self.SpawnIndex = 0 - self.SpawnCount = 0 -- The internal counter of the amount of spawning the has happened since SpawnStart. - self.AliveUnits = 0 -- Contains the counter how many units are currently alive - self.SpawnIsScheduled = false -- Reflects if the spawning for this SpawnTemplatePrefix is going to be scheduled or not. - self.SpawnTemplate = self._GetTemplate( self, SpawnTemplatePrefix ) -- Contains the template structure for a Group Spawn from the Mission Editor. Note that this group must have lateActivation always on!!! - self.Repeat = false -- Don't repeat the group from Take-Off till Landing and back Take-Off by ReSpawning. - self.UnControlled = false -- When working in UnControlled mode, all planes are Spawned in UnControlled mode before the scheduler starts. - self.SpawnMaxUnitsAlive = 0 -- The maximum amount of groups that can be alive of SpawnTemplatePrefix at the same time. - self.SpawnMaxGroups = 0 -- The maximum amount of groups that can be spawned. - self.SpawnRandomize = false -- Sets the randomization flag of new Spawned units to false. - self.SpawnVisible = false -- Flag that indicates if all the Groups of the SpawnGroup need to be visible when Spawned. - - self.SpawnGroups = {} -- Array containing the descriptions of each Group to be Spawned. - else - error( "SPAWN:New: There is no group declared in the mission editor with SpawnTemplatePrefix = '" .. SpawnTemplatePrefix .. "'" ) - end - - return self -end - ---- Creates a new SPAWN instance to create new groups based on the defined template and using a new alias for each new group. --- @param #SPAWN self --- @param #string SpawnTemplatePrefix is the name of the Group in the ME that defines the Template. --- @param #string SpawnAliasPrefix is the name that will be given to the Group at runtime. --- @return #SPAWN --- @usage --- -- NATO helicopters engaging in the battle field. --- Spawn_BE_KA50 = SPAWN:NewWithAlias( 'BE KA-50@RAMP-Ground Defense', 'Helicopter Attacking a City' ) --- @usage local PlaneWithAlias = SPAWN:NewWithAlias( "Plane", "Bomber" ) -- Creates a new local variable that can instantiate new planes with the name "Bomber#ddd" using the template "Plane" as defined within the ME. -function SPAWN:NewWithAlias( SpawnTemplatePrefix, SpawnAliasPrefix ) - local self = BASE:Inherit( self, BASE:New() ) - self:F( { SpawnTemplatePrefix, SpawnAliasPrefix } ) - - local TemplateGroup = Group.getByName( SpawnTemplatePrefix ) - if TemplateGroup then - self.SpawnTemplatePrefix = SpawnTemplatePrefix - self.SpawnAliasPrefix = SpawnAliasPrefix - self.SpawnIndex = 0 - self.SpawnCount = 0 -- The internal counter of the amount of spawning the has happened since SpawnStart. - self.AliveUnits = 0 -- Contains the counter how many units are currently alive - self.SpawnIsScheduled = false -- Reflects if the spawning for this SpawnTemplatePrefix is going to be scheduled or not. - self.SpawnTemplate = self._GetTemplate( self, SpawnTemplatePrefix ) -- Contains the template structure for a Group Spawn from the Mission Editor. Note that this group must have lateActivation always on!!! - self.Repeat = false -- Don't repeat the group from Take-Off till Landing and back Take-Off by ReSpawning. - self.UnControlled = false -- When working in UnControlled mode, all planes are Spawned in UnControlled mode before the scheduler starts. - self.SpawnMaxUnitsAlive = 0 -- The maximum amount of groups that can be alive of SpawnTemplatePrefix at the same time. - self.SpawnMaxGroups = 0 -- The maximum amount of groups that can be spawned. - self.SpawnRandomize = false -- Sets the randomization flag of new Spawned units to false. - self.SpawnVisible = false -- Flag that indicates if all the Groups of the SpawnGroup need to be visible when Spawned. - - self.SpawnGroups = {} -- Array containing the descriptions of each Group to be Spawned. - else - error( "SPAWN:New: There is no group declared in the mission editor with SpawnTemplatePrefix = '" .. SpawnTemplatePrefix .. "'" ) - end - - return self -end - - ---- Limits the Maximum amount of Units that can be alive at the same time, and the maximum amount of groups that can be spawned. --- Note that this method is exceptionally important to balance the performance of the mission. Depending on the machine etc, a mission can only process a maximum amount of units. --- If the time interval must be short, but there should not be more Units or Groups alive than a maximum amount of units, then this function should be used... --- When a @{#SPAWN.New} is executed and the limit of the amount of units alive is reached, then no new spawn will happen of the group, until some of these units of the spawn object will be destroyed. --- @param #SPAWN self --- @param #number SpawnMaxUnitsAlive The maximum amount of units that can be alive at runtime. --- @param #number SpawnMaxGroups The maximum amount of groups that can be spawned. When the limit is reached, then no more actual spawns will happen of the group. --- This parameter is useful to define a maximum amount of airplanes, ground troops, helicopters, ships etc within a supply area. --- This parameter accepts the value 0, which defines that there are no maximum group limits, but there are limits on the maximum of units that can be alive at the same time. --- @return #SPAWN self --- @usage --- -- NATO helicopters engaging in the battle field. --- -- This helicopter group consists of one Unit. So, this group will SPAWN maximum 2 groups simultaneously within the DCSRTE. --- -- There will be maximum 24 groups spawned during the whole mission lifetime. --- Spawn_BE_KA50 = SPAWN:New( 'BE KA-50@RAMP-Ground Defense' ):Limit( 2, 24 ) -function SPAWN:Limit( SpawnMaxUnitsAlive, SpawnMaxGroups ) - self:F( { self.SpawnTemplatePrefix, SpawnMaxUnitsAlive, SpawnMaxGroups } ) - - self.SpawnMaxUnitsAlive = SpawnMaxUnitsAlive -- The maximum amount of groups that can be alive of SpawnTemplatePrefix at the same time. - self.SpawnMaxGroups = SpawnMaxGroups -- The maximum amount of groups that can be spawned. - - for SpawnGroupID = 1, self.SpawnMaxGroups do - self:_InitializeSpawnGroups( SpawnGroupID ) - end - - return self -end - - ---- Randomizes the defined route of the SpawnTemplatePrefix group in the ME. This is very useful to define extra variation of the behaviour of groups. --- @param #SPAWN self --- @param #number SpawnStartPoint is the waypoint where the randomization begins. --- Note that the StartPoint = 0 equaling the point where the group is spawned. --- @param #number SpawnEndPoint is the waypoint where the randomization ends counting backwards. --- This parameter is useful to avoid randomization to end at a waypoint earlier than the last waypoint on the route. --- @param #number SpawnRadius is the radius in meters in which the randomization of the new waypoints, with the original waypoint of the original template located in the middle ... --- @return #SPAWN --- @usage --- -- NATO helicopters engaging in the battle field. --- -- The KA-50 has waypoints Start point ( =0 or SP ), 1, 2, 3, 4, End point (= 5 or DP). --- -- Waypoints 2 and 3 will only be randomized. The others will remain on their original position with each new spawn of the helicopter. --- -- The randomization of waypoint 2 and 3 will take place within a radius of 2000 meters. --- Spawn_BE_KA50 = SPAWN:New( 'BE KA-50@RAMP-Ground Defense' ):RandomizeRoute( 2, 2, 2000 ) -function SPAWN:RandomizeRoute( SpawnStartPoint, SpawnEndPoint, SpawnRadius ) - self:F( { self.SpawnTemplatePrefix, SpawnStartPoint, SpawnEndPoint, SpawnRadius } ) - - self.SpawnRandomizeRoute = true - self.SpawnRandomizeRouteStartPoint = SpawnStartPoint - self.SpawnRandomizeRouteEndPoint = SpawnEndPoint - self.SpawnRandomizeRouteRadius = SpawnRadius - - for GroupID = 1, self.SpawnMaxGroups do - self:_RandomizeRoute( GroupID ) - end - - return self -end - - ---- This function is rather complicated to understand. But I'll try to explain. --- This function becomes useful when you need to spawn groups with random templates of groups defined within the mission editor, --- but they will all follow the same Template route and have the same prefix name. --- In other words, this method randomizes between a defined set of groups the template to be used for each new spawn of a group. --- @param #SPAWN self --- @param #string SpawnTemplatePrefixTable A table with the names of the groups defined within the mission editor, from which one will be choosen when a new group will be spawned. --- @return #SPAWN --- @usage --- -- NATO Tank Platoons invading Gori. --- -- Choose between 13 different 'US Tank Platoon' configurations for each new SPAWN the Group to be spawned for the --- -- 'US Tank Platoon Left', 'US Tank Platoon Middle' and 'US Tank Platoon Right' SpawnTemplatePrefixes. --- -- Each new SPAWN will randomize the route, with a defined time interval of 200 seconds with 40% time variation (randomization) and --- -- with a limit set of maximum 12 Units alive simulteneously and 150 Groups to be spawned during the whole mission. --- Spawn_US_Platoon = { 'US Tank Platoon 1', 'US Tank Platoon 2', 'US Tank Platoon 3', 'US Tank Platoon 4', 'US Tank Platoon 5', --- 'US Tank Platoon 6', 'US Tank Platoon 7', 'US Tank Platoon 8', 'US Tank Platoon 9', 'US Tank Platoon 10', --- 'US Tank Platoon 11', 'US Tank Platoon 12', 'US Tank Platoon 13' } --- Spawn_US_Platoon_Left = SPAWN:New( 'US Tank Platoon Left' ):Limit( 12, 150 ):Schedule( 200, 0.4 ):RandomizeTemplate( Spawn_US_Platoon ):RandomizeRoute( 3, 3, 2000 ) --- Spawn_US_Platoon_Middle = SPAWN:New( 'US Tank Platoon Middle' ):Limit( 12, 150 ):Schedule( 200, 0.4 ):RandomizeTemplate( Spawn_US_Platoon ):RandomizeRoute( 3, 3, 2000 ) --- Spawn_US_Platoon_Right = SPAWN:New( 'US Tank Platoon Right' ):Limit( 12, 150 ):Schedule( 200, 0.4 ):RandomizeTemplate( Spawn_US_Platoon ):RandomizeRoute( 3, 3, 2000 ) -function SPAWN:RandomizeTemplate( SpawnTemplatePrefixTable ) - self:F( { self.SpawnTemplatePrefix, SpawnTemplatePrefixTable } ) - - self.SpawnTemplatePrefixTable = SpawnTemplatePrefixTable - self.SpawnRandomizeTemplate = true - - for SpawnGroupID = 1, self.SpawnMaxGroups do - self:_RandomizeTemplate( SpawnGroupID ) - end - - return self -end - - - - - ---- For planes and helicopters, when these groups go home and land on their home airbases and farps, they normally would taxi to the parking spot, shut-down their engines and wait forever until the Group is removed by the runtime environment. --- This function is used to re-spawn automatically (so no extra call is needed anymore) the same group after it has landed. --- This will enable a spawned group to be re-spawned after it lands, until it is destroyed... --- Note: When the group is respawned, it will re-spawn from the original airbase where it took off. --- So ensure that the routes for groups that respawn, always return to the original airbase, or players may get confused ... --- @param #SPAWN self --- @return #SPAWN self --- @usage --- -- RU Su-34 - AI Ship Attack --- -- Re-SPAWN the Group(s) after each landing and Engine Shut-Down automatically. --- SpawnRU_SU34 = SPAWN:New( 'TF1 RU Su-34 Krymsk@AI - Attack Ships' ):Schedule( 2, 3, 1800, 0.4 ):SpawnUncontrolled():RandomizeRoute( 1, 1, 3000 ):RepeatOnEngineShutDown() -function SPAWN:InitRepeat() - self:F( { self.SpawnTemplatePrefix, self.SpawnIndex } ) - - self.Repeat = true - self.RepeatOnEngineShutDown = false - self.RepeatOnLanding = true - - return self -end - ---- Respawn group after landing. --- @param #SPAWN self --- @return #SPAWN self -function SPAWN:InitRepeatOnLanding() - self:F( { self.SpawnTemplatePrefix } ) - - self:InitRepeat() - self.RepeatOnEngineShutDown = false - self.RepeatOnLanding = true - - return self -end - - ---- Respawn after landing when its engines have shut down. --- @param #SPAWN self --- @return #SPAWN self -function SPAWN:InitRepeatOnEngineShutDown() - self:F( { self.SpawnTemplatePrefix } ) - - self:InitRepeat() - self.RepeatOnEngineShutDown = true - self.RepeatOnLanding = false - - return self -end - - ---- CleanUp groups when they are still alive, but inactive. --- When groups are still alive and have become inactive due to damage and are unable to contribute anything, then this group will be removed at defined intervals in seconds. --- @param #SPAWN self --- @param #string SpawnCleanUpInterval The interval to check for inactive groups within seconds. --- @return #SPAWN self --- @usage Spawn_Helicopter:CleanUp( 20 ) -- CleanUp the spawning of the helicopters every 20 seconds when they become inactive. -function SPAWN:CleanUp( SpawnCleanUpInterval ) - self:F( { self.SpawnTemplatePrefix, SpawnCleanUpInterval } ) - - self.SpawnCleanUpInterval = SpawnCleanUpInterval - self.SpawnCleanUpTimeStamps = {} - --self.CleanUpFunction = routines.scheduleFunction( self._SpawnCleanUpScheduler, { self }, timer.getTime() + 1, SpawnCleanUpInterval ) - self.CleanUpScheduler = SCHEDULER:New( self, self._SpawnCleanUpScheduler, {}, 1, SpawnCleanUpInterval, 0.2 ) - return self -end - - - ---- Makes the groups visible before start (like a batallion). --- The method will take the position of the group as the first position in the array. --- @param #SPAWN self --- @param #number SpawnAngle The angle in degrees how the groups and each unit of the group will be positioned. --- @param #number SpawnWidth The amount of Groups that will be positioned on the X axis. --- @param #number SpawnDeltaX The space between each Group on the X-axis. --- @param #number SpawnDeltaY The space between each Group on the Y-axis. --- @return #SPAWN self --- @usage --- -- Define an array of Groups. --- Spawn_BE_Ground = SPAWN:New( 'BE Ground' ):Limit( 2, 24 ):Visible( 90, "Diamond", 10, 100, 50 ) -function SPAWN:Array( SpawnAngle, SpawnWidth, SpawnDeltaX, SpawnDeltaY ) - self:F( { self.SpawnTemplatePrefix, SpawnAngle, SpawnWidth, SpawnDeltaX, SpawnDeltaY } ) - - self.SpawnVisible = true -- When the first Spawn executes, all the Groups need to be made visible before start. - - local SpawnX = 0 - local SpawnY = 0 - local SpawnXIndex = 0 - local SpawnYIndex = 0 - - for SpawnGroupID = 1, self.SpawnMaxGroups do - self:T( { SpawnX, SpawnY, SpawnXIndex, SpawnYIndex } ) - - self.SpawnGroups[SpawnGroupID].Visible = true - self.SpawnGroups[SpawnGroupID].Spawned = false - - SpawnXIndex = SpawnXIndex + 1 - if SpawnWidth and SpawnWidth ~= 0 then - if SpawnXIndex >= SpawnWidth then - SpawnXIndex = 0 - SpawnYIndex = SpawnYIndex + 1 - end - end - - local SpawnRootX = self.SpawnGroups[SpawnGroupID].SpawnTemplate.x - local SpawnRootY = self.SpawnGroups[SpawnGroupID].SpawnTemplate.y - - self:_TranslateRotate( SpawnGroupID, SpawnRootX, SpawnRootY, SpawnX, SpawnY, SpawnAngle ) - - self.SpawnGroups[SpawnGroupID].SpawnTemplate.lateActivation = true - self.SpawnGroups[SpawnGroupID].SpawnTemplate.visible = true - - self.SpawnGroups[SpawnGroupID].Visible = true - - _EVENTDISPATCHER:OnBirthForTemplate( self.SpawnGroups[SpawnGroupID].SpawnTemplate, self._OnBirth, self ) - _EVENTDISPATCHER:OnCrashForTemplate( self.SpawnGroups[SpawnGroupID].SpawnTemplate, self._OnDeadOrCrash, self ) - _EVENTDISPATCHER:OnDeadForTemplate( self.SpawnGroups[SpawnGroupID].SpawnTemplate, self._OnDeadOrCrash, self ) - - if self.Repeat then - _EVENTDISPATCHER:OnTakeOffForTemplate( self.SpawnGroups[SpawnGroupID].SpawnTemplate, self._OnTakeOff, self ) - _EVENTDISPATCHER:OnLandForTemplate( self.SpawnGroups[SpawnGroupID].SpawnTemplate, self._OnLand, self ) - end - if self.RepeatOnEngineShutDown then - _EVENTDISPATCHER:OnEngineShutDownForTemplate( self.SpawnGroups[SpawnGroupID].SpawnTemplate, self._OnEngineShutDown, self ) - end - - self.SpawnGroups[SpawnGroupID].Group = _DATABASE:Spawn( self.SpawnGroups[SpawnGroupID].SpawnTemplate ) - - SpawnX = SpawnXIndex * SpawnDeltaX - SpawnY = SpawnYIndex * SpawnDeltaY - end - - return self -end - - - ---- Will spawn a group based on the internal index. --- Note: Uses @{DATABASE} module defined in MOOSE. --- @param #SPAWN self --- @return Group#GROUP The group that was spawned. You can use this group for further actions. -function SPAWN:Spawn() - self:F( { self.SpawnTemplatePrefix, self.SpawnIndex } ) - - return self:SpawnWithIndex( self.SpawnIndex + 1 ) -end - ---- Will re-spawn a group based on a given index. --- Note: Uses @{DATABASE} module defined in MOOSE. --- @param #SPAWN self --- @param #string SpawnIndex The index of the group to be spawned. --- @return Group#GROUP The group that was spawned. You can use this group for further actions. -function SPAWN:ReSpawn( SpawnIndex ) - self:F( { self.SpawnTemplatePrefix, SpawnIndex } ) - - if not SpawnIndex then - SpawnIndex = 1 - end - --- TODO: This logic makes DCS crash and i don't know why (yet). - local SpawnGroup = self:GetGroupFromIndex( SpawnIndex ) - if SpawnGroup then - local SpawnDCSGroup = SpawnGroup:GetDCSObject() - if SpawnDCSGroup then - SpawnGroup:Destroy() - end - end - - return self:SpawnWithIndex( SpawnIndex ) -end - ---- Will spawn a group with a specified index number. --- Uses @{DATABASE} global object defined in MOOSE. --- @param #SPAWN self --- @return Group#GROUP The group that was spawned. You can use this group for further actions. -function SPAWN:SpawnWithIndex( SpawnIndex ) - self:F( { self.SpawnTemplatePrefix, SpawnIndex, self.SpawnMaxGroups } ) - - if self:_GetSpawnIndex( SpawnIndex ) then - - if self.SpawnGroups[self.SpawnIndex].Visible then - self.SpawnGroups[self.SpawnIndex].Group:Activate() - else - self:T( self.SpawnGroups[self.SpawnIndex].SpawnTemplate ) - _EVENTDISPATCHER:OnBirthForTemplate( self.SpawnGroups[self.SpawnIndex].SpawnTemplate, self._OnBirth, self ) - _EVENTDISPATCHER:OnCrashForTemplate( self.SpawnGroups[self.SpawnIndex].SpawnTemplate, self._OnDeadOrCrash, self ) - _EVENTDISPATCHER:OnDeadForTemplate( self.SpawnGroups[self.SpawnIndex].SpawnTemplate, self._OnDeadOrCrash, self ) - - if self.Repeat then - _EVENTDISPATCHER:OnTakeOffForTemplate( self.SpawnGroups[self.SpawnIndex].SpawnTemplate, self._OnTakeOff, self ) - _EVENTDISPATCHER:OnLandForTemplate( self.SpawnGroups[self.SpawnIndex].SpawnTemplate, self._OnLand, self ) - end - if self.RepeatOnEngineShutDown then - _EVENTDISPATCHER:OnEngineShutDownForTemplate( self.SpawnGroups[self.SpawnIndex].SpawnTemplate, self._OnEngineShutDown, self ) - end - - self:T( self.SpawnGroups[self.SpawnIndex].SpawnTemplate ) - - self.SpawnGroups[self.SpawnIndex].Group = _DATABASE:Spawn( self.SpawnGroups[self.SpawnIndex].SpawnTemplate ) - - -- If there is a SpawnFunction hook defined, call it. - if self.SpawnFunctionHook then - self.SpawnFunctionHook( self.SpawnGroups[self.SpawnIndex].Group, unpack( self.SpawnFunctionArguments ) ) - end - -- TODO: Need to fix this by putting an "R" in the name of the group when the group repeats. - --if self.Repeat then - -- _DATABASE:SetStatusGroup( SpawnTemplate.name, "ReSpawn" ) - --end - end - - self.SpawnGroups[self.SpawnIndex].Spawned = true - return self.SpawnGroups[self.SpawnIndex].Group - else - --self:E( { self.SpawnTemplatePrefix, "No more Groups to Spawn:", SpawnIndex, self.SpawnMaxGroups } ) - end - - return nil -end - ---- Spawns new groups at varying time intervals. --- This is useful if you want to have continuity within your missions of certain (AI) groups to be present (alive) within your missions. --- @param #SPAWN self --- @param #number SpawnTime The time interval defined in seconds between each new spawn of new groups. --- @param #number SpawnTimeVariation The variation to be applied on the defined time interval between each new spawn. --- The variation is a number between 0 and 1, representing the %-tage of variation to be applied on the time interval. --- @return #SPAWN self --- @usage --- -- NATO helicopters engaging in the battle field. --- -- The time interval is set to SPAWN new helicopters between each 600 seconds, with a time variation of 50%. --- -- The time variation in this case will be between 450 seconds and 750 seconds. --- -- This is calculated as follows: --- -- Low limit: 600 * ( 1 - 0.5 / 2 ) = 450 --- -- High limit: 600 * ( 1 + 0.5 / 2 ) = 750 --- -- Between these two values, a random amount of seconds will be choosen for each new spawn of the helicopters. --- Spawn_BE_KA50 = SPAWN:New( 'BE KA-50@RAMP-Ground Defense' ):Schedule( 600, 0.5 ) -function SPAWN:SpawnScheduled( SpawnTime, SpawnTimeVariation ) - self:F( { SpawnTime, SpawnTimeVariation } ) - - if SpawnTime ~= nil and SpawnTimeVariation ~= nil then - self.SpawnScheduler = SCHEDULER:New( self, self._Scheduler, {}, 1, SpawnTime, SpawnTimeVariation ) - end - - return self -end - ---- Will re-start the spawning scheduler. --- Note: This function is only required to be called when the schedule was stopped. -function SPAWN:SpawnScheduleStart() - self:F( { self.SpawnTemplatePrefix } ) - - self.SpawnScheduler:Start() -end - ---- Will stop the scheduled spawning scheduler. -function SPAWN:SpawnScheduleStop() - self:F( { self.SpawnTemplatePrefix } ) - - self.SpawnScheduler:Stop() -end - - ---- Allows to place a CallFunction hook when a new group spawns. --- The provided function will be called when a new group is spawned, including its given parameters. --- The first parameter of the SpawnFunction is the @{Group#GROUP} that was spawned. --- @param #SPAWN self --- @param #function SpawnFunctionHook The function to be called when a group spawns. --- @param SpawnFunctionArguments A random amount of arguments to be provided to the function when the group spawns. --- @return #SPAWN -function SPAWN:SpawnFunction( SpawnFunctionHook, ... ) - self:F( SpawnFunction ) - - self.SpawnFunctionHook = SpawnFunctionHook - self.SpawnFunctionArguments = {} - if arg then - self.SpawnFunctionArguments = arg - end - - return self -end - - - - ---- Will spawn a group from a hosting unit. This function is mostly advisable to be used if you want to simulate spawning from air units, like helicopters, which are dropping infantry into a defined Landing Zone. --- Note that each point in the route assigned to the spawning group is reset to the point of the spawn. --- You can use the returned group to further define the route to be followed. --- @param #SPAWN self --- @param Unit#UNIT HostUnit The air or ground unit dropping or unloading the group. --- @param #number OuterRadius The outer radius in meters where the new group will be spawned. --- @param #number InnerRadius The inner radius in meters where the new group will NOT be spawned. --- @param #number SpawnIndex (Optional) The index which group to spawn within the given zone. --- @return Group#GROUP that was spawned. --- @return #nil Nothing was spawned. -function SPAWN:SpawnFromUnit( HostUnit, OuterRadius, InnerRadius, SpawnIndex ) - self:F( { self.SpawnTemplatePrefix, HostUnit, OuterRadius, InnerRadius, SpawnIndex } ) - - if HostUnit and HostUnit:IsAlive() then -- and HostUnit:getUnit(1):inAir() == false then - - if SpawnIndex then - else - SpawnIndex = self.SpawnIndex + 1 - end - - if self:_GetSpawnIndex( SpawnIndex ) then - - local SpawnTemplate = self.SpawnGroups[self.SpawnIndex].SpawnTemplate - - if SpawnTemplate then - - local UnitPoint = HostUnit:GetPointVec2() - - self:T( { "Current point of ", self.SpawnTemplatePrefix, UnitPoint } ) - - --for PointID, Point in pairs( SpawnTemplate.route.points ) do - --Point.x = UnitPoint.x - --Point.y = UnitPoint.y - --Point.alt = nil - --Point.alt_type = nil - --end - - SpawnTemplate.route.points[1].x = UnitPoint.x - SpawnTemplate.route.points[1].y = UnitPoint.y - - if not InnerRadius then - InnerRadius = 10 - end - - if not OuterRadius then - OuterRadius = 50 - end - - -- Apply SpawnFormation - for UnitID = 1, #SpawnTemplate.units do - if InnerRadius == 0 then - SpawnTemplate.units[UnitID].x = UnitPoint.x - SpawnTemplate.units[UnitID].y = UnitPoint.y - else - local CirclePos = routines.getRandPointInCircle( UnitPoint, OuterRadius, InnerRadius ) - SpawnTemplate.units[UnitID].x = CirclePos.x - SpawnTemplate.units[UnitID].y = CirclePos.y - end - self:T( 'SpawnTemplate.units['..UnitID..'].x = ' .. SpawnTemplate.units[UnitID].x .. ', SpawnTemplate.units['..UnitID..'].y = ' .. SpawnTemplate.units[UnitID].y ) - end - - local SpawnPos = routines.getRandPointInCircle( UnitPoint, OuterRadius, InnerRadius ) - local Point = {} - Point.type = "Turning Point" - Point.x = SpawnPos.x - Point.y = SpawnPos.y - Point.action = "Cone" - Point.speed = 5 - - table.insert( SpawnTemplate.route.points, 2, Point ) - - return self:SpawnWithIndex( self.SpawnIndex ) - end - end - end - - return nil -end - ---- Will spawn a Group within a given @{Zone#ZONE}. --- Once the group is spawned within the zone, it will continue on its route. --- The first waypoint (where the group is spawned) is replaced with the zone coordinates. --- @param #SPAWN self --- @param Zone#ZONE Zone The zone where the group is to be spawned. --- @param #number ZoneRandomize (Optional) Set to true if you want to randomize the starting point in the zone. --- @param #number SpawnIndex (Optional) The index which group to spawn within the given zone. --- @return Group#GROUP that was spawned. --- @return #nil when nothing was spawned. -function SPAWN:SpawnInZone( Zone, ZoneRandomize, SpawnIndex ) - self:F( { self.SpawnTemplatePrefix, Zone, ZoneRandomize, SpawnIndex } ) - - if Zone then - - if SpawnIndex then - else - SpawnIndex = self.SpawnIndex + 1 - end - - if self:_GetSpawnIndex( SpawnIndex ) then - - local SpawnTemplate = self.SpawnGroups[self.SpawnIndex].SpawnTemplate - - if SpawnTemplate then - - local ZonePoint - - if ZoneRandomize == true then - ZonePoint = Zone:GetRandomVec2() - else - ZonePoint = Zone:GetPointVec2() - end - - SpawnTemplate.route.points[1].x = ZonePoint.x - SpawnTemplate.route.points[1].y = ZonePoint.y - - -- Apply SpawnFormation - for UnitID = 1, #SpawnTemplate.units do - local ZonePointUnit = Zone:GetRandomVec2() - SpawnTemplate.units[UnitID].x = ZonePointUnit.x - SpawnTemplate.units[UnitID].y = ZonePointUnit.y - self:T( 'SpawnTemplate.units['..UnitID..'].x = ' .. SpawnTemplate.units[UnitID].x .. ', SpawnTemplate.units['..UnitID..'].y = ' .. SpawnTemplate.units[UnitID].y ) - end - - return self:SpawnWithIndex( self.SpawnIndex ) - end - end - end - - return nil -end - - - - ---- Will spawn a plane group in uncontrolled mode... --- This will be similar to the uncontrolled flag setting in the ME. --- @return #SPAWN self -function SPAWN:UnControlled() - self:F( { self.SpawnTemplatePrefix } ) - - self.SpawnUnControlled = true - - for SpawnGroupID = 1, self.SpawnMaxGroups do - self.SpawnGroups[SpawnGroupID].UnControlled = true - end - - return self -end - - - ---- Will return the SpawnGroupName either with with a specific count number or without any count. --- @param #SPAWN self --- @param #number SpawnIndex Is the number of the Group that is to be spawned. --- @return #string SpawnGroupName -function SPAWN:SpawnGroupName( SpawnIndex ) - self:F( { self.SpawnTemplatePrefix, SpawnIndex } ) - - local SpawnPrefix = self.SpawnTemplatePrefix - if self.SpawnAliasPrefix then - SpawnPrefix = self.SpawnAliasPrefix - end - - if SpawnIndex then - local SpawnName = string.format( '%s#%03d', SpawnPrefix, SpawnIndex ) - self:T( SpawnName ) - return SpawnName - else - self:T( SpawnPrefix ) - return SpawnPrefix - end - -end - ---- Find the first alive group. --- @param #SPAWN self --- @param #number SpawnCursor A number holding the index from where to find the first group from. --- @return Group#GROUP, #number The group found, the new index where the group was found. --- @return #nil, #nil When no group is found, #nil is returned. -function SPAWN:GetFirstAliveGroup( SpawnCursor ) - self:F( { self.SpawnTemplatePrefix, self.SpawnAliasPrefix, SpawnCursor } ) - - for SpawnIndex = 1, self.SpawnCount do - local SpawnGroup = self:GetGroupFromIndex( SpawnIndex ) - if SpawnGroup and SpawnGroup:IsAlive() then - SpawnCursor = SpawnIndex - return SpawnGroup, SpawnCursor - end - end - - return nil, nil -end - - ---- Find the next alive group. --- @param #SPAWN self --- @param #number SpawnCursor A number holding the last found previous index. --- @return Group#GROUP, #number The group found, the new index where the group was found. --- @return #nil, #nil When no group is found, #nil is returned. -function SPAWN:GetNextAliveGroup( SpawnCursor ) - self:F( { self.SpawnTemplatePrefix, self.SpawnAliasPrefix, SpawnCursor } ) - - SpawnCursor = SpawnCursor + 1 - for SpawnIndex = SpawnCursor, self.SpawnCount do - local SpawnGroup = self:GetGroupFromIndex( SpawnIndex ) - if SpawnGroup and SpawnGroup:IsAlive() then - SpawnCursor = SpawnIndex - return SpawnGroup, SpawnCursor - end - end - - return nil, nil -end - ---- Find the last alive group during runtime. -function SPAWN:GetLastAliveGroup() - self:F( { self.SpawnTemplatePrefixself.SpawnAliasPrefix } ) - - self.SpawnIndex = self:_GetLastIndex() - for SpawnIndex = self.SpawnIndex, 1, -1 do - local SpawnGroup = self:GetGroupFromIndex( SpawnIndex ) - if SpawnGroup and SpawnGroup:IsAlive() then - self.SpawnIndex = SpawnIndex - return SpawnGroup - end - end - - self.SpawnIndex = nil - return nil -end - - - ---- Get the group from an index. --- Returns the group from the SpawnGroups list. --- If no index is given, it will return the first group in the list. --- @param #SPAWN self --- @param #number SpawnIndex The index of the group to return. --- @return Group#GROUP self -function SPAWN:GetGroupFromIndex( SpawnIndex ) - self:F( { self.SpawnTemplatePrefix, self.SpawnAliasPrefix, SpawnIndex } ) - - if not SpawnIndex then - SpawnIndex = 1 - end - - if self.SpawnGroups and self.SpawnGroups[SpawnIndex] then - local SpawnGroup = self.SpawnGroups[SpawnIndex].Group - return SpawnGroup - else - return nil - end -end - ---- Get the group index from a DCSUnit. --- The method will search for a #-mark, and will return the index behind the #-mark of the DCSUnit. --- It will return nil of no prefix was found. --- @param #SPAWN self --- @param DCSUnit The DCS unit to be searched. --- @return #string The prefix --- @return #nil Nothing found -function SPAWN:_GetGroupIndexFromDCSUnit( DCSUnit ) - self:F( { self.SpawnTemplatePrefix, self.SpawnAliasPrefix, DCSUnit } ) - - if DCSUnit and DCSUnit:getName() then - local IndexString = string.match( DCSUnit:getName(), "#.*-" ):sub( 2, -2 ) - self:T( IndexString ) - - if IndexString then - local Index = tonumber( IndexString ) - self:T( { "Index:", IndexString, Index } ) - return Index - end - end - - return nil -end - ---- Return the prefix of a DCSUnit. --- The method will search for a #-mark, and will return the text before the #-mark. --- It will return nil of no prefix was found. --- @param #SPAWN self --- @param DCSUnit The DCS unit to be searched. --- @return #string The prefix --- @return #nil Nothing found -function SPAWN:_GetPrefixFromDCSUnit( DCSUnit ) - self:F( { self.SpawnTemplatePrefix, self.SpawnAliasPrefix, DCSUnit } ) - - if DCSUnit and DCSUnit:getName() then - local SpawnPrefix = string.match( DCSUnit:getName(), ".*#" ) - if SpawnPrefix then - SpawnPrefix = SpawnPrefix:sub( 1, -2 ) - end - self:T( SpawnPrefix ) - return SpawnPrefix - end - - return nil -end - ---- Return the group within the SpawnGroups collection with input a DCSUnit. -function SPAWN:_GetGroupFromDCSUnit( DCSUnit ) - self:F( { self.SpawnTemplatePrefix, self.SpawnAliasPrefix, DCSUnit } ) - - if DCSUnit then - local SpawnPrefix = self:_GetPrefixFromDCSUnit( DCSUnit ) - - if self.SpawnTemplatePrefix == SpawnPrefix or ( self.SpawnAliasPrefix and self.SpawnAliasPrefix == SpawnPrefix ) then - local SpawnGroupIndex = self:_GetGroupIndexFromDCSUnit( DCSUnit ) - local SpawnGroup = self.SpawnGroups[SpawnGroupIndex].Group - self:T( SpawnGroup ) - return SpawnGroup - end - end - - return nil -end - - ---- Get the index from a given group. --- The function will search the name of the group for a #, and will return the number behind the #-mark. -function SPAWN:GetSpawnIndexFromGroup( SpawnGroup ) - self:F( { self.SpawnTemplatePrefix, self.SpawnAliasPrefix, SpawnGroup } ) - - local IndexString = string.match( SpawnGroup:GetName(), "#.*$" ):sub( 2 ) - local Index = tonumber( IndexString ) - - self:T( IndexString, Index ) - return Index - -end - ---- Return the last maximum index that can be used. -function SPAWN:_GetLastIndex() - self:F( { self.SpawnTemplatePrefix, self.SpawnAliasPrefix } ) - - return self.SpawnMaxGroups -end - ---- Initalize the SpawnGroups collection. -function SPAWN:_InitializeSpawnGroups( SpawnIndex ) - self:F( { self.SpawnTemplatePrefix, self.SpawnAliasPrefix, SpawnIndex } ) - - if not self.SpawnGroups[SpawnIndex] then - self.SpawnGroups[SpawnIndex] = {} - self.SpawnGroups[SpawnIndex].Visible = false - self.SpawnGroups[SpawnIndex].Spawned = false - self.SpawnGroups[SpawnIndex].UnControlled = false - self.SpawnGroups[SpawnIndex].SpawnTime = 0 - - self.SpawnGroups[SpawnIndex].SpawnTemplatePrefix = self.SpawnTemplatePrefix - self.SpawnGroups[SpawnIndex].SpawnTemplate = self:_Prepare( self.SpawnGroups[SpawnIndex].SpawnTemplatePrefix, SpawnIndex ) - end - - self:_RandomizeTemplate( SpawnIndex ) - self:_RandomizeRoute( SpawnIndex ) - --self:_TranslateRotate( SpawnIndex ) - - return self.SpawnGroups[SpawnIndex] -end - - - ---- Gets the CategoryID of the Group with the given SpawnPrefix -function SPAWN:_GetGroupCategoryID( SpawnPrefix ) - local TemplateGroup = Group.getByName( SpawnPrefix ) - - if TemplateGroup then - return TemplateGroup:getCategory() - else - return nil - end -end - ---- Gets the CoalitionID of the Group with the given SpawnPrefix -function SPAWN:_GetGroupCoalitionID( SpawnPrefix ) - local TemplateGroup = Group.getByName( SpawnPrefix ) - - if TemplateGroup then - return TemplateGroup:getCoalition() - else - return nil - end -end - ---- Gets the CountryID of the Group with the given SpawnPrefix -function SPAWN:_GetGroupCountryID( SpawnPrefix ) - self:F( { self.SpawnTemplatePrefix, self.SpawnAliasPrefix, SpawnPrefix } ) - - local TemplateGroup = Group.getByName( SpawnPrefix ) - - if TemplateGroup then - local TemplateUnits = TemplateGroup:getUnits() - return TemplateUnits[1]:getCountry() - else - return nil - end -end - ---- Gets the Group Template from the ME environment definition. --- This method used the @{DATABASE} object, which contains ALL initial and new spawned object in MOOSE. --- @param #SPAWN self --- @param #string SpawnTemplatePrefix --- @return @SPAWN self -function SPAWN:_GetTemplate( SpawnTemplatePrefix ) - self:F( { self.SpawnTemplatePrefix, self.SpawnAliasPrefix, SpawnTemplatePrefix } ) - - local SpawnTemplate = nil - - SpawnTemplate = routines.utils.deepCopy( _DATABASE.Templates.Groups[SpawnTemplatePrefix].Template ) - - if SpawnTemplate == nil then - error( 'No Template returned for SpawnTemplatePrefix = ' .. SpawnTemplatePrefix ) - end - - SpawnTemplate.SpawnCoalitionID = self:_GetGroupCoalitionID( SpawnTemplatePrefix ) - SpawnTemplate.SpawnCategoryID = self:_GetGroupCategoryID( SpawnTemplatePrefix ) - SpawnTemplate.SpawnCountryID = self:_GetGroupCountryID( SpawnTemplatePrefix ) - - self:T( { SpawnTemplate } ) - return SpawnTemplate -end - ---- Prepares the new Group Template. --- @param #SPAWN self --- @param #string SpawnTemplatePrefix --- @param #number SpawnIndex --- @return #SPAWN self -function SPAWN:_Prepare( SpawnTemplatePrefix, SpawnIndex ) - self:F( { self.SpawnTemplatePrefix, self.SpawnAliasPrefix } ) - - local SpawnTemplate = self:_GetTemplate( SpawnTemplatePrefix ) - SpawnTemplate.name = self:SpawnGroupName( SpawnIndex ) - - SpawnTemplate.groupId = nil - --SpawnTemplate.lateActivation = false - SpawnTemplate.lateActivation = false -- TODO BUGFIX - - if SpawnTemplate.SpawnCategoryID == Group.Category.GROUND then - self:T( "For ground units, visible needs to be false..." ) - SpawnTemplate.visible = false -- TODO BUGFIX - end - - if SpawnTemplate.SpawnCategoryID == Group.Category.HELICOPTER or SpawnTemplate.SpawnCategoryID == Group.Category.AIRPLANE then - SpawnTemplate.uncontrolled = false - end - - for UnitID = 1, #SpawnTemplate.units do - SpawnTemplate.units[UnitID].name = string.format( SpawnTemplate.name .. '-%02d', UnitID ) - SpawnTemplate.units[UnitID].unitId = nil - SpawnTemplate.units[UnitID].x = SpawnTemplate.route.points[1].x - SpawnTemplate.units[UnitID].y = SpawnTemplate.route.points[1].y - end - - self:T( { "Template:", SpawnTemplate } ) - return SpawnTemplate - -end - ---- Private method randomizing the routes. --- @param #SPAWN self --- @param #number SpawnIndex The index of the group to be spawned. --- @return #SPAWN -function SPAWN:_RandomizeRoute( SpawnIndex ) - self:F( { self.SpawnTemplatePrefix, SpawnIndex, self.SpawnRandomizeRoute, self.SpawnRandomizeRouteStartPoint, self.SpawnRandomizeRouteEndPoint, self.SpawnRandomizeRouteRadius } ) - - if self.SpawnRandomizeRoute then - local SpawnTemplate = self.SpawnGroups[SpawnIndex].SpawnTemplate - local RouteCount = #SpawnTemplate.route.points - - for t = self.SpawnRandomizeRouteStartPoint + 1, ( RouteCount - self.SpawnRandomizeRouteEndPoint ) do - SpawnTemplate.route.points[t].x = SpawnTemplate.route.points[t].x + math.random( self.SpawnRandomizeRouteRadius * -1, self.SpawnRandomizeRouteRadius ) - SpawnTemplate.route.points[t].y = SpawnTemplate.route.points[t].y + math.random( self.SpawnRandomizeRouteRadius * -1, self.SpawnRandomizeRouteRadius ) - -- TODO: manage altitude for airborne units ... - SpawnTemplate.route.points[t].alt = nil - --SpawnGroup.route.points[t].alt_type = nil - self:T( 'SpawnTemplate.route.points[' .. t .. '].x = ' .. SpawnTemplate.route.points[t].x .. ', SpawnTemplate.route.points[' .. t .. '].y = ' .. SpawnTemplate.route.points[t].y ) - end - end - - return self -end - ---- Private method that randomizes the template of the group. --- @param #SPAWN self --- @param #number SpawnIndex --- @return #SPAWN self -function SPAWN:_RandomizeTemplate( SpawnIndex ) - self:F( { self.SpawnTemplatePrefix, SpawnIndex, self.SpawnRandomizeTemplate } ) - - if self.SpawnRandomizeTemplate then - self.SpawnGroups[SpawnIndex].SpawnTemplatePrefix = self.SpawnTemplatePrefixTable[ math.random( 1, #self.SpawnTemplatePrefixTable ) ] - self.SpawnGroups[SpawnIndex].SpawnTemplate = self:_Prepare( self.SpawnGroups[SpawnIndex].SpawnTemplatePrefix, SpawnIndex ) - self.SpawnGroups[SpawnIndex].SpawnTemplate.route = routines.utils.deepCopy( self.SpawnTemplate.route ) - self.SpawnGroups[SpawnIndex].SpawnTemplate.x = self.SpawnTemplate.x - self.SpawnGroups[SpawnIndex].SpawnTemplate.y = self.SpawnTemplate.y - self.SpawnGroups[SpawnIndex].SpawnTemplate.start_time = self.SpawnTemplate.start_time - for UnitID = 1, #self.SpawnGroups[SpawnIndex].SpawnTemplate.units do - self.SpawnGroups[SpawnIndex].SpawnTemplate.units[UnitID].heading = self.SpawnTemplate.units[1].heading - end - end - - self:_RandomizeRoute( SpawnIndex ) - - return self -end - -function SPAWN:_TranslateRotate( SpawnIndex, SpawnRootX, SpawnRootY, SpawnX, SpawnY, SpawnAngle ) - self:F( { self.SpawnTemplatePrefix, SpawnIndex, SpawnRootX, SpawnRootY, SpawnX, SpawnY, SpawnAngle } ) - - -- Translate - local TranslatedX = SpawnX - local TranslatedY = SpawnY - - -- Rotate - -- From Wikipedia: https://en.wikipedia.org/wiki/Rotation_matrix#Common_rotations - -- x' = x \cos \theta - y \sin \theta\ - -- y' = x \sin \theta + y \cos \theta\ - local RotatedX = - TranslatedX * math.cos( math.rad( SpawnAngle ) ) - + TranslatedY * math.sin( math.rad( SpawnAngle ) ) - local RotatedY = TranslatedX * math.sin( math.rad( SpawnAngle ) ) - + TranslatedY * math.cos( math.rad( SpawnAngle ) ) - - -- Assign - self.SpawnGroups[SpawnIndex].SpawnTemplate.x = SpawnRootX - RotatedX - self.SpawnGroups[SpawnIndex].SpawnTemplate.y = SpawnRootY + RotatedY - - - local SpawnUnitCount = table.getn( self.SpawnGroups[SpawnIndex].SpawnTemplate.units ) - for u = 1, SpawnUnitCount do - - -- Translate - local TranslatedX = SpawnX - local TranslatedY = SpawnY - 10 * ( u - 1 ) - - -- Rotate - local RotatedX = - TranslatedX * math.cos( math.rad( SpawnAngle ) ) - + TranslatedY * math.sin( math.rad( SpawnAngle ) ) - local RotatedY = TranslatedX * math.sin( math.rad( SpawnAngle ) ) - + TranslatedY * math.cos( math.rad( SpawnAngle ) ) - - -- Assign - self.SpawnGroups[SpawnIndex].SpawnTemplate.units[u].x = SpawnRootX - RotatedX - self.SpawnGroups[SpawnIndex].SpawnTemplate.units[u].y = SpawnRootY + RotatedY - self.SpawnGroups[SpawnIndex].SpawnTemplate.units[u].heading = self.SpawnGroups[SpawnIndex].SpawnTemplate.units[u].heading + math.rad( SpawnAngle ) - end - - return self -end - ---- Get the next index of the groups to be spawned. This function is complicated, as it is used at several spaces. -function SPAWN:_GetSpawnIndex( SpawnIndex ) - self:F( { self.SpawnTemplatePrefix, SpawnIndex, self.SpawnMaxGroups, self.SpawnMaxUnitsAlive, self.AliveUnits, #self.SpawnTemplate.units } ) - - - if ( self.SpawnMaxGroups == 0 ) or ( SpawnIndex <= self.SpawnMaxGroups ) then - if ( self.SpawnMaxUnitsAlive == 0 ) or ( self.AliveUnits < self.SpawnMaxUnitsAlive * #self.SpawnTemplate.units ) or self.UnControlled then - if SpawnIndex and SpawnIndex >= self.SpawnCount + 1 then - self.SpawnCount = self.SpawnCount + 1 - SpawnIndex = self.SpawnCount - end - self.SpawnIndex = SpawnIndex - if not self.SpawnGroups[self.SpawnIndex] then - self:_InitializeSpawnGroups( self.SpawnIndex ) - end - else - return nil - end - else - return nil - end - - return self.SpawnIndex -end - - --- TODO Need to delete this... _DATABASE does this now ... -function SPAWN:_OnBirth( event ) - - if timer.getTime0() < timer.getAbsTime() then -- dont need to add units spawned in at the start of the mission if mist is loaded in init line - if event.initiator and event.initiator:getName() then - local EventPrefix = self:_GetPrefixFromDCSUnit( event.initiator ) - if EventPrefix == self.SpawnTemplatePrefix or ( self.SpawnAliasPrefix and EventPrefix == self.SpawnAliasPrefix ) then - self:T( { "Birth event: " .. event.initiator:getName(), event } ) - --MessageToAll( "Mission command: unit " .. SpawnTemplatePrefix .. " spawned." , 5, EventPrefix .. '/Event') - self.AliveUnits = self.AliveUnits + 1 - self:T( "Alive Units: " .. self.AliveUnits ) - end - end - end - -end - ---- Obscolete --- @todo Need to delete this... _DATABASE does this now ... -function SPAWN:_OnDeadOrCrash( event ) - self:F( self.SpawnTemplatePrefix, event ) - - if event.initiator and event.initiator:getName() then - local EventPrefix = self:_GetPrefixFromDCSUnit( event.initiator ) - if EventPrefix == self.SpawnTemplatePrefix or ( self.SpawnAliasPrefix and EventPrefix == self.SpawnAliasPrefix ) then - self:T( { "Dead event: " .. event.initiator:getName(), event } ) --- local DestroyedUnit = Unit.getByName( EventPrefix ) --- if DestroyedUnit and DestroyedUnit.getLife() <= 1.0 then - --MessageToAll( "Mission command: unit " .. SpawnTemplatePrefix .. " crashed." , 5, EventPrefix .. '/Event') - self.AliveUnits = self.AliveUnits - 1 - self:T( "Alive Units: " .. self.AliveUnits ) --- end - end - end -end - ---- Will detect AIR Units taking off... When the event takes place, the spawned Group is registered as airborne... --- This is needed to ensure that Re-SPAWNing only is done for landed AIR Groups. --- @todo Need to test for AIR Groups only... -function SPAWN:_OnTakeOff( event ) - self:F( self.SpawnTemplatePrefix, event ) - - if event.initiator and event.initiator:getName() then - local SpawnGroup = self:_GetGroupFromDCSUnit( event.initiator ) - if SpawnGroup then - self:T( { "TakeOff event: " .. event.initiator:getName(), event } ) - self:T( "self.Landed = false" ) - self.Landed = false - end - end -end - ---- Will detect AIR Units landing... When the event takes place, the spawned Group is registered as landed. --- This is needed to ensure that Re-SPAWNing is only done for landed AIR Groups. --- @todo Need to test for AIR Groups only... -function SPAWN:_OnLand( event ) - self:F( self.SpawnTemplatePrefix, event ) - - local SpawnUnit = event.initiator - if SpawnUnit and SpawnUnit:isExist() and Object.getCategory(SpawnUnit) == Object.Category.UNIT then - local SpawnGroup = self:_GetGroupFromDCSUnit( SpawnUnit ) - if SpawnGroup then - self:T( { "Landed event:" .. SpawnUnit:getName(), event } ) - self.Landed = true - self:T( "self.Landed = true" ) - if self.Landed and self.RepeatOnLanding then - local SpawnGroupIndex = self:GetSpawnIndexFromGroup( SpawnGroup ) - self:T( { "Landed:", "ReSpawn:", SpawnGroup:GetName(), SpawnGroupIndex } ) - self:ReSpawn( SpawnGroupIndex ) - end - end - end -end - ---- Will detect AIR Units shutting down their engines ... --- When the event takes place, and the method @{RepeatOnEngineShutDown} was called, the spawned Group will Re-SPAWN. --- But only when the Unit was registered to have landed. --- @param #SPAWN self --- @see _OnTakeOff --- @see _OnLand --- @todo Need to test for AIR Groups only... -function SPAWN:_OnEngineShutDown( event ) - self:F( self.SpawnTemplatePrefix, event ) - - local SpawnUnit = event.initiator - if SpawnUnit and SpawnUnit:isExist() and Object.getCategory(SpawnUnit) == Object.Category.UNIT then - local SpawnGroup = self:_GetGroupFromDCSUnit( SpawnUnit ) - if SpawnGroup then - self:T( { "EngineShutDown event: " .. SpawnUnit:getName(), event } ) - if self.Landed and self.RepeatOnEngineShutDown then - local SpawnGroupIndex = self:GetSpawnIndexFromGroup( SpawnGroup ) - self:T( { "EngineShutDown: ", "ReSpawn:", SpawnGroup:GetName(), SpawnGroupIndex } ) - self:ReSpawn( SpawnGroupIndex ) - end - end - end -end - ---- This function is called automatically by the Spawning scheduler. --- It is the internal worker method SPAWNing new Groups on the defined time intervals. -function SPAWN:_Scheduler() - self:F( { "_Scheduler", self.SpawnTemplatePrefix, self.SpawnAliasPrefix, self.SpawnIndex, self.SpawnMaxGroups, self.SpawnMaxUnitsAlive } ) - - -- Validate if there are still groups left in the batch... - self:Spawn() - - return true -end - -function SPAWN:_SpawnCleanUpScheduler() - self:F( { "CleanUp Scheduler:", self.SpawnTemplatePrefix } ) - - local SpawnCursor - local SpawnGroup, SpawnCursor = self:GetFirstAliveGroup( SpawnCursor ) - - self:T( { "CleanUp Scheduler:", SpawnGroup } ) - - while SpawnGroup do - - if SpawnGroup:AllOnGround() and SpawnGroup:GetMaxVelocity() < 1 then - if not self.SpawnCleanUpTimeStamps[SpawnGroup:GetName()] then - self.SpawnCleanUpTimeStamps[SpawnGroup:GetName()] = timer.getTime() - else - if self.SpawnCleanUpTimeStamps[SpawnGroup:GetName()] + self.SpawnCleanUpInterval < timer.getTime() then - self:T( { "CleanUp Scheduler:", "Cleaning:", SpawnGroup } ) - SpawnGroup:Destroy() - end - end - else - self.SpawnCleanUpTimeStamps[SpawnGroup:GetName()] = nil - end - - SpawnGroup, SpawnCursor = self:GetNextAliveGroup( SpawnCursor ) - - self:T( { "CleanUp Scheduler:", SpawnGroup } ) - - end - - return true -- Repeat - -end ---- Limit the simultaneous movement of Groups within a running Mission. --- This module is defined to improve the performance in missions, and to bring additional realism for GROUND vehicles. --- Performance: If in a DCSRTE there are a lot of moving GROUND units, then in a multi player mission, this WILL create lag if --- the main DCS execution core of your CPU is fully utilized. So, this class will limit the amount of simultaneous moving GROUND units --- on defined intervals (currently every minute). --- @module MOVEMENT - ---- the MOVEMENT class --- @type -MOVEMENT = { - ClassName = "MOVEMENT", -} - ---- Creates the main object which is handling the GROUND forces movement. --- @param table{string,...}|string MovePrefixes is a table of the Prefixes (names) of the GROUND Groups that need to be controlled by the MOVEMENT Object. --- @param number MoveMaximum is a number that defines the maximum amount of GROUND Units to be moving during one minute. --- @return MOVEMENT --- @usage --- -- Limit the amount of simultaneous moving units on the ground to prevent lag. --- Movement_US_Platoons = MOVEMENT:New( { 'US Tank Platoon Left', 'US Tank Platoon Middle', 'US Tank Platoon Right', 'US CH-47D Troops' }, 15 ) - -function MOVEMENT:New( MovePrefixes, MoveMaximum ) - local self = BASE:Inherit( self, BASE:New() ) - self:F( { MovePrefixes, MoveMaximum } ) - - if type( MovePrefixes ) == 'table' then - self.MovePrefixes = MovePrefixes - else - self.MovePrefixes = { MovePrefixes } - end - self.MoveCount = 0 -- The internal counter of the amount of Moveing the has happened since MoveStart. - self.MoveMaximum = MoveMaximum -- Contains the Maximum amount of units that are allowed to move... - self.AliveUnits = 0 -- Contains the counter how many units are currently alive - self.MoveUnits = {} -- Reflects if the Moving for this MovePrefixes is going to be scheduled or not. - - _EVENTDISPATCHER:OnBirth( self.OnBirth, self ) - --- self:AddEvent( world.event.S_EVENT_BIRTH, self.OnBirth ) --- --- self:EnableEvents() - - self:ScheduleStart() - - return self -end - ---- Call this function to start the MOVEMENT scheduling. -function MOVEMENT:ScheduleStart() - self:F() - --self.MoveFunction = routines.scheduleFunction( self._Scheduler, { self }, timer.getTime() + 1, 120 ) - self.MoveFunction = SCHEDULER:New( self, self._Scheduler, {}, 1, 120 ) -end - ---- Call this function to stop the MOVEMENT scheduling. --- @todo need to implement it ... Forgot. -function MOVEMENT:ScheduleStop() - self:F() - -end - ---- Captures the birth events when new Units were spawned. --- @todo This method should become obsolete. The new @{DATABASE} class will handle the collection administration. -function MOVEMENT:OnBirth( Event ) - self:F( { Event } ) - - if timer.getTime0() < timer.getAbsTime() then -- dont need to add units spawned in at the start of the mission if mist is loaded in init line - if Event.IniDCSUnit then - self:T( "Birth object : " .. Event.IniDCSUnitName ) - if Event.IniDCSGroup and Event.IniDCSGroup:isExist() then - for MovePrefixID, MovePrefix in pairs( self.MovePrefixes ) do - if string.find( Event.IniDCSUnitName, MovePrefix, 1, true ) then - self.AliveUnits = self.AliveUnits + 1 - self.MoveUnits[Event.IniDCSUnitName] = Event.IniDCSGroupName - self:T( self.AliveUnits ) - end - end - end - end - _EVENTDISPATCHER:OnCrashForUnit( Event.IniDCSUnitName, self.OnDeadOrCrash, self ) - _EVENTDISPATCHER:OnDeadForUnit( Event.IniDCSUnitName, self.OnDeadOrCrash, self ) - end - -end - ---- Captures the Dead or Crash events when Units crash or are destroyed. --- @todo This method should become obsolete. The new @{DATABASE} class will handle the collection administration. -function MOVEMENT:OnDeadOrCrash( Event ) - self:F( { Event } ) - - if Event.IniDCSUnit then - self:T( "Dead object : " .. Event.IniDCSUnitName ) - for MovePrefixID, MovePrefix in pairs( self.MovePrefixes ) do - if string.find( Event.IniDCSUnitName, MovePrefix, 1, true ) then - self.AliveUnits = self.AliveUnits - 1 - self.MoveUnits[Event.IniDCSUnitName] = nil - self:T( self.AliveUnits ) - end - end - end -end - ---- This function is called automatically by the MOVEMENT scheduler. A new function is scheduled when MoveScheduled is true. -function MOVEMENT:_Scheduler() - self:F( { self.MovePrefixes, self.MoveMaximum, self.AliveUnits, self.MovementGroups } ) - - if self.AliveUnits > 0 then - local MoveProbability = ( self.MoveMaximum * 100 ) / self.AliveUnits - self:T( 'Move Probability = ' .. MoveProbability ) - - for MovementUnitName, MovementGroupName in pairs( self.MoveUnits ) do - local MovementGroup = Group.getByName( MovementGroupName ) - if MovementGroup and MovementGroup:isExist() then - local MoveOrStop = math.random( 1, 100 ) - self:T( 'MoveOrStop = ' .. MoveOrStop ) - if MoveOrStop <= MoveProbability then - self:T( 'Group continues moving = ' .. MovementGroupName ) - trigger.action.groupContinueMoving( MovementGroup ) - else - self:T( 'Group stops moving = ' .. MovementGroupName ) - trigger.action.groupStopMoving( MovementGroup ) - end - else - self.MoveUnits[MovementUnitName] = nil - end - end - end - return true -end ---- Provides defensive behaviour to a set of SAM sites within a running Mission. --- @module Sead --- @author to be searched on the forum --- @author (co) Flightcontrol (Modified and enriched with functionality) - ---- The SEAD class --- @type SEAD --- @extends Base#BASE -SEAD = { - ClassName = "SEAD", - TargetSkill = { - Average = { Evade = 50, DelayOff = { 10, 25 }, DelayOn = { 10, 30 } } , - Good = { Evade = 30, DelayOff = { 8, 20 }, DelayOn = { 20, 40 } } , - High = { Evade = 15, DelayOff = { 5, 17 }, DelayOn = { 30, 50 } } , - Excellent = { Evade = 10, DelayOff = { 3, 10 }, DelayOn = { 30, 60 } } - }, - SEADGroupPrefixes = {} -} - ---- Creates the main object which is handling defensive actions for SA sites or moving SA vehicles. --- When an anti radiation missile is fired (KH-58, KH-31P, KH-31A, KH-25MPU, HARM missiles), the SA will shut down their radars and will take evasive actions... --- Chances are big that the missile will miss. --- @param table{string,...}|string SEADGroupPrefixes which is a table of Prefixes of the SA Groups in the DCSRTE on which evasive actions need to be taken. --- @return SEAD --- @usage --- -- CCCP SEAD Defenses --- -- Defends the Russian SA installations from SEAD attacks. --- SEAD_RU_SAM_Defenses = SEAD:New( { 'RU SA-6 Kub', 'RU SA-6 Defenses', 'RU MI-26 Troops', 'RU Attack Gori' } ) -function SEAD:New( SEADGroupPrefixes ) - local self = BASE:Inherit( self, BASE:New() ) - self:F( SEADGroupPrefixes ) - if type( SEADGroupPrefixes ) == 'table' then - for SEADGroupPrefixID, SEADGroupPrefix in pairs( SEADGroupPrefixes ) do - self.SEADGroupPrefixes[SEADGroupPrefix] = SEADGroupPrefix - end - else - self.SEADGroupNames[SEADGroupPrefixes] = SEADGroupPrefixes - end - _EVENTDISPATCHER:OnShot( self.EventShot, self ) - - return self -end - ---- Detects if an SA site was shot with an anti radiation missile. In this case, take evasive actions based on the skill level set within the ME. --- @see SEAD -function SEAD:EventShot( Event ) - self:F( { Event } ) - - local SEADUnit = Event.IniDCSUnit - local SEADUnitName = Event.IniDCSUnitName - local SEADWeapon = Event.Weapon -- Identify the weapon fired - local SEADWeaponName = Event.WeaponName -- return weapon type - -- Start of the 2nd loop - self:T( "Missile Launched = " .. SEADWeaponName ) - if SEADWeaponName == "KH-58" or SEADWeaponName == "KH-25MPU" or SEADWeaponName == "AGM-88" or SEADWeaponName == "KH-31A" or SEADWeaponName == "KH-31P" then -- Check if the missile is a SEAD - local _evade = math.random (1,100) -- random number for chance of evading action - local _targetMim = Event.Weapon:getTarget() -- Identify target - local _targetMimname = Unit.getName(_targetMim) - local _targetMimgroup = Unit.getGroup(Weapon.getTarget(SEADWeapon)) - local _targetMimgroupName = _targetMimgroup:getName() - local _targetMimcont= _targetMimgroup:getController() - local _targetskill = _DATABASE.Templates.Units[_targetMimname].Template.skill - self:T( self.SEADGroupPrefixes ) - self:T( _targetMimgroupName ) - local SEADGroupFound = false - for SEADGroupPrefixID, SEADGroupPrefix in pairs( self.SEADGroupPrefixes ) do - if string.find( _targetMimgroupName, SEADGroupPrefix, 1, true ) then - SEADGroupFound = true - self:T( 'Group Found' ) - break - end - end - if SEADGroupFound == true then - if _targetskill == "Random" then -- when skill is random, choose a skill - local Skills = { "Average", "Good", "High", "Excellent" } - _targetskill = Skills[ math.random(1,4) ] - end - self:T( _targetskill ) - if self.TargetSkill[_targetskill] then - if (_evade > self.TargetSkill[_targetskill].Evade) then - self:T( string.format("Evading, target skill " ..string.format(_targetskill)) ) - local _targetMim = Weapon.getTarget(SEADWeapon) - local _targetMimname = Unit.getName(_targetMim) - local _targetMimgroup = Unit.getGroup(Weapon.getTarget(SEADWeapon)) - local _targetMimcont= _targetMimgroup:getController() - routines.groupRandomDistSelf(_targetMimgroup,300,'Diamond',250,20) -- move randomly - local SuppressedGroups1 = {} -- unit suppressed radar off for a random time - local function SuppressionEnd1(id) - id.ctrl:setOption(AI.Option.Ground.id.ALARM_STATE,AI.Option.Ground.val.ALARM_STATE.GREEN) - SuppressedGroups1[id.groupName] = nil - end - local id = { - groupName = _targetMimgroup, - ctrl = _targetMimcont - } - local delay1 = math.random(self.TargetSkill[_targetskill].DelayOff[1], self.TargetSkill[_targetskill].DelayOff[2]) - if SuppressedGroups1[id.groupName] == nil then - SuppressedGroups1[id.groupName] = { - SuppressionEndTime1 = timer.getTime() + delay1, - SuppressionEndN1 = SuppressionEndCounter1 --Store instance of SuppressionEnd() scheduled function - } - Controller.setOption(_targetMimcont, AI.Option.Ground.id.ALARM_STATE,AI.Option.Ground.val.ALARM_STATE.GREEN) - timer.scheduleFunction(SuppressionEnd1, id, SuppressedGroups1[id.groupName].SuppressionEndTime1) --Schedule the SuppressionEnd() function - --trigger.action.outText( string.format("Radar Off " ..string.format(delay1)), 20) - end - - local SuppressedGroups = {} - local function SuppressionEnd(id) - id.ctrl:setOption(AI.Option.Ground.id.ALARM_STATE,AI.Option.Ground.val.ALARM_STATE.RED) - SuppressedGroups[id.groupName] = nil - end - local id = { - groupName = _targetMimgroup, - ctrl = _targetMimcont - } - local delay = math.random(self.TargetSkill[_targetskill].DelayOn[1], self.TargetSkill[_targetskill].DelayOn[2]) - if SuppressedGroups[id.groupName] == nil then - SuppressedGroups[id.groupName] = { - SuppressionEndTime = timer.getTime() + delay, - SuppressionEndN = SuppressionEndCounter --Store instance of SuppressionEnd() scheduled function - } - timer.scheduleFunction(SuppressionEnd, id, SuppressedGroups[id.groupName].SuppressionEndTime) --Schedule the SuppressionEnd() function - --trigger.action.outText( string.format("Radar On " ..string.format(delay)), 20) - end - end - end - end - end -end ---- Taking the lead of AI escorting your flight. --- --- @{#ESCORT} class --- ================ --- The @{#ESCORT} class allows you to interact with escorting AI on your flight and take the lead. --- Each escorting group can be commanded with a whole set of radio commands (radio menu in your flight, and then F10). --- --- The radio commands will vary according the category of the group. The richest set of commands are with Helicopters and AirPlanes. --- Ships and Ground troops will have a more limited set, but they can provide support through the bombing of targets designated by the other escorts. --- --- RADIO MENUs that can be created: --- ================================ --- Find a summary below of the current available commands: --- --- Navigation ...: --- --------------- --- Escort group navigation functions: --- --- * **"Join-Up and Follow at x meters":** The escort group fill follow you at about x meters, and they will follow you. --- * **"Flare":** Provides menu commands to let the escort group shoot a flare in the air in a color. --- * **"Smoke":** Provides menu commands to let the escort group smoke the air in a color. Note that smoking is only available for ground and naval troops. --- --- Hold position ...: --- ------------------ --- Escort group navigation functions: --- --- * **"At current location":** Stops the escort group and they will hover 30 meters above the ground at the position they stopped. --- * **"At client location":** Stops the escort group and they will hover 30 meters above the ground at the position they stopped. --- --- Report targets ...: --- ------------------- --- Report targets will make the escort group to report any target that it identifies within a 8km range. Any detected target can be attacked using the 4. Attack nearby targets function. (see below). --- --- * **"Report now":** Will report the current detected targets. --- * **"Report targets on":** Will make the escort group to report detected targets and will fill the "Attack nearby targets" menu list. --- * **"Report targets off":** Will stop detecting targets. --- --- Scan targets ...: --- ----------------- --- Menu items to pop-up the escort group for target scanning. After scanning, the escort group will resume with the mission or defined task. --- --- * **"Scan targets 30 seconds":** Scan 30 seconds for targets. --- * **"Scan targets 60 seconds":** Scan 60 seconds for targets. --- --- Attack targets ...: --- ------------------- --- This menu item will list all detected targets within a 15km range. Depending on the level of detection (known/unknown) and visuality, the targets type will also be listed. --- --- Request assistance from ...: --- ---------------------------- --- This menu item will list all detected targets within a 15km range, as with the menu item **Attack Targets**. --- This menu item allows to request attack support from other escorts supporting the current client group. --- eg. the function allows a player to request support from the Ship escort to attack a target identified by the Plane escort with its Tomahawk missiles. --- eg. the function allows a player to request support from other Planes escorting to bomb the unit with illumination missiles or bombs, so that the main plane escort can attack the area. --- --- ROE ...: --- -------- --- Sets the Rules of Engagement (ROE) of the escort group when in flight. --- --- * **"Hold Fire":** The escort group will hold fire. --- * **"Return Fire":** The escort group will return fire. --- * **"Open Fire":** The escort group will open fire on designated targets. --- * **"Weapon Free":** The escort group will engage with any target. --- --- Evasion ...: --- ------------ --- Will define the evasion techniques that the escort group will perform during flight or combat. --- --- * **"Fight until death":** The escort group will have no reaction to threats. --- * **"Use flares, chaff and jammers":** The escort group will use passive defense using flares and jammers. No evasive manoeuvres are executed. --- * **"Evade enemy fire":** The rescort group will evade enemy fire before firing. --- * **"Go below radar and evade fire":** The escort group will perform evasive vertical manoeuvres. --- --- Resume Mission ...: --- ------------------- --- Escort groups can have their own mission. This menu item will allow the escort group to resume their Mission from a given waypoint. --- Note that this is really fantastic, as you now have the dynamic of taking control of the escort groups, and allowing them to resume their path or mission. --- --- ESCORT construction methods. --- ============================ --- Create a new SPAWN object with the @{#ESCORT.New} method: --- --- * @{#ESCORT.New}: Creates a new ESCORT object from a @{Group#GROUP} for a @{Client#CLIENT}, with an optional briefing text. --- --- ESCORT initialization methods. --- ============================== --- The following menus are created within the RADIO MENU of an active unit hosted by a player: --- --- * @{#ESCORT.MenuFollowAt}: Creates a menu to make the escort follow the client. --- * @{#ESCORT.MenuHoldAtEscortPosition}: Creates a menu to hold the escort at its current position. --- * @{#ESCORT.MenuHoldAtLeaderPosition}: Creates a menu to hold the escort at the client position. --- * @{#ESCORT.MenuScanForTargets}: Creates a menu so that the escort scans targets. --- * @{#ESCORT.MenuFlare}: Creates a menu to disperse flares. --- * @{#ESCORT.MenuSmoke}: Creates a menu to disparse smoke. --- * @{#ESCORT.MenuReportTargets}: Creates a menu so that the escort reports targets. --- * @{#ESCORT.MenuReportPosition}: Creates a menu so that the escort reports its current position from bullseye. --- * @{#ESCORT.MenuAssistedAttack: Creates a menu so that the escort supportes assisted attack from other escorts with the client. --- * @{#ESCORT.MenuROE: Creates a menu structure to set the rules of engagement of the escort. --- * @{#ESCORT.MenuEvasion: Creates a menu structure to set the evasion techniques when the escort is under threat. --- * @{#ESCORT.MenuResumeMission}: Creates a menu structure so that the escort can resume from a waypoint. --- --- --- @usage --- -- Declare a new EscortPlanes object as follows: --- --- -- First find the GROUP object and the CLIENT object. --- local EscortClient = CLIENT:FindByName( "Unit Name" ) -- The Unit Name is the name of the unit flagged with the skill Client in the mission editor. --- local EscortGroup = GROUP:FindByName( "Group Name" ) -- The Group Name is the name of the group that will escort the Escort Client. --- --- -- Now use these 2 objects to construct the new EscortPlanes object. --- EscortPlanes = ESCORT:New( EscortClient, EscortGroup, "Desert", "Welcome to the mission. You are escorted by a plane with code name 'Desert', which can be instructed through the F10 radio menu." ) --- --- --- --- @module Escort --- @author FlightControl - ---- ESCORT class --- @type ESCORT --- @extends Base#BASE --- @field Client#CLIENT EscortClient --- @field Group#GROUP EscortGroup --- @field #string EscortName --- @field #ESCORT.MODE EscortMode The mode the escort is in. --- @field Scheduler#SCHEDULER FollowScheduler The instance of the SCHEDULER class. --- @field #number FollowDistance The current follow distance. --- @field #boolean ReportTargets If true, nearby targets are reported. --- @Field DCSTypes#AI.Option.Air.val.ROE OptionROE Which ROE is set to the EscortGroup. --- @field DCSTypes#AI.Option.Air.val.REACTION_ON_THREAT OptionReactionOnThreat Which REACTION_ON_THREAT is set to the EscortGroup. --- @field Menu#MENU_CLIENT EscortMenuResumeMission -ESCORT = { - ClassName = "ESCORT", - EscortName = nil, -- The Escort Name - EscortClient = nil, - EscortGroup = nil, - EscortMode = 1, - MODE = { - FOLLOW = 1, - MISSION = 2, - }, - Targets = {}, -- The identified targets - FollowScheduler = nil, - ReportTargets = true, - OptionROE = AI.Option.Air.val.ROE.OPEN_FIRE, - OptionReactionOnThreat = AI.Option.Air.val.REACTION_ON_THREAT.ALLOW_ABORT_MISSION, - SmokeDirectionVector = false, - TaskPoints = {} -} - ---- ESCORT.Mode class --- @type ESCORT.MODE --- @field #number FOLLOW --- @field #number MISSION - ---- MENUPARAM type --- @type MENUPARAM --- @field #ESCORT ParamSelf --- @field #Distance ParamDistance --- @field #function ParamFunction --- @field #string ParamMessage - ---- ESCORT class constructor for an AI group --- @param #ESCORT self --- @param Client#CLIENT EscortClient The client escorted by the EscortGroup. --- @param Group#GROUP EscortGroup The group AI escorting the EscortClient. --- @param #string EscortName Name of the escort. --- @return #ESCORT self --- @usage --- -- Declare a new EscortPlanes object as follows: --- --- -- First find the GROUP object and the CLIENT object. --- local EscortClient = CLIENT:FindByName( "Unit Name" ) -- The Unit Name is the name of the unit flagged with the skill Client in the mission editor. --- local EscortGroup = GROUP:FindByName( "Group Name" ) -- The Group Name is the name of the group that will escort the Escort Client. --- --- -- Now use these 2 objects to construct the new EscortPlanes object. --- EscortPlanes = ESCORT:New( EscortClient, EscortGroup, "Desert", "Welcome to the mission. You are escorted by a plane with code name 'Desert', which can be instructed through the F10 radio menu." ) -function ESCORT:New( EscortClient, EscortGroup, EscortName, EscortBriefing ) - local self = BASE:Inherit( self, BASE:New() ) - self:F( { EscortClient, EscortGroup, EscortName } ) - - self.EscortClient = EscortClient -- Client#CLIENT - self.EscortGroup = EscortGroup -- Group#GROUP - self.EscortName = EscortName - self.EscortBriefing = EscortBriefing - - -- Set EscortGroup known at EscortClient. - if not self.EscortClient._EscortGroups then - self.EscortClient._EscortGroups = {} - end - - if not self.EscortClient._EscortGroups[EscortGroup:GetName()] then - self.EscortClient._EscortGroups[EscortGroup:GetName()] = {} - self.EscortClient._EscortGroups[EscortGroup:GetName()].EscortGroup = self.EscortGroup - self.EscortClient._EscortGroups[EscortGroup:GetName()].EscortName = self.EscortName - self.EscortClient._EscortGroups[EscortGroup:GetName()].Targets = {} - end - - self.EscortMenu = MENU_CLIENT:New( self.EscortClient, self.EscortName ) - - self.EscortGroup:WayPointInitialize(1) - - self.EscortGroup:OptionROTVertical() - self.EscortGroup:OptionROEOpenFire() - - EscortGroup:MessageToClient( EscortGroup:GetCategoryName() .. " '" .. EscortName .. "' (" .. EscortGroup:GetCallsign() .. ") reporting! " .. - "We're escorting your flight. " .. - "Use the Radio Menu and F10 and use the options under + " .. EscortName .. "\n", - 60, EscortClient - ) - - self.FollowDistance = 100 - self.CT1 = 0 - self.GT1 = 0 - self.FollowScheduler = SCHEDULER:New( self, self._FollowScheduler, {}, 1, .5, .01 ) - self.EscortMode = ESCORT.MODE.MISSION - self.FollowScheduler:Stop() - - return self -end - ---- This function is for test, it will put on the frequency of the FollowScheduler a red smoke at the direction vector calculated for the escort to fly to. --- This allows to visualize where the escort is flying to. --- @param #ESCORT self --- @param #boolean SmokeDirection If true, then the direction vector will be smoked. -function ESCORT:TestSmokeDirectionVector( SmokeDirection ) - self.SmokeDirectionVector = ( SmokeDirection == true ) and true or false -end - - ---- Defines the default menus --- @param #ESCORT self --- @return #ESCORT -function ESCORT:Menus() - self:F() - - self:MenuFollowAt( 100 ) - self:MenuFollowAt( 200 ) - self:MenuFollowAt( 300 ) - self:MenuFollowAt( 400 ) - - self:MenuScanForTargets( 100, 60 ) - - self:MenuHoldAtEscortPosition( 30 ) - self:MenuHoldAtLeaderPosition( 30 ) - - self:MenuFlare() - self:MenuSmoke() - - self:MenuReportTargets( 60 ) - self:MenuAssistedAttack() - self:MenuROE() - self:MenuEvasion() - self:MenuResumeMission() - - - return self -end - - - ---- Defines a menu slot to let the escort Join and Follow you at a certain distance. --- This menu will appear under **Navigation**. --- @param #ESCORT self --- @param DCSTypes#Distance Distance The distance in meters that the escort needs to follow the client. --- @return #ESCORT -function ESCORT:MenuFollowAt( Distance ) - self:F(Distance) - - if self.EscortGroup:IsAir() then - if not self.EscortMenuReportNavigation then - self.EscortMenuReportNavigation = MENU_CLIENT:New( self.EscortClient, "Navigation", self.EscortMenu ) - end - - if not self.EscortMenuJoinUpAndFollow then - self.EscortMenuJoinUpAndFollow = {} - end - - self.EscortMenuJoinUpAndFollow[#self.EscortMenuJoinUpAndFollow+1] = MENU_CLIENT_COMMAND:New( self.EscortClient, "Join-Up and Follow at " .. Distance, self.EscortMenuReportNavigation, ESCORT._JoinUpAndFollow, { ParamSelf = self, ParamDistance = Distance } ) - - self.EscortMode = ESCORT.MODE.FOLLOW - end - - return self -end - ---- Defines a menu slot to let the escort hold at their current position and stay low with a specified height during a specified time in seconds. --- This menu will appear under **Hold position**. --- @param #ESCORT self --- @param DCSTypes#Distance Height Optional parameter that sets the height in meters to let the escort orbit at the current location. The default value is 30 meters. --- @param DCSTypes#Time Seconds Optional parameter that lets the escort orbit at the current position for a specified time. (not implemented yet). The default value is 0 seconds, meaning, that the escort will orbit forever until a sequent command is given. --- @param #string MenuTextFormat Optional parameter that shows the menu option text. The text string is formatted, and should contain two %d tokens in the string. The first for the Height, the second for the Time (if given). If no text is given, the default text will be displayed. --- @return #ESCORT --- TODO: Implement Seconds parameter. Challenge is to first develop the "continue from last activity" function. -function ESCORT:MenuHoldAtEscortPosition( Height, Seconds, MenuTextFormat ) - self:F( { Height, Seconds, MenuTextFormat } ) - - if self.EscortGroup:IsAir() then - - if not self.EscortMenuHold then - self.EscortMenuHold = MENU_CLIENT:New( self.EscortClient, "Hold position", self.EscortMenu ) - end - - if not Height then - Height = 30 - end - - if not Seconds then - Seconds = 0 - end - - local MenuText = "" - if not MenuTextFormat then - if Seconds == 0 then - MenuText = string.format( "Hold at %d meter", Height ) - else - MenuText = string.format( "Hold at %d meter for %d seconds", Height, Seconds ) - end - else - if Seconds == 0 then - MenuText = string.format( MenuTextFormat, Height ) - else - MenuText = string.format( MenuTextFormat, Height, Seconds ) - end - end - - if not self.EscortMenuHoldPosition then - self.EscortMenuHoldPosition = {} - end - - self.EscortMenuHoldPosition[#self.EscortMenuHoldPosition+1] = MENU_CLIENT_COMMAND - :New( - self.EscortClient, - MenuText, - self.EscortMenuHold, - ESCORT._HoldPosition, - { ParamSelf = self, - ParamOrbitGroup = self.EscortGroup, - ParamHeight = Height, - ParamSeconds = Seconds - } - ) - end - - return self -end - - ---- Defines a menu slot to let the escort hold at the client position and stay low with a specified height during a specified time in seconds. --- This menu will appear under **Navigation**. --- @param #ESCORT self --- @param DCSTypes#Distance Height Optional parameter that sets the height in meters to let the escort orbit at the current location. The default value is 30 meters. --- @param DCSTypes#Time Seconds Optional parameter that lets the escort orbit at the current position for a specified time. (not implemented yet). The default value is 0 seconds, meaning, that the escort will orbit forever until a sequent command is given. --- @param #string MenuTextFormat Optional parameter that shows the menu option text. The text string is formatted, and should contain one or two %d tokens in the string. The first for the Height, the second for the Time (if given). If no text is given, the default text will be displayed. --- @return #ESCORT --- TODO: Implement Seconds parameter. Challenge is to first develop the "continue from last activity" function. -function ESCORT:MenuHoldAtLeaderPosition( Height, Seconds, MenuTextFormat ) - self:F( { Height, Seconds, MenuTextFormat } ) - - if self.EscortGroup:IsAir() then - - if not self.EscortMenuHold then - self.EscortMenuHold = MENU_CLIENT:New( self.EscortClient, "Hold position", self.EscortMenu ) - end - - if not Height then - Height = 30 - end - - if not Seconds then - Seconds = 0 - end - - local MenuText = "" - if not MenuTextFormat then - if Seconds == 0 then - MenuText = string.format( "Rejoin and hold at %d meter", Height ) - else - MenuText = string.format( "Rejoin and hold at %d meter for %d seconds", Height, Seconds ) - end - else - if Seconds == 0 then - MenuText = string.format( MenuTextFormat, Height ) - else - MenuText = string.format( MenuTextFormat, Height, Seconds ) - end - end - - if not self.EscortMenuHoldAtLeaderPosition then - self.EscortMenuHoldAtLeaderPosition = {} - end - - self.EscortMenuHoldAtLeaderPosition[#self.EscortMenuHoldAtLeaderPosition+1] = MENU_CLIENT_COMMAND - :New( - self.EscortClient, - MenuText, - self.EscortMenuHold, - ESCORT._HoldPosition, - { ParamSelf = self, - ParamOrbitGroup = self.EscortClient, - ParamHeight = Height, - ParamSeconds = Seconds - } - ) - end - - return self -end - ---- Defines a menu slot to let the escort scan for targets at a certain height for a certain time in seconds. --- This menu will appear under **Scan targets**. --- @param #ESCORT self --- @param DCSTypes#Distance Height Optional parameter that sets the height in meters to let the escort orbit at the current location. The default value is 30 meters. --- @param DCSTypes#Time Seconds Optional parameter that lets the escort orbit at the current position for a specified time. (not implemented yet). The default value is 0 seconds, meaning, that the escort will orbit forever until a sequent command is given. --- @param #string MenuTextFormat Optional parameter that shows the menu option text. The text string is formatted, and should contain one or two %d tokens in the string. The first for the Height, the second for the Time (if given). If no text is given, the default text will be displayed. --- @return #ESCORT -function ESCORT:MenuScanForTargets( Height, Seconds, MenuTextFormat ) - self:F( { Height, Seconds, MenuTextFormat } ) - - if self.EscortGroup:IsAir() then - if not self.EscortMenuScan then - self.EscortMenuScan = MENU_CLIENT:New( self.EscortClient, "Scan for targets", self.EscortMenu ) - end - - if not Height then - Height = 100 - end - - if not Seconds then - Seconds = 30 - end - - local MenuText = "" - if not MenuTextFormat then - if Seconds == 0 then - MenuText = string.format( "At %d meter", Height ) - else - MenuText = string.format( "At %d meter for %d seconds", Height, Seconds ) - end - else - if Seconds == 0 then - MenuText = string.format( MenuTextFormat, Height ) - else - MenuText = string.format( MenuTextFormat, Height, Seconds ) - end - end - - if not self.EscortMenuScanForTargets then - self.EscortMenuScanForTargets = {} - end - - self.EscortMenuScanForTargets[#self.EscortMenuScanForTargets+1] = MENU_CLIENT_COMMAND - :New( - self.EscortClient, - MenuText, - self.EscortMenuScan, - ESCORT._ScanTargets, - { ParamSelf = self, - ParamScanDuration = 30 - } - ) - end - - return self -end - - - ---- Defines a menu slot to let the escort disperse a flare in a certain color. --- This menu will appear under **Navigation**. --- The flare will be fired from the first unit in the group. --- @param #ESCORT self --- @param #string MenuTextFormat Optional parameter that shows the menu option text. If no text is given, the default text will be displayed. --- @return #ESCORT -function ESCORT:MenuFlare( MenuTextFormat ) - self:F() - - if not self.EscortMenuReportNavigation then - self.EscortMenuReportNavigation = MENU_CLIENT:New( self.EscortClient, "Navigation", self.EscortMenu ) - end - - local MenuText = "" - if not MenuTextFormat then - MenuText = "Flare" - else - MenuText = MenuTextFormat - end - - if not self.EscortMenuFlare then - self.EscortMenuFlare = MENU_CLIENT:New( self.EscortClient, MenuText, self.EscortMenuReportNavigation, ESCORT._Flare, { ParamSelf = self } ) - self.EscortMenuFlareGreen = MENU_CLIENT_COMMAND:New( self.EscortClient, "Release green flare", self.EscortMenuFlare, ESCORT._Flare, { ParamSelf = self, ParamColor = UNIT.FlareColor.Green, ParamMessage = "Released a green flare!" } ) - self.EscortMenuFlareRed = MENU_CLIENT_COMMAND:New( self.EscortClient, "Release red flare", self.EscortMenuFlare, ESCORT._Flare, { ParamSelf = self, ParamColor = UNIT.FlareColor.Red, ParamMessage = "Released a red flare!" } ) - self.EscortMenuFlareWhite = MENU_CLIENT_COMMAND:New( self.EscortClient, "Release white flare", self.EscortMenuFlare, ESCORT._Flare, { ParamSelf = self, ParamColor = UNIT.FlareColor.White, ParamMessage = "Released a white flare!" } ) - self.EscortMenuFlareYellow = MENU_CLIENT_COMMAND:New( self.EscortClient, "Release yellow flare", self.EscortMenuFlare, ESCORT._Flare, { ParamSelf = self, ParamColor = UNIT.FlareColor.Yellow, ParamMessage = "Released a yellow flare!" } ) - end - - return self -end - ---- Defines a menu slot to let the escort disperse a smoke in a certain color. --- This menu will appear under **Navigation**. --- Note that smoke menu options will only be displayed for ships and ground units. Not for air units. --- The smoke will be fired from the first unit in the group. --- @param #ESCORT self --- @param #string MenuTextFormat Optional parameter that shows the menu option text. If no text is given, the default text will be displayed. --- @return #ESCORT -function ESCORT:MenuSmoke( MenuTextFormat ) - self:F() - - if not self.EscortGroup:IsAir() then - if not self.EscortMenuReportNavigation then - self.EscortMenuReportNavigation = MENU_CLIENT:New( self.EscortClient, "Navigation", self.EscortMenu ) - end - - local MenuText = "" - if not MenuTextFormat then - MenuText = "Smoke" - else - MenuText = MenuTextFormat - end - - if not self.EscortMenuSmoke then - self.EscortMenuSmoke = MENU_CLIENT:New( self.EscortClient, "Smoke", self.EscortMenuReportNavigation, ESCORT._Smoke, { ParamSelf = self } ) - self.EscortMenuSmokeGreen = MENU_CLIENT_COMMAND:New( self.EscortClient, "Release green smoke", self.EscortMenuSmoke, ESCORT._Smoke, { ParamSelf = self, ParamColor = UNIT.SmokeColor.Green, ParamMessage = "Releasing green smoke!" } ) - self.EscortMenuSmokeRed = MENU_CLIENT_COMMAND:New( self.EscortClient, "Release red smoke", self.EscortMenuSmoke, ESCORT._Smoke, { ParamSelf = self, ParamColor = UNIT.SmokeColor.Red, ParamMessage = "Releasing red smoke!" } ) - self.EscortMenuSmokeWhite = MENU_CLIENT_COMMAND:New( self.EscortClient, "Release white smoke", self.EscortMenuSmoke, ESCORT._Smoke, { ParamSelf = self, ParamColor = UNIT.SmokeColor.White, ParamMessage = "Releasing white smoke!" } ) - self.EscortMenuSmokeOrange = MENU_CLIENT_COMMAND:New( self.EscortClient, "Release orange smoke", self.EscortMenuSmoke, ESCORT._Smoke, { ParamSelf = self, ParamColor = UNIT.SmokeColor.Orange, ParamMessage = "Releasing orange smoke!" } ) - self.EscortMenuSmokeBlue = MENU_CLIENT_COMMAND:New( self.EscortClient, "Release blue smoke", self.EscortMenuSmoke, ESCORT._Smoke, { ParamSelf = self, ParamColor = UNIT.SmokeColor.Blue, ParamMessage = "Releasing blue smoke!" } ) - end - end - - return self -end - ---- Defines a menu slot to let the escort report their current detected targets with a specified time interval in seconds. --- This menu will appear under **Report targets**. --- Note that if a report targets menu is not specified, no targets will be detected by the escort, and the attack and assisted attack menus will not be displayed. --- @param #ESCORT self --- @param DCSTypes#Time Seconds Optional parameter that lets the escort report their current detected targets after specified time interval in seconds. The default time is 30 seconds. --- @return #ESCORT -function ESCORT:MenuReportTargets( Seconds ) - self:F( { Seconds } ) - - if not self.EscortMenuReportNearbyTargets then - self.EscortMenuReportNearbyTargets = MENU_CLIENT:New( self.EscortClient, "Report targets", self.EscortMenu ) - end - - if not Seconds then - Seconds = 30 - end - - -- Report Targets - self.EscortMenuReportNearbyTargetsNow = MENU_CLIENT_COMMAND:New( self.EscortClient, "Report targets now!", self.EscortMenuReportNearbyTargets, ESCORT._ReportNearbyTargetsNow, { ParamSelf = self } ) - self.EscortMenuReportNearbyTargetsOn = MENU_CLIENT_COMMAND:New( self.EscortClient, "Report targets on", self.EscortMenuReportNearbyTargets, ESCORT._SwitchReportNearbyTargets, { ParamSelf = self, ParamReportTargets = true } ) - self.EscortMenuReportNearbyTargetsOff = MENU_CLIENT_COMMAND:New( self.EscortClient, "Report targets off", self.EscortMenuReportNearbyTargets, ESCORT._SwitchReportNearbyTargets, { ParamSelf = self, ParamReportTargets = false, } ) - - -- Attack Targets - self.EscortMenuAttackNearbyTargets = MENU_CLIENT:New( self.EscortClient, "Attack targets", self.EscortMenu ) - - - self.ReportTargetsScheduler = SCHEDULER:New( self, self._ReportTargetsScheduler, {}, 1, Seconds ) - - return self -end - ---- Defines a menu slot to let the escort attack its detected targets using assisted attack from another escort joined also with the client. --- This menu will appear under **Request assistance from**. --- Note that this method needs to be preceded with the method MenuReportTargets. --- @param #ESCORT self --- @return #ESCORT -function ESCORT:MenuAssistedAttack() - self:F() - - -- Request assistance from other escorts. - -- This is very useful to let f.e. an escorting ship attack a target detected by an escorting plane... - self.EscortMenuTargetAssistance = MENU_CLIENT:New( self.EscortClient, "Request assistance from", self.EscortMenu ) - - return self -end - ---- Defines a menu to let the escort set its rules of engagement. --- All rules of engagement will appear under the menu **ROE**. --- @param #ESCORT self --- @return #ESCORT -function ESCORT:MenuROE( MenuTextFormat ) - self:F( MenuTextFormat ) - - if not self.EscortMenuROE then - -- Rules of Engagement - self.EscortMenuROE = MENU_CLIENT:New( self.EscortClient, "ROE", self.EscortMenu ) - if self.EscortGroup:OptionROEHoldFirePossible() then - self.EscortMenuROEHoldFire = MENU_CLIENT_COMMAND:New( self.EscortClient, "Hold Fire", self.EscortMenuROE, ESCORT._ROE, { ParamSelf = self, ParamFunction = self.EscortGroup:OptionROEHoldFire(), ParamMessage = "Holding weapons!" } ) - end - if self.EscortGroup:OptionROEReturnFirePossible() then - self.EscortMenuROEReturnFire = MENU_CLIENT_COMMAND:New( self.EscortClient, "Return Fire", self.EscortMenuROE, ESCORT._ROE, { ParamSelf = self, ParamFunction = self.EscortGroup:OptionROEReturnFire(), ParamMessage = "Returning fire!" } ) - end - if self.EscortGroup:OptionROEOpenFirePossible() then - self.EscortMenuROEOpenFire = MENU_CLIENT_COMMAND:New( self.EscortClient, "Open Fire", self.EscortMenuROE, ESCORT._ROE, { ParamSelf = self, ParamFunction = self.EscortGroup:OptionROEOpenFire(), ParamMessage = "Opening fire on designated targets!!" } ) - end - if self.EscortGroup:OptionROEWeaponFreePossible() then - self.EscortMenuROEWeaponFree = MENU_CLIENT_COMMAND:New( self.EscortClient, "Weapon Free", self.EscortMenuROE, ESCORT._ROE, { ParamSelf = self, ParamFunction = self.EscortGroup:OptionROEWeaponFree(), ParamMessage = "Opening fire on targets of opportunity!" } ) - end - end - - return self -end - - ---- Defines a menu to let the escort set its evasion when under threat. --- All rules of engagement will appear under the menu **Evasion**. --- @param #ESCORT self --- @return #ESCORT -function ESCORT:MenuEvasion( MenuTextFormat ) - self:F( MenuTextFormat ) - - if self.EscortGroup:IsAir() then - if not self.EscortMenuEvasion then - -- Reaction to Threats - self.EscortMenuEvasion = MENU_CLIENT:New( self.EscortClient, "Evasion", self.EscortMenu ) - if self.EscortGroup:OptionROTNoReactionPossible() then - self.EscortMenuEvasionNoReaction = MENU_CLIENT_COMMAND:New( self.EscortClient, "Fight until death", self.EscortMenuEvasion, ESCORT._ROT, { ParamSelf = self, ParamFunction = self.EscortGroup:OptionROTNoReaction(), ParamMessage = "Fighting until death!" } ) - end - if self.EscortGroup:OptionROTPassiveDefensePossible() then - self.EscortMenuEvasionPassiveDefense = MENU_CLIENT_COMMAND:New( self.EscortClient, "Use flares, chaff and jammers", self.EscortMenuEvasion, ESCORT._ROT, { ParamSelf = self, ParamFunction = self.EscortGroup:OptionROTPassiveDefense(), ParamMessage = "Defending using jammers, chaff and flares!" } ) - end - if self.EscortGroup:OptionROTEvadeFirePossible() then - self.EscortMenuEvasionEvadeFire = MENU_CLIENT_COMMAND:New( self.EscortClient, "Evade enemy fire", self.EscortMenuEvasion, ESCORT._ROT, { ParamSelf = self, ParamFunction = self.EscortGroup:OptionROTEvadeFire(), ParamMessage = "Evading on enemy fire!" } ) - end - if self.EscortGroup:OptionROTVerticalPossible() then - self.EscortMenuOptionEvasionVertical = MENU_CLIENT_COMMAND:New( self.EscortClient, "Go below radar and evade fire", self.EscortMenuEvasion, ESCORT._ROT, { ParamSelf = self, ParamFunction = self.EscortGroup:OptionROTVertical(), ParamMessage = "Evading on enemy fire with vertical manoeuvres!" } ) - end - end - end - - return self -end - ---- Defines a menu to let the escort resume its mission from a waypoint on its route. --- All rules of engagement will appear under the menu **Resume mission from**. --- @param #ESCORT self --- @return #ESCORT -function ESCORT:MenuResumeMission() - self:F() - - if not self.EscortMenuResumeMission then - -- Mission Resume Menu Root - self.EscortMenuResumeMission = MENU_CLIENT:New( self.EscortClient, "Resume mission from", self.EscortMenu ) - end - - return self -end - - ---- @param #MENUPARAM MenuParam -function ESCORT._HoldPosition( MenuParam ) - - local self = MenuParam.ParamSelf - local EscortGroup = self.EscortGroup - local EscortClient = self.EscortClient - - local OrbitGroup = MenuParam.ParamOrbitGroup -- Group#GROUP - local OrbitUnit = OrbitGroup:GetUnit(1) -- Unit#UNIT - local OrbitHeight = MenuParam.ParamHeight - local OrbitSeconds = MenuParam.ParamSeconds -- Not implemented yet - - self.FollowScheduler:Stop() - - local PointFrom = {} - local GroupPoint = EscortGroup:GetUnit(1):GetPointVec3() - PointFrom = {} - PointFrom.x = GroupPoint.x - PointFrom.y = GroupPoint.z - PointFrom.speed = 250 - PointFrom.type = AI.Task.WaypointType.TURNING_POINT - PointFrom.alt = GroupPoint.y - PointFrom.alt_type = AI.Task.AltitudeType.BARO - - local OrbitPoint = OrbitUnit:GetPointVec2() - local PointTo = {} - PointTo.x = OrbitPoint.x - PointTo.y = OrbitPoint.y - PointTo.speed = 250 - PointTo.type = AI.Task.WaypointType.TURNING_POINT - PointTo.alt = OrbitHeight - PointTo.alt_type = AI.Task.AltitudeType.BARO - PointTo.task = EscortGroup:TaskOrbitCircleAtVec2( OrbitPoint, OrbitHeight, 0 ) - - local Points = { PointFrom, PointTo } - - EscortGroup:OptionROEHoldFire() - EscortGroup:OptionROTPassiveDefense() - - EscortGroup:SetTask( EscortGroup:TaskRoute( Points ) ) - EscortGroup:MessageToClient( "Orbiting at location.", 10, EscortClient ) - -end - ---- @param #MENUPARAM MenuParam -function ESCORT._JoinUpAndFollow( MenuParam ) - - local self = MenuParam.ParamSelf - local EscortGroup = self.EscortGroup - local EscortClient = self.EscortClient - - self.Distance = MenuParam.ParamDistance - - self:JoinUpAndFollow( EscortGroup, EscortClient, self.Distance ) -end - ---- JoinsUp and Follows a CLIENT. --- @param Escort#ESCORT self --- @param Group#GROUP EscortGroup --- @param Client#CLIENT EscortClient --- @param DCSTypes#Distance Distance -function ESCORT:JoinUpAndFollow( EscortGroup, EscortClient, Distance ) - self:F( { EscortGroup, EscortClient, Distance } ) - - self.FollowScheduler:Stop() - - EscortGroup:OptionROEHoldFire() - EscortGroup:OptionROTPassiveDefense() - - self.EscortMode = ESCORT.MODE.FOLLOW - - self.CT1 = 0 - self.GT1 = 0 - self.FollowScheduler:Start() - - EscortGroup:MessageToClient( "Rejoining and Following at " .. Distance .. "!", 30, EscortClient ) -end - ---- @param #MENUPARAM MenuParam -function ESCORT._Flare( MenuParam ) - - local self = MenuParam.ParamSelf - local EscortGroup = self.EscortGroup - local EscortClient = self.EscortClient - - local Color = MenuParam.ParamColor - local Message = MenuParam.ParamMessage - - EscortGroup:GetUnit(1):Flare( Color ) - EscortGroup:MessageToClient( Message, 10, EscortClient ) -end - ---- @param #MENUPARAM MenuParam -function ESCORT._Smoke( MenuParam ) - - local self = MenuParam.ParamSelf - local EscortGroup = self.EscortGroup - local EscortClient = self.EscortClient - - local Color = MenuParam.ParamColor - local Message = MenuParam.ParamMessage - - EscortGroup:GetUnit(1):Smoke( Color ) - EscortGroup:MessageToClient( Message, 10, EscortClient ) -end - - ---- @param #MENUPARAM MenuParam -function ESCORT._ReportNearbyTargetsNow( MenuParam ) - - local self = MenuParam.ParamSelf - local EscortGroup = self.EscortGroup - local EscortClient = self.EscortClient - - self:_ReportTargetsScheduler() - -end - -function ESCORT._SwitchReportNearbyTargets( MenuParam ) - - local self = MenuParam.ParamSelf - local EscortGroup = self.EscortGroup - local EscortClient = self.EscortClient - - self.ReportTargets = MenuParam.ParamReportTargets - - if self.ReportTargets then - if not self.ReportTargetsScheduler then - self.ReportTargetsScheduler = SCHEDULER:New( self, self._ReportTargetsScheduler, {}, 1, 30 ) - end - else - routines.removeFunction( self.ReportTargetsScheduler ) - self.ReportTargetsScheduler = nil - end -end - ---- @param #MENUPARAM MenuParam -function ESCORT._ScanTargets( MenuParam ) - - local self = MenuParam.ParamSelf - local EscortGroup = self.EscortGroup - local EscortClient = self.EscortClient - - local ScanDuration = MenuParam.ParamScanDuration - - self.FollowScheduler:Stop() - - if EscortGroup:IsHelicopter() then - SCHEDULER:New( EscortGroup, EscortGroup.PushTask, - { EscortGroup:TaskControlled( - EscortGroup:TaskOrbitCircle( 200, 20 ), - EscortGroup:TaskCondition( nil, nil, nil, nil, ScanDuration, nil ) - ) - }, - 1 - ) - elseif EscortGroup:IsAirPlane() then - SCHEDULER:New( EscortGroup, EscortGroup.PushTask, - { EscortGroup:TaskControlled( - EscortGroup:TaskOrbitCircle( 1000, 500 ), - EscortGroup:TaskCondition( nil, nil, nil, nil, ScanDuration, nil ) - ) - }, - 1 - ) - end - - EscortGroup:MessageToClient( "Scanning targets for " .. ScanDuration .. " seconds.", ScanDuration, EscortClient ) - - if self.EscortMode == ESCORT.MODE.FOLLOW then - self.FollowScheduler:Start() - end - -end - ---- @param Group#GROUP EscortGroup -function _Resume( EscortGroup ) - env.info( '_Resume' ) - - local Escort = EscortGroup:GetState( EscortGroup, "Escort" ) - env.info( "EscortMode = " .. Escort.EscortMode ) - if Escort.EscortMode == ESCORT.MODE.FOLLOW then - Escort:JoinUpAndFollow( EscortGroup, Escort.EscortClient, Escort.Distance ) - end - -end - ---- @param #MENUPARAM MenuParam -function ESCORT._AttackTarget( MenuParam ) - - local self = MenuParam.ParamSelf - local EscortGroup = self.EscortGroup - - local EscortClient = self.EscortClient - local AttackUnit = MenuParam.ParamUnit -- Unit#UNIT - - self.FollowScheduler:Stop() - - self:T( AttackUnit ) - - if EscortGroup:IsAir() then - EscortGroup:OptionROEOpenFire() - EscortGroup:OptionROTPassiveDefense() - EscortGroup:SetState( EscortGroup, "Escort", self ) - SCHEDULER:New( EscortGroup, - EscortGroup.PushTask, - { EscortGroup:TaskCombo( - { EscortGroup:TaskAttackUnit( AttackUnit ), - EscortGroup:TaskFunction( 1, 2, "_Resume", { "''" } ) - } - ) - }, 10 - ) - else - SCHEDULER:New( EscortGroup, - EscortGroup.PushTask, - { EscortGroup:TaskCombo( - { EscortGroup:TaskFireAtPoint( AttackUnit:GetPointVec2(), 50 ) - } - ) - }, 10 - ) - end - - EscortGroup:MessageToClient( "Engaging Designated Unit!", 10, EscortClient ) - -end - ---- @param #MENUPARAM MenuParam -function ESCORT._AssistTarget( MenuParam ) - - local self = MenuParam.ParamSelf - local EscortGroup = self.EscortGroup - local EscortClient = self.EscortClient - local EscortGroupAttack = MenuParam.ParamEscortGroup - local AttackUnit = MenuParam.ParamUnit -- Unit#UNIT - - self.FollowScheduler:Stop() - - self:T( AttackUnit ) - - if EscortGroupAttack:IsAir() then - EscortGroupAttack:OptionROEOpenFire() - EscortGroupAttack:OptionROTVertical() - SCHDULER:New( EscortGroupAttack, - EscortGroupAttack.PushTask, - { EscortGroupAttack:TaskCombo( - { EscortGroupAttack:TaskAttackUnit( AttackUnit ), - EscortGroupAttack:TaskOrbitCircle( 500, 350 ) - } - ) - }, 10 - ) - else - SCHEDULER:New( EscortGroupAttack, - EscortGroupAttack.PushTask, - { EscortGroupAttack:TaskCombo( - { EscortGroupAttack:TaskFireAtPoint( AttackUnit:GetPointVec2(), 50 ) - } - ) - }, 10 - ) - end - EscortGroupAttack:MessageToClient( "Assisting with the destroying the enemy unit!", 10, EscortClient ) - -end - ---- @param #MENUPARAM MenuParam -function ESCORT._ROE( MenuParam ) - - local self = MenuParam.ParamSelf - local EscortGroup = self.EscortGroup - local EscortClient = self.EscortClient - - local EscortROEFunction = MenuParam.ParamFunction - local EscortROEMessage = MenuParam.ParamMessage - - pcall( function() EscortROEFunction() end ) - EscortGroup:MessageToClient( EscortROEMessage, 10, EscortClient ) -end - ---- @param #MENUPARAM MenuParam -function ESCORT._ROT( MenuParam ) - - local self = MenuParam.ParamSelf - local EscortGroup = self.EscortGroup - local EscortClient = self.EscortClient - - local EscortROTFunction = MenuParam.ParamFunction - local EscortROTMessage = MenuParam.ParamMessage - - pcall( function() EscortROTFunction() end ) - EscortGroup:MessageToClient( EscortROTMessage, 10, EscortClient ) -end - ---- @param #MENUPARAM MenuParam -function ESCORT._ResumeMission( MenuParam ) - - local self = MenuParam.ParamSelf - local EscortGroup = self.EscortGroup - local EscortClient = self.EscortClient - - local WayPoint = MenuParam.ParamWayPoint - - self.FollowScheduler:Stop() - - local WayPoints = EscortGroup:GetTaskRoute() - self:T( WayPoint, WayPoints ) - - for WayPointIgnore = 1, WayPoint do - table.remove( WayPoints, 1 ) - end - - SCHEDULER:New( EscortGroup, EscortGroup.SetTask, { EscortGroup:TaskRoute( WayPoints ) }, 1 ) - - EscortGroup:MessageToClient( "Resuming mission from waypoint " .. WayPoint .. ".", 10, EscortClient ) -end - ---- Registers the waypoints --- @param #ESCORT self --- @return #table -function ESCORT:RegisterRoute() - self:F() - - local EscortGroup = self.EscortGroup -- Group#GROUP - - local TaskPoints = EscortGroup:GetTaskRoute() - - self:T( TaskPoints ) - - return TaskPoints -end - ---- @param Escort#ESCORT self -function ESCORT:_FollowScheduler() - self:F( { self.FollowDistance } ) - - self:T( {self.EscortClient.UnitName, self.EscortGroup.GroupName } ) - if self.EscortGroup:IsAlive() and self.EscortClient:IsAlive() then - - local ClientUnit = self.EscortClient:GetClientGroupUnit() - local GroupUnit = self.EscortGroup:GetUnit( 1 ) - local FollowDistance = self.FollowDistance - - self:T( {ClientUnit.UnitName, GroupUnit.UnitName } ) - - if self.CT1 == 0 and self.GT1 == 0 then - self.CV1 = ClientUnit:GetPointVec3() - self:T( { "self.CV1", self.CV1 } ) - self.CT1 = timer.getTime() - self.GV1 = GroupUnit:GetPointVec3() - self.GT1 = timer.getTime() - else - local CT1 = self.CT1 - local CT2 = timer.getTime() - local CV1 = self.CV1 - local CV2 = ClientUnit:GetPointVec3() - self.CT1 = CT2 - self.CV1 = CV2 - - local CD = ( ( CV2.x - CV1.x )^2 + ( CV2.y - CV1.y )^2 + ( CV2.z - CV1.z )^2 ) ^ 0.5 - local CT = CT2 - CT1 - - local CS = ( 3600 / CT ) * ( CD / 1000 ) - - self:T2( { "Client:", CS, CD, CT, CV2, CV1, CT2, CT1 } ) - - local GT1 = self.GT1 - local GT2 = timer.getTime() - local GV1 = self.GV1 - local GV2 = GroupUnit:GetPointVec3() - self.GT1 = GT2 - self.GV1 = GV2 - - local GD = ( ( GV2.x - GV1.x )^2 + ( GV2.y - GV1.y )^2 + ( GV2.z - GV1.z )^2 ) ^ 0.5 - local GT = GT2 - GT1 - - local GS = ( 3600 / GT ) * ( GD / 1000 ) - - self:T2( { "Group:", GS, GD, GT, GV2, GV1, GT2, GT1 } ) - - -- Calculate the group direction vector - local GV = { x = GV2.x - CV2.x, y = GV2.y - CV2.y, z = GV2.z - CV2.z } - - -- Calculate GH2, GH2 with the same height as CV2. - local GH2 = { x = GV2.x, y = CV2.y, z = GV2.z } - - -- Calculate the angle of GV to the orthonormal plane - local alpha = math.atan2( GV.z, GV.x ) - - -- Now we calculate the intersecting vector between the circle around CV2 with radius FollowDistance and GH2. - -- From the GeoGebra model: CVI = (x(CV2) + FollowDistance cos(alpha), y(GH2) + FollowDistance sin(alpha), z(CV2)) - local CVI = { x = CV2.x + FollowDistance * math.cos(alpha), - y = GH2.y, - z = CV2.z + FollowDistance * math.sin(alpha), - } - - -- Calculate the direction vector DV of the escort group. We use CVI as the base and CV2 as the direction. - local DV = { x = CV2.x - CVI.x, y = CV2.y - CVI.y, z = CV2.z - CVI.z } - - -- We now calculate the unary direction vector DVu, so that we can multiply DVu with the speed, which is expressed in meters / s. - -- We need to calculate this vector to predict the point the escort group needs to fly to according its speed. - -- The distance of the destination point should be far enough not to have the aircraft starting to swipe left to right... - local DVu = { x = DV.x / FollowDistance, y = DV.y / FollowDistance, z = DV.z / FollowDistance } - - -- Now we can calculate the group destination vector GDV. - local GDV = { x = DVu.x * CS * 8 + CVI.x, y = CVI.y, z = DVu.z * CS * 8 + CVI.z } - - if self.SmokeDirectionVector == true then - trigger.action.smoke( GDV, trigger.smokeColor.Red ) - end - - self:T2( { "CV2:", CV2 } ) - self:T2( { "CVI:", CVI } ) - self:T2( { "GDV:", GDV } ) - - -- Measure distance between client and group - local CatchUpDistance = ( ( GDV.x - GV2.x )^2 + ( GDV.y - GV2.y )^2 + ( GDV.z - GV2.z )^2 ) ^ 0.5 - - -- The calculation of the Speed would simulate that the group would take 30 seconds to overcome - -- the requested Distance). - local Time = 10 - local CatchUpSpeed = ( CatchUpDistance - ( CS * 8.4 ) ) / Time - - local Speed = CS + CatchUpSpeed - if Speed < 0 then - Speed = 0 - end - - self:T( { "Client Speed, Escort Speed, Speed, FollowDistance, Time:", CS, GS, Speed, FollowDistance, Time } ) - - -- Now route the escort to the desired point with the desired speed. - self.EscortGroup:TaskRouteToVec3( GDV, Speed / 3.6 ) -- DCS models speed in Mps (Miles per second) - end - - return true - end - - return false -end - - ---- Report Targets Scheduler. --- @param #ESCORT self -function ESCORT:_ReportTargetsScheduler() - self:F( self.EscortGroup:GetName() ) - - if self.EscortGroup:IsAlive() and self.EscortClient:IsAlive() then - local EscortGroupName = self.EscortGroup:GetName() - local EscortTargets = self.EscortGroup:GetDetectedTargets() - - local ClientEscortTargets = self.EscortClient._EscortGroups[EscortGroupName].Targets - - local EscortTargetMessages = "" - for EscortTargetID, EscortTarget in pairs( EscortTargets ) do - local EscortObject = EscortTarget.object - self:T( EscortObject ) - if EscortObject and EscortObject:isExist() and EscortObject.id_ < 50000000 then - - local EscortTargetUnit = UNIT:Find( EscortObject ) - local EscortTargetUnitName = EscortTargetUnit:GetName() - - - - -- local EscortTargetIsDetected, - -- EscortTargetIsVisible, - -- EscortTargetLastTime, - -- EscortTargetKnowType, - -- EscortTargetKnowDistance, - -- EscortTargetLastPos, - -- EscortTargetLastVelocity - -- = self.EscortGroup:IsTargetDetected( EscortObject ) - -- - -- self:T( { EscortTargetIsDetected, - -- EscortTargetIsVisible, - -- EscortTargetLastTime, - -- EscortTargetKnowType, - -- EscortTargetKnowDistance, - -- EscortTargetLastPos, - -- EscortTargetLastVelocity } ) - - - local EscortTargetUnitPositionVec3 = EscortTargetUnit:GetPointVec3() - local EscortPositionVec3 = self.EscortGroup:GetPointVec3() - local Distance = ( ( EscortTargetUnitPositionVec3.x - EscortPositionVec3.x )^2 + - ( EscortTargetUnitPositionVec3.y - EscortPositionVec3.y )^2 + - ( EscortTargetUnitPositionVec3.z - EscortPositionVec3.z )^2 - ) ^ 0.5 / 1000 - - self:T( { self.EscortGroup:GetName(), EscortTargetUnit:GetName(), Distance, EscortTarget } ) - - if Distance <= 15 then - - if not ClientEscortTargets[EscortTargetUnitName] then - ClientEscortTargets[EscortTargetUnitName] = {} - end - ClientEscortTargets[EscortTargetUnitName].AttackUnit = EscortTargetUnit - ClientEscortTargets[EscortTargetUnitName].visible = EscortTarget.visible - ClientEscortTargets[EscortTargetUnitName].type = EscortTarget.type - ClientEscortTargets[EscortTargetUnitName].distance = EscortTarget.distance - else - if ClientEscortTargets[EscortTargetUnitName] then - ClientEscortTargets[EscortTargetUnitName] = nil - end - end - end - end - - self:T( { "Sorting Targets Table:", ClientEscortTargets } ) - table.sort( ClientEscortTargets, function( a, b ) return a.Distance < b.Distance end ) - self:T( { "Sorted Targets Table:", ClientEscortTargets } ) - - -- Remove the sub menus of the Attack menu of the Escort for the EscortGroup. - self.EscortMenuAttackNearbyTargets:RemoveSubMenus() - - if self.EscortMenuTargetAssistance then - self.EscortMenuTargetAssistance:RemoveSubMenus() - end - - --for MenuIndex = 1, #self.EscortMenuAttackTargets do - -- self:T( { "Remove Menu:", self.EscortMenuAttackTargets[MenuIndex] } ) - -- self.EscortMenuAttackTargets[MenuIndex] = self.EscortMenuAttackTargets[MenuIndex]:Remove() - --end - - - if ClientEscortTargets then - for ClientEscortTargetUnitName, ClientEscortTargetData in pairs( ClientEscortTargets ) do - - for ClientEscortGroupName, EscortGroupData in pairs( self.EscortClient._EscortGroups ) do - - if ClientEscortTargetData and ClientEscortTargetData.AttackUnit:IsAlive() then - - local EscortTargetMessage = "" - local EscortTargetCategoryName = ClientEscortTargetData.AttackUnit:GetCategoryName() - local EscortTargetCategoryType = ClientEscortTargetData.AttackUnit:GetTypeName() - if ClientEscortTargetData.type then - EscortTargetMessage = EscortTargetMessage .. EscortTargetCategoryName .. " (" .. EscortTargetCategoryType .. ") at " - else - EscortTargetMessage = EscortTargetMessage .. "Unknown target at " - end - - local EscortTargetUnitPositionVec3 = ClientEscortTargetData.AttackUnit:GetPointVec3() - local EscortPositionVec3 = self.EscortGroup:GetPointVec3() - local Distance = ( ( EscortTargetUnitPositionVec3.x - EscortPositionVec3.x )^2 + - ( EscortTargetUnitPositionVec3.y - EscortPositionVec3.y )^2 + - ( EscortTargetUnitPositionVec3.z - EscortPositionVec3.z )^2 - ) ^ 0.5 / 1000 - - self:T( { self.EscortGroup:GetName(), ClientEscortTargetData.AttackUnit:GetName(), Distance, ClientEscortTargetData.AttackUnit } ) - if ClientEscortTargetData.visible == false then - EscortTargetMessage = EscortTargetMessage .. string.format( "%.2f", Distance ) .. " estimated km" - else - EscortTargetMessage = EscortTargetMessage .. string.format( "%.2f", Distance ) .. " km" - end - - if ClientEscortTargetData.visible then - EscortTargetMessage = EscortTargetMessage .. ", visual" - end - - if ClientEscortGroupName == EscortGroupName then - - MENU_CLIENT_COMMAND:New( self.EscortClient, - EscortTargetMessage, - self.EscortMenuAttackNearbyTargets, - ESCORT._AttackTarget, - { ParamSelf = self, - ParamUnit = ClientEscortTargetData.AttackUnit - } - ) - EscortTargetMessages = EscortTargetMessages .. "\n - " .. EscortTargetMessage - else - if self.EscortMenuTargetAssistance then - local MenuTargetAssistance = MENU_CLIENT:New( self.EscortClient, EscortGroupData.EscortName, self.EscortMenuTargetAssistance ) - MENU_CLIENT_COMMAND:New( self.EscortClient, - EscortTargetMessage, - MenuTargetAssistance, - ESCORT._AssistTarget, - { ParamSelf = self, - ParamEscortGroup = EscortGroupData.EscortGroup, - ParamUnit = ClientEscortTargetData.AttackUnit - } - ) - end - end - else - ClientEscortTargetData = nil - end - end - end - - if EscortTargetMessages ~= "" and self.ReportTargets == true then - self.EscortGroup:MessageToClient( "Detected targets within 15 km range:" .. EscortTargetMessages:gsub("\n$",""), 20, self.EscortClient ) - else - self.EscortGroup:MessageToClient( "No targets detected!", 20, self.EscortClient ) - end - end - - if self.EscortMenuResumeMission then - self.EscortMenuResumeMission:RemoveSubMenus() - - -- if self.EscortMenuResumeWayPoints then - -- for MenuIndex = 1, #self.EscortMenuResumeWayPoints do - -- self:T( { "Remove Menu:", self.EscortMenuResumeWayPoints[MenuIndex] } ) - -- self.EscortMenuResumeWayPoints[MenuIndex] = self.EscortMenuResumeWayPoints[MenuIndex]:Remove() - -- end - -- end - - local TaskPoints = self:RegisterRoute() - for WayPointID, WayPoint in pairs( TaskPoints ) do - local EscortPositionVec3 = self.EscortGroup:GetPointVec3() - local Distance = ( ( WayPoint.x - EscortPositionVec3.x )^2 + - ( WayPoint.y - EscortPositionVec3.z )^2 - ) ^ 0.5 / 1000 - MENU_CLIENT_COMMAND:New( self.EscortClient, "Waypoint " .. WayPointID .. " at " .. string.format( "%.2f", Distance ).. "km", self.EscortMenuResumeMission, ESCORT._ResumeMission, { ParamSelf = self, ParamWayPoint = WayPointID } ) - end - end - - return true - end - - return false -end ---- This module contains the MISSILETRAINER class. --- --- === --- --- 1) @{MissileTrainer#MISSILETRAINER} class, extends @{Base#BASE} --- =============================================================== --- The @{#MISSILETRAINER} class uses the DCS world messaging system to be alerted of any missiles fired, and when a missile would hit your aircraft, --- the class will destroy the missile within a certain range, to avoid damage to your aircraft. --- It suports the following functionality: --- --- * Track the missiles fired at you and other players, providing bearing and range information of the missiles towards the airplanes. --- * Provide alerts of missile launches, including detailed information of the units launching, including bearing, range … --- * Provide alerts when a missile would have killed your aircraft. --- * Provide alerts when the missile self destructs. --- * Enable / Disable and Configure the Missile Trainer using the various menu options. --- --- When running a mission where MISSILETRAINER is used, the following radio menu structure ( 'Radio Menu' -> 'Other (F10)' -> 'MissileTrainer' ) options are available for the players: --- --- * **Messages**: Menu to configure all messages. --- * **Messages On**: Show all messages. --- * **Messages Off**: Disable all messages. --- * **Tracking**: Menu to configure missile tracking messages. --- * **To All**: Shows missile tracking messages to all players. --- * **To Target**: Shows missile tracking messages only to the player where the missile is targetted at. --- * **Tracking On**: Show missile tracking messages. --- * **Tracking Off**: Disable missile tracking messages. --- * **Frequency Increase**: Increases the missile tracking message frequency with one second. --- * **Frequency Decrease**: Decreases the missile tracking message frequency with one second. --- * **Alerts**: Menu to configure alert messages. --- * **To All**: Shows alert messages to all players. --- * **To Target**: Shows alert messages only to the player where the missile is (was) targetted at. --- * **Hits On**: Show missile hit alert messages. --- * **Hits Off**: Disable missile hit alert messages. --- * **Launches On**: Show missile launch messages. --- * **Launches Off**: Disable missile launch messages. --- * **Details**: Menu to configure message details. --- * **Range On**: Shows range information when a missile is fired to a target. --- * **Range Off**: Disable range information when a missile is fired to a target. --- * **Bearing On**: Shows bearing information when a missile is fired to a target. --- * **Bearing Off**: Disable bearing information when a missile is fired to a target. --- * **Distance**: Menu to configure the distance when a missile needs to be destroyed when near to a player, during tracking. This will improve/influence hit calculation accuracy, but has the risk of damaging the aircraft when the missile reaches the aircraft before the distance is measured. --- * **50 meter**: Destroys the missile when the distance to the aircraft is below or equal to 50 meter. --- * **100 meter**: Destroys the missile when the distance to the aircraft is below or equal to 100 meter. --- * **150 meter**: Destroys the missile when the distance to the aircraft is below or equal to 150 meter. --- * **200 meter**: Destroys the missile when the distance to the aircraft is below or equal to 200 meter. --- --- --- 1.1) MISSILETRAINER construction methods: --- ----------------------------------------- --- Create a new MISSILETRAINER object with the @{#MISSILETRAINER.New} method: --- --- * @{#MISSILETRAINER.New}: Creates a new MISSILETRAINER object taking the maximum distance to your aircraft to evaluate when a missile needs to be destroyed. --- --- MISSILETRAINER will collect each unit declared in the mission with a skill level "Client" and "Player", and will monitor the missiles shot at those. --- --- 1.2) MISSILETRAINER initialization methods: --- ------------------------------------------- --- A MISSILETRAINER object will behave differently based on the usage of initialization methods: --- --- * @{#MISSILETRAINER.InitMessagesOnOff}: Sets by default the display of any message to be ON or OFF. --- * @{#MISSILETRAINER.InitTrackingToAll}: Sets by default the missile tracking report for all players or only for those missiles targetted to you. --- * @{#MISSILETRAINER.InitTrackingOnOff}: Sets by default the display of missile tracking report to be ON or OFF. --- * @{#MISSILETRAINER.InitTrackingFrequency}: Increases, decreases the missile tracking message display frequency with the provided time interval in seconds. --- * @{#MISSILETRAINER.InitAlertsToAll}: Sets by default the display of alerts to be shown to all players or only to you. --- * @{#MISSILETRAINER.InitAlertsHitsOnOff}: Sets by default the display of hit alerts ON or OFF. --- * @{#MISSILETRAINER.InitAlertsLaunchesOnOff}: Sets by default the display of launch alerts ON or OFF. --- * @{#MISSILETRAINER.InitRangeOnOff}: Sets by default the display of range information of missiles ON of OFF. --- * @{#MISSILETRAINER.InitBearingOnOff}: Sets by default the display of bearing information of missiles ON of OFF. --- * @{#MISSILETRAINER.InitMenusOnOff}: Allows to configure the options through the radio menu. --- --- === --- --- CREDITS --- ======= --- **Stuka (Danny)** Who you can search on the Eagle Dynamics Forums. --- Working together with Danny has resulted in the MISSILETRAINER class. --- Danny has shared his ideas and together we made a design. --- Together with the **476 virtual team**, we tested the MISSILETRAINER class, and got much positive feedback! --- --- @module MissileTrainer --- @author FlightControl - - ---- The MISSILETRAINER class --- @type MISSILETRAINER --- @field Set#SET_CLIENT DBClients --- @extends Base#BASE -MISSILETRAINER = { - ClassName = "MISSILETRAINER", - TrackingMissiles = {}, -} - -function MISSILETRAINER._Alive( Client, self ) - - if self.Briefing then - Client:Message( self.Briefing, 15, "Trainer" ) - end - - if self.MenusOnOff == true then - Client:Message( "Use the 'Radio Menu' -> 'Other (F10)' -> 'Missile Trainer' menu options to change the Missile Trainer settings (for all players).", 15, "Trainer" ) - - Client.MainMenu = MENU_CLIENT:New( Client, "Missile Trainer", nil ) -- Menu#MENU_CLIENT - - Client.MenuMessages = MENU_CLIENT:New( Client, "Messages", Client.MainMenu ) - Client.MenuOn = MENU_CLIENT_COMMAND:New( Client, "Messages On", Client.MenuMessages, self._MenuMessages, { MenuSelf = self, MessagesOnOff = true } ) - Client.MenuOff = MENU_CLIENT_COMMAND:New( Client, "Messages Off", Client.MenuMessages, self._MenuMessages, { MenuSelf = self, MessagesOnOff = false } ) - - Client.MenuTracking = MENU_CLIENT:New( Client, "Tracking", Client.MainMenu ) - Client.MenuTrackingToAll = MENU_CLIENT_COMMAND:New( Client, "To All", Client.MenuTracking, self._MenuMessages, { MenuSelf = self, TrackingToAll = true } ) - Client.MenuTrackingToTarget = MENU_CLIENT_COMMAND:New( Client, "To Target", Client.MenuTracking, self._MenuMessages, { MenuSelf = self, TrackingToAll = false } ) - Client.MenuTrackOn = MENU_CLIENT_COMMAND:New( Client, "Tracking On", Client.MenuTracking, self._MenuMessages, { MenuSelf = self, TrackingOnOff = true } ) - Client.MenuTrackOff = MENU_CLIENT_COMMAND:New( Client, "Tracking Off", Client.MenuTracking, self._MenuMessages, { MenuSelf = self, TrackingOnOff = false } ) - Client.MenuTrackIncrease = MENU_CLIENT_COMMAND:New( Client, "Frequency Increase", Client.MenuTracking, self._MenuMessages, { MenuSelf = self, TrackingFrequency = -1 } ) - Client.MenuTrackDecrease = MENU_CLIENT_COMMAND:New( Client, "Frequency Decrease", Client.MenuTracking, self._MenuMessages, { MenuSelf = self, TrackingFrequency = 1 } ) - - Client.MenuAlerts = MENU_CLIENT:New( Client, "Alerts", Client.MainMenu ) - Client.MenuAlertsToAll = MENU_CLIENT_COMMAND:New( Client, "To All", Client.MenuAlerts, self._MenuMessages, { MenuSelf = self, AlertsToAll = true } ) - Client.MenuAlertsToTarget = MENU_CLIENT_COMMAND:New( Client, "To Target", Client.MenuAlerts, self._MenuMessages, { MenuSelf = self, AlertsToAll = false } ) - Client.MenuHitsOn = MENU_CLIENT_COMMAND:New( Client, "Hits On", Client.MenuAlerts, self._MenuMessages, { MenuSelf = self, AlertsHitsOnOff = true } ) - Client.MenuHitsOff = MENU_CLIENT_COMMAND:New( Client, "Hits Off", Client.MenuAlerts, self._MenuMessages, { MenuSelf = self, AlertsHitsOnOff = false } ) - Client.MenuLaunchesOn = MENU_CLIENT_COMMAND:New( Client, "Launches On", Client.MenuAlerts, self._MenuMessages, { MenuSelf = self, AlertsLaunchesOnOff = true } ) - Client.MenuLaunchesOff = MENU_CLIENT_COMMAND:New( Client, "Launches Off", Client.MenuAlerts, self._MenuMessages, { MenuSelf = self, AlertsLaunchesOnOff = false } ) - - Client.MenuDetails = MENU_CLIENT:New( Client, "Details", Client.MainMenu ) - Client.MenuDetailsDistanceOn = MENU_CLIENT_COMMAND:New( Client, "Range On", Client.MenuDetails, self._MenuMessages, { MenuSelf = self, DetailsRangeOnOff = true } ) - Client.MenuDetailsDistanceOff = MENU_CLIENT_COMMAND:New( Client, "Range Off", Client.MenuDetails, self._MenuMessages, { MenuSelf = self, DetailsRangeOnOff = false } ) - Client.MenuDetailsBearingOn = MENU_CLIENT_COMMAND:New( Client, "Bearing On", Client.MenuDetails, self._MenuMessages, { MenuSelf = self, DetailsBearingOnOff = true } ) - Client.MenuDetailsBearingOff = MENU_CLIENT_COMMAND:New( Client, "Bearing Off", Client.MenuDetails, self._MenuMessages, { MenuSelf = self, DetailsBearingOnOff = false } ) - - Client.MenuDistance = MENU_CLIENT:New( Client, "Set distance to plane", Client.MainMenu ) - Client.MenuDistance50 = MENU_CLIENT_COMMAND:New( Client, "50 meter", Client.MenuDistance, self._MenuMessages, { MenuSelf = self, Distance = 50 / 1000 } ) - Client.MenuDistance100 = MENU_CLIENT_COMMAND:New( Client, "100 meter", Client.MenuDistance, self._MenuMessages, { MenuSelf = self, Distance = 100 / 1000 } ) - Client.MenuDistance150 = MENU_CLIENT_COMMAND:New( Client, "150 meter", Client.MenuDistance, self._MenuMessages, { MenuSelf = self, Distance = 150 / 1000 } ) - Client.MenuDistance200 = MENU_CLIENT_COMMAND:New( Client, "200 meter", Client.MenuDistance, self._MenuMessages, { MenuSelf = self, Distance = 200 / 1000 } ) - else - if Client.MainMenu then - Client.MainMenu:Remove() - end - end - - local ClientID = Client:GetID() - self:T( ClientID ) - if not self.TrackingMissiles[ClientID] then - self.TrackingMissiles[ClientID] = {} - end - self.TrackingMissiles[ClientID].Client = Client - if not self.TrackingMissiles[ClientID].MissileData then - self.TrackingMissiles[ClientID].MissileData = {} - end -end - ---- Creates the main object which is handling missile tracking. --- When a missile is fired a SCHEDULER is set off that follows the missile. When near a certain a client player, the missile will be destroyed. --- @param #MISSILETRAINER self --- @param #number Distance The distance in meters when a tracked missile needs to be destroyed when close to a player. --- @param #string Briefing (Optional) Will show a text to the players when starting their mission. Can be used for briefing purposes. --- @return #MISSILETRAINER -function MISSILETRAINER:New( Distance, Briefing ) - local self = BASE:Inherit( self, BASE:New() ) - self:F( Distance ) - - if Briefing then - self.Briefing = Briefing - end - - self.Schedulers = {} - self.SchedulerID = 0 - - self.MessageInterval = 2 - self.MessageLastTime = timer.getTime() - - self.Distance = Distance / 1000 - - _EVENTDISPATCHER:OnShot( self._EventShot, self ) - - self.DBClients = SET_CLIENT:New():FilterStart() - - --- for ClientID, Client in pairs( self.DBClients.Database ) do --- self:E( "ForEach:" .. Client.UnitName ) --- Client:Alive( self._Alive, self ) --- end --- - self.DBClients:ForEachClient( - function( Client ) - self:E( "ForEach:" .. Client.UnitName ) - Client:Alive( self._Alive, self ) - end - ) - - - --- self.DB:ForEachClient( --- --- @param Client#CLIENT Client --- function( Client ) --- --- ... actions ... --- --- end --- ) - - self.MessagesOnOff = true - - self.TrackingToAll = false - self.TrackingOnOff = true - self.TrackingFrequency = 3 - - self.AlertsToAll = true - self.AlertsHitsOnOff = true - self.AlertsLaunchesOnOff = true - - self.DetailsRangeOnOff = true - self.DetailsBearingOnOff = true - - self.MenusOnOff = true - - self.TrackingMissiles = {} - - self.TrackingScheduler = SCHEDULER:New( self, self._TrackMissiles, {}, 0.5, 0.05, 0 ) - - return self -end - --- Initialization methods. - - - ---- Sets by default the display of any message to be ON or OFF. --- @param #MISSILETRAINER self --- @param #boolean MessagesOnOff true or false --- @return #MISSILETRAINER self -function MISSILETRAINER:InitMessagesOnOff( MessagesOnOff ) - self:F( MessagesOnOff ) - - self.MessagesOnOff = MessagesOnOff - if self.MessagesOnOff == true then - MESSAGE:New( "Messages ON", 15, "Menu" ):ToAll() - else - MESSAGE:New( "Messages OFF", 15, "Menu" ):ToAll() - end - - return self -end - ---- Sets by default the missile tracking report for all players or only for those missiles targetted to you. --- @param #MISSILETRAINER self --- @param #boolean TrackingToAll true or false --- @return #MISSILETRAINER self -function MISSILETRAINER:InitTrackingToAll( TrackingToAll ) - self:F( TrackingToAll ) - - self.TrackingToAll = TrackingToAll - if self.TrackingToAll == true then - MESSAGE:New( "Missile tracking to all players ON", 15, "Menu" ):ToAll() - else - MESSAGE:New( "Missile tracking to all players OFF", 15, "Menu" ):ToAll() - end - - return self -end - ---- Sets by default the display of missile tracking report to be ON or OFF. --- @param #MISSILETRAINER self --- @param #boolean TrackingOnOff true or false --- @return #MISSILETRAINER self -function MISSILETRAINER:InitTrackingOnOff( TrackingOnOff ) - self:F( TrackingOnOff ) - - self.TrackingOnOff = TrackingOnOff - if self.TrackingOnOff == true then - MESSAGE:New( "Missile tracking ON", 15, "Menu" ):ToAll() - else - MESSAGE:New( "Missile tracking OFF", 15, "Menu" ):ToAll() - end - - return self -end - ---- Increases, decreases the missile tracking message display frequency with the provided time interval in seconds. --- The default frequency is a 3 second interval, so the Tracking Frequency parameter specifies the increase or decrease from the default 3 seconds or the last frequency update. --- @param #MISSILETRAINER self --- @param #number TrackingFrequency Provide a negative or positive value in seconds to incraese or decrease the display frequency. --- @return #MISSILETRAINER self -function MISSILETRAINER:InitTrackingFrequency( TrackingFrequency ) - self:F( TrackingFrequency ) - - self.TrackingFrequency = self.TrackingFrequency + TrackingFrequency - if self.TrackingFrequency < 0.5 then - self.TrackingFrequency = 0.5 - end - if self.TrackingFrequency then - MESSAGE:New( "Missile tracking frequency is " .. self.TrackingFrequency .. " seconds.", 15, "Menu" ):ToAll() - end - - return self -end - ---- Sets by default the display of alerts to be shown to all players or only to you. --- @param #MISSILETRAINER self --- @param #boolean AlertsToAll true or false --- @return #MISSILETRAINER self -function MISSILETRAINER:InitAlertsToAll( AlertsToAll ) - self:F( AlertsToAll ) - - self.AlertsToAll = AlertsToAll - if self.AlertsToAll == true then - MESSAGE:New( "Alerts to all players ON", 15, "Menu" ):ToAll() - else - MESSAGE:New( "Alerts to all players OFF", 15, "Menu" ):ToAll() - end - - return self -end - ---- Sets by default the display of hit alerts ON or OFF. --- @param #MISSILETRAINER self --- @param #boolean AlertsHitsOnOff true or false --- @return #MISSILETRAINER self -function MISSILETRAINER:InitAlertsHitsOnOff( AlertsHitsOnOff ) - self:F( AlertsHitsOnOff ) - - self.AlertsHitsOnOff = AlertsHitsOnOff - if self.AlertsHitsOnOff == true then - MESSAGE:New( "Alerts Hits ON", 15, "Menu" ):ToAll() - else - MESSAGE:New( "Alerts Hits OFF", 15, "Menu" ):ToAll() - end - - return self -end - ---- Sets by default the display of launch alerts ON or OFF. --- @param #MISSILETRAINER self --- @param #boolean AlertsLaunchesOnOff true or false --- @return #MISSILETRAINER self -function MISSILETRAINER:InitAlertsLaunchesOnOff( AlertsLaunchesOnOff ) - self:F( AlertsLaunchesOnOff ) - - self.AlertsLaunchesOnOff = AlertsLaunchesOnOff - if self.AlertsLaunchesOnOff == true then - MESSAGE:New( "Alerts Launches ON", 15, "Menu" ):ToAll() - else - MESSAGE:New( "Alerts Launches OFF", 15, "Menu" ):ToAll() - end - - return self -end - ---- Sets by default the display of range information of missiles ON of OFF. --- @param #MISSILETRAINER self --- @param #boolean DetailsRangeOnOff true or false --- @return #MISSILETRAINER self -function MISSILETRAINER:InitRangeOnOff( DetailsRangeOnOff ) - self:F( DetailsRangeOnOff ) - - self.DetailsRangeOnOff = DetailsRangeOnOff - if self.DetailsRangeOnOff == true then - MESSAGE:New( "Range display ON", 15, "Menu" ):ToAll() - else - MESSAGE:New( "Range display OFF", 15, "Menu" ):ToAll() - end - - return self -end - ---- Sets by default the display of bearing information of missiles ON of OFF. --- @param #MISSILETRAINER self --- @param #boolean DetailsBearingOnOff true or false --- @return #MISSILETRAINER self -function MISSILETRAINER:InitBearingOnOff( DetailsBearingOnOff ) - self:F( DetailsBearingOnOff ) - - self.DetailsBearingOnOff = DetailsBearingOnOff - if self.DetailsBearingOnOff == true then - MESSAGE:New( "Bearing display OFF", 15, "Menu" ):ToAll() - else - MESSAGE:New( "Bearing display OFF", 15, "Menu" ):ToAll() - end - - return self -end - ---- Enables / Disables the menus. --- @param #MISSILETRAINER self --- @param #boolean MenusOnOff true or false --- @return #MISSILETRAINER self -function MISSILETRAINER:InitMenusOnOff( MenusOnOff ) - self:F( MenusOnOff ) - - self.MenusOnOff = MenusOnOff - if self.MenusOnOff == true then - MESSAGE:New( "Menus are ENABLED (only when a player rejoins a slot)", 15, "Menu" ):ToAll() - else - MESSAGE:New( "Menus are DISABLED", 15, "Menu" ):ToAll() - end - - return self -end - - --- Menu functions - -function MISSILETRAINER._MenuMessages( MenuParameters ) - - local self = MenuParameters.MenuSelf - - if MenuParameters.MessagesOnOff ~= nil then - self:InitMessagesOnOff( MenuParameters.MessagesOnOff ) - end - - if MenuParameters.TrackingToAll ~= nil then - self:InitTrackingToAll( MenuParameters.TrackingToAll ) - end - - if MenuParameters.TrackingOnOff ~= nil then - self:InitTrackingOnOff( MenuParameters.TrackingOnOff ) - end - - if MenuParameters.TrackingFrequency ~= nil then - self:InitTrackingFrequency( MenuParameters.TrackingFrequency ) - end - - if MenuParameters.AlertsToAll ~= nil then - self:InitAlertsToAll( MenuParameters.AlertsToAll ) - end - - if MenuParameters.AlertsHitsOnOff ~= nil then - self:InitAlertsHitsOnOff( MenuParameters.AlertsHitsOnOff ) - end - - if MenuParameters.AlertsLaunchesOnOff ~= nil then - self:InitAlertsLaunchesOnOff( MenuParameters.AlertsLaunchesOnOff ) - end - - if MenuParameters.DetailsRangeOnOff ~= nil then - self:InitRangeOnOff( MenuParameters.DetailsRangeOnOff ) - end - - if MenuParameters.DetailsBearingOnOff ~= nil then - self:InitBearingOnOff( MenuParameters.DetailsBearingOnOff ) - end - - if MenuParameters.Distance ~= nil then - self.Distance = MenuParameters.Distance - MESSAGE:New( "Hit detection distance set to " .. self.Distance .. " meters", 15, "Menu" ):ToAll() - end - -end - ---- Detects if an SA site was shot with an anti radiation missile. In this case, take evasive actions based on the skill level set within the ME. --- @param #MISSILETRAINER self --- @param Event#EVENTDATA Event -function MISSILETRAINER:_EventShot( Event ) - self:F( { Event } ) - - local TrainerSourceDCSUnit = Event.IniDCSUnit - local TrainerSourceDCSUnitName = Event.IniDCSUnitName - local TrainerWeapon = Event.Weapon -- Identify the weapon fired - local TrainerWeaponName = Event.WeaponName -- return weapon type - - self:T( "Missile Launched = " .. TrainerWeaponName ) - - local TrainerTargetDCSUnit = TrainerWeapon:getTarget() -- Identify target - local TrainerTargetDCSUnitName = Unit.getName( TrainerTargetDCSUnit ) - local TrainerTargetSkill = _DATABASE.Templates.Units[TrainerTargetDCSUnitName].Template.skill - - self:T(TrainerTargetDCSUnitName ) - - local Client = self.DBClients:FindClient( TrainerTargetDCSUnitName ) - if Client then - - local TrainerSourceUnit = UNIT:Find( TrainerSourceDCSUnit ) - local TrainerTargetUnit = UNIT:Find( TrainerTargetDCSUnit ) - - if self.MessagesOnOff == true and self.AlertsLaunchesOnOff == true then - - local Message = MESSAGE:New( - string.format( "%s launched a %s", - TrainerSourceUnit:GetTypeName(), - TrainerWeaponName - ) .. self:_AddRange( Client, TrainerWeapon ) .. self:_AddBearing( Client, TrainerWeapon ), 5, "Launch Alert" ) - - if self.AlertsToAll then - Message:ToAll() - else - Message:ToClient( Client ) - end - end - - local ClientID = Client:GetID() - self:T( ClientID ) - local MissileData = {} - MissileData.TrainerSourceUnit = TrainerSourceUnit - MissileData.TrainerWeapon = TrainerWeapon - MissileData.TrainerTargetUnit = TrainerTargetUnit - MissileData.TrainerWeaponTypeName = TrainerWeapon:getTypeName() - MissileData.TrainerWeaponLaunched = true - table.insert( self.TrackingMissiles[ClientID].MissileData, MissileData ) - --self:T( self.TrackingMissiles ) - end -end - -function MISSILETRAINER:_AddRange( Client, TrainerWeapon ) - - local RangeText = "" - - if self.DetailsRangeOnOff then - - local PositionMissile = TrainerWeapon:getPoint() - local PositionTarget = Client:GetPointVec3() - - local Range = ( ( PositionMissile.x - PositionTarget.x )^2 + - ( PositionMissile.y - PositionTarget.y )^2 + - ( PositionMissile.z - PositionTarget.z )^2 - ) ^ 0.5 / 1000 - - RangeText = string.format( ", at %4.2fkm", Range ) - end - - return RangeText -end - -function MISSILETRAINER:_AddBearing( Client, TrainerWeapon ) - - local BearingText = "" - - if self.DetailsBearingOnOff then - - local PositionMissile = TrainerWeapon:getPoint() - local PositionTarget = Client:GetPointVec3() - - self:T2( { PositionTarget, PositionMissile }) - - local DirectionVector = { x = PositionMissile.x - PositionTarget.x, y = PositionMissile.y - PositionTarget.y, z = PositionMissile.z - PositionTarget.z } - local DirectionRadians = math.atan2( DirectionVector.z, DirectionVector.x ) - --DirectionRadians = DirectionRadians + routines.getNorthCorrection( PositionTarget ) - if DirectionRadians < 0 then - DirectionRadians = DirectionRadians + 2 * math.pi - end - local DirectionDegrees = DirectionRadians * 180 / math.pi - - BearingText = string.format( ", %d degrees", DirectionDegrees ) - end - - return BearingText -end - - -function MISSILETRAINER:_TrackMissiles() - self:F2() - - - local ShowMessages = false - if self.MessagesOnOff and self.MessageLastTime + self.TrackingFrequency <= timer.getTime() then - self.MessageLastTime = timer.getTime() - ShowMessages = true - end - - -- ALERTS PART - - -- Loop for all Player Clients to check the alerts and deletion of missiles. - for ClientDataID, ClientData in pairs( self.TrackingMissiles ) do - - local Client = ClientData.Client - self:T2( { Client:GetName() } ) - - for MissileDataID, MissileData in pairs( ClientData.MissileData ) do - self:T3( MissileDataID ) - - local TrainerSourceUnit = MissileData.TrainerSourceUnit - local TrainerWeapon = MissileData.TrainerWeapon - local TrainerTargetUnit = MissileData.TrainerTargetUnit - local TrainerWeaponTypeName = MissileData.TrainerWeaponTypeName - local TrainerWeaponLaunched = MissileData.TrainerWeaponLaunched - - if Client and Client:IsAlive() and TrainerSourceUnit and TrainerSourceUnit:IsAlive() and TrainerWeapon and TrainerWeapon:isExist() and TrainerTargetUnit and TrainerTargetUnit:IsAlive() then - local PositionMissile = TrainerWeapon:getPosition().p - local PositionTarget = Client:GetPointVec3() - - local Distance = ( ( PositionMissile.x - PositionTarget.x )^2 + - ( PositionMissile.y - PositionTarget.y )^2 + - ( PositionMissile.z - PositionTarget.z )^2 - ) ^ 0.5 / 1000 - - if Distance <= self.Distance then - -- Hit alert - TrainerWeapon:destroy() - if self.MessagesOnOff == true and self.AlertsHitsOnOff == true then - - self:T( "killed" ) - - local Message = MESSAGE:New( - string.format( "%s launched by %s killed %s", - TrainerWeapon:getTypeName(), - TrainerSourceUnit:GetTypeName(), - TrainerTargetUnit:GetPlayerName() - ), 15, "Hit Alert" ) - - if self.AlertsToAll == true then - Message:ToAll() - else - Message:ToClient( Client ) - end - - MissileData = nil - table.remove( ClientData.MissileData, MissileDataID ) - self:T(ClientData.MissileData) - end - end - else - if not ( TrainerWeapon and TrainerWeapon:isExist() ) then - if self.MessagesOnOff == true and self.AlertsLaunchesOnOff == true then - -- Weapon does not exist anymore. Delete from Table - local Message = MESSAGE:New( - string.format( "%s launched by %s self destructed!", - TrainerWeaponTypeName, - TrainerSourceUnit:GetTypeName() - ), 5, "Tracking" ) - - if self.AlertsToAll == true then - Message:ToAll() - else - Message:ToClient( Client ) - end - end - MissileData = nil - table.remove( ClientData.MissileData, MissileDataID ) - self:T( ClientData.MissileData ) - end - end - end - end - - if ShowMessages == true and self.MessagesOnOff == true and self.TrackingOnOff == true then -- Only do this when tracking information needs to be displayed. - - -- TRACKING PART - - -- For the current client, the missile range and bearing details are displayed To the Player Client. - -- For the other clients, the missile range and bearing details are displayed To the other Player Clients. - -- To achieve this, a cross loop is done for each Player Client <-> Other Player Client missile information. - - -- Main Player Client loop - for ClientDataID, ClientData in pairs( self.TrackingMissiles ) do - - local Client = ClientData.Client - self:T2( { Client:GetName() } ) - - - ClientData.MessageToClient = "" - ClientData.MessageToAll = "" - - -- Other Players Client loop - for TrackingDataID, TrackingData in pairs( self.TrackingMissiles ) do - - for MissileDataID, MissileData in pairs( TrackingData.MissileData ) do - self:T3( MissileDataID ) - - local TrainerSourceUnit = MissileData.TrainerSourceUnit - local TrainerWeapon = MissileData.TrainerWeapon - local TrainerTargetUnit = MissileData.TrainerTargetUnit - local TrainerWeaponTypeName = MissileData.TrainerWeaponTypeName - local TrainerWeaponLaunched = MissileData.TrainerWeaponLaunched - - if Client and Client:IsAlive() and TrainerSourceUnit and TrainerSourceUnit:IsAlive() and TrainerWeapon and TrainerWeapon:isExist() and TrainerTargetUnit and TrainerTargetUnit:IsAlive() then - - if ShowMessages == true then - local TrackingTo - TrackingTo = string.format( " -> %s", - TrainerWeaponTypeName - ) - - if ClientDataID == TrackingDataID then - if ClientData.MessageToClient == "" then - ClientData.MessageToClient = "Missiles to You:\n" - end - ClientData.MessageToClient = ClientData.MessageToClient .. TrackingTo .. self:_AddRange( ClientData.Client, TrainerWeapon ) .. self:_AddBearing( ClientData.Client, TrainerWeapon ) .. "\n" - else - if self.TrackingToAll == true then - if ClientData.MessageToAll == "" then - ClientData.MessageToAll = "Missiles to other Players:\n" - end - ClientData.MessageToAll = ClientData.MessageToAll .. TrackingTo .. self:_AddRange( ClientData.Client, TrainerWeapon ) .. self:_AddBearing( ClientData.Client, TrainerWeapon ) .. " ( " .. TrainerTargetUnit:GetPlayerName() .. " )\n" - end - end - end - end - end - end - - -- Once the Player Client and the Other Player Client tracking messages are prepared, show them. - if ClientData.MessageToClient ~= "" or ClientData.MessageToAll ~= "" then - local Message = MESSAGE:New( ClientData.MessageToClient .. ClientData.MessageToAll, 1, "Tracking" ):ToClient( Client ) - end - end - end - - return true -end ---- This module contains the PATROLZONE class. --- --- === --- --- 1) @{Patrol#PATROLZONE} class, extends @{Base#BASE} --- =================================================== --- The @{Patrol#PATROLZONE} class implements the core functions to patrol a @{Zone}. --- --- 1.1) PATROLZONE constructor: --- ---------------------------- --- @{PatrolZone#PATROLZONE.New}(): Creates a new PATROLZONE object. --- --- 1.2) Modify the PATROLZONE parameters: --- -------------------------------------- --- The following methods are available to modify the parameters of a PATROLZONE object: --- --- * @{PatrolZone#PATROLZONE.SetGroup}(): Set the AI Patrol Group. --- * @{PatrolZone#PATROLZONE.SetSpeed}(): Set the patrol speed of the AI, for the next patrol. --- * @{PatrolZone#PATROLZONE.SetAltitude}(): Set altitude of the AI, for the next patrol. --- --- 1.3) Manage the out of fuel in the PATROLZONE: --- ---------------------------------------------- --- When the PatrolGroup is out of fuel, it is required that a new PatrolGroup is started, before the old PatrolGroup can return to the home base. --- Therefore, with a parameter and a calculation of the distance to the home base, the fuel treshold is calculated. --- When the fuel treshold is reached, the PatrolGroup will continue for a given time its patrol task in orbit, while a new PatrolGroup is targetted to the PATROLZONE. --- Once the time is finished, the old PatrolGroup will return to the base. --- Use the method @{PatrolZone#PATROLZONE.ManageFuel}() to have this proces in place. --- --- === --- --- @module PatrolZone --- @author FlightControl - - ---- PATROLZONE class --- @type PATROLZONE --- @field Group#GROUP PatrolGroup The @{Group} patrolling. --- @field Zone#ZONE_BASE PatrolZone The @{Zone} where the patrol needs to be executed. --- @field DCSTypes#Altitude PatrolFloorAltitude The lowest altitude in meters where to execute the patrol. --- @field DCSTypes#Altitude PatrolCeilingAltitude The highest altitude in meters where to execute the patrol. --- @field DCSTypes#Speed PatrolMinSpeed The minimum speed of the @{Group} in km/h. --- @field DCSTypes#Speed PatrolMaxSpeed The maximum speed of the @{Group} in km/h. --- @extends Base#BASE -PATROLZONE = { - ClassName = "PATROLZONE", -} - ---- Creates a new PATROLZONE object, taking a @{Group} object as a parameter. The GROUP needs to be alive. --- @param #PATROLZONE self --- @param Zone#ZONE_BASE PatrolZone The @{Zone} where the patrol needs to be executed. --- @param DCSTypes#Altitude PatrolFloorAltitude The lowest altitude in meters where to execute the patrol. --- @param DCSTypes#Altitude PatrolCeilingAltitude The highest altitude in meters where to execute the patrol. --- @param DCSTypes#Speed PatrolMinSpeed The minimum speed of the @{Group} in km/h. --- @param DCSTypes#Speed PatrolMaxSpeed The maximum speed of the @{Group} in km/h. --- @return #PATROLZONE self --- @usage --- -- Define a new PATROLZONE Object. This PatrolArea will patrol a group within PatrolZone between 3000 and 6000 meters, with a variying speed between 600 and 900 km/h. --- PatrolZone = ZONE:New( 'PatrolZone' ) --- PatrolGroup = GROUP:FindByName( "Patrol Group" ) --- PatrolArea = PATROLZONE:New( PatrolGroup, PatrolZone, 3000, 6000, 600, 900 ) -function PATROLZONE:New( PatrolZone, PatrolFloorAltitude, PatrolCeilingAltitude, PatrolMinSpeed, PatrolMaxSpeed ) - - -- Inherits from BASE - local self = BASE:Inherit( self, BASE:New() ) - - self.PatrolZone = PatrolZone - self.PatrolFloorAltitude = PatrolFloorAltitude - self.PatrolCeilingAltitude = PatrolCeilingAltitude - self.PatrolMinSpeed = PatrolMinSpeed - self.PatrolMaxSpeed = PatrolMaxSpeed - - return self -end - ---- Set the @{Group} to act as the Patroller. --- @param #PATROLZONE self --- @param Group#GROUP PatrolGroup The @{Group} patrolling. --- @return #PATROLZONE self -function PATROLZONE:SetGroup( PatrolGroup ) - - self.PatrolGroup = PatrolGroup - self.PatrolGroupTemplateName = PatrolGroup:GetName() - self:NewPatrolRoute() - - if not self.PatrolOutOfFuelMonitor then - self.PatrolOutOfFuelMonitor = SCHEDULER:New( nil, _MonitorOutOfFuelScheduled, { self }, 1, 120, 0 ) - self.SpawnPatrolGroup = SPAWN:New( self.PatrolGroupTemplateName ) - end - - return self -end - ---- Sets (modifies) the minimum and maximum speed of the patrol. --- @param #PATROLZONE self --- @param DCSTypes#Speed PatrolMinSpeed The minimum speed of the @{Group} in km/h. --- @param DCSTypes#Speed PatrolMaxSpeed The maximum speed of the @{Group} in km/h. --- @return #PATROLZONE self -function PATROLZONE:SetSpeed( PatrolMinSpeed, PatrolMaxSpeed ) - self:F2( { PatrolMinSpeed, PatrolMaxSpeed } ) - - self.PatrolMinSpeed = PatrolMinSpeed - self.PatrolMaxSpeed = PatrolMaxSpeed -end - ---- Sets the floor and ceiling altitude of the patrol. --- @param #PATROLZONE self --- @param DCSTypes#Altitude PatrolFloorAltitude The lowest altitude in meters where to execute the patrol. --- @param DCSTypes#Altitude PatrolCeilingAltitude The highest altitude in meters where to execute the patrol. --- @return #PATROLZONE self -function PATROLZONE:SetAltitude( PatrolFloorAltitude, PatrolCeilingAltitude ) - self:F2( { PatrolFloorAltitude, PatrolCeilingAltitude } ) - - self.PatrolFloorAltitude = PatrolFloorAltitude - self.PatrolCeilingAltitude = PatrolCeilingAltitude -end - - - ---- @param Group#GROUP PatrolGroup -function _NewPatrolRoute( PatrolGroup ) - - PatrolGroup:T( "NewPatrolRoute" ) - local PatrolZone = PatrolGroup:GetState( PatrolGroup, "PatrolZone" ) -- PatrolZone#PATROLZONE - PatrolZone:NewPatrolRoute() -end - ---- Defines a new patrol route using the @{PatrolZone} parameters and settings. --- @param #PATROLZONE self --- @return #PATROLZONE self -function PATROLZONE:NewPatrolRoute() - - self:F2() - - local PatrolRoute = {} - - if self.PatrolGroup:IsAlive() then - --- Determine if the PatrolGroup is within the PatrolZone. - -- If not, make a waypoint within the to that the PatrolGroup will fly at maximum speed to that point. - --- --- Calculate the current route point. --- local CurrentVec2 = self.PatrolGroup:GetPointVec2() --- local CurrentAltitude = self.PatrolGroup:GetUnit(1):GetAltitude() --- local CurrentPointVec3 = POINT_VEC3:New( CurrentVec2.x, CurrentAltitude, CurrentVec2.y ) --- local CurrentRoutePoint = CurrentPointVec3:RoutePointAir( --- POINT_VEC3.RoutePointAltType.BARO, --- POINT_VEC3.RoutePointType.TurningPoint, --- POINT_VEC3.RoutePointAction.TurningPoint, --- ToPatrolZoneSpeed, --- true --- ) --- --- PatrolRoute[#PatrolRoute+1] = CurrentRoutePoint - - self:T2( PatrolRoute ) - - if self.PatrolGroup:IsNotInZone( self.PatrolZone ) then - --- Find a random 2D point in PatrolZone. - local ToPatrolZoneVec2 = self.PatrolZone:GetRandomVec2() - self:T2( ToPatrolZoneVec2 ) - - --- Define Speed and Altitude. - local ToPatrolZoneAltitude = math.random( self.PatrolFloorAltitude, self.PatrolCeilingAltitude ) - local ToPatrolZoneSpeed = self.PatrolMaxSpeed - self:T2( ToPatrolZoneSpeed ) - - --- Obtain a 3D @{Point} from the 2D point + altitude. - local ToPatrolZonePointVec3 = POINT_VEC3:New( ToPatrolZoneVec2.x, ToPatrolZoneAltitude, ToPatrolZoneVec2.y ) - - --- Create a route point of type air. - local ToPatrolZoneRoutePoint = ToPatrolZonePointVec3:RoutePointAir( - POINT_VEC3.RoutePointAltType.BARO, - POINT_VEC3.RoutePointType.TurningPoint, - POINT_VEC3.RoutePointAction.TurningPoint, - ToPatrolZoneSpeed, - true - ) - - PatrolRoute[#PatrolRoute+1] = ToPatrolZoneRoutePoint - - end - - --- Define a random point in the @{Zone}. The AI will fly to that point within the zone. - - --- Find a random 2D point in PatrolZone. - local ToTargetVec2 = self.PatrolZone:GetRandomVec2() - self:T2( ToTargetVec2 ) - - --- Define Speed and Altitude. - local ToTargetAltitude = math.random( self.PatrolFloorAltitude, self.PatrolCeilingAltitude ) - local ToTargetSpeed = math.random( self.PatrolMinSpeed, self.PatrolMaxSpeed ) - self:T2( { self.PatrolMinSpeed, self.PatrolMaxSpeed, ToTargetSpeed } ) - - --- Obtain a 3D @{Point} from the 2D point + altitude. - local ToTargetPointVec3 = POINT_VEC3:New( ToTargetVec2.x, ToTargetAltitude, ToTargetVec2.y ) - - --- Create a route point of type air. - local ToTargetRoutePoint = ToTargetPointVec3:RoutePointAir( - POINT_VEC3.RoutePointAltType.BARO, - POINT_VEC3.RoutePointType.TurningPoint, - POINT_VEC3.RoutePointAction.TurningPoint, - ToTargetSpeed, - true - ) - - --ToTargetPointVec3:SmokeRed() - - PatrolRoute[#PatrolRoute+1] = ToTargetRoutePoint - - --- Now we're going to do something special, we're going to call a function from a waypoint action at the PatrolGroup... - self.PatrolGroup:WayPointInitialize( PatrolRoute ) - - --- Do a trick, link the NewPatrolRoute function of the PATROLGROUP object to the PatrolGroup in a temporary variable ... - self.PatrolGroup:SetState( self.PatrolGroup, "PatrolZone", self ) - self.PatrolGroup:WayPointFunction( #PatrolRoute, 1, "_NewPatrolRoute" ) - - --- NOW ROUTE THE GROUP! - self.PatrolGroup:WayPointExecute( 1, 2 ) - end - -end - ---- When the PatrolGroup is out of fuel, it is required that a new PatrolGroup is started, before the old PatrolGroup can return to the home base. --- Therefore, with a parameter and a calculation of the distance to the home base, the fuel treshold is calculated. --- When the fuel treshold is reached, the PatrolGroup will continue for a given time its patrol task in orbit, while a new PatrolGroup is targetted to the PATROLZONE. --- Once the time is finished, the old PatrolGroup will return to the base. --- @param #PATROLZONE self --- @param #number PatrolFuelTresholdPercentage The treshold in percentage (between 0 and 1) when the PatrolGroup is considered to get out of fuel. --- @param #number PatrolOutOfFuelOrbitTime The amount of seconds the out of fuel PatrolGroup will orbit before returning to the base. --- @return #PATROLZONE self -function PATROLZONE:ManageFuel( PatrolFuelTresholdPercentage, PatrolOutOfFuelOrbitTime ) - - self.PatrolManageFuel = true - self.PatrolFuelTresholdPercentage = PatrolFuelTresholdPercentage - self.PatrolOutOfFuelOrbitTime = PatrolOutOfFuelOrbitTime - - if self.PatrolGroup then - self.PatrolOutOfFuelMonitor = SCHEDULER:New( self, self._MonitorOutOfFuelScheduled, {}, 1, 120, 0 ) - self.SpawnPatrolGroup = SPAWN:New( self.PatrolGroupTemplateName ) - end - return self -end - ---- @param #PATROLZONE self -function _MonitorOutOfFuelScheduled( self ) - self:F2( "_MonitorOutOfFuelScheduled" ) - - if self.PatrolGroup and self.PatrolGroup:IsAlive() then - - local Fuel = self.PatrolGroup:GetUnit(1):GetFuel() - if Fuel < self.PatrolFuelTresholdPercentage then - local OldPatrolGroup = self.PatrolGroup - local PatrolGroupTemplate = self.PatrolGroup:GetTemplate() - - local OrbitTask = OldPatrolGroup:TaskOrbitCircle( math.random( self.PatrolFloorAltitude, self.PatrolCeilingAltitude ), self.PatrolMinSpeed ) - local TimedOrbitTask = OldPatrolGroup:TaskControlled( OrbitTask, OldPatrolGroup:TaskCondition(nil,nil,nil,nil,self.PatrolOutOfFuelOrbitTime,nil ) ) - OldPatrolGroup:SetTask( TimedOrbitTask, 10 ) - - local NewPatrolGroup = self.SpawnPatrolGroup:Spawn() - self.PatrolGroup = NewPatrolGroup - self:NewPatrolRoute() - end - else - self.PatrolOutOfFuelMonitor:Stop() - end -end--- This module contains the AIBALANCER class. --- --- === --- --- 1) @{AIBalancer#AIBALANCER} class, extends @{Base#BASE} --- ================================================ --- The @{AIBalancer#AIBALANCER} class controls the dynamic spawning of AI GROUPS depending on a SET_CLIENT. --- There will be as many AI GROUPS spawned as there at CLIENTS in SET_CLIENT not spawned. --- --- 1.1) AIBALANCER construction method: --- ------------------------------------ --- Create a new AIBALANCER object with the @{#AIBALANCER.New} method: --- --- * @{#AIBALANCER.New}: Creates a new AIBALANCER object. --- --- 1.2) AIBALANCER returns AI to Airbases: --- --------------------------------------- --- You can configure to have the AI to return to: --- --- * @{#AIBALANCER.ReturnToHomeAirbase}: Returns the AI to the home @{Airbase#AIRBASE}. --- * @{#AIBALANCER.ReturnToNearestAirbases}: Returns the AI to the nearest friendly @{Airbase#AIRBASE}. --- --- 1.3) AIBALANCER allows AI to patrol specific zones: --- --------------------------------------------------- --- Use @{AIBalancer#AIBALANCER.SetPatrolZone}() to specify a zone where the AI needs to patrol. --- --- --- === --- --- CREDITS --- ======= --- **Dutch_Baron (James)** Who you can search on the Eagle Dynamics Forums. --- Working together with James has resulted in the creation of the AIBALANCER class. --- James has shared his ideas on balancing AI with air units, and together we made a first design which you can use now :-) --- --- **SNAFU** --- Had a couple of mails with the guys to validate, if the same concept in the GCI/CAP script could be reworked within MOOSE. --- None of the script code has been used however within the new AIBALANCER moose class. --- --- @module AIBalancer --- @author FlightControl - ---- AIBALANCER class --- @type AIBALANCER --- @field Set#SET_CLIENT SetClient --- @field Spawn#SPAWN SpawnAI --- @field #boolean ToNearestAirbase --- @field Set#SET_AIRBASE ReturnAirbaseSet --- @field DCSTypes#Distance ReturnTresholdRange --- @field #boolean ToHomeAirbase --- @field PatrolZone#PATROLZONE PatrolZone --- @extends Base#BASE -AIBALANCER = { - ClassName = "AIBALANCER", - PatrolZones = {}, - AIGroups = {}, -} - ---- Creates a new AIBALANCER object, building a set of units belonging to a coalitions, categories, countries, types or with defined prefix names. --- @param #AIBALANCER self --- @param SetClient A SET_CLIENT object that will contain the CLIENT objects to be monitored if they are alive or not (joined by a player). --- @param SpawnAI A SPAWN object that will spawn the AI units required, balancing the SetClient. --- @return #AIBALANCER self -function AIBALANCER:New( SetClient, SpawnAI ) - - -- Inherits from BASE - local self = BASE:Inherit( self, BASE:New() ) - - self.SetClient = SetClient - if type( SpawnAI ) == "table" then - if SpawnAI.ClassName and SpawnAI.ClassName == "SPAWN" then - self.SpawnAI = { SpawnAI } - else - local SpawnObjects = true - for SpawnObjectID, SpawnObject in pairs( SpawnAI ) do - if SpawnObject.ClassName and SpawnObject.ClassName == "SPAWN" then - self:E( SpawnObject.ClassName ) - else - self:E( "other object" ) - SpawnObjects = false - end - end - if SpawnObjects == true then - self.SpawnAI = SpawnAI - else - error( "No SPAWN object given in parameter SpawnAI, either as a single object or as a table of objects!" ) - end - end - end - - self.ToNearestAirbase = false - self.ReturnHomeAirbase = false - - self.AIMonitorSchedule = SCHEDULER:New( self, self._ClientAliveMonitorScheduler, {}, 1, 10, 0 ) - - return self -end - ---- Returns the AI to the nearest friendly @{Airbase#AIRBASE}. --- @param #AIBALANCER self --- @param DCSTypes#Distance ReturnTresholdRange If there is an enemy @{Client#CLIENT} within the ReturnTresholdRange given in meters, the AI will not return to the nearest @{Airbase#AIRBASE}. --- @param Set#SET_AIRBASE ReturnAirbaseSet The SET of @{Set#SET_AIRBASE}s to evaluate where to return to. -function AIBALANCER:ReturnToNearestAirbases( ReturnTresholdRange, ReturnAirbaseSet ) - - self.ToNearestAirbase = true - self.ReturnTresholdRange = ReturnTresholdRange - self.ReturnAirbaseSet = ReturnAirbaseSet -end - ---- Returns the AI to the home @{Airbase#AIRBASE}. --- @param #AIBALANCER self --- @param DCSTypes#Distance ReturnTresholdRange If there is an enemy @{Client#CLIENT} within the ReturnTresholdRange given in meters, the AI will not return to the nearest @{Airbase#AIRBASE}. -function AIBALANCER:ReturnToHomeAirbase( ReturnTresholdRange ) - - self.ToHomeAirbase = true - self.ReturnTresholdRange = ReturnTresholdRange -end - ---- Let the AI patrol a @{Zone} with a given Speed range and Altitude range. --- @param #AIBALANCER self --- @param PatrolZone#PATROLZONE PatrolZone The @{PatrolZone} where the AI needs to patrol. --- @return PatrolZone#PATROLZONE self -function AIBALANCER:SetPatrolZone( PatrolZone ) - - self.PatrolZone = PatrolZone -end - ---- @param #AIBALANCER self -function AIBALANCER:_ClientAliveMonitorScheduler() - - self.SetClient:ForEachClient( - --- @param Client#CLIENT Client - function( Client ) - local ClientAIAliveState = Client:GetState( self, 'AIAlive' ) - self:T( ClientAIAliveState ) - if Client:IsAlive() then - if ClientAIAliveState == true then - Client:SetState( self, 'AIAlive', false ) - - local AIGroup = self.AIGroups[Client.UnitName] -- Group#GROUP - --- local PatrolZone = Client:GetState( self, "PatrolZone" ) --- if PatrolZone then --- PatrolZone = nil --- Client:ClearState( self, "PatrolZone" ) --- end - - if self.ToNearestAirbase == false and self.ToHomeAirbase == false then - AIGroup:Destroy() - else - -- We test if there is no other CLIENT within the self.ReturnTresholdRange of the first unit of the AI group. - -- If there is a CLIENT, the AI stays engaged and will not return. - -- If there is no CLIENT within the self.ReturnTresholdRange, then the unit will return to the Airbase return method selected. - - local PlayerInRange = { Value = false } - local RangeZone = ZONE_RADIUS:New( 'RangeZone', AIGroup:GetPointVec2(), self.ReturnTresholdRange ) - - self:E( RangeZone ) - - _DATABASE:ForEachPlayer( - --- @param Unit#UNIT RangeTestUnit - function( RangeTestUnit, RangeZone, AIGroup, PlayerInRange ) - self:E( { PlayerInRange, RangeTestUnit.UnitName, RangeZone.ZoneName } ) - if RangeTestUnit:IsInZone( RangeZone ) == true then - self:E( "in zone" ) - if RangeTestUnit:GetCoalition() ~= AIGroup:GetCoalition() then - self:E( "in range" ) - PlayerInRange.Value = true - end - end - end, - - --- @param Zone#ZONE_RADIUS RangeZone - -- @param Group#GROUP AIGroup - function( RangeZone, AIGroup, PlayerInRange ) - local AIGroupTemplate = AIGroup:GetTemplate() - if PlayerInRange.Value == false then - if self.ToHomeAirbase == true then - local WayPointCount = #AIGroupTemplate.route.points - local SwitchWayPointCommand = AIGroup:CommandSwitchWayPoint( 1, WayPointCount, 1 ) - AIGroup:SetCommand( SwitchWayPointCommand ) - AIGroup:MessageToRed( "Returning to home base ...", 30 ) - else - -- Okay, we need to send this Group back to the nearest base of the Coalition of the AI. - --TODO: i need to rework the POINT_VEC2 thing. - local PointVec2 = POINT_VEC2:New( AIGroup:GetPointVec2().x, AIGroup:GetPointVec2().y ) - local ClosestAirbase = self.ReturnAirbaseSet:FindNearestAirbaseFromPointVec2( PointVec2 ) - self:T( ClosestAirbase.AirbaseName ) - AIGroup:MessageToRed( "Returning to " .. ClosestAirbase:GetName().. " ...", 30 ) - local RTBRoute = AIGroup:RouteReturnToAirbase( ClosestAirbase ) - AIGroupTemplate.route = RTBRoute - AIGroup:Respawn( AIGroupTemplate ) - end - end - end - , RangeZone, AIGroup, PlayerInRange - ) - - end - end - else - if not ClientAIAliveState or ClientAIAliveState == false then - Client:SetState( self, 'AIAlive', true ) - - - -- OK, spawn a new group from the SpawnAI objects provided. - local SpawnAICount = #self.SpawnAI - local SpawnAIIndex = math.random( 1, SpawnAICount ) - local AIGroup = self.SpawnAI[SpawnAIIndex]:Spawn() - AIGroup:E( "spawning new AIGroup" ) - --TODO: need to rework UnitName thing ... - self.AIGroups[Client.UnitName] = AIGroup - - --- Now test if the AIGroup needs to patrol a zone, otherwise let it follow its route... - if self.PatrolZone then - self.PatrolZones[#self.PatrolZones+1] = PATROLZONE:New( - self.PatrolZone.PatrolZone, - self.PatrolZone.PatrolFloorAltitude, - self.PatrolZone.PatrolCeilingAltitude, - self.PatrolZone.PatrolMinSpeed, - self.PatrolZone.PatrolMaxSpeed - ) - - if self.PatrolZone.PatrolManageFuel == true then - self.PatrolZones[#self.PatrolZones]:ManageFuel( self.PatrolZone.PatrolFuelTresholdPercentage, self.PatrolZone.PatrolOutOfFuelOrbitTime ) - end - self.PatrolZones[#self.PatrolZones]:SetGroup( AIGroup ) - - --self.PatrolZones[#self.PatrolZones+1] = PatrolZone - - --Client:SetState( self, "PatrolZone", PatrolZone ) - end - end - end - end - ) - return true -end - - - ---- This module contains the AIRBASEPOLICE classes. --- --- === --- --- 1) @{AirbasePolice#AIRBASEPOLICE_BASE} class, extends @{Base#BASE} --- ================================================================== --- The @{AirbasePolice#AIRBASEPOLICE_BASE} class provides the main methods to monitor CLIENT behaviour at airbases. --- CLIENTS should not be allowed to: --- --- * Don't taxi faster than 40 km/h. --- * Don't take-off on taxiways. --- * Avoid to hit other planes on the airbase. --- * Obey ground control orders. --- --- 2) @{AirbasePolice#AIRBASEPOLICE_CAUCASUS} class, extends @{AirbasePolice#AIRBASEPOLICE_BASE} --- ============================================================================================= --- All the airbases on the caucasus map can be monitored using this class. --- If you want to monitor specific airbases, you need to use the @{#AIRBASEPOLICE_BASE.Monitor}() method, which takes a table or airbase names. --- The following names can be given: --- * AnapaVityazevo --- * Batumi --- * Beslan --- * Gelendzhik --- * Gudauta --- * Kobuleti --- * KrasnodarCenter --- * KrasnodarPashkovsky --- * Krymsk --- * Kutaisi --- * MaykopKhanskaya --- * MineralnyeVody --- * Mozdok --- * Nalchik --- * Novorossiysk --- * SenakiKolkhi --- * SochiAdler --- * Soganlug --- * SukhumiBabushara --- * TbilisiLochini --- * Vaziani --- --- @module AirbasePolice --- @author FlightControl - - ---- @type AIRBASEPOLICE_BASE --- @field Set#SET_CLIENT SetClient --- @extends Base#BASE - -AIRBASEPOLICE_BASE = { - ClassName = "AIRBASEPOLICE_BASE", - SetClient = nil, - Airbases = nil, - AirbaseNames = nil, -} - - ---- Creates a new AIRBASEPOLICE_BASE object. --- @param #AIRBASEPOLICE_BASE self --- @param SetClient A SET_CLIENT object that will contain the CLIENT objects to be monitored if they follow the rules of the airbase. --- @param Airbases A table of Airbase Names. --- @return #AIRBASEPOLICE_BASE self -function AIRBASEPOLICE_BASE:New( SetClient, Airbases ) - - -- Inherits from BASE - local self = BASE:Inherit( self, BASE:New() ) - self:E( { self.ClassName, SetClient, Airbases } ) - - self.SetClient = SetClient - self.Airbases = Airbases - - for AirbaseID, Airbase in pairs( self.Airbases ) do - Airbase.ZoneBoundary = ZONE_POLYGON_BASE:New( "Boundary", Airbase.PointsBoundary ):SmokeZone(POINT_VEC3.SmokeColor.White):Flush() - for PointsRunwayID, PointsRunway in pairs( Airbase.PointsRunways ) do - Airbase.ZoneRunways[PointsRunwayID] = ZONE_POLYGON_BASE:New( "Runway " .. PointsRunwayID, PointsRunway ):SmokeZone(POINT_VEC3.SmokeColor.Red):Flush() - end - end - - -- -- Template - -- local TemplateBoundary = GROUP:FindByName( "Template Boundary" ) - -- self.Airbases.Template.ZoneBoundary = ZONE_POLYGON:New( "Template Boundary", TemplateBoundary ):SmokeZone(POINT_VEC3.SmokeColor.White):Flush() - -- - -- local TemplateRunway1 = GROUP:FindByName( "Template Runway 1" ) - -- self.Airbases.Template.ZoneRunways[1] = ZONE_POLYGON:New( "Template Runway 1", TemplateRunway1 ):SmokeZone(POINT_VEC3.SmokeColor.Red):Flush() - - self.SetClient:ForEachClient( - --- @param Client#CLIENT Client - function( Client ) - Client:SetState( self, "Speeding", false ) - Client:SetState( self, "Warnings", 0) - Client:SetState( self, "Taxi", false ) - end - ) - - self.AirbaseMonitor = SCHEDULER:New( self, self._AirbaseMonitor, {}, 0, 2, 0.05 ) - - return self -end - ---- @type AIRBASEPOLICE_BASE.AirbaseNames --- @list <#string> - ---- Monitor a table of airbase names. --- @param #AIRBASEPOLICE_BASE self --- @param #AIRBASEPOLICE_BASE.AirbaseNames AirbaseNames A list of AirbaseNames to monitor. If this parameters is nil, then all airbases will be monitored. --- @return #AIRBASEPOLICE_BASE self -function AIRBASEPOLICE_BASE:Monitor( AirbaseNames ) - - if AirbaseNames then - if type( AirbaseNames ) == "table" then - self.AirbaseNames = AirbaseNames - else - self.AirbaseNames = { AirbaseNames } - end - end -end - ---- @param #AIRBASEPOLICE_BASE self -function AIRBASEPOLICE_BASE:_AirbaseMonitor() - - for AirbaseID, Airbase in pairs( self.Airbases ) do - - if not self.AirbaseNames or self.AirbaseNames[AirbaseID] then - - self:E( AirbaseID ) - - self.SetClient:ForEachClientInZone( Airbase.ZoneBoundary, - - --- @param Client#CLIENT Client - function( Client ) - - self:E( Client.UnitName ) - if Client:IsAlive() then - local NotInRunwayZone = true - for ZoneRunwayID, ZoneRunway in pairs( Airbase.ZoneRunways ) do - NotInRunwayZone = ( Client:IsNotInZone( ZoneRunway ) == true ) and NotInRunwayZone or false - end - - if NotInRunwayZone then - local Taxi = self:GetState( self, "Taxi" ) - self:E( Taxi ) - if Taxi == false then - Client:Message( "Welcome at " .. AirbaseID .. ". The maximum taxiing speed is " .. Airbase.MaximumSpeed " km/h.", 20, "ATC" ) - self:SetState( self, "Taxi", true ) - end - - local VelocityVec3 = Client:GetVelocity() - local Velocity = math.abs(VelocityVec3.x) + math.abs(VelocityVec3.y) + math.abs(VelocityVec3.z) - local IsAboveRunway = Client:IsAboveRunway() - local IsOnGround = Client:InAir() == false - self:T( IsAboveRunway, IsOnGround ) - - if IsAboveRunway and IsOnGround then - - if Velocity > Airbase.MaximumSpeed then - local IsSpeeding = Client:GetState( self, "Speeding" ) - - if IsSpeeding == true then - local SpeedingWarnings = Client:GetState( self, "Warnings" ) - self:T( SpeedingWarnings ) - - if SpeedingWarnings <= 5 then - Client:Message( "You are speeding on the taxiway! Slow down or you will be removed from this airbase! Your current velocity is " .. string.format( "%2.0f km/h", Velocity ), 5, "Warning " .. SpeedingWarnings .. " / 5" ) - Client:SetState( self, "Warnings", SpeedingWarnings + 1 ) - else - MESSAGE:New( "Player " .. Client:GetPlayerName() .. " has been removed from the airbase, due to a speeding violation ...", 10, "Airbase Police" ):ToAll() - Client:GetGroup():Destroy() - Client:SetState( self, "Speeding", false ) - Client:SetState( self, "Warnings", 0 ) - end - - else - Client:Message( "You are speeding on the taxiway! Slow down please ...! Your current velocity is " .. string.format( "%2.0f km/h", Velocity ), 5, "Attention! " ) - Client:SetState( self, "Speeding", true ) - Client:SetState( self, "Warnings", 1 ) - end - - else - Client:SetState( self, "Speeding", false ) - Client:SetState( self, "Warnings", 0 ) - end - end - - else - Client:SetState( self, "Speeding", false ) - Client:SetState( self, "Warnings", 0 ) - local Taxi = self:GetState( self, "Taxi" ) - if Taxi == true then - Client:Message( "You have progressed to the runway ... Await take-off clearance ...", 20, "ATC" ) - self:SetState( self, "Taxi", false ) - end - end - end - end - ) - end - end - - return true -end - - ---- @type AIRBASEPOLICE_CAUCASUS --- @field Set#SET_CLIENT SetClient --- @extends #AIRBASEPOLICE_BASE - -AIRBASEPOLICE_CAUCASUS = { - ClassName = "AIRBASEPOLICE_CAUCASUS", - Airbases = { - AnapaVityazevo = { - PointsBoundary = { - [1]={["y"]=242234.85714287,["x"]=-6616.5714285726,}, - [2]={["y"]=241060.57142858,["x"]=-5585.142857144,}, - [3]={["y"]=243806.2857143,["x"]=-3962.2857142868,}, - [4]={["y"]=245240.57142858,["x"]=-4816.5714285726,}, - [5]={["y"]=244783.42857144,["x"]=-5630.8571428583,}, - [6]={["y"]=243800.57142858,["x"]=-5065.142857144,}, - [7]={["y"]=242232.00000001,["x"]=-6622.2857142868,}, - }, - PointsRunways = { - [1] = { - }, - }, - ZoneBoundary = {}, - ZoneRunways = {}, - MaximumSpeed = 50, - }, - Batumi = { - PointsBoundary = { - [1]={["y"]=617567.14285714,["x"]=-355313.14285715,}, - [2]={["y"]=616181.42857142,["x"]=-354800.28571429,}, - [3]={["y"]=616007.14285714,["x"]=-355128.85714286,}, - [4]={["y"]=618230,["x"]=-356914.57142858,}, - [5]={["y"]=618727.14285714,["x"]=-356166,}, - [6]={["y"]=617572.85714285,["x"]=-355308.85714286,}, - }, - PointsRunways = { - [1] = { - [1]={["y"]=616442.28571429,["x"]=-355090.28571429,}, - [2]={["y"]=618450.57142857,["x"]=-356522,}, - [3]={["y"]=618407.71428571,["x"]=-356584.85714286,}, - [4]={["y"]=618361.99999999,["x"]=-356554.85714286,}, - [5]={["y"]=618324.85714285,["x"]=-356599.14285715,}, - [6]={["y"]=618250.57142856,["x"]=-356543.42857143,}, - [7]={["y"]=618257.7142857,["x"]=-356496.28571429,}, - [8]={["y"]=618237.7142857,["x"]=-356459.14285715,}, - [9]={["y"]=616555.71428571,["x"]=-355258.85714286,}, - [10]={["y"]=616486.28571428,["x"]=-355280.57142858,}, - [11]={["y"]=616410.57142856,["x"]=-355227.71428572,}, - [12]={["y"]=616441.99999999,["x"]=-355179.14285715,}, - [13]={["y"]=616401.99999999,["x"]=-355147.71428572,}, - [14]={["y"]=616441.42857142,["x"]=-355092.57142858,}, - }, - }, - ZoneBoundary = {}, - ZoneRunways = {}, - MaximumSpeed = 50, - }, - Beslan = { - PointsBoundary = { - [1]={["y"]=842082.57142857,["x"]=-148445.14285715,}, - [2]={["y"]=845237.71428572,["x"]=-148639.71428572,}, - [3]={["y"]=845232,["x"]=-148765.42857143,}, - [4]={["y"]=844220.57142857,["x"]=-149168.28571429,}, - [5]={["y"]=843274.85714286,["x"]=-149125.42857143,}, - [6]={["y"]=842077.71428572,["x"]=-148554,}, - [7]={["y"]=842083.42857143,["x"]=-148445.42857143,}, - }, - PointsRunways = { - [1] = { - [1]={["y"]=842104.57142857,["x"]=-148460.57142857,}, - [2]={["y"]=845225.71428572,["x"]=-148656,}, - [3]={["y"]=845220.57142858,["x"]=-148750,}, - [4]={["y"]=842098.85714286,["x"]=-148556.28571429,}, - [5]={["y"]=842104,["x"]=-148460.28571429,}, - }, - }, - ZoneBoundary = {}, - ZoneRunways = {}, - MaximumSpeed = 50, - }, - Gelendzhik = { - PointsBoundary = { - [1]={["y"]=297856.00000001,["x"]=-51151.428571429,}, - [2]={["y"]=299044.57142858,["x"]=-49720.000000001,}, - [3]={["y"]=298861.71428572,["x"]=-49580.000000001,}, - [4]={["y"]=298198.85714286,["x"]=-49842.857142858,}, - [5]={["y"]=297990.28571429,["x"]=-50151.428571429,}, - [6]={["y"]=297696.00000001,["x"]=-51054.285714286,}, - [7]={["y"]=297850.28571429,["x"]=-51160.000000001,}, - }, - PointsRunways = { - [1] = { - [1]={["y"]=297834.00000001,["x"]=-51107.428571429,}, - [2]={["y"]=297786.57142858,["x"]=-51068.857142858,}, - [3]={["y"]=298946.57142858,["x"]=-49686.000000001,}, - [4]={["y"]=298993.14285715,["x"]=-49725.714285715,}, - [5]={["y"]=297835.14285715,["x"]=-51107.714285715,}, - }, - }, - ZoneBoundary = {}, - ZoneRunways = {}, - MaximumSpeed = 50, - }, - Gudauta = { - PointsBoundary = { - [1]={["y"]=517246.57142857,["x"]=-197850.28571429,}, - [2]={["y"]=516749.42857142,["x"]=-198070.28571429,}, - [3]={["y"]=515755.14285714,["x"]=-197598.85714286,}, - [4]={["y"]=515369.42857142,["x"]=-196538.85714286,}, - [5]={["y"]=515623.71428571,["x"]=-195618.85714286,}, - [6]={["y"]=515946.57142857,["x"]=-195510.28571429,}, - [7]={["y"]=517243.71428571,["x"]=-197858.85714286,}, - }, - PointsRunways = { - [1] = { - [1]={["y"]=517096.57142857,["x"]=-197804.57142857,}, - [2]={["y"]=515880.85714285,["x"]=-195590.28571429,}, - [3]={["y"]=515812.28571428,["x"]=-195628.85714286,}, - [4]={["y"]=517036.57142857,["x"]=-197834.57142857,}, - [5]={["y"]=517097.99999999,["x"]=-197807.42857143,}, - }, - }, - ZoneBoundary = {}, - ZoneRunways = {}, - MaximumSpeed = 50, - }, - Kobuleti = { - PointsBoundary = { - [1]={["y"]=634427.71428571,["x"]=-318290.28571429,}, - [2]={["y"]=635033.42857143,["x"]=-317550.2857143,}, - [3]={["y"]=635864.85714286,["x"]=-317333.14285715,}, - [4]={["y"]=636967.71428571,["x"]=-317261.71428572,}, - [5]={["y"]=637144.85714286,["x"]=-317913.14285715,}, - [6]={["y"]=634630.57142857,["x"]=-318687.42857144,}, - [7]={["y"]=634424.85714286,["x"]=-318290.2857143,}, - }, - PointsRunways = { - [1] = { - [1]={["y"]=634509.71428571,["x"]=-318339.42857144,}, - [2]={["y"]=636767.42857143,["x"]=-317516.57142858,}, - [3]={["y"]=636790,["x"]=-317575.71428572,}, - [4]={["y"]=634531.42857143,["x"]=-318398.00000001,}, - [5]={["y"]=634510.28571429,["x"]=-318339.71428572,}, - }, - }, - ZoneBoundary = {}, - ZoneRunways = {}, - MaximumSpeed = 50, - }, - KrasnodarCenter = { - PointsBoundary = { - [1]={["y"]=366680.28571429,["x"]=11699.142857142,}, - [2]={["y"]=366654.28571429,["x"]=11225.142857142,}, - [3]={["y"]=367497.14285715,["x"]=11082.285714285,}, - [4]={["y"]=368025.71428572,["x"]=10396.57142857,}, - [5]={["y"]=369854.28571429,["x"]=11367.999999999,}, - [6]={["y"]=369840.00000001,["x"]=11910.857142856,}, - [7]={["y"]=366682.57142858,["x"]=11697.999999999,}, - }, - PointsRunways = { - [1] = { - [1]={["y"]=369205.42857144,["x"]=11789.142857142,}, - [2]={["y"]=369209.71428572,["x"]=11714.857142856,}, - [3]={["y"]=366699.71428572,["x"]=11581.714285713,}, - [4]={["y"]=366698.28571429,["x"]=11659.142857142,}, - [5]={["y"]=369208.85714286,["x"]=11788.57142857,}, - }, - }, - ZoneBoundary = {}, - ZoneRunways = {}, - MaximumSpeed = 50, - }, - KrasnodarPashkovsky = { - PointsBoundary = { - [1]={["y"]=386754,["x"]=6476.5714285703,}, - [2]={["y"]=389182.57142858,["x"]=8722.2857142846,}, - [3]={["y"]=388832.57142858,["x"]=9086.5714285703,}, - [4]={["y"]=386961.14285715,["x"]=7707.9999999989,}, - [5]={["y"]=385404,["x"]=9179.4285714274,}, - [6]={["y"]=383239.71428572,["x"]=7386.5714285703,}, - [7]={["y"]=383954,["x"]=6486.5714285703,}, - [8]={["y"]=385775.42857143,["x"]=8097.9999999989,}, - [9]={["y"]=386804,["x"]=7319.4285714274,}, - [10]={["y"]=386375.42857143,["x"]=6797.9999999989,}, - [11]={["y"]=386746.85714286,["x"]=6472.2857142846,}, - }, - PointsRunways = { - [1] = { - [1]={["y"]=385891.14285715,["x"]=8416.5714285703,}, - [2]={["y"]=385842.28571429,["x"]=8467.9999999989,}, - [3]={["y"]=384180.85714286,["x"]=6917.1428571417,}, - [4]={["y"]=384228.57142858,["x"]=6867.7142857132,}, - [5]={["y"]=385891.14285715,["x"]=8416.5714285703,}, - }, - [2] = { - [1]={["y"]=386714.85714286,["x"]=6674.857142856,}, - [2]={["y"]=386757.71428572,["x"]=6627.7142857132,}, - [3]={["y"]=389028.57142858,["x"]=8741.4285714275,}, - [4]={["y"]=388981.71428572,["x"]=8790.5714285703,}, - [5]={["y"]=386714.57142858,["x"]=6674.5714285703,}, - }, - }, - ZoneBoundary = {}, - ZoneRunways = {}, - MaximumSpeed = 50, - }, - Krymsk = { - PointsBoundary = { - [1]={["y"]=293338.00000001,["x"]=-7575.4285714297,}, - [2]={["y"]=295199.42857144,["x"]=-5434.0000000011,}, - [3]={["y"]=295595.14285715,["x"]=-6239.7142857154,}, - [4]={["y"]=294152.2857143,["x"]=-8325.4285714297,}, - [5]={["y"]=293345.14285715,["x"]=-7596.8571428582,}, - }, - PointsRunways = { - [1] = { - [1]={["y"]=293522.00000001,["x"]=-7567.4285714297,}, - [2]={["y"]=293578.57142858,["x"]=-7616.0000000011,}, - [3]={["y"]=295246.00000001,["x"]=-5591.142857144,}, - [4]={["y"]=295187.71428573,["x"]=-5546.0000000011,}, - [5]={["y"]=293523.14285715,["x"]=-7568.2857142868,}, - }, - }, - ZoneBoundary = {}, - ZoneRunways = {}, - MaximumSpeed = 50, - }, - Kutaisi = { - PointsBoundary = { - [1]={["y"]=682087.42857143,["x"]=-284512.85714286,}, - [2]={["y"]=685387.42857143,["x"]=-283662.85714286,}, - [3]={["y"]=685294.57142857,["x"]=-284977.14285715,}, - [4]={["y"]=682744.57142857,["x"]=-286505.71428572,}, - [5]={["y"]=682094.57142857,["x"]=-284527.14285715,}, - }, - PointsRunways = { - [1] = { - [1]={["y"]=682638,["x"]=-285202.28571429,}, - [2]={["y"]=685050.28571429,["x"]=-284507.42857144,}, - [3]={["y"]=685068.85714286,["x"]=-284578.85714286,}, - [4]={["y"]=682657.42857143,["x"]=-285264.28571429,}, - [5]={["y"]=682638.28571429,["x"]=-285202.85714286,}, - }, - }, - ZoneBoundary = {}, - ZoneRunways = {}, - MaximumSpeed = 50, - }, - MaykopKhanskaya = { - PointsBoundary = { - [1]={["y"]=456876.28571429,["x"]=-27665.42857143,}, - [2]={["y"]=457800,["x"]=-28392.857142858,}, - [3]={["y"]=459368.57142857,["x"]=-26378.571428573,}, - [4]={["y"]=459425.71428572,["x"]=-25242.857142858,}, - [5]={["y"]=458961.42857143,["x"]=-24964.285714287,}, - [6]={["y"]=456878.57142857,["x"]=-27667.714285715,}, - }, - PointsRunways = { - [1] = { - [1]={["y"]=457005.42857143,["x"]=-27668.000000001,}, - [2]={["y"]=459028.85714286,["x"]=-25168.857142858,}, - [3]={["y"]=459082.57142857,["x"]=-25216.857142858,}, - [4]={["y"]=457060,["x"]=-27714.285714287,}, - [5]={["y"]=457004.57142857,["x"]=-27669.714285715,}, - }, - }, - ZoneBoundary = {}, - ZoneRunways = {}, - MaximumSpeed = 50, - }, - MineralnyeVody = { - PointsBoundary = { - [1]={["y"]=703857.14285714,["x"]=-50226.000000002,}, - [2]={["y"]=707385.71428571,["x"]=-51911.714285716,}, - [3]={["y"]=707595.71428571,["x"]=-51434.857142859,}, - [4]={["y"]=707900,["x"]=-51568.857142859,}, - [5]={["y"]=707542.85714286,["x"]=-52326.000000002,}, - [6]={["y"]=706628.57142857,["x"]=-52568.857142859,}, - [7]={["y"]=705142.85714286,["x"]=-51790.285714288,}, - [8]={["y"]=703678.57142857,["x"]=-50611.714285716,}, - [9]={["y"]=703857.42857143,["x"]=-50226.857142859,}, - }, - PointsRunways = { - [1] = { - [1]={["y"]=703904,["x"]=-50352.571428573,}, - [2]={["y"]=707596.28571429,["x"]=-52094.571428573,}, - [3]={["y"]=707560.57142858,["x"]=-52161.714285716,}, - [4]={["y"]=703871.71428572,["x"]=-50420.571428573,}, - [5]={["y"]=703902,["x"]=-50352.000000002,}, - }, - }, - ZoneBoundary = {}, - ZoneRunways = {}, - MaximumSpeed = 50, - }, - Mozdok = { - PointsBoundary = { - [1]={["y"]=832123.42857143,["x"]=-83608.571428573,}, - [2]={["y"]=835916.28571429,["x"]=-83144.285714288,}, - [3]={["y"]=835474.28571429,["x"]=-84170.571428573,}, - [4]={["y"]=832911.42857143,["x"]=-84470.571428573,}, - [5]={["y"]=832487.71428572,["x"]=-85565.714285716,}, - [6]={["y"]=831573.42857143,["x"]=-85351.42857143,}, - [7]={["y"]=832123.71428572,["x"]=-83610.285714288,}, - }, - PointsRunways = { - [1] = { - [1]={["y"]=832201.14285715,["x"]=-83699.428571431,}, - [2]={["y"]=832212.57142857,["x"]=-83780.571428574,}, - [3]={["y"]=835730.28571429,["x"]=-83335.714285717,}, - [4]={["y"]=835718.85714286,["x"]=-83246.571428574,}, - [5]={["y"]=832200.57142857,["x"]=-83700.000000002,}, - }, - }, - ZoneBoundary = {}, - ZoneRunways = {}, - MaximumSpeed = 50, - }, - Nalchik = { - PointsBoundary = { - [1]={["y"]=759370,["x"]=-125502.85714286,}, - [2]={["y"]=761384.28571429,["x"]=-124177.14285714,}, - [3]={["y"]=761472.85714286,["x"]=-124325.71428572,}, - [4]={["y"]=761092.85714286,["x"]=-125048.57142857,}, - [5]={["y"]=760295.71428572,["x"]=-125685.71428572,}, - [6]={["y"]=759444.28571429,["x"]=-125734.28571429,}, - [7]={["y"]=759375.71428572,["x"]=-125511.42857143,}, - }, - PointsRunways = { - [1] = { - [1]={["y"]=759454.28571429,["x"]=-125551.42857143,}, - [2]={["y"]=759492.85714286,["x"]=-125610.85714286,}, - [3]={["y"]=761406.28571429,["x"]=-124304.28571429,}, - [4]={["y"]=761361.14285714,["x"]=-124239.71428572,}, - [5]={["y"]=759456,["x"]=-125552.57142857,}, - }, - }, - ZoneBoundary = {}, - ZoneRunways = {}, - MaximumSpeed = 50, - }, - Novorossiysk = { - PointsBoundary = { - [1]={["y"]=278677.71428573,["x"]=-41656.571428572,}, - [2]={["y"]=278446.2857143,["x"]=-41453.714285715,}, - [3]={["y"]=278989.14285716,["x"]=-40188.000000001,}, - [4]={["y"]=279717.71428573,["x"]=-39968.000000001,}, - [5]={["y"]=280020.57142859,["x"]=-40208.000000001,}, - [6]={["y"]=278674.85714287,["x"]=-41660.857142858,}, - }, - PointsRunways = { - [1] = { - [1]={["y"]=278673.14285716,["x"]=-41615.142857144,}, - [2]={["y"]=278625.42857144,["x"]=-41570.571428572,}, - [3]={["y"]=279835.42857144,["x"]=-40226.000000001,}, - [4]={["y"]=279882.2857143,["x"]=-40270.000000001,}, - [5]={["y"]=278672.00000001,["x"]=-41614.857142858,}, - }, - }, - ZoneBoundary = {}, - ZoneRunways = {}, - MaximumSpeed = 50, - }, - SenakiKolkhi = { - PointsBoundary = { - [1]={["y"]=646036.57142857,["x"]=-281778.85714286,}, - [2]={["y"]=646045.14285714,["x"]=-281191.71428571,}, - [3]={["y"]=647032.28571429,["x"]=-280598.85714285,}, - [4]={["y"]=647669.42857143,["x"]=-281273.14285714,}, - [5]={["y"]=648323.71428571,["x"]=-281370.28571428,}, - [6]={["y"]=648520.85714286,["x"]=-281978.85714285,}, - [7]={["y"]=646039.42857143,["x"]=-281783.14285714,}, - }, - PointsRunways = { - [1] = { - [1]={["y"]=646060.85714285,["x"]=-281736,}, - [2]={["y"]=646056.57142857,["x"]=-281631.71428571,}, - [3]={["y"]=648442.28571428,["x"]=-281840.28571428,}, - [4]={["y"]=648432.28571428,["x"]=-281918.85714286,}, - [5]={["y"]=646063.71428571,["x"]=-281738.85714286,}, - }, - }, - ZoneBoundary = {}, - ZoneRunways = {}, - MaximumSpeed = 50, - }, - SochiAdler = { - PointsBoundary = { - [1]={["y"]=460642.28571428,["x"]=-164861.71428571,}, - [2]={["y"]=462820.85714285,["x"]=-163368.85714286,}, - [3]={["y"]=463649.42857142,["x"]=-163340.28571429,}, - [4]={["y"]=463835.14285714,["x"]=-164040.28571429,}, - [5]={["y"]=462535.14285714,["x"]=-165654.57142857,}, - [6]={["y"]=460678,["x"]=-165247.42857143,}, - [7]={["y"]=460635.14285714,["x"]=-164876,}, - }, - PointsRunways = { - [1] = { - [1]={["y"]=460831.42857143,["x"]=-165180,}, - [2]={["y"]=460878.57142857,["x"]=-165257.14285714,}, - [3]={["y"]=463663.71428571,["x"]=-163793.14285714,}, - [4]={["y"]=463612.28571428,["x"]=-163697.42857143,}, - [5]={["y"]=460831.42857143,["x"]=-165177.14285714,}, - }, - [2] = { - [1]={["y"]=460831.42857143,["x"]=-165180,}, - [2]={["y"]=460878.57142857,["x"]=-165257.14285714,}, - [3]={["y"]=463663.71428571,["x"]=-163793.14285714,}, - [4]={["y"]=463612.28571428,["x"]=-163697.42857143,}, - [5]={["y"]=460831.42857143,["x"]=-165177.14285714,}, - }, - }, - ZoneBoundary = {}, - ZoneRunways = {}, - MaximumSpeed = 50, - }, - Soganlug = { - PointsBoundary = { - [1]={["y"]=894530.85714286,["x"]=-316928.28571428,}, - [2]={["y"]=896422.28571428,["x"]=-318622.57142857,}, - [3]={["y"]=896090.85714286,["x"]=-318934,}, - [4]={["y"]=894019.42857143,["x"]=-317119.71428571,}, - [5]={["y"]=894533.71428571,["x"]=-316925.42857143,}, - }, - PointsRunways = { - [1] = { - [1]={["y"]=894525.71428571,["x"]=-316964,}, - [2]={["y"]=896363.14285714,["x"]=-318634.28571428,}, - [3]={["y"]=896299.14285714,["x"]=-318702.85714286,}, - [4]={["y"]=894464,["x"]=-317031.71428571,}, - [5]={["y"]=894524.57142857,["x"]=-316963.71428571,}, - }, - }, - ZoneBoundary = {}, - ZoneRunways = {}, - MaximumSpeed = 50, - }, - SukhumiBabushara = { - PointsBoundary = { - [1]={["y"]=562541.14285714,["x"]=-219852.28571429,}, - [2]={["y"]=562691.14285714,["x"]=-219395.14285714,}, - [3]={["y"]=564326.85714286,["x"]=-219523.71428571,}, - [4]={["y"]=566262.57142857,["x"]=-221166.57142857,}, - [5]={["y"]=566069.71428571,["x"]=-221580.85714286,}, - [6]={["y"]=562534,["x"]=-219873.71428571,}, - }, - PointsRunways = { - [1] = { - [1]={["y"]=562684,["x"]=-219779.71428571,}, - [2]={["y"]=562717.71428571,["x"]=-219718,}, - [3]={["y"]=566046.85714286,["x"]=-221376.57142857,}, - [4]={["y"]=566012.28571428,["x"]=-221446.57142857,}, - [5]={["y"]=562684.57142857,["x"]=-219782.57142857,}, - }, - }, - ZoneBoundary = {}, - ZoneRunways = {}, - MaximumSpeed = 50, - }, - TbilisiLochini = { - PointsBoundary = { - [1]={["y"]=895172.85714286,["x"]=-314667.42857143,}, - [2]={["y"]=895337.42857143,["x"]=-314143.14285714,}, - [3]={["y"]=895990.28571429,["x"]=-314036,}, - [4]={["y"]=897730.28571429,["x"]=-315284.57142857,}, - [5]={["y"]=897901.71428571,["x"]=-316284.57142857,}, - [6]={["y"]=897684.57142857,["x"]=-316618.85714286,}, - [7]={["y"]=895173.14285714,["x"]=-314667.42857143,}, - }, - PointsRunways = { - [1] = { - [1]={["y"]=895261.14285715,["x"]=-314652.28571428,}, - [2]={["y"]=897654.57142857,["x"]=-316523.14285714,}, - [3]={["y"]=897711.71428571,["x"]=-316450.28571429,}, - [4]={["y"]=895327.42857143,["x"]=-314568.85714286,}, - [5]={["y"]=895261.71428572,["x"]=-314656,}, - }, - }, - ZoneBoundary = {}, - ZoneRunways = {}, - MaximumSpeed = 50, - }, - Vaziani = { - PointsBoundary = { - [1]={["y"]=902122,["x"]=-318163.71428572,}, - [2]={["y"]=902678.57142857,["x"]=-317594,}, - [3]={["y"]=903275.71428571,["x"]=-317405.42857143,}, - [4]={["y"]=903418.57142857,["x"]=-317891.14285714,}, - [5]={["y"]=904292.85714286,["x"]=-318748.28571429,}, - [6]={["y"]=904542,["x"]=-319740.85714286,}, - [7]={["y"]=904042,["x"]=-320166.57142857,}, - [8]={["y"]=902121.42857143,["x"]=-318164.85714286,}, - }, - PointsRunways = { - [1] = { - [1]={["y"]=902239.14285714,["x"]=-318190.85714286,}, - [2]={["y"]=904014.28571428,["x"]=-319994.57142857,}, - [3]={["y"]=904064.85714285,["x"]=-319945.14285715,}, - [4]={["y"]=902294.57142857,["x"]=-318146,}, - [5]={["y"]=902247.71428571,["x"]=-318190.85714286,}, - }, - }, - ZoneBoundary = {}, - ZoneRunways = {}, - MaximumSpeed = 50, - }, - }, -} - ---- Creates a new AIRBASEPOLICE_CAUCASUS object. --- @param #AIRBASEPOLICE_CAUCASUS self --- @param SetClient A SET_CLIENT object that will contain the CLIENT objects to be monitored if they follow the rules of the airbase. --- @return #AIRBASEPOLICE_CAUCASUS self -function AIRBASEPOLICE_CAUCASUS:New( SetClient ) - - -- Inherits from BASE - local self = BASE:Inherit( self, AIRBASEPOLICE_BASE:New( SetClient, self.Airbases ) ) - - -- -- AnapaVityazevo - -- local AnapaVityazevoBoundary = GROUP:FindByName( "AnapaVityazevo Boundary" ) - -- self.Airbases.AnapaVityazevo.ZoneBoundary = ZONE_POLYGON:New( "AnapaVityazevo Boundary", AnapaVityazevoBoundary ):SmokeZone(POINT_VEC3.SmokeColor.White):Flush() - -- - -- local AnapaVityazevoRunway1 = GROUP:FindByName( "AnapaVityazevo Runway 1" ) - -- self.Airbases.AnapaVityazevo.ZoneRunways[1] = ZONE_POLYGON:New( "AnapaVityazevo Runway 1", AnapaVityazevoRunway1 ):SmokeZone(POINT_VEC3.SmokeColor.Red):Flush() - -- - -- - -- - -- -- Batumi - -- local BatumiBoundary = GROUP:FindByName( "Batumi Boundary" ) - -- self.Airbases.Batumi.ZoneBoundary = ZONE_POLYGON:New( "Batumi Boundary", BatumiBoundary ):SmokeZone(POINT_VEC3.SmokeColor.White):Flush() - -- - -- local BatumiRunway1 = GROUP:FindByName( "Batumi Runway 1" ) - -- self.Airbases.Batumi.ZoneRunways[1] = ZONE_POLYGON:New( "Batumi Runway 1", BatumiRunway1 ):SmokeZone(POINT_VEC3.SmokeColor.Red):Flush() - -- - -- - -- - -- -- Beslan - -- local BeslanBoundary = GROUP:FindByName( "Beslan Boundary" ) - -- self.Airbases.Beslan.ZoneBoundary = ZONE_POLYGON:New( "Beslan Boundary", BeslanBoundary ):SmokeZone(POINT_VEC3.SmokeColor.White):Flush() - -- - -- local BeslanRunway1 = GROUP:FindByName( "Beslan Runway 1" ) - -- self.Airbases.Beslan.ZoneRunways[1] = ZONE_POLYGON:New( "Beslan Runway 1", BeslanRunway1 ):SmokeZone(POINT_VEC3.SmokeColor.Red):Flush() - -- - -- - -- - -- -- Gelendzhik - -- local GelendzhikBoundary = GROUP:FindByName( "Gelendzhik Boundary" ) - -- self.Airbases.Gelendzhik.ZoneBoundary = ZONE_POLYGON:New( "Gelendzhik Boundary", GelendzhikBoundary ):SmokeZone(POINT_VEC3.SmokeColor.White):Flush() - -- - -- local GelendzhikRunway1 = GROUP:FindByName( "Gelendzhik Runway 1" ) - -- self.Airbases.Gelendzhik.ZoneRunways[1] = ZONE_POLYGON:New( "Gelendzhik Runway 1", GelendzhikRunway1 ):SmokeZone(POINT_VEC3.SmokeColor.Red):Flush() - -- - -- - -- - -- -- Gudauta - -- local GudautaBoundary = GROUP:FindByName( "Gudauta Boundary" ) - -- self.Airbases.Gudauta.ZoneBoundary = ZONE_POLYGON:New( "Gudauta Boundary", GudautaBoundary ):SmokeZone(POINT_VEC3.SmokeColor.White):Flush() - -- - -- local GudautaRunway1 = GROUP:FindByName( "Gudauta Runway 1" ) - -- self.Airbases.Gudauta.ZoneRunways[1] = ZONE_POLYGON:New( "Gudauta Runway 1", GudautaRunway1 ):SmokeZone(POINT_VEC3.SmokeColor.Red):Flush() - -- - -- - -- - -- -- Kobuleti - -- local KobuletiBoundary = GROUP:FindByName( "Kobuleti Boundary" ) - -- self.Airbases.Kobuleti.ZoneBoundary = ZONE_POLYGON:New( "Kobuleti Boundary", KobuletiBoundary ):SmokeZone(POINT_VEC3.SmokeColor.White):Flush() - -- - -- local KobuletiRunway1 = GROUP:FindByName( "Kobuleti Runway 1" ) - -- self.Airbases.Kobuleti.ZoneRunways[1] = ZONE_POLYGON:New( "Kobuleti Runway 1", KobuletiRunway1 ):SmokeZone(POINT_VEC3.SmokeColor.Red):Flush() - -- - -- - -- - -- -- KrasnodarCenter - -- local KrasnodarCenterBoundary = GROUP:FindByName( "KrasnodarCenter Boundary" ) - -- self.Airbases.KrasnodarCenter.ZoneBoundary = ZONE_POLYGON:New( "KrasnodarCenter Boundary", KrasnodarCenterBoundary ):SmokeZone(POINT_VEC3.SmokeColor.White):Flush() - -- - -- local KrasnodarCenterRunway1 = GROUP:FindByName( "KrasnodarCenter Runway 1" ) - -- self.Airbases.KrasnodarCenter.ZoneRunways[1] = ZONE_POLYGON:New( "KrasnodarCenter Runway 1", KrasnodarCenterRunway1 ):SmokeZone(POINT_VEC3.SmokeColor.Red):Flush() - -- - -- - -- - -- -- KrasnodarPashkovsky - -- local KrasnodarPashkovskyBoundary = GROUP:FindByName( "KrasnodarPashkovsky Boundary" ) - -- self.Airbases.KrasnodarPashkovsky.ZoneBoundary = ZONE_POLYGON:New( "KrasnodarPashkovsky Boundary", KrasnodarPashkovskyBoundary ):SmokeZone(POINT_VEC3.SmokeColor.White):Flush() - -- - -- local KrasnodarPashkovskyRunway1 = GROUP:FindByName( "KrasnodarPashkovsky Runway 1" ) - -- self.Airbases.KrasnodarPashkovsky.ZoneRunways[1] = ZONE_POLYGON:New( "KrasnodarPashkovsky Runway 1", KrasnodarPashkovskyRunway1 ):SmokeZone(POINT_VEC3.SmokeColor.Red):Flush() - -- local KrasnodarPashkovskyRunway2 = GROUP:FindByName( "KrasnodarPashkovsky Runway 2" ) - -- self.Airbases.KrasnodarPashkovsky.ZoneRunways[2] = ZONE_POLYGON:New( "KrasnodarPashkovsky Runway 2", KrasnodarPashkovskyRunway2 ):SmokeZone(POINT_VEC3.SmokeColor.Red):Flush() - -- - -- - -- - -- -- Krymsk - -- local KrymskBoundary = GROUP:FindByName( "Krymsk Boundary" ) - -- self.Airbases.Krymsk.ZoneBoundary = ZONE_POLYGON:New( "Krymsk Boundary", KrymskBoundary ):SmokeZone(POINT_VEC3.SmokeColor.White):Flush() - -- - -- local KrymskRunway1 = GROUP:FindByName( "Krymsk Runway 1" ) - -- self.Airbases.Krymsk.ZoneRunways[1] = ZONE_POLYGON:New( "Krymsk Runway 1", KrymskRunway1 ):SmokeZone(POINT_VEC3.SmokeColor.Red):Flush() - -- - -- - -- - -- -- Kutaisi - -- local KutaisiBoundary = GROUP:FindByName( "Kutaisi Boundary" ) - -- self.Airbases.Kutaisi.ZoneBoundary = ZONE_POLYGON:New( "Kutaisi Boundary", KutaisiBoundary ):SmokeZone(POINT_VEC3.SmokeColor.White):Flush() - -- - -- local KutaisiRunway1 = GROUP:FindByName( "Kutaisi Runway 1" ) - -- self.Airbases.Kutaisi.ZoneRunways[1] = ZONE_POLYGON:New( "Kutaisi Runway 1", KutaisiRunway1 ):SmokeZone(POINT_VEC3.SmokeColor.Red):Flush() - -- - -- - -- - -- -- MaykopKhanskaya - -- local MaykopKhanskayaBoundary = GROUP:FindByName( "MaykopKhanskaya Boundary" ) - -- self.Airbases.MaykopKhanskaya.ZoneBoundary = ZONE_POLYGON:New( "MaykopKhanskaya Boundary", MaykopKhanskayaBoundary ):SmokeZone(POINT_VEC3.SmokeColor.White):Flush() - -- - -- local MaykopKhanskayaRunway1 = GROUP:FindByName( "MaykopKhanskaya Runway 1" ) - -- self.Airbases.MaykopKhanskaya.ZoneRunways[1] = ZONE_POLYGON:New( "MaykopKhanskaya Runway 1", MaykopKhanskayaRunway1 ):SmokeZone(POINT_VEC3.SmokeColor.Red):Flush() - -- - -- - -- - -- -- MineralnyeVody - -- local MineralnyeVodyBoundary = GROUP:FindByName( "MineralnyeVody Boundary" ) - -- self.Airbases.MineralnyeVody.ZoneBoundary = ZONE_POLYGON:New( "MineralnyeVody Boundary", MineralnyeVodyBoundary ):SmokeZone(POINT_VEC3.SmokeColor.White):Flush() - -- - -- local MineralnyeVodyRunway1 = GROUP:FindByName( "MineralnyeVody Runway 1" ) - -- self.Airbases.MineralnyeVody.ZoneRunways[1] = ZONE_POLYGON:New( "MineralnyeVody Runway 1", MineralnyeVodyRunway1 ):SmokeZone(POINT_VEC3.SmokeColor.Red):Flush() - -- - -- - -- - -- -- Mozdok - -- local MozdokBoundary = GROUP:FindByName( "Mozdok Boundary" ) - -- self.Airbases.Mozdok.ZoneBoundary = ZONE_POLYGON:New( "Mozdok Boundary", MozdokBoundary ):SmokeZone(POINT_VEC3.SmokeColor.White):Flush() - -- - -- local MozdokRunway1 = GROUP:FindByName( "Mozdok Runway 1" ) - -- self.Airbases.Mozdok.ZoneRunways[1] = ZONE_POLYGON:New( "Mozdok Runway 1", MozdokRunway1 ):SmokeZone(POINT_VEC3.SmokeColor.Red):Flush() - -- - -- - -- - -- -- Nalchik - -- local NalchikBoundary = GROUP:FindByName( "Nalchik Boundary" ) - -- self.Airbases.Nalchik.ZoneBoundary = ZONE_POLYGON:New( "Nalchik Boundary", NalchikBoundary ):SmokeZone(POINT_VEC3.SmokeColor.White):Flush() - -- - -- local NalchikRunway1 = GROUP:FindByName( "Nalchik Runway 1" ) - -- self.Airbases.Nalchik.ZoneRunways[1] = ZONE_POLYGON:New( "Nalchik Runway 1", NalchikRunway1 ):SmokeZone(POINT_VEC3.SmokeColor.Red):Flush() - -- - -- - -- - -- -- Novorossiysk - -- local NovorossiyskBoundary = GROUP:FindByName( "Novorossiysk Boundary" ) - -- self.Airbases.Novorossiysk.ZoneBoundary = ZONE_POLYGON:New( "Novorossiysk Boundary", NovorossiyskBoundary ):SmokeZone(POINT_VEC3.SmokeColor.White):Flush() - -- - -- local NovorossiyskRunway1 = GROUP:FindByName( "Novorossiysk Runway 1" ) - -- self.Airbases.Novorossiysk.ZoneRunways[1] = ZONE_POLYGON:New( "Novorossiysk Runway 1", NovorossiyskRunway1 ):SmokeZone(POINT_VEC3.SmokeColor.Red):Flush() - -- - -- - -- - -- -- SenakiKolkhi - -- local SenakiKolkhiBoundary = GROUP:FindByName( "SenakiKolkhi Boundary" ) - -- self.Airbases.SenakiKolkhi.ZoneBoundary = ZONE_POLYGON:New( "SenakiKolkhi Boundary", SenakiKolkhiBoundary ):SmokeZone(POINT_VEC3.SmokeColor.White):Flush() - -- - -- local SenakiKolkhiRunway1 = GROUP:FindByName( "SenakiKolkhi Runway 1" ) - -- self.Airbases.SenakiKolkhi.ZoneRunways[1] = ZONE_POLYGON:New( "SenakiKolkhi Runway 1", SenakiKolkhiRunway1 ):SmokeZone(POINT_VEC3.SmokeColor.Red):Flush() - -- - -- - -- - -- -- SochiAdler - -- local SochiAdlerBoundary = GROUP:FindByName( "SochiAdler Boundary" ) - -- self.Airbases.SochiAdler.ZoneBoundary = ZONE_POLYGON:New( "SochiAdler Boundary", SochiAdlerBoundary ):SmokeZone(POINT_VEC3.SmokeColor.White):Flush() - -- - -- local SochiAdlerRunway1 = GROUP:FindByName( "SochiAdler Runway 1" ) - -- self.Airbases.SochiAdler.ZoneRunways[1] = ZONE_POLYGON:New( "SochiAdler Runway 1", SochiAdlerRunway1 ):SmokeZone(POINT_VEC3.SmokeColor.Red):Flush() - -- local SochiAdlerRunway2 = GROUP:FindByName( "SochiAdler Runway 2" ) - -- self.Airbases.SochiAdler.ZoneRunways[2] = ZONE_POLYGON:New( "SochiAdler Runway 2", SochiAdlerRunway1 ):SmokeZone(POINT_VEC3.SmokeColor.Red):Flush() - -- - -- - -- - -- -- Soganlug - -- local SoganlugBoundary = GROUP:FindByName( "Soganlug Boundary" ) - -- self.Airbases.Soganlug.ZoneBoundary = ZONE_POLYGON:New( "Soganlug Boundary", SoganlugBoundary ):SmokeZone(POINT_VEC3.SmokeColor.White):Flush() - -- - -- local SoganlugRunway1 = GROUP:FindByName( "Soganlug Runway 1" ) - -- self.Airbases.Soganlug.ZoneRunways[1] = ZONE_POLYGON:New( "Soganlug Runway 1", SoganlugRunway1 ):SmokeZone(POINT_VEC3.SmokeColor.Red):Flush() - -- - -- - -- - -- -- SukhumiBabushara - -- local SukhumiBabusharaBoundary = GROUP:FindByName( "SukhumiBabushara Boundary" ) - -- self.Airbases.SukhumiBabushara.ZoneBoundary = ZONE_POLYGON:New( "SukhumiBabushara Boundary", SukhumiBabusharaBoundary ):SmokeZone(POINT_VEC3.SmokeColor.White):Flush() - -- - -- local SukhumiBabusharaRunway1 = GROUP:FindByName( "SukhumiBabushara Runway 1" ) - -- self.Airbases.SukhumiBabushara.ZoneRunways[1] = ZONE_POLYGON:New( "SukhumiBabushara Runway 1", SukhumiBabusharaRunway1 ):SmokeZone(POINT_VEC3.SmokeColor.Red):Flush() - -- - -- - -- - -- -- TbilisiLochini - -- local TbilisiLochiniBoundary = GROUP:FindByName( "TbilisiLochini Boundary" ) - -- self.Airbases.TbilisiLochini.ZoneBoundary = ZONE_POLYGON:New( "TbilisiLochini Boundary", TbilisiLochiniBoundary ):SmokeZone(POINT_VEC3.SmokeColor.White):Flush() - -- - -- local TbilisiLochiniRunway1 = GROUP:FindByName( "TbilisiLochini Runway 1" ) - -- self.Airbases.TbilisiLochini.ZoneRunways[1] = ZONE_POLYGON:New( "TbilisiLochini Runway 1", TbilisiLochiniRunway1 ):SmokeZone(POINT_VEC3.SmokeColor.Red):Flush() - -- - -- - -- - -- -- Vaziani - -- local VazianiBoundary = GROUP:FindByName( "Vaziani Boundary" ) - -- self.Airbases.Vaziani.ZoneBoundary = ZONE_POLYGON:New( "Vaziani Boundary", VazianiBoundary ):SmokeZone(POINT_VEC3.SmokeColor.White):Flush() - -- - -- local VazianiRunway1 = GROUP:FindByName( "Vaziani Runway 1" ) - -- self.Airbases.Vaziani.ZoneRunways[1] = ZONE_POLYGON:New( "Vaziani Runway 1", VazianiRunway1 ):SmokeZone(POINT_VEC3.SmokeColor.Red):Flush() - -- - -- - -- - - - -- -- Template - -- local TemplateBoundary = GROUP:FindByName( "Template Boundary" ) - -- self.Airbases.Template.ZoneBoundary = ZONE_POLYGON:New( "Template Boundary", TemplateBoundary ):SmokeZone(POINT_VEC3.SmokeColor.White):Flush() - -- - -- local TemplateRunway1 = GROUP:FindByName( "Template Runway 1" ) - -- self.Airbases.Template.ZoneRunways[1] = ZONE_POLYGON:New( "Template Runway 1", TemplateRunway1 ):SmokeZone(POINT_VEC3.SmokeColor.Red):Flush() - - return self - -end - ---- This module contains the DETECTION classes. --- --- === --- --- 1) @{Detection#DETECTION_BASE} class, extends @{Base#BASE} --- ========================================================== --- The @{Detection#DETECTION_BASE} class defines the core functions to administer detected objects. --- --- 1.1) DETECTION_BASE constructor --- ------------------------------- --- Construct a new DETECTION_BASE instance using the @{Detection#DETECTION_BASE.New}() method. --- --- 1.2) DETECTION_BASE initialization --- ---------------------------------- --- By default, detection will return detected objects with all the detection sensors available. --- However, you can ask how the objects were found with specific detection methods. --- If you use one of the below methods, the detection will work with the detection method specified. --- You can specify to apply multiple detection methods. --- --- Use the following functions to report the objects it detected using the methods Visual, Optical, Radar, IRST, RWR, DLINK: --- --- * @{Detection#DETECTION_BASE.InitDetectVisual}(): Detected using Visual. --- * @{Detection#DETECTION_BASE.InitDetectOptical}(): Detected using Optical. --- * @{Detection#DETECTION_BASE.InitDetectRadar}(): Detected using Radar. --- * @{Detection#DETECTION_BASE.InitDetectIRST}(): Detected using IRST. --- * @{Detection#DETECTION_BASE.InitDetectRWR}(): Detected using RWR. --- * @{Detection#DETECTION_BASE.InitDetectDLINK}(): Detected using DLINK. --- --- 1.3) Obtain objects detected by DETECTION_BASE --- ---------------------------------------------- --- DETECTION_BASE builds @{Set}s of objects detected. These @{Set#SET_BASE}s can be retrieved using the method @{Detection#DETECTION_BASE.GetDetectedSets}(). --- The method will return a list (table) of @{Set#SET_BASE} objects. --- --- === --- --- 2) @{Detection#DETECTION_UNITGROUPS} class, extends @{Detection#DETECTION_BASE} --- =============================================================================== --- The @{Detection#DETECTION_UNITGROUPS} class will detect units within the battle zone for a FAC group, --- and will build a list (table) of @{Set#SET_UNIT}s containing the @{Unit#UNIT}s detected. --- The class is group the detected units within zones given a DetectedZoneRange parameter. --- A set with multiple detected zones will be created as there are groups of units detected. --- --- 2.1) Retrieve the Detected Unit sets and Detected Zones --- ------------------------------------------------------- --- The DetectedUnitSets methods are implemented in @{Detection#DECTECTION_BASE} and the DetectedZones methods is implemented in @{Detection#DETECTION_UNITGROUPS}. --- --- Retrieve the DetectedUnitSets with the method @{Detection#DETECTION_BASE.GetDetectedSets}(). A table will be return of @{Set#SET_UNIT}s. --- To understand the amount of sets created, use the method @{Detection#DETECTION_BASE.GetDetectedSetCount}(). --- If you want to obtain a specific set from the DetectedSets, use the method @{Detection#DETECTION_BASE.GetDetectedSet}() with a given index. --- --- Retrieve the formed @{Zone@ZONE_UNIT}s as a result of the grouping the detected units within the DetectionZoneRange, use the method @{Detection#DETECTION_BASE.GetDetectionZones}(). --- To understand the amount of zones created, use the method @{Detection#DETECTION_BASE.GetDetectionZoneCount}(). --- If you want to obtain a specific zone from the DetectedZones, use the method @{Detection#DETECTION_BASE.GetDetectionZone}() with a given index. --- --- 1.4) Flare or Smoke detected units --- ---------------------------------- --- Use the methods @{Detection#DETECTION_UNITGROUPS.FlareDetectedUnits}() or @{Detection#DETECTION_UNITGROUPS.SmokeDetectedUnits}() to flare or smoke the detected units when a new detection has taken place. --- --- 1.5) Flare or Smoke detected zones --- ---------------------------------- --- Use the methods @{Detection#DETECTION_UNITGROUPS.FlareDetectedZones}() or @{Detection#DETECTION_UNITGROUPS.SmokeDetectedZones}() to flare or smoke the detected zones when a new detection has taken place. --- --- === --- --- @module Detection --- @author Mechanic : Concept & Testing --- @author FlightControl : Design & Programming - - - ---- DETECTION_BASE class --- @type DETECTION_BASE --- @field Group#GROUP FACGroup The GROUP in the Forward Air Controller role. --- @field DCSTypes#Distance DetectionRange The range till which targets are accepted to be detected. --- @field #DETECTION_BASE.DetectedSets DetectedSets A list of @{Set#SET_BASE}s containing the objects in each set that were detected. The base class will not build the detected sets, but will leave that to the derived classes. --- @extends Base#BASE -DETECTION_BASE = { - ClassName = "DETECTION_BASE", - DetectedSets = {}, - DetectedObjects = {}, - FACGroup = nil, - DetectionRange = nil, -} - ---- @type DETECTION_BASE.DetectedSets --- @list - - ---- @type DETECTION_BASE.DetectedZones --- @list - - ---- DETECTION constructor. --- @param #DETECTION_BASE self --- @param Group#GROUP FACGroup The GROUP in the Forward Air Controller role. --- @param DCSTypes#Distance DetectionRange The range till which targets are accepted to be detected. --- @return #DETECTION_BASE self -function DETECTION_BASE:New( FACGroup, DetectionRange ) - - -- Inherits from BASE - local self = BASE:Inherit( self, BASE:New() ) - - self.FACGroup = FACGroup - self.DetectionRange = DetectionRange - - self:InitDetectVisual( false ) - self:InitDetectOptical( false ) - self:InitDetectRadar( false ) - self:InitDetectRWR( false ) - self:InitDetectIRST( false ) - self:InitDetectDLINK( false ) - - return self -end - ---- Detect Visual. --- @param #DETECTION_BASE self --- @param #boolean DetectVisual --- @return #DETECTION_BASE self -function DETECTION_BASE:InitDetectVisual( DetectVisual ) - - self.DetectVisual = DetectVisual -end - ---- Detect Optical. --- @param #DETECTION_BASE self --- @param #boolean DetectOptical --- @return #DETECTION_BASE self -function DETECTION_BASE:InitDetectOptical( DetectOptical ) - self:F2() - - self.DetectOptical = DetectOptical -end - ---- Detect Radar. --- @param #DETECTION_BASE self --- @param #boolean DetectRadar --- @return #DETECTION_BASE self -function DETECTION_BASE:InitDetectRadar( DetectRadar ) - self:F2() - - self.DetectRadar = DetectRadar -end - ---- Detect IRST. --- @param #DETECTION_BASE self --- @param #boolean DetectIRST --- @return #DETECTION_BASE self -function DETECTION_BASE:InitDetectIRST( DetectIRST ) - self:F2() - - self.DetectIRST = DetectIRST -end - ---- Detect RWR. --- @param #DETECTION_BASE self --- @param #boolean DetectRWR --- @return #DETECTION_BASE self -function DETECTION_BASE:InitDetectRWR( DetectRWR ) - self:F2() - - self.DetectRWR = DetectRWR -end - ---- Detect DLINK. --- @param #DETECTION_BASE self --- @param #boolean DetectDLINK --- @return #DETECTION_BASE self -function DETECTION_BASE:InitDetectDLINK( DetectDLINK ) - self:F2() - - self.DetectDLINK = DetectDLINK -end - ---- Gets the FAC group. --- @param #DETECTION_BASE self --- @return Group#GROUP self -function DETECTION_BASE:GetFACGroup() - self:F2() - - return self.FACGroup -end - ---- Get the detected @{Set#SET_BASE}s. --- @param #DETECTION_BASE self --- @return #DETECTION_BASE.DetectedSets DetectedSets -function DETECTION_BASE:GetDetectedSets() - - local DetectionSets = self.DetectedSets - return DetectionSets -end - ---- Get the amount of SETs with detected objects. --- @param #DETECTION_BASE self --- @return #number Count -function DETECTION_BASE:GetDetectedSetCount() - - local DetectionSetCount = #self.DetectedSets - return DetectionSetCount -end - ---- Get a SET of detected objects using a given numeric index. --- @param #DETECTION_BASE self --- @param #number Index --- @return Set#SET_BASE -function DETECTION_BASE:GetDetectedSet( Index ) - - local DetectionSet = self.DetectedSets[Index] - if DetectionSet then - return DetectionSet - end - - return nil -end - - ---- Make a DetectionSet table. This function will be overridden in the derived clsses. --- @param #DETECTION_BASE self --- @return #DETECTION_BASE self -function DETECTION_BASE:CreateDetectionSets() - self:F2() - - self:E( "Error, in DETECTION_BASE class..." ) - -end - ---- Schedule the DETECTION construction. --- @param #DETECTION_BASE self --- @param #number DelayTime The delay in seconds to wait the reporting. --- @param #number RepeatInterval The repeat interval in seconds for the reporting to happen repeatedly. --- @return #DETECTION_BASE self -function DETECTION_BASE:Schedule( DelayTime, RepeatInterval ) - self:F2() - - self.ScheduleDelayTime = DelayTime - self.ScheduleRepeatInterval = RepeatInterval - - self.DetectionScheduler = SCHEDULER:New(self, self._DetectionScheduler, { self, "Detection" }, DelayTime, RepeatInterval ) - return self -end - - ---- Form @{Set}s of detected @{Unit#UNIT}s in an array of @{Set#SET_BASE}s. --- @param #DETECTION_BASE self -function DETECTION_BASE:_DetectionScheduler( SchedulerName ) - self:F2( { SchedulerName } ) - - self.DetectedObjects = {} - self.DetectedSets = {} - self.DetectedZones = {} - - if self.FACGroup:IsAlive() then - local FACGroupName = self.FACGroup:GetName() - - local FACDetectedTargets = self.FACGroup:GetDetectedTargets( - self.DetectVisual, - self.DetectOptical, - self.DetectRadar, - self.DetectIRST, - self.DetectRWR, - self.DetectDLINK - ) - - for FACDetectedTargetID, FACDetectedTarget in pairs( FACDetectedTargets ) do - local FACObject = FACDetectedTarget.object -- DCSObject#Object - self:T2( FACObject ) - - if FACObject and FACObject:isExist() and FACObject.id_ < 50000000 then - - local FACDetectedObjectName = FACObject:getName() - - local FACDetectedObjectPositionVec3 = FACObject:getPoint() - local FACGroupPositionVec3 = self.FACGroup:GetPointVec3() - - local Distance = ( ( FACDetectedObjectPositionVec3.x - FACGroupPositionVec3.x )^2 + - ( FACDetectedObjectPositionVec3.y - FACGroupPositionVec3.y )^2 + - ( FACDetectedObjectPositionVec3.z - FACGroupPositionVec3.z )^2 - ) ^ 0.5 / 1000 - - self:T( { FACGroupName, FACDetectedObjectName, Distance } ) - - if Distance <= self.DetectionRange then - - if not self.DetectedObjects[FACDetectedObjectName] then - self.DetectedObjects[FACDetectedObjectName] = {} - end - self.DetectedObjects[FACDetectedObjectName].Name = FACDetectedObjectName - self.DetectedObjects[FACDetectedObjectName].Visible = FACDetectedTarget.visible - self.DetectedObjects[FACDetectedObjectName].Type = FACDetectedTarget.type - self.DetectedObjects[FACDetectedObjectName].Distance = FACDetectedTarget.distance - else - -- if beyond the DetectionRange then nullify... - if self.DetectedObjects[FACDetectedObjectName] then - self.DetectedObjects[FACDetectedObjectName] = nil - end - end - end - end - - self:T2( self.DetectedObjects ) - - -- okay, now we have a list of detected object names ... - -- Sort the table based on distance ... - self:T( { "Sorting DetectedObjects table:", self.DetectedObjects } ) - table.sort( self.DetectedObjects, function( a, b ) return a.Distance < b.Distance end ) - self:T( { "Sorted Targets Table:", self.DetectedObjects } ) - - -- Now group the DetectedObjects table into SET_BASEs, evaluating the DetectionZoneRange. - - if self.DetectedObjects then - self:CreateDetectionSets() - end - - - end -end - ---- @type DETECTION_UNITGROUPS.DetectedSets --- @list --- - - ---- @type DETECTION_UNITGROUPS.DetectedZones --- @list --- - - ---- DETECTION_UNITGROUPS class --- @type DETECTION_UNITGROUPS --- @param DCSTypes#Distance DetectionZoneRange The range till which targets are grouped upon the first detected target. --- @field #DETECTION_UNITGROUPS.DetectedSets DetectedSets A list of @{Set#SET_UNIT}s containing the units in each set that were detected within a DetectionZoneRange. --- @field #DETECTION_UNITGROUPS.DetectedZones DetectedZones A list of @{Zone#ZONE_UNIT}s containing the zones of the reference detected units. --- @extends Detection#DETECTION_BASE -DETECTION_UNITGROUPS = { - ClassName = "DETECTION_UNITGROUPS", - DetectedZones = {}, -} - - - ---- DETECTION_UNITGROUPS constructor. --- @param Detection#DETECTION_UNITGROUPS self --- @param Group#GROUP FACGroup The GROUP in the Forward Air Controller role. --- @param DCSTypes#Distance DetectionRange The range till which targets are accepted to be detected. --- @param DCSTypes#Distance DetectionZoneRange The range till which targets are grouped upon the first detected target. --- @return Detection#DETECTION_UNITGROUPS self -function DETECTION_UNITGROUPS:New( FACGroup, DetectionRange, DetectionZoneRange ) - - -- Inherits from DETECTION_BASE - local self = BASE:Inherit( self, DETECTION_BASE:New( FACGroup, DetectionRange ) ) - self.DetectionZoneRange = DetectionZoneRange - - self:Schedule( 10, 30 ) - - return self -end - ---- Get the detected @{Zone#ZONE_UNIT}s. --- @param #DETECTION_UNITGROUPS self --- @return #DETECTION_UNITGROUPS.DetectedZones DetectedZones -function DETECTION_UNITGROUPS:GetDetectedZones() - - local DetectedZones = self.DetectedZones - return DetectedZones -end - ---- Get the amount of @{Zone#ZONE_UNIT}s with detected units. --- @param #DETECTION_UNITGROUPS self --- @return #number Count -function DETECTION_UNITGROUPS:GetDetectedZoneCount() - - local DetectedZoneCount = #self.DetectedZones - return DetectedZoneCount -end - ---- Get a SET of detected objects using a given numeric index. --- @param #DETECTION_UNITGROUPS self --- @param #number Index --- @return Zone#ZONE_UNIT -function DETECTION_UNITGROUPS:GetDetectedZone( Index ) - - local DetectedZone = self.DetectedZones[Index] - if DetectedZone then - return DetectedZone - end - - return nil -end - ---- Smoke the detected units --- @param #DETECTION_UNITGROUPS self --- @return #DETECTION_UNITGROUPS self -function DETECTION_UNITGROUPS:SmokeDetectedUnits() - self:F2() - - self._SmokeDetectedUnits = true - return self -end - ---- Flare the detected units --- @param #DETECTION_UNITGROUPS self --- @return #DETECTION_UNITGROUPS self -function DETECTION_UNITGROUPS:FlareDetectedUnits() - self:F2() - - self._FlareDetectedUnits = true - return self -end - ---- Smoke the detected zones --- @param #DETECTION_UNITGROUPS self --- @return #DETECTION_UNITGROUPS self -function DETECTION_UNITGROUPS:SmokeDetectedZones() - self:F2() - - self._SmokeDetectedZones = true - return self -end - ---- Flare the detected zones --- @param #DETECTION_UNITGROUPS self --- @return #DETECTION_UNITGROUPS self -function DETECTION_UNITGROUPS:FlareDetectedZones() - self:F2() - - self._FlareDetectedZones = true - return self -end - - ---- Make a DetectionSet table. This function will be overridden in the derived clsses. --- @param #DETECTION_UNITGROUPS self --- @return #DETECTION_UNITGROUPS self -function DETECTION_UNITGROUPS:CreateDetectionSets() - self:F2() - - for DetectedUnitName, DetectedUnitData in pairs( self.DetectedObjects ) do - self:T( DetectedUnitData.Name ) - local DetectedUnit = UNIT:FindByName( DetectedUnitData.Name ) -- Unit#UNIT - if DetectedUnit and DetectedUnit:IsAlive() then - self:T( DetectedUnit:GetName() ) - if #self.DetectedSets == 0 then - self:T( { "Adding Unit Set #", 1 } ) - self.DetectedZones[1] = ZONE_UNIT:New( DetectedUnitName, DetectedUnit, self.DetectionZoneRange ) - self.DetectedSets[1] = SET_UNIT:New() - self.DetectedSets[1]:AddUnit( DetectedUnit ) - else - local AddedToSet = false - for DetectedZoneIndex = 1, #self.DetectedZones do - self:T( "Detected Unit Set #" .. DetectedZoneIndex ) - local DetectedUnitSet = self.DetectedSets[DetectedZoneIndex] -- Set#SET_BASE - local DetectedZone = self.DetectedZones[DetectedZoneIndex] -- Zone#ZONE_UNIT - if DetectedUnit:IsInZone( DetectedZone ) then - self:T( "Adding to Unit Set #" .. DetectedZoneIndex ) - DetectedUnitSet:AddUnit( DetectedUnit ) - AddedToSet = true - end - end - if AddedToSet == false then - local DetectedZoneIndex = #self.DetectedZones + 1 - self:T( "Adding new zone #" .. DetectedZoneIndex ) - self.DetectedZones[DetectedZoneIndex] = ZONE_UNIT:New( DetectedUnitName, DetectedUnit, self.DetectionZoneRange ) - self.DetectedSets[DetectedZoneIndex] = SET_UNIT:New() - self.DetectedSets[DetectedZoneIndex]:AddUnit( DetectedUnit ) - end - end - end - end - - -- Now all the tests should have been build, now make some smoke and flares... - - for DetectedZoneIndex = 1, #self.DetectedZones do - local DetectedUnitSet = self.DetectedSets[DetectedZoneIndex] -- Set#SET_BASE - local DetectedZone = self.DetectedZones[DetectedZoneIndex] -- Zone#ZONE_UNIT - self:T( "Detected Set #" .. DetectedZoneIndex ) - DetectedUnitSet:ForEachUnit( - --- @param Unit#UNIT DetectedUnit - function( DetectedUnit ) - self:T( DetectedUnit:GetName() ) - if self._FlareDetectedUnits then - DetectedUnit:FlareRed() - end - if self._SmokeDetectedUnits then - DetectedUnit:SmokeRed() - end - end - ) - if self._FlareDetectedZones then - DetectedZone:FlareZone( POINT_VEC3.SmokeColor.White, 30, math.random( 0,90 ) ) - end - if self._SmokeDetectedZones then - DetectedZone:SmokeZone( POINT_VEC3.SmokeColor.White, 30 ) - end - end - -end - - ---- This module contains the FAC classes. --- --- === --- --- 1) @{Fac#FAC_BASE} class, extends @{Base#BASE} --- ============================================== --- The @{Fac#FAC_BASE} class defines the core functions to report detected objects to clients. --- Reportings can be done in several manners, and it is up to the derived classes if FAC_BASE to model the reporting behaviour. --- --- 1.1) FAC_BASE constructor: --- ---------------------------- --- * @{Fac#FAC_BASE.New}(): Create a new FAC_BASE instance. --- --- 1.2) FAC_BASE reporting: --- ------------------------ --- Derived FAC_BASE classes will reports detected units using the method @{Fac#FAC_BASE.ReportDetected}(). This method implements polymorphic behaviour. --- --- The time interval in seconds of the reporting can be changed using the methods @{Fac#FAC_BASE.SetReportInterval}(). --- To control how long a reporting message is displayed, use @{Fac#FAC_BASE.SetReportDisplayTime}(). --- Derived classes need to implement the method @{Fac#FAC_BASE.GetReportDisplayTime}() to use the correct display time for displayed messages during a report. --- --- Reporting can be started and stopped using the methods @{Fac#FAC_BASE.StartReporting}() and @{Fac#FAC_BASE.StopReporting}() respectively. --- If an ad-hoc report is requested, use the method @{Fac#FAC_BASE#ReportNow}(). --- --- The default reporting interval is every 60 seconds. The reporting messages are displayed 15 seconds. --- --- === --- --- 2) @{Fac#FAC_REPORTING} class, extends @{Fac#FAC_BASE} --- ====================================================== --- The @{Fac#FAC_REPORTING} class implements detected units reporting. Reporting can be controlled using the reporting methods available in the @{Fac#FAC_BASE} class. --- --- 2.1) FAC_REPORTING constructor: --- ------------------------------- --- The @{Fac#FAC_REPORTING.New}() method creates a new FAC_REPORTING instance. --- --- === --- --- @module Fac --- @author Mechanic, Prof_Hilactic, FlightControl : Concept & Testing --- @author FlightControl : Design & Programming - - - ---- FAC_BASE class. --- @type FAC_BASE --- @field Set#SET_CLIENT ClientSet The clients to which the FAC will report to. --- @field Detection#DETECTION_BASE Detection The DETECTION_BASE object that is used to report the detected objects. --- @extends Base#BASE -FAC_BASE = { - ClassName = "FAC_BASE", - ClientSet = nil, - Detection = nil, -} - ---- FAC constructor. --- @param #FAC_BASE self --- @param Set#SET_CLIENT ClientSet --- @param Detection#DETECTION_BASE Detection --- @return #FAC_BASE self -function FAC_BASE:New( ClientSet, Detection ) - - -- Inherits from BASE - local self = BASE:Inherit( self, BASE:New() ) -- Fac#FAC_BASE - - self.ClientSet = ClientSet - self.Detection = Detection - - self:SetReportInterval( 60 ) - self:SetReportDisplayTime( 15 ) - - return self -end - ---- Set the reporting time interval. --- @param #FAC_BASE self --- @param #number ReportInterval The interval in seconds when a report needs to be done. --- @return #FAC_BASE self -function FAC_BASE:SetReportInterval( ReportInterval ) - self:F2() - - self._ReportInterval = ReportInterval -end - - ---- Set the reporting message display time. --- @param #FAC_BASE self --- @param #number ReportDisplayTime The display time in seconds when a report needs to be done. --- @return #FAC_BASE self -function FAC_BASE:SetReportDisplayTime( ReportDisplayTime ) - self:F2() - - self._ReportDisplayTime = ReportDisplayTime -end - ---- Get the reporting message display time. --- @param #FAC_BASE self --- @return #number ReportDisplayTime The display time in seconds when a report needs to be done. -function FAC_BASE:GetReportDisplayTime() - self:F2() - - return self._ReportDisplayTime -end - ---- Reports the detected items to the @{Set#SET_CLIENT}. --- @param #FAC_BASE self --- @param Set#SET_BASE DetectedSets The detected Sets created by the @{Detection#DETECTION_BASE} object. --- @return #FAC_BASE self -function FAC_BASE:ReportDetected( DetectedSets ) - self:F2() - - - -end - ---- Schedule the FAC reporting. --- @param #FAC_BASE self --- @param #number DelayTime The delay in seconds to wait the reporting. --- @param #number ReportInterval The repeat interval in seconds for the reporting to happen repeatedly. --- @return #FAC_BASE self -function FAC_BASE:Schedule( DelayTime, ReportInterval ) - self:F2() - - self._ScheduleDelayTime = DelayTime - - self:SetReportInterval( ReportInterval ) - - self.FacScheduler = SCHEDULER:New(self, self._FacScheduler, { self, "Fac" }, self._ScheduleDelayTime, self._ReportInterval ) - return self -end - ---- Report the detected @{Unit#UNIT}s detected within the @{DetectION#DETECTION_BASE} object to the @{Set#SET_CLIENT}s. --- @param #FAC_BASE self -function FAC_BASE:_FacScheduler( SchedulerName ) - self:F2( { SchedulerName } ) - - self.ClientSet:ForEachClient( - --- @param Client#CLIENT Client - function( Client ) - if Client:IsAlive() then - local DetectedSets = self.Detection:GetDetectedSets() - return self:ReportDetected( Client, DetectedSets ) - end - end - ) - - return true -end - --- FAC_REPORTING - ---- FAC_REPORTING class. --- @type FAC_REPORTING --- @field Set#SET_CLIENT ClientSet The clients to which the FAC will report to. --- @field Detection#DETECTION_BASE Detection The DETECTION_BASE object that is used to report the detected objects. --- @extends #FAC_BASE -FAC_REPORTING = { - ClassName = "FAC_REPORTING", -} - - ---- FAC_REPORTING constructor. --- @param #FAC_REPORTING self --- @param Set#SET_CLIENT ClientSet --- @param Detection#DETECTION_BASE Detection --- @return #FAC_REPORTING self -function FAC_REPORTING:New( ClientSet, Detection ) - - -- Inherits from FAC_BASE - local self = BASE:Inherit( self, FAC_BASE:New( ClientSet, Detection ) ) -- #FAC_REPORTING - - self:Schedule( 5, 60 ) - return self -end - - ---- Reports the detected items to the @{Set#SET_CLIENT}. --- @param #FAC_REPORTING self --- @param Client#CLIENT Client The @{Client} object to where the report needs to go. --- @param Set#SET_BASE DetectedSets The detected Sets created by the @{Detection#DETECTION_BASE} object. --- @return #boolean Return true if you want the reporting to continue... false will cancel the reporting loop. -function FAC_REPORTING:ReportDetected( Client, DetectedSets ) - self:F2( Client ) - - local DetectedMsg = {} - for DetectedUnitSetID, DetectedUnitSet in pairs( DetectedSets ) do - local UnitSet = DetectedUnitSet -- Set#SET_UNIT - local MT = {} -- Message Text - local UnitTypes = {} - for DetectedUnitID, DetectedUnitData in pairs( UnitSet:GetSet() ) do - local DetectedUnit = DetectedUnitData -- Unit#UNIT - local UnitType = DetectedUnit:GetTypeName() - if not UnitTypes[UnitType] then - UnitTypes[UnitType] = 1 - else - UnitTypes[UnitType] = UnitTypes[UnitType] + 1 - end - end - for UnitTypeID, UnitType in pairs( UnitTypes ) do - MT[#MT+1] = UnitType .. " of " .. UnitTypeID - end - local MessageText = table.concat( MT, ", " ) - DetectedMsg[#DetectedMsg+1] = " - Group #" .. DetectedUnitSetID .. ": " .. MessageText - end - local FACGroup = self.Detection:GetFACGroup() - FACGroup:MessageToClient( "Reporting detected target groups:\n" .. table.concat( DetectedMsg, "\n" ), self:GetReportDisplayTime(), Client ) - - return true -end - - -BASE:TraceOnOff( false ) +BASE:TraceOnOff( true ) env.info( '*** MOOSE INCLUDE END *** ' ) diff --git a/Moose Test Missions/Moose_Test_AIRBASEPOLICE/Moose_Test_AIRBASEPOLICE-DB.miz b/Moose Test Missions/Moose_Test_AIRBASEPOLICE/Moose_Test_AIRBASEPOLICE-DB.miz new file mode 100644 index 0000000000000000000000000000000000000000..c5fc217be88f6e8233c1d4124ae1a75136bd312f GIT binary patch literal 190629 zcmZU(V{j%w(=Hs_wr$(Cbtju-W81cE+qO5hZQJ%n-#*Vbzwi`vW{Op$_YSttlQ4mAl&4oqQE-q`>;4J%OP#A{;+Yt-LE~aXH-oCEA69ps- zr``0>sYFH0rhR?n92z;}f15l3A5fdoB8!&QTrx##Sk0Wk0-p}T*2^!>@8M@aqSdYv z0~#%?oi|qLD3bgUijIS!EJ$tlouFA!hS26FVqpFHmF|Rk9eA(Z;sPJy!SX0}&(($q zi_Q_7iKMtn{Iydf;tX6jio~DnCEv0m{RRMFHHq^IUQ(&aNxT!>2K$&eursBB;>1$e z{itYwUm;j$m@;qdISFJ)@!CLDaVxj_>B}DyCNHTW{)!yjOvj!t#$$&Xrul)l&0pi* zc#P&qV->PoUirr8Aq@pP!y~7NZihQ-O`~pR3&q>I48rmiK0gtSKF8cflPxJUzP2u~ z!}r}0k)7n^wn=4_!E}1c7lRMCSTn~TS0B-mDp~oAc~C6G%-vL*8O#c!*-()ue5w+o z=X3|MBw&_xRI5qx&?T@WfzTl)N1}gX!F3BABt!+ZXgMOlqYOrvP(I;Ep$hF4xc|l` z_N7HGnJrLgLmqt4Ws8OfXMGZ4N%=8@?uW5uW>-o+7hk7`iz?V)TKGa=8CRD+5phd}wu1T!w9%!eM!NVe2O zCO3XsrZ&Jom|Wof2WBku!6`tchG;-4U=i!}9{aUuS%#aghML01ST@vyvdrcv-ji)| zJPg;SDv8-{(sM~UVqT=vJV<1dZ7cDni~S3)K}qOYSXa${S!+_gtw@bisXwOsQjwFl zGwvaef!>%QXX_M);aH3_Zg^rx&;+M7N4_{HW`vZ?AXAupRZ|#=-YE8T;vkLI1)J$_cwEjA$b48C~>Yn7^ zJk^9dC6$sz4LcdQEb{(j%E`y5nysb{uCe1GmBJ% z*S31Q;wX)g&X6fes_L}l$L>}~t}Y2iGZBv_9hiJB#@31%3|xSU>;kU5VSJ}L-k$2g zqUg8FB>PlP<1zNO5h>S|;A1997O`>#l(~Vb&-3$@OxsjdlO3R1{a26n!`Jvn{SH-Z`vDJ#vM4=>|PztXA@nNEEgt@inlZg$<8G zc2JP+b8r9^;2vbsks1Qj+b23(Uy~hHstV{k0XdYW7s3+*sa^###;r{OZ9d$)25!6q z!>1D6*?I7dRgAe!+kY2wUggsw%e884dS+qK9lUs54DSlUvBY0~*l^)tZ2gm|NkgO1 zy`!MtZd1v=?ew^>u<22+Q(Jreq{n^h-36!_*EXT86HYzNJl0shI7aPOD`-{U`BRBg z;IXQrJ~k8a%DaAp{k7DkqnL5B<~zA_`9gF(E#u>yGxuQ>EYT&>Wtiu(+G)$u?M&M> zH-0#K@ss=MdCueU)P0#eq!MQ5@cXv9*4u#g#wyioiT?fw);b~Cl^`-F#Bt;6*+m-A zE-sjBg;{j?Fz{KD+zgxA@l0pMKrR_!+Xe4dp<7+)s-Rhi!vA6=-wfH<opzj>oK0mbW8dlNZ(3Q{zg(*eqnV51=gM`sq{4+{$_T!L;cG zk6DzlQ!yQE))!+2* z9VD*PCTiPQ&sm4er~b_qqYow=RXL4YL}eb8xHeZTtm3*%vfJI%Y&_}K1i7>BR-6SN zueBfX^l4^h=EwWd*SRyrxSF-vv~BCF+?`=}k+p27sXOJ`WZ71$H&eBG8D;6!wLPt` znU*!|?b7h4CYP`Fa{Jj(N0%Y>G4khEP1Uid3;V9x=H>JB14*}oZ-Z3cc%I%g0|Q1? zl_k5MrY?h>8RNTr)9}f%scT17Pfd@XtKPJ&s}+agy=Cjste*?N-?QwqWp~Ccy$AQ^ z%xhlL5APyvuTFVK<&N&`JE!d`=koBUW5dQz`}^B?)bePa+ehz{KIi84*X{S8^j_Y) zTUYC~*324)%E#p^c~6Ir@3gjFMVhKpBe0JcL3aF z_i3_8bR1L3bN)w`K5t!L*4aJUC*mvVqht4XN#=FsaW;36XZM=*N>(XD9dBpIc(d#n z!o-Sn;X=Ou@0vMU1Wgm1N{*f==+tcCGh@oMrk}Qu=vf#R z3}d=6t@s8aBjJ(2XmD)Ue+yHjhluQR_Qpr1&Oih~Ytenw>bQ2912yW|4Kc~hF`}r_ zC^vJSAHxOnILGYTXicHS$AzSe82%FLdj@Av_$xUMWG<|(GB_Y^3*~j5@6`^`Q~0B zNJd>F7Sm}R4U0d|7VQ3Vu{kgxRAK#{?p*D0X1)K!m(wxiMX*hP!47BcJGS#xY<|9a zbS{)a0kCHQDR+s-L;y(&P-Q-S*^cQTmDRM*z7dVO&s>A5`g9`_k|^p^9LXh;Gv0y+ z*ArgvF#{Q;@*>43p&9%6{;)({x{yfSx@nAbXq)g}Eu>v~;hH(BFgM|_Mp1Gj_EMIp z!ZaetA`a9wN9Gr{wei(M|M=S29znm5xhkd`gEPce!An^?YcK>D@D9!)gi}%5gat^4 zR%T`7if}Z&qa=ZAGdQh1DbuASCG}nE%|(@dA}%Ra6mTJz8wh?1C1@%4RnWnfX%O;N z9CZ#Xa`0GEO6hw=w9LlN@EMUcTV#6eUvdTnq7zr75jmozYs+Wz{y36~zZgS36jz)8xZU7k=}pNnYJ$G4fBeYDxN^&lP!8QI5kN+2 zbMtg5iN)vLQAWBGmYM_Z%Z48}hW2%E_*tX&T_={JQ&>|0MJW&2B&Q_u>#^9TVk0!+ z4-eVGC)iR|tMVr-H2Yx!=^YYA5-((6Q@~LM3r1|#Dby%Uk5>Tge1hq3xeDfoWKbKl zue^hyd$jT9ktrWgq_RM0aATU7kHF3q!x}U?Du_<3ED#~56^T=@6P)R9IA)T#3?!*$ z!7iD?YO}fY#t+krXx*JU#fdL$<13WDarGt$>lr|d3^it1c7v&V!{lE)Mjn&(SH1H4 zSW}`ul1= z?fXVB^c`E{ibb$1>zxXOMN%JPSaB5MWd3S4+Z!82aFj{V>B&Uv6HnA1E-L6?RL-s& zE=siU6l%mw%R%c7Z}58{@<+4!ER<|J$zb?V1wfZFd^l%VL6fuh5uUUMTnG&q~VxvQL>=O2SXQ1&; z|FhT6Ix7Q@i|2hZLcF3*b+^@Q3P_PH*|~SOE63YP4a27=6LEOiuRh?={%R>v5-NNf zCbZ&1k1ZfQo?{V#J}9#yUQj3jdZFGF7avdN;ZfRDgh)cJrEfSIgb6`Os2@051So++t(a-rg=Da;tseCfvB14!e|Gh&mTPhDJF-B&PchaP|DkRBU8&f21vNjjS%H5h360)*7HY>gFUWIy%ed@guD6yKRg7g5m8&P8=@~a<5{_$0@!-V~-;;-7 zhR5+cx<2jQn=YEtEU~ic^2z+O7?`7IYv0=Pv4~x6MAetgt?j6s{y|l$Q>Kj<7nH@W zUQDV&O@=eMI0Yw4k=2>9+$MW8#x`6Uo@~`Y8RJwjF+O(z^1&ihp3VK8A0WJ6CI}=!V zIq9~r*(@f;u5=Ge)EE8-CaW&m;+zmdG}FNARJvXqnf_P9Q9LnRjyQYJq>5tJmz817 zr&Fj287zp#8Uqy%BwpOQe=IMk|%3x{ZGX3fdM?OeCnQX>Nz(4Q4adJ_Z$cBi{a4bz= zq;&;D^bp5@Yp%WF3HZ7{u7~=F26FA}Nh%u7gJHn<#fQM4twd<9HJzrvq05~S;%Y?Psw>M zWB9_xhNH-DrxDs5jazc-j6MAcM^o51ul4S&41+3DwNz8(Ku?WYBlziff3Gx8>)gLF z1zc3lhPC=Ff~*!SpwO9`#l4$|v7++ax;wp<;IHtTymRrxCGCTG;A>~D=)f?||F@d` zc@*p9=CeomYE!lOqdmYxH_$i{8@?yZu6KY}4Z^XXlx-QR^_ zzlG*#Z2FKcS;Fvlqv)G3GTT$SFmY0p!kMJ}R}ep^Lk&kIE>Rv@U))8~9V!XiuI*CK9+bcz-f_fCWRi_AMrKk(BEP z6dHb03z`ylRzDXn2IC5q+z}6~5yu&){ti&}(K=G2;@{SXU7)-fhs9Ax*GO?flhS9< z{f04#WH*Z75w!Bc;w5Cen02?Mh@LPqh#D1SX)v?F!I`Wif_GGvxWJCG+PN<9(9duS z;=F*pN@caQZgTD?c-oq4*%UG@_-?GE$|@%vNSCZgWXWRHzdTn(%6yP{m-LIxD_94? z=ooRvfufjCY`I6nJphH23_v=(C#%vPJjUuPNi=Lw5L6^aw^v*W_L>A@I$$9OU&}P; zyyLg<0h^*J{;k;aE1&6vuh=FWG?urt2xGWjszAI1$TDSyC50r|j%JyJo@93?bwpk~ z!J0C`YOzQ%&eviI>OI9Y{*T5iuH}}w%J6w*f`9CrqKltg@4BE;cMr8gu2PwuMciei zWZe~WJuG6^U3-Q5(^ z3_Jfd619Y+dprG|S%y)4#sZB&(Gih{6dq0gPro6s-Ur7X z38MITEpLlv_}HexxHC<9mF#(K%GIi7V++G4SIdEKs|Jt`IlR}IA7CptJVT(N%;-a)$iVGz7oT|e5}4xG!`D1bF_qwdm6 zudwrkMgnmk_z{)TAlG^+rV0mywX^CH_Rbt0U?GMW0rSBBdJexzy*@;op&e7VKQBp}&Us6F;^}pUQN7s&g)FJd1bM2>| zs|}h`m+;GFA6CLOkSNwV3MNp93CdEQTI^+Ttpph>;HSzPnW)}q_@yPF_>@lbKuukf z(@PUmTjMo*e~NW^`F4~4^y1<1vdXW!^ZSGF=V)=VstQxk9XVI9>+joO-i@ID>FmF` z$MfHl>FLRr*`LqpM>9-J`loHgUMNAoxA#}Uw*%+r%h%VoIz_Lu`TJNKfv@FDM!Vgd z%|7ObBscw??cF~-VG4e3JP>|Q569P8A8u}pw>N%1wh0{7cp~lHPyw+vg1ufoUSBU& zmy`P656jz=S&X-OK38aMDzJ|2UsXtj@8_#OcPGbHU7Vb+Zg#ubT}w5|>5dzMlG%4= zoUf;|?^idMeqFsi-n%n*TgN1J__L3Hv%ekm@TDknu5&Dk(Wf_1D z4*Um&*9P9>+8>xgfVr@my=1hAiyV#!Alrdc#MaLohln^~_JH;7qg<(lq=6Nb{3T(| zu+B|Eo2h@ZQT3t2%#{G4ruH2i>@89Y1qBvU3B`eIg%g9|O5P~Pw@#%Pa?I$Hfm*+_ zw>YtA3k>8hjbg~oAw%9B5@RHw&SYlRkK(*vLlDCfW zWRMntLC!}+grvF%iNnH0d^auqzJ7OWFXMP*c|lV2nlK27oXY0U-q7Ue%*s-#>qPKE zM3LeosSrfPa=_67mTLYQ9$*o24?<%o!F<3X0)a}g37}AEWkyN?bEb~w(J&t1!B>It z9zVz6Q19o^#ERs>SN1?U5gql_@Qu96QW>D*#(6c)bLHEoQJp4ffh5#asA$Qg;Llj+ zDoR(*O67?%kR~C42P*MIlBt6t9z5VCk^hmLCJ7%T(AzlrI8>z^LjiO!;Z{LY=IbT- zGB6il;Oga)`&c}`?~48zH94F(Kmo!9Jm`Wlh(lTFLD`1~!UZPi0uhF}<&$CZ`@+5t zx23aj%vb{*5*`Z*JJDgq=U%EJoQae)a0yv>s541|sbpvkrInnR-XdZzBEqDqft(OP z>R(3jqDCewzr^QHN!f~=r*mCqi{l($6Y;D1eeFRQR1-m~Dd$X9RssqfO=kSInS&ERN zP+hOmq42JF#MRt9L)Ky-cd30A!$_K{3^jjvq@DTq0yVfURq_TDt0O5?H*#V4GbEy_ znKH-T@&uu;Rp}qATb)8%JeO3idtoW8^lU zvoX`jS|E5C&tU9p7mXC()7QiHrAdhvLIw{FvbHi)rrr6V9-uDWN#$K<6u;$ zv3nKqn5Rd9bU6_9&SSw#z6O_fUwj40Qt1gK!sZF_;?;JlnT|)bIe?(iL;~m@qKtu? zz46PAe5pWkX&gB?HtC5z^=)>=`D;nsKmLGb^m;CdCg?75}AQ$I%tu!U=qV^ zZmRSJuh3GzD@j&V}xNn z<#Ir9nZ}K}RABsa&59>^^I#a5>7)RfOnor+FiNm-gz(Vci~%)zhsos$G}%V-w@#C+ z$kIv)BgJ-WQTOebXreL#rv-BN4U?k6WDe4ls>D7`#tL0VrAwn`?+Dymo|=R86h`6m zG$zvDfl5rsV%37rOzczmKGiZ4q2$P@-snjMSdYEn*r+GYa`qu|YxPT&tAZXfrl1wA z7Y*h6qE;D%Y&LVpVO6GuDy$9?(_#gtB#~O2>iHF>j$OSYI9R__Sm*U|u(=^pXzYcj zhq&2Mb=jNbv1QApW6ij<2r?W$=*eWtkEdSRL(~e_8xcePXPXYOM6v2#z8N*v^%nsL z>1i?jX}OkZpk!tK)~ghz-P#aosY(Y@Gr|5e%5-BH zT$E;olx72|4a;1P(y*SECt)sY~7J4KV=jcA7*($-G%AcpA zTqCeHD7EB2l&FMJ&A{Z*0x3+9FU??7=Ynf|PeTjLKb@((g;`h7l5hkuz~r-aj3RRL z*KIv!@@QC33T@9)W>9n5i@vcu#IXs*f} za&x-gqZnB)`>Dg%0wqt1nX?S4Cpj3B6-BhtT)^wLI0TxkC&gb+3dw4j&Vi7S^#8GT zt5^WF`tuax($vdckPJg=CbZ3wP(^-Gg{kk)>%oBmD{HSVwAzN?%S1eFosm&+u+V(g<2Y?giux(f#_mr`LY7ASWwA1hH>FWI! z?;;{pQC({Tx3S@iq?~^mb<^L@#qIftEx*-?UvRA`yOx=ezUU%Z+W*9J;^x%G%6`lb z8us{i{#nGY=ui2cv8_$e^N1M3oHrxpCDD+%xtxI%zUR zV_VixCDII^CxXx9q>UuW&@u0Di@AGXXMu=Pfis!9(pktiW0w^Ep|3 zXC|RClG#BfJzOt{vmW~$&~4Nix48xh0QOvo-FfkJ}r8#C(R!aU8;LJ5&k&`s7_l0DKIQwWl z^NzPHhX&A_Ou;0DiC|m?yZORG!a^YPxeub-t z>eLrVtt)Yy{#Ta5oXdr8u>(>N=0-67a~aec`SE7Le(gXYKl2D7Ov7+mDsVb6Uzl4| z!lfwsJLFbfto)U13g2C;|5O=u!)P2>MEZ}^8Ahllsi1A?+N`oOi|Y%ell@)y=nm<=M;svm zbPJU~#ve(Qog#iN_Z?Cj6a7HbT!o))|AL{HyzGihJKqX!T%I@segeZ(chFO58?K1b z6V&_imz zqDjl<2L3mM3kv6Pnnd*$je*@3L1}Ut1R2%rRnB9uydLf|MkcdH+p3;47ct3K9@X$q z9C9@1k<+Uv!X-l&>J_o06Q!dvcR+uQDiXs8Xldh8%=k4@KLUk@Jo6Fd|EUhlgTRxX zFF8L>wfJfiT`6};o|GaeYq2a8ljXDn+7+|C6z4NaWaH3~DepZT2 z)-suoc~fH}z+=VKq$4CstXlH#oEf_|Rwo}KPrAA%dQSE2F%fMU<9jvV9RONb{rt~f zQ{!g1f(Z{|jK)gc zYaY8c;6~O6`7%MkSvv*;;{4x_F2$P=ob|gtt7V)c6AFA+4f{jX%VM2 zK<`3wVy!)DAog-sH-NXAv@K*SWcuLqS|HmGn;OrXa5(26f4!ITU1l{t$qNs8`Xl^Bi+uCV$mUF#*43tL|`B!r88s^7r9yCd+RwwFe07 zP0$|$+LB9jB1u+2z0Xo{=tKQy-%B*=Ec(*mR0(iOA@*QHsdYjtfZz5uh3NYDdz+`Z zrA_PyX|I8A+)J!IOGe_EZablavEK>H>g^ALFyyIe%jKLu7 zn`RL0Ga4mi2ac2dHphD}g4lEDCya6WHh=n5#=SdRFEWUtVs&SG&CB$c9L0?(<+R)q zBD6P&9091ZP1N~D{0EbHOVbD@2Vy*SMB^9How1?r>kDuX7hCQA_zYP|2OXhbuMJg`>(c< z6ch*u^Z((U3@sduo&G~Qxx@?G1~DOtuL>U^G}Xd1_Cqv|m8zuigEkJbX|c3}pte+c zzHU%hkfg!E7QK%C%xYCuWa&6y$lQwH_bI^MxB^}d$e|MBWoSQA2D|21MIc&7p@pZJ zaN>Iy=1&yj-J%z_t068Y*ytDr7k%+l;X?Yiz5)G|wBP!!{yUDuGu^ zCbJ)_UYM~xJcPLVILDzYCX^JDlgy-0-G)^qXf<8L&V7>-yMIVzEG2L^hMFUR%Ys=6 zR7WlfW5Y;Hn#{bfyMv}e7O@t36Kw0vBdwP3k92atscA8U+rA*G*ZmYHU^#u^qD(e&mz#*xteax4rLO1qw9&**WT8`%ej}hLnW9im;fpBBQFfnwqqN z z{Z|ufW+q!kF>wiDbvZRgc{@8NlmA@&Rkw{BZbt&uCxCnO2RLCCFOeWJwIsuO1@~Bj zblhlLDpj*^bhdW&a*-rUWz?8+aXXprF_ zzkKaO^JuOVX-$Uks`xi_sPJ^@-U?wVKqM1vS!94T6tF=vyvHXqYp9$%DsD~em2_qY z_}0nB>^r7!7;j2!X1H`tjSge6F%q5s>+-YZS2EVlX~M#=5`5JSdmy5TH$}o6bW|HY zDIC`TrV4+!x+3AhfqZJh?eqO~?v7D24HHq6c5J4|m=rg@m}Bj^9H#K9{1ocI7xIfC zY5jcnK$sfbC`8OB+l0_;5s{oo$)yrcSIiqr3a@%kh6Uw#nQcY-;KwFHU928PBmrbh zh9Iqp4;>7Ix*=H-5Wo5w>$s~a6XK5q373y9u8*VNX+u)GuJcur<>dfa#DWybmq`YE*gEsL@n<$)p3&SFy?vus#SOq$(B?okTGOIUE+lzeGD)qi7PuaM~ae* zbsL8}m<%hN3NX|qXEP=zO9F0SBWnvGQ_F8`8i;7Nvx&ecv?z!kFHJuH@bsXh0lpiM zh)|)_KM9zAzkU?b%rkTAl9kg|YHBpsPaMptkyg^u%+?vmifR+3+}$*c+!wh+_}4Jf ztA`|>*P=<&&a8bKjCd)+cv0(Q4ILT?PZJ#&1Jbw##WI5Ae#x69EpnM1>I^7VxW&0R z$gg&-fP}LY=}A6C)pzfzoCyVtt;m^*Q!5xDaf>-xS^l{vI{h~OEpEk)B40;4GeJ<{ z*t#vTGr@_W7Zf{s>dZDo1>~>6AJ7lpPxmyv}|<3e;O*Sr+}1}_(bqX3l8jt#Q#X1xD5Ba z;hu$?b47=#98!DF0r7KP0zQbTR3C#aJ!EW`OgPV3Z8Daga&uukAZIR#SY2u(^%#qX zZrdlzN6AzyBefS=Oxp*5qXuTIj3= zmDNXB+;yf2AXTM{>I*hKe{=sO#f3gx@v zLr7Okzpj>vB_%812+5_y1nuYso=9RRDcV=OvMvR`8W1+C27O(_{qa_-L_<%P_me!H zqRH@y@#1Id`%aVIo8?Ly0ec3bLiW2h_xrI#??l&=fqWz*Eac$mLOI2|0nqJp6vGoPU z|1!xkoYy_w&aTQuOojaE96`5LiJUA)n$OQ3XTMJQwRYmb_6G$sF+7)(2otFrTFh>Y z25mdhM`;X-DaLSw$}!qz_^S79aWg;z4T1NhYw-LKu3$>T_p(#|{SI5>)K zx_WvEcnMWo z(w=IZcG3q&Jq%b-4R@lRNPK9)dKnrfnsl<*k&1Fm??a5&-;yOCkvNpw;Bxd%L(%wN ztip7P@a7!fL@AdIv5AveN;J&IDd~>41yZ_o!bJ83VFK~*^=mdKAJAMF$c5|&`ZjJYxDKfcN;5`lke)#7*6=PZXl!dKRVc@uXW$ECY-(@J?XZI;7wu}@_T z<4GQ4Hd)d+m%xmvl2qWNH8;v^AxlR*9=3wR2V0o67ONN&gfL9lJyFIOa9~!?+z?4W z3d56><05#?nL5}BjXDExr&5D;I1(ESWfQYj#O%sX8$4RSSWw3XTp%(lju`+UWEeH@ zN4fgd_a?mTZJ3w8{u|rWvu$3`NEtgtJ$9q!2Bsp~_=GDe)O(#s@_j7teZrf9o88i_ z5*3@^l(=@{;J1y96Q(JZl2HK3=GzOyyAK`3)LDl{d{QgoK6sY*%!@+joTJ`U=(?aDtG-yDw<_TIuXMVu;Ih3pT?ugQYpEa93F9^4K`SxEpnlglfIxn>isz4kaO$xgc8w7Y5(Lwr#wsVh zeeF={(+ir>1{3x7ABgM3#`;*Z8QQ?_EqVDmw96p%4%5F~ZY+=QMZ4n}F0XeTIdAhs zX}Ubp3jpjO%?SaaY%rln_xKV~AmSttg}nJlp!>Nw?3o%vxCP?KBRYABaUz+14FOph z={{+SpT8DGZ5_l)o%vwZkGs8yQWO2aX{g*?uE)-~h1Jdh6R|uk5`K|V4D^)HB7KO7 z{StRo7)fZUz6%Rms#M0J_-Mg|La%se9AEU3z+`736BfWVL@sGO6@UwN zQ%-?JAY-A7K$txyX$xIl83mPqnIyq#Cpv)ka3DGWC`LT7sT2l_uJJx`+}RSsDwo*S zH_!}NS{5^HN`v8P--?5P!2EBx(y*b7<0jc6PiwgxSN}ON)w4~Mhr9uVVatO(^_)$S zL?uC`ioZp6Af2ulZ~;Iy-3LbM0%~ChMozg%w6Tvtu%x;JRz` z;>i8Yz{hCKQ9(Vte9~BJfZ~F}`mfZKzugzW?s2`-A3#ZS3__%$q@ws)5Y;@KN1}xl zLM!qtO)eDhg6G0x$(=pl_0t2h1JqI_vBaldvo8dNbmJEopE^{V2p6a)u2thvPe81F zL#M1t8M8RtoZ!z<0)ISFAYY|Ya`KBlziWF2U#>i;D9myCmz_8#TujGuL5MhwXcSUL zfq10i7ZhR*5`la?wl)mnzd8N-w@Fy4;d)FcM%9gPSgQWKCa!j?p`ZJ5O!_7qMj3}$ zpW3LunQ8>z_Xpkh;l2}c{{!79DF50IQs8kvN9t4wK3zUXR%*K@c~p!|tofjxPsV&M zX!@+Z5-s^5O%^rco-9)d8JIOVxk=e6Ns{@4F;U-b^$*lOxaX=XIL#}|1ej4i&#O`*6X6cJLdV>oah0V_V6AqV| z-Y(dEQghN-|C>kz2wf-j9PyR)gcUZvKCXU5d>D8_G@hOtK4xZWj?*`+J1+#YlY9N? z$@fBMXa9^z;LC<16__od7ey*)2@DZbvyvn0vW*zQqsiLe(q%kH$EM){iz`y66FC({*KV#yeitN z=Uv(iwYq*AHS`)g*Pu1+{&T>ZwNR(|0TaI`Q@$LU#l{BSE&LcpmW942yu^|#Eyx*f zP^08L-kfVI=ucYmFD?0Y(gBxgYG5jLoSHL2bR8z zyjKhm37BX5(&Y}(=gwftQ&cZf4l&Vc4)h@7E1pTd5QzEI@Xh@&2OoE!I`%ptVvckYTM zOnuQCJpF+M&G#nsEU+W%?rTgC| zsjF>H8(R1z+8rZ)cXl_V{>~w@C(N=WKj_~fz|WJ*Rpy0J?oMzNH+y(Nf_buU_?^lS zGIBBCpvOzZsJXI12wL+RbmvSt`D~#WxKS--uoiT>{gGWbA-g6XszXH?&7hOkB=X2k z1~CeEl;(5&+`4>M9o?02um-J66-7s?eBQF7&I%(Qddq501ZHWDXF{2-K?U9bCfpc-BLJIqKiQZncu8i(dc}>@ z3882YM-hIq1(XpFp@DXs;!Gf+uCaa4rKmHEY^`Nz`J~dh0Z42?qS7_!o;Cb(=4FbA zqYdx)!p6!?<(1NWRC{aZ?t#6{y-+38__G7wLuQSmn9WRkZ7u(VV7d;m=SY}U_3Q+u zn#a}6yc%|FZU7h2o*3kb86ZBx-*av(@yv#C^0@>AQmgskOeS;TB2Bfk>}sY<0&{l0 z&Q2fHwPa~&Lic+)Eka+pccX>5oM0)q9;If{4_Vt3c_RdlncS|ru1@n##0w7M>)HZi z^9o%r65^I=TnRyYK7-Nb@FD1?;P86;il;3U3$>uh*K8uq7Rj>$+-1ZGJC= z^>Rs$+qWR`G0b=XEikSUgYkl*Z3FxC^!a(FXpan?2)0tmIk+_P;y05!{IkNTO683X zJg6JSh$fS+!D#zaD)a@#km0Lyv4s)BV38a>Sz2{zm?AFY;gU?4bfG#-8UX$;5hW zs@|w54SI6vS_4lPvyy5ESizZ*4gG7u(swk7s=o94z}8!vmm18}wnHPWY))LS!JOsb zFPquK$?njFytAkY*Y(`=9G+gXoEkI&kQ7V*XDDH;zeIuu+>=tJEoS0yviSqC)M9LM zFzrqO0Etkx>NS=u92rZk*d}nxF3N#Hg$?<>X+T>{C(I-pW?#4A=(0b~mogH;=1ybG0cA6}ktvOv z6YEZ5#@((}umRQ;;I1pTU&DXE`jLcl8~1pxNBw7R@Rqa&GOxtml#-@~mf;1Y73f$Fc6E>LtH| zYo{L7LpAMAi$E849`j-6q$`*8M{335!m3lyvq_XAg=H?kklh!nv1S-~+7I(xbso9`+CvHlD!0$58<#0nACYb^S zLLv-T3zENBKb+g#q9ujBUZ#eFPEK~Q>%ogITt>HdB%UK`ln~&#n0qd0UXrExPC<8n zV%oNxdD%BMS{V$ofGNu+=2W5tfoJ zu4Td^0zYO3;cV)Qk%AuG@9qSQ>0D)KL9vD$G^p@Cn>cs2+dMmW7qQeO8Hxb zW*DvQg0q0}eIlyAwzj`3jqWTnxA zO3+*~KaatgERrc_U8S|MVJsUg`4X>9^DG+`pw$2syD$REKo0EG_za!T&Unz!E)r$O zE|SP+1PFchCx*uA6OKC3QMsJ9*69$?1q27PE-*~a+k2nj`Z%R`EJr5M6-GuJCuNBt zvN8d_DQT8~6?WO{VPkddN-Pb%@LFA@YIk~5T`zYp#^EyJ`z^8%T>Uyh;duV&cPPiy zyKB}WKyHDk6r%m=sE^+u9vH1wQ;XeGoM*G~P(>C7e_})kPTk-gRmM^?m@D_|$cUd| zLt-$V70E^HUE6YqtKV_c!f0tXS$OqN7#iRPq0PHEdtF({Y-6Gl23! zH%|UZ{-1;gF4U>(3eCFb;NV1ESpN!r(-m|!0f^~W5x&}wMd30R+8A`-T@npZEaa%F zUhLABx`a4_VSSkta|`rH-TBg>d2vUwuxaw3B`Qz;yse1L_XAdPFi(~wRPb_QMPyV* z-~x=vL_`r>Kq_=M=kZ8FfZe|-;J2FkNjzZxAL1II@WIkRdl~*8EhKoYKt*Qj3flD= zs*yX4A^K36ln`7!NliFcENSi#n8Igrpu3?sK2GG{MXBOVygKx+Z^CqROg--}x82^K zw-6PUQ_QV29#!XS6PrXc4m{RTEn{!t#G%~7$-ss=3g$Hxf~jZaXKeQP>1aD}l(=cm3V*rnmBMWpmc<7pg zjTK{Svn9P-2`j`DguJqIWbIh^<+v@0thxH3w*=Wc0d-RITwpMv=fq>^F^J$gXHek) zze7d)Pci~;qhF%;Sag12#LJsyH z&VWf8!6ij?r$3S+ADzX*-2PYT5Ii+b%iM&hC%KwPLO@gjM4$DTaA3W;78F6tmNqbO z6@)#dGIi)-teySIK62spa*_?U;xYl(I}_6kE>;Znp=iaxF{IvTn1#=9?I;W!CzFte z+E6`|tX!v~fTQg|>F|rq-vChxUSBNQwn z;Ky^lo?;t7w%T`(842nL21`{JPX4-$m;5uoQ43SaB+J!b)QAxt<^UE6Fp|ql*kMU% z5lQsU6=lnTN%V;XVU4X}{cKo?(uxs*DY(jLmdk&r5*spa7)vtZp*X$Lwf+Y~vSrrC ztV>jz)xuaw5eB*$sz^6RCfpb}m0N&13@Gal*^6e^siRlkZBXz;Rfi6Suw8%R)kd;vpuk(^HH`T@@8kfN5{eC|*p=pBaG-g!e!Rbr+Z zZAg00fF(XTZ^*x|@bAxEsU%8uHLt7xZ#G`*I|#|Cn-VNVUE%gZ;C2&C5t1mHBjC`~ zDWUlbFlx5Ds=!=X7&Z5OuE2cOo3y&Q>W8`wSlN?ZF|#&>Py*tfQW-PvUYP`4txCYz z);JCsOtqckUp_az?oW3MCZ44>SibK3!*&1&U6+DR{v0p>E3K)YqQWP{G_e^_bk*|> ztMG=+%{N`9H`#F^TJ>hbtvapicGLZK9!6_~xJZ>v8{C*~52BRr;Zw}VjV1mqTKOI4F|0djSE5$17B4t&E?Bf4)$}oe^B0nHSCYZ?;Iz6JoK{zY z)337(oGxAiPVagFSTj5(^s*sbxPPS1%gXo@P|$iAkH?vK3%A-^kL*#~bR1p5BaZ?u z-RSg5arPp^AOeF7oMXPU@_5*~hO^w6Tr?*1(qZe(M>w>OTV2umHO}(0Bmx*1cX*JE zFxzX-)^}Rh*LtV9p7a7Ins0wPV!0-(hkw)}Lh)7saMnTWmhni$pJa+$eP{WV9{t2e znLo&;{=tiC@EvTkn`G73rUfR$?P$LNb}vWwJEPuNg89#Mx{aBgL;Z+0!^ z^y5LX+?isz&k*I36ZqI24H0BVF*{vDzh@Y@?f~oo7b4IBqip<KL|8$CPHkQJA74-k`-HJ6|$oCPJh-TeuSjI;A?l17RJw}28 zztP^Qs;Wn~F<0E~H?=BX>^U_caZEzpB@QL4$+A-NN~2kTZXZ-L4Tb?>N$S zcA$&vU_%Fv{4%SvNn=vBJpb>-a&f;JbMD&D9u<6NM;@ZBBU5&qb!6rARYR^?_{&fJ&nCz-S)6?cGv4$--7>+)L2!UEPHYs(1cA7k*h@) zpC{k5#{2gBZ(mL0&3B*<@7&$x=HR!{p>_LxccMeR?LlYj&}=9^DAhYSnq+b63w1>s z-VhvOaDRAE1s>Od$kqdD{KxpJpbTO?d<$|_hD40(&#rsJby0+Q_Za^E5&elj3RStn zFFOruH2MN}HbCKKlI5pYFwo`S)2Jx)o*}7yIQvHeBB>C%24AKRA=MUTmix4u8fgbX zz5GO2djQ`C*e-ikrF+`Zk^ZqHunB7IKwA{6$ZN6&nTBy%uJ5d$L)3vdhht4sC+9La zv#wKuzRRvD>)09rDj}~>lQbgkC-1$cGE@pcn#u3f&-WG%=`}y9LSv+Kzjz(x<j`2NAx4j5%`;eDl%b0d0Zmdl9>Z=>z+3iVb4jckj| zb5z2NH%bp#DCf#Gc?BED{oStpuma0b@vF`j6lBhPK@A7VC~kKkRN1p0d(>*hZwTWQ z65y~1QmPzM&dM$(=6rlAC%%u5LN35gKtIjsye(E&yZGN159zgF;pv?$$Eh#W?M`F* zd6X6qs6N~v+vP||7|W{Y=pjPgYmh?raa_=w5cG&g0D>HrYqPCPsX;iB^X;0HsUnlw z(?m>2VE7iGvWwXi%BuSUxsU(@_2_g#CZHU;69^X$h28r&@brXoZNR&HB*+ezJXv<~ zs3}fT&AuoGGVu5fd+V#HhE}cAz$jo~Fb>!!?7_0p;NjB_^gchsS4n-eR-oPTOrQh( z_{CTcPG(Qr5}ztL&O;fYEahDo$|5gAqEfWm?Mio`*P>6RiCI^H{v3j~VeJ02Rn4V_ zInh~G!Xv=xMh(hzf>8<;?V#QJm+nZdmcEyc`kuNe+)2->YPm856tF?1)nwAPIui7y zQ|S3BSd1Y&9jA|*A%jQn#@SgiSQY&FCp9AkYI$Vu6*sTpJj#cv0)?5>G&e5l=9pJ; zl%ohzP|mq?O;;eHB#=wbI}2x>APAdwg8AQg-a%V1H1P!H*~U|kGBKM?K4ehdcK*?Z z>5b^jO)zT;@58P&*h1=NQ`C3YgWp5% z)lN{MrCw-=IP(-0y8Tq;clb@_D~IZNa~7}a2GbTpuN3{_W${TVb@QOQLZbAA%i@31 zWl*45#1L=Zp~S$VXNfh>9V~fnv*MYv;Q1~TRB*XtI-{Y2vha7aU*xDB~xCn4%oKZu|E9LDnup)mIjXXuVVz0I~k;Z z0~N`3H%aiEjYr=UCurMP314Y>Z%U0((xg$N2w7kwJSP9Mo9_tAu_GINhBbkfBb8)! zzf~tAz}%Iev#IR#t=d(-o6glKre;it${1^LYh1M-Qktn`=Ud2#Cn5_rz-j4aH^7Gt zH^A*oZL$^$qvQixWYu_M!5)3?pvLDh@a1$b6<<|%(mn?vKWkOebVMvouEB!o4$Yw~ zB)ppOxxUP2y9cfnzsHRF@ygc*|^w~SM!_WaQt8qa!E(a~{RmY|W*HNU`a zVuPwOfPoui_vsSK=A*M)zSkf@4GciI`w$rCj#>U5Z6**NE?qcv@VzP~aI$zB<8X)9 zd1mGBSM9=s zX-g4k$ZgtD%xy%a4T~2tw~+rmsfl6=-&n5`0BD{fW#+6^5xN1|^eZD9dZCE`D&H+ytK(Z{>Bo7sSheG$5I7urEe`tCCPpd3D1^uM(W(7m z47ab#sQB2SZMFgkj|!oI@il`2{TXu=57a(nPo8K{2|maejkEL&R{?Z+J5v`Yujv#H zoZ_MZ_z=N5BaZUHIrvQ}LJ(mz9%q+M3jThjh)UAwj72Fq1E4KoTk^u|oV|ce}s+%l64$uOCmQWALc!AybNXw$%Hc`mM*}%A?<@r&Xd4DGn3( zHFP8!Y&@nQpi0SntaUNYLALWAR({y65;rlUdr+vIT zsJEPK_0|c#Hdrm(V^4o@6z#_$B!3p`9qUGlecFO9#oXUJ#A3H#`Uh0u^waH+ASJ_$ zV}VAqqGr6ZA~2A)XryXsqnoM;-MA*wFXiygWAuCl7s?TOfre{=CnL+)uL~1tL$biU z$90)H^eeBxgd#%-71`GQaXx@^2uPfxn?8nVHMMey<~1UWdLhoMRNp40O;)O=LN{F? zMGWrq*EKNi8`tcQamNUi(of=WQe;0Sr4+AeCbbyNml3(K9`1n>84txIyNI<+tl4-pWV5W6AJ@YB*kP#rrBky50%8ZiC9wSoPho}UgENb+Hx zP2zn^hfS(01UhXR4OtnJQdcDO9(I@@{kU>H17Y5jR=|7_LkLr${8-R|B>eBpaM2HD z#_CmzH=w3hF#9g~~sa21*yx;Hzb^0@Ag$J5iv7>U)|w3~h$A zZ!r6Yk>dH#Di=`O6F0XoERGwRIEGO-F|M4#4eY%p<{sIhx>0kC&>90Y4!l2?4tvw6 z%(F4B9YR;9=>Pi0&t$3r**nzu(pn|eypW35d(4w>clo&L3MauXfy5*C{c$%_SK_An zWU|M|t58m&A%@NTuk-988OD57&k4#MLMRqTfWj5d@0!(~Q<8a5I*+L{(sM#iB z^kH$0M({e|3$i~Df+q#>Woe~IT32F)y4-7<5(hG5ZSQi^b=iK={~6vsHeKHMS#Z|! zuFGX}fklV4w?sS74nVSEjDdg<^2{Q!fV%%2NNdpPMXl3CTb8?Qrf5*DHYEUIx(J`s z!>yxKz-P$Z|e(jnH+iRB<2j6{TEhYl%(QE=c3c z*JyI+WRsxgMN5&BX^aB;0f+x+6F^(3o_CK`eTttgpP|guX}4;NdHtNF@qzq2iStC7 zQ=j9uA!$y{9g7}x6JE)Lr<0>IH)?awd7Wax+)*cGeD zVpAT^msm5`c#Y0rse^JtaX$Lp$!zl{@VcClt|-jUYvAi?7Ujdk;_Mh@N@vRifxapX zVtb4_T9nBo=J_Yn=rTQ_NSb=IL7j(jI+L35+)DzGb=DyuSVnsdcOE6>)hqrNdY^rz^Jidz97NPV!zd>>VHN`KcGt7?OKOulHVkc(H%H zCvIEE-u6y^|LD~R`Tzb)`PC0rS%K>9{kFZkXGzdobBsy<&plE1h@8%fbC^Ne9*JLQ zR->LrF3Z`F&4lJK!mke$(f)3`(}mdWG0u3hAy7r{Z5&OrbPtnz+Xn|-5h42jEUyld zNut9!USC^%Z^u-R2FyDnQ}2}n@*%~`=x1_dwY``gtsjc#qSdt$j;e$j1qUMoQXgDo zWPVpXTkndN#79-5rg3E1*X(wXyp4-8IHK?_;;IYyO~=v6c`^kep4AK^$QJ-$2T`E( zMw8MT|B6G<^7pHZKvUh_4nV&(8(+6I8(&qOY}`_vB5 zdmsAp@4pJUaPLZC%%-x!q1{Fq&eS{XTjCGv>j0&Ef)@z-Pd5_ueF#B!szQ-Pmr;T* zY3Tc85L7guq2LxbmiB)1F+LiN7R$Q=e31BCOZ+eY^?Li{-4A;wJKL}Knh4Mz zZzMp_X=}3AZY&-zv+;1TYyi}QV0;_F`1wYH0X+t~gy!^{tB>RUFN?)P0D=Z|5x$R1p@DFnNkVvJhEX3l#YV3YqmDKOEV`>;)Y=h_BG;9SdL8R1^u zFLvW-*sk8P30i{}aek4+m&EpVojAB)jE@twi*I!uh1@i!1?wg!z&hg^NtcA&vc~(Y zB7Nk2Mkmqw*rkQ4RnsX5{yFt6cBML2VSS5d+9()W2txAoh|c^8&Yb0gBc9vRE%A(b zE)ZYfZwQ9$jD}Sh4Xa%~1S=(07i{FNKGNP7Awo9pg%EY$zh)C?K1G}NLebpi(R_k_ zxOLjn69gOIP&uTyk##WA{xF=P$<5S^M9A?#dzoq_4sK9Gqn?B7FrCnDzp@q${Y9 zTMaW4)Qsa53v}({AJ#XAtKG^CVnZNQ)KNx)(~4|XLezXqTKCy{ps|r^0?u!3-_)_f zP-8N}aeK|7U&!^r6!GR-u=hGGnsS$2M3IR#-voup7jJ?Iu@G{jG2~`r$e$WR{>;6! zxsQVf=Uf#BpF@yG>kr{yiubaG^4Q-Y->d?jTsWDX0)Q079qq>7exzNvR6?&vhOu0` z?J8%lmDQ6sYqF1`v`p4umX(4J{vpMx2B5Hf@{glVR%%I#ytF;&J!(Ymj{$V<<1uSWD37OzN7jK!A)obzl^j-;O+nJE8k!JaO6) zXh9urPKfh%?wU9{EwXW3#>NwrUSawePvN$|$YXrmS<2femzdzA=S++{=UG<7`{^jc zJ6dhgkH^Ts*LgfjKJ_U8hE6<;K6#P5(cNveQ<*(oyw62TyZr_5@4y8ysZJjU^1>zd z(_sv5lG5%t@8y!q*`y6OFlvzpeH%Rz=hTBHKy5xcKF(=ZU1`d9ivx$f63BGEd!sX6 zfOo6igz$0?vTQ2Mg(1q*?Wt=@1qlHFMJ*)Y@;n*GZWZLZUnvl%;vLrUUXLU0DEZC> zfA81}b0OcgFdKQ@5Tb!iE@irOSrpVT(hOvOm>}yzLS#ko2!+W0hHcb>8)j`2!mZKZE$H z6{)U{Od5{Pz^9K6-{-6_$lPAjZ3_=W(_n09?PywdI4v=r?s7nVjS*Epq0sQ#xf$%VRm9Ix%Qxh?f2JNB9$HgYDUL5y(-A)tfkfAw_d7< zj8TbAiigG`RM!)X!3Y;C)O`-o);Bv4jT1UgakjFtQVi55EbRy=n5}t>9oD{EINxP zaa!&sa^0E^VmZ(1%zl(hG3jF@n1)jw4 ztSyfY0&u)1bx8HcZefhZ4zO?%KNA>{ffrDgb)e9@*?ZmA=Ij$ctZxim9(HB5oq3ha zFvPp%k~x0zOXMty8eB(L?vh$1uI^-$(+sraYS(?%smUL$NS819W%(lT2dKYMeYdC+ z{$Mngn-{-D&G08q!6Mg7fE)A^{}av1Opl0Lq9O?*dAo`D@IMsh0>|3z5ZzoR`JY?% z82o`~4R5Cb{qn%!FH;LjZh9{d6E+E~AXX2G9NcZm#M#kdPx*AO)Y z?y6)X@orUefA#(Cka`GFjob#OgYVf55xGR+^mh}Q?xJl~QUC)CH8f?(Rd6_L2iGdv zG$mV>A3a&e3YlP>Uz8&AmqFUlC9s;u1Du73cazFg5HPuY^veBKB|e?Ipt1Wg6+axW z#>3)F)h2&|uL}K0!03}de1~1uE)21vi-#lnu{D)wxi!lLT9#hKIT*wmi84~fDz?p} zf_b_sq{WztNEpD`pq%9pdmRl^0~~NvF?rrTw@LRpg-mkbf(klM+on39S4u9)RK+hR zYnT+%adZXjQxFNQDh$M=ID3)hxY(a5bN`E>guS37hbZe%4B^4BD5G9=5V1Pf;aw)g zXgFqW+h%n9t`0+j{s0-pX`vOyvf`&pe*4}t zl-yA-&F9a7J%1HnhDxp~)T^TNTxvRVj4!I^_zNI@Ie4=d^!;;u z2=A2kekLHIjiISgBj!-}%Xk*wJ&Azz)-=LCEDty2&K5VAd@x2d$f?Afw*9F@4fc-b zH1BL5VML>(iXn;@&C4l{C}!vh0-{qp;93f_#t&w)aGAy6JRZ)*vCeCg{G6!d9PY_ocQKk= z4&x3gmuBOScsY{1;p>(vSaJ4Rnq*uK>6?s3nFeQ*NjeLPqdSTnd^G~;9^??H-j>JP zWh@Cb8SKg1wEf|yF8j3C<5)2rYTmCxopaa(RGFr+?TP_kX;B3iw#-Xat_ZU0EpC|O zJuoxjQ@UPUxzy1bvZK8}IH+~iXh5=aNXL@=GdlT4l~=1*S0>a#))NZm@L?W_a~(0} zQiw;UN-Sz5)FVdz8>Xa@c&f$NT4x{g(dVkb&5 zba>l9D`T(ytm6x-^St`Jh93PDpN%`gfTk^BI$DhnS(O}A)(c4yi@X8P6X%7K1`Le~ z5l^P&RZrl=2-^)&Dd>#fseZ-O?EB(|_^C_rhj*}98c9t#_KuL-b4rs_c{Nq&xx#zZ zg*{2nWZn5`e=T4U5o?4FJ`G3a6*bJnWGY|Z8l1w=Py!y29Ago|B@0dqZ0*&XRVXrY zIc|rad(g0m0FBw-60_sC1riOdYS12a3l3q{H2)Tj60?Y4;*P8|rokc%c2rc1zIO~+ z^}5oEJGF;O*f*@K{LC-Y)6W-p(|xnTd_r2H?F+E#$webQZ|~E zFq6a(Xa>h%hD{xVwKvbNb=r3*f9xmFWq9?eWFEl^l1h~aj@uy|9Yaw3u(v=0hu6;3dKcLm8KiGSx)nyoeTUQt8 zh3qib23v7ywvNIMxdtI7aC3?14(cx|L6W3)J8K`)wKksT-#fQs92#kt*rq7;z8C>t z&)I|~#r>6sLgFWzO%`qK5P?6k+Wu70Ypjcy)cc;%#wZBDxR$7{8(!QwN_E_qcCht`x6v5GQJ~R4=1Q+c z;&X>X*(mb)#A;#u#RR{wBouMcm5PBNet{feU`rN=_x-CZ#lM@7*CNP&Mn>xjR6c??#P2*f8L0?8=G;=5=F2pb%C8?wpUNV+FdU$knvd4(nFU7eOFsTop z+e9IrV2!d3=1wSzVUnK5d4jGTaPmAjPsT%CQ_m?1BLpNa!${Y_6c?Z|-WzJgY59VyASBeVRh6EZo%CiY#>59p$umu0*%P&z8qZIUB z#g`pk3Fjh*+ovw;h)GJctbU~ z4?5A@SA{d3tNMmJ4CuRkVMh*PBpM2Qd=(R>d3KgVZ>bhX0g;ko7l}cf10p4WJtG+A zdDkNL>VUpiGA_H}^h(6h;9T{;8g*$2xgZ+IChEaL4#UBDm%ynyF_30NsXJ5mtQx1f zf5kv{g6>^CWHbv|lVJTphiKApwy$dawr)e>axrmZ6 z?x`rI1NEN9Q2MF&;`+G~258l3e3qoCQU#GAk<^K7)|uo>N{)iDWNp!t<3YRtNlWAi z93Ts2Zw<2XY?6wfe$tohm7YK?(W}tVH#F!VM-o;p&5g*|gT>?miJOwt!fQJCl6?UW zk~w6F{%xt+GgRT&8^lwt|87K7D)yG73d-=h<$Mv1FQcnMb`^=+(37wYD`DgKLRwl2 z6q=Q-O(RHD(4B>Z(BMT}0R$9!?gHPJi!6~NayI_x$fwMaRG-CZoJVTNjliNSWBca+^YGplJ-w@A3Ew2SRlmY}{%f&@|() zMQl`M>c!@r*RmNHPaAhVpc*!>zxg#P-gG2>Q_X1m%-T_*<-#Ufz*v(O$vC@oR49xI zqei7vDU{r(s?n&55XlMkOHCmWwKhQ;~7t#SEOwSW{Ih zv0t}m5?#UAlS76^D6;HQTJn;kXt3#rg437)@KwE4cqCEIHmhu!t4uDwk!onbzy6{u zY_L@*A(}~&azO!i)O9`mFcj@zd_WO8N{>b(v;5>a2Pg)3f14-MYfx&JglFs^2WgM6 zl72{5lfJK{@-YiH*4FKMK^ZPhc8%W< zuf?3`Uvq|0pfU_{;&JW8(edFnMD%sq2lq3#p#`xR>7tTG18fMTi=3eiu z-#+iz%t1+0P{@)Y{qM?%CQ+nv1P)RIhegI7GH#I52X|kz?Yki?^c3TQ@KLUk3 z8)inECh0|7l*ySKCL*Dh>(^O9B<11*OnQKp_FS(gcC)kvi=HI?D2lAdHn=R+FbteV z=2`gpSIX}ITX%4ogKGYglC@CTE%CUF9DmdzE@i_b^uN=*vp^k$ki7cvAyJoHh!-nN zhnk;sX%gY9xlWE%a+M2#tsjcVKdk>dT>Nw4`S<=V4{}T-v5-w%8NfDynJTHbP*C)= z&FA5{qn1*4aGyot-m#l5w2)P}Lx^5eJ*wnuKKtu6utv@ei(WuwAeb*TM*cCkt7~94 zZ4vn#K_URUf~-y`2*;cO2*? zfFX0(aFgaN--tQ%*ONZK|CS_tY2Mc|-Q)I&B$;O0F*tmta@d18=v((htv|GPcTVt* zmUe4gJb<@{LoCszf?c<~nbV)YPyovJ16xV9|GUTRhM*m)CKlSJe*inQPqb0lZp`k_J@RzNIk^RDK+R6PzgV#5Be z5)yXM=zyyuM*QrZkU^>pL6zurjyhGQd77c>y~GnPxVa?fNjVQhN?298HfL-5mDsqO z6!*+WRYR4Ls2JoYkx!9F!!5Wae|4OX5PP+=h<9@Caf&8w*qg!PJK2zy@p!*=^@IfW z!^z8|zKT*{(q8UYlKR_!-8*{m!cRWfezohT?Hq5Pyz~?I{_h?>@#Ci-@4a}lcd-BJ zS3hHSZ@Yr|_5Q(8I0riI!_M~W{+r{yO6KAI$qBqJbkg5Gt~5+%?o}JoKRWvBhn=HW z{o|v9TDm3Hqt_L3_K*7&7QB3Oxc%zGi|zdbNo0jTuYTQswMQhrso>MOFW>ZckKR_8 z`1)Y`zxIwLRA2u6=2f-#6u`mW_HTRh0CtWJ59OzyD`n)UPi+lw(BuYKc)0!lL6V$3 z(1glTH8p*C_w4+)xkCS?+pS-y&Z z$?${x@$3(O{NqnQ{c*i}Eg`0=pvnDtUHI1J3<4(H`b937$fIvG(leoxdD! zAHH7OPI7Ugc7zWh91t9V!uzai>(5ptqH9ziddmBvb_+1-N1VZ;6=yoT^5 zo`%%_3L;+}D{XeF(%kug_ExZs$fUMyZ`ab@#Kda)c6LrVtaaAs~fbV06`$f*)FxtiBhZZR&dtWcmZqRb3`V|X%i z%@xI+JSzTiM6p&_uo+=tX&??a>TsNXZ_?ondrI_=c8?%z0{E+xvA>Y9ArWcpuC}=Svjr*^-cy5O>fR|1H#+8g=K|`m-saG# z28uRF1RW5~1$}3lfC0PVLzj5|Vgq`@Ef8q)wNQ&tcZX_WeTvIava;`0$LHHKxEXWR zts`vTR^#^QZdsCZhHr-bhA}1!m)}9D+!@DFeh>Uwf?JK{3tOR@$0l%e;wfUa=Z0wq z*_pJu$i1qarQ<76oM)FQx{+wt$3kRjhnWC};6_q9&Zc5kz$~sEez=Dm-!-K|VC%tQ z@yPQB_39i+g_34s7@yA0@YNX%YzJA>IEM}UcnAmF;N^*xt5n$H{XJrS3-}HpXg3rZ zlgBt9B5%vCXh+br7`^g3UE`4?fs4xo_6s4p*9ctNhVdwxjg|3ul3DLea1K6=8GI_u z8x_(}PV86NEH}=vvY)kkGqH(e69A_~J3gtBO0(^?#j4}-Nw1ih z()<*X{8^=StR2I&16KpGoqh&qE9{Le)%Xz7%CbinZCfN}qT)_m`lrr=OEP)<<+CSgvS0JsQX0%`R3 zW*1#l9oj4inH?2Ykv2d{F_p}18hFqqqhz4Zt>yamhRv;J5Y6?BpnS!St^yZ&M#R7% zbqui5vXDphAU(%R&=>;?z~9k7yq_xFpqPpMpeljqSMkEm{2o$cnXi7wV}C^qGhmJn zb~ae>Zs%vS39cx&#bZ3V7r4Z^66l>*8Opu^BKNRgBiq5L&@@95T z?NXFptj_nL>l(4>`W{}=7zRWqu{7hy$>*4<0y*9~T0|B3{>)jUybhI(ti0Wv`w@^} z!0}qaJ*c!7PBQ{(ikpP~+BBe2ZlWLN40&(Vk%{+b8}*Rn1SgpV%GuM))$W4IoD=n6 zmzldD-$B=H{A2dr#=Z94qMqCQ9(r!`AG7B+zkbi%R~LNf-^P?%d9dVeVactm*x)TS zRvhmB&$HoHR#p}paOSa_e{IvvgwXX2Hui0Rb1{0k@g=_e>J-9co1I-+FqyF+sE$*%rR;+f@ zYLUGIlWUV5s}*)^yAm=!7TXOKV`1%?sF3Jd3riRaoW8r?-`Tt8{T)L+yT~v%w${-v z;N%^SuBF}U5JUye>Z<5Y1rK*b-nDZAJ1qKRu6TtjrAP>uc{H`ry2?z2-qJBz)Iq(D zT*9J?JTb1pu*_zl+pqU^_=hKAFFnW0+;~A>0hl8efW%`B8xw{hkzH6CJcm&VFW~^x zDxQ3=>UFy<)HB3k$Sd6m_TKe#b(-2J`V;R%xY&M?4Al*D8%M(li)1R2Tvdhj1uKVb zUTin&xfmUCYSz(ulNV_(2ED&^Pwfy1OD& zUF!CbtJzk;1Ux}q-(Qb0DwQUkHFj^v!Dr@VN~Q1x3{&++|KhL(%(=3NFh<)|?l+QkhSWLg*wj}2lT>b95`Ys_w7=vpg zZc0Mb#N;CGIZkSdrN8Rn$BZvN9~}29Lz;3a0}LjuZOluU>J6lC;p(QqT(5y_7-oP| z&9iN$rJHj(kb9FYoJRL|_g?k)U+i!Ha!?bha$ofnjEct`JTS4kbKq?!S8sw{L`bvA zmSbr&`rdRlf+)J)E`Jz1TogXp~J+JU*( zNjs?uPj%|9Z{4rtA6=Qq`E*$6;>Bq93w));L7P;u;rKv>*O*$kwGgBjr`21M4UVb$ z5x7bP=6Sf=Rxp!u`c(iurr!?vZd?p1nB`ExXu)!JF}G9ZR z+Ha2T4%u*=lAtA*xXp9u2w8O;fNZ-;72Lwp0o9~pILq=YmH!2&)pu|up{KKY+xy3_ z54KMgg#Y#U=*_ELyxaPo z;2}1(oQFC6!ICF0_g}vk=8r6Sa-K}Xp#9@FJ8;GLy#dwoMDW)^-upgdG2xT+}|sL@zoJde!UN-fQdTW%RwQFsP#xDGV;0ut#b)tSKD0A8$) z6~}88P9T><0@hi_mVJN={Posg9r;;3UQJ9Rg(m>qcEZswVaC^DgW zhP~C~n9_l=)~a@HX{bO5PNWUq$2Ha^T?7`^;LyA@mQ^$u#AK_cS-J*q{aoNRLmffA z%(5HH2#Zg{RdvvqydNp~)m{qwexyVV}g`uONzgHKakz zzWCP{w1Kih8p+rKxvFg1XcLDXo6sMyn^7wey2u^x$TZlEF~oX%GA>1|v%O-WjT@cm zba11=Um0J9eK=U7%EKSQLc3;-au>Ryg5I>9gm_`6+A(wgBiLI#IID?wwjRl#cBf~U z`@VLp^776(*8PuIXS^<6E-&B7lCNfgu12u?YCCp6{xCb}I{RLy2m6ftcV$!E!aZ2k-#aekJY~rbfM4oYbwVE_acRqSR1Z}m|ka@4NNt4s} zB$&vLpj28~wMcr~Em*W(9wGZHPpkg_<{qEDK04WlNQ3pqXRot@-j)F=;^2Yfv-%UR zJM>doL{PJ1G>)awF`84L{us>xn|qArBV6JbjTiNf(cBKb;W1iODwaM*b5PVAqt*6g z^%yOP&O1hPVD9x8Z4yVtET4ObR^PTozAzQ!y~cPK9?sR^u0Oru)ipc4smcyJz2TYe z=}oQb2%Y3`s)8puwwr``Y>$BrD!XArMD^gn; z4t(HP#FZniih|6oD6HzSNT5bz0`NTbSczXtvtyC!`AQX$wi}v+y8g=-6WdNB+PoH1 z^;2BLpgYYwb^2w^X_llEc5ImB6d8ztip||RWzBarRDc`Dz^fhIK?BdF8~aICT_Jwn z#1S^~9Fm(Ec}@>YRish;77sQ<#$KrZ9b?a-p@FgI!28A?&ounn@{8e9_3FE_4hf=g z4ZjeGXZ$T#lX@a4nYVGR`Y|knQkFKps2TiofrtNGn7YTQ|TjsnH_oY83puj-0?mR?3zHx+=2e~VvTu$uem`Tb%W zsyfDczMYD2#lp^P8k;wpn?R?td=w4vR9OO#rP&SF=~!x8R3;;}$H&_Z5o9?gg^H#1 zj^Dg`yZv8*iO)skZTIoK#V4ZSGf{_M=P^dFys_M=sER@9QMl*mh?fN69cVTYfVtg& zH|DrEicI0M5?O(RsV2!PCQ*6bi=;ZPSTppy_o?@}TbJ`m_k4v8UBREkx)+-vOhzd6 zN3kKE5P{P~BVaMFf>xL=YzPae$(Opz8N#KEF{QqOvWkzm(>$8wccv*TDDOoprrSyW zeHlzhQeY$`med*}iAvTRNSME<=S2hM1Tk|5NqMF0-McfSJ;e8F2mPk%`o4N!Q&n#v zxpdcvf`g`BA~;wRm9XF>Nj?2^P=AuN!?rpfbMU}PQvD&%9iAjDBBY%{@u-5jrPH^wgS;vCbj&hxSEScsQ?PdCaof=N3lMA=AS^^1B%)K=U$+t;PC5AYSI)cjHN`z5c_z} zsOi0)73Y14^%}IW2Y3>flx5%gl|7uCrIr?%K=Op1uK!dV4MupX$@{f#q^A#Vjk~NL!4=%R45m6 zdQwjd_X(r?Z-buqDQ2g`5 z7qWk4mee^??BU5wjr+-yi1Y5r6Zf!Loz_-$4T$k}Sw@48d}Lfd7i}qpvcE73RFJP` z7hpS#ret_{sPqo$B%1209PQItGKR%K*Iw?E({8Wq4LVJ#f*W2w!B7R>{F+<-muzw> z>otXUW3bXtHK{lERM1V@Or<5AIKyjcjWE;tdk%hul5e)uq1>CCM)^lh?qPNj7#E<# z1a3Rv285KyC@EEtczu4aSP%G?mt*cwm*8>qW zPf=m$7wvdQo`e)>wrc_!C%Od7fBv()0PzH zI3yEif7{#HP|`X}OSwLYCKI4GpwMA}dMYQIyS&d#5)XApn$hk>gl=QA-!0};z?FX{swcyyBt{nmC z$f}a-3dzG9Y$dq<3Qy?>c%Nr+1>5C+XQ@@jkW?M-*zbS&0+5gY`{>o)hvV(t{Wm8I zROeBCnv^?9K48io({9H!qDEOa7+x)*&HcvIY~z+`l_rjrcW|&aP;l4_EYs*bT*&Yo z`D@XTIF3iNc+8crNwIc78cRz;GDn){ALaT*yvp3yljh+E1EQ*kj(o89VvnBDotC#a;?S<#;OtQn3HnN^!Hh^tUY;ErK(L2 zRVA``5vN6#7oA0R=K|AF(TRrG+wGkbYlF#woJXUQVl76n3Wf!OKq$0CMtKsa!|@gB zkwUZ)P%W&1oCyt5h_(kI_Hd}5%F1YWXHXWM#-oc-xtE?rXK~QZ#Vpbou03H)fngTY z9*46+#HroyeaM1_J*|iZ8K-io@gK4y#NQyYdjuo7s4o*E(Y4h{&R)jAWhoUjH``?Z z3d<6l=~Ia+Q<&UoB?C@{4ROCcUfw!q<)uk=YYS}*)N}jn9G_f^Ov~n3XAvdd4X42b zt(C(&Z(u|F^KP2f$7yeY7EqI8Knny%w4*sUJK{C&F_A_HYfrm>F^F^633m4qaMudQ z9FEi|8LLejggTASql+Y)GroP>6smCadQlHL&P88}LN&QBe-hri^goT(DuuHH(;kF;YKwjym zp)1hYKS|r~l={zlNRh4Os>paU9m9r~MX?ji*Czw=U-j;_M#?tSq!gZHQdW|QECBnO zmk~Th3@f_n6*9*wtGu3Fos8N7XNjaFa{z}`gRPiDLOaJ2)D@$=s@hGOYAfFw-t@MH zl?XQ69j@~8$&-PL;mH%b^Lwt12en{OpoMxRlRW6$R-eEvJA~5PunX9vpm(zq>@>-$ z-AvGLU0=P-s>1ZL;M?d*FQs48i=(hCpa&~2qbpiQJ17-TfAV;GM4PdVSQ_G}TV67B za2};<(l;u}>?ZTFm*>e??^m+OG;AdO1lz91a55&#)64@=f)_BEC^|mcdyD&2FY-9P zZUB8WjZ@f+xLyoO0^JaJ?;;w;7M2t}%yRJn_kC&7N`(X!*;Ma#;I6j+JR%>dUARcI zJSSeO-Q;CBV#+MTnI#Gt4!LC~C^Tho^I0IVfS(?TA7DzQlm>qIvIlJXxY(O}94UQ9u%c*QvNdp^Qb> zsj8=m$WKXs7qQx=-K9lIVcAAd47M(xm)GbZSPi9J4@ZIa^M4ZtLm8=P@YTCml|$d3)jEWY3xG(O4sc6T#9(6rHdSjcpgPv zaOq|)MKx$#hoUf0GcQR7Xz6D1aZ%umgdi(9GqKgYs+)<+a)Cd;;S&BQzXP(wl{v?=IB$Jt3 zSwgT7xnQGvPPjcS%gxea8ePI}5iiLcrDkdTX-YfOd0foKxSynG#qAp0g}#)vz-#X_ z<;LbXR27Ogz0$>FS6Z=K)#^%xs({O--;u&_O?H9lQ|>E$vh#9p_szlHu{-y~d6#>t zX~bQrSvBfwUrP8B_hKPg#x43rV`yg_N4Z{cBg+585d>^A{in0OhcTu+u@(+7&ftm< z?5)S!!-%`v5!WkpxAK7#8hmiD5*&agaZ5aNE(vmrbs+9B zaU+?ymcCld$Te&JVjP`0dHT+R&ipMJ&w`~5(Y5vJ^Kz%Oy2T^cK&4*KU_Nu8mrZ>P zf7K0jXXCex&FdO^yDsHjOJ~;*)OD(_=!aV)tSXk1Qrcdom-Ve@KciQYoKlAc@--zA z#&+HuIHZ^XtIiCR7%<{k&juik7sM9p-~gP%ku9&o4adPG|5D}9wG#)*&kkIAz4@6z zc+ZK6E&lj~FEsJ}73~Z=$uS{IrvxV*2qFI+gT{XRhgoQe)@nLB5Z7eMGSRZ5A zq#JdKLtmR=>x%t!7=H@&k*+%2OAbb-w_IMhy|(IPu6DJl1C|x!!yQDGsHWg8B2Xnp zvl0XWqv_Xndo-{^RyR|1eRpo(yOalIz-u;>g+1~nD(LhSITsBohQ%HA`%)_og@AXv z*WYf&ceKS)%%Ohy9hXIipUrzp8;J10sbe5|`Tfkz4Gvq#m=)1ktWQ+w5(b|34C4vj zvBHymbe<~WcG1xr`R)O)zTcxV;Y|HCKPG^OY2dM$spLOqK8Jf2zfcTq^KMNU=NRBp zpP!(jGcJJEyH}i|k5i`nagJY$XavcBSXWCwRV%C;k#3?`uV(C>z9FDU6tuV6k$u=z zM?qS?+pHZOm1iUj`|-H{i)^8RdLBFt#}|bEXfarDK4ch11sQ|V{K9CE%dCH2CsuXp zMqv#FTztArSSsqc7SL19!Fv3e)8wM?*H51#suZDUme_I$(ST5IK=ijy{(2%_93A8RKF*yJyQ#47)>WeptKWko%rrjxzB37V5tEZ@?Ac{X zZ<7-Q#wuykZcsGth+mR&f;)*LeXj}KL#6gYFH7*YBPV64?0RBoWSgTZH?(Bf>+^GpM}vcJ8L4pcp&aPJdDuolh-BX}3;p1^b3;yk+)lNn5U zRE2&YK98ly7j$DOhP#)?<&zl`HQ<{7ZM#gxFewI7geq%V#dGSj z|17U~3ved1bSO?uqEE?0j*Y+1qO^pt1+qsp-F=K*fi9U(tHePo@SY`JPmQ#nE-b55 z_r>5TpJ>nXswXn>K~Blp6>v>mRSDKulu+e)1c8PolMH$4voTWcqXAkqbwmW+b4p6n zbC!rKSGfxi=Cf45-Yjqn=m`th=VUS~&&95ZuIUI=A(Mwfu55C6cFKm}G#l!QTxAzT z<~F3JtLF^Hr;+16i(LafOyvrT*3{G!N8oTb%L^SCC0CIsz@B67=hdQOI8(mDv0U$> zi)1Y&+I3o81+&!$nP$R_=^$SrrYX84BnBi<7lv-e4qJSG4)8RJU?fHO?JfT~n=PW4vN;Tg+Tk?#V6$zT zPrY3>k9M6&s%!hLYc);R44TWX(#XRDcaOD~PIJ6b45H6$l_RJoQ8hJq|nXTpz zrwYZ`xj2lf*b-Ws2Fau@381)EzpkAfj4J)OEkGL#9X7 z%Yke?6()LYtw1u6Dz#dc-0|+Nj=FWbh2afC@AP!eeXvGL8~}d|Zv_iGTcC=bRq#A4 zT^^P$4@;MarAxD=%Yy-Z7Y4M)OHQNG`HY|F6JY~ap(15sH-T%?a4j7#FX8QWh+3!n zwg@`!i6tIb@%(QjK;j=U68URmeDD*>lYf1E+7iUyH_8hv84y zW1fu>wlGw|uz{g6o7xTHP7DWYHhkqEcQ-XTXcE%K#W{ppBy*z(IArUIPH#8%`B_}! z;wL~gmPPvI`t=HpD_FP!2K(TagJfxMKOplT05h@NG%QMI(Q4w_17jq}tW z;zxOMTE3<{z5;T!h?BfgO(&iO&kX{n3VcXIsL7WxT>lsLbsI`hT+xkSV$TYNePfwg zKxS8!0^^5eg@jbB=ZW!sY8u@uK^)1 zdaX>IKdfs>axPMHSZG1WUCmZi1yr*Da6tdWmA!jcE6;Mtl+My3H=T zZnG@04M?p638%ZS(KeWw%KHilyOdk;Kjv)GzUc%~J9FH3ga+*%Tl)wa^DwWQJ1h8V z=FuiEligEr=cQy%k6)A@+?SX0wHe<@s-3&%iQ|nVi3hq~CXff?X{evtVspJKo~;8Y zV|Vp<_C_K5?{8bnr9>`zwMSN&(Kg9Y`<$J|- z&8m(mlNTIMM(P?19m5wExI62v+r8j-2gm8^$=HmJS{Lp<*X%kMCB&+#K2mzKZD)Fb z&^ZS;L@ajzZi+EM!nX{uC$$L49*4wMw<5LEhxm%SJ=el*L~-u;3xU?|3i*oo%Gn4yvv=mU-DE93Q7< zV9rC~9WttrGB_4En3aBgSO`dA(kCc;T4<%vhxCpW!}mS)F=PXsw6v7DlGgO0Tl3IZ z{Q_G(&?&Xh(40YPq^_Y4^-W@WTK!Z4cp-ghp(B%$6rwX53MHl_NBnp`g%s_F>wu+( z->eC0wZ|@hM6pbZ@mv<$(tlj)!UkCWh+ZBMAf_7P6;Wa0}9Q`f=unkWyGVn z)zWqZEz4m`Y0icb^`Tj`x=%>ol}SpKv;zWTchEPxfwneOcuV7Drix;KW30doO6l|M zl?KrZtZ7q_VYA5+G4Ae^XsR`CIFMO3+SQ)?6EM9iO;+gbUHvLktj@11?Ofd#VWX;Q zi&##E%=`cstKC_-r9|wseXP?191S)mSRe#^_qT|acv)Tb>E=q$8o*H#LkDm2@7EcsPO}Heu z?&?-q=E>=-#F>ubRntSxm~A6iJ8(4k67wi(q1y!8-)A6M1wSk!S~LN7H0RSuTz<~) z2Kuz?wE3Qlg2fdxt3fI8iq$~r->cQY@+GApoTPCwPWjyp$q<$5~KuCxa-!+2KKwd8Z^*kY7q- zb!fp~vmxAA?xNUjHP@9i>p~Zk!okYsj#r>jePd}>OX^L%R6E9@(~g4I~(>bM`ga?VoPsph{u#~qyv zl!o0{cB3*HC#mDSvJGu1bST@QhQL?c)M8GFSdv0CcvXjS!?AupI)0#B$H>MTJ8g8x@}?&oVHl#- zXq3y6TU%A5)cgqVYPcSMk$MGU9G}_!45b`UsYPZp!k}U5UGh51fOT)0hd+4Kz@$D3%_85F4=>do}j07$db;%BCd=}m> zQV(O|jvbMCi7tX5HJUe5dTRqNmcr%3JJg(eDLyEHyC%pT;%dDt3^OXS0ZM3z(FED6owYt2873wvkPO*g>uxL$fy)G=phShgs z=?0ZgRI7eq0+zGqrUqt)<)9d{4yaC8v?PFB<5z`&Vp1wdNin znWZ^g!KSA(a0y#`T|_NxVHx|>&rmC*G`su{FoXU!!>2!Jxm8z2o%PgJ7ZuXPg~L#( z*64uOtgxx$zKfTh{vp-f!ws>A8)6SP#2#*lJv>(R@L1KqOsxI;u<=8iv)Ur~#;;f1 z0~t<4Mq+?tE(K0O15ghyS>5+bR)MwBqLbr)vS+TUV)yXO)jd6P6nqs#j-~HRW8ix!l^aY^Z?~n+0nI#u8(l-G=Aa)6 z(MG^&o?Rrgl$?;aCU@eCPQh+a&YVT(8%332nh;ylZl;@@aF)o0KoCnvziS_3h4h}B zjOTZ_ivJVn@NeIFeI)G$y+;KD-A5V!KYMT6-Nub13V-&TGykDS{t!x`7{4U5b9Gny zgqG-7JGP`F((%sv`s%dEmega4&FLm3D?Z*o{QQZFdI3;Cqnk~Na^l3 zC={v+>!zQEdS71RJ@;%3q++jZB$T7U7bTbfpKR5r)qAs@$D=sk^p}0_&B^a((W|+v zz%+n?fUm}zlXbHTg8YoUVj{Ld!LDYUXg#q7WANybkp*->Y8Y6s*c;(%xIuNe!SBnW z_BCSSHx@A=L@c=6FMBt4KOq#huSUTX758a@Xo}F~#+MUKA%n65C%0Ait}4WQmRp~@ zgj&>|tJb4puYJ$79@4d2CVl*)?VOc9+V(}HVC)H_SmXBhvyZM_z_*OA?Xs@ZrFO0m z4h!6cd5;5O+La>iP7B%DGzxoDI*2`jIVBd#`Gj2=NL^<%qYbgN~l zt$^0q_ukJ7KXK}^xIKYtkbx&pKWHEPj!oZjYrYBNXieT%=Un+b%T0gSLwG{+$H6|^ zI%P*P|E#sp78J+eXMYVNHgg@arjG4OpgNLxjha9r zPq}=>5-r^$(c_SDo~PHU73{(3M1Ucw^ck0OWdf4KP#jZ{u#N&H#7Aq}vg}$MWCs0a zO|FoKq@07q&HuW+Er(lS;qeD_hjkVTep%Dr5>Q-EsCFD(@%w>D22`HJx8!OH`pGiS zR?bL5D`@&#%YZB z+%&=C^->W2??wV|DZBz7lbIi@bj7m!d`vzhOqZ#UYRd}Vr$X?8vrfuKToS@cz+)Y< z`!sq;7*1TdI;M>8lH;3B0-2NDI{aL)Q|L)ei97!pU-D0Q9Br18Z`=0x`8kLm*u3Gp z`O^8|Sy)(_x|ME&m2TZiGcq}B3>2C`4q?fLTPM~x!L_xV7sdlcr)pa79e-O}VVY;^ zXg5m}apZWraXpEzH{Pi)kK6iFp)ix+w@2n%3|=MPx9iZyVwNO1exs~Y=5=|2@ImIH zdysX+b|pWH9ZP;*fKXM#qVu_0Nk`Xk>Mm6ZV^bGY;8GR;b}&g|%h0%O@aqdIS3ctB zk~kIei&pQd!t0M9wVr-XsrB@;NUdKyi8P)y5pJs5sa}uIx+h1T#QG}x?k@X&k)Mey z0ijq;h_4d!GfPZ!64zqVHyef2?&X#2pR%%=jbn7x_N65q&(nZ+Wt;r$DBE5NF)h(l z3BO6q4ImiFt8F8PJW>H>z;xYF{}~sZQIbsevgxfqINgr5`gQ607O);Iy8YnHPSw=x z*A@?Bd)t2N6v+%m(h{xP&Jej#fA2+a|Mkn>${>L+^S(LNrH3uuV9V4zjd)j3TSuhZ;AwG9mr`roA_Lt#zD zsq+k;41Rue@~S&HI68!P*{-Z{+oA=mkeFF@q3R-ERWj3JJ*6$+yK5e?w)XWNT3{ia zsC0O%R)iX=LJf~_%@moiDx*LqrDDB*K6w;<7d`I$Rc}yLDuVtF_{TC`-Mmi)OlhTO zWNSv%Z&b-ws=_TCjAH{WN?f(Yv~|$R%8M<$bqlLdX{Kh`P)@C+shDczNtLx4K@Tw* z)fp|nP)8+gC)`Jws9q;as2`OINSz9@l;D@Ic4A@a7ze_B68-qmd$Ih}=N8)ji|I68 z{a!i ztlw{Z`#os3`sP_Ypny8^c!rAa_dm4V0$6KUvH{P@ZFr@$JZw1xO8HgzSV5KWVBys; zgg(`ld#dZ#vxk5UIg`?CsJ3%B@C)5zf?w*M4N8FPi`_$nEmeA!`hl^e=iX%8Y4!$P zZ2rTOf9w41@uMI9_P59X_HW-m_0ekHR;Ecl@yc&$2;V<_tiU|^U;p-0{hwFm16JAo z;rmB_?L7J0qo?10|LAW||Cd*35??Vn_S50)@5$}yo9PVhqfUQ#>Jtc80S)Kr-#ULY z|M)P~4Ed;smGzaV!*)vJXhP+bKq%>ab(VpevJoH&Y3(I&L6EllaD&Q59(@^tU(@FT z9$5{e5GDeMmMG*~XLc%a0DQ07`fpeNI+|Cw$@$F#~o z%t_g`Xgyl5wnR`)Y7Y6H?sP(X{37K^(f{g7p~(co>}OGbn5R<+QNfZW%s8xK>}LeQ z)jx3MGQ_av!Nt0H%K$1J)l7l0zM*AggT8Lm_}5|&>XU}x#tM2iGue}O9ct(3IJOEM z)W7}@#z;3ou14U@cx`EW2}369#nJxJj_Us=%PAqrl{(R9BOMj5faGa%jb5^PK%GwI z3Hv89&S>8NSJ4Z{2D$dbN<-J_es|CX-L|8LUpTOew?XjlOm*m}>BJsU*a(IGG;G>JicW9IyBAa6QEn1EL&-*I5k0DSQ*c!3Ap|^uca)(bG%zrs z4!q;VU$*gssX+}y`DI+t&>k(a#Oc52h{?>0V{DTf8|YMZUS)5fQtm*(Hv!rN$uAI= zyj=UiRf*;4EuYhoKJb#>$g#Fn_>I}x!FS0E)+gXIZbb9(hB@OT7S}ZL|;&yfuEdm!8GViTvJmIH&7UsWKe-vS;VhK15Lf*NHSuo$*e@vVmX&KU=5d&S#_^xtnEzpJ}_Sp<61 z!mYGa3as#Y@Jpk}cqabv=#eZjXbp}1oxM?YzI_`he!uL{%GS{b(N?tm*j&w4qd$@+xuHQ}9m6+t46% zWH_@iKGiw`h;eOFGZ8BVziE6cfPu6mO^dVUuyHV+P9ZSJ#QIFKQUj2}XhUp!@NoN? zQ_v=*d%BKOc1hu`M8Kll5~|~4OFOO!u*7bEPK&vksWl_k)ICylhD|G0REVy7+V-xf1$+c~tIQ7)k%E@e1r zbV0qZnU5J^H*#l(ZuZWHU9$2-n^+|7bq%P_&jkrt5BhC;;qt}(P(|63{I|IBDfuGoTvRST!?NuXSG7H=w_Vz_9VE8>2`}7T z!eZi}paJUPq7i`> zV17;7EifP+;pS@WhkG$!!AkAp5?-KHU(=kU){Fmd8B>gT@-V#SXapxmJ$QW&ZqumI&Ez_2L^rX%bthMX^PA6qN>ULIN$~B zHH`bERYnH8sA@y%{F+p0?)?^~qNI?mzf&YLnq~_!Ptczo)uNM*I%?)^@9T9uhR>Zh zz3%bR;pvN`m-~9X!x71LYFK5NeyLHQYc6Qqdw?q!^?euv^m5nqy{_jHcQO5^%YlAQV4k1{a%C*oio3RpE8B`1P+*A$^yT=87DJcifkB$Z5xqs4dc)~!Jg`uVLMKksj+>uL1f z{|VEg`0EO5w!(TpclUeuc^XS3^?8T8hA1h((N#RjlKFLhPn+D&+|M6)y;WoUo>!vA z{nv%qY#~1T2W)ny-NXIUUVpE9yoU97qT>}xxf`@MKKPm7s|FC>FdfH`wOW()GRxjO zF3!5qO?*p^*{T7@?!M;dHrOfe$B&iQoI7vgTMFLcelR?j;sFo@bZZ7duZfVyU^+BC z7Y%y-G1zPGLo%Gtl1+T*03UtF)S>uQ_>51I8#7%y%fk%)ed8H9lWUjGcQQlRP1?>13*!1nbgdT2*(M{ ziQm$2PiYSAGM^L7Rw?Z_AZi?QpW>8ev5gY~G5JQ?unT#M&lr^9p|D~>{ zgUKlQK#>f%tU&x<&BwEJD)`1*VUWs07qyXXTxj?#2oEy(*F1sr_7KxTAY8NJq)$V63~-q2|PJCYM18QhTyPLKu6=|c1y%1 z-$~WE5%LVX3+Ao<>s<%a*HXM5{#|%o*r7CQ{?=*zPA^SN)xQch;{3vi0Q6RHb()$6 zz3D1_3}UgryZOcZDk&$ds-eSTP*sV~oliEn62pDXm$whipA=BB;iReZv>pc+&(q1M zMNAcK7~xwUAMEN6%b))vdL-m?^?+OiK-j=WD>S?|#S{>Cs`WaI6?c}pRkhk1YQO+y zbHkPWcOOH8llmH7eUr!2X)@{(3)xMl6e_DVJ$FKul&p_!dK?2^H_JhSX zc)=*r9z|PG;p{X*>%go|dTrp1RxGM%+193Q25n6-4uxN!oR5KJ7-29oB~%IUpJm!%uC_ z>C}g62Z7hcr_?Ld0FGqcYr;8E@dfvB0_qW?04h=jAHgpik*3>YP}*a=IHK+7u?aq- zHI*l@llxnkNmf^m>+_UDxy<@Hk)B!T9AD|TDI>R9gT%*luCmeGCW)tYY0~kDuv}z- z$D8Wh(H~wW&?bLq>T&#TTQTG;0jB!#Bj#YMxNk9B(ltD4Cj+&X6wJOAi5i)w`X1nqqGeQq#AT|CqPu0>);^LMcp4&0~ zMO)!1bq&*^`Rrp;)#l?)5Z3p4byPF~E^JVa~Ftg|=XZ zwNs_YHGnsT$2b&7mcg9(4@XF;K2b5JShNOs=mQXiiPlN7z1cTX-5{g0sChO8Ji=F#(UdU2_(CUV7;C{4{UxriyDZ;B}6kV-l|DpB%mSP$hi_sA~ zb(k(IvPU|oG&Y}P*eHp(xPXD65@Pv@c6-xGYg4pN@9p^rU6Uf1O z?6dlyd4hHh)-7NdTD_2l2v9WKeU?WH(g9e8WCy*`Gbwz6i6ipP{ zc>_%KXYm}C(f&M69O`IVcN7&V6-2g#=P@ic(R1u&Q#hvzXUXg)QGGwc`94M+Rz`}4 zXH-FxY}%A0Rr9r?+*9{_L1F0OBpIt6o_srm>9#ZdO?xth;X?8N zB}I1*CQ55g*`&~>Z!qf3(qZ|xF^x}B0qppqc-J3gxuy|eHhJzn(02+;I? zahy$;Kyh>Fko&En}K+K__1iaiacaE&B0duNqJA0O&O&0MYPGAZZnv0;sT5tVKxB zuxhuL9^@o>0q07*Z9O*=PV)S!xUjkSlF4-kUKVdf8`uW44?9ZTZU-%lwk==Mj*_$a z1+X;e&hnDhLd7bbSso9Qvv~Mk?`a~ligTq(T{yCbCZu?FHpe}yn2%?Y+CGoiaky<1 z8a_-xacWs~Y)VR&ksId1b~K+%VJ?eFqW&*|{8A1%yi`kT809*~d=iqCx2mHI} zNwnFPuvUdcpe!V3dXLoBq<<~JmmAd8&PHhmY`aMQWP9cn<`gTzO`i+4uz#45EpH~T z0?g6doZUMt;Y2?AC3YXHR+Y9MAvZ1Xr9f8#Ui2PG_5W$>Q}5^A;lMR~#!8@{pQpnV z4ym54bDC#EcpzP$H0kAfY@X24N|nTdSRqAGH`t%;V@Upb+n75x@w&6IjA4mm6~ix` z9+_+DKY#uc0SMW+u!OR-;&(*qBW>@Zm3@kp_Kx;@eUrg;qfcK?`!9~Tz5Vv$p!8|b z{d@1|`E&pC%kJU6|84K2+kfGI?EPmCU7h^zC%xyddoK?TfAS0Vd)*S`g zSo!5(lJ4*I;SIg;S6EQ81in24RM|}iYWo0mqUNYv&4);RLGve%n7LYb1f?;H&wh(HCCt;8a6LIgk3))T7U^iYSiVg#Boe0^Y(plkJ6XW2;|%t1 z&o?(&J|1=A(MWzLXw|MR-te&LK<)7@nm%os;z*^-A$6%0=x@0)JOvPmu1t0BYSa4g zkyhcO8ZR)6Y1cVq^DgGyh$!;Cf$2XaB+xd?gL0ZP(_zt`y&%%ZbeFImat`q6ONQDO zFeHI60c;30PJ>S-d#zEmsZ&$kw~zS6+Lwn_p&CeUZNE-V)rEDvF68;ErkO|TJ%}Pq zKnpsW>?iR^sz8cufzWYuVV8C-nfW?~*-9i!FWohj@0k|(_{rNP!+xN7IW`^y+lLi3 zK=(uSM>?V8TgJl#32blREbz3-Iq_)XS$|6`S>i?AB+E4(S}t1JE(+Rq=xx70&%*A2 z=}bftJD3!ff^aiS0DgeQWE!V=;WtO!RUK%w?}gX37Ip>@_E$Z2$2L`Is7q#iJ3j^& z+=*s0b+TcF;J-9QCL?u9QvcGfJ28?xLZ+nMyVHa%@0;z+W%F7Y(2(h>F{;v1IY0OGZ zxJ2$fCEe){#z{(Wy|&aA*r=0RVczl~td+rZT6AO}R_nwj>VEe&OsDXzKTNy7E~wX( zy%zvjj`8KT{VdIAmv`E?QAd9WZ@3=Q0DdYp{4#d#MZAruT4hsiya!{IJMI3cz}cZ9 z=Wcq6`wDw1S{n#oZT25X^-QT1iW zbUjop)9)rJ(1gB(r1;IQYDCMgA+!mDp@kXUGcA6PXN{%{^~)08hDVx;?mJu2{xFgo zFm-Q&JIE5Ni*6q4dL%boPW~PQHz4KLklTpAT7BxCDDg)W+k*4gEVb`VW-sQCX53+2 z3BK}3Esq?h<81Z?GKwJZ=iK3cC--EFxB{L7|1u6{JkoX9+Q8xItHfx+8()&JK&pNf z6KiLMLHs^BIzRt1B!wO9dX56@GWk_nG-Q!4NnmK&ew7((XNcb9BAq1t%lT|SyP13$ zqN6nCb*USkWz^T{MFO+wf&}(2F2n+db+cEEz z8TyymYzgz{nv9=_^tBR?Rg4lozb<^2)?e6qUl*giIQSzk@)zl^u*L!9pPh1l#AU6h z`-QFQHL*r18t@Oi#E-}EZIbsO+*{D-GcNZsG1f<68_xNMr|`=pzD|Bs3JYR1xV~OM zBohcrotLJa(TI7drHGGG5L_o6=_oiSp9K;H6J91Jw9Nl)A-K6K`16G0aj}{AZRaAH z?Zva?BFk@En~*1iQkZn~#}49aCUQ{_1RIvC{pLF&@V8tO-Dpfz+ZqOdWv$Js4mglL z)DnsU4QpD_rW&ZP>cUhpclWbf1RNeoaGWO479##PbPYoTi33Xo@pUIHdLNW5@!m42 z?xYN%gbtHH$NXW&L*dv?SALltCVg0eQ}pO<2(cNsjt37_bXmnV4zNnO2M0ZFTNgW` zX-zxHE?$djhVe#IG1@T82tr6~SZau`l}uCJQ5i-6F@|4id5A&)1EPVSo85Klg{nAX zqE9fK!R<70hqS#d>jcUMV};W&UWFM{g3uzz%7mq`2aKJc~u} zXINs}@XwOGFdSs44-k#O3VwYX0zmshWGQUXv9ZVbrr8*wcQKd`?fn~VIk63jX4q(l zNBXJ6?TZKJ#&ETkYeu`i*kqCHBC$>otB5-jyXIikUrDQ?%0-1lM&)#?Csey8@jvpN zg2^zR7V|OXYt8W8tq3y!M6Z&`JSuLL&Uyum8AtF~jH>afclcVT)^T&_Knt1p!PcZ| znDPNW($7E!XlxNmi~|LfjRZP5j%SyYZODA$TnZbqQm*h~tJ=IJLIDG~l+;xNY5R>) zzj~ks+|BcNa)B>XaXw)+uLt}b*=4Fw)+7OiYJ!zJ?nENzJI_Y{>9rB_azChgtfXRf zhtfb0NC?wC+z--4l)2=AE*{cn**-)iQO-$>=rs-iVa_I&ZlY8t+;T`|s3hR}#G=W= z?{=uScCeELBsEkGv(W=3By6{C#=-{=N^NXaLvmG*Dbs*`ny_dUV_oUTRS*XSBsJl` ztD!B2NA5FB=)l)d3qkzA*F{X-fBh`T(EPoUnRUBhu6Zik@EMW6S2JNVY4LmHtN#29 zD%1Z^;HPHnW;f|jjctx5UOFa^ zbv|{3XdVzMsEJK;mnSwO-i#0mBj6V*Qu}&Z$K;X&CfIv-Hpq{uq7^Kv`vR3 zmtKe_Yld8=Z^KiO=DbGLy&N0xKglaN%O-&QM8A~?rDJ;Az<=vJ$>t(-^IcghF}U?I z-)MN0)4T>IJ~;OsCZCqXQ8+e3valpR{oRhzqaG-s^gPSS%H%UxfSKCiZe+sb2ZGra z?6b@FT)8I)hqW6yV_BNY?o6bWTC4-ucRi^h-vjWA-a0__7!Cd&R9(TGB=puO?zHnW zqeH;eM|z#8eHkw>)CMWUuPfopB6|gaPUBz#7BVAy%fpw*69(TP#||RQGY}ENtW^kp zb1%;Oy1!XmG{6BCmNEB5Nk=JS90?WJT%?$C_7pjXbwG2oHPal|CFx3(EbW0+E1Jg? zOdK6hOi$S~P^X~kI!zQ+18;%Cs_RuNu6aC4)xm`@`B^pCB{bKCDl3mDaJuh$k8qne ztLzms>hAB8TY3pCQHPXK6F2W~%k)Feok5!&f`^ zuR{(0($(rOYKQoY`tuTO{d?84fm}^=ZT@>by7qG7Bnr==q?VhREMtN78!R-ys{e1Q zj6bMQ#B1eoV{Pz@SZ&E0|AJ$BNDm@Xl1`W!JvX70>5HMyMy6?IWes#m7tFP3X>6S8TnJKmcXs9=2 zx#Rj33{cfhz{^@)^co5oUIH>@rRDi0TBAN6URJkEE!a{QF!&v}(Iq$11?CgKTEmUC zff2>8x(++a!-`RSj=gt@J@-qtxzwY$Vnqe4F7-R%vWAyB)!|E4AAU=^K(kGM72Cp6 z=kOKPgC)=2W>`xcs>>}FovMkz&2@|>3PxNlFNc<4mXVojS^16k)L(Jy3~Zd++B1nA zT-Bj_7N`7zC*^&`jgy2V{_F8(^y5d781@s@Xh(Y2{P80{DLDoi^^hMVeA#{WviAug z?B3-c?Hd#v1ndcMbd$%^seT<3oU15*4bBO?e<_F{!+?!q2LK|_Xe;W^r_(H-MQY0t zHM_?Li~v=oH@U=!F!VX1@?x3{)AMwQ714T=PQ1=k33wM9DD>tUi&Cnhk*41YSG8Wn zllX$hy;01R%CMmW(G28{8UEJR!K>q=lR@`zuoE2}_M-laqt`F@qr=|My_2ZlJ?st+ z{<{aQ3r*UiXYk5pbkcj?JLw(n_47VJ@%*@*P5?eITXrg%O|;^Ae9E{X(7Jw_~}Yj!@Lpl-s;r>#CwpPJa*tffQt zHdR|iMTiSzZ#ISnb36UVjAB})DT-P&4W7nEaJhCo6zK6Itu6b7nnq{05hhbYTBN93 z!ehh=?d*#Pi!}M5j%HRZJU9=-GDuG#u`?rQ?lFOJ3xSadv^v{eBoGQ`}ap z#OOfTc{)z2Np8r9daRNe*$s?e?@=x}|20pC?-dI|-8>m5*YQN7Uau8L2LAYwL}~|E zCcTt2a)?jj3gY=)P_)>ZI+{4__qg*!i>6szyl*U(`rsI= z1T!AMoTj*1!+iVV4R|gU}?qHju6FH8o1b`VKj@Xu|*u79JB*Y8$ zr>Hy3(<$xy6l^?90pN-P% zw7{hWbAYMtL|w!QxNpkf3crVcQnQp~5Qh2KCX8D(n;Sg+zKg#~-?jFBZa8%pbJo{mSVpl#o_ zRVsC7)){Ut+bu-y`7?m-UYpzpO<+CCuFlkW08nMc{RFf$lw%wK%R19EOTmX{VwiR^ zTDs?x`Q#?PH4`cK#o%+S*8qG#gTEYn@9Heh-}BTE^sDSzE-#RG(a*{7NpuX;P;4Ei zIy2QMIZr2~GSE7MWuG8KZLwQ+B!g^_$CCmM9xx&jcAF6u(qK%5Xsr5!cn(Opq1XBn z9Tr3G1?Npa)f7lei_;vQU1KzKny;Ma-M!QD>WRLM^jrpdd4nJ;EULf5@Yy(001%N` zKGLti!6%4|p^k-2iCW1dxw>VpA~>5A>M|cLhmPlIo^)qOWQlqBOc?&TxA%m3c|Mte z?sjzrLq?5F?JVgeEiRKKSo=9DYlZ;NjqX-KgT{bgWaE*X1N?SSL^AtIDUOqi<-i_i z1yG}b&UWgsy{rO! zD~7}NA9x78NG3&=7n_STn19Ik}?#U?@N1d|=;MULa*z9f%g>UPcZ$7HQ zStg<52Nx>%B;+w##Rk@1)C{^(ef{wd^+&aJ*i<~RK0%GyJhD_T+|Zqf0q5cff5m9P zb;cNAj_;LTc}DaWmnW#Zv2^9939uKfIJiaBcx`bAv6kZ~OK|r{XQV0M>RZyR^on5DD3Q8%WNRLR`KI525Jv5%+NjNJ z*~G4`P1}UVt*xQkbZg6+t}hdN3j)l^Rf|YoPSskEd0g6nyad9y<$l&j8Y-miXA%9a z$I*;|8BkxTCBw@%@vT1OA167eC~*G3BE=H7bijAOGp4`Sm_C}aCv*cuJ9u^*Dl`u- z(TRsH7FmKB!#Fm&xlG5}5R12*T0M+1sAyN%CpQ zmPgZM0+y0b%QYjeU!h^|Ivypq9c>`6g(gEZfYZh}iB#1nn`#pc+Vxoynu`fs-)+df zayOJ6vu%A<)S33HqHsk329<7mhr^y|4g(>bC-E|?Sa&oy%ubS+cG~3{9)sY$PWF>? zbqrc^dIOJB8n^pdDIsuQ?=sj7%m@yD4eph{1kzR`uZO%9fmHCw(#Q<3*yGL*TCRc( zfN&T$7qG6R9hlQIpNttC`HX7M2XG|i-F|%A2HkZAzSlXP5sjA#+4Vk=zYv{>*5%vRSCXO%FvzQ zA7-;k;1fWO19r)t3^l>dqluY8zUNzARlB?-x#I5;=}OWTiw-@Y^tIW~NnYDev+?a! zmQOF$3gy#3^i<#qSI`_)RcCw@51z+!1uKu9kJF3G8Lt58crH9Nr~&$!<5&8v9poxk z4^=x)lkv#JI@x@+&<8rOcy@H^H{^+qC6K4k^E_wAb85&6r%r)OV_@G&su6H6XV*KV zsXIc~7lWE<4@(KoI8@@tofFP?))L@08+jW`1d`XWfZ(MX_h6%&q)Z5G{;u{!1!J@8 z2Q z?lgOj){9;1v4cHvtffZ;+kg_wn&P%B!hlR>?e1g*5t%xtEYH?fcKn77QM4N%AtmI? zW_;HckRrS^gK(CjgwC7oAm|R5twW3$u9lGnIlp$S$2AN1=B&y+dc5khs5f;*T2)Gp z5-qXjMe=iMshCfr$XmHK^vyJynE(fGP);mEWh9ZFeCj&@f`_p^l)cd&pxQA<39$mM z#q#-N8|)5k3hrW0D(MOc`(~T$c{i!rs?Otav4H(FH=SkKIEg1_>#ZE2hv|c&3k5A# zD28!aq5;EEO{-#4eS+t0TK*4=Ve(CWqS#=Z@)Fukr z2^73WlP02ADLCxahh*afnworyLRpl@DdwUyg_HnW(A?zLgnp=0zl_4(pu>2^uZOrm zbSz+l<>rx=XZu-53#Xlf$td~IM$~zU-Q`|^n1!s+BCR`iMtTV5_1??l;<6P1;&NEx zgOsv>7|?$9degy3&N-43l1Tt+SVS*!-$C&%($2g9L9uoE$H9I`?%5|K)<(7l>(PwR z-Pqm1_>0ms3am<9whYc4$55%(E{A-*7wU$W9Bb%)>u#U9ReM4^EC>b`N_H)w7{zM!CpC)vd=2Hn3=^ZbJ5HtS<0X zUBCb0;23KILUpxI>*qR$?;L!+b?UxbZik<_A+Re-028G}1oxwE2TmvWDbQ1Z7fnFe z=amp56w@J=JDd`=OtX-Xkl~z5NeRV+vpWc9ZvT+~+et@E4g!n0tHBW|_jGoM)fo7i zm5KR4hyA=t(?ZfA{Lf7|n$&J-8*V+`BnpaAmFY*VgVe*KWod`6Ah`!&bQGD)ug=sL ze7*$#bi!>geo{Tt#Z9*t(HdOq^F$Z6|xi7Z-5&1b*bBK@UG z+dN<+xksU*RNZ@D0m_14@!|omd`Hdn*@@*A3j{z1>D^Zat$G4$Guavs^w6tEPdgBQ zQ^CrC9RJ!NNt-*kB*te(Zx|q!XEB^w~RE@&+rx51H}CV{qR5-1IVIuReo2 zBP*M{xP8#jN@Yu%P)tM_csjN)w)I*~D$6%3Q0!;0X=-c%hAJLn2YcKp{@{S%)yatt zoB(PGdIEH8CkV=PfJ&w~0ACQ)l)!#i)5ImCZB@F9HAPF%>*;Fr3J~V0B+S$G5$5R< zgmKXDv`n2UxFzg9t;X(Cv31a)pdbe>ozbi)VSZIFta@93>z+hoFm6sWaxnBvkNSew zADML$cKq37YNL`nRNxla_e5*apcWYlu+k@+xeqi)rbvI^?>mibC*jZ`S7=V^q8@V7wnGiDw2eYOZo7sT-k;0OJfe{L-;#n z43E^c+`t@D!wz?Jdi>IO!}x#xo*Cm#aw3(4PYd#2g#cr7+3nb(O}$toEx>!Fh_9?? z>eSfZ2@a<6<~Z8bE@Gu?a=>NdM)tDY zQ_STcT(w-3ETfc{oVHBjO?yLMEJsMa)EB}m5!4oc{(ft^f z==#VcA%<2R7P=(*vPq&B>3RqPKf%{G&$8+Ih~h&n5r!)Kp2$KDK&AQ4R%DzB4#uZuc^{CD%!F)vqAs5brCxbXT(*yh^l`yx%c%a zdNFzk>3rD*J-99-~zJYLe<2bR=N5ho2g&B ziaN8)PJE_1)Fqt{s-JH|1-DfNzgXu^#Dv?)zdHzUSB8rkr(NCJV2X>@EAxChL1wv3 zASQ549Ph#m@;iJPXEzX;j2WF3fID!!+hGmAr;`_0C&29ug~M7A<-)8))TJt36QCOhuUB{owE?i#W^!&(;`z*FfjEZq06z_&tnXrv!1bM$kO)N>dkKLG~*0E5l6S zlmTBuhejON3zwVR=#!EY?!!0^NTY~>#xT3&+;%A?9giViW;j+#gOh9D^pN%5WWUy+g6M_%Db=o=>Kblj;^yW^}I7Ul68}dYB__l;(Ita?2?D zx9wk2k!JEN&u)rD-;>zNIxLVQf)V1@77u!B%L2%z9O{KtVB|#-=Zeitnrrr+C9V~i zaRQwG0fVP12CWnm#0hPvi)1`vj6yb>vqdOnQu(@>3`XCA>s#-3NvCmCletXdkw`)= zmZoayg}Lbnvv!nn$|z(`x|r9KQXA8)19_Nbx%va$5L^|N7j&W)*$A@Rk`Ble(W9l0 zdd&7gjsd6h$8qRzD%p@;l5i)~#g}8W{%V&U+i;PAkj)@Y+DysP)DatEEtMTX*%L*B zaF&yk_QhMK*6)C8gY+l`P2@ocI;iO+WFvozSW<9fzR99PJIrr z5?^oaS0nOzt>~etFt=VTcQgYdz82ep^$<*TfXUIzo5oyhOHFj7qh)wqGEN_cll zcN$@>Z?R@Ou_SKGu3Z5q`vNJI%|u;+MBN~aC60hO*mpOtrBM}*NV3oeLX|k!Uja81 z;Nu`h!*=mvzwg>QOW=d!xz>S^1>tkDFT#%wG+PNn=8-jtBin(yb(_iA<2 zHh=#Ys!4OdR!%EudkzR0n|-j+#SV9(KF?CPg;4()7oAa(O!u;>;wU3zI=a__fbfHJ z2H?9+t>AT#kz@YkyI{hFB(iN!b++v=YEGd3uZ5TnjcI%{J1l0#p zS3k6ym3XhOS&Y&%c;5^$NxhLr7;c32Jr~TFiRv=GaYmVzp=YO&66}vUp+0((QK^Rz z@B~u$Lq%v{V4}GrF0?<~HhwTQsDUWIROcofnl~2X9H9;z*%bsR=)asNb8w7pesEUp zVZjNVC^biIlz1@89Vl?=KcPsHQh_+bPtoT+#edn1{iAUZ(r2kUz zN2R=51bWlLRRgih&F#`)g&Eo}jda0o^uwb^vc#Y@Gg|$H#lT&|H2lH448eBSLz3rN-ikI1D+1ck{D`bV285kxBkFYg1Hz)}p;^i--5KuN{Pzr>XLi&XoD{m$!7qw(Y~0tK}L?M#(P7OT|Of4`zFvwGB)gH2_rJ zh+0T(U20=Muyk{ySwu%a!Gzt06qK{bkh!onU|oeW#80P5oNHsME{gLc?vyLz`>EFU zJmh(VZGae%Q-1HJNa(SjGQod+whOb?AnT6Dzbb!W+p)sz=D5%6JwZR_M{#d;7 zk9G3O379f|7LXAk#Y z9`p_e{EMt*^rv~#dzhrx<>^#$8vzQcCfvtwitqGr<=Cn@a9dxSa=K@8!40^<1U|x? zg8zEF8U6Ut+%&Pdr5)+q&NaEwDFgcM>i?M4P#yq<5R@_%T`I;N+vm_JsE^)Tcdv%~ zl=~I6KT{J<1m?!HH@U?0#ki8N*rdCMdUzrcL5LcFqM3d7`vnb01alZWd~PbeiYNM6 ztqr)2NH+Xb4_sCJ`!PI-f#k~l?95nRlRh5ai%h`z#6u8Y8=JVDd_I}LqG4-eTYYj8 zJn46Qb)M%V83JecIY^XX6LB}M4W6wVeJ!uQplz<$Bp;d4 z?IgZ}6#Nk912y3;+h+rQv70PFEooXr?-XXQO^Nb>voxZuEt5P+yD-ENo@O@9Q_Ss1 ztx(RyZyvAT+M>)7wwn8JJq*LhET$?Bz|GxEv&o&`HUl&MtILn80{$~k3kDemS@CmBq!!Y5;EX?BVK$-O|2~yoqaV8yhjQ5F4$$!n$ z;rsC|9~r<6Yr<&PtHqT@KYm2n)&chT)Y{ykB;K*x#9r0_C=6?1Ogdg8rrn98{ z`5y_sC$3P3T{r^&9G;@h&f)HmD9qS{U{re^sz;@13hJdo;x@o5F5z8O^q^A=qn71x z#-XkXC$~_nG)aA8ad`Rr&FCdRS|90W#oJ`@uH)$C_&T#s3%YqU6y++3UZRl9@8RHG zI(z}*5!Zn}x3566M$p6YoE$y#^#4~nj&T4bmst2k{i#EZ;$MsynfZ7ja2f+F z3CrVSs{gPV4Zr~#gOo6PfBlxEyJCkt2m9(9b|It%zNMUB!A+G6M0?F^pFLHtk{ER8 zHfvobhc9j#2+|qzUwO>1+!d33NUtzVU^%I4PLqN=@i{TP(AEn<_7KGv&|tlh;J|Sw(2}rhMNuJ!JK5awgC9n7Cuns(DtC<*PU9MTBEi__U$K& z`i@eqZ=Ls=%v(xo=bY0-u~<8!FM7JEJVB+<*e%cS5o`34&}M@C_&VLb@ygSyQa311 z{s;h~+u?*R?(94T+V#6oP?0`VJqsnBfLy+yc4%uNZ`JLkABVC#z#fR~$o^Tbh8rwZ zvw!~iPdFY-H2=W7th2iTUnz&XfNs*!#|LQ!`{ysd~twk{mMWJ>hy(#uY)C3Ri;?JFf@k^)8>v zhJ`v|`r`!Uhm&L^f8wy^2aQrT%nELCyYov{?2gbOztGI_3%v+tl!ym3Cg%Y&WMPyf ztb@B&SuCzH%4#z~=~*?95OWL5Pwg!XrI;MkK3rxX3ZGu+z45zc7Jzu3%zWH6<-(Fl zvupY|S)q?ifkUl0&6bYLwFs5RAJe)!u{*49xG<;J3Jm*+DBVot2&t6i%_c}h-}(#b zE>zBK?mnIcB|i1a`N;hz#f+UGh{u^=syKj)RT&j$Uw&U~G4AxkS?)B~jvhi##k>L; z&HbThMjr(70F50OB_iUH#Mo2lzuu=L7P&(Q8%~? zhihLPMYkm5m1O6E-;KxGUp5>WQk@4{Zpzbfe2eFqc&6h?>{5hRd=)vo)hS{=&TgY_ z=U`b*IHo=iOV60zk@f_)DwXj4Elu06OMibn2uN1Oz&^)4(*d=yQQ^pFDlNOR=d`lf z)mjFF3&W%?r6vW8g+CcC0NXSeu6x|<00Pl(kydaoM@jtk&5O84)79ziVQG0Z@vq*S z0n{_6d!wT%*;COva)biY7vnM7;lMtXkZ^U5K9^262F#5f!oLhSgQ;gY{QO76xBcqb5AbvD9BrKasRC$z^oJ=(;>$X0ETp*Er?Os^sW!B ze50WBBKg-G&vPsc02^~F4DiB^yLDX*a7OX@jOC#kP=r&8R?vrnC|&QKh{OR-eXs^@ ze^9~f4@6pU;)YOYi|Nxuwv-}O9+=1z0gFn+vY_vt?$lhdjjyhN(tfsq8k#vbk=?7S zY^^i`fS*?&L67b(VaMPIAe!s4c*b>9B$FcZa&0z6ai7|*70V3s^CFr%b#d*C#6h>2 z_hO8fC4OvElz`t9;U7$kSM5 zk_IK7tJ`yQ0>Ba@nkj)ExCTHJp~&gXY6R{_tzwh5B;!ZYPn75#X;_8ySkkeC(C{13 zLX{wfbj@(LO8UnHyd1n;doK62hCjWf1 zUDNVHmifGk3%fj;w8am?nzP!(z?`*K)w*)=wJT*_o{VF(w8U2s?GKngpC{v}h34Q# zoky@vA9o&YmQGNh{2);$YEH9w^1kS>TUw5e*RZ;Ar&7fT66+usS{!ifI)mdASnu&1 zKY^ZBISMtN#d;a%x$5Kd@(uLp@`xRSYl2muSKIy6TD?r-@$9k_?I*ELyaYt2&(Xi{ zu1coY51(Ito-gF_Jbyt3M-Uj}5ttd4pY(0!5M(dVbZqcRa5 zRZ!v4VltSs>48n2R{1oH+^OoHbO_$*tocO;ZzOagt$xLUuLTyr;9w6x_5lZ`4OR_h z%F@~T3A&fWx zcBC((X*du#;=tv^0fS4OCIob_EAVnFtnEqq65`0!uyaqqBQ7|8pweM#X1n3ZR!)A6 zrstBoRm-AErcQWJ&Bdm^_{I&(0cR`iJkns471g;Ext1A1+@kX# z+IB#6K5YKqC(*Z&sql+m;TKh5^Z!2T`~Zp?P2Dcu2i8ip0gS-+ZVw&^=D-hnmB|LU z(EJu=^*xZ;_!NyQwpDZ@N-yA4pdE?X3ETI>MX#bNdFy#I0GyU|PjiGF{_vh5EpQCn zFhIh#gw~E8`HAxM6mHN1Y^@VPpQuun;1y<2-TkC|#h3uYY#O{DKQ@TKR zzqQT?-P-PHLgbxTGatyXu-4g_DE_t21w19o6EOiCOAHhnwWK@e;t^Am;8FS4S^DwM&py;|RhY5#g6TDUHG`HYEJYDVH-osm9DsTQAo_4bH zU&9MHR_U7b(3{8o+jo^fUW45LfAy5 z33*jiU?Kd(C_wI%>Q3>&*%Gc=5PIc2RH0KPm~;dJh)6%- z_OhRHAUCHWnj~?KZQweifOs{959hR7-yV+HHhS2t+vx}b;EN_yt#J7>QuKv;P@Luj zkFEHegwCgdl8R3I^x}Y|7~GWZaF3?r5`*s`{jFt+{8Jogm?0I@`ipF+JEuOh{t zeqZq|=M=5PXd9P4-O*07@$H2Z<%@ie(=n0nbQup-ud;lqq=}HNntrOMG8enT<;Rb< ztYgiOPdF@b$9WCUa$H#scNT$s8U|?+5(nYozjT@&{1@g5^5#@d81xMCH?v)Ld-()G zM%v$fwU=k`WHYq<%X26hs8^Usa6WezFXc%+btY9i8=mlz^KquIMj=+7%J-XPskZ+4 z)X=9SH%F_;&GN*4*bE5L&pNYph-yl|##ajJd@-_`gLoy1v*=W57G>o8bu%dY?{!&v z*a>Yeqx;`n95m=yY?vi|sE)$YKDQWri8w61T}lXLKk?UeJEUEEs0F@wvpw3 z{*&#AW07s3%x<({N-5a-Q^hDd&w$O;2>Sn;E4?)|++YjgxaoDs?m2tOs!`LENqc;=>aJfe-Wf!^rVzz4>&}C>#*CRUkA{1=*F-G0W$W z;li;C*cw%Vn2UHon-Y9T#$sR!DBRb;YZfnT8g5E!s0&7a@0gFfrrdLZ@FIt|msFk> zqs`C^)0`M(jhTnR*WZ!LyYc!F1#nza5L;pp?)|v)UEqlCyQ+{>uMRGUp{HgLPZ2`| zyE%Gl#!`!$r#^0;R^aBTd!uUn0oZe(gzJxyNyAUCkHK?*^20Col2#jiCM3xPzV~rs z!3`A>>{GTa%T}M3N4@oC72F9J$3Mgyg<;I03n>f*s<))ciYEMsruhgYx|oN4dhv{9 zbyT3RUVhvUtK>dC$l`*poPyibpT=XJ2me<|Yx@1fo0zaq7a_|L-(r*;S-kIdQc? z)=+rfr9?2IaKlMLvS&9?=u6aVgMH93RuR(7&pO;m*5EO%x)Cq2|15006r!Cq>P*6A zT`F?5fVLf?^trUNPu~rYNREkwaLlymx zj}8t8r$6`ho`#be1!RV3%^tG+8d58plEeBYwzAITd_d7&RcSsPuSnmZaBAxT)C(!+ z?IwP@$@#{V@NewQ32zvX}1UVw~8YK=^nJXBqv*`!wBpq7_K6 zB4GpC78EG_SM;5R@4nVbz`z{}+iXeb-_bxYq#U2}k~+f^`)JQFD_R=RrUId7&7NbM z62z?o!o1K^q?0BfG>1K*)x@J}8`zsw&Ix|#tFstrIiNqq{Va!IDllYhavr&t<=~0R z?l0+;I)6v{zXGKGgrNCvoo0U=`(BGp*B8!|)|Z{MUSDm~sqYIb>*_k87t@wqb+kIZ zuDg3$cO}0+kHWPJ(2upK+`?{(nQ9%(IIPk^}zvF_(Ba}8UAit#UE?58a~(ne%iLN|7+ zK81}w@^(Nn;{YZg)f|nZ>>u|8jInB`qw;q2i?;`UDshDEw9E{)EUJiYS;02D!YaIH z>nu}xRr{=@HZ*HQaW%|V%h7PQ-Nxz*2U|D<^lK?aBvRGXzaoyh@bwuHJLSb$l*16$ zXJ2kW<WeWQ z^I3KUKAq@!I)rS6L*umyb9*dI>%C(ftMEV^MEF-bi5O|Ncikte<=nMVP>9cHwq_r(mR?w;7YGg*)G zkGM9m>G0{k!-mnq$jZs`!wi3FQ`?ug{?sP8|3owOSs(Jy=_KP8ntl(e>W+gajo}Lm zZZ~SPJvY1CDB}f*LcP~}6Rq!pBNTUH3Vg=Z<8)s|zspk45WTI;cHpx8$0eG6Dy3=p1MMMc&7r(@<^n~Qg=jl z%Gaj2HAU{SYMae7T!U+3_gzZmYGMUm5}?Z_LW?UOn!OmIN)OJ8 z{Rw>(KRKd3zD{y@hLpvqv0s4u^z1S**?kQ+AdL2c{S8MXH#nJ87Dy{9EZF0yO~odM zh0E=71h3&X=ecz**zoFKM{c&`1rf!sMG^Tv-^M5B%pLu*sKK`yxW~B$e*a#(b$KSqG+IgwuG#jZA78@_=?}kHa z;t1zVxME+Gb%gx{5ZBe75;%z337aWVr7@(X|95A={}Hmul(uYV#PvHjZPBX`O>D8{ zC=NnDn}>-a!z`a9IfuT`gS*=BHHO5mq)CO0Uy}(MzXAfvndsg0hp<5cCG*!7QOKR5=2MbphFl=K_<0mx*`fNfg$CSNo(u&ByKNp#-K~QDnon z={wW5RAS{TLBLPpnz!Yew~ZV?o{#6nrC?O!>J6$Rq#K6ksMCpl0=+pS-ht{krcwe4 z^Rq_+T_fJv6x&KV*eUF~L<)H{tjTe^el@P>qj?7uuHpl3x!nH!Pw{s@xuC#h#oA^S zAfv+{|5SfGl<3wqC^16{_kvEjvmR)dPTSEx+dgl5AO88yrbm>nUHi#+7XOz=a#b6z zHA@St)bbyJmbZbHx3Xtg>5LWfKQkyAWs#!b8+f7}6ItL(@MG8)6dV1ZpmIITae#!^ zSDUOYLfsDa;;3__8KRhgD_T8}Escur>~J;%kV-Q~F%p3Ek07L=ciMloHS9{CQ1K=b zuuMvS0vn~O^T!K?)~XHw{cN7AgY7tpb5M?O|Bc^6UbH;B+KDb_vuUyO-FG)PH=Sfy zB%OSkc9PNjyBFD2GL0{i;=7yt{JWE+PymLP-}T`^?^Adby!dW90r}avoL!BVlnlS3 z$AKd*?h+S9EOn^#Na=EtC)YB+&cw=VlQ0qfhs{`mV4GSYg0&mS5vbQjc%JZp0$-p& zH6c^LD+2$o+)yo#|8R~co6-O5`ZW<;pynp9oL)TYAJ_BZ-@{-^vWv#?0gpkxS4MEa zn`-e^jIgrBw^eD00XPcYfx#x8Q}(k8EQ9HdJ6 zgBjdJ1>(L3i zl})l6C5Y9WMj0scl=oHbVmZ9SK7o`Z$@zIYOksaeXCBP%qgOc$O~03FR=F**zn=Al z%S9;e&Qet|i>kfp$^p?4_hf_sn>*-ESQ-ixn9c{KlEZ(L?4m1Tzrrn5xCL*fPae-& zStzqZm*gf@bJmB%i*|f6tHOUmQg$V{wq)#DA$oFIO?{PUN}p-V)U|AYL6wfEdCaOA zmEVTSZ$zs~h_&97oU++SDI} zJNWX1gJ=PZo{|@~zJ12@8f9BmmCekx-8sXpH=B7DvnIB!CT6Xf=UU_;rD1NJ&u-@e zYRair3$b-yonht~7&d*g(`@3@7Q#hw8Bc>ZW$pxm(ldCqg(Gz2Cw?-qRi+Y%-9cQu zKgs4ZPvS1Jl+_vEWN(YE(&*l|x$&hojpg3UgWe(gREe}Vm`H4I44TM8suD={V|_fZ z%_`}As0;Ear48=GOj|K#f-7axF7*u|1%GHWWiXzTawZQ1X0kNh-cq7$OKfyqslnlC5 zOL$DfH*Xqn&dEE>&V7IGjq0=rcY)3W2w9!ouM^;5^w8#)s1;D^prc{+=hLY=o1<5P zfz~}fC`^ssNB_IRmg>}#U z@#Cw5e*eIv!omYVhAHE@SCr9ta*-DNFlw4d#e4|dV^UtyitDH~$Ez_<&XXLsT$AEh z)!4542Wvc61Vdw(Aq^yU1$|PG*rzS{Sa84Y3n5WU?}eL`^B7)~#y!(nlc(x5*Bx{z z*Pwh`1Z57qT#e2ztWYaVOfW|vqg?ymwr(iRvhYBj#ktMAYL=H2Sk@8NK7`8|iwJRT zbuODhz9xl=DW$zFB6?_8S3#O7v6-g{uQZ;$Ap&-7)7aWYlsmrZ`>Kle_ee)q6DIQZ`# zfG!M{kDmQ!Z*LHt^q%)ldWUJ{XEFyNr9Va zspy$v*>gD0UuHKGS$z5`nP6b?M;yy3XrT7zE4|r)X@)ZAh$su-sKT;TfRn6jGYcg6 z`V_Nl<>^46LY@x*7HM@#scW8lGzeT{C>nsR5=H3H#r#l*PX)F5X zWUl^-Bg+kgJj;}x*6(ir^_zC|&5_!OV@hWMKW)7k)iZP)(mK*^h-yy42@9a9f4z!| zbVk|`yuWbGkHafnB-7n=pcfj{HxcDR)N|QU1OF+D$E|2TnU1sDe)q35SolbFOZ5pg zE#|r%E9GG7uN7{#|MqI|^OLO?M}uvGsuA#5b-!b#OUVaU1b)(eb?iZZx<2UTp+C9T zp?@EMZcexYUdy~HCfqn2F(n>@z^+U6v_aL#2n1}#ZehtlCfU?lXvJ4J&H8Q4kyX_5 zEVnuuilq;z9_QG}d6w@`c$5p(&4IIu_#=3!VYdWW^gz7iwDOLK_^^&Z@tX!enQ!UmG^{;<%rim^%I z_D)8lz}|xCmNs3Ov zAD=Tu*qz`s(5%gOWe{#VORtg~0*ePJ?B8%}-;RC|(+YQMgecjc34^sAZtzw}hZ&!u zY9zW}=|PC2+^n)k^LfumVw;kljYQlfT1-u~j{UQU3UxqIn{0luXk+zvA)oPtFc6#~ z!%@nIHq8N5wsx`pAjwVPXa||Fw$WDVm^ov;(XOB{m`+pL!ch}(-sI4msvb^otM>0s z7*h+Sio43nWgV|z*Q;4k&p8Y0wN;t_6ZpbcUo^s(VwDOkKnDg5-ZhOUPTJM8kq=>m z%&e?vcZC|vSg!|m0I?X}*l=7bd=f}M3en2^sTO;nndf&@(QpIYjEW+9ix!ve%fY*E z-#&W>3*b6UZdm1_H@l2-Y4~zOI0>)-ZW-w92oe!)=${)6v+)_;@OvX3VKq~yq-w-6 z?keQfWzn=0S9z^lJ~;nU(BHfyPx(zM>%qlvoDA)@`(aq-_nCT%%(T-4HcT ze?s-I=EY1uduEO9te3WtEN(|6>ZVOj%|#4z;m-u~h7GhIkOB6ij=1_ky4L)F8{b0r4|qhjq%JH1f> z@&S;(wTYMZTu&zeHTt(d!?!NncaD_wGHit$%_>uEF(=@gSbX8k7n#X5{;l+8aM=Lf zFhtBKFk+&##W}ozcor9F(QH{+Mo>VX#l!c8IV+Cnr7a&3Z<_1YZFqJt^7JJUwnO+c zo$i(Zcr}mh>w~+I(&_5OcyQMK$V1v}D>8q&M*xziPGP%tGbeq&dVg;R@gN0sfU~2} zPOVQC+7VN-BEl%^BV{0F1ddy=cI@4NVidpXzh_WQBXeWZt?Yr*$A|f3YJQa|x@m(N z66>NJIy{xv6f1nyNI?nc^|&2^#!7+~c%>v#W-&N$}N&uBhTHCT1^i*nRqkAOAk3?Esp=*Q{C=|{JME(`>Q4lHE80Rx%JKKodCL&lSxUdtn%5J`qH zk?dLusO}y}o}i_>E2_e+hgd2PXn?Y|gk@*B;R4+7PDgf6c~Ax^X6hio4#mSoWB~b) zRFi{!Rf`|J_QB|4XAW`}hgp85u!C+>8)CqsPSceedH;xZIGlrhgLr4`UZ1jwV}~=1 ztlq}W9C^V)Q5Ujspubu4Qwe(f-9$GD`o55tNRf@%?Z*?%5l3H`rrQ%FIx6ZG9ps0DQFTiu=CVW5=GUdU5~z2^SYyg!s3l_XFAfT87>M}? zwjIkr^y`7KcN2w!G62VAEa9?S%b9{Ng{%|iR?)tsi)yPsv_+5_wEhq4F%Q@yaFQ8c zN;-AG3p*9kb2-sjDK}RUnw1h$%ELu+Yy}xs!ws5XQg3{qZ2SQ=H`02y9CuoZmE9S z%MX1Q;NfaB!k9pHKDg2^aeE+~*8!Zy-YtSgi44cM(AxU4xM4%oB8=$WXjz;D6k{tU zSH}s7%ZfDqm~}8aZ*J1$PK0}1Ju=9^BHn{=v}@Am*&C&yW*$V8@MsYy68}gt=a_vYU{9TytHM?6s6K?U8P&NflqTWw!ZcM&HxLEK z4eY_?<-@)1$xlb0wD-De+vaieeFSgdm^X%l8=R062`;4z(uweF`tc(h{U5&S_50nQ zdY__E3gYez9loRDwwNVXHHZscSzxCgGVI!i!dHd8h0-Tm_|DD@@TWXy!tnd%fXP-L zIO$+bMS_=EJW56f6T-4s-Va1~=1;h*#yeuuC#eCjkakcNk>&7}%HQDQ8rpxs)}ZfL z=l@JLJbeo%2+P9^1SW0QphZNj$D7eXG|w*-j>fm*uydWF4UrAVkV1@TWrz#rXB*uDC!sf4J|0DI z-N8HpkP32!$j;AApiOzjbjW2wJ14iI~CX4+zW zLb$5a;p#BWgR9cx09Lh$9ngYG-%gZI0anF!inxl8PDyQJ9 zsiVIgfVtg#ZrBK1;Nbqqb%|@(*htV_e^D_2fg-(@%5z^lG1E5s>!U|yE6_3kye}G< zF)p!SB%W<7GQcx7W4%f^@HwLl%La4Wz{7x+E>)Fw(n&YXJqtBx^PWfJb|vpQbpMat zh4l=Hzl|P0at-5+P!*MMRfVd%GHcjEcn9n(iJrzxxI7Y@^V>R+sQ=RDQF9XABAU`}l>K_aajt;xeUiMZ>!VpZ# zKtrII_pL4Z6*bPv;HOrQ(Bkn`R**L8Wmiz=Q1}dqTqoZc&n*th7$;87ln{!VUUb-HLTwSRv*~U(_437KhJtyf&Dzn%D{dquL!#L z8aE8OXC&Ss?4J9r4ZC-^t3lX3jfy^1h257^fysqOZP8nnKGO%i6IJd*fBq9gq40Yr zZk|dYZaxs8&dr)dXqHy!+JZBA7*&QF>bN2}lM0s$&(!8kPacjb)FP;8hxC_grg=Wk=X!m}qEaWFPa zvLz{c5=32ul0OK#i_@1XCb{)qpZRc?As>-c_pefPei-K>#kRJ%x3@id0SmuLFB`lbo32r> zx>+z*g^R?$QIpeTSV5KJ892(EJ5lx_H#ukXIVoSPV}bnB{eKDhog9``BDDZdK(N13 z{Zmr5MgiQ~VinL-TPe|#L3QqbT1q$6lUk@8x}@!t(Xv22^jPDL`k@D{UO}uF;hi-^ zmm%)1B5HV*IwDsnWqaui=M*6t(WRph5EkKS| z3qC`4UrM6^0h90Hj#Mb2r%20!>ebPaLS%qnE@O(gDG5*Dd@wNNc~VR>O1n&~%hD|a zd5HIw;LWcXUe%bV#iasOK-x#u>uoky+fg=3_@?SyFGqcW70XHE?J7TA=#K=7+So7h zHD-4mC$pKnkb<${PN-B?)nJ;=l;r;<87Vy~Yr|4cKEx1E*)FYLZi{Kx%{EW}?XY|8 zrxxX^0g(m1z}iaLsfN!|(>V_DY@3~jwnLIf9EbRO$9id+5@Ys!m;E(=EO19y~4V{)_foo^)S%mVkjF6DJ6WaZui-3w? zwt-q|_&!CNBqn>6hU!qmMWn42N@K-E;WIH8mI!aiAzQl-dih&(rJ+JIXdK4Z-MC+) z$LgRfAX*<#OGvm^ES82sCu=%4duMAsO|xoB=j!0t>1eGRhtAe!H&}GImis})5!=w7 zkIPq(U08F0i4#$rpwB(}NPMA}QK>0yutM2_}fH(b|2L)6@4}sXhn2 z{t~u3R&^k4IcgwY;(gi$Gklkfb$D$pbdhTO&9=5K#@SgsR);bcPf_T3FE| zhI$UB&zmfNFEwSlVpAF`QWtedO~~+}f&rqA%e;$jw|SzDRk`*VvqlcnKAk}>v@EZ+ zZeZCzcr?@^ahHrq*braG>6o5MWXNJyWL3>CA$r`z!%$I({?fh zm`VKj5p(gwIsY8Bgg`f)x*q5W<@zr8rHYmNAV$^j1`Vc!EvR6>H+eqzl|5li9!i{3p}WKO@2U zLl@E+!~_xQx)J#h=yb^N0XflT}u-7cb)Y zz>KS)gtehiJxMm+=@=1t234~=?CCBxF4duOm`#-k4Ah1L=-$!spm$>GUniI8a2x^+ zXg%CN1?-#J1sp-kRpFp&>)?$^sMg@*_1@t1NzYDRo>L1xsCpY9Y?$eIL}w}34bKwIfa8uLT#Z+y;=?6S2cqv`Pe&t84 zxJ${&sA`_sb7sR=Ql!D|KReR9yW0P(NnKcyGrS|=tVzck7id7&z5_nZ(ygB`j0wPXj$cPqnGVaFNJTVhTxScPSDtSc64%sED1+LPa{` zMxcn#frU+ARQZxOn_X}*K%0?%OW4a1U9*DSGrhhNc2>6uyJXFB&g-ueS~50jQC=_G zg#uso(VcFgVLyATE58%-HC4TMyY6VwtfQbZQGtc>98?E11-@PP92DTPNse9Al6kr8 zd^KfZ4{#I1dL5Xk#9qs3*a=k%^}e`+a+;wESRT^%6G)0^@NO)82AM1HUm5e%OC|C- zdu?#yaGU36JVgf{@@8;`C;W8o&MMlO#kfZV*ae5ps@hwpqU4ymTDxV>lTwGF;8aUD zp7a9Bm0XyXq+KmGn0}R0EYZ;O!U~LZ1tDh}I%3Xo;1!~dz4NMsU9~S$$PdbyznHvO zkB;+FnV+=@(ZPkZz22RpjSL7#<*>6R9A%PCjAguD#BjfH1zj{VaPU!L^ z{N*01vb#91ekhx77-vCVp@&=@?3iREOLB@xVj>ttz9DPb1b;qk@)E1gp+J3NP4VbF$JrRPFz@m`pG#6uto2!t?*7~{0Se&{FY=3 z^xE5B{{HLkzIx2{o3Ft5N_($H@=B=P!;~sCP{8Sun8d5skP32uH)yj|KN-XpUTMx2 zrYE|sC9kLC!xVikd;itl8@&974L+l{z~^~FSyk*$$FxP)Mc_4AL{GrMDCG!)^E4Tc zj6IC*Z~D{tX0nHNzuSZTHveWjB&G3k#-{#~&&l?WyKfFQSk?8m0^3)u@R ziH>bsE(n<%`H5H7nFx+BiG4nLm4cY?N)29YSOFMivngStfJ&IL1LkP5E6(&7fkf)> zERXYBMLqRjh~S*e$K&+;w#^Uk!uKQut|QJ3G*+E)6)g3^$(RbIraaB6hFt77v-1zP z6MVzCIi$(qZA9$|?NX{6P<<^qJgio2(DPWNT|#MTDYSjmxg7O0$dEQ?Zfy3*1xv17 zhQqi#A>L?&%Mb%BKx~=xi*Otyy5JWlzg*WvKxuK>Gp=ds=Ay#u?E*6i(KQBvmjadV z{lJYP#Y#iWPB_f70{xsYZ9Ti!lIv+uHB((t#v)&%qcU)q?D#)r-(4kfuS6p;>B z-{p4BEPwiZv;3)QmbJ6fDK=^*SoUCQh!WgLO~gC5rCeOTigBFNV|KhPp|gX2w7jtU zt+)mX+#~Corloc+FA42ZJ6AvqIp9RLYY+rdDA<)+J|pPnd{dlEuEFo@=Xg9%_S50) z+3nwx+m@RO7gn9;J2%MVVM6(?C;^JEzlRAZJ1=SUO`7OzE6tnO6(qGUa|K08q259# z;>kpK#7rTX<4V-LIJN{Y1LOAzs5w_~0n1Z&afYp}1D5-}LtV}6!wA)tLgQ{ccbTZT zRJ;@Q|O2b+njr`Y!0JNDlP$~QYzve?r>r8KIMqE zR^U4%KqX7^M#K+{1Zt4|XG3NSE)CXk-V5?}nX{G!Qcr{Bq197k1$aTa)WbU1cOan* zIv9oVihKPI;7TO`;jZ7n@qZySkG>&* zlDihebJ#C9KFbabMkn}1-fvhW)ZyPu?zvL@Ilr}`hJUXVKBBtZEnoa_FjqSYM#;Sl zLZG`I6Nt$B!GocZyjRhIN=-nFFmEs%|*eI|54<&Nk7vG=BJaUDsb@MrpY{2xx2t{)1!s7AQeADE%1F(8TC z66gZ5$D`KhDX0U~sHnr#A_@Cd|MoXy$;`;@EJd-%E#EsW>SSi*78w~48OzPz6a|zT zubaBQNTg`~Or|z;Oj+w5Eq-0oyJFORw|>Y%BjD1rM%5#yj0#eRj7nq2E75N8r%Pvc z0RSe$Wcdjb=SH`vI4Zgt)k)xMGKG=B){f&H`d* zEeFU5V3tiD7&ALT3v~LC2q}oq>@}ZI2_|tcqgJx9(n*i(Nq&cm)!aflFhgp)N^ij+D|Vrkv5`iV?gtFj8DDm&cGY*_QCpHr~%? z(=kTGuh)Km_x17N){BLsGmyFfjt^qORTHw z;uc{SI)P2}ujd$#k)kWGM;)iO*BN?9WFu9$371&;RE)hmBF{8chki$KSUU5ysh;=z z{u_Ul+1T+*cW*S%9EoSyW;g)9qHp9UxFA{8(^zREnz%QfGwjd~&Rt`0AcWhS-3!HP z-_c4755|S8x3-5MzoXcCzYP?{jw@5y7U6StuivMnp=jy>;onXnIKw!q7{Td4*h&G9T$)+i4p_5=cHtlybb0}QoWx63x>x+t*%gIkYz;M1i+Y~8`xk7 z=e&1yr8txR%580E88+72RBuNka=23!)Igyy-b4`h#b*b6N{(){cgDTd?%gS+4oqy` z?e327#l5%PslPL2M#YJpK!aZ!MMi$`f)bffE+&eMqJ2&{45&__zA^R-g>TXEnb<+S zG7gODC5$Xy+eX)nN6+c0{(znhPKX&3h?g?)>8QD5%1}A-f}@O_kU8Ck(iq1SX$Rx# zfS(5jm$YAc z@shd=4|s2EDus;HZAI z{d{-l^^4s@ne9$j=s@_FY^}St_SpVoPh6TcpOai78T{@$Bs1SpR5zb!Vtj%JM-p*V zK0$P$krM})0iQzrX>hQIMrQPL(oedH>(EfeIhK)6`r4Q%TZUO*_$g(;VsHX|!F;43 zf4B#S6*R1-XhE%RiWe*ihWmI!G_ae_0jNrLeG&V<^|AARqnls|d5rsL;HIuOtsV+0REbel*uc}fDL&|@rdz}W9ci%ihN$6K zBco@j;Yio4{oaQw8>!HIwy_i8)9UJv5KAv(fnw6_pRhqR;Die&(9M$y=d|d(>pO~h zFq76Vlt$Gr)$59Wyolr_oiQ-Z3b2tXW+h$wjCC zVCkXaVASv6AMT<@fVnRk+$k=gZk}Ag8nb!BgMn!o^ilr|6%yt76?hBVe%xWyh5Tk2 z_H7yc&lyq|2nU42KAMhkGmyW*G*k-0beLx+>ZZdi6wt?N{z;va5gfzo?tDYQ@@3jQ z>=8dm5Ama;U3IKEj}^v*yFov1mOr@@{&Yid*9dOyhERTW2X!sM#mt_ZKbxI2aoFS` zp{SkL`h?g^BQqs{$L@hSg@ShjbzQ`~wb#d(s$vL(e*C=KD#3||F8^mXQD>(29@vD*Y@GY26;`r1`JZA z%;X0`=vz2Zll0Q0Rsns4%$lNVQGyp#e0=xaG^fBwgW>ge-(~nLiS<}(KnZkErvq5mCa^c^f&_B~zuvydQ)mVa_W{N1gL%?^Zq!9RtmmYuv~WfKD_$(SQr-Rh z<7cNcZ9(x}SZ~8iFyeP1Fl8Oi9}^fl(ewz}RuTgqVAFOZYkIt}K0g&QQN}!}93c-n z>x;~V9&U8CO)Gm@_(X^*(U{$OkXScI*7dzLau)Uni8E|Pc{&CPGU(M?%z#LEP%uHTrJbBBhR=>LCG*Dj z)Pq7srgRIRT$f@OHMNIMp&BaKCvHC$hhqns_!8~(YcjE?Iy2{a{?4?wuL4rlo2C^t zI-3>onIQ{Yqpw#;aO%%%;*hPW4kzl+EwP;V&w)OY(M-q?0|{jeQmWpP zh(YcSkbQ4nq2mWFbf68;4P=hE$bnE35(kvk5I9V=n7kq2I}FJWp}+xE9eD#2Ts0Io zur@TDG?O)O66|P~kTkFgjn%2uP|m;=iHRAepjyhnp@>tbg$x8SkBl*&h%u9~IW*O> zW1CCBz~*tOn7jhb?FSx`eR!3~9K>s@wLd3umGDvJYsw9vfv;;!F4fO<&dE^g-UswEaXR;va z1A#tB;R7$h5^SxRoZb3kCj}3SxnJduFPkyXT-sw_?KJM)l=38TaBozJiHL*zmg?ql zP9mY-O9=|jY|)KsTjiDa5hyKHup5b*QGy8!H>+oAB5=V4CRi6KaOs7 zBk}LgTKr?9|Ah;H3^ySHa$dx0Ay8C|iGfZp4w3qECTwHWIObCqi`?6H1#_ZC9V}r#k6CR!J(&A&Pw>uIcwO`pBLZman zI$~svV{(V0q%-`4Fqzt%DuMFPTA*YAwbZo6p@GB+c<@K>m$UYk3#S^Erc@i|Nx4s<}QrYfH@a@vO!7&C4=y zw{!6f?&Rt)4Q5Vd3(eT@XBQjlT9V9n@#wHEKbV%A*>B)|u?+y&sj#IBTOBBZz-!=Qr+$3a9fvoLxNbUhE5p9@+!spc z-1qFMSA4~(5$8HAxZt0tvjK98XsPj>r3|FYZqx`flrSi{yC$y&orw!h{*>Dl5jr+SJB_x{i=I*20tiTe}9}*Z7 z7IHS~cVmnH4u;wmz}z&l^!+I`*ZG;$X?kO;zZJ_MDtn=Op5=V|9Qgr!YoNOyeZ-6% z5*6oDK&mAX&tu8km@bkcnTn_ndlTIn#%fPA=m>7_!0uPpqdBPs%s<_5^QhGB9hH}C zEOBx2l*d*`O;zq~M+BNQ*zN77+GgFkSTo{OQ_E%?bA0zPpbdR>IDyS%AGeN+{|5`f z|8V9s;22^jCXJbQ#f%r_LR5EFquJ$&Vh>$1bfnMC**O2-nIh8HCIFBf5&FF$QKx~C z0~l0cnAR0fxRW`qWEQ--DAL|%-dG*FXokuQpncEmfYCFK0#@T_IiO`Q7k6j`ZW427 zt4}Gwb;|dgYP)OQai_CVay2-=Q@4ctSsvSrIiVPfuB8Hf^IHGP#Zl3BLR64hOd@2% z%U)vdY&TR9663we-sp5V>*v(g#<+zExp9?E+9`XiA^N{Kx{=8LDZ0iU!cGv{EPF?x zsrQavZ5?kv-#y$gq4jYlPPl!FI7P4`?I2LR*G$BYuV~EiC`K=9hX8A@wy|>OsPMOx-r`fu9BCn5|u{N!P&LGdq=qviY8O%)`1J@ z6~x?m^y*-5|M=ZcyW8uZYtmf59ewyIKV8qZVql$)KcbJiVwrPwz-M{}r^8|*hG^x% zZpmHlHi};4z@_ce^qI?2V=%*Qi;=t0*1YeQv2%dg#Pb}Zg$A@Um`r;h7?@(0HrOcF zUY-$s#fos(iY$0tB2b4I_+zrLb&YUfW`Y~~BdiQ9ifxa<-_2^-7{?-+4d*Xe5M)a7 zqk;WhT3wA?Op$z*tVw#fIV)js zH_OLE+R8cdR<5p!8?rKUrLJ8&ccpGnGkc}2?qtBA1;llJ<0nF~O`7GSOl8A#C#s>Q z#!!}3)55?rqkoDY=1=nn{jYQFt*(lTuW81iI-+yEWE}Q{Rb(0Zp>ft5sWosovrWUe z?Ts|w==3P?HqF@0!CY3biaJzRt+X-86dw!8Wwf~cEYD@M_+16=B)P2$wBY1{#Bk$a ztKu?ydf9`8zrFlKRo7bSMnx~TN^}G25#KO<38puVXj1aD1g(4;pCs93d8{mvtR~(u zIN{eSf?jugo0X6QsBD5)4%GyM)79U^vv$3$b!G5BWvD%0`lee(-dGZ+dq&;`AnrD- zD@dLX0DDpTng>ChhE=GCUrLiz8SIJZbsHtH(tvI=i&a|HI)C`}rh3P!(B?<*q%6{+ z@LyZw^VuaDKe*TSy``x7A(o;F5)H)?40&ZXzffd)mK_6y0H!+fLCuv5%ZaA!XRVzJ zq64pPs;!v%_-p2^-)rVAXFnE{FDrOjh<>V*N2`pM8@fG;5^m2mXof1@NWPRZx?GP5 zxrNji?m-*yy`P`V&e2d%aa)sOG+C*XPV^kvzGaJjkgPo` zS#dKZwZWAmr~<=oJ5!EWb?qa#&8*d`|K#rq2reA?OD%)Y;;COsYHkVkl(;(-v=7+U zMD?VgyAS_{-wUkFuvF}o^`@7mr5s*0Vq3~pSA}t@G+iS5Qfi(uFvU``Fl9S*u9=C4 z9TLJj{Mnd@x}UYRsPmO#ma$u#DETaUe3{d;SESe9EHmrAg6a3Jj;?UxKXjQVEmLKb z&!%HEYw>FB@4h}h+*Y^Fz1V_}Ms7_%03O4vMRP9tI0 z_}J=kbso~H{Ij6eHerp`%*^nd6?Y;FCk+{OSYjf0TiUOuB7U%|ii%u^v|3)wnza8eMzINH)-9Mr-5nlRM_B#w;-46S7cHJ-aH$H3~?tM@Pw?Fvm zV1OtEB=9N=Jctj_Lk0bI=vD5Dt*^E5mXNazKf6OXM$7amZnIo|*3EF7-INGIZb37h zvB&4{EPiuRW@mzSSMhUTw{I#-vwd4NFiK^AIRC0D&cyXZOYo|gOa{QUYc|;D10DNJ7qUq`h24@={y}%E0>bOyXEnYs^$XcpDU^$^j_?J6uMHKk5%jiR5UreSSwni}qLb81i)4Uk(~Dw~XYWVF$B}-D+}S?LJ{IF)zc~%lkOh(fc%A8r zLpPOoHwOXZZrfr6Y4W9Oq^Oq_SX0Ey^pT=n0)+S#QZCBeiFAt=NK!4^OPpwN`5SKg zR=?R*qETH$GLiUDOsC!1Vq>FZmIZnQ*Nu$ok@aPL@434vh8dj!uo5f{su6#@7@Uf< z0mN@k$m;|;oENincWv8o3a?z1MjW?%wMQJkY*%sgk^t-vAGxRiaEtyDs3kgxVU{z> zH}nS}7yVTWw_*-IbI9ve+vE84sP!|luDAYyA5hGIJfO7FNXfVZfmISDfz42h&!$T4 z6EHGeA!WO;_4wGEurniLyauDaUbTh{@qGMeUK3qM&Dj@HLc zs;Owzhk=6kAsQt_f{XzprSL2Hbe}{iDHG-XmpB&O@nky>Yhxv5>1yIe8 z+1wT@)463dh-$o>$$wnNc1V_IPRTUOIkcIP6hIgW+m`^Mg+Y&|kR)3s+Ui1ura zainj)=2*Dppj-J(!uRR;9UaVDO|$g%P&Pl5GP%~j`hiTX#qaen-d_5FuP3qjNi@;_ z|J9FSbRq8d45q9oBj@l22DkJ)Ik&~Fd(iIKoO1pHQ+8xLdrIffG%&kee=ugZ%@F3c z>~6mROsQpgTNhOt*xud@Rhrq}*1Reup?z5t6S9(MeAfgPwicFmo%jW0nP9&%oNSY+ zFKaC;AJTm|_Cb47lIirrw`X9I=ukSs32&s9sRFjDb`%f^#uT+zIub0{X-1#WQGw-; z?6Y&J)dqtnw|?!-&Gg{CJ2Jl1&XwuKp2?!y9Dai#N1%HuU>_-B58eS%=$GdZCnE3D zWf&2Aul6v4p+pcur{{>_L-@|E(Ls)?0vi%Q;>eJy9O8l*cN!J!0^b5Agpd7E>JYwD zhs1$ijU%MNe_1Xi3*k$%PZbbGj3!VLlNGlgcU$@KzdPu^5tX8cl%bUzQ9a??IH2y^ zd1OygZ@m7#@QZ7(Eus)&AIZA$t#La{Z4Xs|-Jv&+?it3tbr+ZX^qo#S+2hRp;vdN7 z;F4Qs)@1QJ=RHiDd-~Y9r*+#EA;1Ksjz$6a0?H>Hak7AdDjy4MoN}>%Lh`UcuSOlk z`=$;Tm?dLqla^pd z;39%v)LSz3dqhnrfP{O|)e#pFl7X?}^%L zCB0^BpT5(KDT(;Zh*nXT8C$MBX6zT^E}^|8!@h9Y*`Ef(MecNDE!UgIZyR@}5pfk^ zB|KLe19=Wl8ol+#ktW!D%^pPeAG&^oB?Rw=NRZlk3*2*{Ng#k%7nwxJLTo!> zOhoqNl$OzsY={cibG;A+*7I)w<;Z_aKJVEq-vm411~8@>lnu=Pciv0eWc_d zo4ZIgbCasjtyOH!S0AaH_((<1*!<2XRu>xjo={m-U9))qC_hZJ!S9ONn;Gj7V$M;n zTwTjI%0jN;8fCRNH30tZ9ituqYA(ttYW|J&ZO3p?n%f%UOO7AfQ-iAI5EZ|S7jG+u z{Rm4jR5Q*I#OL3~Gut|6ce>S{PLRX52U5@z1HnjNe ze>2|+;v?_TZ9>}-eQ6#Ok#YOxy#Cr&81uTj>HI_!UI(0~0BYbEfne^-Cql2sdtFeQB&s--`LdxW492|eVJEC1)SK1)O7`^vmd3tAF_qx_8|)V$c2i3 zAqFt~67>VomCHRr7(mJwgo?=<>cSe)S0XqCG+w&C)(0r;J>8;}ycgiN9UT zgH!Gq!eHj}4dLSy^$Q`uQO^*!=r%krW62D&bLJ>vedwe6Ir0 z!yJAEcH@m_LG!JrAw1$zf_$quAiMB94U(7;6vw>{D)1q!Bs>n1SRsq8*Fh9F62mO@ zJg~L95*upag6n<2>Nm&#fWO5(5Gsg)9gefJF2Yz(1p4m#A_%c9ZFQ;FDmh zORoe`xzaB|Uu?JMnNYQox8a-M^ci3Cul@W(}Vsxa&hd=%;;+*dz^Mf)iT z0%i=;`K{&Fd=)AXZh_tkHSy}J$3k7yxJ93Z%8PE%UJJEvxv!oJH}_mf)0w#Ug08=K z|Ah)XtMp*tVb}0ssEJ?={1`lKSpvs=mD`b2q=~ zxYXo@#^bs)p)0yy`|;nSW55I2--qWQz>Cw|T#gzB=1>+~EjNMGows=7C+$6@@^TncXYJU&3@f|yNkt+&LN^m7gb3GIXV9m}&2wqNZl z(o0R_qjti&Nnm;<9;G(*FB1$*<5)dYV-IG++<37D$L<@NfT}t*!h~bL`*d7fQtjhh z@hXboww+a2v7nRI%t3F9F=f7OW9D#?+~bwSwoV>4ahRMxX`yhPcHzCH2h`jE0qaH| zu9$UzxZVdeYxCNh18v`l>lsJ;I2tvOUZjb%hoA;#fS+74FM0~=Yrm^SSY6+)-F2`y zDZGr^TsK2Yh9R(0L!A>T#S2#zPWsO@9y*3b+&47iP8f1iZ*@$$Lu2k(+thwVOu8HG z6|}eGMQHQwk$z^Xq#2PHlHgj4*oH66I^4g{7+`ptVL^mg2wIW6$&Ast*Gng5SDrLQ zFEvI-!6j{|?oTm!7sV{q8{R|+Lf%6JbKYCXyfitw^AMX-4gGB*>4TTphIqIX#d5U!>i-dS2Ps*;;B1E z@jHhHFI}Vft6o1=7mVUxZSDAG?m<0a>0Z-%U2k97e7&dlENQ>aDkRrZONzC+llTK< zSXyqHuIpRdbo(3xs_820bd7{;o-SH$O88L|b+7C;Y}C1nnnvned!lXB`FGS(Ib7(# zN}boHhKaHUR?kLRubb^cTBuKBw%j4GTRTvVfCG6MJ zc;b{>3-&m+qy}4R!!D|K9rUP$9Ih2Rw|C9h^~bm!dnLWFLvnW7Mt}m7?+ zN;~r=ENB811P1M*fwX9s)hkWf&1H9cHtkibdMiflZl{UG|7zBLYi8{hukOgMy%Njn z8@6jER@=5K9<|Jzy*{daHE5sTpuN8FUlZoLWVde5{_kJI0x)$T=Qj~^1oY5G%oL{> z@vl~Zi?#xMV0--VECKZb)inj=`o2Yp1XIfdFnJp;-U38-B}_oHAXa4qqMMc(fz+Yb zWUOHr>4#+rs3-98VxW+C&{rrlIJ?$6JIWQeGnr<8`^^&~K9gJvMnP}tu`!Y1u%O=6qERf-Q9}`MWt<%M|z*u zNXs>9Xl52|F(G$@z3*031Pkz@7}cJyV~ zy+jr$cyfwt++r+W0>JY1DZpO;3%)=3AZop2ms-DQh<9fG;&oVV|I!RYh2=}o%fmN) z2^S`bnhQ35@xjiImoWnvJrehA)Pv$Yj=E)hIjw53;j-w@K>b3`MkFU7BS3GXT2F)j z^LQoX6@K_k6+4-JD*fAUKf)!3*Eu%ZZ1x|EG8v@rR zhuu{Jw?JU76b!2v^IKc;KP)FGTlfw~OQRNQ+C#St#r^_kjL(bYg}Pxo&c0J~5X0~8 z=N~_}S2o1BahOk*)+%5Z4JqUEcjC0)N5C-(H1eg{)cb=AQmuYm0^p?C_}7` zFIBCJL1CMIWfX6ls8N>obEN>q}w`XvW#db}Q$*#U=$WXApD*5Lu{9Q@nr#G1JE zkJW{zBx)>ycKn+TVH^M>Q&SMaw!}YI-hu7L&mFG2{GirY{>0Uk9|#%b7ut96;_01P ze<1NQ-FP5+|7^#0H8bAAIPD5)hBF=5Y})Ds@LG_4u+D~h+nJgK;zacvnCvv|OUW_j z%IcClY;Ba--bau!QpLEs9#QNo5q7qZaGf6Q4ES36gtyBlc`vh;^{4#w2fDdB^bZ?3 zLD_yWHt{V|kgpN)bzR7>uRiw1{YeGTUlHi94TpOOm#V9I@;N16TVhMd6zNkZyY8rt z9YsiqA(J(TvMQCXRuJJ8l!28cfK~q>=uP#1pB?p!*GO{ispnPHxemq@9cc{cD7lXs zC{lin>wjSvdc)~p3K9kMm4ffz=cct7TU`K5j<>8XS_0{XE|La+j;<7+nbH3$k!ON` zC_eT5<)2(Mesoe4!(6Q))_qZ&zE>4N^2;vOSCW9Z^#qXMeeTB*vhNV?>c=okOl>f3 z>%}FffDX^ILqq8}BXYHLzcpz2*)tcigiSvW+fUt3+LFZJVE2<(n_b;&;?`TVfv`^gqo7S{9dEbJk zX!`IQ{R98KX$|^V(%LRAPl{ux*pbDESrgG1{u2PG7IffOid6jE0qe>f-gwSzD_h4a z*L_okNMk4pRtpMZ_yFI#gT6c0SRLv%34)68Z(GTG4YzIl!05m-(MdG&CK%oheMjaJ zBIi^8lqeKCv{>Gj0)l@UZBfT3;jHh`oG;U?34wI$cDyd6jRO=|Z4Av3d9{iaNX`cv zx1EXDA3Wpea*>QsXMBfwf8NolrgM$$kVs|K$dHSjcWl^ruF;XWRAYR^-OoEfYCYEo zS^lgsL=ZRT9U!!wYj`O2x`RV8X3@mKmyJB;V(Ztzkq~`oqep+&(C@@bxrEJin&-z@C-PZwvgvKrZ=As$vXAu(BNDRpL_7BQLIO_CD-#C zXKS(DnCG-Tj8&$iomk$;S6a6y;;;flwyIhu5~aV0g`%M@Xr%~Pqot~I^*xN0qI-5R z3q{(wChIic6^x+Z3SP{xL0=ddbVSv?o>q0QOU;VeP_(@;Rv4}}+^6b7BfMU&5ngA_ zp6f5>>tfc+busH-k}f8qHc3H#p{{`E_#gw0SK=he)4?w`gEM1=$T5g=^GKR{0ODby zp2Uv6oBdME@JWVVfv(XI_S1CS)9na8Js9zH1lUqt(0c3`tV=bJJ84ItwnYkupvUfc zKBW(ECBJEXLK#oNdDFVaKg}bsS{@g$eUx^fiXY#*Ej+v8N+nf9$z|ceimwDbMQi~+ zyH;|BX;=@`Ty%)ic5&Oi;VC>C5+3w5lChPWby}>ncPlw}QA@W&0~$3qH9F!cgeT%S z82PjcByg$5N;8Ig8hFa!%nmnEQibH9EmI>?^ zTF{kO2Jh#w?_@I>E7>E%-2ppN2Ia4c3EGmS%K6=Ym?}Ryy~x3EU>qw%!}D0d%X~D8 zeSbDCW>>KSFk6p(hahgzVPk}a=zyoa>EJY0!iGn&B5g_^1(-+sp;xrn+>0Us=(GUe zg6MR5PTmuGHRKZQ0R8%_b^?T#0N;-*a zvfit~>HFDL8p_qMxK5Ss7pW4|^QH=44ki;Y>5L*>-W$D+;_uN_?_;#h%i=?RnL^dP z*N+~niNcgPZo%M&`SDm$pZJk{)q~@lIyPH-KlX+|(V}hnfV?V(gVXpiQTG7S|5)ME zt?d>urc5Fg=bVo#hQ;e2@g`S-%iFVr6q;?0J z(KSo1KkDwf>P;0@8oMsk=+&d8w|C^@vv>4r>v;S5?xDI+@C!eWD!}9g6zc{ldtZA( z>3AHJdO;0*HoV?nJ(dl?_1yWvDNnRa#(A1Ma zf1L?RPQ&8-oZd)#+4j*-c&m133a8`-hURcHb?AG2HVVNAD0Z{P>er8Z>T5BCqN~}- za4@-WdK~8yB_En_x3oAA&-!wvsL^%Tv6kb-D7TlhOu>=d8lgit+CDhk+kYk%2(Nfk zwm?%nq*JBOiuOI$8;479(fg2R|5M=VL#1;YDj;Hg$34cQ0a2OGxT{LgOnVJ~>v3^l zAQYa6IeW+Lgy}pqU^}HZkMTY75Io`e%Q}Af5uM_VHp7EuY@H>jc+y&g_KK2wMJw8j zwOIAJNdFbBFY?x6gP(GB#)m2B5Yh*$9f7}fqK?j7OBHp7+o&?f1pnckVh<-k=>Fwk zq&Uxf>>zIM^kSe$U>_(BV}|E&#gJ02=FimrBM$h^jfhG_T<|lv(ZQLt2NG(*k%X}j zyX(8e1%0Pu2k8lEpDyN`FNs)W&s1sl6ZrOBI~2)gucf|7f6x-u@%pjON3xokJ8Mo> z=MER-TiLK0#dLsVim(F(5L2*e>Y&cVxMAeuaWRJ57x#g7;Bq#Z09gMffy~zbV*buBpW2`fG>*sm_OZW#MJf;s4WJ`6?)3+SlCwv%F2;cXMdInHx|hw} zdx$kw|C&90yjFGY8P14#ZQv&?%IhCr?(V;)C0XVZxGdIiYdFN_6K=45@bcx> z{*Kou$5dKiAfqlXUdQE*?WtpS@h}H|5ZkCG5}RPTLio$S6ti)*%{L{sTZYI#21*n( z4M9RrsRe24CrGgLJ)Dmywu4DiFS2~?Y#$vSYc}m*=U^k-&q)tF$#WnO17u=Ofpt|4 zG>OH8VmhKiH``Up)2LjzqA95PieTBoZPa z5+Q;1_qaD!_`(P~8Vvms)K_ea$x>SRWU+KFjdUzr{3507Ly#D71!$~N z3SKK+bSX11eh>+M3L->u7TK@qSK(EOMWv8c^~T70_${au0cgI<%Fd?P@oYFn`gYDD zTjjPfC2c-VtE<8Gc`dj=H>jw-lTS|DE8SCF4qWNa#rS=1Ofk|d2;MKZxsA&mZj+o< zAh^BpX8ty4ZAa`&YH!>*1x=lilGUsvm2iw*Oz8koK(4>|JKYI(v*T}7$6MKsT&B;0 z9oAG{!lJ)DVoPrYe9v22tIma}j;y^=!(0?ICC877@g?ekAWYUp@9GNdBTi=1Y_JST zL?Nn#IyAk}^~c_I*CF7?paFz9W2=C9i?!sqVD0DC9SC+=%^=l_Rb*p0^1ICCDpB_SUYl#Z9@O z9cQ^Z;Sf9S`gDRJblj!*?CtE&px05TM0z_=ko|`)g=qXP@o?S6UBm>1pIGJRh;jZW z|K!%F^2R-?Z_Nq#xi{gEJ3SaWGYFs^9m!v;Tsz6nP{v^yHt+w(fBc7?iU~3&#`1S{ z5`yvi4)a-M3vK63{|Tr0x_!Q}bS3P+Nn3X$joNlekYa9pZU9j0CO}^0quy|Oy#Ns5 zNDQqud*czFP5%Zc+YCF>$j9%q^(Qx9f_Yjkpl4pWd0T#;J(dG_xqEc9^^D_Qw+Lvq z+)`4exG&*XYniVmb=uFyNUECOXWK2{?2Qzi%rEcfA*c+d!WZn z@-VT0KvL!7#n=YB$(~SXT76~@HAhk1Vx^Wzt7qg_Rw6&*oeR&~XE7cxlOUUd?{{fa_>(Cv(j9@G`$ii8~K4r~*fWy@(1O7m7K zk*I3X$;BBDt(=~O;Gtt&v8?;Xg2pgaqruQH`FoIQ1fCp;nIBB_gZXLBF&KM1GK$>V z%Z7uqoZj#CV;%~YO>9OP!q#{YB_2K zOY>j0rQ&vVwR9?PEO>YRW$lpImNfK2g{AtI@BVe_OI>){Mv)RdwY7tljA6 z9!0`1O@sg+nWRI3uz&>f5IyddtVkq4KESqP}Ggr$~VbYD*rY)z)Le*7euGvQ=aPqzhKMY6G-@ zL+&yhUA^0K*q(L!Bf|ZZ@jlxJTQByG_YU@j%z;A3leJDcCK7f z$bHGRDI06$ki4Gbcedrxd`_%_E(lJ*s%vjTNouX2Zt8F~m21ka^sH;J6o!oaRdLj7 z4tc84N|Wh-&mMb}tpSnP$bQ~B+*cd=$87H`y9OVw0$k2!6y?6Syi`2I)5ERf!@cdj z9g1a+wswlSq2s_N8W)4}3muaFF&qtmrG3b@4_+T0XD_!7kN37-?Cv0xoxP)%dq+p= z7rR+NcuV3g{+Rt^ga!;#kaV&uUZufgqaNLGu=|I#%A;TJGOSxu&}$dl8{xwf7az#* zKtBqCZQd)`UJyI@0Wo~vc3N$)QMsLaqpJiF0Zd&jE1HKyOQxe}a(+WoIDKU=gKotb1Zvj};j)p)~k~lW+^}V9D z_bl&-XtrtmEw+m1;_lvvZlyZDSv$+KHfl#~>@kI@S(_Vx6))DDS4u7HiFI3%-F4wltkX_f3xSMQ@Uwfd%aaYRw9GsKS#WOwzfn=$aaLg`P}n zsnjR>Gs=CfugMc_wk*MG9d8}|{hi6l%tGV%=RwlK<9Gv{u8-FtZdXeZa1(+Y(E!0?rfP}oL})Y2UO;zZk%mUg^)1n~ z^4B-J@{Ba3wHOpd4b)6QqLFjG8Z)lA(MA9`WgoUTaxKHkY%}5&N&v^q&gxn4Rh#LR zSpL}_YTm(cfO=+qB~?9>K3ku6OV$lF{_`6_&0+i`n~BlIZT7;qFk!Ff?qJj^ z%6%fk?&f$>^KAPZtUo@V*0fx;HT^0Mvf64ES7Vl|RIi5Rs;KBgbnyRnELZEDf?G9k zm2JLSwAQw0o&Vw3H-%-xDuHeP^q&0C9k*pIbed7f>#F_<&y%3wLW+ko> zatC3}3U6#!Ys@BVPf<@z%ZdECD;ehGJOyz{DcroNx=(F&YZ`@{(6SjD;^#aAV@ur1 z%&AYCn3fxu#uPG<@l}{;Hf}DT6UDpboTG_aug*WZ0Gw;nc~fvPGtV2tj2dk&W~9%p zhuC5V>j4&cKpb$ePR-3lONW|x98Fbo&B_+IV+#XyJ0qlRS|qf(&%oXl#tIR*3>Iyj zy2#m;*sCsVr@go6m_1!-U)sX14&u-M`0R@dt>=5kp1JG8w03oEU2Cjl#rcTYr7r9m zSr8!SP%iT3SRAYc(2Xg=ekfGK%q(SVyP&=Og2{z6)qRkpBCrC{3T{P1LNUy@yqt0> z^Q}EAps;9yzEk0QaiGL@11e~VIv;)L4n}818{^{)3(yD*!C1-BWOHB$3_a&5PifF@ znS7^g5mHd^t((5`z{1_S4<-(nx^QgS^&_lqQPUT*Tu~t&h+NB~1h5jlg%8SAVBEyz zQ|Q9H`lPsWTTqpNEtiFk9HJ}uShn$xQOk!d>pUlm)0U`I(rzc>#2P4RBA?R=vbV7}(ja|i( zHE`F{Y_1xl<{~t_uJhz6>e8IVrS7(PuC=xLKjDmLJ%16C|H&)jD}$kNg}3CLHNx(VKldgLCH!7eaEzn z`kjxMVcQ5bGjnM`&I}8?jh+v*o`c+_a4u;HydTso)=DN((nYOmkMw)v zE8k8GNsvkla}CN9?i6AEi0Iuq5VkxdIUeK1T5Wad zbxB{CE(uViN}H5@RVKxXzABUGM13L3q+2J3&~L|?&R4C}m#UQlWU1Cm)h3Kz)lzlP z?7r1fu;~V1Q*~5rT==Su`q$D%0ao3jJ}QBCH&;i|J=xB*Mylhgq_UNbFGML-rj|O& zPm581a$IbyL-xKs;omD(y)@!az)|p@PzY`Sro^SptE-&YVl){38-3yrt+llc{QoWd zZm-eN^I}F$7|yP=zFk}Io~cDvKQ6jw!=f0sb+3Q=;V)}zD=XZ==;dJ4u>D`w)E>2| z=kNZaKp9x7Ml)Cn5W|5%!7m&RLUmVws&%`qjaIjdwe;W6so8JgbbWA@k8Elpor({_ zlywjCf&YbErIj=W%b)jAZXt{ zU;Xyw>bFN=JPQ@Or;`strH8N-kf)gc5r5@l7{j3G7HXB+I3`7ZK7QY_%#L&t;>O;s zp%bm`!oM4kW(yhsM2is$9dOj%bXTGTU-q?uwcFWpOJ{j&by|nB(eVKP;(sjVRzK)g zy1udnS{aNfR-KQ`oI4+brVKY?yy||nz+CfH=Ys|Y*2j9V>SA5C$Y+*-r>S;GZ+7e3 zYuf8~X0P=XBjgyH`Ho2hgd*t;FvgT~PVw+MIq|wJ|IRXS@x1Ip9%LKI#K}NPFd>2l z?Eguw_Fo6>gY1it#0mDlBaRfM1I47Fkb!iP_q*M$n|CjkNX!q;qDkr*CMqQzN;4uV zbS-`s#~3(4dJ)sG5vC;NMmV05HW-i)8uc!V*=P#QnBwYml)Z|!q!#kIrmU(f2 zCNuS;?)==-LsHPOjH2kmK-g7)v|0?|=pT*2L>IlPx#y7XZ!|kA)M#F@8VvxItwwz? z(bWi>H%VU@1femw-VrF=kr>(W(5(~0pH2i9I^M=E*l%EU74Hy540}^WFb1a?JkkOu zh#rgu(k<_Omgz3JOt_3SI*yDXnI2TqmzZ=q5I=N;o|cZ#V;si4qiK`Im`_SVTV4)= zdD}|-)&e8>5!Fj=AA*cdE!ssqk|PJyz2sL{BULv2sLXF{B{!_WTMH=)C-MHO0eJxr z-bUGma4HEm)mV-6bF!I?4gOHGe?-Al*Upo%?n4G@5Iy)8ytmDOCt;CT-Dt6xdaRts zr;7r1AUTH85tR3z=v~HHfEA7rV!O=o&=!@DLbQ)Yxu}BU?RgOHqN+VEW~{xl%Cdc# zpc3Jv^-e32WCRS8OPT*u-?@0Xvn<@%WE;(#R<>Ertg1*h;5Jko?MKkmthyiiXj!uQ zZDL5-pp8b325rOuYqt^WP|+rK0vfcbJs%Ib8;-5cd_3Hl)WIFmhWHXHane8d(j{16 z3aKNlWK%4_1bL&Crl;=|TDF5eFlqJH;j@Emd)S*y!0riHH4==dMCTfjIY)G+F9Xg5H9BwJZj+;zse9 zs;g7cc}af<t`t z)IX0E7rFbN$MC2zxh&r2t?Y9L>pgw3btvks+j?h1wG=JLpS-k0mA4OG92`R3C2aca zaCdj#?c#9n*|Xh4T~BfJ=jV#6#2&YcVKMGL8|PqZr~BB-&f$X@&Ef8jJC;g-hmd03 zf*V6hOa}Jz^Sxs+wIAw$`}sm09SQIwd@vvn4!8E737CJb1M^@E`T_w|$yE5sfQ3xe z7U+{YKp_vd9OsGpZQ%W~`{KpH&lciek`Qr|3F0qc-T6_%yv8pY1=Rnj|N9&!r3Y>6 zuL@~7&&w&GE9Ngh0Woqo%ugX&tU7l6{AyTSYb^kXcGyhQBcSRK)*MtOXR{%uLx%}N z)4`}e07f}e1YyddYN?~E!RdRT5eEJx9AoO@)wuXD=o3xAu23@W0YN#1iJKU z^;FNOQgV(XR|S1;2EmgGo(F8_6^%bbSvH?4d7TsBn6pbFpTefo3koSkapBBBP_O&~ zX1Jvm;{%bGiTVnu!87%DWTbW-oo;mBEk#0s-jU=?s|BmDfz9xLzB5VWX{F6VT@@3$ zVlgLAkEtV${OW34fIf%yZcx3;z;^O0bpt>NF|XX|6vf{G_oRp)7zXit`Z=UrxB3BU zadMsY$Ab^p2i-v&FkRE>uAPHcAP72}Qi!=5>Z?j{;u1Lo`Pa*y<8>3&T)2DS1E=lA zEy1W;X6djdmA-s^be!!U9K*rskz{|`!P#qdW-n`97AI=!TciTX#BFZpPfrfcWINvQ zR#@qZ#z=4qCk;OeoS zmSS4n*!CP<^*&;>MYD>Lfmo$Vq)^+mAB=|A*#y8rZr#EjD@~6_oOxFrT=;@YRlxC{ zBvsS|=$alaGM-C8-#Bo?3ob1Y4w+&d>N3)3;~9rIgm`#+qkjI0xW*-Ca|i$+y!&Zm zZ?XksLZpFPTGCSclE07C;bBh8oITFCCzkd_Lu0oHChP-s|NJUQDK>BE#<7Li%#L1d z{k%_yB({YcF9w%zpuj+?1W-6u`L^BwvD6}KJ~2QqK8R_2f&&5n2Ul7KCHU%rFCK_C zoos?f6OjdQ4JzLh0|E#zcKAFOS}0U-0Ljx#EuN8>)_#nA6DCAj9U<+dmszQbjGt3R zEm}U_D}O>%!|o+UVlLTAa)&`EsHBBUugww?6Irbc*4s=Q%=%v3DxM9Nd$>WUAgW0e z@L`B7g!ZGa+LKM8C*My)m+eh(^y>RrkJq29kkv;rL55Om8^r<@*+VT^%;?%hz!-j$ z_u`Ae2UA@k3+(D_vJY2J?NYRb1hxh{1kIvSxxc&|B@~TB)kZXpn$$c; zx_bODQJJ}CmU(`#a!_xXsE6CxPq`8jhWV>v;vP5E@hix^@Kb*J1NXe-x9DD*HqOWI zfsZoh!CTBO$cUR_le(l==z>C_i;4uOq61|k#%lhnN9+Ph5AC4mj_iu0Oh*poSuDwI zrxUcdp@!L?{l^0Z3?RRePIKqE0pyjJ*5;&F|M<|nn`bgR%M5Rx!6uu z>uuoDOTYKF4H^h6z=!Rl{&duxx z_4BiN5a*OcoYTxaOK$afEi-<^gSFjiWs8Yg6qpKIMbCKz0Iw6D9?v=!Lj3 zQ+T?XDU2C|;rT>~DI`v0dk6v`T=w3>3ym;*z{D`_vWpiLvI;c{CI0hgE#p-_(BL-! z7k!Z_h0f11noKyIo zy|LAszUbleBt9Y~R8Y{sD&lNM@Et!SNSf;FMbQK3MqL~9z=X`GBDsM$=D}$rP!VyG zQ~8yTChzZ!nhYlI-^N&8j{vsa1u~a%UeAK-j&X*X!mw)Its4iUAB*0&UuVxz9YVYQ zlcEMz{eT7jyaBoO0x;RfpPJ^AHWdh}O*5{OkvpTuzAA>F*P4JCiD~6dfjcy%sZQng zlx_!ahNxO^QxrDRBo6ccoejpcpQ0BHgT|hMaRiD}9BaHat71}U=ux4N!;0K1qJWxf zPO3{+S{LrJ`XtRc^`#4*!n~^S@O7y{!s8}gdp1LZ_k=N|;lK^XIPBMrqBe00^`E|z z7_`{AgCNsr>SP3T2Q!zXY(dDUnWgkdVyCF&7z89=_Z!9fze@7YRNP_~H{jy2v?f!@KM;wJ^UJGYZ>lTM<&rH` zGMx>X*oKU0)d)j#qQDa4=fU(s2~WLAI}OWWI~=%i3Hh?@^MU zg@vJydV2gE2o1c4;RxU6y=M!FR13oRZ`_Q*nlNao)RTTmf*nkDA)1$zN1f4`mwfw7 zEnaWZ{H_?VrhMEW#!KTEsb0?{r3K=wGv(G8pSJjDzD!G*E56rVsKiKIvAtx$kS9+q z7*%kW&13rE@q54c$WcwtO!CrgYtjk2hO7-n1t{+-gjylH!vQ^*qa`b#a)*>ISnCvL z)Gu;!jn-1|30TT%YpOm%K?5~3`xRTrBexsLAO5K?{6NWKZ(xVrwwrIZN5D%leNXNUbit^_-Y4VRREOoK z(Ozj1yW&%mLLX=eZ6%|HbF_3oLL>S;yM*NHZWMW1H>0h5O*=EWu03UZKYEt{5m=jV zw{kF@>@RB+oaS-10_E0{N$gN;m;>FewKpRBRu@hO zFNN6XY1;#oaCT9T?YAs45WeSwtIr?r=h`A5UxM>1WI}TwZ!9r&a1GLK0q83RTnq-I zeA3;Uyy}go2WMDiZ*-_`q?yB3bOafC#U>bJp3}+JpR8p9-(9s*!bG4-$Ha?RrsC*m zY5xcuADZYp=Fn*@*=D`*c#x0DXvxCBob+H{fwldrFN+U(gX%o7k`}U2^UZf#OI1GI z?dMXBFKY6nb)#TNw!6L27RJZ1bqDZ8R&>b)HCUn78Ex-Nh#Z_2slJ{1+ z!Xen77oOM*kq@n&ITiq{9jquN%%&o}G|OhiKdBna#=sKH+&+;||0{@2PQkBiRV{%? z6qKOE_ZUD~tij^{(5T-$qJO`C3{rw2B(PDVe)nWH81{dD)ixvRC>c+kSz|v*p>pgv z8K?qghG;(N(Ov7&*^+BHFtzrQB8cRXWRLC?X4^0JcK46F2m3!BY#r_#?d|NctZ$9d zQ(z-aU+g|Twq1EP_s8SjXkv_<8Q6w`dIEm{-a&I?fFCUWX1E`#it75c8L-#DeqGJD zNz)w^U5EQPH#iP)lE9?GN{!Jr|4LeDx7Pqvij8j^+RUce?yPZf*blCaVwa zQ;Yv8T>MX^xc@1-_@92axc~I-`K0GW;_#c*qsgYr_8yx#ZU_XskSU3bJ6@hcYG)b-);0m zQ}|xue{J{%R`%l5;8B1f;0*OThi?O(CR$%a!I4|}rrcd9d5#vYQWj5)<;TUH-*Gsp zF8yP*%T@zLec;Q|q{|^ReeE+`Q{Eaee7M=)?~-6 z+7lGqYZtsL#hO9qnzso-!0?QU+nTkrK78W$D)ix|^_$0Uoe7#2j<#1S!ROcX-in?V zhPDtLuN>b^^t*gSPVtEKmir zXa&rT1_#p&0NT61p(1&y>6Tk1auXGDV+C@vJ^%h+ZqJvRZn{ukH{Nrjx^AMlZmhPB zZh6=NfBsiI=8ZO7s>~bjxK)=oQII0B90Z(2GDSL-d_e^9N}(S?(X-c|k%qPbIX?__oT z@%p<{w-!XX7tJ5rl27>A;HUY1?R>vB-!Iiw+7 zT;%wAi3Jpg1rt0FduMY0b$k83M8USdx^V=8)tf))Id4~Wy4)Ly zZf@4MKs8#t+CilgM8t%Y)qYk&UZEP~Af!!{Y%6a9bG`gkuimXZ{Kciq+Jjk;Y`X4C($l@8y1bUm5omvEc*2NTEut4k(U7od7K znb0u(jgrW_5(?$Anp_kgN7^GtL%ZsY@*!mw9?5LIloXVFe^E9;OjWIVS67M{c;G?% zz)J`zVswf%ljMez_E;ApHx=w9!I4YdRf}!*L4?`jggX30$@nm>7MBf1nwSBk z3rNylFd5QIsR-k2*as~|nnXquJ^6dx*6F`iXb4;_|8%96WumE{6*2s|xp}g+N{9x< z!57X3W3_*{FghU>)1I>eqKK-!Ke>kNP#YO1H8gp#9SonD6JszC2Aq!vIW82UBJXWi z*W(XxTH)%n%IOHq^@C`&K9%GD{GUaNIE?Ex`Ux9YMgfNY;g{V>~_`ltq{&JJWqo3uJK znpf1+8-`wVe<~G3t7kYmFdPH6e+B91hX~WT2nM@`gC{G-H4X`Xn$Q|{}4JybIdt$kK3#T=d z4+62wy1PWArZRDFI$N*4jLkLfF&5PD5!pM4AV+pQeEpht$$Gct5pzG7PeltrQmlZo zzx@WH1oP+m)^b)zgL4;3%YDU}PdgwS(}#QvDV;SZk*fTdfV&PKfrng6lrz0rG(|L* zk3$(Z{4{1X#M_{la}1yu(>U&Q()TpS+urFr+tJ8$8emzvYH-K;HJuyLeqwE(H9?75 zjqL5je1l|p%Etj(>PHgeZxXq}{M%#Wd@?&}xBfBuKdnxywc`CGJM%vYKWG0M!%n?C zO2upnpr00FvRH6u&{@#fI_UxV+Uh#j6_8KJF_hUSj^w41HM$vkMk1?sDIn|Yje=*% z*}$XBF_tZqJ2sqgNJ(I&+9l-ifsE-Pt(rd~G2#eO(M2&Wx>dxq1)fX>{Tvfim4zQJ zLHfRd7_dg!>@j#Zmt*#ljLKJETX13cSDH5j~s*^TuOG8^L%eNxd7DU_8vF zIl}iEpgIc=x<0;EO2Orf*Jd^aO&cl-S(KqiirLttdY??y)ejzllhg6w3fcC2bgt^E z)8NkQbN6;HnFoK+DtG(=9l<7JeK?C89?r^n#JFGE#yuhqAMBSfJM4Upx=i0Y3!9qX z17%}{zWw&@aIc@cP#lMfdc)2LnHzwN8B2tn&^#i@FY_x+&=Zr{o~Y>MEP)SVS32%u_YKa8b(T-fUW2fo6 zAvj}i=S6-7mD|xl!pqP1<>Sa!! zAerDfImyXTqmT!zs|WWZ^Tgs=MHoq`GpgT8xJuY(n>tkonA*$Z=0>0D$PdxOCU2mo zN6iJ@;GprtPVA&rX=weoAaBAL1qM{i5B2crH?7~(=_6i1=V-xjZV)bAAUGZ?;2Pcg z#~u_H)7{t2Zr38^0*(*F<%gGhM@M@H z`=7gLgUcl2=orT0rbmWR7bB4H#+WEk@$e($yL;X=AA|D|bL7T^7ki{HjsfqfHQ<&1Pp>Zx)HCJ%<`484<-;s2t*493SQaIjw2@M~wWuLLq(?eL^{q0|{s!3O!9qeyoJtfrazS`Y7R)4QP<~Hzu zy1)Gb_keoDKRLPb@-lwCa>8aGd||EFYa-n=j_Du?MgGD5S;5Ph`On+KjR= z?0nVsJ@WfgwL}-z@W*%Y#ziB+c7AiQm4rUP>t**-ema{f8qfHmc`tA|nY?#=S6xq` zl!H(dK8Cd}=^@@00ryG=r(;vcyqFUHO9=bN!@b?7G23!1KnFq>Uw<4A@-u<3h z6_u(lh;#T8a_AAJtpx?bOzko6zdLsvMtu|z7~|srvJ=ipAOo%C62&JYg`?jT%jUn` z@a{Zf+NOUy&pQ#@Fj)@!`3Q(5{^jaVPl{rg_eSw0s>WXrd*$-w{Wi>Hr4AIaq--Gq zrqYDKSW| zUm|#t5FaWp#vi#b#Zr{M1{{Es;*#yy^n8Q+=huqLGtY;6~pmx>Rfm{=N-{Km`J zC-UtE&OUjp088Ipjsi2`ow~tp&v#~NscWCT*jm>e&c`{hF80r5dJ*wiP zIJr2xcjOLhgXF}xN>Qm5Jzk>112|-IH1}}S6dceTfS)e<<$~_O{1BQ0JRJCO(lzB; zYp}FrK5a<IwhP_;|BPSw84USW;^PQbDi^}c= z#Dm$}-%DOYPNh;rh6)b{k#RKlhsb-Q!BlwU13G)3e54jd6X%CPZfzOi140t!edNGF z(vCp*)XP%@4fQD!gEyzp{P1*mDHz^hfAau*w!<|aBT;T0`&_e3ilgbn}!bd4IKOX>!P2P7!blZrjx`WbcHk0^$ri9HcF0T4nR zc@0yb%5Es((bC?5gcn=5`ynR;2X|FF_^4feI=lu4eeg(gkF`rW^u6kmBJmTkrY0$Z zy7q*7BXWL%)zv>Rg)3QJ`5gjJoAsu|@Y(>Q`Si!bBXp9cU^~BMzfvGGuYD&Q=VvKj z2%DhY<`vKxu`x@MB0)5O_m|z}Z`?5V=I(zv8%_sDsFrQptX)~=GwyQQ+L-I;Sr?8l zvg@m_2EziKHGzGnvneEjc|ei`5I{ta!zE4X@0rb^19LaD80M@Fa_or=V~ya4Az=_A zRN0Y<;Jd0$m)&eURzQ7R-t?oyLUbgAWzxe{gov#kL??T)W}^B+5a+T1Sr4K_Ej8qF zmg7wc__sE6px=cIJ$Zu;XzW_{4q%%YNjgXpRy!J;kH`$jgg#pG3O3^aH>gH?g@AGv zDaLA(E$_Ik(@e#LMO%q>$qJ)BZ}4Jke`jz1S(-cG3NikG7b@~Dp&^(WsOk|jm#TdC zq;h}vt;}@}>1k0wH1S^Ohvlr{owEUYtr{@`87DfgxLN|0Q0wQMLO4S-;1BSaHVr6Q zw^efI@THKvXIfxhK3@-331$4;GdgZMu}|`}DJrPz`04F`%Ulqjt(wR!5LsrN0zL-L zH;lKf*oDC-()BonfTpQNx{R8AV;nM}j$p)EmI~?sW)uEy+w4uqaL~qJga1R@3oU2) znhuI{Yq%{FEv{?A6N9CJ?HIpU(r+8Y!rKZWDT4b0?!uTTYNw47FFHVT`Z2+oXhi9@ zRu~ozC+JU1+t62z7cNIBV&>j#d=zX4puu~2FgnvuI4(0Ly*O^X{sF%QG0;XcWN@GU1-d#L@CXoVI>bJl zK~VfL;%_#Bh?h3%J$#yTc$Q_blmf=5=_Qr<)J*VfC@|?}VI>?y+m0fjVo+g)yRme? z&h6v$Y_AYq#Egzk480^o1aqB;O$n|H1gz;O!iY)@`hIODH=wru;c)04;~MAAaRp6G z4wh5;-qkDhXk{SH1@)ERzZt)8C`@_}ZFlL#M%yt1xpZOyB)O(8oM3ijWvGib4)e?6 zLyqlVDiS!6`cx^#th#c{s{86?Bml<#pK|qcFujIUCABmzx`7ZTJWy!k7Xjb>l>PU5 z_I5kmQ!wE_%`T+bY1jhIK>3-^9ZpPsI zuc&#lMnPP`fDam6XRBfWI5)eEza_5XPSq?2kltQl|7Svs^qsDa_iDm(Luwg;89s0a zdri26X9CjbVlQ$2fkuYD1 zGDiAJGk{B_{NK`|*uSM)HJ4#yqb?UL&kq#uf(A8(m)(<20eML+dU(v@U7u;#i>stXt)UvXI%BlN-`d9uzy|D&FsgA4*@- z#LA?DyVYTs^r`s>|AS|O4@_?`?q<*YbMiu~-{LI3U>H_iu1c=jZLn20Sw%X=G4AWH zo7sAV_4@0atXFFf$bWu0kq?HkmB&88e-uBQKoYjz_&OU7E(g=eVz-5Y;r0g8Y&Mz> zhBgtS0+FABixB34B=6hNtXs*B$YdhoO4HYz&pkS3l=60xIP+LCnvY#Z^YwnYRV09}cz43^R&xhaS=h4Vgd#wrWN zU%Yyp{r$!@9kRo(Ophc+r`qtrM4F>|d}r)&WI^}n_4fAe(Gk=065Adl!bEL&A|eM+ zFfCm?VEWb2m?(ja2Fl8EwxX}yFw^txiAj>)G}!*9TYE2dcWkpt`KF%K--Lj-P`-y4 z{3p5MEGDzlQ`PKj2426dD6z`Yqz|_Y7^_Qm1cpEcXT5=vPR@~u;B@GhWTkF{4NcbAp3e#sr zZ>XSN4RZ?o<=5##g`e{ANk`0^?$^f<{6h)O5S(f%Z8;_w78O;G=LJNiBKR1wf~08X zqe@XTF6x#Gx+yXDMY)jsA}QiN5I@1WMMdW@08Y4^CXB*glDqzx$uN z+pmxJ_Mge86trSNg}pd;I`$OUmF8pDIt2x!ATe-MgU6r!Ji$$*CNpM7#+$Es+H7eK zVfh=%pMItniqw4Lyw|_xXgL(?r-T1O!mGi^NgLFaFBGvuQ*mS#abWCmsdrcsM}-fH zwJj?r7rs%Ht1&RfP_9TG$^INSyO9}KV2gCeyh(+-3*K8{=ytrM;b?nBZhi&xr+{sA zW`N_uYum(lS_%n9>)4zz&lu6O^z^~OeFu@jEh*@>?15hbS0ZbpH>X-+saorhhzZr*T3YMZEIASL9BC9pN`SVnPfj9s1I1ll{Z5rVkqaGJX@yWH z#TXD(16m?{pfu(-iTRRe53X0)w2JW=+b)@L1jY+>{xF9?c*Z!3=&1O}%m^CRYbuq2 zAF5iJ35W0xqzFS|c*edxM&?eZInh!7ov3T`J^wK71;TLNTWPpj%8*(QDQXArhw_PV z0*x&-91n-I5woC;Nju=*BTJzEsN@Ll+}NeQF;GL*S>WhF_D5NoA85q|h*qZGtjwA3 zDe^LfQw#4}XT$uXb9Ao;r|(y1SLAd3@nSH{H3TG~<|HS~s%SrbD`UsZICPO%jA_mN z7}sQ3r0=;6Y;M=Y<_1PKdYX$iw7DNso0m}UEaJ0_%L6cKujx-X?ED) zt8oE0d^g*{#K~vgO)ZZ*vBs`?x4|)|Z;nxmP=EO7b2}DC58CGFE7sj9)=BYyuIGfB z*L$$8&x)d-{omrGo0YDxWWviIZE6X#sT*0d5(`zd`+MQt^YWSx+^Oc>i+U2TuM7#q zUQg=P{w;!Oq>{Z6GL4RGSIQeow(w4n0)~DzgqY6yY;maWB#M;a$l{PBfhr-gIN0I} zSW?ES7g+-(uN{iTop_Cb(%5UvPCU%FZi~gy*BAhJORq6od-Yyoa0m^ZSJHqQ3$2JK zut3HIH|~10b$GbU%QVzOMN#~_#b8$>o)aIc8{Mq5b>sLoRyGO@|2fvhg9(omt4(urYd|X`PY>o!MLhaQsA3{ki zM32e~a3$n~5;k$=Jn;}cvljwz@-cZ~Xq|3t75^MuK#GDDP zL{_1c6kenZS;6u;^upQKOZ~_2*cl5~b2k4(sWWH_Cc#S8{xm#_!jxAsM0*opcMc)R znG-%o`r|UME8|cnUyPgYnvX9+6Jril$60bk_Q=N>R?67I?tTFA<+yh;%n3FdUr!Z3 z2!R*d@Np%R+(PRAt**X#1LwzkOWRO*0|~InuckjZJIjH>kaNrg(C6dD;Pe7HR^3qB z;Xp3O5#@>NQl7^tjuhi#P>LD-Ac4tb6drL(80>69!~wZsofNB+QO2c-VVb*|bglYB z?_&J(co9Z4j2D52X1s*n6BEsV?@IKw`|{u?%zyLt?Kgk$N|CTZyXOZlki5aa9Py14 z3h4X+SWQQxZE@UL{Ak0_wVZ%+#!wf zD~=Lr;1m3-scrmW)}Qm^HD|tmS#ziQ#GfSBH?#X;EtnU7;-T{|GZp^LllWoHnZR0n z>@^1dq-xymupbAbej*3`#2xb!IpoK6M!co7xzdnNFlf z>ZJFP3}lzR|AG9FqyFl&0Gf^G@xx#`kg2Gc+wFQ#;Go07e%XVBQv6LF`eLjIu_9PK zGCKn0odMcaOal7IL5eD9&{0DeT?3&wRm7RWpYkAk=#|W2dEF#bP%or;VxnH6DQ*Bi z^H0+pl5_vqo8*sx8~ElA*aF!gGW|&qNz@-^0FG8itql@&)#zyN+5XlGg0Zx;eemMo zkhe<7(3Dc1IUcpyx>%>3n_L#}^X+0-jJt=Rt3T$mx1|_3#oJ=Kprxf}hr7G`7S4Jp zoM+=aA4y2(@Bv`akTCPJf%QWvtRIIEp4WmpQNPWoety1pEFk^46w=QZgQ)}RBYd!< zIyl_ge`-JR zow5wSJw-cp`4yNoDA6E4>!Z6jQe4PrI#6^2Vg!!zk93mZoOZLLi()o}fNz(FAe!5QfCpz+mxr3itB+yT8B{D%WH5&6LtC{LhQ3T@D6g}-Ju{-Cmb7fWL`oDcuJ;hJk9>@f1>;I9T$`huZkjeH zB4UPZ4@mQ+R;=?nsDqKHqyvMx0i$(TM#aD<+WpfeePo5Gi)O*6?-P(%sr}d_rjd<+ z&kR1QijS49pdcijzJvz<%u-FIGGDn;Om809#JJspD9 z7sWl=qidKsKQ=Xek|e*oWXaPGKFg=@Ql@Uq35rBL9Fj|0NFd9Am`xyat3Q4P1Ik`8 z7%`RgwmcsOK*r%}!Jg5o@AY4?JinHZYWqe3l2J>KL%tShn6zu^q)-Dm8T8jbVJITB zp9Z+xMro9Of?fK`a^|3>t*GRtm1T<*OLCg_Zw7{g0eBlE?z#h?jizl~i*o~J3gK~_ey656mCs!PnHOjpiqj7pr-@!&-J#=kTUH9}vFifUFkEmgxX2JYV7p$6I?q|Db6BitqlVpDZONCk^jUB)P!bM@w0={SKLV0` z$4U{W^g8$oMl+BOh{0J)07XE$zvC1u*f)sFAzRlL=exsC6Z&Km14%5-rxV6pj=-X- zg6%;b;E#T+k|+|8ak>jd2ZwluCZIFtZq)tOC-{O`Ll)5Bf|&$eW^RAtrg92uOp(1a z{XXf|iC$~YrBpf3_tFQn##Dojm9XwZ@?uetJqbiDpOhi1I@JDzM(&BJLptDSnooS~Ok^Cy3 zMQWS*(JG26tWzk(mPxHzw1b;=0#yx6iuUAF9?Ag{!-}&wk_jU)+?c}M%!i8}&jR$g zP2$2dBOqly6{z0lkVg0qdJ+0ycJGuP)rZ&f?VunVghK<_izOb+CnmahNJvqkF*}li zn4Ncmh};5-SPZFkqRrn1Z0dX)jnRVeq(hGa@CkRp4h4GxHD(zm=}O^61gg;A4L<2< z#*j*vmETaQs<%R*8e(6KO5cZ*s6^G&RdhpQ_OLPKSwMO2g4{H`kqoJ+zLCr(UK#b$ zzt&C)wc0&y=Vfnt(LEa$#kd_&HOhv6is%w$`FGjlwKa8~yH7~{;i7;liy(oNFNZ@{ zvNb#XF&_u=MX7)fAdCf+G0cu=+PIQYGDP)llWIkq6&1mTo*K6TT3o#+Vra+3PT{HI z!X;lV-!kzGv)-nWG1!*Y7UOS6orhokT|Pf~T0FaGBDx-0#^~~5dta=N=McIjhbL|b0l>A{ukT!=O-Hm3 ziMbTC@xJkt6z}{ggLvVcVd3etOK_n8z-nM<{1*dd(i0_M{ng%j@iBzG`yW8iMTrY`<6mE-AMz`jSW^*_nkxne;~$OHMa#!{GeYnh#PrUw#QTiIvYm?c*D z&H77-6+my#pa>RHl;~UL4Bgm2LcclKs%gH+^#zSEi%}aHJV5$xV;3{vkgl%A1@J-< z;2m|2!2XmBAKhUohDz~}#TDP$9x6GvG$Qu@$2X*pbNlkDM)LuTorax3Ph|g(jritP zgT68sf%>t(_o5?edE+#BHBNC2qyDrJM$*BNt>JVqouQ*UXVRwPY(j>Gy0dOKN^!tA z^bi8nC1_59wBX-m6bnfl84q{CP_>KuQomc8oH1=lF^r zH^vWgb-70bp{-mr{Q$<4JZ-*W$9&lF6ugn{gfYc^x>LsV|7Y*(pWC>RM1R&+`G1(u zZ%dRzF_InUc2&_oB)^VeT1z8ePcZ$1Hf~KDzmi~D zOB`QSF#Ur*ZcQJ*mS9>-AdP}4K9wiW4xb;s+#?ej7n^|XsV3>iY-E!J!>9AYtlSBj zmeF%FzCo9l*&sj72NZ#s!Y6npIxqM92nDWJ9h*RnC5TXP?@y{M7Lv&ogLAoco8FmZ z%46D9s*>twBGryr&M!i?o{u+0o-vffUlUBaF-Cg6ItQDS=LR?Jat$Lhz?;c5d_&c< zwiM$&qC>Uc>0;j4&UriVLiS*N(a`+Y9D16PZ#HI^gdl?U{=hm(OaE+jxbd0`oC^w~r86(o}Uur$e(> zIh;;=A`x^?N4O)*E*;_X@i2o(5U_;fA-4jz`$3kpP3eb=wa5rs^b$r7U;g67UcJJ% z8hEJEKb5IetZKNX_iWI~#B)-{*DrVoeR8zF_mqf(LwR8c7w-#3aq+(BAcUPTa3npW zQE%2Oo+xosrSSFMJC%I|@f{8!1>{UN5U_F=h2e5+8G$jjC^`Td0%D9aTo_=5B}Z98 z_5(m9VoG7!PP`x~!;C`do%+F5e1;SZhswEs))XwmC~{bOLm@zVE4z1`kX|GkdM zBK$7IK^T^$GN`aYj1vZRyts7u9!XJfl*OQgne(bTb3}*)vawOmRf7(FH?VNTbsk}r zXlut2d#N)L75orv-Q=`u_(1C@9i|hClQ9~lxYNNxqko=X;vYX}=DZpquad}!$qtGK zWvkmTBuN($9ns7ba?G2WVfB0KKR}m9#Z~g8NT=BUaXS7$f54l5(EZ5poF91*fAbLY zYGN4UCw&&#FIt$YjK%yog-n7|wnmHF8r^3ps7e4s74hfK>-Y(UBJJ?yIy1l7^vuR` z;gl`iBs)WSj->(-{m`J({BLsu5n8g1Qc3|sU~d2MIJrWpi&=N_7pht5+)94WgjQs- z`1PmHK!soYW4W@;?AaWY&;cEiYA2+WPIS>a5yUPOe=&Z#uQ{_xd!lj&tMc93^}$D< zpthq!jx}KeiSScU)oz;Y5IJ;OR#72Bf(OQ9LX~g!q=_0VukrKaQ^MzlRgH*#`|tODHut#qyL-J|u?R9W{!x;kM-EQfCt`1iEP#($G6h|N zSz`#s`#6H#-f@q9t7r(Ox0i>9{k?9(7Q!~W86=yd=Dx&A-?VWce(COybB+#cB`MAe z;>gRaT39(+kGD%$mwaG@`ou>3%J?l_GXmOvm;5p7>&J(?hg-=$@=sVkv)K}4f@Zo8 z>69yjJg*!T7_vR(=4wd>peWp`9h(^D2=1xKJ#)FJ+8AvRJPHYcZfetXHG|K%dDexk2tWi82%w5A}hV9DQ$A-{> zKx&xxMF-oLt~AHbhHdz~<^rQi)cFb`usMaUK<5z~Sw#2molF8sIu1atdDi+ip{26R z4;ru&1C~eJ*8JMaO4eEhi#3iP>Yr%GmtXUP#Rj% zsG|j_2Sa~nFBdC)Dp=@#vB=$^2H?!mMGd@qVV^XmD^}F!o*`;*nvbOi?Fex8hw#6! z@V_1i|9WeL+t!uc=mNl6+Z#&%cX0)&A3@CAJ9eeu&1!EJvHcvCu#v+j35l({`~6qF zfTk0v9Xj6f&KkkSkMYOf4#UnxaC&LeWPsXcPz!woX5 z)z#}HHTOb$Rj3N%oPa@pg4BiZxed;en~A)TrHQ*xCB+4kVN}FMBdU#bd4&k5Sz+ zDT0x))QDeHqgM1%02)LuSF2w1LS1RunkRWVP|fdUH;`M1AJXfYO{@R~h)q)5N2DhI z(01diG9*`4Ju=xTX^G=E6aiKvi@w_7&+u2IyLkHK%1KLWvr5{6<cPJcuhd$$) z&B5^^KZUc*aNNzV^3WF+CqxB_q-bZY@`0{Ey6~vTHH{00R6wrCdy1e2$ zxYXGR{>rz?Bs4j>qgk-A%8D|s2w5Sy%TxYkjKdjgt zQVfq=^r19BuLs2Xd(8FYayR3@_=uw<$cRil|1M_b6ku`jX)ziVS1_c#@$4d-pjfii zjoHv1j-M3iWY`A-ydzRDm86)Z^V{ZAAK<8o(}?wMF=f>Pu2Vl*Ubwn?|>`o~%Oram3ogkSL8*{5{{Y`qm`)pByhKWc!? z49;-ctG2Y>a*_v;8(Kn}RBykLMcpNV#8b&n?)_UBSi*N6k&6I6&Q~iX_DF21Y~RMm%I;;WLC6bKpJ+Uco7-^5VI%I1QBVRqQ2Xw62LsXh>we@ z0^c7Q;E2poscbeIPQFqIbRluU|M1_Tq3o z{p8$v+q7rxL}ftp1t3+Rg0qnwvu;#t#Y`2tUWzsMBb2aXwf#ZJ5-%}No65~Bu*>Qe z7{R-O$~<+WdGqwr#EHPMV)uI5zQ{U=?Bmb8goS2@fq!=Q;p&vODAq&iIOPlt>p@y{g4AENziN#9RV#>TqEd@QWU*M zN_rct-8-0<7m`Yn;nX*v1O%%4726jC9c*siC1C~%7w=Oy+7@LDYr@KIIvnmT z^ut-Q*6J)vi?%~tVHeg>0DVrp(2H!u$9#^z5Eo;t2L^i{K{3WwW26I9*b1k&%+zDX zfPuAM?2tOjE{cy?^_;58TW}ab6*!CFzd`;o59L;A0*!du(2oBMn#!k;u&jw^NLdpc z^!_xvu#}ZF(3I{~2UIplrRfI?ln63)L)@1RwZf~_xP69r%Q44bH;&yKc&v3W0jm;i z7Bb+v(GP-T|Gq_xij=UtEMOOrs^|fS2z0xvZihWjC0iNyjhf)f_9B4;Sc+|+BRERp zGLb&Lihd;RWOwh?i^E^yYQ150IV!F(zO>cs+3=(bX!jg!{SIjQM7R`!R{6rY%4$&Y zXFn+pb$SFDw0Jc3YzTkP#`QYAT{}ln>&0IP9hOf1GaF3BJKD@N8xgijPQ?qj!kaH@ z1gLKV2Ji5UAG`E#N#VJD-*xaVF_-0-Notc~&$kCtqXmWE0H-qa(5}?(Qa4bx-O_jI zUOcRPP)(WC++g7`hDz|{8o`f9M>wbJPI!JVj$ns3{R(vORO zcb!pu-v5qTqxek!9rZ>*#22e7mgB7ho>uH;|1lFTGd0yR;xPEA6f>eY#yUb|Ui22+ z8wM1;L^(wa`<`J>=_$lup<(2H`U$lpX7ln*NO#r_JFlv?ZWPjjOkhIj=$frR_<=1r ztVJ}cMKH|m0CGGk0tc{$Zw>6|R?0tn(0bPbI2-CN4EH=MS-;uZB69xSD-*qIs#5<& z<#QC^>&5eIxIYf0bE}J6Qa84!YAjUDEua@85hu`#E#77swV1cUz7k_`MVQrt#g!In zXjLWHS`DTs-mu{?eghB6kc&vUEmsB#lcNgc6P)ucr|J|RimP&^G<=Pn$9!YIygiv z0NN7_XBQWcUvZj$%%|5~LaIUhwvBhOu#N}SI=k$ZNx>#KAKptjB8E-H3e{5__> zp`r$ZY^tE;Ncut-!drw)Ym_J#3Tk#xV5EcjG0h~K5JnSYYPoeJl7*v$S%p+wQH)w_Y1Q57$VmNJ10C6>F>}0Stnm(%HJ-XunSJHQ0Ss)d# z_J3M<#T&D3VcswI`~CgH14$Tp0j^oa)tG|ex`W(tcKF3i8-qBlkU6kaJcZ!9SCF61 zI}CpMOp%4Zm<`GC74R>d)0Z;IrUT+mJy+EW9Wlwy3_)ZQ|H%01Gmrm^`DwVp8Bv_& zXFq)gr3lJTU%ChzyS^*PutUE1hZf^OA6bIpFl-}#r!R(un{_FZCuy182Uf~YJb5-6 zCil5&m!?uC@A(g}5}y}50@=y;{v`e5skq`Did=-3FZqT)7zk-g&}e-RRq$9Sz2kKl zKTy_P`?H5T)Bgwu?o+`YN}Q@6a?m)Q%&cJc_P@A43n zzQBqV-nw_aHG}{!$&d8uK5c;h-@I!eH`{udO;hiZ*Kq#gx4M{sbxc75rdoa=1T@SH z2{Q|TP+i5ao9v~7bG!LLkjXz}+_J=w+LKx?a*|E2GRQQ`h#)xt!d?^ev^>F=hZq== zYb4FB$jCGej(_H|)xxHqh-!cyT#3d_a|lIdo%T+y$-sP+UT2fCVIZ$2d0|j~&F0or z#!rYMjkPYhQcH&UQie&6lLp8|I>9IBel{q^L-+y6Ydtl0->LiF>L&XrF`k;^5<;w9 zq~z8^o>mGpNQC(raB>K6b6yk>2Km^=(HR>&7=~3E#2B6jXD$E*PSP+}D;_k=)gsVJ zN62R3W;muKjwxd``OhLB10c)t8@hH|vZ3#Rtz=MVpiHmn(SbZdO+!1lY*dWT;0UP0 z=OBezfVeUnV<|+JzV@al815$KK4&Aq3mzq(GR@yC-YF8Gm5bb9P1zv3oLbu0GyCdO z3L%L~{}|p;O*puG>!5dhh(5kMJFnoshNVqr!)(HVV;anj*UO~Lry0B8niGg4UFL=hNjF{S zg$9M%)uku&Dm8>xOfiZBZ(5wk45BzT;8RFu z%HgN^253Z+bdns+@-puvfB%?H&dquwK|V9<=nemd;~#v0rQXd(=7{FO`-`v-yJtv9 zK0)F9bY>W+tN`QOpn8UlI>}W=u^&O|M+X-K4WYSA2T6Vbm`KM{vmvQ(a_h?mh7f7m z$Oz%0F&huFsgdh}Pb;YlNL1vU!~WVhVM+1?{AOI zBXjAVWy!P5Faf4upu7S7T_K8d40t)nFwS_IfU<9DQ&TV>#$`_4fXn&_y~y(^al8PT zH14tVO@xLS;?qlToW(30&$422mZy-kJb@URQ)2&Ph>?aPKhH0|N%qDic-q49nZxiJ zYw{`sjT)(zl74*1vdg42rRQdV7K?HS%Su91xETfmygjm!3PMiO$V47VtUF+$h7HKh z%f@H9q1XxY7Z~kHI++*(DwEc;Vl-?aj#|gLL3Img8byOk-o&(VuOmFkvK;`adMt7F zFoBzK9bs_GvK`A97vMR&`S4=);XE~L=iG>xXESq`M>IUijG$m>Xm6BXV;!Gd!9gH65ruk7q&4yXR#)ABO!;K0fC&9yNA`o&o~9?i~R zaWE~z?be0&zvea}6Syrm<&B#9EX|&aS4AeqJ*bXUl7A&fR^ck@Mjsp=G%D|5|FydkvI zFRi~^7>pZyEBJCFaBk|Y;LDA`S;RSb_ETtAv(jkrsqkcr!b{qAh?KCV(tuVpDSl0@ zBnUsvvB9F48}PjZ^|KT3K|%;4uQGs>q8LSX#(udY_1nQ6U-c|w7KP4s((3K(9KL+@ zV!v-VTgw|6gl%#|QsGg(NE^#Jr-~%OOVefz60<1F7^|(`y_t zuD2W03+${@bX`~wE$l(DmMnu7(hJVPiXBF!SLt&RoY<}wK}kR3XBDUInkv;ah^`|s z7b#;Si-6Zdgn;*Ilv?pBoEnV*u{Bx)lHE!W3CC)dtxX48th~(1(!Ow18F06otR^jI zGA0%{t1azK>7x*eze(EFa(h-FRMGXUB}PQq+;E3f!bTfgc4-N4E41jTr0Agg5{c@t zJCYt+zDi`gX%3oAR!oC;vRx)>lDypO_j}J=(nV6OnKkU0->Jk;P_!am3Hl-58cVHfzAXAm*zLX@K%BOLv0JJMX91$=|Lc%AJE$ZtJ} z`bB_X`SVz@GqEMkNm~qmnc4V_wk%74x2e8&v=hsz{s{WR2c!8>*u|F-Cm#(l9 z&RRAJGl%(IQ+*1w#Xub;RN#9*k%@eFn~ua^UjB&q+d5Cal1&|<6a3v?^U5(h89Zw7 z!oxRMcKB~#Z%5!{!Bu1XCz>ptpH0=vTyg_;38nSsbHnD7PX#E1mHoIW08<kZ7MsFXk9qj`{wmz9 z+f{I;BpP;8r2KA~(V^ViKODEKw6N&F!CS@Ahxuoj8MCx$+w$G#xOg&}nK4985vpJX z#e8y7OvW6L_#0ecJe-yoJ)Z1<&dCKtcRmcBGuVRQ3ZCJMG2qWIl^@`Ud-CG--gn&5 zF4b;%n6R@sg75^@$v{_SiccEwHg;W3vkOVkJLNPa>2R2HZh3q<@LpQLP_v4LEkg?* zaQ|iBeDjTr_GoXnd9aZ!1b%juzzhir9|BtPENr(kL=0FQ-)OU!;BA16(JaeO-D#0x zZhL&1lWhnGr=n&y$`1c_f7-v~5B@Ly{Xh3L&aN{rt;i7Vx|1;aMp0?(i6b$cPGA$~ z{R}RNOcuo6oQWjp*bGhNgZvUjD<>I=9h4W}m82E9;*~5y2{4jk=mCc%8Wf^1rzDDI z6v-4bM6w}^v<9I($d^k6p%_G>EJuMYuEk73UgjH($4GW z>zmIXJU={M=im=)Z?gIOB}EYWWnk^KDnTwZmeVQvjGR^g18#ZHG|wemQ!R0j zw>JvFh%B6i6kA|jQO((3<=AS`GLZ|vesPIa3v?ywtQ5^ba094QAZR1b3>7G70(vnU zO>@)IIxc9Jf$(xc2GQi8M$Jon{t;CNobg@HEdaInU?=Jgkt{Gkj)fK^0JCDmBPa^b zr0#7p=bIho;;{84Vbc!7NPwJOFmpjdET}t-PDKL(R0%pYoCFU+LZC5& zq_6Dc9!9}eQ|+jD|J}WVXZr_xdq@2abCK@h!IQ(@(Qbc#cdz?m@98lgS`Ip}@BT&c zA)|X~b@J5~ebVtB7gNwCJ*u9Abjxxr*qJFhdpQY%*@u@dwXEhOm3!3_KGHT5R}+>Z zQsv?NDvxv(CWfZrAlej#1bVu4HM|`yADTh~c zeceHD0&}q<+6hr{`TGGz^Q2_Cpbq6u5xm=Ha%|K2Cr26*|$IeI404 zI2}+FpqEWd=AqhDPqEB+=rHoFdh6=F;}@9v3R`<)@OH!;K<=eJQn8DgMfX7qLexc~ zEKUy6W_0h5wnwB>nJV3qGNni%$+Unq~K@g1=p~CsK3N(3^7U{Mk zBCDt<5yGg-#Y7GPHGp^`6j9!O*|{rRPf7;Yw`rivV#DXYbDy!koP^$#XyZdxeR)w! z92uou;j+5IxO+@-HvZVn$EQV`yrPleiuMm)Q|0NeeEaa7eaN(#Y56Jh&v6;qd#LpY z#1nk64zEB$i}3a>CIYj!ERGd{?sHohA`af zq2Dwt9U7#7#uYA#w3I`#4Wv6Ebn_8N3|>q<@Ccj(m`=fj9PGi!FL}LY^xeIG?Crch z-amNOSc{!98|#pn6m_`1{?3qgydpowCCS0z!5+JVCW##fI(}lg^8|fJAFMCvBQNx; zlJTty6>odvX11JUjpFtytDX81woux9?25>v62NbM|NVygPE{Y* zdG1yxb5Hs3%9Q_B^#zan)w+52EddCZ5bwmVwu&J;a&xnTk#IL?m1=f#ap^f{iF;te zhp*jT%&{nVRK%t}eA}%cR{*mK3L1bXRSyjX&5TdbFY!HWBt2p6p24&|57Dwl7U^`9 zo=FHyBS@O@8yIwRbUvgV@ur$c0w;LqhKLlDYeeAKobdFHN!kUFt3-eSjCMS;2{r_? z_I(*Tk+Q{X(&h3ZJS4PjahxwzP5)}nS@xo7*;`~z`)D5 z_GWiID{HTP8l4|uk=Frm3*>DMkSsMD3p{SNS1U&MCz`WVlz= zNiKn%egV&yDLD6hkVleYlAq;cwHb~n$d3Si6a`H2V_mK9u@;i5#-SN#fHglNCH;ry zuWjuj#VYqqSV4R%`e?$ciIhpy38fuYb5+UHH&k=x0iH{Cnhdk-a;LbwW*r^vS)~+X zSK+HMV;v<;_(|~yzWL@G3tj@=#qMU-P{aIZRCcA;aJ*itH9c@0QURxoLnPO!nw9U) zA6ZvJ+-?}m0-$W*;d&@t8@+fQupqQf1IQpik9+2pAHw3T(}mj6){JsRvze!c#85Xb zreI`Haw?z6fP`&x$#XXQSd2bq!5gb%Ti)>@k>thv2f<0meftV4>|5Zt8=#c9oxxS+ zYz+_FD#WhZ#>gv3^3~gSMbsc1QE1cAriW_zFOSup`8j%G1!mS%IWhoq0PIpiEsy`N zNQA8|G&@`KN614o9K+A(8!=8>Q6pdR2X0o&-Rf4Yu(PEk3sgx7Jz7iB8^ zD|X(^J7zVyU9j)i9-yVHC-EWVEeP2lS!v^QX_uq5w3F7KA=rsm6Q8p|?4T$*$UR#g z3RVKhlB<>NrNtH!Sk<+WBJI;$N7+sf(sB55=iobJE13qV=fqsn%sDVN_cbwH47(d* z#D%gT3FdT$N-(TMrgv1!>ZH51)3TXj?`&T4$eI=#HjihWhD>cvFIp%ji)S8?mTGv$Mc!RM?d zH<)!#>3D0}Ngh6~j8R!mE^_O3mGunO-|kN>z2Sd6EkLk~7n6}1t`AY^!;W@o@x!rI zXmLcZ_#t=onM8GB-p$BElKx)PE|L2zU#iCinvMoq2g=1UhBFMdzUc!D8bFVU4jK`y zL|I&96wVe#(XClGcYh3rr!gRu;`@^?Me~bMJX5<*&6^t=fuvhOZk!7+;?eK~Py$pp zW^)6MzsqXeftVc8KhcY_T`dBJE(5Id04lA+Fz*cdLyg&GCaAlv$62{p2{p*KEm9=X z+`6j{dG+%O?+#igI>`qgu2FM#Wk@RpoyEVh;2uM27AeJKW{cc*k;=!>do!{GOVHfw zkOH2_=TT95wq9rHN_BhF4tgZLEche*y&aM*WTTa*wm%FB5% z$`VFHDUV|4$sk=XdhvIeXv0QcVchFbw50o|+FzV*v}P5p?ubPcE1sw&2y}Eh66@s* zObx-GW31GjRIw{vL$rA(IXQS&N@11kg9t-TBRVdEWi22DkovR}8`MR5Z7s6S)A1Rw z!F?QlnIYh^LlYJnK{YNYDJQdW1shB^c6-rO?A8=Dr0?kBGfW-6LT_J#k6`GCKNWew zl88XkaTmhnwf}+tNrRZ@KUPq~3p~r+5Q7TVHQDoCz4s^I&sxVVn5OI;UE%DFZx_&v z-Yp_$hcB0*@9KK}^T)my#75rQl;Bp|vXgvHzI2iewg!QY=5%Afll2V*$z2A1=v&^O z;#_ze?E7#u4}-Jwv+M(w<9#tB5T|+|@}ns8Xyv zQohyVXo{nxw=Ytfn6#QNBqVm(cEeSmzsmfhcZg3Hb2f@1?_^&Lm2AgoGsyPB6`>pwA2!ORbcc{`K>^ps z0oK_UEn{0`m9qR_FRGR36r**#>=H>uUj52gz~0-Qp_|IMZmr>d4J^4pSB-dTL}pW< zE}G1PBn;9O01C2tG&5u$8b|4JroKL?R-)g7W8LAUMv$(>w_lYep65ewj+k8hI=jQF z_U3Po$Zd{X6~H{_<=(;TgwmUdP&z0sE@tDL;)<7u2MiHENuF+QgvQ5yWJA`u@=3)O z=Ds~T>$^{Eq$E@;K`I7%D=R^XAl{fu-Jp3r%y3ooE%y;F`mdkBeEFy(70YT8tISy5 zIehuDcd)A)K>K8$DlFf(lu7Q4|Gsc2j z^$ZYr##&7Rn4DrrMo=iglFOS2u%V`<-V%FZ=VlW#N3JO#<{(iKtL1-FEtxgSSW)r9 z#y6()WeEX`y_e8->(3h-5Qe1ffQZHOcgYVM5OBnlg^ZSp)+FfJcn0FpC_5F?4Z+ML z1B3qVD(-w8n2m?iQN1Fa*-$UgqZjIIr5f+KIf3tx+09N)gB3wxu*ssb%Ia zzt=l>{fe@bVYGL2RWJg7YQAMD>a_w zf-NJt{4~d5XzvB+fv+H(Lv07TdwogY(%JMJwDp)Tkoi41S-Ag;&Oy5<@TGXm9C7J-npv%GIc|3H93jmTz<2lSu zCb<^@k8XJ`y{LCnye|`@=;Nw@{CeDk_A!yDWGltA3gaMKDfg|8O&A=!jr3s2(*&-T zqfCMsu>1R^!KL_@15^vzAE-F{X?((xN*r7e2}<6G*0+J^QgRWS;eRj#HsmH*2!`2d zIvb&lrCAwi4{tX{P{=T$%46Yi{w?^vM=>ghADXp8uk;v%wy4yU7rkc)9#e2^3)K-@ z{G6=f@8tL-ALV5Zfjj8K-)GYlK7cNN^YI4XBa4ZK%8f#x6_BnyH)P;74W(-chqd9| z5xv@$Ogh0$ zUk}FXBiQS~J;Xj`z2EzJ@8EcMzyGRtY?$-W*5UX`KAE0NB;CU?YF_ah9g;j_X4SlK z&KIciEJT=w%^C`Evt^})*c$7RPeE&8>$4p-C`&M4=0oK%;X%LZc zn2BPFhN>D{(Fu~ie@>g4!v_fTGR zPG*q&Fxl)r?mptjcn=`Znf?$Vw8%IlB!$<~g%uUUh5L~<+sUS~OsIlpc`AggLtS&u z3zCqKN$yNgy%pS1JcNtkkq4LwMF6WkV)q5@img`N7WNFORDTP>#)_>P!cbNhn&E@A z_%>+34-Z!A05Z2565LG@ipGYu;fY0?Cki4L7qjcYS)jcCCQCVptH%fM8e*imUuFO6 zk|e-&E$#o&49-2k0SRUw)k~p6AoA z1Nc=wf}pzTaB=X+?dO2K5yWPYSm};o_RotY@CvovyfK^w9fbzrSfLFu9Y(`0Dpk6D z>hL{9UV7hu{`z?L@XbN}QqeG%f_dCKI)44C86@0?7XbNu|F{Vb9By8@A<5-C**WU< zpI6suA@BZ_uk1MM#?G=RAK%E0TioMHoH*>o2}{vQvQ# zEwEA1TO%V`-+B$1`vKV9(+;RkjXQFRx2`iyh-bNghnHwkLk5g+xtPf+wINCTNju)F zlkm+H4?m>Wo#qKfXV#H5!eXwEE7>K;@B8KeVVHXV!reZq-;*wa>rO`&rpwnQumJCF zR@6EbDxHct1QP8);%0X|$KMlZ#Vi4{r5U(C_>%?V{|a>J&gn&{(@Zd=1G}uI?B=vn zapF`Le#l6+m6&^eT*6xg4^<;6hNUi z)NaWgm9ufhCL+EI3sWi~@^f`T6sgA2nCWFaKASGRjIPbCmeGOnmN6`>S;cCF=qkqG z*j0?fSauctdE9ap)q2cXMgK(`IYg*a<|pk?8s*+(yd*RpR6Rsbsk<=j+PEga2ly9QKuj6~<|_JQ~I)1OUF(*edM;_RUq+S44my@TCW zhyLzA@4a|&_~!ka-tpd%eDr=C9rkSPqt^#-dcU;H4{KD@o3e!prO5CyDBFGOwuomy zqgJD7n^d&=|u|R8(QAz_yE+lA5FIe*RU?^&fQG|EURbZtMs~I z_%|GVBxa2L!6GgOITW)?T z^jDR@1A`v8sv#E8n%zc8S;8LY0OH#)>UbX*G5P3t&y$a(!>Y!H?rQZ6!98l7qF27@ z1D?N32OWC0e4!ehL~Qhb`fRQAF=vrEd6)QyoxVT;<-v#GMa30*{g%*qGQ1wA7aTz!f_G6C z#ZGdPmgpA-{tWAKyRZSZ$)mc=robUhZ8Puu^jb{!PqOp$V-9%{(O#VsGXhV=KIJXP zMj$?u%lnC~(TOBojq2wljj0PCU zO7NxOcQB121y7c8?cz@3twoOWALKqD<2*)$(Zu)0HTV0T+Sv1Bmuc-KrRL=*hhy`5z9(Y_d5LT21dPFod^VpDS$Q7BPRX{7zgHv zk=P^~6Zyw7-ct;FwhpKDmRqj`k|6ZGrJ)`yHgSyJnC_pQopspb$oxsUQ3r7BNLDfQ z`u*!)|Jvm~9=bkeB)Klo#rkX}z079yo%nQ8s%~)Sfo-1i&VvamYV8-MW0j`fY$){k zGPnYk$W&v_@eJIavZ05#2bRR>yf6%WhDQ^lF_H;3JRIy1fU)RXFMwQiib6aBdWId% z2In32Wl|>;#Q>d^(N4(z7piHmb$7(l@!z$Rp$s`mTk#y8G@(~M8_O!IY%}S0R z()bTsgJmcOAa*@ouac>0zQiN0;XT}aK(Zc$E$ikO>2#WYs6W#=+_ju@%u)rPT^lzg zLR1(T0H|S@h(ouMIuXq-joIj$Tm-$5IRVNr5f)!n3rxQPnP^UhEO4|oeyH$6JmXT@ zBI(G$9A5h}A2~L9MD3=`d54B%X@)WDygnr+ILGrQv>CynbW$Va4ucpL;0B&kNIDsZ z5o9mZi3nkGKzD6aJ={aU_{_#b0I;{hx?1 z*~bAjrsy<3n@u>V1KGX#*x&%HN^Cx(VCTdJ?K~;_nFtx|aEdeduUS6$Fd`*Nc6yo* zFwUu^p3UyVHOoM}by#9=F{~c5F1w|W8t@3RY4^-X>{S9yW-zE9 zLPeFy;pK91N)5Np88K`!u24u|aD}1O>r*LHL6cUfHO*F8EODM$rCx z%%10?Y-ol`OdkE(?E#@`L?+yuOww!9@+D+(;wB&SG6#QaHcmBzx%Q8H6+Rahte6Z* zo_A+8hO$pOBzbs}65&RFEUM#Zzx%sB`$K)XiJ zGBh_zCz?A?vKa8gF&o%@!Er}x`0f*5v`(P=NcLuUf0(x`wKOZ)*PW2+l3>Cf;H+BB zXBjTEU2ybVw}j_yXbk=mCEBbE!JHfAWrl%xMlo_kfKSbS zM5`c~ir(BxRJbh4T*N={Qhj}}fBdBmD7}tHLBb9(wg1oI!Jei%mn|$;q0gb6Fa z0MxUi!`H9werx;9}&_&n3 zLMwcLgF-BofLQ@&#{(Y9Jw?p1jje*xPX{TGiIerTU*b{)Dhf|Byz{V`gq2>wuo$Hj z$#*&R0&3wU*gMo|Fo!_PS`P^?MD{sngO=2G>pvwqZK{}QD0EwW63mFgwNva+KEH*| zc*h)Dg`L6V)Qt6<^eD;J`WnWn7a~(br43A1aX2#b3GiTjxf>J)g(QxKL$k?oY*tnS zu?3j|S`dBLBfyl6w5&=;k|sC-hNl_PsmVbBJ?K2IcH*RN&qf&S7l#RxGaV1I@^l9K zO;40}5Y4p%Ukr4UMjaF1dH9u>a_zt%?YS-0tiZR8&PQQ`yO2t?o{bx>_Jyy{9F8WUSCdBK6OgzS&D89-dW^Ap|ja)T(=dXb*bFhsk+1$_K?IUMsWlS&G^?8_aq- z1=n?0SH84DXYZfvz5jdf@diXx0ni)@=gD63_ul&Bjh~KsFJG-cqcdyQoYmtplc=s7 zhMiuZU!mad0cqj47P%Yxx({meF`eWXUCCa%*qe()N{*3b4{^j70lhyQ4qNIez}{-4 z&ortLM0&7BYig*mrFUWYZW78T2GM${OOQG)7L#NWQJe)??XVyukJnb-y(z9)bk{|9 zx^A(LuMT8!r#@RlycPc+tFqxo3(*!!tVw$Vw-*+?I;9ZI>+&*#l`+dVU?zyNb=UTc z=|9NqBHHtgenyp^LBVyAj;~qkjX9{vw+SRHfEY};w08!vkq){!%1%exblFbD=Dn`r z8JLzt-Ysn>kOiqwv-BEEM8x;cvZ+;-GL=Q?Ac_mS5!|~3i5Ab4Cf3E3XAyM|HRRne zJuopXmkbyHJB7JH=~a4dWT7!<0mk9eT{ebKvM&JT?u6<%l?D#zIQ@{VAD$Xa1DE96 zGD=IBzr_}xTqk_vkUY%T@$2!9RW{UhkJ@eVpv}RsN3{Wwp+m|!Vmv@V@{kg%tdtaX zktf8^%V3dTrk{|SCH2!rFtB4h+&<+Ovx`M^SEejR5}`_~ItbPSRQA*|LvXq<4cuv} zYH;7rST`rvZ}<8xkCy(cmDxQADCp>C))3Wn^OSOSLoRgAGfeKNqmetjZ9rTENIOHl zK#2|th10&Btv?Kl$8Aho-{!V&1gBw!CNGvE~VW zon-a7?K0_2rzx6UJnSh$lj2lkv1^1e&SNSf^o3bC zFlWrBgCJi$W$(D06oah9AUu_cAZ4qdJelt&YJ=^R=VqYv#6!)OWni6)z1u;#XbRTiQ&8_cHG#wep_qUy2FhcFH*FXaV^2f!~- zq)}!yEeHjkAy$Xqz#zjn7nB*pE!2S=n7!0RDyq4&aMbq*n~rnDSv@_=l_C-AxtczB z!ItK@v?dPcF|;CSkog9+D{JwqA8@RJ6aY13a5@_~BgrT|*{lj3d1IyIXB~Y_>KNk6 zFELT62>5AI&Mq%U*OYW2I)ropyOtP=*%h-4-tox9-CYk;`(ld5;&y~$26lnu?sgDV z;}=c4k*P)VqJ}4G<+i9u>b6%#L4|82w&C!~R}$TW2?+W=C;g(M1vOk}Hu2=CJ+u~k z5INVdzO0y)2KVZ+MQ%5$e?XROB@5?!3y9BXes>25lo?$3;3z-M)Vt^{UOl$(Txll{ zJJA1Hy&eF*!N3+9J zS-RO`=H^HU^%FZvhxyFLteNmHG)w{BZ2qDHraD8W0FYOt&r*3e6qDSnkvVPMfKL4a zdnX4C(NqiS!{Lat0^Ge0GEp3z*eohv>=Zb!Jq@{?Y;S-l*?*O+Vd@UUb02k*?>mVh z2&uE3Jcc^Euhty!Hx}GO6bK)&Z59Z^Cz-PSBUASR&SI8G$YhF_4-B#dU)IbHaqN4) z2yz`7^vP9SIlCy{@E}VMCFyZe36q3r^KfHhgX!YdFZWx%!7?3Y9qOWbqJ@L}jpL<_j!J>8TtctB!MIwR;zjS;zPy(&JoZ-pfbn z-LMwIFe*Rk@FC|hwmUp8iW1b7p|?Tc>%+WwvD4!?9e;o~qG@oMLB05>a4F%S?)Mvirdm#dY1`35&QU;*vG%dK5lL-H-^n99yX(h*nG5_e2Jp?JrHvsIz;K+U3)hl zaxT3sd8TRuy+P#D@3mmz9*ZjLS`|MYp%_VMWb9N~N{ovEsLE`yTG6*-EQ*U*>Xnitz8h-<>X5O7l;vbCh+HDCbs%zR&7&B* zJ6E-{f_%xKDms|iy9a$Hn{)zonocfBU4EU6;cWmO5Ux;BJ~a$l%t?%_fRBmgC8kd~ zpH0_?#g%}~(8H{BP95-Gh;Hrd++mGiO6y#}zU-_^HXuIclVW@!zN1y~62%=fqZfxR zZKa>IO9(Q=dW`|c&j4u=Rru)fz2?L;5;52zmJIm;Q&!Bt-toN5Fh>ZebNS3UQ)m1{ z`3wjwfK!T2pS0IbQ{QzDIa^N6eddtE;GFx9ovwY&wiih2NI`F9@Z3{Cn3Pk|NrIN4 zoK2KAg&jwMq_rlD`|ZeEx5OMOq8*~2y&=bIxZ{G)4fqy;fP_nA@A)-i=R!*5qt{7) zw*Kh*WF4F>`sev2+XdMQ*?J&$waYbL1Qg6h>S3KcAQNzbTn8V>sDlSFg4gf+uT8f; zt37_Y=|=ST$@N9~;U_b!bsiIr4|2+DPK%6k^DmC!B7E)L+OD$KO;k!eLiV~9_up(+ z`L1*JY%j`ILvt99n_Aljed&#l#zlelYl&HdVxx7Ien*+Q%kc{G;w?`|wV1I(S`bAZ zMq(JgB|@6-)`Alc8^q~BQWk!TS5IKZ2{7Y3#a5N*zAn;Yq~>rYC~ZWV1mmkXSz{ou zDP8IDtpo1);u@x2ft916s_riNq?2$?WgOs-9Nw@RMrxr018h`btLG=AD7eP>clu%4 zzvjxhXl+B48?nmBz4Voyu@cYp4TD67vr~-ZrJdz$;AX$$M()iLq%-E+vLUY@8jj{t zdUJ$mYiCx`c1q6hhw9#G*E3j$su88_HHv|yM9;8sRqPCFY)2c$nn0|@{xrQ{`3dk@R04s>YN8Cb&*7U~pCLd1ES5{oN_7U`% z68)+W<)!H#iMarj_3(GI(KP*so|xIs1E*0_mR|yKeF2ESs3Fe-_=^U(kYKsXmL43r z!(k(M0^t{q$|DGUufE!EvAte9`RfM6fXxlI$B+?xa|8Zo{`EL^WkwUawjz{{TDy+M zv;OhRay)Dqz*YX{3=!dsu9%s+?Si$%ZmR5rwus8|@FE>%(QV9c@ML0+@czM;+UnCU z)ldJ>M%}uq{(jS|{IRu?7hL_)(cN~uz66048_Ku3<9A&jtqU~h^F`B1Ll|k-pTGV^ z83@4O-mN_H7WMQ0!JE2R;M=MU;BVWys;#wBMY(+Z#T&;j-Z;EO7WZu00lIb-#q=Ly z89oOE)?4ON1jsMT0=X7ElGf&Ul8#F#I4Y(UolQp#R{d?MA)pRo{A;>{g@+ZGpf5)x z7Rtv8jopASDVJ3w@h;}iep*a?EB-|XCt?G`(Yc5lQwQI+H^^#yIH}}6ZpwiCRl1~3 zB~Q(fbrl#(?y$&sz&GIV^z;sf#E^UpMEitG*d25TVEo>Y4^(kbxf{;GNhLY>ZAa<@ zjEs4qT_k={E|CeAFE=PTO6*CfIqw5~h}&Af1k6|0`ehN7Gl<-8Fi;I?AYvi7{E)(0 zrTH54%0GRUNlS!M9Yy2i;bDJH01X}+B88$op)|;vSCm?Hd}lw3lf7B%a48(Rsd`nU zRk^L&Od)fNkId;gR%ut-nBx#yDGk^gPtUtZoU*$_c0^}D10_uX{N;xYEt1eL;n!R+ z_K9likuD_-tCd?Je?;&$P(>o>s88D{!q_ECR2ppxFMENPR0s}3dBQOu6~xC}ohBc~ z=6ZK^ex0A9t4yN z*TS+5G^bTfcXbBc6=vHJL)HrA`(qCY-lul95Wv`Fr@2J-OXzk;R8}GPvr%yZ_6g(` z@%v^mwP;zAaO1ZXP0b|8LfS0b$nVn<_&t>Vqs`D81=5>}q>FZ0E0x|*F1=O1(sP4wdUNq~(UH|is5g{R7wxqwrYb>o zDN*&-!s?ZSBtv693A>&D;>4Ud*R8V z$!84my&W#kV3Lr*m@5HXTIwFqW*S)d_Me`dS1^tKl*%t}y^FF=_lx6klF1 zg_IH?7QnM|8s=<;d(9_j>wtX)o&6xzgZz_=ovMMPGtNhzEQ4)IFVN@|tRg8nkv60( zm0^qX5XmD6P~hP(AI~7RCqKengG&w@H=^zBAe&&+_jYf8&6;v>?w_m#8`d_yUamzU zEd7XqX~K>xe!NQNl4m+kS??JoI~3Kw06;%KTa(h`b8TQs(@QTeM|mXBk2kLPAl!?P z1B$GKM$mkT3e=#z}$n?+aQ;sG-XIS2FehqKRaAhzKJ5m&N2T0IhJq-Qe%zLdZ zaA4hQru=y0&(#hUCiz)=K(SrvRY|(}{;_+=1?2vR`>j2AXlEGiJ(!KqfdFGPVFs}+ zTMhqtVeV9DPP}D)!1x~|ZF8|+Pd2)blkbv;hSzRmuU@O?`PsQ`=30I0wK8LqMo)P7 zWL`JDD#%Z_RPpas02pf^?OV3TP4t8J?%R9dINPHi$mr;C$C(u`gaAkVqzwsfwdQx6EmAd5OA|rqx1+BD#dnzcRY?*AbjljQCR3K`e4)yLG9^x;Pvut`cP$ z!4pHR5oUW;4w%})APpfKk~&=bGOO2V;NTM@HD~-%nP&&=PZN*)d~8>?g@>i>D#Ung zhX*pJA&Bx5Qbv-F)zh3 zO}xhf;S+stFshbpdg>ydNLUrLvI)%3C4cd7V%Qi-DyIhE1ky@^|Ff0R#Ga3{7q4qq zZ#*E$g*8`>&MuQ6laL*mwwWeD$9aV7s43J@nCQVqYPULVQRAs3el!9?7fB(DZ9{Np zx(`V+lII5Zn3fssZ_xQyqKKevk40Gl7#S%ExD&kZ`ur*-vIo`uA3|7EEtrp&EjpTb-~ z?l|C-#D1+Pzv09wZM&cyy$l_Vw9ZZRyGw$#hr8Lomc&5Fk{?_96p@2-SA!_)6`y7J z-}dI(RzB|K6H{-S?Mj$|*{9jc!w71X@D8qC3gnq2^4Jx;_Ihu=i|DC+<&}Eq2qOwE zu2<3{ag((0GzMIsfG}~^wum&t$8SGpgNJRUq;!8d6Qb4*MQL(i<=U%q9jlU#rj&D` zrtm%HnFwmII;lF#`f0q~d{;l>=4O>yxQ6^5sM(;e)=j*!?PPPqmDS9FVQS7D!qjEk z$>aGjK@i6HQpBMo0imk^!~t^@E4TYTN+=YRPX}h4-rSsVSfc)kzcF4eg3CRcSlO^$b?;u|;NSdtY{zuAx6mz08hntj55t zcDn?z+g+v6tX3i%R)%aUtahSxd~nx`fV!Wm?DP zz=vZVzqZ0!)>tuENyqJM>2+9|igkW#$H*cT(B)-@n(oIjI_(;2vd_512 zQbQT!<2t)@@Ao4Le+40Ut{5ES>3|^ONj1`rPv+b7+E)=J9GGqV8>DG!6^hfL2oP%- zmBX2Z$^2Lci&=1jVRSHqFzdyp<$5mN3gvWr*U1Z@@U9SdsFw%<;($;{Z=!DqH#u zo``Fo)4woaonnTY*1ju)V zrkcz@>pH=K=TY%E`}FmQ7-Q)oU0_n@yujBC>rnCEh+q#4ntn}sjnD-D;u}qcpjDm! zsif@@HqxFVYzbTFQnOW8`9at$v6TKMB_g}g#b6U`O%Wn9J`_@V*Sn^T;*~RY>q&tZTjGENz z+F7&Zl?XkqIK76ZHX5noBtE?DJpLMKk|E>B!Fvv^BKZD-gRi^5kPVkhEFXK=$5B*> z^u16iE)b9^529^Hb4yAUFv=uSJ^}LiZ+L{q+tpe?TR5&hP19aS%w1$~-mbRoB(3}1 z2kWh5ZL6G}U^tTXhyIO3!?V!{@Tt#zw|)U?2yj;}h-XBAsMr`SECh>sRf~V{UbW=U zELz+K!drNFh8{T@W%9!4)^|hoQxG^+ayzQ~??dH8kH13-4=(O=DZKmOKD(WWtPp4d z0#$(eMZ03t?Fx2Rx!L7=0Wx*&ta+$2f&?NXNVI8_KIG#|Pzfn|u47hTeHB;yWo%q9 zks9X^Sk=KaOwH#l6==!Y@v#QSvzPAGhp`s2GNlU)h28~DfhEp+2TdLNKAjN&j~{yC zfM$wuV)NwzPZFS)I(2jQEPgd-jQf!>zl^g=>md_J2+_NX6Mq1&`kLwxa9cr;AX&BbAAvFp|A>`yZ_O>BoOyLD1Mi0t4nJox*5#+dY=u$I;N9A8 zj?!2di$K%v4IKh|Vy>$O{uUWT?@7dv#2&`>X!g#`LAhggrnLhJ@rGWsNU`2On~bGuLmSnNq-YmV)xRT zh+wW>Y}-^P5>p|NdSJ%@Ju4>H`@8;Qj_AXk#tj(Hbc#ztWn1WfHt(BXjnw)l{7+z25vaHY5#bTFvutZvJ6!$;n)fLtFW zWsKRb;u;IuYmw!^lDC`hXhjeeH&_oEl;vhF#r&R5VL)Ca`P8POIaXPpD3Jkre7RUQ z6vRf{X$F$(zW3rqlGC|~a+!4@1y^H=dvoI`Pazvu7tEg;UjKof8WVin2}RWe7LQv# z;hLG!@VhlQHUAlv-C>rQO>lYLc7Z9nQoHPGrtSCs&el>?8uX=IS#3h|)q}#3igh`% z%Js?-TQyWs7?oRrS1vCrj%$YZn<^8Gz>dLm=TZe^c+4ya(Xz7Y7=6wZfv1G+&jIeg zXj$7U^0qJw9Ho7|^SAPyY@a$s`@*I*PApnP^0}qNzf!xQ?DEXt=>9^F*@nWJN!1&X zRNCS-bbl!O*+^i1IsD6uiOTYCXqgtTmvFF^$xDVlgj0W)a}y3#;{q46|SrV><}Zfg{dgTUIGWRe4Lnh&x*Bn zX>o7wd6%^14AC?*^a0nG=nS%TbzD-}x*C3-Sr|yokF`l}F`GnN_p&}0U7j0a!&aEi-EUaq+r)5#^DYr`d)`t!NY*#!uGiXP zqnoppvBuXNoed*)k&ZDF&1jlWXTywCy7}a!FmfjyN|c>zkx5m&IQclHb0JbY;?^lV zYqg;(lzFGfv1^ULtBV~o|E>pHV+3AZrL{SBKAw?qgo{!#HJ8CV#=5u| zxu6p4cC6DscIx?B#G~X6^^cg%@vXnTK*VUQZ+OqUWk+)Ns>|j2CwgtV)>fy?ZItx}Hsitf4`ned7cd%QBN2bfaAK;JlMbz;9L!%BP`=lpiZ~5%Lv0!Ug|;SIgv0 z{vp52hIzV`oKL5h<<@uKW#jIZeC-yKv+v;7ci7b6_r2jjll;^Do#Nuc{F?CRl7W6& zHT`}{{y8Yh#i~lVH^KFj|mr*0~U?a|D^JTa+#d z=UT)0#Y{wyqCF5v;$$?dK?q1wbl=S>Os?n(Ei#H%pn2>1qv&g@+?E#C}e16kh`Wb9O2 zzV){?NL^5L7b6;UJE>|bLN~fba*|*`g~=5 z{bg1{pzY(LHyX8*)=Ngd;o=u&U|VFA-Ku+mHJ@AdENCU2TEkaDF+2?3ep%&i(zp`yG11oQG3P(TdhB> z!X0)qg1!@a{_V(FQ8Qrj2E@F+j_Fqk51g7Q8*=myG$L09HhOrjEtq+G4bf&_e*qXT z@>4*(Il?!)Do5zu>?F*Rb%#4?{boCf5mMbvVd$%&*)oG^(%U~GkdQ~35|^LCCbF4u zX`!Z=4eSzvPjy@*TC@Gg>px{=b)+@le&LoR=_lYfzr9%jj(`ehR)CvRShB4?0HVb^BeAWCx=vQM;6-cs(oxL z@&s>ov{;HmRJ6`SEV#S(JjcVqE|7<4%SiG zPFU7we{JRE-Y0`8Lx1p{vgLKPMXRlf0du*6HIl%X&o`r7H=+e;mZ^zI)-l`AcdAOO zjt(USPaO$EdCN(Fy3qRLNG2?a?d{HqM)#Wqy+mSD2CD~2Mr17@Dvljtzh69feiBJl ztxmd{yFJTuPS-T#L}2*@Qn$b}O(JZ)Y2T*oR>Kd8KYfm;82f^bhZML!w%O5dN472X z`eZhxooj>cBbfml#TO*?kY)~b&y!`ACGJ@8zQGdRo(=eO{@M(|-T41|bA%unoj%MK zU=8y&cr?}B*V*TOS6j(%yy2^gKgyet&ZY&#@q?e&kg?5rLq&4M>`x`nhfSV*RZKo) z6WQ_hptYu{Wn+%3m`c$mP6_m$k^@^2DW`X+ToU5?w;X zRJMX2QO9kGxiP1Fd%x%a)ee#&U7hD6?T^P6l@;!>W$tZ<_@|M!*20J@W_)G=f6mNg z^652dzBb)U$UqD z7xoI6h7IAO@@t?7bwuMIrzuy zJRgk2VD^=RxCNnoaD?VyKRVu1Y%ev!3C_jL3wmHsY&?#tWo!r-$U#oL&TIz94k_y1 z?7w)C49s|@Ai0@K8cAa)NJ4f<2sV*@$_BG3DQG5Wg@&mhcV4~5$YV1&yugqs{};S+ z^$P|)7^NkL6CK&*P|5Csg$XBs<1l@?43T_nCG7#F!7$yz6WO(y(s(w_)>!7`<$8Je z^WMw7gJU^_(Z`Cv(b!nbyuLI$#FlI)pA9MPKskqVY)M(GbMH@I1l$hdtaO-SXDV{P zGSfddi$4-$Xr7o^(?RCQ&=ZpJ<^D5SrgzMd_2vJvugFVNn~sjGq->K|Ro(z>Q5y`` z%QfrfM_n?R<855t7fvWaD8F2>++i`m5~v;<+Y!P@UW%8wN_&aGX`KWiRLQM2kA_uW zI0RmE4rK;P0a{1juG=l+dYI|*#e!5tPbr0qu0gvJqWA$XFl0|%zT{)~3y_8Q!b5?X|k+$1x47`r}Ey*aN^;mY30u75^U&Tw$eTjFsym-8xzU zAhJQvQ`oVWml?2{G6zl$#b}`3)x8Q%wl#)=?svrb68BYQFAzQAra>-FdBK1rfiXB~ z)mK<=RA%XQBeOg&uE2`>ntOo`9J|C2f_gRr{PULz^rP$)A~BRKX~T3WSkQ#nd&ri~ z3dALuJlN!qrnZsxx^!?y@|pA7DGrE#xdh}Zs9#44?G1;h&~L+~XEf~69lTEv-#^(u zI)2{qps;e@LD(AueIk&utwrQYddz$EsXZZ2Bu!suLUf5fEfZx7fW9@hkt==5K3uye zfdg=TY|=qxvn$ATISjG7m&%k-Xn08|g`%6q=EDuA3kmyKDp@K+S^z_w7Br3^tL~8# z%1BoulGO4k=3{(XOwNkw99$Nc0V;!$U7AJZ6Y9jh1ecs!!rYo^J6wT$B`>vVaM}gC zJTGP=b9QEf0>a>&l=xWMMa~0|v}d*wgit8Rc*ELAPU+B`e7QO9(=hOfouu6Q>|gSQs%Hn_|)|4P8R-^Tict6K#N96H>)f5t5X z+#RxVnWX7tn>|X3$2cOGJFEA9$LYbGCju7g-U4dGuEAph_<(K*0h@WufbfBD z%uoT7lgjhoBYa(+4yH?hR`Vu9))k%VJLLn2v8?2o#Hke1PGe98vsna zxpO%b?H~f45|WnYCsl?Kd4?drP|SReI>&5W!aK-GcAi4s0nEvhCXlq+$YTB8OLJib zRaCPoQ}kke!{F(I;X~)eBnTrbdJ?loW*1()_Mlixo{m6u!P=vw{jwP5r#Zj&W#dVX zATYL+@E`~tbG_zxq8Y(nZ#UGy;Ya$JeVQ69l*yB{%C+1aH3Mhl^&SSpJhg}*v6yK$fgM-M(vn$f0SN>xegR;nhy^j!(E9!kL}k-8-}NS zNjd=RSz%6i{6_p_szc>FQgati5RI>o#FpAW!RWVS01I4GKT-skH1up6_xthOupPEm;`Wx*W zQuzOAj+w(L5DQ*8NE3gWgUvzv@6XpC8=RZ}JlcH4|Lx&_A3lEh>UAf1-aC3J?aDPW zcre{jFw^tdR9jn^j?zi#qL+esg^>zVJq5AE*f|H?Jn2_X@-x!r*lUp)BSL^5iz#`l zc(?de`d(YecQ7*(K79GTlb;A6Tq`yYMz1x%FuNc;zuSYJo^@wu=M`<*U0l(uloI?s zBw9F{nTeYaN)Dh(c2$fpEe=BgZG6IS8ya+0Czw4hD zjMgp+;_%y3|J5qucF}wam6Jqsz*8tMsDZ(`)an>WH`yQa8*Z{z^V`HQ6f>No&XJPCjUQcYaFOkSqF(?3I)S5g=Zd?h|N@dA%46y{*CbzE&MQG#qwhcB?W{ARBPQ(f(zt8xzR==d=Pfn#NfH9y{DT&;+&i4Jy^$=B=)#O`^aFmKn<5=CtbKEg@=<`B474vYWQnw z_Ie%RNlm<q#Cy)>2!f*a*I5|381!m%v!uoRA7Z36f?#i2i za&6Aul3VxN&3B!7`_R^X_)ahZJZ~N@{6N8rp-=GR>e4d9OW()u`m=XyQl_&OKb94;V zb>^*9H-hRlzzzea8+?eE5FP95fs)d2nB(lzw8E^9aKnSbr^=scG1t~WJ5_n)TWRDl ziR7)A$1%P#!#LX8tz{QC&1j-CDC*qc8IA;Sp8r`a6e5$6u6cemnTbW`zoClM!19u+e-6RyZB79>#TT#$ot|8UR^HgZf2=OGDaA z2f7^zbDYhHy~O36AvF?yG0NmQ1e866)G3oT{l3V?Gq@J1uC2%1IC;9cLB_*&egPCz z=6*~k*XF`)#$%CIabP#EL5pJ$_dP+S^Bk;=K3PhO4Ev8cfN z=Q$@8ea056sNWQu0Z>#KIdPJaZ8aDzW@bt!Gt@#~Bd#v#2??db0u9s*q%+F;aZ+5I zko!3c_wdjJk)t3Ok-SM4U~10GP&x!1^>+6Ulb3r3ui1)G76xAihFek6iINf~I5u~% znL&=h;z?$RNN~wki%I%1%}1yJ7aVTcksPES^D|QIb-UdyR!e*T5INx#n2g4*k?dXt zGD#jJ4<5Ascae|RU(wx6%((c z{zdWOW*tGp7<9-f$*$i}N4tHybv$)(?lB`t3Jx>fU^Tds9nc zaC$=}#6%w-kSjCx7w+6#&?fLcNb3sA{Lv+F9}mS~&W<0O!rSzv*bk{;jPl=V6ttZ) z;ttFP8c-drPY+$f!oA^Q7HF&t2Fa{MK;nQ%XQYA5^~3dFK3u>>^(^ZqJ=21Gq~XPi znlhiEXQT}B;0PoBzAH~Y<1C$=T-(tJ0d$i#=;x8cC|=L2z*8C*SBU*Ll)I3brej6H zc*<@BhIGse`DPL9gmB#xB(fA}*@{lDMf=s|@2(lk>8TqGn&MKAh&?qGI(Puf^NE2x zCh%CDW*5jRE{n@`@+=PcA{ZI42FU;i(*(0zr(mrvzdO}doIui?4Vg<;B}S(PqV>f} z%MXy`%vq4f2j8aI`b2c=S!3)(MvT`6Z2xjFZ24Y{CA@!+FqsqOd;*O`f_4>oxhLHhfQ-H}24J(z+ zWI3o6*ie9!7L*^@4EDIVNYB%&57rLimO~>{kg%$RbTBJ0QYFGfZ6pm~G@4!HWAFVH zZ9kwcSP~Y>b^^>vF7+H>oAIPxn@quGeeCHBT==^42cv`s_n zCg<}Uc9~SSBh3*|CV85(a8{B3_)s==;Q2IQ$oMQer!7C8R$3okW^>yXPzPF)&!iRQ zW1NlOexFXVCWskgOrFx^%yCHBg9r0E*^JD1D9{P;X~H$PFkAY3oC9UKwXgQiUbW&N z$QMR<1~rtER#)dKme0(VfKJotdDAMv1!@fRomw9ib3HPxd`!JAGm@rDcrr>)Pmx*v zXL@l_dkaALGt=%8SmMWw&7d-tRtTB~146U4J}`23k zZpSf+EMibsvelcvt?LbgeOB-VjGhiCx)!uPZKga~Cz*l~O3}7i%|#y3-h2g8q)q|kMmbDios60pp z%LxDJGwS2+gOl*9FZ^Kj)8`#LP4Dl#*xx%i{?f5VJ;f!v(Vt9mU@itx*{5j*5xE4R zO_xK3QghJ-9eM!5VsA>)a%dAErx1Zvg(C}+$MGq6UX-j-k%QHtOJfUUY0@Ko?TmJcZ_{E{V6Mo7yrn zqC4Z9IT6_Ug=l~qTXWi|C$rJ0%&u!@(!&ctHYAyQp|v5Q66$bUk@X@Hx8*=hv~C2u zYRAY7F(P4s+E@TG5wS3HVxh;7?r>^4b)>Tp!7i{x^Nk-9n2|9Y>9q52OJx#^K zg$7NZ*ms58R@k6GY=}i*3OrHhGku8oqQGZ!=QgL9C!ctT)3uanqtU6WNLFAfCd*w_ zD!kxucaN*Q1S|rHUBDkcL&?RcpITeLzx&p)pC2@A35UyY&#xy)~VQWOyNDe(?J2y+D1eVtH+3-m;Xll8rQig0#!`p0I$%KOfEpqEe3 zasX5V^a=iYg9HYDfeU3e6|z;!;SI0}@Lq4{c>nO=z4`y+=jPY3^ussF!|^fla_O{M zf3YzD=f4jk<$I65DhI;7KQS5O%YBk~{!vr}af=c~Tx1~85jMr#hR7}nc`(#;pM?eb zUy&RkV-S2oGUdS}$LQ}lo?;CuWFAwp{7yP%-z%~Y!;DIUq7SjS$4T;wc z#wRDT75)G1z3X!uN0K=Bc_(82hc) z&BH?y<Y%c`Qi zj#TBD4x{k3B2|zX<3p<3EPS~LlLyVRe=OEl0Z(S3m5odqTJb%u#)U=`zw#9=JZ}ZG zh`J|GV#&9HF$^fa+B>hsv#I-nSrFV()o*%wgZ#s;`@^pL*Rt!hYN&|6nI7u*AC+Th z+hlOAe522#i2kiwujYj-ag)s!cI!`cvT=3eG*Xht|AHn=r#KDNO)O?OTIHG$dk$p; zzT%|B>W^1;SKx4&ktLn;}`&i&$<8{ zCc1px0BFf>M*!{xm|I>JGZ;KN=HE-0HEME$SzXpW+4Ludz~FUyN2ZQ>DXi9t)m7%( z`73#{P}?r7cZla@cwAPK5P2p2^o+o`mN;}#iPz;TBJ|eGw;~OW85Ms0HmR}Cto>wy zhi|g&w%oeFl>3H4Jq5Es(SEDdsT-8Z>-{3ugyfWTBr$?Q(m-wEf8~-PUE<1{^j#7{ z_&=vx(gyE0>(=zfublYKz7F#VG5N=3bghqd==0!C)eq7_Vxf(+F7oS`#u=5GF>p*V_fRIz;Z zM%><-n4S1S`71s2i6$4)wLNP1i}pECFSO&Sxt$pnM>a@a3v~@pM6S@UX!(mvlI)E? z%1@wk(vGsLbU9gwlbmAe*tWDkHk^j@8aEZ#?Ahf9IW?7tCs@`lDC-oIbw!y~YM+fz zzm(m>trt2D!rq+DLgzWEnvE6iCu(+M;+IDgYkOXkxUq8k0KowXTHW~~eerHR?i&#( z#3sHgB+8$TIko-3R}2W|(ZDLeH@SpG3FB65SC=`B76;L{w^=%q>iO|w6Su5ll1gT( z_DE@^YHsy{pskLrfUpOx2mx>Sue$H-aINU z|E~3`J^Hs#Po6*De{m3}LO9Z$3<$+fk2)^J>uN=Q>)?Z_Xtj$-TCR25D+FKluX-a@ zw&*Lb79(9eQ%IHRO~=w=#*AnF`6oSQvqY-+k!TBmaPNL5AhDVxwb}=^R^iIsYxa^|V)(`1qNlpxUNq5Q4WbAAV$BDwR2oG~YO+h0z>w zYDb7*7!}6fi-0ps$A(7XLS3Gql-L+Z6!hrfB*JT9&*;WioK4qc^{J>M=D#&{}AE|n{oPo4&V@i?$Fqk|fdq5RAvTglo&EGi_?OLk?cNUC+cDz+4F;2Bc9Flt39OlbPpkKWt!$R}Mr zSY7qZN|hzW5n{ywd&(3hqVNP4sF)kludb)5WS&>SOi1~gsqsbqx?O6Ft!a+Ap@Co1 z7Tdr+?GHoj4@1l`#PF#jw50y9$5yt-T!+*j_SnCnJ$9P?w{pf^Z_qR=0Q-lP7L;*! zK9nv7o!>~FJ(}&>2i6V-tQ9{r8>gWChK6Kiz9*+(q zbTrGdX|ig_!f7_i(m75PY)!KZI2P=n0){dk;VI5>Oc?&+_`E@t=}Uu9tS8nr6y%>o z0`nI#JiggNEmbt+(~KUHT64&xI@Ew4YRIQ(5+{X2)_Bl>ONRXV8Xsp_cgP>9^#gO6 zP%P#$!=s$b|Hx#B&ssyi6Rp*lA7;n`#d^_@IUYFXFB|m_ur*i2%5G}SwUbalI!5;FT<2Vs2^8reWJ+o&Hq7Ih{G^w5(ZRp_(k=o%*IL^D<--E+v7h6OL@ri; zqf}@TRN0lNRISm?2vw-M!6qzMunVX`v0V_xXcLyfTw)vSpaPB|1xl5xSOy|*wMN5U zGQud`-!#x8eyA}Qn+7;$jfQI(gi+drZScT+F18JD%nXexd_JMHmFtc<7p>>vskosr zpUBLb@iB8Wm~9Xn^N;8@UYpMs*xCs9!;BeGtQX3*LBnRVbP{dIE;5;iStxQa5o##D z1xy0Wr@h)Cik&dnx1;cxMU9t4fPeu|T67c^buu-0YG^bm6z=lwycnm>hOQHvV(vR9 z6BKqL0bxG@`=sJg&st|F)i{xgRL13uuntm0EuNit1%u1EOJjL0jsISK=6?FPQAJr- zeD7t2$`y?VTgXa%EKvu$>t5F_p6KM{=O$lBIsPx!*{E4lVVZyZCTbP&u8fij<56TO zl|w(7-g6uwlecgbXP|{HuY*;h>Nk|8WrZ=)i`MrVR05|4WYktsEhR8sJ9A9H&LGEVwJrX4sSZ6}AN;VhL*g_FZV&rG1Kz*IOn zWD7A0ke^>YY&KBxt!j)rIgC4ALXieK?*j%~Vcv(AIq>{ql35O=5K5}Ssw;{~1n(~- zCx>j2$3LP=gi3l92-5e*RNMA9V^~JpPs-;$hdqhABPk)6NK3yG$xM^gmtm6w|G~*- z&QmYcL92?e!C{VR;lE~l#$raLA=(AB{MQ?WYtpH z9oAd9);?cQZ(49MBs0l86Csj8&Lcvq090J-WcB!ZS3HN#U*rn4$Q+6xXd13Mll*5k zJmh5`d`_L;b5605hUOF@g_DZm#b*%HNhK70DPHY35RZ1ONL9P>s+28$Y~-s@*&aZM z(o{rNhuC*X^f<<14C|4f-Zm*%T4R*g?N%ka_n698p|eIeL}DzIFL)We)+49Nm{ygV zqM;nIYP>2*iyxBtD)cp(;wq9?Y{>&p*F@;PrpG_z?5FJfxF+A&&(Nq${fH=SFZ1Oh zyU&JF^u&AF%m&jlDh^ zoaD|UnSCXwW@;+)#mZKyOB*cFauUp5>rMu@o=!;W(S!GET{?1lXJvj;Qr4W(_U@Q97k_<(hi^_h9d7URE519G%^`qCBT*nca_(&wFUw&#QK0CEGE_dp*{DLa z#djJM6()Ob{zo}Z{FQ3F$}T%%QuxsHm&PafW}r4c*`;@O>1Vriew$@@owVI++69!o zo067eX7R>rsZa1cta1L!>5JnRM{i%A9E&Wprdc{!*!|skF(`;*0Zu^eRt`p5m# z6HlZRwX}e60<~+~4$;qZn@Hz5k;s5zB!aR#yX=mag~$V+S0@fM5~N|m>J(O>3&Q|v zIP!yy2>R3U>~fOr3*xY$)p_Ujq?!2gO7{s2yXu;tU;JdK0WVXmif0=7(9W_24xr`@ z=@eJ4nnF(|S>~0zq^w&sO!Diq%X6TjTTbdyK>)VkuBMBfbY=fU>X<&W9BEG1Ca1n$ zZ@saw-s?^#Ya9BuML~o!w-Umk`65V zeit{fGkzDXB%7UX+(LnO|lWYJDhmc*an7D zoY&!>WV>F}1R#&3KZIT;bN=Dvp-;vkmzZC_=q_5~mu)4z9lti4y!;HsuTPkJ_;{^_gj*Q}(%$x1q} zao92C?w(!;ca{9vn^>j5zS6CFRxGE&j8LkiKxrxsv$F2IxyUWG>DMt7v#Dn(PG5Bz zg9YrIHVjG5-Yq!^p+WKea2s&*Eb-;)-|@qOVPM5Q@P0J+6z^TtW!nNI8~h|yJ(Jt zr-*16nkb^AWV*KJA#TowcVU&#yp8nl+j9V8lW04RJ66QHwuTeGs*DbV})O1c>Pz+wL@D0dX z!3*Ygy;!hc1NJsV|ep)9f8yb()F0y9!ptNB)R%{z;;O z>GJED&Fx}=^x|YpL+i2kB01rb!W!9^mP|otnhNkX3Ec6zPjOm91|eY5A3g;|{C@K$ zS_6#+@ienboCf`C9#D=(ZckvpS`&{wdhl5}&&w`Pgs6(NtNo_&714b zp-@A0Dx@ZuYUI708X%mgZyZ=eI)f~unMOf><8P!XdeJd2X3^9nI#OS}6N9I(@Cev+ z76??b&`P#cGZi3*5Zq)B;-DF?w9gu_FT>0BHmt@G^{dBI(5*bB4g%wuaU_qavO>Zw zYsayYRbH9quiWOZ+Eqy<2>>02i2bUqIHo}#B>1pt4a*vzk|&4<{CE4m+R1nF>z(|1 zXMO!Fzka5#+sS_=%|_21wZH^xB1N3iGwQk1Z#I*^V%_cJF~UB8zt9D3q)Q1wo1{R_ z84!Y}XYjuR_}_UQQNn*(_!s_m-s1A9Cz9dOk;|i_avmKS9v!(nIwBseAXY~Xi=R~>9gp_V$qRe(NP(Tgkk~?9RY`qfI~;X zp(Etb5pw7VIdtT52w$XEPZ66GW!{6oF4ZZ>?319J6kzyoJ-L&g?&PPtdh%I*`Ybe!&>C@3Do>` zKE-QA6LB}$?lqmI~CMe9X*)&(r~>2bm*@!4#5j zDqm!akC}XM`H~z9NjjrEbf}4lCbM)jUe4V`2Gu?gqQN?SrgG37W%*HdF-w!1e3VUg z0n{-{*QXl5+ynjNgD{ z=qF^L`Sw|Y`Wywtu+n~q0;YQ}S|7Yp&v|F!^oAw^7^4}zvW{a)g@Jj28HrNK7Wqws zbL8{jl|u=f1ILz_%1=^Ujgmk1#1>GQf-u>Vw4A21yU=i!uwLgPApwcsG`U$$7USE= z9Tu`Vh5@p5%wctTjo16LPq#BL+p`gS=HRc%yx|~%QME8zI5LzQfO>}l05Te1in|WN zws&dE-Xx~?&Xe>K3h8bJ-gh9pc(3RDrDMq}bOw#5;=ob#BGdR|HpX-Y`<{IH?wSHC zpo8o5gPig(y=LhZz6Owr3}Rwoq~qRt2S9BFc%%G)YLc@ zHI8F701sL>fn@ID_&iJJ%NY|qrKRPwbShiut)l|d#pU%cw`?CkrUZ%16S-(=qk*L5 ziCj1N*U$2+V@f!4LWu~9gPay;6!iX)X2N`YqXbC4&LN~olrGZu8OuS1lAnLbW|#R* z#=5~)Gm%gO;Ock29g(9PTYK8q>(Js%2IAK|;yl4`By)`}hKIxSKv1q-qyRwG?<}B9 zE=8U1y%z;k+omN|f!&UDFq{dcC=c@GU-CchtVUdwVT`6%K{ZdjaHeBeRmQcWG(zx} zJ!VrBdX4+P>9egLy$z~%BAn-B42#Jo=-_DcT^D*8p zyT#0ABpN&@O#CW+4>;Q`7nA%>8IPPeM>{=NqP-0T*U&siMLev~_$xx&b=*DIwo7h_ zujFemqRF7pCOzyh5E%IFOcY_L)qzZ!qe9!ZLr#tYK++NOmVuqWaS;BsVTCG&(37q_ z1gR8^(Rllpv`jg2m9{NKDDNn%{F!C7FWZ_tP8k~Y-kRQkh(5_;aG!3 z2$GrT_o=K#134)JbQcD6w=$s5VL)V?axl_NmCh>87bExa)v;cn4$TEDXPvREDp~|I zslNw%wCCw^9c>?2J>P`X^skORi9glbnirnL58KkL1gK#}3b|F*1NlK{5O>j)pVxya zufbXX@!NXPMrPVr5J%Q=3enYi{fn6VwHPdKFa$Zw{s=uM#&#cPx$s6PL+Kn3CuwgH zu=4a~RviA$p{N$BST{ieNm@@XV1`N)JvBkR-zOL54;?k&AqN|T>bMCAWcK5^wD2}9 zFJw|@xmDdaiJsLbx$9C7C-O5xgH&;z)Lqf#+42G_Fr(RtF%Kn}EXYCT)(v#yF!#w5 z90ryiPe<7&aeVJS-^PQV=h`;LC6JL{5)td~`pGIR5N~vUzZxk~;Hos*t6EbMpr-rK z+r9Ywvj~jT@#~lqP`~UTU8HPh5$ZtfFU$mVJJI_dE9SugT(X7oI*AOIppv&ZSj1F% zWdTs%Fv~i+E%O%jScH;(?w?+2Y2;Z8LO>drtiUeRw)5PU2v~ej1d82w-PggmaE&v zx)!j3^DtI0{%p(=t^lm6HH<%Tix_{ZS;dt&=$px<&D<*wMRQM^iZY$~{pX?k!t7rf zZA{K?t`><2iRT?RbgAI|&88<^MHKvw{i#?^xqA}~Fauc2bh0uw%sFWVoYAMydXub@ z_04S>99E!Kxg{3@9k??Vs8;gUtokw6EGpAJj~%avG_lypj*5pNC*FN z&>`tx(ZV%9>?O1Ha;`hJlq~h4|AIYuRJ*76RTaP_IN&hAzzw8e#fpL_MUPR<4h3a2 zv~Q6GfUGaS0SOMsu;a1tKKOzdv4mIKDSK{xXS)0kn!e_=#!1Q$Jc;%eSwBYkAoSJ} zYz$gGSOyY$_i8sbKj*veV2fLWN&J6p)wi~`@%DS&msobZZBecQb}!5WOX@uZy!ler zP52#iXIjRRG8SiDjBd7-8#mUG2_bh9F4Iqijk62J94i_Bapf(v11z|Sb^%vw?ro>z zb)5~h>5okf@yVJXfuM34cOZ;ikyhU;IAHe)%=VYZnlrjSpg&w8v6AmwH;P#IrS56< zeTCH~*?JwkuW)=IY(7%>q0@X3aT7St zf1)4D$?^0(xy+~dXs?KcdwzU&cKq|<`RV@gi^J38a+1#FgEsWf-rgSmmws<;CqMi~ z1Da&#Gk}oI9@)*mi1zg)`?Sa~K;?(ueoW`tqaXLr4!bpE7LnScQCzf&wf98TsK9 zJ@25vK#|aI;lc%}4`GCW=HJ6k)Vh0Yq=5%aAky zO$q}SRgeT>l!__!3q+`2u?&UqoIX!!rV0$_1XIs}}vu0Jc%SA8cZbG{(c6S@0_d4q*PWqcqJjY2Qup0S4+% zOpSUnS`waW{x^j6OlIBq1`VX_uP}xQssbUuJg7Upyj()VyLxi5T!396bjoZze~%^% zS$JxB*B2W+V*<1hiLO=aBD>1nVba@`6!bo7Bo-5TO>rMY=r|wgofSvvxYIv>i_}ULOzP39)v)yXIhRfZafq6wn8cLdY zk5n2|PpbYg|IzJ3MDUsrc5kcIfSvXi**n{A0G+~BcV&0;!u}TNdo?d^ z(of@?<&8y2%P7YW*@twp#6eV<=?#sh(>YD*OU(WVDBz@{4F)v4#N5pkV6T~s>Po)j zjyr{9l6}Y~>Jox*Y;L_I6|yC_k67y_2Y}K9*1M(obxtS7K*D*}U@UKYEFVMjF>LKV zr}tpGgufrMFyx)4^oG%X6bdI2U2_fXg1}umX&fs`drp7#b-X{A3C% z1Bk^LxBN8w2cOdtPlQ2?4E$RmI`Q5L}NG+VK6tOzJucdKJr8q2*Y>WKW8H@rbU4i>tCQ zGjZambfU!w3WK?bQ(Pp(=39^eCeg>KV;O69RpN-~8?DodJkiGLyfOnsAIcc5*pIYL zSL})m#fm)yJvv&lvB#?lJxWWjVxJ)caGhT1;6nAeFCM+{EJ5XrSX|HORw-Fw+Sg%p zuJS61b@BA@;Q0KEyDI7T$B)kz%lBzgJ4mO~yY0u1lh@ZIV07(s4&%DKR(kR<#T)7e zchmG{e2Le;XUiKo30~(jvB>41H_)9zvxs1lrHJo~O%`U^2|8y5rl!&SnpP@$?|TGu znU)^Y11_iNwvz9_%I4=52H4l*$K63c`7oX>$TG>&o5zpq*nA=G5ytQlOWiwI&u*4L zgj@3G!#Z*W>+l7rk#7uje~=Dn+jAs}(j_R@S@LXxH+f}BW^)zoJkq&nOJQbqu_(A2 zXOj_1<)gF1b9r8n9Q-I&Y}r`3sz&-zpBP)6i!*;Tgav{$Lx=SrS2 zk{n9DSjqDpd44OR2owI;i+k&cd+uTEAxvZ0z; z6gYf!;nRDUC<2xJf{Atva_=S0(`(W_A=l>|mQxtOJgGU$@HSo-QA;mM(ZGW&t4uUC2s0*xF#W?Lj;#eA3l}343)0mSLpc3$VZa zMuW1>oGcqGk$nFW!izf!Rl=v9<$?$F*af+Yl0CVC|_eaHER zkTrn!k|(V=w#t9LBDSj817O>Vs10F_7b*==rIN~EdzZBphJaCduy&VGF;~^@uPW|^ zUtG$?rmGTS^3-7iXz86^5$UK>MFpV_Ha3h~oNQ(vSqVROc(MT$txaqZ33bJaWaLLR z4}fQp9U;$p3N?bPQ%NPry6U8&BA?W`kv(_`tMce&ed7iw;*pDJMONvUXiTq$m}7oEt~-bapM|4*h5?Hc#7|-HX&rIUb7M*)bWc$ z1${@RDjCe6dQFvzF~}}i5zm>b;HS@{HiuxVSq;OA6l`stgso~cY*(aVd-F7Gdo(nm z+WKyd5mO$)?36h%z3N>($u9MPPD z=#oYDNhdZ_2P*{LWMI6`#xr#++DM+JQ$z;i3+bTjLUnMvoZSLO%4@9?xx3!lh;wy>-7+Y4nXq1}Mk+ocSMN!eW{tcu=w+w;S-v;8Bn zSn)HJ7wXsxWoRqe-X&qLITmiL^|NP1&7BmWjxdB-{a{futICC~RW>OX7UY`KktG*i zQB>zye{;ETDwfHGOMNH!Wj%2z1G;%BS~tpRT_M@L@~|M+oQ{G*;wuk#>9hV02}woe z;Zk%nQgKf)_&s9IXjdi0&OjMs9BN0_)Qx5S{Y-NqF-8YT74FC|>+={1G+YxMn*V;e&_L07&2AjlpDFxy{uR16PV`ei(C!A(D ziZpXZ!Dp#PwRjV^!mQEw)&fHa&K|3{&_0Y5eCLA-O)=Bpd%AcW@pteJ<%2QOc#i|D zJYOwQ6?c=v5Zy=HA4*5B7j?O+vgXG8CRH_qTeCW`1kEXkY%$nhoY_{T67{^ViFxmp zI|AxK*Xwu$?0Wn*JG9O7T*Iz;odtMr6&CCxoiDx|u*%hBL7XDrLjnYV2jzQVMDlv9 zw|C#0XTJr%7VI=223~~{pF!ZOFA`3pYGPqd#qS{+2FQbo$4cSktBQ;7huNgC7_hZK zPqyDUR9xsT^1gA|2s9{>3~~Cd=)RU*I3ONWDpm~mUsEnD_uD2Vg9EMwdkaa2TcN~T z82B2H5xY@|l&D~WicF3O%8F3RL`5XRn43%(a{GtA(RE#e+O4`-zn}tJ<6Sr&LH<4L z=rw=Xj=+Mbd)JSLnYS^S#^HUCc9n*T2+*f^UOD%={tu!0tr;yqiNzXAx= zdNY=NS&wY%Q39!2&$aS0Fao`43DVT~KTkBuEYkS460IIZmb*LWf zlOMlF8io|^Pjth4A>RPiaUU3_0(*Jm@zK!9(IWttt7f+5irkoU92cyYXZy)~j2Grp zc>!JAW{0(8x){^lNO|n1qGFEm7UFoGT&8o(QihKYW*^cyIug}Ev2{b7UyH}V$b4sX z(d%%fHJ;)U9*Nk6{queCcYN74aSSz4)n2WClOMm>Yl^%Bc9t(^m)XJ7Gxbsn*2R0K z@>6jG^(>gv2tRubUuWrUKGn75pXeMP!QbO6kuC0{_)L*Z5fE0V=F@)wD7h?4AmSYt zO^b8pZj|#M-&rJy^E(I;OD2ca#IjoLVuT7+sBPQBqL0PEhWsgMmn-!tDM%Yc^wo<>lZ}&$dTB%Ivsy&hIs&ZY4R<0*KebqsDjo2O5urJw8 zhAhd&RX#-xSviSKB_(uKk_%UeYK_IUYGwxFJrn-55t3o=TeO*0p4Q*d>Xx8;-%5H> zQWI2g&MPQUAWXrkh#>X)6YSTrnF_+I7DHRN2rT=4@0$M8ST-8y{ zbBqxckJ%Law0vcza{j8NC_rV(gKIy(s#@tQZAM0|w8gxQaCV7|#ZIr3xY&m2CN1{c z-1%+p%G!MP+gN#y!w-&d8oPS1j;VwG(rvV_C?ByHWN>$`p;VH9G7ZLMK-Mjm0^2k9 zyU2lHda-_hIGV@&Id_E|n#TtCfcvQo`u%eJ;0JV5S)-_<&ACy&Jd zZ^vx;3ee*qdpFCnAe6^RYl!zmG#mlImSumo{bdB(H3GU-_xlM>JO+|^$D)(Z3fttb zW4BdwwSHIqI{(PhQ0QRVu!*KkGdHIEyJ*;h7j5qDc`JmcV_gSP@8NMwNA~mK>G@gm za{u%kzsRpY=lQLUClvYA5*3L~*+Vj!(^{TI;uuHSBy&#}==nhtkdEu72}%z=ALlQh z?9n*K$Tv_L=01(3ZH!iuZ<({(cl20-Snzw@TVYYNC)mug#tN;qf?kPFeRhS_??S;#=+gK}Okw%v9% z;Yqpuq{3&SyU|^FqsxAeZ>1f0JOG7*WIiF0_+BQ8vg=gasY`eT`}K=E*s!Y%`|j2~ zM22_K&AU~*(sti!!R82xD=jdgXDt)lvXieBnPxWZE`_QEftjDkHeURM-Uut-(#y8f zk&m6dEq9)CQv1=FxbhlVZtDKh!a+zW3b(cDMqiJz1}$%;)>hDqu8!NF$BK^>Z=4Eb zMmd-Vh-HQt;H{UNe3mtm1GGbA3@|;p{E(B0&P3IV6ZEcB$(&NNWA)h-m>E5uU+Z6C zUPS&ZoFMm}9=6ZSH{`?aFhBxW_LNplqLDaKR`SXFejGwF*h*0X)|2 zV-Xud*Pqp1GJ##q)4w0TII;|TDtRU&;4ham%rGo3Slc(NMI;%btfGfxrhSS~&>be{ zB3$3vAT+$5#OpSqpZUEy5|Hfui0Kb1rI**^j2=!OV^YlIa+c3w&f;!njE|j7#ZxGh zWZD9geE;Nc$%zl%+-o<~ZzL8$F=>I*2s<>pjC<~V%$%;a|EaJ8N)is1&kOtUyo5iL z9jYcGvPB(L52ct9a_$pFkVOqw5r+T0GHF)W&+&euJ32$g(5}u_v-jNFc_6Cq@4Tj~ z@9`qNud~mKfLeF2hd=-F`#oSR@X=FBrj%DY zuqra~GUe;#p$L zRfA7PqgH<^5j7={G=*8#_rosL?94gSM#{|D^uFKk@&stzBw zdQm5zmA|PXLewN;2$>;APus)p}c zC~YD(z}GpL3FX3bBRqj+SE3LRxdAznH&{oA%o9=E?;mDkc%g6$(M6G z%P&D8;Wl)VUS=^Zub$^H@T)w{;jSUnTxx-ma1WlI;dW&HNNEHK`q?DUXZjoV0ctgy zGeuz~>zk2a%N`g4mHK*`jd8qIZ`VNbO?5{KHIbb?A5X>K=j0Ka(tB%`X4R~KF5ln$ z^|}hs^b-RrA91S!H1Gxs6RXhsE2el$y|D6xC6tV;y><1P;C>xxE$(aM(&}`#8EGv9x~{aUn}tEn(<^y$nNJQdUu5P> zwq?1-^sOsE>SSyxyTkDGg!YmnC%vq+I~|d)Sc_a7@rQmLs1ta zQf>OO$qxM242c2XOUO{6eayG!`?oSU8~%l)qA0#IW63|xfdR}(@IaWJ%=K0Jw=#3hf<|i#qCLjX-kCSH747{O;}r? zUDvZCqLViyR%$zANvUVC_n}X zT8LBe%E8F=*3rHp{m<1m2GQ9~w)i#0z(TLp{@EgRI;blv3L9*R#|eXbeuD)T1Xc{| zDlnR&YG)*EObqD9tnD)Ix#e5ZE+eX5P9E#ovqjaS)aTir-?#7>3j5`_az+1v^>$8)4w zYa4&nN+b+O#{;A2pB%q9fBWk2X-6KE7&P(9jMH`9D!)s@@JSk|6FiG^`rI|8`{P;7 z%6D#%X|P%oih67OxPN+5FRxB@&q3BQZT4vf6tp_ejo`_pmlx9^s`;R)qW;S! z$(u*)kMCN)8VVV7l&~o~j)HgiL}Tai;d%BVUmQ;nS6KjX75AI|f0;7j7(WLr73{MH7l4#LhkH-U{t8m=pc3s#dsPdE~79hmt3Ee6Z z1FJ>Xw|db!wjJ+B8A|~Zs&KT-v~!1hav|S2=^UWuM?QQp>1#D>zSFiy0U3&Bxl4SU z>LC)={hD`S%!Qi|#mHztvIEiUoQ`J&h+66*I09d1tfVnk*B9$(i$Y!DXbP<-#IMEr zAxtaPRv$d`^;G(}ag~28eYrJhj zTgz31-T6Z(2fGKQ7GmJd?k%+Ua>xB!<)(E91N|(RA=SF-#U5a>VliwIO2sC7-L7%x z<5*FV*eE$F#KAMBK2}g3tE!IG6^F$<^O-3OhgAMB&u;Sf*=aVaRaPu6^;~AW$Ui0@ zvu|OK`!1L75RCFi-su`&zON@RYsCdsduL-1lpYJQ2NK&*c?zYDllhi}UI5E(Zu40> zyCc6og>b}?Khv8^x5(aE+K&%KY4A+H9mJU`!j;|zHoc6YC$AG2-T7g1{?nm2Ecm9R zvqRz9s3G(=^9wqTz(3+4{(a*iDmeGl`v`K01=^fT(!9)Om$3c8XdN_348^9&ttqOh z<1%qr*4mcWVSItZ@UihIn~9<0U05c9jW|x)!G40orF-;xbb)*NJEo;7_(f*6)IU@RWH zlW>EQ} zTFK^>Qf89rr+QN$6+TaBniEjm$5USzAiYRL`!h5M3^;M-E^526TaC~j(J_uV zGW9SPo}K)O_+ioa9f%2b&cYM{Lmi^XkDu`$U&TB4gu|ccAAEghrU-74PMZ)NHTwnS8nsOmMt1 zL^Fk8f?VNlXuh1_{zQ5i@s%^a5A*b;z}*0tU*qMX1obVL`|ttUUJxO%Tk>q;o^L!$ zmY8U^E^aVsY%sioUS+!)&*qr?c|LwOmCu~3!7hP6)BIzy`()ct@A2ca7yHkCdHk6E z`YEM-B&;tJihH=B>*`u7yj$K8Q$D1VF}^8RS4W(4v<_jiU1qo1HGA~*_^(g*UncX* z*%-b8&-;ZOEZvZ{lM{t+47;`jYyUTj{M zbQD9VA35)(!jKiuGOIrw9-$)|?}St&|Q3+gEk zSesaxjlD;^OMM}{IwDeY<|WxD!LqkQBt_YZJO3w9f*w~}j zbj9s>XZhfip$cLZU>e@k&~^5Y^o}_!)z!fxa zrG*g#vc&EUANHLBk+U1@RSfl!(8OQ3H4*}%g+N`SSg-?Y)XcUwT8*+~aAj5iZHJ)( z%FhqKIkmsgx{=|Ny|^dT(VrTVMp!dPb}hBgxa&Sj+r=Vkxoty~+zVSTRtwhMUcfXe z6|%yO-2Yy|D&jU%6G2Wpe6_X8x=dw^`q^CemV4LK+;9`;VS*IGxoDDaX*VQ&s?5SN z3)jja;9j(g?O>G&6b2qQhOF%~zlan#1PNUC3ApDg*c6G7Z+O`b;U5s3Aca-Z`?SAAl4h{Xp4BEsj^4tb$!aIX8;}JsI zapE=s>6=~P7M1{73QspiO^KYRwTChN7gpELODSzC zhV5l=WqK8rz$1KaNxjH1_Y&dZk5RH#wYtGf554XX+e^`EhV`3WwQd8~3X1j8z<+4x z_ay`vrj7*y^sx#6XCy35_@%dwAg!O3F7c~*y#dpoDi07W0sphd#etW^I<~teyCc$f zVw0|+#F_8o`A;x;SU7=}mmaS`d`uz%F(V9_{YIfnPLe();I!j#+AKp7hWR@g-xNW0?nRMpv@jyS{D8diUe&?862%WDJf<_2}P8NK{s zSEIN#3kBG3$3#y-LhDTct3`S(0ie^2VYp_pb;^T;bi^436mH?I`!KX{ra%0_@UHji z9foC+RZV9{86|LobxGJp7b(8kVQ+D$Q@Lj9S!)*2My$8?9lBeku<|Y6E0Ok%Zk71&s4)Is zmnRkCEJ&m}(U$|1M^~Mn+|Ke3;}Myi1`Kns?;mS*&OO4>+Q-vT_Q}09(W=|Pw*BVL zR!>%c!=e7_h6>@2k~Fk9bR>&712c(IIDv$Yb2OZOEmVZV>i}@^Q?mKo3mE}+ry>HM zZI1MK9cPIQ38;%r)5kH$%OqQ1ytT+XNI}G69kp?^;{e&lG+{qZjrp5L?iX>Pz)An& zPBy0z`_;3&!d2}6x@v9Q+%nZ#>6*LKqLC2d zaP4qNF~3FJ> zrBZrS5#TMIDi_&x`eB?eXBZ=x$|Ds)6csTDVvQj*xZYBxILsR|a^u$?CkOfT+eNZS zKaF9jo#Sca;yRrsU7nAN*L$Bm$*-;`1`67IOz-BV&i;pdOe@4Sx}V5{1(pj2W5|#x ziK%IEa*^H9YKxgvL@W)M0wa8}-k{koW9rlWU!Lxt{c;vyY$@?K#P2dukk2P;UMY%P zrpwE8zQkBiajC}&%uuN?@MebzPddJ$Agzz-biqYK2j{6i>Qqgw+Dn8GBl*W z9%Jo<)YWA;7;>B)EYB2l9<_pUZc_YGff@@Pvg{fOnWnettMTG4{hWQsjTHWvE|xcA z_IEZ1!7+ayWfNfN=j-u%_H8*zmy6VV_6f_)2qhIhconODt zKg{3X@xr^CIqT@}(93u})_*@w@80LPe}`!@hmB@xzGGhVbTYlmUge`Z^Ev-K%HQih zU!;>u7>D^g|B&O;EaSVm`FNI1)A!@Q=acu>rr)z18t#uKG7?REdY4Wo%Xj9(^8GbX z^2hXIi7|o(x$_G!1?Jm25>6FzD9sg0ys}8;{a5zGkwGw4l_3-Rq}NivzpF zmd1#V`c<^W_$m1XW2Y4HoY#BIkahHw@`<2v^&_r?c&}ETH~{tjadh&6k#9>?+0uP9 z$O|*qZMVf`X!3xwyV&&cX+Ftkjn}Y1XWP5aCZHtL))4U*fKHcFSl4k7{BJfAyI)Z} zx8lM0m}L1I8~CpULzEqocc&1g@{yiqBWIj$@DnONT*IW7MSYUDjO16wmq3zH?V-`U z5mJb7EUq`SOQ?X^k_bM~x{uB}tj4JL&=>_xTO~u3ly6lVqT+qaWw$#>4Yuy#vnrFn zPMAS#*F;-kd@;j2u8*~NosvHjAM1bE8^~&^`s5|Hkv&J zHhO_GvgmUcuZ)AA;MrHmMhd*;ndh zu=S3srGa}Yxur+)-vmETX;xrE!1J!dhH2nG5=}Q+oypfG0`ngn*;9)o2+lR@NiLoY zAbrdI0ZCFBotuk5f-)wraB?oJQ<2U5pVVa9znT@xf675qjnTgSnq)ve?x>sfqzoHJF0OJHiAc#IOryuB;oNHDRw+`8IT zK6Kzxb13ggf~zGh=gzn_H{R{VQ>KbQ>QJo3hE+v#a+Q+8 z;U;+oxYt*ke~0IhWiOor&&cMRS=MNc`EmqwbaAPidRtL{Oo1X~=?G}^^CnyC3th3S;Vt}52FhMujb~XTggHQ0-rSq#nH9Z?ONF;v zz?47vX{M<`1M@H1p95#s`XY$99=%?WQ<^AC;cZNxBWcY-(LS2&CIQ` z7G~;fuY;ocY|UfBoJBVwboa*!le5iZ2XP=@%#^jcopYYr9VdAMT!$ihR!N7fRCc9H zs%&%%gr*X^#qgn0;LuH#A-IB)7rr^?EkEp&$s^SYR~L}}}82f6pp)|LlA2KO=lHt;$!y*2$fW8;zo zZp5HaG&=Kz0a{k22j788*Lg?YC3YlGAAKVlH0+QtxiIfi#hxO{6z;$O@~RMi&Xp1m zc!;XGJU!tu=*cYyiMbSH!9>b2tdNxl2Ox@F9sw2%m2 zN3~oGt{J?XGxA@^IZ(q zZS5#sK>cA)?^nAeJH?_olS*oWG$JV()GmT`w*YavVcV{f z2!oZd1socm`6A$qoFxXObE~ZRM;62ijWh>oY*xFzm;~hftR-H(tD@iks^F;EKoj8| z30n-Kw^v?w6u(GpS-YZ>neg?&5yJyu19SSXfg+$vd%83ydpX|m;+&_$Xv=n!7{(%# z#CF1Xix|@^!Rv8z;{>Cys-x43rDqs|$uY9Lt`-KcsqF`2Ik^+YcT5}H`$%azgu2aO zR=cd5%V#1zIfoDvlied8GTx!A)x+fWen(AO+PO95IDa<4Tdu~SnfLbVnuD%|@p7HZ z`-0sAY@$}KlxE|zcUXr-171XHx`={WUzakwxs*MjZD_w0)@J69jpRG2JzADdvD$@m z{9rxG1sS)lZ}qz*YmUI;c^8|?kH3-heV+2WpSzSRy^>lWEy6ioE2|-sDwSTjEt@Fn z80Zbltw?;6(g3(gN_#W}0H04^;NiHlC!{Yrs=v5}uos)qvG=PnmVwhWk-YzKa|>n* z(xfucyE55(j_6y6&9}J+Bs1<)mPsS>*{(=X0bH?_X&5SL4Uxt}b?cmicOZ8S9BH5^ zRJg7UEg=f9^)+HBTX{mOubGa+5uKP+RY!>DzhK~ zj?I>lb-JHXPu8?swRY%6ea@@{2g)`K@wNR&Z+YU#*KG?)kT7BG=WKcxzGK<@93wQa zGRq9O7H(CvS^vKBj&-XqxgYcHy~(=LsmvvzX-EbZcG+CdCbZXwTVSzb<$F6M*; zQ6~sja(-QgTZ)85v$jq3@LctVu?tFBu=jo#!^vpm*o&g7gr%zbRoKkM2jMdsZ&+Bh z%b;VjXU45tt6qs7z`XAaVM2Ro&JtbvwPlYH$@wNk7I`R4k!^5E#bp>Z48WtU5v=Ud zkMnf~Rc{0meV#Igy%r_)b5V(~pp1;zcbL}qrnFDU5I)E9kIjFD^dJKpaI@PhkgS*iZX7Zk~C`%VVmSbSv zUcHiWnPKYj?jgP4SS4sAcBe%O%jpu^=bd5@}DU}yEZrr7@bhfgczX}Ma~d$0mF z4DA5l&EN+uUy`2HY5a}Xrs&{~LOWTtLDfsD6lYYObuviy%~=70jCeSd7qg31(sqIc zpOJD{!cx3ixo_94rE70cEenn?Hx5uSyHYE$D)&!}&xFL3mRrz8w+L3+SDSdF?H=xw zYnmGNC^vjQzR4@hmu7wRtM@F>40@-wO@GM3X|ul*zd7u!E7?^J?|JnWG_PfjpQ7!~ z8j5|p;_%#y=y^-gyG-R>!hb3AJ_=JPO+DZ}n!v_Bov^|k+qb3c#cGTNr3I%SZWKTQ z?k)lBwCF)ZXq=DwDe{J&Oop*J;Zvr!%s;F-9hzu1d7353?}U06O=E`ieS96#KWzdj zo;Hcm$3(HEb;Ff-?8X`=r?*>aj$ z*ey|t)`!IxH+Nyom?APAgy!xw8yDIFT)6$1+bVllckjQ76H-{r5>DnK+Qg5aEl6(* zhsT{3eK{QYR{pNUP#AgX7LqSdJcptcS3Qz!XiJ{=@BZ`cV7_M`}o9v zLC?moaG7Hc7Mx)YL~aOSLZWr%6HUo|A{)ZW5r`Yny*X5_(E@LytszNK1aDRWI{{05 zAQu_S;AVsL8O%b{Wmqs`|K=lLy5pRO)?q?`Lj~6F;<#+dv1O8(0@~C2Mw}Typ;rrQ zFw~D@RGY_}82~)1j`0J72M#G3H#z6XljKCn!-VD{I9>_NsjA+LmC8M;cm0i(tURLET zdo{44<2{$FYwGy1{)qV4G^sQ?reTjEcwN?MgKYSYD0a(E0n28iPx?Zk?l@Jrri*qh zt8Z;Yx`mU+t0SM1g=&*79|g|0leJ{lg*&}`w*5wPKeoAKJetVYvN<`7eX~vQkiot0 z8Du62zyH5tW5@D3g$89b(`UfFP?z>VBylV4eLLjVz>K^u#19qFoR#B%{LCZ#sN7qS z2sU^t5P?S<``po!hp3Gu)GaA??kN&@7{hq6)W^z5M_>_dKsRy)gfEB`*Y5cYucEf!C8Ev+=;o4*P z^Sc}Nc{zhtHc{Y3cl*fBI;LY5z>z~3?!+s}S61ZT$j>{LP?aBke60$u3yM?#45h|T z+SyVTdxI9@A!bg-{D6(bPUoTfT7nkgLxJM))fNl+RX&j03&3F+T>D>ORmK?3bJdNo{_SM>zyA>sk^={>=458WT+&g2u9JnTo z6?G?SosRd%8>Wl%de*_kX(^UkJpXm(CRzGM@~gtKH4*04z3$#+NAl~vPG+!3%%Ko) z%~>2zYl)(7j4&?L(V(gW_(IsD2FS@LAlI>WuDj~4wvrIXM+y7dp-Vf-k{+s z7c=QEd3EeVjqa^0VtId;K25^D7%_UzLF@twU%eOz^(5!(uMKmg7?27FEp{&WIWM^p z_LqLLEIMETN2jh+N#z9kEMmvBthNiuB`NZ6D^m zKrq;g7>cf2Zz<(79XM_3NbWJ=)B6@2ij0Lsia8ft9U0>LO`?(awwk)B${H4lII)Is zrOOu`V*=as*p#6_!RYs$bjSwLE@^&E|NL>SMF+cl?R(ydoZVB8zY6V*@h~e=KyD)F z)LZ{G`;MdDn%iX(vs5YfFA;Pj@jSn^#=0blfAY0EN;uor6!FWt<0BfNgcs(Sv7k8M z&J{phup_oir*zyv-s+A4xI?Q9$Wt!ax=N*;T@=7UO>D^nWFd$(+=Zn-57BwHOlO7| z5w|EiqPD#5v6473tiL%-;xP2T3f;GxR-HdpM|wNhEXReTU9O3}dIvEqw>QkOc*Q`U zHk8-m+y)lAyu)i>id86uu*kfd4Ql&Yy<#NKthYd4VXFfAqvN8s&ZN-#sTaRQUm_lo z{PZ2^AVH`8-g|(4Bhu*mtlf(zUH@QKqVRj_i(_~L9Jh)@S_c@1KKew#a;t61+ zdsm3d*}H&{A?k~LNLZ9|#S+EP zgl#o1lJKOqZNdjixmlzV3|_o)NQ29o&yS#&J58vJ>1w8wQUTnp{u``vN@yh{g#fCz^bm1Fvew@TduCe zY)L_M!OtP_$}?iWJBE_uy%`truPz8C%p4anHgOX%pDUECU+xuuEk${{_gxc4doBdE z>qPfW(+E7sQNXD-{ke~TyqBv+FvPF7z$@jVygHNw@W@`n>Qpp7Boi~ZS#FmR-_sFv z$VM>Om>bPoL~mX^W^mx6=H|O`po_?9gdkfb%?=2;jn+cocq0+nM7K?nbN|sLKj?q` z!qs4b(EFK}1vwn89ztE814FyBgYRx!pdPa4=xO!GJ7keuiEmu*`{^M@cK2^r?Z06a zeR}135e=9l?QtX4#mzAK6S^Va@P{&ce{n6s>icl4Fk1Woa`=4QwWs%f?bk)1&sxPN zBL8HBMb%6kN!k;kWTUHP+R44mbr==A1eflljV$w_!1C%N}QSSv>RX`N9!r1rEpK!Rwtb zda_ENQW<~!*5#*QrO@_PlKRE?Pw7`I*TB!lN^1Gy73O-p(@Nv$mq@FzTh$-cM12(_ zzooOsuJKRV6mp+O^bqPBb?6nJDJ<=3lz)3;>#b(x0Mk$VO2~n%S(d4^g|nS~nZJsE zV*JnYmZ5}6C>|o4soUuv_x_rOC$-(^wQPvTwBDg1+ZM4~apA8%!HBpj|w zmCultWkeww$EqF&JXAQ?Ka%M6xKWsQf3cI)508 zRU=#@#I#;*Xe_QCvV3r4zF4l0}?)Ci$!Ain!v8u6kvqG`%OX+|6+TI)ra zHF=$GRCin2Gxoi8lHFe0Ot8Wv;zIHg$`MNX69%ze7hS+v%d(f;zf1yNxD<(Vz0~${ zJc!NDSFg@iR|lCT8nMPilBaL`%nY8NhJ?&B-&VI(>obPSu~h*!B#&aiwV@#YBF%5$ zA03^!nRBTYHmXratOC5ml616_0vXS?xfzG97B)gaPf_S+7-K9`Z}H&_H1=Kgn`9>U zln>78O=3i_i~V1OUAAicM|kY5aTz1y@8z_|18a6Y=-PmVFcih;~A{G`@x zt{uT=6mnTsEgs@SG*KGHeZc$XANZWEtD4wRw){|mK2jVkq`$L>De`nQ>W2SOq{W9HaaNNI{J#g+Sj4QV)_ssv@u$5<Yp9(U$$_EHE(4`{RZbQ!~Q z-&WSvxPuy-Qz(JLBLu_7PM2{^l%)SSI;8FvH`1{2AA~EjwRvDQOn8)#G!%JQ2i`>xiD*t~ zL!oWtvLLon&*!p`6EI{RQ7{B?jpJzBgz0fQhokOagTO;r5*D%@?4r zf(aA@UfmmoN&OUI!>P0QOsd9c8rBJ>N8&>)_*+LJ5Mz#<^Hm@F3kENIBC0lgBs^Mg z-$lhP^ob{W;cN~c7W+slue2xgEgQVQAIj#&)b>xx!|lj6GPb-&11%BQrklv{cW1hO zkgy%*(0fC|OLSW1m%J}rLh9|G!)e*bF-tx~*=;m$Y(Qdt1T|7{HXMM&-|oMvw({?| zwaJ9voI*}*NdI}xpd14odL4!dI!%npa#NaI33TrY6z4^CdcA(jVW~-e=`FStBv(XW ztAR288;4L@H(e@Ib4{#zx$-u*zwy;%a}nX&Y}sGVQ3teZ^A{haBmZc-OD^gN0n+F^vAOy$)kC|mSZ1Y;{pF3|Okow{ z(Ny!sGdKjeXiS;D?*xToj<)yo4H-tGtzwj@*GJeD3H5N&eDa{qdy8M5T1rp7I~TDL zHIoE)xh(puD*+)232ppGbmryDDhq>7 zPc?6t`u)q7pX$r*+xv`J`PlT4e>Q_h>v{+Vn3xc~xL6i@&zM4K)?1UWIU~eOd#592 zl@q+eK7A+D7xZ%tJSz;QFXWinR|=W@amO@-lYY%lEG1w3F7ZqtsG`wXE;4?|;qf7` zjVm>IdWpxo2O|TWFm&L-fthZ7ce5g*}a!6OpU9O^AYyr>utl- z&uWgwRMcL9e=(;bF_@jeb5WfR6r;)doHF}6ynG4AHlPTRyQDYV@;nny+_^G-1&|;l z48WqRP3xZciUZxHed-LQ*o28mrL9q>-lz|kahEhmkogV13G>9aJs()|M1jkpn{F6C z^F+k~#dWNYpL-|2Y>oQynFLGKGK*!!ZyANr|6#L!q?PpW{wOhu7-P426xPjiDGhl5 zF?1JwTMUM2ZS9zpIy}d!m4s8=M_%|xQ$S3@ddpB1znd~IH+{V_?8*22Zn!~)IwH#F zlJZxpgoLoKzc=RVBqe$L0lm?jq%I+{pB#wQmc~!CJA9BOyQ`3w!YNYmFKVsSzFO@h z!b+U*McY&h0gUeY$kg=@-RbTR>bc#|qF`J$X6h|CeXietoV=shtcbZlDzK1Z`e7ry z(O0Xf=x@Jg{gZ#<;PKj6G#;?N|HB%iUUbeAe;?hco-n$`%gXP^5Oe$>l{0!p%A#hw zO9MocX%-POUjs%xMa;Z-?=?fFhOvLL#gUsU41`|@!oA5QwxCMHmoemTN69x1*$YhJ zZ7VYfqeV;0^FI$4ABG0s&3H%_p`u`ZFF~$TjG)v?sDhY#UMNwuCpqn048A9W(nfzj zX{Gr|SqE*qdK;N2vbKF^xKX-2oc~YkX94s6J!9qNQ)4L+fL!)q-@BIC7h-*APvG>` zL``-S;F%ouP&5}lcSvEro09Qfv>)!KLU1mK{1DbargN5{9J)Mm*%+@Iv3CIfC3HH$>k=`&{T4STLKDfI_;5 z&6eM&%OY+#m^_y3s+i}CHzCDXeQ)_jVHrq{c&OS!@7Po} zY>9vZS%t9F$+(U(DiLhDX4<-*npfypFQtWI+*iZD{B%?M+mU?A`mr+6H?sLALC!*vBMfD6<-kks4UvIb5*(bj)+BTM zCF`%x(H?1?BJqw%^pXhN2#t{MYkJ}!EdfLAm)?ZWd2{Ck(XR0*^kSyB(Y7$TFn?Z# zws&`85O4$9m0esy00nw{nd=)iaDS1txuq*R6yyjg7nW6Rrh~8S1y%3=I9I+VW8u5WgjoXQ3;%V-uxz+(uh@NLu2wyMETwEd z1L0c`9~=tGgC4VjNxW8w+G1nR^vIQ&8!Dq|8qkd|pK3Zvr!;l0fh172TP%l?y;X_PirYNDJ~{*I1Ayuel$HU;JUYZ9YP%ZV>vO@u;ycD(ySRdJSS!==D71_@U_ zi+;b#v`m-$t~lA_#*KFZ?5eiaDX0gi5j)KERI_pQayjRVDHrkD#Yxfiqg%!Q`j-F` z9jbBgQ9%aYhpc@zcKYlP`^_T}!@r92`n^y2w4+U67<3%gk}?MGc``KVXxo-0V|7LQ zL0?`mI+f5asouMwrj!fx%fEPwM(B$hr?q0krT{rzvRUtIlWz_G6yGu%gB$*kNu{ca zy3wg(HMBV&-_g~T#@?keKLMxp_`=U7@EPpGH&6b13cx*o*C}p$fGKa*K2>{FD0Ie9 z#h`%#Pue*o(Gss3h5zD-Mb~>t7B=uB6K<@XeX>d!K@#~Hf#}PZVPF&z3Ww4<0&!;% z>BS*hc2%O^s}QbbCm(&xRF^IW$~Z1lKIy#1J?K=NZA;Z0Vb9P6IJSLEMVP!RsRb!X*O?5J+S5P()BdSLbBv`ZW0(fM-gp^=$g^7Csdea!+ykt^;q@ zm=b;c6=y~&tl!Q?5lX4?N3Hgcp7;A+UH+yk-$)YHS10@5CXIcV7e!ZC8tj#w=-J+nMwB6 zX~P)y?)*mhC%VU*hpO!VqbRmSogT6B)-v`Xo(iF*ZCTSK#A>L|S$1PN-zmKIK)z*X zMgV(BHPE#}%3-!PUQ1TP5%wG;P{8*ds3{v55)Yqgr4vkDFJbXb+HER?w{Hp(Ly5*6 z!YD?@hYzMPZ)i~)?if@j6g0!w8OwZiplp3}#vOsC;bZgHX7G8%CIy}4Cl4fs8|hWL z3UscjHLk4jf3gK5xHe(NCgheZR5D~+?+Wjazg$8r6Wh2#KS6{`%F9x?FzYA97O>i? zCOz+733JBvgV=AUkumYml@2tD0cskMcpH`x|F_D zqK>Z+jN<5ahPlWMUa3A8$M2*ANFAfS&`EiKiuPi83P?Me4@Ai&rf%P ze4KYjzp6LqI66~EeeD}|m98Ox5Hb99`N1Q4rfw!Taa zYnUzQ0-WSU{*z&5`meUaAVE7uv4rc}XK{jyU(H(LoYV9PsV%AIdkNzVjX!h$y9`Wg z44tL<7V1NGeD{OSU(@19dSZ8G0NtBBYiR){^@h->EtkG)6wYV0)qLk6U1;9Zr*5ZW3Ri;e z{RgdCYi(@~N0YJ)v7+igOfFJJYvQYHk}}F$~7`zdA+-t;$+o ze@{tq^qnZH8BlVt3c9)rO&QJfnug5S&Wm z=5LF49(kGWD7wcg3ss=%Eu+=wKOd8iIEWD6i1^OEcNqT<{J#96k16_uA1LzGO-v$cUlB4IQ4Eb1793*GiZ%GRCkp$>}A)$<_TySRtw+ zJ-`G=z8s4XFf0TnZ*6K9@bb;(b&ovI)Tjd;7GP=i2oh?rGEl2Ux(iCX|D~M0sN12M z_I-U0N;4gWcZs@Tqd>Vdg|(x%l}w5GNtBi_KZ&c!HfM zxq7wwehirHv}G0m`fwcJ5uJ{9fBGRFDqUncI~`=vA`n*PlU}uW47Mlg6xD3L!PCNw zMv8B+EM#>BJ2~7T3McE(y`<_9&tHRmuVRH(JE(u5RdwT8vSMNuwe=F9F*dRr%VWm; z2vP7cC%pCnyZy^S>l$&lZ(EdnNvx-rIEK;3kCnFJUhnx~@&1!jPrr_(tKHz9gHCR@ ze$PJ3zFB_uL@9u3!KZFx!KhApa?-d;mLrh)CS@A2gpIT*;P+UPDmX>Mr>#0)X!CA- zC017&!O*>r`6Bpo8R+b;Y01)|)1ykegGtQJ^(!pZ*6`uz)Ri)Rc_{WAYXLAfRJ&P4fMM%*;Fn$bq*VJF9X^X-`Czjj>p zY7(BW!3%7PSFs-mDzF$$9b4qgtc$#h$I3c`R37j92Z;qxW(U(pnek!XCB&YpnEQ)> z72=ceJ&R!MgjsA}Q>1q2dti{|idn%=x7OI2#j?T&Ji#tc@|ia$OBmAj(aKD2O#koF zw}$tr^25S&tLyBxy@O7M^2ZKk9GNHt-3if4&KIEGUnnH%u{~&}YXAG5Y>ae;r1OW8 ziLgwMAOZW1&E>`Tcl`GvH~UmXX3-S-e@27nAPkDJJ zrFeE(9I0xrujsS0x8CI7y6hSXy!uf>ZJ%jz_{X1nO@_WOKBIHe)Gfu=X^CeSMqvAY*+}toI()$Gkbr>zkZ{Y3oh6|m_fGEPz zSN(DRohFuA^Nle$*?eiRLzARpgiSJM+k-d$fMKT2=x;Y9hhMbLXd{N>A9Qp&!*j_7 zx89k$vF2J=nzhOH%-ckRVJ?@q7Y2RZDVq~3Z!XcccJs2S`jh{sS5GMp{39YR2wUa< zvU@TOA|s=ZV#maJd17^aoep|>hgDUCgU5q`fkB3W{b(N$Y1INgo>?Ek^bwAn9M0@A zvT~AIN}B9HTwFY?Of;=LJWV9OsY^*}$f~L+eUp}DbM!K^nv_KCYHNw?y|_@{=^pXz)@?Y_*~I+XXMur~@7{4u3Uc3_qQ=z^695-rf$kQ+Z%! zwK#(s8_}=j z;Dy%c_<|9V6U|pHzY1H4pR+vb(l)VhJml@XfwV~4JkkvA-WqEns z|A(=e8dp(ZWK2_U7yHTS@6uz!KL|Q|>;i>nnmasFR)%+pe>dA|`wGqNSwWW(U+&t0 z^3eHqw)0_{mC@IV8|$XdgzfzID83&XaXz`LbVo?p8ZUa-b)htZMo!}{HlaN{EZ->R4-of$dYb0_BsV0?REIRKQw?3Ui zJi3k2zrO>nsOlLOgIkJL(bYnQ4cvk4O83RHQvnL@p%X@NcKfJy3#1iE!~Q>`JuHa$ z+sGZS^z>ZDpwS=Zej(S3tusEh<9d{n!dHvj5I})|mdAGjDjsqbfJcXcu)%sikc2u(!ipXdp2S<0~di?}yWYDjilIneR|*~+DVk)t`-4*ze4 zA})A0#%6X{FI&!*&YEzO5xm@Mw*m?Cf|pl^BgrN+;RR)SO0-#d7{?uUg7zWt>vYr9 z4`KKisdCz>0b)$vxH1X?SyfEU-BH?4>^g{!1XvrO4GH$4x-$w1G0X%^3X2{FBTKpLA>)1}IObRFjN<2SaV??C z{DYd+ZiKSwn2OUIvTnSx6ElLwXr9lNw(1BoVhN$<;gUq_2K1i3V$l-IKMMx+d=f{pW7|8@XotQy$x_0xS1jk_e-^Q6^Q3^6FH27s zr7!EApRI@2{`&XfrL8%RGszN81#c?^ACqpg0tQ+s_%nW8n1-*xS2+$gjx?{1Uy_E> zLW81X!ZX$yR-0rXQt}l2Hl!d+I0HZs8(m`7&!($IV)SbK0OY zyb(@ZQm=BWT(dMZ(;<`k5sl(3bSFqNF`aSx>D%Z?<63OCzL*l@e*=-LJ>C>N5`(e7 zkhhnm%4+OidJja~t<)6eW~56;weJUS;rCsg|NO zQK6jbZV3md36!oxb+vf2eo%mrctO1d(xh8Giv`CX^Q~*svellT#w-Yveit`iGGF$I z;kWT0{<&dTFBx!4FF~{P9i45f9mzESQHZ&51r=w6;g< z)tc{if{G4olIC3_d8&=(aNgS|f_1xM>!de3*=H^!qydt+yLsYF>KsysJOzi5&6q#! z<4xjb7o+tGoEEd}-;tH5(?1GNY?D7DVVq{u0?t*AjA8y+BX`9AG4h(X!V6(sRnshu z1?bLOS`SQ9slvzVk^)~gehdI^1^R|b1G|b7Q5-Le*786ccOK}51X7H0i8U*;2brj2 zs&9sg6(=eUL8&ugr-}x82JJPbg!&aiEC2s}k|n$1bFGtlr0q4-EQEkDY#U zD@FDI7_vVa^uM#3#cxS}Og^%i*pDFk|Faq=Ggoyh4;L?Y3#;)TUy;AFPO-CoSJtZ4 z+Acp-hY7W%%S-pMx9YTT|7Hy|?krRPs;WN9FAfsWVlUxQ`-W7(#Z7BdCp!<1 zkL(KE<>W!umdy6F0Se7m>A==z-89)9dd(wVbBOYB%+0uhbVVJ77s%Ux>y%Cw`k~%& z9dongqD9zIv3xE?1*@s!%~^--kaapHLs)+WGZIJ<_@Ncn(cabe0AdH;fPy^KTE=zm zvnrBm-fV8t4ue{PoZhXVknXp0qx&Qk@!HqVE^k*0r{L$c7M}|~9TUhFu(jRzeQp@~ z3aY85TokXqaHizDSlj|U-#o2}zb5HG->cup*Z2*_U7+v2(CPP=pspvdM#}EY{^sgM z_2$OKSKjw7Zs^Su2(qQ`H=i?cQXt6l7z7NsdV&r<9lj2Nquzv1yIP=2(8rPqIo2C0IP5>q$Ut`#viQTBjy_?eq9@5d~OoKM#6e z%evR8%Wu)!5_fcdE4#X!9;RWsMIn9~*vW!;ovqludV*Hh#RFk6R^Kwh>PYJrp09N% z*~D5v$K{X2I!1(NSTA$pChI}^TOzLm7M;!ShWAGgENIL4W*z1|)npAU{oV&29r99- zC#0ee62kvPr~I>^8~xDNE5D1o{;0ExEU(K~EX0$W>7j5nhnwSYVf)KRym|cqF^u?3 zp>#~lH?MbN|BKVNJD^t=v=6xUe8UbM_z(g!cZWca0Kf|p(CfaX;%x1Cc>3k}X>Ot8%*b+ivDWdthI?0Wag!(90$Q))H&J=~DU=ko6VUNEy>R%tHs^EFcGPPkLmDy+ z#6_xmdqDGTH2}Tu+`aav^ni!oDUHvz-p4OY#^X%7jRIS`yE~o&L2uB7n~2qe3QA+N zq2>EYq@ci?El|Ks|DcLa?nNT-wuE0jCXPSIUhKJL?abvuYy;?L6!f&?zwkpK3hUJk znhP?1F}&iR)Ode;<`3#33fPUR2m(w(*>!x9s)3*<->&Y5jh3v1qY9s4%Evceo0r|m zrHZw87r>Ut+{@Bd6^P>XlG0fCCMqsh8|1jSS965rrPD1g=5oGixHjIJc3)EwRC%_= zb&T=m2i0$gyQtQ=0Cqi`%-P>K>?=MdtxZCoZSA1Az-D5&UQov> z@NH|c!hfZ?O^=_P=*02;Kn`nb+NWT$CHTpswaWvuxAdWHEu z>;PH0cp1EK=4T0Z2)K$mTbQglo9yA9?kjpqyKvz@d(sKGXRoN3?3g_5e+9i%ZW(0?-F~!@l&Sv1lv$cKeyC>;c9_IbDj+ak2sQc;COauqh^&G`qv_QAP=(%+h zU1C|>*(EZ~3Tcs2T)2_JFS!$F+)SXm~g+g*PA^(WwjH%ZFe_>ttGv#z2|5QUsa4QbcrMwO0F3;#~eMveFq zM?*Plqlu)*S-;jaI^}sEMEW&N<6U#}E=WfO$n}19ICqz{DDrsI;c`(8D}Dvp6D5UC z%mFiW-rc-BK$|aj1)GOe&TJ6i>s|SU1Ak>dd&%aPH+=(;u$YiZ4Wt_Qal+c)7rTW3 z4r6XDP2D+b3w zqc-mka2pl$32YK~6}J<5p49A1iOQiI{8L>5fr9L`WyS zmvaFA&(MJeg%zOW|Lux#efvuoR{CSzs6N@3m%AjeqCnsg_<;g*`VN1j-^Ay6O$0sb z4uK5V{Q4HP*YNsudfAW!nzR8$dq+o^EN)AB1g!@ALD{NVo4B$lZp(i2AwCWZ3LL)| zxG8#*>B@WRUw}TbL-qHE`|WOfu5OaVecp{k2gGY2K=O}`1?O_mP1+Uo>h>!3aJvTr z;Y)Ar2rv6QKt{ctxuaV}TJHpWArHftQ7uTd*+ovxukFShO)lFUijU>Sv7I3QmJe+| zK@n%H7P~>4+yte+WRJjpN=H_HD2fvj<|!TK6UXvJzj;*ek+zP@h0m4iEzNMpGN7bi z=V2e0`ZlKDXr-EATI}UE>?J5t4#4g=oo+Tx{2*7bDP`q~^@adZK_ zUI=PhbJ!6Se(Bly1h}}*ljg6eaRIFxi?WagZWi?ej4pa@_9LXzS4q;=nP?BYB&X2b zD@8KPl}JkaMGo<*nxzW}Wl~2@T0UjaWxH`F?|5fT#j82>-9Io|z*jM{p0=ZGkx!7} z)rUACL#n1`8vm=4)7NJx#yM1s=a*!We>bln1q(-*L1E1u)1!{Kp#bDl+&;~;vo^nv zi8KFwg^84SekWUVwY|!Pi}?G?gxS9D`D%mgHEuv~%_h1_;1{3ijaPrKjm4#I{~NC^ zJpkG26%mvAMc#puJC2ANhvKYBqusIMdE{A=o z!sYA-hB;`>5MTs%m^?L50zG|Q_>mR0h|j%gOH;&aZQAR5(kwq4Qq4?0q9lbm5kEGGjjseyt zyT^macoFZsq``m8H#w|X-X4ao&2!>1EGRCwdt&~n_LJW{M1J;}5O&l35AXivO_X?g zAz8mRU7K+}iA(_Vj+7vwR9e)nf0lS`qm>8zM~a+^f__+J`v(?THx}=y-n#(qAL$glyF~Kqqyi#B(fk|9|*4Bcb?RFO8a1of^SQj zHQGt1j8PHOdn(>Xm*O9JDvA2`R%RNEfSMEdg79t|)>eqy zgH}w$16v=iyuBF3d7NntlX>UWt!IZtAisqG9jrsj8FHXXzKZE!zoM<}E@!|e_4I>v z`eGsZiF0EU#Pd!P#%#2v;Zl|NlfM^o^rEI4g$Ta(EEoi_S~Q8;0xq*;nR)_EG|o;=lE+zkZ)(jx?1s{EM{=(W;6N=hYz~WTD&OBf!{x zU}zo{G7mBjbs&!I7dQ-_GFh3t-YjU_&6qG-k7HuNa^Ii0^OmNopO$Cwdd%BO9`-RSQw zK7;>(gH(CNk}W| z`;6!4Ip_a=-~(Kb$o1@duf5mWYu_{8b7bgLVGv(1p|YXCu|H1u`CxsiJCx9e(Ii?F zYm|bPT#DMUB4iD_`o61aAmzdRfwX_<2kea^BTHksWoy;$e}fSDhWs!ilzZgPwm>=d zWLD@)m6e%8^PAMV7ksq@CmNJa0))lnC6~c=+jWYf9F123%a!LzK1Ruyfr3TT%2228 zXwP_ZQmgRvmMO~E=Y=cHH2Xo_)C)aaHT?r9v-N(8aQ_7m}Cp>(ucv(gMZ55 zdrfa;)wm6}YgMIATtjHqgk?y^Zz*R}`9jQs zWv2q4$fbSVfF0yFiLf==W)a)fk zwT94G9=INuU@0|{Uol2qUEz_k+OX>kkT5VU7rq*eh)Z%jX$G^nd$bI|9vq`(Ym3Rd z6#_3{E7{43r$a9e(Zcz-Xg_s zVo$RK)(Cw?BU5FaVyBB;LTOSum@X)e(e|&NKfl_ubYUvF?3+XB>-j7$Is<8=>Q-g) zCzPyjco<59q7h0{0NvwTy+?HV<>+Xp|4{i+X(s<#u+Xelu%hoJJZo&6&PQ`Oqz5v@ z5`@Kn8aQ{U{+cQrBq8WD*4(u-MS1U?B|3{QV@6R1n;bzAR;eUN(#oI6mrjl#^58LuLcKmC}Pw=_8Htv5YjMFOOxslfDE5cOds|?o~Fb>P?|;X)IAXP z0Ny@=z69X!q+L9PBs&D$?9lG`7Uy;OH?_TNHUHIGQ{MaL-$1g072lH1a5rDOAJ9}; ze)eWqi~}vj_c6lYm$CTkmp^x|e(K;WLf-Ktx*CS+FZyJfcYpKs@&>3675|Io^^@{T zU@1(J^%=Lh5Xx0q9^<>3D`NOjG3}wq?T$uu2WSL!61>I3e%A8O?ZJnS->(m;7Y|>y zwncxei+?qWviuQ6=4j31Famd&-t^VCrOAWcC2n&%g_89yaH?3V0@%;K+zc%)RnJ-6Gvc5tdNzh;r zf$ZLyHw_e6qP6W=Kzo}0VK<3Tn^1UnPP)p~UJGXFEQuV_W+wK{{ z>Rav$!_-6#>aQR>u2uSVXFVK5(Psf3m+8HhJYgi99cL=GZfV57h&9b@pU#1fe zk*4{&w`SlmpcwtI>oi8IcjwhJKF9Z(K@WAaKIv5a9JYJYH9J^wmRE6yHCJ(G*NO|` zf#yEszA+8hI~P4pUH1mR;kV{Df4WXaud4=*skS#&HQqGYe(yp%m^~ax zW9HbxXF|APOc#-7u)QEW$=QQ&n5RQ)0;H`Z@@~dTD1%|DL&>x9X|iC3nseb;dZ zZiig~p$wby6>RM|9D8o}`!g$?-0cG#^sT3}xGY6Hjd?Pj*uu~Et;yz1H#v8eX9S3! z7$>5|y&X!oTJ~%Zcg8p#dLPweSA}K!Xyvot$!OWycl9xWaSE|ja82VjybOb-OQrK9 z0>kcWIIja@9;kvnLO`2HLywodshUbW@qz3((;&ONzR*NYgC)u+L(u*Jq5kk3*xA)p8~xG@}(8PY%GEam^gTt>{i)G{g|dxc!CL~3Zh=|!(Q<^ zCb|+ALSr>#@og$(#;9|1A3BPf@Kis{ShZ)mWe|Qyd0W8WR>13@=tkVD7^@LXU~?M8 z{4o++DyOpC_(TDpE`YNAAIhvgexp9%A&QoiauU8el_{t;IvySugZ5ApN)*?UJO zTP*Sa%DphXFtf}VXWN6%5he6A7-|?I#0L+97Dzg kojAVoGsNN#zJ;x)Zy8E}ZSJCQ&X*NKN>9_3p1#drrFzVV8oAHlO((eW z$ktrCsmgYUDc!6w+?Qvf%$Q+zr4Px1aEo!lfsMTE?(OumCToPUWUimi+i+Wfa8y7B zcC3e8S_;ka|CQHah z^!zaD0vfgMo}YT7kba|}Q9uV|%WYg%om7B&j+ zh>k&%qbO;kKSL2AHJQve0MMKU;Ym$1l7o9AKAXfbzuQs5J#~&DmP+;vfqxCQyrGL@ z4o;xR$DkeA2(fqVvWuQxod8Wv#zTJrcQ9#9;1{)dF-Pr&r|e={#gG=ZiPbjRz`UEj zoO}~9J6cGj1NMKa3Cc(#`xciy77yeoTp|!JrltWEP_sAW(}|3q_{P z<3t2j(wgsk68f$s@a!w6pVY!p(_x9wA~Niei|4QWi=B|(pCmNCmhjODs~ zF)Gc_9?JTd?}aV3)rLu@@JhK)Y*EXu^3{@HG<1CKC_zohS#-r7Lfmgw_gHYsEgbMN z0lI@ea35XLYEcedPKjHDuOw5&K>N(R=0D0xY9PWEE>F-4N-4Xy^zyXli)Iw=D`Qk^ zR400bL0M?>dV7@YbpaE`;^8`7OW(@m9b&HKv&=M$RZrZ=d9{~&=Ggk8fT(@{%n|jJp} z9_h}(^QY*P0ffcX06aloQCl|N&g_|U7js3= z$;38KG4d@Z@-Iur)-%KkzYk4hQ+)r!+AfcASXkC2WCWoq<024k;?%aAtjHawq2_{~ z0Q7os?yFV-Uk2QP%297RFEHriXe8rgPb<9keGY%?Hg#N>XQJX$EqcYkJk>!LZ>je? z%>t&)RxW3d`*0`W=;JT*ngk{VOlSk{q^5SP-b@RPo;Y5iK1wz%tSlfqj@3f$ z(0cey?cgpZLkAMWLP^ex<3?P`b!zK*nIg!gtwxNM(r;%lKJ+r1Y@`|@(}NmF4}4^L z%)iQe$eUX8ImI_vaCYvTyVV&JXnmaDj5}BMpMs0~uji=rh@0Y0tvy;ok*Ji?+Y?4x zKf5aK+9iM|p|v@Xu$`)w^-PW8F`aQowNPI|GdKXyBTfN50t9nAr!~CY{c2-ZVw)4i zWQv=eMm#o#6=n%Bc@t%Uz5#sAfrJ72$owf1N4TW6F+bx`?0@CR z1~Nx_Z^1+l?1~ZZOvy|!=yMI-UZxBL%Z&x2D{-V+_qwBcte9MTZDP^k(tmvw#QK?p z<=xvcV}~$yp01K$vrR3rtMrF!X;$m6Rl;1D?j4e_EhCN+ri zmP|q*EgZj4ZSX-#EM-5jEpcdFQc^HyN&w!;Bf5`G{~Kuv%G(XNyTe`LnEqs3V>m|* z0$4S=Nyao$rVi*a^E9%I1>OA~IFfD+_1G zqh@4;)d5*+fllcx?NgRAFK9)?aJ8zNZ1g#Fj)prol1R8mAqS2l+FvIln~XsXV6Jdt zFVyDc>HK*~j*IGGt6Fj~|LZ)i+^bU{tLu`qKA4r|NdjoV2>XKu@&~kui8jw@#i(_X zAFvE^8o>C`I+S4bPm@y_lh|Qs`j%m-jJXSar=i~?d^x1yjY_SGJe+I}^d!}r$;p@3 zNy>Y^U9}|wN#+N0(aHZRpAInU;$JUpXOm;VYo2RVxxO>1NL28e8yR%+nd6!8FoTYb zu}2LN?)rk$^%j=E(3MZDEEYhT2&!^aV`R{50NC%)FGL~2IkL;Na3ZZx8=gw%}H z09e2WU;z_=1!#5Il7dKMJ?RH+sU^xqR7Mc(epWWWQ8rzGDD+0=2H*flK&2ybsow}m+7!fGvtKc?#jwMxnTP{F z=I57&*FUzrqnp9+1A3KE+L2RqwREsfUx>){Ghe1SyZOErIo30Xb!Z{K#*5^00|b{*&;e}t$0z*PF4X8q3nRng+D4Z==4p0@8u z1PlC_bt=F*%_iEZxY}F!U_|dH-i65GMk&EE=*Q%s(!*TJA1>OIqdFhfO)J^|={J{; z5^bq$qNpxh9ewK%#_m8*<%3(~@5rVy!;pQrldf?)w^qKJU?TSk*V-em$X)OrG0T0g z-?DghTG(0&*=V3L#(Px@^)B-QAzhkG_hAWH3dUf&f0M74yfkg8%$IqJDIt=-1H8?b z@HFPJ(6#5v2~2NAqr18H`Cg#-F1WjHJ2N3Qhq+teRBKcG8jo~QA?1E%Um!aY4u+rtTvS?fm zHggd!`SV|D+a6bQeadgG)1~wwzRFV2yNij7RI*|&9mNP2<%_RNm1>KpgKON?ah7AL znofklDo(phR>f?3k}egH2eL(pQoEil* zx5=_J2VvVn*_z(LjPT|m4XHQdvJGk0xMq!8FEn&;M>?JP;+BZJaV??h)hE}?_=!)<(P0zPR($`eZKB6eT0`ZJTN+vPt> zqiA4I6+jD+pqmvXY43K*l{`2)t*(oI)-r@wzKSL&SkKP~ujd8$0{&mVfS#X;nQyMr z-xe(Zp<;OT1SO4&V@rp5g&0bZY{l?LvXok(ZnGYqj1 z7E()NMvyNirAx5PGdE_7Mwn~XyuM0rYW#%%M2~$4zS*~eIIR^c-IJ-|xt#TRNIm0(1C<7wsc)Bfz~eFs*R3kuEZUVTo+x zs1HLDee?qWx!_Fl)m@@G(6(JAj1d?VUG1HR9lMqaq;@ztEQ<|F$XYO({mE95i4uM{ zV<6Q(#83LUJj&KRs%)FsL()nfi$fsIEw{eQg508WL3xsL_tKN#>4}B2SiSW^{!#ms zCsFLQ(sAsxK$axzW9O}cxP8NMoQuYt3;Nx_#T>Ulk2MDLSXMxik|UF}bhUYyG>f-TH!c`Y2}5%?z~5${6veN>rc)K+%;(r?i)! zO;MtzYftdEq4pjfzIGk|h#6@}lqf8{&gg(n_Yo6?(-qeNodTYzDkgBO9~f_PNED9` zZA7&|)itFKbT94ts5&n>!|jpvkE1)v>0W7qvEc*hI*Nx%L|A*V`N@u!sUH|FZEA() z!s1T)Ff(6>)4m?O^4@tf%r8|yXyH_GE$-=Iru-=;71usovozhRIlP^IJC7&tkxOcI zFL%()Wsp)3n>$Z}yLVa&4g^0!%h1u_AuX3fK;d`Uz8xGxxtm5!+u*J5> z+V_)bN@sf&>Fx@$MbhLf0`%sOn!-uLaC6#Bv`SGN*0>hDa6o~8K%9)2ttrC^tZKo3 z^chf-fbBcFC;WPB<(+z}MsEYfT^o`M;Y5W%R?|@bM>l&PZ+~6LS(|#6%~4v4mOpC& z9I5tTexZAoH<9%E5>3!kfafLvJl7xKx%tnB?oJCO-!yKUDOZM?2cA0Vr|D(kya6bf zed_-nKf?L764Hc7~#99a0H~|G8!)Jz+j_H`!wRgQ;=q&sgqK6^m_^>3nzPw9R8NApu2d zwVi_~v1MQe?l(cc^~To>+8KIbSCq3|^XZXXl+z#SCpj01$jyB;=Vht3QE37iC-!3q zb*V0EYT4-9ndin!S>)WksQNv0*zo{qJshbLvf)ML#9(`>`O|xqW#^xyoqxdWPbbWz z8VNI%){xpy#F?yiFCi*4R09pqCNPNEIw-QH=LtNQRNupe1l=18;8-^HV>Whx5Us8D zH{7z-aZ3m}HghqqCvi0M+;XqkAn3Zx-vKc$*^%K-W+EjYxKOGV>E{W@;Zj2kUz-xl z@sfM}dos#uf3$B!BLBP}_BLI>XR#1f-KSn4I$aKEK~So!JOQ zTzC0=MOlRl1_dxg>_KAQ15Abt%Fhr?z$3py`Wec`c7q0T zH-h!?Vx!JQnk6px1SbgdN(ae%zx)$f1QY%g!Ta|AZdn(g zB*yQZ1g_Ou?CTr;rEyE_p1FK0-wkyAE?I-W__V^B2Em5`42*92lC1+6KYQQNZ%QUe z!X%o3%z0J8PhH{0rr9hke3rK*sl`NCp~W=qMjm;+x@1IRW|KpoCiWO-OCk2rp^lU8 zqh(>VSOAPH05DQpb0wf?Fdx`*>B1N4Gdg@l?VKJ6Ont`q*~WN%rIpD|oI+__AQwR2 zS_o)DkyoorOT7`N?O$b09GZwRIr)Q#q-GoP;r#hPAj$S2{~btJ6(pEIulDU>Wilmm zCeg+c8IykrIZ-Mb1E?>8VN&Xkii)mX%+J;W0{c^pvpc0(PaWq1ygwdD6?rrR#U9wZEvk8i&XYWqv5ZK`%h)EU;fE>MdK#kC~knobnwkE zJqFGP>62(t9LAZ_ZWz%MS@w1e(K&9$_7Xe+c7>aFCa6?9cp8R^;R+eLv9TI=$v z#B}+dL%-5xLCK2EZab71?n*48oxSrxCoQQg@dEmzZ*C&hS+I1uJnls(Qh#{zc0YIW z;W>}C72Aszq*15|FbV-n9 z7=vYv$m{}-RFsw7Q;B3K#`%-vYs`B-3_U19Xuk#9sV}H*+E-izO$Xs8ZW zP8jR08TOad&2k2g<>+y1mg&;r(U$Zp{ux@(k!WYXyzXstBYl%`Wb8RfMpu%mEumND z#vVzPy?qT50tkyEog9AXH(0}huKP#RI%~0%HHvqUsfth;D}6pI3Lz!01WiEMD8%HS zqgyHgu)!wfF48&KqWJ8c=~78#7tSd2rCPExk@gZ}PfbUTb8?D=<-+=7k&XLq>BRaf zvwYvgb1VBCVMViM{7i>~ECz3#zEch)TgYM3yavZHK7`o&+ET%AwG%C;+6T5ZoGQHO zDqJ?ZPjha3W;1nfH|8}BF73KFzxFA~FawPa{Q%8*XX0I?V1RA=rHWo63@O7C{g&Z1 z6(b`U9}w?goI8g}?v795Ki|z%)VUSzzc7P}hVvNx0>AgmHs;xdzj2t*cy59r{s^72 zUOyIL$|DcyYJxIQtw1Z+Mn7r4_HM-)%3X*XtL3zW)e)jx@YB?XJSMaYR8 z!JGtZS)QQ2bD?7KXSDlg%qHM}pUWO#V7S>>y;0_^Y{6@R*R9~dC6doKfW}DSFWrG~ zIcW&CAf#}Fp`O${LWbOvTxedAyYnJ2L6H(ck)Cgr6q9Q9=%V6#Ja;5ES|qkDl#xX0 z?$1}8%-kJvh|Ek%84|+P-@C?8vz>zCl9sJXzC_N=Q$9WuiXL0x$Dpka^+zS$(BAKK zG^~`*atezYC)>e5jL;{zefo5cF3}9AerB2KP4Xnoo#XEG!1a~41A|7t)%Rc;z6GFZ z%_~V9zFXBnJDV%Yxxkz_&`wF^i^?#|F$gX8vm7wxaPo0_pr!8(o)7{SA`4}Cot)|i zVNrF!WH7n8018_{a1&ZqH++Cp@jXrb5dLD2+?_ynXsT_ZMl6vXInh!DMZIGyDU8qn9(apA23&{eOGe>}TXac-rK0u%^z zy?_wLG!Q3{HHLKPxK^c?d2Id4)T5M7qR-@KJd7N&4IO4A*RvV*skHTt1?GX$v%QKC2^*6`Z(rM`TQQ+w%J-;98Sfy z*`{mLu7pN?%3wgb)HRlSvS@Fwf8al6)$+J}&MIbp`a}Lgl?_%%>DXRlVNDn(=>hbc zyb92xT;h)VYs^nPIIw4DP^URig5LKI<)AlA8ed5LJT$5D+$V`~a$8avP~~f98$F|6 zgz_piPO`FOmUFH0@r3Cq_|#nD5)1G+OmCZLP@jV$0J^xfw4^b)zWRKDn`I81CuBk3 z^^Av8Y?sSD9V_mH!@m*D=`pcGn_WfEZso)fo9S)}mz0{|u8)T94!Wc6j=<_Ye?i-7 z+gj`=7#21UXwt+)anPZ$$_GHfBwrSmMHWmedSWr@K80znutFHsI9IJZgm0UWXq z;E;F7e#-O_^Ie^~ezuVl$p`EYT+q7_RvK0vQNketqE*NpFq*sx!h1}2k3A(hoEH(X zQ2#YYU@*t#IqD|4QIoEbm#*a^-JoP}959@u9tw zQ^KR*%0xi1jQ0DJ^NPk%yiu(9*IKc2w5HK#MIk%UtO`%e)fkj>VMJQ8>_r%cHmSr~ zo2tOivr>=j4CP0M_P#zVV0OAKo8`LgN|yD{}RPc1t;cj}BpJ1j#-da(p|X z%$Ktj##-7kuOwr=!a6A4W}ovK_93YPk`^a?W2MpPi$9EcUE zuF(cnrs|rQi%o`IsEfY^Vah_$m^p5V!trNK7#4w7UKfNX%!^|;(fw}2bUE73Nm2lh zlQ0M@#7`svPZpQCaT}1P`wxWx^X&+TE_BZh2~_6rZX6d35V#4~sWS88Q7^&pgYf~q z0ACZbNO3G{Y?~M9)c=wMLfxjq*X?J*?ameLBQwx6#Ry(VBwCPetYsJwdehYy2+49q zur%5-Am->N3_KGXb~pWn^k01D^qlgUY>YHr&CjkQ6Sv*B7V6XSN9uvMw{dc|vu zVe!$URP8A7`gu)qVf`}WNBNG6U*1>ZH5LBMb(cCB^dOum9CQt>&qbf0P7UaDg8eHkbs}#LKz8d$FU!@d*y@)n za)JJ9zW;*RzY^Z*j?Bsuvwvl!*M#-zp~mFi>Xn~%*J=unLtU;EUBU~0WMY1hmole_ zF&bTpfs#urt1L;REs5Sc^!LAN%8@sVzm|tf6+q!qK;NQh#+<_%Oe_|m2)`fS7btV> zMq~vHR0gEODeS*K%OsS8>G5$LR9AhR3WR+`irRce%xsiH1nm(if2JKhigrVRv`~Z9 zrCpjSUq^JFMy*Xn-`xh)d4X8kXY?$8w9X*r%6RO@c;rF>to?CYW}F+)sj5FZt0dn4 z=&bo5;($fp8n1MdNu#a}v%XtBbuGQD;McqX1FJ;9bnn0CG9Z!PO6v_Gt+vE#LUcFx zUQ8ZR!bKb8AB?iR3pB-EF^1gPQzMXOPC)Zb1SHo!W#s8l49>8+d*IgArwq0Le)KYh zu_{#85WB95lclQU+1Srtqd1!7RVe*9Dl}x$VWjEurE$;As1B>slWO6ZK}?H_r3p)s zv&jiy8A*ZC(w&N_IZN%>A{S9V?0SsoQpbswaNmzX&bICB*^cu%Z>9>U0U3t}Ut?RQ zF}$6exg_5peWUdCR0-D~gN@dNH3l>}A4%(%0a`!ZaCCM1bCqtFlvGZK&im`Wq=6!u zp2&kXn^=G0k0Pa1oABAzkyRD0}}^`_P_S6d8Y0QA@LXP zjiANGKH(od=5XOo{Se^sg>fi`R7s(bo6YxoN3TKZZKh0+`KBv}x zP96C~KlIaX$%ZVm`v)3>Ky|A5QO|U%78oXYm~F~+D@}XK&-E}YKmH|Gxou0(F!#%e zz9ZpLtJKq}*iXWh#|v!ZR=L}k6fEgQP2tZii+6D8Bqe@U;jF3{{F)G5Dcyd+t7lZ< zLB^ohNFiIEvV6|4-TZC%18igmAFvEAjFDMF#Rj=ljP47@fpT$?ZUY|wdR_x3`(J%? zM|{5+uyaQ{G5|S%yX@a`04Vq0a)24DT};*IS04g%>7@vwDAm-j27uWJFcO#Omi#rh z{obX8MQ=s&au%A7{i5=T_dgtU8^H1c4PcaxzZDFdCWrd$Qkizc?wbCRPI}Ge2_Z0& zbUp+~=R<&Wo`Unlbh~YWO_mQz!?sin?W)so3u@sH+0w++arzZwzamR2@ZlJJNI@(B zSyHKLBWO3mT-?6}d8QdG`%cAf!~`Z>G{Un|;eaL^7W==V*v;a5(A1k&-AUt5qVQO- zMLjQ2CzT@7VPVMGNzMPxPCmrrKF+MJs#^vXFY=#4x*7{qjbsQPi&kEP0{{%UlMbg% ztWSfDLM87|G!_TXY&tLL`N`I_od>QHRo!(G# z;hXI_BIj$2(mytdYU6}z{Wmh3FGGmI0 zr)e1+hqOIZ@Saf&&I#yP8YeQw5lZN>wg@#6P#?A%-`j{f7CXCbOsk634N86D;hKm0 zVrH&B&oCKtozN=b#j)~g%UVg38lc!RIsj7L|C;8KOaA0^ENS%ZGNGUIx#?7Vndb5K zxdg8?V1$GWn}>2@WnT+6q2X7$OA|Yl49y_DD4Y$?@mNCX+mEV+w6_+8$FMYx)4%ot zuw604CvM^PF_DtaqJdeY4+g>y zRf(wYvr*q4VB+Wt2kJx2yO*N|Xw>Qg^r~Yxyc6NXgnYT1&Z1g;uBoK49B<$yO4F4~ zZvUD+3+F_Fr^E$>SFK!I8dMkPwTrAwJr7e#HKxjA=Y<`h2Eg|M{kIbtnNUX^=kHw< zwwnA^fISOQjm*>L0PF9Xli7@SM|=roKaU&v65Ie`yz>e$Iwm_t)J^vzC=K7oSoVLE z+oMd3nwEM;E9PRFmDCT6yXFIB)BE~U5;ukjhQ8r@RX|MBfJKTgRCPUFM_;Ji*7iT4 zTCMT0?&iX}>Z*k1@ac6bGp2G3CIFT*%6IaXgdxWV7DDhEaK`Wz;qgXW#q?J0zh4R9 zfp&s+)bWt5^>vPXgZ-?ExH|R0Z)Z$A@5`hI=Sd>?oz7mkY(1MqC9X39x^!6D%)h{# zrzA@Y4-?xJI$2(yU4EHUpKy0A165w#SY* z^d?Cw->^)WFBVWWl>fLJq*KM2OWTV22zH!H8=qgAI&1`gq&S0wESQ9UpdKQawPgC! z(NAj*X(1H5&MJH)lSD`HvA$*}Z7Q};$WTUw&;^W8xb&3I|Mx0^{1{JSy!SKOK@g*P zwEF|Int1Qj`&|1z-psIJ>dJT#rF$Kz@hx@^Uq5NbkmTmq`L~3UsHrooPsUBJIni6a z*R@SNiKnW+D5TQ*lFsKJDWLPkEIIqlRasrFc&v`5TK=63`Fy?fXrSqX_K=^w!Z?cgbW zqykO-bxlV=Bqzb}I#}NHEcSuIjiz|D4Tr-wnG{>bnK?>jbFOqFws6nRB@&V3uYjSA z4KTEk0ERZDv06JjEzzX6Cfp4=_t7zvmO*>~skNe$!xN0cR*kfz9(-io%DV<@18F~l zGMA~60e~Uz_?IdD{`U#AV?yUq8xtn!yszj65@K~VvII3K9!JhW{{*T4#$we+P?J+p z)l$C}DcTKUGxRa5Q&r~$QAf8r|FyOl$LF;=BYU!o9+gq()<12g&8*Kc-IpGv48Y~a z;OJU?(QZqr!c%38Jl7o3mT@!K$skMhSHY%+VyNY6N{5_wX6|Hu9aEKJE*pg^H1%ND zSDWKo&0M?pkC>J5G*USo@V&IGb?|dF(m02%g)Z?IS6q3*Co3Dhrr)?MfA&WIT(TY$ zD@$DenPlHATbHkMe)>3!a!KdoE0(#LIprMTxqmH4$z~KNU~}mf!h)4@wA4MkIdcmq za#aA?WBaU!-d(g9kUgs0BHGWx=8wmyn=&G?&^VIB$c00JP=)vNtMpLa|I!^y;$!r1 zMx3Y2%;rlBUF)kZkQHiUZk3l!l8{a7oea@r%4^!8m)e);^#@q~f*O4>{647biWy6C z5$+67!>^S>>?uyvsDnT^`IR zj&Wnj`6dV4=Qh|CUA5}>RqYg^=u1?gipCmCyX0XLN(-ze0ixD#!_%#T>J7qKGQYxi z>~hvbG#?BJuwm342W}_5kvRY!{dXz0sR;n`_R&4&yN%@~W&TRa2IC+WWuP)>nQNCd zGXi<5{`WY@C#NVe1B2J(xKWH)@(L~kX1arKipkh}s>!M-+F2;mpBln!&^WCfIDf6- zOn(V0Lcuz>%tgW1iej%J?qT1`yc(h`%oIq9dG`VL9tsxE%juz1G^-N2_o{3bGMx_Z zLsyuh0;#j+r=?Z~;{33mLEh)E%68e$b=Z|H7P2Wm@|q|{wscRkMy*nozu`|#RQVNl z?hh~_EsAV^EQ)vs|F$Tay~lq|5;gZ;l|eyg(e3O0!xcj9i3DK=b#v9OvA$GVGfXh| zOL`+)Fy#d3kV0&%d_GdF%O#aCZ^?U`=FH%fbMxiS?z~pvNeApvTgHk+Bt5zVLWyNr$2p zo|d@AK6S}|ik=5(6{tAvarzXGRv#I3pGitg-*}@=p?1 z{L1joT^PNeu?-VL$Kl-y1^4-o2Bh2Y)LTr$$D~%>FuN*D@bPk3zSjKFLVVR?S1T1m zh5+jNBz9@1buz5iXxm9lXr1f%NOFW@=uVk6J%QFH-Al-MAb;aB^_SQ7`YBYGr0C=4g^*^&_11Wx8bScwuIB5f5LhD zo|tvRVFZscfABP&FP`o=(px><$2^ZTq%Wl|om|f8P5Bk{gTNQnHlexrf~G1G(XDu& zYAX>Ajr@P`p1J;TWn<)=p2jN?Zpo1zZowIRxHq(e(VpgiCG8z3eLar-Ob|Unq8pxc z+p~D@PmU5iy}?k_r9 z`KU|SJM!YPurnLf7bC?h!};>MPP2z7>N#q%5g%G1G-_8|V$%?>@s>}!G0H5KA$F@t z@h2}!dF&Y0FUHf!gZDgIG?ESF-)s6Vw=0c3GIh#-IgaOmGw4^O?Wb9+{T&$3RYuaK zvc?cm3ehSYNcOpbJ>U20ILS{sQX`P*&I3p)8d~-NozrW&6QYPVGE6BAEBS<2&jSX# zIhhOIMDaM||CuPA?qg3T&ca3;!Vy!GtF=F?UlA1V@-{KZ4Hs1*q0$OJwpmq8J zL?OQ_5#yKd_!}I)ConrP@7YHd!4Fw{dvNJuNFImFgfP}&3j*Z3VP&jY2-aMr%m&nEnC!ZBG{HrYZ zV;HYb;+0SkV9!A#u-OQLuAvkA_zZJc$C1~IZJML`_Ux!eD`kbspcmx=Y=7GR@0KS@ z(pZ+h36k2-c0URC;J)r_j%>@~ zc0PPng1eGvwuos6C+VnD6VI1@zih`vn!mX#jB9yG_O9)V(3`5OdC;3QJN9&#`?ohM zfgu?Z_7LyZEQ)&x0v-J>G9o|i%da{FHz>`W?8$|8;Yu7F$A;KkvhTkf4_Atwj#z|K z|3g+%75fw;NwJf#CXlGf{SxmC#PMLvIZMXqg^X`Q)OhQZ=B@{FY<+gad&YQ8!M&$1 z;_pdz6*(*{m$U8L!t?|))D?qmb9mX|={*LR`(g?s*@}SfhMmqf3-JW*igPdXEE(X& zb+FVdZaf8g29wT)2HsYsH5mDlLIfhXBpbv7911hKeq6yUTzQ{f1$dl}y67;M=@JOy zYh&XWZR60l2bcx^jQFt}V!WR}-zzM69jdG93kQf=>PAu?8hi3j><}!NFxUq;3dnVH z``H)_n%pSz^j*49W;EnN2+c?jgiA-`2$*<`B~7lDK3MPN%J@O%zNT>0(hakEM-P98 zs_q)|c3rj0M@2MXEuV&>udkWJ(sIQ`Y76YQI)DEvqnDr`2g_yhM*TJ&26s zU3ZREy~nryXsf(BQ%HYhAV%6)uA>0VQw&{gU=X^TVqdG&MiW^W@Hd$UZN~d7RE+Mv zC!F#X_Kv&3g?BS?BOb}UP-z1^ay?ri@(kSyVlonN%Y+->U{+}oXJ!yXchitv=B8F0 zfMf=;S->@uWvI0V4)|XjAyqkklo|sqmRpgt{V^8&HdTx&RSf;uK)rR@>;f>spSMCw z$_JQM_#GZ`;&CO5%qj@aShhxLZ3CMi2f!wX4|4f6207C=q3gq);($N+9BWd1$H1L6 zHS&REbOvLlUuMqx|BRTg=a-fWBZRv>@^Im8dcNSQ{a6ysqzerS$$F-2kR(uUB&Fk~ zfpP;xAaXjybC8{F_4zsK-USs&z5-cE9sIRfL?6VvlI(qh*+T`0El=WmGay^eilZd7h7 z@jgu&Q)Onx0kTF>jbnN+&_?*^-U{G|0zXY_xyP-9$Z6}sXoa+Yj-ioR1)muH7@zvA z?#}$O{7%97eM<1Nv1Y(6(Do8=3*3{CQetceEOVVYWXFNmHJUvt0@v&`YLBkwzUwgiT$sj(vQKxZJl<2-rdvKP1GZ`|}!A{3(8B5^=80fCl6|U3}?fDc; zT|g(W(dnXlCD3NV{+$w7SqK*BRiFeiCxTQ=7^nZ9Jfx)w3NLbjbRwZ-5V>M?K!^yt zOlv8F^-<>Y{>JqQo1`imATl3Q|2r}u?5T$0h{SpiWB0+VG-oh?=og$xr+6V)4jlhU zAfkiFp5nYI_N}RMjVxiHBhJE)9A9JuNoV{U|+$*^D*N?CY|UIy-;8e9_nC~ zR6hV5i~s!ABzJp)HG|Sz6LpPcrn9Fuq&I1lvXMdo0G{^Pf~AD z(aJudO}Aq=ruoO3BK-l)+K_6-E-hJ#;|InLOdHco1WS>P$rdP`!|5!hk@K71~&T@ zjbG=rK1IHLn+p}ODQR=gYc+)gboX`Rl!2H1qc8vEqgoX~RDWQWk+N&~=~peb;BWo_ z)9U2j$kS+@_Z=TE@iJStCbK}gPWrndzYgsev%xM_n@K4SU znTN{nhQ#H**IDLjL!J%$NQE`5tm{RY#JpP1T8c@LF@IS&W)zt?W5t@^=U1j1B#vdy z@l>G@X|tN5Gz%oqeaHJ{H~xiS6Y(GGMjKBr=(TyKj+Oa45dyhQg;}YTYaU?p`{nP= zZ!j7J{1{2IkUJ{X#oZ&md8DrxBfnDuGk-z`VEXauXXR4jr$wOuGWJmX z|HhvCU<;*6_V-k?LFbn^e%Pl;N#&d=#d!T#^4`E9`7cLekkWhL>Ii>B9awdvp6uDZ zy7~J0-;SP(k@?S%3&5Infg&V}v}OU0o@IagGWPK*Ayqbq9;*t#Hd&llpbD0ukW#8m z__G5WI9H)M#ioQWsS(^iZ_-gT2d_{WEvjH!9Dx~&8yM5-yyk=KB zbrIyi4P>n+cI7US(s@PZZZdFFs>($Ag6Sq7yA)vS$X2N}+A-}~6q)5MFjIODd)n|&6+5qMccL{zdiJ>)=?lv-YCEOCGQbaJi3Y6uOYU~9 ze(FMzc05o*mG5(lQi}*~r&?OTm#-X<^sSE%yD~$w*nbm{b zTsT7ETR{7S*`rwUrA;+m9gI`?KtS30y>QSkjX{yKz~Q+s)}k%e27<~#r^-~jnE_+X z4zMBqueJIO;;l?tDI3X;zJQ;nPwC$Aef1k9^?PYBbYQu-F$W|CbVmNbb!UP`Q2A3! z&f3s78Osw(VLgh_>(8O$d}vE8R< zRA`&PvJVnwrXaGWc6TNB8oe?>PkR3;$}N1kXg~g(lA|Kvj*@iRc>O3&rIVK#1H4HS zm;d|PgsV*NO)WZX)|$ny45VGY|o6y86ub(R|fU z-Ix&e49(6$i)PmH`szUQFNR#y|3tNGdHHk9$0P4woIz`e4SAdm>3DXL4NN*w_sLJ9 zhz1Iv*qgxecX2=1jHEAS`^&Se>Sq)@R`TETjEkd-nt_SjaXJdJ5#gtZLVGm`lP$grH zrCC}A@b*8~t_Z@Qs(Xc|J8gPvzVI(ZJrIb3A+sa}0Jt810XGtF0iep1QwfO(5~PTo zj9_>!B_DqHijn_;Hva<)0`p|N76Sp4+Y|l38^Er>kXr9tEP#GW9 zDi#&M!`*ae!dn?o@LedEcQ><+XoD=H#~=0L*cuOhUW9q=9YbzTY=LE=K7^6YMX~ZW zQ!F*U&-OG$9?(!CfLaIPdPDcZ6EO@RvYXzTu-;=c>RzO$XV+q4Bnrh-uvhSPl|`BVTNSXPmh^>v9>h)_$p?2w52@<|#8dnf|5s z$0JryMCkqXu)O+Nq2^K0&kc#~%B1)v3W~;npg?Hj0CrlUbLWfa9LN1Nf^6|+T%XXt zv^u3$*c5xV&p$}(Ym6cyox@n_0x;bGOZ*97b!ik3`Xd2Cf8txf6EM#gZAAv7tzS@r z#nqQ6JjVVlBMSu}Wo!fS{Tgw6z4sAo#hWp#Y4Jh%`W+M=uq(vkFd3kW4S(ojo?-9K z=1P4PWNqTyHycH*k*t%R9*r3E`Sk-7ySrplD%Z43L zF;3snsAL2b&Y9D9)D(?9fxyUT69;a(b_zX_r|!j=cI;7#;FSi*eAyS}E^JAqnmi?% zT7o=AVz&ofX&CJ6@*c9hUJr?B4Jp{AO9tQ1D^)|iNy>t)qmmSfeT^7|0BPa@I$eUd zr9spwqj2d+A$f$*mq!E7dV$+(ircT-YxJ+(D#Aq8l!gi7hp7&&w^v6z(mDANG19R5 zS{{Z@fSWQ;0o*iDz+yUSWsOTZ3ZNZ#DCcBb5Zu%e;HC_n05>HwWN<1OvM=iLPGtWo z-2-q_6tY~|U<5bCz?Kf~^s#8RcS4xzunf%bzmOVyfy@S0JXmhqVWhbQZMwo7vo-V5aQuiI zuPy8Cj8B|};qCm9JFn>Tgc50~uZt@k~skJK-8j6WM&o^GQO zjry`f9=HT$O=pk#ThONqAKC!7PsH!OYY$IF?O%adS1PIybce z7^DD^tOvxSVe>2GTqP3}+e{b&r^9X56I%CkzQ6rt+oiETL?bt$-jNL+UbSfE#%{D(*!6Pdtx zf8&C8Bx^a`j_EashWtSW-4@Ug;^sd89=-2BUfGbtTYt80?nc^RENlV>2IX66xnMoO zYQ`MOPv8%jIQR!sAp8Z!7{~!3cT*c!amuZ*juMzB1lHUrP11fKTBY}QtI%>7?4^MX zniFvriYS(P*i*1bd)9$}S|v3*%eOewGU+|w$b@htU|GRY3h~<)e;R$u z>wdif;oV&eJV0sj#2^MqfbHRfiD_gNdVT|)@t|3aDnO!Eh*;(lmNa1CH-Hd!*OBbL zOwk|?ktuKA+P%C*Vn#sjX!6V01lx-nZj1G})th`R{1|SY)?h9uk;(pA(Y)DP4MKy) zH;9Ml71HmVmDN7UZ}p1!Dfwe3>$5u?w*6lXQoia&j3X!I+E+gIdHjby@SbA>Ymcl> z6|4E#PAjM1azhi2f2gF*BZAj7+W#$-=#B$Kq|04`k6l)^L^KaWvBtRoQf>G~S(Q1G znn}MeY7B@T8Uvz-0Q=Lh0 zG=&vy7$>0tVINh>qW--&kHl!a63gDd)G@NDE==Kl@}HVV&K}s=WHl8J;ooWkmLCJY zkX4cRLqWAJq9{hIz(f$X-60` zH375sbd-1(1TgkNjO-Q+FJq|naD2(ASQf~$)>GP1XuY32rx~FSj^NT>+;5YlTEL=r z)z|CNU%d>iu3Zkj`*sc(e^rnSRSqtL4}1@MIE~bc zU3?=BDaeXGd}Kr9U?475B$w`Z_283eqW z&P<|G#s6M~TrOyMfMxiVq@z9}O>yeOy-Ev7B*p%dB^0W_4}@ZR3OQU)@$o{&=zuX3 zD!5)e*`OOTwLh;d%f;UC*dK#!6C&)LM(It)ziDXm_t9T$+O=B^j?ExdA1}|@M?FJc z+E^|yn#rkJ#7S~!guKiE%^9CX)a}V^3Xoqf$Y?2a?;nURy$@>M{o*oC&o4IaQ0E)u zaryazTGj)a59@=!o6E?Unp#-c-gt)nwlr^aGGX4yvAWs>^az7HXk$(gW7KcV6XC>s0USv+WJDkyRs}oQ`)!)dF*U zb;r=0SiNt7SU*^8z4&AmMyIYPwz^?)&IUFa6$b=^on4$&yNyh$I<+&F%(n{S2Ab7o zQ)%Z?mswl$WhCvMlVH@#_vxts<^#*9Y8;E`?Bu3ZqXD)K zWsFi2<1Cfry#W*Hx4x#|tNq3S=i)hMJB$j}>^5ky-zqGGYi$g!A5OuiX5brha|`xI z3$}Id&rAY3TG8~j2Ji!d0vgcRKSY1pSDS_ec~_qAiHn@QeOMZ*qQ~4)v?p5W=r}!7 zlC|Gt6c>Y{xN+i=czV{@9V4ZbeUdPAau8ay*I7T)et}&B+S$dO7n9|p-MCCQ3l1~I z!S;Fr11CP|)x8(06Rn5Z&tXO5yiVg7hn}F2y8mT+&Lf#3$GzjK=;T&ni{g=6GrG4s z<^q;jg}&g+Xl=AMoO9=AUFx#~Hdj19_V2;Q6YvC_L4l3N{;??H$H#o%!GRiZ(H|GP z+pELJTxdo2BOwvygHr7@@I5C{gUae9H~ICA70CObf?$*8_Vabm2A`iN8!K*e1ifaZ zXeHCQC~6&BpLbI|jg|AXL};6G#Ab{RsSH^8i*{DJEU!AKrv>(AQ}|jXqo~`DZ6o?@ z!>wpUoQJc6z9rEZ1ylb#-&3PO(^`nP0xMg3c=}%jj-BzXsjp?Y^6RQ+}3%>8TySGSC*2O3`VnepIIJSUs zwR=^%2$#WLON^dX3T$)ttk6XM?AM{`M7_H!P!27h^6rZ#B75eVJi$$T(0J`RhyBgF z`qNv(uZ1&wHI$pD+m}HVO98ECE?4U-DbRAS)%LnR-|tC_dflUkC36v%YNSE$7b@t( zKT|=|)qGu$$4=II931VmqBdU#%~p0XcEP%auQv3Z;ziFsaL(Xek^eZHvJ9wk^1iUx zzE8ca-4C4VY~gn!zlfa)S3i5=cgW5o@VxLL6R}f6yjHimiwn;;HCsUuY$r7SmTm&r z!*ge_P9V*NP4}sqWJ{#cWdfd;ms~-?740kX_y97Ow3Sn*!2H>d*|5)(B)ynrUTP<* z-cLHJeqO9}E$L(!LF0~SoQ_y-U)Qu;`5#zAzp2EjkSdUrJ`ZL=r%j+^<}rBYusGA% z5h#pCQYv$MUV)v3UV{@qdDeND_3WtY6&gnD0tZe{QThD)kgtMUfI1@BgKl)!z>bSWh>!O6k!6dg%1!$ho%!pO<)6AUqsXjE;nGqQFcvLD@ z^!-E!@3g5WcD*~GW4%XuF69!2^|QtB1<|H@nyQ0P<5ff3#p=Zc;3l7P31<>uI0SeLv=yfpLUvZ$(z;-<5Tx{M z6s0v?3yaSl?+u^G*n_g8=N%Jz(6)TXH@+AahA*$2wpgmCB4XYFmXeo18VXeNtW5n) zc+rA+(;2wGlB0tYM8_+5dQ5#m2N^f*r=4OEa3RL5BO-M6~(>=floRFl%TGe?C!asU>}_ z<*IxwPpKdsUD5TakwAHQ#=&-^Sr36t0|CMLj6lba3mbSsB+Aa)^vJ>_bkQ1D@9dgu z=)%GyCISBnFkLB^B<_6m_}*;Jlb^a*7o~c=aVJn+6KRcS-D9JrOVxYRe5xX`q)n9N zG4iZ2k=}YsL9MOiG#zF=_%;pr1Rk0|x9O1Xo_xy^SxARYe2^Y^(HOOvB&L(vneGDO7K4u1|BAQJ_{;RsB@`N@cF|-5gWUF;VqgNBaV- zfug5ycmX%+;nEe{%%P$w_Ijz0QZ#VmAj%6bL#6%a<e8o{2asg zcks)OKpS7tjf3SnA*}LpXvDDZ@ybS?B83NE> z*=?Mh5vc>+Ds=}OR|WCgzq4ZJtcIj0a7H{7^rXaFRu-@?;d~LIUaUw$5KYwFoke}z zp*E0D#SRg=)!XzYx}ojq8QClSs=}?S@pl)eWpW*WRkPZik<1#-tDxw;o*50DLBfb{ z%nIUUZB_CpJL;)5*qv<^_s|yDvrF0Bl6aUUG0QCs4%b(O*?6t@!e%ANv!<$;7F?)O z-o}M@m5IN?_h0oEjE=z@J(h#CgJzVaOfR*sC_Q>%$}beUT=v;CXC-gT?<+3~^02=2 zyY0sokUx*5idLSk{I(=>&S_o{9~x29LTM`DYm(QSNw@Vze$Z@QchQH$wCYhA$Oqr_ zhvQ=VKc>P`%6-v=9s7*3audFs>a0^4I-z(i#; zZ-&S`KJoW_>SKIR5?Gf*`g~9GZuoxi%jBqnF&@8Gz5%xTF8p$h=*D1W~!o3*%Loa02J&RJ!FP5Cnljy7X7?alMlY3Izz5xu!ZA1 zeG=~()cuB$cT!6Q^X(&hi~{E(!u#FfiOptyee)kwmx&rMM^=9f>Z?nYEgyvEL-w+7(C)CZe_ER zt|1;?uj$ll@N|ilkerKz6X`R~_pKY(w^71YYu#(6x|zEI4b9F6!)inLmia;h45(qw zEkWWLWwaUI_t8+JzOpbrBKz_H>#63>)+ii8I)dzrQzHx}uCV+(Bra0QRx%-*Js{v^ zSXw_bI3QS?dumP3kvvAFrHPs?^B{U&Do7$(9-;ynp=%}0ex72sz%|8+4Bdmr7!#F7 zcpm#OUJ_sVZ;V%>!Zu+H?&?pwwY_j?Mckj1P}8ciqsVJj6{KL+ zfZ?$cP6H|o7|w+Z`v(M{LBTJ(Q1rKHMP($3eg3M?=|xoy0XX{ET8`uPPm zy=iaHQL%w3YfbyBq{~H0^3hEXLo>bDaXa0K0ujaF7@ik)_j7r>m?dJp>L=+SsCh8& zG~!s!A}^w!66Y)m3{}t^dM51%W=?+Zdd&kR`fAy63X9eYy~GO~Z#d1rvwxlRUr$9L zfj|;KUNTG|`qwwTJ?OTTJ5*2Bad<-6+A=+!CdX*_NWmz^Zo81mojdJ{U)mLn|9)+3H6$@z@Uuo#FIykj-hqGh*3Z^qJ69b%$ z%b9CdwaeYDM(Hr&PrtLA=|bS{ln$!dC1DgE#Z}sYt8y;Qx=3%e%Bm9@T~0~5}4o9m2TGZWimDle&&tDVZHT^F1g{u;|NE^Nu1oAA6RsU z8?b*eP2U8$nac4G$fCy$kbfk0yoqu%_u?NEH&3L$Gcn#Qbd%ElDfD;&3G}}N_hzA+ i_xV4CT)rXwTmFYfNrKsWC0?(XjH?(XjH?(pL7a#?GS^L=-p`y+Fv zGBT2SDzmCGD-}6OFmMzQ5D;h((66UNZ4@OC0t7@C8w3RPix#x9G&C`yQ!z1cqEj@m zbu_T0HFx-XuC`&d%8B9y8S=SPjG$T(zfVd4b2S|lS~<6%Vu88fkwU5;3~EKdA32w( z@^<;S{EY7t&!2SBNv#kTGL`iHnz5&6kMm)02f9mPM1>?+RB=ilu3|QM2nTx92UjgU zH?xhC0)L`@p!{Uh(dAKHY-a>ova>1RL6^k@W}SC8BkUzZKnxl@$y zO*D8G=@w9_A1@DxP>(OhUf`{f7!vi@aWzl)&RX;-J=CjL9lRoTM#fDnF+PrKl;iIX z8YbLip|3E37)B2=iu&&W^kX!MCzgyDV#H_-kg}-7OP%C}R}q7U!~kzuRu1|D*9ZOK zJr%=j-^=><5qE4lW5nSSNp`nv{a*n!IhzB6M+i=Po6B`WPDZo&8(Osd(j^|BA+;U{ z9C~9736!3e4sZk49U-BuBqWw`MP&Ze+VUrTH<##>2d`(Z;i3v@*>qXZj06lF z--)1etz|e~B4fLgLg$TUNj0E$U#ZgtgZWZC}9e|^9y(OtxZT1v2mDd-$lBj?#kRx@lsk|wGI9ZmxI^MxLE zL_(hXS0o+rd>ygW$Wf6}FHc{5j(a=oaO#bnk3t20ub9sq`r|dmW8Q)U2XzGnsfWH~ zpbJ@%#eTFa^VmobmPJ_{gVmVpynM)vK&!Ezz#8*<>_r>PJ9dp6-#x#UlJ$bxm~vB| z5}RC4M8~Nt8&_-8O%^SUK5fSO5hm?{5L?v1=qA7bvoS+D-!Ed2i1=?RKgp6RKO&Dk zPn@Xl@IYg{PQ&^J%}5hH9Q=f-t5;i+%EFZxQq&ESTkmLG>cAi7XpXw@3koShFB%ws zY!}@zA?oc+@DP1=1&QHDHAHvLqxeB%8$T~|NWzR*TH=HhRPn@$XhQ}C&^NKk`e+!P z6*l{lPTj<9(U&a6m@7Gjf;kl{iSKD7J@I5?w_z3Qb*tdzxl~epV|P@%bk^4#ac|_n z^vir#J`VC)mHgoDub;7<7DLJN%6NGjkfGI#yx zSkk)Dt;*Qjio0`y9}Z(I}P=6RKhd@`4VX3zlt9B_h%AK<7IVL>gCG6 zJ2h_JuZQ)+;-2)?i5Y6m77KB`Ekeht4j?YzOGATh+8WY!HZy(B)X{3)#Jk8|m4;Va zHtgky(tZUh7%cx5D+woE!5uqS2_G?5=!@lc)GtwOiYkh>56V*xU1XTQ_?0kRDY}O* z2v-pM=$q5PjLj<92cUlI>qS;~_A_Wn3;^ls7M!ZCNDnGhRPR3gwkJ-*hb{E2d?j@8oeVxXlmK6ldXP z)q#_)u{~9ll2WE)Q%0xRqLgLB?si9J&81qivhw^+o8!{GO}%17!+@%aKk+E_KxO6R z0J%dcr%`#cy%aOYWl2GKcrxUXYvlsteZEaoHsx^Hb8PeU0snkL!oxme`c=BirRG{hAv*T3#lDH5A1Lj@ciTFnQ#LVTQALezezheq=0r2?_xv>=lU}Wm_kg zuHT`i+d#)(+zr(ZtDm59|K%KHv-;wmU_n6eqCr6L|F?6n{A>M>m#`BuF#PLaZvU^F z$gr@&8bTV_`@Ed1I`~-I)Rl(ZX6c7Je|+4;J84z)lpZk zKju^iwYlPyp9UYTwi9yqW@KdK#r4|Vx;aj_l(tm2Vd*K~kz#d{wxFx3HSSnv+El4M zS+;Z|wBju9Dg=1~o5m0c7*S%F^b3Bv#<0;8Q_5E=P z>hp6qt%&8gXzPuL$NA<7;>_!h;3lo=$3)fDE+ZxJW7KDj#PKe9U4>5JXPlw?6je;@cpfO+UHw2dAF$nk%_fs%jd^7X!OIf+EZq9&VAd~e63@PV`r{{3Td}UrrwI!B&s$Flii zS|M!}S8KpXz2xwZ(M9px*=+AW71LBdR1GjoS;NXsHxQNY#YbwLYSBLoLyls@6Vv&R z^~sXzKAQrK%Au!;+8petC5Ll+I_4f_!L2&(+!@DVzv8+;i zE0oh~BI4^K1d+vmUQD~b4&=;W9tjbW}gGFe4vyBPTh9KSp zH^!dw#K5dj%+3&rMdp|5fx4+&_$Kq5&9Ng}!Z$dGh~nqS7mor$g^%N#7x=9@ye4}_ znu2do1pJqDwy|3PqF&pe$wX31&D`g`35&N>WCrXv@}QnpXZGeOqpmOV;b<6X4t!1h z?}fV?Iq#W&+{c947QRYwA0Ox&GNr&&cxdHf|4}u_Britv%#>&O=c%lRqRl z=qBbKq+MRqsL8h$wbatkMgDLaTTxucdI&0OBKlKNGK#Cji<2^)SS%v)Fwk6fr*Ak3 zWMG9HXMVfuhJHwAQ4|?)NdCid35Cxk;S#Hx1IPI0%%RDZFC?@-@DCjk2c_`m&rR=* z7Y1c6m$F@U`9+#e9Nw;_M)^xs9&NoSbw%gd(=j-B+m9+qM56Zi5sxP`5F~$SW8e@? zACYD&i3I$);9T~fE}pTjgT6Q-_N%b5YPTg4e$a=$$uBun=Wv3DqcJ2#t?>IW|MVgm zX3s3v`?=>_`s3SRWoDKZ8G-PO^UuMKnE862>!N|%)&3n#Odh7N9mmo6@C2qr^}K|e zbiyM->6J(fL!m*+;G3It{zDA0vL)$5M#`Na-sBb$J&^}u@Nv+vzq5MG<_Q!(>u%4~ zHL`IhKBP(*ZsNf#P~Nk4`>#<(>IcU?zz~akVIcG=BVK)57j-L8sL3H)(bK;1*)573 zfgfT{e0*mhj7mWis|U16{R>_XOW9Xm#>>g3BgEXI1kC321D@w01 zbgmhD!KULhSb5YgzK%5Xs2p6z;NhhqCy-}y!|i$Pux79@bM69)jEki|JJe6$?)<{Q zB`?HAbluS{Dt?Jq!toCSdzrXP^R=yiYM<8484w5yK!u};B+dRGqRUg`?YhbJVc_J) ztzDam*|-%S&cw&rOwz{%An+MO<%|)~miA2kjZstwazJ(n@^I#CD%~C9Ct!#kV0UMr z_J%F!{XNWYcSy>r<9nE3?h*8$k(!O#6?Wf8Z|J9L`EeleM%>?lTLpFMgn_+j-4g1= z(Oqk`FG4{bTPCcaR?WCZ3Ds?SSI5-%5~@xYU1>Qt2!VIw(44WB!c!Y-w0PO%qsS0< z#S`NfRLd4#k9!IV*Tk2+K3AA%IUQWD<9|fUYL<7HO(lHGvm^$(cQ~>>EmqLJxzZB^ z7ya%A4eTiw6C@sN&qo`W?N9BlVL)YuN(T zk9v;`r(cRfNKDoT8wbAnr{w(8K1z(aDMd*Et-e45OC0G}dm zX_Co|ut5W83#fn+_4x;^Ul3F-yjnJeBo!lt?UNf6(AqRA{ebNz3Yp- zK2AOC#xJ*)dboI6BuGTspVKWEwC;(i->E*%?I^=0SH>xIWtyZPSq90qycjj83{i9D zj6-C!`&oP%u8TKE(XlgjwlpX4%_iSYeatj ze%w%1@l`{`8GA9;Vz_)w&A`*M&l%Aawf1Z*PiD)~3?!34*TACx-5QLv8-F-fj~;^q z?6|OVkQq&f3{SBwjG?1)1V?ZYM*Uu2dBN%X`dYznX23l5vr36b!fi0uVn%lxRC=x+ zamx&;RZ@9^iONzu_b~sBy!J=V0DFEl^lLbXV{2zz-ar;CE$VOXAG8`WT|z0`-Sog= z!jR@-3v0y-Y|3Ue>zZxdo&n!52sE#;=Hs9&YtR9Ti2-d%^+oc0#9kO|>l)z0(Vu|; zIVsIq@d-6ZcnO4h(KkhBj#?<2h-D~)4HRtRq9<{*l-A}1gyEMuqdLNuwjh{f2h zZ97O$v1mAq8|-_epy;MV#jH2fL^09{9~hHz)}7~5R^{uF7btZg8lcdS=?A#co7@~ zMCu0!$UlLW|2w4e&yM+@opOeXh2okB;)nUv6X2|Ax#B>>lPD!|QjVU$M2abS8l=zp z2T-3%j5ER>GF|3%tn&Nt%huvH%F{X zk>Kiarggj;Rrw7-~4_qz`KEQ6VYwbL$F(2@T?ELNCyvH%q!kxv{mAt zO!-Yp&AvB2&|eKMJ(BB!^%Du)0&(Y2B~Kg9-*3xTKNbVNGsvo|mrDuKwugv$0lE=L z@ ztVEx*bG2}d;lAYD?>y76k5EsEpxqVI@u#HQ_;CbSOfJ_4qW{drR^w=*qSfVYg+t0x zabc)31RY+UDgR^M-?(Tlan60R)hxHcji|EXR@~$uKddB0#hlgc&KHv?%H8xQWCZN? zlul4U0Q-)~s1~Apb+1g#9}0jWL2LPa{+vG+U%?eY?=nG@e&Qb=MGv)oC32n(9k^Mt zixD_X4r5v!<>)WQu4H7qTXcDl32zxCY@8D zB4X-|#IvYZWLD0~H`JCvdrWB3nb?MF6s%n^C{Z88y=&q!jlKi)?t)m|8X15r!7pps zd4IPt5c*w45{Tv0zpYn1CLZA9l=**TJAY@>A9Ckg1cOC#73QH1REy;Z7l4>1Ofn`A z`dd*h5YiBCZ6*#%3&)s~#hA_IiAH&v%tJpX7)H0NOktU>8!HR|OJlqvpJW}pq`FoB zavhx%HkoooRwhxWp`ul14ApQ5ZCA}D&Ua(DeV#irW88P_E8|Pw<5_lI+C~J5!z^hz zTZm^CzKQ-a*q8*3s7L+5JZ@$!H+VKF_7@OWx5#;{njuPZG?RMEzf*32@Tx4(wEyM^ z@0P@sh8bT#exK;zBszuc*_GZ0rc3#$Ffx=n~6JW|Qkpc*{9CNpABnOr6btV}ptQmt*EePeIf^=woD(IkO) zJN8mv&rCToF%a)aSEh?4Ucs@3`rMs8`kr zcejFIx7YJwie0Tbb<@smJ){&t*a5voCi|OdJ|9tr`HiWy>=f?G7+&2(2q6UahUXCo zzl84q1<2=m>iTaxH~~A*&i4}p#MT!C1oO)dD(cyqSliptsan~Z>(hzKDe8#IC@TJI z4KuW?NQP_zFVU7itJ#}i$h7d@9d_VE9DVU4&BI`Q`RJidr746S`j!ij(0xA3+>!9B z^#&dqeDaT|Rd&dj0M1C6 zfVP*XzN`y?_tDf>-R1t}aAIQYVe0d3;?@Wajpl9xp$i(|_4ND*c-pnUKYe^`s*-g( zp1F>+;C){>rL)?~SnFoEiF4A~+}LX843hD3;)L|NyE!;ddv$W6yS(u7u#90X#};Vr zfcA;B0Cc%|xV=A=osQ{z+$?O2rO{n#dz_&(DZtq_zn3BAJ_DCNuMQ8&+Su40ovgOf z+vY3clWkW4qUl#gY>!7%&u15>UTs~S?pu>r>j#8ZB!7Q2KbGwNd_Sw3s-nY_fh0Vz z=Eb_;NF`hR}3IXbH|>#~k^Ahc^XM94Kn-4jK!VybThGz0F{|y&X5lP|QxQ z*~sqw>qqy2wtsUg3!vbZ9hI6>^7+O zb(kXspE#(DoVO_KF*?u?te)ZzGkNzf*y#cg%j!yutYE9 zqZ`K)bXg~Lh{4RCSsLsZHF$fo=ZDav`@Ko&vxy+x!?Ed~c7W(g==%{q%#iiIpzyJv zi3$S)IYoMWis;k$82*@RBgaIK^xiZC!T}5>-;LpxAvHK$qm$s(bi0w!uaNwl{~2R# zj=}gZUope>ukXtP-V%nfvd91&uuM$k32?apV(a0G2j@` zV$p@nq(CZ3G(|6MqluwReEsbA@$rbXe#8#&=W$;&^muw*EkBH46KDB}(Wt`yh-H&E zzITTq`NbeFrnrI+&xao>Oqd9XpDzU(&TFdVt>OY6B6Y(z{L`NsRDjo4E;0rTI;luc z&S%=t);Jv21;YQ#H`?X%00R0M2ty!C;(ulhq8ZXsT@GK%B`=l&Hlm+ZVLx5GaTL~S zkmO59L5_?PPXuv~4pfjkvzIH5m4Gq`@ZD92#urWO6L8^#FbMsJvKzy@5&6}`+Rdsc zW*ewZ4I6CcH*UOAkSzgw0uG^EEV_fv`R6L{OQ`X|1U@p54iJ7PWPYsjayRlGoRAK% zekTa93=MCzV;?8h-B=B+wZr-nsS|k@kv=F9OG?jkdy|nhB4ufw7g=ID`x07kG}fsKBomPLqOJvx zF|v49k(-L!NGPJ@5=I9*K#j#|U}vv7EM)`(^ByP5(!=G6S2rcsX zRcIz#BIpjJ+~9jC1V!6*qhBhSS1d!UKBd1yeS6Vx^z@Z-aj1(U>B+cy`JBM>W9ReE zV4^H+<-tfAlz=n^Cc0-l={vrKH9Ck!6F;KURIS}`b|76cKUF|JKJ4a zH6FY`qBooxMj*+bP%RSeXCtgvm%k4UFH0OQ@-j zQcynhRe-TmAaT|>_%Wa@U##w5q;jDw<{Q0GvFJ)t-xmaKIL3=2QSFa0@Y7#EgunkK zrB{i@W^7>;MY5LUsnsAYw6Ih}Pqx`y(0L;w9KQ(HZkEJ()gUi7o|Pz}EVf&fu0)GY z?o_YdJp}8LvtoB8fsP-TL{Id`SB@S@s2p%l&oYkVQ7$nWNP>jy{wppA{k97N1NqQi z$~r)5xq7~I3E(1O2v*W~Qd7JmXqJMw(wcvwpMwQii=|E)L$X*r(uiFRH^ugqhFGHbVEmyuKq+^n79rq2 z!?Xy+3YB+pPbx93Jn-6xPYCHuNHt7=EWp-5upl4JOWiGu$1^Gq_;)GAn#qiU3Rf7; zLI%{$O3dg`m#9k0&?KRllGX-0h$1jAjJNJs!cr11E=s+a8d4*Ljv`Z)kSd1?q}V3F%CkBZrJrYPq={(&Dq~@>@1_bMPbc@YhM3D~$b~ z?G%-rrhW})E`_)&z8?>B3_)KdQ<{)3j3^tdmY5treS zfDKug?^|G!{~v5Mp=w@N$JA~6`qDh^Ja#%My$lqj?mTtyI05;^;c%{`8m@&5j?S)z zX|C3rXd{?Kd+{kS?4=nb#?)Q=5t44!<9m-ea;~J4$0_7@Qm}-JvM7a_>W>@3kSLO_ zq%W?dqU92;y#WEq|B-g1kPn6O{W!w>_`{W-1Z`p}jKw}*Np@a|q37r0?(Sc@tB=>uEmvcR)0Ux*bdpHm*@SN^95AUZ2!6rb$tl8;o~VNE;m6~Sa64u&D;$+>1>g|~eGO{Q8&b%7EKyaMsa?T` zmdX+$hhUHHTd8S0Es0}K&sRh^)km+5Q|;KW&1ZR@@r}V zo@pECR?ENocS8x6<_EUT=Y=@amAcH7XgBBHxZasK)|1EbRunqbU}7tvtjC!+)ns=+ zLnS6Nu|V1c!AH1pSS0%-O2k5m*E!691esJ0cIPGQH<-A3GbltJ6JhTvpPp?MUM68Us?=pIupLZ3PgsVyrV?xec!L zNVH`R|YC zh-t`pQ_>TnJG;Ij8t$FW?cc-W_e6PyWOj=vn?yS8lAfK>(8THDgvLd+n&{;o5mxv!zLw`z z^why~qE7iXBV_Q^V*3rZrC5!P zdqGgD4i^s``)d+Uf_!R~)CM(ijdJCF*L(yXmAnA?qj-L(y2+8;ID!$VdhMH*{hHZs zJrbe&O=68JHIqp_k|{lle6%0g61H1<6LMl@yn#cjl%Bc%whUYxxKt^)RJ&luK;qQa z?7AB@mqk4TU=1YFsrRH{+=B66?+d(H8DNwuezi%hZ-kbiKUb?XcAhjem@?$an;gZ{oiemg=0pKk zU#)v?eGvnVb*;upORz{=Aoeh>tF2XcSu`|g2?!G^7k!yFV$ncvMK2l`wK5!m#i$?NdCo?=!aWBSBTD0@WKb zHkdQsuyc(u;6#W}S*&`@V$o2)kkmsujp4P|h(Lt|era?*+RR95ltvZ80ZCB;lnfO? z+{#f&{uD>W8ApZDY}x8v@7L#FyZ}rN>s_kW(8SynB}$mXDNB$pTOjQ)Yta6^&F55w z7NvtUG#Y!LE}0lWqA7fQ4dz352tY(mJOj>kxwKDAo#o=elr5ccI&0e+xEzn3I9#=F zkKUwHjrmRZupBe?vl&R5AUK?oaE@2_7!Ac3%*C)+W@lX|{2HrMp&nx^gg`n4{g-FK z?xS{zpgG}Q0s zLhjSF+B<3fephb<55>Fz#4C=Y`4blSr&xzk!P9vV_a4pzj??(}s&RVI$8^O__R{Z` z%Y{7MIBW6JYxB)MyxXHR2kK4n1)8CRi(u}@iI_Bj-c!#7Dpe-kN#7N5F$*EL;Q}c% z14}@kw%7QmyLr0mCpg3ntox|WK`)#O%v}ox;qO3INhzjM^Qom3e%9b_3&zbGGl08K zk~X+XgLUr5-E@<&fa+X{yG)W9Op%>~T&(23_EIPG96jdL?#0vsW4@q3a8uebPp0O{ zduqXksX<+_GmA!`5_M0|3U=!a;jw^5Nq!h(Kj%Si+w|Z?*nJq^y~$%;9k1m54I^iA zW`4{{^%fn%iYR0=UFXBIHV7S5S7aWo@(lS0lX2+3m{xNC#pFK2ej`lNjrR3E3KN+^ z`(non0^VnQd!|~*&6_LHn3+a?5AwyEijH~GHAmhvM*3e!bpL?_|1Tu{purd%Q_#+8 zAoFBP&WxQPm-nloaWSPImW(li^$<)%A@Ua=$X8`!r%P5|Hfta63ln9JO;cG~+97yv zfd7s=u>xfWo2jZPs}Mok>9MB9)-7Q`t#~| z;3UV9krWy?-H}j=%FGE}kk~9vT?|=#PHXVvHMTx&!C{+Z=fLCg^`@i!&%@49xHW>S zUk}KlJW5ct^UC;Q8Amzm?a+}hv<;)11mBU{G}O>wQ7+37Ng#=#8h(l$q`3CBLhdfR zkG!=VTDae}C(8QfVnU>}ODK6efig?Ly8>Q?nnan@P?k=`ve$44FYzx)mIf&4-t$nGZ$PzAH4cuj(%4NsS%ox)NY|Q!lKi6%1KD3zpjOCQmwIq_az0AYY(sgIM;&B1 z9at&y(XnAL17HK{$f&Mx*o7_?r&O{(yi@-m3*n=PR1*q@QcyDduwL4FerDP+oOxl` z`tQY>?IQl|`V|~Z`6~2Z<^NqQ9VG)hdmVmp1p$6VVL4eTaY11n8DSNEA^v}saqnPs zL{?^89(q`OT$09daztu^3Py%TzFHaD5kAD};oANluI5IPW@)HDK&rn^e9-gwD^ z!py&9p|J&3^x%1G(4V%2{w zcokmb&rLN$pMp=gIlu7t5j{^PsD13vM61Z4nlm0S_v$?dO>|D=j=2gNOyN)Kg`G7; z2Q1A+pU06;T89!sL_;g0J})}C;OuC?sWk@2(CyFm_SY?kn}&?R%^@O&$Tdo?8!lR& z4$3jlhs604LQCSqv5gc@jJ>z3bUSO=BrI5WZYfT@Nz;%p3zEZ#UjyrDQ8dHCcdei>Y!SCGaB)0Cl~y%(=qSk2f{c5x_?}R@eCdaz zDp1&uF-tBA$`H?YMio1t2m7aJ+r`4-0cDwD%1hk4CO4Iq{hB6~aIiF}Fq;?4j+Ry!=M=UGUq^@%EP!BtKXWPOgE(R;nCd+5D2NOEmK1`%M$h8sN-gk&D&$tk zmqAf7h*^HTsr{|U-d91O&O5Rohl=sH3L#HSj6=(N;41$t;H(ylvOWq;pFMM@Ab6oS-0-Dd#1LGRWF)7CwOvw zVb7uY$F)VVeB?8KSavS=(9Z1c8+Xo{@=g+DY^T3Av>BT9lnAb2^r-H!jm8UZk#Rt_ z{%4I)&;2)E;7+&!bfFKOa&wLyx%tx`L=aV&5a_py>2!=OiIwG5`Ze6My)an70a8@D zJ6Q|c_s4)DV3@c4w$5;LCCVbLxih(C=?^1=m@e?|htrqayM)ySxJp}o?Z=+^>2Lol zfAB-6Xv*YE84|t<`u|o6i@(+i26k2swt5C*($vrrG?R2R5;Drw%G;%f3Lw75B-zPM zrUvbLw&I4K+U+?ZDGJnb8Y66gE_N1P;)Z78%^9ZQ5r$=!?yaG@6_(8@mhqVZdAcHI zd2y&9BvLUEzF&)!$0wBehXv&OMHKsl*u4<{OJ^f91eYinK|nZ4!9k$D*t0OPv-?uh zbC1)wHP+h8$G2al&-I$WnEL&k=PO?Snv<<4MaKPJTUobrmuWf1Sj{twU=ErcztBH@ zyF^2|&nD*u`T5h0Jz~|?Kvc*H+4up0FR#t2XzakAA?xjOgzfXiPMS)6KCwoq~=9~Dy4TG5oFX^h|~({e%KNCEPFjLwJ}@qdbQ5^ zJbHajFt~i1(cMyiEAUuU1$rp3*!=P`8uFqWt2R`3{~UO8H7)Zpscn@#@)}`(YtTqZ z&HN)R8!y_5zc^#wp*a9N`It1Bb@Y(1TM{U{x|y4bTYIbfQESDq9A=FBG^RsVmZtCd z)GwlQn-%f(L$S!0#5z~NVy}*+wJ4Q@Ggl#Z(1%3B6Rp`60c?v@6>k8(J`&3;bxlV{ zTfqU^Bk`8J08e}Wt)+w{B4IE9?0l7`m?^fydp4726CQMXP zUsQaD9O;T2&D}J_6U^m+OB>B7gQg8?19dD()$C|l;XFgvRPU(>5`W`o_c5VL?oM5$ zN_n@=(b}H9t@gYOC8M%#keJK-tk?kV;%JYzr>cYK`C;n!P`p|ntQj;aX+|HJ>rz#Q z;=F`edn=3-rnN5kCXiilddG!z>ao0@?HcQwgSV%|7Fe|wHF#2)NN_~#sn3r;Z~L^4%?Or3na$p#&vN+0DdA@L

E4t6UgM+k@HlW1>+wDcH4QI<6h1*lpz}fYQq0M72wuUE19HI-tH7h_b+dOrY2jjrq&x3QqlbBMXBQizW|h?yNT9+wU=J*Y+7n?CAH zFX`D-UeS}A*DdYnF6j@)Ebd0L4IkbncbjK&O%MAj)TXR)!YfzXl+9JsUe{zg3mwL% ziv>dIa8ON8G}*Z_=8yK5i-}K{oG+Dpvee6^Iy!9oEZ&o^N_|diGd|j^ub1gb1H#=O zzHb5dt>)SuigY|Pqvd2hJ$q=jcAI`+W~F$ZrqE~2KW=$^`l=^4rx57*JF}#Deymrb zlAv>el)pn-cwpX*;;)xNkAIe`W8?C6#j5-q zUMM-_wsL4w+f2!diz*vx%X9Dt@?y=7^2cYXz^0F8s)}}q2VCs^vjDQJOeKe`% zKri9(Ux}r%T#V@Spr$VG=>1TuVUX-D&ts=K^h3t6!q zxE;AU-4l*kax_2L+A?40#5@@*g?X{Qrq_}INE^*5dvXiq-GD8PxVOA3FJ|e`{E+3p zHF$V^y^CXzzby;3YV2=T`8YK(EN4ThwJP=e2qg}iW6)gJX)+f>5Df_w-BZF2%)`H#lkiGd(HYxH z(g0|XX2TiPzN$hmO(jwwDzKV8XWcsG9RR9yBJp@SJb65Y+}=G~--s^1p% z-visLed+IWDZ%eT5o^0u#2V z@ltEQKktu~ju?q5*5G0}=A)c8>4_@Vd-7MdQ`{?jkH`n5)l9 z=v8XSSg+jji|?v(PaO3fhUv7<;1b7m2sWmgnCX-Af%&FgmscW=b^aSn=MXhu( z>+HQcKR2lOpM&A8$b|P+S;d_WZl-MkW?P+{fe%0E5E|J{&eicuev`+)C<9b7H^22? zP#6SFLH@jb^twH*y6mKD!?AmO8K?HX35xV&lMFirE-Yd+Zzxy12a8T=a57K^W`Fdg z+d7gEplu%~3W|D)B1N?0-~@`Z-^LTe#-7r>scW-d*kZ?RTXr z?JbKdt#Kt?tcN~-oF9}Gl_uXysFdlH5yiPWOBOZexiFtz*D(1U6|U50ubfGxZWJ~O zE{plF&Z@`VJlZob4*lVBc|19n?dquNi0v~)pq=x>xwQ;gw9#|D270n;l17CjENbnO zA<{u3P#_4=w)4FGP9oQqkAK&h%u$I?o1K4bsfKJDyn=(^ftU8&XIymU=p2OmDD zneosM&DjHV3ZlrKK#HC(^4!14k*plNGp=F{3VJh4;qf0nw#ws{B&Mv-~&%Iy@d#@q0^~uGW;d zb}?i)<4VTM{5X##)Yy%IIhQsmWy1{nx>MA+rw`JUw^;qiJafjR^Ic^O=h>0;8%Ln$ zXNy)grKALB%IqrLH9^ZDc9t9BGpK|M`=bBeYOnO)OP z$JE99bF8~`t(NLKbY+P4ndSWN_7w75%*Kyj9ut%nE=^*p*F}Z0#aY1|RDHmIZh-{n z9JrgW%{YE|XZDpD&6!mVzj}^U&8?W%O}UHBK1ptH$T&QnKj={QmSJC=qp${nNtp?& zPX`G6J*wu|9lvNcq)m)+2vT40zc9Ski%sR(Kec~}W=D_Z2}vXF%$&TXqW_Cep(=nl z2_7t_HFiButQG^832zFSFvZA;em8@dQ^~7Q%>o5_w$Yo#7!B=Tk-H;ia zYWJ0N`I>_KqJGSoH;PPJ8hxFemT{eb`U^^_!B!Qocb;Xs6<7Si>_-5sTMEVYs7ykW zPiXLWR)1{x2r`2z_K~uLwnL%%N}okX5<#7~VwYp6jK5_ax*C>y-+pf~71iT0AiOQ@T z*0;8u=Dy*%K1*jZMOQ?v(qKsc07u!JG$2L@(w=JmT~q=?T548(kGoCXyXZC{sPlMH zPrz`-;I6EuQL#;A+bYm+{)Oe3QNhT<$);hk-*Ay-diBSQe$S#~MuxbHEhh}i9fV8L zYaEMDmjis`CRn=gvMa*%Pi?1;CVRdFJIx~oRTVA3@A-oF5;Hl0dfHv-fLij>5i+?g z2R!K458e!;l4q|mksg9vhN9c|*D-GFnTEU=kF2ea-GhTQoeUQ*?fjh*#JBU`5cZ^KMU=;w+YYpHBZQ>oR%$_FHn1cC*!Vx!4EcBD!8p8@7T*~>? zJzr*6YP`F&Mc(}e04KXA0;1jexA^lA9OgBjI1S4|3~f<+qbsuY@eEn&oGh^svTO5x z>##|}bRWZ`kPO%k*iK(Af%|;e_U>-Ix9l63W?J!bKNgh66KWTAE@GzAfa zM|0W}?}&(&^HanzMr9Zj=uN0=fC$0l@qKv%zhl{j;(z0NtKJTI0{ss7y(=P%X(iu{ zV03$k1;`DC6k?o&E+Dq&-Sr8^y8tEi^p(Vv_aijLH&we5ngYgz>lo4Ii|DaZ zfkA@wwG|1-&#^~^A~wBiZoNEO^(6A7??>oIfXfWV>%QtEVc*Y(8G(Ibc#@{VnDu5N zP$w>U#lVz$I>sHErwS}VVmTS@T0$0_AI8cZ99bbW{gO%S)MfsPCS0++;&W4Hnbo|U z6nH2SMriP;F?MGpF3|Knzto~1A?=%TP(LEzCh*C|wlNs*o{;^3pVuUEoX5L4E9eOl zal!!cCfZt@26~CSP<9LZ#Sn zyt?sRuzw6}hLaE?Qa{g3WfpN;MDq++CALkU5AtrHqTqTlS`UTatqGF{s&(Hp*h3_i ze~kC7*fI65A@VTA5(GRRU`|lq zKZu)$ z81ZZteI&@)h}@#hlYz+PQE_sT5I#IE!WgeOa_b`~EDdmsu*7-eS(AyF>+2Zkle5sKf`(-S0lUBMA;Q2&hB+0CKduvUWU#wqG{A zab`^1TzCHKRd<uxYzd&^)9ZT6onPwqG~C^LOsrg}kshGlb#A-6?Z>Wnh9I zdutr}N$sAFqf`X}vK15zQV&O2TjK2;`eS#^J1yb3wpsNyj7m)d8Mj-?0>v#z7)yH1#&mtW9fnoKc%a2Dz?OQ-#Ax=r6T-a})?L;+z}xbE=|4DQaJ~ zYarPC@G;|o>)RM08e&RISNPkXya&%DJ9=TS<;MMg8awN-sJia&)6&e41JYdrilmfu zC?Ft6N=Zo$DKQQ(gw)VEl(durA}I|b0@4Ub4V_Xl2DZ{OeVyee`?$uk*p6)k82WIs3JR)_cji<~*3UnAU-0ix^`|jN}@?lZ6(xthk zU$nimh6>R0$bJ|SNFL5KAL%{mKX9H?q#rtHF%4aBku{Ryv3-DJ+iPJ zM+r-fjkTDcr_Y)jx`0w{tf=r*t0?ifwGs-MCW;n4Wnku3rzWIvWaDGwD03UPXW6x< z_)5rU#UCz50akMoZ5F|r`FKA%kL3vX;%JzB?N)*N@8jA_u%mm2; z!wH7fML~DE(3mJj7RPdH1$!)6gBDt(_U6|H8h2~;mtzQ7xKt)c9BAo`6-p-Js;b*( zNFag(RuQCRTOZ;j0E_=Pm%eZlhpatO9Dlv^q7<7{tf_JHW?rR5Zz@_onxk!mpw8GC zDw0>JPKi5XNl+)XGkJ+$cc5slRT9~Bxg~t7T>cbyyZ5vBS|a&6b-v33bq#e0mq{0y zizlji&vTM-rPsM;!76?>2a{3#>DK)qb1WJIZ$TwYa@D7(c*&fbE0?DwCH&o=>rt2t z4%YThj9z4EbNY3|O}FaLaoC?izDy2O`IKH24SlvU>JhDZo-=iQ)luRL|; zsZUE1+1W*Tez?O^J;+D1rmH%vxV;n$32!~)YT+g?^BR`yocCW0%N2W4px@w|sZR>8 zT}Q}Sm4wSJ`GZ*r+R4Zv2!c$IcLg4Cd#fmD$kTIB&AHd zk^bOzzuUx^{P121w%Yqb1qKMk2H{Dz<%njIKIC~ZSj_C!F5pMS4#P{Y+%Llky8>yz zb!M?o#MvYn`0pLX;>^`p-o>+|>2ko1hh`9%rFOvHWo)qVXsq4^!maTr6@CyWaoPBT z4N`m1L08FGK~`uBSYE`1YB_>Tr<=kO6P(~4CTGFEWa8sR+uSgs+G)HKAVOKCPRX%k zsoE*!ycnd?`Czc1bRg`_*DWN~-PJ1b7JWf;B~C_Pjcl|mWgK26p-Rz9gKwXqCPU0b z>oUGy*DJUvhqz_usiF}aXd;SRO&u51>Pv``&w-3t;xkX{)&@qipXRJ5`*6^DaQmv& zbs_FG_~EYjjmzoHkLL)m`K0=^I0-8k`ZR6%#V6_W$E24`zZ!B9&V3SSwvPWbM{gm_ zd@?6-Qh+P)3sHy55x4U!mX!yZ=rH28_iJw%;>K$HSj+J7yb*UH-{oE^T+L@|PYw!p z65_l*@6NQ3jrxD_MAc-E<&{I|bSfB-RZ3$l zk-8^?iC_C1ah;z;NLqiL+Dn}ueY@x{<3!PC-C^j{e^GfJ$?)ilSaQ}Ad%0-5TFS7> z?FXe7E7c#of;QeZN1O93`6V;G>3!u)ov&Ob5>ePV%y3%g5 z!tW>%{;4u61J_nUOQ9Eg*h-QmBns`kphFLe`YEPqRn%*~cpr7rF^Ltj;N=x(Fz=QM zJk87Cb4PFph?duJhcGsocBnstty7f+S;XS@gag)Kpfvb`4YopdfCk#jU$uuBfb2te zuge>#<7hUpnt)aM;_I5GF3IG5B^VA0d0GuPx_&?4uZO5Kx5a(?l z#oA8n$z#v^0}AP~k>naHFew^Nm}E)oVbb9%u$VKyBqQZNflFt%PO6yr_05a=u8JyL z_S;}i_Pwwhz;nzkG=Wh%iD9d+=vDLagkvR2;Ke7^s$i7?7-Tx@cw|Tevc)(c)nBtx zBOVmhHA@8(vdSKMo%N4Q5VE$0egrEpO0vNv#qi?&!6?f1Y;hVxYy|=xWyL~5Tz*~( zu2}Z<(0_5uXCkOjiUIdqmF8e5#5ZGdSaRM>ppU8&EQ?846yl8d=U7rjDX>}cKyrS zs4BX5`$&j%70pL}clF_=iQ3J#Mk_&Wt5ciKsmRk+rNrLHlqKK=VQi&|RZxDz#lWFc zL&Pt`8<#MN(1hwsGwbJM&`-;KoIy0hk4p$hq!-i9ZYN=+ML!xprUezJCxWT&sSo%< zwM8E5kJGviRQA zsNIf4bYnk=E3&WP#5~P2Kr<-K+c-eegaXXeJhc{@=yI`B&x~62$1&M20&UOSBX!#9 zC{$-28pq9096y^}(^zk2dM*Esp`!DPeFWDDF(Ocq|5A|m`q%E(F&Qf|!vO6KE+3~2 zt|~fgYqH6uG4Dv$m4tD{a4$~Zn5O;e%bm*W9k{i!Z2r^Vl#j8(nJwoS@`!6Q@qN01 z0LD7MSrT+mfMn@IQj`$M<8cQlUI09C6;EN&+A%T9C$rz}zHKi}t$1fvBM&q3MPj8- zcs!CNefw|B=%Y>;n||g?iW%v8y3uDd4WQ8m(Gq}0SAkzUVWT38Fc^A+ z!|B1gPaPOa>qF1662*B_k=zb}>cZ(VMWBq&yfqVb%`V?)M-0b;p`Bc9LwxKjhoT9Q zDw?6O@t)cLA`>uuwsb&7~|=gRMB!o@jG%k z()fT$eN3QN4pi3JU_&$(dE~U2t75>b?A(o!yh4#F(NTXJo^Z1T_<@0}i@yAi6S8*f zE{tRwVyc^j9Nm%hDvn*QYB&OIfA`A<$6mH74H~^8l^;D_mLJ_B60#T?Nooc`&Fvk$4R~Sl{$nikI;X{Mr19gt}qXCGi;CKELnpaa4q~mqj^}UaqM* z?8>vd^8DSii)gFqMi?2?z#Z=^E3fd@cw)SQFbhGJP#)zgKh50!8MgpU9Mq!R_ab#e z^2@8sg4noP1;&^-fyC|&$@CEqaxI?cCuqpF7tH;UoL}0^*b7A^FO*k*Ia*da4$tHP zcgF2s&{^*VtP?cjdeu2fOs!8Ni_;&%^o|F%rbu;r^e0YOw>W*8jnE>Gcak`1(AUBz zC>yW2OiYFwvMWn*Ls~ew#6KWLf2&8+(hEhCG#}jvB+#OpDrC7TBO+rVO!hr^b*ng4 zCpo)#s(oZuTdgUrpIS`N6hvW?))1EUv~QVy9X2w4ihB>b`%Z#M3%}XPR{F~v zNq{+${xZi9{t!q67$Q5bE_X_=V|Q_9EU?{dF-(?Fjsc!)H}G6zgl&+JJu&=14pq)4 z3bwo)gB-MR9ED90N4?SLVz8VUv7oOE&J4|xP#L2c%U?xY| zsKkjNMnxFvZY*ZxPA))sxPU!M!Z8noaUez=JG`6e4u>V%dvlO4_=9eaEGe zW(x!cAO?$o1ww7Kf#%}XuE*;sGu&ly(M73f@Q_9U*2t4gzw1HHwQz~w6PAeYReR$5 z%Gl`M`j;Y0cTZhZ)=vyYR5V^%Vwf_YUE@B4m3PQvuW8s=OBZ#2ONKORmP-Dp$fNQ} znogjOW3@QygFT3!EsXx=WAMWe3R88$7@o6#M^~-X&~3a(#!2=7%`mV{;8SS$ixj^q zD-WiBx~H3hLs3Ky1Nf%fQ$C$WBBczH5bBs(CoEG6XYvQzv)6lj?rXPhbc$SCfGsm` zYsx?UsH*0%zf%UGvmYk9?A9i`>^@<)G&2hxD#a=ouAdoBZ6Xp$zR%F6WbIeW>lO*& zv5$_tdT4G0g$m4PPRz|-nNFz3RXxXA%Cw`8o_BzJI)TRdBr{q9es`eW59=^}b{UF)Tq1jwG`K9t_I$=s; z@KBb%`(q_r6tuq#EqhCdv?eqqUX%7#kBdGOC3}15*VU!o_9QKPVKUi#_IcNl5%74Cvt2aDuPmQOD` zEJ~)xxv^NXcw-2p2c^+jWFhlQvnG*R~3lr;8T_WKQZADUNEe?rGK=m}`%CC*nT#TP5rC zAvU*2Dxe=r0{ytft1y!yhg|)Qf;;!yFTtu&l03uMK(ca93}z;F)s^*G|Jju-r1b`~ z2eaHR^1x)&90o*8Dl_y$3d<3-M>9xt6IjgOXz=d1`y!%rX&fYWMf?Z@wW09-0LrJu zI1GBlZ@D#*`Gktq<=@~&~ zGSB^ayv++uUNE5${uttg1NFL5P|d@$euIffmPg9h{*w%G*9i3)4b;WIaQ_+Dy3j;y zY={_qlo+qRmVOtH8+NP#U*$P_$N`%k_mSlM`v~vgs-1E4yhnr8{l)s607R+Btoson z!MhA2A?1W0tG`<1$v5PHHzY$pzF>o|kYTR?@sPrn3RZGuC7d<%8X+a6lMRm)6(Y0e zoEKE6<}WQ@w#fi4^bG`{7?(#GR1!|8CmfUD-(4LwAWz} zk>_h?0OKhQgYN>NONfFJsN@1_Pb_y0&MHWZO9{QtQF+EY#~L)s{zK!%bR;VzFpki= ziwca#5YnKWn_G{96t+Yv^D-bZDT@l3@!`jOxobsUCP3r_k^bwcJ7AV5BVaS6Q;{tA zlqL6TW~ImrbzHZ&vDnxMUUGy0^8{XSIO|tvk6Ue<>B*&gg3z8(|7|`xGt1>y&@MTb;H0+W^$hCNCs(;QUaDQEY_9dZD{il3Lh*DTsXVmtf zGC1u>X-pz^eV|#TDeB#pZ;e>dl2>a((DUxk9&dFGgO&Wrt8?yGhjQ=V5o*)6uMKP$ zW=XvLGf|T4%#~g}V+Tqe^p9MeZq;Q;o$7SLzeD0?9KxIE?7 z98D=yCI-m;iFPO1g9Q8V7wnbx0;&yFm_FG|0(WxuBsAUT=x<=TlaR7vcSjE*=-Vr` z({N>&<}1UD`bTa=jzA6XDVPdPo3zzaS$rPJ&2D#>65#HUI;LLF8f1G$u!+SQ2O;=$ zl~c5EXTI~eq7UAP!^Q&8%A=7DVeZzXa_erCERPr69WgJusc1OZ6JOf2+tT0~IA4%7 zjMkYNnO_^x*q6Tj$V{M|@4$(|b z1o89qxuC!07}_z+Y}k>UR(UEPQeGlrIac*qBF>~3SgV=~CJ`;NL761(~BPW$mN{c2ePFq|k6n|~`%Pzy%NnIgc z)R#%z?x%|;!iCjf8!(ffx!dML^MU)F2c@#gWB8`KqJhVCyk;x`WKKJ?&>m(&xg6Wa ztizm^K+cZ}Udwq-i5~Hfj3hJNX7m3p{j}BH7#%b40H6E~u#Wspr)IW8k^ljO{2Z#A zsmbUYj~_o}9C!npe}N>V8cKV8^XNfvJjJ^PmNdVko?r7RP?4hqS)P{D{qb+}&w=o7 z&y6jrcw^6^pgp4)m5XwyVA>ypVt$-$7MHsqMu&$gNEORG>HhP4g7KrhFPt z78p;|=dXzeJDgR>$WzDPm}Hz50l7|z2q8?EK>1j_QBsbVn;N??yZ=-bbZ;j1uPF}_ z(qI-S<7kq}9wNzt#HfOtCcE!aZ^i51_$qtG3NGyPHkUW@2IOo1CeN3nor#qn$r^fR zlyB()D|=-lD<{J{DDp1fmlX9YZf7$(UIJT7YL7~d{ z+i^c_$7+cL+u^)>VbqyFG`|Z$Si~bl(>Ynzg*5QofCaMF7{og;6>O*5SWgnko8~h0 zx17C_a$haAIivoW6g-ure)9UA{EL`Jt~>U)91X0x6yIQx!@seFZ3MPw zi@i-#@PT#OK6lq1`IVG4y%qPbHC+)rZ1e(F>Rop)!qL70bYIq3%s;-&=nniQ8%eCu zZp&*70jsKlC8zpyR{GS&|Je*3jJJwmO^Cr6YRr=}gP>xf#;c07EaI8Jge zBzJVx|%<7jl1{x+A%o5R*U4HY9L z)?$_{(S4QV_;i)z5G{Z#EIQY;E@(e7BluV``hr$jlBWP3$@*7ZJxDluN8{Sxx;4%R zLMeOPb(Xsb;s(oP%Aqg3))nV|VHbXgOknJKvHpum0oP#37?(FxSxTzW?yde(S4%cZ zR-Fa8w0X(QnB>I@2f!5zn}8L<1|&Fm6sxe4wA^arn984JjTTV!4<5e~&na<0J%8?N z%;u)i8}(|9C9>i|sJyK)8~m!{1WlZKboN5Qh~x_nXo!ukywJh+RnMIX8V@4auB#3-Mrt<1cN*y|^&bpMn5^)|uL ziNTe1mCQPw{8CT_Rp9s{^g-3T(}AL%DWfpvSJCR;v*j=E?I#{5h249l$o;indt#@I z!uHnFf~@}PfhRRJph_tIXCmjuu%WhqdoH97kGKqYx?I_kjCn6b8ZQpH?xzl@%(!X{ zsHB@4;XGaZRa|2)leKpJvm2BxR;Jw1u{QhHE?PXpxSsP~+N`+%+iV-`W;ZeBqMAQE z%U)czYH#dzhP@0_zr(A6%g{vGQ?=`>TQ1$^L+ItUIk(^Su2Eor_5&{;H`TVvqrEq7 zKTE!K?RsUj{*?H|^3Mt|kd&QT8nEr3EC}mg)g*52S2bUrl}1`_vy!0q>qZc{DUyLN zdAn8=aa4WRO3bHSg`>knidAXBQPh~%S?0%WzP2NAy!v189xYVR523TJ$-nvt zc1*Mx;r_T3`{bA7xrPX0{%QWax=p-BHRlesng)62VnixlhfFmqE)yNe^h*)7j0qu7 zirHb$yJlFe=)+WPD1mpw11i(1+Fne{PEz(!ru-EZ;6CP9EP#SWN_xavSRo$L~Gph$$AhGU)txVz!{PN?==dVmGdhmzx zEVN38!di6W=fu?_xJ(AWh*Ver*rOdx(~=7_N= z|NH%SJW2fd5z>~lM)OuVRND7R8G@zza%wSWRw4{!x^}oJzINkC7p_J66FSK!2ly1Y zs`p(n+Ws6XN=grPvwC^5q6&fs$R3V6$^;Y1uXUM%(Ky-Ee)pTd%<%=Z|qi7 zdoP`DtLs-zjX9d-c;K1_>yPu#Tnli;_^6ESFFpS3M_@S@l>Jy0zi-4L?`+p*`;-q7 z<#U%iZ9@eQS)yEp3&NYeufO8GZ407A2Xwx4t^QCNSd`;w*K?FJ=((8TGHHMKj56IN zbJnc4PT6tKv{M9^&n1$H-xo&*EHEo(d3-(n#eS$X}y6t23J!WMlmRll=&Y0KD%kH@l&HW#V z%TAi9R^+#fDnEK#OB%aKWyU2Q?ELzUj;){jWIyHRlQ^W-KUgt5QS^i3Ipn@v^+JH< zkMFo@bMsXeCBL+{Sr)Eeb~W!je%$s3+9&;X3LWT`G}me&Ey4|n{cdZfeB?j9SYgsA z*u|T&)9oKsNwfE^hu8R6Wmam>+qA@fY>FyK?}97|;V~SQ)g+io(w={ofO&D*RNVVS?=RVRyv`N@1)PNL*uyilTOOA7{>gz z>Mq4nnyT16KJ)6Zrd04JcTc-aDGGsP<|tX}dM-)s?qq(If<1GtMjUyGU|@k*6#~k% z&$p6?Fc$P&O!aH^siwiQW{(^b-hTCVKmK5zZPG46jl;=5HKr-{sA$G!+!U6i*?HZu z_HIS328YHd3Zt;q=y=awP6IjIAug|>$bqINZ(rscP9CK%p~EfiCUGL47p&)+?$GNu zZ_k0>^v}@nS1y)v_bB$F;|#aUvdZMJGqu#=`1fbIH#{r<6ht)NdF+`K)X zcqvS=X%Ylgh!etIagZF} zQ1LEc8yvZ`sJ5~4$$mXc7Tn9GCFrE4KSnK4%KCncp5>Ow?J7ig9PU@R3Dw8Z9s>Df z+BAn+p{3(*?RP<8USgrX>U31pT-CGAF|1l6KBh9DJN}8d-S{0CCltjyt{0EpO{|%p z)W`QUD4%2~g^MA^Q6+?mKiB#1g!JFD|(U%dZd!CaPw zeDn`QVLaXScRE#O>#W%yBLq?TO^-p&ejN7ON5?yA1RgQ@@ z++2CN=Yc;l7mjtau0Kg*F6e(;9Gszn3UQr+uRcfi4lBbS){(<3SIro9>$Btw6f0dT zFSv;{)h65$&plT%Mc^Gnyi6n=6uMg2KvnVoeqIk?tbd*3bM^b5Th0DHz2{GjKaX{| zx)Lxx@WVv#hsOVK$its%e{OesrSq4XKKP$%|JnTZPlZ1>iu|o$3LHuFzi%7)r_P^+ z|G#y{c>kx$@~issKQ;cWNB^w>=l`EH{@>N2@@MhuZ^Se_r$_`3;;|u^6 zm!U`k6@M;lbz$tiZFd{FktqCGImiD2k;myMNf0In1&m7Qe=6oJVDnrJ|oq;-ZWu z)8}Gi{n;PZ|84ybAJ+f)?BA&5I2%M`aT>`oTjIm7kAC;)cl+sJJR8FImuvIYdy$Oe zB9JDNMzeGPRkel6!1NA~H3WofYir`SC{MCkA@XciCTUzis`$$!8_p!Cn;6Z?^DGxH z#(&A#c{#|^GS9|<1{zt!O6M z4);&`hQy-h)bVQ$%z;9h1l2;qBZgVpD#hSDO3z|Zp2tOOA$ybPZ(06ZoEO05EwRb7 zlC&=Cbe4>VGHqi+(fW1&+<&FWxHn}oE`Qd9?7a)(LRTEjA~A#Hu87M)kFf+(4dd6= zMtL?7=Vdv4{`Bd17Ol++iKCb0XHPGakIB=WYEGf(DFtJN zM17oPA7|4KB_L3BsvKQJd>BX^tl&yA66Mu2)=A?3ZHZMxunIzv0?0}pm$N(-1b+f4 zv6M$ykk|K)a^F`(Ak z%zvkw6MzJ&{QL;D=N>gVM{|=AeHd$vBvSEcm{y2FD+GtlIgA# zNh{9S{$a*@PYQb}Tbsn=VL{Cx;$&HuIKxDlgG^jaXOq)7XX9JKP^ov1b#YDCyVe4T zGNWEc^oy{)-%{v6fymZOW`9K~PGb-`L~?6tyzwCC{$yZ9YdI24uPe^V9;tG+-A3NZ zJQ7giZL1?>H+os8SvHQNwAJZw&MU0%9&7YIU!nX0*j88brB1$3DtmIu8boDVHMz4) z8C4^dQR?4q9+BH>(zf}%^c^-h+~PDD8&xE=513Q2Gzr9cG@ZuMDu2kq$ooHwnj*1$ z7p-BcRgaMoXcJT!A3ore>FA8Lwc5H3{9;hql>(-veTh0rKf>RIkpD;Kb;Z8;8|a8= zIE;r<<0*X506jSCS^FUO|9?OO=yu!bvZ$LZ3va5d zp%Um4%@54es+j}9M`KuhUeAclX>)v zBpo3fkj}8c=ac!gOs29~e@(N}!6Q?7qo&1^%|EQK&u0-LnoQ3Z;OYIL4#P*FLbht^ zkb96$f&(}3Zh@Lkf7ZAM(L~qC{ z6y1`2P}K&bU8P=G4FUA5S9cRM%^RBLtFHL0ldk48a)UKeLb6hy-3F_60^MEH{AFAG z>w#)>Hh&rwG232>hJTawQYvWKbu_`kOsQ)@dmN?1-dS9}jKNyKnmTeKmAE_0a>K_J zX4mKI0DclF#uSeipR+XXXTS|U03g+}BaJWhT2N0J2*9mrNuYql-ZV?n(r`x>?E$ei ztM^H#U%Ba5I{mYo{+V$`W-E483Gt^d$N@`J8h>kNao(FG#Q<3N-!j>>588upMxyHo zuBEt^WS8c^3@OD~(o=|YDaw-awHWrq#URUbY2HYSa+tsmkYC(OCB{bMOxiede3ued z{?n@$bBTO6$=edBONDKZO4O2KoEoLQkZu4_?{gOsegZH8fWLpVXeGi|(#SgBAre7Q z41Zq9NPzy6SU0@nI5zY=jH7ruD=}S~YB}!8XCo+=Nidl56|WTkBw&SQ!=#X84{#rp zrc!YlmzS|zp_Z2!wYCuL4GB1jQ`ox3Wzif?ZS3w!oYbCYieDShFiNSe<&D}T00X+Q z2y}zZECvu5KZ(w0WD`ayhHHurJV1KLp&o*BU{hRV=vpJ78>v(jt)~Jjtn{m~o zeX5Nw=ASQ|B$MelKF(%PNP^33ITFvJGP#f(8BTHgG>2?hGej^3K?;ZQAeqPkf}6h3 z#3I2GF7!xp(*>>QRRrcLRW1R#P_b-?5Ht!WvoTnS&({C94HUsdgSpxaf)O(sXMb4^ zg~bzs|52>>e(s2;_{BRtu>KildbiO(V^JBERgT)N?h2`lWac=FhJ4u|NBPK~`O17I zIW=l`suLL==OM1j;$UrUa~EbPP-BxQO{TMPL|f@xip+VEBU*C7%?X!D&ro%7Swzu; z94UA|l0Brv4im3*q7pew{HzmU(tq@)OQ^V*oi0`JTBzc+P{nHtDwe$x<%c9My#6kV zL7@8HrzenOYVKXBZ&hjUGk(vl?}HN18d55yqzo_O4l(8lv4z+zc|zY;`uj6|e-6_& zSX|2&VLCzKRvb3CuUMCS*5s@?JRQo|RFF zOC66GX-rG?P)4B&H$Wyqrwy{AO;BbqP)3oYD#MUv3fVj}bbV}^*!w*iUvO^Drl@Ez zSOa#zk69iKu3(0VqrtiStA7Ap{WJx03iek7%3SV=52^ zFvC{YH!X0k#Fq5-6l2;jDgL|$?UJ&vj%Us*g8tl1O|KN|gH^d^`hUB3GV}SP-^rPE z_wc!$_|YJjT{=n9Ss8;@%057x1VD;-kflQaA(H}5pV5i{@zBs2&aGk$(jkiEEKNqq zAWFejK1)hTz)2?m`e~!Lxgk)xpaiV*-@gw?%E1Ab6FIwf<#e8+taO3OjyknQe~L&h zEhh;=zz>oonJWIwM1M&^!A9__7Lyc~e$vw1Qz&FZ9TbEgK=&LJHvKI}0VL>!%4q?u zAa$2IsafhZW;Z_50AxU!f(qa;NoieON={ON&XYf^b1Yd}#ex-C0F6bGv!)6dEVA*E z$#iN4Yn~x)eu8HKNlO=(%vLV+;cGS?9%%ZAP{m?Oa@!=+I)ApPOgO>mAt?22i+N39 z24c1Ha4FDjqeiM8s#1VyoPsP}L;;~$QCh8_^`bf-xZ~a+s^Vzz9Stlyx0w7XQ zQcwJ$i?qd`B3KxOD?;^2B|w4p9CbQsIh@hE|Go;|0JW<|)I3$K;Xnuw?tg-imc*`- z41!)oSgm=m9wA!pEKyS@jnl=nk$^U(4du$AO{-F+=6_r*pu6499ZaZ$qla?MTyI4; z42`+fp@l^%LyHiZp+$;M{Rj`O5FSmC8CnVt{Rj^&+5TmRmSWkBh8C;teutJ{(N`N< zwqk#H)s2|j3>K$0XTVg)fM-*QJpTJE$>ZU35yA2-#{)gs{}6)Z!8Vr6r5!AwHk+2X zS0#&$ZGVnv!(M%v(VhdC&u~yHCF3faDG%UFFr_2}Yy~A{r{^M*X!2wr!0)WYJq-Yr zi!LGn=4z-efzu%Tnqc{9E@ccIgfElvSb|(eSFq0}(m2XvS&#-imUwjtWPP0Ug67&U z$Ie-%Tzx{tU8uFIh=XAteXbkvHOH+I6`Hl$D1TAyw41a=S%(qwo<3V&moxMR-`$y4 zruJwRv2`>iZQjxJ8aQWO-vsfKw3Fz;_(F*SEV?PsA?$3*YZ)D18()c#hXs+09A0-F z7n+uxbN&l>I|eaxc(CW@{?fX-!OmrZ_S!)i;r=eD!hr=$;~3mfP)UOH;?nYwIki#; z6Mx!^3zqKxp**{BP{95)5USzSE-amKsGmx;bKhURtdLm)X%P;42S;UgaM1S78<3a} zxb(4*2NLoKP4FLK>8p%uzWGUK6Rfb^6Nc>>o?*6^@%+MUGoo9x@)sSxnoXz)GHq=Q zcZlT*OEN9Kh^1;cmxFX1!&ar~kZ3sEgMYl2l;s?ucO)B=A-Dr+CGvYat(}_!d59c+$C8rQAZ`2UPLdDCF$sJZ zC$X6{?~*i)^JDz5qX2iQB;DpPjQ-6fvTV|}a1x1LXX!jCGCr*2A^`qbJhOW}Sa5?T z(~6pvX|!!i{*Hz~>;e8Q4Jm2|M}Mp~pW7;D&1vEjsQE{p#5a;mVJiE?B`&O>CUDR# zqC#B8a$W_GcR9mK;|X^Dp4MtAufgeX2ULw=77)&NBQyXE(@&b^c0cinru;{(T4-C+ z+mEb(xo#X@9S$ZA&*uh9d1Z>oj^$6siRw&dPP=m4mFH|PI4Sy3@eyhz{eJ^y=wVWT zt*L6PNq@=^8K^Rsh+kjr#&XJdbIM9igU}f z$7Gp_zLRm~_38+TD4=o|F(#o-0=3{!$*Ux=Eneu6>l)%Vko#eV@P9baZX+~Eo$FY8 zW1UZ-rX|qCN<)D8rhbIjV&JS|mB-6fwdROplcYx4YHUfFjayZ8%FZ5VmvZPpns$Ss zd|5CXjXvaAG;F~n$WsNSnyJ~T?nvezL%uen9h7MZV>%yUT8~f8f*)OEaD(eZbP7wZ zYKExGQ0ZX;j-irJ?SBK{Yz@_#>y<)sZ9B=*+Scx>>`>8*xVF0A;&5&8K&lAI^>IA% znyqp~ZO*u^u06^>m|G!w#)oUH&&n56dF<}dR2hz*fjA)GLFzuL7is2e@g@yK7l29+n~WqweZH8fOsQ=^Cia7}d&*F3)70aNc^O6C0gpmDxSjkEEf zalVSiX{vDUP2=E-x1Sy3P7@a3dgmg_*^ZW8$3rR=lz*n!u{ygkP*a5jq3C06E%%|+ z{)_@sUv&Ax-1xV9R0_=9ak48*osYj^&}ze6ZO@X+y@t}C=!?pB*`Ao4I=>{HtrQ*t zm1=r?AJPIkIpDDtc;-nBlv8J{uZy32MrZ2Oj} z)AGn{Y}^bHb$1wz9=*3^#m3Jytl0SZ+V5mDC&)eJRHnUjG z6n{n&7~EJniN_;n!+g3Mm61MRr+U?hVr?)=p-vwl7ItYO`WXK=-8n<0qQ84)V#9ND zZ;si7({(sw@9-je##AQ;1)dk+brgF?rl50!@Vt$;+;lrN+S;}*VkO5KV&vy}$nALm zF)Vx_fO(-40mEfBuiU}SzwjMGc9{{T+kelj`=I|Y_3!lvLQ8b8gQOr)>opqH$g0wgpE~T=%YB4jI=M=QZ_!KK7 zNejuEw!@~bZVGuYIA`~KlvbJN#(zk&yrb@{XC0se&cVMfwF({9Y|CD^SfS&r4% z3@64`V=kLeFD|?BZ)ooYjIDhWaWENreB!8ed(pv^?x{0w(5OV}eMY@An5)4QwJ%4& zamqb*^_59w#i}PMwJ-?HQe9)$^7%^nTZLvAt?h!dfbo4Is=v0jzblRIEPpe%_+qr7 z!Z&=lk-m4`;*`-Pe76V3z6kppfNCI4rP82y)Y$vLF2mCVJt2(q0o=nY+Rl{|Ngg^# zA?&+n@9mOZWf{NZlb1(t4tBvs^eoGyUyh;duV&cPPiyyKB}WKyHDk6r%m=sDF>&ARZX4R#S`J zQ=DhB@lZt;27h8i2u|JL9aY9sGngy)>&S?oVMAgto)yVO>|NV(h^yam)52(JH(7Y~ zPZ%2D2BFQnID1`L$!uey5(w%v1?OEJ4BkR)TQ^SrN&cUN2QJj9>k7@f=iuN(U0DAL zebW_mHUWs~R}sG2kAFqsG8ftybl+VP4N)xQsH$G<(wDk~ID%n)nG|yi^hn+L(x7>9 zN3yVK@}MOuPyW2Eh|Ko`R&p>;mLyd0a$-efR7cl1 z!e?@zyP-HfPUPQ3sp3t%I`pq^!gO>@J?}5K-QJ(K5EYhF%&jyYRp)CHn?y4XJl0Vy zV{hTaq1?mCz=k;r<~0?9sb}S9Z1(u+XiqsJ5>HePeUTtJfp?UNLm?mh06gH(8jrNo zB#*$Oa@3{>4}Za=cm3V*rnmBMWpmc<7pgjTK{Svn9P-2`j`DguJqIWbIh^ z<+v@0thxH3w*=Wc0d-RITwpMv=fq>^F^J$gXHek)ze7d)Pci~;qhF%;Sag12#LJsyH&VPVO8o?z+b*Dd)A|IW_!rcB> z=@2|MPRrbcs3*CaNJ2nV0Ysnmm~dddxfT>b%a%4Ua213-r80HsVXU3~$v$%7^>UI8 zw&F4Y*EPuzwhnAFv}#jiLpZg_oJQPO|G!T1+PIwNN7zEF<8@bG@Eo8$h<&caIqf>Ieo) zRTobFx{a6oGrv&_Q^_RD)nC+z5gz6M76~wt%S+f{NoWyC^v)G!%YjMsi3DMdtzrFa zSc%e#5rHYV%4n9$f2a~0GH)15GUA~)z0$S*2Y*AdW!A^6OH`ZH!dOWW2D%xlNH<0% z+!#2OTYx$YDC-Z|i)PoUqgUQ-Q1C=mhYp6YU4P=$N@Z&oW8`wSlN?ZF|#&>Py*tfQW-PvUYP`4txCYz);JCsOtqckUp_az?oW3M zCZ44>SibK3!*&1&U6+DR{v0p>E3K)YqJP3C#5A!PP;}Mv4Xf~m&CNGmrZ?GfAzJlj z!>u~4>vq%qb{pZV#fA?%`9+$Bwg&V=F}`78ND{0|ZEbdU;s9Cv%t5 zuxT?Zdo~O2U*Ex|OC!nAOQr8ya;ob>vy%tmAOcImnuREpQ43MC4t1BkuwjAL z9p^EuJ84&w&;F@f_Jl5&-_vw119UUD5hA&hoP)0vH%~c#w@S+iTC(cUsridZ)Rb z^a3ZEZ+|*sxhAWJf7BvE@m2wF);A+A^)x09{3>{QE%}+(sFAtKo+Ol*5oBQ2X1pilE`BccY?xi&5`d z&&Hh;I|gIE$^M}5MMHegB5;aytD~E*tVcA>z8+DBT5xVWT7`W~L>;V@d&;g@t{E?2iFdmbHlmdehIw8$ysovL6jLJVc z2d#EGp2h!kif=ZS!g>|-|M1<4HDAd05tfK%-D_CJM)~e9@U}fhf&#zM-l?jpN4GIo z-0nBEDqrk5HA6q#uzzam!uqk!GCvp%ralq+~-+cwdVU% zWZ!-d>RYR^?_{&fJ&nCz-S)6?cGv4$--7>+)L2!UEPHYs(1cA7k*h@)pC{k5#{2gB zZ(mL0&3B*<@7&$x=HR!{p>_LxccMeR?LlYj&}=9^DAhYSnq+b63w1>s-VhvOaDRAE z1s>Od$kqdD{C~&zs-O&FJ$wstRfa^2>(8!x!*x-FdG{Fp{t^9&KMGa3!Y?}wYc%=- zcQ!!bW|HNnS1{1!-_xil^qwK9eK`9^0wSppx&~jS4=~>9t_t>76XcsV~&+PGkCclok-E zKHMPN2 zVE7iGvWwXi%BuSUxsU(@_2_g#CZHU;69^X$h28r&@brXoZNR&HB*+ezJXv<~s3}fT z&AuoGGVu5fd+V#HhE}cAz$jo~Fb>!!?7_0p;NjB_^gchsS4n-eR-oPTOrQh(_{CTc zPJd=k+Y+BDInF~Fp)BQH7|J3qL!wf&+wDqspx2^Lriocsf&LtVwqfl4v{lWehB?t$ zR>C8|=|&C8bb?U|744wi`ui-q(hpGaFnbb5lF6!o(S8Sj~ach`g8Lx1np zPEetxUTBCo^Ar`j{Z!?5_)X?3hw6EA7O(0C(-uRo6#e35@kuFl^PsvyqV$E!;(yX* zP@q}F5O3b0#K59wi8aq1EO~CT;+eDH`7RVxaJgeTqoIPb@OQK1X};oFxCx@H)SIq# zzLP%s&U$FhVrTK*Q>gH@r(c8Wdw;H?B~xCn4%oKZu|E9LDnup)mIjXXuVVz0I~k;Z z0~N`3H%aiEjYr=UCurMP314Y>Z%U0((xg$N2w7kwJSP9Mo9_tAu_GINhBbkfBb8)! zzf~tAz}%Iev#IR#t=d(-o6glKre;it${1^LYh1M-Qktn`=Ud2#Cn5_rz<+7!WjDZw z4L88;Ol`6j3Zvu$T4dFDW5FJM?x4o!G4SPdFBM-^chWuwAwO$X(sV>DO|HR$=?=}I zEF`>|@wvXtXS)Zk6~D)f`ti!w3QfnXYl2tCt+$L*ruO{N92(DhRMF9KTb7`a(KWxo zZeoL~GJt^_WcTS3%I2f9TYtXSAVCcbK)Cx580U^z{vK^65FRdFICb#7DkgBUcpBqy zhu3*#%z7M|YsfK% ztSl)#Rdah8hB#*Ww`0mzUWK9uSfhof&y&Vn!Nn1>#>a`=!G{rGB*hRyPIITqA7@<_ zT#hwqOA%Bo7sSheG$5I7urEe`tCCPpd3D1^uM z(W(7m47ab#sQB2SZMFgkj|!oI@il`2{TXu=57a(nPo8K{2|maejkEL&R{?Z+J5v`Y zujv#HoZ_MZ_z=N5BaZUHIrvQ}LJ(mz9%q+M3jThjh)UAwjDJNbIRl_AVO#RZdo%$P z-Io*e6G&x7Q>_E2N3lZuVRyT~{mb^rUaucdrepA^>mgH$ced2~p8BoF;>x4nsi#$< z4=D~4_%(DS8*F)XU$7^0$7t%a_eR>fu)X=nFxpFr9s4k?uB7sWj8q+3J8PI8#o4*i z??|vm8cYr#Ab(AXje*1u2|Txgzue~dc&#f27S2xphA+e_c9>5Oi9yVY1JzD(oVwug z;6XMm!4~uJleK-GOlz_rK1W=WcM+c_13f9OU}(@WGO38^^(1i~T__*rg6Pw9Vz1%* zF>R-PygR73oNV>h3BER1E!<;Ie{dA-#~~zt7V91BMt_QZ+JY{{+}}IIVz*%W2UOwo z)9sHSCBuwkfkv~UX1uZ@Fp#!rq-trSo2m)jxF*ss84txI zyNI<+tl4-pWV5W6AJ@YB*kP#rrBky50%8ZiC9wSoPh zo}UgENb+HxP2zn^hfS(01UhXR4OtnJQdcDO9)EV2ApN*6eyxJ__nQErrTIlm#VywL4Lu zgz9^mISg%vv~Mu`hLPg=&?*;D+Y>jpFf5K6nmC40H!-f9!VT=bCgvX5p}J9XjL;eb zG=C1fKbH=B)2Pg|F|Hj#SEuOz`o_;>ssY(M)cDd`CDpu;ir0J0lW%wVxatZg!7hQs zBlrDrH&a*Qrut;E$H=QtPNE@(&HS(P>>?S)d{xg0${j)|7Ds@>70&OP)t*z5c~Cl! zsWZ}ZMY0XjI`;{2!*7G=UBjoQ8N8a8+_+-sW>2Qp-B?{d?1*?!Ug z8QwlNUEcUvaMtp!%Vl$cMTfPwL_5z8K(byxKz-P$Z|e(jnH+iRB<2j6{TEhXkXcItNsh)R_Reg$|Eq|Y(%+zVO zYKwXOoTc%B{5*;CM4D5d~yax8K>A^1~Syb|5kSEi!)ul9BM%mVbY%+=P%@rbqP@9$6 zHI<`(@Naq%9I``#qE?Q&5r2>PoIGzmlKM%Q!hZFWX`V9vw%&9Oux7xhV^NWtJR1X#d9)C8r#CDSx@+0jh_@^y@ID zw02Ll37^HaQ+)*cGeDVpAT^msm5`c#Y0rse^JtaX$Lp$!zl{@VcClt|-jUYvAi? z7Ujdk;_Mh@N@vRifq%X#3}SnXI$D&;B9 z2lBSdQqH)NapT{Tw9pS^!#HEoH<1YF@>HnEs+BP;3^0LZBRg!e1*AHLF*A;HRmxz1 zk~=21ZPLBUEE$0+SKpj~OpJwsc)Y&;45@Xi?GH-D!qw)cCK)!R<;UNY<* zAMN?67tt7!dq=PLUVV76f4nDdTgTq^PJjRC)d%_i{!97Q4^~-$>h1luy}M^g&|7ni zN&nA1QTK?P&WdxGLE0XPUuagNo<}ar*^teI<}kvq4;0b~@g6jf*lkqVO)_stfo{ z$I;1oG6f=@)eIxZ7XV-fQK0ljlhPaiibK%y_p6LRQ-9sv4nV&(8(+6I8(&qOY}`_v zBVv-k*kgySM#XYKxag2fN>kj&dt{Zsc1ii8g#0Lb5B=YG>?= zAW-Zf7h)|5dw>+1le ze1aDU`cF3!^nD0Hcd9~>MVC>6FKOueWDry|pMRm?7B`mme)KUu8jTjqy8?WW_*+Z- zFaPy=`{d-q_N(0wdnY^FulJe=&>wFkK+tJxve#}b9xt=;aItIv)PrDr8^QSbMuGu7 z2D*gi^qZ@XfHrB_ zzkl7RWu^*j&*qZt!GX6uPA>d0S80xg^v7^N#^-eBk72jS9$d631iPAIj9SEI&U+kS zlm9#^Fwvg-uuXmE+6G79T+3k@;a=V^cH?N+uHLcn10_I^!BimxSE1#`~-yeShSAMkmqw*rkQ4RnsX5{yFt6cBML2VSS5d z+9()W2txAoh|c^8&Yb0gBc9vRE%A(bE)ZYfZwQ9$jD}Sh4Xa%~1S=(07i{FNKGNP7 zAwo9pg%EY$zh)C?K1G}NLebpi(R_k_x&;=_e)pw^;~jq0b}<~5$7+)(OLW7 zf9}d60i>_N{T!TSE+Tye5}5V^yMLrBsE}I?GZWN|;}r{Z?c*QTH;1d;$_-*eAXL;* zMuO9dY*s?ld`nvQ*?OR{k!k|YZ*AYyvBFSeGQx3t&7oh&^}!VJ=321#IxU)Vmt91W zi8bE@g~=Chf(fw@a-%WiW@E^o8bkify|lTHg9qna6$hU~kVoqe;a`gPvVVp0*xw=F ztOA}~IGLRSfE2|Y?Z)4Jq+PgFLa#`Mv0S_DDrc{i)sr`CvX7#)Ox9qQm4XlcA;qc& zps;-MkE2djYFoA(WwnH@zCb$2)x{2h05dR2*>Nj@%GK|sDkl>pWSVKd)U==F`kp5$ z%fQ|v-4*j~S*qdu@>|i1=6~I?1moua*Ps}zF7UOdEmdO>I#ytF;&J!(Ymj{$V<<1u zSWD37OzN7jK!A)obzl^j-;O+nJE8k!JaO6)Xh9urPKfh%?wU9{EwXW3#>NwrUSawe zPvN$|$YXrmS<2femzdzA=S++{=UG<7`{^jcJ6dhgkH^Ts*LgfjK7aKo0ESLHj6Qjh zyV2ckwNsfrUA)glOS}CA@bAC{F{w@;2lB!t_S0buZj#dOIPc|>%h{w2H!y0E2Ynko z66e%|CO~aIIzG;6S6yk!cZ&muy%NZDzI&rHUVwM2-GuOR53+13%!MJ!)9tBiN(Bi4 z07We%;PN~f$8Htmx_@6O5UAoE*707CBkm~q&INz(*b8$Z-?cCsdD(g|)};0HCx>;` zuviAq)>5_ps9qFU@w-Mpe9V?Gb-h!_^K7Du8vF^j(^U;r;iTb=d3Wu++Ndd z3lBrnU~FjZXj*nSEis<%azK5J5mi5=c=(3;L1p6)+f9UKdbzWOEKwV zAg%?&$$z1yWv#DSu9+|qWUTfOoTRS#Bj%xJD3$4-FeJy7tFekDMkEHw7O0Y zbSfBCKp;`6rV43&RMj4;n+-t()%gRl(O4NS9DjHPp2YC1EsqWYaJ(mVNcG2VVT{HO zuy7JT6Bv=Qq%Zwy@?c4f7ld6mpC#JlB^Iezj># zl3FFM?qrkG47B8G*L~Kh$sesqmoNEc`6BQKsJ~Htx2O~TU^JGS7r#Z#@Fz~eBG*fR z8-Mf@{}av1Opl0Lq9O?*dAo`D@IMsh0>|3z5ZzoR`JY?%82o`~4R5Cb{qn%!FH;LjZh9{d6E+E~AXX2G9NcYlctUd6ZzT-Oja1@5Y3Bk^uka)0&x?T~s1 zQH|UNr-Sd=4H3CS;q-SCn(m@)RZ;*03^g=m$yIPTYzNmW+B79wmLEM?#|oKXoL`h8 z^Or%|&?T^%#{-;&h@?ug1gTOw}fTfv*bvNPocS zlRtciUDhrPv7(EIBl@v5m1wy&%LQ7NUc@;V#2Se*QpGB^&7^{Px+$A9pDAwi!T;lZ#dqh56ou{zh`T_(h6IA(6!W_0|m&Ps=9 zF)rd1k64{vs3i?|JlFngpn)gsNTF8#02#$;p%uom;-^b~``$B@+)*#h=iByp++L1Z zhkGX{+rRETe-&SbO0Fu@tD^H@09j_CVwEJjiISg zBj!-}%Xk*wJ&Azz)-=LCEDty2&K5VAd@x2d$f?Afw*9F@4fc-bH1BL5VML>x+VS$dlakqZ8PF*6z*9Y{W=F=KW z>AgtCaS=%W&sjXHgWu8H{vlWGGr58VllLSY9>=3D{0n992TqXz0pLt?&^%XYG%wVb zvJ>VNf;w3#{A^H6P2##35!_Lml3_lCQgK5%P@;GjfHp_$&7gb44}W4s^HPc-iWkkx zDUK*+=m`R%Q#;^V3be)#X0mXZ#o#<1&c?CMYm@w(sN@{($z69bnp_U!4l0*sksCCt7K(cd4$CCUrI{8PHSF2Z7Ce%XK6AI?=VIGNd9Wmxoh)1SMENUdw zBS!ukrlgU0s>Rq`=>$(FRY}08l9D`T(y ztm6x-^St`Jh93PDpN%`gfTk^BI$DhnS(O}A)(c4yi@X8P6X%7K1`Le~5l^P&RZrl= z2-^)&Dd>#fseZ-O?EB(|_^C_rhj*}98c9t#_KuL-b4rs_c{Nq&xx#zZg*{2nWZn5` ze=T4U5o?4FK7S2I<`p%}#AGU8-x{34&`<&%ksMayf2?pL@`- zhyab*-x9Oqw*?Xnt!mI7bqfw*)-?YXjS{nnVB(IfG^W8K40cphjJ|gaS@pWoiaWK3 zO4v87to+O`)6>rvc+-8e!hAwnqU{T?>d8eTY*uQ2*MFk{M5SrCHNF_r~h=3U~f8THUg?*<7UyK5w~J6J{RGOe`)vWwD05YheRg@44GZ-8>cA zPOi}4STo#^U||Hf#Z~dAWwdJ{UiZ?K1--6)F?2tm)u%t$d#BZ97=K$=7wCoTFxLiK zacQ=W!ha6A1|cSJbBX8<>MtrmlB9M!Yai3KHlF9-JGWyT8fllZq1pi$m%x|X@{DDExS ztK)j{H>6X z*(mb)#A z;#u#RR{wBouMcm5PBNet{feU`rN=_x-CZ#lM@7*CNP&Mn>xjR6c??ELpB`(A;9wn)y6<#uyJ$iU_bh5{Y*e}Jo6fmg|pW8$s zo?wl#4dzZLieZwT$9aOT9dPnII8VkyT~p5~3L^w0F2hIn;sJQ-&G39v-J=xor+6?! z%!)Li`pJ{sos-@;JA3j(jL@!>0xR1`d4H=X(S>Zvud+Lf|B-3fYDP8aT?c31aDr$*iyh|K-asQ4ymQ^nYH( zmmOXS=OTyOr!MP=NnD<1!yeIj62t0PwlkVcVWC`x@L#Jk;yk-F@7xZ-)0;PVLp8V$ zI?>!$g)^P2`i46U=(~MkM-E~n8VY=T6%(d;c9uhLsTM~8k&^CWHbv|lVJTphiKApwy$dawr)e>axrmZ6 z?x`rI1NEN9Q2MF&;`+G~258l3e3qoCQU#GAk<^K7)|uo>N{)iDWNp!t<9|WC07*;a z2pk{_Wp53#@obWcpMKJp?3JECEzzsc&^I*bAV(5bF3pX|*n`F70*RZF)WT~z_>z4A z50W`#iT-V=+A~z)*c-%CuK#XCR4VqCqzcOLy5)QkjW46CLUt92+t8D+4J%>e_(ED* z3ly4_txY3HRM4G;gwWtcTz>%s6ngFg-^m!fqf(4_!xRLq)4-xG8H7lg*uZj|LTaFC49@TI_zDL?bsTKmY9P=w zb(v;5>a2Pg)3f14-MYfx&JglFs^ z2WgM6l72{5lfJK{@-YiH*4FKMK^ZWWZ zQFe{r5U<6Y=wEY&QJ^vma^i9A#nJKMHbnGw+6VVDx1j~G80n&tMgwdJrHh=a@b9Wn zmGX+Ep%inAyGQFiwGJz@DgH+c1LZ4ahZYD!e-UOD6+N>6Fv|%XE`(sx@;A}um_te~B zEc0{q2qs^DI0Dn(KKW}`(}t$0HhFv6ctDuIGRZUm^GyS6#%rz0u^C3OYXV*YCs{9< z(wYM(^O9B<11*OnQKp_FS(gcC)kvi=HI? zD2lAdHn=R+FbteV=2`gpSIX}ITX%4ogKGYglC@CTE%CUF9DmdzE@i_b^uN=*vp^k$ zki7cvAyJoHh!=k=Ooy7EbZHXdtGP~&RdSUJfvq2k$3Lw9J6!y8;raLeE)Q}{B(ac9 zTp7SNftf0)w@^^@w9V(?xucd+cW|FY;oh;EF0_zUxI>6uQ$4EWYd-tyHLym`4U1kt zWgwU@HAen1x2tPlH*FF596=%gx`M1uCBD|hGt9BfzS?dhP*lOlszaLBw zLECEhZrOjX#fkC#*H{f41OKBjXPik;E5e>x6@-c;g|bU<^Ppljbbnh&lAvlRm%ymLz;>-q$kSIfTlYk*KeTsuPVkQ9W3;!)>ULUZLtsFbc58oJJb<@{LoCszf?c<~nbV)YPyovJ z16xV9|GUTRhM*m)CKlSJe*inQPqb0lZp`k_J@ zRzQC&YxAz=yi`37HDbd4t`ZV<(CC1xBS!q}osdDQ3_+FXb&fh!rg@s7>b=AhF1WcQ z=SevaL`qmyx;AHP`<2+Zn-urVM^!_Wk*FBtCy`H)N5d_+C4Y6Cj}Uvcvxs+c?s1AH zZP=T^;yc-pmhpJMb@hY<_QT1`qrQq#VA6kH?pKof+kf3Vdhx>!|2E`xO?vd~>+{>cfle{R2s4g+G6< ze%*hyMI z1J3<4(H`b937$fIvG(leoxdD!AHH7OPI7Ugc7zWh91t9V!uzai>(5ptqH9ziddmBv zb_+1-N1VZ;6=yoT^5o`%f-!e8ig06(OeHJNJLE3ROb<&W@W=rR2x z_6XHCfzFbqXS19V=~is?yx~fc93fjmV_7ZEx4o-Q^T? z347PzbWE==H$k8ytEpg3Rsw%lR#5zynZVPRoPKZ8;SGCA z^pAFrAZ!BotCX?7kg*{VY6521ZTtzigpmD)o=@Cy0yaupuC}=S zvjr*^-cy5O>fR|1H#+8g=K|`m-saG#28uRF1RW5~1$}3lfB}EI;X{{r{$c}q!YvSJ z^R-ZmPp^9S|n97%-4or5Va13Lik7W|@@tR4}id6U5~>%9@@G zIV%LbwAC)bB=5yHK#7_C) z91wVb9L#@d69A_~J3gtBO0(^?#j4}-Nw1ih()<*X{8^=StR2I&16KpGoqh&qE9{Le z)%Xz7%CbinZCfN}qT)_m`lrr=OEP)<<+CSgvS0JsQX0%`R3W*2{5R2|wZ2$>xfR*^P9NimhoZ5nvc zCZlAa&#mS9_J+-^W)RKwjG%nQj;;b1dPc;+Aax9|(z1|8^&maROVAht3&7veKfIqR z-JqC>{h%s==U4H<&io!yW0|jh$76p*3^QPk4|XCe{0;DYYMV?JCO<2>9W^7o>w7CLM&xdrN{rFCm7Nr901_9@k#!^eaLJOEt{YvknvPes4e8Yc4B*vRhB$TDMdEqHt^V+b zVO##!dHTb%;`t97>%|Z2KM#996zw01&Z_A0W_C^OQj}h-&iA3~8nNj59$wNI21I`+ zu{7hy$>*4<0y*9~T0|B3{>)jUybhI(ti0Wv`w@^}!0}qaJ*c!7PBQ{(ikpP~+BBe2 zZlWLN40&(Vk%{+b8}*Rn1SgpV%GuM))$W4IoD=n6mzldD-$B=H{A2dr#=Z94qMqCQ z9(r!`AG7B+zkbi%R~LNf-^P?%d9Z)vZehu-tk~c!HC7z%{?D`FR#sLP8*t{an}2Q7 z&4keP3^$j_j@h=d(%fiUVHGWJvCXsA`U|bKTi9roSFOXkM@<{gAVzG8vqpM#iPs0& zb*Xz-SN(s?2_s~t%~!k)CXB^~8t=G`Z`^VJL`K>zd#?Fl+x*6T_D^J<-DQ8D;dz)7 zo&m4fV2}nAok4|b__jT`H?ITD9CxGs@=Go5t`%0ScGGH+y#teLlO3xSc5J&6GCmgD z4HaWy?U|^M=voU)7z>=fyWij0yXXBKLp{65FgLc=(J$cS9geQ0-RlrU1 zcSPQ`a{@ao`eUwmg)5~<2$z3(G_}#X%1njc(lJ`pLA{P#!lH^iF|NU|%x0k5ulIHM zhbLk$J;%%3ctKwQm?IW|#A6K`6NVv?U051ChfxYI;Q-Vso_w$Bb-OLpGsI!YE8Pk9 z-t}{Jn%XG(6YoQ~*nW`=)eUnSN5ct=WGa$eRfY8hD~D}fZ(vlbcISV&y|wHW=FQqL z%~EG~i<)GbQw{zxAXPmp)aC7=6#8Uz1i zn&xfmUCYSz(ulNV_(6XM%g{IW)Z^7S4a)H%i#h(n`ntO!R9))!kgM5N!2~=(UEg1i zF)EcNoi%oE$iZjkWJ;y*1q@U5M*rfl1fpzWFFqd}_bWr1aw!80CarDEOPJ~nq;KKsroddUfovFNfK$!0ZKkE0b2*TElP#P^ z_jmVR_4i-wZ~t;o6RL7w^%RVX#~eH`vAT2MZ6{Z6f?Y&Nv&oiYX*A_J1?neW2W;;2 z>myuZ66Qs{sn~z*$Qw?`RcTmyT6R#>OwP4ES)HhZ=)CFLfw|X7JE;m!b?UBf-LK>y zU75)FbXe))#c1~ne5J)fn^dvk_&|l%m|D2C5TqEV)mxGcj;Z<)xJm`)dAQqFFq3oo zRRBGv-wye1Tns9h+Ha2T4%u*=lAtA* zxXp9u2w8O;fNZ-;72Lwp0o9~pILq=YmH!2&)pu|up{KKY+xy3_54KMgg#Y#U=*_ELyxaPo;2}1(oQFC6!ICF0 z_g}vk=8u0Yd2*gi!=U}+H#=~}_`Lzu@k~x+8$Alb}3Q zCb+688>rD(Up$Y@+Da|Wj9YFQS5bHdZ@3OL_W}~>C)Jt2+yGvzjuppi6;2?QfOezB z12Ju$X@xc;9a3nTjYfp?QYA)#RAcfwI=B zc5Z2?KnPBx4c^B!)+Jp87S`a+RzRz;QV!T z#q@uw>C0QmO4Ca2Nno_y*;Ht#FYaG#G+hDha^_R5=!P?|Ac}f5q(RKS_}3S-fwDpx z$=Cw9s%+Y56Nes~&>ygyQ7aI-$Q|#`E!aZ2k-#aekJY~rbfM4oYbwVE_a&J_=Q@Wcc1x|trY^Ekhw&75ud*~eFWy2FYj-|+Km={I)sT6wvPqNE_avCekDydq zTD3@e+bvkMULGO)D^IKb|K=W_y*@hGhe(6<$7ipzg5H(^DdOOPNoSwv8? zV>FJX(J`7+p#B)m0h@b_<|AC<7>$1y^^Vcp4!z+qT2(5RK1Op;)EuML_GI-KEr`xL zMsr~9^%!juN5w3kdx%!wwne@$7396fco!bd)!?o_z2Vh0JH4sO4m-W!neORLt?CG! zrG#Kt~gm3ivsW@zbd?M|v8=+fF0eycSdSQ(VNL zJIy&383afE&las~z1z1J9)!`$<+^A%5P(5jOH1 zlA9TMP7g~}q*4494>m)_UZ{Wn9b?a-p@FgI!28A?&ounn@{8e9_3FE_4hf=g4ZjeG zXZ$T#lX@a4nYVGR`Y|knQkFKpsmmCK*+E!y(ENPp|>)U8tCgp4xFX*|Oi^^`IUaRXjukD`XWLwqliplpQ4+*>! zBA08%|S zdcK{CaK*yTY#N(4o11??r?Y$%4e(T10*|HH4cF;dYFkt$BeloJ+YJ$9IVOdQrS*>A zyn4I+UxA6wMdWSw@w~++qTw@9hhOJ0Mz6fF+^MLFLFrMr=je!+1mPWMHW7fi-G4Xc zxHpPS;j$80frF_g$tosMdESepI<8nV^t<<|_qkh_^GWx7g${pR!Jovs7n>nWMkw`1 zu_2xifzw1IU@@?n=d8O>#yECLc#P@0k{if>rzItC%Rc|4= zbk~T2gQi|0I9PuZm9XF>Nj?2^P=AuN!?rpfbMU}PQvD&%9iAjDBBY%{@u-5jrPH^wgS;vCbj&hxSESc#t{2> z&Zz0Vo)zbPiS-(^um^Y&my~7S`jtJLoTZi)ndB=H5=dXX`)mp z7jk-1PYd@6qx^4!p7$wcr^DnTDNwedMbPl)VjCF+$B@JbN$*~IoXtut09MgHe*73@ z6o#Zz%8^j~E0`_G_!w8urQ%QV0Bh6jAYQ;HE}4H5>$lgQW)iV1)KQPK6^^_?V?UEmKg5EieF;0J6O0^jqzR(NN!(=pyF*?ae1r>4I-DPxyD${SypT?#FU9Evpr@X3# zL&nM%vVUck)Hzb@;mJ&m`^l4t^X|zL_pn)=)>d^5i1Bt=MuU%hWL!TNZ7GGazc33_ zkgtDc7hpS#ret_{sPqo$B%1209PQItGKR%K*Iw?E({8Wq4LVJ#f*W2w!B7R>{F+<- zmuzw>>otXUW3bXtHK{lERM1V@Or<5AIKyjcjWE;tdk%hul5e)uq1>CCM)^lh?qPNj z7#E<#1a3Rv285KyC@EEtcI)XBZ z4g-Mu8nBB6Q=%T93o0oF3NyBrJ|)E&Y5gQW&GOW3d~d#>zu4aSP%G?mt*cwm*8>qW zPf=m$7wvdQo`e)>wrc_!C%Od7fBv()0Te} z=Qt!2XMfw<*-+9tOG~*vi6#@EHlbkiviFnXJYFEYFVLtljDKNlocX+;i}PhR9&(c5 zJH!mqsuO8q>Aj|T7_~)iXhpQ71YV5>&UrDUX=8%WWe!Ze(eXcBy>*>k7%k9Bd`H{t8d&2zZ}oaRq-T>}QPItl~p$ayg5$2~IefsTUPZ(^@v~zZN!HI1@8% zCRXQ3s^PONx2XT2Bl;P{W3nPpk2pmgDS_=OO>Qt5i%iSrS!WR? z-VLY01g(|BJ8xh^`}1y^*2igYffi7cV?YZ8N3^3kH#_1r?lF-@2y0Kfe=&%2*a>#` z5^&cF#~hB-C>g6w8-#y4jnAWtB%9@If39Xmc#Au*!|j2xKh0F_WZ*WD#Ql+U%T6|# zM2psr66iGJ7%{=cB$M+z!X2i*-EFDID2-B|&Vf!8>K#e_Mw;G%rJaO@m=&-~utDLr zAHP6e>8GJ9(Ahsp+wYY6&w5Cat>vo7crqQshL=UL6U^5q1M+`g_3pJs$~M%b6rN;K zR+5P<0Q;Jk5j;i=E4t|wGRG^cyq;a1jM@TciKHZR0EbnBt(ZeXJI4~#6{EbW+D)2j zE8iO4^tOhT2sYduuJZHAlYxuj$rHQtd#;TKwO~-7g?c5EJm}n3pTI3Ugworv3)rNf zce4}hG|8&nOwfOCU0=P-s>1ZL;M?d*FQs48i=(hCpa&~2qbpiQJ17-TfAV;GM4PdV zSQ_G}TV67Ba2};<(l;u}>?ZTFm*>e??^m+OG;AdO1lz91a55&#)64@=f)_BEC^|mc zdyD&2FY-9PZUB8WjZ@f+xLyoO0^JaJ?;;w;7M2t}%yNJ60QY@q(n^H{71>npcHpkI z|2!fesa?28vpgqWtKH;fIAY2y!f6KXB<_Y!a*X;IO zig>1_iyVr09z|Vn>1HlPHE3LiqA*Z1FIZYm>5hDzO{eInpfR7Xz6D1aZ%umgdi(9GqKgYs+)<+a)Cd;;S&BQz zXP(wl{v?=IB$Jt3SwgT7xnQGvPPjcS%guk%Vj5k-ZV@lZ9HnMy{Ao%%(|KIX#<-uP zXvOUs+=afBwZLodGv&tSI8+siHoeltV^>}DIOP0e*6?lEyAnYfm|TFl5bYyM&!ojG~>&VtVTEgH{)r47-w_3HC-r?k4o zBiBHsUe91YbD)<^eGGrq4RvSZw~c?z>l%8yF6CWIXV(zab*iuEhg&18DwdN{+FquY z^{r<=qgRrgQilcdH6;?pcHSH~q?iG#&J2_oFydIx1|W?W#1`w|0Gz{-Ew953$H653 zQsvOK69>xA4qSS@`I$lE@ubC4e>kNpEvVA$uEm;4xoQ%d*D6)j%x?k6s$hS*wNPdy zS?^p(MGL=MHV5EZUCKjF6c$#{3B#75$6WdH21Auq0EHvuIwUF{aTQtd+Y}a-h9_c6 zi^n!1Q7MJk);Q_nzlOTLp*%>c+ZK6E&lj~FEsJ}73~Z=$uS{IrvxV*2qFI+gT{XRh zgoQe)@nLB5Z7eMGSRZ5Aq#J*Ai9=tTVe5+hbQpgM^^vYR+)EBdr?*^QxV^UOWUh9# zsRNc3I6rpIA z*m4QcfM*#}5IK=ijy{(2%_93A8RKF*yJyQ#47)>Wep ztKWko%rrjxzB37V5tEZ@?Ac{XZ<7-Q#wuykZcsGth+mR&f;)*LeXj}KL#6gYFH7*Y zBPV64?0RBYl)J+TuLB6q6ZDdQ^peA3l$z$QN{DDTce3#Fs_nlNYae>h9?wQst8w z6E)zQ0ByTW#V{!bQiLjNTE%nfv;QowcnfeQv~(y=O`?BK$wZEgzt5tygs=s&M>O4i zj9q~)nNO?4K`Zc{C0xEK<#_~w zh9;8?dFrzfs#T?0K#g+w)cFqVH8mQLNF!}*O-)EFp6 zm6rNBOvif%toMp&#F`qMtBuw;0M+2Cj#!Lf8*=DsL5L@v%9N?pMXEMXI!4KuMquGY z#o#IN=)*u`bPCi)py9MWQnVYj1RLb5)ti{Bs5VyZwcb@7Ou(xd*SW!}y>4)8RJU?f zHO_w>U0qYHWn;Wza9hk=RPN2&U0}0qn@_!6Hjj3lNvdo6t!p(+*9@Po->;1vJG%E& zxv|K={;zhYHnngaK}J~>h^#XNaSb$DeK@0Hf9N^v^!9hV4EEAmCtGTtglDUncS|l+ zW)l%I7&x>QtPn1v_x8*ljT(7DD4DJ152t?$#n`zxjH=iYTAK#Rq%H}dxK_WeogIuS z{kSba8y1FayHyb=0OQ};Um(=ml~!5IW*V@FtKc2*eidIV#hjS;pmRKc);p)#A=4dPA=2WvKb zxoWpH}?5iT;t*=KsA;{`sMod3XLmRxB>?I;Fg1A zX>UO2m`V`BwvM1`4?u{XWwcSXw6hMHN@=L0w9(+G7ZC9S&<_cv%Dk@Z@xOxUs&zE>tW^ainS+>aCXexPb5f_;uu2z>2LF|QKb(i z(u0ZgU?M%3NDn5`{hZd42VYw&-mhsM-DQ>4^IB?H{i!YGFEWg1Vk5VxBp*tdjrWKD zQWlcOuKD(n>Qc{d>|e}Ey4mw!jbj1dYSbIrmfKAPnX!M(s*Wj>7aUJU>KY3j!xt8~ zJL|67z2J8T$LZ?H*o=-^7w$gS>^c`E#Hy-3QhKv(XL^9pIR`gHEO!8IiZMaLw+yi- zwFt=`hs0L5Dmx3;sG1=vx}J5H^#NpNU&m7vD2z%bMNlZ=*n~foYCirf*7@DIitJKL zggK|?(~5r(Zd(+WY=+kwjQteIW@n1#ko(%GGCW!_0cY=*LJB)2YKYM1J7$17VQv>5 zLEhxm%SJ=el*L~-u;3xU?|3i*oo%Gn4yvv=mU-DE93Q7PX`v&Nk`$sd8ww?+BuD&sK7|zRhwFf)hUCv!kE2?mGdk>F+B>~I z+zfHlId<;*BblPkP|G|IH9l!>ntiuT^N@&Mb*UCP+^%ShJRVCyk?Z`0odP3y1csR` zgKvMm4`RuiBu>@anrdY$OD{y#yW36)DWd}l&B}sI?Z#!qqqx=5b_6ZUVM}Swh7t9l zS+u%ONZ*x7N|m$&0%Ld3H@kthHdJ^^<7K9bVt`|;zzj<1^X-)e(F?3;Q;=b^$r3T{ z?v!Y%HEuYNSvK0$p8OLqy(>*t=HhnhgyvEt?ZgbC)WbW)w8!SasHHM^VIV2iX^cHL zd&?<_nA>DZiV^Z*O8Q5el3ZHslZV>R`7rt<4%O*|@fAYR(>)$|(HUgY+@hvW+`@ky z!#jFcd|#N5=zox5vKIA>v)Tb>E=q$8o*H#LkDm2@7EcsPO}Heu?&?-q=E>=-#F>ub zRntSxm~A6iJ8(4k67wi(q1y!8-)A6M1wSk!S~LN7H0RSuTz<~)2Kuz?wE3Qlg2fdx zt3fI8iq$~r->cQY@+VKOVQ zWKKWTypB6Zc;$LJ&aSivGQ)UR3nhtkyHsJ4nQxIIY>g;p4gU3N$DmCD0cF+5}Vna z6WRCJ`}!Pzf^U2Iru|biTO)t*Vta>P&dOnlgkX?_56UAncQR?^y1)mZ21xF5W7&QjW`=D$719i4v+l!o0{cB3*H zC#mDSvJGu1bST@QhQL?c)M8GFSdv0CcvXjS!?AupI)0#B$H>M`Gs2)@>Rs|W%j4lK_ad~@W`oTJSG~W^6A52l zfy$GB)D#SCLq42%)l0*$z`TH&c3R11^@r<-xgD1o~s$Q|Np(H6mdh_2;RLw&gj4d2+{1c)tP zEjrnYwBaQB1U2)O0LyK(wZJbhXlk{(yoD9&HKR_kg&VMFO>Mm{EX9V^cVg)Vl}}Ww zeqiN2z+0hf#d&`;mC3N4y|A8)6SP#2#*lJv>(R@L1KqOsxI;u<=8iv)Ur~#;;f10~t<4 zMq+?tE(K0O15ghyS>5+bR)MwBqLbr)vS+TUV)yXO)jd6P6Flf*V~!spg;`3eiTu zX`Wpqw3M8Xw|tJb4puYJ$79@4d2CVl*)?VOc9+V(}HVC)H_SmXBhvyZM_z_*OA?Xs@ZrFO0m z4h!6cd5;5O+La>iP7QsZbaWW=a+fcQFL6*CUxw<9kiU@Toyni7Y#(FrYM6^I*K5nfZv8R z(|3_42Jrw;;~f$KQF6IBx=6v{gfvmT-qk6eX0kjb7z3IJYS|L#sf4#A;!$~&$Xz?e zX^i;XG{NKbQV{;{MgngsyaIn8lbIi@bj7m!d`vzhOqZ#UYRd}Vr$X?8vrfuKToS@c zz+)Y<`!sq;7*1TdI;M>8lH;3B0-2NDI{aL)Q|L)ei97!pU-D0Q9Br18Z`=0x`8kLm z*u3Gp`O^8|Sy)(_x|ME&m2TZiGcq}B3>2C`4q?fLTPM~x!L_xV7sh`BMWS#Ah6LI8tyKy~$Q=u@E;I~KSTMS+$-nZ+}$6}TwIew$8Q|5Jf zf$%}*qI-~a#C9b=iycdTUVuJL&S7%n)-FS9s}V~WYNU@f zAcq%4tQCL9kgWv=bh?TN8i9#dZLXY>Jye|<;ZCHqTMy$2#(3aUIq5IjRNCd8nTrX$ z+S%V{>L+^S(LNrH3uuV9V4zjd)j3TSuhZ;AwG9mr z`roA_Lt#zDsq+k;41Rue@~S&HI68!P*{-Z{+oA=mkeFF@q3R-ERWj3JJ*6$+yK5e? zw)XWNT3{iasC0O%R)iX=LJf~_%@moiDx*LqrDDB*K6!r>eHT6M{8evIRVsr14*171 zUERD-1x#tBXJl(e)o)bESE|A-9E@WFElOOq#k6(M%F2r^ymbq!P-&)S*-%ccq^X!{ z+8PyprzfeadZ71AEnW$bTOQ;`}3P_y_vXtPLuXbW#=@O7*UqxD*1!K>9JlBsn009dcpmS}8)jK|Y*2U~SW z3|6w2*}V_()pV@iZ+!bbXtw(1Sv;VCI`VjiitqP7wA}(&Ygn=Y&&h3grL;V3IRr}i zRrpvzmGEHU)i8uU)s}mz>({e~fDJj5(rl=N`UK&-9v;eReF~C zfw83L-elZq_6A*S{=<`h>-_EUqaXhEx5xkXZ{I)l(Q4jSrb#~W%5P~1-#>kLUokoM)8Xvz$?fTz=?w0pPJejn z69|7-0S)Kr-#ULY|M)P~4Ed;smGzaV!*)vJXhP+bKq%>ab(VpevJoH&Y3(I&L6Ell zaD&Q59(@^tU(@FT9$5{e5GDeMmMG*~XLc%a0DQ07`fpeNI+|Cw$yHTvU)(BPUQ*vCo;}x-vC$93&#ez_QOg;*Xe$D&;{MLqlaHOu!^@q@b64@ z=&0-oATdtHkM*J3g)6)XrrIo7i$s4qA&cR$;^vmY?FT*8|YMZ zUS)5fQtm*(Hv!rN$uAI=yj=UiRf*;4EuYhoKJb#>$g#Fn_>I}x!FS0E)+gXIZbb9( zhwm?nf?U->H$*yU|&@rsNVt}ABKg}Hi8;u8n76)Q}L~a`py{# zYkS4phxFfXAHS=+eOUy0)55K^R0^!{dhko5$ap6H@aT~&F=!2q{hfckQFXq38!3Lj z?9j^A(Ff61wEfs!kyTJ{15j_5genGZ{xpB^K1Q(JwUXp{mbcUyMYAHH?Hs*cfmNI% z-cGckRF(27ao1DuPRQHPAarCnvoSu^Is%AsZBjE4D+Rx4d@F!~v?NW7v*xgIFrH2! zFv!IEOtMk~kiuv~Ykrt5BhC;;qt}(P(|63{I|IBDfuGoTvRST z!?NuXSG7H=w_ShQv>hb2{RuDJUBY7Gpr8Tj;i3_N7UQq6!X-s%UGCr3SaeHLC6R+B-bEcaCIdiPaTh|La)ZmPH!vcSa&z(2D?(xy#>5HS6`+B{@5y^IHSY?@hsZpS7E@<3) zfGZdEeHa7ua@X{|uICbWH+B993LMV#LQR166<1PH2zc22UW5;wGrx+TGKKgA4wzrc z0>8Y7u{8K9Wb|S?=?z|=9G*TuIO+WgLS|v__a=X2LOtJ$kkNT|tX=6|a)isW82;lVL=vQK^dQI;OyzsIZ2L-Rc^Iv3wx7hbc4ciipw4}R{Q?)RSe z4)^YBqoc)l@7AqB5BmA79zXAIr|W6--v56I)1vt63Tw8)dOvsfd-r)7OCD8AAQHvq4-t! zj8BpqGhI8&!wmg>;~6=VYnTUP1?>13*!1nbgdT2*(M{iQm$2PiYSAGM^L7Rw?Z_A zZi?QpW>8ev5gY~G5JQ?unT#M&lr^9p|D~>{gUKlQK#>f%tU&x<&BwEJD)@iKTVasO zLl?D?ZCq&hEC>%W`PV#w^!5?=3uerwWz&ot8b+rIBEEod9p@>w zE%HsXK$!ifO%R&aHing+e;Dt!!MvA?_d#r!HMC#9tRiC)5)ksOciYy;aeUb?CKB8pZ_Cz zB;<4TfLsJX*uX|BG`u#&6cBf+^*W3dcb2+Uwb~nMzyM}*!SXc)=*r9z|PG;p{X*>%go| zdTrp1RxGM%+193QJ<5KS%@ri?F$guxbGQIWQTv&B z*~0IzmoUX$amK^3N)<%&m`U1oYd-Bpj~&*B8#y2v62nhz&gs;LY6pSW#i!IO)BuiT z-D|=*QSk-$aRTZQqW~&W1|PvM9FeBmV^G>-yEvll=&=btqcxQ$u#@|LTbM~!SB~rR zlta19`Z|%GS?C;J>9;8(w_1b5$8@f;(cC79r*&!4@rkfpWPrz;>fF&EUMA2ce`xA) z{BBz@zv(&a$b6wqS;}Q>Dl?fH#H5I21^h z!JPOHM@XqYQ8A}jv<7(S0}zFY)=9Fx**8+%AfvOWc{T++!bHn|?MRj} z=F#(UdU2_(CUV7;C{4{UxriyDZ;B}6kH5MGMw@Yk^3Nv*B>AmQbiEY#F#=#=~JUrRmyLCzfIw7>m&nJ9U^YE3!vAs5Ca8 zWY{Q)xVV6Upb}#FiFSL_N^E$hQOtRBKhiuNbAs6D2_5HuK7|v=!Fueo`k;A&b`I7p zU>I7xkcJ3QG~9ibM+?#cScYT=z0or(6Tn!U!f6eXX%g#!9ZVEW6x(?NO!a5+9G21k zJWd?yXj*p^6)6=&wuI*~EH=?|>}69prwV7u>?TotKf?JwMjcj0iic-ZL6dCSlq6O2 zwW8cp_k2NrVd&xI?e*kEyUf;sPvYz(8LJ(hd^?2cwln=rdoqRLLh=A5MRyJ+N^4Hp zq|l~sFzU_HVfnW)jZabm?D(R1*B@oMrV)a><eHhJzn(02+;I?ahy$;Kyh&G zTFkqD3N2%ra6uhVy_xc@BrvFBmmLyO(1C%ngXb>RIEiv(6DN^mmcIK zc>(82ylp)<6HfB{s<^PZ_>#$W2VNF$MH|=#v=2K<-EIdhjJ7Rb(vFg|`30~v=+5$z z)0&J*$|HXOh}JkJxdzZ4??lOhIvK zS#)elN|uou=E8O~pG;vci%FvXFM<404mrG3OKTYAI>zJLe2jy@0&PN!yzR;Nc8wU+ zWg$(Yw55C!l9jqdrL+~b49u+=4mK(amFf7gspEgHb7L}#AEvngQL@k*F$$pKZZ9S=w3b0iN{JZE$wAq%h zR)s{MEF@=okJQ$re=Wh68`Ra#Mrj9ZyGZ_Id*&796f40^p9{9If0&UiZzit-%+cGN z-8(GdL_Yc@b|0%&m9`!sH!bj`Kvx2PUi2PG_5W$>Q}5^A;lMR~#!8@{pQpnV4ym54 zbDC#EcpzP$H0kAfY@X24N|nTdSRqAGH`t%;V@Upb+n75x@w&6IjA4mm6~ix`9+_+D zKY#uc0SMW+u!OR-;&(*qBW>@Zm3@kp_Kx;@eUrg;qfcK?`!9~Tz5Vv$p!8{f(EWSw z==pR1^ULnxzW;6Sq}zYtf9(Bd4_%%7?vN8u7Uw4UyD zj|Z<$dZofw2mL;HS)rRvRbj6@k-^c?-%t7KrgGd0>d|p&I0q+#5(-|te$_oZecnBI zsRmiX&*4u8hdmnN>k>R&`r`F}VE^b%35mxqyZ`8&s9FQ{@7ITA>T!jaz3$Jwx(a(o zuU;8`a(LuuKywXX(3A#H_^SI~j`0;&1Fpo%)c|Q3<%&p0&M&%!1erFzD+PB5~mw%Lnf^|S-`C04EAr& zH#b>69(Cf;NPZ`1)vhky@UZDX?eQ&|K5d%fNTtgmb*UBTZ@Dr&1rUj@Om**S)B5m{ zR^g)>FEEU0*EwYKF6P~Th$!;Cf$2XaB+xd?gL0ZP(_zt`y&%%ZbeFImat`q6ONQDO zFeHI60c;30PJ>S-d#zEmsZ&$kw~zS6+Lwn_p&CeUZNE-V)rEDvF68;ErkO|TJ%}Pq zKnpsW>?iR^sz8cufzWYuVV8C-nfW?~*-9i!FWohj@0k|(_{rOUCBuH8c{w&71lxxd zH9+@6^+!6PhVX{bwPd^*#?mZ>l=?}(9N^rfl)E3yNlUrfl@*%91!E{=5WFS_5>%=DNe)l#^r|_*mOuN4> zsMnOe7XVm}@#VJtEX`+^ciOj6M}G)!xE|90ekwKmGIs7oyp5<@Wm9gv2V<2x?f$61 z*`XrmZhDIQ3VSMA8wg)*_BGQHFq$CIS(g81H`FBvT)qDVj%q&98tkFs5YutdyIwjq zB1Ofng|tY2M|$lbd7V=m(}x7cs6zAoO_Fzoy{W;LROW=0_P{&vhLq`hd0c#z>5X^- zQT1iWbUjop)9)rJ(1gB(r1;IQYDCMgA+!mDp@kXUGcA6PXN{%{^~)08hDVx;?mJu2 z{xFgoFm-Q&JIE5Ni*6q4dL%boPW~PQHz4KLklToVzgm6jo+$B06x)LH*DST~O=d6V zk7nFqT?xMONG*>Xr{iq)1u}{t@aNp&e<$~3i?{-w1OGA(W<1h$+1kM2>8r$O!W&@xXPS~O&lFG*l%+J2Q8YiEewNvnH0E`w8=m9uS6Q+g>wHNf#V7R|xrdy}zcNn~=7GSe*V8YQcbL#?U>yhx z`EA=V@0A()m)UFy^XHn3pNRCe5|34k594TH0p*{a za(~2St*HBjt?D(gMkyNb54^;W$MJ2F_aNMVThQn;F84Aq)<ubbTqhmrC^#pd1rh}lUM42A%>Qj6xVbC%^MvDZ zv6=U6=OUTy#k1rh%WqqokSBvum~`~V4&rMja#0Wj8cUhpclWbf1RNeoaGWO479##PbPYoTi33Xo@pUIH zdLNW5@!m42?xYN%gbtHH$NXW&L*dv?SALltCVg0eQ}pO<2(cNsjt37_bXmnV4zNnO z2M0ZFTNgW`X-zxHE?$djhVe#IG1@SH%Lqb9Y*=cDua!(w-BB4v05OJNYI%r400W|d zpPSuv>V>K}W1>$moWbohafh_ME$al>Ni;^r(oM~%QS|l}NnR;C+GYM|mq%|B#J~<| zqNKRuemsjs@Ml zbgL&+yC(5J@|}XoFrF6kG39H`@ZGHlGXO-dlF2+OZk5h@1&kR-@K}th@v3+DTBp`= zbLc<|nfSrhq-vP*0Y1{tKn7@kY!OO~0|k_g1Ufm6XP1<1$b8~l3LCOguJB^3+Poz~ z0Ry;{)Kvp%`;Ae*dY}f}&GUG2fiF{WK4CSl2mBn_WvWotBmsqLf|Wb&L?Y)q&qn|0 zwGs1jKd5@Fq+)f4(m)VM2-7{>57I@Hx#WQ^9@1yoK13x^&Pj~uH4XrOVa_I&ZlY8t z+;T`|s3hR}#G=W=?{=uScCeELBsEkGv(W=3By6{C#=-{=N^NXaLvmG*Dbs*`ny_dU zV_oUTRS*XSBsJl`tD!B2NA5FB=)l)d3qkzA*F{X-fBh`T(EPoUnRUBhu6Zik@EMW6 zS2JNVY4LmHtN#29D%1;q(ke>Q8yz%e^TZdwNCWnZVLZIl&jL>7g$apOrSr)MQ@uf2 zINpz5VVzMn`DPZ4)JWrL66a+3;Chi7RWwS9S)SecFFFv6KD^|fUI6b^+)9adwdoA%}hnc`=keaI40DloY5-5De@IW>o;+ z(bQ%)=}?VrjwW6@CXaPKb%bah5GtsNO>>tgHY47Q5DFvU7b;TwdRoWik^?5#dwHO= z+&+iVyW96E6$W>4E~{K%vVGN_&gB~-sTg_L6l^rZ8K$6vRJhmp)|Nda(nIbShC^Ry z1EfE*n~8Z#2i8x2$hvN}VQ4plKeUmo+=N_t#M*^6Q~W7wYvY$h3=QAWN4UtYO&WE3 zodO3aT`O+_I#d&ZgC?lE$(sjc`T{L_;pE-q@q*a9qHUlYkF%Iu(SD=c6{1vR2wSLk ziFzg7jmyNaB`#&OO@}0xUWg`ZhFqp^!&8ywyhhc%92@X|KglaN%O-&QM8A~?rDJ;A zz<=vJ$>t(-^IcghF}U?I-)MN0)4T>IJ~;OsCZCqXQ8+e3valpR{oRhzqaG-s^gPSS z%H%UxfSKCiZe+sb2ZGra?6b@FT)8I)hqW6yV_BNY?o6bWTC4-ucRi^h-vjWA-a0__ z7!Cd&R9(S;oFw$tDDJfLGowSm)kk`rsC^kPFw_Pq#IGyi%OZOPfllLK0v0kOd&|R@ z$P)(NAjb|O%rg)X!mL#YeseF*`?|kbTr|J|7M3yhMM*~~VjKw-*j%KTa`qHChjl=6 zvo+Hk*Cpvnlq~ImRV$ju6igf)P)twRG*G9Y>N-t-6jcLnfx@cmRV%J}JWAEUg)sS9 zHP|II*M%x8k0@}u?|P4Ln>VZM6*KDY?~_}42`y2Flu;E}V*=<-%u`-w*t#QEjWz`I zNmng(bd_eR_2)1sE!4wTJNK_c4gb>B>Mv@C_>B7V5^Vi@)wF?JO>}Mkdp)}La^fTk z&!MD$mYbO@V}bP>EHuEX|8J^{Kd4Z|YvplcZSad(&|g))dr5HMyMy6?IW zes#m7tFP3X>6S8TnJKmcXs9=2x#Rj33{cfhz{^@)^co5oUIH>@rRDi0TBAN6URJkE zE!a{QF!&v}(Iq$11?CgKTEmUCff2>8x(++a!-`RSj=gt@J@-qtxzwY$Vnqe4F7-Qq z;j)I8I@RGzRv&&#xkMq1+uAdU9bDC+dlsksf+yvD#f_7MB>wC1X7uAnkr?(9)o4e0 z*ZlD#KPfo|8TF7KBz)O@_Oka0A?)6Nd&XsET2Vc%MmrZ#|Ml6Ri!t%#E3BTIim7nnhewPbchwvdXrAP z&Qu9_7aJ(_<{FDqs-lsm-wIc?Ud5C6g2ug3%#_Nop##wj@!`{!mlc?W4><$k8y9cccP1>Vp@XBR$(tF-J=^gI%`hSU9SMmEq zP@k}*80S1uJT?U9u5`TF+1fJwKJF-vpvtBe>`|B5i1e-P@IP3lcs@$v;bn;~iUdkM zMl7Ric0Qk=ZoVjAB} z)DT2d@O-o+njd6B=fzSPZ7$#HPR;3jE;;`- zPlxXn3qsvI87J5AM5A7>6-NgC_>n|v2Uz4&YjY=pKg@bFA+h)h8ZIWilr(aPPvQ#V z`CU-7*qS<;IPCYh^F)iLSzNqtES37;7^?&`9>AQYxLV`uIK{nxjoA1y8Be3zYz|mg z2NF2$V4I>7IgYFZfEgi<*p{i-y-+M9#0&PPs5{KlDee0dY&?u9z6@mAg%XY!_nf4- zz~YGds@Z!x$MfQHpkRLjcCD+}hrltYM`MO=6xXE}6Fa90pN-P%w7{hWbAYMtL|w!QxNpT$-q?SK##KoIB}HB)cQ(B-lmwIqkx^+CFxAKEyfY*45Tf`>gx`4x26s-xhm%w zjsy--IGiO))+ufuqtqqXTU)V2+SZmv+m3BaQm2~bfqT2NSv-7?a^%xa)Kbi+sD~rB{myM>ujEmN2;K0-?mjMb!XNYZZ6v`MDF=BfbL$K+y_ly zJ>y3 z0uCN9A`*6+5f##4OoeEy`h$25NV%cc`Vt)$L+%CVO+VEXNK1>;9G+ccG<2G;oaf!W z)AH(xzK!%;26}meAS*1Yzr*m^I8p!*ky$>{ufV}4h>M|)g-nTB$t1bDWv(JPn-uCY zA1;S~j^}BfbZ1CpiFx=;82-7p_k?+QKAC~;c69|qMvYDFEa@aIE|Vo#`#CCWh5*lv z?p8sA#(-aB&e)6^VNdz1Uh%_uj$4EI&eHij&5Ieo zm3wX}-+Ty=o?CO&i{8tFy`$qnPmKb;Bj#p*Qpn(mQfXxAFq`6wg4txeglqty-PwPu z)1R3wd=kO|`QpcqQ03u&t7G=*Nq7I?b$ae}60(>im!}cF|2)#%qMV1$vi!|gVlw2Mx zDvEEqdwr`Ts+FI|=QA=@#9)1c^Gt-bQ1Lm>(_}Il-=g#>q83(UGXxCnidJheJf?~wI$whpTxY{{>BRRt=i%~R;fyOzxqW)kgKjVC0-&tONAZ1w{ zi2gTNi2e!juQ4p?B2YQO5tSh;+}$LAM@4+v)9vvDd1A%6Q!I zIl0@pLBLY_+v%g>UPcZ$7HQStg<52Nx>%B;+w##Rk@1)C{^( zef{wd^+&aJ*i<~RK0%GyJhD_T+|Zqf0q5cff5m9Pb;cNAj_;LTc}Dbq7MCZeyRmfT zrwjzI{Nxsx+m2zTz9=p~Ca24JDRiRrazbvU?1)Oc-i2(gyqC`)kn zNN1!e;Obk_tn`Xt*C>&?cVufGg88Q3fe=RRr`o8^Y}v%Ftxem6#;vWP+jMKonyxPs zdkX^0$yJL;UQX3ok9k~w+JL+S!noyr)<+sDr0r)B{jJB*jDZS)hb|Ubf*Hd&HoCb?$J!8! zx1gmJ^gS4oPvE{@HKdIR94?l?GY#wHs7Kk`p65yOX~~vH(_{jFmXc4)H6yNHp<(Yj z9woLNZ6L6PCPOrU)5bW7RMjY(Y7-6G^;r^{iwRucZOFZHHYv{>*5%vRSCXO%FvyE;2&nQO5hVfjstedo(wg? z&ZCK$LB8i(T~)ihB)Q`65$Q_O7K;u&p!Bub&q-d}PqXpuRhCaL)e7a)KlD`K3Rln^ zRaIwv6c3)qa|J7po{!Uu%Nef#>3A+YG^hdknd4XbtsUelR}WP?Pm}S;#5&o0wa^DT zuy}TK>Nn(niH;?Zr_l2}XUB7D$O@-UflFgx-$|+wa4%=qJEW;QLf03AnrRP93C=iF z;>Vp6&Ue-l;5Hk18%qR|*Rg=$r5g8Oqno5m2yFhY_Cy6^v+Ly6(a6OcYU}^wx*-~O zmVg&kXL+QXT*!j}AQ#_;H#;S)qZgQk<-|fuyp;2QBS%`teaH;%G<%NLi(TungFSJq zrAGwYfD+4^;CU{Duutv>PBHCFILyeAgC`BD^$%aF(Kk z&YSHZ=nj~zLyQ=%mXQTHzjmz0H4FIWtjaxlyy~;4H+4l?RZ5N$EwScB@^fmbm`|g~ zTe&uW^vyJynE(fGP);mEWh9ZFeCj&@f`_p^l)cd&pxQA<39$mM#q#-N8|)5k3hrW0 zD(MOc`(~T$c{i!rs?Otav4H(FH=SkKIEg1_>#ZE2hv|c&3k5A#D28!aq5;EEO{-#4eS+t0TK*4=~N`C3_FIjaI71SmQ+6ffAMw2F@SSdK{ z)rVx`1e%(Bib7eG$0_EbG=-D^ThQF(*MxqkRKJYE-k`&H#;=FCKy)l%gXQLtmS_7} zNDHT(gUKlQ&_>jGiQVO1ftZD?&?2onc1C&#=Jnpoa(liRJ zN?o=L&K<{4sn#xse7zU%IiPl<7sdso4YwQ9aXev#Lal#bt#;JEOs923v9B(C2Excr z3$4tU0lIj$d{Udl1#Lp=U;axyVD+t;Y;DuxP1nLiTB_F7Q=dzyIRk7;6JU zb+u3H=Q@Y)9DKcX>b_fUho8A2uq#Rc6QxB2_oHqHPAB*&&{KdHO+eV^l@KBn(;=2S zoD#K6vyhOG;halJ3B`l6I|yfP|B(ONNk>c$0*kq;!4WCg zO4~eOBe_SR zqEy{`UjfR3VDaJsuY5<%^x28!77GMG2kG5c1+97lYctsz5A@KhM^8I{5Pws_%7GmP zzBiy=d9Cx45%)mG_G0+>X2<026qTI>DSJQ_ejNgf&OJJphE+1&h^8R}jxAnAmnigx zS}dk*GwM)&xIqbixBYrdZdV9U9w2x8Nj$WPjV7VlO=x1r5VMuR#qWma(?;{1HpbKP(Cna+PA z)D_64y~9Ak!bQ^9U?1Lo?1N*Z6PaZ6**jVC1}ni2neoPBaNhiX-1IVIuReo2BP*M{ zxP8#jN@Yu%P)tM_csjN)w)I*~D$6%3Q0!;0X=-c%hAJLn2YcKp{@{S%)yattoB(PG zdIEH8CkV=PfJ&w~0ACQ)l)!#i)5ImCZB@F9HAPF%>*;Fr3J~V0B+S$G5$5Rp`aiKE}hY=C}Dn8FRXf7fa{(_V=!(`GjcHWOpp44*B_a6 z5_bIAWNM?5J5=Bn*!M(h(V!L?3b4{Ao4F4(OduGfOAV-)lBVt@pk1B3q_8Ep+-Ul4tY_q5 zbZwOVm=NSnGXup;xp>h*xv~brt;=E+SM*%rE7A)W#dNnvfNY5 zvg!JW;zKPFhARA?$U+W4>mdsG1g(!48d`}6 zQ1E*q0r*rcNr0MDtCNQfc0|e|W;7A6snRtn+Oju)vqAs5brCxbXT(*yh^l`yx%c%a zdNFzk>3d##39@$UyqCh;lE7xhJA>abC;X>8KomRQ}Ae*UQ zyNWuq%T9czI@Bed52~MULj|{01;1G5PQ--U$-g@Ya94(l8mC>|+F*){)+_UTIzeW+ zOduw3O&ssS4DvgC8D}>TnT#2o6@WW%yxU=a4Zo+87g#62?G1&)S`p>KtVGnMDqa(& z+#YKs!(vQDnBe{3@F$Bn%mdHX7=G74=eTaoZj$&tj9#Y%ak56xJn%|W7hgg4D)KAC zOyHCOUqgpR9M=n%o80J=k`wO3I1Wgoh=Im1yX4$K0OFbgt505T=rPm?LhK=6FML z%P9M|?O#%nX7Vi0Zi+V;KcvqdOnQu(@>3`XCA>s#-3NvCmCletXd zkw`)=mZoayg}Lbnvv!nn$|z(`x|r9KQXA8)19_Nbx%va$5L^|N7j&W)*$A@Rk`Ble z(W9l0dd&7gjsd6h$8qRzD%p@;l5i)~#g}8W{%V&U+i;PAkj)@Y+DysP)DathVl9;& zLD>^UgK(CUllH}1rq=I(YlHMC1x@3~TNb>dd3bkg-i4ZOqjv0FtlIhDe7@D6e}T{2 z+fIEBuo7Qy?N=l6dadZ8sW7)*EO#^mBfb{fg7pwgb%4py%bUhrY)egaq@!hcT{2D` zm>yyStzPgF@EY=G+ssAQTf)(QyH1QczcYr;?SeKRN-aJtXmML=@ymi1m*r{klypN) zgO7&ZVNg}y_2ogx6pyf-xJMfl-7l|;3Jt{*#U_EQd?BXgzdW(Ij2BwanMf?^P{6%j z0-nQBuPVmd&RjJj&mP@_+d^QWuf2IhhB$a-Xb#B=Ad8z!J+{c-T_53pMS3{0;}imX zo6fE5Lu)>F8ey$(v1U85ByP*DT>&Ti0x6ZvL|uVI-5`u5j(|DXcQ>!4Q5B9zvd{-Y zl{na60XG!j;~+-EcJX4r@7g*`;Dh72)`5`);d8Pt!jBF#TM0wvku`}U+k=lKTe2(b z)nUr_YIW2$fBzS%Nprt{R!%EudkzR0n|-j+#SV9(KF?CPg;4()7oAa(O!u;>;wU3z zI=a__fbfHJ2H?9+t>AT#kz@YkyI{hFB(iN!b++v=YEGd3uZ5Tnj zcI%{J1l0#pS3k6ym3XhOS&Y&%c;5^$NxhLr7;c32Jr~TFiRv6ozf|WY9GW*4;~b$59N85FDCobO zCv$L&ZGLc8?P0+QohUU&ZIpO0${i?h=|7=Jl2U;pwjahtS?9%n+vaLIO5Ts*IUU7VeSUlnxwJwZLD$^Q6{M|bdCEyU+URUO+=z65 zs%>Z0XbH>wy;IE3TG8Wnw9P(})@Q3;6*87OW8@ZDgZ#-GNwizHOam*_SY{0bJ0JA? zneobzrv>_gW?IMk$PIdQ(lyn47#AliTjTBk$%dN_LH!ngaP=@OK(-N-bE^=n_*O%G z=b2K8N8Uc9|5ETrrMz1Ndeg#H1F_4^?b2X{8QL$6bir=)!=p#C#Go}ab~^f$zp?F^ z)?`b=-io##yGyDH>TLk(?UGQ%z+J;M{K2~n!FJa}lIL08iZ%=@0@~30h^#^egq>(3 z>U8`A!lK}RkmyxX6p+Ur9xwF|NO5$}p;^i--5KuN{Pzr>XLi&< za#r5gFNT;upqY6`M8C#KU|cnj`+4}P*Y9_K>XoD{m$!7qw(Y~0tK}L?M#(P7OT|Of z4`zFvwGB)gH2_rJh+0T(U20=Muyk{ySwu%a!Gzs^h7^>u$dI|PHeg+aGQ>}(Nt|nA zsxFH2B<_?eJ)&5w#@{e`$$_bbznAC_6xDp;N=O#bG%1qZq69^_~i zUzucok8eXLG>~xWNQI!kmKtdb}C^_|e=nvALxk>D34i}p65+1evF5KF#ep%+a>p9dwyye0%!O+NR(g`aW}7j z4W6wVeJ!uQplz<$Bp;d4?IgZ}6#Nk912y3;+h+rQv70PFEooXr?-XXQO^Nb>voxZu zEt5P+yD-ENo@O@9Q_Ss1tx(RyZyvAT+M>)7wwn8JJq*LhET$?Bz|GxEv&o&`HUl&M ztILn80{$r+2E;cgw{^S!-F0?dlP5|473FEEoK|IVW$Pi zD3>H7dL9!72TR7hzT<=n`JmjCRe%8imX6z2c6kHSvX7o3%kT-R>qMn8T;+13H}_|)3mp(NgavD?I6 z)%v%y#%Ic>TL?a7lwM0O6T@{hlY>{sM<;{s;b12^I_yRL7e}vO?nj5cpL-`!zkApn z9Q=0=Ko^YJqi6rw+Z#kDz307?-r-)a|Cgv`UVax`YIzI^zA1Mnc((-y1l7r;6O@03 zrjE2nX)rGoJK}x@uZY+n!BH`d(K`}q#U>wO2$*cU%a9u?NiH(9bvQwP{wGjlRIeb- zp)EYmq_E0sOrS3=3^)E{nmPo1x*7GaviGX{=ipnXGwM|CYTLETRS4Pwpn}{uN4Vsl zL+BS0PLB@9080HQF!?)Qf65g#;Is4fD2E(b<=W~PS@qG`v+1%4#|Su^i!28&Uk$Ty zhA;f;)ZNgCmL@fFx6`VB*OiTSL31}QZ1V~;Wbv-! z=;io2vrh}Uc{CK|Dv4gAkj(Gl;9WX=0pbzYfj+mk#ynM}-}o6HQAxt=Agw3+n`BMj z+QMO~+Pd^<)OxB)Df0*VDZ3I`v5h;J|Sw(2}rhMNuJ!JK5a zwgC9n7Cuns(DtC<*PU9MTBEi__U$K&`i@eqZ=Ls=%v(xo=bY0-u~<8!FM7JEJVB+< z*e%cS5o`34&}M@C_&VLb@ygSyQa311{s;h~+u?*R?(94T+V#6oP?0`VJqsnBfLy+y zc4%uNZ`JL8r5}f~JHQ@@?8yFEu7(>dRkMHo`A;|=Of>(%ysWdk0bePHyMS)e(c_MV z;ct}Y?cCJqU=b&OKS4jcKqXbcRd7EGSHdE$M*Ca19+gqOPgq~fv~tLWsZ%p#QK@>! zqLLgk={@0kRK^uSnF?2f5<9O4=JhV0%7%qHVfy2L1m%a5WF&v$u;mAhQZ~#AZgIQw zOIGZT&>_Fj%<&7o2xgRs2Q((<0W)M_lq9T!yH;5&t}@DMGePNDHINW<3(HUKEexfY z9Me8rW*`cmUg*8?yJZ%Dc%ICB+%@IGl1Z~``Z!skk4%9>tvJn=j?A?PmB$~`x;wEu ztZ%q~FsIiF4Eu>F-Av>Nsg&i-CP+lz`U~kURL*VgKAr_7KK07^$o(h9jGZ8e$C+TN zIDm^)85L(=eqU@c?)1Z1?ljkq9zsyXyaE}`{h@|}W1Xa_ybMZjfywdN3j}O2^F1!O zV6k^hMVbSBs?^y{-5^4r7Gmb56bG*>Aep#-L-7QKt{Z-VB8q%eYE3!h;p$_{M{&ii zOa)?PYz`_=+_PAasWTXdflTctcZE(qXw~?e!rtg@8?_qEH`-~jDQ&#;qw zhMjr(70F50OB_iUH#Mo2lzuu=L7P&(Q8%~?hihLPMYkm5m1O6E-;KxGUp5>WQk@5X zT5ihIaeRyCnRuq-N$gUDS9}#YywxdUKF)5VZs%ZGPB^AM4@=LO-jVhMw~jD;MAMZ;@7TFGorI_05a8N7L2m?O|zuc{K5_-kSl`GpBo_qbb=_(K_UI*q9H+!vS=^ zKyR5uYvo3Ie&h4XA%611)z`#092rCfE3y#N3*LIHvO(sjOJ{31726euV=}5mc!Zdn}^?Q!;VN4)j$e! zPcHH($Xjx8|E(dwtP~#8A;%8@hIF4Th*8<}t`DtzqoDL6`PUrJb1V!18*?iR@WPI} zbzKZ_M)CQK<)Io-gj0%E(1(J5C|&QKh{OR-eXs^@e^9~f4@6pU;)YOYi|Nxuwv-}O z9+=1z0gFn+vY_vt?$lhdjjyhN(tfsq8k#vbk=?7SY^^i`fS*?&L67b(VaMPIAe!s4 zc*b>9B$FcZa&0z6ai7|*70V3s^CFr%b#d*C#6h>2_hO8fC4OvElz`uV6yYCCi{v>0 zMA=b_o9n=33N@a^dKu@r>f`hB z4fN>ph#iA#f>oba+x^s9y-ecq?6MQ>C$Ubv1VpFL(ZBDmN~YHmJaNH#3Gy;M{|p8c zNf7AKC5Rn^LlF49vf8I#24uplj(Qi+eUaeN=cmD=G7%nCP~p*HGMKaJflZ!P`815& zsp_9}2;S+e`9%kRZzOagt$xLUuLTyr;9w6x_5lZ`4OR_h%F@~T3A&fXPOm?I%qiHx0IO4$N!~ug# zohAfyuq*I#E3EBF`V!*E)v$9LA?L5+8loi#v6uF)m5LGrm11+$X>M?4yTHK=ZA=-98bUtkU-zU+xk*V;D zU*Q*3Ve|igKI;4ciW*JbF5U;$O0@xu!1rzs9th^Z4|DowS2v$q@~&I!gvf>Lo@T^(R{g4o=}?2>M^49S!R??Md5PeBq3NkQgTCGW~kI+?PF!v;o8AI8~YjQ z>W6B7^DwM&py;|RhY5#g6TDUHG`HYEJYDVH-osm9DsTQAo_4bHU&9MHR_<`@ZiRa9Uh{KP0g?v(0I@xj>=u38X!5Kry-go zagJ@^I-`JiHH8o7v|HaEj@dSP*sa^?2m;`XCRD9(`7=`Vg?mt(<^+$e_?(2!r-71+ zPW$xYfTS4Ql*Oi|tic2Mx7aQP`*62LcJNUBE_G6U-2z}=M=5P zXd9P4-O*07@$H2Z<%@ie(=n0nbQup-ud;lqq=}HNntrOMG8enT<;RbU=S>nuB;HinHicX%=PV{B<)Z`|ovGde{kVE~ES3 zTpTp$SZtUjeW;Gb-rf!hNot0Ht)_&&aRfDc!9o{!p?xS^VJ(SF^tO?I<$wN@?TKTN zZJ^92&Cm?f zoET+|nTNsG-;v9^@%j-3a9mOlTVfFI{kZd8;E3yMF1!%we|!E=D}!!P!dRvUePCM3xPzV~rs!3`A> z>{GTa%T}M3N4@oC72F9J$3Mgyg<;I03n>f*s<))ciYEMsruhgYx|oN4dhv{9byT3R zUVhvUtK>dC$l`*poPyibpT=XJ2me<|Yx@1fo0zaq7a_|LlWnC(A zwScxAqT~LuP%o&|Dunk8h~v7BSQ2CHj(K&3{?MN-2CWo-e}b`A52{p(RYgM;{g00h z4hN?{_x7HKlNtqNhG@+mviurSE1QzT`X;ur&g6VR(Oy+)J{+$|-=J`6>jBgYDd+7b ze!9u|#+2}H?9Aiy=Funq1C|{Bsrq>O*GICK?&M;e*q=c7cnoJ5{l@z=-Fl)GNU$Pd z1KJi8DEwD{^qq$9zSc^>z#R(PY)RQtDXwNV!S{l%%0-*_k87t@wqb+kIZ zuDg3$cO}0+kHWPJ(2upK+`?*GSwc5< zt3HK|KJs=zGUEUyAk`d=qwF8|1dOq2r=#+JcJzz42YxDXgzdD<47Mz)h;3QHHoL+q zyl3kyQ+ieVtfV$HYeaE1%vQ_MaJJpX>I(;3I0W=-DMchw)zrTtj=J#m84)|>#aWcY z5Z7m4Zb0SFW??ST_cv~1);KptX2Z-Y;JtE-S`52dSCsZWeWQ^I3KUKAq@!I)rS6L*umybT&YE#>nxc<~8xc@{m^;sYC(CH-O7Mgw! zf2!(^gC~vQ3kz;HYO_5zyW1$^1&Knv*LxGK?}8%~cVY^B#?|9=Uq!#mQqT~+t;}}d zvi-*;ntm#+4dy7zg^SjRJiJw1@5zO+m`|3n8=$`@Ji}4yNY^eY907z#{MDYiLV9?o z0?YD9q{&iuM0U#8rnogl?y_o|%`@dXe+krRZOa&)>yg@AgKJ{@qRgeGNAtjP`>44M!w5IGI!y zNGmEV*yE^8#U_V^%k6Rmui-Z5xpgks@akVjZnonE5yh`X5&1sf#wX|Fu71j#e;e4S zuwcD=AN94`=2zRcy!&Zh6CApp{f{WufMxEq`7wV~?tCF^+%pLu*sKK`yxW~B$e*a#(b$KSqG+Igwu zG#jZA78@_=?}kHa;t1zVxME+Ge|3cY1Q6HNo)S2S+6kK}QKd1YrT=$l!2c1l$&|Ki zXT)3#J%NuuS0txf8M*>|V-q{q}N;=pn?7Bn>c{Hraal3vsuIQtA2NbU218%w8 z{{2t!cR#tHz-7hSW)&c#f5RXDRDV2_=+-qTF+&RXf=;=!9%z?N+tEMUK5u&;{`t

S>Q|X zW7roI8~vc5ay`s(fP~jqo2)HD-46BQsB@(mqL_dyT0M|0jf(H=e{ePfkV-Q~F%p3E zk07L=ciMloHS9{CQ1K=buuMvS0vn~O^T!K?)~XHw{cN7AgY7tpb5M?O|Bc^6UbH;B z+KDb_vuUyO-FG)PH=SfyB%OSkc9PNjyBFD2GL0{i;=7yt{JWE+PymLP-}T`^?^Adb zy!dW90r}avoL!BVf0PWrqQ`+FF76T+Ml5xx^hoJ)k|)L1th z;@`tyO0tW_@d1xPzE?(Yz?*9ER*bN+#kW;`n&C^2jwo`-e+zeh=C`-th0l*{V*fT& zU|xW(=>szg{>K*+mhiPujkkjt+J_1d!FBa3w9+bIbR(F>0p|%jgM6)dI(&Z% z(&Id3TO`hmwi%P^S1aq$3A&X{vKu9c)tp8dDD#x}RqbLqyu&_$lqAXdc{)sCe^6&0 z%PCf)`!H4c6>6c!hb?ib|tvBWb9fYdU9D! zeU)fRpJ~g~wQPVvm5!)+%&Hlc--gO>Mf)cU+K0+-fBj?HlXmTXB7Ih^N(!6=%<|z0 z#()~Rg;Q$5fBqw&rfrhGSNg6-^5HQ9ctQZ4s4ZbR08a?OEsfwdG=kd-0Ji|(mPc?) zBe)HXpdP>zs~h_&97oU++SDI}JNWX1gJ=PZo{|@~zJ12@8f9BmmCekx-8sXpH=B7D zvnIB!esRtvFpU!7s*85lNwv(s$i)E2@;aT!m8H)ZYw zg3>d1wS^;es-(+u#uF~kZ?~z%-ed+Ykzi z_vu(^D>Ktjao6c7^>BI$LiF^Mo(MiYrK!RRlYk7xI1Y~n1drV=aXc7Qerw9rib{$i z&QrC(=)nQ8rbBom)lomeK%bNhx>QSeOv5*C8gS0ZJIu~~f9{Ryv

B&I1Tpo!ze! zf8b&C(B_w@6;SG+qha;u)2TX}qgR4~);&HbOpV^;5-+(CG!~mQlTc6Q%>)3n@>B_Q zZGgOioV)x4_dhe>ReGf%`H&3fAhQAG_}-9Odl%`@G<<>hgjBtXIv12@l;GGAzKSQ{ zXaOVGfCQ(>M)=K*5`&&4AOq)xb`r~EIv(W2sl;JEkcp4j_)!HfHKu>@Z zQfr5T)DbfbR;b8%jbeT5d1}=VfO@(SOa=NqtPqHBZzMh$ja9n!jCn z`Qt|x-5p?*Pp!?J=s6woy=K;H{#363jU-~1xJ1KnAJ1-qdDhgEb(rTzf8}2tADs-k zhl8C69OwHlj$Xgqj}Ci3_fDdI_pm!S`0pNoE)15Bp8aQUZxEgIp7&0AhkL#LU!vAk z%sJs5&b3^JEU+o~U+2mrAw!?4vgK_Ds4UJ1^w~Wf7~SK~f8th@Q0D0H*-`gozkjgL zcj^xw98yTaBSJ{XEFyNr9Vaspy$v*>gD0UuHKGS$z5`nP6b?M;yy3 zXrT7zE4|r)X@)ZAh$su-sKT;TfRn6jGYcg6`V_Nl<>^46LY@x*e->$VN~vp}do&1K zV<;MctrA7)2s6T;u{b!>6}NvAs+acL|1=47t^iX+PngFMTWp4RVf|Mi=8^v#jl zh+|4;0Y7cM8Pzj%e;m>}(r$=qPQnQbps9boii&hb+7P_IaLtdyD_tbh-E^QA8q_xt z7`VaY%y+0lb%r4Ohc=h(@4mhVt_lnd3( zfwPMEBY3o*TD`7|Py6X4Gd62JXwXLP%s?=~(*^MQu-X8W)EO7qS2@~Ljz0LkiO~nk zNzn)QC`4C*f8AJyu4mw35xS;!VY zdWW^gz7iwDOLK_^^&Z@tX!enQ!UmG^{;<%rim^%I_D)8lz}|xCmNs3Ove;=PSM%bO;G|;TgcV!T6J4>&U z90H36DeT{HYu}E35Yq~GYlJA-p9zDt9d7VeNQW7pqG}|%U+F=Jqui{rNAr2lNMf6k zo{dD@C0a~PwT}I>hzfN;Qk!gkv1nuUcOjqggfI}CBEwP2hc?XtRkn7q{vgRs;b;e$ zu(r`wf9jYyW4+O?pfH$DQ`*8&6LH?;(3`3rPH?OC?@ky~3#E#?%F1OOuVB}!Sy9h9 z3+uI2ng0{`!dG83!k1!|3M@be1`XadjVDgp)w7WgVS~)9tY~+I8q8R)2X+9l7~a@$ zTq=ALNIweE%KWJod!U);cT~}E1Kf;?B6^D!f0ypd!MktYK6?iX;5toiSmmNOyNq&a z_;N!y39tZe8R+c@5)p3bpBoLc@fqImdm|oUHB+agYQ!?`D&*B=(XO9te3WtEN(|6>ZVOj%|#4z;m-u~h7GhIkOB6ij=1_ky4L)F8{e{&@V2%}={O*_3&0rCNmzO{*$_FPXV05$rz zKf|{!+;@(Y^fGLP9L*|IZ80a{n^=6|%omx-HU6#iW^ma6-Y`VWC@^B8w8c5Rfp``d zY0+$1Sw>JmpT)!XhB+&a=%pcx0)*8a#t+H5N_f4WBilBZ5#yLK}teZP8tZwK)p1$2P3qtH&RPZrt{Q?eq$DC;9- zAZ7%PTd{WR-GE{gzv{ndP)#FqW7Dndfz!u_`DAK-l_|PugBlX+q8&OsmDdz2eAP%n z3Fzab@=#W@SgG$)w6iw5(UwB0f26Q+;RUy0J#w%~&(j3+T8 zauS(xL~Kz(zQ$`X&#W4-R$09e#!ktptDB;67YK13<>l!~mike-m3lfhC}v z81D1@7I6K%O!B$COi5teuNf;J>7+~c%>v#W-&N$}N&uBhTHCT1^i*nRqkAOAk z3?Esp=*Q{C=|{JME(`>Qe-12Uz5xT7%0By8c|*pNonFf$o)AffF_G+A3aIWLNS>gj zyDO@~t%q1D4`_h0wuEJ8x#0rb@J>f|PkB%VDQ4;*zz)U3MPvZ^kW`a{eN~Gez4pQA zVrLF=7Kd4WrLco;QyXHyqE6G58+reTb~v1aeS>&s>|UR;iDQQ|e~ql(#?2gg!9r0N zvT&fkS@cs0di>o)HwpT_ke5i2joIzT6U`AvUzn!gJq)jgW5|ZWx_RJqX0r3}iG}S~ zBw(YKHyLy%R20fN!VdfJ}a3hl5dde@iCjvP075*QL1w&R% z6NQ5^0LNu4;j&xHnSw8ctP|!|(Y~aMYO6oAMUWb_{txRh57;Ack{Mr0I(5JcI~CG% zInh}uH&+pwl@e3R!$opz1sPVu4Vqw5Z+xI_0R9p|<)l=^e>w>j+GMc!TfvJ=UX;Pn z{?QJd5p6gdiI9VRH!6uHp*m%GGnDtPi&aSSQ=H`02y9CuoZmE9S%MX1Q;NfaB z!k9pHKDg2^aeE+~*8!Zy-YtSgi44cM(AxU4xM4%oB8=$WXjz;D6k{tUSH}s7%ZfDq zm~}8aZ*J1$e@=vZT|F|$z#`s*aI|aE=h+*jp=KULl<;T~CldZB4khf^;wzT!p2?$e zZ)$NOp%Fc>uUUxZSm4MF_^gF*1vT`5S0IR4x71BNQMjKnUA%+fGKBHme469liS{c| zv*ZE9Wk%jQ%e{9UkLQ?uBw$aSnXAH8?5IA3vKiI6e=C$G;qt;XRZBMz1;-8S!R6({ zz3$0RN1wF!x@+6!ar1oyZ{V0WhJzcNkP`_mr3=!D@ND|=BOCo6zUuY+-Jg1&qEQOs z?hGBiqvE!hC08|w3td@Yryerw+K0kdg}sH+CtLW=&J6IUJZHl2`{sbjRv$R&U`<7W zmsvbYe?|ur!m?Q24@7t7Pq?ebJ7Uu(sR6K%c2E_OFwKLj(&GSDwTT_jf=b^`lurRx*p^%GMz4B@uTL2X!nx=hUF91#2AZ}QLCd8_ z6Boki-qEX9-NXGLr08h!O}jjUc3AFcucQ8564BE6Q%b6-3$(>D6+qeo>c&@uqLFB+IJ zF0o)Fo^32Lz%w>uy-GOnIin2Ae+F~fz{7x+E>)Fw(n&YXJqtBx^PWfJb|vpQbpMat zh4l=Hzl|P0at-5+P!*MMRfVd%GHcjEcn9n(iJrzxxI7Y@^V>R+sQ=RDQF9XABAU`}l>K_aajt;xee_r-hO2QCK z%0NS)nD?zM`V}?K%HXF~kkI1sRaTHT>Sb3@=TP_ziCib&7|$&Z$`~h3&Xf>}n&nsE zxp3HZU77^9W@Y{Zu2!7^fh*MJKyb1j5GOz~0OpdlBm>}KU^q78mciG>{Qp`p{&Ic% zDlz_yuBAfydC&_(`W?>de|VD~E(+>*THiIS-vw45*w52jcVIuydR>A2Jj%+zek!jB zy7wA447z6|-XZLs`>hSTcetxT*gcJkK2?R?ms5esg-31CTb4f42fY(j?n8h66GNf! zdnaz5N+51N5TMS@nnh@qR_NM-GkF+Qh8ya*A~=%@mkZC-=4g#%e`8Ug4^BXu=v+ic z(bsSQ8kPAi*_1CET4TNV%C3>Nt#M-1MsHEsbFI^N<&4izY?wPJKQ@f#Z)3Z{vnLyI zFg8rGB`JCmL|ufEKM1;u)0ZkHx%FP3`EZvZACXk|uTpe=80R9zwzjypw>^3R3%^M* zTz!AMK+)_ToY?0ye-f!{YF*DNp6XNvE-eqa&1Y9Vc|fG%xr1n?-0=j$+MTbs>B`lb zo32r>x>+z*g^R?$QIpeTSV5KJ892(EJ5lx_H#ukXIVoSPV}bnB{eKDhog9``BDGTe zQ&P4@0o>YR70^^$DbbTbb?$#!N;lM#TBsblr0tZ^vOqobe^}#=`k@D{UO}uF;hi-^ zmm%)1B5HV*IwDsnWqaui=M*6t(WRph5EkKS| z3qC`4UrM6^0h90Hj#Mb2r%20!>ebPaLS%qnE@O(gDG5*Dd@wNNc~VR>O1n&~%hD|a zd5HIw;LWcXe_qv?r^TfLRY2ND)$46GSKCoGO8BPgTrWp`ffdV1`1Pd>yDP}wf6Uv7(O*UdIh|Lw4Q z?WY#yssWJ>K)`X5+>lCo1Sq$Hdw((j1kqn*idc40f9mZe9x2(gaMQyI`y`-HZ3f~h zeOeJbo5H}_O4+G~&r;Jl4)JW8orktVl1Che_@=lx zc}KO{KRJ5UXCPTg>7yG*CL z@+X;6e>o!EJl8MonRh>RW@Sk3qGyld%QB#Q=+c#{PF-TtExqg>I{QKW)q^%W7W5q?`e={)`mI!aiAzQl-dih&(rJ+JIXdK4Z z-MC+)$LgRfAX*<#OGvm^ES82sCu=%4duMAsO|xoB=j!0t>1eGRhtAe!H&}GImis}) z5!=w7kIPq(U08F0i4#$rpwB(}N!R{R8v7n_uJ)VSXyggDPr%AHVGWqj%E(&!dCG z-oE!yD6mKHSktskPfNf>B$)X~HHb%7>BMYA(R7|qvmzTnUgCY)1v7k?e~fi_Z7p<>YW&T%wl2omSv*#URu-r>ct&)F z6hK;7(IbX>4yMnWEPpRGWx8Th8Y@y4bx2Lf@S%bMqK?bFi*C1hqK;L$_8GHA4%0rJ zK`yi`ueEMq**|zR)FN@0j7iuKU&rZ~o=RlMVpn8U%`YK(+{EMeF20Kd@?CSFf4w~z zB&6_4Btj;15r>b*c)%VXKyBCd5Ly}poLKlRYRD6B<{`Q8YJ-R zryUH_b}|H*N&NT`bMeDD{~Wc1KsTMb9_R_>`Y!mTik15yN6Xqy$ezUx&v)$TKQmaz zwcY&_tK7Liatc_0J^duW9ecqbf8z!?T&BaaRal>$^j1`Vc!EvR6>H+eqzl|5li9!i z{3p}WKO@2ULl@E+!~_xQx)J#h=yb^N0XflT} zR%_9>2MqZ4QM^wKLzZY+65dz%T?i^YU|*QNvPJ~(iLd8pTr}t8GJg*_wu+{)EMhDYpwr>_dfWTh};tC zNf8st8|;iWzaD7GBCbt$>y<7TIMsfc#MenBEK}-F13f`cwW-B$k;qbF3Q1;nDH1PO zgGF_yh@H$rMLOd~f1rrZfrU+ARQZxOn_X}*K%0?%OW4a1U9*DSGrhhNc2>6uyJXFB z&g-ueS~50jQC=_Gg#uso(VcFgVLyATE58%-HC4TMyY6VwtfQbZQGtc>98?E11-@PP z92DTPNse9Al6kr8d^KfZ4{#I1dL5Xk#9qs3*a=k%^}e`+e{!0k3RoV}_Y+8pXz*?< zdwA1lR?K&8pg4r=sMT zx>~zs&y!Mzq2N?YH=gtY%9UK0mZV)RHkf{uQ!LTY^TG;@bOj-28#-dnao`oAj=l4$ zgk7~SQ^*g>f0@6SyjYKp^HQ0gwF%L|g|xliouiEr)mkO1cv>G4-nvywTwPgjH*ob) z?zWz@_3Rh0cECWr9B(hci_WcGJ=IG7)|TXF*<}hg==(m}DeNa*9Y|A{a%!A#2$L ze^+t|rAmoJQkBw!t`3Wk{pPKyFB!zv4)aGH0`AToRWp&iQ5wC^8RZJQG;F~ZP7lZx z_V_6|f1?a5v|+Lh)xio!)~^RI1k4_I+6>;qk@)E1gp+J3NP4VbF$JrRPFz@m`pG#6 zuto2!t?*7~{0Se&{FY=3^xE5B{{HLkzIx2{o3Ft5N_($H@=B=P!;~sCP{8Sun8d5s zkP32uH)yj|KN-XpUTMx2rYE|sC9kLC!xVike|!Jc-5b38hYdcXx4`FlLRnSpPsg-H z*G1qpSwv63!6@YjgYz^QkBmKx?r-|j_-3+)cE8(${Wkw*J0zv?a>l0qlF!NZkGpRU zWmw>1Av(hgCG5wh@(bAuD~XP6TP_Hh9Qlb?)|m*7Fo}IWdX<8h@JbC{Y*+ypWwR+^ zf1`j(n6U%qXtFEL^caCe>hCO%^IJtd^^HOX54RJ1!?-!5$>D88?Fj8ssvA&!Ejc`_R&CJpSfpJ-X=y36 zebl)e^)$$kHfL^Z_Q(ZGu3d)1xI7`=e`tiu5CbegY?<_na2zDM;1?&qT-QZFX>r;! zu4(G#qQdL#0y7EGH3or~0+sLmz>OlsN<+*}ILxyG{hTmuJ-gSE>uFFmQ(aNUB44X% zb0#BS+L({Vht4JrCAlvYkq%ei<#x_2fBJm0{Hbb|wX@SHHfknV_F!s=65L2lf5bbt zrCeOTigBFNV|KhPp|gX2w7jtUt+)mX+#~Corloc+FA42ZJ6AvqIp9RLYY+rdDA<)+ zJ|pPnd{dlEuEFo@=Xg9%_S50)+3nwx+m@RO7gn9;J2%MVVM6(?C;^JEzlRAZJ1=SU zO`7OzE6tnO6(qGUa|K08q259#f8xnRc*IO0nd3^-yg0T5F9YNE38*<&Z~@CxcX5WT ztpk?(y+d8i?86Avl|tigJa?I>xKz9pB$0%+9abV14&YvNiVZFu{VkBbnAYbBFG=o#P7Fpo-dRa5|Y^k=?+oew)rRuv9p= zrGIPLXvdKi?S@lgc*?BqL#^2tDjL{}(B0A)mx3eYqAXkr#zHB*9Hcr?y&R-^QQa6; zjZ|z7qfRO=0i{wZ;vVjBe_`=H<%qUc;5#HhB}?)~#1D)FYLNYBLuLyu4c2kq3-WfE zvz7%?PlM&5)l*{yctN_dHf$vm#!ZQyQoIE)gPFlr!gRj+Y;ykvd5#==qacJ)TpS#)FKJ{RsZ%kW68|O z?JPyH$SvPHE$U=umDtBUDLZ_)P1*p z$U-CF(z8a@Bd3fCQiqI6W5+AeZtqQGMBp&7*fVhi4zvvZ>ozqFoRTTcB|udS(Su!wTYQU%xhsjGAD!1%|Y$T zo8Jo2qb~XQvjub$vPVs->7K9=-W2T`P(E(a>UiLyf3z=Yi(Nq&cm)!aflFhgp)N^i zj+D|Vrkv5`iV?gtFj8DDm&cGY*_QCpHr~%?(=kTGuh)Km_x17N){BLsGmyFfjt^qORTHw;uc{SI)P2}ujd$#k)kWGM;)iO*BN?9 zWFu9$e+idZ`BaR(JR;9DRfm2@aacO@wW*%>{Qet%mD$+wOLuQH&>V?p*=9HZzoKvC zC%7P4)zesMBbvB3o-^#w4$fU;a3F-+o81e=YTwaH3lGMHthcs@Aity7dcO@6#f~de z*%sk*cCX*3q@if)0pZ_HAvnW0zbr5;I;!upe*#=#fnlN*gg_4cd@>yukSvK31H0#> zWRtuN=1o$)p8*So$3m^HP-T#1MB40EZ_)9Y*g?HA4vgw0j4WQ;M%Ro-&*`cDfSwIb zh#3=zmoo9`sJUaxP&x8~ql}!8Io*cR7{?T82jl91p9cn)v|oDT^A1`Ky2z$J`%%Me zO0?pzm`w*GgEyL$B%72q%SF*XfMFKze~9ItuuGv~6gJ0PSFq#$M0A~wqM=v4)Au}H z*+h?q{{23C%;8tG%t7D3%^t6Wo`#-{An-rr z3&I04EQ+fTq>u9sSii6x$0&biaeNLl%?7=^3*e}JwEcW{=k<%-Lz(SPSLi_amu#)O zw)WWmV^3U~HJ_7QA{qSdJ0vsTe^FF7pJ-xyf(J(uaa2A*bfJ+G2bck$Li}lPu!lxw z^mEcrx{2%1P{lcxkx%;Cm?&F@Szq`mWx!%^0)4@Jq#%E|2Zt3jtfpu|t!|1JED47D zctbR>o6Z5KN_Kq_`@Z#J@26e0@5FTY8_%o=`W-x=?N4w>gtaWOD|)AV$$uOf3QI`;Die&(9M$y=d|d(>pO~hFq76Vlt$Gr)$59Wyolr_oiQ-Z3b2tXW+h$wjCCVCkXae_+(_;2-XyM}WC6 z8r&%^pl+UAz#6l8!-Iio8T3*A3>6aP`4xBz+kV_()P?+J8TM@%{m&Uv7YGN0!#+XC*!186O2!nq7yxS_liH9!#XEsr1ruQD$gvo52`==FFvN-vle|G>22h_1Yy%iN5`D@7o zasZ*HfrwC>`8{C;3^E%py23EH@iHCBHUX5P(rSE~Tof}!)gf2SD4UHSVbTQR7ogK| zI1z&yJtsGe(@m@uTzzfa6K4hGw$MfA6qD}?Idp`LsWb%9eiQ@p*KBQN#cVwuqveTy zU;ATh%=NI6e=1`!k0O2o9dOsaJg$+SC1yT`S% z+8*W8N2=~SAU=yup~K;v@_08K8H$E`>gKCM9YtS_d+Lg-sKQIqu2 zq*eiae}v4MqH0ls7gT(F_uVw7z(|AP^>^Q8_$-O_SZhEDbWo=QZ(*4kO<%QbVWGNr zCN0&Ll{lBZ!7!T)E@wm2iqnOT=(76QyY6Je-uRrJ*C>gQVskJ%?8l3N+CZ@AI8pq} zd#xw3@Gc^U>xlo6^=z^X4HoNV(I1>qXfQK0gQ_-N ze~`C6>c^f&_B~zuvydQ)mVa_W{N1gL%?^e{R%8J*?-XskCrK{wrQAyHef#{Nrb*Gi^cf zU083!OEBVhAuwef&L0yPI??n9*;Wz*9$?dUBWrrRus%N(GEv4nsT?5>I_rzfg&uBn zwM{E~S@=YVD$$tTdXQK*N8`BRwasL0($P*ZMi7MOQaum#Q!O$fV81$2L~z`@e+DeH zC4{1S{D#)`y)|+c_6LbGY(;rG1`0Ch)mzMfNO({%L9nHroGXUUjxZ(j#`n~NLPn-^ z3!hwd-B*f1LQwflkuyqs~R|1Eh=28L`-4(RAK18T+tTZVsK} zfvtfgNMzO2@ZX6T0|4Qt+7eWyeANzPAxYRoU5EW^bu=mGp}Gp~h+ZiP4sh9@GIt~L zIV0+~C%AEnKEN;F6|cecQYXz@sWI38QoLsEZRBC}6d-8#=)Vs3cRxFnf8)=Rav0XT z;*N=J_e5;7KH-|3usy&NJ63@^cxrdv^v!WVbUhBOlmbKS&{i(t+NJjL}TU5CaKi3{tAzl88a> z4v>9sUZLX$Ep(s_&<$jcxX6J}6A}lM)etyLwV1pi;5!V-523&TRULT)6I?YEH?TG| zoHUa)a1!ijmyk5D3XRpN)lkmB6^V%%rl4BNz@dm!r-cjzF^`Nff1ijkld(B8)v{xo zOTfV9)$#?-)bUVjEM3T+N`#AgJ(Y_VqN`&d26Of@)6}GLK56l#=E9W;FQTKg>=Nte zjwBay8mKS0#3oipY^gy1I}}31z!Ne^Y&)tXkRP-JLcR_41dw^;4}@P={BUQoAn5~v zK1ksMFToOQt(lzNfBIu51rLk4U*(Q3n=#K^+GAhsH16G$@+5I^Z&Znih=cr=>gI7y zBB9?)2@1~TVb&Pu%3RRuqMSde7{c9fHdPol_cX%Sr9Vr-kIcRwgy`oC<&K3vj&5}$ z@$b)C{9~j4g$sZTHz5LYUc_o4P*jYGfleTwHWIObCqi`?6H1#_ZC9V}r#k6CR!J(&A&Pw>uIcwO`pBLZman zI$~svV{(V0f21?~gfN-foGO9x&sv~l0JkVoau0QdN`FQR5-S<(gA^?JN-f1<=_pu3 zykt_75-M#vvPGt+t*zji;8|qq;%y;qXUh3Yw;chMF>eX-)cQ3EsJ>9)LxC&&T z+m{JVfBE&RgT5wi-ViI?tM_m0;-E+!{qD`we8$<+;o$sYx?L!Kz8G4s2z~w1eMl`p zzAy#!N#EJV$>Eznn3kK_Z{U5g4FK4wu%!!I9VmjpYv5w1etgy)hc}M6ZaQ=;!@l&~ z7fR>c_w1=xe8s5|=Q=F7;Gd|o0dk9Isqvhpe+;C{Zqx`flrSi{yC$y&orw!h{ z*>D6fFKCMU%`f7|c*Defb9z$GM_^5*WN+pNG6 z(;pHT6Bcqd>UU#{{|<)Q7Qoyzvh@8aG}rl=)MT-5SPfPc-NVZtuYESJtCBsRhhG-Ei}$ z)b1UXmuxI?aq^VMR!B`%?rlc|nl#w$?Wfvi-MLsZ;#5=1W*l>T_c5RieRVj2&14_9 zj*I^X3&H<%wbsT{3i}&&}C5|KFJ+($^*ce~=v! z`n@4hr-6|J7*t`H))h~8PTK~$$QPFoo zRFGLrB4oqMUSjWTH&hW4*v(g#<+zExp9?E+9`XiA^N{Kx{=8LDZ0iU z!cGv{EPF?xsrQavZ5?kv-#y$gq4jYlPPl!FI7P4`?I2LR*G$BYuV~EiC`K=9hX8A@wy|>OsPMOx-r`fu9BCn5|u{Nf5F+czI#Wx z5{f2M=hlG>=@rD>dGzXFZ~yq+PrKXepKH=wza4$}DL-A$wqjtNjz6N0x?-7gb--tO z2B*VfB8F(?!EVW2?ly{Epz3|QOOK?PCxz)w7QT?m1XCy8DHE=kyO~bhDjWplr^eFH)&DhPsTvo7(I#gG!v@yvP9}CH4w7C5&&tChhE=GCUrLiz8SIJZe{~xru+o5TGmBMP)jEIp z^`?5qs?g>~@T4r#qVQi^}Rc=3!($BZmO-A`uJ<+t>0_rEoVO#lrJlIT8MtClSiwJmK(Y~iV|+m zHE4z^-blWbe=@pUj|sVj)EMNcIC3UEPnwj5+AAjgd?DjCU6LTf;g^`qTO~sMG#T6- zu?3Rdis>ONuel(^i04&mm`dl~5XH@*a`&iGnQduNNFsSo7e*RO7J@1CWEJGtVYiY7 zId;A@9Es-HnGZ`UbL}h&OIX0DA|lpa;uHh>s)d7Pf5Wi8B)AFAz9xfCYMF=)Of|=y z)C@X|wEQS8P2!=X9oKL+xzK@+$rw|ZEEWpYVTBkQhQ&GVK^ySBpP$Um(NIuvTa#im zS*esx^c>l~Ws7}~tUW7PaWf^g!IdMZ0>f@QQ;t}5?IXC&tktUjFB@4h}hf82V(6+g%3X$FFE@YM&LSXXCC=x*&D zzIw5>Z#%QG_QT50cVFynAG|u=Jv7xJ1|C``dR1Y2_ID_Ri%~OQ46eeON6+_O*(&HF z0|_j`ddG*aw~t>R?mE*oX2pbd<$-czmc_9kqqk;Stb-%Q%!I_5C^s%9AoE!li)^Mx ze^Fy$ijf$z7IsS5JZ4TKVb}QB>Tz`*(yIKkpw>2Fjn&M|@SGKQA`2%C8Fg4e_y{H=BL1Wx|LD34Yz_C_;22)&(eZK z7l9f|RudOaWH|Qfv2S~_T8CB$AEaUvf7U7;M`Ta!ae4IW1{;mtKcX@bUiwz{I}Bgl z4*PU=-7obwK5QNCeNYFtKltikfG7nd@G1*Dh!4<11^ssDRql$dueI@(kh2XxyF)le z%k(L3vs`}G&2XIEln6p@K{K7P$LH@XesfZ0XM%QD@pE9eZz@Z(eOom!N@agIfB&i~ z&cyXZOYo|gOa{QUYc|;D10DNJ7qUq`h24@={y}%E0>bOyXEnYs^$XcpD zU^$^j_?J6uMHKk5%ji56{6qAZPT`!wrx|&C8a5||Qgf0AeKN5#jH zeu~`LKFU58<6*x!4bzYXk^y*~>54-)m3KD>0po7lVgzaOrE8?9mlar3#LM)NqFn-n z_!Uwv%G`-`ixx;yE!#_+XmR-)Zu?fh*;S%ZT|_dG_)tuz-PvMeqhyu^dIZ;vjOvl~ zWqt3tyD5elodK{CEDfp=e}B9foQkvo#BWZ>>jXNS7qfJCZQF4QuUwTz9JhS6M;yOw zS8?=`0PGJRxu^hei~bU*B|3;UbTh{@qe=?fpU<*H46pq%%PO7PB)rWzC_aProdJh&$OU!`NXu9C-U1WgW zMqzYo-_nbJl;pHNe&Uy^M@eQ~oHxm47mNsUT=F0(+|e8Zw)#(z`07-yko`gfM_1#E z34e!wF*Smng`XVKX__l4+=uye{{>LZkJ;Q7E7Q4UG~}0`f7QtT5WTiT(KTaQVEkKF z(^GcmBC0u#h2s0h-lS|jGC$L`XDx{KYmRZGZ@%VOxaFW*`Ax$2>G&NT%v(*f^z~3S zKa?`L*1!6JOs&Q5^)TLE`hl+}vH3|f(f|L|k70Bn?)MC)tSBSr@CF9A^gKDY#jShL z?%14i{sU8Xe`Gv+O6SltFuPrUFlM*S5azb*ZodFbsbzUv7gZYA-rfvVn%UmgyecK3 zeOVL}vXW?g*8~=}7M6FN_yuH{V81e)Y?G-kYb`4u(tSAgL3>k@>GZ?5XJC@(P&&d1 zZ={x~0=BAl6c7o<6t!165-iwhMxW48f#r|vvvaA{08Bu$zkddUC%1m>&CT@Sy*o0# z)XtUZ#h%Hc+Z=v_AxEHlDqtTeVh`Q{Qs|fG5GNw<(`6VDd$0B|f}unZLZ|15;Y0Y& zt;m5cCWMduQR)!BQ-{QXUX3H9!GBpUB@5w8vriQe zMvNv<5|b6TAAfgS`SHIy=)Vz_qKA~Bl^jt$;oCT%?%R1}Pf~BZ{=V>wYp^Y%5Mm$6 zy78@XJ4|g4Re;^0H;?Wa#=UhHm;CgdPCMD-%>CjY$mZaZTW8i}@jK@|Oq+Z9*tw^5 z+Z7?e1f`Bf0r&#SCmnIJfPyL?3v8Tnv4BGIut2Xy9e>69rVbaF2&sk(26Xy+^uU05 z)pfvd>z4UnxHU`MFWibr?+dTme9jjlYxsRfb?3~mF-s16P|6)I5X4RVF7Oyd-7YXY zY|QII7Qm7(-su8*5Iz@QT&&hIjVm~c=yde#Ct?$mmS9KVB7$DjTQc=~L`^7wgnP(9 z+6I~{t$*=XdvVDa$i~&et|)e#pFl7X?}^%LCB0^BpT5(KDT(;Zh*nXT z8C$MBX6zT^E}^|8!@h9Y*`Ef(MecNDE!UgIZyR@}5pfk^B|KLe19=Wl8ol+#ktW!D z%^pPeAG&^oB?Rw=NRZlk3*2*{Ng#k%7oS8B!SR^EFL8&N(zC9I;q0761nVq=%tCBCVN68!CJP z^EDMKy<~`~xIHJC(iOWEADL2G`PD<_7CmGbm+r_xrW~{Gz(1xAqJ8y_ncq96f?#Pu z27hBFp^TG2G?IU;Zw&pe>mgH$W+a?@&M~M`XzUqN1Dmk7Hg}rBAu5fdkJcr`F^A#C zk;XLTzkF1IuYe}-uRswEGlm^l_6GhJkOKZ)3_{$dzf{F_wrF>$T6fu3XQ`VzOU0>5 z+*OK0VlUiNsuZ^>9i?!Z&QY#hUCTGhLayN&Wwkdo z0RHYBqaFZiF3Krt{*Co*$8b@a+Zy6ajvv}ngR12a6~BxZZ!3oV2um?kGtLplvwz7w zLRMX*XnI(lP~mph-R;JHP-W;)+s-?RB@fHY`+gDZ3-y1pT3h(5+Q{41a_lYa=P%Cn zX%Q!}%GcuS5xk2d_@((++{W2^knR;Jd-*wep4$j$?i{W=wwa&zl$4wk&t6`hlrPe= zq7kOtmSe?($B|lY74@*>OL3~GuzyK-34b=cQ9@UWh+U5O#x}J0?te4i3F0H~(QQK8 z5q)VM6OnQI=DhyeRv7cTyXpKy6J7_LrvPf;7=d8!%O^sw+D<+>ZLf6snfm&{`$Qzh z9o_NT?hv&$yq5oi|1K%E8s7|qZI&;JCEM%2FuFSnrOvKuXmErLWOs|qXMee>wq0yN zc?JtuOz#;qN-C3%By{}l-iO2znj5;01c2i7s;1LOJ!)0yC6ajK5^J9F53yxBHFl|Y zh|^J1=Mdl6)dFL;5Yc^^S4ah%*oM?~1*x+irM@4sh2!=i3jD~0ihm&nF#Hnr1JRYs zJwX^i$`^!+$s0toa(C{D)1q!Bs>n1SRsq8*Fh9F62mO@Jg~L95*upa zg6n<2>Nm&#fWO5(5Gsg)9gefJF2Yz(1p4m#A_%c9ZFQ;FDmhORoe`xzaB| zUu?JMnNYQox8a-M^nV#&^RNC1x8|Qje8Jgf9z z;9=MBVW^2<4g459ZCL`xe3jb6^kr~|dE4F$HFQFi8}-$v;eRGR4T*C%zv;Nt11O zruoyoI1R*5pgsmPb{r^2k=l043Cwv|mdg(Z>AolvW>?)xzp4$HWj*JCUKXGo-ovtF zzRfdPOHJdW zcEY+zV0tAUr8f016AVn_SUpo?4`#yLc(De@?i-qbsya2ogk!(^bX;6g?c-eWDvIE? zomE(|pp(|jL2rvOWxj1==5UeRP98RKn4CXpp?`3lcHzCH2h`jE0qaH|u9$Uz zxZVdeYxCNh18v`l>lsJ;I2tvOUZjb%hoA;#fS+74FM0~=Yrm^SSY6+)-F2`yDZGr^ zTsK2Yh9R(0L!A>T#S2#zPWsO@9y*3b+&47iP8f1iZ*@$$Lu2k(+thwVOu8HG6|}eG zMQHQwk$-+>s-zi_7n0ywi`a%Q%sSk^&lq5Mn_)qOSO{8?yvdBwxz|f4WmldwMK3i* zN5Lg+sP0cOc^Abj)f?VK2twXN1asb7$h4+q>}+wIGb=~!&OHL!O9I41T^ zQIJ+)YwwT@XoF8tBYRW5+{#{qNSWDlIoa874aT5DZfa=%#hSyb{KUNov;$Lm;_-5`wJz?oy(|TQRU)p@Vr}r#rzs@Qo*HTN0wYrn|17uiQ zZhxAt>s#A&`y2$S=_>1Vjf8BTE?RC%_)!yeuk1E#)VYhAM(SL9qHWaqchpijTAnj zi*-@4qgT$iS(m-cVYF@#!PuuKBw%j4GTRTvVfCG6MJ zc;b{>3-&m+qy}4R!!D|K9rUP$9Ih2Rw|C9h^~bm!dnLWFLvnW7Mt}m7?+ zN;~r=ENB811P1M*fwX9s)hkWf&1H9cHtkibdMiflZl{UG|7zBLYi8{hukOgMy?+wR z>KnFeCRW?FD;~AXoV`A(eKlyG-=Mv|@m~|>yJWX+&;IXU!vZjMAm=v`a|HCzM$8na z81b)GfQz;Qd|-S0@GJrK0@XDI;Yx1EQOj8G+QH z*JP|=80m*)38*LV@nWEmc+giUG=Dg|);l}O6}K~)W`Fz56Cys7Tnk1mj>V*r+*=|dC^n# zj9$cNyE^)7%Irlq3hZ8_^tx$&+Mqq@N1amB7lw1Ewl9946~-@y?!5FQ_}C+nWA+ku z^kvw+L>4G`a*Ax+Vk}<*!1DDez+V3gzCZaOYQ1EaTEA$BcV_b3`MkFU7BS3GX zT2F)j^LQoX6@K_k6+4-JD*fAUKf)!3*Eu%ZZ1x|EG z8v@rRhuu{Jw?JU76b!2v^IKc;KP)FGTlfw~OQRNQ+C#St#r^_kjDOFIygC`)?}VFuCv=!pBCd8Y?v2h9 z^{9+1{z#@9k!nyPtVQf5CTDeK>Xgh%R7%fERFbp$B?oPKydIU=0f&fW#{J{g;Q{O% z{M+ipnz;3k)rF@dYAk_v{F@G88~`IzQxL+o#6MTwf$hf69j?3lpw?La#MP7^2pQxT z+IR8d>77}BAb;^Q-FP5+|7^#0H8bAAIPD5)hBF=5Y})Ds@LG_4u+D~h+nJgK;zacv znCvv|OUW_j%IcClY;Ba--bau!QpLEs9#QNo5q7qZaGf6Q4ES36gtyBlc`vh;^{4#w z2fDdB^bZ?3LD_yWHt{V|kgpN)bzR7>uRiw1{YeGTUw;wkuMLNL2$!m>dGa|WUt3~J z$Q0>QC%f*bjvYlvi6N6Uh_Wh`u2vA?6_kOMC4g1`Am~l?f1e%oi`PhU?y2Wh)VU7E z6dh>{=qS058YohJjq8757kb0#Ua7+YNcOpdp#E?NTVg)Wi?e~zvc zpPAABDu0n@f`2GJ_5J0aTr_@kQWV2nts&NZQJlV46+!aLF4b3(fVlMpkl=mp#}Tsc z5bo;7FiT8rFmCI`C8vN6&$B~A={O^DwRFEVX!+SQ7qWy+KM&ha-A~$*#Nc4}lULc$XiJ5( zPu%^R*0eWy--4%T`tTe51OL5g4f&hJ7c+PAqTgNNceN%-Gj0)l@UZBfT3;jHh`oG;U?34wI$cDyd6jRO=| zZ4Av3d9{iaNX`cvx1EXDA3Wpea*>QsXMBfwf8NolrgM$$kVs|K$dHSjcWl^ruF;XW zRAYR^-OoEfYCYEoS^lgsL=ZRT9U!!wYkzns^}2&YF=o-k!IzCZ=3?vD!R2gvk+rp+ zY9-U3kWJ#hnNLMwH|r0^Ih}p1)6dU(Gj&bsx{A42OYjUhn6{ATI;JOv#DUak>dXU(4LFXroF*2{G<>tB*CCZaY;L4KjGfamxi1CCeXB+1jkFE)cS zV}-~uh;s8tntA}@VWOVIj=r1yQh&_wNrqm5uF(+o({$X^?Fc?S81Zxj*iv24dh8gi zOEr)?X-A;8MGA+Y$L@JPr4Mi=ziE9!8Bf7^)4Ik#%_Fc{9v85Ely;zsAK$wzJiFpb zB~?VpW#Pe!uLL|rYym#IR&s`ESP#@(bcoV+aofG&DLfhy9`rSmv6Y*3T7RsxcPlw} zQA@W&0~$3qH9F!cgeT%S82PjcByg$5N;8Ig8hFa!%nm$8ZTw%^dCd2j%hkk^xG ze%Xa4Z0Q1)LW)CaftCsE7h2GjR|fCrvF~Iv87tW%!`%TpQU>L(iV511rONr;f0!yi zI=#rja9|uOM8oq~!OMI!i+z7KE@oG;0x(;TeTN`!(P3kRh3J5%y?^Q8G*-ffN3kMp zN*@K7NBf~ywAkE>A_3^M0N;Y>bb90SBEFCl@WD?^G+uxz(%9k`&x^}ERl1W;6e3&$ z23AzTO`KFzI_&j(p|ogX5e!Hd}i?_J%;w zqHXzryefu+)A%t__W;uWSmD#H?G`bnOd=KMoR2j(-OrU^HSUphGq?v`Ua2|uM!>0$ z6?45)jFy3go}DU*cG}gXb_bi$HA}8P>h8MgO%+udyDrq|)qkU4r>v;S5 z?xDI+@C!eWD!}9g6zc{ldtZA(>3AHJdO;0*Ho0P#{G8rMd)fBUPk5_#XbPv~28QNvGj-^D zeKrcg2q<>5#_HFPd+KX3grck2$#5{aaC#i)6D1#-aDTV7I1tbJa;B)!b=R?$;OaxAa~mok zVtvOw#-jmIna;SYO3+Mu4S(x#abO@6o`^Yn$L)maJTzcCr8kf9J@ODd;rYute)$od z;*B=LgMVdgoh7Jv(prS}ijsRpE82{;SoOI`{}rt-^44O5pK^7^hbia~(g&*@fxmU4 zj?P?56?KN&s4~X{|KXit4<|tA{^ek#IM00SAa3vUVxUN1A1DrEhUaj_kW#MZ&(!`S z4*1TEh)P6U@H4p4!I`uN5^BMbgs~92>$}7SeSfE82k8lEpDyN`FNs)W&s1sl6ZrOB zI~2)gucf|7f6x-u@%pjON3xokJ8Mo>=MER-TiLK0#dLsVim(F(5L2*e>Y&cVxMAeu zaWRJ57x#g7;Bq#Z09gMff zy?@CCJ=hSeNMo!sckAbR0Zm)=#kQd>Ay-B%aO}aO|CoiP?u0*U@5i>@-|oAo7%G7Y zmu`+Bpb`A%jv{T@6JZnOc5$SJxbymj8YW^2?J^BD30c6j?}l(TK=9Gd`Hsd3Hbp8B z3=N36f_M%LQkm$Y3nCQu=G8gk0`c-NmDPfe1Gk1 z9~~ZRHtk^NU?bblNe?{9b081{WMWQ%byW>CiN%CsI-){1+hgx$b#+~m&YaFWVIKGk zN47D6rt*FJ2Sr~J)mpAHnWhHU8n6W7yK%e&-W9d1Ti|ES;10b=f9Ls>OWI-hzm<;D z_D4SmV7f6x23#SFMH&|HYUp)2LjzqA95PieTBoZPa5+Q;1_qaD!_`(P~8Vvms)PGjQi*&36 zVAfjEcF9s&`DC$lFO768T>K)X>_d`Q8I+&KkJosp8& ztR$6ij9pCW_&ePRcC+JeRmWS|j$EeCf*saWUc#ckJz`651$@t2TC2{5sE(|?QNvsm zGbP85it#1tfgnuQMephg>?2NQ(`>K|Nkk#4ggP|6(e=mPb=M)_$A6#!gm^d?z*3y6 z=Ag3?7c!w-26eIzy)mlzC%S-6v^os($l0-W-4o~6=UwvZ+vw@CzC$j9%q^(Qx9 zf_Yjkpl4pWd0T#;J(dG_xqEc9^^D_Qw+Lvq+)`4exG&*XYniVmb=uFyNG2wvT>lI}A$e?|Uy^ynD5~zxCqy7bQME?qsWv*PnC} zms92aV{foH=j8zj_f&qv%@i|n^Ri{(5^aW`6dvA;mNh&B3+i=_(`VZ);OvbQoy;%q z=j7Rm$a9BZH?qcujyB}M9Xa3@cj>@AUVEU&P4Y0YfPX+z<>STJ2D{0gP-t3xW)C$- zQQcytmPxB;K_|}$u7hWb+Snj2QMTUQ~O*7YSR@RL0?vN#e5esNZVd@ z62Se6LV(cijEo-C72=A79Ow>g6PsnrX%R~ERw|LGYSGEX84s+CnC+2( z(Cs>+aC|U=V@_2QqjK~;Ob>#u9-GAuk9!0`1O@sg+nWRI3uz&>f5IyddtVkq4KES zqP}Ggr$~VbYD*rY)z)Le*7euGvQ=aPqzhKMY6G-@L+&yhUA^0K*q(L!Bf|ZZ@jlxJ zTYoS1j`t4sh0K9M$CI^AIVKW-xmUUqD(K2vYG$%xSjc_JwJ95G<&eCd<9D{@(R@y< zf-VS7z^ZF+LP=_^pl<4LHI-}1t@NyGuoQ-j{8e$(YYus;(Mpr)f6pF!l&t}g*vNj~ zI^0(q`p0bVEV~9Dt^!=nW)$VVxV%(6#DCMnt>eSJ?Y$j}WsbIXin*cVz$O|OgYyd= zlKwFq4S=P6$hHq&A0B5fw+@f@wqES+Ae5cGqnCR}N9q^5SwMJ8;x7J}{bPg%3{#MF zvMXMt!DOQz-Egq`hqcP1U+*%kTT{?$7uy@*!xI-D$nZcv3W9CkE7)ETJNN-He1G3| zT5YgVxt)8Xs{|1NOkFK5K%SS<9abA!w#kw}Tit`VMP}h#k&QBnk-~gJVzJ@Bkx^3v zz8dCJ65lk_3P$ZIF^=m%6$Gbm0a(S@JIk{+YDaABF@>pFn;U=?FMrmYS4u7HiFI3%-F4 zwltkX_f3xSMQ@Uwfd%aaYRw9GsKS#WOwzfn=$aaLg`P}nsnjR>Gs=CfugMc_wk*MG z9d8}|{hi_liY%w9luVv&YM%k?eMwDQ+CyYh@Qq_r3nMGe$U zL86g!y&5yFxY0%cIAtHUH-B<1!^&(k;uT5&$IQ;^S@2bx>6KXi)wkgDEBxMU_yl^! zE%-baETQzW%ZN6Hx*0yM!|KZp- zg=NDkfo=cvp8U`rv8Nx1r`kY~tP?4H;{`gzngxix5Sy!JC9V;22Vu<$Z){j=%qDA3 zQBO_FiTt@M8Rq0X1%Gi#DcroNx=(F&YZ`@{(6SjD;^#aAV@ur1%&AYCn3fxu#uPG< z@l}{;Hf}DT6UDpboTG_aug*WZ0Gw;nc~fvPGtV2tj2dk&W~9%phuC5V>j4&cKpb$e zPR-3lONW|x98Fbo&B_+IV+#XyJ0qlRS|qf(&%oXl#tIR*41X4Fow~@`mDsB;Y^S}q z=$JiSX1^wHNmVe71<)!UmGtg&+rY;K zkt^+W==kyaE&cvHhw2m-MkrX8EsTa?4@n}XPeJ(2J7F}phe63o2Ytu1jQX9Am|@!p zH8XQ*K+X&cyN#X?w4Q_9rEo533A`WFEY?aUQPM@NYLU&!R@L6L)&H@-#!9Ob8DZ?3 z9e=ghu}Ulpz*KK=ays+vxgEEG6v2S9HEe(s)*{a0fUM0Cmjty!JdeX{Q>rgzxdK@q2f_qDm@m#P@GmD}phVl+ZIZq=6;yP1l_d zy#Ta>P`Ef)#(*7c6EoJDwbY8Nq|naSMSr-zBZpqA1HYXtvp$W90N-uuFN5$a-%bok zkV*@44ayVl6n6YFXSJfC`5djKGmTF6!&=9ToUD3VQfpRA14PZgDuKQ#fgZXN=&J_k zs|M&x)&Tuu1hu~fG*!0=ZiBjD{!LviE0~<2{Yd?K1V5_;Eb9T{{KmN1awcDONq=9M zE(uViN}H5@RVKxXzABUGM13L3q+2J3&~L|?&R4C}m#UQlWU1Cm)h3Kz)lzlP?7r1f zu;~V1Q*~5rT==Su`q$D%0ao3jJ}QBCH&;i|J=xB*Mylhgq_UNbFGML-rj|O&Pm581 za$IbyL-xKs;omD(y)@!az)|p@P=5$+0H(yH%&V)M*kUvo{u_Pb53RMe4gCKt{BEz& z(eq+PP8iOvw7y+i@1CheRzEJfXTzcxw{@?7`r$8YYbz_4uipP*vj-sWF|8wfmrq;M}I&k-1>a@1JC+{ zu_{*GbU%&<(_H;*uK+cB^MB?=aX$IS+qcF}RKTO_8U86I-M(Tif%E)j_1jAzXx~0x z{r2VRw?|++3l+PklMh0rhp-forSA5C$Y+*-r>S;GZ+7e3 zYuf8~X0P=XBjgyH`Ho2hgd*t;FvgT~PVw+MIq|wJ|IRXS@x1Ip9%LKI#K}NPFd>2l z?Eguw_Fo6>gY1it#D59)zax$mr31yJp^$-elJ~pauA6r+mPpJG&Z0@`873+v9ZEAI zDs(M=7RMMkL3$C>uo0#t4FTh!!Ocf&iEo|buW zfF?8bqwf6N(?e3wv5cbV!a&$nfV5f+;piWY!9*9ms=4Qo?tgDIJ1f*^Ua=Yt0F|vq zeK6702%9%aUl;_TF}U6lDBO`4+40b=6T_cQ1Q$Bq#xB@zV09Jm5Je1oQ$;Warx`rb z0w;(bj0Msy?|qi(F1bv&j5Rurj3JpGRMMB2bUF|}bcCLkj?iNq#=WCylg5}&N|;13n>aG@&2j- zc>xdJM%jjNDhW5$SdH{^vYCtx{!p`jM8QNyUg*>7L|}fw11CAxu}BU?RgOHqN+VEW~{xl z%Cdc#pc3Jv^-e32WCRS8OPT*u-?@0Xvn<@%WE;(#R<>Ertg1*h;5Jko?MKkmthyii zXj!uQZDL5-pp8b325rOuYqt^WP|+rK0vfcbJs%Ib8;-5cd_3Hl)WIFmhWHXHane8d z(j{163V*31tz=Uyzyx`tm8Pff6k4`}J}_zZ*5R{*YsWXDgK5FRXD|{o3M!BVXQKE--B5{dErQ;He6=hF zv*Jean5wH&(RoRK2jkNV2pvp()>Fm0<{yjk`+uzc^57}%2F~s%(-|T7!@K`F*x!YZ z-~3?-*8~t{vt`R5lH$^~!lUB9icxOpqWSu~n79-ZN{;rP?QgwcuuI3kywY7PEgii) z_&ff}_IA`ij};fW`=7_~s4=-L-si3Ca|i1^eX(^Y>aE*)XG66VEy$m|v_zG+4_+J` zLVw*QZ2IhQcX!|I;&AWTv)w~oPjU3;=ZdSu9=D5OG44Ja=U{55``F6P;e#2?;qHz* zmP&w!kYe3}8$(J=2KMvwy<;)8AL@Yn`9d8X3GgF)Fdz>OxAvb2n18MV^I#160s&OX zRQSn&g-q2J=#x4?ArH13=ZX4l;Qg}u;(x`#&lciek`Qr|3F0qc-T6_%yv8pY1=Rnj z|N9&!r3Y>6uL@~7&&w&GE9Ngh0Woqo%ugX&tU7l6{AyTSYb^kXcGyhQBcSRK)*MtO zXR{%uLx%}N)4`}e07f}e1YyddYN?~E!RdRT5eEJx9AoO@)wuXD=o3xAu23@W0e?X` zg^8OOwmJh1tMydRs8Vu{BUc4|ZU(`V3Z4gS=M{}VLs>STDtVm~;Fz;ZBA>#h(+dhI zMRDQGKv1vz0%o|S7UKhvmx=lcslhY#cVwh?9i47;-z`N#f!>kiOsfT}uz}6+f4(zG z-vRfeh#wdR z@qGF@q+GZ90cvq_o%P3q57-CYK^!n$)9J3AgH|92I-636xf|-MN^s&5IRyFF%bw$P z6V+U}d*B17?Zz#^s9R>~uqKthe0_AB?H?S&!Re7?f7-#>YjtKXYh4y6YJclnqyovr zZEojJPY%vxJKpeCSn!6GQiuJ=t)tzIy^%V<5UC74cCrMd40QubHoR?VKOFUTiMR&u zdUJm3N=Jipb&{UvgYyee2CS>^tE+BvLBG_#oPw?ZJ_iF;O|f&u(YT``Ze~f0$`oz7 zRaGtKX_lPe>am`dVp`qU_J15*^*&;>MYD>Lfmo$Vq)^+mAB=|A*#y8rZr#EjD@~6_ zoOxFrT=;@YRlxC{BvsS|=$alaGM-C8-#Bo?3ob1Y4w+&d>N3)3;~9rIgm`#+qkjI0 zxW*-Ca|i$+y!&ZmZ?XksLZpFPTGCSclE07C;bBh8oITFCCzkd_Lw{qp2qx?Ub^rV- zNGUdN>Bg~z*vyVzZT-AYha|Rz8!rZzaG=0IssvCtR{6Hx0I}2}Yd$eRFFuHAe1Zc3 z{|8rE1||6FfiE72Hl1vOM-!0+a1AQo6axYXFn0Jn7g{J(Z~)2EOf8;~nAU!beG?`` zS{)(nrI%T$ij1FAMt?0@KHe*TLR7=PeYgOO>p$;`&p0IpRAD8M>0W%QfnK< z0u|XqEm_Ry+C{(^ev|j&i@^s|T_FqX>TI$PSB1csr6qT?@_!e;Os~=_ujtg+Hbu&8 zu&1^t`kC%C`2PNUrDYu?aR7EnrsEl5q(&+IufQ-?ujxi+BHp6!7rc~PA9{l!xF2;} z1`>*Mh)f&Yq%9}j$=268F$92dZ?LbHVR|665*mLlB@_+v?n9XEQnZBxwgx){&7xAd zzq}kJ6pcjHMt?Mon$$c;x_bODQJJ}CmU(`#a!_xXsE6CxPq`8jhWV>v;vP5E@hix^ z@Kb*J1NXe-x9DD*HqOWIfsZoh!CTBO$cUR_le(l==z>C_i;4uOq61|k#%lhnN9+Ph z5AC4mj_iu0Oh*poSuDwIrxU`u$UFju?+tlu-XRdU6(@A2DE-IW(qSM7X;Y~Dom3Z@u~LV-92IPPQ|az3o2D^oe5m2D%M!e$f^< z*)A&2Xn*{MwDCB2X(Nca=~NW5Q(XoYv|9H*bLIfmD}SL#6Ev^7DWbiqQaU+(VFRZtl=UJ# zr4&msuCuf*iKjLZQ#;NzxTEc8VD@FhwY=|t>f26`f+-n-on@LvGT>i z*3K@yAH&br`{u*CDF?gG&FlyD^Rsyn=afX8)66_eZuNOBGk(P5mz%Cu#dyz+qdf0x zQ-AF-KIMbCKz0Iw6D9?v=!Lj3Q+T?XDU2C|;rT>~DI`v0dk6v`T=w3>3ym;*z{D`_ zvWpiLvI;c{CI0hgE#p-_(BL-!7k!Z_h0f11noKyIoy|LAszJKW9^CUhZB~(z*z$)TwNAMj#BuJX->qXH6 z=tf-|^uUD7s3N(6IOf4=BTx}>l2iGWk0$T$jhYN5@88B)UXK8_-32n2a$e7Z>yB}T zn!>PZ-mM!4qaTajxL;?_Q5{0N{*$5xR{ekl{=5OX^#U;2$Df+!lQtCys!cPllYfyr zqsP7~hM(7(fEkHtrSwQ*r>Nu@ z1SDVg8^!wMIdw0$c{?$vT-{G>Rhx7JOIY4ZdiUz~V>ip}4Kd=+4i8?xO7hQC++r3t z;Nr2gCR52j5Q&fT%d25;sw>dtk}Xv-oei1ThKy;|2t#wCz!Kx%i3Hh?@^MUg@vJydV2gE2o1c4;RxU6y=M!FR13oRZ`_Q* znlNao)RTTmf*nkDA)1$zN1f4`mwfw7EnaWZ{H_?VrhMEW#!KTEsb0?{r3K=wGv(G8 zpSJjDzD!G*E56rVsKiKIv46c}!H_3UEf`gBm(64P;qiOF_{dRB&rI^tZEMmAx`wO` zMg=JEDuh}gyTbuJn4={tpmK+lE?DanXVfopa*ftf@CjJTYHO-KLO}yHH2W1>$RoEK z$shiyFZ@8sVsBuF-L{)=wnxBAG2}tVsfvxZRR0kbd+nC%Y7hhh4u7EL^dSQ6NNv?% zB-Rl15a7&k(mQ=m?hSOosKwqVW!xdXIN!#bf|8mnZs6e1Q~k8 zCKzO%)5+GKtYre;`(0^$x*=D`*c#x0DXvxCB zob+H{fwldrFN+U(gX%o7k`}U2^UZf#OI1GI?dMXBFKY6nb)#TNw!6L27RJZ1bqDZ8 zR&>b)HCUn78Ex-DQe$_T3>nIsdompc)NuhG=I2ot{W`BlgKIze2>(SYgYdJ8r_L3rq zlZaAOhMED-78qpzkaqhnfI6NcY*sH5% zJQHx(oelG+%(=J4PzwO5wk#oY(fmGlf?!PFXMca@2^?)d-`#orV)xKGopt8u;Ljp1 zgyB4suTvQ_Y3}tlD7k)R??Jp2?kJVe zj*53_vZgMZQ?OW@UK9$M&M$`7{yA~g=6|uLZAXF5WHM-~6+|g~y;)K6+ z=_9-ELhWcbgDxCTYNPJF*^64`TUIeHHKg)XlJ(zh^g~nlUgCdk_y$(?;?&?#fFa-v z^*V=d1D+;YUqr!?TluEkT_|~u7OqkjPmJZq#hu@AIH@lEW3|gx14Vt{%hIIFA%8S| z?K50cmiwqUFh(s~#+y984W+c+h_7nt1|4jD>|NK^WXG-A6BOKQ7rZOQnnCB9w+TVO z@QjMvnzge&eB$>i^x>xUo5ydR37Qs;wpS{_=hyV!ik=sSwh$e!9N$g!yL@pab-T4S zyUxRIBc1M&Bxz0bxlOdWjdi&`aDO;ykq-E?>SPVtEKmirXa&rT1_#p&0NT61p(1&y z>6Tk1auXGDV+C@vJ^%h+ZqJvRZn{ukH{Nrjx^AMlZmhPBZh6=NfBsiI=8ZO7s>~bj zxK)=oQI6qZJt0UrRf!PmA_63mz)Iw?tNj6Ht zL~J@>>r(7RBjLAP-mxmPJgvtD9HHy=-ag) z`mK(45F84JV9le%F{X>crGRkb&htbu9_Oc12vVC*yW!Yy@ix8Hypiio369ovLM?YA zbpTd*q&ohrC6F4w1=;9vSt=NEXmswhBP|_j-S{UmR`7TC3NCtNs4$tR;s*Q0B}Ge9 zKj3Q2{*sV_daK$;uON<;K~{7m5>aPn{0lO$A2r?-+tq`*pIl>SbrBHHx=w9!I4YdRf}!*L4?`jggX`JYb_Q?O-wJj_frW@%xq8+G^ zC=**rLsiK%ani_fRr=POfdyRlbO>zHw!+DAfg!0@Sw3|RH#Nbu!u*}S=)-J|@;86b z?IKDNE>bM0D&fJ1oSMj0@n;lr;RCBt!u(k-qDfqwVs<*WoOTaxj%!GAM~9lyLh60OB~GT;-6r3jRDDTp$;Y~EXU56+Fs&As4Mv)n0i+8^(q1qb z(o3lb<80UmEk&9{MiV{xd)?OQzgB1nTz@V9bfuPMqN$%1G5oo?d9t-ihz7;M7tRJ_ zwSTxUIw2L)p0fg?h^oCmxrXde8yP1xGDt;}39J z;p)tLq>(-`^dsx3BFa;)NFCfN>rdRf1PCXbox$0FvoT^S%a-2<n%IOHq^@C`&K9%GD{GUaNIE?SBC=Q@84}Du8UCNc}L|n);{)r_K&!NSm}eG@4h` z)EkCgbbl!7202$$Wi~|0LiacH^glpGFCb(qXQDT=rR9x5UvCDTCnGu#@K*%0?!Xje zwBr-TPC&70Dc6(XMVs~YS-7wN41AShocuZpeK{S=#~dD&mZwPmAp8vGDu0^}ro+73 z?Xr=Y-yBYW|LvcUcE|=WCK)2UrTs6I-=^hy*d*GvTGC%eRx(%8roTR3Ma&(&>HB;6 zm4NJT%4HXNe*StyUJKeZTNY`<(O8*GCLSnH9DNP2EJw&4^~?<_$P#;ExqJ(!HIxqm zvCO)=M5LxNac??XufB}UHGl3g7S!+&**l0JM|M1X{hD{ldbi~fb3d3*MGHVutbnq= z{RW~0^XK~3a#l!#a~Dd>eZ`qiJ0Kj>hkOhvoi!(ss{ELMyAB_Lhg?gPGrd|gMKqU> zLm4;xG-fo!+n|_p44@d(IPP@P_cX`b-swBr(a3ZfU|G6qaL4*JoqrqAeqwE(H9?75 zjqL5je1l|p%Etj(>PHgeZxXq}{M%#Wd@?&}xBfBuKdnxywc`CGJM%vYKWG0M!%n?C zO2upnpr00FvRH6u&;VROqrX|u*gEL}`P%9_*A)2LnHzwN8B2tn&^#i@FY_x+&=Zr{o~Y>MDPm=vYJ z<=$*sT!KNA`gyIHF$YETLXf>me8>IawpYYTXHW6H^`m_ahI4GxzNohC*%M$HMZU$s zOJ{3{>EjA@gMYjz%!56d%8-Vry}e~Dk;v#mHC(|#FTpFHgUe`WDL?G=rab_6)l-Aj zmS-;ZuVnoKp&@@bV~k*5ZCnrmczt0>Na6uTR-p$7ensG09;>V6Y<%r{LyX7>(Lut?&-dly$X3IbA#V#zH~+qw ztvSmsx0v$@x#QJ;h-1gz93#MdZS7&v9&jj!OAG9}J`8{QGd0^&k-4CU7|$6XPKPrL zS2WJ~5ZI?C2cUf*ncz7&$;nWokO!=*2lpfM#Nt^+7)hx!s^3buO4w(cI#mal+RNkS zMxW})57EOWZ=j|}%>~`ypz*^_?4(s`X#KY!Z^9S_22{)s_3-I8t>4q>BVIt~Xu)u9 z5H4LHI39m1;2Pcg#~u_H)7{t2Zr38^0}0Fvh3v%q>}zE!$;QEK7~>^-g^lRAFpMfvC`8+Sl<2ZU$Cl4SDhW~Z(}_r z)a<_6-8xo(uRi8B@PE3${Q~!Zdc;3Dx$^Qde)_pLn6l~5W9o36|L-gxonD(S=CH8` zuly*a#m7%%!4cYwvM}s?)%HE|`%|?<7uJ99$9M6@MI*s>esi&vgg(IQW%pBlI-4pQ z&-kKwFK{`Tymx$8T~DEugHRMchP5u~A>I}N_euw+V^hbxm=gX=2>Zvwz1^oV+j1;G z2SOKLe;g0;Gl8&(drPJjm8vg@bNCZ-=nWXr zd*$-w{Wi>Hr4AIaq--GqrqYDKSW|Um|#t5F>vWO6k3aMTnW&>VoD zF8bwy?!f#Ingcu>_;J!TKGAM?< zT(Ki3B1R34Q?B!!oimHd?gf9ugW22POI|}xrBXzO3J(X7aWwab$a|x~RCweAI(wgd zq!vXJ=Z8UVZ5iPMLK5bEc42@N{@77~Wui^8kFd!!;ix zQI34$hh&t8V9)RKQ1P)kJa~OvqHn!P2P7!b zlZrjx`WbcHk0^$ri9HcF0T4nRc@0yb%5Es((bC?5gcn=5`ynR;2X|FF_^4feI=lu4 zeeg(gkF`rW^u6kmBJmTkrY0$Zy7q*7BXWL%)zv>Rg)3QJ`5gjJoAsu|@Y(>Q`Si!b zBXp9cU^~BMzfvGGuYG?f8|P;!UkIC^-R2e08L=@-k|IGgfcKZ(bc+S-`w=vfzzFtY2buLi>coi%}dr?V*}fq6iZ1Q0+(kHaNR>hGD& zp#yU_v>4{B4sz^?3}cPphaq7QB2?LtiQv1cPM6(mJXSz`T;6~5qr^gVB!p$s!&QWc ztsX=td$MMt`a%%rvH@8SqC_n<F49J8&TJj1u;{Z3PMtg;TauzAZYLhMRxUJJn#e_v$iFU~fqdsr&VrzeAZ~s}E zJKzd2{(u)M@-Ba&A($Gd>Jc-Ss(kmPa)0-&%ykawX;DBl@m}bM<*ebIvjKXo8ZiPH zCpxdVS^||&>*t(8I72kx5Ac{a4JcW+RdVO>rI5U5T3}v2Uk_FZW&GSTI&M0#Px7=W zDyZxD>Fs~ZTo9kFn#e5>S!SF9J_gP=jJK`Wg~2D%^*DcpfTpQNx{R8AV;nM}j$p)E zmI~?sW)uEy+w4uqaL~qJga1R@3oU2)nhuI{Yq%{FEv{?A6N9CJ?HIpU(r+8Y!rKZW zDT4b0?!uTTYNw47FFHVT`Z2+oXhi9@Ru~ozC+JU1+t62z7cNIBV&>j#d=zX4puu~2 zFgnvuI4*xPCcR-|9Ci;)!n~!}&ih}yVQT)j)edIB@u+bQD=i*Y)2>?o7Qk)VCGU{D z32D3ZK@4};tdn;-pdQkci+ngZEv}~d7>og0R?)rtpU05r3P)f+i%CIA7l&rn!t3NU z8~y>m1u@V@Gh}d|{sp=^8}JAaYdXX}oIz0hG2(x3HiC$kHtIcmnsa!TWw4Y2#;55e zmHE_6@N6hB>1JUi97NlWBA{YWVTHS~bidB+BWCW+c5*VbYcM{xu!0hV0L6>sEalZ^ULBxj_qG65;&3iR4K-+x^m2_`|4#R0LK2G za`kgCy@pgJwKOiefe90pI6QB zu(8kSj@-n<2}&yZ0Q@Qh#`pW_e(GRu#^8VZuc&#lMnPP`fDam6XRBfWI5)eEza_5X zPSq?2kltQl|7Svs^qsDa_iDm(Luwg;89s0adr(Yl!jm@-q>(URiZVv}N;7~Y@I!%YAEc4{c-YB;)pvH5txg(`kvKw6tJ)YrzJW9PhEe``6eQ<3q@fRO`Gw=gr{Bz`T1GjIOoPZuS8xW ztXsww2GJW`Ul!v$ri|}oYKc#Jr|&V6Fr4L#)64;t9phrNXa=}4>2h+xg|S2HE<3a? zY3t%xp#-d3<%P14*_e|X(oh~0JLD?f?}i^rU(>|Oq=UQFVVLx(`3V1mXM%qZOm8sm zX3zX{@%uvIr%MLNbY?(46c*?NTa`sIvWly2h+)7w}pb?_6E~zHkuBGHW8x&k)MK#5axj-@7vL=Tgi^d zWFq29)7PBOJvwHT@^+Fq^H_f}nvY#Z^YwnYRV0ab!XF==JvY?$Hs`^Ag)0Bf>;&cp@SPP%tfBJYf3O(3mKJj0Vcea<-zc z-7wSh?TJZ}-Za?$r(1t}FLrlqvr74}&>JzpW^- z%F?6{w+tAoOLhc?Kn7>Mfs*AkiCgk1oLw4Rla~|pzUuBA>?`R$AnT3}l)7K+_!`#=(`Q9*sGwdAa|-MW|>Xr+-DKYm&xsdxJ zDdIj5Kf$?0Nuz&(kOo+MF#i>dW@08Y4^CXB*glDqzx$uN+pmxJ_Mge86trSNg}pd; zI`$OUmF8pDIt2x!ATe-MgU6r!Ji$$*CNpM7#+$Es+H7eKVfh=%pMItniqw4Lyw|_x zXgL(?r-T1O!mGi^NgLFaFBGvuQ*mS#abWCmsdrcsM}>b6inT2(Cl|g^l&di?#!#+E z9?AY3H@lG;SYV5E$Gk~}y9?f1Vd!?eq~U0LMQ(lt^QVAqbY_6#!fV^acv=bxM(fy| zG0zy$v-I@A!F>mj!7VB1w(Nml0#_nyqc^8oVyRl|kcfWJdR`RoaaockmUiIc`>DO&5A zYyDbU>(?wf5%U~r6humZwy#f4B6b7CU0(f8l|6rv3msW$g-|EO7!XwhS|WU)H0Cym z`I2W3u2WhF_D5NoA85q|h*qZGtjwA3De^LfQw#4}XT$uX zb9Ao;r|(y1SLAd3@nSH{H3TG~<|HS~s%SrbD`UsZICPO%jA_mN7}sQ3r0=;6Y;M=Y z<_1PKdYX$iw7DNso0m}UEY7Z2ly~woj^=0k7;(;;Hz-~H+(nS!NkdD z-c2o!JF&*Ddbhzbr*Do?i%@^~=yN+3M-STO=quLUDb`8xf3D|*n%8@udfUV#9mM8)&4DlX{3LW zy%92vj%-)T8%nnDPLKkIel~=d&iZU|sO}_+l;FtXkR*XBA+k8w;tE(&#;O-t10}B= zip8CHje*kGYs^kO%(rff#nIOo0C-EUFYAba8{@!B@`Ur$DKQb!^5U$+-jQ@?d%ou4IL%2kgsE1;Cg zdi-(x+2O(KS4TU$N5_W;zm$0%dKHNd>?r}cvljwz@-cZ~Xq|3t75^MuK#GDDPL{_1c6kenZ zS;6u;^upQKOZ~_2*cl5~b2k4(sWWH_Cc#S8{xm#_!jxAsM0*opcMc)RnG-%o`r|UM zE8|cnUyPgYnvX9+6Jril$60@JMfS+Y8CJ^J!tQ#o+V;Iab|J+u=Yi#}Va; z>r$S_DUKB5V^E42{UCwKWE388N*L^HLc{^NVVxAKlTpT{iD8<%nsk4y`a|zx{PTDb zMl_5Ufrn=AN%%ED<;K}#^wWPNXGw3a1#VIR}5^3NQ z{Hv*L{9)Fg^W!yVzJGsNbEo>mpCs2ev-@E!m=}NIq4O^@75>eW_+ibNz*>ClH3t5q zYTWLy9|xm;A_x7%9rF`8IS?Rrq)pu@p_*@J{q{7ruy`eLjIu_9PKGCKn0 zodMcaOal7IL5eD9&{0DeT?3&wRm7RWpYkAk=#|W2dEF#bP%or;VxnH6DQ*Bi^H0+p zl5_vqo8*sx8~ElA*aF!gGW|&qNz@-^0FG8itql@&)#zyN+5XlGg0Zx;eemMokhe<7 z(3Dc1IUcpyx>$dwots=1@AK_qSd6=epsPRTv$v%fIK|syx}c?{XNSAH`xef6DV%5H zJReC&=kNhw(U36nvw`(PDXbrd5T4h9I#IvPsD6IFcPt?NxfIgR7lWw->LYxxqdGX; z+J7dXJt>8Dpw7p+1UFK+2cHx`ghxX>{^ixK-k7DMmj{1;-*q-aw?@EbT2EhW9qu}d zt?Qi)6VY~b+DfK8MJiVe0gw-*?}9(){u0!SNjvtEb zwq!0B>J2nG6Fnyp;9XZ(66qHxnKlj6kv6z_5L4Fz@oF0|K#D#X6*#7-f;sF^WF(!k z48J`^J9U5g6__)g1dj5LbduqmcC(|4Vm5?;aNz69`RckE zCRID@o#sS-x=!{dI`W3OgP&R?&`)k9GC?vm8uKTsnd(qc1me^bJ?$y6JNwX6heMIq z*_dLbsyU5k*uPenxe04F$*^D}+b@Wgv~0aZN)&%CuJ;hJk9>@f1>;I9T$`huZkjeH zB4UPZ4@mQ+R;=?nsDqKHqyvMx0i$(TM#aD<+WpfeePo5Gi)O*6?-P(%sr}d_rjd<+ z&kR1QijS12`G<*FRw> zBD9|dxZFl*lzxI;`pR9Ik#{{THl1pQv`no z3722Y{+Yx$y5q1w%%c(6f(Fv&snK+SgdKIhTU3i$(OYBS#U5=5)Oy7ep8h{ z0+M{kN)e~@I`|4kGms95!C6b=6f1w&H;Bt2Th|unyTeZt`eYLWNi5E%6UJPQz@n;x z?Li*kkAAF@C=!ryx(h`Ihj@l2pfl%g)cw{c_<~qN7SP~=nFL*CZhzvYatdlpk-anh zKIztpUTe;!R5{Q0(g(E0RD+J?WVzeebg3wDMIS2Bep-3Xml`vxk$D5*q2qsKNTD<9 zzmX;qt0ZpXiJ#TjQjZFhf~AJK?a7Lp?*L2vC&EX9GeFA0T9Og4fh_PrnGya1)*`lr z*uP7S%troZzni$3U^-#G$_oiUY}y5Y-wxNdaSR~c1$v`vzO_9hYZwkYQrIdqL?hE$-pU zjq<$j_u?SMf6TM}+SN=pf*m|pobHIDqN6H`g-k>|n(#+>5YpmsM4+=wkez9#6p{QY zpG9h$`OzwhDy&l|#g<8}TC{_kb^=umOp5m8Qy$6z62pqKIFbn?Fx-Eb!rjb=iyqGc z^tesp!ZafwWj+cY=uA0*Y7+sdb{w-v(^zd>f6?g7Bn6j{@)scfk$?djd6P87ApU;Y9?h(BBO{ z>1oE0N|%-2P^qf7LZE*dVqc9)--nZ^MAg()bVFkHurcLXKzZ(h+%&wA45_KUk<2Du z8THb?)=mnw+C6UPWp8@XJsTFqxE)b7%7%Z6=n`f5ciH2$HFci5Pe}dYqJS!kAc2%G zheKDgH9P$=9|!V9selh4j0Kc2%#LW#B0LEd6-7W?K>d|CF_fnh~-FMF7Up2 zR9^o5MP zTHGyg&m;4-cJ>N3JqLp^yr<01?qQB*R;PIbH%k!$Dh*0U;jrc8+=YiHZU_Ouwb`%l zT%%1#v=5276twZa@st$r{3(NY;hkaO>9k95p#Z>YU}*do17*?^C1Cy4-g@ydguVM8 zR#PGQ7?^)BRtBQ+b1{COndOEjliXO=7zcWKRHl;~UL4Bgm2LcclKs%gH+^#zSEi%}aHJV5$xV;3{v zkgl%A1@J-<;2m|2!2XmBAKhUohDz~}#TDP$9x6GvG$Qu@$2X*pbNlkDM)LuTorax3 zPh@}pkB#`|R)fAW7lHb*zxSdeYI)-{c{NUP4Ws_F5k}I%k*(o$FrA^JJ7?0S;%q{O zg}SqDH%f89IP?$#)Fo(6g0$e@WfTiZ92pOH!BDk}`{aH{6IgX&?1Y`&3@^x{_$y}I z7&Fk?`W|ruH!^`8+Rb}zEJ0K8uSjxZBmsXj`g_C?*v3T@5HkM%iW@h^4RnmSN94eb zTrhTwGIrs#eKR{#`OPZ@9Ur2 zxRFGE)>ip{n9y%altVF+9p`pc(N<_lw)NJQT%sIrp4a6Xkt1o&6i3G)Eo=S!{`P-| z{sI~p%#f7iB)6B`Z6XeU2GD3U8jb$=gEDSS8NZTXT1y*WUoicHNN!Cezm8y9OCw)T zF#UrzZcQ7%l3-d(9A8y1{ewPkO&`COU|LHcje;pYl_$>*pC7*5BNG}In}F@9Ch5m) zWRnELr}M(B+zFbN(Q`AtL6?`=AU}W22NZ#s!Y6npIxqM92nDWJ9h*RnC5TXP?@y{M z7Lv&ogLAoco8FmZ%46D9s*>twBGryr&M!i?o{u+0o-vffUlUBaF-Cg6ItQDS=LR?J zat$Lhz?;c5d_&cUc>0;j4&UriVLiS*N(a`+Y9D16PZ#HI^gdl%{_Wr;+ zNlX81b-3}G3!DoNYWjJ|K9`9rKLp?hl&z|=xcfKM6e7IFWFSI?7!Z7t42pG1OM+~` z@VAc;S<+N>MyErwS2>(cdm<5ZPe-^T%q|__^YJi)ND#1u;~}>KxBEesv`y)Ui?zrI zTJ#b|4`2S`#a_L_w;Fh;(m#KdsZ^|LxTg1P(8V1h=W6UVF(xR z3r2DAzUUx?oiK1DJ)==?)+?SUaZ{!6_1-&`eFX6x4j~2POg0d(auraF}5f= z02%^fj5AyqV1*?|Swi*$KqO*HVcJf-ASuI)Lg}6Q!Bu>Q6by&T%FKTjP~59%(d&c# zV_?Ja()UNb-QH3Ey^hHu{4T^n7?!0nsIWnd69#p>xODg)Nl|c=#h`?l^Qt;?M2G~k zu~E-egARQ+uyDk69$}SeYsV3LsWTE4{19y2-Y(UBJJ?yIy1l7^vuR`;gl`iBs)WSj->(-{m`J({BLsu5n6w;jZ#VhLtt+I@i@6c zsf$^6@)xRE>D)?w&xBTFviS9<&p?G={A0PY&FtA6l+Xbkl4>WUlumTfIuXP!6n`;( zy01C2NqeGl2dnbk+x5XmpP;s*Lyk3J1BvicP}Odl?GQP1T2@gZLV^dzV?vd0_N0j# zEU@grt;iZ78qgGBo~C zlAuQpPTD78Z-^{_k6AJWU4mI-2*&$3g5BP6kAACY2&T7}hll;WZo?MBHoF-lo1^Bw z#7f_^aUg!_?vHbh4r?VT&I{tm%dA>hIa-gmOIVkDV1s}9#76we_$^*D0@{9;{4wk6 z$A`OzTgg81Pgp*)*%D-eX1WjQlq-WguN)N^vOVSIYDos5DBP+Yn;7N@?y1NetXHG|K%d zDexk2tWi82%w5A}hV9DQ$A-{>Kx&xxMF-oLt~AHbhHdz~<^rQi)cFb`usMaUK<5z~ zSw#2molF8sIu1atdDi+ip{26R4;ru&1C~eJ*8G3k%1YK+1&cM8;&eY-J_c+`PVO;> zd1(?fSG@f?H&Ba~Br}jQ(oh;&(Ws*Zs0T-UsRFH*2`;~I+Q>GHR}Yx0xu*EH8(kW` ziMR??1x&R{!|lV>YSrB~SXOON*HmCdPb)Q`g)bK?eJWV!ezC~ipa$T~(M1isdSRb5 zr7M3{)aRZdYH*s5r3dW@aQ27rzp(JX9ti(>YlPd@mEGt9z*^fIO8<9p1*soF%-lP6 zrQpqKZx*rr9F?$+4kVN}FMBdU#bd4&k5Sz+DT0x))QDeHqgM1%02)LuSF2w1LS1RunkRWV zP|fdUH;`M1AJXfYO{@R~h)q)5N2Gry|Il{ht1={4Ry{J=DQSu0HxvO@Ba6P;;m`0_ zq`P?f!5kX zDiYeNZ(dP>R(XZ0m{~-ce2$DNlp`yrH!^Che3QHKA4mSYBj4XQztO1=4-i5W@a$k& zYy7c6?M)Ynd(OcQ^)WdxQn~HGp71vo4Z@S(`}u7wuk9iNK`(i=zw>|h*RSGsgp!xr z@Y9{%(X&IyYN?C{BW9T_GdQ4@xG)J^U^l4xt_TaNEG8njV!ADHBAd^q1oC~qhO~<< zNd27+*D(iU3nn9phy2@>w5Sy%TxYkjKdjgtQVfq=^r19BuLs2Xd(8FYayR3@_=uw< z$cRil|1M_b6ku`jX)%8q6<08%z47cKo1j>-)s5NE9*&15ak1H2U(N9~t0~l*$GRS%>(mv|ObRP`0{Z zpU?_7JAHLFnSp-^%X`}W`{v~IOjGzf%FQgW%jy;w!MlHg$~<+WdGqwr#EHPMV)uI5zQ{U=?BmaFDpp8b#mCrQw34jln4Ra_(Jk5Ux9M@o7dtlc}9mlu*slHt@hpacY} z`xV<41RZQ{-X&oM3K#EFH`*3u3~R#5ZaN(HXD5G9__Uayc-dyCE77F$`@2AFQiWtG za|w96`A*3W6&jcN23hOX;a` zPP~86i)_Tle2%{m7h|jk274YsF~(M7qytmf3a7Ws)MLhgfwf-jkUGjPijP_KoT|!O za2P=qIE&!FLH;rics+3=(bX!jg!{SIjQM7R`!R{6rY%4$&YXFn+pb$SFDw0Jc3YzTjU z&&KsSy0TKxWbz+Y6Pfn0|xK#j32x7Z%N^~ zecyHPE-{zom`Q4rV$Zh+Q=0UgntWtqBXuxQs^E6}LNl6D~6~)iUBR_^1>!qBzDnLS$a_7Tg;K6um?_MGX6%VNdBP z#9*Oeway%*m z2e5{34eaPv%0GM1de;It8|p3$_dF|EzuDR%a{k>b6TNGyQvXHea}?m~#q(^qKMtgG ztBYGwH@2v1EL6-bpcf+%C(w&6-ewuKn76{d5@T^inAL;Dl@@AfRVCP36iEwBwqDn@ zWb?YES_0+a2rLS$AUDHIEct(ERZp2Nhs%t1zE&-m-O^gMC`sH-kG3!(rMtKmZCNFn zujlZnQ8YAPQ-`Lm_l+!man;%K%)FM9-&7H&)l~tdg&8fD)7b^Utj=x;1(>DTs-mu{ z?eghB6kc&vUEmsB#lcNgc6P)ucr|J|RimP&^G<=Pn$9!YIygiv0NQ^O3}+V?kY90{ zf6S-XT|>xE$T=THMkCK%nM$0`K9PHNx9h8P2%xsj;w~z7S^PbwzoDWAgKVmxBxUb{aFJY*`_gbyk)HM4wN;Xx>T8c<;MXGZdHmd+7eWA&1`OR zxQ^!xJdqZB0Ry*gU%#i&Yxjr!R*f;(@dt97?Gr?&3n23)`gat85a}a1E^rZ7>3&~H ziBzXwtmZ=cZPbKJYovG1Ka!r%(=0Ta2J-GTBY^GOF4ul5b!UHk9+JHFe_D9O8?$a< z-Y@t2{r$rONf>znu35#^n1bQDgWPd;_{B^cgE*~_Ij~ebh2Xnake|*w41W4dk%hmQ z4axBp@GqRxmomww1L96SSJew0G0DyhL1YvE$oT0qkN=DLX}G}|QJm#xKYa$J2+B`i zx(FM)zAMPEL%x6bhZf^OA6bIpFl-}#r!R(un{_FZCuy182Uf~YJb5-6Cil5&m!?uC z@A(g}5}y}50@=y;{v`e5skq`Did=-3FZqT)7zk-g&}e-RRq$9Sz2kKlKTy_P`?H5T z)Bgwu?o+`YN}Q@6a?m)Qni-!*N{{o4Y#)5m zKAL03hq_}1oAXEsA^q1oJA3^;_&~zXr@j3bdvK$A2){TF<#zH2r|Ot%h$4-( zF1b=mhWS#4Nsf~S$VEEAC+B`PD8@th0my4THFtmCsr%mQCi^Hco|@wlLabe+!5dhh(5kMJFnoshNVqr!)(HVVY8(rOWQ_to|(T=_x51^DvHZ8fpE7F z2;uOOy@b*c{B-rERL@1|FU+)xkwohEAM62|`Pa*&%%>T<;F=SNBVFc(3rRO!=!FJ_ z+SR2e^eQ!kS4=UA18-WK#|)x8OtX;@Ymu`|@aQRtCLSf+3w!-zsS8M4&?aUW)CYfA%pfF&PU0wkGr!0Behpn;rPr5+?@W{LZ;#C* zbLpOC$+OHb0j6M}yaD}PA&PShcsa;0&Ul)DvTtfrQ!pRKWlr9J%lZht$nz<2ya1Ur z?y>YugoYX7(@Sui#Vj1pvSMY_TfA=Z0FpFm}fI{mq#=_$&8?2XlQSgU*uy6A1uoY zqf)cG`O2bu8yYf1)>JttlEH#<{DV!s`>*WmV-BbO-_!Ck@8H16_06?00Q$vQIv&l= zU~w=l!|m3E_rK;gArrVQH|33*`Yg?!i&sT4v@)F8X&2W<1P7H^())i{kV?xgmB&FD zE|eq4Zt{1#y$v6p<|9J~sbLI^Ox*mah0d-)EV%@!2&DV*HB#860SF{W{I{9$g4ZsB z`e0^?p1c7CRW3cKj#QF=CzQTBp@`b43XaYo%Pp+EPRZ-Z=UaF4MSQ916qqY>%}u-^ zwA3%Hzg!rM8+h0_t zzI^p!zi&8O%NrSlZE{0W;ZeOv8!~{}?qmH{x}^qGEavbfG@pNmDZ^XL4X(%~IQ?`U znhvS^#Jr-~%OOVefz60<1F7^| z(`y_tuD2W03+${@bX`~wE$l(DmMnu7(hJVPiXBF!SLt&RoY<}wK}kR3XBDUInkv;a zh^`|s7b#;Si-3RELxh0$YLr^>Dx4aP0kJh&1CrfJ5DCX>maR<(Tdcgy%F@1YR2gu$ zo2(`+XEG)hIIAt~P3fZ$ioZ$P)pC1QAXL%ytR+T7+1zl4RKi9ZTXty)a4WRvsif$j z`x1%jusf0-TE0qTylD=aO;${Ucd}h3YLdL%>-T%lT+)9t6u+~-Q*Hw|K{+4WbfvTXf zKP{M-uCNl$S~dwYhxuJoeG0V2KpiDi;CnxjiF|jPj>KPH{)qV7I#0fmO&y^V{M}yj z$}u|`JZka6!#7xV_-|luN8n_^Rb%@nnls2h9QS`14IT+9Sx34rXm@6fBZC4Muot0i z4Qu^#?B4g8@6l!OZV!Sb&H=0!E-{Q#W&^0%IxA-QbV_wWR)_y?y83s{8QcldZZ(y zd*f$(a{+th*6Tj%QRJoI{}|ll=Kf3P2RwhF*VQ`%!-IwDKKtlb#CrH|{L5J!qira+ zB0VdhwjE-QbY`|agjv}+&juer^7g|}ne$6rX;Etw3yr!G@fQhAfce$*z2`gvP2m(k zb_$34lWXz`vLMLz+NIu-vjp$w|;QyI`#wm`1UQN{MgFHuuXEQ$WCS z;TJQ?i!8-Af?(Z}*=6A-3wVeP-opsgs_cZfv3Bp?K1634B32&=AojqBoCAkk$?^&o zo5EL*dHDGLD%`ExRdA*x8g^5p{BD1l(V^ViKODEKw6N&F!CS@Ahxuoj8MCx$+w$G# zxOg&}nK4985vpJX#e8y7OvW6L_#0ecJe-yoJ)Z1<&dCKtcRmcBGuVRQ3ZCJMG2qWI zl^@`Ud-CG--gn&5F4b;%n6R@sg75^@$v{_SiccEwHg;W3vkOVkJLNPa>2QCTb8dNj zI`Cdvz)-V_hAl%2A8`L=-+c3pjP_`6w|TIUEd+jcl)wxL3LgSm@+@q(Geitn9N%cO zm*8!HjL|I1PTgsdVs3kUnv-n^2dAQDHp&kFc7NKx{WolamA=lu*WiA;YM#NM2VB%fl|2 z41DWpJ{}5lUNzFr>*wp6&mTNLJYMJE4{UF;`THeB5c*|c?X@aFE;N7Rqu$F`!IU5U zn@_pA$PfR`XB=7N@BceZImR*V#4CP`;0I10{Xpx%dur{Yps1|gvUei=N5Wswuj(_M zd{@jD7DF2;3U7>Ci<=uTq=9g~)pKAmVYSwbc#9UB1)e-zD$=siW2%wkqWT|}(<%Cl zoK^q>Zh6o&&m~+_EpdO4w>JvFh%B6i6kA|jQO((3<=AS`GLZ|vesPIa3v?ywtQ5^b za094QAZR1b3>7G70(vnUO>@)IIxc9Jf$(xc2GQi8M$Jon{t;CNobg@HEdaInU?=Jg zkt{Gkj)fK^0JCDmBPa^br0#7p=bIho;;{84Vbc!7NPwJOFmr!FLM*5|jN^d*%!6oF z?!br7IBHFLqQ)YlZK^vg%tZr-%Sb*qca36HoPlYLPxvnMzeo1uBFAQ|Q&eY4Qff`? zD-^QMIrpGVZ329eBi*6r7ueI1)C*kFD`8a%hx9{xKD>#C&~}PqG6Wkcyz(Fy4WPzq zBu+&G0#pe)HJpD04?#kpF@vP9?BpIs!B>*~GZ7nu4ATYF>h zcElV&?xlY|Qn8DgMfX7qLexc~EKUy6W_0h5wnwB>nJV3qGNni%$ z+Unq~K@g1=p~CsK3N(3^7U{MkBCDt<5yGg-#YBG&0X2YlA{0^He%ZMzTu({{*SBe) z%wogmzH^_kzMO>KlxX8aR(*LU9TiE zplp!Q%m~oAP{Cj{b7`ZrKdYVOy@=-yt=`hd6O&wwz>*;`Vv62NbM|NVygPE{Y*dG1yxb5Hs3%9Q_B^#zan)w+52EddCZ5bwmV zwu&J;a&xnTk#IL?m1=f#ap^f{iF;tehp*jT%&{nVRK%t}eA}%cR{*mK3L1bXRSyjX z&5TdbFY!HWBt2p6p24&|57Dwl7U_RuYDSwA7PQ#0dNcCZ4Qus zEHxVoJbkz$)Y0UEZgaNwea~mcA7GwPcW4c?S6q-eiy1ULZk z0&$WVY-U@o?IwEgNmZ@RlQvyf`5{)$DaAcxxL4IlE`gnX0ne8yIQM*zN0MTapXFn< z8ICE)j{trY1x)c{U9Io27LuyQp&4j@fHglNCH;ryuWjuj#VYqqSV4R%`e?$ciIhpy z38fuYb5+UHH&k=x0iH{Cnhdk-a;LbwW*r^vS)~+XSK+HMV;v<;_(|~yzWL@G3tj@= z#qMU-P{aIZRCcA;aJ*itH9c@0QURxoLnPO!nw9U)A6ZvJ+-?}m0-$W*;d&^4T^qf4 z9Jt%0CNEBQbH|{|F1}dtt~V=Tk}WALo^)2&*&R5 zPFqnUU-1WSR?FS$R;{qJr6dbfNeMk#OVZ>!cit(hUiH2t)p)C|%I(mDA(swUN>Ov@ zJ62j(g>;#50IFs9Z=Dm$pKL<$Q7ah6W_%HfVwwPNNtLSgBu+Dm>?F~D19+3>Q-0U5 zw@i$@L3W+PME#?ONt5*NYTI)!j`L=sT@aU_i}*6ii%m`;M<&_FY*J?QfI2ZSCv@Qs zvEIdf@~vJzzz%->aXZ*fG2*xTQ_V}pR6DJj9g$RMBG{EHcHYf9W;ME9uNrNtH!Sk<+W zBJI;$N7+sf(sB55=iobJE13qV=fqsn%sDVN_cbwH47(d*#D%gT3FdT$N-(TMrgv1! z>ZH51)3TXj?`&T4$ez(!C{3_etEv0 z4ObZEnEr`XZ92WY&5C_huj<7_$DtICRabHAy))&5iNWWrCO4RMPw9AT+DRThu8dJx zPA+omc9r!E)!*(BEk8Y4O9cRcLWUulON%^_fI23iNo#W99647R@M0}L8KkBJT%5v@d7Tx1l^7DmynSvPlo z42P#NAe7?!lP^W{i%~pNyHCxV8ykV7TS0D|3ozo*@B~l-R5xaG1CGDTYTSXC9MM0~ zi?UrU0){RFtn&aWt-~NGk=M#lN!P9z$vtDaB-Fi`;gR%E!@rGqMCr(A?{g0-ng{QBiufUT5j# z1Wv0#F&brqX))=l`Sc4T&Q45&_!R1gNX|}h*mqo8ln^k=%Xu-%5=KKQk7DS_AYCtd z@pqYM!$w|zVchFbw50o|+FzV*v}P5p?ubPcE1sw&2y}Eh66@s*Obx-GW31GjRIw{v zL$rA(IXQS&N@11kg9t-TBRVdEWi22DkovR}8`MR5Z7s6S)A1Rw!F?QlnIYh^LlYJn zK{YNYDJQdW1shB^c6-rO?A8=Dr0?kBGfW-6LT_JxgO6b7h(8s1!IFqT(s38U<+cBT z|4Dj^=b@zmxS11j$_ne&}1?pW<81(#R_=C8$H= zcx9D;EpjM(g+)zMVo>ujuP%gHYp0VZ0wKGwPI8H1SnbY&{s5tEq z{mcu$Nq(vEe*!qolVlQks~5w3;s@BzD<$!&SMW_s2m#%BK>*kIcj5 zbb@mOd1-d#o<@ zvj96Y2kIDJ4mC@dl^{)E+;#>d+b*yf{$q#T-3}we-Gse$>3pbKUsa$Hc{pdoMl3gf z@8kfKrl5s3wCra(jBdA=*I_SLJxiP?Kxh#EYwm*D!{?8k@%4AcY0iNqUPe%hWKyLq z^sc#+J>mfhcZg3Hb2f@1?_^&Lm2AgoGsyPB6`>pwA2!ORbcc{`K>^ps0oK_UEn{0` zm9qR_FRGR36r**#>=H>uUj52gz~0+`o}rt{xNfcCehnn z6#xpddNea+9~wvLa;CmMs8*uigJa#{rACmh#kXITCZ6X*aE_Q<{5reCs`ln@kH~F~ zTou4P=jGnP>x9yqiBLKyE-q%{oZ^a?hzAT2KS`c$ZiL3ieq=+|x$;TH7UsTxJv!^V zPi&+lR4YL$26`(iL5U#Vm`mNDc|FWrlsD05_@6iW)m|UJu z2?2|}m(X_W&l?*MhNSI)h{f}F$qyS4aKw~_jFyVlBf+KIf3tx+09N)gB3wxu*ssb%Iazt=l> z{fe@bVYGL2RWJg7YQAMD>a_wf-NJt z{4~d5XzvB+fv+H(Lv06tx_f;|-_qIi9JKYAFOc~?Ia#>>i_Ss2C~yINiKJSShLIF$ zT!cx$#DCFcH48+9N9aYc!V`D_{s3IFl3LWNFD04)#-Pi=<9R%Ei3f#_0l5u4$EFatK^CRqrE*=af( zp^c?k8EFr1H%3s%Frmt0;c@;g_`XLmDu^GNwL`D;7=*T{)RY&!X9ylsaBK_J5nKG6 ztm5zF_#_|YWe$OVJLtpTXVVlufG&UY@dn=`i;0HHjY6Omkgh#9WZ*RorE3U>wc*_n zz1o&cI>AljrWxoAHtJx05$&PP=IMwOQ+ci;mAU}0$lvtNw13|Vl6ZRCSAn(ZJMoEM z560^w*z3VP#6D%c-}`y*;COex|EhOvnDf!r;rK~DnVw63B;CU?YF_ah9g;j_X4SlK z&KIciEJT=B?)z3=?g7@+n`sb{ zaF~f=iiWBhThR%UzJE?yy1!k)m=OT=ciLXzEle%{PoLT1>puMJ%dbNSwm-oq{(Unt zfTorT5YCuvR+`8FP24nuP6b>Tny8_wq5(Z0Uu@TZlw^|;3;>UOoAkdlq5Fxb4I3y&6*V2U*6~l%5kv7}Orm{?^f@XOtgsekd zbIuErkdR64Oi;ZQ+)+G)i{X(6mP4_4{`GPfHN+)WXR#)h@wiA9?y3L+O5v+KZFpuGPkOF4+E#|Q8lVx+lW zW&i7u(A9pF5yNWOvs|z3HwgBrU#2#uUjW<1`x4nNez`{mLIf=zs$;?-)2&WQiv?|Z zoF$_UHy8T&MUo-;@&b|%*68k!bLOc+Ly(1kc+u)zpPa%v%L5V)rz_#N8-ij^QUOPK zpKdbE2t@fzcj$;rw}&D1`scIhZgDk!T1@B&iNO$A4a>|e-&E$#o&49-2k0SRUw)k~ zp6AoA1Nc=wf}pzTaB=X+?dO2K5yWPYSm};o_RotY@CvovyfK^w9fbzrSfLFu9Y(`{ zE-F>Jed_Q%MP7Q}fByP-_wda@{Zi2|mx6iRJ34;-su?8QhZg|(eE+x!4jgV?xgp8r zJJ~tv^`BSQX(8|nA!c{4w;O}M@Cf_Q505LWF6|YRFnAOEpC_tMF;Ffhw?chfg8d}L zU@((JM4TUEx(Kb9Iz@kfwTt4T4W_r~IZfvf_8L3MwB%;bF?A%XV~ofW zq>?RqoGGWX(^GLz;y5PBa7MAsVFV!fc9SRO8Ve;fKj*EaF9={W#piO1EyqQ?#^ZQh zf?U2on^XmGT08QcH!{x}yxI-Tr~H&2>CQOTKR9RQ5DdWYkj%Nm{-7sMaHzC@2yT1Q zFc^)7@rNAnE6D*#Qoj#@4nZ-BapFXDrd=grBxrkz=2lsv{EH&$Sp)eil7jI?7(M^% zFTQuOQ-KXFuu;)lBO_VgdJUQT0odKs4yaCzJ93J*t}{)DXSslfmuOK#28?jIn8_-& zAxZp6JKn34@XZttKcv^4<_SiBXV#H5!eXwEE7>K;@B8KeVVHXV!reZq-;*wa>rO`& zrpwnQumJCFR@6EbDxHct1QP8);%0X|$KMlZ#Vi4{r5U(C_>%?V{|a>J&gn&{(@Zd= z1G}uI?B=vnapF`Le#l6+m6&^eT*6xg4^<;6hNUi)Y3ky>!A@Xx|K@_RR(wOOGJU*K)y^OBSt(MV&@s=?x ztXaish3G2A;Mi4+!&r6|{dwGS71esoSw;Uv8#zR%Q|2e_P#WdmQ9Z49X}Eh$?IMae z5T52&48$h&YuVPm#?%RaB8x*=M7O*oG#*qvL{F)^Fznj6F$+U@S$xb?-np3w8p;ze&O z0mHuAQ=F(HWGhubbqC@N53riK`>gr~b6@J{Ynr)pG{8F0mdcb z?4cOi(;T|JgWXn#{_a2Ty?Al>=KY)A@!pYq^nM&2_H6B=*9UKUzqHH`YgE&lvV{tz z$nY{K+kNY{h-W~fR-T_-Y&6VTND)}>`!(|b>>{*$K=t5 zKl!{eXXC5%x?%V?9DO8ajQzu!HNHlTIvJyav)@&kqYuO>ddj28X(Y?rQZ6!98l7qF27@1D?N32OWC0e4!ehL~Qhb`fRQAF=vrEd6)QyoxVT;<-v#GMa30* z{g%*qGQ1wA7aTz!f_G6C#ZGdPmgpA-{tWAXa=WkrwaKHp%%;F0O>Hyp{PbE(_fN9( z^kWWr5z$_q6Egx&#XjXN$3`GNlgs;wt=7Ca;-U@}PywksN0im(aTPzfMugGC_r^8% z`<~j^^JAB7!Hg#RL=V2?95aRVnJ^$aECaJ?+m60tY6y5qlC|d{045y4!Gp2X01S|` zz8j$2LCd6FW-Riob-?sa0#SYB7_f+cWS9rGevx0msos`t(8Uj5)?!O*gLiq^263Q3 zE(R;uM~71p%Sur9LV@hbic>*%Izm1LR`bw9XqEQ)7$8`GkxjK)N7-3A8HU6FLlA_? zrcIOgNQJKqb>^SmTi|Bn=VwsS1~_pO;DPh9?4Ksr#muZ1MO>HY@D<{QK@e?!<7+La zAo6=35LT z21dPFod^VpDS$Q7BPRX{7zgHvk=P^~6Zyw7-ct;FwhpKDmRqj`k|6ZGrJ)`yHgSyJ znC_pQopspb$oxsUQ3r7BNLDd_^!oklU;o1QmSrn z=YegW^Ui|_Dr)T)rel?+-fSrJ`7*cymdI3N&hZS~p0c5bxCfTR=)5ote1=C8qcM^R zHar~c5rDDiTQ7iIb&5hf0(yoW%?9Tk_GMBh6vY6YmC;Vf{uioguXT5S#M1HKwUeO? zHu(j(Me&Z389dp0dU&*ln~e@)efXwuVq8MnH~+x(m=?v=8X&udn8|MDB zaUo9|X229s4tDc9*!y|!h=_-gLYz2FTKBz_xz#htXA$kvuxAd>MB`=I2(y?bSH*ah z%$!6XlhKiM)HU)E3r_Zbw6wv^N{%1W_zzoyWhe(Ac0FFNlBsFF#3QcZJ=}djvL1vj z>*g5gbeevsKhrtfwVZRzQU#w~8#g6FR2Ufms9~6hL${JT5zQ`*+31>F1ig_t0m?8D z7GG5hOuqt|XikMJaI`jlsPIEP<5Jop>BztwUi&g1IW~Gk?WW9sd54B%X@)WDygnr+ zILGrQv>CynbW$Va4ucpL;0B&kNIDsZ5o9mZi3nkGKzD6aJ={aU_{_#b0I;{hx?1*~bAjrsy<3n@u>V1KGX#*x&%HN^Cx(VCTdJ z?K~;_nFtx|aEdd3_^(+$_%I?RN_Kjh4=~QDrJl|1!!^r5ymeS&Z!xSMvo5=(kQ(p^ zvT66sNbFStO=d8tALLe!_P)gopt`w8aN81z4q&AhsM-&Rl97QKk|gI;iSi2Etu2WP z&eZ+Kqg1c+BTUSi|0_ExX4A}!!hS&T@IpnY1$~LE36gAo>@SYf1zK!FoaXgA-oasJSlqQ0hj|{(8)w=c8`f=>IUx5y~=4YeI* zmxjp!zO!|IB3u#9SmeA$#k0`NIS4X9yGGD5G&f2onmbRj81Ta}8`yopaYt+T?h{|M zPN4fp_GWm0n71pnG%MNHosjC1V8R~YtXj=y87{P4aP(Zagy(H&4E`&9;hiQ%^_jr4 zxKBf1DL?tw!9WP2*>kigvfI=qgB+riHjzy=wC|yRWjFc7h(v%NxRt~qqt8jOd_jfc z5)FAUN)A>mCEBbE!JHfAWrl%xMlo_kfKSbSM5`c~ir(BxRJbh4T*N={Qhj}}fBdBm zD7}tHLBb9(wg1oI!Jei%mn|$;q0gb6Fa0MxUi!`H9wc#7b2$dn{{ju(jeIj0y*oX|zrzd|c~fP+FTm4I0RXU78`$~{HQv5l>Q(oY8| zkcpG^v|r*<1u6i1 z)OPDXB{^-Xm}w|`*?xh0b`#99xB*!Q|A8^_=u5$=3QB#;O-0Q$wW< zOjmI@GV=-WV12n86b6MPj)p_C$#HB}Rs*pGnF3l6eb*zvl#R5kN=K3=I01&I8PTc9 zK>p8^qxj0FuYKyTu z5qb=JS3*l`u$sb);Lf3Vsu$D;`DP@f&yEY}gR!`9k75KK6~70+)<*AHx9Ns$Pj6N6I(8M!GW-Z?2;nT>BYsBDxkLLi;iJb7aPdFQ=|!h9tCRi z2+L1i?)lbBEJ1~Ff9i1&3nlwZj!gLRa*qgXs1l3Yi+Mt!)&uhO6>&D89-dW^Ap|ja z)T(=dXb*bFhsk+1$_K?IUMsWlS&G^?8_aq-1=n?0SH84DXYZfvz5jdf@diXx0ni)@ z=gD63_ul&Bjh~KsFJG-cqcdxN*PPYkGLxvT9EP1}5kz{hMr&%Qv88um_-+!)CkD}a zsY{SLE*6ty5>cE5S?#bOB#+lt-n}WVS#;M$ce-w|kFO47ai>08L%bD#{~xQe;YSP6 z7E7#2djq!@7Q8y85X|fHGJ};d%Qs*qh_ZFp_KfL2$m}B8^NxN-m7YPtb&-y*S?i5C zsL8hpBrJd!Ot`dn2C*2R@)5p@qWW}Ag}FiLReEh?p)qFx z#^KXlHil2KF97B4gz7kz1`g;r{gAC6o*GO8m*m?rN=ul(#TK7jCw$|OJj~ef>+z0N zHq>>G+HLWm&B3rowE>Z#L&`Z~JU~G5kP@q`loWQ6C&bXpV3A*crk{|SCH2!rFtB4h z+&<+Ovx`M^SEejR5}`_~ItbPSRQA*|LvXq<4cuv}YH;7rST`rvZ}<8xkCy(cmDxQA zDCp>C))3Wn^OSOSLoRgAGfeKNqmetjZ9rTENIOHlK#2|th10&Btv?Kl$ z9JtWZCRPU4Hmfb?KY1@6CvClQum=xN5RRB0TGai{Qxe&GmoP5a@ba<*jZ%EOtv*lx zrjlK4Ct94v!)obM+ z0_h(D=^p~=9|Gwg0_h(DX_G+O9JyCn0=%qH5OMMO1_916b4e=nUe1tj@neJeEBiFa zF3J84(zR-TQ=OA^L^3lx>?uQ&;#6a?YlJb*V=5x_g;_W-XUwL9AYVOY@3@>4gRI0L zJe7$cWvie(neQiRgYA^(W}x)ML(f8z7@L&-Xf{uXH7m@dm~vuecuA=1+Q#^aCm{i2 zI&?&^=C*-V7NRs8%%;}HD5Gbh>aovKNk6FELT62>5AI&Mq%U*OYW2 zI)rq80K1kLirE#j4Bqj`#NAyFQ~P3y#^QE_Vg`1By2+X;7? zf3d5(P<0joyNDXQ<=@4b2pzc~5YRd*k79 zBgBVryn#dKa8tWVC&O}qvnBmlIzy%akXNLC&r*3e6qDSnkvVPMfKL4adnX4C(NqiS!{Lat z0^Ge0GEp3z*eohv>=Zb!Jq@{?Y;S-l*?*O+Vd@UUb02k*?>mVh2&uE3Jcc^Euhty! zHx}GO6bK)&Z59Z^Cz-PSBUASR&SI8G$YhF_4-B#dU)IbHaqN4)2yz`7^vP9!T{*ib z-tZtx4<+ewQVElUY4dPnV}t49)-U&4zQHmbW*zFHdZLAu1Gdre_h`qX?4{1Q1z}bX zJAZ`ErO5bIvuJjZg@p=b6e31KHMvePNNfrZ~+;<>qsL{=$00)xKQ*s6&o zq51zke}r@#RUJwAluzS-LB05>a4F%S?)Mvirdm#dY1`35&QU;*vG%dK5lL-H-^n99yX(h*nG5_e2Jp?JrHvsIz;Jz-CcV(A960eEqSJD z1HD1y)9sl2*9-&+(;zw+tw7cdERkq-7J=h}-2h}uI<_N#$Q0v6H0A%b` zSxStH0jSDsv0Bl$V=Rh`Sn8FMB)%JK1nQ8ngp}oEEr?tquXP}DXw9P-yE|94vx0od zpej0;*}DgQCYyAB0(F{BE=gT}os8ja03HyoP*FZL3|h=djI4lS3KcAQNzbTn8V>sDlSFg4gf+uT8f;t37_Y z=|=ST$@N9~;U_b!bsiIr4|2+DPK%6k^DmC!B7E)L+OD$KO;k!eLiV~9_up(+`L1*J zY%j`ILvt99n_Aljed&#l#zlelYl&HdVxx7Ien**qy36qj^5QK|NVS-;Ls}3;9!6pq zz9mAM@79774;#ekK~ffei&sxz#tAUvJH=L&=)Nw}Vx;D9CMa!0ngrvkI9X#Luqj>X z@vQ^y`QjR;UV)XPpsMaJ`J|I@PGub6j~w2x8b)fN0|RVSVXNmSq$s$?_;>nY+P~(? zxoB;FLzNq`%E-O+m7cK@&-4w0M2E9ejO3-A<4OeHVCX>)Fok~o9%WvVNX~fTx>9OlZKsmBwJ;BLH5sd5P zU)a_!G1a`%H3h*O$f>d&#%EY_@n2Zm=2YVJcI2Ggoeai7a46NPt-=~D73*P%=dj-R z%nVlkf$^mHB?s@|vq=VgoK=j%fFP0z$S@cHD~Q8K+(L%d^v3ljA5PC#R$RCC5%igV z68)+W<)!H#iMarj_3(GI(KP*so|xIs1E*0_mR|yKeF2ESs3Fe-_=^U(kYKsXmL43r z!(k(M0^t{q$|DGUufE!EvAte9`RfM6fXxlI$B+?xa|8Zo{`EL^WkwUawjz{{TDy+M zv;OhRay)Dqz*YX{3=!dsu9%s+?Si#`#crzXgtmyv^6(-ZX3=fTZ}4Pdj`04$mfGsm zFV#=~&_><5s{Ve{tNgLGk{4Y4($U>^yuJj16&uR8y5o0UAFT^C=<`L>NkbTE*Pp-s zMHvXd;NGn~@)q^;|G}HOSm4{L4B&6ux~i?UQboCZ{KXr`FWxx3L>BjK+5x(Mb`{0+ zA7U9k2L;w!=2Ha7FUtbC7Ce&H=6I5hODH%hrWKt{M-5i}ZK)xk4r2Ukx`Ty>6_}te zM`ACO?*n~^+giT_%vaa?Wf7G#h}>^5Pz`AyVj;Nv zkiuG}`5N@fKYf--ON3G#MdRh+VSi2l4IUdJg`z#7G{~A)lv;IsXFrO6lf7B%a48(R zsd`nURk^L&Od)fNkId;gR%ut-nBx#yDGk^gPtUtZoU*$_c0^}D10_uX{N;xYEt1eL z;n!R+_K9likuD_-tCd?Je?;&$P(>o>s88D{!q_ECR2ppxFMENPR0s}3dBQOu6~xC} zohBc~=6ZK^ex0{y7V-OLF|}w}l5pd<6-~_~$U@pI+sNm=C6M9M;MK3rM5Q&>IEPn~J21c3CTx-cT;RRlm}6gK&Ct@pRFV)kvr}lu;M$ zwJN46L3Jrn_141bqC;+ySG~c@e{Zq-mf8FZ3BU8ZT;YU5)|F7g4`NNLB0q{UFwZ{F94+ovMMPGtNhzEQ4)IFVN@| ztRg8nkv60(m0^qX5XmD6P~hP(AI~7RCqKengG&w@H=^zBAe&&+_jYf8&6;v>?w_m# z8`d_yUamzUEd7XqX~K>xe!NQNl4m+kS??JoI~3Kw06;%KTa(h`b8TQs(@QTeM|mXB zk2kLPAl!?8kOPXWghwE)Hpu7{l7BHW#mMx}>r;*Y^b@UxsTeAvQ`jW?uUS5^FJ2&!NG6b}ilaie%xQ6XiMo`g)k23Nx`fZaGP?BF z5u9#WP?bA*7*~E6pM3K;i_7JPNup_dpajda^Xb`)g5=tkCOZbZz9d-jCc$Zx?gX$I z^6XUXwpB}2m;E9i4@NVzO#*W)QqQ^EE3OxRwj;2Pq1u1ljQCR3K`e4) zyLG9^x;Pvut`cP$!4pHR5oUW;4w%})APpfKk~&=bGOO2V;NTM@HD~-%nP&&=PZN*) zd~8>?g@>i>D#UnghX*p`4EO;_%ScVGEKb40^t*VZ!oHsY!>NzQJCn#MryY@ZBgT? zBz`mkLKjIPi)}-2XSxqbGm_^9_n4M{8SQV-`B$Qdply#uSpgUx6{*d-81dg@DfQ3{ zYQkQi=xYqWtDfG@k-grfE(U&oJodon@OugH2ZzV=x=_l<_92HYT2s#rI?JbZ^;DjP z#Bcv)sVJt*tznm3rt1BML6ASJESKleF+O23((jFmcwlh&02;Z$D>)hi#>#bbmP$qSg*Y zX>?4g)oGv!*WZ^U3VD4UZWdU71#DAZ3G=)(j3$g7+C^U0(i<=U%q9jlU#rj&D`rtm%HnFwmII;lF#`f0q~d{;l>=4O>yxQ6^5sM(;e)=j*! z?PPPqmDS9FVQS7D!qjEk$>aGjK@i6HQpBMo0imk^!~t^@E4TYTN+=Y6lurj{oZj4= zaaf}MiNJYF9W|`SyoL>QrI`)=LmP4@pA1IXtD@BQ(T1~uQw{BkF;!_h$n^|X@3BQ@ zX?tIGmad^cOTEmFZLG$?t#-QvvD;mx(X3V?99D*GDy(**b$oEwi-5b<=&GSm#j3x? zB5@#S=Ex+2(?3K*%w<}C$L7F?V;;Y@!dli?F<42*?QH3FSelA;erw0bA{Ef(WrmvW z$1&t!OoeVfF0;wBiC1G76`Ex95Lm|Yr1~hNAM*)njh5THeLS--_PMi8`ROx=_4ie> zw?hd#8Q!0@EC*7Yb9Q9KcLr)yU{4bl?8sfGZLFJiedMP#x*4EQr5nr zu#Jlf+>}(Xjp*w5NV}1IJr9mjLmA}bI=gf4_ah2_1tEB@7#!p2fFR;YHPVhx=G*kz zR}m!~m~H$Uq-kn@6^hfL2oP%-mBX2Z$^2Lci&=1jVRSHqFzdyS$(pjeUevdr}8-e7f{*d>+*a7bO4{@eR!cZ3jr5n+F_0Q$~KW{u53b%>O zZ%w<3IZ$hV%DlyXRR%0x3zZ?oYvWI2#S_Y(<{X-w=@8ae52Y$(oh zm}+U?;K?%AR}gywEDv~Ffs}GhnQZr_n#@1zI>CYGQSmtY^!11sW9cGYU{dG2z}F1x zQ1Rc0U=IwMeocCf&;3vRh|E-r0o$l(w-u030vq=vsG95Me1>-#TGVxTt-Ym z^c@v{FP_jHVS6pQq(M_OwOQZ%%@(sdlLZ#Ex`uJ2@Vi8fgbpkFEURR7Nat$v6TKMB_g}g#b6U`O z%Wn9J`_@V*Sn^T;*~RY>q&tZTjGENz+F7%I<&_9Mt~kAhrZyU>;v_!3DS0dfmovO> zM}wV|Svnblf+d1En7dsfs|JWaq-NsIpLn*U7$5lyGDfNWC2TI6VFuX_6u1 z$iaIKts?mTf`hNSz>p1>ODrFI*vC;+i1fWsDJ~F@Di5MPhoSk4elJ$rFjYPw<(FpLV&waOk z0cr?vS1yQWM1ZK+7%eOWi+WXyfAC(l zzl^g=>md_J2+_NX6Mq1&`kLwxa9cr;AX&BbAAvFp|A>`y zZ_O>BoOyLD1Mi0t4nJox*5#+dY=u$I;N9A8j?!2di$K%v4IKh|Vy>$O{uUW`kka64yAv18LxEpjZsOqe4%XGs>-midMA0%ar*{IM%-xzlIy2d&^rc-{Z9?9^F*@nWJN!1&XRNCS-bbl!O*+^i1IsD6uiOTYC zXqgtTmvFF^?`&o!&TVp%bA%unt`R^TtE4+Tng9==OobFGYQgb*+-I-j;M8i0io^u9M2; zhScrS!p5*!h!w7^1ndwavxTWB#a;pjvwWPGdC!Wqc4={cZ|`}RwB-!ZG&A%8*O%xF zvUPP_QrWs1ex6wuM=VlRy1l$~plNmaZ!`8cL?AyPZy)+sz|wV^ANd8f#+YmL9Fiybrn zt_NFV1YTXGwK;Y^o{?~bi&8Q*m(`bE8F}k!UU)Ocy0{p*pc3qMtkXYs>iJs4qvQ_t zkC@Hzt-rlM#AvKtx}Hsitf4`ned7cd z%QBN2bfaAK;JlMbz;9L!%BP`=lpiZ~5%Lv0!Ug|;SIgv0{vp52hIzV`oKL5h<<@uK zW#jIDm3-|Mle6#O*LT>|;P<`ZK$HB_{hi|C!u*=>=aPYbS~dNCO8z-0%H*Gh5l&Mh zB3&o{Eb}q{{wLSG=9;d=NDtS#1=Bo=xszbj^)OnHZ`Qeg5UXfaSJrZOMhq{2F5Ha%9qyr~U6jNtxQ%3Rwn?!RXYi-2sO`z^ zt~;UH#6#yz3HR3yzP;?g~8gx5< zscI`iH@a$IwLxJxx3ftdRwmn#qsb(c0RWzY5X~)B_ugIr*`+)q{rV zATTWTj48Bpf$u12{SoNr-}H=#u|h(B7vHr#tPyP!xR+NwEwEk#rk|@ef?!tLZI#AqBk0~ zlh#W{zTx5*W?)-nl-;U(fi<6hTlOqyC7tAPC-Ei&nx^mY!|IwFxn@|~6&5C$5$z;f z#K5qWrx>;&;9l%~-Wcj^J3J`|1#Ak^7)^^|aYwsFB@9t}#syogKdr(Yb~A#$6MFvb z$XQV{VDbjUyuOa=J@c zbzCG`v;D~A06l!q49CwV6yjcV^tk8NT_AioQE1a<<8n6PP`O9hI&MeoA7YK?psE^^ zx_@L=z%+q@(z)G@uz+cQhR)CvRShB4?0HVb^BeAWCx=vQM;6-cs(oxL@&s>ov{;Hm zRJ6`SEV#S(JjcVqE|7<4%SiGPFU7we{JRE z-Y0`8Lx1p{vgLKPMXRlf0du*6HIl%X&o`r7H=+e;mZ^zI)-l_E(08gztBwvO1y3Cb zLwUVZUEIczzN|Rjp3Cn!7#A zb57SZ{i1Mi9dagrx^Q!j)xSuKepM?Z%4K*_4;HsrJZYo z?jxB29K{zT^^j(N4t39yWtJuGSn$5V65XB+_;dc+48h&_|9f+UAQ_!L%obn`^EP-i z)!oeXVCC`UVo_tkIK4cTw@%Es# zrm1CPj;okT(I!p_{J~nTq%q`p^!ifCdc2&n(V3bWEc~2*j`ATqrRS2$4-!X|Q{Y;x zbsc4=Hmd0fxb7j3pvll0`d&A5h}FDxk{)f8rQ_F^waDS}#HF2SKvK*ST|&fEwt^o~ z$8CwZF{gZczvuwf4w4~Vo#!L%kH;3374ETR?rn$or;)bS!iXzod}aZE&dg-;={0J; zHr;lwC>D8taG((DPtyy}8`ka5cY#J{xwhNBIU$UqD7PiA9eyR3}RUN@8!9WKej zM~fuCfZRmnz^vWg z#9;Q7gSZ8ueQ<>4U_UzEQ*19a!U@jB%nN#8P;5Mos%2~l7|20Ryv}R}#||m#-t514 zkqpd#c%~q^nM)c;V<<>Mc1Q>|k$nJsK!d-^2D2$CXeMZdhN&QTUcJW1V>39sz>p~a z7rb)y3kE$Hr6q?G9ogkj$?k%M2`7N#FnziVk$h|=?E$61Fx|ov*|nL{cs9+}SmxyA zdU^Qs-pjp%V>yJ;$BMtv*jUWGzBD_;mTV`V4JqwFe>sP9Y)M(GbMH@I1l$hdtaO-S zXDV{PGSfddi$4-$Xr7o^(?RCQ&=ZpJ<^D5SrgzMd_2vJvugFVNn~sjGq->K|Ro(z> zQ5y``%QfrfM_n?R<855t7fvWaD8F2>++i`m5~v;<+Y!P@UW%8wN_&aGX`KWiRLQM2 zkA_uWe>enQa}H$&N &->%y&<9e9s^2LHwMNcV(i>^Vt5~BD4FEC_JUB2XHdH=fq z{*^hf3&@nZZAU=K13xFLulvbyI{uJwo#cfPI95B=?=SP=aFoSLj`Fi}X|nTt{rmse zO^zo;aapb=kc99t9miG{@kgNPq2sNI^GXEc06uo;8vt4ho{8(> zTFWVX*E0LXA4Gx|msO<7Ro@xjtG4a6y649+4XgU&Nxs+vz*d%*(Tx@V9}Zk$rDTki z>muDcS^*%kLC;gzv6q(_u$nRlP7cLrpx)KJ3Qo2)hJx;Q#Q75URb?*_J>sT8E>3yD ze}E)`F*s?}S6FXUX6bb!vpg@Zz>52tdw~udyTlNJdNu<5^Op+rqwEwSF_bK6!*nTF z(1h4~$d=9u#3h+L*yN9+@( zd?hcnYH->GyF4#uBXf3Ug95_foRs)j+C|O-khEvE5`<7F$aurrNKWa{oP4=C?$a>v ziJhd~DSM)uQk;9w>0y4Swg))E?*2FrqeD5(G3{EGqFCz`Hgi$2L!fk7un(&GtJ1)^ zI~cGr$H5@`nfs+upjA(%HNF$`f2ENf33GULh>cdm#T|pU7VkE=%rpN=z`EbY`h=@n z1q&QH+`E6qEd$&gvT~WE|3uh0KIfY~N{YugBA7d?_kYLf!JH=o7V6#tYQ(O=V*>bq zZU_OJdCY+Dfp5%E0h5!;^Y-tDC3vP33o(Y;eQ38K;bg&Gc>7&+H+yKwf9L%L_7AH* z=IxccQ~QPoqhZz%huqMOhTsG%BvTYo?I%zV8_YzBrB<_BS(}dg#G-4&+S68nGn%iM zItXBht-mGC0EBKR)Mas!p5&u^3MRtsO2^5AWOD<|H@^!3YLZ=r7KslFef7dFtoljF z76$JVnVk;Oc!Yv^@r8Wde_U+KSeTkBXnTnHZQ%g(zC;f%*X!W~q#n~{=)8t_^C@`M zYhW?NU)HQ5RDJw$yMn}s8grG#E~(e-y<2q>oBYa(+4yH?hR`Vu9))k%VJLLn2v8?2 zo#Hke1PGe98vsnaxpO%b?H~f45|WnYCsl?Kd4?drP|SReI>&5Wf5JP+Np_w>-T}UT-(lz~M*wnSGiXER@NUw9M|qae41g z*dn5tgYT^lC?<~6e~H;|{SR=WQpJ@Xn9rYOMzYw(qtM8v2_#1Cm~(%WUW2&~6l|Ig z44f7Gs3F;IR3#iyfO+FvCF zF6uG4n!kCUnoqv^8|@rY`2T5+nZqd%3tl-$6Mve6%|ZL`&(|LtoSXkV+I+?T?cskP zK7RS?btie=J9;VY$~7{0Fx^ow)AQL>TU(fp(n;x}mx6hPkqT2i1+m1~IS1W5=~qtj zGt%bRYmpfve?ovCiz#`lc(?de`d(YecQ7*(K79GTlb;A6Tq`yYMz1x%FuNc;zuSYJ zo^@wu=M`<*U0l(uloI?sBw9F{nTeYV2cLA7?g(6#PUy`qEPoq(dB<2+pVSfM1qhW| zz<(=nvN8gR^t=cva=+`J7mU^}3gYnFQ~%W};&#z|3YC*YbHGz5FQ|dRxzy?yNH^IZ z^Ba{pe`7k)jh>vOr8^BvJXl8Nia5e^S4HQxdGEl0iFS}rYj$Rf+|k$oz_epyqws=K zsl#Vs>>}gUeUqh^sNkcT{1XgIhURyEO4pDp`i$(Alm!tWUYG6@XpMQj7!19w!S}va z9X&K0c4T&|GEyKLaKq(Zqy~BCXgx@VM}Dtsf3&5-v6#wu6toiFKGi}z5bDZ%&t9(o zrKz=@B~4dCz>eq#f^Fu+3x zun0}@O?g0BKrPHE%0Vyli(q}gY>Q;1_L{%w_%Q~7V`YgoKi*_q=~}GG8DD^;4cP$D ze+as61P+O7^h2_%8_W z@Lwxek-{!RH;w>R+ zkmSe3YwZ!2=`fREEFxd_YijswYxa5_;Ym%rpr+LVd??cDhO8(8Xf{;`jAe^`k~ zaW^lgeS_e30HX6~W23XWo2M6r*$ zGi}gis?s0-AkPqd; zZ~kdGIXYYgX5y8?`f}M95AqQ1%A0|5ZO-13Tld?|cb$3r(AItUPA~yHZyqlEK*5Wl zPw?aF(lWzK;AYi2GWnJ#->GSL0FC@lJ7j>c2~k(4U?+yRK$chhs-^>{f5;XBl%Bq< z$X{-MbsgpT>()u`m=XyQl_&OKb94;Vb>^*9H-hRlzzzea8+?eE5FP95fs)d2nB(lz zw8E^9aKnSbr^=scG1t~WJ5_n)TWRDliR7)A$1%P#!#LX8tz{QCWk0!_xd}BN5@~3YJNNT$7Y2JYm*UM39!+8 z2Ua*8upY*BZN_2vh8h4_NQ3%ChD$@*O9#3g33Hsyh`q$+ogp<6e||B_ z9HbxfGg9q!yWK5TOMCwiIpGwTjK;2!>|O;jNggB*9<=^wx6%((c{zdWOW*tGp7<9-f$*$i}N4tHybv$)( z?lB`t3JxEInM+nBMyCd%^~Fld50wS=CSi6+nHi~lNPHX1+&48m ze?dJMKSW^sP!9v)@RBXEu@dENCO8$>DI-LrHei4v61!_QAG>X{n_XrUM}c3i=*`NU zsl4RobNhoK^znDIG5(j_H$Ud(3@tTiC8Q5Df6c&gq@xm_jbS`K_xP_F$T>y`%vq4f z2j8aI`b2c=S!3)(MvT`6Z2xjFZ z24Y{CA@!+FqsqOd;*O`f_4>oxhLHhfQ-H}24J(z+WI3o6*ie9!7L*^@4EDIVNYB%& ze-G9U;+8`rRFJT$gmf?~Fj6JLL~SGuU^JRtUGDE?5#4%60n7*(9Cn#hwR6lV959^I;Sl^o>p2PUS@OKe-=;&T9VJC73E``jo*HsPO>J58DdPH(&fx? zNZEr2^E%m#%y=l!3GivcHMcNZ`h1)NWx2Jl_Rn6m;vmQuMtBA_l#^Ch=P8!Y%$9&o z)9HEBD!~P64D_8^9~E;wGOc_}y)HA7rb~D-N>5LbS^j5waZ!5kWf_ zR`3Oko(?Fw7PLNXraW0EnSv2Y(Y9I5MIRS`P<^xO8N&1*Tgp5p<)+ z2y(O<$qUCpaAY)I9_*|18WVdEe~#R}X37Dtz=zvhYfjU#kwDCZ@f3n3-h2g8q)q|kMmbDios60pp%LxDJGwS2+e}j|ot1tXu z_0#7aJWcQKyx8A6IR4VHMm@zPyV0Laa$qh7QQ46WNFeg^rjx#kfy;oG`K~u_5kG%#8fv5 z6ArE3l=jgpz6nO*o6}3bF)W4&7eRRQrkR*=BO@-x2BugGBct(Yi82J3qUp`nR}tNA)ylLa9fe}A`-XdKuxr61iNa-f5;3mB4L5rSO78+ zu`qLDp~sNp@LA+ptdEGaV*{u$1|Zt|c!&`c0ASr(0{7=LDzcQe?+A+Fz~s||d98n} zDgD1^^1GW2MigNLnKm&G68M>QrzJBWQmrM@5+f5OU`>SMK$dRX@JHh4{FMg6QF*Z= z;`_-q*V_Uuv3Sz7f6y!v{%$2`D{(C0=*VM-le5C#yq?H}%?3U@lNSSL(8)b98yDq5 zHq57@Db?e$?maLke^gWy49k6tjf+JQSTK^*_?~BqSm@bNlrHE!FdQF*OH?r>^4b)>Tp!7i{x^Nk-9n2|9Y>9q=#gbPlWu` zu{Y+6#Gn{58deF~s?AtU%DtQ?fg$zXd&Seujl@0WQ1Vkoi#<)n!-WP-pV)VW+*a72 zKx~LbU2c17=VtTZ7koD8|l zZ+=n~5cMhX4nGKU1lE0>P=yQhM2D00y?u&sc6a*6X2Ht)&Um1gPtbAzR0H%0{(6H1 z27iGIWi}PERmcg)@iFpp>9ksZu`vMWzYiki zdyl><2g1ESF&X2_eUfvJ1Nf08)(c_(82hc)&BH?y<9Ep_PqH8d~u^uEvE%6Tk8mEj(`pw1~PVP-4lq ze}XX#D8AY|uf?;e`+`{z+)~wVdU}KW!>;?ouKU-r>$Ga9h`*U0>h~X&V`$rCaISo# z&!mX{ty-_lQrlF0vpCQPR|4b)96W;j~qnh<*qWdy$Bq{Qlu z&IHjb<7g%OMJTKAEo(oQ!G`*ose+nff02_fH&yT94g15-4_l$*7yyOOx&Ry|x_sRL zXvuCz0PY2tTV5737(6=W-%FS^YI1{FUDiF>^e2YE;B|UOrjB_jtk#OvRp#6ID|xa| z+b*nki05T^Tvn41c_sbyjKH{-ICN2o*X1iB^w!L`A`Oli6@L9Tsj<(j{bYiNe{Ztw zw%oeFl>3H4Jq5Es(SEDdsT-8Z>-{3ugyfWTBr$?Q(m-wEf8~-PUE<1{^j#7{_&=vx z(gyE0>(=zfublYKz7F#VG1;AP%pIOskxmQ7DqNnUJG>%P(-fKuW0#;e@l|=jX%my zpmWlWva57CS%{OIV(Qqov_CeShVvRX71-?As)l`Yd^tM0;7NeQ(%6hjo{;+Na~>FAlJYYb1ff2y%JSue$H-aINU z|E~3`J^Hs#Po6*De{m3}LO9Z$3<$+fk2)^J>uN=Q>)?Z_Xtj$-TCR25D+FKluX-a@ zw&*Lb79(9eQ%IHRO~=w=#*AnF`6oSQvq8e0DK5=k!j@ytwS5*47W{WJyjD z9hBY(qDgnj&SdOt49AJWu?P=yLQO#h4QH%QCJdkNvc+};XC2L32i#K?m27KK z5o$+>U>Fs~-;01VOvi>s;X+-Wpp@7cNEGzw;UvOqVbAEse^;DM*JSmns8(U+i)a@b z1O6s2mPxA>po!PSr#d0&rAQN=EI#JRUoiXA`)sNcM#-CJBHBf`_@p%|BuG9HMugEt z#J(EnLmD8^^B7g5z(x(bZW&!vq-;ivi@-pbQDo(LB3@_SO^$UIXeBF}J`K#kh4~lW z2`5}Gu^(Z$f3wUry`?e|inH%YilMz2nKNG8ZJC<^;iWEYCn=(wDM@h{>9~)|s%w2$ zzEl>iK|jfun%KfaaNU` zJd(cdplmv=KcFz2LhQ>dDkRZMc4etZs&&08wiIvR8B)A3YDFnbX!_WX-rMuYCtW>Q zUG>aLl_kXyV#NV_$`mG|@B|mAm>bfsuBWMFo>#$4Nco$o@kRZ*U22T2X^y#}fnU=W z+rU2Ue-A_K4@1l`#PF#jw50y9$5yt-T!+*j_SnCnJ$9P?w{pf^Z_qR=0Q-lP7L;*! zK9<@WGY`%b7aMRdWb`R&qD3Vyoz@ zo-BKoF-utLtW_OGv_woq);FQZ#nUA^$%j}!D4Ka}o+!SpWXNoAeSG-ENJNShEjea2 ze_1Ue;H$+0Xn~6;@iG<88;C4#1Xb%SR&K+vIuFx_;Khj|imOpV&-v=-{scaB+OHmu z4kL6l%d%;*YRJNAHp$XCP84iSvkN#D?4SaMG9KY6&T&i_{^Iz&L6zxCgHWs|)-@F5 zpF{%l7cxA)*+MNde}Erq$fsx$Cxt`Sc+h}LhWz>(A7@#2$RDZo z19O>BEao!9qnykC$YhAmT0_1Qt<{(xX2=4?deM+M9ysPN8}$#cHCM#SZfec7lTcc# zoy=EA87cWXM)vGn=UkNu6zL&kN@^)K%;TB-q?dNl!N2>`E&@K+TH62R!vgQIf1l%x zL@ri;qf}@TRN0lNRISm?2vw-M!6qzMunVX`v0V_xXcLyfTw)vSpaPB|1xl5xSOy|* zwMN5UGQud`-!#x8eyA}Qn+7;$jfQI(gi+drZScT+F18JD%nXexd_JMHmFtc<7p>>v zskosrpUBLb@iB8Wm~9Xn^N;8@e_or<7uebe_rr`CQLGorwn4*Yvvd+|$SyLOhgm3c zFcE4fz6DGI%%{EDA&Q+a*tetbnMIA4M1X(+P+D{p7IiW;cxq@gDHQJV?z|YM&W5fN zn_})eCleHQA^~AP0sExlQO{auDAhQTid4qsjIa(;L@l13cm;#Yxl3bte=UvwUVY|% z`nXX=Syz1TWrfNWjR#xEN_{L*2fOQD*Dapt{tg)XmyRif%Ql%{2cG180H_ZsBY)$cG$k>@&y+aoSLD?VrVvc0Jc(d} z@jX}rQ<(?z36?FA!Bpq|YPk?#FyE-TcLz(??JT>@^usk`vrd&fm0q&8RaqjU*D3X8 z{7F1}yZiD>k|^rH|9{A4cX;#sYB^D?x@u$%%)296AV1KT;$YktsEhR8sJ9A9H&LGEVwJrX4sSZ6}AN;VhL*g_FZV z&rG1Kz*IOnWD7A0ke^>YY&KBxt!j)rIgC4ALXieK?*j%~Vcv(AIq>{ql35O=5K5}S zsw;{~1n(~-Cx>j2f5$(fON2^#6$sMz$5h+)H)B{v+fT~pK8HPtyCW$fm`F>%63I-H z)t6zD1OLIvX3z`~PLxtQ_Az<3SEQRtFjARns==x>GnxM%oMI+vicc>rQ`8E-FYwLk zL=>+O;3EW;$!MCaN=W|X!Gn|1pjm~O#x6~AN{EaH26q8^f3AMJCcajwye+{HYr$IW0cqJRwcUkn95h7vqm>WVl0#| zcp1FbBd5xkR+XBfp&YSlyedhHACmbh^fj5{Dw0=h$pcTlDh^oaD|UnSCXwW@;+)#mZKyOB*cFauUp5>rMu@o=!;W(S!GET{?1l zXJvj;Qr4W(_U@Q97k_<(hi^_h9d7URE519G%^`qCBT*nca_(&wFUw&# zQK0CEe=<})!`Y}pw8eKC6cr|WZvIC(PW+W>yvi;+Vp90f^q0mb_-3FsKG~&rcIjuk zbbgy=<-8v4-AvIP#H<_+l-SFV~uPbOLBmAs^^TQp4a>$A&qprTt&>QX@fw&1R&i=A|3 zfB!`4m_D-{X-?NBr@mfqy|J*~>rN(X8~V0IL4-5662hVRB34w(To52*C+~&to`@=C z52%#oKJ@L8RcH`QVW@L{7dNppeiyAIo1JdlLWyU^(=}Jj)eDHHvqhz>$?~>5%}^~T za=u!*11a?|9*%bcGk5KI%kGl=Q_NOTe^&(-IUUnyQ_E~coO*3xCgaQec9GfV9F8Caj2rQW(aYuh8f|rb9oI61 z$c&fI=S{K^yE~kC)z}7xQk>V}pJcmU)C3@pq(6jSCUgGb8tJ6tfa!pN;KP<4W;b{3f5lNQMF zec>JC#BltpxU#GM5 zQ@P0J+6z^TtW!nNI8~h|yJ(Jtr-*16nkb^AWV*KJA#TowcVU&#yp8nl+e~eofFk_Jr4ie@$ zU9V9!|JNwHd ze>P^RrzritRmn<01FF&7-~O4iP;=x2!mC=;Sz8Gbch>r;%y-j#Cf->$IFE9nR~PBU zB$IwQ191+Fbhh?Yf4v;?Ft;ACIOTCJLzXnW!ny3+2xI|uw-xQAW1Yy2pht%;gxIMs zlg88R9bR>siMzWBR>epDh;sf(qJru2>zU2%VuAGHWK2WrvG*c5;gZ4{*_W0~L1>x^ z@HPqD@w!iOT0;gQVA3Bx1x5UR^CnsYjRx^FvrC)?{c9dje~w0OPhh`V6OTQ5@L4&} z%PvoZsEV|!{igU@EB!`2kr}wno9oY^P(yVpq$ZeZZwYsayYRbH9quiWOZ+Eqy<2>>02i2bUqIHo}# zB>1pt4a*vzk|&4<{CE4m+R1nF>z(|1XMO!Fzka5#+sS_=%|_21wZH^xB1N3iGwQk1 zZ#I*^V%_cJF~UB8zt9D3q)Q1wo1{R_84!Y}XYjuRfB4^d9Z|x6TKE_KcHZLhsV9=* z(UHreqjDY{86F+EJUSvCtsquM4vVB*`Ybw9EIN`bI1||v z<1GQ zf-u>Vw4A21yU=i!uwLgPApwcsG`U$$7USE=9Tu`Vh5@p5%wctTjo16LPq#BL+p`gS z=HRc%yx|~%QME8zI5LzQfO>}l05Te1e~P;f!nSv5%ibiW_s)~_5(?>V2Htldym+tY z{H0^bD|7~pr{cg-^di&vV>ZTg2K%0T`RJK|S~r1Y?&A17OXtfO6FjA* z<+F4uTj;H$0@KCi^)I(ui3o~=oEB#k z^!|}%!hC$A1W3NlA*4u@F4FfI%Rz;bpMS_^m-$V`y1`a6kx&ER>UX{!k)s@2d)n9Q z(Be!6;@3RlJi%`ybB!*Bhr{$hP_A9106^96ETBv-MV;@x7X?(?rX^K@f8CCBFq{dc zC=c@GU-CchtVUdwVT`6%K{ZdjaHeBeRmQcWG(zx}J!VrBdX4+P>9egLy$z~%BAn-B z42#Jo=-_DcT^D*8pyT#0ABpN&@O#CW+4>;Q`7nA%> z8IPPeM>{=NqP-0T*U&sie?>g3(D*At+jZPM*S1S;iLc~qFrvwz&?Y_XFc28{?MxJ5 zsMUc?nxjJ7wnI*i0zlFc^Ok{~zi|-$wPA%ShR~C)JOr*X+@g1qS2;eYTYsZ0-NI5k zuQ>zV)_zO7r<05ShM{VQn5f>!>8m?etrq;Yyj6gVo%#kDx@_4R9r5Sc63fl9}lDsjNl=IVl5l7Y1~< zGN8|4KxCV8Fw#tw&MM9qBlq#uv0k7K%>^uHow2McS_CwyzXyA?=jn1CZ68=Y--Oik zuZ}&5Kh@is7oNlq+tREAs9{A4xmDH!`9Ww9chQxf*Mljqf5BP+@!NXPMrPVr5J%Q= z3enYi{fn6VwHPdKFa$Zw{s=uM#&#cPx$s6PL+Kn3CuwgHu=4a~RviA$p{N$BST{ie zNm@@XV1`N)JvBkR-zOL54;?k&AqN|T>bMCAWcK5^wD2}9FJw|@xmDdaiJsLbx$9C7 zC-O5xgH&;zf7D&k<=OHAD=?$ki7^i)m@LRa=GF~#<1qKh6C4JX9#2QvCvkl5KHtWJ zpXb^(#wC!EUlI}P@A}CqED&#Wf4>?jQQ)dH+N)Yq5}>C0(A&NE{Idv*)bZ<>6HveG zAYG(vXA$Z^>@Um&bUV@e9xLX-0bH_$@;ZqOm!Oije>hmgRC?qrTm3}0WNb$kulqDz zWbg9Xo!oPjBXeZ8;nqxX59dPpSLy-lhM-3&DV7#rRVNX`gud#F6amW6rIp%NtPYJ0 z>ul3SXB!81^;sFKtzV|^!FpCH0YhDIuT_i@0b{okGlG_@+r_#Tuz~Y1Rxti-%o45u ztg1DPe?M`H7=Nl+#g#bdo5`ik+$#@7b5EO!GM)MT=b`(;>|YvfOwMku7KsUo=N&h6 zso?$1rYBuR6#S0;saQ_AdlL*W16a#+vNATzIcWu)(WlUQldO{U&21VSR-jh7B^Lr6 zxHA^0R`S-Y`Z3omD(Fccz!z_}S77iw%;7n)fA~MApj*5pNC*FN&>`tx(ZV%9>?O1H za;`hJlq~h4|AIYuRJ*76RTaP_IN&hAzzw8e#fpL_MUPR<4h3a2v~Q6GfUGaS0SOMs zu;a1tKKOzdv4mIKDSK{xXS)0kn!e_=#!1Q$Jc;%eSwBYkAoSJ}Yz$gGSOyY$_i8sb ze?RBD?_i5tgGu~z{H3C#AF$C@*`e?Fi;Tp_WN?^`#DSofvwY4v@D)h5|`9lWn_ zd?0K^l>@8Pw8Yx)1DQvy*;NnUqbW#{%WkwV)S_u@#jl~$d=YUIIM08gAIr({^gX%E zr}${Eh=qH8e0FyH^WpjF{_%^$)8ulJ&gFwP^v~Yj9{!hpZ*3<({6+(sWal%0e~`@{ z+0DO*_VpzDw8$_(<%i#XOy}97ANS7=zbJV3`O#1L{_tD4YYhJr1H)K}kNIpeN^VFi z(>phJFuiW%13&2`BNu6oiLmd)6&H-6pm%}Adv}y@KUGCC2+179VU)@Ga?4jv{nH`e{ZGBkTd~J3Ii8a zkOX0riYM5d?i5T$)~e&xO>G)iZ2pXb7N?hY$?^1ZhEK^N5cT`q8iETdxzdd(_AZ}h zG88V>$3bTLP`}@^5A0x{)I&^`p{$~;*mYMG5T|ujsi=KS=i3Fc@e}IafL!2`STs1% zE-VyfZGV;vM5te}e+-m140jxEj4cmn{fRJ934>UqoIX!!rV0$_1XIs}}vu0Jc%SA8cZbG{(c6S@0_d4q*PWqcqJjY2Qup0S4+%OpSUn zS`waW{x^j6OlIBq1`VX_uP}xQssbUuJg7Upyj()VyLxi5e_ViFA#}=YJb#ZS3|V+; zdDj;kJYxd15s9u<>ms|#-C@$(l@#8ry7{l5W2(hT)qtg zD>!JrlwOcjaBY^u_UvK0(}11+9%^{4@c7yfHNLhxKC|6wz=q4+o`HEqMjA?*c#l*X zR8Ok@Q0=Gqe=HWD2EzZ*?L$QHnhm~<)(gfDKrTKMEe<#L3!gk0*sWZ_66Y>8Yvt6WC|+- zh{YMYMKA8mE9=+##dy6dm#eMd=gAA4J15VcHHte@hUj??HdUk}&&reU$K!T|nOfK( znNMOHe*^4ddtPlQ2?4E$RmI`Q5L}NG+VK6tOzJucdKJr8q2*Y>WKW8H@rbU4i>tCQ zGjZambfU!w3WK?bQ(Pp(=39^eCeg>KV;O69RpN-~8?DodJkiGLyfOnsAIcc5*pIYL zSL})m#fm)yJvv&lvB#?lJxWWjVxJ)caGhT1f8av(xi22Q@GL>)j96UH=vFCNVcOSW zbguF$igoey@Zk9TjJqo7_s5UV7R&c(Qaebe)4T1*kCWHeBw%#ya}MLWyjFVhFvT0{ z2Y1u-W_*d)zh}!EISF3pGqK3!pf}K+LbHfqlBJ06i%k}0*$Fyl1*WFa{F+uOdhdG# ze{-3Z9@7IZr|7nl@4(9D=N1Oo*W<_CK|lF0o-N2S$C(|eaF0+s!OiFOQf?{ip zv?&b4Kj^a{r^79obz58>o-QA;mM(ZGW&t4uUC2s0*xF#W?Lj;#eA3l}343)0mSLpc z3$VZaMuW1>oGcqGk$nFW!i^Q zG=0bUhLAOY_mU^AIJU}vz9P1&*#ltPil_}?jTb5nQKgc~V0)Lf6^4LOd9ZeuQ88E5 z?yoBDgc2Qbh%!4mLK7TbyiWA6W@Mc6hP@e-y1vY!L}{ z#foI)M>P+CXOSHt&w2_qf~-?XCCIw!q@p69)VYy8cnPcW=w*H51}Nf@i)ckw>BFea zqZ*fbSzCJ>Dq(7lw>E+*cXd>ttEyg+tnA3_A+Rl+0R?g68b8=WTkd#@@2NH+WUF4Y z5+T&_i$eu{N2V$n%%FNrf0c?c$SzqC&zY*=r_ZA{hhVE&4a15QY;B%|t!gxESEONk z^E7OGG&G^w`fiO8Qy#(WlsPfI>RmnMJ>hwLjt_JcKL*bpAK0nFbtRQAS-%+QdWznt zs{CSmSxuFvKw?-@y&+@F6~fg~YRFG?BcL*RRx1ltmhxJi3yMR(fALhGN2&CN*XeXL z(Fw@e$%OQ$MxqB&lQ|tf&Ov$QS63pZ+Le4InVoku1Rx3oFu|Fr${MG_0_;#uIx%xj z7)`2u+k=R-vdX8+n~Q8_1lY=!Xfip$u9MPPD=#oYDe@Q1cQwJ*q-eh3B&c-u!EZRt(rc*=);|uAa>_T;LyPVwuM#^ig z6S=$I+K78pC=R0-G~(N4F3yEYK-cZ=@$@>IVWMxLAm|%{*tXw|=C7g2i4gFy+P>F4 zUB%J|R7oc`n`=?GzmukDvKCUW9joIq&|q$v%KnoCGA`@7e@q4HU-`||w}-Dl4<8(# zz1%;CDRH`cGCjM_C4m}m4?lo_;|JUEEI=ziIlwmVb3xACXX6QA&YqwaCpPBpK3-Ii zD#y8{ui-XOH&A|7ac4nYo**tA){?Df`Rp*gycXAYq?*>LxVB9Lse+{^U5t$WFr&h% zG8kUO$=j&xf6A`Zy&WL{CKHEyL8mf`l@VlXjm{*7xc-Mk)WJ{|ChXw=QKBAbS6W_F z3ys7?;fkLIj6h`k#G8!`UZlWi3jW8oFU!`pkQE1AhhC}O*eT?moel%-J42izcf;=# zhc>i)21NE#ZiT?sKwZc1PFiBru?~#_;wy>-7+Y4nXq1}Mk+ocSMN!eW{ ztcu=w+w;S-v;8BnSn)HJ7wXsxWoRqe-X&qLITmiL^|NP1&7BmWjxdB-{a{futICC~ zRW>OXe-`AL(~%_?UQtx%S$}i6a4MF`g-d-W_+>qDDFeEBDOxwmXeK4hcy`<>69vGg5I+G59@V&S+O9#m+z(V;pKn*3^w<{{2jIAu&b=NfqwM zFzfQ=_-ZUsAFD$;5Gpk&@kG{w^{l!grHBO+e=zJBKFiw?Y=YO?Kl=8OzNH46#CItL z;y|xDCEm0MBlfw|*N82AtN3R!kxvH|}#{4E#HG^BTIv#n0di*v!w9WHe!>)Oq1$b{27VIOPFTNbG%GG2+ zoFd;t0tA2u<$Ga7@_MYdci)?5zXiV*>@*+-UWF2$LEx(|5>BIPVqs3j?;#on$b*W< zO5xw%<5ZT<9+Hf4*_q2s9{>3~~Cd=)RU*I3ONWDpm~mUsEnD z_uD2Vg9EMwdkaa2TcN~T82B2H5xY@|l&D~WicF3O%8F3RL`5XRn43%(a{GtA(RE#e z+O4`-zn}tJ<6Sr&LH<4L=rw=Xj=+Mbd)JSLnYS^S#^HE^N230AT ziXB_)U%YF3#jXIVw0m`^9_*7JzegH|6z)%S!+as%0M&6H7^VVydE@cX(8u{wtp5hW7iP(kx^L_DmeAzZ}3^h^JUafzVAHUdZ zio64MmM>?Q*}>B@^->Gg#e1gmQ*i_JESS>>KYI;dXX$M|)wSiH=o}xx-{UKhE$*ZE zOp#0x5LTz=(|-UcxhzW{f8re%O^b8pZj|#M-&rJy^E(I;OD2ca#IjoLVuT7+sBPQB zqL0PEvRRVRcA61>iPsyng|51qFU*=m@l4XxX_L~)*xYnD(YO-QO$FV5fzWw6#KM%Wu|ies--AEWy*tVKfkJ4=__qU zMy<5Pyp3>niHyZguavmhhUq3P_S@X~ZSKn2eD>Q|d5*&me~xe(yLzyWse}H~ZM3fd zOF*>0C?ByHWN>$`p;VH9G7ZLMK-Mjm0^2k9yU2lHda-_hIGV@&Id z_E|n#TtCfcvQo`u%YU}E96UhogWuIUZzqq%0B^@^`3lhEAbU5uY&kEb*uVc4WbhUn0{W|~1(opDN+OUbHO*1#9 z{JUt_gBNY??s+SOr(<0QQSae#Oh@+f;pzEV@^b(59KXn~KY!=>t&S%Y`P32>iB8!= zGMUp_o<-sqN7*EEPZ#L!t}x4?Q2}FQ4quILF90P#WewjiqgjR+4X-v)gy{ zSb|y35iP#DyYJ;uH`emca{P-fJ2e|1w=Cm3h(hZu*j!s-QL`u5%(BJ`t+j$)nN?P5 zxfOt6c3G+Irhmjzsxrxb^FW~U3cXL`;MZ^~Nm}oV^9s68(co9_eL}TCSYhcERchOf z+gS6mHP}!u@{GjlM%lWC*?PuV$Ux(Ra$YaC-F7zNNxA)`!e^qp(Or3?%YKhr~sROLztQ^@}^$u&WIF?$$j-hJSa_&AU~*(sti!!R82xD=jdg zXDt)lvXieBnPxWZE`_QEftjDkHeURM-Uut-(#y8fk&m6dEq9)CQv1=FxbhlVZtDKh z!a+zW3b(cDMqiJz1}$%;)>hDqu8!NF$BK^>Z=4EbMmd-Vh-HQt;H{UNe3mtm1GGbA z3@|;p{C|*>iOxjTixc#&RLPuDvt#wy6qp%3o?q)QXS?$VmiMYov5}<6KU~s`G7iT^qowW){<^ep`?PC!eLf4(G`oy@?tRRhuD1WFumegG4wlag`|-SlKa?G+CL*#$9aRsdm=SXB6Gf0k z4S!b=hX1`XX;#?J@qVH^Izz_LuFh7o_uSigAgb^0yr!$~@glviv(JlwT6eF9KmYRk zJ#RSra~GUe;#p$LR0;tzWH^JR)T*&mrU5AxclzPKCj z5FcThWH*_7iWr6j{MP};l%0-Rf(`z|Z~q7E?k{Xy^r{XYw|Y@0pOwFBAuF0eNPOVqbBt6}?u{2EiDk)NJG0Q-O13DCWDnO|GYMKsSP4QxyeBG1} zM85DeU5uwou>((&cVH+_Wq3FX3bBRqj+SE3LRxdAznH&{oA%o9=E?;mDkc%g6$(M6G%P&D8;Wl)VUS=^Z zub$^H@T)w{;jSUu0mS)wgfG*$P{PnsD(DV}nDj#vH z0yOXj3lpo*`zxk+OMktv@`NRnjI6zN^~zjoFp()I@!cGw!5TCKA){P)Qru$Ok?gD! zH;R4p(kkG79ceA@Yva=DbhjC4Ed;u*w5pqhLC(`Fd2*Rg4lrM2=1b#=umpu+F0k1L z$rbB>HeTP!wSg{CFyXn#79TTMzdD%h7MI$7Qzg`$>%|zK4u8KxQ5PdpZThmw4*b^) zi2>hB$WWnu%(v$Iw=!cOSJ-=Ef=~qck9Q(qe~VjsTUH|);U2e!s1pXU&Jd~7@ai-+ z`nOIvZ?hn(FeK49Fd^z;$*nswR(Hi?TgNNO?4omVz9;n58d*s3f8-yr$j(VC_n}Ha*T>?!SIvl2k@% z5xrTAlf_LpP@|peIGbMQ6fJFRCmPVOQFQPt@^rb{@-LnttuC)=h_PEWkgIWH4Tf*11@kn@>+;f@yfx- z^w!b7A%FeP)i(yw*-f_iHO0U}uhst9B6T{bD=P{cY>CGSgL{611r`KW4C^W|nxblF zByCI#=*O(>GVi(NTlm7=f+B)MyvQZT4vf6tp_ejo`_pmlx9^s`;R)qW;S!$(u*) zkMCN)8VVV7l&~o~j)HgiL}Tai;d%BVUmQ;nS z6KjX75AI|f0;7j7(WLr73{MH7l4#LhkAKGlp{sD*r6K(YhT>zs~f1&CVeA~*tHXRM?#R@WEnXp2H!;b;o2C&aJC`hOuz zE7evXJoEKb`ncqj*7JE`e4N6ax_@j|Kx@I{Yv*S(|JPI-isvHWVHJhJCJ<}9Z9-ei zRfOI7LnsHk2c;Hb;LYwWwD)qy{afXxbq53eESMqHy6VLqV6kE`Y!XVvCVSnkap&V$ zQIXgvIV!}#Gp0UPP#&wQj@1>1#eY2WnJEm1RQ@o}Zu0lpX*Q}=RxB>{TxPt;KPDfu zZ()!7E|>2RjPhij zyCc6og>b}?Khv8^x5(aE+K&%KY4A+H9mJU`!j;|zHoc6YC$AG2-T7g1{?nm2Ecm9R zvqRz9s3G(=^9wqTz(3+4{(a*iDmeGl`v`K01=^fT(!9)Om$3c8XdN_348^9&ttqOh z<1%qr*4mcWVSItZ@UihIn}3O+<6T%Lf{i#%+QEK;#HD-mh);TxFU1O^A82r5iaatA zca-D`nn}IrkZmQWjEN?x6;iPtACG@bVt~32X%#YRuMh(VMgWn$D2@gGqjir_#E~C0 zDLhPh*khFVF$$O2tpdv&#uAlpEMs)I(;! z=Zt{)GAcn#28WTT=&JQd&5_71fai|AmNsB4 z9=nrpmp<5zCFktd27hGvWPA@d7OB{6eTAYx&+MKp@>`bW6aINp6xh9g{Nw)5`!Ajz zo>mC#hRW##t&rIx({A&@-7K=Zs7D$IkU$J%bT>_J#+P9G1O0JbgLQEKSlE(h$tb%8 z+~_k}$>x<(W|HZrdQ%`3K2KpNEEfwk-YER3s0SO+F^J{lF4~ug9B0H$#kz5I5PDx7M`8_iTGjB_Z^4{cFw{S0Ye?4$d8}#A78~hJv}@)K0o6sgMNSf_+YuX zyng#*I)m9#`+vZInQuRS3|ks{LyF{M4g|ftR_TQg(|>oM=MIEMnBx`i<&D&Auk)FF zx)4loyfQ>HgRKzjTiy{ugX1Cfkd-U}9 zuTS@1CiBbL7`_6~35E#*sXhWR@jY?jlzo13awd0iFHjC7#dI?m782+Jw@dW?_jUd; z`yg2$`*QTmO^y$Ox(kyEKQ|Iu9Da@qpvyNFe1C3=c;GS!`Xi>-;ZOEZvZ{lM{t+47 z;`jYyUTj{MbQD9VA35)(!jKiuGOIrw9- zCXHZ!vZN7aSUg9B8jXx44~)nwiHu6`Qx0p9hCEG;bK_ez+!B|og*7jR=NC2 zQihsJ&h>BD*rV5U#qD@!`QVhH3St#t8s5~iakdxLi|t^Q2^0n%H-@b3Grx!wI0Ok?_X)V?E7@R0>YT^X z8q;YPHqD3W<+V&KVUB8Lzm{w#JhRu8J_UA@QSi)Q`^SU~9Y0%HVcCInJ^5Bv`!=y0 zswPjK1!kL>1YQ;<+Z@m}Y=1l=iDx9Rvlw=DvD(_U4F6q>TyA%i>sal6UgT z*RVu|wt`aSE(i5qbN3*WG}q5ggsvh0gBo_swEI-$29ko$bb3@JN`F6yaOmJh%lMMS z&CQ0_wY8wgzVw0s3(?&i$oDRNCqv7eC88J}452#m)TyXKmL}zCGPPIR52KUPjfWFfkR|?LhW=oLf#x zQ2Q^nhcW#ZR@cuMM|ZWmr73WZIfs{+lQQlQNqT3QzV4T=P9P~_me z2+$em*~@DK?&bz{wi&(rVppTMHVXyVZ^uMWK|fw1!IgOC3i`T3CcXq=hi+t zxErQa3bt|dY?j}cju_IB?u;SLJ8a1Ry5781rDaPbuz%yA&DC{EI#?`4dZj=AQQhKG z-O}G`H>-ED4&91Tx92c!T4guI13t~jX619 zx?82N@-5#hk@k&lmH6+dF#cYbCl%r>NTfQ^mjjeXSDl~S&hiiA5t*F^40EvWA8U2a zJ;Kr2$A8mN_Q}09(W=|Pw*BVLR!>%c!=e7_h6>@2k~Fk9bR>&712c(IIDv$Yb2OZO zEmVZV>i}@^Q?mKo3mE}+ry>HMZI1MK9cPIQ38;%r)5kH$%OqQ1ytT+XNI}G69kp?^ z;{e&lG+{qZjrp5L?iX>Pz)An&PBy0z`_;3&!hcom0J>^z+}twNTIriM6{|b<{=`q= zmc=K0ASAcIf-2|9uU5!#grboU;&AP7NHNC>jf_=g=U0~0MTvJI>BJkGl?0Nx^orm` zbg6wc!}cLsV=g{AlfP`UqZ^hE*5pDch#e${^UIT;kDtn%epyKXp;(E>=N3AMi)HmsPs*|NsdQ=hMEuAVC*>(D1oG)h>Bbdq~6+sjgF$iLf zAvCz&Ql>b}8!~d^*B&Pa`SjaGvPeITVX2+tY2)HLohDtLkBirPpFPR1t|$fy+I&p! z=BCd6hkQ&c#5KB~$b$uz3kGAzkSU3&X@7BYk=@a1ieKyS zp6;Lhau#50De*VN?=n%4&nIhMDT-XC%gc1W#8^;qsmBV;P^mERW`_w+I=-SHt&iz+ z!9_y{=czvGR86hgOPRNmVhUX{G^D>CW9@|0)nzysa-1D3&lGeXwSsbPQv6bZ8h;BN zvg{fOnWnettMTG4{hWQsjTHWvE|xcA_IEZ1!7+ayWfNfN=j-u%_H8*zmy6VV_6f_)2qhIhconODtKg{3X@xr^CIqT@}(93u})_*@w@80LPe}`!@ zhmB@xzGGhVbTYlmUge`Z^Ev-K%75SMKVPJiOBjdwJO7a5(=6k=x%qgOP1E<|zvq+p z*QVdI92)MACNdIDe0rBoC(C!{!}9$#Q1Zw0Vu>+=2D$SKFa_r0pAp8?zK$)PvpYr%;OnyTq2ph>rSIw8i)-`2}OA6!Dzbd(4n^^px_6 zpmFshu7r56R-QNj_5N{m@_&MnZ%b9#(tR|@3p3Ykx5Z^>@_@6u*!1yfKFMc|*RVim z+q=&upd{4R5b+m)PM1?y*KrX1Z#ELUUr{`_;=%ZsWceE#_^$;+lpT_Hrx2y`k)CEF zXPj>E6DmGj!=#r*eUi6~_xTO~u3ly6lVqT+qaWw$#>4Yuy#vnrFnPMAS#*F;-kd@;j2u8*~NosvHjAM1bE8^~&^`s5|Hkv&JHhO_GvgmUcuZ)AA;MUx)6 zjyJJzN*dK{9L;T38+9IGEFzKZX5nyTTXK{gWOI?Ejd^rKEq=3m`{HZeV0_UURBO9_|k|K*KGuLH{ z2s_SN+u>6l^@Kn2GAm|c6KY(BQTPYd$St!{Aj8aG0h5C*D&8Z7_~Un3Gx)O1aI6y( z86aM`b3p)tPKdY`XwR$ZwhcKi<*JJw7vZ?~`{zB1LDbeOh3*B=;uC904SB2v zYw+uAa*3y|uz%Aai_6F>o}e|XY{2OAF z?qDWeg4`u{odFjNd z{QX|iD?mFizwvf6-t3yI!AsYp^xuAyoS~Oslz+t3I>NIkZ5Z*;^hh0qVwj*{-#2(= zdZrVRSLm-EWF)lUXeb4Nv)+pzS=E^CR%#qrBnRBCcP+GD;d@v*ze+TF7eQk z#C}(AOFjg+WuDRV-ZCWg^@UW2pxPBvPe#j3Tqe|9`Y_IAawZYO&>}4=jTzyT6R+|G zo+tNcbEFQLw!@*RRmd6N*{s2kXh23_T`gnFeSakWc9O|pqm9b+{$c?@fO+2}QNgW1 z=kWShnaB|lkB~S<;QPtLy0Q=pVR5Xm0M6^2F&(o5yGsn4r@KW$ovd$^MTocVBdig(T==Xw=5bIbfU6%h1h$_3p@RZn z;eX&kRo!wA8h(@BUi$=0e@_y}i_1!qz2Dw!-EIB4*Y394oo-{;8??IZ;h_Fz z>l1u^((kwW4e_lvX!q-1SoFr5Hf!B#_M58WP_^#$hP{Sp+v;}h#vRtUGi>%7qE<(> z?d_e@AKHz(tZ}d1^?U9P3-Io-)_>i>u+z{OD!luhrXode*s)vpZNvkkZuX<2 z9@qp2WiNhOhT!eUu+49_gWTn){UOxe@e==LmoT`dz%s1CR&2@=RYRV%t}b`|)}YrP zXmV-p_j;XHM}6+aHEb#VwN2|TGDd#gi3uLGZZ?B`x7tI+|9(vJpyzg{X@45^ zcUoN|3lV{XMuT>!OTeWclQX2zpsfXx)2JE5b3IXU_|oro+lGXu&*n~qvJPj4-JYHs z12)iJyX`jXSj~VXvQ>*W8+OAiahcNTw;DV0hqv#=+gtqUw7UUP_j@}#VR3X=HEf$< z_j&uS)-xTq{lIRo$IqH~cluGP4}Wc$3^wn@vESiL@AY~C>i62c$b>+lXEwppj&`J*TulsNicKTVH$ib zB`v~VR#(!)Zo4^bdy~1<9d^6DQY8(FfC*)rweELz!W3m1fm-uM16W;y6Mu=R0l=%> z_O(x|yVL3qBkMwsweGYBOk1$l?O5M^i&%r;a6tvdtO24hQxG4Wq5Qymc$U z$Lng{xBff*Sb_Xg%D_6ggv z0H4813Xj*}^k6XT`&$&)t_>s9c6q(i_1l9rGVDiq?Q(l(huQH=(tnJd;Vs8Kd;C4G zy%>ME{nwhlGEQ{$xeJy^+tAeLT}QkkbGO&(54t;^c>!~(IVj)q^jf_^ujlPQpzq#J z`IZM-clx2e`@K%Ab&t31w>zG7+1i24PpoyHx84a-4Ggo`xCb`PLwy6yA8HE)eKvQ( zeCEq;bne24hr_0~7k|MK7i_^SUJqMs&lpE~$F{c)w+GEm82?Tj|DHYmfoDn6_y=J# z>MPA%9n!sqzoG-CWnhB}8?P8s_^!CqYj%7yuLB!=J@q@WxeJYlecvpF#+^>gRl>F< zFmwAM#0PD@n8*AU9rR^|`re7UY5JUK=uz{W0j*(wI56I~$bZ}=l85?cB;T-U3|+!* zEyU$cXD5uX!{`2>KM3-<)sOCjJ68LhCT}+AMfaXv3++xT(Cx4T+C8>f_pJ6U-@=i@ z4)*`GW~_7NV)cpJ>G%6XZ){+@8NW`q9hG46jNjXSI{EZ76rh5-v^Xq0nw z+I9eGf0NZ}c7OQF5}C9x6|ABKhGYtLGCA8L)6JM0g7ilP1PzzBY`6P>Wboqv`ufWrYhTJ1KV1W2u-w=td_h;M(y-Z_p{gcEB6&FxnQh z8FC~CgPyy}47si6j&O&QXQ)Rw=(OS^WNu|>)bV?SB{JS)%a$M5IXJTe1Suj5n@~m| zHangW41c?=D19C2?G63I7r-()UPperEwgdZ0|t50%B1Dl?OcMp?e@?Wf7tLF>#0awPK1|rR3_af#*?+p)wKa%o`1Ve(wX@?N-FJ<?GjoCAb!rxAHEnW}xB<+~y-Ju%t%wGDc;!m(KwOtQZ37;1NSj35l16{~O4Du6lA zDtrjDfhh+hZZPXT%F=&9Fix6LXZ^}xaY8Jc?@S+D_H#={a_u%I=X zdw%P#iFxhq#O5Bf-Z9f1kFkcaMm?*`Zrc+;3}%TAx6fMl`)z;9_1Xn}4_Ip$S)lLM zz?@MG9c3}(jOqubJFG=rb4JZrfbEnB93aq_|Ms;PXx8tt?JYzb-DZF|^Z$@*G4f^rhA6JXY9x7z->7+9mt z=-S8vkvg!C@cB6G;E`2C+&jE=ci?%+pA5ULL5vGLEUD8*4dh|o?Z#X8cz^5e(2o_v zkfvU2sX!GxFq+w?(|z>9kGFV3VpVlo@)sEG&}iD!J>}sTmGUv z1PjU#yTG6ZRu4M9K|btsI)>Z@o-u6S@{J1QVn5!0&mO;j4hr};o4@bOmFdIQS=Pa< z9q7fe)$a9Tdjqa{`>oEI=*Mq2l6qWPEOfN1?@a5K0Gmo4_$@u>y2W$bpD%c_3cI}eBU zJ!Y5`oOS@cG4j%DZ+~sqiXuOu{m}D~L-Ro_NZ4i=4&V1!U5Oi-K%ht-F5wCbWi)u-V_n{I+0}cKl0SFgaNCXWVbwB`<{UPHeS}pmt+3 zu;0aVYHte;tve=ebr_q0&>FU70aqwS6Gku}*fbAfj<-Jpn164=XAFJz{pd~Xvr}+J ziOqUJ@#uFV40c#NWcT)%&l)e*g~{wN8E?OY+V8}IbR9Osu!C$K#6pC>*1XkuZr5=a z!>9serR#37dB>cQ{r0dOh~({eI{nz3XRgS8ryq*=hSuF!$Z40iW)bvVhIupEy2ml^ z1zY2V#)z@pw|}TMV8rURyOF?OHd#r4f(Q=>8xGTeu7-hlNkFtU^sXYct!4oS8IG?P z*}ZrS4a^Z>=wK(JNL`lpLxJ5G;v1o_!_?@oW4kX$u>YXxMrr!MdQT+tUdJs5d!LTK z>ULWFo%S%YW;1Wi4ya6@q!{(xj_jehuV$x@H_iRNhkrYrXkZ2)+-&&^eWx`5`zWHO zd-iaB8KU7n*dhbhpo% zfn6E5PHYOd{o^efZ71CRYt0fT!~HtW!?4y|y1hPkr{<(Z#K8jkp&a zF^d8$Iwk^cwSx5S#xCeO-0pSSK>_Q-*h3@~VP=zOq+_wZwp9%eIr+YL-@&Q+?wD^%3Cvjxp zsTubr7Q01-Cud?^)MJR=@A;W96$+oBaWD)#MpJ` zmT*?2gR8<>s#%4z4#>KT$Y!Rt09wpgfk_p{n!%Ma)&W{~Fxe<$O@1(U_@<^5Gy^MN9&eD3z92Hy$k>R(4E6l_=3nm5MUNlC-QMN2b{-vJ~p9UWojLWyMls1`^Z@Zvb0wwOZy&VX|GO}b`e?Ho1T7{>cXcTel441lq93l zyuzB5rjiY^?jo|O34=gO=6?ubQfXS~!IjSh8))6ZWV4JFX&Ah*i_ayjl_?ym@K#i< z!dw?<-9u(W>=jUp`74pB!eBPSQVzRd>n=7M<*}19z$JuJT+DMf|3C%aJ54IcK(v#3 z6xq$lgaf@$He4ht$ViA1WwH|O#-qi<$c}aS-J_RPS|U02HTo)oV}G@%A~%sP>M=w& zBsCWBVxh4ytRgc$5lTfS(uqrkhY=XM3GI=HzLp4xxI$Jb?%3t$V%DllwiS3Qt5#sH2ej@Xvl;eEsD=Dh$W&l3 zA7L4XJ+O5bo6Yi=U4OCksKClfxXmwWR$)1-Uxn{M@bxf)8yW2ZdGK#9eSxi z1Usk)G2EzV@XLQLd3af|XjoSWD~JZKUqLj&;Ok)oHzOJxbfIWixK$7hZ|G&B5$>QK z#Bj5sq3@S@#L*=sVqtEmRS^nZyNXBzK-WWvZAct6;9_AgSbtR!1$)4yf)D^+4`6mb z$C(Q+;xF@&DRPrVMjG>ug@A8rqy^$Gt`+$N5#P&1U0zD6B?fa@Mcn`O6iKgJ`6Q(nS;_qI(HF>u;c5r=3u^*F*C5)TJ_v6#4c zRuPvFIZDMQ+JBKxkOvVX`|5{FG`qA|gq%wx6$Hp`Q9*oSUDRWUZbo!$;Dv(YU|2zH z0z@binph_;86HGn@Onnb%-ACtse746}Jk1q0 z0X`QDv2QdbVnugCM`CLb*)nF{-#Q{eu=;rZdy z^W&2j$>k)S<5(z!pZ?j~+cST(wv!)zJIEFp1?@l5?I@D|i)dX>vQG=>bq-a31j0O` zG6ieRAAf3o4ycxPpNz7r@iY?yyUb@bg@$x=1L|^)@gpMwl#SGV2R7(d14e3t zM~clCv*qO?pHZDB#XnT%scIvyc{m_}{)=>anI+5lc>0boj*qVag7c-eo!n%L>wIJ( z+xC!!F)qgGWc)crNLBDvDF1ke6ikLpq+M7ZZ6gJGT&B|`oxe}6<$V$jGDF7UWEarqx7p?RYJADS z3p&gjf(XY~1aCP97}HGMNV&-HqKd3pckrVzeavU?MHhCVXrubgB)$J3Q5K)?NT6 z#9vNR(2e!v`1I@?{&;;_PY!-Qe)0ERgF=!#E)ub05F1e_V1vBvCI>bKqNK4JIEi8i zo-A4sAPqGHjtW);h6D@2!tbl%_4+i3)qm^L6#)_FLZGO?n*N>bA zF(U$VBB1_^*v{9Ol=kdAXFXv@I5+e%fw+&svdnHUICccKfg>tUZ8Hk-cr8T$3??DeT$D;6Ad*tpa^U1Bo1qaVhMeAj$+5r|#D6I%26Zwk z*1_v3f+O6xk@7KxK48Jmh0;!qb%O#*7g{-aaD3~dfF`3b(Bw>k%}w?x#uAwFHyJ`l zrvE_u7CBE-ysA9Q<}h=Vbwv|G&Fb(JHRAw8^~_vrG!g*Q`339~)A>I9lijV#L7_NZ z782t3L8Fw5twwh{c{ahh4u4vkwulZ(R@nsnVj&t^(##ZZP|timBbyMD(w2m(*Ai%Z zr3N#n!GvV&niM~7tc=-xjXFDh4<)ddzRWBV_2MM@yn-Iy0Ev_&uTCP}vV=r(L0gSP zmhJO{bQNgq#Mg8Q1D++%v&-vr3KGAIyWGp{c9Hzw$$2(kfI_e;K7X5x-(7$jo}lN7n}ySSA?-R#nC7$uT`XnJh)I^xdXbV66g6jKwB;@T(GSWZ)^4Cb|HuDJYjV;_kUD@&c_jwE{h#vNW_Hi zIRpMij<*UxjHxG~;D<-F#%egu6yQ!LI}3qS&rsjfx_Rw=dr3wiSN~Z|1ONAd* zjjirtbni?dx{qz)@5TR-zn96D`c;>CLS}#9aCTi^OD(xdC-Y47=G2frlAgwy68V&apT|E1)FaZeWPISBZJ zvm96JjZT8t$ndm`SbyRG|ASchtX=a5t7`4J2>HWhjb88{-i!p|n^lKU~F;%8_tOpm-F}lUmSf0jIMgGTn{i_>B-WBu$;`5$3I=( zTx4jN0e|4CW2DOQaZ)ji^-1}7px?SP=$wM6J3o1}N=;~TL{8R1`u*E|ErBRY8fn2yCH7ALSE z!Hp20)9eI{)!0yH&w%l2IZ*eUZmj*05fa%L?XI(@KOG+Y^7G*-ZK=c#i)z31tJjm?Se_*p7QUyN0OQP#A;&&cs%aSAA4 zmws_Jp&`$QSE!vOUWqu;QAJY4Su6YQ@qc`O0?Gv)jau6Y#i^=De~sM?6fXr%ZHpF8 zJJtWWbPWVrJ5_1|LSTnh50t1#h(M8ujR+J_v_z=E>(kI@X`$g)Ym7MGy%8QC)cubr zXSeBiHm`+9vYm`_)vczRV6*Tz*bN#op(|R$PtQcXN8&#m`Q7t&jRD$LW$M4cet%Pn z$0_=+-SPbJ(|8U>h5fxT9=%PzPkQo|I4LCxUV!JKnG_lW{+$t+(#9|I`4}hBtL(Dl z0-+?ywe0{55-q2xCw9~v3qy!#x7S`$OKQb5%$+6YT$2rn&e4s2|Njc z+S5d_!c;c1e(OxyvMyQ#V|S|_M*53daK!#*4nV@gtLt4)ElKOi1*jqw$z|l{`{cs> z0mM_l9W-GyYE3<_hMgwO3x6P~2|fyr6>a`JQN|%ge}NskOc&}9PD`f_dT8)YA|h$Y z9*rlm@zQc5#DRWgdnxxEiXA4G9cf|JzhObau~q2e)!Fdvj)YxVtZ+EI+EKLG+cyGe?FDeP4vLMRr`4<{ zoo3=Ys?mMTdsgp7evduo#54o+)boTuhp37Q)FZ9m`RGaOs=bCFZ z3YB{78m^@t~5l$Lw)$!{GA zPu$cLtE3J6D9T#Y_50SZ3}k~fFe}n3B5?9|9;P2=S};t%a({(k2DoWLLw^@;YTa0c zn@U@*!OgEfOg|#FDmSYP^DCdSJq(GW+dqd!=zZp*F8y!p%R#zGnddp|T+qH}wU>4w zG|X9rtA6Q%%U*)WTQ{g9AkYrehc9|lYysmJW$;7rOd^b{IfpR5ZUFC}dnbE)Nz-xp zFh|1vXoSlmp?`y-^JuG{w2a5Va}J61#$5U)YLIzY%pJ=$;aaW1p6H00I#Sz75v^EU zeHR9V{n_}KPHeB6e9Q|b!{|I0$K(|MXKHY{L!8C(yqC1f zyv^JD@)tYG_W=DW63X#Vf*9PmSrLZn8aM{7Bi|s-$A42{)mVLPM?8>3Dk+e#t6Pm$ ziA$$4Nf194@0GSyKQYfHjg+^PV&jd=C$y5Eknnt$w1UzjNrHDA==Mz|dQ@ZQL(JmP z#0+*Fo7dFJ)h;X!}Ri+Sg4rv#8@7B>9iWE zipGl`V}8{|)3~Zb_Ov^pEofB#G#k~n<60uRAt{7R_2ZEBuiLh>J!C`jet3z%UTEin z{4(f|se`~Tt{XED^ZcfkH0wLfL{m`X5*};`5`QNDOBoVQf6@lFOyOwy7mO^elKACW zdieC_)PiXA8yT>C+0u9w`NQlkr_J#fpO`C}x4Giaawn zgU@rCRCvb`li5si@}`-tZnF721xo-%HGdk^L6eD+7?+LI%@b59cS*mg#IK=3Ms0}@rznQNt)6ZWQO0eqj86|=o}8W^zc>nL zWJ{B-p_B`hv)e77qt4_vQMJBgT&hDbE)bkVGKGaoA*FmW!BxUd#9`sNnxcKe5^Dqo zZRg^Wc?RZ8@0xCH<(ni07piI^Oon*@{?01zd8%D(`^s*nVzu zRAei=SHMst;SL!uGL?grXk7T`>Tn;7*v5+N4UooNePvW!&9e5uV8Pub5G=Sm1PQLe z-6gndfWb*{AKYCBcXti$uEAY`Ufy%o`R+a6UVH7;R=cYEN7vI`-BsP6&cfX3&UhI! zY(o_p%n%*vO&C*I8-Cp;r!k@_^2u6xM~om0z1yGuo(2vs-c#l}E43TZJ?0~(q<3E< z`8H3|M2m;1H1|VX_)Y@s_uqYJ^Vy0hrOlVrs%0U`wrDf^n)6@#a z)-mU7yrDI!!t7MGYOtDDRQYDOJbgygoYOjl)P!6=X%rH-p0s12Wzq(P`)JoP==pqwn`Ly4THNM3+uA1OVHQ9h?)IT@d10BZ zNl^Rx8(w9#<)$0xa3E)7|EtYsQeG!Ki zY8vidj4Ve>Xdk_WKt;?x%}|^c+iXQYF1|xsod{)I%Q!0>LK{lP?E}7b9C|7&PR18b zFMffq*y$-iw{z1P?_U*P`2eGQ5DDoqEDU}T!I63dk$1+jvQck4FQDp zo*4u_OfJI=p#pq_^-ssFaDm1PhKPEF*|=F*fw%B)=cE*Yl%1Y^ujp&`REm9qum=p< zqug8d^bq5<5ukXE*r|2Bh-|P$ENkX1VBfNDYr5)0c?r7_qCNGuliAb$u z_hj`*1H|Fe%6LoaO_a_coBiuEjke~5#i5xSn_zQ`amhr@;eXuilYQ|`7x=;pRpIr# zefYbRn3y`085Q&Skg1Sge7glhG z`9y3QL*%eopKmMs*W?MkZV(O0ODdYC_ zuzLHv>h)>+IP#(Sxn{U%s!a1y;?0_M{oJ6DIyv+_tA=N-s;~7+oT_e3xFcPzO=q*A zMs)l9qz#tO?^6H4b;I|qV^C`Fugg=)bf&XVmCJSxrPs!`W+FyAnrlV8g)xr<;(66$ zGTgnmC7%Z~FWn1>p;4yfCDIe^bkJIP=c!684W34?)-!|plau{ff}5NhXPdl!{Bzvj zg)uflbG+JyrT&wJF<;!@(&>l=orBfvk*OqkGWHwhv#}EAGqfsC1R&}ad0vk~`6tub zz(nyR;>lg&Zz{fqodh9EDUU|2>-MG1>16wK(1luNaDyb~HXV^QYv%10Zdd%)3J3>D zio$J~-HgT(y*i5RRr2t?E_1TF(-^qaug&QSrim_7G;TGQJ~jz4Jj?UU>I5Wai_dq8q2qv^Hp(r4K27F~8|b%}6ayN;TBCeX09KHW9`Y_+iEz&w^CAU86kM>EJzJ+S~uojqVLAIt0bgjzF6vczy% z1qsn9qEYnO|6MW5)Wc}VA0oisf=k`%R;wV@l(e3+a;lhMjOkcRkAyWp#4?kV{^F#Lnr`PoK-aBE62-DaK*NLyWoPiN zwf;uxgY)4dluAWq4q`=PK!2da{sSyJCmz~{r2y41RPG+GI&THcVrrv8lmV}yYy);d z!4gIXiNnn^db;C+dY)*Wd{bmvs5D1(CBlcDmfgSXht)3F6V$!NdJF@Wbt`&8cQjcv zGk;Awn+RP8qcpmV>sVfyiI9_r)NNk+)Q1nyP`HwKiVh{HdB4BM z<9}_&5{;YF8hJp!Aoiv5+cVLP+aIK`06kEXFb!H~b|~4Kp!BQaYw~Zl5$Ei*x6J38 znJ@YB6G`b;6jg4o6gf|d8@I2lp3a&XVHz59F8fT|HAy$;KAakVbkbGLrb?BE)hv6p z%`N8Ue!jj)q$*JDG8Y)Cov&(#=Ka_moP8ZYNJz2X!)v8Q<%-xF9jm{xbZ3cZXypT) z^owsYua$F3hme8dwsm&N_Gt;zKngq`(X5g5>N6^r^TX@8?6un~NOj#CIZ@qz_R(*- zSN!Fl5K}kvX)A?eyYc$Dt@r1xDS7Y=ZhVVQVk`PcaawV=gTbljnZxP3E$@YvvPm`T z43i1|Kr7=yP}zv#b!DJ>Tg!=m^NW~FOv>&JxPRj^+#ZBgMJa@_Hx`k`O|~6uVZ1ay&d}*%Etxh zjN&v#2DL)uj2lk9%O+lX!pF|m3Vz1@yw0M ziq;FI^-uJF#EXUE{@XFPHU4>lKr;{v7dK*e5 znjp9MCY<1e^LU7M9Jv~wz;I(AzH5*8JI?JHZiF|#EvMHT22Sh3%AekFaq}=-3*k7B z@X0F^$SR54>f>`~GU36OEJaSx;l2o;i2kmfu?x3lK=$$QU`Z+Mh-K>K=!pSMZS-_O z>#v_$%oeGYGPU=X>%aZ)Ax$U^GnDrefj|5M@x0*Qn&K->S!88j+=QMeT@xSvbYwv9 z3`B;NPHZiUO)mwaai0a~?z$jie;hws+k8_>Pm+EU5WDXi!&6yli(%RV$^UF=J)kh! zOJLw0$sBDqJ#K5fP)sN{t0aAfRX`EvyWHGXXlV=HA~7j?CJkCwek2K*e!Bl0Z{Win zg+E$ok{y7>J^BXK4bu=TBt!7WuwlJ`Q-b+ci0hrH7`w@7@{8{1(sqj7 zQq$`*v$meg)bv`0L!;kRl!S#9sO?ccalLuPPML=O18vmJsH%l2=-N4Yk3}{lt9f*0 ztf=JsPkZ1zV%%YeBbJ+jpnLsM=7&WgH;4&NtEQK(PF_q+@C(5M2?UwNb`OmJ1#7Wu z)@%jhSGi2>s1YjLh;JW*;I=)H#ij|8T%1GrP1dTLS0R?)rw@rXq{>FdV$Y0W{Gtl;?YcObz{-&1vm^~t*=N4 z&U?~KTd(j)tSXoPmWIO)fwObSHj#ymMfDY_6 zLAfK>#9o>6bRBm`uu}9;p7XiHS>$oEV@F^yTqZe&$G5+8xn<>nVtLRKNh531^3?{c zw;P({!LsU~Ar zg5o&Q0DXGFF~BrW!T};IsLwkuM!O~9&}^ayV=L8+(Y-p)bHKlG+G__&%yYHje6&uF zdb2WAvM-MM68ghqur!}DafiR{n^&tx;nB=-ZBeq4Y(m;7(&&$lB$;r5J4ZYGxua!j ztvK7=p4-W)Uoh|S;QLaS(r&XTUp!#*`03EhLO{(%YTmO#Ad%7e?f&~_qiJo&o`taZ zz(8v$wT^&>VV3TZ*jkJ~lkEF0W!-mi6`#%%T#S__5Qj4}31cXhs|){B1qHPFIg&dc z&)d>%VJ9CfebCa5c6q3){P4$%ojdJo?mp*pz@$2#G+<&NQ9%XYk7&mEON37}M+bZA zNDXMrdnfiWZ#R)^)vDMh^p^W2A_SY@QG3Gg8ni%kaLo=BqcT0!l&)8VwOc{lmT&k zYV}7S9G`ovXJIe>V2GLVf+{mF18=~u7h=%#GO6DC9%XzaLkJsu<-icB+!z{^t_)e= z$K2lvk)?l;&?a1Q=#D&nQ&&#}m_^ZkT281ngzS1tPPVDjsm(zlWwggn&jZ{m^tI* z4~$!czRy<{)y?NNagioBa=k7Z_DIOZ3hz*Op&h@D*VNrM!G|kRW15)jYUx{D2&P|x ztD7eE8YV(d0U1(L(1azsL#+0Gz-SLB-rrb_;#!{;!2-;tS0I50Ec)G?{ z&?Vi+e);c2a5~rnOdkr|sX8vlj$0M8;l{;tTV3k>NayZrT6u03#KJbv7|8mIAwR#> zS=9v{lUkb$@U9+c)CxTp4f;Ez$i0rN_}9X6Y7mVpnPD}ixPmwMQvkrB=e>KKA0=!L zK14;OE4)gsXJ)nBa=`JVQ@U>;0C|QI+ec?+%~eNRtWe5jw1~P{i%Z;x&(}{#Y_LDF z%pk$!t2gM}mfHt>Rq?>a2n}0x&JA2%{eG=IEKps(kkg z4w03HO%kk!n*)-Z_bY!|6H;$BnNTG@aha|!%s_Z!uQ4r1d=vd*Fz^XMp(PR3x}mqI zo@W$`10{L$5dA8IgVL(iGU|IbvT!Hg#>>Fgjz}teyGi9RyR}pNU7~}$<>W{f_=X&! zAZ)ZK|MDc2cJ6TnA9=Jw&EH@WQ?L5SE<|p(Q5H!MWU@^5vLW6j2zf6|g|YW9w@Or7 zRW{COZ1YNQot8OR+K&|!y>#*e_3&`Tj7n$0+D6ZDhJhFV-CFuxt-lG}8buQWEZoAjmhkWJ)%v$$XS5ror@Hm~Y+S2W zcu__dLkMELoo@4x4s_}Y+UG6Q5Va~NWbw@nn8W%%yNjvpdH8gnkXA3?I)jovLBpMN zG21*LXvI0mM>DU0bX%dfr4u|W8e7|F5P&VD`hNbz_OEp~XF%&0lIDFKLdA1?HZP^gM zjqdf;`hZ*q*PpQ!{2}Q`qs8KQfkUE4j7E{mpQZ>;QJY&4WHGcs*;N<+IkZdltbAf@ z&b9!?bIE*vmM76mZtWV0+{o6~bACT!7cYSicQvm}Q6oJyOvA8}3uh_EBY6^OfnmON zQgM7VYsMGfw1QOXQ25t{ncJOyatVPf68o)lN(nuUY`>B=1x6iKNmq-JW>PuS46AG6 zO3jL~16+A1NvdG|eA?uxc<`?j`VUy_8hd%E$&&Sr9mrVM#p>X6b!dE$vEmB21UzBCt;>vqex=Wls-%-Rq~*~B;+sX# z2v$Z=>M9>~Cph#THl8}zvHR3(bj7qHbC357R<>ihGc3v??afJz&>QMR<&CzKq?n^I zs+NqfxvJRyl3!LZtr~#_X^WeUwPN{ga26Df#NpUU!pf!1nb_kUF(mP2iDyt{LubIE z-iSBzDab<8ArybihWql&I1A`E-SA*3qh=DDJ3O7bTJWXreubgf@z7zw~Z z&US9it0RZOt-2Glf+oLE#y~JaPg(FsN2s1H=8QKfpNbPkfF?%>>dG9DL})NSN~I#| za$?B9J&sW@H#G}*m2wLuXHA1qHO!;P?)k`81*Ai_lT@~*-bl@-g2MTSy}zJfKzM*L zPhsJ3DV)m+;U*{-5Va^S;s~Sqy+m3VwvzIn4vWr0TaE92hpVH^4)8;Srh^no`XQE9 z@LNIS5RbEBpRGWCRP^AlM|{|XjA|5BVB|ov{5L%%Ib25;*K6_kN9~U2i@bDl`8Wmt zEjFTZPXxUFk)1RqF<=ZwPcmwx5r|K=xSR9zkW1!L=o?WbP3_*5bB)RGRR@e7wK1AT zkDRNOjPpE})b`Hu<)e$iVme+Hj$V_}OkYg(o*{{GEP-~0q~LOi>?Ai+9~pxwCB`UdUH=phy={9Ks4 zkmMX&dwPBER@@AOfWU~0(;cWlFl|-2EsU+g@%--TkkPX*|X3j^m-ne8n%3V6lC9N8{dI$K;-DY?8J;U4Y>rWJ) z&m?VSS#I<{)$651^W4roBTwv!)e3w|yxSj?cK^AFOO#8kA8%GBt%=nf2ce$U;^|?r0t)xQ z|GCyI2@A7c{74m3`Wc4Suu9P{AP)drN>1}sbND@}5E%T!fb=xQOO}&liB-kJ(3!sB zE(~wxo0&Xo1&m3=2i6c!)8|Me)}TRUNlg5mL_=f={`KpQ8kl^^DJvFF3 z!Q75k52l1$PBApk{p|6MH%m|`13HqXZ;jXS}nN$k_t9WmvEBv`T57x>sZJ*6`HdYWp7b-`+hRlK79blAlwhd;|p zQ_Yv!dznu-GfP$0#&$b4q%}MV#f*6n^5~dxaxRF!?z_?o1b~E2&VVG8b z3YDbg5h_%no@L|#K1n+d@Sk5|S(Jihw8W*Lz0IY?t`Q|4Rk=ZksLLxcw3R;vnQ?ut z9Evh7{S|(#J*d^ zZqRK3P18MFlc6wf3*e{Hfiqg~9)s**3%#S!#kmQ8ocxf^TGNi?ve%4)at)d(4 zYHNdpr#~)7b#)_)1oV^Ovz;^Rf1|%C7yT_mMR`+x(jT1ZiY!=$NK9}+FLOU6;^=2X zn0KU|v2*E&(=vZY=~5xO@aWQ_F5l+j2GcSR(u2{Mp0pSV`K;4S+U1RGRwj;QsmP?G z(NH6|?K5mNqJFmKvpKO|>M&=M<3MtVK`cLq^ST)(x-+7!^j$Z2AW?B=gu(KM%%WRG z*}xU`eE5~esfYQ=GCJX`2;uC^lG&HF&(V?>R9BM}`wX-$l{lA@lg&|O4mcy~QIA12 zpxYlB4bY=;PsK9UKcQ%A%p;4fD1 zET%9a14eWv$h)aiN4DcRD!CNtpHZj}L5{3TlAY$EE3vc|slmhW?mk4aEUVcC*lR5- ztV7%i67{S^MyNJo+z4wAIn4Q%M)hEkp9)ojCbuw!LDk3o1g*)L!ngxWq9xUldh~|s za8>Vj6K=Y8U0-ee1<)M(kNZ#b8LT?A*LG6dnF_mz4ez!~U6Yr>-_kk%M9f*;f~Na9 z17pke36&l;7}i$W>Y%uoeSf5|c*a^m333SkHo0n%1LStLUUr+rPo!03%b+*S7H(jCnjp>0NxUY|bB z3bzU73U`Up+o=wb#nb+W@++wo?&H3L7FdPN#?YP5t(CRlsM_B1n>lf9&OaH^k!t4U zIT1Ka(gJ_t8HAG?BrNxv;7n%_J-0M6VL9+#9=~@)=iCe93q^bmKs_Xk0pUoH$bH*> zocHt!??JgCXrlPIV=WxgO`^%`sme?8HCVl6Dlt)a}t*U z5JV>qPm5$KC^Lr&4Ixh#!s76Xi4OL?#;1$n-IPqCPK{R+J3rjs zJu81@u~Ug9IdfNwel6H#uC2Y_?twP3bbPn9XUTBMOM>T41X0iOKo9z#iY!MywIv`o zk&2I$oZ^&*AagjL`-O%zxnE%8SR|4)etO+m735hi!`)sN;Wl~yF#h@h-+M-q|LZ!# zRe&VzxdKKx8ZSC+mQ)Ym3_VZHNY36$Flx3xh7xVCYqQzN&i&u;QRmNov;GxT!C+!+ z1PGOnMDACs)=LA)gl%CJ6B2&S2vOnTHy177=UK^x~A%K7NG^eH%?ZZiX!6b6?Bf0FWuNWf(@QIOU5NC zLCivIvt3YqJZ%LtluCiZDA1gcqRVeU2E{VX!RHg#|;4f+V< zj}9YhsJQb9W=%aVgM+ub40rP8l@CUep2SMcu4ty6O=ON#Jf-V4+eblO7*?MSn(iMR zl`T3-wIwlL=!d8~j`1H@%Yvd;|2}fV`e+aKZK@+MYt^IH?5pO_sca&Rrb>S(2kQ7Q zU?|2)J`{J!iVFvenCgSzRatnm1Kx4AhV#DxY9tyC!y0S-&647rGRmt?@sElCtwUhb z<-m?Ljz^FE-YksjX2E~(ttPQjw=ZFFm+kQC`4CxlG(5R+aT6SxGITpB15TGP0GOF8 ziC%3|MRFEED zsOUA<{_o?m-e~q~j&KUHe6S&-HjsUCU2OVj`xfL#r+I|s^CBbO$B;u15sW~SV?wc# z>+0iFM(JIZ&(2A$+^$bI+t{mWqQBX3=?*|;E6n=~!|cKZi$O*8y{Frg29DR4cjSp& z3hG!nI}9DYxA@ERY^GUS$d|-kub2>C($Q93c$dPSMhNFn?%Xfu%lUc+MGH3=dPsn0 z9wEeP@%YQxj!#9UlPBva6<9QEJX5$l*1)6?S7pJ4|BgGiMI7`c8UDeYQE7NMY2Mr{ zBR5X-sG(JswHFsf0@F=&z|1QE-Tf5E=`Cq6+)xcXyDAA8nLn98cjdljY4OzlL(6)P0@?+r<~=+Z8~>mTy&wRms5q zoxC+~9SS0~z)_C8$CztAo~soItJr@6IuGYfOK{(Bz?9*MRCk|;b0e>{wL1~Jf6}1G z;q&EJYkr3x{I|M&!Mzd~H?H43o6|}M)C>l>3;#ATYk75it})?(Q;L7lsrMV%Yvocp z=F{C-K6)O=v-MG%us7i^`<`@dGeIYaNEX;S;xbgzqpRLTN#AW2%t<>3if=8y7>Rtn z%3ZVQ=Ml}qS$)el!4&Ynm)^pd9$NmjO8c5DBDwC9Et! z+}f0DbLv{jgvH}Y?-NFW%?=6Sr7+IuKydRV7Mg7#8LTYER*sCDbiOWm6q_)@&M$iD z6_0u2;+B!TJeGzo&vgm_0hL}`6pH8WDmtY&aXrH@!}ai~J&wRVHAaU~Rtd8Z*c@xC z&!y}cv(SuRY*proIQO+C8}WmMZhW1m$nuYIe_@Y>7ZF_DQGZ#bc^ktT)~>@gAuVe# zg=<-7`id=NN0wyd(3C=^kVQGlXgO>#0w%hmRwD#|rwKV8Hjh67A$?e`dchDlDAz)_ zfOBUVB~m><`p7o|SLp4?&1@~#?ifDq$i=i3-sxy*VikG4KV;C_gtie|2QiLnO?fh( zTTa!EXneP|NiHo4y02DLaF#Q_H<99v>U8)VZaHrr9|co<~1m8)>vA{+dy zpz=pCx~MnHpT13+doG| zu-~n_2!MZVyydJRl}|7LzybyU0RNu1cW|+^w{x!09JbrxL2o~xN6y;u2TL=D^76P5 zqixD@+Y~Ve`YRR6;9`VfH}z$Z-gGJs=aMic@Iwu}U#$+SZ_|FjPt>W*KYW>LeY`J~ z?CgAERm7Y~hcLf@!p{2_l+{PDLbqw9h4I@erC?5!k|D_5ZRO-}YmAvC49;=vw4#V* zX1Z5SA-$!-iRj)t9z0>;XuoeH6WRd_a$?3$YA?jD z1E+FCQFy5fxpf|P`j{W^KNx&+SCJIp%2MU3i_%x@S9#EnLm|z?#v)!u zIRohwhs9DOCaaq3p18)9e5C+SbmM2cZ?fpH3Dm_#PNul!)9#(Bw@Yt?)T7rBSPLb4 z%H4yJ25idv%^UW*)LP&6h-NnI(uLwteAh89Q2*E<)#oDL+AO?)a}}bH3%~bRBaq3W z4)Xl;W>`TSQ4$tZ`g2xkgjqJ!Na2S?XX-CiKLSP2%vM#TP3m6i4xsgw-e8O5_9trU zBo!=Ss@f;?#WIygL+-or*#3;A(vXy}QK|CYz6>`BNfQPKB+o;;`*PTa^gg;2BHXDb zfDR<<)s1PV7O1JRt&`A%PhAt{A_Sd#-K~#kvrcL}C#=3M!{qnF-XmS~hDwhk5T`XE z|7na)+$dURVz4p@;jZ*Gm{>S%BITN~)JeQNV6-JG)yxK_I3ziF`<*+}@koW()>1BX z?IrC`A7ZH!cvlgO6q7svD=4jQQM5IpKyIMEVk(YVRe8i}KAR7D4h2{=eIc<;CO-yO zyA(FD>k%h*o=0;tV6a9qaNWmK0IlzVUx;_u{A+z<=&tSv`>qqBLb9v|(F7XyqR4zm z(N?4qaA{nJ=rtEgE%hmpBq5@fXHjCrQc#rKBUXvv@rNI35^Lo09lV^1SQFU3AVVVV za*tG)#=hgGEcc)l=OxxxB5wQ*8v`>}&l2{h7G>nVFuwYeN_?#BjxraGPa*MhVR?s! z9O*9`zHL)sY5g`=<}_2rEG;Rn%~oY!E}ps{uJ_yF3+=x+^qrm_i9ep#y&v zN{~;OplHF%3;>&~vCPo}kI!$z4Y5l?-EKUoo^W2g_opggPno+%(am*_vF1>yN?9>n zY%fqJwCOT3xyG%h(i}K^K7yGRy&|6{L_*{4haYF<{VjQ1DWX$l^i*RJd>3BO95YL? zz{r=O4V$k?$qn-7`X%nypsO{0(#M?>1hQNWHxu%Rgb;Ac( z7bWdJHFuPcf-V|Gq#qR+VWdYHdqOj&DA z=LyRAg|i1*(`0k>(uzd5*UeHSz~-EKq~Js_7r0};iTtILrmQ^9`b4c3O3TdUQKxb# z`>9G|iqNd(Q7iTl#p9N&5he?$3=f7W1`+~wZ~dix>blCHxsJrSA!U zJpeeU6etTEGz5UBOWzx-m;k`IWk7!DNHcI}8#E61dl`@p`qdW9(*K?*`6n|R0e;$n zCIuIi0@1;L_n^^H-lyz;&Eo*TToeHOvHV@I%jkCr%iqP22Lr%4{t2Df(;1@-1$$Uod^ni;RM778&Nd9#e@?FE#5&!^r|7!goDyc9a z*trlW3T%x6f}09~B>Dir|7ynnclv1v>R+1iAJTtwlZyrdY%QIg-xZ~jEEM$rCHnu> z>HiWDRsg{#Mejqx0(qB?uLcMv&-#zRBe_6y>;2PX#owR(UyH9d;`{RRCZ9&H zV(A}!9?6rnwo9Js+4LtS+gF!Wa z(=1GkZzth&aX*}jucd+Vzva!{XmLB4f4I12#yjV*rdt27D3{Fc!_U*>f`9M$%zn=7C-I!b zsZjcR96Qsf*)gj0_H9NTY4kpgGPR$7VY1zngJ;^bPc}PPS!BrpP0kTDNaHJ>j0(s!d12bk$2-(h-k} zNbRZV;h1stwp_EumZxijjP}K#ctgh31~WWl!l!PgjxulIt$WOqEjNJC#W-+(WOTzY zWL&+a#DJl`3_2?u>?Mk-?;{fy1tU2FZo<*cSZe%p`i8hc9liloM_zz}y=kbyBOBC- zWKd9k2JrF>2LjrbVT)eG;O^;(&BZRKZ-O#edxZ|>V%~vn+kP_-HFs=MIWK|ZcY&iz z$;0fTnvK&$WI59@omEfnls?UWrBTVyu>d@;M$sY4AI%=zpeRg&7{=c|!r?wi z*PvnrCfd%Xwrj+Ws91ppM38+PqlrhAWRQ3xNV>a(|BNE8rV(m*6wVhPRa#gtg-21o ze=Rke6q074&xY0Fla538RKFMStqN+(oj#QkBl_H9SPgPdQ zTGH|HHrhR_i>91z|DWV+4MCWSf}{p#9cLuLT%@nKK_OI9+|fpn!EBaCc@nd`FMo?z zS1ftsb);1n5)iiX@WrKnla&prAfHN|dec?~;+i)T45W=pqK_X{o|Fw8mZVSNw@%Sz zrd<)tq_|0_*bOwpgO%98$FwCn&Nyd{Wy&|1Y(`5_bQO$rB2dN}sx+691P$=3MOvYm zXkx-I5-U&;kNzndK+u}-CBY#-aH0W0AJ>O|Sx|WK_FZ=yFOpb))!d@%)mXSAK(KYU zRa0LFRi7HdVJ^PqO9wxLc>2OQ1tV5D0ml+*8$;EWC% zuk-%=9+U-%)5L+mHlSEU6Fl6K!F?ZSgX10tR^pbrf2ynZuyMlS3>)?+&gjiqZ`VU6 zQ4+d>BaCYr;HQ2v=_s5{hQ+#AjMHehyL{|VK24_c$A0l3>W&>Be#K~E{9iU0Fp;g; z`iZTQ)9*CB{{WY}jsu&2HbUk|He7*#^eh4ZTH_1=761SMY%wryFGNK~K~+ptFHLW6 zb7d}Ubz$rsX;ULr@H1BVAD&oNlHFl8fLE=e;(|)au>xu-Dm7##Fm95GGZP@O@VDE? zJLkv&EQ<%OFw?JJcfWq!{q8r>;L?u=-J~fRPo6vxdj|(c+v4bdc=LGYh1l7DvHSfN zy&fJ5Om2vlc>66Y&t8&bk@z|qL}`%6$v_;({V2$D-7C@d2ar*V!Z@vB2&Y;s9h4}vGjehgLihEI3h9O#aH0U6!rjQ8)Z=qNr5?onX z5kCZJoQyJ&CZjxm9z+>J#TWe~9095e3`Y4yl8Uc-@%csGNd|eE^neT%GK=!aI zD9eKL=*#4Kdk~!UqOjQwdRf#`?6$A-H0b0a>59Fbqhl>%<~uyTPEk3SiAB&QWI7^D z28~>FE`q^%B=Uiq0ZVJ3zzAxDvie5X(eh8I59qC`)OSkJ5o)6of=zkC4&kcfzT^7IRf1VLCa`l9X={UAbZ} zRnp!th=|h#Gmi&hbnS`Dpf`%(MGS*D&2(wPghbJ~PPqJ(sfG0TopQIdR9bd$$$pdv zl(ngec;eiGD_)SDbIT$zSQ6SODV`G?ED9>xKZi+w3iW@EWjg9XFll5UP8tWjcoLmv z2w5u`Niv9b;q^%2*~XHe^;$vzVMT>PC`OS$u+T031dBwZ(XbbEB9Zh$R0insssaaw{ma1&B!YsAOO#y;pfVGU1W#8Bk4IMsO%thZ!E5o^i?L%CI~Bg2PshX7flt&X*->5s9dY~B&CMzSX5OS$)wC-Ltz>u z2{?II(ReCW5wY=SgIH*r_P`{KIRiG@vR!*%>^YP+j(TAR8I^FD*AdPr5mHEr%Y#w> zEK0S1;}4{N0vjspmkra#JZaTbBeF_E|LDow#3pzV)4 z+O!rFk!#&(7HXud*=Cb;3u$bitlLIQKs6SU&XS}T1%pPbWosUiSrB?C>y`4)z-@RW zbG?1BNBGcWb%MMpi`-fy4{%g@boh6R$Kp2TDcjUqdW;3GF7Y7l=};uDs5=!wmq1*9 z1jAtjy@C`wd7n=$3R8I$r6GK$`TzxZQOGzwr6$vf87nJwybb|Rkf!Dn<}HN>t#Xe)Y>nPJ1D)fLzy9SFvJWE5Tcm0JYBqhuvBMyYgTZWK zlF&0CT1N~UlZvJj>JKkw(D6U4 zqwor)fKm+|Q4neqp?6ZwGnA>87)Vm0g+PlGzCN=B(rrqyY{9GOhp4lE)`VZ{GHBqV zKPiTcKd*rwCBcw>tez(~GKkE?9N*9gH_pXXkO`P18^M@%3@5(dmUxP^TZ?L=NXtbq zDzfMsU_mJbT})sm|0{vkU4|1&?$m*l8Cdt26 z@UaUYEBM5PPb|$qvQ$@5kaF{dDL@IJ=jTxhv$<&x~siqVrSMsYUf_~0b zLZt<)<{BWvd>&3+L%(^drq;H$fF_q`RqAUE3&s$!Q5QsH7LB?#3w6!3ECvx24`}D? z*-R14aD^YWo43KSP5MNolk4ABN9*(JXx-J(T}vYq#wKBZJWuNZsozHk)xhrQ@9 z89^pQhh*@?bC?Rg1dW74nm$c28OIC(`XE|i7le~-+dg1vu#{RC4qXMZf;C-Qwl?^F4mN&~GC zrIafi&eRSo<_SWvVx&&^eXQOm{649ctuvd;pMtbtXiE(n+GD901CrHc#G6Q68IY_z zL-pFIuNeCZGFrklsdj!_8&hgzt1{|L8346nT?P8QhJpcRSJ?#GS{9yzBFc^Pr#ph`- zypS<`@r)*^G-cFAC<;b6Axt1uwUtexxGfda#76Oh6)YFnLc2wsbwNM(#EE*cm8?qL z^pg`veE#-Z(6VmrJy#7s_f4=$VWY?>2OhAe1~HB*P_hW7Nkc^8E=4lnUIbQ?!UjBl zdhMZgz|!>jAnwMUV1Rw)^Ed|qjuQCw{+hqOCdj%l2afZ9{k6hUc6V(%f!5W7=6pc5 z;-QpKP8~TQ^_!?469ztzEg@8VW|@-2!inJhhP0Fd{HUR{Mb4?Lfd6Qb zK+<}ka+YB!INS|vD7+R5vlU?^G#w~^nb9EZ#Yh3cVnt?XJ^8S0sG#IUDw2^wkW^5d z6?~UeWZ_ZCRB#&egf#h?dCFQm8ZsNZkc+Rl(O_4~Ck4ecesZND7zt#`b%f1BwbeHb z9V!?)m0IHE>Hkm zn~gNR3OWombgY6F>F8o%Eq#^t^P@b)n(U+zG=Ai&9Cl9Mh8nOHh&77 zjZq8|cNpQ5P=+1)!+Y(uuwkvLD50+6Fvm&Mb@3D_6TSATzrNZQ*y;p13;+Vg!Z`7v zN3uoN0St_)7|HNSIXImAPB`sg zMVDZxb_pFm`Ju+OD(EPvaV@694^^(kRvI2p+uz*oTlF=#3%&Rf1i49GyiIzSKT(3}RM!k~);z_yy$#kd+o zZ+*%?Ou@!*?hNX-*8`M)t6&WCY&h2xq_FfX9iDRR?}1p5-LLGfeR=4tWllU|>>*c= zg(J5QCUqWPv)l@#s9P&LC6bi(T4Yj35!0Tnw%gD`uc_G`m1j;V%+e}RYcVBd>eAh+ z)|uPuXnw&&njXN}{E&()3aUnx!<4MBe699MQ0{7xNyBZuD!x#E-YM(9NS8EUnElu8 zt-WE&1iP{cGuMv62_(@cl{6Go z;cdtqV*{ia=)&G#HLQT74)h2^fA=6yc6XcZdIJk{N<$xmxeJ&F*sNjGKvc}EfxR|i zWj1rdI6Y%0Ts1aT1AH^`*j0VVeRdzAanvOe-*S92XUO4XtR%r{uC#pOYIQ(4LX3@G(w($ff`-p zb7wuocr%CKQLcW1N^0&1|faR)Q zo2Mio{x$wZhx&57AM{n0LK{QC7ud$|<8#1&!6(Wf8c1KzSel0dJckY)s-h`X(kiT7 zS!QE@sQN0CqT&gY-H9mfS(fj!s5|OGpCReT9dlrfSMdATp`&%WDD>T0Rm+8c-dNCX zd>w^9g5rt^7f~-}SeXc)P5bd>spkN5%9r4sF`Vp!PL_E)8bSoL=g+Q&s@b|4`j*K` zZ*@EsAc$qzvNZit!njbYT@oTg<}P6bQLBJ|VZoKsVkyx!>`aBNAx>6jA7&LDgKa1k zQ0lghHP_l~vxSmi5miAPF-M0aapaT^IRon{f4j}yy()DoKAvvg`IG9dwP)`q9!B;LZJi&E; z8l2&ftDGR}5+uA@fJ0zX$-M)bHBy(gUYQBTw*6#KTiPv7uFQHF)w25`s^%7TAVh%H zdr_B)T}lzPDZM&g+nl~Tl_Bnoui;pql+Ivzs9Dx19Oq}qA!tPh+h@oa7RFs1&oDAz zzGDdBh)caVpl_o3)ezrgmU1kf5?_CRe2LU$P@|DM{W=EV1IAZ9HpbAykq};L;~ye! zAi5!Jz-uu0cj&6}XbSSZ7+FlQm#kdUdBZp%J7@&w#@ZCuQ&mHUn_D{vy5PCux{+3y= z9F>_!2w$n@M4;B#*Ox^59nPY{}t zHI@49Q1uAuMBtWLS{eB75 z7F&C~RB0YEOzCP;|8lxT!ZHjTC<@}i4{%X~a}cP*fh6Z-9Jyt3@{vu*J{M86#>MoGBVd){E^1KL7rdz=;^iEF$7F5E%BIV+n0VWjz9tG@ zV9`9v_~sFq)a<-c%kCXmR?2rmj~}qQ_2N4p7d{%LUD)@A%&e7ncU&cjpe#;8K~iAn zq-vJ4GMZ(4QZaPbGf+*_Ruhy!Nl{q4mtI=0Jfc~lJA&7%j>v)L=&z$VhlfMDj9`Uj*V>kf!bnvkg%PTzx%YIx)^4vTLv;&7N!6`@%EwZ_foOkU5#1SPZfFh7 zAMjZZw~hC2zg5xcDs6jc&E9W-p@B6ufDXm{yARBNFnj=E#om1IJp!7}krNOPH%Kw= z$?C6q$S#x2zT~5C4!+;r!Y!ibNdlI4Hp(G#VR{NN3&Iyb&OI5mk}!e-gI=PQVVWe} z45Av5vJQ-3FaXCM=siOhqjUSxP>+N%zKd@%xS6ZZJ~d>lcw&)8ECxDdt%)H>mhq_7 zMTJ3syS;sl$Hy7o(i#Dw$8?z(qIHq?rk7GoT(sK1=7s;p>%A18- zz9a}e3fdi&M-UnGk^43&0tRC--maX%nR0V~Y^y9>X~wN&j7D~y1dLSzJkkk5lXiLj zvNV#}M4&PVsx*mLJUm!=3bARnajI9d|C8yoT6_Ru?&{gyOg@vK)UJvRi?1B5t-C#=lOwpVqAz+^rLM|ZE{c-4pBSuXFJ*x&QZ zHUH%y*F5$n>T7@6KvWn_=?tieDR+~9D8=E9bqdQ=ThwsK?ctyade5+3Q&%wgnmjMx zDGh2c>qMpS8zdGk-jT@i%7@|wJYoffr%4buWy~owDdMI~IECj(>|1Z9+>(PCS_Yku zIn>`3W4P&@#Zw7O@S@}zm$xKW90F;Akd;S2%#@(@oq#&4c`oQOq36UIYm9DxaGl~* z*;?+IDrOKLC>t;G!#a`d`8E^3(`69S0I9?W&(-Xb^~^#%ks|Fn?+fim@WLA04)zEZD-4Wu43GJmuaE%M0IzJla)oim77(s;Z9vnCL?FS%r(xM z3rCw3xvPhaP_E;%o*c0AU<_VxMwrSW2Ve#t62FH()_9Z$lku<0sPP?#5%lm}ji;;$ zAj9_LUGuD#U=UIoIF-k3cFxc26Sdfs^pjNn;zD$3F$bvtLN`vqU*Hda4I&w3x+z=d zfP-r`gcWNHTTF(LC`zJ`SNNdtD1|@7#1ICn12JGy<7}+Beqs^XK+2{{>@st`D878r zO(<`=sksBES$7Snp^CMrXPsJV?@@GLaJ^04iX z8Vzf59$z~7fnVD;%`+ooR*1_D8>6bNdfMXZCv5IC=`y^{j0?-UyL%6nrY2M#r1C&0 zz89%DX~PrK%??}+erE1`Y&p|7nkmiZ$ZG=lf&f6Mw};ttGWTf>>zr7gvza~bGQ5vT zm$@wG%fo+y<&?&Mg?c6rhnD3bp&5u)L<4KEKQr;a2m$AiQ2U~pI-2@W4-7&x3g1{~h^0IIB>6*)AHyV zC1`vD^Bjrz5l^)@tfe-XY98Z99_i4Hg7>rYuM)aMppyiD_@@CIW*axSmOC1NI8jEx z?_c4fb<}{JWM4;c18y7u4*4CdvPzuImDTo(#?1}SG*1&fqlRX-H{WhzX#Uj^tu?@h zKY9?sx&?%y>HrU~KY)9900N`$B!#NB^oZ&3Z92K|QY`ST#-MJ@)?iuJx&%7Gt>|I_ zG@7n=OM3TzzLc6ptv{8l^w(qg@b`^i&f(5vuDtp-nYMq=1)<7_UPBG9?(a3cNg(co>_(SrGpp{ zde9K<$XlS&2;bGU9{?on%XRo1dJw%~hDc#>7Q>44*q`R?<*wPAiUGU3Ga`V;g5vN0 zgTY;bfeZ)#FQAy-aybw{!t_8er`LaZ_@=$y?LF)5q*yV0=i6B%uP+KwH&v@hcUro6 z;5b5mGMD3sR0FMB>EoN8mYg5{?`7OyV0nE%NF6_h$1Wn(0be#)p?%NjxUK{Gs0CQR z!d_4B6%8)wJ|@IGkLZR@gqbMiKSW?;!vLnZg$_QW_^%6mqaGORxN84LX{dU2bCq5+oiopM8r~1TYeA7gn#C!c ze}kPBo7l~2BP%XPn#wL$aV>7ef}?Yo)tRKxkPUnP_gr?d@*00;jQz|~!JXzn?|<%7 zG}X|@LHY4`LzeKH$MmUro-4Hne0;4@er}?|B17E3v*Tv z{*i_;E1KML<=CRI=pwR}b?)`#*BtTQ{QTR4MZDTsxbn>1YndE;Gcokb!`B!?3)6%4 z)S;PB{6DDPC8!b`=VRxYJfe-?5X6Ijmh?px`nV3>Y~7*4Cy?s#ozE6CknZ)j zj(g*AQNlTS7k@v+{ltJk%r*VE%N%vQpqUK}xNze&Zp4l8H;~LSIcF%tJ~#*q5I{ii zG`&PELXz^4NVaiQRy{f=nr*g{^s>;`f!h&WY$3qZAq{ zI*qoorM}g`o^6P^8CMUxC42Mn88m#aW?jo*6rDE3^0G(&|5+e*)#xt&Xr2#ngA!m9QsO z*yb9$Pd7@bvS50yoPH`jz^z6`H8H^ig>rP@hUzvINnZSjD(W#+Q*|Y+mclYgU4d*! zsW2HgO^n2N>12Ao3_Zq5I{J%b3lM{l2;u8I?m+Y{?{h74F;_5uFT&v>NJC^`CMIQT^tBVM;rtGR+tJ>zgW5;fqnU+pB`q)7mV>YB5H#+2U+=!!^&a_$Y_i z+$oQc7(R1Y{4X5_>0%WXLSh$z<(6lWG0$C_oZEDiRcli};CWQz9T}dAdY?Z)G5&lZ zYL3420wbQ8lOW{qx2Qt$#z#{}kF17j+LHO^o+>iq4Aks@@C`&~O+-=K=T55~s>LrA zLI6}TG;n(V@{V9yaYOhU36a+9CK(<-R&~Vo$&5hNI@hGKQ?~@WugaAW!O`jZLr7=MHK7JO+I^y#Pf>!-Y*MF(({K=J$w& z#nn^@Zp&OqGJ=;9jPzAW%A&NZnj%i|SB*HyeL0dlfGoHz5am zhNqsW-=v(X?7*ZA>i3zvvd_nBw`Q&ZQ8f->IP(yHbk7|&N;R_Si|}yh;z$SY0PN$+ z;#q|5j%)NlV`v)f;D-^|lOnuAPHCs4A3ZLs z8;;FamaJHiJC-A>FGR5n^9^L~VE@|?i6Xwfu|6gsl5~Vw-C32<6hL~_;-#(n5{x(Gnp%~~Jh8+zz}XX|QqXum{ka!0>mquzI@ud7-#VKPGN zqfs;WzDHenX0tGmKXG8dTUkViuh9m2il5<4b5T+zn#8W_j z_e&T06G$KeH?=mR_F_r+bZhf?^UKYnZT~px!HNK<7tCm$_}=1^kGe3(`-DSbi)LWhdZ3diSrcE;*E z64pl=R0B^FSsLaXP@AQROR)>Bq5HW;xc9Po7PE8knJh%gU zim@+Nq|d$Wi+EU*g!gkqHEEa8Mch%1;u2jA+9M@p5q~`irrIy%9_5VXlX7ycHK`^P z-9mM!+H#WFcnB^tms86mn(tPi;iaZ6xs6oSX#=a2Qs2?Ss%l~QDTZ)_UEtb za0=hJHb2zusm(<>bWZw>78d7!jSOHA#kjo;cpK~9w&>6yU9 z-{Hv7vswadXp{i*Q^9qph|@5I`L!J*hXK`P!k9J; zLX$^9>a#dPO%X_HY^nm|F7*PYn;2p!D)cg=0@?Uaw7cN$YE2DL>$BQ_FRJUx)Kp42 zm;Ta{osNb&HA-RdFT!*qOE7q&Pb?dvK=WP#D3f|jEeFYFM0+!>Z#7X`AJXGhBjeqA z7);|1T^uHG%g&X~JZFDzp6(vdWwNt6p_Ls_J$@*D*cQG{n?MnH-=2NSD!)?S2w@ZotF;Y{Kg8Qa6&}CX-&4o01Ab+HeR|&lRntobr7VNG z97|l~g|bO=;Et@WUEOuPO})tfP5r#9t9-yJYQyPq9EuvCo3IEhuw z7Z8bZ0aJD8%%Ik-q79>6tEHHOEtrueIG9Dxso}=KK;UbmNT=z3)wIl*qZ&=o1RU|j zyjfI^xig$nj#jmQQcQU;iGo5I$EevUDE`vX+A#`d&C@JyZJ4@sGB|YAuiKcctp`sV z9X}a+HJqpb==tPwu1*QeMG2D;G_z+x=T)QlrHIZbC5GjDoWm#@zDS1SrV_s8d;{WL zmD3Yzo>*CBf4Nnufs!e-dNGz@!*pCNZ~iX?aWi%(3#1Z%`O_t@=+nd*jraJIDdNYM z0H-tQ1ndO_D>uuXV;D=U%YK15H2ade915%fvRyP1If=Sczz?|iPkjO`EAu&dm;Wk# zHl}oSnvLpg<$8ws`(1cFiqaUmQHk2+~Q%o`rVOdfj2FM{{`=nEUNa)`7U zncYA>`A7bSDw5_?VJLFss0-nIJU2lc^HqP_Po{ss-_%vbcah1T_1F8gxtBjVT$q*4d8gkhU_xhq)uv@ySxz^Y?He-+Sa?x=KsbzeJ%e^V^G^o8OnD+gcmKAmr( z`1~S=tseN%aRfMvKK3?cOwh_kO!@U{lNEHuz-G%v)Ejlw*I^i_w1_b~-_dCOecW|9;#iUC#~ak^SpvJt_pC)QT3k?E?+3W$032K| z30cfN+d|KGTa*&SfZI&KEkhso@1?MvMxU%ikXf zL=Y0=-FADGq;=W)S(G0Pc`?>a@xYxQb;N%isQCb8Fj(5O+&T`pa2SFA6yvWf$0jGz%jB$*mfH z*F0$%T0^TP)Qb^Cei(>$wwf&u?{1H<#lwOi3;)L`7$$>l0{ff0yKtofk^e3q@5cRD zUFUdnW8%H>DW4tYMBCJ_as%=n-*PJT~tB69Z*0>R-3q)Wis>!`J zPwutknL@^?NSRjHtW*TB7a%OLFV5dyt;R`Rss;Xs@Xk_uLJ&ca0wP z5$eb7&6f}@zB$<4dMq)@W%OLzw~!XC^%5f3HENt0qX$N%8gek;F^9GGfo0T$^pe5; z;pU6&(_{Gkt$=~M2gaBTfnjKWrcuIC8pxLq+ik$Y|5~#R{ry`R`VO23L-}|^=T#8n z_+OtViw8hsM24H)+S-p{viYFfoo(+D@qdfIv&Db;)631Hqtng(t<&wJ7n?7)=P{s< zZ)HGOX)91`w>FP&l3qC5HW2H7!+0}>@xiSO18R)gO>EQe5Y$zJYynvS?|865@hYQ2qMq>S55-Wl4$+4NHk@Ccr;6(_wP}lMY^%m zrTX9=rLvpAIaq&qkF5V@??{_lr-7gO7ou+%5(oiWZg>o#2NYguX~Own7&lQ{LmC&` zDHNvvojr7|Wyekr?lM3u?WNUfwYqEitTy&<-XnY0v9vLL>mHfAE5a9-c((CFgB0~V&(w7^QOHos6XKlLMO;u93LGqpbb71{ zUG~)J{7gms?eW}%;D-SCMWOS(d2-f!`}F~!)DS(w?dK!-eFa7HO539<86Y3Y#)k<( zk5fUbsoF=+y|Oji7*tOXdjXMApMwNhifmcpt@&QG!K<%-#D%5*UAZ&+)lkP9LyZdT za(ly~U)|ORha&r0iud|ZdAAuvafr1l1m(_`PJ$`b3c1-Ca;r1sYn>sTi|0c5Jq`j+ zOo|dH9fz>65x_H*Y-M)rZ}Z-)0-szMFHaBvOmW+8*%*KE z64X($DASjJu$KkH$NeG2h6MmI_?K`e&oq>5UC9~++t?#H)P}ILL5(sXiG-v7*DyD~ z*J92gNL^?~dTB1d%Z+!Qm@EhTfO1FS+qzQY`sH6GFNJsO3QUv#e}=>ub>Uun%Jl)E zhyuF{kF&RbilUD-UFAg{YaRJSr%vgW6Ca9@tLi^4H5$~Krne3>o5IQ_<;|qIQ8`Ot=nj5>+EoXC zxQ2$+EH2B@(6-vFoqx18FUqn68{3zs*UZxiyiOb2yq7lSBb}N)PfUV8U)vH{=S~ZC zm{OePxs0_;wjaca_2T+c32in;BGHV0oYC*M5#zO%=lkKQmzaO~PDhY;qn^cU1i5H`md{g}sfEsx*s!~?ig z)athpxy?a{DfR}rdv&CQ1GnV|XB&;{^@-T&zG624tu_t~3{^0VxLZu2t=MpX{*|CL za86Tu;9Raz`}HI#%CC}ZI;dsSb{A(bc?_$R;nT1|tpY}mgwF!kVu&;bvwsU1`)iM(b+cIxJv=aMT@HWQ9f8w7W= zy&-#l&Ihbb5U-v9!ahV=UGQap`*A^;)mZ7r5KH#Dk2poa2JmF4m|M>GUXmYHc0cO}IZ#P)U@^9ld> znhR`ecO-Oso4m&w!@oIp&zB_)M=*@oK2H{BdUlX3miXrVJ=FpJd7mkJ5Z=^(4-CSh zu+OhQYzw!Ouh)ROwM(#vY(0lckgrrc|{oP8Y`zTv13R1wP zMxiWk6`ajvs56i;9|ko|@4=2C!EJsqj;t~avR?+Q{_y~TQawq38WLemc<7?;amv0~9{Z}bbtRO)%j83t(C0#+tVJ##WB z##b9yHkV4_>4t)cF;j`+BwnXo=6d)%2c`}<-l*aU$$4&0k1K^ka?GWfM>lP16NV*d z2~v%|MAj@VF6YUAHL8yx@Rxvq-C3|$ibVO9CH#ee)fbeYi3SyVqofEN)Y}STRlDn5 zE?CjH%-r+E=vSvYqYANRT<8TYv0^Q>i$*h^FTGFDRwsT*q1pa`7~j)Egw{7di}}~r zo|WXjYH79J;ChzcddfQ39gjyJ?Y{Gw{-q9c!;s!k{dXpRnP0|N@j8AB#D`D5*sa_9 z7w#dvXW1v20;0;v)Tt0FB>Zr`)b}qUQoXZ`(B#B*L$bHHMdyP)oa_`RFM1AAHuk>U zG%u%*5XOi3HGU#Q;f=L4J?L?wyQ3nE_zEdb7q>{swBOWCKt?F73VO{PyId(%6~_qs z=iMviZqAl}xi1AI{ercJew+TH9X~R=Ibi5^S=jwu5Z1AFJ%vieu6t7$WBp~9g{^VL z*AKLZ+IMRrWw@8lby1W4`BE>N;J59xf8AE?v$QBN1g z<{d-E>Vm&O39U%T(_!&v7c`QP(aa~Kk(l**h*EifLb?{Ccv=I^OYEJYhpZ1)MRzP# zh}A`RJl2R&2H^SIsRg*P0_XATGQ;aKi|M(ZE$7l`kDU8XNAaa&y?Nz0Z@rcw#H^Y^r|kC$M+!>4ra+au{H zl?C$zDbe9~5}8n>yzv?xQ#1IKU9|~Hltv*oyz?V*Vk1Vonb49cuy3|dDGc$al-rpn zp|)6OdWtCxL0#CKaXGHeuZg?ILvsG?tK3+BMI^S91zjE9V`v}j^^!Jtw3T}Uh}>jrn8ST?PE3{p}keQ{Y{4;6KcINgwxir4rB`)8PQ zycf4tpM)j%ACYUYM4Ir}71)Bso}BSbS7G}KQD$$|@(~sPlYe!n3MVWZ9e;vGI-oj# zWl}QXHSI%pGsDaVs=zWqLr77eB9QXX>( zj$mFQ_ztZEWvH4vsgmlu3kBaQqM+|-K&*OPiT+wJIGFMF(*b8_o-e3&_uY_vxz;Ls z3ss^L5bTDvzXK@Jq`ETXx?|huhG9E@2}ZMD-EhsN(j;fi_D1?&)1;F0>a5yMM+gPt zJI~9gi82qDrP$~o4fN^rRDkEdH{I9De#+YHN*NSO9|t~eGog&Qs{3g}*{u=3Qb|W! z=49vGsTdgbxep)n#Vs;?Th}2BWgOr{^{{pLo}03Nb=@n2=eXTB2FulAh!F>ikAIbs^7GFR>b%QjDpJ-G*u6PgEH8C#lCUn5`5ek`y+9nNnLiUsW|%I{b)M4J4qSPj!a_Un?U9I%5db%XaEE-Au!V5dw zR%+UVjBu=crx zI!8jr0EgBv{PV7bmOQZTt&Qs$zUQrz={eWGZFP$hbI~+NOI28s(PRqg3pn#y~UfcvCYvSr?d&Q7f? zUNKimI!FI+lupu1k751OaPQ_Fl88%n0`t;~g>eN5is%4CK)k=)2^H%M^nx7?wk}X@ zF@*M@_7oZ$w7@B;Fad35^X0`tz4n?tWN-Wgd5K{p!^FzqE;$0&e{^c4_i`YA67G_% zR$cK+_NazjilruZm1@^Y#cgk@iRqn$TBzMMrBWlw8~Tf6{!4OQs1ws1W)%zD^cFVP zS9;Fo)y1~Jq6DJsg_N@3g^mD$gzLM?3=A+!p+zp|KZW)QIVkm+Ug$hAO?IA@MbPbV zSwu4>o$QeXPOOFVe`Dy$Y?g*9UzENPvSezL@U|3qpi7{iLfSPogt#4S-l-vwuDn{9 z`7q|Pb?;oZYTDE0eK)9%#hYyX8H~4t#c!D&ZQn;b_G-CGh}IaaVMH>|ei1G-*MS=? zGfOfIsv1115d<`0ewi*LF)?Kmf}Q~iUvGtOX0shFcCJ!Dx8ok zL8M&Kg**1Ro_!dKXE1&s6FOYL^=D@IDRZ8n8Q?^^y6+h#r7vy8P{j8#n;`8%+%F~C04b0%f34u1~dl%eN$r{CPx*gN4=--42ql?PW za3Zbk9UdQy@J3%zK0Kc}!V*BEw5TAX12%#pAjydTf8S7sX~_5l>@AGAhme}OaafsM z;=il|R0tS3f9P3d5atIJLpuQQ!wG6G1$S&>KtK_=ALwBi3?skLdzgA9SEtAks6x+A zIhE%*I2nsW93jfKgSpyq>IX|)8=#+dcstXOpKC0%(1tXa$!PrPz{&<*(1*N38$1w9 zJWTQhf53b$fXq0ut{jWu9J><$1}-60=I1p~q3gR3Oy+HDooyH@$j$#k$Dhwaz+8pWR;sb$j{WDw* z@HQU&lkfu-QYO(v_4q5BgfqZt0^3z`ZLy)4Zd>%jjjh(FZqqyq)8-FGrGc!aT}SAM zfB7(`{qm>*y)+CghOx_FFmE-|{yBGGIQWycoW9DC7=Vu;GYZpKh2yy>6=CrYo>gVy za*u#8zB<95p(Jm748qfcBqryF{hCbS#oZyzvvZEL#&;%Qa7J_1w-Yc65zy%?XKzfY zyTJigonvA}T0&GbAVe;#*UPJ~&FIW-uPo`n`ssoAr*;@Hjl&2V0= zt{*1V*47Y|tx4}*?VKm{{*mT}wL&7U-NO@GoKEDL3$a4}I?-FzwZ7nM>%LLx6>X1oe`$K# zd0Lb>^MUr`Ifc?zn>Nk_(HYA}6mKi~uPB|BjkD~w#`Xq0n#~BK$A|-o@A~w2_6z`~ zn6x1!6i*)oA1}VjJ1|y&e9!*}F#3NxWUzlze79rn@|kZx6l@Ly#Bf`afOxQm9*)mD z*b(u2wEN}mXOpUmDGO~Ru#z7Le{yGkd^DPDf4qC_L8BSp>r$g7Us`8lu ztE?ARb*M{I@A~P0)bL|k;mQF7`bp>q z5@W0;-G;M`^~!48Ns9;8BXfuq$&LX&S$w{Ew5|kq)-MD~F0J17S-;Jif1*yC=4J?e zJDcgk4zbn7m<{%a@yCagje$)2ct1*-j6U5x+}o=rKY<5&s%hKDqw&Yp#NAJJ>4~3e z`tk1G7rRgPKl`Yfv9mjhC?D-VIjqmYO8Wtx37ULyyc=a6?2pI5`iJpkbUbOw+>Hw| zIXwLIhwa19CdY?Q8s!G6e}_krIQz$wk0Y&qaWH~MFh~1OK*&fxpMA9d*)EIt#Zgo4 z$6ri#4!`;=(#w<4H@n9_z)$$^7oY7<8UUW`j=tPo0RV+PIDk*el{RuXfwGc#jk$Fy zJQ#hANjH#+jV@c5uIYC;l=Zl(uBV&dKmPscMzK7B%>q-s@%`i1e+O`+I=#T3ufWfA zk(OyvX88sIrn4X5$E$C=_10^zz4glA1|TjO(dWMY3jDo>nV5p$NE7xD*d6AOgioRF zz4Yqq+aDZ{4vtHL@N-wA@^asyx;N5-uj_o7S4D!@=F7g zS*Cm|9{kTHxw1eyf68Lh`AUXLA{DEWX4NFwewf1CFr{0#U+7H_fclDlP%2O3nK=W$ zOiRdIvJQh27r|h$7z=;#rUU#@l(41^l)axGR`3sLW#|$APwiWkAPK7=T1cS$MoKQ^ z3#zqBVhKNKIyFROy#@)WR7$J%2c#$VqokysFYmz1JqRTje=zldqbWkK-)}?UCVXQm zw7_ScLGueOZz$T<072LYJzq);%+QNLIiWHihjLM_wMhIwr#LAeJApA7OwDzduKCmd z{Nd8r6yYl={yC=DXe?Na24m@94!5ds?0#=m;T>yAO%8Vs@!AC3uTtvjK*nE*pz8np zH2wuRR#qYJe|!ozP7H@;Qs1d|np`5;0;lsCtMJRsYlMAu!!M>+tw*Z_$~1FazQSZ+ z^^_|ioqa!GVy^DeQ)2FBz2dNtY_2UhL^>W?hJ^K}oYeEC0E%aGJvIlKZU<_{?z2|~ z=&Sw;qPD;h8Jn>ZJuXW`CxUPU)6;ZJKCwLJC$jKMCDGafqt(r+F&dvc<>p58il-9LUhA!tS_#DyB#IY^R)Rit zML;b2e?Sa&E1Oso5+N=#SA|l3?x7<;qh+O{d9Ox2--Cj?DVOPU`5t#Jk5aeNoYfnr zntGEe#o>2@Rc_C9l0SgH*3ecr{qQ7$E1vJbc@s~esZb^j_V231Y_IBNi}|%GV6W+d zwvm|Rv{2ciAA|r0xQ&GKoQjqOxNf)MC)^67J| zDzJDLW-0Ab=Qv@nXSl$PyF8J(O~onRXNmGxNbexa3Zgfs9pglZcUulrFTtW|+LhNI z*d0j-T>O&aeBlhGz%6YveVQ!iCU_iY7L+#!pXdO7p)Tx|hUo&gGv{t|YN}C(2IQ$ijARwm^YHe~OlK-eq@rQd3 z+vCbdW*^QI1g{l`a(WC9O2P?`Im7h{f4e=kA+~(dD`pm3$VyZ&I(8ew>;|q5V*7gL z%~o6+k5$=7G#d6;)Se^aI;wCJm&>(z>8a0lPA)Eftq^L1dC;LFi8cDeh8?l0SW>bS%cP}ff4GA- zJx!-ZIXJ$(WpU#SmbqCGoNv@IFyN~11GGj3IBV&kqh^pHf5{-O75pjx&(~924Mv$< z4-AgKHbA?LH6+_|IQpH>DO?&FzQ6TQxxK4x z&bi{3{*b%L)C5mGwW{iLF=xq=C=M0HMjN8thuc}zvdpQ3VxW}C6s&S z|48l*k=!%S;J+)PILvN};rv{GdjMyq)Bo$C8|zvIZk%2lwsBVXf1vG|fYJI9+p1`7 z(i*MZAx3+qHAExdW4eu3@s8L9^%{$7n2gQsalk*P$C&&xJB+$8ZF1KRqdiayD{k{I zuDE|ukaowK>)zP5{^C0O7lmi{S!b{wCa#9yV>Wb2gTI}@T-Wf|*5K}n3iN&4t?KKU zwX5qH`cKQG)ibSge^y-r9)L1+=XtIjH$=h0ORo~S=4fG^U?Gt27STf6{LXG`#BjIy z9V5MK7Oi({9e#+Lyz6h*GTZAI2NH>a{gqc-*znx-JMEW0G5(}dhj_64DxJ{@bAOM9ycWqbQi(x! z2dqN1RcnK8wd(cXF{hSe>MJx}ifhPUxnPqy!8R*yRPqK3w=Bmz>#nl! zhQ&l{FOc9Y-tW)wHV4ygyt^3r-L+m^pB9Ri&VEpnP>b$OaOwur1)>q%>T!3L#vJPQ z#6@q*Fytav?){aDF`uNL@Z6B3=lf(%rBnO?CG@Cke_vbRHaA6-*v|{K`wz@-JUbOy zD{YE@zQF(eywtWSq&gQ-iZJ`=_*A4mys?;mLGzIM!lU04>F-i@gc`RtqD|7RiRl&Y z9gbB>Ev_f^BK07*UwP5YmNKN^(wGnjOCGWs;ku%z#~#RE!|eBxIY85M0%f_Ita~@Q zzXRL2fA{zHM;|_ExT~BYaEL0qVo{N|?vO(wx9pZf5)GYmb4|t_b(q`GT??3p?X=TC@W!sYxpW`#{%F~e z%kEHCaW}I21-{ZE$)+(iY99dDmF!3SFmJ8If6%SoS!|&1-h+!6Ol{6x87!eszmCas z`rU}{=wcdChNeQd1!uWGowAb6%4kjEbc@+SF)NXq%#`t)@ZB{roRFk8l1pXrLRPg= zT?oLjon+x7JaM5KIEJ$zYqt-N;6Us52K-|^Pp5d%RxSKT$A@2hwnJxIzh`*7n|d(|<*(;7{&@e0csRkv z=jmlV=;Zi|Z9HQ9y#uxO#PBz@!Ku)?4^czOM4%eN*M+O11%w~9_7Hb)aVRS}%78Y= zCfmKNNALj(23xLCk< zjE+V9n0}`&N)Aca#>yc;mxwupkK*PqlZ67BRV;g|NruvOxHhVmr!;umx2xS~kkb@h z@^GjJ3GH|Q=S@t8UY+XlPPWpO$paY-#+~aJ zjZ%M(*%-O%yvtctYL*+{0V1+?g zlzX0$=`b5(IalUnTzXX55=~ZfeSWd1)) zXJk0$GgvlwXbU5Le>eLgp&G1F)HR=((F~X zsP7l=V2X`1A43!Zt*t@K2ewV*{`WFWl&Ib+F-MvtNLxj1v`5bVle<;>Pp9Rxqr>q& z-Za>}e0G!-XkjOKEim(d)|!!M&<=%iTY4U1?kWoz9F6A>SFrrWwW z=V^D`Yh&4UU%hcM#j7_yGhV%EbR9J-IZi4+bKh7_D4=E9xQ=51fBZU*XArOB__-NKOO1rwzGt`Zq%jusjf8oPWMiod07+k(*<8UHcN8=k)Ud8r^#6dvl{k-8xi0& zw(dBw1}r_tO9JWP8lXln;s zt?l5?^|~k$d)&WMJNVnV+BMsO^|tj?I#}9PyQNj_ESZ;Sxt!^yn!B^9?4;(kx=D9# z4`e4J!(E!m-^U&xyNA!SiDuSb>BH;Q)voHdvqT!5XXY{Dlk5ru?|iv{BWt%cfa?C1 zh@E8ffHe>Me?pMeG4c89T!b(S-?K3_*_(%;<7IxDOlegafaef)<8itmwHHtmn4;Y3 zv7}^31!=?MFFyNf^iACHNkY;MiM$RgqLBlNYxrE#?UlE-J9DezWCiUNKH_7B==Ik& zfR)vMKjCP%JX3Y?s&64q96V`fBbFGl=CasJj+qb;63$<5JlCC zQJear+Eg#FfR|}>=ao0cI%F2i8)Y4gJHgxDMG6~r?yGF@MkcaK()`vITlJKlf5N)jw^B7nNEV`M3XNnMEy9C!i<(YoFEmM*GAVwtYewy*e`P9TeWmkcE++p4A-e87xk^&X;)~wT z_56~qLN7B=j0TU(IECMvU1&?dHsQovpg?M37s)lsxOUASwK*`ic1#npEL!|J15dg@ zhB}2LaILFa&G2YhoKJx24S3-y;8>TO<=^^+8cxp^P8LXt90?mHBBDxsGw?6i_lNliqbRwCV6)k$Jw%Es-dHO^ym@V zC^kutB`uU8>$5?OpLDz~rGM2^;O5Fff4aa=_ABAOz20R8gaN5<9%m~;d!xesw8(xz z>jJH5_#fTVuS;;7n)Kpdh@PdVr@&{y?~fx9S?+x-#;B!<$Pi9)$FT9Y1x_jXTx7h5F>wFEG@u)15=}%$HxOqqQzzX|{vs5D8e{2V8 z2gxM|9u-n{hV&x2v`0C5C(Cp`gN%Vc+&55qSPrNCF09~$SCtE~!1UGlA7&RPz}F$~ zXpGX(HQ6`!k}{aj&DbxT(Xq5nlzIH!Oy82s32rsX-HVeX|0xvrAiIj&1vxQ=(+)fV z0rr@rC0`Qn_A$?vIW-V!wwee-f9|w%9kVQxY?3F70^*0BBxA&rqR> zYo9GliYZg((()%roUzwW^OG!JXesq-L*E;1|IldcFxIstn3#r0o~MXZ{4za7m?$7e z3e57E&Iyc?%FIFsPC)haLSI}P;}PWgP%UKm?JC(zb3LLdDWP#pX3c)Nf4jYDtaZ64 z)4576E)!04ac8!?JG>26(F(a79cqxR1$lSV?$6J~Ano ztcZd)`!-;#4}wK5j+uU5rt8L&*RfPReyA!1^g=I+EHCwj2aajO4 zY{^A4jwYd-*r8^B(WvD@ao_BQ0Svv4W+sdgE5+NLbux5Lf1o4nua4J`&MiI%ZFi2) z=DL*e**QJAme`W5jLs5DyeCa#2+G>N*ATS6fL-Iy`zhLly1f=JU^>SdFHqZ}h3DLY z?bI~K#2z8`o^t+Ts`D~QB^=FKahpRmLH<0;y#qYa=gC!?EqQ19${yh>nt`2-rW}9z zu3BU$1O?hSe{Q2u^ur%I{$3lzXVy<9bw{Tjr6CuJgcNO7zsU8KIaoa2O-C$U|dk7z`1%I{t~ zqTz%ZSm8JWTS+f;LGzlwB#V+qbeGpEakx?-*=cYAf4P@P5!sHLI!whJFxlovkQh7b zXYM|Y%POXZx8&5YHNlRv!?8YJcws6jyzqjb`8_wmgB>s!(1Ksd#Qdn#Fb8WyveU3F zYBJC}*_bK~RJD^S{%!dU+mQKX!LO2QJCr`+7e{eeKv_`l*A#b3l18VmRdjktw$n|e zbsA;-e?XyASaRV`-@7Ce^$A>@;GLWKN?u}&TGDGc?RvZfD8T2Q2X6^(Q8G((e7O4+ z%~S2=THkblKD^WmoQ$|>2PK2<3cP!j%rwJ#M~}Unp3=N8cUlVtpeiFIH>+KF9#OQ^ z0Uo4TUlT_>o4l4r3{IEAl4jOLA`JPI;R(Qr5%8GFQpkw9?A>?U39Mw ze`NvuAuY**p*V+o8~@UNLEGmctNzM4!JGT}u=vs0Di0r@ty-O<&Ejf3Ya(0;K>Tdwt0((`8o8Cv`PsTJ>@buR_0qTJW{^ zIX7PhR8?6m)&XeSl|6Q+TD{tB1wt+tJ5p`C=k{!$idgB>{htmGetUFyBIlm0OuXMi zgE&$DTGVeArNn>YUbT{C!=hIjL;I5~Ese)bD1XHfglyyf)SG*=j5G{#n3NbPE_BXPHw8}L6- zl${y$S<4?L=?jsk&n(!?-_yxFR@xEWR4?zBO8|R{2YjH~_%oExTrwQKh5u_B>SEz{ zK+Q`my@{keadak@phQ%^f2bd>k1$j$r*&~@Nj9gRgN$KKa!Le5^9>~cV}3^A1jPU> zzN011JmT!{C?vI+0r6)eoZ!eq!60IeGs*uA3L^*I&43W0EU5 z7y>dGjz-9vKvV+aq^yMbzObyYBi36y_7I6lsnnjv39D^B)SDIM0jM5WYuo>F5qjaHL`mdL?QkMw&1|GIV9nHqs>!6Pu zM7)oQiGJ_pacBg7w~PMvGuH2H^m8>9e8wtH{fa9tZJVFn zd&(Gy_`s>N7sC8eVR9RXEoaQD^aUHR=Aa+%_KdSBov}*me@q8YRoS50HVgT3gI6!q z>P*^Gf8uWw;KMZd*vzGR$e9oDoW=KihqisUrq0SOwM_*qK`sRF!UC!16ysFrc$||b zDm};KFL$-;$F-8*h;&nV=gqh?ePcwCYiQ~1U>_!wuB_WOaP43+orG!mI2nDf9y+K8 z(cN%*LHNGKf8fBykZ~9dWQI!fUk8qE*4Mkts_lkR*g%00pTr7FXzT}oO-6jQp2eBd zsRvX6&uP~^MSBZ8WNqq0Q zRugIw3>>b8nKl3jyHuhKdedYycjQZUuv}FgyTpLYf8GeP#e#tv?VbL7s(v^=!Sj8B zJEwM0q5afVrw(gggJaA*K1T~HI68_rC6H`9jOlF-f}p!f2D}=SPPWzec|E0-#B+15 zsRjtt%SDxOv>gR0qp};SqjMMLr;p0Ju+obZwRJkfWHrgBd5wo93|g8E1Y!2b{@xJ< zPz{;Ff5X>!gS8SL9>E7#_Y`WZ)CEKWPUmMAx(fR~e3^mBSA1eAOCg{6(nfy9M5!ae40*REjOLjd5xZn zp_?yy$|)rC^ME*P1%;aO@l-B@y)m=hm%Yq@f8_JVNMz)qm|ilAonbE8#@ZU}1Br*d^Q;*74TsnN1AQ85JP z4k{0qtuA=8?Lc`Si8qfXVvu7BzE{Di~ZUuup_yl%B@9)_J7cwWRY>Me>KWN zpidG8u?CtbrNpQ>0vysNIy!L0l^(?UPBxxB{cN6jAuEGC6*Cw-XeU@PTu$#D+BF(I z@}f|Xt>+I>g=TC64haOgMw^Ok(IqhyZ}hJ>Vg)0hA6-gbuyC2)QbkyR#=lr!Akv*- z9K!lQCO4F%MYaZz9*D^cWl4^A=^Z6atA+6eLb-byKM&T!#X;~}_*SrTvxORI^LyjE zY+RR(>#}iOR&iZ62J|`%Xvs?<9!#9iPmFDF7gv!Y^~G+A$E2TUd=i>Yf4Aenw!&9M zgZI@>X{ECBbLe5ZY=h*=-FRhBxRP**q6v;?PR2uP6F2;B!a2ZB8YuUB1?ybS(Ggzv za}sWh3gIodx}?3&)||_=?m?4(K$8|(aR}}?1YJCW4laR)?%)zEv-Ufh>S&w>j0*vs zQ4c?Qn#hK!0YfD-9q_xce~5i6x2JvDz{5}?*Kg1Ex*M_mS#Doca2@_RTkqI1-NTgMegfYXRF+h{F8^^{H*jR|` zvJf{`O=#6*OckB;NdoD@e@t$JMVfho993Ed>&k2dBDbBfFO`e5=nqnq?5Q?ICUfP$L=;M$sE^`HyT|e;wxmm+bb>O04RPo&O10 zyD}Eh6)R)u(sljuzUfiyO()u`#dAVdALB67Kf54Wfm99BF&#!{znSUAu7vG08GYEZ z$zat9WTDti9C?l3&_IK}@ewo`Vcsxz3Ve<8XzNK!62_al+_{(RnemJA!|U?%sT<$< z%mjBEaa@}ufB6?(_qoVp;U<$%D(~(l>h>;zGP@nauYYBKC)TdCtR*SQD;tqj7raa| zHZf<F>)OV8>4jh5zsO3gs0B+MB1208xv_` zB5h2hHJeBxf^T3H?^-OCj^@!itMrT`(XfbVB=Xw~Bc9keEGjR@AhX%g_@lCr1iM=7 zBh#fOe{SsKw31eP9<19Hi`O0XmbQMYi6}F+Xk<*;yy$pBY3moSXz_&tx90A;-V1)6 zY~7{X>E_AUg11^*SDzbJovS*%k}-zYS$0M~$bE22L|5g$P|O!3#Ew1bL-m zh;$B!+QfCeI)S`mihb1iIB+wHAasKgc`OJpC;fV}5RuZP&rrNuD5OwA%5BBw^PYMe zf3k~C>Mdnj(t190YaSYFcCgI@ouGxrW)IRLm4-gnH_iBI_2&Q}vMa(yN%?G^X|#Gn zE-wjxR#uv#qj()E$Jq*{xn)(L;LZNt(do_C%`iuUCp*rrNx(yEr1 zOdVu(>TYpcLfbL6tjqv7Yo>zxknBtU3F-AZqFl)!A~1>T_atmu6Gyqw*(Rq7HMNDtmWQX3J)ej+@&TlF$e~<1f z)zQ*tPWCvkA9SbiHXS=%AKUbhqw&T>3&eoee~PHbOZV^JB(#(wuoDZsr5@iYrZu+k z?RS2fj8@cK&=@V^ck_|krX*%=mnkVD$jy}Wp-oAW7Wd?#iF5uXeXV}cyAxwhW6`rc z9!LYrq&-E=pICJ|fnVb*e_fc7f9OBRFsg+Bcr{#xD4iA4tdfyOw})S-PgN!e2ZEc9 zZq;>}KcCk$)A4=P{E#zcyBn+p91p(SK8jkIHsSL33zV$N-z;NVhH9;IK99uybAA%( z)5LG{O&JC46?;|#w=T3AIQ@OK8eD!Tf8rp41*={20U(V^Te2}m-mWncfA76edJ#PA zMPH=XXWi(hjQJi^Yw&O)_}+P`7j=F=+`q#sPrPG_`=Ij~O|DMaU-u{z{*uR;&Y6Ig zYYb1)aXzo8WJy1HUgwn~K5~6IDXu7qF|K*X4*9f43nwC=i3#hh`GSJtP?A?iu<0wIrQgpl3r!yj(c+o%{TO%_V-SAOz?oU`gB}HdREgxQ9~EY;Zb9hLeNa(ZMcvZ zZu5Fp55;BG%pyO(B`WM~hk~i4v0w)oa*lNOkvARN!SU5o0mBQdS+9#+y1 ztEcH4fj-uV?u!G)wc$#peJrfR<&JGbc&~psA*d z*E6rH!^b-?0gMh~^GM^gvCWn@O!RsfqSeUCWrd}!&?vP(f5KIbFyb%OuRu()7o_xD zu3rC1&0>T@*1ePR)5Z zqX#9hC_8b?f7NQBqU#We=tc^LBd$G?+K`$OA8L(cAr(3 z*RVoGGh&LZxdH7yHGxQq9jn)%s2Y?{+NgdMuKdxd(4Fccz0Ahw&-OVa+wUYNAy=I| zZTi!t;M-O`I~&~-tRh@f33bNTq>YYd6v-3XY9Umsf1xJUE?hc^AX9fOt<_C!T}x|m zJNvAOK*f?dBC*Os&Z+B?^fvwCZNz3K+Y5H~V11BAI0*#(V2eX@DU>V{vkiug*& z$Mwt=i`_d|bYIJ*{vXscS5YT+ec>=S_yiWFZG5_oPq*>uHa^`)>eFpJi*dp6>0Rl4d?Hb0|5vqJF5<00Duz;$_aROt<#ZlSZQNn_+f{_0o9jF={KHVwPaawLK4*SEWC;yv44{cdNXrNR?Vjy+h z;sPk&s;rn3+hkxj3yxaP*@8({i<1THAay-h&>oGjIc`AtAHj;+TV6)noS5jLVlm{t z@7~U47w0k3dJ+_ICSmV)5w$0SZ&*Rj(L+i>CiJd~tX5w|jKQHGMP zUYi*Fp}W50%BJCz*?#Y<@GE~PN?RY+(9j_NIBPD#69T_togyD&8zlf2l`!OOVUzaa_3ZDTc2bqTxOgKMt9eW&Sc7(;S@7 z92(Y2-Bw)IGn5-IAjwQ0)8P$mqhJnIvc_F6Hx@^QWxpPiE8Rn43N?%<*yb?gHqRje zLDv{(bogccw}Lbnt|ttgswux8NZmljlb@DN!EUVk%o(?85?>_Y7ma04e^Hvb^Go00 zCn|0hlSXlH6%0geLIjw}RR@)6dQ_wNB=Ne?$De@0TDdQv9~|Qmq2YU7m|GK5^#X?c zj89A3@&5dZTGH!`4)=sEXFH)d*QhTkeKp3D@o1QPBOE6h=@-*!#!CgvzjhZa4254X z#-v_6t2EWR`+UMNB-}4Ve@>rhxyZ$hYz}2rowHNRIMFU57+&}3^pG%mTqU?Elk42^ z&7MFZZnus;7c4T3*6i|(FUKd`R@?IO?eMlrlbZyRqb0brK}T)R5YJeT8-f326Z^ySu{ka9aQ zNfmG=qqJR{md;)TX)j}mRh?xerQJ#N1QIZOR5*6?_t2ZJ{A6#&@{(H^iV%*SKfp*j zewmdakmRP!2zlwU-y=>E0j`e|Lt>z)gnr~?sZPTulvh_?AA{Dq`!==K-M6B({*gfG zr0$~J0PL9=kKgZ|e;jXZblmbcT1=g!;aW!%y*?Rwbrz1QaIUhvwIbH=f@&6 zvx!Dc;;NdC+iB4Y-6oQyu`T8Tr_mrsze%hM zuOt<&oVM!MW$Qb{hT5z&Eqew{bEyL+1Kf9)HmtH5DH(XBe-lBXE_Ay8)8WByj}A{B zJkDN8=nz{16ni+3(%Xzk$f7uF#p!rttJOhAu7o1%CUtjLPPiTlUSm3m%+_b=jLvw_ zQ#tuRW~p?KXJ(zv=y7KMd;0l>f#5{DDJ@`o44Br}kMtHy5#LllF_fzVa*Zo2SVLJX z${Rhpsqm|^e+_kOXaGw!cd=9i%=h?YFkHO$%iied__6xIFoM7xTdKOmn^ilQF5at3 zu36enNgRGL<{5td;~g`**hGQz)@%rMG=V(p1PeqVzZ&dLsRep(5o42jB7wXsaaw_ZakVewwx?RN*Z7YvPahn#*CDy5!&9lQ&Yl&$a6`G!bB(}jx zj03sNf9%88DXfH>_Z$DXhnB7Wa1SVG8+lTb;d}3kL}uVvqns^#PHt-c>nh97x(Yq{_3lHcNf`ef8SQ-M&4P-zhV;Z-MtNH?tJ~#UHEqa zjj`$I@R5Ake}5*XIIbQMFrfCdiKTL#SWrTz~tP$ zKfG`MA)K;>?CLQvZ;46}++XO@%Q>K6?L2*6jIdCoOW0};&;=-E^|C-~A<@4UgM^e& ze;#E`f?_!lVYFqT+jV9biQpcTRquu66)*C825EVH+Y32}1ob@%3Iy&&}m_dldddhM| zYj?fY5@R`8;^a%)i9y?qCk2{n3T(0me_;*^b$V9jm$f?MobCpWHZcGNW03X-j$Fpr zWO?XpQ+!|%1+JROu&ZypGP1>~Tg~ycR0Duo)bgxg_zJBf!LiU!mw~OG4H|6!>sXKe zVPuAZwTarY>m?d9fsKw2jvqk%uZr?-t{*)5Vr)*u1Clb&@X7>7&~Vt~VdFsXe`5oL zp%;$_k?V)e3ti6+_C|YX+YSx+mB3Z~5k>!}1y|d|^G1$S-D_nx;|-$;^dM|wB8|lN ziiJa7pk?wK`RVv5qpGmw^NIpc$Y;UOadKJ=S#Q+YB&~WyS!ieG`|L$Nb1n)qnBr-8 zX^VRlm_X6JeD&Rs;DG>HD6iCRf5V%Cu1QvTXChdL#W0D7Z+p; zz&{MuKLs6N?Q!-k{`=YOe?OP(zOeO2-vF9)et@Gtimd-L*N6t#R7_L}NKj z1NMQuUkrI<4-D>4)y{1(BAc+Hi5;f(#7cyVpY%gmqKsRPm8>j_a-g;hmK32@Q;(#Sp`+Hu^(}}l? zxCHhXV9vS%gUF<1H_)S#(@{6blcy)$01qA=J^opMh87+}W@CNv{t{zu0dgRCmq_j; ze)|)zg^6oJBB<oCk-COqU-9<_~G{=Tk7HT?bP^tZi7 zswi<(Mr$KxiRvgt)JG}ZDm;ENI@(`eBg>$s6fABPn41sy4eb=&pcubS4T|eAU+13))$3-zAKOrymsrBl+E{g+Pp`Fy5 z#vD^{a(sxd&*F>1&=_J$zo&B7H|p3G;9^JBUJlX=de40G4MQU7^di561XtQHo0O{X zrd%FvRCQS5-BHLF@Q)4edz*}mwiUEv@4U-i=^p(Sf9plrLk|8ymDSwL0p2{pKZj6a zn2(3h@?;?u4!C3T@af^+ljFzFemZ`1pu9*Hs8onb&w9C#sXEB$UOP%<&$=I{fZbIs z)0fsf8?PAr5mh*R(~B;Gq7PC@mqO6P?l+=**w5Ukpa0l9vhCJs;4=^WgJ>T}z=Zt; zD2LDne+Y2fo+j*vbB~+2w}vzhwo@pa^6ku`#be2hou;>JtT)nVG@4B#c_jG~V$LAv zyY0YtcQM@4|4ydrWX?v@ug;F2elk8AJ%W?j*!zPynM%(O>tysjJ8oa;VS<~JRr0@g z35W*y@*G?Xbo0Ms5su~Lbo6L$1^Rvzrvm*xe-D>Z*`LlwwByRL%X@+59~wZ_)gRN?qza{4i>X*4{+d_wc)0(-HRbcU^uygt=*hWA;9e%`0Z{e{qSqt%Z%g9v+Pzay6Dz zq;F=p>m=uV1V|*$lJ#}|K$G0px}X2Bf4wzw{Gp>v!~4hN`9H}JKmHCUyQjnBqoNHXA=)((T)PyaAF3XNj_6z09(oMT)a-gl`#Aawj&>XLr9UlFE4r z$Y*c-%=z9o@eLo|(f#1@Ts{v#D5zUY1ivQ28H4G}_FS~+^`l^~qu-L*x=i}ee<^3a z6M_Uwt2yJ#rUDQX5kg*Swg%3&@LfKV&xK67wHj3j7^6zcd-MKf+$6Gkc)Wl{t%HGj|mS2qd#u z!*EpK9sBT-)n{pe4*;pye<`UM84Awb{hqKM%t?|)IP%uALcxD>tRvDp-dm;* z7TBhk4eN;F%7N1;?1mN60cF(_Bx&JLz4=n8Cnv0V@*ACGV6#H^e+5ad>8heP(!!uC zR~4b!NNoHph$b@mWt}W%e5Qp_NVZsp*DYPLz<}|M*FV~ zFw{LvzzhIAK*GPG=lCRf6nW!~@NiiDKu7!LZb~GRAEdBu%*$TQV16)v`f)(l*YbHi z`g2k1f=KDm{0GtcM`N03ms@cI_TyE*(SpPLZ`+#znb08?_j{N>TVEwG(DriJjH=<{ zb6Lbk8_jWFSMtNY{UaZ!*b~=O$$zLv^5T;ez6G&TsXgO-efnrt-}j3@RBu@Sd>28I z0Sda?>xIaR_)Gz7C)n#OE_*&T02RT(AwtvNGroUUG$=&rCI=&ns;+*M!#RRvK4cYg zla6;(maCK;kfYJWWBr=OU}@h!^lC2i3f%xKqBI?n6mF)GvDNgl5|q&wt$)~pIo}rX zG;))z!Ijd?&nH%CP7&c7K*ctsvY0{tb>NA)@;#A+k#_~gr)Unr+??mMn+!r9~xn=&2Bnu!M$DDxFN?w+LQm_=cP+fxeqe7#u)o~4AWEL?pgC9o7a;ko<@h_&(XBm2p zU)E^}6vf4jet7OZ+n;(RJfs0!e|Yl4F!wia)(xYeYFwSQSo4i==Ud3#2hM(b&)(a$}TQ0kPr+)96Nak+)7S(u2HPG|37#fFrhJ7Z}D>O zHW*EiJx(}$usQ)$nb?BK;CitUL4k&xXPH{`%cL^wJNS*B(i4E&aSC5+kgSr}5H?>Mg*Y9F;rH#zl*k1a ziC*-*@e-ouRBtInR7Ox<>T$uMrK0pOtSiVx~k3P?d2!^$!N9UccXYp%5Ig)cY| zL$@%@0e^E(o(cKGjH&ObhJg;kjm>(yMf*2I2#(bF^6+R0fEVH+=GN5em#+zybr%|R4%j0a-fyF`F zWzI{MIZiV#c;zb?C*k{du^&UkyZD3;fL`MTAO?Ry<(5sYSmC578M4tSioMVg-bwNq zST^867TEzOd45$qGr&03>jAzj-cx(jMx_;EY`gbxhtamRA8F^w`T7~E^fGnsQD9|| zL4TRUC(U!n1~+pWGub~f&s|s{xB-FAmTQ``3iyV?(hlp0qeHd6usZ+iecU8?Cu0V-PkX)%!FoQOS0I%GI{B;F4hD8-zTVrBW4wD$(8!$ET zuTFZo$6dX*=gokTU@~f!O#PA7uf3*=3%$esTS*A%mt1;_wfjKcN8fSwQL1U`aesc3 zk$0ZhnhMm zhvJLK9`+aeV_xVmnEHmg8vnPre$#WgVZ^D~?7(5A*5x%ad>oE?S>Lx)hvK9eI^c#*+zVSy7rzQ{~7X$n@mo zi>Lb2O(Wfa_2kqeXM8sO%;V};Plj+(XE^>6i1he#{OS03#3X)o+En}5SAWx^lW&ea zzI-|SZgd7vQ~2*!$Kz=Oz?Y-p*P}ZCV6ab~kUn`jax$f{N)F1}5DT9SzZILW(@SkQ z&DMa|GFB}jor_=m6)wwNp*bsDEn$nTmO%0ne0aq-^uncRP}LeN+ecQpNd}>72<%18 zN`eWDqAxssxoRk`x0pUF4S&tDv;)lm-G*ij7NS7XEQ@`b`H-Gp5{7eQ@ie3esz}v6 z2EHaZ5xLb3x1lYq`|W_)AKbrN-~5{8i}@g)&#UE(Eu88SAdi|(VUF+d@Ojd7^xArL zP<7}(Xy6|a(skv)Yo9h<4qu_l0ITr>hTGZ|i)`vN^fKo+IQ)HP0)I6#BM97R&Q&y3 z$z^&~upV=OYR8wTf}<)RyZ|=H8qolQF85{KNwcuvE;bHU+gu*t>jq3exPGfxH^Yi9 zj7&E+tBLv$PZ1^<1)VI9l6YPXfs&jA9jj+(!!5+jpJSMj;<9w_Ta)*lX+w^m__}1( zZ@rWc|1;VNP=zSjw13hiU%q8COppui3tRX_DoJ4?W42NU|Vu zq(}Asq<@iU21|E|9S(|W(Mh8TxE~7hIN~%f>dh&3Reh6tVY-$vdIb^n*G#)zr{B3z zmz4VJ`~p*OmqyK&$^-=88i_#8)CyX{pG{T@608tf&)$PJYJd6AYG*$-?^FS`^>$FV zPm!7FtkX}b=IvqhMg)H&#PL2bXZrJL}j_0FlFTrbuxK= zZ2{L-y&Dm1qks6-Y5U_eFE8&kZ&QrEk8il1G67WZTor#e>b^m@nN{0N%B|;M1i9br zPXU}G71e}$zu%lnyA8~*h;z-%2^cF7b)Mya+X=OUfO{>)NIy(LhdH#eh#3g>?pRK( zMA0y7kt|Yt0?u++uG&~W+F{HG{~+;hF*miClAI>oYkv;Bhi+7T`e7ay|NHb-I)SYE zhxl|RmDOrvI>Sa!fm`TZJjFwcduyvkwmgc{Mh=DzQ$4UO{*7ymR$|`5sXngrwmQ<* zb>Djz?LXtWkyG3F(^igKshzrRq;+SW8$V8Va25|O?X4X*GUYM+Hu8_L-* z^xX=NYmlGqYr@#6gy}fv{}M(Cf0@MB$)ie`gwaC6FsjW$ zvIk+gb8pxgQ>;l9BMTma8>Dk{3QpW-fo(8jxO%j#{@Y=YcUN$+J&%jc>SgaegXI3W zOrB-=O|OslWbhRx15-Faep$34tzY|5b$?Jt8iJ%W8UmHAkpQae_5EhfQHNVnRiL40 zvgi`QJ-%E?pZ{SPhTPDq&_~kx3NS*B; z1U-Bl+jZsFA(^6J3r#W9^ATcZvcMSxl&ZpIzN+{QrLy>KsVdl1wDZx0T7(rQOn*(N z%b?0gK`@w98ZOskk<&rU0aa!mQ9{~)whHtpyK){7Sm?lw#Tp0kyM9_@8{IU^$Cd#d;B&hmv5>if#ZU;7XCNcnpcWLx);aE`DH0d3!V$Hr@b@mBEW~u!3$Qp?^+JuJIx#L;0B|};MQ|Z$5(r)h1Gy1Fxwtwh9_nJBiycf@O1j<& zOTWf}D2x&txyf2{;g%4Um4A}O>kEqqkH4c(Z&9d|O(L~Y4Xe=$=|!bmd1K)VFL-Sn zs1-TDkz`t_Pa73&P%QIOgyunkmzwB5H)HF@N8M*w(1B9X!WVv^bdyp~zWO+*&|KcE z%v>KvcS41ekTM1PwZ}D%`tI7Ht0q(-qEJ=Q&gJ`x-e3=(%aDV?|7SAsA^Dlt2 zut#E{cD}zK zA@A7e#%e}sAaixKE=t^4!TU&mhTlcTx4^IR>=~~67umCPhIi4@5w?37L1rAgRrYet$Bw-2AFCMqb@p<*Tzz zraIcC!vRU(?QfLY%HiN}?&)t{;H@u+qBjp-ULNnjfduy>P*2O*@sR+-yDLPkyCH0I z+{JLA*v-~CvIQ@(UbHVrJk=MYgqi*j9!h09uN`>pjtzIwhja6-5Y;aFZDuGh(<6)j z2k|7EWN80KFMler3}vDF^pZI5z{#)Gy}k$kv$&YYjwJI3!B20tBZdXz46v(b|bjx*Ql&-K!Li?_Sjp0;!?V^6!PF zPcUaBFMZ|w`rO74_~|3PP8K)(0V6G{?pJtt&t-4r(0`c@Ex@9BBYRKst9nlumW_{C zaB_o);VYMd5e)ZIeP8!)%!?L0z(S96|1j?egoeEywQ6)za!#p?VJFyVx))>Iou~68 zskmsfMKewQ#nBCc=~KNm;0LHaOq)Q}z=i`>AFerY&Et6r3m4|(bB$m-M6Me{Rt5{L z?uWHUxPQ~a`@~GK`_IV@zl4?)g}lBdxTP>$ny0)h*|sAYMza8Yk$7Im2Wb~tciRZr zZbNBf9KPMUe-~l+KRvAeN6io&BCGqx&mGkI-x_Hv)h^c7f9~G*{r6RsY8RH9k#yRD z#Ri==VBw$5Q#TectRINq?T_0>gZ~(V{y*e|DxGIm?!{6lBQ3+_iPiATd0j2r9fWDdUwE+jK1^ zT7S2xWrx@cu;I>)EJ@d6Y(Ocss~sp~LxXlcWh?XiC+>K8oe-dCPD*-6rW-t4Q7{-|6Gd&>}!(z7Pi>L(=^ z=%e=agM?oWKmKxbOBfFB^OwmD3KF4GRFGfuc(qD$T~ucJ{u&$;W&ct;mC=EX;(t9v zNJ!NyYO-Ffvbs*~f9fG=B*wl0ilPd>(1E`Jrg4LLd+9UqP+FR9)Y+;8Nhuek(@bCKi;jJrVP z=?`9c#rFH=05pPtEfmdBm)V@-t=GbTQ61>KN+9*klZyhSzh*8|YIeR}Vr*i}CsHx@ zX@qT>^~{mIKC}fXo+mb&jd9V~o__QPo>s%j>sGfMxGcStQtJ{Gmk10fo`0p>IWynT zpn4dSh!RS$EBgGZ#r$R&U!^lji$h2Z_PlX&Qd_Z#e_aBJy>&qW7^(NO(}8jI-LVNozt-(Xe8(x@-(?7;d^4Io-J|JQRK1! zgJ4JNaG60Zf>6s${k+V61%Liha3?ej$3dgm)5F*cn(IKaz|c>!cGL!&s`DGQ1nO88 zDaMxc7;!S!xrk(>$#1YUb7A55B8bZ|J;5VK$c23%` zcmXDwlC{RyaY}O=tMO&BSgD(A4P3_s2`+c2O)*d+k(Ce_MTiyeWunyr4&1^9M@)fT5{ZIC~OouT6^S1v%K#nxq_XM&6ds z>e~)dDPxvSwfmS z`H|cAR1cJ|ueeObI@s!n>q)%gW5G3ic9SKx6H4!Voi6535xKW*Bb5xw!K~l4TR6E_ z?~%I0^7gns&aTdZ9z@g#c$8q2Mt+PBwwjn}m8F=&vwyToyPS9K`E0%XHNLR}@%l38 zbAoG+espyn=O_b<`blg#0omO8~@fLh0?xtVI7T%=158OYAa>=VL>J9gc) zgejS3(>z`lxbQ%V*xB_JS28gcKrNuZWR7f(t*v+Hu$X1J(+&QqVjZQ$X^zjXC3+a` zE$5Tr;eS)#dep1RjAg3Ln;co;Sp7O3pN$nDAVy~ST)zT`MRYEPJFfT?)k~Ji)s5CF z#?uG6klA!&$0uo?3`-QU;5-&Hhrb>jzNK|}y(}?yySf6BIbtgms6tv?CLL7!6AIR> z0Qe`Uq9=o{s`Od5m{-SuzXglfXTx3t^wtgSX@6GGhz-?@dqt(r;^Bh^P7SV{y)*DA z2Um?u34!!}A4$JRh z^=C(mMUHOL3qXS)``^Pd`{~*6X#CZrgOfhV&(rcS&1VbO36*WhN+QVwQs5hCyQo~x zlYgy98kXq!JiS9A@$;CQZRQJ)iSfLff+fVy zNj^}=nWFu`1eKygUl`r^{_M;I@lRmkpDk@n%xf_f>-ap!)^^G`zv20$YxmO(CE^qD z!~})B^tqx*EHj;x+v+ggyRP1TPFu>c%gzJUtq88V7u-NVz0N*%r%>GXb?TTbsWO>ow6d`vAay79OD1I|MoVXYf zEI*GgO5Uo7ardo2z7P}zJ{NhKz>ejO;#b;x1jySEMA{Wwb-D!LD;*e}LuWL91AoGz zzm*AAD2D59VJ}oh=Trs^vyqn#H0%bASh*8aV*Pr0=}dZ%jE*Wf4aE&BQ9?0)M8gNtLr?c=~j zQpzasGRulY#b&7C7%-+^55RwnZ+}?^_l$4DRh39;` zuTE(%jGck+J>^czEXm6_6>z*s%;tx@g8D_4J3n}yT*lXFw$8}|wqgK|{2TgSFdxo1 zq;*rds89$B{m@c9=C7Mwmax#^JgZ`-0*Muh^E}2~F)D8`DSuQ&Vz1(% zaz>@MM>_SQ8&1&&oU?w)prR|E$_n$f1O5*s zNomnkcLhODCmCo{dX*HkL;GvIEO}MAx>2!dD@ibu36F(mj}%*(HCl%m7a8${aW@B% zrgv6rCc%~QfW@Zv+j>*msDEXfeQo&5u@Sb+X0qukueh!2OC4O8rH2MB-1nbNyT_U? zy@A{%MA0pevI)r$n0AyY{p2977abe^3>u#0`b7620d1 zJBHIIq)+V_E%+=NBAaLM`Iw^y=fQN4$c=EXdZ9OB`75YrLGR#3@_*SHpr9d7Oqg)d zfzM3V*~y4+Z~G)qlG~0gPgcnicS>%%H6yLxrs3#1o+sSSO&~ahCNtUq=ZSHt090kv z$nNX2C$!%h*uEpYd*yyCJLSFgty!nrcjW}J@IDBLm7=|`VQ(1?LnoalaThB#9Ziq3 zvm~a;s2hdT)40I&*ngws0+vA?hc~6+b=R=z*ARr@_j;*dFxiw+zorkWUlpcpCtk_C zEp>#MxV?^9W{T#7%h;iwsLB(9Yd{yvy6UJ>g$FXNY7dulJdsHW)=o|in589!;?e+# z-e4{p;%*~~uxUy>+em^lp=u1e2WRhMj3d|j$byq!jXE0#-$hk*k5X49cf6saXrY!9 zC3+Q`cYl|k>z1H=hDFkH-O)GK$Q^K~5hczt_$P_v;1Q)%lC-EU%D#bKoHOQZKmaH) zDd9ETcZm3K7xP%80^+J?Ukd#-yE-6+>;gZtU}Gu})s>F6Ij2Y_Bh_b*Iia4xxL!5A(RV>?veijwU`$aek?w zu7BNL?>d;9G0Sp3?$Aa>w2@a66z}cr>NA@H65-bk*h5|FfMPi()r!>QGF{yz6yW_XUFF?^ zsdh@o(2cqLAhl`$d&sBo{QKxf4Dij!_J5)#aF;Pd4IEpVoACZLfmis|3_tm7d`i&B zPy=?md#w|CC;0V)fc^2sPBVO2Jp#L(5?0UKvcT)7Zsj>!ETWz^21XX`b5lerwcQF~ zNphsLWV4WyaK|~jdI`|M@*d7vx8K+QAEa|Nt)Qj5t1%HNuf^;@Q!TJh-I)(g*niJu zq$Nd%_@BFL*MmCnrs3Y3ef%Q<_|_&{OX<0)?j9cB1di#U%261FbQE}F>a^d0UknG2O6T>I2!8f+ZW6BbT| z4DWR`sWMR&^tPJxA@2Y1;P5x2Z zWqQ9$rx1wLiU6mTR!s}(zmYycMMb4H=#kVS(biNtmTaXcCa< z%l8$qPM{TY27mIMx0d}IPzU8bfr{SU0!E?kPNYDE8=j!PW))J+gP|L-fk9_Mzx<#vt;T_2TeFroXW2?yE` z{)+`eu{tgdN@A2atlQ}EpC%h%9`WxNj63Oxyw3QX1c4tI`^#>3LZ!>4HKzrJtjYPx znh?BC8=}1$YJVmJO|pAYBhbtg%W}OeQz$V~TY^yuqTu1)3uSFaly4BXT2$Vk=-~0Hh zwc^(yy#DKW(K5#z7F+hUcJeWDg_pUpM!EWCnVhYqL-SQJJVy)Ay5NdDNyJE3kJyBdI?ls3{TH>~- zkEx9OlGn7KG#k7`(nL?bpy=ne)IEw{trYI$;gM5**i zM@pqn7E{WQgZHE3_l0oi2i~2=5U^YCL7!AJbeWM{=f4t6(0b$}?jkSfhGb?*_Quw)dCkq_;{v>R zWrmTG!v0xcMQt<0%}tB+=B5Cc++<@Zf`6EoSy~LQP!lUVWs=%DWz+-buMm0d<%XA0 zOj~Y(o&Xa?*_+MdMI>dq25U2UjE+43K1cmaQfIERl-z0Rp~*G%GdFo*HZXa`$dhnl z3F#C}Ofv;}IGGgi16i$F@dG-$hJM1j)UE-miNcl=J3_C8x0z_hl@1&(m!c(O-Xe`CgaJ?mp1%cSc2XJGUiY{?gd;LJuScTCO@M`6u z?$&|}HCG2_>|H9FJWyIy%wJZTNI=? zz;v&d`|h|{a^-cTtTMtTnWhS+B7bbW)(3V7=!z~`s%c_O2W* zJXug<7S#B4L5(Zdt)Qn|QF!p1=XV@bTRL7I#E;?`wtn|0kD||lanZIy(W+P+$krpo z^qP?;`rVcdJofdl4F`4j;9kaT!{F$!?Txob5Gzp;*Mh2{sBmVjdFmeGFn`L>w8XKP zI^uPE67RO~`vQy4ampI_0qt>Efyp_ZCdwX#A)Um;E< z`vT_ZKuuoDlPdZmNuaB@Nk<1O(1xli!g$!4E|R`0WtO0aeb2QHip+gJr`pm_=~knV zt*mI|5+hWSoLwn5pHdC0R)4i@bIN8F(?zjs{e*!@%b}8S-UqurAGD1?a+TvP1pFD5 z$wijI>#v(xPn1mJS}hq!`HcqnZ4xTpI5DWTJ5qunh2FN=v?*@)>)cRxv*x@9!X$)k z!YH;2Vsmri)yV`d#zL`1qtr1Q%5r0ZN7xI`%%Vmyn zmQZAfvvAD+oX+oG4K&nar30c61;( z4{Xzc?S+(XKI6jmsegYOz{_^j_ahi2=nCr02A?A-jW0*oG&i|Mw-vp{;$&bplFjEg zjC-Ie^<)_x^|7>5P9OKoD+9B|Hj-kqwO}d4Lq%)?mDiwV=e;J{oi|J)Bh;VFx&-MD zTmDo`@>;Ut6gsArMXOXm=BVQMtqaTH?m4lICLM10~!NhB2#aQ{kMGSF2 zsM-a8u(}p7Y8mL-ftbE$XM67-23pqU_guk&ZzIsFL5XEw$u96q#VE4ty0EbU!PM^= zkjopUhuo%I^*V)f`x}e7&#QTKha{{ZpGCrEUPmZy(SJ0JPvp{q4^t&8EwVHT3UmBa zIeQ-3egtQL@~$V0cT;8@>_?jGw6l0BViy;!^9kIn{-yGTh35+T4&%6@pm03V3lWz8 zn5=xYPFXq4F8=ni0yy49RvwS0*?(48)~ZeFL_q8l z&7R-?_jYkxaF=*$=$QR;1-7i z?l?u9m-pe=#osjDa{j<&s)sGg*I>m}tzfSUVH8j9j!Z}ak(L>at-AvzyVjh?xwVwE0 z)Htljo+YH14qOivESADmLV&Ty-lM=hScEE0DC9LCET$Frg&RV`Q%^Q* zS2ki}C((3Jf&K;6SWWYo9aIuOI4l7L1%J#gY{X0)G7^2q8R*79X_r+<0Ronf2BwN4 zCc2M9kxeiJ6;vK(9Lz!nZvuH_Thh*T&qZyp9LCm|~0@W&BbWfWwFHMV4TqeW>W z5I)jv35o|;B<-*h?^IWjtJ>!6th1R4_!hwTPPf<63UF4D?C6tEPfpMGj?Z@tJb$V) zXCIt=_VIx^KK%Uf)ST@d@0}lgeTbk-OWBimKRnz&H>Zd19iAQ@?;oB$XL>gBJC_KC z12Md>LKbcJ5g{s$!qle!EKjwvW^FJnvkRWj%KYcrBf(EjPT=UYAqaHXeyMdR1Eb@j z0*z}Xyn143bS7Y^8F7k4LAhXmiht9*yaG674sGURvcCZk9AMH1pC6(^1al)8KdJ8} zF6&sVg&jV9KrPCWZj@D(IALR~*rchPK!uyUN=I;7c|ma`V8j9~QhYEu(8G``f-KcN zw4noID^JuaYICSd;hC}v8e^J#Y3Zf$eP5MnB+nBy;hh4$Yn2ke5;Iii#_x-RlNlkioPL+l1wfi_Z`1n?`eNBY~hzZ~LH6r+?{CfzX7~F8877 zJ%n8L{6Th#@QZY^TN$XRhJu8D;tfC_9{64p=;3I}hMqc>VO5-AdjgpY1BkbTTm?J;u>$NOs?rHma0%V z#WnQ6P^$Og%aaCyRDU?X&N$<6M@5PxM}_r%Llo-2rpsdzEWk$ydJ(Yq9vl?WwK{&U}J3E0c}C!t+WV3OMA zh@A1}FlP>6C3%3^lwp)3}Ug;hgPv~Fy1?JWnT z)Vu^Pqat^TTP6T%;mLd=+q&N=I9choOyQ=szMGXTbAK0t*0(>t_TJdfuwLZ`yVn*9 zHyu%GPvlrkpC${1T)u=U)1~6UvoNR0y&6toNHKj*5T#>P6RNa9i@OLa^&Y;KrX3%1 zG`qQW@*r06e#JeSH&Bf|j@3?6?Jx*pfnj183Jg<2iwn+J_|Um67?|HxTJNU%5uxy+ zgNuXD0)I%YAtjk1VVf?RY|HflnJZ)*xpnDhJKPmo zPWXlG3#HuXZMkJNAKzG`#m>A@?nl)nAyr!=XMnKIk>~w0r^XoHs@9aQx0*MqLhR+u zp+(m(9?9^CY|vCcI9)8(o&(dQPJW>4lQLMn&3|Y=lUD9Mi44U_fl&15lxHVw3%-{e zEh`D1a+}zNwep_f0@$ZKG^Jg|{{SBZqzco+K4qS%Ky7S94H>1-(w^R@JhH8+b^S58 z98CILu2Lc{oa8{TA$X1!cDC9PK181puO4R{mcie=)bG(;agIIA0;S)-s+a*DnbJ)B z)_;_$@kyL&aEaN1fy%tk--%hPG#(Ss`31$e=`Juf4Xe3HW?~5u;-A+$b>BF99PvGXZ+MYy|^&={6k+D4zIG| zkBDWFUZga%`D~K?Ik^2pRt=*uYHwg;k$*p-X(K$--&5JRFjL#%1KeKMB+29yH+Y&m`|6`woyfEml%-S7wfTvD;P5XKgHD68hN;_oXavAH zUNy4=Jv0qSAJoQ&Qrs<}y&d7YyPnh z7PLym>unR%A|2ZM>?$pQFn?5f{+d!?sV21(ZOQUHHw417FZm?f!U`6I52N0UwO*XEOOAzZhu=GhL}4t#-i@H z7ElpbxBAFIGSnmKAbdk+@1?r%5`_M5#81FxNuG8J%&``>0&dH*_I{b$%3f=@I0loa z34U&FdQB(Xj@t=sAE?M!uHNFccQa@2mo%?@@Mc0I@^D1MW&0zn;IIQsuhGhl$GXDE z8^r?Jg;wxH3-^8?ZhtVvl{FDsJHO7O=fK>mC#0&oPI%BN#Zum<`HHvenR)65Mw2q` zOHs-(LcXwkMru$kXwmd~JzE2ORBUk_pV0qq+q`IefnQYtOn?IY?_N$`!-X1my)Vei zDb)rF0vu#DRP>(7kLz1G_y zHX*yG9x?EFUHTqv(AL`{GHbi14iW5m{VB4G_4WpA^6sfG09iVsYzUV{lq&V8Zs#G6 zW#hPNIPJ)>{eR*zD0Y>McHCOcQs-j|q+SNkZaiNOOMp2aN76paVA)j_E{7*Uor@`( zp)Q3g)mT5S1a<+kU?IB{s!)FYhyqZJraAJD9Of9!bqI)u#qKp89#Up4;qVYpEE-5UyP@!kkPYtw|Q z)V;__hrCKZFtjls|6){W)Y<)owd@6j6{4*p^ zrt}i>x{OmH3^D2CXuDx9l?vL67UZD+KVgPb06dpAVmEG?+c7`M{^ z4d~%_yB+EeGpradnPHolrqtc zCwnO1JH&tY%`Iza>>(9t3{uasq(mZ#0*BkzqtDJ9cuA=@zy_DPd;YZ>_S7A^#M=^rse>B+}my?=7-+mfV6YhqP2xeVG$XY9|jouUI8`g})wGa1dkpNt!FPu-E1 z?{pbYMXx8t4QLauTZMo5I3mRiRr)J=i5x#}+h>V8^(BW$Ttp8ii$Fe%gCxSV!gKC@ zl&_$mPocx0chP?{ph*x_aS zgT?PdiG^KxwI67;d+1NtxpuvIv5MXdJN8;XRHRS0XX{Ya=GpbfJy^Q-3Vd zueV8;GY}8Yy+!s9Wgub0=kjCg+ZHU7cTvm$gR`Heux{1p#)}B{;#ANtVxPQX&TZ_# z!aS*k{X_a%5sychNr`}NaM4aTJ>K5^IQV_y5q;jJYX zPm9Usc}8wd+{%jB=E2XuBUg9h^Dv6iI9MR|1POhftkW?^-**X-mRSxiN1=ztuRW1M z40{RkQ27;T)&8p?@H|i!vU&~vp@PMGeZk&#_+{?q%jQ<~1FG>d-0EsmlCoYN z@8{d}zBv!Uw{}5SZFb`o+YkPW+M2(&Rmar%bQw80;xJ z%wHC+3tCqdHR~Br$8#HEP0Xbeo8}BkT(VGbS0F$p{MTGk+*LKS@qho*lcVGFN1q?= zKh#c*+I2=4xyeOC>P>FgV7*VZ#F(5nDBh|nFNUKP`5RSE1B*brk_uxtQRpU}#+(QZ zl6>%aZpHDc#3AQ?LK_cXf4Sbu-uU}b=0Az?=?M2SF2?&!zPXM0HhL>pplJa>@&C+A z4nBt=(!iiB*V(K?e}9P)@!@uoCw1YHpgqG$*>iyU0K)a!T8{PWAZ7~0%z-HLaTgFy z!nSENIjjaAcE8OyfyBOTeJ$>r?rAuLuE2OWu(i@X4TpxR-1{}ZhW)p3e+8sVV$l4X z)hFY(;`qXz^7x`o>+v;kjRv-`QdY{`u3^*}^Z&TJ$8o3Z{(ltrIt)N%ARL{-yNo-A z94-!8R|RpomEJ4S)H`>5RW9bQGGpuBN?tQu>s@-hhSktrsdeV5*0B;VSmhDKy7^rrwgEo;}oKePS7SnEQ={QS=MIYisZ}bevr&UA=bT!9#^kNWA-@It?9GG7l zbKq?t5z=TV43g&rVGU=qr^}DRdp@0Ij8;CMt#cczb${YGpxNuG70#Bbj4Af9g<_y8 zMJas)#o&L2UtI+2nZVs3(y9I$^j^-FJ8=1_oiH;l|C}>sOLKq7?1gz1y0=YH9bmVv z6{%)prjJkb;qK)@XSHZcro6*YVQpdEF58i}py=XF1B0Q88c;A`5Z>Y)#B%Wbn#Zf$ zV5LK;`hT_3+Ko1}HU*UHD{*?$F|8)h9~-1;h~5f^&T3T$cFHO=R16N9BL}?d{24yv z{#hUH>Wk<2!EW?KHyj5Y?o72CDFzl2QS~`vB8Eo;dZ?|*dD+kQsO8jrp?>Ncr7m4Z5Nz~5HT zy51LCFqk&y9Bci?KP1fpuzug+D-ve-ql>^3n7Gt)o)>*%0?{Wwbk4~*)ll)E+U_{G z)BJp){dU8{TRdRq-fe_*A*OKab!(#gyx@qvJMkF}!S#3!Y&#u|9@J2XLu^cC+(0Py zzke-J^)?tAEK$DV;xXbkZ|&E6YG5pulcmlL(B6~6a0Csx(n*wS;hAQ1xzS}Ep2VrF zj;ms8*+0V*+J zplzFGB^KI(v&;NMHj1}OwWmL4Mf$x{qjG+cj>LcQwAu<0j6wVSCK%NwIOS9pSxdh< z&2dyRGRaBia)pgB(%()ICbEnCVTk%DcDA(3L^%2y+e(qZ*vAL=B()>OrN^0c)nR3pF z2PA)ziG9hRp@Bb}>4kIX*rY{~&OihLo6Lv>zn%y+bZu`R{ z2&Xz6&Z|KgKfN;H_N=7@BcVFn+9fVDf-m#7Lin9$pXo4V*I_Q0xp9hKjcGvb_E#KC zep3lY@agn8EBNUP2i)}sUqH-?sT4i@8jpXoVI!E1mWR8U=PQ750i#as5sCJeq?KAH zw4tq)pe_(t0}3+BtQSI1!CD~RNYex+M=KM3<;h)T#Va-`RPvR9dA<&eO;L2kZ}M-c zZZwDWt3aTnc*$8vL|Rce>U``%pm!II54nhdw=_^-`I^A03j#RgoYTz>yh`+b&uPY;(-wB0CRLB}6I zz>nwaqtHa*{DjtG`r2xc&!-@tf1ys zk(#qe&6%`JBi&Jj?9YTm7ZZc=vN3-|J36x9NbsY4Ok?RaQ`&Mk4KU;V)h4eNscgcn zsO22=FzgLp(RxHS9VuQCbovoU(BrUoF-TtpkXo(Nz8qNCahp&T6NyD8=bt(LgvMW4 zsI*o!063dWi(!TjP77EZA>qk$$C&PwcFa{(-IO~oz4Xg3za-hP%#z|JPqKfD=}R9> zuCp6B^(bHZrMP_QG%EqX@am;A4Cwvncv3;e%^3A(a#dZAmedS?p~Zp4>+bKuSfq|& z9a%RyDYBnU{npy+Yws`-v$+~;5UMj*iBRb-dIZZ22wp>ZU`A7+U@@;#*eU}54J+dC zc*khFhu?R(qy`r&**7W4z59PhTVA{!1;e^4#N!EWgS1sfv>-M7QWW&O8ZWlB>Cx}2 z$Y+YZ<4GmoYQQU-pIR09EnHw(AVyLGvz`+IHNjvPLgkSo>Fa(}XGhekkLy}TX!yo1 zx;DaI99chMkMj!ecZWaDPn!!%ahH1d=bdnw#&bXFLh;h(pc1hCBjW{klshQX`_zzhID4GVxV zm;nY$0T;}AY15(xQ977u{Wa%Yz)jWFb|rSlBd_4<48I9&N|SDOGHQ#_qP$9PvN;?1d3*Tg zxtCz5^d}{`w^dRI)$Vy({&+f>qVL#c46NoIzDa9~uhOvSV2Q(*xo#}?KR!ATnaK;mLJUW)L|6!Iqnw9V7$YWRh<~$}E4(N3dF{ zTt$?wM~}FLM~^^>!WV}Ke)NdDiaSgOGOXcod~(k4tl1^uGr**o&xa9}m1SDwqZtPr zkTD&n8!a7u2nJ57CV>3-Vw9aW+~QK40WK->HDsPrWc$5*I62{dJUHcDBqs+4~<|0hRhXGh)@7HtS7=rZ25N;@Udp#V)9U65}zVG`Uo^x4nN~faNL$nl8lis)eW(mKefHAYArX zWC=GgMM|y*ffP6F_O>(>XxJA)o}t<-@{C8C?Sn9Znr1h)dJq-r8#Q!IaP}xFHx{9a z6Z0eO{&-lsUT{;`59-B+?Z!rIv?c)!YzK%rf^MuX$Sbc{h{`r@N|s&tVB|Ccd2|8o z#X)~|2ud3t6BY83!vIz-sEJuJjs_gD@E58NGkULGQwIs=UBWJO9@jl5sTL16?1G!^ zHAjD%!cKie!xa)?2&7|Aekb2bU&5fasyjhJx$X6L4E``_vzl1VKXN0$5sAem4R{!D zG|IA`Hn%u`LllyPConiz#Jcbet2rm_Kx??kG?)c(50vH z$-5sO?w^~}!}ktP50Cc`&z>{AYdFrWF*q0`Bm(^;^p(d-X1=$)tq7O>9>FE+-GN(s zKr&}rhcYL}@1E?P9-JK=9NLrz$IxxMLBNlX58uP0uh7To(fc3Z*EW5O+nI1Q}f$7{o&OjPS8pXD9r!|s%UZmp^C($tLT@cwz+|OTuOS^jZ zqffH&w4}>S`otBee15`{9VHm{oFlI+NTNy+sZf$wgwz0uN1tMmZ8s%%q|o~Vg2k)4 z&CO0L{v-xmQ^=fyAh0UEAdm2mtvY{rj0M8^g%w|FCqGm{6kl{gWf*j0J5d+9DU#RD z!Db()Kz;$t6?q!By8z#nU1OI9XZs%<9(?xk;c2pWaba_N=7rNK{7Q{T!+9~8+>|gR zw_bl?U|u+Zi8y6<7WgUUDk>*@9P&7FW{A)yF~TBf@V`$?nOD3T!uSh6V+VhDEi!S< zB-jcg^@8bhk1V!3fcX29bks8k+0AG&JKKAmk;OzV8 z&$l-}I62>9sEz=yK=V7kyZGL9W#FfKpM2VY{&0QJL)5p|2RwrMs{wS`;nv~xd{i+p z~Megu=GPFRn?!+)>C0O8`Sk%Rw<`XZsj!;cafGJmskuB zmUj4gl!gj*@2LJ59?z$;uG^!~e$L5^c+DS}RP;`TifIVtF#2%*GisetIr(3YcGaT~ z{%vaX!E##k!3xTvs}fxWc4r;B3h=HfbQRcl(4Y>U48%cm+}ufJE~9@if185^p8Exr zkVdXRuUR21p4ipn8K{xrmA^!zpo{mWnwvyFwFe{)-zB^h!ycfmzVc`k%srf*sEJWN zTz-^1x-u{Hw;R?MpyH?qW$s^P!ynIvR~c@J3Mg4jrWN{OPfDBko~1~S0Y8dV8`!%t zgAa%D>#V?s#pgNB-*|s(KQOP^ZnZb-l_;H(Fa_r~xM8P4$__YsJK%P;1tDYEpKlB( znpj-Yr8u9#6QADo|5MHg?@+_xnFWGVn zxuj$hprGToGY{Ldv-W1an-mU#xVx-99*@W4vB!^@8ZKZ3jt%;lrm9W`wXI>bEzkdJ z0cBRG2N8L+%CdjN;a*R!RQL$gJqjr$KZnCmF?GYDwqOsh85KoxMLRA>pI<(Hg?4mV zx>`zArF6fFF4-(?N~WZ!^s~=VsX{Z>YKb-smTRL$wkm&Ohg_7|LnlOW_D*u?;GeAv zb9k0Y_;pr`cei4ycwIpa&`Skzfn$FTOZ#z^n3QH7m-kIHrP`pBZeN!){d%^__X|2u zp=C^@f~s6jRd@m|8W&$6zy;+8p1kR%R+qJ7#V=vlGr?+~SBC?~2>f0}MN;)DeIEuFT)A(nAkH1@cUy4<074rrV&# z!>#ry53OeViTg?NqV=iH9C(wtzuvE(-v=Q+h=LAFc4EcSuSqUqiYPMaf%S+&q9{We%9sKL2XO_o82d2}0-^ zPY3dWG@|s}ra7Rf62C{6YoP-qs&h{jJ?K?&v5z{ek+=qx(Z6-|sA^O_T#BpU--3S~ zMTpZ_fbb(MKB8~-_sw2HrSnQE39w4HJ1qd!*{+pUfU`C2sfP>|DuAd2TH%sb_7pc zIiYoYk{kwT*LCV5Sf5`AQ&lmmF9d%~GD$h`2Wb$=p&Ng{CBJ2K_l0kX6pI;O`>CpC zT;xbmb9;C_Gfy^v>n^~lc;{h@#gJtbY|___AsIxst=tB_Hz5^CM?G5qNOb6)3d;9o z28MLH%F5f%Lz`F(sm7~HuRb2CqJn*MFG`8wkCZFS4s~W1lI-?tYpKNEd%}NQGd)Ye zfSH3U9uDIsuj#yE=#&jwp+{P2fnFqQJSTUMQ#4! zzu{lL5eT^KT}pe+74pK`v!&{+(VN|rrbZUhhY@pas zkZqhvMb%0M@FmVK%H`?F=>dP+i1M6`Rmk{6ze?gpK&7m2Os~f69(bsOt4Y;1eal^S zDB;)3Plgql4)AIZvXc|E51!db+zN%T$uBHBPQns-jv?&n!W**@73PRmYh8Gv7seXj z7Cgb?b#DA=TM1YZzop5Q$o0A=W*{I@ryfiyJpzqrvoa4bN^tCn>XLs%SW@W}Z(*tD zOa$>xYB4cL(MuA|LW)y{?GZ_4Il^XzCOI4);rvbnX~7w>t1%z4lX} z`Ua5Bv-(yK_tCHEY@M#M;C|}LoYBROcD0YHF$A|!<*ZQnS~D;msCNQUn0EumczF5X z_~`uO)8~A9UF~g4)A)Zp!cO2RlF5%7)RPm1F6RT%x!i052(#(`;EU14#nH!bRezeJ zx_h#wMizI)DtiVPV|UoFEmWyyhKzm6{GyOkD7I`lown5YXUWba@-Li$X?A_U(qTyG zg3lKz+*u#biOc2T{gPBCH4lgUdq{uFG5`nC0WC$!`IyT2-%x*W4ZOdgF>pG;{4noT z)>}!!s!0gJhC2ew?0{A9>aM2>s&g5K15Vf98=w)tf0oY{KoN87VwJAe1uP8Tc~b(6 z$|@r1!%LEJvR?iOJeu8=jGbR|+C$8Xp>-j~edRhAK4$W|1uda(7R%W*!Q&1iBZ#Ts z%Mgp38~4!0A2EMJzA|AN1>JkLe0E75k5FRl2fP~gu2{Idw;y|cR-eH*v6Uv%C2Y1V zoe{?M2KMGq)^Pw8$*<`$U#!*pASx>N*?y$SSDgaFPtdAAKJ}P_IADY|kDkC`Arqj_ z>iGtq8MBtgP!K&^{AA6y&Mca#`$lyHYGo?dDr_0l4eNgybaH0dg2zVnBp!pl{c*9p zvvo}DH_u|OGy2qyd^OAVHjzBW>vf>UExO!(3&}v*>bH!Z16dlWwy+}OdlY&yFe((( z%BGf$PaF|b7%I4RyR5W|kPDwkKRc2GLN8<3{1{ZbYEb3tpvoCZIMESRx4`KFu9j~c z;Hb94lNEoJXx)GnAj;M&jn_0sUw(DXOekM2dfkG+)jM65UeKD{)49fQeSG@G7e`;7 z1TiJ2^VbJ{3kG4mV{c6jc%Fa0k&K(0MmmHHfbK*GALTG1+G4lN*Ba5CbVwI@WAl(q zOz9ynKj~RQWa1)BB5QvM4r7sPYKkid`&d;drgwh`lupSTV21W5ZnwMS$U=ApE;+1T ziHj_3hY;4QQwV{uNXC-a_K0evEZnhpv$PA;0YN1NF{sTYqZmB8BfptCq!AcODAi}5AgT0465`KXf%WGLKrga|3JX%Js>c^Mjr^; z`++zE;P&mt832>P&#{@e27UdT|9|m~Ka=(^zVSEgYW1X_iEe(NTz^|Q$UU`|paot~iH_th}LGXb(XGXrz+)dTuxMO%tG^Md~U;Oh`%AbPOL0E!79TmEe}kYe|+f)1j!Q55YcLJXBwba zcfp050N1bFEJW?nO`*{atSWAuY&UdS%Izn5G3Pgw?~sen+2xuRUv`ZJ`pI0j8uPs(wp5`MfJt$DKIi1FHh4Vxe?{5P|^m&a+$$NJ-c0I z(KXs_f%=fnD_09TEC+~nUOWXQN;BXIZM@W35lrR7HB=_(Ba-BT`W zK=rPich_0AlDL9~HW+cVWQ78^`3f}uAK4VvQHuc#b>K^i4=M-V_~n1H>~`Hv^ZYL^ zRgC0O^{CPT30<7zYe*}Pr)g1^-j6MUa;JZ>SY|RP-Sm=9LH9IHdISJla7Gbx=O$D1 zUbwhL!UoB+4fuzNXAW6T#Mwjp0nH=kkV}uYhY&s-;|p>mvX|Xs#H{i&JKIw>e+Z>c z&QHG>nb&iWKLyp0A(nq|flo%CkI#*OlUeO}=?*EaFZ20RbBOioLTXy!*G{D0vIi2nGn!T$ zAtu}_7d=wgvSz!v+=J4;GHN`#I!JqdQ!4D+){@t3T)*;iqXTWr6KgI%OXqYcNWT+V z+*rHE9VsNr7_Wa?<0q!%1HvD+#~)!nLsrHH4O=BE> zsD(4#G`=t&?C0Hn@qGx%gr0|`sC=J&e)Qew{NhuHc{MtzB$gJirx>j1mcj|}4IJF& z=zG~dlkG_9^Ixj~TE%xrrQU~gy6-d?b zKF@++9m^ViaT8#w+&6pp@W~c7;Wd>%|GMiS9t6cdUSeycnHtudv-giumDUqomL-m`; z=xIK~WtD%!EVCjT3w{pw$8YKEXU*>-TMgVpdoc_$UhtNfh>-FQACpqzo;5(FYB54R zBGRRcMLoNdc1SfsS$QzAb?7=C_I^e{B+Bb^yaK8{1h_^(8S=#sWKd9|B2>+AQw=l_ z8mgd?y+s{-(Q;!Yyr0Dvp0};&(*=&>jn(}`AX|UeN0$PcI*2skHeFPD+aAHgHWk__ z#J8PrDrz>KU`!Lnki|q9zR5)M7bi1-*huQs2s6b@a*qftY(lEsxI^Xyl4O;_j4OEc z5X=~#NHYD+Q<^05QGg`yEGOS)&XNQ@vq>^{ion^mP$}ih^jD4sVw1??qLq# z9bJO=!}EjF`J;TfdTJdlj?njxNgK$Ou28v?ES;)ioOHT8UZzD;VSVlu9C6)RJC5NRJ{S$=Na4@@^I-~!KLF2UfZn}Cq?}|Ka+L#5x>L> zLXfHsXYpxiFpDV+W*Iw>^TLh=^|pTt4+bnVHL--nM|9%|);7I85)MDRG%L$Bk3aPu z&40B>Al~j3r5e+n`;6wZD+~Ns+AE-@(c;RosnvYkuQKya>5TDNA|OzIyGpyk7*nZ&a7Wrd7*a$t`>p>2i{px@F-h9Kj!m`3! zABsC{F?Ns?Q%(ztiXkgvLf^GgLS_1bFc8pHi3soCTrs>B5P|mPqmcpIONVNSFB?Af zS~BVY4w-Bb3$8&)MUv=6YaOo8gvkb~<_eo%JDM&TnHW3+gTBHeNmM*>PPPCO(aOF9 zXjcau7lyGuSB8Mu(Yt>VfX7Cf!seKiRC|Gy^75tTUp4y*f14&>#@2oAHB9ct+GBF5 z!h|05T5}Sn?eG$0Oebio+=L8b!IkZ7*?N+zspi&G_WLc}xg33abbR^wck=j*V}Y-i z8F^KaPrbE8$3=8&vPj;>3r4wlVQ`aYv#Hw;AFRMurjMWJ-JoY$EPRx1TLU`mfiIUQjI!&cMhXfO)_+2#iz|`{T}W>UAgZ1_##+YyCO1z zWc6j+Vwaz83Z0iiCITj4vVB*wSedsad>EMiOkwz+;Q_2^y5<>`M%YmLkgJlw2(>^V zx?8lp?5NnwZiUHwRS~sAVtguBaoF@$xX=tCIR}4i4>USD$8L=bS-mYDHRH)gI~;0m zc3-Wr$Yfobr>z9Z_`P}{zu(}?6@;$W02WV5X$zzYr+D<=UG-%SHdb%CY=^ZQj4_pC zH|?};+wT#KrxDO2K(}jf4ZiJo-@xJ(cb1`{VtiXxPc5Tn908OGC!pquOgiL^oEK^e zP&$7TQ!|sTs2y;9geV8Y>lN>E7BaUq_FroH!s@y zf%L;e>;AomSD$Jic>kv-{=fpns>^#J*;dHAA*t(wuGqr8u?42aTse ze(8r0t<-Cy0x@ed9V1qditmT8S*3=THmrZb3-{!(*+eQgo|0?L{}^nle}f3EKtYX1%a!FVQ$iwVZC(P6)^(kV3LQQ*%J2=-I`Y zqF{+R-DGH)s^zB+Z5Y1F+Gc3+9O8P#Zui~)AXArso5vb~hejD?)DAMrrQsD>Zug_h zMs@)N?svlolX2rpY#u5OOrA^!LaKkkA77f?Jz6f%6C!;9*5?r#aLLR4(&H)tgM747dt9Vh?=c+f2KjEI`AmskiPEs{ z+i)|zQ86%Zon|n(S~av&3GIc_tkIjL(g23!(qz?&q{%0tj4sRaD22bw)~jVYi!T4= z=&Q@~qtACP(xyU0AzzU~?c{$o#<>X>3QMa6@0E!Vd6j}2Z=J`>mW{`S>eqgKLjD-p zyMlR9$EW8mLJym4ycJ$#u}8&J%L96uhA{jcl413jug`Fm)pCKsl7>S! zPGUN#(!tzGSo;ku!FX6qR^_b>z8TTC4lsxY1jca=4m@FHGTpnc4y_Q|p;J|lhU{<+ zdhl`87;kHcSIlQYAGUv^JMV@hQ^x=o;WV4{|OkDG+~oaDcZ4wXk7w)oYl9 zL|b5Rt$gm}hV$*6ls9D+#r=R6v-p>+p0G-_!zg!-EvziZy@ptr0qD@%bn>&Iw^YPZ z!~bH4AY!8I2Xgvr5IX2hJg>9?gajtRS%lj;yu&-;eG}npPoPM=wLLGF@;CyiGBTkY zGYfD7ZBhaIl*ftask&H(XC5=PpYy&d{J_M*QQmi@V$o74=Gq(Jv`#n zyTA&>twcqOP%iS7StiQE`j4lAqA6@iO7@Fsmg02Jq$hK9{J+Zi)dEnzxb;waGOy59 zGy9%Ig?g6gldhHSu)VOvd#m7R;pD5&N9Uy|a}HpD?q7eBH-~S&`Ih{X>@{!lc2t+7 z1|L2oHS>_Yx>b}WrM-A65vlSNqQXYk6ZsnO1pQAZDHRgxJL*rIC*ySJa5$`2pPbr3 zDa(QxQH7*pw=zL*!74(*i7%d15LvCof=X>I7i9KHKkiHnq|=E`>h=571xKHczaBxq z^P;2L@tl83PK;ip?q{-E_PlOS*Yy-HaqqR`&BFV>=KubWuxXr3s0B>X3&!?>Mm^lh|_gz$@TEe1Mtz3}yg5d}Ltbd?5b-uCjq zM@;uB2}~*JiHKN7^$%-`z9OgmGz&Zx-ioI}mn?t26Zsj*BlM-07=xl1PM`3FXp#wy z$J?8yEgam;zn-d%dAufVPbl41KbeYhUA3>UpvCa|GMm1h0DeE`37kf}PEl;hVPD@? zxktIQvGckz3fK*axd4gK^U_so2h{36DaGywVIul9F$_L=WOFsguB0haznq%cW()z< zHJ5*&RzMwdi$WjLBOttHAJ7lY^Z>Fl%Wb91K!DlIz=+md8DgMWB0liX41_4lZt=CS zs|Vz=3+AiWvEN?D8Z4$EDh_mqeX&|nXCMTJp#lu6S(ZG>R}_VU>e$bIM@N}B4DW{B zNTB@Jx$~$-N+`b&zqlB|ur_h5^3`_rT)lt(yKeCBTcW!obZ>5nhJd#DBd?*p)t*>D!S!42oJC)=7_>y_5ZQ}J}Mo=tISf!RtMN_n%s`Rxj&bKyX)kD~t|gye(d&AmNt zwH-#U7xsMZ)iTZPq;g_7QJrQhg2aFI(EBWX*Ik4tK(&%4pQRd+|8!NBG{n6?W^i1{ zkN~7VrulrI-lDVC`4v>=lv@*~tKKI=9ekq69&7;AS17KOPEy)@@9_pSzL#l>37p#k zCY#!f$cO@Hpb9OV&IoGDE48U67U+fO{*?tx2+fwV7e@Lb4QHg$r|<>UxJZAjCbat` zQ^gc9>tP`&&~>Fy#?g7HqKeNe#t~Bx=Sw=THp1^wMXR}Wv_z?XZn~BRI$QAs^ zU!*Nv&sInqH^ov21d_ntz$cv0THaYq*))g)&jEud_<#*$ak2pMs0M$y!51EjrM)S{ zRf#tY?1IL~hSdN#7Ym@|=j^U3AL+6xR70r!IgZI{`Z7=rB` zY-;c@>0e|REEM>@SEqlD-Y%;nI=S)mk>qz(Ns&Rl!i1m<@upLe@hbtE`zrx2CfO3z zu#WyEcVu0Pjf5d7I4PAAE-(T#V5PpZcx_Y+Uf!8OXgG+Y&=HOE0r~91YE6G0#EKrm z=`fXomj_N+poCLHIHI@0Q|16P$A>$R03*RFsBN}sZ#xCUBRYQ}$bPX$16ax)B(ZH& zZRMjvtCZ8J_0z-3V#<*VL$WcncUsLW3sOQJ5Yw#TFt9GPlA@1EBYv#)*g ztg$xK6_Js1L9LsVU7q;R6DqIMNZZCQ7sT5kzEZSX=4((Z}QQ@F|r#AimZ7E4|E zz((xjTDdq@zymfyNJz;-)9Bx#M1utB-z2Iu+V#SstipdNLjN5MO^$g8Q=w1<=bdwq zWv|IxO*x)3iGIJJjw>?w;Ym#Mn(Uq$7Kk1EPT9!7Gx&S5G1?g!LWpN$a7?{>GcowN z!`*FnqvIVmI=B(r*c_h8Ay|VJ2j@i?90;cEjWBW1%#jC8Uwx|tX}bY%W=G;CpDVDSk1 zf?BFxsI|5(5JiM>5m%F#77bNh-raVtWo@-dV|!2!ZPOeqAJZDPU1IC`hb$MYx{cwY z8rFZpY^fFhf7}ScO2r0=?T#i3H@!YAy95*uGN` zcWar$LLGaiwoxE(yKW8i;{7zkKV5paZ1{iCweJ_h^dnOKCF74S*l%h6y^H3bYsftq zfP^<_0=nE7BTxW6Gf=WahTyxtAxOa56r`kX#vm1KYYv*`SchE7B=o_UZi4J=780tU zVaQprrlBFJG%~?Bl$?LkJfs-$YK1IxY-1u4f*2!_0Y#{Zp!S9$p@}gSrjVn+c?A#*ETjE+tl_CnUGX{HzSgYwlO0khRHu@N^-SgOt$HqCWG=_ zFenAVy_%F%L%dN*;JY^~3GEANSTb!JWw`uMFvh$jIdBGMvqbB&gZIiyNaM2mzSfZK z7Lh_scomr%mw#>@J-h3$rer42dQX4qR13c5nL4n>6I{VXo@7U?@&r;Z^THJ=CH$Vh z&NI+_MX+2xW=Z0=+v01v)U$08zl3VB=L0hJ2Da;R&maq}_iSF|g3ppw8c4L_ldS5D z5y#%0uK5flTP*qvhKN<4ffO+}!!vT-*LBHYs_nF9FlAdT8eE%%(Y4a>u9AO-*jcyZ z#A|Aao_P)Y&Zl0BH$3-R{{2gHuOY5M7z z3u&PzcJT4sR_xC>rRiqCvoe47OG=#?-rq@O)E9$f;>@`L8!q&d_iRAj5+j|Qvz5Vm zS$mBjQo>HjHBZ(BM2R-z&Rlp`t&uRM{PyJJ5r2||+ig=Q0hDCRjE3eyLMFI~2@)yQ z60f6*BVaXZxzu&&h#{9?d*Y)(XV~Di<*>%%`BP9-_TE2&iq|n@4j_N0@&?ZO8H*}fHzfumT#}a@ep<2FJ=I4vbkezcmt%xWg}AqAD7cMs zU~ziMXS`CaVH*w55aUQUOkr@s zGSj|s8)*4I-HH7BEoXwYVAnU=M&6Yc@9YUtY^&gn?UQVoXf=Oyk=a$-GW%r>O8U+@ z07`Q8?v0c>5ylU|2*luA+ytJJsi$OuJ}<(r&qB1KUi3*d46tv{gkXFb$IrExT6SpZ zw?&i2=!(jNww9U#pH5X@PW3gf2f8_X^;3f`S2If}Y#V)>vAl(s=xh~;O(X9s8^tP` zH`gUop&Z4;R~vuT=p`~|Yga|2jK{@zKAEkj8JF!_9P;$q4?88p`k-ek4SW8t*K6Sr zQrGO7dVFzqbO}yM&kw9?eQt?zw?Ck?WG`5b9mT6+%6EK2VSa>P6j|AQ^|a7yh`3ldVynB?(c6Kk7s|sW8BL9 z{Wg&+_xD@IuH4^m6}?ixRRj!XAo2N12SULj-Qs^y)hN8a74M)ZXvuQ-8=$ z`GJ3{X%7=1w`;_q7}Gf}7{}l2U2SjUL=gTfrhG{u1So|>&N5Wjn|HyCJ+!b-kF_U?>uYo%QIfem~_g}2aQj?VQ7R#W~ar# z?W=#e8#k&Ff!pA~uJz!uW~fMGtmH$Cydyq3J#!%HygG?B)8i=PY6_?kzy%IQ76(;wa;JAP`- z13kHZr?r+ntHM-RZxtVdbLua`r*{36^vZv*f9St%k8kQ3yj-c>0&glX)&TdM+SSZF zcLBX-qSOwcCSyAEIAz^oRRsV->$(XHa~xph4E1@66_wHT=hvIAJJx;L{5fqYyEObd zTfVxZ`(CNn_9GrqRSe29eZ;(fzz}5K`9h)FE9yX>=tysd>mQrbCMk!QJnZqHLfgXlFFI4>poTy8K3+2Gmi9gU$P z73b=vYY)b#9Fx*w^~yf_?F*S-)6oMm$U^lok41zg$7D!xc32=rV(Sp}r(TQn$y0O6_S&U4f)L=7fznN;-c-ifmbVXY6olqce8)4I|7~?*=8cXYF)_5<9`D zdx(H9aYY~YrG}$s4PaL4r)YWBaIO2}24C;Y25~*F(3t#iNW_PRCJO?kx zm_<=cq2m@3G!V6ceJ~)rPx4>yUNKS7jJ8&0h5xvAb|RH1_$_Cd`~aU-SloZ|B*n*- z1C7Ad9;jRPSzRdG_&F6qk5nvXC%wWB+pXtSQQqOqD3*m%kYHL!g<&cb3a6QsHg;qZ&Po{~eUV(uCRA#1 zvVnxPDak{r#Hab~I8-XqsM&ue=F;Eq8ajnvd7~?|rB$fR^Sj⪼;(;^VxTo7iV8v z#fQLsq9Xhqe3QU8HnKYRBf}^*$Gm-m!tkwqU-`?=zW(a`+h>=bT{w0A2Ht$)tCD-Z zdBVZ*g)V)i-`9NpGE}drjJV+L1k;fL+l8s5iihPW9+~OS4y7OnvvNk?ze7ivPREw)G z3rC5J?z6=5z&o>XJ$2s?wgssQ23o7~&Er9(H1%3gqBAb@G#e1i{Cs>q1;3|{GCplX zD^SJ%t|UE_7$k+rEJJ@OHN0>F)xoO=dwWW4C@sVrQlT3b$EqoN)W^ZESGRIB7yqWn z#Atv1hJCmkX#uZ88g@M7ao)+k<>szlsx58@hj2s=3mX>7w>7( zvLun!`UkA;>qT{xH%kDKnFPJjB(*xe1HM^2fJNn1N%naAR#|`3_Mz&LQY9YFdsUfV zcs)rIJX@?*(_d#8CPRTjnP?O;MLw%$2xo{#4e2YIW)sECV~uRhL>OnEfq zq!Q_`E%0a*dF#bHR3%DKv397*^=7GPkD!8e#jpYn8|9|Q33RHM>>uQgRQ8@0F{b^4JyD!SRoEJsKmggjo{J;n;S11tQEfjHROyz z4GJ&LaYSBWY8}vOA6s^ij8SwLX^=C}3>$J~PPdsa{+NHetw^)bn*Fg@&L)jfCYAv* zYrZ(?O7vEd;#y3rON==(hr*szm&t}y`Axs7Ug*5e3JI!_k z{XrH~tP*?Ej7Ojs)E*|8Y>L=>K?6h8!89i>{HiOArlV6d&9mzFsj>HazFduW7NurZ z+8lqT9lN*759~JjjBfp-ySGhADX4nzOYNp4YvB%By#GrdIgW2gA{NlGQrIs1?3`4u~ z^G?7&^1Mb>L^HSwEWb-?Mcb)+DXXc#!cu>_+3*gxM<^o3XA5d_q)%V-BMS{Jt!)3{ zaXMzN$1EK>W%Eu+hie@=q;yDXi~mz+ocDJ8z@aBL?}_H?|A%f!-Ox0|uJu83Y+^s$ zfN;yr(4KM2m3b^WW%~{j?=mFyJ53AP?a4-j$}VZQ%>dIE?{*K6lEl1Cg-QeN?Ph;a zX~w-xd{veov`-g{Rn7^G-!&e?7Pi#uL<_)7K&rKqN#K`TwXEMrui7b;j3qp#*KB-i zf{7~7+X(l+sZpp9R~5COFToU|!Ljuuc$&d2bY8%!*6gADQcE{OJ-31O>1n+3`W+c+ zYH?ch+cR0n&3+nJ8L1&Mfq*qDpG{8npSpa|U`;zYPX zYti9_h>+(HEC3t8kv8J{&>9&yYihPuq~gUTw}w!QfXWcI*3s&FX^e#M37mu9vaJv` zBiDZT1SEdw1Z3f`3CIyKBPl9e0@0FwS;vT{VG)gHp@q?Gk+(jW#%X^Ix%qS`jY!)@ z(inUCEKW-B;%K7&r=s6viP+l^1Toi(apip^MdN3p7=XAYdPXBbCx&BZtizS6@;L;l zfiq5bL_ZpZ&6GoCOlEz|g`|+ZhJD>tLwOEBK(LHS^S+$y@GFnK!j^I$rTXVvu&NG| zVa2p485&gd86-pZwcURhnRU;~LxfD95i*3O?FGn?KOZ$dCIx7R=$Q7=F*Oe?JCWf8 zzV|TDtPHU+a-AF@vkqo5IS0aEzjcJtYx9EsZ$QDC-2kG`cq#J67Q>|yKye6`>LOSw_*8!hhf1-ik4PzUYWqMb zs#QvyR05lNc##$PR-~$Xqz~L}URs z_7fjP_)QOwg7zs_Qw2w9wT7`#lqESd$|(<13^s-7-UUYO05rP_ifZpz%^j0!B~!=1 zHKc6br#($tdO&{^X>TJQip!bK)eYAY#q?)98^7d*)kO~2wMZzcUvr8#Y^u_A|GvBtCMEeN|y`Hkykrj=Q(pO-`&SQThDXbz5CHoQpPC&80R8hl8 zcuGGTzES*83XhkAG`C|d2^+>vkcmePo1hBpW5h(D-ujIvDh=W!lsDBSRZkK+2#g>z zj}{Z*TJ1@`x*8mhuB>e5VLZmwW-Zg|tks++v zHa3KD?Z<_{uooHPiTa5QkrEQm;}B(uEkONzf;mL%LJYV~QuyU;DwSbwo6Ok<#k@%I z8Rn3MgA5=I^UI+DdO6a3b~$8bT%#57k}c8`A_|~4l-5#F1%*cIxB@tyP}kD+QiV4~ zYAyGQfl?8F)kuRF60|rTZLl5>O38~jh@nD>5p@v2hN?w!s0p{9NG0cY3o2QH0l zCOm@m!vNJ$p4EUsB!Z-m!cM0;x&<%TRZf<4KPJJd>!<`#PK-<77hA8934E7Zj!jTy z`fYxQPv|v1fibnk2nF`(Na4kuF#wxH+w-T+8h^s@yLMk+R zj9FlhY%^*h5gdoeg)Sl&qR*Ld^nwU`iCIAoWH1zG_u6^L@1iDQxKj+o^#A)PcjnN=Mx?760D^Qo`;j@smg(uj5 z*IrRwu&(>%UF#Z$aH%ymf~B0vy zSCitOojp-Bcj#%Rdo%XBb6=dkK9)k(@Ym%@>>9vZfkz?U2BarVp{6^1aMQ6J^gOR; zr%S8Zda9hKW&1uw9kM<->b8hPlDgHV#iViteWo&G>sacxZ4xNT)>tA(*|i&r08?F; zs#hH#4APS!j+51)0%|f6ePS|ygfu2rs%o$WK|N!=q&Rdfr#S1-X-itSRt1HvpWPi72vD^HL#$F_n z)s)9}<#~ZBDNk2G1TK5=!iwO4>S|R6W$ViCPT&#RkpYZ$)FzG6J{IMFJ~{37X17af zSA_-}|3GW+lh$r=wLM;YEy~h~?RF5$5R)-#L1*6#Y6n7ldqR6U`LD^~JLIk2`G3i* zu)Ssg+ScrlB4#ZHIbslpoqAva_Q3+&F(2<96VTQynF?t26{7^VolXI?8MeUzbVW_) z)w{0cfLJ};Nz1pZkTvXoxOdl>fVP$tQ!q0vH!%>JzPxvyo#$q>v${1@qRJ%VLFTn% zBYC!%n%?y6+poU4{N?-4&QBiF{awu}3E$^eC)ruZvRxMAvdQ5~enjPV0oX=FELPzf zk7_4H>+;6C^f%H*ZeC-mR@}t^H>4cwrDHawt=aihxg2@$t|>%vAD=RY!{^(_XCp z-tk`idiz^WR;PRBi)R=&?xWXBG51=eb;y3P7Pm)#u?42_Uz#D*W-I}8pQtZhm7~z? zn*35Ry8$kJ0t{+@qW4C%74>e?GWT+N$4wiq7n8eL?zW9&p1=bE-Wx4;i}-)Gj==Ms4M4k4(j3 zgzl9;hGn#5uPy#h=>xfEybmW$Gc^Xr9F{Sj^T?RD7bOaR^2> ze_X0JSCf@b0*!m(HLl+#t=c%HwNL!kK8dzAn|Pg1U%jT~;l8FA0A7r&Vo+{~1VpE2dn zXXB++#?P4Yg;~+f`R>kULLu`~>a*&6iJ8u1u&WaI?G5c9D+6L7WuQSoUHD>|=Q2i_ zzItU|zpFxL#G;|7UF4Ink`Y*yA6`#y^RN<&tlGDK%klhGM2}@o@zdE|M2#e1i;(B) z?&_t{sl6*ws=X^Hsk{0yr`7bZp2$#P4>qXxr)L-6lIQ5}(J+)n>tC7|o|#dzg!0*I z>4e&V#!h1s;Fjoq<#*UoxZiQRmlCM)OPA8nr33+rN)f-KBJg~;A|&siBF=v(7_FIE z7p}s8HCXqA5NC_4BgT^~SIlaMYInxU5lqyUBx=pe%Fgl18u5G>93{v1L4kHDMz8fi z>@6agHA!x#H=j)HYwb^dyZnjwabMFZ1k^Gqqe#i^itI;Pt}o9b+rV45}_g)*5v)r6l_M%Nkk?PqOhbgatlQK z3Nnp;%4V}uF@0+Odr-?Sl}yJ8+pE0hI$g@wk(LBUZjE$^tbdK$zwCwa>~?x{k!F6`wMms3kj=fyW-K0s_aSuahmnO_GnE>+#vNwzf4R@0RAs1Yq*v+wZjkdq zBN#O(wug~4B7|xTj{dBu-1{njRa6X4e5HF|=@-WAsk<3cs3=(lk?QR3P3@k$6}kBA z)I#9h?1RxqA&p59vY3&z zVihFAfM{_6S}CY#0*TF~>G$Tjhg{H6a+FO9!OSG`T8jk0gH9h!C;DDPI#Mi51jYOt zN|oJkE-qG1L0cD<(<`PyfH)=Erj z-JvRi8$mSzw*cxTV>Q(RX|Fdn#+e7|MsQ*8ST&cP`J~j(3?19n&SY&>Hl@>}HdH=`xqTPdc=UHolwP7P`|__FiPnz?B(fsMFAu<~@f< zr`dC8`pQ(FviVP=P>I4NclWo<-V1o6Rd3skR+g?EY~En1w3`PUboQd*QrbzT(tFWR zQq_)HN{lsXs+3pXZnPBFw4;V%TaDVO-7A<)nXDaE+gS1|9bD=@@s_%OAu6q`z@g?r zRbsEG)$rn}jUv(>`FM79H*+kqi36Fi+z_-_&v#qX z?}ALX3ul^en^ch8LZC-ndNseTGfAUV%hC*E&l%T*vq1HgzrqTC8Xe9u2Z)6-z?)_{ z=p8n#l8&>Vvy<%Yy1e&(-h0Y>LjQYj^r08h?JA~LJzZi;(3D>k4G^Q>FCJX#i`W1w zWqS>QA{bc*k0!`ax;0SH%6<7BBZlkobZ$TQ%~2mYk*T;TpMLu-F(L0)xB2ymvV0|4 z#1t|klp|VYBL0GZ348Qpw0|B-7tUlz@|6&Gr?dndlAC}g=90zacHe&%lRr0c07M*E zhJ;K!4+);;^Se;`7iNL_CL|!*dMKSf;ucDmFDwKrd^^6KUWFt=JPMj~RQjO7{5IUM z)5yIq77;^N3yLiW-j1PiFTxGEq8R+}jYb5tL>g@T#g`_3{30fOlCKO9?hOL#RM?5D z8l{WzWW20Xa)-D^^`1?ye!IJgTe+Dn?qkw#7LfQoFnW_ur>m9eFJaK-XUX?EA46}tyaGeMwj?tn`XLOL`3=TIY{szC{m8dWC^WH8c7ZF@Ab55pqHa$vUVKp6cbaM)S zuCAeu!wJsRr%4>`Ws^0WLf@XliuNY9rgjg}cvZ=NM}Khax*pz~1C~BQO{aS7>g^?; z@#&u&_fB`8?GK_I&NthmK$uSfImKAZJ~9Tu-p9dDFCgQ$SSFp7fi=hYE;_ptt6z#y zl(S7ck^L#9TYK}i&9aOb8)1eI98;Kb>0njPASM{@+|ESU0|_o4z6RtcSlr}vUIx#s z-r)s*uUB}s)I3ZvG_i6tnCA(pJeDCGq$S!Ts5Pbyi)S;2V~7L=Qdf-h9DX9rD?Ced zen~D|D8=-plk;hMjjOyER$g7?Qz}8{b#hucjkAjjAWhuuo_tNCYL}{jV6-$ruv_T# z!x0CC@C_&;tSNkb)`!$=j9J&WXX7-#R3%P-lN{EE_PSfsIC!7+)h$?~yI4ibnZ~G( zms67h3+`UyvwJk?A3iNR5RQ#ddgv)0bFbpQB4>}8HzUQ%AslM@F~im;pbNPwz!QCE zO7waeOkS&7p=dgI5ZjM+6h6^kR$lBL{dA-lROC6!e&Ll82Um z4Jp>7{EyZWwPSwVO8~tu))MG5dHze_Yu>FTgs&6m<71)jK3+>;CwSgkV7xEaGN66o zR;uq_{$q8+7#dRO(N#K0b6{L4E*t_&!32)b;uy`)%LzlN_Ne(&kU#1``EaAC5*Zgx zPIKy$(jgHFyCm_#(_OvHuw@6`9b_wi#5FGF%~xzJqNk7>eT`@P?vzE6*K4^f_8+uL z;5huq5=DX8x+BDL*9BFhY}kz=1(2C4oiZ;nb_y8GmHUj7=`@?-=u2{730&Rg@X)1s zW(aj+np}uRR7_b*-9uvks}6zNN0U96Z!5A)!j#of4`9Hc~+M*AbHBS*I zz~bIl2f!vum8HyZ^^{9AW#16{1}=Qs?nz7*3QEYa0o<=SAZQyyA<|K$5HdV z7<&f; z3qrl#Ey$wJ$za)W7)nY?FURJkSH95EGB~xJLKsVg8D z6H63|8x`WHZ%#ME&;?_F^)Ff7$MeD-G1jPQTOTlQ)qu5pkJRF@hEoDbmxFgWcZEER z00XHSasz$SA9|ooPTRfyuhUhyI70|T#+v~<(I3JV&e{4S{f!JtN~t8Ql@0!JFRB@J zM!lL%8oD+S~8#Mc6Kb-pMmo%N#gW15X?@?WnnI!Bt;(F!5ZGP`M#N-b4Fy+S__{J=H(^>s4A%UfaRd2KwV2XDZgg?H%uI=qXkXLegBcpuIsPAM(` z9ep;X0hv`ULYU~6;gnqbxjx_xouS<2gxA=nI`AST4bQ26F1)n5gCJQhmZ*?Mk{kyo zKyeXD)YhReS9u9vRM$B}ts1nenoGV!4R!kngy^Meia#oneU5$|P$l-;p@ZyGc{!(| z;`+F_R!nmE$!82pD^F6j=LUeh&|US1q6a)5=H|+sA+l~J2rh5APe6uoNh+VPe2bZpJk&^{+V_Lc3YPuXYo_w$*|IyAuSSu(Q;T9_$;edlJ zb>YPR$w}|&zVV|m(P*s&tIX1PiC?WXGc-j*aF(TiAT1d02+o}{5Pa0;Y+;0xJCxk0 z57$+O3DRA1ab(iBqYb3L2uX*nRvbm#@lLaw;dr}BnDaI~D%Mqm&`Gp?nt@NF-I0v4 z%Lx3cZ8bq@ebGNSczL{k*gH7=7M71&aD-;-$p>BE;1n|c$Oz`2d1)e&C}gVhJE@8I zF&%M#TD#>Wp&l-5Lx@7dKCq%v7wCP2x2nE3iIPcj^)Nk;D&q7zO5KhccRIrR=XE)p zE$&l?16BElcDKpM`H-L5ek8d%+%Vga%l4@NFl7ur&`>~zo z`*?R~yW?EeCMy|%zL1OB1W-h$LG?0UQ>N8_wg#sp7f==u1zxd6ufU2RHDyWH-tV)!siaKeX(Q2hil7$C~MXhyT2x*w4l1HeR)2ekmve`;9<>b5&7ut+&V+qCONE)03P)#5V}~u%!M@Oya{Zf@=cJQ z5BVkxMv(=GEDY;OsD4I$Wp1e+L!n(KGL2#mLP`B8v@|^hIa8ubT%GsDU1$Y|)wET+{qJP~$-Hjrr*3Q=m*i9rC7 z0q5f~=63bCrKUYk(+LS*7Fxg|QrWFByQ;Ncj zd;&A-O)^g*R<2^EKaREtbs;0M9X;<24nd%AMg3RN9iHLJ@W|OMULj3!e=vvme9$`` z^mqGvbeB2D+6^Pq9ZZPEC4~LiE9tkeYalIqhHUrfs{y++@^j7r!gaR0DaHSJ}U7J=)^X)LZp|tzG&ADAaq?PAeYy&CwT5EelefU7@ z0|y@1O+k#!J4W&1vV%7e^~%G=+BQMuSog+SViW;GT}2o0otK#sPV<>UE*og^J&1^; z;q;PCUKC@8c^+}7O(|eCM~1J*$qg^x?4%Wg+Uu5a1_nWhTsxAeh_0o7z*ds-E4%M= zpkwA;lK%_>j50#gm1_0(d-)#n!`V6~`+B^B;Wwq$-i~RNsBIY89U|V|$QFi2lGEr>0@5pS! zZz(KU#^%VKYx}0v6-0}sU^G-Hb61a692WVkBpcoUrt*K1d|=dUDiB!qQD69soe)oNdVC!&~P4oUlaBGRC^ zCXr~y`73c~lJ10>NtQQ2O)_ebq}eT|%CCVyXUAgCd`Q2)A}v&buoJ!jV*C?X3c;R+i-vB zg#}X`Lx}pq`drX|x{yABM`;PHKYnkCAgBd`p9D>DCoy}oKZhVgO~>yM(oFn+u)4rn8#WnUMO!tyPUK|S zp`2MyX>RpuQGHeQR$DNnb+}ncsu<#DrUpeUF$ECM3Nf7@V9E}ex%_!UG{YOBK39aaN2M{B^a zZ{9;AMDvY*LoliP;SfMq$RvOUZv#s);^RQ;w)*JQRo1RPUUg-~2>0H2y7^_92)iJ~ zUwreqx?E^I>z`J_UH_TUt{9{d*pZBp3ISSi_Y5jIoDgugYUWmCIf&MZ?8Xhz{-;v?1;?Y{$EQMw!4%k`s|?o-cZ1tTDJZDq$RnICZa{m zjm9;9e8Bi+T~Mx41&!UQIc(_!>dMlhewE^80Tq9)G*x}3i!ADlc{y+XCKzW=ZN#R- zqufG);B;`g?w_;Tz_zFSW9x5b5kyaRSv9OQi2PI-oTiYZo$RkNib?WfP(co;(AW06 zP8pdB->enCLIZRIjsG~`emsJqR5Y=?>Ag{Zu-fs6&LOXW+>YQT#j#4$Rnpy5zGTbW z1+E@=l$LfHSmwrTDg*hgZ$O=+nv+I-*hAiQPsX^eBe&Q;(T3=5tAI4CW||ivDi041 zMS>vXCFR%KF*-)YhU|XKSPKhS#0F?Phg4Qz=#b3fmQJu2HC0Gq)wYVclHUr)Ca%bT zTya_I%f*!PJQ`T9g&qqQMJuymSb~D`_5wFe_b}6z{|rl3$Mi$kGAwsdV}`h5%{0xX z=B${)?$XHzZqGCk3s*5MqP6NEi;f14LW>9j^9U!}0NJ$RKXYEA)9U&Tmd@fDB^In@ z4w?A^uBpzVG8eurC8Gghg*HvW?>gpFC?uL3KKZb5SC2g ztK?a$ZIMom+Bv=m_3d_gaR)xm*Ni`njR1e3NszwLd7QVp9;bx?)jeEgb}M;*s$y=u zqZ8h&s?mkx9bL=0iRx{M*DTNj#OSY`K(C!Z|8ytNYY$M+y6CkBXo)4&eR_btpCI&O zRMW>J76S}0AHmSlp~o58Z^PHy_&INZB_}}So139quF3p$*lSGm0zk)`FkIVSgILoGOTk5;-eYm;V>6ij0U#63W_#bY9jM`lCJ0AimOA8^I z(E>t-4l;#b#12u_Ex=%L+}du%F+$njRH*OJ^%3~aH)FnAi?v1>b*0ebCz7B6MBQEs?3YLJXS^6M%FQe(d{X2 zw-8`yCw1!FNjF_${E8oZOf&i`%cWajwqUt;)s^ygN`QI{d^Jj^kPXGezfRMe1U}mx zv}P|}9Ap>y_dnnjXbwFdp7F0Nk4G@I#F^)}8;`Hhpgn%J@%YPsjmIa@5Cj;X=f8+c zk7)rBd{?x~U&$1CNV7PDR%#PZV1IsH2MW$1AwgC(mWS5%@$YSXW(yIJqG&`qVXk#` zRa~c^(QSfmL#VNR<*n6i4Q?l=DgENVj2@U=9+mE{CBr&{Q884aot&#g2i4H^1g}b} zCZ@wzB|(TG};D}U&Ke8Q2yOgm*VF@bI1pHdIA;> z2+F&Abq|T@%UQ&v;uO-x^ENZ0qCn0ojzZ4CvYN(7H~52pk(i%)9FjgE4X@zT@C~A| z#VwwrtVixK%Bd}eCFh0LI!q|H@DW-+Mpqh7G|ugpra`o83F#ikbj(L{GOE!-(WMi5 z1${%=A?P)&u>c`oYcwaLTEmCl{Q1J_B{ZVz-I5A-%Np6OsGEGNaDP`9Y}!4Y8`#*O zF(k_I1^XO-95LiB{U|rFFddt{zQG=A=4DeMkqn=2X)4Gyf zS9QtP{7IIc4%G56mxKE9>r0nb<`$Mt?vt=DH-wU__HJeX9W8T{(V#}un1Zh}G=9KB z#WRyOl17tc7Z~!EGXI0=CVQ=mf4Mj^Ih~8M7Ky9KAP5d-`^(WAVA1??I8ml#;W!?p zY=UEdl%q*G$Y4|6pdA8nSZSKohjE(KhjE(KhjBvdQ_-C~M0X61%u6Uo#zIe@pa{&U z6L9(urT{t3jXF(x-#KC;n(G(Z?G2tDMZ4o+o+mj^)p%jVIS3~IGKzgEc{oLD0hA-U z6(^5I^dkJI{DiXgvF?x3n~X1?p_`Z~GsjndaPs7)K!oL6i>bFFfHuoucHH0`6N);Q z!e^CtG(89Kn<>w;KA(cTe}#LJqV|_ZpOZAGb|>~l2%GToyQ9N>Onmc=N7N>$C_635 zYjrUP^eFo-nXaopAPo-4|NfP{?n)X z0}BT;`il#gRZ@w&**KfVPp3&Tkuu;JdrT;}f%l$Eyo3-OB%?C9X)-E^J%_WurK-Ib zLhkt`be%H6UooK|c{J!9J}uFFKZNFg(G>j!C8DsV!XzP!FI5ZC4?>8-JJ^cPv+=Fa z`*#1};OMzf{IHfH37IK=o1inJO!JOXj0(X2@V`HtN9oDi`g=C9@4TF&y3+gQXSj?U zkHNc{jIi5{lIwAHmyC*T$7t3bp;gCg&CzA@>UNBa7^*O$rjt>M6J>hipRcNaH3eO# z=Rbjs5c*fxjk$>9Y4%GxBAdWPO=wku2IU+oE_c}47if%I?;j2Oqq)?dwj6Y2yA}32yzr)$g3kU~?___wKY{+6-f&oTH>#l& zk#FFUTyI-jjyxvC;Bj?$Q{NWoB)x#1^elk~6mD=3fb@+Gjb5@}AeVFW6=1T%D4*24HcDWT@M#QP&%d|1=M-zx) z&ygIyt(!@=vi6w1reqQ@g`BFW<3ll376t8^<(4L%kDRiJaVnhhAF&SEYkSkO8rjYh9ra>` z5}A5C1pbFZT7)^c>p?pntTx>!r>=>>sB5qUSzZGi3VhS*f@%S(pa?}f6%1s8T4xK( zCQa~SosjM2omp{zMb`CGRxNHmBP*vu3;};6_F$$c`8W(wK_@K@dhLk+Hb$16!6IfB zFt;aLQBxbt*ScXC>r_|LP^xFJ&lSb>2n&A*UyQ2NPjgn?T@oLO2iOk&Xw3G zUQn5Ms7In1u{6TY4n^=3DWcE<4$6X3z0D7^Nl9byAI+_Q`I6IW8??(?E)=U=mnWA! zwM$vgX*{F!pDsErIUq?4NR!-5Z&@Q*Va(rJ!;E{)AW20kjeeM!rtJMPOviZqC~g&$ z@CPf?wn1r^E8d0M{JX9KaK*OGS*>Ey)50fENfX5hP^Z^SvprL7$H~ZQhq76mTb3{U znPbrqq@hiJBb3m7WWfEMiSuNfSu^#+mP5ETYP3pWUnj6g7$?VBuDTl*e2i}|e4U)X z*EV=njF`4B+{AU9M=^@qm@%#qcS=Hv*{=|zLm?(d0)lXzjK%ZaOb@7f^T|7SG9SF^;D3F9nv;X{;pI-w-G`7oImI8m z`sB{P=i1M(cxaJVSAQG_8rB~z-a|+q`u&5~{bBk&>HUM({qN9wU+sCn<-x1ZdqwwL z|5|qyE!rCUti%r)E$xKb>MY}K;-VWlolIGOf?$i16i-Qh$5PF#Gu+L@A`n-$UYH9Z zkJr1POXT$4Houcb87p$+CQexuMUfZCq+I4Dc}Y! z?m*fNadwH>N8n^zvNtkqi5o|yotxOYVk+B>lO!40Q0*ygz-803R))_=)wgSi2?W4(O*>E}vk$DtZspHA4RNN1gQLQ)R z@(+u|pJ<0Aj|{3jGj865Q`~b|bJ$OUDo}7@u~Zdofs$KSXjwdU;t(AX&|sl|fHra^ z2FcI2>6GLtr3ek=y`IJiI!=)VKQ_B!YSmC#A@2;!8CO&WquZHO%tKm?V_CRKQ@!4{ zVhA(*BY+<>T$c8$TLdj{K~%Re#>fr@T38*f!g^JkXA9w5-%5k-ukQPM4XaK;Kz~Qg zttnff^4ZA}fCf&y%e!D9lRaC1u1D+Z`>9g%#S1a298yj)TCNyu!unEJddrqW!jh6C zH1z4<=&NJz{8_SFG{x2YNp9ez(tMB-pC(suvh2nJ@Zb_Xnmg%iIEigIF`dVu8&2dz zVmybSEm%Aa^L9NgnRZm-ilitihPR$y2$X%x4^x6?p)4bJJ}V7l6K(Z>SPFzt*%+32 zn|D83FNW-1)9BY%L!nxN~XC zBYzTqVw~+uxdHs~--|TUBWkDS4dv%VFWaTTYUbp14aNY{Y|f;g19}d#U(KziuZqV@ zcO|3~eGO3?(xDiR6zgz*++oTa<^a#C+$BC3iX$~gSwcsnc@@m-=(LEY8X*-9P{Xia z7NKy?`8wfGJK)k1oTd4&(aP62fjax6Fqu#rgZ56`k!L@r=>2?TaPE|+hhoq(v) zNvRFV4}pgn&W7hd@$m+ti;a!6saf3u=l4b#(nP!Js#ad~0UZHL2>5{QeQV1mr<*35Sdh z2Xa|vMQlC-QkEKj1|b1ro02^4=f}h8&Cx3Y=}!hQBHgNKMYm*zj!g&#hvz^5)d!nV zN#C_wNu0Hfd`#SkwJr`;3X^-1j+*&97Vv2Rr_$QfG?{YH5(9ILAcwLbvD?sIM@4*Hgp6e*9+DW?sAnjzIrE@FLFC&M7}EFDLq1W29#)WwoOt%RC6)=>uH zGaaL8cI|@Y$*>d4fncXz)MF!3K7=xDN^O@H4`x%AM9>v2{u@Bh=}Mat|Hg~@-*M@r zGJcObnuu0^K_R8n6+t%}$qIwa^^3Rp@AWNMC5RzGK}|;S*=;%=JwI+2oONN12Yr^} zCz+V$(+~w>1&c+Jy>BXT zviod*@2i9TfgC#PE>M6Wrxt_tyHgSVo(^x0NkZfajU2W2%~<-#v2 zA5$zXAVzp`M0RISKGyH68US}!SF~5|EbH;hX_<_LSSO@5r@Izc8l z&vjhX5g}DoV7?c~yM)#LA6AeWe~cuEkHzI)u%rrpUF5}1Su6158g<*#jJ!N@@Y-oZ z^7wFDHV%`pyG_S1v4D%3YxbK2z`x@p`GI>t=7SnPD5~ji*q+gRmCM4zHehUnw|<_+DcrKN<|bSB;gmLlcRl4pcJCKy;SWLczW-}&kL+IUWd9qUaI+O{JY41&@A6> zuxGdE@Qr=CfYWGQU-)yw+==YbYT``Xhy+3PG{I2GTnIeYv#^iBb-^q_%v5A$^lUX1 zK~|jx-W+ix16os&BXSd&uQ!(YdUKht|L8{p&sj@ICTl-i8|0jb*x5Qsp3y&UCG7sU$LE?#Yqk7Z-k{vn4^Lbx?9`k)JC zNgp_og6Euwc^U&$fU#VE@DVrn#J6!HXX-NOmj!Abx_1TIwl5 z_rY3w%)2&%Ylr(%nrzeaxJUf_@B{p{K)DQIOLxlW{UZ66(=1_}5pUHyE)u-3oq|;O z_J4a6=r*Ble|wRCtEPlM9-CB20nOL~!22>&W&gB242bH_r*&Sm&h0aoKcG69TTN|d zemT5OUQU2KXAjRdo@_mNd9I=GmirR=mgM|~$)cY{I+Z3WTBKjWP>fm5{Tc;C!HZWD zx>BnNWg#fqBFVW-X!nvbHaYc=VtQA+{TB~Mqp}LNBai)m?&?tK-oGqi^jU#CSGlnIi@hUlZl#8Oh8g~Y2{26{UHZ7EP@vF02uBNTxrS@fWJ?#) zY$uyg3Y6b}jt+Zet-Z;nO%IO8@Ltx3EZdSS+p<)SiqrgJ>|W$JXy^TLI^xK}V?SCi z2L+|KzqB_Y0>fGm^#z2122ZCCJcIy5BE7mGH!f%opFo76V9ywiKh(*ij++PNX3GZL zDX7%?qCepv3@BI;M|25iGl3oCRbuw?X-a{_B_~FQJ~>ET;9J)LOfFD4zob15 z(pZjv2}4%^2J|wYl{(a{ND26n_#!LRAiUHuhkkWJ+u;J$mK%*Z!&30!(kA3^t})L$ z>Z%(n_agr)ks3mV^_5&1sRsn>BEQb52!+ZjDvX>h%4z)>TELmdBUF>#2b!GZBj*zC zsLI@21@$$T&MA(W9VL$0mSmh{w;;geJ5|Yei8d zM4r8IP9*1;Ivqy2JTc$oGYTN&2v4XE2E3e3kRbFa6U8Y!17^x3?a&cvL=Y!wah_t_ zD*QRf&WVCll%$%FOb*f!jJ=CnHO1d7BV2Z(s*Y!8$LYl7?aVkBABWYldD++rGlX=1 zib2|Q6hlG^C>Up>p*fx>B9l1Edam0p{8xuju*K5f&L>dPNk7?QRQsmlWRutxr1}NV zST-r9JTTeV7oH%)(Tiw0#E@BijLp!h#Kl$=J}Wty(8C?-XQY^P5|268Jd zooSzh2H}|U&pu?GGb49tRe9-EwU$7CJ?6aZB(u>NDU@Za+6Kn|i?>0YhHTdkop^I& zk2V%HwhO8GiHqUb>aw%}u55jkjRPc@As*Fs)=J3bdMa&l!o9ZY&FGfn2R=q^9YIqf zmNyNBCOid*7y0;UzIxypfC1&q3sj)Mu8@v+il?DXK(8ANI%zv$cV=jK*6K1gpK(<}BN+4mmG?nd zfK-`{NU{`N*V4}@Mo-aYtBpkOddtHbh5piV&~0a=0Uv%xlywEu7o**(VC+^UR&-VU>lHQkV`$dA?XO)JjEf;Y4*I5R0t4OJ6E*Z!}teuU?ET5`kjD z6`x^y2XS&F__*blvl_3K*mgRUV(j#QS>49={i>PVYftcrT z+=?NcS(B(Q{D^_`N9_x_mX~kk)v6_;TYR)++*D!A916E0F|UC@KEZ#MX?6vjZr<2R z`*_CO^VR#!BCTw{ZhYDHAeaO+&uc`fvIB5#9KzS*j;8N4@%EMe8vWAmqC zcHD-5bI-QAtyZV<$#&*1@`YJ+8G}ZHI7)D2iJ%|n6Si2;J?O3ow{9FExj9>IxkB-Y zF@}s>anvp*A?5M5Qf*vL?AXkvaMA|jD_a@5qyU^;sCP(! zrN2LcoWUeJC$&9)9sdMnfg5zcu9DkbWF9=DEu8TO#DdG<`fvuhf=`ov1Z=D7XciGx z);VI0q?1YSeRwKtUH=}a8ta|6FBELo7A?A+J2^NG4(gGX>5!gT5ZYC%;DbQn9*3lY zfS?z!Fy&lB)g+P7q#&U`&-)DGTDgt={EOW$yenCIDXX)8F+&xHn^-a~^R}C8$l9f3 z#lD<@>GT)=FC!yB?R*`iCzG@|?Tx4DFRe1BDasARB&nbAD!Oe!3)+56_pKLl8w_p9u`eCl_JspP zQM9W#zS7wqQTVvLNWq*WFE8xbREAH8+V5{WOC(MypkgN>B=D9`(K4K==!BjAw2$D< z`+%&S>k9RE%rGZt1dh9kfZR_FA_SjsIR%L>V5GW#zJTCc1YYHBaTv~}m)#1AvGsTD zyD{2^`Nfu5j#agARc6dLK-b7|n+C zm?dR@CXfkM0I>zJI6B43Y^ag@43;?L-m^Nf)Dmc9IN|O}ut>DcHaFUz+WJ1bY41~A zKOxF&lD#~uN!=wGjq1cWZSe_h^)9H=Ve$flN6ZhE`3Td08TXMc;9|6}J2#Vg7nICa zq&4dGM;Jv@y1v~^n7miLoHQizM(YXBoD{Bqy}7KAYe_0lPa zKW%X3wKYoms-F?*A}nrj0#8!Y@!-;>I6^L8@cN0~Zt>Bpe#Rl$jPhn!r#kx{Km9Qb z(W%P_o_NzJGlAW}T&xp24+vY?{Vg4U&xy99m#+8Zr1%8^Mqdgwh^i~_$tlKv+!o?> z32=Wda>mrZVv3??iS@mM-tOa=Z8>Go142!&?@hAwLzJLy~sAq%cuE# z28AX4(&wkgc|HQW+~^QBpkGCQy?XfIN(}qbX#&L?QqJ2%?zZLKyp{lxN`}!>;gV~t z5H)KVo|`z0G+`1w0?nDro;^y`a*ZeI1Mx1w;x9P?(O1KqZIPe5cDXICi@7e<3Fa%p8uI3`Ff9SZ#L*8+r zeCRX0IE)b4KPmvO7+sZE@p2?cH}LXMne#hbysAtkYz1L&j^gJHk{wg-$i1Q{cdweO z;0%BOB;_$g!p9Aw13D-nr@EGx*tuVmN7eHq_F>37-#Gv3O&z})W=ECU1Y3G=7dyOg z;F=sp+=e(|I5ev~s5Hxue@B=2K;N{4tphnC9IZu>{|QvnSQKGd;c$(SLXfPkzM~MX zY)^;Z$kw*0q8Khq;PL2YEh$AN}whmXGq?s{yv* z2J5yrDnuTOmzLm2sP$FKE}YRD@UM88HVq_M(yCu`?4nS=f6lbPy!@Iil!s9A&fPG( zxxhYk+=fz+%ScEj*(+!eS8`0GGbGB4Zj{+T6=r|ipe|&;QFFQil4)Hfm&euQK_-^* z6tR{ADh|vFn=W;F1sM*C9*povGb{I5)sqhPbL+G%3Hrv(Fn?LBB}GKPREW8^6(Q+4 z_b1v#oCa8pe-yW%NiwIOFr2~>O46bsauPRaPrA+Wm48&Q6rZ^_#*dxtAT+!$uVN?d zgm^ie+=Tgf*d!6Alp4-_HAT>LiHv4j^+0@iavwS^i`KGDwca$X8#c)^#Q&E6$eJ9P zVHu|icVIb^DW~Zu8|3G3KaIu!Ejj4k{rU((S1|^Xe=MD%oP<#0u?QRa!W#aezJ)%} z#xqiIAHRl8on(vwQ%#rEhZA&)KOy=xV^G(m0M@)NdZIFjq%d0|FFCI&%|vITY-6j1 zg&2vpV4_o`lyy=32|A_HU25Y5Uf{Nxn|eGfSnvA81z@o`r1h8_q~Na zC=ES3e`%nd(+IAw>wU_wvh;fAX!Ahw!2YlA-(25!5@yaEN^^Au*mjITF6@{<(%B)L zuy<@_=(08s(lan}ruv_P2rT40Rc~X~^*&}@ZDb_Aq^15ZQ}_gfFAP=E=)}cUXm{#B zp^aY*JUD3o;U)7zH0!cH>vzoRm>>A%y-6OOY&(1F(#xYO$%0@OE|#y@J7;_jkeW*FYS-9cm!Ud@^=#(PcS zAvp&dW=e1k^swYnT1*4Q5DWSDtwN8|-OAi|_4x6jru`jfILka-#$H6s?R~XLG8#=b ze_q8r-8$qnY4dtRM10Prs%H-kP9DmIb+_iSTJr1892Oinq(iPqQfGTOY;fSP`w*_Y z36UjlyPtY;p%M&5>J`8z=IVb>tV;cR;uf{P_+i4DJ4_%cDURHN^919x^@(Wf?Z=Nc zI;gC#1&TMF)KhuMlkJ|fjRBm(KXpnde->8Z>V&gJIut3-D>G7rR zhJ>uw3ULjYE^91M2JByr>KoVGtj_BbZ@F0)#TJl2i|@01l12{W0SFB7aewd&&VPZt z%oiZ+zjT6w&0903l_G(S>Ppq2m$W+ck}q3VrwSQ!_qq_DOs_&4GUfrQL&n^_e?C;d zOtUJ3g_<_VY!l;}3;2t8!Z8dS2`1))DxZAfj^AP`zET+0wN_=!?W$Eb8AW2_sP^^t zmU$_ndcA#3)vMJ*@t>Zt2hceqk8RTXQA#+*AZ&ejYBkEvvT3o}X<=u$eK_KV*B#kN z0x<%JbO4Js#eqaTNEjvy)e%3Ke~2t;t6@h!di9Rxy9kisl!4wN{amA5}EJ z7{g(0t*R*n0-ch<-kTXEx$JlMRjHv^BRCEE+DeeT`&+9o_O4;o*~lCsV#Yj2QKL8C z$0>|WRnL3rdn!<`GYU&o50kT^3hd?Y=c|QF+>oJCi&#U`Bc9c{n&`cEe=E3_TdWFE zu{gyvdK~4`OgjEG$;Kx+3|t&c#~ZaE3Q#<+;~(khFhiIl@=xW-;aVkmD^^$z{(|E3 z)ZdEfkf6UXJd$9Cbu43|%)u6aEbVdpjO6f(_uq#Ho=|InZI6Q;x8V_?t|S=kE*`f0 zT5bcRh%pAGv&MYF+REK+f0KN9v&8g2-tK*}yTjEMGIjG^|1tu+Mf-d7!GD~lunNuw z1E_W~!&kqpsIW41qL0gxVs*xo39t*${W93gIT80nRl>>8(3pH$(Ce#Y2cF?}L$OXg z{ZHtpF-v#U7xc)>(Gygm?&}=m{!gXNX75H+3YGs8R0{oUK&3HCe_OO35}n)@Ev?ZQ zy8)K*U0ZT|*Sd2DD-d1Rr;0noSZ3EA4KKm=Sjg!v?!feeygve{=cAN7u>@rjEbwJI zIqp_$FuJ%SrHyln(ZqdQj)L5x($V8jP}>X`emb<$bU{%-`gG zQoF^yw+*gF)rRiI0E||xk_Ox7Cx{S zzAJrCp~qPc+^v+xY4BwSqh5o232W zC40-UzJ9v&ugTCsqzW69AdGsZS;#W0U>F?HW!B!1RUCiFe~HCnaUn)gu@i%iGFGfo zT)K$nj30por-&MsNy_ys$X#L0v*RZijzsXa)z7j2=KFbU13eHdEJ4McEcarmXn`PbKWXuA<$!|2*bhpTbqNOfv zso&?8`rXua#9c?q0TFDV<@TxVmnA6S@Va{{^QsJVe{`gQppNqi5^Bd4qC6YMT!NT$ zp0J4_?TCu^Y2s% z;KxFZf8frIT^d-KEJxGs=qz~X!S+X{ULR=H9T3?&E8+P*h!>awj{JQxN-q@ao@aw! z)@SF$x)`f}lsX8Bk)<=v#=Nf&t&FvqvD_uE*0kn+jBEICU{wY-w`*c^10x&m=IRY? zZek>IeN&r;2UOQS^`?p;_qxngG4MgUUZ77af9zSE8hk#>&6B;h>!MJ{q=R@;Rew>)OBg`YK zkLYi(nT@Z=l)L(a_Uc?z)_Gax?S6k1bJ1+aE6B#Sz2UAGMzg9ka!zkdN~7A_&D9M> ze=WQtqCnJ7M(ESo@m79PM3rf!mN=$GeWXIe^TaDg5f>*GNX2vq@0F6Od@yH5ho^V^UpC@ z9Nx&Y$%8UZ9$uXK0Ub&eoz`-(tj8P4uj0m*XFR z1F+8ycfg_W!TvY3FAu|lEC+T#KcD26)SJWXcPI_*F5?SP3lbmP9C1SVg)N+hf7kFK zzPI*_al2PuKEluA3}>uC;^@b(%LJ1Xo&{6Cz5Z@+~h zs~QSz0^OXTu;O6Y*~v+Y5{4hg6hJxKxx%bK*qTdKLAA{GZ3O$fIFA3twmke>q}55U<9T zR5fkwe!Bl9#lQI;ykk^yNw8tP5BEPI@rM7h+$8k9_yJUm5XVINVH3p-T}wHfhAqz@Qe%Ic%8S8M`39)vzxKi2VjBGGkl2GQ4JP5gPTEEMN8zBDbBD^))j{>Y;6{PWlah6X(`B4*$ zw^>9voF$eKH7xOt@WX{X0!R{oiIh%~M`>Z>;G47l&-ny3hV^NVGMo7ESGaifLs406 zH>p4YM(21~eGDkYX~^{X1O#yb;)BhOiqr!Ncar=@4(blDLKjdNe_x`Y7=UoL;0KH( z8Chk{Ew2hfMdh@_(;ck@n&L$Mgg9#yocq0gkv;?30Pr$qvKmApxlTyZ`Jq8@JUXV& zLLDj{_CDC#{)Az`F~j~R`v>^Jdwh(?%o-0*w##;5=ZZ79;e9_J<&)$9&+3mX?`@k2 zs5+nt5tI)Oc6av#f6hyD;e0TG(+VHbPndwP7$uDSEU;dl3+uhnEcHPh!*_|*S0DC{ zJV>w1h4j^FHdUZ5FhQ`|KiJ;;z=QVcTxk2iA3yov;KT)!5Fo*06pz07j6hNghoA0$ z>^1O6Y9nCj*5gmM54>_ONx73ze}d((82&{Sl@Bjstn+ShqI@Ed=Z$`%`3nGfppvX^Br012#*u(GXJMt*?t$ zmlz7FcG4fDe=L3y75xcoi*iSwZcAXy!aae6MvHCv)!e|n(?l0DRZWZsHY0+J3AvEVbZ z&nx7-SP~HdDe-L;#P?KObbl#Jdn6nb0qF0OrJy8JNgb8WGntVQbt$rgXz6+E1YM=) z>SyScV?sU_@$Dl;Rv!D^!=su0WfIh8JC`s$@R!2(FbWsi}BF61rDa^FsE<@;tc-v7oy_1_HzK&+PE9#LS&Z? z&oqTJRYBM{b=Expcz!qKcajJ)2yc_Ny9#kSf46A6QZ_cgPt;BY8JMZC`cXdZkK)zk zxk)>y_E|a^q+_BdUH7@po2C+$z@Nf$;HrIY(TKFd;3-mDJ^4io-8c=(NwPbHF4YWZ zlHw@Sk^{i$5N9ySj@{dMTTnsagKB%=^u%HqTrjE9J0h$IzIs|>?t}y6^)(y|S)!Li ze<7jO>+wnxW^oM&H?-DU{!LmvF9;G^aA?uGFn&ZniRa=J)dk2CM7p>QHZ4a}_JDnp zwH&r}ZP|EtlvGfX#Jp2foK6c%xwtXpq6TGhKtGtMgk&hjc`Z~891sr`CUXpe>)Q|t zYhjI1K!XLQ2%0pyJz1%AMuRT$>&&2&f4u6bWi4Ekn)LG*?+s{^t}^7B&T^*euF9%g zq7Tv{oi60_Cze)L!+s;xGKGpLRK0$eP9nKT%}QMOnunGi^GS+^8q2nej*fSLxdck3 zie^BP!<~|h`)AG&fb!gL1hRMvseOT|Ch`wSXEl@UZ6#F}Bu;Q@r~6h~+vX91f7Ao? ztt{VBc3Rio^$w1N|T`+r|GcTiXw`4t~34ishO&TGx$>m7Xs`Ro$~D_lPXbRJcb&L z+;%uzlzk;gdfKfcBvnMy)J@4Me?|@NOkpmy6pc#p3~osW7F8%iw9oMz^?{-=n6WsK zi4ho2Os*&M;gW~w$af)Jtjq{RSw#vokR6LJ^h7>{vp3*N_0i?^X3&ZUp`pxgg>$8` zx+WeHQ7kwyJM=eV((f7}atkC1hJCCi$ct9yO|pFNSA{D*t&nE7<^kPF^*gfCMm) zajV^5jz(%{D>HqOPMm_-e{6%VETH&`C_HJCLUPCuJ#Q-(AGFC<(X?FURv?QP&xxQ0 z=$AJx59`FF=1#9dKMU^$>Nm_y2tr*(@GVFwmU}x) zW;z)7{OM#l?Evz>e@_01(|{M?f1Y7=8MXOSF*|N!_Oq=nAk*nKpdG!^>A|BI9@_&R zwa;+Ufe0pK?Jl3mK}u#;gLH{!mZh~_EhzEAA^Dtwc{L~71l%@MIjtAd5t}cIf;HZ! zKh=BwI)iw5ogwgOWp?)c*+~;%cyKPD0@UhZy)CO=9EY&=e`>;dol8Cj22hmH_$r_L zV%%`kl}TD!)}?6wEQW_P88Jz2gTxvB*LlJyx;6n#+1+ol6r&G$`Wu?_Xk!)byyIL> z6kir({};4vI&}L>_Yf^@K;pmgsMgx5!f}d3!`goYcwC9%QB&W(V~~$%Q5iifD_^c~ zB)kicj~?s4f9SDu{eY;#TdHn@p(yKZ80ofgh=kTwa!niNZH49Ky@Wpk^x9Kpxq+0N za+NuuXY3c)Zi=>Q2sL~Q8Yqj}Mn*G`Tif{No;0L$Fckn@Ce1!I=Z1||rI=)05 zGC${4yGlxGl_tXelUK-q=Jvd$n#>2tcN#TDEl~#Zf4E(_0qOH{A;(f72WBB=>+8{WiCXTy|Gqw1V(3N|csjU`D`;-GOT*yaX&zd*F$?|Bl7MI0Ls zCupde&^+mMGJ#EC6042flrG4k_ARIfS~dJ|Fp3J+Q5eq_emT$k*lVTv7zT2|I^0`=!2fR+$Vw1RIZvrNHN8i zHvdz{b*TePJ|}mhnBqL$tz!B=W!#uD?np7knYt&%^nW6`F_GMjVu}-W$BOCyv~gqF zxFf|BXX@@1)Bow?#`JMliYZRj@`@>4m75Rte?Q#+bQi1oz6to25q|!fj$DvnN;=J9 z=8n;{jIW#d4!Sr`2iZwBppj+w3ED*G(_QVMKw1^w1d!gO9avQ=-qkDwG1txGkK%oni*9$^E~eh6dJE;?)uc(A>*eQ@|AXKG(8(r8rZg-A(4 zy(FxZQGV&tq4Re>Duj2;?-S_K*7GU-$yX4skv#ZPjlnmYp1B}}WyqGqq(6~9f0vDw>PH5h zlN88|2DGp?N_}z|Lj8RGRdYdFmlfUS4JsKn&P*<_^Rly)`tBb{g;#1>Rs^iqX33ES zIv~|#Nu9#0 zWjGX0Nl;*v5DL;H^jf{{f8c7dHA2*y6tY0HhxV zZZe03sLoE>AGW!=)>t`B83$5I(i>;iJFK<~^vTO?1%;#Kh+TA9f0rDTXECA+Q(C-a z1az71;>WD7AMNk#Z<-#-PnSr!afPO!VX8I? zjZ42U1YTH5jN*A=PC&{G+riw&Pyhz+(mqRUTBRu^@!_TdlRJqhbR8}o3bm zhQ>&(ObkjIu7K=>4(*Wv#V)^Efq9hk!)I%{v>5V>Rj_SDe@QyG;bbx8R_-yod6}zd zKH>L!v7;7WlT1;|kj=UPl%eAZs0W9+0knD{c#VmZRX^}ok0TduQ`GK8=Y~5GT_An{ zqlzrreMqTR-EPC`s;z|^3xTCqE0w+6=HhSmj{Uifp7?W_;eQY=Ol)xP>jN0bd|^nN zd^FG|ojBzKe+tvN#+T%%;|o5!C3Nz?vk&d9*3#MMr2TmEXwG`9R;$%&wOXz2jVPnr z{-Vp?KmjJU2NqseWuGmj_Zn57%TUzdyqv;kbP?eE|H^-7<^O?E{>{|TX>0Osy#auM zyo2`tIkq6}7$n@i?Uuq$)@Em6=JP5I8!AwwZB`l&e@3r%Po6#BKZaM0SqCI&jZWx> zOo~BEoo6$M;nY%TjS|fwmoLkR(A`v?h&Feh{#Hn%OKe(&rA3{ir?vuOT;%# zO_@P>vA|>nO4bQ!r9PCm47;0=;js)1k7?U7e;I;Vuq4zkEs;{aG<&V;rKQ?cFS3=^ zy;jZ3fLecEb_>0Q2YA_og=Yi9pam%zig92@s3wP+&Z%~V+lm*R8stB4*yCr$Z<`d-Ld*83GaD~ICzl-sM z1^vLz@WVrPccnF26$x%^{eEhtfB#|ZcgQh3O0kDBf~Ezc`dfPIN8fIye|U-G)Xbg8 z`gggg=KxEx&#DPLKZhvogE6U?ky^5yrF>|Qrr_l=8;{Td@0bltH5+Dm{che4RUGuKsBmgI(o?8GBCNvr7%K+2V@3y@k1}JtqZ;5_pMxQq6p0kGd-Y$*Yom z-1}eQU@5QdH;?T%omAX*6i?2z3$5)0cg&P&Dk;k#Q2nJ~4{ARTkGWSeV8|NMQQioh zLN%O|c&NcVj#1zBsDvmFf8r6NF$Lg9695j6QfaUdfPCPGtF{3BR7dfNwP><)DgsQp zu)O8je{gspZYw4o-`w-*-CbT{k5T{hUzE0Qfn#g8bSo7{*R}681p)#e)Qh~Aqj?^C z+GfiSf4vD3m<=TheDj7eCnZ^;BEs-=dxxuMf^rhZJ9zdubC`;z|O<-Q)*R4(TP4 z<%0J zC0?|c^uQ}pO7c%C&Vq7k!3&~zQk=JO7$?(UaaiOt9a!chj(RIn!TJv=I9!X&8#)47 zifEe(`=FwkNcUb0eEf2)$rb_~gY2J^h z{w>{(qulrBe{RqlZbCE6#0HgzG_0cl`s7ULMeoGt7J;>h{@VA;44bRb1S?^;xgLGSRVB$XR^Z~f z%vm!+`e0sMHk{>JdCImrFlQ}2>i+ToIU#0Pk>;h6e->x9;%x=u=fF7udo}I`@lB?Gq`BN~bS6cwX9yR$CP3?df^5nd*s&aSo@_B@x@%BXF&1jo~h6%G_BO@%Om zBd4hLX$pEA^qStQ7e{|goAt)U)ug({_|j_GV^^VW);)zyJ=Qh}E@GvIJX2V|lQuoh zPTBMre==I}824g~--~IxO>eL1Bb)V-hCM^2cYg&lh}@2bo)#0PR_&kS1zPdWmn;I@ zw##`B@9EPF{TnuT?%dY~{^DS>oN!59Y1p&=ULi$jI|~(W{7_$6PQk~fA7Ey_HS)8dVTm=%tndbcAC>qs{eMI zQPl7MTB}ji)Bjq#kw$#6reay%hOYF&3w1q_GIJ*m&x>)Zdd}Gg zQ=^?Dl3mOzp*^LGEkx}nYMAS67h@F%Gds8E>uhWmGb4;fjN2H(fH13!7K&QJ2sSW8 z>NXg@v$DV6bZnyPFjTk40y7N;mIRF=f42Z}jD^Gr)6e-$v0ZOfmvZCF_h{lADxlzgEzN8H;*xt8^_zg{Gn+x-_B)@|pE;LtJPFs4>VpE%)0t?&Q z$N=WM7aQs#YgfbvJY-2zowbIhX>ePUonV}ThZwaZZm^DPr_FT6Y3uL^xsUw`f5wZ; zOMG8(UVbR&*BLPK)5Tm=M%3p%x?J9~ce2mUGHcRdfa;rtDQUkfN>AHwIIGW);m!aSP?9uR9%AK;d>if6_Kn?s%Jc;~lCuUbv|$YmEaK@2U)6^d+d~!0izQ z+ujU(=WAfw641ri_q10!KQt|lF*r1ce9nl27BcJYx7@CMnFxf$AMT{0LEPf~ee@(! zn|(2Q3+Z2ECS+doc4r85m-W15p_^-3&Sd|C`|ze{U_iMR>nF z7>y2&4&}kfOT3y@eVlSITwTajvg0on+8o5`9=iie!7~iL`w`x!vx~v6KXGK?n|kQu zEASWf>85tY{FJ5Bt`;?+BWA@pFhnskO9qtn_}{=!kOt?>aU#zkA2fN^pKdaM%}swc z$T&l8%%UZ92$w7mXnDbse{@a(5nfCIr>A*c+(%K$$uQ$4V|U*d&A2PId+R?;Azm*8 z1DVO+|DLbRtKvPgDEchgd`TMp@IcsFLQd=ZWP+zm-#TxHDFF!){M@CPX%lh5{l-&| zHO`6Di0b49v8sEUIbvMu4Z^KXcpY$kYwWF|XC)q@Rgt zfGV&PAXdjvWKthun6rcVB)=|ZbrKQb&$0rNU-R~e^W+Fow6WfmFVypBN@ck?2|zCM z867!~iqmR3#ve$$-Z!xKoojk8a|fg`p3Mr1(sr5iwI04{f2E*tNyVV&#SGI=FRH38 zkSG#IX9{!xfmH)xE&yAOcuSJR^ffJ1R`gW~=*zO0rJdoFA92h*Ro!2!ateS{2TyKY3Et7eZoh&EI|rMGa0tRNP%_r79Dz(1LIZm8sYd!OZ@;oVYBO>-ZFtpKFOvlB%I0ZTwtqWP)la1Xlqz%kvNCF*YoTkC= zX}G_}ra$J_S5*ngKfOCOk73ijfH-0W2m#N*f5>?NBFPjN6!7x20Mr2$hsM6SJWWAz zScchsTcC)dTjV8nASNc`J(aeJ(fEb<{A#}7S2!TEnw^(<22dSrVkL|kG&5t&FUrdw zxczAj6>#`)F}%i-Jj%?Ylfpmx@xCaoTn)JwfM7#KS%hUIu`28gml3=>v5^ZRNwQLi ze>~wU$Sg$5Su^vB>3InpJ7f7m*uH}cgup;GJP}b%#yz4@@1z7$_kgEaHMrtQ>?iJZ zB$HI^Ajq)A8hXzixSiAy0k^5x!FpX~&R#jbT)e-?LF`-`ER9-3W3ifP5ng8O(VK4eypl-qr<^W1Ka$BOk!^LLsgE= zP#Foza50}jX6|>*^aeRRFDJkUIS2+OCQW{}LKoLXjVtOD)g{QgCJws-fWU$*e}C5q zURb*s)O+YD-Q+bK6mNQH4-;zs!)5JzxU8ZMW5rP&vfPf@PKD=RpYGhuP5XoRK4Y!B zi9w;~e_2P94ZtY!y`_{}fzz({mQrp7t|1)3vq=ijQ*M>RXGpasYpKIn%BC!r3@o5a zDOxf%5-ca_F@TH?z3k{ zFJHYl7=dK#dCW9ylcF@Q3`P+Gt<5Lejhp2PoGtF~b$_s)QXpGk2Uj)0>F4Xnbi}1M zBht~~Z;rt1wVFPPNZhV(wHs};HMp^O2f|!IneK#n1*JD84B7+N6Gjn#>tX$`L;sZm+r+UUi=U(1nj#ImeD9h?BGbY0U4M_K@9ncH$bbr};6oUI<; zrc4YMW&gnSO}<$f7^>KMe+CXzlt&MBk#gQ?W4jqz2HdkAJ&7keP(2q_ot`_`CC^uh zj5jaQvgr-ecsp4J!B=rF!4SRs8+~*UO>4whyYTxJnbwkHXsql@BWT7jvaGZAqKj_2 zm|j`-vxI8tQQ8VFiJE}2M2K02QI1NAaP+GkQ{8mOIMlV3*@-~@e}o|>P6Qa1?Z-Xe z6V1^c^H^&MQ^2*e1Y>CDCQe2fwc1Zk-dh$rM_b3Y0ygNkIE3w@*~GI59&N*E_U$Gn z3{T)qCK0du12ce0cQYTrT8nlm8$_!5m3ydxs(fYJE$mlV;NEhtWsFn^xP}w_DQxHCh=2QkCY$LP{sMMdQdcMzcj}Ejx_d>A2IzZ*@5Hp_m zS4gvcUN7GDA@zs7VXrq>w{q~z?YY6W%wBt21H&`q{Af-yf9vO!t_)z{3-j2z149nV zgg$N&pvbYw@>4okd91Gj*A3OZtdmQa65x}2cFI9Dguv`?LMKBeo6oHz z7x?yyy;3IEe_3#_LZ5O5K!@XG>mm0L%tL?W-s=(CQKXdn6VRsY4gLCYGi)z+j*bVN z%KqkqElB0)U;2{K^nRnh7TZ~owEbnuxq;N>7SVI=qBwmInzy-IMC+GarA4bzGBoPF z#C;JflBE6Yt+_k`RcRFK~eR_-6e;!}+o@Tn8O@L5+Zd$VpR)RjvfgBq;CDKcyWFTAJuSNz}yKM-t>_xDyJo0>v+&yF52V}^ok=!OSU%XG$w z0UOX8^aGxZ$KDyO5!tz}7CF6bPe*e+4SC@VxY;{pn{WNpFa7X;>3g%IkN>9AI2mUi ze_GWc`fV#=>Wm_)Y}JvJO~?Ag+48zc4B3Lko4QEOE8>arw7kNOs%9iCVstsKC5tx; zdIjdS7(T$^Z&IS@O-WMCIFc#95Xp`#O>I=lm)^_e45J2#Dl1W7E7|w?_G_5G@`agUF8U%p!E z@{|AaF2{rX_`kfzi9!D9e^QrYiK!juzxI}hB;L68NHEDmL1VId!+$gWBjGRjSA0yz z=|=eCV7NSzlj&_J?tt+b2yHDTfi>57GXnASfe9|-BVXrr`o>fji3|T5(QvAve-HGu z3I%Y_LyKiD)0#_h9X;hl_LPBBNQnV91+~vhqijbj7$zKe9huf*ez441X)FiJJAm}a zStrh7R)`De}m8lRbK0cgcXKT!jRJupy@r5dCF zi($kt6o+TheVa$}wu`x3*n;}(f7(%<5j$%zb0I<^s5{|t$e*Q+W~B>0B_jyKdQ1y; z+Lp58s;CKFA@T+6HL6KQM&!?jJMjqGv#Oeb=Fj>(KgMIBCQCRq(Vzkah@Ugrf4Ds&yK3-0 zl`pwRQSgJV4ug3A+5X{g4i5MCk4Hl9y=i?e9w(*`+bF?NsiPu5iWoZrC7`61?uY|Vu@uo|M70h9h?Vj?I2H>@1Zk9azKv}a&d@!k zr7K<%wKSJgk=YVDjPF*x(Q>H0;IH-q+xt_z?YRFzPwLYJGqNmde?q7TaT6}kgTM%) z!n+(7)AFoTlfOby=fs!hF3y=A9^h3RaD#NEJyz(rsOVY}EO_Zfz0)#*9V7mK9HCD2 zDf6-0Nm^7>ceJ#CBHt~rp*gGLYjP%{n8F)i5RD#_LhrRQG(Cu?;Y+E=9)1gBXiduw zmK#Vt5ss+uKJ30Je;QAI3~nUPK;d9x@`#4njJxNCoO$DYahA2L=XUfUvjzjM9AxUtwEigbM`;~dn@YdmAC8e90mp;z<_$dr*6gx; ztO&Y3w=MAj{AKDhy7D%6HD=QOu&L%lu6>37xPoBl=+V7te;7J;NP(ptH;V9EF4M`L zkec~`ECwg07CZsxHqifq{lWNN@`D!av;9BpKYM)wE?+B4`AeBA%dndi7D1Bz1z0;> zkQQPrb_h4D{dG|18a(LYC*|u+(8rw6+y#ANLcgkxuO?L5?M>a$)8FntJ3&gCdzLk7 z_lpUOw%r#me|X7hpw!8$%4Mzf@Gjd{?eO|FP}!dX!~818SSK37d@-*sbMjQ5TyuO^ ze_m`R$YcQubSYeLI$7wmQ6Q7zP9|pJxr~qBAtmGvv8FVStWjdMOn8S^y8J7_e|FuyTJ85p2C@;F{&wP*8%1d- z?puS5gu5ZHR5t;o&0Nm9lu_cvS0_G6EOs+V`qbOA-53F1tZ_kcj{aFXrZCU|KOw)w z_mD_>QqDR|+ZQ-wkj^IgxrD$3MH27_7|;!KhjhqR0-j{vJ1R%Fkc{3M5jgrLJfCB- zbpiD%f3Lt0MTa3Ny(5_V_Z4)B)O*ajzVDEa*bQhk9U5f%l8AVUk*i9e5>Q{$?wIM* z_JmiabN)}*Qe#z}gVF4-fdQSH}xfkj{HyXCA(#3_BkBEX6~E51CCSKVtnmPc1Yo50l8a&B6n(-)U&86rMy>4v8Q!Z^Zhc`JdRve6j#rxt82E= zfAO4EqgZoQ_#@Mi-Hhlb$0LAaV+OB%h!yA1Q3L)=>P%Wyd=s?>0pcd40v2Kv>FQM5 z$Y<*@%R-1dE0E~`ig`$(w3q1s%y^_I$kinou*SwT$Mt&YLT5A;JV2j zb|^WMWNg0i&E=c3#fNIb+~O`R_2cD3epu$ zTSM%I(-^ZTOp%$syfNI?h(cg~OOhJ?Dz3WbqxuxPS##k80_CF#Sl+lh`tRBf1g$R6`mvcVX z&|N05zxZ{IUGSd}P41-KtL?1aIIimn$cH=h#ouL=6B`LRGArPgeqHbZ>I`7cc*DI+ z^^E4pPr~6t>QL&}J9av0M^f`Mf9RLs)Y`3<8DWT>nw9rD&X}##bRmezIY3yiVDT~F zkS&QpF3!iLnUB`e2h&R38=8`QoQ-M+N6{ha*)t@#XUgkat?Vx?zK|rUu8X-I%?;Ie z8jtvvPwo^xf9X{L<(_x2NrQD@I=L3t#i%*#{Ls}EYcOXEG=fnf+;2!Jf3-^FqPtVx{@Mzt*M8hB=o1q>83j zFGa?-6>rrmB*9WcuC?IyTXp5bj$v}qUvoWWXvP#yIDQu4sGf+OcHLB1Yuj)Av|mO? z^3a!NaW@?)y?uza55@Mjf9i*dRjhH0iltH^EhMyKW*#Srr0K2oT=M|xtl-H{uA|24 zAa8L@aSg+%4{a1DXTz8TMV<9N^QmYW|v ze7L0P8sfG~0hQ{<1(F20ZtC3)IR37faZknNsC}cXqs74Vad3iHe;W!X_ce+$qr7gr zo)+ceCA31n?Xe+|`<9U-?Ye#~?;S#$=nRhhugP-u5m+lno5ep0yN_WrOOuPl?X=q+ zQitunImq@5t*wqZ;E5zps@nK^o#(T6xLTc7lSy$3#=%VcgNCRx4A|EI>xv>>cA~|8 zsC7|8;3zK_)ueEqe+;!8ie*{Qbfs;eByec_qfTBr1xkCp-iR z8=Z;7dbL1T!&4N}YVPy}Gv72tn^(#=Hve_X!kVg+UxzCsHSJuK=> zKaISgEaJ;)+=cc_r8q;iLUi+A3MhK^X1SuMK+M(T_(jn0p0zn;hQ|4FbR^kVo?TEi zKDS7$9ab-+yQ>e{k3SAf5S!X3tK!yPa|kDjH$(T3yg|63HO(~XdFUoe^`yLjIt1iU$0Qotg1{*uo60r5%b7@M0i?lg&MFIN3FBvyK8k(A#clD zMCLU2JJe+F8UpX?OcU{4e1$i?RI!`NoX}#H3wQM+-p6gd=sjZ ze^EPjvW`8)UYU=NG64*^I0H-y+BvShy9b^z#ibQfe^^P(yzhn<`N-#wr{$!aO8`H1 z5A&-Nts8iEU^=$O@61u_9wopbaa%z=uJPfd0~iBm15Eq6W)kxYHF|+vIVKiWI>*+< zeimToCG^eZb0ZQKH7t8D?{sKyLQkRp&#*5s!`N}x`P;g@J{Y%zG&E+9j$wpX&twZK zoftBtcMY|@ zdX5-CW`?K~?>12a_I3y2sMIvPsMTLMQp)k+!ooF0kY9A8zaaTVM@eC_yo zGgeCJ@ab|fEjg}uO?03T@nF1p^w2mTN0ANLE@|H`2>sF3-u+G@C9zovpJJf1G6YER zfB81wLHqFlbc5(ynur_y*H5v(eyL;=%a%(O_Ed(TsW0Kh`=AnKa5))MjK82YhpvMN z1@l3&Ssu5z-7U(vTe}1TOzw}j|~qJB{?MHWlk4xg>OgHYs=HM1~57@~kcYS3ylL8W~qMf4q3gVeZQs0v6ko(0=a#O+d20M-Lxj7?QpK zQIF@ZAp8ji9C7_f&~ny5f}Twms2)vHB?UU)6(HAj|0a{c`(ubWqo0IGtvi1IBiGk0i6OMm%+ z_hWeK(dw+!Y2G3R^xp%*z;65s0X;ICFDB??i6i6d)7cFu3I#o=@-vZfb{8y!i-P#U z|8aErFo+4rRfTJJ%Nakxu_Ii^V)2vPqTlZ1T{$W1a%(6Fzgx_6OaNOxUQhA+$Z8fs z^_7-@Mj)lWR%GCDMcXun!+IF*5r0i-Ws~93PUE&O(78{oFgfOfUU}5k{ZpP>#HCv{ z*herkwY)|ijtVIP`g|v~X^^pPm>etS!=tRX`@aXH=-$ET)$R!h=VS0jep=4v7ZOSL zXiAn>O5;V6dn}^b51ifwijIYtvJB0X<})E=qve50zxb!pa}Uows%sDe9DhMZttfQ~ z@h|du1(4q@=IkF``$O&$gG1;Am*VebjSBM*I*A~O8GN7qb@cBM%R-G=;ZKIgjGm2s zAunDEt7~LNsL$OXIg@1xzJBX_OqKd!>%$11<=oX}nSY6u!h*y}C_F&8hw0m8y$@8= zXvk4S!f_#nDMmG@3=Qd{?|%?QAjpydr8sm!I-{p5l^uS5i_d#}-N%1!z8gkp+7o)h z_ifn#t2SJKKiD|BnhnUsErc)(f5c4CUexkHm}S*=!#Qq;Fhw<-M>(kGPmWQ=Iodmt z6PcAyRg@3G|?c|6d2cfRz z%?s9$NJu_IeKXpl7=k-r*#P#8!hp>jY37CFlD)PmY#gbA_Bz3)g1r{T2)r&>;H$Ry zCaj;#Y=v&3Q${W5JNjm)4($sk z-f*(dvg|`8vV&;}G*uqLElBs`nPsQtGMfWpfn*_3+ATq0N(_$EHwP&RiLNq01ewt3 z_9>*^=wdP7gFAw7kBpX(Bn;8jC=Yh|P}n!F`rnE+$eHQ&)qj_1;(0m$GJs!|6AY@G zkGq2>X}<>Stst%jNrgT$Ofc?jKvyiS{YH>}DFlL3fj-7`n2fW6AdR@ew;Xxt?dbXI zlf9#F58H>z4K{{(vU_~;`qe6sydUlW^7+BZDmb{fnS5Z$%^P`kygPaxk5eb`od~nH zzq=R1-vGlA1b-}zMqTPFlqh%;{MV@J6b0KqZgomHP&=+VJzdB{<%C-?=Fr#Rz0V%C zxl^e~ZbR&lkx#nWjGA?taHCdJ%d=7^T*vN3%b2n{Y9-rzI8)CTXJ`I;lEg7_;|0ey zM+{K$&A9+F!tkhHL1StbN{>+4a+{s)i3;JbIsB4_9_D-Ls*L z5oL3E9?6U$za7B>;$epK*EyHA?@1F&+nu2dOvc+K@&L~sMP{9dOXp$^xyb2cCs>~2 z^8_6+VqkT-rt1%;v&8&gfG>5O?!ukrS;Pl2tbdSq2i~!l1?+|&UnJXhy$uwo?zD23Y{7O=SQQuuCt-)QMe_B{rq zDP8)m^T3?_j21JvcSLcC`1Mc@?Fox6`1bXN{5^UO(N2%Pef#b1$^Nk%(t%|JZ{cH_bvrM3yHq>7igs%oDQ=@!15j=Ztup1ynl%cd<|ZB z()o^U`n^chWb=x&dsm$1i@Jcn6MT;{KP%h?HpdJw&M$Ke-$0_*Hfw!9R_zi7Ys2n* zzHU@gj3MzczfPflH|*n>G5XQCHDayWJEP_^w0@Oy@;acK^5il(so*y)v33PTl_O(t zX+hi~svrryH={`@IsL)9x_|Ushuh)jL-KcZKT#(8J6s}KUE+FeiGK`KEVSbBwR^NA z1$5Cen-wjTF6Dy+KKjK&_jR;4y5&UTvlKdBfukSt-kx4xRo1cHyBqJ+H$Jg!# zO=&|+y;+uK@Fj;H+^P{3$eW#`q-^Go1L1{*bTSV>O+G%^SN&KUjDIaQtcb1<2zsb> zMz`|IDZ+Qqz>tsaJmNh!*wmG%9d)bH3)Z0uIf&x5#KAe(jo-ef4rk-v9)^zj^v|OK z*oH_)x=#gexWv$TAAQJey!3CV#?B`HVV@^5KpFTLyr}v}w|;AE+>NinN01}vQ}8Z+ zMG+jG@|y02;eCb&et&nN0k!!?bzRI+Le@j;Ag}qDq(5V#faJ3=(B3x5;NY z8iAM#u%n}t7$zQcb;Y@Qgp7!pofMZ>SiARQSDony%CmC(lq)bIJu7mGGKC@8+BUq?41bt*?B6Cp?%+UHOfL%` zD1YsPCv(2N;?DTC6UTG4wgE{T5hi55Z?(E9Nw{cQt0r>Elz4RE3z5X3VlXSUbX z0>+CYu1j=y%iN3v^ERK>@)Jb1bt*K(e9CJ^0Hgkd{C~+keO`UUYbisTB2fioSO^xD z*QO@26}8XDmQ;XR<&Lw|YC()zRhtL~iK$RDQgQwSiepjuqk-obJ)wI}Vb31mYQ3%F zNqUe-WUj$=yufQu#n=$;#|?|| zdXWRsacSaK^d;E##X*+qMh?O|NxL=P9D=9E;S3o|(i=NiY>h20(5YJGvxowN4_lK4UhyrYnLLGgY7_ z6H#A-8ZM`G91vz?c|vn(RoZZkqYR$A6M#9sHaZ_QY?)fS%-~p+WR=RcDKWu)Ja0}# z#i3TM5v=I|pRa*)NIJm-6auY;hQ~_*&18X(D zicHeOXgNweRvE~gUH}p4Asfs(E6*3R+>h|tJeuO9CoqPp7^xVPeiC{3mtHvK9{gw!G=w`X_tG+T2JD`wTPu2Ty@%0%^D&?+#@s$A1AG zD95xt-ptL?Y}i_2rD~-y(?l$CI)9nlAKdDOamRNku0W~o_~~6 zvI6;L_G%7inPGl@XuyF}=+Qp*mcU{cxD5hgfRICa=YJbSIDsW9 z=YkB+!ZW9!$Pn*>q6IuR%_Xrq#$n8h8a3g=~Ai29cSjEA4>9$t0<<=gQj$YMs#zk)2E%5`D3Fbhd( zV5ZQK0gOR?u>auUr_a)VN%;{w0)bO2Sk|_dNJ)OSPi% zNYJ(}cN`jY9StfZ76CSXJ;{}~ib}#g6o?Mj)UZ9A5YWfiqQi}b>$bWc_w+sbR|8+M z$%iq}EJZX1)vweGn}1J0XJtK?U4*Yg=B&|kyg-BoMHEb&$;HRNQkjt@Xjw(V3M4yj z@bujpVh)?wDy01Y)s#8Co%S-VRiL2|I>~3U(FNLTT})X^k$jgnpcW!vH+4ql0r0Z1 zL&6P_UgzAQDb;T6Rgxf~ZW>B%MoJ@$IC-if`?v5Jt{9Un5`QQ;2V76tj^eg9h7_w_ zm`qXi3z(1M*$lZ7WpH@7J1Vm&iJTZUvdo*@x&UzvGX<<+^j*V%8L^<6beg0Is=)9t z6E-#3DBz>b^GbcFxjmm^v|mCK2ZtRW<@NCe)HDO76(nOFK?!^%0nT4A;2P)>!4l(n zCjSVm67w3)rhmvHI&%av)dck+xtR#*bC1;~xj^7GN)dQ8eh-&+M(@#d!%gI#pitri zFb1M!#a(@*TixvE z$J4-dS%)Hdue)Rhr6rMj%chgE!cB6Vo+yck_z3*yq)fOh$p;Bq=t9tY305tbw-^wq z3ns#)fqFd}Bv8PcIiu8&nxaXq;ogLkuJr zDap!eq|iyOSfJOfN#4sI6E_oID@&V|be27aXd-8QY*+9t!4i>4D@KCt0F1zOQ4m|0 z1+JE=4%#2&-Zm%4Z@qn&OG|reH7^-ZtAC@<$U@ZF&HDh4(Um;IxO!Fd*_LjYvs`Eji?h%vB(q^aH zQnh|o^5pnP_JDoz+N)Eqzz1CDX_NYf#cS}jc|X|^Cv79z*zE-rg(If#!THV@iGTFm zv*x9C>hFtj(f$ScUUQGNOz|5*yy2!x zw=+2gloPy|C#Z-K%JABe(W$iFdy%>Ws*2SF4Qz_;&S19YKo2Mgd1WDU~wp z;~$}9+T)%U{jZSzuaN$)kp8cbUVjIL{}s~zoU@_?QD?>;jiX6<98z%%%9zh%Dk}6DOdMz|n0&F7ub#4Z zpvTxzjt<`OK$x?Gpgg&KC)xztsZRk>yyB5-A&z)1Mt^dfXTp}1@HCQ@sDCi)>{?^| z#7RiRg>*a)-EFN;6_YeSx|laUMmb*-3E6Caf>cq<4U$J-R;oiI>*=f%7)Pv;zXPkw z=FCv%3|H!<++OsKtk;>vM}3dQbcaN|=;CKRQaJc4)rXbBt4my(6Qy~QtY>B8zQOJ4 zPWlEHIO-q;K#>jL-bS4yQ-A!VSrtZd$I8jiM&U7O1k6>OQ=(E)@H1CmoS&mc2Dm3t z0Q7OyvOs}VagpOa9=o{f@i3F6!Or4>ArH;pUGfUjYFw%dnOe}K_7qalX;E0}c8-if z3T?&1;ak3%`M#X-+6T#9vj16l-N7iy(C!L5QRLh?OjmhPPZu&5`hV<3`$uBQQc^gt zctFC7a__F0!9@;Ei{qSE!A);HwrF1&xVt0le;6GJ`Ez3Bj@m2D9_+dfRHHtiBw9s$s3Hwy8Z)a*q{hWh5! z#*jrGe#c?N&_h*yUFvN>+K7m8$bW-~{t0r}i zy(RmpEG8Bj7U%5vmuc5|R!xhXd{@-dO+S}2b^Yuf*nT!CE`MqnR^@-q93e)3;tj@* zP&t6~73s4c1wQ^&0dtg11B8yv2RW0oiEbV$>XXS7pISZ<8>9;)I*VB}zUUB`fjp}W z-1Z$n7zC>uV(Jc*xi630D4D=2yvARx^tywPKImHqbxm~q(`+9W(jO__s*R=o-b~E zbH8OBmU%N9Q5W%!7FBMEjgeiWqkywl+~az}j5j-rp}ctRu3@B9tLrP8F*@1^elKg{ zQQi&*0Lb&kwbGu|ngwax_cUxWJd%!{A=iVDgo!9f0)N=2A{a|}?snIaF{=g1z{fCU z#VnOE^1B@1Be9DK9>q(i*CMo*F97lia){Sa)LuJlxmFy7}Iv?=`7sO9v(arqJb4NrsQUd_IFc- zFQ*D$Nfo|&RU-4a`fDi|ucr#%NEN=BD%`xY8V;K&I>6*4OJ81hmq`*oLS{CqLz>_9 z*nbOM_*{Bha!oZre#6M8uY`()UKU038mk{KgI*`8igo^E zx>~g^4Klr}tfs~#09c)^v(|Pe0MoRMxoUjZwg_|)V+AcsbS;WpBDZw_)>s~CNu;wmdRSr41ezirf4=JL-`y8w78R;XMCAhpHuo2cuTf1 zDSsBQIlVBe^-%|q3?BusVLNn!sr};udCM-gWB~C~QI)eZc{>`Zm!$5n8$J8!TQ7Y# zs4>Wpw`*V#v>|OVpU8{vp{i*_DR~e}j{HO^QZuA?-Y@eRF;Zq9Wk^&3eKR1i2!Bp3 zHhs2UtEGOd7dcyM<~~v4cyRjsN4g;W$sD+4BH3nv4Pen?n3Q9&NurgZzNpxmqWe9m zFQFw&`W?w#x5OMOlO2v6v*QBzkKWvX+XpE~G)3cam)g04QF;HNJGj_*`4zW;k1YnhIa0!0+x^)nX*G*^w4N1IirQdH3V!5l2JqLZoYRetQ zN>hf_I`pQo(J0Wimbf)Aj4M6;_L=v>B`K4)IwPehV^Qi!B0~{F;oBidhkw+!G_llR zNe`N`$Xhykk}!5CjBk}%c2rNEXiSwf&6uQ1i6+7LqDR(Qm2yiql3dVw1TeW0aYKxg=ILGkaxi)nkzm3=XrNALA&&B)!)8Xq3% zJyp_~zUL(;m!u6r#uZvsw14A1SAt%HRA@EzT?~a~uXXFUR@uJpcjd2`MP3a2ez<-Y_2krO_LyiB! z);2YXw;#DHa0!A#saCZLTeLXVL$3uG-pK4wrhfSg@yW0Rfll(1D$i^5=u{j?jV2w2 zuIm*)l@^NqRd-yU7nAwvQ%`ZX#%JXNRsAA}>O=p9g9AX_4gb9yZrZ=lfzf(CQj3~; zel-v`dO-a0si%4a{C^Sw_7Y8^H@-)*wTaxJ)M#CS@C`?N3Bu*^t^Jnw*BiJu?_dnr z0;oNktO4)e!GGaDucnU7#*Z*$Cj);8qlvW?+QoSwc`(dp@jF5`gP_}wuC=_2hxPOFARXUx5KI$1UVwP z6e_*tm*Qa)S->B{dD<__InHz+5(tZrA18o(xhjwa0#U2YAsDf1{IFlnBb&`AKsNX@ zbA#m$75qa4-hX#`8?>wo`ie}_K>5k=SWiSOV{#6SWa3@QpAD9&#=x}_B(BdrD*7;_^1ff>22QVFq>IoGDLjCM^(ZJZ?;1>6p|~st5xEZ-6pZE%|H=Fl5?MW z1c`39$A5qNg!wm7g8%r1n=tEm6&CDG zsT3VOdXBb3=dQ1fwxF+~kX~0M?c1fQhWZrBjg{5DC|j6UATR&F!RlLO@%K`Gmv<=%h5S=O4L?XV8x#2{Tz$(HF!J~R zWKL2MXBvD6^;Mp^jv9S1{y^UFfvr*+7(hGK$p!i~)NW`~dOp=?5}$b67zlgXUeG(@ z{9-=m3v9Qxzveo_;QwsB2>8)?J@y@>)_*X6c`BHlR*pq$Mc}j=nqhJ10r*igXQDow zL4P(Wq+gj_pt6EJ5V+k5vhT7C7(C8e!A~89U zb)>A-u_bsRQp5>R=;E-LT@-V9!G={Tac(5v+oQaqsPBWF-640ZxqtFH2Veuby?-30 zAoROM3@!7NChRbJ$16IQUK6UZK5|M{5{<9y=QD9Br4H4>l!uqWqsk%<^keZ#BSGC- zpe#x}2GZ&dJDpin<$hwd$1l<zuArTB%L!sBy zy;ppJ37mN!1{WC5M;(Tgz1mhEf{&y$3tGKsS^;j-=v_iz z-0S8)m;6q**7)~&t0v=#Jlo-ru=I7$Exf={-y;~ zFPn_y`c=|l1Ems8CU6_bo@x4e%qpM!_9mOF#PeMgm4sD6 zFB|KAuK9~66^Jp`RE_~)wSYeWP<>V;{(O|Z*go~<4U(U*7W&XxG6@O`DQ3oJI-kpD z^Dr9kyQ+sTwV+5w+!())3cZ~!+i*}$6xG!LyvzYiU<-^Nme3- zrzJg8(}j`LlOF(56~Fr=uqFPEUV7_8_U}uWi@_$#bQyb%zTy)rof<3GUriEgngVe8v0@^1KOkQ{^Apw0X!<_$j2SaV5 ze+sjObCgCEQh#fsD|kZtyL2hYFsXR5pepE_!gUK&L_q6k8*w;n1oX^ys7Z-%6cRNa z!whn_{3}&uVX7=rRkG=vb1rmze1v%>+BMjm6p!+XVSK&$Z5!jh&7x6gL%t6*V$hm( zo%yy6&VBkVF$RUHYdeN%zCi$rKx{RzY=i1=8mHI=-;q|udJ}K3-Vr39ZmC3%R2Or2FZqxYIs%5xXM5wcMDiI?2jyr zQhQ%@l-f{6X{XtWjrA0`_3@Y?j>qea&AJM^(7D*LN?HT59ka-w<4`mnT^<>nSGcB0U7_!x;7p7XT23}PAWJca*Zs} zuBBfugQI3BAU@R#_PxK4D*ObL;H7GCLZ%aeSSEF7JC@D2`L-`oB^1my{Ta1sZe`VJ zA%Ajr%d{RYwC<}FKK9VAp-gJC#h<0DwWb1EFQ?;jwI+lIH0axO5j9=>8?>1}b)QY! z`oi4DDD6R7+VJe-v58qACLYcpEOs%|iei!1IlC8V#K_+7gu@8&JzZzjLrrTan8qRC z`mc1ZaH&r8vyvmUuV4eIQ(D5jfI=U7+#ziij4Ht`6K?M7Aa*DH_G>M0Awr`=O?8{Z)Q*O-pGIwn=K$` z*0abqlZHli`fEFii$bR@(f+GHt$%@76cK~)b^ubod)g};Gsfk6-N6+~xB4xZc{Q+t@2(somFwb|JG%O zmP>d#T@72jMR*<1F!eYBXOW}RLELua)}9@|u(1XXp!LOf6pm!$u75d^7r6D+p~U2!%$X>cIr@< z?Yj%Cu-_{*-Sm~uw2GC7THX?hF|$Sbr_lshXADlx#^cvW#^gIPk(aTkRC8mjAtcW( zG^U2GG`NreH)UIe)NpQ(ozuL9H=E~kx_KhF-dmuI;&71I_kXZPd(TUW3^^Z4IDDQ{ zlb`CMPFMo$sjcVvFip}pj74l|H>hJ^Ps(+5g?x(m@KO_ zZslxUTHn8h>|I}PGFE7$uW@{=uAVJC&HGsDR{+<@UuX=JR*Q%O)*EyZTVwCzE& zt1`Cpxa~*O+XRilFu3hV9&lr7lpr8*XtzQR0rpqZL-4p3LBL3OOWeVrEHQ3J=$cF3 zCqrBVQgY_Uw5AV(K$AC3&|d><5hl5zh*v7=N z;UG5hoaRV!-S2$-u_Hhky`t17qyU1O^o)12G})6mV7{Zxll;_?;NuoKsw1#?((?)D zjJ}%k(BTyRH?7B$JcmVaz8Gj=im}wL$0D@j-oI^XDVMf!(5I|HLi6=cN@W!ytt5ns zdr`la_UrF<*Pr_0dZ+qFj3qCT3>wHKL6>TXxUo(nyS6(a4IIgvzdPv`(W;q^=! z*i|u6RsVIaPd(>@t+;m|e(?V87fy}`OITlaEq^H+&RS5dZN0$Gi6)e0q3)-<8$Mt#@|!KmB;;llwIA7<1s_ z_++9otG9cjz)kz<&5|BEF$a=&;KuWJ?t<5j^gCPvoPG)SEvpN{dYLcjG7yWUAQmo| z@qf_VE-k>~zJe%(gP#?L6q&7^ic`s$W{K*WUJ!c2h^RP#9XkBey)U zYj+(@DtmR(R`YJNtEyjME4X=go|i)?1e^9*0P$=$FSU&DUbEtX=pc%s-z7%}K#Mww`)^J0E6 z$#DWHXIBY&CvQp^9iiW#%qvdrMVT(D9Y5>rcKf!CN#~v8e*)+4rIXF>-+jR@`hgWU z@J>G;8qifzl#{8+WZA5}EDNve+qR+_+0zJiGtnv4m&vvGMac?6Y^nW`vN?WjmVXzi z7+2N@+4JqHnB2bUa<%@EU#~vaDlFUP8ht6nZSl&07HL3>l>yPiw@2tOrx4TM8FZv` zuFzNb-eyHKt(JG1Q%DcRIIgyM<9W!;_{XTZz9F?{E1_a?e0~KlEzNw3u|NV`xx$rgh z3uq4uYAH3H4h*`NF>e?eyucz6S`9=vP6lS;T2J0z42dMo0g3MB1`DCB3xBcb4JM66 z??HId?O?PZ*kV>%u_)@4A%TiQ(iP#Lq*G>gFA5ysGc!V^8r4QoA&NP@3P%h1Y?aN$ zi>t-U3HR~#y4h=xTolDD>#wbhwlK&BBjU|Tr5w>n$B&^;UmhF`5Sg@51^z4X`j2$B=c zzGz|FhiUJk8p$?VUBSmSgQvu+Jbqxmm*pV=5{P#=>hyZ%tk3j~Lwisu>G7Uku(mtn z0>@@?iJCsir}>=oa*W4gz1)K>FR!WCVG5SF)v6ug5yPKhe&^I7b$C-XkoEA(+MaAE^nbS-$hFfk8=Chjs zBmTtFi_=x^` z!Mg9VEwHvD5e8Dg4swkJ7=7g-Mr|~Mfb|zOd)tHW>Z1}D1zU{f<)pl&)uIVQWX;%M ztKGX*xWcZ_(6_?Re;qpq+>DgG1~YGL02rZzPtBB1eDn|eU*KS4(9^cXv2BPW(Gr32 zad8ZN;}*U-=6^77x44ohOV%x}q>byXBqB(>n&Qw`lYEZ8HgF5dATf_LCoVt6MI@PU zd7|)RUUPKn5f#fu@PP)cJpqZIR~+JAZ1m%?NfALi3NPAxR$o*;RPKJhLCX>P=UC%K zjT;b~`={9qnh>Ir*EkjdbC_$YtgG0lIR9(7THzYc6%NJ-w6?Y`fIDG z?>`1g4Tewi;Ht-hNP@`gBbb zp9rj|Tuzy}YA0g-igil_o$Eu!cYaN$7`vp0ha9*+TI>>nTb3>N`tHS?SFQxzCyWV> z$^}V1B*Nj!>&ZILoo)-J45#SkV!)31Necw${(l`3!BR~&v%aDsUf?}a-94FgZoArY zfANBk4S$?BBfFTF7{?EPE-+&ozlKWZirK~Ey-l9{b6Ne6SF++|qgB_``pO(vDU;%X z^x1k3wx(a!MyvXY`r_*v8`aemsPGwBl_t=kDYYV4A5UXGgOK)Af6@3=~VO|#mE6P?O*XsRbOF{uF%9_37EuG^Ly9B~>9 z=oYWY7BHk4IJ6AC&grLX@4;vH_aJ?)Y{J;Plre5x9h?qfg~%6trVFfe55N0xj%)I5 zZS>63mjdn{(X3WV@nb4}euZ>7g~^|aGc*qj=ldvEHZ)2y-Q53L^Am8`vVSgr<3GDS zsLfkPPABb*tI8cf^J##N>-CVzwM%AmK8??EO(&-}SKloRZCC@fxUnB0VX`N$%r)&L z0q1!Vf^a3BZNY|ibwy?^tR{for5YRMcc zS0mjjuOJXvpr;wGSV*FXqNXlD?&4>5P#U2}SJ7HPe&iL&Qk?RF zAxn~AP;J#1taX^_Ze*0F<> zdnA@lO8m@ATa!PQ6@O}bW8S#ClJ5J%c$7E)DO{G!p*xca8T1Eu=$TH&dzag z-9P+rWT1HCyh6A?L;fTn^&nJ{qx6{FsXZxABn{tWLaec+5u!o?w6`V}a@?n^Lk%22 z^CNlxLZ4kBu6!FLQkhZ_$dX74rDqnKckl3uj`~?OSt>#5MSr34yqiF3?wRF{b~R;9 zt(a3jMtB={QqHfYCG^oEWec?&$=0 z9qz1h*!yd`EFGidK}hChwkkrb6p+#wMsms~u=5qL-DmhSHAr14#K2Z^`?AZwvF`z4 zI0m;66CKJ}j(=%#%t=yj3SEe;E`??+E8v}tqO3r0gQKbmJ z6J=7&(rMX^=Vs*Ex^C?4$pvy=;v;4l1Tdo3+wP9N#PCyEewTd*hJ!h}2oIu;-3#Cq zj_#W;wSNJIEW3^^oWhc~dQlfNWx}?CyfT>?4i?26%)Kl7%2>2zGE9xFU^X%RBpaBP zq&F|q>w^ll9=9DmUL(3$4qn#=LLn{T%8Zc~zO@|@QL#|KjJu>>lXJIr5)YmMz`{Q{ z$t#}*kHa_I^HBJ>VM)hWs^K<9f)vf0A%Fw#?tfg?ydn|H6loR9lUQJ+t|9ncC}%z= zn`1t!f$=eRVupDKD$>({CrKAO*x7S+G0(eAnbt0L00N#1vJ2R^s#X|Tv6H|Wxi~ZR z21n)4y+1|Mg|{BL!CpBjjthU=m(QvKK@cL1*vgP?hAI;QgZn%0wJdO4$Unh=3{XPV)6eVsCO);15T82;M zTwY%_2QJ$2>8Aay!omB z{|^2C?yGyBJ{-9ZclP(BT|FeDICMvv7kOL+-WJ$VR@EB46x}O8E6lps+pqz2@Huix9m_}#A^Ai#Y zJL|oB_dexC`yS0`UdtEyJz-whzkq>fGsFpOQghI4GU}5eoN@DPKF^MRV2V)5qy2}E zKz=yzY;Skt?rUs7m7*Q$$$d~(#X2h{B963! znC3S!peCR_r5023z0+*Ux`|d*y;_T`a-D`dDfP}T`u?>oq0pqZNW-hkCa0ie6ID10 zSsO$%<@_@vOZ@t;y!A}&PLIJD5}GIVe;T)>VBSQ z=YW#b^gq$DWCFj7V?KubOvNl-*;tSOV!G5Kv>Nk#2^hXx!}5dBbaWRa>=agO;H0p& z=jGB5)qRL?xJ2&QP%a$Nrh`<(rnqe|vj#BdqzCO4 zXRY}`w=LF@217gPRG5N**NO5XK%Bnx>oC=X6zHH0`v5QoW5qy;IDhO0!}M*Js{2{0 zA?l^cCe1^=D$%g^T4OS(Bdhd(uy>@*t<PkiZgN%P~v`7z%Bn9Is3pU>L61 zHk)>NX|`k&ATZ?{{~H}vv|4);CvCYq@3n~!S(as4mSx#eMZ-DvscwBY8kV`{J&j;b z6)hE^M|e~z?%rE14u2M#_2!oVW(It_3C1F=zQO($jS4(3yQy%}pRpOZ1)}gYtxB04GOkJX=Y}W~tw}02v>eDVE=#XUN;&ref z1*GTdj*29gZOJ&!7%pnW~oAyqUq< zMI6J+fumy}1AkF<6;~HNLwvQJZZV`z5pxau7qjVj4>TWs0lvF`+~-eyb^`1}k^PTh zul3#8V1IC!dimhEQ!fBPFb@wOFB|Z>^;I!s5_&^c7na8c;*FFrc(_`;>gr`PEm>v*VT~_soez2>*z^ zF*#D;x^&%0^#i2tA$1&Z972yUO#neazQ1xn`G%1aB+LLzWS+1-r3nx06p+t6n7tla zr+VHzS}9>jz{Gz@j0YANr-uiv;$mBA5hE@(l^5HHi%Gn+n5-5So6CxgL`A!#XcZJ~ za^lWnVxt)wp0I1@>%&jiN!x7Y$r^VeuLqB0V$Yr|-z=uX+z|-LB(K1EcLo{kygMR0 zK3gu>eDUiuhiC7doDOblrunxTKk_P+SDKyJDuhk$J2-#B*#+B4v}wenoYWCOV=J3q z1YJhyFuSPNqd{`78ObeiIcLZ~!!O6V9EYH>r<5{P(&g`P95YV})AaJj+$1^LdBo1c z(mxBu9n}ArO&74?2AqaM-wSt3%SPrT2y_%u%>*q0g$85B`-2=p|CBeg+?kyBiz&E= zPI57iUKM{goWTMynUQ@{dExA0d%eSWYnmAYERu z|5JH=&ezYKa*qd17&$7NsY`H)uI6qSDkaeA{=xA{0>{dqRpyx~b|W9|1zE>uC3)aD z0|bFM(*?i)CUUeCuf-($F)PMo02dnWEiriv=V5=BY}x~3Iyd~1{b6>ZE;u%tXeF7w zHINA$I=}Ej=fkp?y!06#$R3r*+~@@LGcXbkSZD8r7ig68I^Yow&4>ykqhW>Yyqs&b zCCkB8N?W#HZ~JHrOhQe_At3Xw^dD!~m}5^_1S;6nLYv750mzX+R!qr-3%yIqscGo! zx_p1KT|-zg1RdX$uRwF*Y$BFMW{v{>u?2s!s2^Ov@#Gpes+T$VzCaDWBb^Vqs>m64 zj0DN^N(Aw%eL3=(c_ zgh9nnrvX=wAW5W9%}%g;9h$H5es?=Aqmd$mY1+a!UI%}UY(L}$&;YdUQX@|&FF zDDZrDXIAA%h8&W+Pk_-UFV83Rm#%+r;!7iQ^3A=_Yw)N+JdQGttg+&w+jG-HW0oQ%ug?^|(R$Xa2N?)j&=uOlgs|!gM(pd$B zi1K=X_WZI>B}5KMYnfcf(`HS3Sc!B%*Cdn^v@)iJN>EkUNP(0ZL=p5>8-Rbe;Z^q2 zlcgWT9Z_Rau(GO3Ius|Z5@Dh>QV8nYBoTX#$wJ*17-339}Fyb*Na8Blr&JpF$VM<`5V1o(wO*c>z z;l5@=TPqkMItoAZcu+YYby>~9SkbX zOYZ~FyUTq3BNdtE?&@trXJjw0e3D-;l2M&2rh!3hl$F=&M+FkqfPKGY^@xuS5JRqQ z+h`vr=>jOFlv9C}Z@X)ct7OY;P5%fdL2urlE=0$ig9KpuE zgZ)#spocvOciq>J-w1z)!~*C*)NBG82y_@$A+mp<7P&++87|=Xs<F0vU^@q*yuXE_>#(RmxXBXG zQXP#b?bS1=&gPPEZQiME(j(q8YM)xc>Tqua*B^6{jOP&Pp~@F6J;A{9$my(e$F#^w zC6#e?Mc4B+Zklduc^woxuVEI36p^q@Dre1_idvYfT4;X+au~i-dE(mewH?wgwGoc? zK7kp-x<^Z+ykxpH>bAXYOJdcZdG!!kYnL_sWnF#`@(W~n5!wWd6@C%jS>*&!#S6I9 zq{u`GNM)YoB+{34Tp~+!PIZXz2^u%VazA;?mD@urvD~ETkXs~v?j*g$iRopUM94yy z5gtz#!Z?3{FE5?Yt~qqNmWqinF66^vR!%*<3$;;KSz&fI~F$ z96-|mC*h|rh{5nvQIU9Nwyh6`Ah;Ir;r@GrBZltq7WixOon_rzjKVoIeAvt45Nm`ieX#nVgu zq~u#il!R<5$Rx?p$;Tg`e6h@g?BlaDpa-PvQpzp;W*%T?6G5zI-x6Mcq8{@qGM1g# zR}?dp6Cg3jEB%vC4* zr<{s&uOmYBgx)n3r<+?VsrpD~UtFnl2+dI*fKZOZP1-uLMiza zuQj1}qsbJJz}fQ66cMW<7ZJCOfK=oHE@FI0bnC)bPI>P*fq~-n)kLA?O5Q7(?P8oI z8htb?nm2D1TAR2>P>hmw#$Zs|q=A3suM0Fwt)^(50Z-dX> z$wIfcvfLq_m*H_)*FmfoT0T9)7);hU@5 z!>tRi^-m{Qo(2mA?eo*T#VLQYRt^uK*u+dS5(ffTTNIo4SC$NC5*KUIi%AIKuP3|_ zNWgI+ZERN)Gf-w<$MFOnEi>O6pzptaf4}kF)6Z8$l+(gCu3Y~$`2T1pu>&nTjk?a; z7d5t}{XGc_=fC9G9;t`@Ir0h^x^T<*&3v{DjX|g4lZ&O>XS2&0G&Fx?tFPF%hobi< zKeFNvYEI=(LL_w5q|;e>yX#u}7w^@E(Q1mX$i?XJjsWkueroTs_o*$B4F(LHRr@Np2d zW*YO(bF`R+C#NS}Tbahoqlwv`cM&(O}G#5WZHOmwigwZOIulA=c{K{=fAk~jqUw+@11<|$^PSmRw{%& z-C2Q<@l4lIJe7YH`MU-_u%N4n$Z4)Ar>J@%?bJ3>>lS^nYANZwDZbhCrekTIF~!t7 z|0Lo7j*A5PB-c*hZ1{q$lTZirHs`3MIr`v=_=(2IhNa{Coy5ZjjM9m?N?OsCBroz=uLb9&H*X5KXX2G?q$mv-BZ3X$>jUg?hE0=FIFrj00FfPuf)+iT zM0hRih;Dqf57QNBed^W9T0VKZP#@@1!XQceBWV1Z_+%N76#7I9)a<7+c@78zYx6_` zM!CuiZA5=2KGsHsgGdK-gjr_M@O6t3cM#}#jG~dTk#46(>7p#w8ELg5N0?!F<&oE! z;o%DzIN=qgPah+2Vf=+lHo}z-`yskJyI9j5iAcz2-(V}Av1bmrId_)ozOTEs>q$Zs z!6$7Fq%|L{EqJQCy0jP1k=#?yEtAlPFGJOD&;{sU~S}C4M!w zd z<&pHecFNLe`wm$+QP@w0>$zEGoaO5Fa#6Zey@DuG!OT`IN-&}6qvY}Dkxx2F3ZtdD zOHF^Oj*w=D^eN3uIP(M+s8%ziUtFfC44zj&C#3tNC2r+oZ>=)6r8Fdfc=w`yGunUJ%UR*Ud`;X&N2_1c{$ES`UrYP1YH6O* zArTzS!r|vfpXi)5B+h;5OFNIYRG41*duUAi_oE^0|F03PVPu_b>sVS# zMrlE|it0bX>_1oY!L|dM4<Uq&@;So^%S^faRaA6_7 zUWC^x5IL}x$Sj+0VXSeJU6NPZ3T8)ALfYQo+@HXQPWw?wXh-P%X`WA#O^$H#wzJ{6{vKB1T<<{AnV6C{R7R>$M%PLizd@+nkF zw(c^B4(;$mbs113=x(rw0X8G1#{t0V8^e7XGD@U2}h#loGb98^%w#y5u zEq#8VE;EYhsxC7g+UMJdb$6>Z7u`tjZ_TwqD9vhD5eSM%Y1T2)XDf-hDgl2KaaE@H zJkCy0OgTxHc5LAPr5znUw_Msc+bsSK-2(5hpQ~5mSgdxVv{ogE*_9w%(`ukVtYYA> z+(0kD3hjD9J4W}S8B~mIxPb^9Ljn{FM`;E)c@+&3pKJPj530ek#}CzKQ4L!AjA&?& z*Z288bb|*TXF_q+I5QgY<9vTYVJo-ob4j(O(+|{VMlo&gv!X$rUfbt)!EC%eZ=XYL z>G6Z{HlmoW;%!AkhgqcXJ?cdod01VM!+}sk{w<&qfQ^2`Llhe@*w>?q5$gP=5CbbJ zTyzwR6uwFcQ7IJn^M&?P1Mo}KC-~|`g2F}^5Vm9VlPERnZf7WQBawe$DC3xcFb64I zsvezq1BJ`prICI$?e~&=o5WaFDC&v>xz@N+FC42pSSDL*V+kABee=53(BR|)i5C)s z|Kn{oYW1#Q$j7HUX+%>hq{4W#X-aV&IhowCALV4jUYvmxy0{7zX&1ktFfAMOaWuMX zCr6{dpqCuxMW>?12XBApRW7jAT;r;%=UVN?ufaC*?yjlhUEx)kbRSEiTMc0A?TKHG zs~Zj>m`&J$|Q_+8-5^U-`PLpAE>eW12pXeWPLiWjlGrU;nQ97zP< zR`(|XQ)FKdjNYoYbj_a%8**sC&n2fwseVvNVXOV|IF#u#nHq3_+fEMGy0gUa0l-;h znep=4RRsp73o$W}A77pG{EE>7cXHUK8xUIUaUamx3gbR}TEdvaOEboxZM6Z0g>^*VDWTkGxNfRYn22i#)yB!^%%r=S+Ou8L(El~m{rTc z+H&RE`h3APtL5A(S9>OcgF#l38vwAuS%WLyw%)CqLxabqpcb4%?FcR_ZoFmmpV>%T z+NjT|!5!yRt*8E+Vx&-!tmCCK$jzZBihjzkb{z1d9UD^BRNh!dt$b|c&!MvIK#0 zuE$b&Q)~lx>drChmA8s-feb=W)yD+b5)cCGmKk*}# zfG~e{ukfU>&`e7IXGl}1{hw{_!sh;BbE_LLF=9OR*B;pnjNZ*b%Q3Qe{|hHi@I0(P z`0VuY@#FWu`}E}a@xWHg#xvXA!pr}z0eXKtD`xXyPN3i2KRxkS%27)hq)wn+Adn^c zpcEp>cOnsk5)x_N!sab%d4@ciyajQf5|MwV&aAb}NV?Q8fD#S)PNOQ*PUbp^d%(pwvpwL{$` zyMFER9Ej+hM(9$6MbdaXS=H3-5V-skLs2mNuaG3VC}AX9VT6^@Wc6Syz7w(Vynm<&U{oV!EqvL163AofKoY*S?Eb zf_tNXKW^c&=1!~Eemyr*uK;eb2OJ;d;)1eWr0z{Fbh*9gCU295PS)3T{Zl z)j?aO#%h;TrbKK{mSW{QHWGgtP7pf%*e@odvYR~b3O#S74A=0DLx9-K0t8zmf9o_s zcj{CCO6rRqb^7#-EZBr{Tr_IOWTcuT>h@6xeW#r`yQ#7Geqiani3FFDj2`NNe*2he z?3$4xoV27tw+`D1_x984wa?xpN%X$5S@di*pQbzty|qHqNtn%L=kqLM)!Xf0G@1g8nIjVpAbetIh-AqfjgI_Yf|e?~53}Oq8IJqTWHQ z$_t$$enpuJeokPz_=SIBCJmR|QjBP2qr9Qo20N#%rdWjd_$z4hCx{ilVPCNDYzN7r zKJ&x80_A$aucwOZ#{6M~4KVxPM8-7B0%o$D`AA4kpi-Ru>jvtKyNS@F+cT|78jv-@ z3bw2nV-DM9hz5V#AsTEmM1#8y(O~N#8a&VtEnPJJjxG=K6s3RPw#(VfX+SDf{`ODL zLVNWkT56=Vx(t$b){=O9IVq?7&bs0}ELpD3GVtzlb~%Mu!9berS-h3Q9p<8D96rvi zBTEuKi99y~UI5u`y`99@iOmQCnM?@%&RT9f%`c0}y?T}}VMRXjN0jqV5(TD=m+@+f zWk}CYMk^vAqxgTM&M8{SURtVU7{at3)cXBxKE>I!r=r1!L2r`=e!u#U(1OyyPcwVO z>C5=w~|hgRhlshCQXS>^wMKqIM-DYy)P-=iNSlHLr#B=gI3a!YMoRe=svlI z0bOaI_Ah~f;e*0rjHq4ikKe2<+6GLuWu-T_EJ!r-c6~s$2$Mtl)y&(CB^46@8w?Tq zb4YD~KA?w9yO;-_O)nuH@VEEvZt|i_UAWYRN&Us8{z9p}izhJ6AM7Gn636}JS z=zTLp@5>Oqzix<#3NS(dAcfK?R80}16w$$N_^E#}Li8fNJVmS_%De}En^Y$!GjPch z>M$dx$-*TqT+$*36)k<1O>n8+Z8>A zI5y)vDM#3?SxHGC=C8^LUMm{&-DKNpHom#a0QNOpGwEj_(|2*``@bNiff|;)kMWtJ zJh^``ZBlrU3Q0Vah$8 z^Mw!N1*V-gr#2THK2W(`8m=qRa*FI)zp}m@v5J!5`5|{SwDq z;<&8@-~lBN9dB{`B+sh(R2fgCv^+~E(L!$;A}|9trq6C}?g89BZGL^Gi(u7!cJnR1cKon=pQjX_1T5ljeEc$OpAW~kPb z18M+V=~b`6a;Ut~YY9PG5Kc%4k2o(u8uMKLRdf$eUM5gYy+{B+(H9L+QT19`EV=cS1HRZ*myWYiWE;hkWx2-kT9Z{i zsxlk2)C@{ghKZpZZb08x`mZN=83(K?n=0vkQsDivn|$h6!;gH*wg;N+ zfs0Zc@u=?S=!NG>mevO2SH8wjVVuaq_KMJUop#S%x_oe7wgzQQE~bA5jki`{;MWs! zgliqRpgFD-0`QF-9w5&U^IZ*W^;HAmZ~E%0*n*xjMtl}ltSw*6BEd@r>4)VAXR!MCY`(vwoUeLwh=o%kq z6>iewD|`ehE8O4Mtb&u8@s$8Ae5QM&@}K8G!(z5rRp+gclwc4-Y=6`hoCn%2H~$ac zJq#bOsq1H|+_}Zo(9XJ$buS3b!ti-x4GgOdu0)X3M88eZ8Wn$XvJTK93}~@2pkIQ3 zSU0VK5jE8rt7Kd(-?y)h=?ZbE7qDz8)v9C>P*T4M`siz(EEjM4(CYbBNKAj@K-Bng zgSz^{Q%(8Y0#M(03N?#t2l7XjAPsnuyd6xs25SLg+LqAV*2{w^=>k=c2Xv6*o4Mlv zgQvAW!uqB4IWd2``#5v)5JgcMz~LnCEqqj%>-F%rf~;<+V5&|6NtPz(Nl#SttgrJV zIoB`ZHQ*zc4>!O~qXg2qG+UeI=N!~owyMn1lqN|GN*+!$$I=KgCQj-eH+eQc#{!}> z6HBZOFsY2NHW;Pfj0~>!9=n0L$CF|HGauhS6YPM{ZdiXxRYQJmia;UNSAqCy+1@ua z5&|x|(p#}59Ra$_HkRAH_W5TBjMVYV=n1HwcK`-=-C1Y>Z+{_8m`3cr$M`&0z-zWp z(#TqIgHUO&5zbPP-gcJVuGQ3n+H}^H1$#+;Sxy(c=ZHY&eNzXJifsY3#po8WtU`~V zBrh$#s7`;vgbAkh`>mAWODo-umht+=WqNecS#Z$R=T2C4KASuN?O8$shMJfR*Rw@a zbBi4ePjkIb4fvt8;0OgaUK5T07OM@nYs8yr#Ze>JRFfmB!TJzA_m-+6hcmy2dDwhm z_PPGVh$)hHFG$@!IncgAYPBHx;opXD`+7&++!xb}5w2*6zn&y7kt1ZN z$a?PIP{VDC=R3q)Z|G8-%X-{el!$8g$bPX5m;^f<2I${F;+D5$JjZ(0h192^y+wBK z{40MP?DMcEU;Ko2Mr=W4!=194^~2NUH&lH|yY}M?gioTm;A$V`gV0+`#RLpVunZ*h z?$ut~{H*paVT;>^N&IXl?R0v0`#tqJ*1lN25q6K|fhBzl$qc0LRPLJe z-Po11(mI~n$!FdEDlFdV{t5PQL1F`~zgB4xsgO67@hw&x2q$muD<~ydSIi(iO0~q& zpjf6WXIC1&N3$YCuHI;=qh`a{MxEv-Ny~ZuOUuV{N<4i}z(D{X?PXuMPma&djz51s z9GvbSKR!GKN13d058BYLx88aS|I+83Uh>Yb)S+=cm;!`+`i!l9%k|R);=DuC6_kHB ztMX^w-9J0LWq5b{k*9nCaJXr7|D%qPuf$K~bUaM1Nh;GjHw&0v*Y1IzY@Cycw8TKz zi{zR+R`I*Q^xho@+|MM-IpJKv;=O+;=hLNMT8daLb4%gs=2bWbm75`C~Dp_Y*;}mymIUD99V09qPNJaA)OD*>qTm!yftJR(*d##MZ@fGAb^?Q;nyfgW%>A$7-jXAE86#ysAGF zEs**57l_4lP7z+XPx4U2)SG|W1x=1&YPpBJluK@baYwYe$@8a_jsoua?ZJ% zof2CwIhkP9Gk8=xs`O|C#br2b4MmD(4v;5=l#cn#m1=2oP-5_JL9TyluLjTw5hjrj zg_YJAK;?wJbCuxC42D&U$|VXPJK@y6(rkK$v#z;<2`(*KliPu6aP~Pk0ceyj!FiZJyG~qnK9y z%Gq3h3R#nJh#l=iKy5GX1Ma)LUe?i-HT0eU8U*psb_acAhP;mig_w!kD<*uAe zi|PreFs$JLOmnfpS0+FjA?un_fcmIxb`!OFc6uN76Eg^}J>vTyGy>dXE8e701vV>f zgGJ@u1}UcrNWN^0B?PV=@|{Ny)Eoo$+k2?)?S%Wc`%wMcZT3&MTm7A$w>>K-q@)q2 z@q46Bp?WFyhf06HhtFaGYQX$IHQOK$UUgyjw_1JJY2Uimb-RId3K!jT%~dPgn`JoH zn55aya1G+xP|_&nn2^JJ-Scb~H`DuqW}|VQ)EA%(BMLa_XoCS2VJnAnsL*+dB$s#G zpJ26d{$oCtO9*V(?0iZhq(j?B27X-vz;bGLOVw3LC&qt3!Yc3AhJ4o>@&c+Cu(kUo zyThP6`1@hn%iHg?2^tooQI2n?j~8@#ZkUuzgE=jG<)|GaZY9hJ$52Uh@RJFw48Rs= zXcj$R=qu}2%NOI9yK=7L#`EMc&YhE^qyFlKL=hd7pi}t`1+_eRKOSUkUDbjHNqxd} z9xka_SE7HJK_jt>?0yS^Tasd__}YQR*74F)S-(qDrhE6g-f>uExY zqRj5C&~U|#$RF$-`)@Nf>}QbpAC4kK2c`6}b{hi3*gjyqhQ19DFQH?-ZH2Bk z^)_H2_}lR#uFscTFWov2j}Q3hC9&f;j^j8^!gYUxbs8&@OJlW&?f|ZXjnQb)XWMk$ zs>o1`tiiV*RphwF^N1SJ(u{XQ;~&41klH+aJ@UeVESYcUv#N44xMfFgo^GK)cQ^MNd9S@r3%}-8{XT zp5cG-@5Swv8w6kE3!dciiwxZS&ECS0JiD06Liipr3zGB(o99~eNSL4)6}Ci z;B<;^EB6kp13xtsz%OXx_RbjM6&5#SnPe$EIMzY%8#+f=OAk+V7dfooZh;Bcru4Rn#viL!pv+oXPi&7*#xEX zg_9?zZoeQoe1~Uj2Q04YrK9?}XDuoW2uIKQ0aoZD@>;e?tAhnZ)w<>t6iE&_znjbR zEAspuM-e9F$6l((-riYEvvWYK8*i?-Y&f=Uxei#douuXX+tN#=3|1XQviVw%AK!nw zr0jUVU?Pq|C9dCp z4^Rf#Ym#<;zG2#E6N`!S$dkdgvMYb2P*hhKqcN)K?6VW(7E5%aO|`2!L<_RFFP20u zyQ303hR`s$?|7hREB!tH-LY=A7l z)I9NFp;!eW8yg#@t)6Xe9U03ySA0Y4V{8$&gDV)#Mpu4QtYma?b_DPBtkwuzCQc=| zva(YV*-x@>q*W-c_}07fgsicTDul*%)p9dx^Q2m-4`6rRhDe^e(wpKcqKh#wZ1GsO zy5bvStiu;I0>W|QmOfZR8+U&^#rMPw2nRLlMKMCQUj(;B63+&06kv2$G5)@SynZi^ zzJ71x1onGz6h?Bezj+q+<9IlTC} zO9j`ri))|=yw>(2cgvt!_b4llrD9ORx4fqa&~^Lz(HxwS(;In16VnLAmU%Z?`L2%E zfREMsUf*06G5UZCEiX1>pRb=znxa>NaC+@Xw#z_+RrBQbAOC;GxXM*wk4F1)_zwJvD1XF*SkdvceWCw_X?!=uuFlHlm zhWtLyXIVP8djiBfKqoS!GfEI){j}mmqqJ>BcDk@xD@5Ox|p z%6lrG$hH^C5bSxqPQu<+3wH%HGJO^Je6mUyUj1vMX4aJpqg6I47Y1|NR%GPD%c|9R zwxq~~SFnFsE-Ku&!7uj}mz78#MT+hl<#b;m*}U>Fm{k&d<>6=5O?|dxNJt`;M}?ys zl8Oh4!QT;chN~(OJH;}^IMkslxde9i?`O+iNYv;+siGAb-nx7?J)b(#r`#qIDrpoy zk#(arFRMbONEx%VDARL$J%L5=dIIj&kDh&`r__I7k$90(AWpu}pd5^uMY>Bjh*K-l z%(epQ^gE!NY-rRh>23Q>Frz1&y~;kU%Xq~{B||I>@CF)AI>>4(#9}f6Rw0ZZuSQg9 zVG+h?A8mig;5>PZsLNPc7G=#Q`R3>I65h6{#0Z+ns9R!aDV@c&P~05OWj8W&GpfIK zzSe&T*oRKe%N5!q*!C6NZLc!h_kL#mIn0pMX000X>xxU+53_k;QM7GS zlP4j;>;`v{NmJSI0pcWsiVENFCl?0ABTIk9ngRd!lnZpfJ<1}ljJWOBW~HOHK!dl? zrus6X+0iRNS2(tlfl(X4(j+Q;5k{dmVYuZV`bO{9{Yb?lOdg81Eme43ZPUY!Uj2xU zy0;yGMfoy~C!g%U^U;&Tq>Vw$eDs_4G`Oq_p5 zphOs4tT_8%clho3c)mW4Z;X18HFI=bZ zW?YFSx=x}nqRwzTC3n4cE|;Sb_3FC68CygBX3Z6>*<1XDF~o6rY1uc*lDG7z!xSk` zWdpKVl0%kn48{g3jH$Ac25V3?qltg47$>6$0XH*t464TJWmDa+({8`l00tETZ;U;RNuY#Q7BjnZ+jrlvxJq zb;#lZ?Je6ZN~}R<8Hqo;7w&&{^l+_PHHc17`~XGr9m)*G{&Y{XtLqttm{Cwh@pWCr z-!4mbNr(;4LO?!)B)-mzESb(H5>~PbQz=f--0&R`J?|+yn{D_Mq$tf5AQHbA*Max{WY^%`_?dz~2CPPrm|B}n=t zh>447&~5Dm8X@XsRY!j%PccT6AG2BQ)AE&>-1*CNhPccZ5ethg6!)UasJ*sWYEnw& z#^Oq?baAo8S-rH_hq?1%?wVkJ^>HI)@lpxV_?NNW?L$A5V3C-_8>Yk$E zJ}&?XNXKOt)Wdwxt`gtA8o< zd+zeY_t42_5goBO5={MX%sU|gK29_G%?NmnDSR@!yde7^JQPfho@s%OQ`?wI9^8v zA*`n-$*22IPcg-%ew63e%XmV*Pt6T+cY8?2cUsF{B(`yq&9dt5LKpFAKswHw8kBCH zkE@$L_0c%b$X6^~{^@BOPS%H>boI$pxmtuQ`80Hut0{jMkURdh%3<3gl)6@~AXZyv z2Ha|9AJkf8E0-Ostu+f?W0f^qZWc|AUDj;7iCCIrWTgiJ?JM*?kHe`J%2Ma2*jLbf zjs{c1@87RE^>UH+R`;60*Pnxvq~;lk`x|BVHO%g3oP{5usC~WIy6r6ENx8i*;WOoQ z%X)XBOBa85Yp=lT15m<`*|qrM`&MFlY@L;Q^LiaNiQ$tgGE4V5He3W3@Aq5o8wmSY zHBT@MQw7;_zEJ7PwcgOAilr^hWo}0^oYq2tf`fH_p`aBer#XVz1wz-WiC?$jdWr{C#F*@QMC*e>a5!@cTVKS! z4xS!gk}!XkF6O-7CwJdm@U#=VT^p=i#2Pk=LFY^72WDpoz}aN zwcP{OcNHyQ2(fmTk4G} zL+b4q)^_-C^(qGSM*uQLH#vEtnefZ}_VsV(PFs1V$69z-WOlnH#s_yP74{w*mQ8+cPa&M`CNqT>(qU0uwxWuE`A13m zVpeji$8cRW;A^les^~3zZ}$PmS=4{ypKvM6)8mi6I{xHI-NT=WzWn)Vig&WVpfHc} z+NT`cT~Q%E!ZgdS&;aMv1T4KZ;FxZwBgiBLBwvBu{X4fyU)52R`l3$0Xns?L3J76{ zxkMa2b<^IeK6ax8+~rn|7Jcp|pGf4FmenK2YrXU$%+u!`gozRGLFo675-y!kUN;WU$u+Dq4IbC41!f?jjJvaZU~&#}=n6&F zu|K<+-rP>IWi_cwh(hoBa0q>v&Qo`zJ#3L8@cC^<=h1DquG5$DM=v@fTvR{tF_{+S z+B(Vf29t0n4?_p}wlfw&3&nr8c!8=czbKZ^CZ-s^Ya!Z%7r>YKRYviiT@kYdfp=US zsfrP)@6^1CmYX%0Krx4Z&R zlM67E=kD@=n?eNZCM|x%KFb&1Pj5PS3EeCUGSFUOV!IgW)M<_C;Cp}R=F@`dQ)XKl zEw`1?^6~q`>!0QsuvVxYOv-B*pTHb%2L-EHv&7mZCPjYBh z`8f`1@(b@hJ^t)d!vt3PtUg?q%=o51g{4L#!tZdBDN%~hqV4rISvs)G@ z#S0OSxEv{75RKqazYBkkgN39~9iUdTLKTHx)+e>*QbUP=sJafaDYnC(>Z^il1FTg@2y$QDqVq9{&@A;Wen2vmlD$SmuRGcH&|45g72?rHm);&7h!Ce zdpq*VT&k3CPLdX74c4V5kc=APNpXp7BiXf*Y83k;NGsv}i==;*>iX-Xm8#pcv=Y)y zODiktnx3au^5`d>zW}|T`OF3kgKyk21Ca)?5O2gKs$=M3hrA?!xe zR6E8W%xIa6>FMx06m@Qqz>FQp9{gXMq{v}xA%(n-c}de>;u`~v!hVwn2t|;;bH@Su zt+J)p5+H5io5FtvsicgtQzE28&Fdh+{C9_F-qIi{ACm%y21F+;xt)rPb*kdAwTxGC zw~H3MzlUS`Ubm1gkBb_%>xbrhjgW#iRUvE(6~?4{P?iBu+$Lx_VT_bB3C%~v&7h)d zOIY!$$p%}6(c1NXc0|qK4U3g5XN;7Z6TfCWluLz5$QgeV94fZ7ZjuNb3Je!`3PwI< z*eja_^YQJ?@j04(AM-<_>Zn*%%D+W&K7}R3cP@KbT&|sjVeuQw`0wPX=nr~)oupQD za-IG>xBP%xXTSJ_(68o2?aAUK@vj?b)5>+4;Y;N@9iUbVYjGBVXtDZ7&p&k`H++Jh8tcuAxpiX4| zx(UvS5{Xme%u!;~cUJp`^nW>tg6J$rt9(pR=XPK1!yVd{3cwAl04;u;Fu3N&3N*u? zF?1w}DJm-?mKqA^$6MRoz30Za@Vl;tIL2DuW{iIrVr$8vPj)r@UHPcxmS@a(R`lkV zVEn6`iC$a*FA&Oisg(~cD>J$pa&bg6a3{IK zeRwm(=b8wc3EnAzsmiV!XP@LZM{^{$?Ja+6bnuBJzdI%0@B%antf2;nEWU|Z;dV{X zk>Q7xXh}sed`cKaqHQpek3x#*UZgJ9iRYy9L=smJBt_)-6*o*d;Z2RJ=CQ5%dc;@? zm{4A8J-BdlkH2^CoD2^^^OG?AzP!FxyXKW7ZDvFLD7WOuP!F-N+6gAXp5D)!fFcsWUHlFKZJS3u)6V#SnZ&ZA+6*2 zMtz*@PTfD!8BiuXZ|?k6$NxRmhV(fHJglQIWB?gpW?Za_u$4cCaM+C$ZgZQv@!B4vM6saUpmY>7LiaZN>HNir%#5*yXW8p>l`)v>7Chfj*%Nkcv=RHDU5 znyf$m7?_La=9!-KD!-)}NFQjhF-0DmxOYTynP;RIm2LNN4r(+>dnFe;_3iPuNfc@I zA+1$aK-pE!qNcY_5O4;s9>dm*?pq z%wHT>F;2U(0fxw%{ZS;edi@9iy%8a1Qlr*)4Eb73pk`Y<&@DC8O163`EG8CERKIUl zhX zDwt0)sB8hMi9@Zh`X}ubMG-HUCyO=_wUE&EE&h*%1Uy zQA;%B9y6=*dD%UVYq)y?A(E#T-0+a(Hxl;xbed zy!`Uv?akTcckiSN7%lA&zXUVa&tG41#=$~0QP%g zBvcFFR3Undl3ToJwnOHPQiI_g^eWr=bWz~t&&Bj&?w&c9#@-enLEr*;{Z-!5aa=n2 zWdGgIUVfRr-cM=bt7(Fn}6>g zm9q8yiK=1<)#Jv!Qy8uwWCnw&<>DY$T5ME0E*PXh)t;?B94=5wtqr?Yt_8!cHM`ZZ z(Fgo+F(v}%$pn%Vjm~bEc)tX*8j5&GPvL4{#a)>5Pm=7-wgI@gfI> zi@$O4%s)|o1YnRlMKB?+{R9p|z>i;&ISy;PI9Fn-&IFZ_WWQ_@FwNvuQlCod1m2X9 zSneyf<+6zzmUnz8YsQZ>@})QUmIq((A`g6Q8A6>r0x2Y)9u;h*h?++3sRyj18Vd_( z!;FK#^1?0+HHTKCilHNfJz})1_QRW6F|RJEyW2{C105KqyIb_!CYF;DT@`B3(|#(! z6NAg}LI;;d=@v-2nNw|fX($!oaBsZ@Q7?_qYO&CQ!LcB`E_Uz~BD*?$cu(W=ET9@*ODK~4Bey~n zr^{-O6b~Bmu~gs|>XTxZ6b-x;o}`D`z!91^YGTBIEMC1$F-{GboLyn9+|(CX6aTK( zNDzq%fgGc_(G6?V%)$lR%7(@@S^=~ih5{geKY*%I`gfW)GJLW(y>a%pSr~Q0nz?4x z(hjw|g8?Pqf+R zDxn3^=U}}o?bhV?pkUb7I!dQdzk9lWc=XwcJB%v1I54H#Z6JH6w!u1vwRV3EBQ>lp zuFp$}HsxlwO)0BaQ38*4SVt*aHoaq+trYvs`pp*Y804y;O0{(H zFHF<8K6_J_L4o?11HcUn8!!BS68c)xIk}kK%Bit7==1~e0JXQ^dL|VInpUZ~LDg%9|fA_t3Ah)zJyo?R-st1Hxh+1h%SVvAv1 zngkX8i7=~*mt*7N6A&EGnfWj7@x)*FQH~q;iZa=1X7?w#^ zHDWD5!1?YOq5vv5`?0dbp-N@Wq)}@(WV&^=ogN<^zn)B`F1KNUP#Oq3NGN2qyQ%|` zgAyLDfIQiR=NE`EuFJW9OMJFj^EfZeIy$%-rmGaJar7=YPqiW?+ON(U(ze1b|DSaF zL!^Z+6tt-I=sIMz!cyeV^r!F0DL$!|zGXG*a95jAhtwa#j9aQ%-QcHLLD3zaD%*OX zimxU`%;N^6NVi-EiJLyMw(5l9u~d!MxuYF|sR{cRP-haKL3so=dJHkkErfOvG- zr%D%C{WP7B*;$b!DY{hWWsh)e>7)51`=xqnqTjK|wi=guuK3qwtlw&=kSA$maY!VK z+XK^!Qal}3)o@~{v2N1=li`FE5S+r0OhjApsp;H2pjUd6{JZbmQ(F zq#$A%gO)}_Yds-xqWJoSY6=`E@Gp{4BtbN#pPjg(H3i3ii%Cvm7Q<(QWp{LFza+&G$Un!)P&Xe zYILbRnxP*_+#4#Dy{4`3b+G);>exYcIDdNl(b0js(=Tg(2q5Iy`O|zhJA_j{~457jK7D{t8 zS2n4}uf3cc=JS`pRSw7hVX7@)PXIUX=gGF-$7Rd?n7x{xpC|d8VBk=^Q4Xr7L!>U zaAgv!>9e8h{Ph@X$5Pkfa4_oe(#G;auuIg6cf~J%XGmLUljU`lka>EYem=dqOMlIN z%2f*ANpEhirls$!0Kw7k_p%vu=&zU4A4_Ss6Ntr1HQ~ej`&)c>v6Qk%i+Mgt7YErK zMcdE#G%YTF%zr9=yentkT@^o;zM+ z$b=x$&XSx5b@i*ShTF(I?Kd>halRja*F@?2{@ zX1MM8W{59R@@EzR(Q7Px3P!gX15IxU0-;f37p;l8_Kf;M12KvHNQkWb+$O7C-Q|7lX;Hp_Zd#Ckg+R^; zTwAGKkCU~TjyExJIv%wRje45ZB-;pM>>UeM7mh5FW9%RUsX@i7Abzv8{qAdBk)D`t zUB#7(t!Y18aBHBiw&Z*cxOIWswvsR4w(lXAvju*)hV-3 z>~zIhD`dw;JtcaW6>nl=H4fB&hc>FYw=h#@c>U5oGhFZu4*la-DebX0!zrFpWB|Qz z=b-=sHALJxzC5p{g1J9gL*!^PikNDxoI1 zT?>0We~%q#3W$5SZIWv%xpq_5*4rtgg35gHvgK*4D2S7`P+Wzw^R2L`sGx>hC^nVp z!y2?l_@U{EY=lk=F>{_z0O?|R@#|00zoHPl$HE8Q-Z|-mR!5}) zU+q@L5v1Q<+Qok@8F_4N+zc)m);`)-s&Otcp(TlZSFgoeqt*piCbNh~vzQqiUs0SqM34!x z5Ff(Q{0{&9>AfF+t@pR*)MCS)jyBjpPU&_E+%ddZK(bzRw&1C`i$>Yc>9n+AcZOl} zc(w>KA7+#x^J1*B$VXVWVxJDR9*6J_;QCt)fu$!_6hlj;r_r_&$n z#g!cX0}iw|fBU+1*ZTI&!S-M<-0tpfXdV6Pg*cA$wbdQHUWCi0KTIjJQJkaXixVF_hmf@i6`A=UNKB#H7{xS}7uSab{ z2)^Pa{>|op2wsz63~R6zdz7O{d8hRrayRbpjK(`lb}f5n?RlIH_RQ|~sJ9${f~AIz27@Zt(11agIH-OZYI~{VBtb>fuKQez0v=E%1ALzBo!(8KKZ-kIV4eOFbhBMYV#3=k{B!ZSRe1 zxxQ;)U%*JGzfZO1lubp*tQg?PBJ5BQ0Bp3ucRsbD{;**!+&U~dQ1qh~#i`u&lp9#6mrCFs50 z_O@>{@9jXx^aQCtA_aPP7v@;$cZDA9)wtKH+f2hg5qTSM?5GwP3aM!GtGE!92RYhLmI^l%)idpsJ}L66GNg?@>`?**ia_U{-=THsZA4gZd@>q5Hk<*yimX&G3c!oq8>dGL;Zhojz5 z%{+yMK`GEfZ|o}Y?%0^60z4enxk|Q6&@lCd2nY9=PUimD6=*0Ctb4E4O*1Yt4Lxci zG71eIE|CP!Q)XH2)h#T46w?^0gwt^dw8Qv&=Q`>B*|8E(w_Q=IO2JUb?9`AZ>1KW-LI-Kl}TLo4V zQGs#&V}S#m34ICnPSu713uaf9bM3Gl0@3~=tKS=zW|q1^3nTu|_Ky9xc^ddL|3$Zt^P&OAkYRazleApoi{H969W0SfZjyFE2yxC1Mh$xjYd6%JWfXbp8Iuf$AfNjv=4^~d;Vzb9kDQ8 zlRkCW9dfQc?0W|)@Y++ZH|%ZUc34Lq*L1rDXT&(rI^?1h={6brB^=k)1KIC}$*y0* zZc<0;=^h8eEj@On|MUl9bXZ5K`NDxy{~ox_SUJI{-*xMky_eB{_2vt3>6BOdFLX3Y zl)&RIZ#;E}TY?evosOFBKL9OqDAU2{5wgoMyj`yYAfY5147UX7R0a}JnYGxd6wI&I zal(4xm{KeD53_A*9YN`fdnfd9vc)H|hUnZoi{7r*BL{i7*ScQ~6V@#wRolW`mrGki ze+@J1j>mfIzK`X9GNS3PVd5fM*Odk)lG4+@zlPcGW@+=p0>oiI0#p$^a(|GhpGod%`q!m;17lCTYT8-(#m$LJMB9PuNemly`1U`TaPw_w8!ZEZQW;5 z{GLPQgAtc~pJYqUUIO2%5HW(3PcJcHE`!qxo@!cJ!_IntPHf0Teb~J^b~@&`Q|lYb z&Fz(l5zO^2>_L`f?Ue|S+ue7Ta^Hs?KG5f&H{!0cG)Y6wKtMfLY#1=Bi7I=z)m$sn z59;{CkOCgEok=4T|AT(OmYEfs0j2!Z|5FSb`L2Y0itv3H`@?~jZ8%Wd%i6H0|0Jmm znz485s#imQ8pC2+3 zHTD>LoFt3{!@-A?i7xx8azMyK{NfI3*f0Xr$o5o3b@~)0-Ficx5)6s&_A1AzXABWqQBJ>t z9E?|ggv>u2b@BI~NwHHYHhI>QRO!t-iS}6v!qTam>U}ZDMicMcnAWgi9l>^FY{;&B z?%u0o_lJFr4K$s-^jR@H(!|lqyCn_+0&U%Q*2|b96(fYo zRo8fYmSe=@&!0EVoF<|)M1Ar~zNaU3f#2nSq0RWi5i8q~P%}R0D{(kVugB`vl`(Fe5JG`{5~Z8MMt1x16AA~t5sx{>hC#z>+hkfdYBp+}sUeSHt=%If!Ba)V#?TMw}qRXh8C zhVxKIIwXo5XHJeY9c0+j0^hA|FoW_Fx2=CDn3B}{~BPfWU z@_snu!wORw+G(xvsOP|kJU;B?C*Y5`M$YKaebRmu#fUE})+9a{;wf)Y)Lx>wSKYQh zaGk14M=v@3Y6|bs9Kxy2qfW z4D2*9-hE+xGXAKq)XYW}_&p~+9HD@M&bN~V~jGItcSCFnO?oP4JyY78FV=AdGY%K z-*vDXkN7J6vQb0CuC2cIJfiWxPIuSok>j3ynfD%1Z#0I)K5?A9hVzDhymPLj9$`bs zlq#iD-|*NSJ9>5OWbEpDH16qx8O(6f9lOq5Lw@85)0q^PeMpFVv`d)KClGh_IUq6J zy6p|vuj{()^_69u+J#GiF8pDV25c<@+kN1V^_y(TPBJMi&l^HoR{WEU68VPveYTV{ zm@E5Tott;Zkh`{C4FT+b!PtonCp242V%Y$)HgU$0urp4&)!Le|p>xM(X9_2f+mD$8 zc2e7&tYO22(Dr*>m|+NI4L1xQ_%bD`cvSCdI8;HwZJAo-pLDi7B9EPtT6#mJ zRJTzQIU^B1484%+S4LWGR9rDVZ3#>KXv98i=+PMO^Eu{*KAcE@Xg$3F*u5Tu)v)1P z>qrA^aRZsLVOj5;m%!C}E~E?&^Rx~yz#b=E*Bp_K+LLg=7Jk6k{%e;*scP0ryQ&W` zPNC0K9HHkvGae9XzzT^or^FBp19C~UR@bR-IJgy1b4CYCoeq`_Le|h$ep%-y`JZIz zY<|vVuaOG-)7`XxCIOZ)I^HTXBgq2@d<|}_#w8XEdD^L`+>_K|KuL!W8SnQ3-8 zz1IaXA!zOF6yw7s2>&hQp1^0}vO2zgca76CQhC;u`S0t0F)YyfoHT@p{kIHe{QJ+4 zUmv134hH-J5rO{meuapC9>LA8{4oGGRO9!B9{;OC0Y72X{4D|QGcte6*F91b^(|Ys z|HzDlb^X*#^Osm8M!-+b__~N2j2`IcXWUw-e)c6u3G}NmyD5QxlqN_G)QM8VzCTdI zI*|G>f7|zeGd5LZpKf;$3lriP7Bavgnk3_jkw-c}wm~wk7%{N30JCa6*$1~3>{>A2XP^P@^PHNzGX`3!#-{?zXb}iy#)<1 ze3NKQ%pBU}ma5<0%uJB6Eohjf8)R9=qu7|PES3My!Zu3$svXiYXIh8{al z`{eYSn)wNusw>#A$yyO+L60+GH(q6}^Yj4y$Md_bavxPq^fxXJ9H9Ya#DtP!S( z5I2#3C}G~>=|=0~xW2mrtn9y+s<#49rdDIvsX>KI{v zsg$RarWziVKzSX;-h@^vGEZ9^1Yv?Q1p^t9DKtsOmXSke3YI9T(=S|5reGk$GKB_F z67M*fg1soKEQ^m@>#+zFSd2x`uu7~V8XIN~UxT$&NvnPd1FNqH8d`c)WUY+HD!SIM zSSl@WTZ^?BGA!|D_@MOPO+KzMc<`lvK#ephK0x#kU)aD0E)JX>2;q;kP^e%2Yp6%G zZFh|tWYD^y1|PC`aFdVg3?6zJQ72s~K0x#U*QmjVtty-yNa2sOzTo?1P33UQcDEq7 zutF|D2i0(0q~i@^2d~^R;Y!u50*AOl1szzbbrENgA6KCDOPYpCn(i)X8Z2pldN4`7 z?oQW=v_kCjHdnV$VUBKLgWSAHHr_CFa2K~^TO8a1g}Jwd4Rr1%VHWf_=5E}NX{bZB zx0qi-2Nh5nI3X1je>ZWH;X~I@n&c~^1gay%T_jFe8O7U?R>*M*De~$^Q)#kwy9)`} zpe#yYgyd1aE@H{(p>ruoyfQ<7kP-siMqq?xRGvw#*#d4Gh&5`x}@r!yC{*i#N%VjEA%_ooKdUp}4)9!%=kmh%`V?w_BN@TxOOk zAjkkKYohUnodelf%2+A3MMN@4n22p=)?``8eGQFl*;Dt1Gx!R}a^Zx399=oMx|x-5 zoPP@EYv|a2X%6mRynXfdTUVDKe-usTd5N+hLS+6rKR@R$-LvTRKQ4-OVGiw|Z1BuU z`admp92LK~T!{1@%rN7LdOYRp!!$#PXhbjQG4Xvn9x5H3qR zKQc9hiYeW9=+xxwfTWUtJZh|5ukI&s7s9~2wEd5Pd5duDHIF9A8MNk$NfF(bv&D~w zW50YIaGXC+&!XF6eY2bjX45lGdA6SA^V#n?QVQXhSbp;XHJIPe;VQ(GSg}_{tZym3 zLF4)+$^ifcV4Sj8l*?5a<-g>!dH%z^uspxF{I&R{SjEx9@;;h>H#bp@54j1Q|1bEYq*c)laqyZe;4z zZ&B&{E6Z~A_`x{T-QD~lx&?jB?&g|8-K#z?3)73eKLZw*uDL4imaDZ;!)(pkW*@02 zM_@+_-G$KP_C{SUc5nq0|pUq8#hl^8x;sr2&)pZBMby--D6S#q9gLG-e z&kqF#lhv&F#o^f7^z&}9CUpSW67*v=amCp6P?bk>i1pFw8pF>Su-RmX*!E3$sc*vj z{G-b&lP!Fvrad>pA!fmSrbfl6Rgg7PbibHY0erTw5i?(}A&mXLTwt79fd=1swkpYg7gopC2ezr$^!;Z^xdu;hpF^)FwvqjXekst> z30qo~T)=|4oC(5V8i7+$zA7v`#@8(u%sIOY z<_(`#o{gwHcu{6#phN}oW8}8nV^GS`c~$EPJHoMlLDPiceRd1d-WCh&5;P}W{F*}_FySw4(9Su#fnM!}R;wPCZ+{k`_bNfFM#>CC{>^O? zGvsf73#5)le;wB?G>CKfA2eFR$f4}Y3~GtJf^-Z4Gb$1|D%qh@LwRLBt<6I6 zW;VG2wXS|Nb3En@6VysEHSbYi%ZOf@omaS(S=zSdQU4C;|k&F>utsCGq zQ+Nv?f+JT@!3QU1jwAGY4d?FSnRhT74`f=$%iLh&m?WUH-zqmpcK zgQLg4DP+^f8PGD7)T-WF^DX+gX;V%nAJpl*(yXkmQS1@vLK=XL}fxZ z%NmHIUDhK6K%?9&O3fChsuk_zxhFp?!Tq2{P}j{P+(fBa5Vn58*5ihA0p}9V80B%& z84?E)k9IngrW zAb5<3h<^|X?P%oBE%I5IbHRm{4kEx~gah=0$cBN4N%|#YkaGri$z?**V!tsI*O1HR)VGo#dWwqNv$Lz6WA^V^h6WdsUvDwdU6hIaw@WaMwO`U#&~dQ zyj7w)ppk^;ex90bPH7krov_dnRtYUj46ABc9nl|fBOSuW2OQTDx(4R$Vts0 z>q)4v20;m&qmUr0lCY}fQ;`BBfRt)tixq*=+jbKE5;28Z>Mj+kl~YS6^6JH9{;v(r zw}>#i7SL$$1wMDG3>#2?Uot~l%xF?2MShsWl09z_Hru3jqn6ST zSap?Uv8#LS6yfaK3dJyR#R&8DZ8+ZW_G-0U#lWX?Ip67Y%qa@tSf5R93amGvWO@Z; zx($?2y3j>2&mXR4w|12>#c#-0Spem!*?9dmpBbB0JFwuv9T%a0Pm4QH!X>_7;+K4G z*F5G?G^1xs7b~ffCiZj#yT!$#LMx{8hsP{{NMWZeV%%WTKlu{oAaBq(VOL%%snkbUR<2 z-=deeSJ`lX_FWpi$i$;oS`R*254+R)UD2Wjq*bSM7JU~boh*7e>VjoS9qdXFoP3ra{)nTvKt^3l1 zC^&;`(HRteF>QO3hGMUqE|j_~ElcB-XJaSRl)XgN`lbXTZt>#H zs^>I+%3;GPI@_G&>Ttw}e&8>lJR&aHMA>Ohy$a)QqneLErF{6vDJ$mu%ZQRgJpBcE z=zVUK<39Az;ZD3RDSQtBJPR-O8~m^OXupenD7~57x}}AnuVI6s98Au?xg{wYf=*Iu zr`H7(xGRO72kuN6JL8dpyXC?jfq~47kKI;(uyWJ3Rk7_`x6Y$+c&?#!ogC>`=d#%HL5-o@e-lqG@^#LYXUFQ3YtOuvRunqC zSHa#R3@X&EkP`Pr}VB??Vu?hP>YQh9l2WBFKqb(o%Wh^`0PDuCRE6BDq334_sIF%yKWWO$sN4U1TltF6x8Q!_ zC;`(APb=J1Wr8E?kWF{KG=@HZm3^^yYgLg$u9rLNDr)M<=Lr&tZC^#(kjf@XDljXz zVY#HDwf{Js=f$YY$Vw%6$HB~DVfqL&=P^cc6y~3ealJEvcKc%KG;&p=W!_5#QM%y2 zE=mZS<<0VbKDAZnABtjOZw=UL^exW0x`B^55??>1@TSoY@AYCsEW1|Hr}!oI7c1gEgO zP)2w+W%n*3q}lR?EcPk$q7wLd;$onwwTK^U(f|a$l3CK)qJ@O zA=c~9ue9Dj~Rtbzu+As?!OQ~$s z2pq3?ko;T2kn4jec6CP3bm1H*-7V)2x69QXl%bV!$%WQ%M9g_6Z+R`vLtcP48Gm%W zVx`F^1ZK-BojfzF(rx64t>~MV+02(%P2;YBVp--t0$(NWu-?H*HoBPX>*E5!?14Az zMrfauz9>wIpEb09Mal2F2?IK^K|^Z=CLj)tCUK@_mPrnf;(j%&$tZ4=H}nhchx@TO zsNnPR?k-5zh_oREj3T-M0%`&Vl8if$0F*?BD=)9jslMq;H_Hh{idhMte!eeC*X?lG z#fc>k84!?{jz%v^Vk@)PK@S*G9-=`)?$<#a?Gbhtg%#X?%?M%3OG%i=PvOU`KfSvA z=v^I=3Fgu79wC9Zbju#720x#wRh~gZW?pv)Mj+SVS4dG!#yLwgU&JB!+%3?;pKU_R zcX34%@mub)TN!+#Xv;-w=*D@)I>xKg*WbSfDwwR{tGrTu@C(>7vUhk#-nPhF*EXT% z-&hm>yACktp4+t$8KVs0>`Wuy3A`&o%YdMe+krLqJ69c2>J zxdBa$X49F)b=@@9my7|~f29{1ohRA7Dz3oU4CNo;3F^Ey;xz6V?#_`U&n-oPYPNoDDYPh=T;>8xfpP@5$9H>gf{je69o zz&h-?#+Q4yhf$)H@mN~as&b{A&ixC^7^!EgDr{>hV>+yYZw)s#IgktD)=*_F7)sNw1jO)yw3P=v46Iy41bpHWdX*5O8UVN0~8!`?gf`Jfau| z;QXFp;2WdzOj3X;Q5OfgOjV^8Ty!-LOxaa`7G3T06Oo5mATGGtr()O9JaX?|>H@U7 zjf`aVO=dzD7F0pQ_8hC=;jHw)-G|5V3|c48AGhjCuE*@KMCnNgmCg#KO+ZW4gQ$AlHXGYd4fucs~Gi#D*)>Q~r{QBg>s~5ZVUU4J% zS=@~K^qMDseNy{kx(BeA>^%j4-iwz0 zZTNb{az))*kK@Av@>;DkQ=vv{TKe`1QCwE(RrD;EgB!O6s&_5F^34KykwVvn1kn-X z%x1WrNc0001OX>)UFZ*J{f zTXWmEl763G!Sd5gRm359XPr6^@-0avnPg*UX7~7PsbC3`xu!@RlJbmZm!FRV7=PN0 zA~*1*e@Z|6^@Eh8o0B+nS113Q{*wNm|C)b+^Ek;H?LQu7$TETS;|ZKCf>|^V-Az1O zx*qy*h2meKw?$u36l}veI^BIhyC463lKh|iF`H(TXFxaqee%;!|B%)>TXM>ayxjWp zgzi6m*ZarGo5SiwST04@2j~+f5b^u7Og6kT$MJgWp-9wjp*NRq{&1= z{z3|t_0FwzIC?;SOzm%sK$*E#e!h+3V9i**%v>v#%Trq$c(!Bux#<8X^eyb^xbn!n>bWPerG$E#`} zL$8M@-iH2<^I7b!(F`tQ6#l6GB>hD0%OZEmPa}ucmII$9H5MB)?J9<0yxnk3xT*{` z?>cDJ7;l*-TKhE7n5M}ghggPOS{9-+MA6oZ$-*;OE}%dBwO$I*LUa=LHR}`7@-0_v zv4Gd`j}$As&wDW0wBHmTR$;L97iWPVhk-|4;BNHA^@6y_^DDY@=N`&?WC^_p)n{^& z0kzBclSJmYo`=HSY#yxF&|jdit4s2N)hbcm5WbeP1N(>%45@OAL4VhelD%Rc2T#aX zy-tjs;5I_x!&7$BzD9id2I228T+E)HrDo046_L+C(we~Lda(kw5n6l-7Tbe~Tc7`z z6XW9Ni-{)P?xa)XMeaIA_a{vdbaV1)qAH4VmS+4q{nzRAlXT^-BVyL8siv#a^nIH5 zOW^J1cfn?o!4Gg^DAK71=l9ap9SrXoJLR_^^cK=@FqGcEPnrDYyMJ-SST-F46`Zdaik9uomHg3?Hop1^2ce?;mobvOTfI9OhWKWj|H(8oSic!ZNOP78{)fw zm3%U_*KWehnddH--4g=a$PTuwVjD}(Ybz8|_OL$#zkdUl0j9ltm(ehR4NP6O4GZY1 zZ4$S2xNwUB2Z>}SZv81!B_bt#p9dZZgOPdLH-bPb`>3{k)Y?Ak89{x_^*E-T;Q|RGz`t4BI3!TN`t&d&r3-Uj2{*%T^URUpNMF<@6cy51&uJeZ07C zA9R(9nG5Ma5;c3VQplO#^L>S)NRQV+v`IdrS-jgcP=8X|^*avnFt(Gq!*;TWHi&$B z$UiUKkmX2NRM_C-ZFXFEQclV$8@#Ab-6!f{pMPNA^I@!wEArv3hi1!QMc%jLZFrk( zSN^<1&s7_Jj6-Zh2wzn~Nqjcf*r;(AAs7XIJ7;b!6TmBv(K0#=w8gz=e(dn1KqQVZR#b zulSNMv#c0ExUsUH!+x~0tT+J&mqU3Ilq|D~|C}|=!GF!0)}WEK4Q~a=8mHsG8h;qn z8>-~b;U3OD^B@Zae8oY4XN5! z&^8%PuyW*V1UmGLIo$}QCZULSPJhWWRWrg%_Lscp(%D1Ho(S=UJBM*0bL-}9YMB(6 z=h+EaT90)2w5|#0J^9SDV$VHpKF3)u&H|s)t+WBZ*z9CkX1=kA8%qmN`z!gHW}5Mo zNu6EtybYfn*0IEWXQ<_%JB!O@M$AI)gsd>2&4Vh3+Li-H_$4QUrWMW3nSUDBlBt#V z&Ig1x(rE&Y*RFJy;!CPmLaj1PCDCi)Gp&IGR;B(hnVJ4Wot;zcYg%UYo$_E9iZSD@KZ)rFUF7$A7-1tZTO-#S;CLKwSo2fcuJ4fa3rZCN9!zmAC%DYWHEjkA%sJh>U2UN2 zcXFf>IMRA`7tI1tW9bxmD|fr@WJ)72rT1ZqFyC>WzJ2IqM<=jj^ndCjf}sNE=Pe4t zl?&;DJDF*Oh2PFWUNrUF+0cu&7tctL7ZN*xoR4*?=Yo|0q^z^UGO4I12$y~=;1W8g z&A>%!nG3E8e+G(GiOhSUAe>&cY=8R_TYsK=S9ygRhpVnDEfut+X^5cIi=r3r?TII+)32YoNi2hKoh{v2YOC=ofW%E`69yX;#x4n^ zcO|~@%_JbfT^;x_He#+ecf=t2QXBli@2-iKtO`7<*&gD{9p4}@wbR!*l2e+5_Q8ip$rlMZiuRQ>Jxwh*&D z_LxIja2p4s_1%zpUr)p4M9xc`b@p`vLPlU{9HuhHa^2KBMoXGxJC;px^p*UkZ+uiYGXFS9Dmq^ZV*yDI0mv>PW9e2JM}d^ zm|{I&c97}SHUcZ$*e$~x{lP-7F2&nU(h)M0D^9fx=if{@^1gyrEJx;U57TCuZ6*Q6 zJZ7`+^Bm{vUPs`82h5uj&wWU*6qegFTuQ0K*#d?%ZvZlx=-&16JD4Y5Jh-F!1&~W` z@>6zRo_`CWkAlwYI)wZ-5f=yP{NkC#`;wc;4}X@?hZ(2~=+N+58SJmwgMbwtngD z*mrZ<&jyYebcf)g6c}8KXAV6ta##MN&OOjW?SIpH--BAH?H&lV(1F1!OuBLDB5wg` zZbqbpI~Z2I$}tpye;cItqLVXR&WvKHj4W`&8~hSljtCgA1HZ8CBVtik)*eC#AzQ{S}SNyb!i>vL!=k+j9j%PFT;gT_5 zMx6A}bCB{*AwZB`c^oPs7!S;iQ`DZ>^A4{ux1{}(7Rr#fMb5C&2<^tZpVNAF=+`_z z2Uq)(ZBAesu6$w1?qm|G0Jw?4NL?2WY@Zx<3<^v`V%-p#SR#r9%Oz0?Q*2nHP5S+d zyXI-`r>yc=!1lrcryEX4cggLCGf))#b7N zvVW!%zml6x9arpJjlfu}gWap=3}$_)r%R7PVFo4D4dMA`z{FpJ&4eY=F!*qbn6lpn zMbU{*zukGUTu@Rt_p0nS984 z!|9}!m~Zf`zVDt3W#_A^lgom^F%VmE=8LR>ZuZ#5Uby;GZB%V_|x{7eYUF5 zU7ToDXfx5gS@&vx>OzlNYuVb!&G*ty^X3IMQt!105y@KAahTq*NqKy0F6T@{_w}Z9 z>9d&D?=keOm05l$KQaTkL%N$Jm9Ra0<0|V7OlORFJwCGMv=3rKNOU7q<(y;jN?=Hs zo=r{TZG{D2Wzs}{LY>@~=|EcW?CeTw)69xFVInX5Uh^+i><_&DMiO43w5^)XWG~1@7{$ZOm{%5Qf)GfOQX5@|QIkVj zGJaiQgm>olrG}{-tMNv+gkIC)jRl(j;nvNcyT8rAQr{g>6g6!>3niUWE@vx^@}Z0q zcs~dFa76N3+8B|$Mk}g@n-9gqz?<16%U4}tdex4KHEefcTBx&&7ZELhUlQhhl@ z&N#CWUDmSJ?PF+apvlugZKwDi#_axNU6Ek5YT_eik3Tzg==ZpbW(Y@3d)#4{LzIq= z@OgUwa(R9+-4nRNPVYEsbvvV}F>u5wew0IgJ?h}q<&Gc`XeqE&b3)n*ftZOar>0Ne ze0J9EIVpb~*tdDHbM^P&*;G1<(`ruZRKzew0W`Z+&HOCb=*%Y>Y83{%;Z5GDX^)9- z*BqvQdG&L6;`17^ZD!w}Id$XxuVx5a$>Uz-AGFfS4*kZBGJ8Hy-|s9M&`{x&#{T$<0Z+%qkmB*A8EHyz z#SMuKcrrO;l@nSmVIJKHbBns+e~;Mw@UApWD=9rXm^!qt`F`ZFkSl^f|M83=*G8C@ zuVy+oe50Vc7(81$P90l-myiJ;%$CrV5U>y&gBloJHR{h83R;D0`37tGwj)SIjcg1y zs*Am%m+x$mT?GTV;X!($llMUb#F3%h1!+*%g43Cxl|vF6vmi$p3i|kj=ZV%D(f03C zk*(A%iWx_@z+eZ;rM%I>4JzuThu51;&$4|*38wTF&>?R)Pg*$f!b^4gPRM1ztozTo zpPCz7Tc>J8^Hk@h>_o0!x!KG*l&BY3HYDgajhjBJ-IJ}EOZu68DpO?n3N%xq+vx5U zX;M_+&loNv8qNoYmDl3^nNw97L{oadfzj%P@fGgL zD>F=R$1c3jx|HFGWcXnm*W1WFPbtz3%^J^>@0N?*qy*E?nN|D_90^Wh6ZPDN z9;X25V}y!gOK0Ja_)5=(aK8UM^DoV8|0M9TMcj@GMb_6jqrxdtSLK2`G_WGF`aP5} zrJ4UOg>_WP;y6ICi7F@=mhoHTg5BANe$QuW!D(9>`=$mcE+N)y**r8eGS2C+W_17A@em%Oot%FZoXB5a%E-RuMz8lplwGyxisE?(3+~sr2Bk0<=eRy z_XO;Es%N(K6}Uut{CrsQxWPSy>~eqAf1rGK@5}n$kyMcHM`OZ(Ejzm;8W&Exa1BzT z-)#8A1!a0^67HbcT1BhNBomBbl{VS5L%VIXkMmAYWsG?dRNVO*4tYNMG`vexhj^Az8MTz`>y+=!34fq@Pa!kerg4gMbRLxzMp;6&ZSbL- z$XQA2$qF$F?Eht0@gr7P){FGm~(B1!r#fk8bxL+RHYu0$2G9*P@H&Yxh=%6dIqB8`@7INc|=rXjVi{MN!=>mbY4@5wN+AvWgQ@`K>>V=$&Cu7e{Z(g{#+$Gcv z99P~lqvzZOei)gm7}rDU@q*jonDYMYppXu#CPc%vZ+QSINCAY2K|F)H1StRoxq#^; z!La)MvzAG`2;fP0I|xQIx!ObH<}M_C!Qc%AGau=b;MfqSPKOXnvWz^KSYQZh&BRoM z5#uN@VV*ydRUC6;pH)vJYldQI9aboL){f^GZ@iRT`@)fSem?_YW{X{G{xYwQv2V~mD4FU`}PfOa-K)Z9a5n^luk7YR7Yat5yXIyMV zc2IeVinnV|$B^b}UAg3a0gCdzi!Q|=LZZ`2+Q2L)B+Mx10*yMmvv-y*qFHa**9-iRzossdrb zv%#3CatY4_UQxGPEw|m1M^^#vp=iv>%80q;`|TghS^r9}s^1UD(}XzfdtRoA;uFCJ zSYu0sR=9|=y&mvgz&u_x_Z3P99FAg-27nkH#E%*9ru5d6CqkEVRsg2k5Y_8Ia^4)O z%-<5xzLhfp*N6aV8w^8@gB0H(VCfG@On{oN?cMLO*Ncxo;&bKc6^j*B7?Kk?j){iA zi5pr*D`P(Fk5X3OcB@)oM{u`EBJY!UX5`fhEK7U0`x*)M!s->Ez~o17dHY!ElmW)I z)7fjR!OtIX>PM2SKJBxY{C)+LKk&so>5aMytQFi;Ia+b=QEopoBgL40hh;%k=OKyT zOQk7}6}gte5oMPqUO*U!|9r49$2rb!K4S5Yej8ys^}$6NA{pxHzFeEEG@t#fGmmjD ztQT#{^$JBpV6@x30%pfqlXmx?YxYzhb~wZtoXRvd(OEpvBe=yPpd!_&tpkuq;ZYR} zaaVE$>vzc}^HETX3*XmvY4O(yU$)X&q$2D49AF39*j>o3!eTOCP` z4l@5Naz^IZ(u}^?HEZ=`=Se}Z?o?0^XCd;!??@*Xu2G21*4Pbc~e`agv z=6)y+f^AfkgqgW5|Bf-V`&h^+xQxz9S13!KOsIh*EX$AJ!?85b(98Ilzxn+5Rbus$ z5oqu$W6RTW_X0G2uV(_haKL zO<8x}Y&HE_SHQ6pyNh+KC;D=f!Oz8ouw*b}e~pta?W7yxT^G|;^?p-zw*C|3?pTA) zz{TS7`b9MA6Xc-BA+}iTAcb9f#(XV|Evm+faf?**YR%ndikgKJu`)^oo0ctIY)9)7CfJ*P(8dTmlK{*Et9 z$@al{a7Rj6iWXj__spEWh(7*sz@xl08imhgHy3V#;9t}>%}wt-l@?K>6@dlj1rh2w z5Lip|<@H*^8<>wGr3!Cf{i~lhsW8}Rn_1cyRhkn9c5wNzWmKn4xW(b~#|{*vZ{MUU z;S2-`J&dyd4rJb~AI3!gK38g+b2OQjoY)xF5eUV^&G||!Je*I8%vSpOzw+`O2(3lL%`Fn#Wtcp+=Z)yU?dOX$xvZnV-G*F-Zyru1UzbYll`c}*6>*E)^*GlPqQ<}B4A>WTKTb|VXa!Sq5{tC0UsPqlxMVa+$ zhP7gReY`GA(!igM$5Z(&{$rs^OV&z0hZ9RNX;#AdUZ6WO zs|qnmhS&}NA5GOp-%bWY34-NxRpx041i^?A?Gi%lFYHPYmWLw3OXWqxX8OW3mKkN= zvV2-PinNRpgL)2{Zqs4i=0pUea+Q6Jw;fk|4c8u@?!H%J3+CbDk5=B@X`NJ*j|?sF z>udz#)Qx&5tM2EPaaDpfXj^@-mo97Zc5pUa26>Rvl&o`W2_}2e_)0$7ndj!iDdUJ(*#=jtfA z*x<=jD)p?Y!9IxrM19w^f7(*Y>~2{r5c2hH*1?(U)dURdXklpPO#i!p21!az)E95? z>|iq^X{kYv!$(*YW;gB%aT{Mq2H21NsWxrx_HkEXQ%q*uZD9#YXtQQo|4C+id|*_$ z1*zM~Re!Qtn@m!#|5Wq@U8xn%cr%qWQ{)%=>aY?2(9_lVmu0nzmAd@}y{f2P6;p9N z{(%b1!ve9^D+#*I?~Mul@u+e!8MnjrUz+lpQ?L79ETzG?xHEcxHYA-^=*}Y~r|~;Z zJ-pwNalvk}%#{nsOLWEUdg>#wn;GP-It zSLfIN*52Z+C1gq9YFQy#(@riG7svA>n$18ixoNAv*jEm ztwD2MfgtZIrebHqIwFO3#m0e>AGe;_+bYUGTJ8GX%81;ZiS`vgBP14D_Fd=4_1fI2sES>Pd<8q{PT) zK)!#B;fVp~=>Uk4Y>zOWlOols0cC84`_no+GMFGx4GjoHg*H%sufK*01Tv=t!J(ai zA}~w~f>(3`4EA!M|21TyikoVp79qjEc)=jEbpjA2i0vN=5Qqs~TG4?(u7U#Y5M`Ce z3PzfS5G@Z6ZwG!?UmLuC+W+=X4Z>l4ORGKo9V4*SxkBdumGHd|fE$QV1H)-Lfk$Tl z9rE;-&;N?&qz?YS04QAz3^3?lvi)uRZzKC}B624%=wBum{<;Cp=!F{?Ufcjk0bJf- z_*MfT4aoX};T(;CEKnDU4!dduWPrD^V0d98AP2n22g83h0t&!RF*xy9pB}E>gzloH z91MTi1gHUY)nItX-wM1IoS13J4CiY`H!mW==v}vHBIiahJhK_iDz6y~UuZ^iAnyjl z8CuYl<#jOJss&I5b~nKAq879i*js3ETF^Z04#04(RBc2imKn8YR&YnKr5CaDrdpJfLK%OYM^Z!3qQ~=m5C8}I}mdJMpE+R@zAYyr6H-wMhLfJd~Wb)Yiy-uNJp*B1c&_CInyL!mXwmWsFw(U;ascrMrw#}(+O{cbP+tyUyyzl+)kNe{!S^1Hywe#$p zot;b{z@8++p)1LPLtub_fWUx&{wrk~;^PQNtE*(Kmz2BplS9R5*4%Rpb5odF7QPAXzx=>JNiTRK#@J$6L<6u?yj+=>zB< ztvNlaXleC1OSFdd)Db-BaX);W{QT?=VFolt%`&NWgQbnj+A;%Gl0Q<>VK9s(x!tZa zEE|9}fH5-`0}u2n-3WC%e!p~&3%rYm$fMdmRU05KIz?_Gk>W1)*GY|tGjv-k5`S=z ze94Xk`m`ac6K55?rBaiVzK`)3?qcJ?Pn86UlS<+CqGM?P2*EkQmU-dGNuWT9*8!=F zTe>z#Uwo4=eM$}SSLEbjIrMrm8QIq`%Lf9ln?6Q;2$(HUM#^Qmz4J{lL+T5*28WK3 z-S@Xv8i(D@=YDPKF$v3;`+h|<_#W~Yk2j~#`PsR`58ie~M0QY8+9j1z2Q%m^pY`8e z<4hgCUA#q0s$}Ie=fQjKt>r3v7o&pki!%@DDeD^P3%dFTri)b(t+N4W5^Z_56*_P zmS!f2R^-Wmo!Rl?21^Ww3HqrT?SnWEne*vyIbc~2$88S9v12HFd&n!(Q_6-_LAs46 z>Je41kX=uuct&0$e%T)nkOjZ3LFrt4gh>w8DsT^~x zIJPBdir11O|0^hFh@8SOQ${hU39?#PleMKur1~9?~6L=bpi!tovLPVHwtH_KzYoYk?9w!f3I0gYW zP-HoYOcW^@SkkH0@n)NB=kVo?;ycs{c2xJ~ML%7~Ie>{j4Trd!#^l@= zg7=wZS)|J4FcyZYzK@R=GOZJpjrQ7A>OcPI+F2ZXgJ0M7Or?{9+YjuG4m3 zgYOJ0eqIankw5V_WuD~nsTvkyZnTmM+zIuiG zvCyfjm~ph?H@&l-Kj2 z>pXctCCuLO=QU7O<6}sFWu5B1z<7HAZWg>L@60z*NNy}u2)szrl47i#{Xn3-vr&z=>2g%NW;X^Sz~+&#b^ zbXsr!h1+u>_F3a)1)O@Y^!fw&rLElE-9ErRaN0IWG8#}NK!2Q+ZxqxSGdQD%o=8C4 zXgQwuuH`kakp12su>Kw0&r9P%!Nfddxkp=B$nD*?hP8$3`i*7X8xgxGm(>B9c9YQh zr$&@Adh-bD#ey*Q+lDYYzKaa4h#JAF%&xkVyJz>0NUNPwH%z|fI@h%?(EsxzfC5p> z>rZ+~B7$NBZ0+%fQHKrI{k!`~YjsFk*H&{@q4Q~fa>p1z2uD>+;uq0aL?y1w{1R4i zTO`}=YHTtYcW;E=T6O=Gg&4238}aaNZf*{If9vVknqXeeT5jC5^Hc81us_RMG}6?Y zaBH+`tvHs~m&zN>)1PEw!m6ya;s7-DnC#7&U*#JIj~30`+AIH5{{h_eC+*y<wZ8dr{rNk+`+MHCo6Sl~W;IjA{o;kZm*d-KT5Go=UFD>YcjJcox$I|K z4 zr&r%|O(!XH{q@>X1H9Z%pWZ%xu9EweUFThHKkgo`wS^&neoSwgwXC&lIb?Z$2xcsE zogdz9RfQq@$$xnoirur)nP)$DO~mQ&z*8Bm`@rBC+hiKtgP%9|mwdeU%mjc{(ewaT zrsS5v`d~`h=rKsPpiB73!YKK$9Lk-bNG-(TZxPA$0oh+Fh(ZC;{B59KD~b(YVFQA7 z9}oe-FRer0jUnD*kR`ln{ZT&jMqJ??8bD$p?X;u2@PuX;K9=(e-@H8pM^4!sK4GbN zNB#Upx)w59K$K3p2DuBqjDa_{&to9jG&+u@_%Z)2%iw!$Pu9sT#yj#e`Mp!uXL06b z#bGv2kyqD>%~DngQ|B6~u|DV+}^hlbfcom#cmFJr%>W|W+4ekv% zpJoxqiP5Rq!Y3xwX^mg4A<@%t->^&=MzrGVNsNVu0;3^u;s13^knbaN%m5B12WBoH zL_sUjJ+$ih_L+Uv>e=-%$xSh$=+bCcGhT0l1+#dE96A_{p`?d}6#Ebs1k--Fc-5-;ITDHJ!b-i+cQuP(3a|M*yNcyPLqjMSL2g3H7$Ec{ zgn>n&V0F>;`Lpu0LPHV|n1Fn~g?9*wap#cbWLkUu{MVx;hre8G4jdRwSZ{|1cUzo! z_dob_Jc2q8v94{n#g+St>v9pBpRXRB3!_i~>Qz9_Q|vhwK$Zehkm|WcTj;@UC5cLXKsA9V_ zxj=msJe9Vw1w%oAZsF}iITy8#S%S4|WmZHk2}d(JNfNm=LDD;rvz$v()83?BomCnn z;*--vffjPRgAt|x)ZisN7eRX)WVF0CFd7KaqBm-9XMge6+fT;Ffy#)K<0o}B``=FF;!h?pcfZPyw0YbS z;Tg>+u&RSTZN31?5$@bFW3+vb3M8s>OqEyhRQ-oP!!Xw%SyFE~nRAS|Q_UCdix$C6Ps z1_KRL2Tm54kn@tnF~kwxElTFCKnMeKjUjk-c)75AFvfEfQ-Pc*4m@{ zRANFZ`_;8+l4utbmx!i>0L5$9sI=^FvKnD<6!_oChpa%SrkCF{Mg@Z+Q6X6HjImVt z{|mbPblz`Uy`BcoknWv3Ev+Z)g$O48$c_h*dC8B)jg9JKxc6>S2AsNx1Ki+VLI@0mRVtH5jMMk5@xmBKJ&fz2bE zZw<75`uJmIE0&+7W<;xgxR}uGz&3HOPX@;K$$uvMT4iJ6b@jSUMv7O|t?II#P5~>j zqd4{Ha^rkis%CokVj&GL{m}y&+FK*pZ8Eipa;gh=sP%!0HaWM zimR^|>)z7=pIC=^z zmNZ|wNmn1rXw#I~dcH{Av+*BBV+LRHRwXikmirwu6eOFN0q$|l1E3GOU&p(NQ zJBYUNt0^0a*ycf2eOlkxjLPZlSEV^-S$lFtoA2z#rYY29I+2S56r8C=mZwT{8yzs1 zTk#duiB&Gt)X8b$mYTf&Dw_~C!EIuCw>QBjGoeDEFrm$~<1+cAW+KpkUOLl7O|4GQ z87Z{NKXVMx=mFn!=*_SS<}D%=^anTsns3Xt#&8I7((T~0znPl2G2AWCp84;YF1zZ8 zb3qBwO@gk{=y`Jjnf@1pQM@tSPIx=8(VG)l1wb5g}e#^`uHg+i()s=McYpF`-%F_*{ zmch}%XZg_)j=Gn8G~R@hKzQ19jxhala4~SSO#AY%jpPNL|d7ygX$FlU7MCe{f<%ZU|dY8y|@bt+@@#LkYV$ZxL^+7yjneC>ie z`HnzW*f6X0>Z1&YE>pQsUFpb3i(W1G?sR*rG)wQ&yEXw@RK||8{3(K}7A&C9k($M` zortxh^4PLHxsl+n@RPD*{>?S*jkWJ%Yo=(=D9!&TpyqH|36k|G*!Rq0#>wcGkrzRf zyETO2pvo&47L~KxeNv8Vo(VpN=fuSy?Ok~-tTr{;iP#|)Z#YU-L?-kR7t z8qe9g6Kso%*X#VpXLtAKl|Wa==Ns|Y!Tfk-CAOdkYOY}C-3?m{$G=CD zljBd*U+ke-otvA zZf{@jkEhD>af8ph z#m(_7=4*Z53yfA3c&E0HN|eIa)8((5qr=KhF0N<5-F`c}bD=sp-DyowGW*7y>-l*4 z_2TLr=QfP0J2$Gi79`SIAjvGw`Z zF1sos&jYn@!nE!CQMr7Hc1is(zwYjCu)XESjk|L98TJ$hJ1p?!;(dSg_il0>x%Gm~ z4uTbMW{>?OCY}Z<3zc;60Zjx?-vNmw*kN_r*-4sbE#s!qZQ=IEMCv*8mt_Lk+w<=i zUg>*{YrA6!0p-SN@|MveEpj{{f^Gv%5nDZR8X)0<+X23{`f*Xvt zK6*m_%;L{TDjvdWiC_W00;R*_6`zKvWz>U?bAuY>@t-l)=UFWbh00iWFcDS;{Q()X zL`8H#LhxKX^p#$abryql6jOpWMd31z_}{JnV*2VMr6@V}3t<#W2uH9$k6;o)^36Vy zHAthLe9~}w6ft73vHGz-5&^L>Qt3(WB1pNTkP)^Z>rZ1Ly=ONq&kty=^%Ry=kuvzg0Yo>Vy{-ze;k&X_2KcB+UbV|i+2(OnhiO_M87&Pu29Qh+`G|9> zqIBV+RF)_MZ5k4|rxH&hnc6Sn$qQ*3`5)vwPJAbU*~;0&sVe0Zs?7iwZXGmXv09uj z19t`isa__zi^Kc#rs$ttlfy{^6rfxogU+afIF*&|lzn-jT;YPwkl|RH-!jtOf)c|5piH}6CHsi-&?8ja29g%zy(y{fsP~zmg0dGv=&NIM$3quhzQfldP-t# za{p4QCp8LL`2{|IYU&o$Jl)GuJ3Nm-GFzUOMop1)Qkp)j_3-g;9R9U5R??0#su+c2 z@!_tJlq{};oVSdF{zmdz4=IC@JXEi0eUVMv<&0i?Mt0F97zY44a&B8&99BvN!B3&e zsA@c9xe5|cO?`-B=Dz427!gAVta<^ol981;bB-YdEfw6}G~D%HB$e$D9=!Wkyvb6; zRE6sL6^?~BzlPi_EHY#*`*IiBrm>8rX-d)a2Z!2Nf6mcD>d_>x!LT`z!*rn*hCf0h zt2%9%V`}8ya0~;S0Tn+Y1N*QEjZM@F2^q>_S*XAF3Asc3N?a(qfQ_?tQU<5u*s(Z7 zZS_4FF&nP|L6q?d#=S%heu0r5=(rx@V7LS`}w zL313tQy!0fd=SWx16AiT61?DNcz*N2SCA}~o_V<89i^$mkOkm#*;%}mmcd;-{eqC-l(k2t^kvcN}M@b_0RW_*Gz^emg$RTfE7s# zCNtXPp-G=J*_z9B#YC4~qj=dfk+TI!Q-Jh1Gl`4faYci=qZrgNs-GIBr9snNXvAbx zy28^y;8h0Nz$j@#(99@gQ1B?#P|vC1R7-w6z2JSLWH?RUflsM#ic?WP3RHo0R-yFJ zIYb)NS1!{IF4eeFmkNwutX}e>Z0Zk#FdG-Zkf{sC9YhN@i4Y$6o6)Dn=s3POh9TQP z`O;yU61U-MS) zt)?&wpQf>p{|r=OK^3bKd}QI6AoQ)084IOEMfbr>D!{q#hQviba*=Zgkz1)-s8|;C zlraM@Z#kT-jPG|J=3mPyB&b88W0IK44a$dnyUJhg?W6|OcQhy2et?P7^yRo#43 zYHX`d0*=y?Vg{3P&66ODaE*{0=*J6k4~rAY-_!?#yVVk{6~;ittIg)1LK^2}W(^q1 zHDwhT(=e>48p2&Ak=Yj~I(F^g=qQ$eCAq&=W(=s2W9amiRE(^RRumhqN#^#Ab)FY? zxiq=~8X;0KXfee}jKvE$MHm9JDQwE48QkRNh4E~xky^`ylB!cS%T#7vI#6k;N_$dM z!Txm03?mub)aHfM=6$L4i`-7q@LpC&VXiBbS;s~BBjr@=aob@cry1Nu=7lo=8*79X z@WApo;dVvP7-}RvEoLxngB~$Kr|0c;#6-erBy88(!y}B&FWe|^qcZ+u?vJG648vPA zdj;e}+2cf%TLjJ;wU+#w5{)prIfOh$Ae9;FxjCHbOmMZ|acF_Xy9VqbXHn{Uj{B>aiM>a zP5J+;W2=wU0&Y$iIuA_b`F;4E4Kn&zX{mhp8xaXZew9VTdr<*8UL~w<9$scyUJhH> zqj;tJ$r-TR6*-g^4BZDYvfd68`_BbRUQ|;j88i=aaAZr07$v#d&zs^<7_weef4!(A zt7JO*LPFC2$KWku0krCm6UYk_Pd7m_OsSc$wg*Dx`9w=$8 z-T$JW>#sW?%>MIw@ayw)UGU@T-}lN4eC#1_e@+7*w^`T@w;u6IGBi)gGjVwi78ch~ z611UXEB(DSfQK{S{B3$?rOEpchx)vGTF8_oPK ze~VAr&A>N7%XXpK7*JNB!zb?6dOtg(jUdcvSHC#wC1VTI z5Vk^XZ_xdxv-?xLlZ04Bb)^;3)|M}ldiG)1-C#2p|Ib%!*|l!`oLhP6rOcG{Str@T z?mK}q50?&3_I-ZPpyxjVClNoQ-{t>|Y^;NyMofG^4k=pOJhAIhtQNCxt4l{sRLPK^ z0Y+6b@J~3>7^Eo_P3+i0mB=%EABf(Qlh%?XLq~kVEoW{)T?8UZ1WsgXOLFzAg|IU@ zB9xF_Z~|*|EoNj1U08%l$)@{R^zpr+PX0J-fp4NuxzE%~XyeWVIw;6+xAHs(-w%1h zX=4%|z#hNB#fVf%fXLZ#uM~4+x=5rD;h*vxX}2rjLH;ED{+caL zO`dmbqJHwne13oW-e&5RU{MC})zJ!47;C7%Z#Q4fhJV1Dm_I$fM_YT)Ut|n5ore># zL06_7Of+02FzT?Qz3eFWnG&5!c@yP-mULty$p2@isr`88&AyRi?vtN%OccDhuRiWn zt^&`tWkf(OqN~P_aP?5#x&oYaUm+-WW14R@8W&SL=Vo{SgWVJ=S6EAzAYAlo6gU zQL@m9r{yOlclQDT2_2t59={QyllLY0hZXtRoUlc)>WAYXBGSL4POw6~$OY|6R;HC* zzPUY7J3HKT4R4X}dd3kG!8X(QWBry?*(&1a_Shn~H8lt{%T@T=^e-5A%F8a#wD&9L z!RL)Lyp^#DJXw&ji}IYPfJi@9ShKQ^XY2uXYOz{Zvan3KdNB=uTZl%A1Sg>(Kb z(VOJCtNFqA3VsNF$;W8k#IY9mSUOtCMTO7YqK=|1CAGgX$7NTI>i0PjLvOY_??mlo zT3mdKqH>Ky#1I7kX7MBa#h{VdtR<~er9R;G3z=V|C`9=WQ zlp?buzwu7XbII8Bv>poe+9p~tsu$f^O!9?i72*S@935uluM{OW5}eGV>yi{xh2Af zAITb{HKRJu%`C|ax?zY(&6pvVIaRK4yX2?J?0&qbw-DtxKtDpYfX>2%b#LEY~1&D|Jk{oNm1_@u|D2#~@iaZEZ@ErK7jH|FJY}A+GDW^}kqYRt zZr1;?BjjF-9cO?#JeGK9 z5=hi@(EpMa?K%FfQMt^%BWp$vAWv$5--P7E+IUt&?c^@6fo?SFSjv{m^dROnL$~cW zHk>x%am_&gcrD>O&uVy(7as8PNA^`M8brC_IbJy9KzvDb9TPoY0P*SNJ>)r0{-~W` z0e#L^-Quo5uv;nN?;%`ImS10J3lP{DV?5MuO)l1rBwGUaIZ4H14E3J|UW+wqEql@s zREh9PpmyLxX>~)(L0@*(g&2DHyPGC?q)i?A=`TUAJc@0+iiZ#%KsBjor!#*s$g7~$ z6YYp5Em*KZ_)JkXd&z_UIY_$eq2>TJxRLgpqBfnTz67~i{q@$zkkWhnT+pze&~TdY zPYWa;oiqDXW|6X=9$XZl1%1QKE*XPG-ZRN0+G9LS%mErF`)NV&S_HM@*h?Ja{Auy< zu8e7x5oe7Lor|wOaUJQ9iTW zcjAma*#GL|D2Zw8e|!K)#DIyN**Y_5?2Lf&KGa`-dS>=1uL5Pi1o{7pV*Vdd zi2oI35;l}TXa)MG?v#D1yAj9e&vdoq=O)M_VliMqdrkX!CGX7X4Uiz~AK>k<0Tx^#eaN~;^ zJK~Lg)7|T@jq`gxaeq7g$%o(foMwH$=$#O~PZm#=B+=*sqTU=b*7JZA&jAr^ZEd~R zN~74IO?qdeL1pw$A!Ge$V`3B2xl3wv*f(2a(b>PQUmHO2NE?^w zH>RcFi!OLzPehYof{ZojpeB4=IIbQ-6>)!gNy3v8_1Kih_w(V@1FL!xE}|&y&|Hx@ zDQgo2LFfF8Uh?sA-DY5xHG9`(UYXyOxm=BH=LDi1T zH?+e=_9f}PFWU%pu{t=B1h5eqqO?XnOb9UA`eaE!JAU~&)@fT)Cd3~F8X+H3+yKv@ z!=x6%(Oz4~A6J@HanA6)oSv!hmLZkc2#?a!P={?I9z*qvu$dU%6@=K=_!Ox~W|k@J zfP#sfVU1I&V=ub2vLl~6rG!ekL8M9D@OQuJUltk2L7U9OhOg;-d1~WwIh_y+YQ;jw zJDyKKNoY($T&jUxAU=;8FBV?bllKaS6xEvHmq;;I1Vp_6o@|BctM-W3;j>oZStNT> zp+LrfC2g@cn)IQz8ChKEz6DB@T&(*j!rpjT;Y5Iu9woa8B}EcwJv&8f2!&dHLt|e= zlf7*OR-t7<^k_-?o;L3vv^4F{dK40L81;96h~?+=TOr*nD~}#U8GVJOMpNC`-i#V~ z1wGw#t)Z-_4oS+*RsGOykq4B2H8Z1nNaAS?hBW=u%BSIww<4T3t!~!9zM=3W$)1UJ z8h5`~Mv&YOdGn-sZu5QJKBaQ^I9Esc<<2Fr@NY%>k`GaJUE3-rLIER7a%SSR3dSe^ zkC>CS)$d!9<4=>H;?_K9^0o9+V?^anEt?WsV|-{zd$yJ2CR|?HrP`daMNNyR4pa11 z*F@G20tN-|U@ID$_r(f-l<2&j#_+^UbvfD_<#5%>Q#)@yB-KRxi|LM zaq-nDnvv60>)BxkJlS)G=IBOxN8SX1s7$hYAM9$w3iY@IR10)9Tw;Np(`BiOXEVWxp_Lr5ba3s|)dbiI!E>DBjw%&7> zLa6znHA?`iEa^wHrm=O+SS+tnkR!$@ ziF#O}vpV9?no>4W#Ir_U9jzw*+&Y8n`1DZyiICqNLzs3dk>h13 zv-#Ph9G59SR*oFmf1_b1hUapTV54-wirJ6QVQeP)DlI}4=@sj1BZ59uX}Y7cPvU1D zRo1*zCDk0UI|Xs5h%~6=Z9-MLfoIB zT)DNdH$id#miCW7(Y-o7nY>P9DQ(}!o%)9{&6bbPLHy8YhcM!>^BUQ&%zF?8Ku8uF z$YYovb(9owVS1`9rStsec? zisx#~oSY_2nkD@Xvliov;%A6y|F3uxWC!Bp5*0_hw6yvk1*vJc%`GUGh_Kudsw*8s zrn3YJwij12*$cVmkp}oPEHdRahcRmuAmAPKFfKup3{WUIf)P^|Cg}f?7}k+U{1eNT zKP%s-ISl}$kE}b3MxHp%a}SrsrLt)HEXT!Pz7;XdM|sTI6iKJt0#jy6Qi0<(JZRH} z-`e8|a1|Wi*u!kJ*u+?%gyF(&Nis%21GE0j43PDrF+E5*%|lk7s6!mlsWX9gDAn79 zqp-tKH?nF)OfP-4B4YH41+}js1fsIxnQJ43459;pU&>X_eplh8FN5Ft>ppSKyjo`k zjg@gz)MMAGui(m~O^&#uLVZ?ABwt7JUdMc>csQ)wE6{O?j!A3A_I}#hI%AvBC>bZw z$d@!ais_#Ih@9|DB-e53orF!3o>p>o)E1i!BB1pUOyvJHfP`M_Qi#SQ_g;l=IQLL0 zTh<1o=P;??>Xhv@D-Bx1)1`Ky9fnab|Ndl(6wd#e$H1)(D!K7vu!R*mCw+iKFR6_ zSPk9TKD)tKS&M)V;u*W<;{cslf3ytrPOE(?0#h^9MB>>D3 z^Cj_K3n^8P?w1f zb+P7C^nsrn^76G9=RxZ2W`8@~zumtAMcbnpuFp5^IWMy$X?ncUbK1B;nqvY&*$_gJ z9`VJZAf!oP3VE}UAh$C!xKq_e2y>*72MqEOqa-rD8UnI1(mm2tUwC2{CEmUWpr^5-SNK z)o*TYLzTuvln^7BSm>DmgY$z?5|rX3WXuw@n#47Yw_N*-!;DK{9>hc_BM@$fMcPtN zPewr{U@A$l%9%l1XD|>`8ze?Nv9SaWhoRv%an!{M$~u?S&M(j$R9Y50Z9;?TVb_|I zh{)n^xYD4JjMF;BJa0>x9Ct5pN=ox+8|5i)2xZiK=RiASTO?6IRH5Q;nH|WWCk9%e zt(xu&Cv}E0oca=!l7%_n;`%YF4FQc|mQa05qr=CS+4rvlU#C}eGO_D{EH9bb6p5c_ z#F*!GSBY{m$gI^3cGNz6AVoOovYcsS8z=la=!#|vQSYrNv5pdMZ} zZlcvkbw*|LS8BrF{zKdTezn72o0{$rj6_9AMe)5Ls%bEfObaK3UgS}lQYhewz?IjE zCwsQ@>kr%(NOPsc0-t*It`H2$6%ZJoI#82{5U4M%Rqa_vM5=SepsY$AGe6jr;Lll% zcsN!dU#U`j^n)?Ka}$^%lq(A=3UiwLVK2^w5YxU`5F$<|8ikTkARejs0fStPLL?uL zs{@Dpug$pnX&RPlv>FqNRe9wXmTEAoiLcXQ1b8gQq^~1jm2#T*s15s@t48pBzA=pM z?>eLQ-Z2b=^RIlN1RnNsrcM+SGURh+rM78OM#b31TJ-Dt0vWTp;OWy2O7xWbbXl~> zJF+ar6c9F$l%}P}WJwlxCL}%ARRjEpASqEyWFSXYWlRC{B=4C&UoDwT5eS2slWw&F ze@JN7O;gQrj~Q#nL-D10xWbtDWn`!N27gu13Sm zY+j>LzHG{B0>rh$Q15aDbPdwj9-y{2Gc-${EHLX`*{N)|W*_jl&Gok-Zj+jlPI_NN zBET3rXlF<-Y{sl{2@UWKBI3g!6QT+9-3hTXQ*)d@;XS@Xu{wLy9Upzpb#(MjnFc1PgD5u>Bwyl_3_YXcQEod#D=Gp(bj)nrOnZ+>Ne3s zFL84XThead`)t?>b(`+63IAlum%)CswMBFfKZKM0#`q_^*or$X$c3O^qxdx5f_o$A zcUtlx0Z`yhfuBU$25w1t=l#7pCkyOAq@2DKSX3+X_Zn3?zF9zB7(#EruylN~*=N02 z6mgQ&cG*|9UudB{`}y>3d|0%b$2KG*PHO&vFV_UyQSTi6E*H%54adM$-aCezSskZw zFT_zLjcha%sUpD{Osm(Y6D)jdlx|jB02du$9f^*=^}(jD&tSh!WRJNwey=M6aWALXJYtFdoTO~9 znQL)Ci_kYe<)i&3P<22C@~O?&=*_R?5JWW}nVDkQWGnj_8!B`G`pJk$YXvP?#hJHG z2bfP6h7ub^FX+vZAZ)J#~Oq zi!sDPnQ|v*2SJ!u%sg}xyp1S%m#o&Y(4AY4tMYHRBhV*AqC%QJhLZI(jU0(RR2+^t zlQUE3blONcwqfR`{i}S7YDM`0Zgyg*0{Bn|i7a6lFAlkK2&RqdFVL017wM z7Bjs(dVCk{T@`WghAk}RMF*;UKC;6u3PYZJ3Kf#Z!NFH0UA}tt1RWx0_wU@eL(IPt zOuH3IRKV{(8pq3XTbN4usT#bR?h+!M$D4*tG9vyYIUYWq!9>vHJ7Kd@6)1o;?v z;l@e7B-X5Kq%&f4)m_G>h|JTRPJ}Yuf(m@JS@2^74z$^AdMQR!A&WE1SIe)Yj)+D7 za263JTf!Lg5*zBoDNY3v>zOzNor}7_$<|nfmW?Z&8iK_ZBr08k@7N$N0-5J2B2Kp7 zN9Wd-t|~5+W~16#I=1&5Y;T1sU`8Ju`R+2Soy2UX+G=X}#{|=LNxg=`tgEKSu+=;- zu4dJ6V{-$zNp{4bkIc2>GyJ_~MiNhKna3ZC!JxI8_D*Cn=g!hpJ4!F6Iwi2DXKU>Z zz}<=$7RK~G7tUjWF#|(8X1c8;(zN)rX^G3uQ0qWz@5^Mbe zQ$G^wnq^c8NoO{L*>?Xf=&E4M zL5|0-An`uTqz@x7t^$ksjH-1F_xSknajIyC0+R&3Ldhk#B=YPhz~X`UsBo-Oaixn0 z?v6F2$)aaC+%{TB^#NWC9oB8p6%QG=Q2ZqHE?(`wwjxs!`n@fQ;k6cmSW}q2qTR1mqc)nXI!eJ*<2h!Hoq^HR*YQ^ zuFW|>TOyRbYUNuNo{W`NY$K#qCv{)H!kT=~q;_je2i!Qoj@{E`G`#4~bZg#ntR1IN z1v_5Rj>xp8Q`HOw_DA>$M%+lcO7?st55rTrvIAASnw?Xc0<0XDuEpTyP=$0vp4OvAc#8cl_kNRIsbO3cdmNQ zui)09PjgpAztt?ziJQl|-!bmSZS$5|K7Ti2W3z#P>gtXYL)6u3Iyf}VQMK~&x^`{C zc93cx7*@su##pHy&?u>FHNC!m!r7=bi6McGv!Mm>L=2Og_xp6#)n^|BcRrHLP?_OnIbwkW> zsxJc@{cnBAD!N-*y6I!C7}#20jGBOgJ}#fOgg@?^d&#quKCRHhe_-D5{jEq8is$k@ z7FOPRnEK}-_(`MhK{xv8*QQd?rHOc@NH03guP+nzOmVvplF}sYk=%O49~j1e9pp^O z%>4K!7}uM@kVtE;SKQoS$birAidHLs&w!7azX*ca$pSVegmkg+f{-&kqbZKmzBGhsvfgD^U&_My*I`Nlpi1e4ul?`C+;-E z3!T%I zqsyi6DgBuj49&DqehxR;alEr5rl<7<=R1$-!U-CFs)_n%Elzy*8}=H2q(B zL``xBEP7N-4E2W)oeS6Tt(1uWW;g9lYvx~RzMo&jdwBUby>mj|xSzy~6du(=;%4V? zYmayp3E!hh|0-o9qx|3pq~*Ca87!|*()-Mv@;eK-1r!dp#mo2PfAc=n+V{D*$njq@ zw{C9bwW46As!mk16R96tqi2b+A@MCKGaB3P4is$kkM@M}z#Va529}#2n%g|RoLVUI zkfAB6A^9ed@C3LgM~IRVzk~4Y%;3c}%~Qnn6ge%Fz##V)ISCj5x)&JnL&hL+iRADu z+#V;HK{1%d){T^1y0G*E7{R|AoJ}sZUJlzBBdXf}7PLaFeg}0`x&QH#rQmqL_=Gil zhu2(b7o=NM{7vy2nEfyB?n*~D=#CsjnXzZ+UowwSMKT|7;0abb>@XZDtwf>v1o)28 zS|=h%PsCIH(s;d;fVgX^U?LfD&S2lhr{*aNABV#DMsOK*d#03#kQ%61-ebDM&#rbX z4B_!qP8J8uVE*E7t|x|7IUl0}PP>mziHI$G-$0kYqt7ESX&^inSPb^C{@Sug51Dqj zq(LB{PKpm(Q{qpq`cYcsUvw#SdXuQ!QVH;KmV(ydBoWt<19CBikm(_58Epy;=gK;A zRM*W)^%J8bA6yu8q3*o3lM<7_R zEQ#Z?D~8e*sL~Hpn5N?a(hm_3hB4KKA2wPMbCIY4v~6P+spCKy8vZwX9NBMs1>9Y8 z&7aVs4W>)OK$Wao)?%NQG%8dFZiN(=1l0x(cZ#k*F9OXu@@kaXa(R*FmaWo_n0gpe zXq_Igw;o$5o{+6@`WJNSIKD7-!{(lS#favp`$$3eRHI(pk~-LmP+V*|(<0XDO?xqx~$b15s-=NsqOWGeik&FINSZ z?OHzrLa$n;XLX4i30JN;XWu}8tLsY99iA$;m{aS|)qB4i2#j7@pu#5s3kZF6d0t^3 z^#FT4fUD%Pc#l|l6FND`rB}kW>PV{dXx3lNTYc^}|KUa?VIABil_HP7k#2`vn0&RX zIx!sE7-LK?PK||01p*Esw?vkFbXK`Vt*h?LH}YKPmGGDqsQPZHS*THm#msHbq}4>U_`n))kDchO znb`Zd)6{{Jt)Uq>U)zX~&7=>maP0-E#l}bV&_Md54fr)RKK6pHG~dGa9b_(axE0v3djZTzR{&SRw`v~eTj2RqfnoZekpc_{$K4}7hGpG)ddXd9dD*M9J@)~OI@2EDHEO4-3;A+A^)x09{3> z{QE%}+(sFAtKo+Ol*5oBQ2X1pilE`BccY?xi&5`d&&Hh;I|gIE$^M}5MMHegB5;ay ztD~E*tVcA>z8+DBT5xVWT7`W~L z>;V@d&;g@t{E?2iFdmbHlmdehIw8$ysovL6jLJVc2d#EGp2h!kif=ZS!g>|-|M1<4 zHDAd05tfK%-D_CJM)~e9@U}fhf&#zM-l?jpN4GIo-0nBEDqrk5HA6q#uxjeU`nrF= zs@H-+gM-1{!ue;AGk=QRt`RctIMQ}@po{BZLkEuhGOM#mV^X#}|L?_ealaaK?%K~D z6?|t$9-^%yQ+AwnWaaeZzLXea&9^q=Zssj;gFD~f$Cgm#{K~iIDz~q@mIwOobltUq zUA+k!FPJhGGBky+~-+cwdVU%WZ!-d>RYR^?_{&fJ&nCz-S)6? zcGv4$--7>+)L2!UEPHYs(1cA7k*h@)pC{k5#{2gBZ(mL0&3B*<@7&$x=HR!{p>_Lx zccMeR?LlYj&}=9^DAhYSnq+b63w1>s-VhvOaDRAE1s>Od$kqdD{KxpJpbURvJ$wst zRfa^2>(8!x!*x-FdG{Fp{t^9&KMGa3!Y?}wYc%=-cQ!!bW|HNnS1{1!-_xil^qwK9 zeK`9^0wSppx&~jS4=~>9t_t>76XcsV~&+PGkCclok-EKHMPNv#ozjsX;iB^X;0HsUnlw(?m>2VE7iGvWwXi%BuSUxsU(@_2_g# zCZHU;69^X$h28r&@brXoZNR&HB*+ezJXv<~s3}fT&AuoGGVu5fd+V#HhE}cAz$jo~ zFb>!!?7_0p;NjB_^gchsS4n-eR-oPTOrQh(_{CTcPG(Qr5}$u6InF~Fp)BQH7|J3q zL!wf&+wDqspx2^Lriocsf&LtVwqfl4v{lWehB?t$R>C8|=|&C8bb?U|744wi`Sj~ach`g8L+{m2P@#XNUTBCo^Ar`j{Z!?5_)X?3 zhw6EA7O(0C(-uRo6#e35@kuFl^PsvyqV$E!;(yX*P@q}F5O3b0#K59wi8aq1EO~CT z;+eDH`7RVxaJgeTqoIPb@OQK1X};oFxCx@H)SIq#zLP%s&U$FhVrTK*Q>gH@r(c8W zd#<7-Q(k|s4%oKZu|E9LDnup)mIjXXuVVz0I~k;Z0~N`3H%aiEjYr=UCurMP314Y> zZ%U0((xg$N2w7kwJSP9Mo9_tAu_GINhBbkfBb8)!zf~tAz}%Iev#IR#t=d(-o6glK zre;it${1^LYh1M-Qktn`=Ud2#Cn5_rz-j4aH^6^~4L88;Ol`6j3Zvu$T4dFDW5FJM z?x4o!G4SPdFBM-^chWuwAwO$X(sV>DO|HR$=?=}IEF`>|@wvXtXS)Zk6~D)f`ti!w z3QfnXYl2tCt+$L*ruO{N92(DhRMF9KTb7`a(KWxoZeoL~GJt^_WcTS3%I2f9TfWyI zK@EQlK)Cx580U^z{vK^65FRdFICb#7DkgBUcpBqyhu3*##>a`=!G{rGB*hRyPIITqA7@<_T#hwqOA%Bo7sSheG$5I7urEe`tCCPpd3D1^uM(W(7m47ab#sQB2SZMFgkj|!oI z@il`2{TXu=57a(nPo8K{2|maejkEL&R{?Z+J5v`Yujv#HoZ_MZ_z=N5BaZUHIrvQ} zLJ(mz9%q+M3jThjh)UAwj72Fq1E7B`VO#RZdo%$P-Io*e6G&x7Q>_E2N3lZuVRyT~ z{mb^rUaucdrepA^>mgH$ced2~p8BoF;>x4nsi#$<4=D~4_%(DS8*F)XU$7^0$7t%a z_eR>fu)X=nFxpFr9s4k?uB7sWj8q+3J8PI8#o4*i??|vm8cYr#AWeylfy93g2|Txg zzue~dc&#f27S2xphA+e_c9>5Oi9yVY1JzD(oVwug;6XMm!4~uJleK-GOlz_rK1W=W zcM+c_13f9OU}(@WGO38^^(1i~T__*rg6Pw9Vz1%*F>R-PygR73oNV>h3BER1E!<;I ze{dA-#~~zt7V91BMv8sff-Zl>+}}IIVz*%W2UOwo)9sHSCBuwkfkv~UX1uZ@Fp#!r zq-trSo2m)jxF*ss84txIyNI<+tl4-pWV5W6AJ@YB*kP#rrBky50%8ZiC9wSoPho}UgENb+HxP2zn^hfS(01UhXR z4OtnJQdcDO9(I@@{kVT}Jp*Chlvcoe5km-5q5N3Tfh7Fz%y7{UX2$AWr~0DKhq7-7 z8_)4d>6eyxJ__nQErrTIlm#VywL4Lugz9^mISg%vv~Mu`hLPg=&?*;D z+Y>jpFf5K6nmC40H!-f9!VT=bCgvX5p}J9XjL;ebG!DE!mkxh>)2Pg|F|Hj#SEuOz z`o_;>ssY(M)cDd`CDpu;ir0J0lW%wVxatZg!7hQsBlrDrH&a*Qrut;E$H=QtPNE@( z&HS(P>>?S)d{xg0${j)|7Ds@>70&OP)t*z5c~Cl!sWZ}ZMY0XjI`;{2!*7G=UBjoQ z8N8a8+%)_Cw9kJr{T#gRVZ&O8B6ci+PJ*x0w}x^RIvbZQ13&H4Jc@AiVR4N{@H*fN zvOf@lCk63kX{AV7S7L>_+-sW>2Qp-B?{d?1*?!Ug8QwlNUEcUvaMtp!%Vl$cMTfPw zL_5z8K(byxKz-P$Z|e(jnH+iRB<2j6{TEhXkXcItNsh)R_Reg$|EuW#x)M~yax8K z>A^1~Syb|5kSEi!)ul9BM%mVbY%+=P%@rbqP@9$6HI<`(@Naq%9I``#qE?Q&5s&!e zxfy?PTEAz^$H}Am=hB_N;ufiS7a0bweizw@yK#9j`#d$qrZTBoIGzmlKM%Q!hZFWX`V9vw%& z9Oux7xhV^NWtJR1X#d9)C8r#CDY@eTs)v8X^y@IDw02Ll37^HaQ+)*cGeDVpAT^ zmsm5`c#Y0rse^JtaX$Lp$!zl{@VcClt|-jUYvAi?7Ujdk;_Mh@N@vRifxapXVtap# zI$D&;B92lBSdQqH)NapT{Tw9pS^!#HEo zH<1YF@>HnEs+BP;3^0LZBRg!e1*AHLF*A;HRmxz1k~=21ZPLBUEE$0+SKpj~OpJws zc)Y&;45@Xi?GH>WGM_j`Yo)!R<;UNY<*AMN?67tt7!dq=PLUVV76f4nDd zTgTq^PJjRC)d%_i{!97Q4^~-$>h1luy}M^g&|7niN&nA1QTK?P&WdxGLE0XPUuagN zo<}ar*^teI<}kvq4;0b~@g6jf*lkqVO)_stfo{$I;1oG6f=@)eIxZ7XV-fQK0lj zlhPaiibK%y_p6LRQ{CMTK)-)A8(+6I8(&qOY}`_vBVv-k*kg zySM#XYKxag2fN>kj&dt{Zsc1ii8g#0Lb5B=YG>?=AW-Zf7h)|5dw>+1lee1aDU`cF3!^nD0Hcd9~>MVC>6 zFKOueWDry|pP}FuHwFkK+tJxve#}b9xt=;aItIv)PrDr8^QSbMuGu72D*gi^qZ@XfHrB_zul;1rV4*-&*qZt!GX6uPA>d0 zS80xg^v7^N#^-eBk72jS9$d631iPAIj9SEI&U+kSlm9#^Fwvg-uuXmE+6G79T+3k@ z;a=V^cH?N+uHLcn10_I^!BimxSE1 z#`~-yedK*cC((cU*rkQ4RnsX5{yFt6cBML2VSS5d+9()W2txAoh|c^8&Yb0gBc9vR zE%A(bE)ZYfZwQ9$jD}Sh4Xa%~1S=(07i{FNKGNP7Awo9pg%EY$zh)C?K1G}NLebpi z(R_k_x&;=_e)pw^;~jq0b}<~5$7+)(OLW7f9}d60i>_N{T!TSE+Tye5}5V^ zyQC|qkXwHZGZWN|;}r{Z?c*QTH;1d;$_-*eAXL;*MuO9dY*s?ld`nvQ*?OR{k!k|Y zZ*AYyvBFSeGQx3t&7oh&^}!VJ=321#IxU)Vmt91Wi8bE@g~=Chf(fw@a-%WiW@E^o z8bkify|lTHg9qna6$hU~kVoqe;a`gPvW4>4-ywhBtOA}~IGLRSfE2|Y?Z)4Jq+PgF zLa#`Mv0S_DDrc{i)sr`CvX7#)Ox9qQm4XlcA;qc&ps;-MkE2djYFoA(WwnH@zCb$2 z)x{2h05dR2*>Nj@%GK|sDkl>pWSVKd)U==F`kp5$%fQ|v-4*j~S*qdu@>|i1=H0Rc zI#ytF;&J!(Ymj{$V<<1uSWD37OzN7jK!A)obzl^j-;O+n zJE8k!JaO6)Xh9urPKfh%?wU9{EwXW3#>NwrUSawePvN$|$YXrmS<2femzdzA=S++{ z=UG<7`{^jcJ6dhgkH^Ts*LgfjKJ_U8hE9Jxj6QjhyV2ckwNsfrUA)glOS}CA@bAC{ zF{w@;2lB!t_S0buZj#dOIPc|>%h{w2H!y0E2Ynko66e%|CO~aIIzG;6S6yk!cZ&mu zy%NZDzI&rHUVwM2-GuOR53+13%!MJ!)9tBiN(Bi407We%;PN~f$8Htmx?d>}sN#Pe z*707CBkm~q&INz(*b8$Z-?cCsdD(g|)};0HCx>;`uviAq)>5_ps9qFU@w-Mpe9V?G zb-h!_^K7Du8vF^j?TcRj}Cv|=d3Wu++Ndd3lBrnU~FjZXj*nSEis<%azK5J z5mi5=c=(3;L1p6)+f9UKl^uWoYDUL5 zy(-A)tfkfAw_d7dbzWOEKwVAg%?&$)ToZKzV;Kw;NI(GTvT| z%t>v#DSu9+|qWUTfOoTRS#Bj z%xJD3$4-FeJy7tFekDMkEHw7O0YbSfBCKp;`6rV43&RMj4;n+-t( z)%gRl(O4NS9C!tu#PENtEsqWYaJ(mVNcG2VVT{HOuy7JT6Bv=Qq%Zwy@?c4f7ld6mpC#JlB^Iezj>#l3FFM?qrkG47B8G*L~Kh$sesq zmoNEc`6BQKsJ~Htx2O~TU^JGS7r#Z#@Fz~eBG*fR8}t+Z6U~3hOpl0Lq9O?*dAo`D z@IMsh0>|3z5ZzoR`JY?%82o`~4R5Cb{qn%!FH;LjZh9{d6E+E~AX zX2G9NcZm#M#khY9T-Oja1@5Y3Bk^uka)0&x?T~s1QH|UNr-Sd=4H3CS;q-SCn(m@) zRZ;*03^g=m$yIPTYzNmW+B79wmLEM?#|oKXoL`h8^Or%|&?T^%#{-;&h@?ug1gTOw}fTfv*bvNWkcmKYV|OUDhrPv7(EIBl@v5m1wy& z%LQ7NUc@;V#2Se*QpGB^&7^{Px+$A9pDArf2g!LWZQqh56ou{zh`T_(h6IA(6!W_0|m&Ps=9F)rd1k64{vs3i?|JlFngpn)gs zNTF8#02#$;p%uom;-^b~``$B@+)*#h=iByp++L1ZhkGX{+rRETe-&SbO0Fu@tD^H< zYC3a_FRJJG3m|?uc(WJu{d0T>@09j_CLp4Xp{ajSBj!-}%Xk*wJ&Azz)-=LCEDty2 z&K5VAd@x2d$f?Afw*9F@4fc-bH1BL5VML>x+VS$dlakqZ8PF*6z*9Y{W=F=KW>AgtCaS=%W&sjXHgWu8H{vlWG zGr58VllLSY9>=3D{0n992TqXz0pLt?&^%XYG%wVbvJ>VNf;w3#{A^H6P2##35!_Lm zl3_lCQgK5%P@;GjfHp_$&7gb44`N00Qi^{eiWkkxDUK*+=m`R%Q#;^V3be)#X0mXZ z#o#<1&c?CMYm@w(sN@{($z69bnp_U!4l0*sksCCt7K(cd4$CCUr zI{8PHSF2Z7Ce%XK6AI?=VIGNd9Wmxoh)1SMENUdwBS!ukrlgU0s>Rq`=>$(FRY}08 zl9D`T(ytm6x-^St`Jh93PDpN%`gfTk^B zI$DhnS(O}A)(c4yi@X8P6X%7K1`Le~5l^P&RZrl=2-^)&Dd>#fseZ-O?EB(|_^C_r zhj*}98c9t#_KuL-b4rs_c{Nq&xx#zZg*{2nWZn5`e=T4U5o?4FJ`G3a6*Yg%#AGU8 z-x{34&`<&%ksMayf2?pL@`-hyab*-x9Oqw*?Xnt!mI7bqfw* z)-?YXjS{nnVB(IfG^W8K40cphjJ|gaS@pWoiaWK3O4v87to+O`)6>rvc+-8e!hAwn zqU{T?>d8eTY*uQ2*P{VMs#$+g(|1xfnw2n<#1@}2nw3>SrCHNF_r~h=3U~f8THUg? z*<7UyK5w~J6J{RGOe`)vWwD05YheRg@44GZ-8>cAPOi}4STo#^U||Hf#Z~dAWwdJ{ zUiZ?K1--6)F?2tm)u%t$d#BZ97=K$=7wCoTFxLiKacQ=W!Vb9xAtrxtbBX8<>Mtrm zlB9M!Yai3KHlF9-JGWyT8fllZq1pi$m%x|X@{DDExStK)j{H>6X*(mb)#A;#u#RR{wBouMcm5PBNet{feU` zrN=_x-CZ#lM@7*CNP&Mn>xjR6c??ELp zB`(A;9wn)y6<#uyJ$iU_bh5{Y*e}Jo6fmg|pW8$so?wl#4dzZLieZwT$9aOT9dPnI zI8VkyT~p5~3L^w0F2hIn;sJQ-&G39v-J=xor+6?!%!)Li`pJ{sos-@;JA3j(jL@!> z0xR1`d8;SUg=~Myud+Lf|B-3fYDP8aT?c31aDr$*iyh|K-asQ4ymQ^j^i69bSJ4=OTyOr!MP=NnD<1!yeIj z62t0PwlkVcVWC`x@L#Jk;yk-F@7xZ-)0;PVLp8V$I?>!$g)^P2`i46U=(~MkM-E~n z8VY=T6%(d;c9uhLsTM~8k&^CWHbv|lVJTphiKApwy$dawr)e>axrmZ6?x`rI1NEN9Q2MF&;`+G~258l3 ze3qoCQU#GAk<^K7)|uo>N{)iDWNp!t<3YRtNlSm^2pk{_Wp53#@obWcpMKJp?3JEC zEzzsc&^I*bAV(5bF3pX|*n`F70*RZF)WT~z_>z4A50W`#iT-V=+A~z)*c-%CuK#XC zR4VqCqzcOLy5)QkjW46CLUt92+t8D+4J%>e_(ED*3ly4_txY3HRM4G;gwWtcTmb|W zdhUM$-^m!fqf(4_!xRLq)4-x zG8H7lg*uZj|LTaFC49@TI_zDL?bsTKmY9P=w>Hvbv=Lm zFcj@zd_WO8N{>b(v;5>a2Pg)3f14-MYfx&JglFs^2WgM6l72{5lfJK{@-YiH*4FKM zK^ZWWZQFe{r5U<6Y=wEY&QJ^vma^i9A z#nJKMHbnGw+6VVDx1j~G80n&tMgwdJrHh=a@b9WnmGX+Ep%inAyGQFiwGJz@DgH+c z1LZ4ahZYD!e-UOD6+N>6Fv|%XE`^%doCN_|;C7)W&EP2pZ#3FN^((46fr@`X6!CaO zscN5tlChU%jS%xkFXlq))W6K&Y(P!-)ZAe#^Kd0$u?pSudH=ngcFgGkriZxv|*_I&5MWf(9~_lyZUw zu+p<_Ozct`py*IZEMCWOdVrSpT(2i~v$O?^o+SM!imb;rxGdE$44g*hS@`)^%I^SMcW{}5 zYW|XvwNTkD@wki}f7Bu_Wy2%%ztg<4KpljTy!!AVQI}kZ7b{GMnxB7kX%gY9xlWE% za+M2#tsjcVKdk>dT>Nw4`S<=V4{}T-v5-w%8NfDynJTHbP*C)=&FA5{qn1*4aGyot z-m#l5w2)P}Lx^5eJ*wnuKKtu6utv@ei(WuwAeb*TM*cCkt7~94Z4vn#K_URUf~-y` z2*;cn8bunwOnlyuB}l%pV#~pINa@#*PG2T()hfO z`-ys&0Y!q2Y>)_srz5PqDJq%@oGg_mF~x&+I=+Fpu?`Oj9TI$bo(#^bQpG1PO~NoB zPBnrA9@17Kyq-O)b{wf$>kP-(YUW|TA50HH+iLi3*{;Qj@%?|-SPdKl|D!QyoJmkC z!k$?bgo-4EvP*FFURYhEw(1tl=jzr-9rikcT=vT*xhj(80;cLb6}o^SbJ%c`<}BZc zIrP_)KEMB#Bz$S!*D~GX_K75!X4^41e5P{PgE{D1_e8Bfw0Cz-@Q&qUw71FXc3Njc zU_h33Yg{~lw}*d2EYYTdUAMfM)1SXk0Lu3RTS>P6yT|O~$7k=Yu@DA%PyfOVQfkE_ zNanxkHEvPKJ#**V9_iPa0era~BY|+S1|N>k8^{sX_jvEOy;pso#l&Can~{pL6zurjyhGQd77c>y~GnPxVa?fNjVQhN?298HfL-5mDsqO6!*+WRYR4L zs2JoYkx!9F!!5Wae|4OX5PP+=h<9@Caf&8w*qg!PJK2zy@p!*=^@IfW!^z8|zKT*{ z(q8UYlKOw!f89HJ@xo6&*nYL^r|leXpS<)F_x|r5KJnwHAMd?*vv;un>Q_HwcW=9b z`St$6Q8))W?ZeLY>;9YLy-Mcc{>cfvE_Bl0KCU!OXYN%S(my)->xZ4ASN-FogIc;J z)}z-Ia`un=6&AdFbGZHL!;9_x14(3sKd*k>f3<%{B)+NO)44C-^mmWmR+#wuVEe!J zjwMuI{{7}vwf7Xj!QS?7d-DKxjt&pyr=Kfjbp0&sHU(Yg8Y4%KM^r3oz%_ z3L;+}D{XeF(%kug_ExZs$fUMyZ`ab@( zko|_9Puy_=HcD|@#jth|O#y9z+xdSnSx)x2xw+XFTzZ*JzXx~1yTrw51_+$gdue~cdr9EE zh+wYD^oz2XidGbj6lx8wwz&PX1u7QaQ-fma-YE_@I_7-m0_w2d=Fq4H ziZ)0D9T3e0eP^100lVQtmw12vVgq`@Ef8q)wNQ&tcZX_WeTvIava;`0$LHHKxEXWR zts`vTR^#^QZdsCZhHr-bhA}1!m)}9D+!@DFeh>Uwf?JK{3tOR@$0l%e;wfUa=Z0wq z*_pJu$i1qarQ<76oM)FQx{+wt$3kRjhnWC};6_q9&Zc5kz$~sEez<>!9N#siLSXB` zVe!cG2leV4NrjSTVi=#!&hXV43~UEk(>R9>`*;Wk+~DPjm8(?P;{82hehc^xA!s)g z8k5I3AR=$eu4qTlv>3heI$h(DB!P>|1ojIdy4MI?+J^BcnvIq5c#>J~OmGf9jTw9@ z%^MZcP)_Vu*(^8Cv9f=kwR}ujDF5xrw&HmLLf2wtNwfvnlYW zt{rKm8OkCGA3&XEnUwcbFt42x#N{~3nw|_fD+J(=Xc>y*NnviATLJn6zNV-W7q=`u z4bkz(s-?QkTY#g@bwsisl`VeebJ*a-PWj;+5O{zb%xMzS*3NX9mBK(R|B%0eg{vPTzfTO?+p;!a%pr_O^*H?~?w z$vMpr5h1yObxCmeZ zY4rDI7hO~x+AMzvnH?2Ykv2d{F_p}18hFqqqhz4Zt>yamhRv;J5Y6?BpnS!St^yZ& zM#R7%bqui5vXDphAU(%R&=>;?z~9k7yq_xFpqPpMpeljqSMkEm{2o$cnXi7wV}C^q zGhmJnb~ae>Zs%vS39cx&#bZ3V7r4Z^66l>*8O55&LefQ-OPRA(%q%8SG zo=q@KSksSYY*@;)xdKqnhjgI+wj=rO@$h>9sP=*nq*p}Tko2jQofK>U5*N;qbtC<7 z$&!|?8(p!Qj#sq}>D2@b;MG`$ICa?MY6Y9J0*jy5!VXMVbvLaNfaJ5^01EhL$A;kL zgTMr*1Ydtw?dWCQYi^g^sK@jG(nP&?NL8V-k~Fq`x2`ioja4rtk7Wr5k?@erE2zsD z4sbeD&jyKjp***}T0_FHpgy}r;(5fa{_uxkTmIL1`opv0`41cG#SiO04|_ip?H`KH zs_61&c1`V4lwPdP_o3?=vFQ39UeXu_L?^K{*2L>2k|%vqzn4wa3p zyxpAp5s+ZO@mj$>sI(VOGXiRgn}q(_G@w#$q95iAd2iH_iT7t4^^oKQCz%Dx+0)C_ z?t;pk6ZK%1nY$q0LDy~kWA@#~z4qOrp4z6=PxTnW&KHS_?}U3!J{Y-{0B0=lvZ+ zJ-f&-H@4Q%FW}@Ij;^KM>kvc*&g!b@P6ZElMBcS?0y`}FW3G6GE2T&Xmw7a`(Yk-i zOoiUkF$IIM!L0cNa+9>)H??brQevu5-4Raeu!wHLI zDw14Ph4lq1hizVOU{tGi=efPL>=l3J&Dt={QfGIInq-<&4gN78RXr=zo`+ObL2enL$O# z6ox?`%Tb-dP!>k8R9&F}5|l;${tT7OQ4ar_=56a;%gFW8h_qz*K?lpwH}-$jy1OD&UF!CbtJzk;1Ux}q-(Qb0DwQUkHFj^v!Dr@VN~Q1x3{&++|KhL( z%(=3NFh<)|?l+QkhSWLg*wj}2l zT>b95`Ys_w7=vpgZc0Mb#N>Y>?m13silx8m;Kz(FJ|7(SD?^%cDFX~9t!>OpnCcCr zZ{g~uz+A6^Y#3&MQ_Zt&rlp&6IgopkEu2R8clTcP_h0O9|8h_hs&ZfT6pV_;96T_w zx^v)dCs%KRT|`K;$(CbjH03%4>L*?YZ0_{yBV1w<=0&}!*zL$0PRM^%X;^w%c2Lwz z&b2*Rov4H8yy@D3xz|ZMsR~bZ>aK6yujC(HnaKHcSn1-$X!i?zrNu#;RI%asK!w+s zTDY|kq!_2wTapcqsrnJPN(JV5xZ74RlXLo206nJP4*70e3@VuAP{C-ya&|GdQ|4B) zz*^&Fn%QjCLCj1cp6P$uZ;tK`*>Ieape2{M&2#7oS#=zMY`aPo+``iV)uduL%knFg z{{^SjcW@=4r?Yz7`^T>jwqNbNryU!KWjo2I<0y@(9uNHG-ogIP(d+)+@p}dSG9D)b z2(%T1|MmFj&8uC!+xnj1AvU#~hdKShk|!_sU%waTk1Tm|o=ktkp#9@FJ8;GLy#dwo zMDW)^-upgdG2xT+}|sL@zoJde!UN-fQdTW%RwQFsP# zxDGV;0ut#b)tSKD0A8$)6~}88P9T><0@hi_mVJN={Posg9r;;3UQ zJ9Rg(m>qcEZsvcPiYPLnd4|2!Oxol`R zTz7AjJa5tAHr!Cm2TqP)-uS)R&<-x({B?B2^s4F0TgiV)(@O41V6@%YRA{I#?q6&) zT>kqR6I)^8AORdMIF0xUF@f3HjvNSv| z-a-^>cRqSR1Z}m|ka@4NNt4s}B$&vLpj28~wMcr~Em*W(9wGZHPpkg_<{qEDK04Wl zNQ3pqXRot@-j)F=;^2Yfv-%URJM>doL{PJ1G>)awF`84L{us>xn|qArBV6JbjTiNf z(cFIyz2PxhRVtP~MsrZq9HZ6tWc3&=h|W7kb71cE7;O?q#VntDh*saWMZPc<l;I2Qt;ng)ey{XC$JH6qV?&(df>Ij|WaH@hQIkug$feuBXa~uvpM-!C__&JX8 z)2T8?d+StlZtJt-G{PQ>R4Yaj?mMq>i-JoQ+KUrV!N zk?Q$M6_K_ZnuNOk%NG;dP9xg97E|?8T*RO|%{z7aWzA`pq!e~+nB){0h=GdD-8yB> zcQsUi8^^$_9o<0#&!rptNmgAUe%{0pHu4;jn;Cgd4@*^~QT!GUHbcff&!K;z zfwAYn`^Fy6H2m7~i{VrC>btTI38HWfzYvIL{4H3MdLk*Aw{fldF)V{pmNvesv;j#d zCmXwp1V!FAk}^pFko3KY7?HKPNXB|oLa_+Z28+xR%{a(hwcc*HX90xVpR%2N#X`9RI+h|-S2TiofrtNGn7YTQ|TjsnH_oY83p zuj-0?mR?3zHx+=2e~VvTu$uem`Tb%WsyfDczMYD2#lp^P8k;wpn?R?td=!5T@Kjj> zkEPiS*XdYlTT~_^wa3TX4H0BHCWVTn^^V`Xdb|B!fr-yWo;5rDbfe>dj1H;PQ*vJzQ=gQ+ITDkf2R-ixFN%wq(4qd^Y#JYbMn;}d_DD_9NA)XL{(?la+F|UGFm@aGx3#iGLy2}~D zrHnD9zJjufkGRu3n&fw;DJv-NMJuM;N&bBqOh{5-BqWy98Y78H)*DEezo_R$1LXuU za|cOzrR?3iGo(Gl_i6|Irt12>dS6pjZy~vK*NB3Hrd}dASQC}7;3R)ZJ^gf0f0DGr zwmKhk@W4q@{UOgCo+K?IsM$#p$I|E|$th5OlH`ERJxTHrIwwi=)S8a5&LQ=O_C;8D z?8HlZ$4+kVS02Z1a_CeQprsF;927N&PEJQx51N7~yn`kOri_Y@`pl^58QV#G5$Ccy zoXvlZ2*aI67g3_JAkcsNc|4wCD0JEAX&%E{%vh$dzS%`=5U3#>sQ?PdCaof=N3lMA z=AS^^1B%)K=U$+t;PC5AYSI)cjHN`z5c_z}sOi0)73Y14^%}IW2Y3>flx5%gl|7uC zrIr?%|@{6>;0$Wpsop({Ik7#-;*Yt$|UeysCvm#>yA6e`S``Ia2K5$xMy=$&-ll?#UDP zuvwkfR&@=C@pf58gO7Y z!)s}cFw^>b4t|A_Z?@E-+?$+6`A1IfVRjK17ofxhZad%xgp|i9DOHeo?Z-Tv zl_Eq8(eZy9_c77Z&-!_k7GOsJO{A_mf-;E?1AzM)u!{v#q8^_MDk%mEGq#pKCB+$O z{Ukrl^3-j7Z@!?v*xvb2E9`Qut6R|50}(V&QDN~@e2Op<5*;!y%ZKo8Er3B1&Hn(+ zlz?c*X*{`7!sDRpfJR5bU&xXdNgi+0mK5hWBolvUf7{#HP|`X}OSwLYCKI4GpwMA}dMYQIyS&d#5 z)XApn$hk>gl=QA-!0};z?FX{swcyyBt{nmC$f}a-3dzG9Y$dq<3Qy?>c%Nr+1>5C+ zXQ_Wx#*kDU@7V8u`2vuS|NH3G-iPDu-TgNw3smP(ewvg!Nj_l89@B2eG@?dXHyBo?ve3%pk%oTsiB&B7COeb47NAp7~_tPuV{7tItXN=pd z;zMn6Ig7IiPB@vV7Zpv@S~l;$7B*Tq6EkflR_95o;j=8asQ;lO`WeJyvLaBAI7J;P zf$b_yTfuUz#tp`*5$u?ga?SMjS+cA>c~zyVO%GKivUm}vMV1$xMRw-`(^1ihhS-1G z?VS^AgUNxMN28KrEk>{kh6RE^D6~XIc@n3?@fGTkLbMT3Ev$i@2@O(+wg(~haHyZk z%4m0IP!^rWql;0wm!3suanR1iEYcXRJz-3NVHVRKhqFS&son2=$byDFt%wB~r*f(B zAF?CF-ypJk1S7eqFB2otwbe<^UdDgGWhoUjH``?Z3d<6l=~Ia+Q<&UoB?C@{4ROCc zUfw!q<)uk=YYS}*)N}jn9G_f^Ov~n3XAvdd4X42bt(C(&Z(u|F^KP2f$7yeY7EqI8 zKnny%w4*sUJK{C&F_A_HYfrm>F^F^633m4qaMudQ9FEi|8LLejggTASqlorHy$6|hUNLE*L^zd&B;r=cs***{6!@09w_dPtG2<*LYd zG9AN)mqoD?%-1Ia@?Z7twMKu+Hq@jPo@7#1l8Gz;`Pqr9rxO`2*e-x}WZwuY4mHrySq^7F})fs5hE6T9+vrL! zrC-yFqp&QX2P-e5D_TZ7C>2kC@_2ego3V{p8sey1UNUrW9;Is1H!8{OCiAkF=gC;_ zSF*@7Y$W{z+pfoOGA7H@%mYz^7ciM9IzHNai~CeB@;JV30DUx#Q`n5SUJObC-4J;1 zA{xdPmJ~hAa`6E7eQAHvN`(X!*;Ma#;I6j+JR%>dUARcIJSSeO-Q;CBV#+MTnI#Gt z4!LC~C^Tho^I0 zIVfS(?TA7DzQlm>qIvIlJXxY(O}94UQ9u%c*QvNdp^Qb>sj7dcqErrV8u3g@)+gw- z=jQ}Qw~;VD0zb^->dwnF-WTo(mp$kAu4wVH!7Ezc{-4v%&?PMnK$o;CRj5l^Lg?A% zg*hk&_j!JQ%eh}>=x!OB^QvD^ZDo^yHq9A9Ap6|W-diFXk3S)Fir|77lHpBbI=nkJ2H0#S+XN9?=NYbL-kN|%w<~z&ZL&srfA)=6I2?qCk znoTW<08>D$zust?-v`L^S#ge0kbu|feDv?Lcou&%#w!n!Hu?w3A6==-ld_+1)$$$m z0>R7Xz6D1aZ%umgdi(9GqKgYs+)<+a)Cd;;S&BQzXP(wl{v?=IB$Jt3SwgT7xnQGv zPPjcS%gxea8ePJFZV@lZ9HnMy{Ao%%(|KIX#<-uPXvOUs+=afBwZLodGv&tSI8+si zHoeltV^>}DIOP0e*6?lEyAnYfm| zTFl5bYyM&!ojG~>&VtVTEgH{)r47-w_3HC-r?k4oBiBHsUe91YbD)<^eGGrq4RvSZ zw~fu~8hX2bF6CWIXV(zab*iuEhg&18DwdN{+FquY^{r<=qgRrgQilcdH6;?pcHSH~ zq?iG#&J2_oFydIx1|W?W#1`w|0Gz{-Ew953$H653QsvOK69>xA4qSS@`I$lE@ubC4 ze>kNpEvVA$uEm;4xoQ%d*D6)j%x?k6s$jacP-Z26S?^p(MGL=MHV5EZUCKjF6c$#{ z3B#75$6WdH21Auq0EHvuIwUF{aTQtd+Y}a-h9_c6i^n!1Q7MJk);Q_nzlOTLp*%>c z+ZK6E&lj~FEsJ}73~Z=$uS{IrvxV*2qFI+gT{XRhgoQe)@nLB5Z7eMGSRZ5Aq#JdK zLtmSJVe5+hbQpgM^^vYR+)EBdr?*^QxV^UOWUh9#sRNc3I6rpIA*m4QcfM*#}5IK=ijy{(2%_93A8RKF*yJyQ#47)>WeptKWko%rrjxzB37V5tEZ@?Ac{X zZ<7-Q#wuykZcsGth+mR&f;)*LeXj}KL#6gYFH7*YBPV64?0RBYl)J+TuLB6q6ZD zdQ^peA3l$z$QN{DDTce3#Fs_nlNYae>h9?wQst8w6E)zQ0ByTW#V{!bQiLjNTE%nf zv;QowcnfeQv~(y=O`=c9M2?Mrzt5tygs=s&M>O4ij9q~)nNO?4K`Zc{C0xEK<#_~wh9;8?dFrzfs#T?0K#4)8RJU?fHO?JfT~n=pWn;Wza9hk=RPN2& zU0}0qn@_!6Hjj3lNvdo6t!p(+*9@Po->;1vJG%E&xv|K={;zhYHnngaK}J~>h^#XN zaSb$DeK@0Hf9N^v^!9hV4EEAmCtGTtglDUncS|l+W)l%I7&x>QtPn1v_x8*ljT(7D zD4DJ152p&n*ts}=jH=iYTAK#Rq%H}dxK_WeogIuS{kSba8y1FayHyb=0OQ};Um(=m zl~!5IW*V@FtKc2*eidIV#hjS;pmRKc);p)#A=4dPA=2WvKbxoWpH}?5iT;t*=KsA;{`sMod3XLmRxB>?I;Fg1AX>UO2m`V`BwvM1`4?u{XWwcSX zw6hMHN@=L0w9(+G7ZC z9S&<_cv%Dk@Z@xOxUs&zE>tW^ainS+>aCXexPb5f_;uu2z>2LF|QKb(i(u0ZgU?M%3NDn5`{hZd42VYw& z-mhsM-DQ>4^IB?H{i!YGFEWg1Vk5VxBp*tdjrWKDQWlcOuKD(n>Qc{d>|e}Ey4mw! zjbj1dYSbIrmfKAPnX%2PjwzFW7aUJU>KY3j!xt8~JL|67z2J8T$LZ?H*o=-^7w$gS z>^c`E#Hy-3QhKv(XL^9pIR`gHEO!8IiZMaLw+yi-wFt=`hs0L5Dmx3;sG1=vx}J5H z^#NpNU&m7vD2z%bMNlZ=*n~foYCirf*7@DIitJKLggK|?(~1yoTNIanY=+kwjQteI zW@n1#ko(%GGCW!_0cY=*LJB)2YKYM1J7$17VQv>5LEhxm%SJ=el*L~-u;3xU?|3i* zoo%Gn4yvv=mU-DE93Q7PX`v&Nk`$sd z8ww?+BuD&sK7|zRhwFf)hUCv!kE2?mGdk>F+B>~I+zfHlId<;*BblPkP|G|IH9l!> zntiuT^N@&Mb*UCP+^%ShJRVCyk?Z`0odP3y1csR`gKxbLV#%9-Bu>@anrdY$OD{y# zyW36)DWd}l&B}sI?Z#!qqqx=5b_6ZUVM}Swh7t9lS+u%ONZ*x7N|m$&0%Ld3H@kth zHdJ^^<7K9bVt`|;zzj<1^X-)e(F?3;Q;=b^$r3T{?v!Y%HEuYNSvK0$p8OLqy(>*t z=HhnhgyvEt?ZgbC)WbW)w8!SasHHM^VIV2iX^cHLd&?<_nA>DZiV^Z*O8Q5el3ZHs zlZV>R`7rt<4%O*|@fAYR(>)$|(HUgY+@hvW+`=8hJ9<}td|#N5=zox5vKIA>v)Tb> zE=q$8o*H#LkDm2@7EcsPO}Heu?&?-q=E>=-#F>ubRntSxm~A6iJ8(4k67wi(q1y!8 z-)A6M1wSk!S~LN7H0RSuTz<~)2Kuz?wE3Qlg2fdxt3fI8iq$~r->cQY@+VKOVQWKKWTypB6Zc;$LJ&aSivGQ)UR z3nhtkyHsJ4nQxIIY>g;p4gU3N$DmCD0cF+5}Vna6WRCJ`}!Pzf^U2Iru|biTO;ve zdxu_s&dOnlgkX?_56UAncQR?^y1)mZ21xF5W7&QjW`=D$719i0r6hTT|ycB3*HC#mDSvJGu1bST@QhQL?c)M8GF zSdv0CcvXjS!?AupI)0#B$H>M`Gs2)@>Rs|W%j4lK_ad~@W`oTJSG~W^6A52lfy$GB)D#SCLq42%)l0*$z`TH&c3R11^@r<-xgD1o~s$Q|Np(H6mdh_2;RLw&gj4d2+{1c)tPEjrnYwBaQB1U2)O0LyK(wZJbh zXlk{(yoD9&HKR_kg&VMFO>Mm{EX9V^cVg)Vl}}WweqiN2z+0hf#d$Q9$*`V(y|A8)6SP z#2#*lJv>(R@L1KqOsxI;u<=8iv)Ur~#;;f10~t<4Mq+?tE(K0O15ghyS>5+bR)MwB zqLbr)vS+TUV)yXO)jd6P6Flf*V~!spg;`3eiTuX`Wpqw3M8XwiqPeM#+MUKA%n65C%0Ait}4WQmRp~@gj&>|tJb4puYJ$79@4d2CVl*) z?VOc9+V(}HVC)H_SmXBhvyZM_z_*OA?Xs@ZrFO0m4h!6cd5;5O+La>iP7QsZbaWW=a+fc zQFL6*CUxw<9kiU@Toyni7Y#(FrYM6^I*K5nfZv8R(|3_42Jrw;;~f$KQF6IBx=6v{ zgfvmT-qk6eX0kjb7z3IJYS|L#sf4#A;!$~&$Xz?eX^i;XG{NKbQV{;{MgngsyaFGS znIEfvbj7m!d`vzhOqZ#UYRd}Vr$X?8vrfuKToS@cz+)Y<`!sq;7*1TdI;M>8lH;3B z0-2NDI{aL)Q|L)ei97!pU-D0Q9Br18Z`=0x`8kLm*u3Gp`O^8|Sy)(_x|ME&m2TZi zGcq}B3>2C`4q?fLTPM~x!L_xV7sdlcr)pY%?;U?zTVa}K>S#Ah6LI8tyKy~$Q=u@E;I~KSTMS+$-nZ+}$6}TwIew$8Q|5Jff$%}*qI-~a#C9b=iycdTUVu17!Ahn)< zeom?N^s`8JL&S7%n)-FS9s}V~WYNU@fAcq%4tQCL9kgWv=bh?TN8i9#d zZLXY>Jye|<;ZCHqTMy$2#(3aUIq5IjRNCd8nTrX$+S%V{>L+^S(LNrH3uuV9V4zjd)j3TSuhZ;AwG9mr`roA_Lt#zDsq+k;41Rue@~S&H zI68!P*{-Z{+oA=mkeFF@q3R-ERWj3JJ*6$+yK5e?w)XWNT3{iasC0O%R)iX=LJf~_ z%@moiDx*LqrDDB*K6w;<7d`HO{8evIRVsr14*171UERD-1x#tBXJl(e)o)bESE|A- z9E@WFElOOq#k6(M%F2r^ymbq!P-&)S*-%ccq^X!{+8PyprzfeadZ71AE znW$bTOQ;`}3P_y_vXtPLuXbW#=@7*Uq< zys{c;>xD*1!K>9JlBsn009dcpmS}8)jK|Y*2U~SW3|6w2*}V_()pV@iZ+!bbXtw(1 zSv;VCI`VjiitqP7wA}(&Ygn=Y&&h3grL;V3IRr}iRrpvzmGEHU)i8uU)s}mz>({e~ zfDJj5(rl=N`UK&-9v;eReF~Cfw83L-elZq_6A*S{=<`h>-_EU zqaXhEx5xkXZ{I)l(Q4jSrb#~W%5P~1-#>kLUokoM)8Xvz$?fTz=?w0pPJejn69`uU4d>~9-#ULY|M)P~4Ed;s zmGzaV!*)vJXhP+bKq%>ab(VpevJoH&Y3(I&L6EllaD&Q59(@^tU(@FT9$5{e5GDeM zmMG*~XLc%a0DQ07`fpeNI+|Cw$yHTvU)(BPUQ*vCo;}x z-vC$93&#ez_QOg;*Xe$D&;{MLqlaHOu!^@q@b64@=&0-oATdtHkM*J3g)6)XrrIo7 zi$pr({FYFE*dYV$)X11HJ`El{uPQb3d7&Lpe*6fo<9KM%!}=5r$8oWgmjxeYo+TIQ z#2!)D2!;MMY}!JKPH)M(7gOI+ZW260$wp}rJ*s$9a8&9c1U!Lvl%XOtFfgGGyyL}R zw(*0hK@CLtWn9qE9xbxO>A&cR$;^vmY?B)s=u~xoUS)5fQtm*(Hv!rN$uAI=yj=Ui zRf*;4EuYhoKJb#>$g#Fn_>I}x!FS0E)+gXIZbb9(hwm?nf?U- z>H$*yU|&@rsNVt}ABKg}Hi8;u8n76)Q}L~a`py{#YkS4phxFfXAHS=+eOUy0)55K^ zR0^!{dhko5$ap6H@aT~&F=!2q{hhs0b-sOn8!3Lj?9j^A(Ff61wEfs!kyTJ{15j_5 zgenGZ{xpB^K1Q(JwUXp{mbcUyMYAHH?Hs*cfmNI%-cGckRF(27ao1DuPRQHPAarCn zvoSu^Is%AsZBjE4D+Rx4d@F!~v?NW7v*xgIFrH2!Fv!IEOtMk~kiuv~Ykrt5BhC;;qt}(P(|63{I|IBDfuGoTvRST!?NuXSG7H=w_Vz_9VE7Y{RuDJ zUBY7Gpr8Tj;i3_N7UQq6!X-s%UGCr3SaeHLC6 zR+B-bEcaCIdiPaTh|La)ZmPH!erla4xnYUXY4>vcSa z&z(2D?(xy#>5HS6`+B{@5y^IHSY?@hsZpS7E@<3)fGZdEeHa7ua@X{|uICbWH+B99 z3LMV#LQR166<1PH2zc22UW5;wGrx+TGKKgA4wzrc0>8Y7u{8K9Wb|S?=?z|=9G*Tu zIO+WgLS|v__aQFekkNT|tX=6|a)isW82;lVL=vQK^d zQI;OyzsIZ2L-Rc^Iv3wx7hbc4ciipw4}R{Q?)RSe4)^YBqoc)l@7AqB5BmA79zXAI zr|W6--v0^HqWJ573Tw8)dOvsfd-r)7OCD8AAQHvq4-t!j8BpqGhI8&!wmg>;~6=VYnTU< zbe6_r@MTSlNO2rI!;4^aCdhz`Bvd`=^#|RPL2v&rOL+N{!=3KC0KZ84!|{fkp#P(B zfv?H@Qni?W%QI|=&TK%T{bpATE^}M3Ybzn^8ZXvTJ-yJqun(Wv2{E3R>P1?>13*!1 znbgdT2*(M{iQm$2PiYSAGM^L7Rw?Z_AZi?QpW>8ev5gY~G5JQ?unT#M& zlr^9p|D~>{gUKlQK#>f%tU&x<&BwEJD)`1*VUWsyLl?D?ZCq&hEC>%W`PV#w^!5?=3uerwWz&ot8b+rIBEEod9p@>wE%Hsbuk zi2(F}R&aHing+e;Dt!!MvA?_d#r!HMC#S*dTOJ?m>JQ7G|08-N@-5_z^qPsZQzYoEUIbQ)~0RbHk)Jg1n&G0v1*kZ zqw_(6c%xFeTbrlhxFeEJT`Bmi25n6-4uxN!oR5KJ7-2 z9oB~%IUpJm!%uC_>C}g62Z7hcr_?Ld0FGqcYr;8E@dfvB0_qW?04h=jAHgpik*3>Y zP}*a=IHK+7u?aq-HI*l@llxnkNmf^Xj_dQ3L%GcQI+31P=p0|^w<#mHT7$&Lbgr_| z+$M>qb!pP^iLhK`fXAEa+|eIiCeS8-XzFqNZd)|AGnlhF{{b36zXGNpD&oiJQb|AjXp})Qua26Tn6)azhY>P*=VrU|A2ULK4`m=V z{xwh4(oEvwmLHzmG5tkb;VE?vlbcUFk)rl|3U3^Nw9&P2qa)dqiszwNwkhuQG(Vo$ z6FD)!kvd_{vZ;l(V1~6*rN}jaH-*PI6iAlAocIq%NU1(iF{fCx26*TL5QT}>NwU4! zH&WdoqqC@aHU&JwM9b|+mNDaho96U2o~t3|(erV7ajC5)a>bM=P0cX5h$*3OiYVie z&AP??D8T_EQvcx%!<*BOdI^~Y^yfd>E;%#B9`wu+!yBd)vRHi5Lk)7XyE)h@73Xdc zBRyC=9FEdAyauxH<}w{#Mz8QCwTvpje2B*s{};f;_-V-l|DpB%mSP$hi_sA~b(k(IvPU|oG&Y}P*eHp(xPXD65@Pv@c6-xGYg4pN@9p^rU6Uf1TdhE0Mpm~CJ4%RJT7+SrMh6qqJ+_^=I)MmeKw^P8{lJT6Yu`DHTMvgy%6VHqmqJWm7n( z3TMgeCQ*Gq!udW%9act)hi6nllWf|QBvtdZqTEyWd_iI8;pOdr_2fmn%+`TV;_M_D zs~w(vJA~=BGyP3_GKJwn@&F}8cMc{>Yfjmu(57!N>dn$&`L{8RPf`Kw_@a2%A7#0w z5rVtr(N@>Cf+x_-6q@#qEZB9XZt4&Qbe=q;@`snJXHyMV+6^}j*jlUFKXO!Xk)lB^ zV1F!uD!ZYEp>YI%+m=Ql8NlmZ7VXN40)|T#JO%91=GIYXY53i8P8CqARdY_jRH;S< zD}wq;jWV%>{4hiD<6V8mw@1br`u@+ZWBqZtP+vT9)(OIw)y_1+^gOLS4r`tog|W?& z#KUj&ZD3`58+9H%Ui8EW(DZ(BoK2TNad7Qg%)1ILW14V(K__1iaiacaE&B0duNqJA z0O&O&0MYPGAZZnv0;sT5tVKxBuxhuL9^@o>0q07*Z9O*=PV)S!xUjkSlF4-kUKVdf z8`uW44?9ZTZU-%lwk==Mj*_$a1+X;e&hnDhLd7bbSso9Qvv~Mk?`a~ligTq(T{yCb zCZu?FHpe}GtC){xlG;9x*m1aR6dFEEL2+tXbZkmWmXRCg!ge&DOkpmINuvHQf&5Yq zIlNR$YZ&D^#^c(2jDx@eZ9E(KCp3u@tmBfNrAw^L) z*q`lVNd9`;m^(J{y0fv2VTofE!!Mm4nQQ4kfBq8z2-&!>gtD~acSPzVZSSI$eTtR# zj`n+flfiYPPhU^_FOImq{r2LZ^l8xjd++Ff`E&pC%kJU6|84K2+kfGI?EPmCU7h^z zC%xyddoK?TfAS0Vd)*S`=}`v?9=F@Ew3tyuZxV3O|d_2CV@@K;z+vIM?81XS5g25S2N zbfV^{T+N3_eL?i)wBobhVsJ4FjM;vFZ8Bz6yUCcjT6hGdF^kWBi#H|A)0c2PIYW;_ zifR_=Xt`LvO)w-9ryFcTCapVJz^vm8_HWNOH(5R&b>h)TekW+vt}fp2u<1bU@hzG@ zZJOdprOP38sTJsNxiUNj5Q(l#b?<7^`tXrf;iDQaFpO!}Ib`!L=G}-W^1Xq7=|3bS z&^F71a+)*KVbPwwAkxQlm#`jk4)EzqhT0Y|B!MsiYzQ?@gHI-Vtx>h9Q&ZiykNCyf zmxooM8c1(#zfMlog>}6y?V8TgJl#32blREbz3-Iq_)X zS$|6`S>i?AB+E4(S}t1JE(+Rq=xx70&%*A2=}bftJD3!ff^aiS0DgeQWE!V=;WtO! zRUK%w?}gX37Ip>@_E$Z2$2L`Is7q#iJ3j^&+=*s0b+TcF;J-9QCL?u!N>cyQt~)W3 zJVK_V-MiC-E$^G{%w_Xh8PJiBjo9rcKxR5@)$o?sHk?}<{ryv5L(v{`ApzTG4{USZ z=uSrPqz83?RXYBCO6e{|RO{1@YyPhH!D-A&O}IqvJtf`g55`GKaJ{zF7TBnhTVdYv zA*_|bbXs&|AXe+dChC5F_clzY@U1^gyT2}|*Oa{%09cOk<+lAS&1aW)+P6_he+X~5 z9@7ARDmDBvcJ4*Iji_2>Q*OKmW0gDY{;0s&p(5vQdW!oBdn#HR2w!dXHPaC=njq0x zmj7lq)FlX9z5fM{YCh2#?4jZi({a(eUOF`*Ma8a#v`9yK?I3x7ol_grhXlr`Li7Di zl6Qr@slk?1=7g2@z&r4Ul<9kUTzr-3jd%i4^<~I(Jyb2z?NT-ODH`w(yu^>k@okd# zAlzHf=rb;V_cAfoM`0Vz`G=?Q%Ot)|epLz!Vl=qEUO*%h2uq!prk&AyQ4jo~BK|jY4MPKo14{+*btf%)ACxTd-ZH7~qzs{i4wFE~{9(pJ;n+@B zewiI6eOQ50^yqB}u^G6I2M<+rS;aOEuu8cH2R&|E7dxV9O*_dhUW;mm@kUcI+Azxq zLP%_XSZau`l}uCJQ5i-6F@|4id5A&)1EPVSo85Klg{nAXqE9fK!R<70hqS#d>jcUMV};W&UWFM{g3uzz%7mq`2aKJc~u}XINs}@XwOGFdSs44-k#O z3VwYX0zmshWGQUXv9ZVbrr8*wcQKd`?fn~nZ8@>{yF5UYqg6T9YM)n7@gqRK^uL`LOwt0z>uChb1GtpbRRd}JjZwdPpa$H{^LTQBFH>0flOUl{@Z4BIi5LM*r!x5%Y3CsCulVVs(eoKoCd>(>>e|(nXZH z@u#*KOHB=3= z(E}wUY`1R4!UqpZZERITa#fEh(|~=NuxJ%yUFpYF5C;V$HQ~Rjp)H3;?lVm2z}HX< zLHxkiMNHj){Vd4P{JoNyb-Q4$c`DoR8IiwNGhs7n@q6T}{`?Fo)CZ^;HPpSlCSE!wk99tEglHZRDyWG~ zbC)MJBi@V<3M1ebDpLD;TF2y)118ved7!l1K8Mk}+xICI26u5Tt6X5Rebt`MFvzT1bexuwKqEuuETc~%5dL`YB%fzrHE@iY$ha{I?h$d@>T&8cs zQ<3JpM%BF>8}L8LD>%!4CV>1zzm*83V|v@bf9pKS<|1_SU0EwJxb-sMXn2&)CMWUuPfopB6|gaPUBz#7BVAy%fpw*69(TP#||RQGY}ENtW^kpb1%;Oy1!Xm zG{6BCmNEB5Nk=JS90?WJT%?$C_7pjXbwG2oHPal|CFx3(EbW0+E1Jg?OdK6hOi$S~ zP^X~kI!zQ+18;$U!m8_4E3SDwO4Y%IF!@>OwGwSZ| zlUsTTEm4P*Q59HY0_aZ6Q(k7+x+7POHU#uZS1omPm1e5-=P)QO)WcUh_pd_@|I*d! zFKUPQjQaBuZ2f!Hw1HerbZ!27J-YUC;v@>sp`@0ZnJi;}f%O|KG{CC=Z>o$xs8Gaf z<#A(e@QYc{Usb+)Q2CC!FAw0^i3)8`7cWrs43ugePgki{?}k}CPLZEc%K`l^a7Z#; z`8wYIUVl$RcxYgCigZNRsHPBSZ#(-`xcs>>}FovMkz&2@|>3PxNlFNc<4mXVojS^16k)L(Jy3~Zd++B1nAT-Bj_ z7N`7zC*^&`jgy2V{_F8(^y5d781@s@Xh(Y2{P80{DLDoi^^hMVeA#{WviAug?B3-c z?Hd$-90cqMadeZ%)2V(P6P&9ke+|wFyniW(Aj5!-Vg~>s&}b{_&!^KYpG9iR5jDHV z2aEt!r8l|6h%odyqVi&z4Ab*;h!xR#lTN(OR0((&8z}VV8jDh@qLHTG3RksW#gq7g z#=TL@l*+K71JMlRjv4;e*1@aeqmx1RaIh199Ub^sVjiKUk)CK1$-@Wr;3|1WG+dETe07KA)g&!poz#5&KdbUhNxwA68?e? zcEu*WYB9Q<#8>GM-Qut&D0?OTL#MW48sALR5L@#?D_}o<>>qdE95Q2XS~?Hhl_@;# zXzeP@urD?dp{)ew3?7S3(Q)ruDS<_QgmF5i3N8{Q8}c-{CgS^K$DZxr#4K|611Q0E ztlbH{QwxZ{fKJ{|vKzoJDtD5@U>-P&4W7nEaJhCo6zK6Itu6b7nnq{05hhbYTBN93 z!ehh=?d*#Pi!}M5j%HRZJU9=-GDuG#u`?rQ?lFOJ3xSadv^v{eBpKCR5y2 ztirqh7BSM+W}*kwj_- zSmaY{b0>m7%z85+vG@uaE+)N{G;)Yf;tJyVT~M^xnmU>|?Dx3yM2n_bT)b~AmHOZq zs{}J1z?`PITI1_D#l4N#_%a!PPovvx4p>(Q5;*Q)o1zmrj;sWL86l3?mZ{jiP%I?G z3-+g|JIvE5?fVpLJd7#63}o7c5{?-6oTRwG;)wdH*?T+3^Wt)#V1EL3t*h9Fz%i&t zV}@=N*QFN|JG@zD8J*W8%$S84Z-@G%HRPB`Jwa^MRw{?6+{W77gOfIY7Aw7re&TAO zFO1F}Y!^O`U{M2Qrqi*KxaeCw8Kpx!W!rFVqNf>-nGHG)kJFKnE&xjX?@4q80=1Z* zjneD1z@-IqfT`|8UBn5vZ`0Hv0Bv%T&1ahYR%d$n@F6fG?37L`ha*X1hKeJzDbox{ zNF{axG<*078ikH@g5RxwX{I15glzJw!-d0UFiVihz*OfzkFx|gag@x|`btLLrkI|i zfSuVT=}fpS#u4faq%Ftl>kf3crVcQnQp~5Qh2KCX8D(n;Sg+zKg#~+m@QjfqHXBOoY@Uus zs-SJ(wpA*1XVw{RF54|c?)fu-?p~YR2Tfo-%dXDUcmPmk#r*`dG?Zf;0LwblG)uvU zXJVLkGFrOlllkN(zBLmm_r>6Itk)cT@9Heh-}BTE^sDSzE-#RG(a*{7NpuX;P;4Ei zIy2QMIZr2~GSE7IgJqu}L~XHKb|iyrkjIk(4jwQf5_X#r71Cf#g=nn$gLn=|xuMtk z5*-#p?gi&fKh+dSON-MSo?T-!begZ6=iR;2^6H7cjr3dwdU=B&D=ezN!|>TSQUDN< zSw7OQz`-Yoi=mE%Oo>{_B)Pg}t|B;_6zVb`E{BfiX`Xa{XGmm;dH75i{<*jJgn4;B znSt(hbp=C4jZN(==_D;KlOkkc2Gnz`${Q}lZ)lR z9%lv4*o+!sPx-4}@xytJTZ8$|()m2iiy6O_du}P;dV9r<>7y;WA^DucmLpZ ze+eOdl%J)uy)++=Z729`MO4y|SdjwR0Oq3Ee3Yy-r0xtPUwL4%2TA*2&-z3q3ys7? z%ZV&ee=W0yPLlI^GM4h&e6fnjB#9y3P05VO`y}swM2A^~_P_*~Vu`*$yD7`F6RpI* zQU`z7hFB-2vlwgysGsMk8|f`Woj+03EZhAc6BH4Hcx5a#$OTupiDjm96kDrw_4G4! zC03b4ZKgF_u^Cf0zo-VwunEv;kU{Xh<&*&Q2?||R%N`uHzOIgsQo}8)>yG}b&UWgs zy{rO%d@F{-_8)i%y+|fSmKU3gG~^|eTplbcif_7meXAp?m7mAwGcr}gV10x0OoX*i z@j1`aWHK7xqVy@E7FJ|41PtwpR&_d2m9JPaI#ZpIQEE6VHdk7LV#K}4MSPLC+BtqB zIm0T8Q8bK!#yPp7{$MCS<9uM>SzaJzSsjRf{x?{N{t5A~F)ZmKP&vU7l_4wK-6ViV zMSR-R?ePS8V#T>rGMAz}d%U!W9rX#h$%PcFDPG+VW z)B$7qwSN4Aep}|h_04OMa=ZQ+4RBjrAOLvt3VeiZTzR6MahL59uKfIJiaBcx`bAv6kZ~OK|r{XQV0M>RZyR^on5DD3Q8%WNRLR`KI52 z5Jv5%+NjNJ*~G4`P1}UVt*xQkbZg6+t}hdN3j)l^Rf|YoPSskEd0g6nyad93xaEG< zM;a=m?Pn4Ft;f-fff-O=sU^e9H}S1Ls$z#_#Gw{*aFz%!=5*O)$y17ip+7OGkprsY`Js6Tt;J#ipq>Tw2E|$PE4eR8n zN7>t+=SlKu$(BdcWCE6wPs=rbBd%YeVedK~CAJ-HAh3ldLo|TX#yE*o)hL^46Ajw+ zSrVFy30&W8$h~qmlpV8eeO1(%_N$_BMF0ksZhMEro@fpOA)P1jGOJj3G&syol9+bd zo-E{`O*EyaMjh6}8 z^*)inea)J=yHlEDwhvm#O4H5f3HWJ(-w~a#0DM4$zg+`g zo>Yv{>*5%vRSCXO%FvzQA7-;kf8Y~9jstedo(wg?&ZCK$LB8i(T~)ihB)Q`65$Q_O z7K;u&p!Bub&q-d}PqXpuRhCaL)e7a)KlD`K3Rln^RaIwv6c3)qa|J7po{!Uu%Nef# z>3A+YG^hdknd4XbtsUelR}WP?Pm}S;#5&o0wa^DTuy}TK>Nn(xjwO(%f6((hXUB7D z$O@-UflFgx-$|+wa4%=qJEW;QLf03AnrRP93C=iF;>Vp6&Ue-l;5Hk18%qR|*Rg=$ zr5g8Oqno5m2yFhY_Cy6^v+Ly6(a6OcYU}^wx*-~OmVg&kXL+QXT*!j}AQ#_;H#;S) zqZgQk<-|fuyp;1JM_R{yf5;5(G<%NLi(TungFSJqrAGwYfD+4^;CU{Duutv>PBHCFILyeAgC`BD^$%aF(Kk&YSHZ=nj~zLyQ=%mXQTHzjmz0 zH4FIWtjaxlyy~;4H+4l?RZ5N$EwScB@^fmbm`|g~Te&v$%`}>se*gz>P);mEWh9ZF zeCj&@f`_p^l)cd&pxQA<39$mM#q#-N8|)5k3hrW0D(MOc`(~T$c{i!rs?Otav4H(F zH=SkKIEg1_>#ZE2hv|c&3k5A#D28!aq5;EEO{-#4e zS+t0TK*4=Ve(CWqe_3@D71SmQ+6ffAMw2F@SSdK{)rVx`1e%(Bib7eG$0_EbG=-D^ zThQF(*MxqkRKJYE-k`&H#;=FCKy)l%gXQLtmS_7}NDHT(gUKlQ&_>jGiQVO1ftZD? z&?2onc1C&#=Jnpoa(liRJN?o=L&K<{4sn#xse7zU%IiPl< z7sdso4YwQ9aXev#Lal#bt#;JEOs923v9B(C2Excr3$4tU0lIj$d{Udl1#L zp=U<9$V1hwf5!|quxP1nLiTB_F7Q=dzyIRk7;6JUb+u3H=Q@Y)9DKcX>b_fUho8A2 zuq#Rc6QxB2_oHqHPAB*&&{KdHO+eV^l@KBn(;=2SoD#K6vyhOG;halJ3B`l6I|yfP z|B(ONNk>c$0*kq;!4WC{k%%ke?rnB{Lf7|n$&J-8*V+`BnpaA zmFY*VgVe*KWod`6Ah`!&bQGD)ug=sLe7*$#bi!>gO4~eOBe_SRqEy{`UjfR3VDaJsuY5<%^x28! z77GMG2kG5c1+97lYctsz5A@KhM^8Hte^bHAe}NqZzBiy=d9Cx45%)mG_G0+>X2<02 z6qTI>DSJQ_ejNgf&OJJphE+1&h^8R}jxAnAmnigxS}dk*GwM)&xIqbixBYrdZdV9U9w2x8Nj z$WPjV7VlO=x1r5VMuR#qWma(?;{1HpbKP(Cna+PA)D_64y~9Ak!bQ^9U?1Lo?1N*Z z6PaZ6**jVC1}ni2neoPBaNhjf^fF_we?EgdBP*M{xP8#jN@Yu%P)tM_csjN)w)I*~ zD$6%3Q0!;0X=-c%hAJLn2YcKp{@{S%)yattoB(PGdIEH8CkV=PfJ&w~0ACQ)l)!#i z)5ImCZB@F9HAPF%>*;Fr3J~V0B+S$G5$5Rl4tY_q5bZwOVm=NS znGXup;xp>h*xv~brt;=E+SM*%rE7A)W#dNnvfNY5vg!JW;zKPFhARA?$U+W4>mdsG1g(!48d`}6Q1E*q0r*rcNr0MDtCNQfc0|e| zW;7A6snRtn+OjvZLI1jSe-S$lXT(*yh^l`yx%c%adNFzk>3d##39@$UyqCh;lE7xhJA>abC;X>8KomRQ}Ae*UQyNWuq%T9czI@Bed52~MULj|{0 z1;1G5PQ--U$-g@Ya94(l8mC>|+F*){)+_UTIzeW+Oduw3O&ssS4DvgC8D}>TnT#2o z6@WW%yxU<7zo(NIe^@8L?G1&)S`p>KtVGnMDqa(&+#YKs!(vQDnBe{3@F$Bn%mdHX z7=G74=eTaoZj$&tj9#Y%ak56xJn%|W7hgg4D)KACOyHCOUqgpR9M=n%o80J=k`wO3 zI1Wgoh=Im1yX4$K0OFbgt505T=rPm?LhK=6FML%P9M|?O#%nX7Vi0Zi+V;Kc3`XCA>s#-3NvCmCletXdkw`)=mZoayg}Lbnvv!nn$|z(` zx|r9KQXA8)19_Nbx%va$5L^|N7j&W)*$A@Rk`Ble(W9l0dd&7gjsd6h$8qRzD%p@; zl5i)~#g}8W{%V&U+i;PAkj)@Y+DysP)DatEEtMTXf7ug7gK(CUllH}1rq=I(YlHMC z1x@3~TNb>dd3bkg-i4ZOqjv0FtlIhDe7@D6e}T{2+fIEBuo7Qy?N=l6dadZ8sW7)* zEO#^mBfb{fg7pwgb%4py%bUhrY)egaq@!hcT{2D`m>yyStzPgF@EY=G+ssAQTf))1 zPK-Lge=~;8?SeKRN-aJtXmML=@ymi1m*r{klypN)gO7&ZVNg}y_2ogx6pyf-xJMfl z-7l|;3Jt{*#U_EQd?BXgzdW(Ij2BwanMf?^P{6%j0-nQBuPVmd&RjJj&mP@_+d^QW zuf2IhhB$a-Xb#B=Ad8z!J+{c-T_52^dN{JF8ey$(v1U85ByP*D zT>&Ti0x6ZvL|uVI-5`u5j(|DXcQ>!4Q5B9zvd{-Yl{na60XG!j;~+-EcJX4r@7g*` z;Dh72)`5`);d8Pt!jBF#TM0wvku`}U+k=lKTe2(b)nUr_YIW2$fBzS%NprtePAh18 ze+~#4n|-j+#SV9(KF?CPg;4()7oAa(O!u;>;wU3zI=a__fbfHJ2H?9+t>AT#kz@Yk zyI{hFB(iN!b++v=YEGd3uZ5TnjcI%{J1l0#pS3k6ym3XhOS&Y&% zc;5^$NxhLr7;c32Jr~TFiRv=GaYmVzf1zimkrM2WI-x##lToRM5by+2_(Mf#U|^!T zBQCT*+%|qNHK>6ozf|WY9GW*4;~b$59N85FDCobOCv$L&ZGLc8?P0+QohUU&ZIpO0 z${i?h=|7=Jl2U;pwjahtS?9&u=4v`hf8LMb zIUU7VeSUlnxwJwZLD$^Q6{M|bdCEyU+URUO+=z65s%>Z0XbH>wy;IE3TG8Wnw9P(} z)@Q3;6*87OW8@ZDgZ#-GNwizHOam*_SY{0bJ0JA?neobzrv>_gW?IMk$PIdQ(lyn4 z7#AliTjTBk$%dN_LH!nR^)M_zf3^{nbE^=n_*O%G=b2K8N8Uc9|5ETrrMz1Ndeg#H z1F_4^?b2X{8QL$6bir=)!=p#C#Go}ab~^f$zp?F^)?`b=-io##yGyDH>TLk(?UGQ% zz+J;M{K2~n!FJa}lIL08iZ%=@0@~30h^#^egq>(3>U8`A!lK}i=v7h_e~`x>9xwF| zNO5$}p;^i--5KuN{Pzr>XLi&XoD{m$!7qw(Y~0tK}L?M#(P7OT|Of4`zFvwGB)gH2_rJh+0T(U20=M zuyk{ySwu%a!Gzt06qK{be~`JbHeg+aGQ>}(Nt|nAsxFH2B<_?eJ)&5w#@{e`$$_bb< ze&f6XW4r^eoQ>znAC_6xDp;N=O#bG%1qZq69^_~iUzuc)(nBEje-LL6_g)_K4hQ^; ztY!44dDDBCq}S!?RB;;t3aTdD$8U=7^l;_asyT35Uz>8eXLG>~xWNQI!kmKtdb}C^ z_|e=nvALxk>D34i} zp65+1evF5KF#ep%+a>p9dwyye0%!O+NR(g`aW}6Go~;{we=V=Splz<$Bp;d4?IgZ} z6#Nk912y3;+h+rQv70PFEooXr?-XXQO^Nb>voxZuEt5P+yD-ENo@O@9Q_Ss1tx(Ry zZyvAT+M>)7wwn8JJq*LhET$?Bz|GxEv&o&`HUl&MtILn80{$H7dL9!72TR7hzT<=n`JmjC zRe%8imX6z2c6kHSvX7o3%kT-R>qMn8T;+13H}_|)3mp(Nh1+r(bgfBLtx#%Ic>TL?a7lwM0O6T@{h zlY>{sM<;{s;b12^I_yRL7e}vO?nj5cpL-`!zkApn9Q=0=Ko^YJqi6rw+Z#kDz307? z-r-)a|Cgv`UVax`YIzI^zA1Mnc((-y1l7r;6O@03rjE2nX)rGoJK}x@uZY+n!BH`d z(K`}q#U>wO2$*cU%a9u?NiH(9bvQx(Cs1Qlf3G0Tp)EYmq_E0sOrS3=3^)E{nmPo1 zx*7GaviGX{=ipnXGwM|CYTLETRS4Pwpn}{uN4VslL+BS0PLB@9080HQF!?)Qf65g# z;Is4fD2E(b<=W~PS@qG`v+1%4#|Su^i!28&Uk$TyhA;f;)ZNgCmL@fFx6`WEm5p{m ze{(l3Z3I`vEZ!h$=f9gC}hMNuJ!JK5awgC9n7Cuns(DtC<*PU9MTBEi_ z_U$K&`i@eqZ=Ls=%v(xo=bY0-u~<8!FM7JEJVB+<*e%cS5o`34&}M@C_&VLb@ygSy zQa311{s;h~+u?*R?(94T+V#6oP?0`VJqsnBfLy+yc4%uNZ`JLkABVC#f50Ay?8yFE zu7(>dRkMHo`A;|=Of>(%ysWdk0bePHyMS)e(c_MV;ct}Y?cCJqU=b&OKS4jcKqXbc zRd7EGSHdE$M*Ca19+gqOPgq~fv~tLWsZ%p#QK@>!qLLgk={@0kRK^uSnF?2f5<9O4 z=JhV0%7%qHVfy0)<%g4Ge_Fj%<&7o2xgRs2Q((< z0W)M_lq9T!yH;5&t}@DMGePNDHINW<3(HUKEexfY9Me8rW*`cmUg*8?yJZ%Dc%ICB z+%@IGl1Z~``Z!skk4%9>tvJn=j?A?PmB$~`x;wEutZ%q5r`HM$fBT6j-Av>Nsg&i- zCP+lz`U~kURL*VgKAr_7KK07^$o(h9jGZ8e$C+TNIDm^)85L(=eqU@c?)1Z1?ljkq z9zsyXyaE}`{h@|}W1Xa_ybMZjfywdN3j}O2^F1!OV6k^hMVbSBs?^y{-5^4r7Gmb5 z6bG*>Aep#B@dSmge;a;*B8q%eYE3!h;p$_{M{&iiOa)?PYz`_=+_PAasWTXdflTct zcZE(qXw~?e!rtg@8?_qEH`-~jDQ&#;qwhMjr(70F50OB_iUH#Mo2lzuu= zL7P&(Q8%~?hihLPMYkm5m1O6E-;KxGUp5>WQk@4{Zpzbfe|(GQnRuq-N$gUDS9}#Y zywxdUKF)5VZs%ZGPB^AM4@=LO-jVhMw~jD;MAMZ;@7TFGorI_05a8N7L2m z?O|zoH1V(Af13f+GpBo_qbb=_(K_UI*q9H+!vS=^KyR5uYvo3Ie&h4XA%611)z`#0 z92rCfE3y#N3*LI zHvO(sjOJ{31726euV=}5mc!Zdn}^?Q!;VN4)j$e!PcHH($Xjx8|E(dwtP~#8A;%8@ zhIF4Th*8<}t`DtzqoDL6`PUrJb1V!18*?iR@WPI}bzKZ_M)CQK<)Io-gj0%E(1(I3 zUGJWVf5ZV!eXs^@e^9~f4@6pU;)YOYi|Nxuwv-}O9+=1z0gFn+vY_vt?$lhdjjyhN z(tfsq8k#vbk=?7SY^^i`fS*?&L67b(VaMPIAe!s4c*b>9B$FcZa&0z6ai7|*70V3s z^CFr%b#d*C#6h>2_hO8fC4OvElz`t9;U7$kf8;p_jY`5c^0|3N1Ie6wBC@n;uHJ-(Ke;Mbw>f`hB4fN>ph#iA#f>oba+x^s9y-ecq z?6MQ>C$Ubv1VpFL(ZBDmN~YHmJaNH#3Gy;M{|p8cNf7AKC5Rn^LlF49vf8I#24upl zj(Qi+eUaeN=cmD=G7%nCP~p*HGMKaJflZ!P`815&sp_9}2;S+e`9%kBBy=LJe}2V* zuLTyr;9w6x_5lZ`4OR_h%F@~T3A&fWxcBC((e`z=nIO4$N!~ug#ohAfyuq*I#E3EBF`V!*E)v$9< zz#}d=exTA}YG%9P$yQE&ji%?4yH(4gN~TVDP|d}rzWBxs%K>LA?L5+8loi#v6uF)m z5LGrm11+$X>M?4yTHK=ZA=-98bUtkU-zU+xk*V;DU*Q*3Ve|h!>ihtTe;Q5QF5U;$ zO0@xu!1rzs9th^Z4|DowS2v$q z@~&I!gvf>Lo@T`EfHhOPe?WJ?way6L+U{vW(R{g4o=}?2>M^49 zS!R??Md5PeBq3NkQgTCGW~kI+?PF!v;o8AI8~YjQ>W6CcFsyN)f9Sd_hY5#g6TDUH zG`HYEJYDVH-osm9DsTQAo_4bHU&9MHR_zdkCSWXsAmy73qT(Fa1aLc}h@5yh%vAqsYVuYI($Jg86n!b; zp0Lm)a0U)=ah@jTO@OWFm_pb@rQ|ZcPP2Iq0jO7r?ik|qAzW(+sVU(J0%UV4fY3w; z7!iRg;&z77!oj`T*NLKbxJU*jc_VGJ_XPy_%pe;1T7Ayue;5gQRa9Uh{KP0g?v(0I z@xj>=u38X!5Kry-goagJ@^I-`JiHH8o7v|HaEj@dSP z*sa^?2m;`XCRD9(`7=`Vg?mt(<^+$e_?(2!r-71+PW$xYfTS4Ql*Oi| ztic2Mx7aQP`*62LcJNUBE_G6U-2#H6s^Q)e;b!R-O*07@$H2Z<%@ie(=n0n zbQup-ud;lqq=}HNntrOMG8enT<;RbU=S>nuB;HinHicX%=PV{B<)Z`|ovGde{kVE~ES3TpTp$SZtUjeW;Gb-rf!hNot0H zt)_&&aRfDc!9o{!p?xS^VJ(SF^tO@ZfBuv0e~Dv}ZJ^92&Cm?foET+|nTNsG-;v9^@%j-3a9mOl zTVfFI{kZd8;E3yMF1!%we|!E=D}!!P!dRvUdLB*_K7fA?`?!3`A>>{GTa%T}M3N4@oC72F9J$3Mgy zg<;I03n>f*s<))ciYEMsruhgYx|oN4dhv{9byT3RUVhvUtK>dC$l`*poPyibpT=XJ z2me<|Yx@1fo0zaq7a_|LlWnC(AwScxAqT~LuP%o&|Dunk8h~v7B zSQ2CHj(K&3{?MN-2CWo-g0WT)f2vf9RYgM;{g00h4hN?{_x7HKlNtqNhG@+mviurS zE1QzT`X;ur&g6VR(Oy+)J{+$|-=J`6>jBgYDd+7be!9u|#+2}H?9Aiy=Funq1C|{B zsrq>O*GICK?&M;e*q=c7cnoJ5{l@z=-Fl)GNU$Pd1KJi8DEwFSordqef7VLCz#R(P zY)RQtDXwNV!S{l%%0-*_k87t@wqb+kIZuDg3$cO}0+kHWPJ(2upK+`?*GSwc5I(;3I0W=-DMchw)zrTtj=J#m84)|>#aWcY5Z7m4Zb0SFW??ST_cv~1);Kpt zX2Z-Y;JtE-S`52dSCsZ^i!mMZS#||Jo#=TwglvUF+0phUO{*ueLwqT>SfIGVYcxo&$#6utm4L4i=kgQA_j8wG~Lzb54Zki(?w_ zmP+|H)!iUOe~xVhdI>%C(ftM zEV^MEF-bi5O|Ncikte<=nMVP>9cHwq_r(mR?w;7YGg*)GkGM9m>G0{k!-mnq$jZs` z!wi3FQ`?ug{?sP8|3owOSs(Jy=_KP8ntl(e>W+gae~sY_3vM@RvpqMv+bH7&i9)^C zdlRkif+G}nVhVi5)#G$uMZe2Z&=9??%y!_i{l_Jmek!dE<|xaBi`Ixdyj5NA$%V0) zPnNP9puZ0fb2W)tnGvzu7 z)M#zXe;A$Xk=k5?Yhw3ZO66)|1zr-M%O*mLD<7J@7@FbuQTO z>R(50w&Mj6#jiyX`99yqC+Fj?e#)F1*r>2zf4zGj^|jjOSKGF{`)OVi9J-$Uk0{rG zW$v{3F@IFtZ%8!zeahC^!N2D8{C=NnDn}>-a!z`a9 zIfuT`gS*=BHHO5mq)CO0Uy}(MzXAfvndsg0hp<5cCG* z!7QOKR5=2MbphFl=K_<0mx*`fNfg$Ce^>jYK+VVP=%ECrT~TDix9L06wp3!}D?z|d z;hMMQnzxM{K%S51#id|W{}v z)-@3#-)fAAy#) zftI(jXISZs74knbC>mvvqTm~Nq8$@i;7jmh*cTKV{h*+7J`I?d@g@?mOiF(O8>OoA z#|wqlsty4CY@Vxw?Kp{ZP>yi_jo(9Fv^=}oi7sceX|eO&cQ-dTon%-foqU>hlF|IT z7ui)ZjW3eoyPN#{yOX3)0EU;}_2EJ9Q+O1-_-;A@`PsRgU5%HN48Nkse}N+|?h+S9 zEOn^#Na=EtC)YB+&cw=VlQ0qfhs{`mV4GSYg0&mS5vbQjc%JZp0$-p&H6c^LD+2$o z+)yo#|8R~co6-O5`ZW<;pynp9oL)TYAJ_BZ-@{-^vWv#?0gpkxS4MEan`-e^jIgrB zw^eD00XPcYfx#f4AU;&yQ?k|29-$UVyIY12YQ##}^Zp@U>8lw}TnndV}if z6`_T}b@eN>(kftdBbdbj=LtK5e64vpe18kl<2+?sB+iVs8I$T)E9=n-x|L0`8zqR< zoJJWa^OW~h?P58+!#;tOB+2=CI!s}IP-h;@?xR;Z3{Ah6YF4=|f3m-x^@YntDDKWu zRWXaIz3IvU(GmA#gaDg6=uTJ~3KW>m2c?q3f0XQ^D`LOGEmgP$Z>CQk&ste1vqP8U zCRKCRhs29^d@`%Te?n4rCAhX^>{=mua#>A%m1s(zY0K2LY=A+Pj;MLesu`8vhRSb6 z`zH(9hstmLW7?B;f9-xEeO9eX3Y-MY^5F@_fEu}lQ)ykg4+rJw*cUlM{r9cxDAb<9>5c;8~Z98N6-@5)E|U9`0|8< zXaS3!k{7nVea7?}Wm{F1&CIpkIm4|tn|T(qCbq36X04g$e_G@rrD1NJ&u-@eYRair z3$b-yonht~7&d*g(`@3@7Q#hw8Bc>ZW$pxm(ldCqg(Gz2Cw?-qRi+Y%-9cQuKgs4Z zPvS1Jl+_vEWN(YE(&*l|x$&hojpg3UgWe(gREe}Vm`H4I44TM8suD={V|_fZ%_`}A zs0;EzpOg%`R7-eF z!#8glaL&m)%+7s(?v3iS2zP!>xyt1(Z`lN`5Plj2y_ z*sl8rYdlv3Lt~gB4J392eNvFvr!DwcaKG*gAyG^3g`1S~7+#ddJ=0l}r|LA<9ds$z zpnO{dWe&Vtjm|HuP%BJKFh?MxT>IX(ZYa&NfABz_#ktMAYL=H2Sk@8NK7`8|iwJRT zbuODhz9xl=DW$zFB6?_8S3#O7v6-g{uQZ;$Ap&-7)7aWYlsmrgDH+s^IDlIarQ7I$?+U6LNCx<3|?V9blACt<9b2IUVx7X4Y%|RIdPy zBx0AiM8j|&&u)Qv*3^@AnCD03UmYKve+;^ZgPjN*=ld^?UccOr4tqcMPNIJIusb;T z?;e0I43>|c{bz4)5S{d%_fC3;d%gZ&qSjT+IpH17wOofRuqpUo=gK1?L!YX$JJ_qQb@uhNGkK-W$*a_uMgqJf62j5 zF9vu@gX={!BJjmlo zftzTl=$T^Kb2!gmW;YXAeEKSxU|{h_9Lp(ap!Vl0z1e|jhBD`fC=1}I!m?C=ldNnr z3ncjZ6tisQ=|G@Do(}*PX?04ee`}t5GzeT{C>nsR5=H3H#r#l*P zX)F5XWUl^-Bg+kgJj;}x*6(ir^_zC|&5_!OV@hWMKW)7k)iZP)(mK*^e~4;M!U+qY zseiqSigZTW5WK%|&5y$?T_n@pbf6a+)Hf03Lez8FQ3L-ei^r{KKbelR+kW@2G+6jZ zbxZXLH7(}49V_Kv>aP`Uw*U5O@bi0$$6!e<~*2I2OQ;rssZGJzuzyvdYj z>YzPIicY~FpEE|-f1Tho(5%gOWe{#VORtg~0*ePJ?B8%}-;RC|(+YQMgecjc34^sA zZtzw}hZ&!uY9zW}=|PC2+^n)k^LfumVw;kljYQlfT1-u~j{UQU3UxqIn{0luXk+zv zA)oPtFc6#~!%@nIHq8N5wsx`pAjwVPXa||Fw$WDVm^ov;f6=a>FqlqL+QLy2ao*(6 zo2nj8aI5z3P8d@QrHZ@C%4Hp|VArczQO`LG>$O#x{}cGaS6?*3mtvI)EI(lDtr=1KMK*x{HYdupqb})RMBt)+>DAM zdW#m9?#scue{bJDdj|{PI!$g^<)SycjB;uCazi)?umElu=UbA#4_$GCw1A{- z4VPS_V-MXBHBWy+^{?i|Oh0>Oo?j=ih$cmSR4HpBe`*50s_?+>3zV8z*yFr6DfK>X z;+t?wHIGtiyDm!l`FNHpB>^u~%8%7n3Mk(>Rl*6(=%9E775Z2n2ze{3rc$jHZPCMy zZH&N6ZxyG2uD$Ut0#U<1+NSjNi|xlRpb$#whb=tb{^9X6T}VG7cGfTk1@;0%)x*hi zB?kzje`4)TJH1f>@&S;(wTYMZTu&zeHTt(d!?!NncaD_wGHit$%_>uEF(=@gSbX8k z7n#X5{;l+8aM=LfFhtBKFk+&##W}ozcor9F(QH{+Mo>VX#l!c8IV+Cnr7a&3Z<_1Y zZFqJt^7JJUwnO+co$i(Zcr}mh>w~+I(&_5Oe|T`#{>VexY%4N$#r%qwJb~7h^ zzj}Xf2k{^Ubbzy?&`zyS7TOV0vLeDL>my|#W(1B~v3Bg;fMOKC>c3}DO(Sz-)2-}* z)5nMTWNLnuDY|Kc8WQWG9XdRf*Ay#!)kr}J=;NgFP*$^8sqa#>vo^cYmO`qeuyNr9 zf45;hamH6P=Kb~ZaQ(bY^0~cCNnqTs87m*@q)YbA z0^S_oRpjGJ0F_Hx;%kwPlFmtQ9~_@$Ykai2Ve@A%U-!r_`T=YZW?ToOw*7%)RNOO- zQvl%&eiNN*H39Hd=MAUn&V~<*a@1jufHmk0A6c&G$LYrDN4J753Ay zKKodCL&lSxUdtn%5J`qHk?dLusO}y}o}i_>E2_e+hgd2PXn?Y|gk@*B;R4+7PDgf6 zc~Ax^X6hio4#mSoWB~b)RFi{!Rf`|J_QB|4XAW`}hgp85u!C+>8)CqsPSceedH;xZ zIGlrhgLr4`UZ1jwV}~=1tlq}We;j$iLQxm8aG<|g^iv6X{M|%13HrW}mq?L~+3m*@ z%@Idmn5N)846lY`$cDnYdEj(rvh(nXh3!`)V562d8FVL96v{cm4*Vu;N0v~}<`+1Q zGNnrVJxJ6+8ZIM*`MIM%79H&Itw+^&9jB=~f;uYd79He=gHd%$Cg!q3f70gHrMVKQ zcg9#_%3`P`V(>2x3TqgM`3JTg%Ruz&fw6ZJg@ZBx$7L+xvRliUf-i-v6XsUYzNCw4 zt3R|wkQ%i959=`x*duU~8DB~|b-)Wd71DD#(OD@sR}q?(5>v{t=6boi1l31wseana4}BNl;c7F&m_T(txY93idmx}gt=a_vYU{9TytHM?6 zs6K?U8P&NflqTWwf5J3XOE(Y&#|`Yk<>kY@?#WL_pS1V7Yun~=^L+$w;FvdtgBzTX z6A3P*3(|@3Z2Ivd8~q=?>h=5GpL(C7Q3~Sj3?06s;zTlmh-4DhEsXTtFN=77moA2{h?O+|v2Sv*Qc2NS}we^}lRM0e&-xU0rHV$&z7 z0kDvEP!*Bo@RiEn;Nu$Ff5FzE?^x&mOg21y3nvK6!wdu_ZU!jPp|s%H?S|9Py_eCI z+tK46+Hi>9K2FD(8WCZvKZ|GcLMet%ACbtkHxQsjM6Ji0(LprNFBFc(x8ksKouUnq z4akr}jA&(ue+%Yk8{GmYp*LAR9z}57!8`(x3UY?X&d*JtO?kz1$Ynx1C%2;G{Az$1 zkAP$J4~QD}T`Wx5lXs;&t5*=^!JS5U>`D=3*kC>K1rSfP)4@7KS z0+Qmj|B*2GL@q~Dyft;-xgDCLcepC2;H#;lza4XKSYuMOG&|QB~ zF#v%gy_U*zUpz6>Hu~$MM`bI}G61|U8kjLIv0x;gZ7edtGd5$rN;vR2qYTRibK1be ze}I-QRh4$qNjJ?s3pHr-o=4+$CGRjUGR84daba6_s#Rg{r$UYuG|~ z2kb0~p2keLJQADp+d7e`|I+4Ba}yjzYaO+=4cZfHZPJDQpgTC&3nyIwQn|U zEf2ZPXIDLWK&0ZigJ`DQ@dU!!ov*m*%GH{iu2HYLSuj?Gi^RWClhb5aL6zefILe$m zQT8D>IcM`ZDPOE(f&A0`e+l`W9F|ogwNm|4Qnp3`+}dIl&{SI~(UU=S?tfZJH`J3_ zs2sYa?Ud27Kt1$W zM(^0&9rRJ%bFD(^vUH6``ndCClSalZK#o=mK0|k3N}~Y*lkeeSyG*Rh(k%mdi1(G?&94|<)tINnf29IdK-x#u>uoky z+fg=3_@?SyFGqcW70XHE?J7TA=#K=7+So7hHD-4mC$pKnkb<${PN-B?)nJ;=l;r;< z87Vy~Yr|4cKEx1E*)FYLZi{Kx%{EW}?XY|8rxxX^0g((!ob=}*{O!lQqwsO@obx&hqgnK zM;wRvd*kzvhEq;f%q5hkSlbx+uw=sQG^KQTN445NIeOLO=s8tBQlcRtD4_-~dM^)- zyZcZd8oWrx=`ZT59+{MVcfgdzFUjP{T!}trbdR z#YN#WF&CBye{aYkTe}Z>`CD_Pp+Ylg9LCq(xL>2k>YytiS|3nLNVr!lmWDznYdSZ3 zXKOu8vuaA`>fqSvXssKE&emo(Sai6S`$5GK+t8km%U6(HSaX4i6H%O?&prA|LF`iI z@M}-w``q%OJ$seTPMA}QK>0yutM2_}fH(b|2L)6@4}sXhn2{t~u3R&^k4IcgwY;(gi$Gklkf zb$D$pe{_**{LQwuF2>neJXVKR7N|COMs$W0Kw4PQBZhhorq7!!e=jv|R+F0?GKwQgY9KX^3MB5{|DN!Soy$LW}! zN@U1lS7cSqFClu|#N+oazKaC%U2~wlJs2dUfAC5qLMC((hmXg2z#bn!ZP)e?S{ekL zSoke!$P;hoA-XXlRV*et9U8(v&+?ucB=GB}9SqZUG6a}O{P+=b@xwX)9JPc%H=Vj3 z=n3WeF8HO2mHQw^%i2!Jp2ZH&ckJjtGg!y9-Tf1*+_^t;3Rr+W{UpF0d%+;%1~^=% zf5Wm>Sf8ErR#bm@f=$vDYvRPD3)~}<*}wk$C)3hDBf~G$)N*`!vv!8iCv>#X(5?>DEYxDL9 ze!>$MX+}m;o4D*~7uql~-aZDGyN#2?e;)9j;1>u-7cb)Yz>KS)gtehiJxMm+=@=1t z234~=?CCBxF4duOm`#-k4Ah1L=-$!spm$>GUniI8a2x^+Xg%CN1?-#J1sp-kRpFp& z>)?$^sMg@*_1@t1NzYDRo>L1xr~ptvufKX5AZ(cFctmF@*bUU)O<}%g$vB%_m~?I? zl7C+*9PAvOg7Ps`itmj6oMGx5wQO)x)7r&UZNTXVJSuo8UBrInN3FO^$;qf{p4oF| z!&g$I!R|jh(!0Cb|Ex(}SdufmBjKz|9IP%DT}U z(iLd8pTr}t8GJg*_wu+{)EMhDYpwr>_dfWTh};tCNf8st8|;iWzaD7GBCbt$>y<7T zIMsfc#MenBEK}-F13f`cwW-B$k;qbF3Q1;nDH1POgGF_yh@H$rMLOd~poq_bg?~+8 zRQZxOn_X}*K%0?%OW4a1U9*DSGrhhNc2>6uyJXFB&g-ueS~50jQC=_Gg#uso(VcFg zVLyATE58%-HC4TMyY6VwtfQbZQGtc>98?E11-@PP92DTPNse9Al6kr8d^KfZ4{#I1 zdL5Xk#9qs3*a=k%^}e`+a+;wESbrYU_Y+8pXz*?wA1lR?K&8pg4r=sMTx>~zs&y!Mzq2N?YH=gtY%9UK0 zmZV)RHkf{uQ!LTY^TG;@bOj-28#-dnao`oAj=l4$gk7~SQ^*g>nZKC4SbvX>^HQ0g zwF%L|g|xliouiEr)mkO1cv>G4-nvywTwPgjH*ob)?zWz@_3Rh0cECWr9B(hci_WcG zJ=IG7)|TXF*<}hg==(m}DeNa*9Y|A{a%!A#2$Le^+t|rAmoJQkBw!t`3Wk{pPKy zFB!zv4)aGH0`AToRWp&iQ5wC^8RZJQG;F~ZP7lZx_V_6|qYNvwVSlm>)xio!)~^RI z1k4_I+6>;qk@)E1gp+J3NP4VbF$JrRPFz@m`pG#6uto2!t?*7~{0Se&{FY=3^xE5B z{{HLkzIx2{o3Ft5N_($H@=B=P!;~sCP{8Sun8d5skP32uH)yj|KN-XpUTMx2rYE|s zC9kLC!xVikd;itl8-Kj~hYdcXx4`FlLRnSpPsg-H*G1qpSwv63!6@YjgYz^QkBmKx z?r-|j_-3+)cE8(${Wkw*J0zv?a>l0qlF!NZkGpRUWmw>1Av(hgCG5wh@(bAuD~XP6 zTP_Hh9Qlb?)|m*7Fo}IWdX<8h@JbC{Y*+ypWwR+^qku}7v3~>RXtFEL^caCe>hCO% z^IJtd^^HOX54RJ1 z!?-!5$>D88?Fj8ssvA&!Ejc`_R&CJpSfpJ-X=y36ebl)e^)$$kHfL^Z_Q(ZGu3d)1 zxI7`=XoSlU1Ai<)Y?<_na2zDM;1?&qT-QZFX>r;!u4(G#qQdL#0y7EGH3or~0+sLm zz>OlsN<+*}ILxyG{hTmuJ-gSE>uFFmQ(aNUB44X%b0#BS+L({Vht4JrCAlvYkq%ei z<#x_2fBJm0{Hbb|wX@SHHfknV_F!s=65L2l#5=d8Tz_1?igBFNV|KhPp|gX2w7jtU zt+)mX+#~Corloc+FA42ZJ6AvqIp9RLYY+rdDA<)+J|pPnd{dlEuEFo@=Xg9%_S50) z+3nwx+m@RO7gn9;J2%MVVM6(?C;^JEzlRAZJ1=SUO`7OzE6tnO6(qGUa|K08q259# z;>kpK#D7d7nd3^-yg0T5F9YNE38*<&Z~@CxcX5WTtpk?(y+d8i?86Avl|tigJa?I> zxKz9pB$0%fWpgn!h1ZP#YH>+9abV14&YvNiVZFu{Vk zBbnAYbBFG=o#P7Fpo-dRa5|Y^k=?+oew)rRuv9p=rGIPLXvdKi?S@lgc*?BqL#^2t zDjL{}(B0A)mx3eYqAXkr#zHB*9Hcr?y&R-^QQa6;jZ|z7qfRO=0i{wZ;vVjBVevlY zh<~dHf$vm#!ZQyQoIE)gPFl zr!gRj+Y;ykvd5#==qacJ)TpS#)FKJ{RsZ%kW68|O?JPyH$SvPHE$U=u$Xn(tq~4@pCpZ z)w$h!(Y1gW9`4l9u6MBMG#6(X31FOUOzjI%nmaq^!j#{fDZ>qQGMBp&7*fVhi4zvv zZ>ozqFoRTTcB|udS(Su!wTYQU%xhsjGAD!1%|Y$To8Jo2qb~XQvjub$vPVs->7K9= z-W2T`P(E(a>UiLyv@dCkU4KCscm)!aflFhgp)N^ij+D|Vrkv5`iV?gtFj8DDm&cGY z*_QCpHr~%?(=kTGuh)Km_x17N){BLsGmyF zfjt^qORTHw;uc{SI)P2}ujd$#k)kWGM;)iO*BN?9WFu9$371&;RDX=UJR;9DRfm2@ zaacO@wW*%>{Qet%mD$+wOLuQH&>V?p*=9HZzoKvCC%7P4)zesMBbvB3o-^#w4$fU; za3F-+o81e=YTwaH3lGMHthcs@Aity7dcO@6#f~de*%sk*cCX*3q@if)0pZ_HAvnW0 zzbr5;I;!up0$gE%VSl0(gg_4cd@>yukSvK31H0#>WRtuN=1o$)p8*So$3m^HP-T#1 zMB40EZ_)9Y*g?HA4vgw0j4WQ;M%Ro-&*`cDfSwIbh#3=zmoo9`sJUaxP&x8~ql}!8 zIo*cR7{?T82jl91p9cn)v|oDT^A1`Ky2z$J`%%MeO0?pzm`w*GgEyL$B%72q%SF*X zfMFKzh~=KJOMjtZ6gJ0PSFq#$M0A~wqM=v4)Au}H*+h?q{{23C%;8tG%t7D3%^t6< z!F#1nAY|)+S?ZYP*}Vpv@HS`oT9LKTv%-_-4QB<}y&NGE+RWo`#-{An-rr3&I04EQ+fTq>u9sSii6x$0&bi zaeNLl%?7=^3*e}JwEcW{=k<%-Lz(SPSLi_amu#)Ow)WWmV^3U~HJ_7QA{qSdJ0vsT zQB*gdXn$gSf(J(uaa2A*bfJ+G2bck$Li}lPu!lxw^mEcrx{2%1P{lcxkx%;Cm?&F@ zSzq`mWx!%^0)4@Jq#%E|2Zt3jtfpu|t!|1JED47DctbR>o6Z5KN_Kq_`@Z#J@26e0 z@5FTY8_%o=`W-x=?N4w>gtaWOD|)AV$$uOut7B7 zgntVs(9M$y=d|d(>pO~hFq76Vlt$Gr)$59Wyol zr_oiQ-Z3b2tXW+h$wjCCVCkXaVASv6AAjzmM}WC68r&%^pl+UAz#6l8!-Iio8T3*A z3>6aP`4xBz+kV_()P?+J8TM@%{m&Uv7YGN0!#+XC*!186O2!nq7yxS_liH9!#XEsr1 zruQD$gvo52`==FFvN-vlcK{0q)PJ!*y%iN5`D@7oasZ*HfrwC>`8{C;3^E%py23EH z@iHCBHUX5P(rSE~Tof}!)gf2SD4UHSVbTQR7ogK|I1z&yJtsGe(@m@uTzzfa6K4hG zw$MfA6qD}?Idp`LsWb%9eiQ@p*KBQN#cVwuqveTyU;ATh%=NI6BkW%L*MF>!NZ1eg zXSvP+28p7Ri(!*lQWsF@x@uV(T)jwP^jwG|k@e1dgV8Gaq9fJ$ph#w)W)mM*IwnJ^ ze&)MLrz^T96mJ}w=1`!k0O2o9dOsaJg$+SC1yT`S%+8*W8N2=~SAU=yup~K;v@_08K z8H$E`>gKCM9YtS_d+Lg-sKQIqu2q*eiagv^?vYJX9J7gT(F_uVw7 zz(|AP^>^Q8_$-O_SZhEDbWo=QZ(*4kO<%QbVWGNrCN0&Ll{lBZ!7!T)E@wm2iqnOT z=(76QyY6Je-uRrJ*C>gQVskJ%?8l3N+CZ@AI8pq}d#xw3@Gc^U>xlo6^=z^X4HoNV(I1>qXfQK0gQ_-NkhebS$A6wi_B~zuvydQ)mVa_W{N1 zgL%?^Zq!9RtbgaEskCrK{wrQAyHef#{Nrb*Gi^cfU083!OEBVhAuwef&L0yPI??n9 z*;Wz*9$?dUBWrrRus%N(GEv4nsT?5>I_rzfg&uBnwM{E~S@=YVD$$tTdXQK*N8`BR zwasL0($P*ZMi7MOQaum#Q!O$fV81$2L~z`@1}wBCgny!X{D#)`y)|+c_6LbGY(;rG z1`0Ch)mzMfNO({%L9nHroGXUUjxZ(j#`n~NLPn-^3!hwd-B* zocPayPJhzwqs~R|1Eh=28L`-4(RAK18T+tTZVsK}fvtfgNMzO2@ZX6T0|4Qt+7eWy zeANzPAxYRoU5EW^bu=mGp}Gp~h+ZiP4sh9@GIt~LIV0+~C%AEnKEN;F6|cecQYXz@ zsWI38QoLsEZRBC}6d-8#=)Vs3cRxFn4v>9sUZLX$Ep(s_&<$jcxX6J} z6A}lM)etyLwV1pi;5!V-523&TRULT)6I?YEH?TG|oHUa)a1!ijmyk5D3XRpN)lkmB z6^V%%rl4BNz@dm!r-cjzF^`NfpNKJ&v41%<)v{xoOTfV9)$#?-)bUVjEM3T+N`#Ag zJ(Y_VqN`&d26Of@)6}GLK56l#=E9W;FQTKg>=NtejwBay8mKS0#3oipY^gy1I}}31 zz!Ne^Y&)tXkRP-JLcR_41dw^;4}@P={BUQoAn5~vK1ksMFToOQt(lzN`eP>r4}Xif zU*(Q3n=#K^+GAhsH16G$@+5I^Z&Znih=cr=>gI7yBB9?)2@1~TVb&Pu%3RRuqMSde z7{c9fHdPol_cX%Sr9Vr-kIcRwgy`oC<&K3vj&5}$@$b)C{9~j4g$sZTHz5LYUc_o4 zP*jYGfleTwHWIObCqi z`?6H1#_ZC9V}r#k6CR!J(&A&Pw>uIcwO`pBLZmanI$~svV{(V0q%-`4Fn^iaoGO9x z&sv~l0JkVoau0QdN`FQR5-S<(gA^?JN-f1<=_pu3ykt_75-M#vvPGt+t*zji; z8|qq;%y;qXUh3Yw;chMF>eX-)cQ3EsJ>9)LxC&&T+m{JV`Sq)VzJDfe-ViI?tM_m0 z;-E+!{qD`we8$<+;o$sYx?L!Kz8G4s2z~w1eMl`pzAy#!N#EJV$>Eznn3kK_Z{U5g z4FK4wu%!!I9VmjpYv5w1etgy)hc}M6ZaQ=;!@l&~7fR>c_w1=xe8s5|=Q=F7;Gd|o z0dk9Isqvhp45Z6$)PD#wlrSi{yC$y&orw!h{*>D6fFKCMU%`f7|c*Defb9z$GM_^5*WN+pNG6(;pHT6Bcqd>UU#{{|<)Q7Qoyz zvh@8aG}rl=)MT_c5RieRVj2&14_9j*I^X3&H<%wbsT{3i}&&}C5|KFJ+($^*ckR1{Fy?-H5r-6|J7*t`H))h~8PTK~$$QPFooRFGLrB4oqMUSjWTH&hW4C`K= z9hX8A@wy|>OsPMOx-r`fu9BCn5|u{N!P&LGdw)l{5{f2M=hlG>=@rD>dGzXFZ~yq+ zPrKXepKH=wza4$}DL-A$wqjtNjz6N0x?-7gb--tO2B*VfB8F(?!EVW2?ly{Epz3|QOOK?PCxz)w7QT?m1XCy2Cql7Jn&qQRWy5qQs-dRFP?lBG!oV}5 ze~KUGPxA-;uXF9Ku8NDVX~v;CqI11u9QK4&WEuLQan>8DHE=kyO~bhDjWplr^eFH) z&DhPsTvo7(I#gG!v@yvP9}CH4w7C5&&tChhE=GCUrLiz8SIJZbsHtH(tm(%GmBMP)jEIp^`?5qs?g>~@T4r#qVQi^}Rc=3!($BZmO-A z`uJ<+t>0_rEoVO#lrJlIT8MtClSiwJmK(Y~iV|+mHE4z^-blWbGP+!k34ghT)EMNc zIC3UEPnwj5+AAjgd?DjCU6LTf;g^`qTO~sMG#T6-u?3Rdis>ONuel(^i04&mm`dl~ z5XH@*a`&iGnQduNNFsSo7e*RO7J@1CWEJGtVYiY7Id;A@9Es-HnGZ`UbL}h&OIX0D zA|lpa;uHh>s)d7P!?3<2xPJ-Gz9xfCYMF=)Of|=y)C@X|wEQS8P2!=X9oKL+xzK@+ z$rw|ZEEWpYVTBkQhQ&GVK^ySBpP$Um(NIuvTa#imS*esx^c>l~Ws7}~tUW7PaWf^g z!IdMZ0>f@QQ;t}5?IXC&tktUjFB@4h}h+Z#%QG_QT50cVFynAG|u= zJv7xJ1|C``dR1Y2_ID_Ri%~OQ46eeON6+_O*(&HF0|_j`ddG*aw~t>R?mE*oX2pbd z<$-czmc_9kqqk;Stb-%Q%!I_5C^s%9AoE!li)^MxQDb3>k$)Jo7IsS5JZ4TKVb}QB z>Tz`*(yIKkpw>2Fjn&M|@SGKQA`2%C8Fg4e_y{H=BL1Wx|LD34Yz_C_;22)&(eZK7l9f|RudOaWH|Qfv2S~_T8CB$ zAEaUv)+!xGWPeZXae4IW1{;mtKcX@bUiwz{I}Bgl4*PU=-7obwK5QNCeNYFtKltik zfG7nd@G1*Dh!4<11^ssDRql$dueI@(kh2XxyF)le%k(L3vs`}G&2XIEln6p@K{K7P z$LH@XesfZ0XM%QD@pE9eZz@Z(eOom!N@agI|Eem^#DDcfOYo|gOa{QUYc|;D10DNJ7qUq`h24@={y}%E0>bOyXEnYs^$XcpDU^$^j_?J6uMHKk5%jigl4tKn#ec_54-)m3KD>0po7lVgzaOrE8?9mlar3#LM)NqFn-n_!Uwv%G`-`ixx;yE!#_+XmR-) zZu?fh*;S%ZT|_dG_)tuz-PvMeqhyu^dIZ;vjOvl~Wqt3tyD5elodK{CEDfp=f4mr+ zihr~L#BWZ>>jXNS7qfJCZQF4QuUwTz9JhS6M;yOwS8?=`0PGJRxu^hei~bU*B|3;< zmNUvX^amgp{Z$LMVh%rZ$m>?DSv$^IH(PXiOf%X5LjhWT;}i^OP$+koe106 zb8t#yjXwA=gAGd0)!obbf2?`ZlBQCD68HE*3wETn6)F~8la$@ZwlFTmC+sUrO*+l_ z(@h;iAu9~{N3p8UbTh{@qGMeUK3x7XZ z6pq%%PO7PB)rWzC_aProdJh&$OU!`NXu9C-U1WgWMqzYo-_nbJl;pHNe&Uy^M@eQ~ zoHxm47mNsUT=F0(+|e8Zw)#(z`07-yko`gfM_1#E34e!wF*Smng`XVKX__l4+=uye z{{>LZkJ;Q7E7Q4UG~}0`)yV!3y??et(KTaQVEkKF(^GcmBC0u#h2s0h-lS|jGC$L` zXDx{KYmRZGZ@%VOxaFW*`Ax$2>G&NT%v(*f^z~3SKa?`L*1!6JOs&Q5^)TLE`hl+} zvH3|f(f|L|k70Bn?)MC)tSBSr@CF9A^gKDY#jShL?%14i{sU8XWITIH=YP;NFuPrU zFlM*S5azb*ZodFbsbzUv7gZYA-rfvVn%UmgyecK3eOVL}vXW?g*8~=}7M6FN_yuH{ zV81e)Y?G-kYb`4u(tSAgL3>k@>GZ?5XJC@(P&&d1Z={x~0=BAl6c7o<6t!165-iwh zMxW48f#r|vvvaA{27@QJet+%F&Gg{CJ2Jl1&XwuKp2?!y9Dai#N1%HuU>_-B58eS% z=$GdZCnE3DWf&2Aul6v4p+pcur{{>_L-@|E(Ls)?0vi%Q;>eJy9O8l*cN!J!0^b5A zgpd7E>JYwDhs1$ijU%MNe_1Xi3*k$%PZbbGj3!VLlNGlgcU$@KzkfUEzY&$9hm@g} z98o>t+c==^+j(S9Qg6KezVM4{uq~nxVjs!6@vU(?Ol=QUfZd@tkM0@9y>%Ct{Pdkp zJK5vR{o)_U=HQZBXVzr#JLf%2n|u1$xu3$NOI&KDwU z_+WC=>mEXJ{MnHtkyD(D>#bi zboA^eViS{=U`OC0f?m{HGWB~zO(=kbd&ofA2AV6a@mG6s$$uEg#?`{D(s5x`L?Bq~ zV$^V-Krj*SiP~!=y=H8mzSE2;iTKQjR#BH3TdqB3>=)xMp}i%;zHr&up9aH4?sQ}= z*PF&~8+WD=aTQ@DJXab6c@9q+z4gYCCfIz<9z^#ax_*Qu1n-7OklK0++;gBwAb?jG zcb_Rm1HX!Jo_~oTgY})!8}3#OJZH+c-F2MNb-Q+-Ywfb@GJ_Ps@tDCcafg}Gv#y8X z?3_ge>nwxJLTo!>OhoqNl={!7o3OVwcbdW>DvhI$)+NL-hvCMN#x&)>d{lw2fF|&-KoJcyh8f%RftE8v344SyWxKc>gFr zOtiu8irSkQ>k(qkQLbEF%QwnGuHhPGwKp{Y{_Y*49sp`C$|-98jrDEEa8a7u8sbZi zAKFucs^t(Bzl;}eD~A0DOEFY4&Jo75$vr|=U4Nu#dRU%N;da;E?Z$pkW#~}b&O3@F z56jH^ei7^o^?$NjTllNm$lKO(>@Do)FV6L85ht+X!gx9IiXInVsQ^|0hiajK}WNq7l= zHh;WPLRX52U5@z1HnjNee>2|+;v?_TZ9>}-eQ6#Ok#YOxy#Cr&81uTj>HI_!UI(0~ z0BYbEfne^-Cql2Rbo}n#hr|+^8@i7K zfa3J3rqf70YE|hal6d11Yo78Cv1K|ncByxW(@|6B5Z~C<0%Nxj(S4a$NClkOhSYTh zsk0xYz8|uMF7lew*8$`2mckB;B-G225`G2B4 zLKw}`J|U-!TzBIY!o!KbUCV=0?is>h=JO5V;}rD^A;3}35Vzz!o`pFtnSn1I3}lbKi-9PMI2kxCqizPWhITZN-~8MhRL0%} zwxa7#5DY5eQDEzJc(r`50@1@9et!jal9&(_$Gr_I z@FA=uJPwjrA&afoK@>LwUoLH^={gzr{TeDu{s{je`;hW&}8DI0S{(lL#=AU42 z>W(}Vsxa&hd=%;;+*dz^Mf)iT0%i=;`K{&Fd=)AXZh_tkHSy}J$3k7yxJ93Z%8PE% zUJJEvxv!oJH}_mf)0w#Ug08=K|Ah)XtMp*tVb}0ssEJ?={1`lKSpvs=mD`bALC#>A2M7g~sE$G@&cHU;FXjqhr7W+TVxgAi#^$++2nKZ#FzAQ4g?A9gZUlHvk!n#RddL<#)Z738>qZ~0n00`--Ul>m^V*vOZQqIO8Atm#8a0q!q=~eL zpay1upIkC8dJ5}nzpF)9UEi+Vb+9-oyo}piH$zK?A+S^5xFxr>@c>RfxGZPfX9)KWQI=)g*y*QSPvvIbVqMp>_$?Lu0rJH7g*>as9m ztM0aq8ml{1w6(hP(KlD;Lbg{IRb7MiaA*mOby2aSSI)Otm%Yqkv~Cc=*sRZk3OtBM zx}1RDHh)$)y?D0kY1|0Q@vl~Zi?#xMV0--VECKZb)inj=`o2Yp z1XIfdFnJp;-U38-B}_oHAXa4qqMMc(fz+YbWUOHr>4#+rs3-98VxW+C&{rrlIJ?$6 zJAcX*w=_s;U>|Uhwx@msepgrkF zol?^mhI6O3FMgjD#xI8My!0ga*dvi+_7ZmVW!Sw$7ASafifr6sEMEe^^7SdeUjGZe zKlvbPy=0eKzi5beX8z)JSZ@E)3`2$GOVG>1H+=~gCW)F0Hh%HJ&X1Qd0~kFL_kV5F zgW^1nx@CMht!lC1vgpr1{X)-1BqtyvKyRa3PlNyScqQZ&e)vokJDGke{o8Lp!X<{+ zIX2sD_8*HhdAculCIvOq4?EcvRMKqcWN?{-PCJWuhAAUyZ(o7{vZ}GW|d)!$tXjtjWJz#HqLY6Q3mJd>iV6SI$bPc zBZEUUw1`wv1zhFli@`LHSAW7Hu68i)jm{JGsEjNANTwT+YEUAqMeHUfXLV-kl*~$0 zO3zAElC%0H2W@)19+lYvhlpgx{o~f*0qh+7+v>!cxb=_Kg{LHHEP;0Xn+{^KUdy??Z(d?uDkr8)>!_;)s!Cy8RQq*ck$xsomqb%@iX0cAb)!QY{zyrGv2~D z?FwmzGacA$+Uf-GT9AFP&W3v1nVJORMD-k)>@@95$uZ{2>XJNcZIsyFN02g7#kjg2 zQS2)bcD9djogVEB_*(mfx63DaFSC~Qr~LE>y16>^4;wi_*?uuL@hwu2uMzTfUC6Jm zKK91_Nd?ef5$LZChkttrm#V9I@;N16TVhMd6zNkZyY8rt9YsiqA(J(TvMQCXRuJJ8 zl!28cfK~q>=uP#1pB?p!*GO{ispnPHxemq@9cc{cD7lXsC{lin>wjSvdc)~p3K9kM zm4ffz=cct7TU`K5j<>8XS_0{XE|La+j;<7+nbH3$k!ON`D1Scn{pFurG=6ka6vJGt zA=Z6SoW55TLGsHk)mM^$xb*~(;C=4L5whNW|2it%q-$$JgAZT!IKz%tQEH1Z}G-hU2#N9GbD=TrZbC=@%iSl*Tb zf`1xqQO76YtnbmBFVn0EfpqJ3ye_1T0~AKj&pSYBJ=X|X{;V-X5I5!>Ahexp zcqsL{gMULYX3@mKmyJB;V(Ztzkq~`oqep+&(C@@ zbxrEJin&-z@C-PZwvgvKrZ=As$vXAu(BNDRpL_7BQLIO_CD-#CXKS(DnCG-Tj8&$i zomk$;S6a6y;;;flwyIhu5~aV0g`%M@Xr%~PqkpBUbM-xpm7;rgF$+c7xhCs0-xZ9Y z;0j*Mut8rK8FWO|y`ENeuS?B}*-*5-Fjg3@Hr%J`LL=>*|HIO@LN1(Pv3WuP_?s-0?4{#;FX?;Q& zPr-T9y2d}vBd}T?7qESlcA$zM-@7e5yW&bERYb{U;lYZp1UyA-0Y1A{a)xPG57bYD>wt!y$y$=7g z)_vlbS%TSu8JN_1>W_0GjdM}d#~Am1DMy!R7dOBa7hWSoAsi_~k0zMmZfpfAxPO&z zY40t^a0yP$9PS&uK5{gsf~9nEQibH9EmI>?^TF{kO2Jh#w z?_@I>E7>E%-2ppN2Ia4c3EGmS%K6=Ym?}Ryy~x3EU>qw%!}D0d%X~D8eSbDCW>>KS zFk6p(hahgzVPk}a=zyoa>EJY0!heQGu_A3s9|f34`=M8~*xZXE0qC><--76LdgJpV zzK|2}!B0#yUVtjn*y0z@i_1J!x|2^7B3uIoR#d@FoK#dg?Dc!&s!BSEYqH*}!Rhl&y`>`?vZsfxCdQcsX6vWz^RWFbG=iHmVt$yohpfT+SR0X2b<9~ORhia z?z-wt6;&F$F4XANqoucZDS8p}J7;3qOx4z~luK>jo)%UwcC7cpQ{^ zK@EI1!FN1$Au5?;c%7YG3#xBz6s>R5W@hYPP4AlCJkmu*(@8XfuMfOa5VCNrns5~| zhC9`q2x%ZMApQji9q*NJGa-MOt6}dN0=!;=Zz(6H=xJLyxXjgvCx7N0Q;%REVE5Im zDHe%No6#GBq3iVGk{bOCc`+2sOYkK+y+9SN>V?nJ(dl?_1yWvDNnRa#(A1Maf1L?R zPQ&8-oZd)#+4j*-c&m133a8`-hURcHb?AG2HVVNAD0Z{P>er8Z>T5BCqN~}-a4@-W zdK~8yB_En_x3oAA&wu)Irl`?%*Rhu4#VEIzvrNH}+!~=nINClq+}nR96$r0*Q?@`; zJfu^l&x-av)*FXQaMAmaXa7^+>O-Y-8!8}TeaAh@(?`X`O7+f`4OGsjW)xBWo(@#sDF6UT7>qBl6yrf+KjbW z^|?s@6|FDw)?$O7a&^XsDd-T=2df={zjdOH&Rk0sb%xuhGRFk};hka+CqU@_Z z&wT74ZtwJBph#dJC=O$W=WxZ4Qm*FD)czw5_|A=pN<>`nGq};gnY0HIYQd3&u@JlK zyTk>3r(*}{34dvyF6NsriCARMRB84T`1V~p6v<|*sm_OZW#MJf;s4WJ`6?)3+SlCwv%F2;cXMdInHx|hw} zdx$kw|9_f2eY{q6?&GI2I2q1}d2Qe)EXwO2U+(U|rX^YC6SyqaaBDck<`ZtPeem+- z*8YyyD92PnBLC^gW!9D7J%1Q!lc7?Q9<%9)D{#?O^9%BiqkO4?M|pAP@s&Vorf| zRSh(W#e`xyqCz*@WAA2lbzPFqoX$I89{3AKwlRUG@_qXUMPCxtTCOsgrUusA!Z3~5a2*X!8k@a1r*0^{2KFfA?w|0P!-agzqdQNCLF;_HSJoVU)M6iVreZ$Kn z5+WfIA%XVyxHne#!U#JW4E+++R>X^RtbYVx)>_ea$x>SRWU+KFjdUzr{3507Ly#D7 z1!$~N3SKK+bSX11eh>+M3L->u7TK@qSK(EOMWv8c^~T70_${au0cgI<%Fd?P@oYFn z`gYDDTjjPfC2c-VtE<8Gc`dj=H>jw-lTS|DE8SCF4qWNa#rS=1Ofk|d2;MKZxqpqz z9d47HRUo*%@n-%uXl+OAOKNZ2IR#Cfk&@M{B$aTCT}ghk(DE^GoH5z2qnlXNA}jPvc*lg zpdDwqI^hsI?)r3sA#~iO`0VZM&!E>)s6=`@P>}tHE`@0PF7a^P#a+Y%g@2z|<>!cT z{wM$B)~NEvJ*scb3HZ4;;gCB$7&|Hps)hn$rfPWGfrT#ny1BnSVn1&#H{JkA7-9 z3`*UECOXWK2{?2Qzi%rEcfA*c+ zd!WZn@-VT0KvL!7#ediayUCtVXj*+{4>d-UsiR+d>1lE+g^1N!2OCsfY9xXj2_e#;);YE=niZXn`O&s z5lZt`Dv_va(aFUb53QV@gy5lLT(PYC#)8H$RinYsF!_6sX@3Ns9Eq79O!R~KY0fbi zdpt6V+}g{AgR`98@AYFI2ImCZjS=RU?U8`c?K+}xd@zDzPE|rlr&dL#-8E{m&4N%9 z!+&ZyY6eU5U$&*Vf*F2g{R+YOHf*mG84B zYxN<@S=O)X@J3BIBeFE=+ovOX%g4&0@~GaTzGV)lNP!7zOCF=u)?>of_1D0%Rb&FB z3s$;n1GIoc?lK%*z1wowo^|^p!u^!-KHCRdFZPc24uAHA%z;A3leJDcCK7f$bHGRDI06$ki4Gbcedrxd`_%_E(lJ*s%vjTNouX2Zt8F~m21ka^sH;J z6o!oaRdLj74tc84N|Wh-&mMb}tpSnP$bQ~B+*cd=$87H`y9OVw0$k2!6y?6Syi`2I z)5ERf!+*W)y&Z~Wj<$A+xuN60CK?xm^9vo4{xKX4fTexNwhvw(9%nDN4v+V?UhM85 zl%2h!mwNzKK&ih+N9q^5SwMJ8;x7J}{bPg%3{#MFvMXMt!DOQz-Egq`hqcP1U+*%k zTT{?$7uy@*!xI-D$nZcv3W9CkE7)ETJNN-HeBX9jZLoh)xt)8Xs{|1NOkFK5K%SS< z9abA!w#kw}Tit`VMP}h#k&QBnk-~gJVzJ@Bkx^3vz8dCJ65lk_3P$ZIF^=m%6$Gbm z0a(S@JIk{+YDaABF@>pFn;U=? zFV>t_N-clviFI3%-F4wltkX_f3xSMQ@Uwfd%aaYRw9G zsKS#WOwzfn=$aaLg`P}nsnjR>Gs=CfugMc_wk*MG9d8}|{hi_liY%w9luVv&YM%k?eMwDQ+CyYh@Qq_r3nMGe$UL86g!y&5yFxY0%cIAtHUH*zh* z%4~l#;uT5&$IQ;^S@2bx>6KXi)wkgDEBxMU_yl^!E%-baETQzW%ZN6Hx*0yM!|KZp-g=NDkfo=cvp8U`rv8Nx1r`kY~ ztP?4H;{`gzngxix5Sy!JC9V;22Vu<$Z){j=%qDA3QBO_FiTt@M8Rq0X1#w9!+`NCO zx=(F&YZ`@{(6SjD;^#aAV@ur1%&AYCn3fxu#uPG<@l}{;Hf}DT6UDpboTG_aug*WZ z0Gw;nc~fvPGtV2tj2dk&W~9%phuC5V>j4&cKpb$ePR-3lONW|x98Fbo&B_+IV+#Xy zJ0qlRS|qf(&%oXl#tIR*3>Iyjy2yXomDsB;Y^S}q=$JiSX#B=nj8IXGI(1 z;|vSX2n@kk$0Cmjty!JdeX{Q>r zgzxdK@q2f_qDm@m#P@GmD}phVl+ZIZq=6;yP1l_dy#Ta>P`Ef)#(*7c6EoJDwbY8N zq|naSMYz8shhBfH1HYXtvp$W90N-uuFN5$a-%bokkV*@44ayVl6n6YFXSJfC`5djK zGmTF6!&=9ToUD3VQfpRA14PZgDuKQ#fgZXN=&J_ks|M&x)&Tuu1hu~fG*!0=ZiBjD z{!LviE0~<2{Yd?K1V5_;Eb9T{{KmN1awcDONne;Q2~dBeN}H5@RVKxXzABUGM13L3 zq+2J3&~L|?&R4C}m#UQlWU1Cm)h3Kz)lzlP?7r1fu;~V1Q*~5rT==Su`q$D%0ao3j zJ}QBCH&;i|J=xB*Mylhgq_UNbFGML-rj|O&Pm581a$IbyL-xKs;omD(y)@!az)|p@ zPzY`Sro?}x%&V)M*kUvo{u_Pb53RMe4gCKt{BEz&(eq+PP8iOvw7y+i@1CheRzEJf zXTzcxw{@?7`r$8YYbz_4uipP z*vj-sWF|8wfmrq;M}I&k-1>a@1JC+{u_{*GbU%&<(_H;*uK+cB^X5fy zKKXyg+qcF}RKTO_8U86I-M(Tif%E)j_1jAzXx~0x{r2VRw?|++3l+PklMh0rhp-fo zrSA5C$Y+*-r>S;GZ+7e3Yuf8~X0P=XBjgyH`Ho2hgd*t; zFvgT~PVw+MIq|wJ|IRXS@x1Ip9%LKI#K}NPFd>2l?Eguw_Fo6>gY1it#0mDlBaVL* zr31yJp^$-elJ~pauA6r+mPpJG&Z0@`873+v9ZEAIDs(M=7RMMkL3$C>uo0#t4FTh!!Ocf&iEo|buWfF?8bqwf6N(?e3wv5cbV!a&$n zfV5f+;piWY!9*9ms=4Qo?r$_ZE7X5zUa=Yt0F|vqeK6702%9%aUl;_TF}U6lDBO`4 z+40b=6T_cQ1Q$Bq#xB@zV09Jm5Je1oQ$;Warx`rb0w;(bj0Msy?|qi(F1bv&j5Rur zj3JpGRMMB2bUF|}bcCLkj?iNq#=WCylg5}&N|;13n>aG@&2j-c>xdJM%jjNDhW5$SdH{^vYCtx z{!p`jM8QNyUg*>7L|}fw2wx)sDgjv?RgOHqN+VEW~{xl%Cdc#pc3Jv^-e32WCRS8OPT*u z-?@0Xvn<@%WE;(#R<>Ertg1*h;5Jko?MKkmthyiiXj!uQZDL5-pp8b325rOuYqt^W zP|+rK0vfcbJs%Ib8;-5cd_3Hl)WIFmhWHXHane8d(j{163aKNlWK(}Ezyx`tm8Pff z6k4`}J}_zZ*5R{*YsWXDgK5FRXD|{o3M!BVXQKE--B5{dErQ;He6=hFv*Jean5wH&(RoRK2jkNV2pvp( z)>Fm0<{yjk`>g%);3aE*)XG66VEy$m|v_zG+4_+J`Lfs{7`s{yjcX!|I;&AWTv)w~o zPjU3;=ZdSu9=D5OG44Ja=U{55``F6P;e#2?;qHz*mP&w!kYe3}8$(J=2KMvwy<;)8 zAL@Yn`9d8X3GgF)Fdz>OxAvb2n18MV^I#160s&OXRQSn&g-q2J=#x4?ArH13=ZX4l z;Qg}u;>E$w7UF+jk`Qr|3F0qc-T6_%yv8pY1=Rnj|N9&!r3Y>6uL@~7&&w&GE9Ngh z0Woqo%ugX&tU7l6{AyTSYb^kXcGyhQBcSRK)*MtOXR{%uLx%}N)4`}e07f}e1Yydd zYN?~E!RdRT5eEJx9AoO@)wuXD=o3xAu23@W0YN#1iJN~IwmJh1tMydRs8Vu{BUc4| zZU(`V3Z4gS=M{}VLs>STDtVm~;Fz;ZBA>#h(+dhIMRDQGKv1vz0%o|S7UKhvmx=lc zslhY#cVwh?9i47;-z`N#f!>kiOsfT}uz}6+f4(zG-vRfeh#wdR@qGF@q+GZ90cvq_o%P3q57-CY zK^!n$)9J3AgH|92I-636xf|-MN^s&5IRyFF%bw$P6V+U}d*B17?Zz#^s9R>~uqKth ze0_AB?H?S&!Re7?f7-#>YjtKXYh4y6YU^910?B{GZEojJPY%vxJKpeCSn!6GQiuJ= zt)tzIy^%V<5UC74cCrMd40QubHoR?VKOFUTiMR&udUJm3N=Jipb&{UvgYyee2CS>^ ztE+BvLBG_#oPw?ZJ_iF;O|f&u(YT``Ze~f0$`oz7RaGtKX_lPe>am`dVp`qU_8eXH zK4O2gMYD>Lfmo$Vq)^+mAB=|A*#y8rZr#EjD@~6_oOxFrT=;@YRlxC{BvsS|=$ala zGM-C8-#Bo?3ob1Y4w+&d>N3)3;~9rIgm`#+qkjI0xW*-Ca|i$+y!&ZmZ?XksLZpFP zTGCSclE07C;bBh8oITFCCzkd_Lu0oHChUI$b^rV-NGUdN>Bg~z*vyVzZT-AYha|Rz z8!rZzaG=0IssvCtR{6Hx0I}2}Yd$eRFFuHAe1Zc3{|8rE1||6FfiE72Hl1vOM-!0+ za1AQo6axYXFn0Jn7g{J(Z~)2EOf8;~nAU!beG?``S{)(nrI%T$ij1FAMlD)C-Yb89 zLR7=PeYgOO>p$;`&p0IpRAD8M>0W%QfnK<0u|XqEm_Ry+C{(^ev|j&i@^s| zT_FqX>TI$PSB1csr6qT?@)y2LuhM@jujtg+Hbu&8u&1^t`kC%C`2PNUrDYu?aR7En zrsEl5q(&+IufQ-?ujxi+BHp6!7rc~PA9{l!xF2;}1`>*Mh)f&Yq%9}j$=268F$92d zZ?LbHVR|665*mLlB@_+v?n9XEQnZBxwgx){&7xAdzq}kJ6pcjHMl_9@)I5Jjx_bOD zQJJ}CmU(`#a!_xXsE6CxPq`8jhWV>v;vP5E@hix^@Kb*J1NXe-x9DD*HqOWIfsZoh z!CTBO$cUR_le(l==z>C_i;4uOq61|k#%lhnN9+Ph5AC4mj_iu0Oh*poSuDwIrxU`u$UFju?+tlu-X zRdU6(@A2DE-IW(qSM7X;Y~Dom3Z@u~LV-92IPPQ|az3o2D^oe5m2D%M!e$f^<*)A&2X#9q>@i>2YX(Nca=~NW5 zQ(XoYv|9H*bLIfmE1^geG_QZUDWbiqQaU+(VFRZtl=UJ#r4&msuCuf*iKjL zZQ#;NzxTEc8VD@FhwY=|t>f26`f+-n-on@LvGT>i*3K@yAH&br`{u*CDF?gG&FlyD z^Rsyn=afX8)66_eZuNOBGk(P5mz%Cu#dyz+qdf0xQ|&Q6<%55@Kz0Iw6D9?v=!Lj3 zQ+T?XDU2C|;rT>~DI`v0dk6v`T=w3>3ym;*z{D`_vWpiLvI;c{CI0hgE#p-_(BL-! z7k!Z_h0f11noKyIo zy|LAszUbleBtCy4B~(z*z$)TwNAMj#BuJX->qXH6=tf-|^uUD7s3N(6IOf4=BTx}> zl2iGWk0$T$jhYN5@88B)UXK8_-32n2a$e7Z>yB}Tn!>PZ-mM!4qaTajxL;?_Q5{0N z{*$5xR{ekl{=5OX^#U;2$Df+!lQtCys!cPllaV{4$G(3mhM(7(fEkHtrSwQ*r>Nu@1SDVg8^!wMIdw0$c{?$vT-{G> zRhx7JOIY4ZdiUz~V>ip}4Kd=+4i8?xO7hQC++r3t;Nr2gCR52j5Q&fT%d25;sw>dt zk}Xv-oei1ThKy;|2t#wCz!Kx%i3Hh z?@^MUg@vJydV2gE2o1c4;RxU6y=M!FR13oRZ`_Q*nlNao)RTTmf*nkDA)1$zN1f4` zmwfw7EnaWZ{H_?VrhMEW#!KTEsb0?{r3K=wGv(G8pSJjDzD!G*E56rVsKiKIvAtx$ zkSBjnEf`gBm(64P;qiOF_{dRB&rI^tZEMmAx`wO`Mg=JEDuh}gyTbuJn4={tpmK+l zE?DanXVfopa*ftf@CjJTYHO-KLO}yHH2W1>$RoEK$shiyFZ@8sVsBuF-L{)=wnxBA zG2}tVsfvxZRR0kbd+nC%Y7hhh4xr}rAp(ExNNv?%B-Rl15a7&k(mQ=m?hSOosKwqV zW!xdXIN!#bf|8mnZs6e1Q~k8CKzO%)5+GKtYre;`&}l5$X1#y$c#x0DXvxCBob+H{fwldrFN+U(gX%o7k`}U2 z^UZf#OI1GI?dMXBFKY6nb)#TNw!6L27RJZ1bqDZ8R&>b)HCUn78Ex-DQe$_T3>nIsd zompc)NuhG=I2ot{W`<}!>Ct~(>(SYgYdJ8r_L3rqlZaAOhMED-78qpzkaqhnfI6NcY*sH5%JQHx(oelG+%(=J4PzwO5wk#oY z(fmGlf?!PFXMg4i9BqF;-`#orV)xKGopt8u;Ljp1gyB4suTvQ_Y3}tlD7k)R??Jp2?kJVej*53_vZgMZQ?OW@UK9$M&M$`7 z{yA~g=CP-3M}dFNWHM-~6+|g~y;)K6+=_9-ELhWcbgDxCTYNPJF*^64` zTUIeHHKg)XlJ(zh^g~nlUgCdk_y$(?;?&?#fFa-v^*V=d1D+;YUqr!?TluEkT_|~u z7OqkjPmJZq#hu@AIH@lEW3|gx14Vt{%hIIFAvAsMGhBaDmiwqUFh(s~#+y984W+c+ zh_7nt1|4jD>|NK^WXG-A6BOKQ7rZOQnnCB9w+TVO@QjMvnzge&eB$>i^x>xUo5ydR z37Qs;wpS{_=hyV!ik=sSwh$e!9N$g!yL@pab-T4SyUxRIBc1M&Bxz0bxlOdWjdi&` za5!m^4)}kw>SPVtEKmirXa&rT1_#p&0NT61p(1&y>6Tk1auXGDV+C@vJ^%h+ZqJvR zZn{ukH{Nrjx^AMlZmhPBZh6=NfBsiI=8ZO7s>~bjxK)=oQI6qZJt0UrRf!PmA_63mz)Iw?tNj6HtL~J@>>r(7RBjLAP-mxmPPJYr$oPN!=-ag)`mK(45F84JV9le%F{X>crGRkb z&htbu9_Oc12vVC*yW!Yy@ix8Hypiio369ovLM?YAbpTd*q&ohrC6F4w1=;9vSt=NE zXmswhBP|_j-S{UmR`7TC3NCtNs4$tR;s*Q0B}Ge9Kj3Q2{*sV_daK$;uON< z;K~{7m5>aPn{0lO$1B<2e&c_**pIl>SQjEU73_Z{!I4YdRf}!* zL4?`jggXzHw!+DAfg!0@Sw3|RH#Nbu!u*}S=)-J|@;86b?IKDNE>bM0D&fJ1oSMj0@n;lr z;RCBt!u(k-qDfqwVs<*WoOTaxj%!GAM~9lyLh60OB~GT;-6r3jRDDTp$;Y~EXU56+Fs&As4Mv)n0i+8^(q1qb(o3lb<80UmEk&9{MiV{xd)?OQ zzgB1nTrK}}rIvqXqN$%1G5oo?d9t-ihz7;M7tRJ_wSTxUIw2L)p0fg?h^oCmxrXde z8yP1xGDt;}39J;p)tLq>(-`^dsx3BFa;)NFCfN z>rdRf1PCXbox$0FvoT^S%a-2<n%IOHq^@C`&K9%GD{GUaNIE z?Ex`Ux9WegDu8UCNc}L|n);{)r_K&!NSm}eG@4h`)EkCgbbl!7202$$Wi~|0LiacH z^glpGFCb(qXQDT=rR9x5UvCDTCnGu#@K*%0?!XjewBr-TPC&70Dc6(XMVs~YS-7wN z41AShocuZpeK{S=#~dD&mZwPmAp8vGDw__b!@Pgn?Xr=Y-yBYW|LvcUcE|=WCK)2U zrTs6I-=^hy*d*GvTGC%eRx(%8roTR3Ma&(&>HB;6m4NJT%4HXNe*StyUJKeZTNY`< z(O8*GCLSnH9DNP2EJw&4^~?<_$P#;ExqJ(!HIxqmvCO)=M5LxNac??XufB}UHSRGM z)bM{1**l0JM|M1X{hD{ldbi~fb3d3*MGHVutbnq={RW~0^XK~3a#l!#a~Dd>eZ`qi zJ0Kj>hkOhvoi!(ss{ELMyAB_Lhg?gPGrd|gMKqU>Lm4;xG-fo!+n|_p44@d(IPP@P z_cX`b-swBr(a3ZfU|G6qaL4*Jog2}9Vr_q)H9?75jqL5je1l|p%Etj(>PHgeZxXq} z{M%#Wd@?&}xBfBuKdnxywc`CGJM%vYKWG0M!%n?CO2upnpr00FvRH6u&{@#fI_UxV z+Uh#j6_8KJF_hUSj^w41HM$vkMk1?sDIn|Yje=*%*}$XBF_tZqJ2sqgNJ(I&+9iMF z@qvu#A+4G}A~E6!QPD*)ExJ|2v<03_2K^ipRF#DvEgbKXB-w{2W1@p#ZM;pO-C`r8=m0&!~r8&a)8lXB054t|SR!YI;jMrv1 z1x*_&3R#q)M~d0lqZ;S=&g*mcb}yL+f6yv-`~e-o zCS!d#iyR)#%6Y`NU)#n#A`TzymoPi*e2%(I-#ZJNn%@IuV}-u`_U>@6pSw^Thl+Z{ zWl+-N5mfzF+{^bcgnL{PZvb|9kt56{b6&i)dD5i07b3I!8vFlV@4gmKvi^UgEEYq7 zQypJoS67#WxJibr9r`SfueNYqUHz=}T>i=+P};A<{A`?0F7`&#eEdO)Yff%u_YKa8b(T-fUW2fo6Avj}KejNQM>{}`cdSfpB=>p0R(-pVxchH29?{PMeZwpK}|Gt^6Im<4$nDYs_NAF@xxB+q*ZBX z{kI@*!WabxRLl?c@aZ?L-_z+MUO?w)!EkO6E?pov9xLD)-TQyX9uybT-Pg@-*COQt zuaiaIC;9*(*F<%gGhM@M@H`=7gLgUcl2=orT0 zrbmWR7bB4H#+WEk@$e($yL;X=AA|D|bL7T^ z7ki{HjsfqfHQ<&1Pp>Zx)HCJ%<`484<-;s-gu&PN{ogM6NV?8C*?7rIFI#z$LKIS&?f4aZ@0{4J=#6LN? z^71l%`nfllvgyxb>TsO@?<^mkUYjrGu(1cP{3xWw$4_Lz5!#HhFzkHQ_C50ZQ?*1F z*6_!7@y35eBf)llbFr0#KEUf`_fvj4n<^U5_@a3)a5u3b#U~?$qu&(E=D*$W?mS}Jrhhxn zI}zJ3Sq}U82#6*A zaWp#vi#b#Zr{M1{{Es;*#yy^n8Q+=huqLGtY;6~pmx>Rfm{=N-{Km`JC-UtE&OUjp z088Ipjsi2`ow~tp&v#~NscWCT*jm>}!UH&Day0jF)D#@h9DtuL`sIS|!2A%J13Vn~and#AT5GVhWIk<3 z|70hG_~6XH1P^nFXh%%1u+7|?m}qx0D2BaUu_GrUMh%WruJfIpGmFaZ1;m5d+uwgn zUPDf$QbdLd4+oKPH1~(dd!xZrc;o{*d!Kxy7DW^1he2*_8Q}v$66Ss6z(LZEK={r_lWHba*Kk-e7<80DQK?H6J5Uj(p>XWR!+4ruIJ_6}g17)d%v5>`7JoR7#1$b>#x@(MQN05_;cdxd~<7AeMR zlP&MKt`lmU(8gec|3ljgEob?f z4vKSYxGfVcu4}>*gQbD(7{6H3ZyUtI+X^Bng8KvR!k8#(r;QRXIzV&!F~ON=MCrCx z7#0pE=ub@B&{vKZE=MV1=H6_46l@2e!FzcyI@3=$E;A;*VPbzAb`MR$yrtOA`(M0a zYW}y?4rajdsBsP}Egn|Wu3G;Vz-`(k?~uF+X}k1640qV9lXp6x9@3PHd^k8QuBQ1I zi~(9!(Y^bh$B^d=M_@mTNkK^$hi2Bo>*O^X{sF%QG0;XcWN@GU1-d#L@CXoVI>bJl zK~VfL;%_#Bh?jph>OFj#b9k0zu#^JEr|Bh?`P5ACY$!14W?>~9MB9!cpkh#Ag}bqI zzs~LB^lYyXUBrxzP7J*yLSZJV#{Qpj^>Z-2hEyfBG%mV<5GFiOXyX?F-~E*R z_j>kywCFlr^eYstWd9A;ZjlL~2B`Mv{oI_evCrv_+{D8PN-FvQ{3-;-_xtI7>R@ih z;QOzrd9r^-L0rLr4;ox&t6~5+H@l6$C9dL5)hq{)-dckHmA0A%s&knJU&)!E|FdFTyJ&|P$ z?cWo`#_e;yB{E^Bi26X9CjbVlQ$2f zkuYD1GDiAJGk{B_{NK`|*uSM)iBEc`?=g}v zoaKzu%mI}h<6^UD2Dmcma&p0iu|w-FJG3ro>*83U1gu--g|d*@n3EgQP#zRJ*j;f)7k@Fz$b5&-`=pLaX26EWThER$Z=2uG(#|RX15h zI>s^X>#v*HdW7}*>zu4tYY)hOemRj3hOw2$KEZz!Kb$}kw%+(U8xAf9)5&7Dg@WPs z2GeXdnhu6G5u*Z;pMr}J=7A*d+tI9B$&ScmBH~KZ*PPEiI%bsec9J;rSTdTAT}FTN z^?tckB$dY)&DSGP)|RlETp`L+64-lt!`jyGRe46aM$|Th&sMxPcm8U{i_^?{<(oR@ z5D_!x5=ISuzE5(v_&q*v{Vi2U@{Hn0c*%Wj8QwyV>A@1ooyU7XO z_q2j%xoTD@Dj7K#Q|=rkaV8&q=nj8IXN6k0IG7c&YGD?jXxWNX>9}cz43^R&xhaS= zh4Vgd#wrWNU%Yyp{r$!@9kRo(Ophc+r`qtrM4F>|d}r)&WI^}n_4fAe(Gk=065Adl z!bEL&A|eM+FfCm?VEWb2m?(ja2Fl8EwxX}yFw^txiAj>)G}!*9TYE2dcWi&NO8KUq z)Zc`Fw@|)^82l%>;w&b!(^J*#YzAJxtthd|(xeZ!3>d3Rb_9k%24}s2lI1jsTkh2uuE9pKU>y8fOAIF9I8)wbZ>#LTqbg_KWH9uC|;fN&-65Ctr z*yBj}8rKTbXGL$Qpk57g3jF2Q=|Y8{^6^PW%$x4l#}NEO3C<9lYAS6xCKwhKRgdQd zM5QA57_ow+Xy&6zQ8O;;mJ7NmG51BekozJj;yw^R!MR0Aqk)hHSbTpl{}qg8VkR>W zPF$wgK8cgR`=7hpuaEckpUI~bv|>Spy*PI|_7vEa=40171qGxaF>q9a$DjQ?!A+zl zGiFD|o3DA=Y-tW*`5Vfgex?_S)O_Q-*T3dyITY)sga1OptHH=g8`PCA6tP27aby;8 zVC-?JcUTffg%66gEh~Q~7rs%Ht1&RfP_9TG$^INSyO9}KV2gCeyh(+-3*K8{=ytrM z;b?nBZhi&xr+{sAW`N_uYum(lS_%n9>)4zz&lu6O^z^~OeFu@jEh*@>?15hbS0Zbp zH>X-+saorhhMfB#S9*Z;MzdTI-r?{aRY<*DN^^^BiduL`s0RuTM@Qb_2y- zUj0s$J&_9?S!sWTP$$J05LE+OB7C4U<~E7>l4lRDSJ||R@fq7LnQ;Wh3w8c5hd_A7 zIE(10_{hu%8rEwnm4P3sTA2xl@DHR2Lt=QwzCA|fPNzB1QU9H&Yx6z-FzyAyaNb*K zxLV4PS`R5|2k(dSiEsjqEj1huhqMv1pp8j8;NK%lp#FcT)mbdgw$Y0do@*JN3w@3{?ZZr8--21Yh|nu|8HxgS%TnhL79wcc5lIK6RQ z-n<9+FkgS2Kujx-X?ED)t8oE0d^g*{#K~vgO)ZZ*vBs`?x4|)|Z;nxmP=EO7b2}DC z58CGFE7sj9)=BYyuIGfB*L$$8&x)d-{omrGo0YDxWWviIZE6X#sT*0d5(`zd`+MQt z^YWSx+^Oc>i+U2TuM7#qUQg=P{w;!Oq>{Z6GL3(ZY*)$~O1AJ$kOGE&HiVeY`fPEi z?j(wo;K<^TB!Ma+vN+h{3RqIcsux)UC9fTd#hrMKfzsG(%uYPaw{DBY(bpINcuTJ_ zTYL3hVsHozombL;8Vjw6D6l}r1vl<`v~_s6_fyH%P?Uzd*UeZ+BWxJ zPeyc7M)i57INi0N<$_sEMc_s;JCk+v>6p6X+*=!D3V z=!Kx(P}~)y%fizVYy&;SoC&T(R-u#>UZf0J!SXuv!r9kL{m1aw84Fi)HvdGaGiVAX z!AjNsG(3vJlvgrDdlO)H4k5{z6Fx`!<1()+<4`AGjGOP8k1s+KV-8ivS#m}8$j5&f zR?67I?tTFA<+yh;%n3FdUr!Z32!R*d@Np%R+(PRAt**X#1LwzkOWRO*0|~InuckjZ zJIjH>kaNrg(C6dD;Pe7HR^3qB;Xp3O5#@>NQl7^tjuhi#P>LD-Ac4tb6drL(80>69 z!~wZsofNB+QO2c-VVb*|bglYB?_z)a^LPjL4hi1Hl-V+nefbUB5wfpkmC(M8I z_U$)+@Jf-eLA&P%FOa;!zZ~(66AI}30a#5(qiu2AS^Q|j(6yX^bH-7;C0)YJvnUjp zAKZe>pjy`8$@l=Zq_+<<=q+N!DJzZ=Y2Xw5tEp}LVb-7X<27f#e_3;<`ow>qB-b~y z`(Z7Z7k}cR^Di?M{>_v4Va=JqT72v^2L7aK-0rX+2cv!>2mQny^AkDb$8|=$rL(!x zm_;rlx+rzNBlw|H9w8*1fC-sSq(|zc_mK=_m%aai{E(ym>a+lwjpy;hU^UB zdQjk?!@+*pgM?E2O&$7TtO$RxB3L~#I|AjM0oqke0{X~7iYjQ(Q9~GA1EDxo#F@dL z@*sQYmCRvz-6T{{FQj>5qF$mYZU8^?PtzQdbN|?z)E{O5 zj#fvl4H9+L=xFcR{?-eEv9z>(@Z#W*w@S&-lv18K9<|xJSf`zvTo!-t^X+0-jJt=R zt3T$mx1|_3#oJ=Kprxf}hr7G`7S4JpoM+=aA4y2(@Bv`akTCPJf%QWvtRIIEp4Wmp zQNPWoety1pEFk^46w=QZgQ)}RBYd!zxf1TB>^3f%+e8;PB3XO_TnxSNE>pqUWf!ioe&DMjV*CHIL->TWG)x#4Kz6uJtq<1T~}BV=@%%OHVxB} zHn@2ZQ`Z9VY8x;>iar<>IHstAIqXnmB%QJhzdc1eb@>&TH7I}4AV2G)yEjr?$Y?rH zbOT}pj`ELmlHr_ov!jb*HiUq1;Oooz>be;wRXgjQ=0twFPWC4{@`kyCpIRi)Pi`eL zK{7QO^CzpB>QGSx;?xv9?J2Q4`_NN|Ly_0nm|~@>IgMx7zgCyI32QdVuwWzGFNl`3 zY`sKE6fUm!5V3!ce2kC<<4P-Bo1>g=nl>jQVuo!GNb{vutn)gkgORAD1B1E&qjgwD z#lR=p{nI9WWQC}UX2GZL6OdS`{n#X?k&S@Q3_hxgkF149pdcijzJvz<%u-FIGGDn;Om809#JJspD97sWl=qidKsKQ=Xek|e*oWXaPGKFg=@ zQl@Uq35rBL9Fj|0NFd9Am`xyat3Q4P1Ik`87%`RgwmcsOK*r%}!Jg5o@AY4?JinHZ zYWqe3l2Lz4k3+r|XqdEX>ZDKuI2rWUKVc{$w4VmJ+(v1Xeu7>4%5vtQrmd*trj=!j z6iafN_HPD;g8_IOB<{KcpN*z%U5j%AoMS)UU|^?$=EudfH;gy8?k4S^*{ghfswfHI zliT*&m4D0pv;<;qX5sufw{S&T--O9i1O^G0U(A30nZ!X>Mza#yuo>#|aEy?cW1X%CujlIdX-eI8>GPpX= zS*deatZAc$-CAwQm$dX*a4=934u`aUQ=Wq(BOiZ1YKrsf8wTc3TjM|y)*qj>DGx}YtE%qInVdf2eigigO257x!c%u zsVH$pA1cv)T6xZw8Z)brc?030<77yoGwXl9ktPzWByQq~pVin>j|!B6rG~og$%>or z089NR!bgHLK+3^dk`b_hEbu{@5&im9XwZ@?uetJ zqbiDpOhi1I@JDzM(&BJLptDSnooS~Ok^Cy3MQWS*(JG26tWzk(mPxHzw1b;=0#yx6 ziuUAF9?Ag{!-}&wk_jU)+?c}M%!hxA9?t^wxJ}~1G$SBoJ{73m=a5GD4|);$V0Q16 z9@U4}^X;G@8-zmx*^4C}%qJ$gct}W5p)os>f|#9mf{5G#idYP(b)wDR25jnl8;#L| z@T5bJ0`LiU!43s`0ySnCCh1DyMFgtQ-wi(LX~vLBmzCd8sj9a^pc-OdjY@ythm)v8 z)znpVLt^%@G38l6dG3PTG`x`vsj0q^%qCtL_0qrAP71Z!J#Ob^Z+g)^8y3a59Z@yP zhJT9a5@q>!+2ge}b)LIVNd4iWfGUe1fs`+YLszmjJN+>q2l7R!fDa&y1(Y$&j%eDr zl2I~5^=*@CMVl2B!G@k1w*r4!T)ih^Xvf7);i=-nC0{MyGVu(v-lmZ;*p}87<8Mcu zhhP3(K0kR{JiBNjyO?!s)+X}0$dq_$JNrB&fOh;9{wy^yqN0OETm3#LA>m*2lIJDF z3~UCAO2pLpl@vjH)B<8ww<+i`J$11UrEE}wA(FgMPZykAvvryQ%wT`;{SeL2uoY#e zc8^HJYr@5Om`2C#J0S=q>x-0#7zcW zKRH zl;~UL4Bgm2LcclKs%gH+^#zSEi%}aHJV5$xV;3{vkgl%A1@J-<;2m|2!2XmBAKhUo zhDz~}#TDP$9x6GvG$Qu@$2X*pbNlkDM)LuTorax3Ph|g(jrit&R)fAW7lHb*zxSde zYI)-{c{NUP4Ws_F5k}I%k*(o$FrA^JJ7?0S;%q{Og}SqDH%f89IP?$#)Fo(6g0$e@ zWfTiZ92pOH!BDk}`{aH{6IgX&?1Y`&3@^x{_$y}I7&Fk?`W|ruH!^`8+Rb}zEJ0K8 zuSjxZBmpz}d&Cic*v3T@5HkM%iW@h^4RnmSN94ebTrhTwGIrs#eKR{#`OPZ@9Ur2xRFGE)>ip{n9y%altVF+9p`pc z(N<_lw)NJQT%sIrp4a6Xkt1o&6i3G)Eo=S!{`QCd0vZ^9%#f7iB)6B`Z6XeU2GD3U z8jb$=gEDSS8NZTXT1y*WUoicHNN!Cezm8y9OCw)TF#UrzZcQ7%l3-d(9A8y1{ewPk zO&`COU|LHcje;pYl_$>*pC7*5BNG}In}F@9Ch5m)WRnELr}M(B+zFbN(Q`AtL6?`= zAV19q6oHw4!Y6npIxqM92nDWJ9h*RnC5TXP?@y{M7Lv&ogLAoco8FmZ%46D9s*>tw zBGryr&M!i?o{u+0o-vffUlUBaF-Cg6ItQDS=LR?Jat$Lhz?;c5d_&cUc z>0;j4&UriVLiS*N(a`+Y9D16PZ#HI^gdl?U{=hnaNlX81b-3}G3!DoNYWjJ|K9`9r zKLp?hl&z|=xcfKM6e7IFWFSI?7!Z7t42pG1OM+~`@VAc;S<+N>MyErwS2>(cdm<5Z zPe-^T%q|__^YJi)ND#1u;~}>KxBEesv`y)Ui?zrITJ#b|4`2S`#a_L_w;Fh;(m$1{ zRIF-$xTg1P(8V1h=W6UVF(xR3r2DAzUUx?oiK1DJ)==?)+?SU zaZ{!6_1-&`eFX6x4j~2POg0d(auraF}5f=02%^fj5AyqV1*?|Swi*$KqO*H zVcJf-ASuI)Lg}6Q!Bu>Q6by&T%FGr}+^cAR(d&c#V_?Ja()UNb-QH3Ey^hHu{4T^n z7?!0nsIWnd69#p>xODg)Nl|c=#h`?l^Qt;?M2G~ku~E-egARQ+uyDk69$}SeYsV3L zsWTE4{19y2-Y(UBJJ?yIy1l7^vuR`;gl`i zBs)WSj->(-{m`J({BLsu5n8g1Qc3}TLtt+I@i@6csf$^6@)xRE>D)?w&xBTFviS9< z&p?G={A0PY&FtA6l+Xbkl4>WUlumTfIuXP!6n`;(y01C2NqeGl2dnbk+x5XmpP;s* zLyk3J1BvicP}Odl?GQP1T2@gZLV^dzV?vd0_N0j#EU@grt;iZ78q=}cy5;eI8I7zN zKQ-$Q%?4A#=Y~~{h<^L;_kK3_xc9qzygGBo~ClAuQpPTD78Z-^{_k6AJWU4mI- z2*&$3g5BP6kAACY2&T7}hll;WZo?MBHoF-lo1^Bw#7f_^aUg!_?vHbh4r?VT&I{tm z%dA>hIa-gmOIVkDV1xR^M*PZu_$^*D0@{9;{4wk6$A`OzTgg81Pgp*)*%D-eX1WjQ zlq-WguN)N^vOVSIYDos5DBP+Yn;7N@?y1NetXHG|K%dDexk2tWi82%w5A}hV9DQ$A-{> zKx&xxMF-oLt~AHbhHdz~<^rQi)cFb`usMaUK<5z~Sw#2molF8sIu1atdDi+ip{26R z4;ru&1C~eJ*8JMaO4eF`1&cM8;&eY-J_c+`PVO;>d1(?fSG@f?H&Ba~Br}jQ(oh;& z(Ws*Zs0T-UsRFH*2`;~I+Q>GHR}Yx0xu*EH8(kW`iMR??1x&R{!|lV>YSrB~SXOON z*HmCdPb)Q`g)bK?eJWV!ezC~ipa$T~(M1isdSRb5r7Kp{=bj;dYH*s5r3dW@aQ27r zzp(JX9ti(>YlPd@mEGt9z*^fIO8<9p1*soF%-lP6rQpqKZx*rr9F?$+4kVN}FMBdU#bd4& zk5Sz+DT0x))QDeHqgM1%02)LuSF2w1LS1RunkRWVP|fdUH;`M1AJXfYO{@R~h)q)5 zN2DhI(01d0t1={4Ry{J=DQSu0HxvO@Ba6P;;m`0_q`P?f!5kXDiYeNZ(dP>R(XZ0m{~-ce2$DN zlp`yrH!^Che3QHKA4mSYBj4XQztO1=4-i5W@a$k&Yy7c6?M)Ynd(OcQ^)WdxQn~HG zp71vo4Z@S(`}u7wuk9iNK`(i=zw`Ikui|!pgp!xr@Y9{%(X&IyYN?C{BW9T_GdQ4@ zxG)J^U^l4xt_TaNEG8njV!ADHBAd^q1oC~qhO~<w5Sy% zTxYkjKdjgtQVfq=^r19BuLs2Xd(8FYayR3@_=uw<$cRil|1M_b6ku`jX)ziVS1_c1 zz47cKo1j>-)s5NE9*&15ak1H2U(N9~t0~l*$GRS%>(mv|ObRP`0{ZpU?_7JAHLFnSlw*d)obf`{v~I zOjGzf%FQgW%jy;w!MlRWJawagdGqwr#EHPMV)uI5zQ{U=?BmaFDpp8b#mCrQw3 z4jln4Ra_(Jk5Ux9M@o7dtlc}9mlu*slHt@hpacY}`xV<41RZQ{-X&oM3K#EFH`*3u z3~R#5ZaN(HXD3kjw3wiOc-dyCE77F$`@2AFQiWtGa|w96`A*3W6&jcN23hOX;a`PQ1{IY{bWZe2%{m7h|jk274Ys zF~(M7qytmf3a7Ws)MLhgfwf-jkUGjPijP_KoT|!Oa2P=qIE&!FLH;rics+3=(bX!jg! z{SIjQM7R`!R{6rY%4$&YXFn+pb$SFDw0Jc3YzTkP#`QXXy0TKxWbz+Y6Pfn0|xK#j32x7Z%N^~ecyHPE-{zom`Q4rV$Zh+Q=0UgntWtqBXuxQs^E6}LNl6D~6~ z)iUBR_^1>!qBzDnLS$a_7Tg;K6um?_MGX6%VNdBP#9*Oeb6TNGyQvXHea}?m~#q(^qKMtgGtBYGwH@2v1EL6-bpcf+%C(w&6 z-ewuKn76{d5@T^inAL;Dl@@AfRVCP36iEwBwqDn@Wb?YES_0+a2rLS$AUDHIEcs|v zPnj-%hs%t1zE&-m-O^gMC`sH-kG3!(rMtKmZCNFnujlZnQ8YAPQ-`Lm_l+!man;%K z%)FM9-&7H&)l~tdg&8fD)7b^Utj=x;1(>DTs-mu{?eghB6kc&vUEmsB#lcNgc6P)u zcr|J|RimP&^G<=Pn$9!YIygiv0NN7_XBQWLkY90{f6S-XT|>xE$T=THMkCK%nM$0` zK9PHNx9h8P2%xsj;w~z7S^PbwzoDWAgKVmxBva^Spyw^ z*`_gbyk)HM4wN;Xx>T8c<;MXGZdHmd+7eWA&1`ORxQ^!xJdqZB0Ry*gU%#i&Yxjr! zR*f;(@dt97?Gr?&3n23)`gat85a}a1E^rZ7>3&~HiBzXwtmZ=cZPbKJYovG1Ka!r% z(=0Ta2J-GTBY^GOF4ul5b!U7YlDzhRe_D9O8?$a<-Y@t2{r$rONf>znu35#^n1bQD zgWPd;_{B^cgE*~_Ij~ebh2Xnake|*w41W4dk%hmQ4axBp@GqRxmomww1L96SSJew0 zG0DyhL1YvE$oT0qkN=DLX}G}|QJm#xKYa$J2+B`ix(FM)zAMPEL%#Tj7UMyGA6bIp zFl-}#r!R(un{_FZCuy182Uf~YJb5-6Cil5&m!?uC@A(g}5}y}50@=y;{v`e5skq`D zid=-3FZqT)7zk-g&}e-RRq$9Sz2kKlKTy_P`?H5T)Bgwu?o+`YN}Q@6a?m)QOt%h$4-(F1b=mhWS#4Nsf~S$VEEAC+B`P zD8@th0my4THFw{s``+q*Ci^Hco|@wlLabe+!5dhh(5kMJFnos zhNVqr!)(HVVT<;F=SNBVFc(3rRO!=!FJ_+SR2e^eQ!kS4=UA18-WK#|)x8 zOtX;@Ymu`|@aQRtCLSf+3w!-zsS8M4&?aUW z)CXD2AS8x=PU0wkGr!0Behpn;rPr5+?@W{LZ;#C*bLpOC$+OHb0j6M}yaD}PA&PSh zcsa;0&Ul)DvTtfrQ!pRKWlr9J%lZht$nz<2ya1Ur?y>YugoYX7(@Sui#Vj1pvSMJttlEH#< z{DV!s`>*WmV-BbO-_!Ck@8H16_06?00Q$vQIv&l=U~w=l!|m3E_rK;gArrVQH|33* z`Yg?!i&sT4v@)F8X&2W<1P7H^()(DDO3N;PmB&FDE|eq4Zt{1#y$v6p<|9J~sbLI^ zOx*mah0d-)EV%@!2&DV*HB#860SF{W{I{9$g4ZsB`e0^?p1c7CRW3cKj#QF=CzQTB zp@`b43XaYo%Pp+EPRZ-Z=UaF4MSQ916qqY>%}u-^wA3%Hzg!rM8+aE~^ z%Zh0_tzI^p!zi&8O%NrSlZE{0W;ZeOv z8!~{}?qmH{x}^qGEavbfG@pkl!&}UM4X(%~IQ?`UnhvS^#Jr-~%OOVefz60<1F7^|(`y_tuD2W03+${@bX`~wE$l(D zmMnu7(hJVPiXBF!SLt&RoY<}wK}kR3XBDUInkv;ah^`|s7b#;Si-6Zdgn;*dYLr^> zDx4aP0kJh&1CrfJ5DCX>maR<(Tdcgy%F@1YR2gu$o2(`+XEG)hIIAt~P3fZ$ioZ$P z)pC1QAXL%ytR+T7+1zl4RKi9ZTXty)a4WRvsif$j`x1%jusf0-TE0qTylD=aO;${U zcd}h3YLdL%>-T%lT+&5St(i4{?3v%MtirOghMtx^Si!nAB+WWUvhWVwS_M4R;9bH# z$MTfcKqX-p_?Tx9G3i2-qZ}g~{cStaT%HAdgSvQ~?Fz_mJ&5{6fMEIaSg|v)CC*7( z41eUeu8`D|1c%=8_at6u+~-Q*Hw|K{+4WbfvTXfKP{M-uCNl$S~dwYhxuJoeG0V2 zKpiDi;CnxjiF|jPj>KPH{)qV7I#0fmO&y^V{M}yj$}u|`JZka6!#7xV_-|luN8n_^ zRb%@nnls2h9QPOv9tkRcSx34rXm@6fBZC4Muot0i4Qu^#?B4g8@6l!OZV!Sb&H=0! zE-{Q#W&^0%IxA-QbV_wWR)_y?y83s{8QcldZZ(yd*f$(a{+th*6Tj%QRJoI{}|ll z=Kf3P2RxzI)jI=!!-IwDKKtlb#CrH|{L5J!qira+B0VdhwjE-QbY`|agjv}+&juer z^7g|}ne$6rX;Etw3yr!G@fQhAfce$*z2`gvP2m(kb_$34lWXz`vLMLz+NIu-vjp$w|;QyI`#wm`1UQN{MgFHuuXEQ$WCS;TJQ?i!8-Af?(Z}*=6A-3wVeP z-opsgs_cZfv3Bp?K1634B32&=AojqBoCAkk$?^&oo5EL*dHDGLD%`ExRdA*x8g^5p z{BD`iq1@YlKODEKw6N&F!CS@Ahxuoj8MCx$+w$G#xOg&}nK4985vpJX#e8y7OvW6L z_#0ecJe-yoJ)Z1<&dCKtcRmcBGuVRQ3ZCJMG2qWIl^@`Ud-CG--gn&5F4b;%n6R@s zg75^@$v{_SiccEwHg;W3vkOVkJLNPa>2R2HZh3rvI`Cdvz)-V_hAl%2A8`L=-+c3p zjP_`6w|TIUEd+jcl)wxL3LgSm@+@q(Geitn9N%cOm*8!HjL|I1PTgsdVs3kUnv-n^ z2dAQDHp&kFc7NKx{WolamA=lu*WiA)y6 z-kgblB%fl|241DWpJ{}5lUNzFr>*wp6&mTNL zJYMJE4{UF;`THeB5c*|c?X@aFE;Qq#-pf~i!IU5Un@_pA$PfR`XB=7N@BceZImR*V z#4CP`;0I10{Xpx%dur{Yps1|gvUei=N5Wswuj(_Md{@jD7DF2;3U7>Ci<=uTq=9g~ z)pKAmVYSwbc#9UB1)e-zD$=siW2%wkqWT|}(<%CloK^q>Zh6o&&m~+_Epd>yHwwUi zh%B6i6kA|jQO((3<=AS`GLZ|vesPIa3v?ywtQ5^ba094QAZR1b3>7G70(vnUO>@)I zIxc9Jf$(xc2GQi8M$Jon{t;CNobg@HEdaInU?=Jgkt{Gkj)fK^0JCDmBPa^br0#7p z=bIho;;{84Vbc!7NPwJOFmpjdET}twjN^d*%!6oF?!br7IBHFLqQ)YlZK^vg%tZr- z%Sb*qca36HoPlYLPxvnMzeo1uBFAQ|Q&eY4Qff`?D-^QMIrpGVZ329eBi*6r7ueI1 z)C*kFD`8a%hx9{xKD>#C&~}PqG6Wkcyz(Fy4WPzqBu+&G0#pe)HJk(wK|-K^F@vP9 z?BpIs!Bwyd64ox#M`PhYQtuWNUdNbn)EGSi(4N@!`iQhgWlb z-9fC4)&oKfi!i>*~GZ7nu4ATYF>hcElV&?xj9bv5T62MfX7qLexc~ zEKUy6W_0h5wnwB>nJV3qGNni%$+Unq~K@g1=p~CsK3N(3^7U{Mk zBCDt<5yGg-#Y7GPHGp`3A{0^He%ZMzTu({{*SBe)%wogmzH^_kzMO>KlxX8aR(*L< zOB@-cUE#92!nk`(aW?+g&Bv!jo4lft;fnSTUQ^}iuYCLPoqfo(nQ8ec^UrY^*?Xw< z2*eY7u@0|5LW}VBEhYl9w=9kof$no#Ha-A3Q=g*C8zk03-#S2lr@b{&$hGeU9TiEplp!Q%m~oAP{Cj{b7`ZrKdYVO zy@=-yt=`hd6O&wwz>*;`S=5o%#}gwoux9?25>v62NbM|NVyg zPE{Y*dG1yxb5Hs3%9Q_B^#zan)w+52EddCZ5bwmVwu&J;a&xnTk#IL?m1=f#ap^f{ ziF;tehp*jT%&{nVRK%t}eA}%cR{*mK3L1bXRSyjX&5TdbFY!HWBt2p6p24&|57Dwl z7U^`9o=FIQOe08|@f#R)b96qW9r31`NCGE#=Z1(Blxsxb*qre6j!D`DkgG(10gQG$ zvk5i?v-W)%I+3!)Y|`clal~#=>d1uFFlmVw{HsJ$6>XbGbB$Sj)xNfeR+)rYyBJnM zq`<(-xAtatJu7RkeHxt~VUgDXa0}#Z4v;K08w)&teYhjk(d2?|bGG(<&u7LTV4hHS zXbrSiT#z}788kfPA~ynAMDFt{C2wBEgUuHLagrHqW?Qc9CVKEmRjtmGHeFZwAy&>Q z#XV%WSJg=_ft`K<&zC7U_k55?l46pdZ zB-g2$mG90USyw~cZWzo0plsmbdMI5Ry?7pfupqQf1IQpik9+2pAHw3T(}mj6){JsR zvze!c#85XbreI`Haw?z6fP`&x$#XXQSd2bq!5gb%Ti)>@k>thv2f<0meftV4>|5Zt z8=#c9oxxS+Yz+_FD#WhZ#>gv3^3~gSMbsc1QE1cAriW_zFOSup`8j%G1!mS%IWho$ za{%m8LM@N~uSkTgEi^k@^GC=-G#tav=o>LkTTvrl@ds{J%iZc$t+2DDBnwnY2|Zd% z(&RgL-YKhI^}Zz4c&n|-?a+fEmkw7-QFG`!R$5nubeVAgs%7|ZofFERY(nu-D;UOR zd=ZLbngDM}m8$h5PBV(^B+&zSljc)@e%G+KOpLricAdjS{iBCTll1Ru+jB3D^Jb!5 z5SO2e_%h0iO-><4CfUbqQfBmkIx#RObm0!M-o<_LtzJIB4u1V{JJ?P!;kyL0R*p(}G-pxB^HM(7}@7NxorK~6MA>=Ix*&tbI<8x`3qqVe?)}JAN*ojvY zpR+;ipeQ=XJzE|MRszV9tCj7g#TF7+)wPi#?bBRG*-j7AarkoQ;5%e1nFgun#9Y$M zIWRW&H8EWbyBlJ}g|Z+C=5&TiFswwTcT~&jq`S4#vYBGI=#HjihWhD>cvFIp%ji) zS8?mTGv$Mc!RM?dH<)!#>3D0}Ngh6~j8R!mE^_O3mGunO-|kN>z2Sd6EkLk~7n6}1 zt`AY^!;W@o@x!rIXmLcZ_#t=onM8GB-p$BElKx)PE|L2zU#iCinvMp4S_jI-F@`e? zw!Y~D3>rX>i4GbOtwdQ|WE9R8M$xTVH+O#who>Wm2Oq9cb9QA&D+Qg!zp~&SLuwW&#bjoS z+;)-5$I*K;vII-e-0P46p2+7>QF^vsXX)ewPOCvN8fAlNG3l!L^a~@-PE3RN6zYda z&Q5UHcU)VP5HQNic`?coMnfr&V(7^rT`zj^cbRCzMqXju>rk|Rr2D7ZUz~2VW)-dO zh(#1Do~R`VbaXlr>*Wkg4Z)vdtkj)Uu`69ew0S2vIe1q}VU_HI2t!UIIxd1`Eg%Ju z`m_@p)J1x2Ewawj@foneeH?z7A>gt@6BZglH7+PAC$n({8%#HLd(l+v))Y0Q@95$) zOdY;LZ(oCtVCaZ{KNWewl88XkaTmhnwf}+tNrRZ@KUPq~3p~r+5Q7TVHQDoCz4s^I z&sxVVn5OI;UE%DFZx_&v-Yp_$hcB0*@9KK}^T)my#75rQl;Bp|vXgvHzI2iewg!QY z=5%Afll2V*$z2A1=v&^O;#+>h~I+ zR`sG#F1DARvE|9NGf{~+PAn9e)AR4BIPDPq%nQFseyQ<)0zaO{s=rFu&c+e=Aw5I7 z+R~m&f~$xvM%>j&HKKI-QHA|S4AWdN0b_OHcF0dK? zV~5?{4kN?eguQj?e5hJqRiF`hIA_B~EI04u0F}NWRZnu}$VJ}xbOPnV_ zXb}Hv?t@Z;&VeOfMo^1nQl%~QuDO#v;sFYGh))-DHi{zeWM2%GY{zIb z$o9e&p&Sw)Hp-=RhmdYT0oTR>*4Y;=V_RgEvix5!s+H&zqjkLO5=li~{mNLt-rJs` zo65Ld4J^4pSB-dTL}pWw_lYep65ewj+k8hI=jQF_U3Po$Zd{X6~H{_<=(;TgwmUdP&z0sE@tDL;)<7u z2MiHENuF+QgvQ5yWJA`u@=3)O=Ds~T>$^{XY@{SqD?us-dMhhIi6GvXOWmM(Jqcg^WTlEYOc*a^y0+^g)NJda7z>>?G2(Y21rQQ;IVdrLl z6EjDyDIn$`Q4y=xpLhtpBLBAwY#FVLeG>TIPRaT@{4 zXkLi6HtX(G%)dL%x?4F|)pc7z+O~#&9&628HT>kka#g5ECu189OZ5g{$^%!y&kl1a zkzcyniM))hQ5r=`5y#)Qr8H2fW#%rw*E@Lqin5epw0Cq>Fam#SzGW%uwFeWkbMaMc zg6|(WYUs@=ayd#d==?r71(gLvgD3TZEhD-7G{<3R?*-_AuOOU5Z3nu0eM#Sc(%JMJ zwDp)Tkoi41S-Ag;&Oy5<@ zTGXm9C7J-npv%GIc|3H93jmTz<2lSuCb<^@k8XJ`y{LCnye|`@=;Nw@{CeDk_A!yD zWGltA3gaMKDfg|8O&A=!jr3rD$Bv4uL!9!{29r(-b~{E`Rg! z2Hzu#iH6FJLZB6pu01zo;57}UYY2z6;oT9v+LlZ@!A;|)8R!f)>R^5m?V-))>4+3l zd9EUrx&W`p-}KJ3f8Ps|czWAcfwk#7@rhp##_J>4>%l$5K4rb%`+4u+cz3`5s&{Od z^U>Df_(?vQo=YU%!!c@qUhx|pl00K()x2=d7pU?qM3|L$7=G;zup4kyt6WU(#ZwUw zSK5VlkK!7b07j5;T9h)sn2pkDVIZH(req&o@*{VC%Grs?!6o}-7@pbs-z>y}Bxdk^ zig1GeJ|tdv>|$2X%kYqf7sS4hjF*f97nu=FR^S)%nQk{i*YA0M#++ka_1>w%^C`Ev zt^})*c$7RPeE&8>$4p-C`&M4=0oK%;X%LZcn2BPFhN>D{(Fu~ie@k?zz+|9R_XvUw;K}NO%aO5hPB~| zMVluIA{Q64>%du{y#FRkIf$#r2k;tVq`6;Z|Lc*^)qa!_!)n;GT(9jn2==L8rZ%Qu z0Ncg;64@_)xkm;<1T7z`W5OZRtxigd1#NnqC8G{E7y9@`k|Fu>0+J8b=Rq3IoWeTG0}>9WE8({rf?`fm0Y`bCZZgdXMEOj2=!i_WhavU)=d5gIc&xhL{9UV7hu{`z?L@XbN}QqeG% zf_dCKI)44C86@0?7XbNu|F{Vb9By8@A<5-C**WUZ_u zk1MM#?G=fJ$3?ux<9JR0VKaJMx`3GS3>k+6~R8{FEN) z&N$XTIA`S$48ZS@%(=t$PUhaB)L$pJ}HzYl>9K{1MP;zV?& zT_s^8XnTt0R#~F_iz4b-1NkeGg7HNdJ^$-3zIU=yfekINQPEo?BU#^i4Vn7^*xl0( zs7{SLa*DUEGfjwRxqye4Xi-B3jBvS_$ttxWN&HDW-m8=F%@hwmq}QG12}Wnuku}19 zVy=%X*(J#D`{n>)n0o)h-9D<{lP-emPDd7|%hx5a0Pk*A)H)R^or*dH674|ZW_LWt z-xFxXECI8n8Mr_AlLg}c3Uukt=|!m1OfaMayR4?{=Co6B;#3!Y$Vj%8n0tO)!dnFo zRU;{er7oFSCuw~bX)YBu%)NaWgm9ufhCL+EI3sWi~ z@^f`T6sgA2nCWFaKASGRjIPbCmeGOnmN6`>S;cCF=qkqG*j0?fSauctdE9ap)q2cX zMgK(`IYg*a<|pk?8s*+Bx4a}Y z9#lOUdQ#tFy@Eutha$**uc2OH9!(DTpYMQ7oTwvYD^);s2jUG6u$sC1tojCX zU+U;adee1S}XF#J?qiLH|w?X*y-uBNO zVLHz7x8;-`9*#mY?SRh^dkSJRhJ@sTWClRJpJZ_8KO5Kg#zKoXRzB8$gkf@$8fg+9 zU)A>EA);HU+k2$fnnvnetb1>boCIo7jP!;n8X-zV!;_tX{eHK1+(UzwXBdBJIxE?H zplUII(YcSZ{$+YKZmF$TnbyzQ;E{jIV;*3L_7}X19=9v)*6M*i6p6)uAcT_cC%;1g z)%_H&dL60yujXMrj1EhGF#-c}WNzR&U2MW6H#N0>$x@lwN_yZ)p7jjS;Ao5@X(^minkRawKz!N=3h2| zWrc?NH`_@3mICi37sW@k-X33Hz~e}iHt&4bL?bIjCtedpv|3wkek$}=mB0go9=NI@ z7SNjAMoC%19_Ik!+c4^Q9~d$D=y=bQkEO$^#)j@{^$fv(J!+kzSH9^3p1({79eTFo zfwy>t?rP{-q~}p<5z@CLt;B1=M?5y;_wuRtU-isgR~hExzc$yBpFX3EbRR2xp&Fe; zZ1jKnY_0S$XOTI1m-vUBzCZ!x!H3{Q#T9z}me6@JydI|)96=v~cTpC_PI8i#=obe5 z4C`{cumQDy$)mc=robUhZ8Puu^jb{!PqOp$V-9%{(O#VsGXhV=KIJXPMj$?u%lnC~ z(TOB%!1PW6QGMhXu!v-s z2ey8Hkzc^6-j;39#SdTBVoPg-cX`KMgf$YhOQ$cq+LOumn z^Uy$m|MWjzvYEG}GtB6}Y8z zoQsQY00i3`Ddx1(9m$=#Iyf6%WhDQ^lF_H;3JRIy1fU)RXFMwQiib6aBdWId%2In32 zWl|>;#Q>d^(N4(z7piHmb$7(l@!z$7lc5YY`31N|@s5%iJlT7Cc(jL`jSgac_@;1T zTteD6|G@Q_7RA*XAiIW`$!_N4N?v+9c~+`%Ax|4-z!XppcJn*f`+4t(h=-9voH$Kd z_q~+4)icRw5$)2jXAaLq<7L?hvzR7V#dwv>oJ1az(UEl2HS!S)PWH64!Ocp4jvvza z4_kv}CRJzlSpscF8%Bd*~++dI=oO8@l1)p6THzh(; z7#RSlVVH* z#{o5_=rli@O*p6n*}eJL-~g;jY(Ar4=fno>JSqE`2pQ~fiZl4HSw8rGFd`*Nc6yo* zFwUu^p3UyVHOoM}by#9=F{~c5F1w|W8t@3RY4^-X>{S9yW-zE9 zLPeFy;n-_8bhT-brq`qWd(V+_6DxN(2SLdO`Su6JFVPFE1 zdd!~Zqikq~N=zR8+U)_MYD6a7n@rMc)AA)`apEQ)^D+m2Yc@_bgSqyPdlfzx7Oa>I zNuGCSHHNcH4Q)+L0}h;mPWz^}$SC#=wH;-bhRFfGvvnd|5zbhDV{wsaqohC;0nZUESPeWiSKl#_eKnSAQbF?V3+ten59HNvq zkxezU@1bQk`NfETM1UW-mBb;V&q=U+L51QH4S6t14puBB+N=!0oEzn3hJkoSF>*wJ zPtATrt00+*-rP!5xGc(C#6R#-eSNTh{G|>ky^cpg!VWRD|IgvUo~AmNEi71k9|y98 z2`j(=)U%_**RSs5zgc{;dIaFGq6JGsZAoTbphc@fL(!{$Lt+@h{-S(ghlSaN6TIK2 zR%~EVPJnimXTfIo`?WyS0i7Pk0cqS)_A-N8#;F?6nmHNHCZ6PM?}0pb4k!xOC?JHK zxEci4!$Huo&Tkwl==#-pj%*Qa|I-UoXlW~-NVta_hC?-7*q)SA>w$nc#>erx;9}&_&n3 zLMwcLgF-BofLQ@&#{(Y9Jw?p1jje*xPX{TGiIerTU*b{)Dhf|Byz{V`gq2>wuo$Hj z$#*&R0&3wU*gMo|Fo!_PS`P^?MD{sngO=2G>pvxbIc=(#X()7CeG<%w!nITEP(Htf z&UnWhTZNs$4t6O9{o|`1Kptk6Xj$u?68_2#>qzN7cYV!zx%THeJ`PNG;L4|RD>TwYZCHqW{O!)C~ zj|gn25{ui5c|xJq1M>A1aWh?{1TlEjs(XQG4|>Ok$$2))2gM~`E3@%girP3E z%z8Qn*L7G|zO+JT@1N|w|9kK821HZ=&>RZq$zJmJ-umN>pN@JjU#&l*Gi%qJ)#EaM zlc=s7hMiuZU!mad0cqj47P%Yxx({meF`eWXUCCa%*qe()N{*3b4{^j70lhyQ4qNIe zz}{-4&ortLM0&7BYig*mrFUWYZW78T2GM${OOQG)7L#NWQJe)??XVyukJnb-y(z9) zbk{|9x^A(LuMT8!r#@RlycPc+tFqyLM+?ywORPzI1Gg6zygH>2%>}Fpj($d!oy0_6$+rn4EPxnHxU_c$v5^kCIm%8)+H~1Y z#pb=P;Tf2gMBXiJCy)iHP_y(JOGL!?&$6jil`@q@=^%;=yAj;G1c?^UlqS}H#g%6f zbq_V<-7q~cF)f!27yvtkxk2ewdTnH(F=qkB;nQ6Nu4K4(K@jkgXq{ z8cYM1Z#L&`Z~ zJU~G5kP@q`loWQ6C&bXpV3A*@pOBg*fA!NwFtB4h+&<+Ovx`M^SEejR5}`_~ItbPS zRQA*|LvXq<4cuv}YH;7rST`rvZ}<8xkCy(cmDxQADCp>C))3Wn^OSOSLoRgAGfeKN zqmetjZ9rTENIOHlK#2|th10&Btv?Kl$9JtWZCRPU4Hmfb?KY1@6CvClQ zum=xN5RRB0TGai{Qxe&GmoP5a@ba<*jZ%EOtv*lxrjlK4Ct94v!)obM+0_h(D=^p~=9|Gwg0_h(DX_G+O z9JyCn0=%qH5OMMO1_916b4e=nUe1tj@neJeEBiFaF3J84(zR++os)D#e=;*X>?uQ& z;#6a?YlJb*V=5x_g;_W-XUwL9AYVOY@3@>4gRI0LJe7$cWvie(neQiRgYA^(W}x)M zL(f8z7@L&-Xf{uXH7m@dm~vuecuA=1+Q#^aCm{i2I&?&^=C*-V7NRs8%%;}HD5Gbh z>aovKNk6FELT62>5AI&Mq%U*OYW2I)ropyOtP=f7unY4Bqj`#NAyF zQ~P3y#^QE_Vg`1By2+X;7?f3d5(P<0joyNDXQ<=@4b2pzc~5YRd*k79BgBVryn#dKa8tWVC&O}qvnBml zIzy%a zkXNM7Qh7HNf0Nv-kvVPMfKL4adnX4C(NqiS!{Lat0^Ge0GEp3z*eohv>=Zb!Jq@{? zY;S-l*?*O+Vd@UUb02k*?>mVh2&uE3Jcc^Euhty!Hx}GO6bK)&Z59Z^Cz-PSBUASR z&SI8G$YhF_4-B#dU)IbHaqN4)2yz`7^vP9SIlCy{fAAnn4<+ewQVElUY4dPnV}t49 z)-U&4zQHmbW*zFHdZLAu1Gdre_h`qX?4{1Q1z}bXJAZ`ER$3rc=lgz-$EFVQ31-KW9{(^Rib#^lwi0#pxk-0nV7x3c3A+QvEO}i)c zee_Tgv06+zkICqc4R5f*C7s63<8OaV+yL}(ln~3^+$Zj=Kgp(78Qw%?uw~{8EK2FA z93iWYb7Zx97mr!T_#)EdTxH(NN9orO5bIvuJjZg@ zp=b6e31KHMvePNNfrZ~+;<>qsL{=$00)xKQ*s6&oq51zke}r@#RUJwAluzS9z4)kb ze<|Uh?)Mvirdm#dY1`35&QU;*vG%dK5lL-H-^n9 z9yX(h*nG5_e2Jp?JrHvsIz;K+U3)hle{wFpEqSJD1HD1y)9sl2*9-&+( z;zw+tw7cdERkq-7J=h}-2h}uI<_N#$Q0v6H0A%b`SxStH0jSDsv0Bl$V=Rh`Sn8FM zB)%JK1nQ8ngp}oEEr?tquXP}DXw9P-yE|94vx0odpej0;*}DgQCYy8ub(&5te@R__ zos8ja03HyoP*FZL3|h=djI4lS3KcAQNzbTn8V>sDlSFg4gf+uT8f;t37_Y=|=ST$@N9~;U_b!bsiIr4|2+D zPK%6k^DmC!B7E)L+OD$KO;k!eLiV~9_up(+`L1*JY%j`ILvt99n_Aljed&#l#zlel zYl&HdVxx7Ien*+Q%kc{Gf8s4qNVS-;Ls}3;9!6pqz9mAM@79774;#ekK~ffei&sxz z#tAUvJH=L&=)Nw}Vx;D9CMa!0ngrvkI9X#Luqj>X@vQ^y`QjR;UV)XPpsMaJ`J|I@ zPGub6j~w2x8b)fN0|RVSVXNmSq$s$?_;>nY+P~(?xoB-el^e0jf5^S`m7cK@&-4w0 zM2E9ejO3-A<4OeHV zCX>)Fok~p0Z{ehAf5gv{>9OlZKsmBwJ;BLH5sd5PU)a_!G1a`%H3h*O$f>d&#%EY_ z@n2Zm=2YVJcI2Ggoeai7a46NPt-=~D73*P%=dj-R%nVlkf$^mHB?s@|vq=VgoK=j% zfFP0z$S@cHD~Q8K+(L%d^v3ljA5PC#R$RCC5%if7{i+b<5s{Ve{tNgLGk{4Y4 z($U>^yuJj16&uR8y5o0UAFT^C=<`L>NkbTE*Pp-sMHvXd;NGn~@)q^;|G}HOSm4{L z4B&6ux~i?UQboCZ{KXr`FWxx3L>BjK+5x(D6~*))e_|Ov2L;w!=2Ha7FUtbC7Ce&H z=6I5hODH%hrWKt{M-5i}ZK)xk4r2Ukx`Ty>6_}teM`ACO?*n~^+giT_%vaa?Wf7G#h}>^5Pz`AyVj;NvkiuG}`5N@fKYf--ON3G#MdRh+ zVSi2l4IUdJg`z#7G{~A)lv;IsXFrOQy;Wgsd`nURk^L&Od)fNkId;gR%ut- znBx#yDGk^gPtUtZoU*$_c0^}D10_uX{N;xYEt1eL;n!R+_K9likuD_-tCd?Je?;&$ zP(>o>s88D{!q_ECR2ppxFMENPR0s}3dBQOu6~xC}ohBc~=6ZK^ex0{y7V-OLF|}w}l5pd<6-~_~ z$U@pI+sNm=C6M9M;MK3rM5Q&>IEP zn~J21c3CTx-cT;RRlm}6gK&Ct@pRFV)kvr}lu;M$wJN46L3Jrn_141bqC;+ySG~c@ ze{Zq-mf8FZ3BU8ZT;YU5)|F7g4`NNLB0q( zjNjqC|1uqT4FphcayA3I2FMTUrSx2}lEeY)#^4PNkC&6{{UFwZ{F95Fs)3|4f6hmqEQ4)IFVN@|tRg8nkv60(m0^qX5XmD6P~hP( zAI~7RCqKengG&w@H=^zBAe&&+_jYf8&6;v>?w_m#8`d_yUamzUEd7XqX~K>xe!NQN zl4m+kS??JoI~3Kw06;%KTa(h`b8TQs(@QTeM|mXBk2kLPAl!?P1B$GKe@7s#Hpu7{ zl7BHW#mMx}>r;*ljQCR3K`e4)yLG9^x;Pvut`cP$!4pHR5oUW; z4w%})APpfKk~&=bGOO2V;NTM@HD~-%nP&&=PZN*)d~8>?g@>i>D#UnghX*pJA&Bxe-MUZ_%ScVGEKb40^t*V zZ!oHsY!>NzQJCn#MryY@ZBgT?Bz`mkLKjIPi)}-2XSxqbGm_^9 z_n4L$?QhWee^;W2ply#uSpgUx6{*d-81dg@DfQ3{YQkQi=xYqWtDfG@k-grfE(U&o zJodon@OugH2ZzV=x=_l<_92HYT2s#rI?JbZ^;DjP#Bcv)sVJt*tznm3rt1BML6ASJESK zleF+O23((jFmcwlh&02;Z$D>)hi#>#bbmP$qSg*YX>?4g)oGv!*WZ^U3VD4UZWdSt zY*StdfAhRFj3$g7+C^U0(i<=U%q9jlU#rj&D`rtm%H znFwmII;lF#`f0q~d{;l>=4O>yxQ6^5sM(;e)=j*!?PPPqmDS9FVQS7D!qjEk$>aGj zK@i6HQpBMo0imk^!~t^@E4TYTN+=YRPX}h4f8N}jaaf}MiNJYF9W|`SyoL>QrI`)= zLmP4@pA1IXtD@BQ(T1~uQw{BkF;!_h$n^|X@3BQ@X?tIGmad^cOTEmFZLG$?t#-Qv zvD;mx(X3V?99D*GDy(**b$oEwi-5b<=&GSm#j3x?B5@#S=Ex+2(?3K*%w<}~=D>$z ze;&WK!dli?F<42*?QH3FSelA;erw0bA{Ef(WrmvW$1&t!OoeVfF0;wBiC1G76`Ex9 z5Lm|Yr1~hNAM*)njh5THeLS--_PMi8`ROx=_4ie>w?hd#8Q!0@EC*7Yb9Q9KcLr)y zU{4bl?8sfGZLFJiedMP#x*4E?VCX_ue?V`hlLE4vLyV9`qQr5nru#Jlf+>}(Xjp*w5NV}1IJr9mj zLmA}bI=gf4_ah2_1tEB@7#!p2fFR;YHPVhx=G*kzR}m!~m~H$Uq-kmuiqoM8e-LXK zmBX2Z$^2Lci&=1jVRSHqFzdyS$(pjeUevdr}8-e7f z{*d>+*a7bO4{@eR!cZ3jr5n+F_0Q$~KW{u53b%>OZ%w<3IZ$iLyv2T1e+DdG3zZ?o zYvWI2#S_Y(<{X-wZDduG>=@8ae52Y$(ohm}+U?;K?%AR}gywEDv~Ffs}Gh znQZr_n#@1zI>CYGQSmtY^!11sW9cGYU{dG2z}F1xQ1Rc0U=IwMeocCf&;3v zRh|E-r0o$l(w-u030vq=vsG95Me1>-#TGVxTt-Ym^c@v1p3og(e|s&uq(M_OwOQZ% z%@(sdlLZ#Ex`uJ2@Vi8fgbpkFEURR7Nat$v6TKMB_g}g#b6U`O%Wn9J`_@V*Sn^T;*~RY>q&tZT zjGENz+F7&Zl?Xkqe>lB{rZyU>;v_!3DS0dfmovO>M}wV|Svnblf+d1En7d zsfs|JWaq-NsIpLn*U7$5lyGDfNWC2TI6VFuX_6u1$iaIKts?mTf`hNSz>p1>ODrFI z*vC;+i1fWsDJ~F@Di5MPhoSk4elJ$rFjYPw<(FpLV&waOk0cr?vS1yQWM1ZK+7%eOWi+WXy zfAC(lmd_J2+_NX6Mq1&`kLwx za9cr;AX&BbAAvFp|A>`yZ_O>BoOyLD1Mi0t4nJox*5#+d zY=u$I;N9A8j?!2di$K%v4IKh|Vy>$O{uUW`kka64yAv18LxEpjZsOqe4 z%XGs>-midMA0%ar*{IM%-xzlIy2d&^rc-{ zZ9?9^F*@nWJN!1&XRNCS-bbl!O*+^i1IsD6uiOTYCXqgtTmvFF^?E! zdoT8P4qqMb9VH?`&o!&TVp%bA%unt`R z^TtE4+Tng9==OobFGYQgb*+-I-j;M8i0io^u9M2;hScrS!p5*!h!w7^1ndwavxTWB z#a;pjvwWPGdC!Wqc4={M?|GNBf8`9(G&A%8*O%xFvUPP_QrWs1ex6wuM=VlRyiJs4qvQ_tkC@Hzt-rlM#AvKtx}Hsitf4`ned7cd%QBN2bfaAK;JlMbz;9L!%BP`= zlpiZ~5%Lv0!Ug|;SIgv0{vp52hIzV`oKL5h<<@uKW#jIZeC-yKf3xr4*LT>|;P<`Z zK$HB_{hi|C!u*=>=aPYbS~dNCO8z-0%H*Gh5l&MhB3&o{Eb}q{{wLSG=9;d=NDtS# z1=Bo=xszbj z^)OnHZ`QdGt8)aIf2>=SE(zya!}-NbM3ACA5LviZqCKz*5zNUe{4AT+CW>faSJrZO zMhq{2F5Ha%9qyr~U6jNtxQ%3Rwn?!RXYi-2sO`z^t~;UH#6#yz3HR3yzP;?g~8gx6UYAZrFf4XX5wLxJxx3ftdRwmn#qsb(c0RWzY5X~)B_ugIr*`+)q{rVATTWTj48Bpf$u12{SoNr-}H=# zu|h%@-?crge-UjHxR+NwEwEk#rk|@ef?!tLZI#AqBk0~lh#W{zTx5*W?)-nl-;U(fi<67 z_AF>6f1TuUC-Ei&nx^mY!|IwFxn@|~6&5C$5$z;f#K5qWrx>;&;9l%~-Wcj^J3J`| z1#Ak^7)^^|aYwsFB@9t}#syogKdr(Yb~A#$6MFvb$XQV{VDbjUyuOab}-N9f(`B+Qa^hdXKgW;=-yQr%5q z=&PaGGJ|Q-+dm?ZkVl#lm!HBWvYBvcp{AG(>=J@cbzCG`v;D~A06l!q49CwV6yjcV z^tk8NT_AioQE1a<<8n6PP`O9hI&MeoA7YK?psE^^x_@L=z%+q@(z)G@uz+cX&d?K8 ze+?nk?0HVb^BeAWCx=vQM;6-cs(oxL@&s>ov{;HmRJ6`SEV#S(JjcVqE|7<4%SiGPFU7we{JRE-Y0`8Lx1p{vgLKPMXRlf0du*6 zHIl%X&o`r7H=+e;mZ^zI)-l`AcdAOOe~u0%1y3CbLwUVZUEIczzN|Rjp3Cn!7#Ab57SZ{i1Mi9dagrx^Q!j)xSuKepM?Z%4K*_4;HsrJZYo?jxB29K{zT^^j%`beXVCC`UVo_tkIK4cTw@%Es#rm1CPj;okT(I!p_{J~nTq%q`p z^!ifCdc2&n(V3bWEc~2~@*zB>f9I0Q4-!X|Q{Y;xbsc4=Hmd0fxb7j3pvll0`d&A5 zh}FDxk{)f8rQ_F^waDS}#HF2SKvK*ST|&fEwt^o~$8CwZF{gZczvuwf4w4~Vo#!L% zkH;3374ETR?rn$or;)bS!iXzod}aZE&dg-;={0J;Hr;lwC>D8epb+a%f71)k8`ka5 zcY#J{xwhNBIU$UqD7^vWg#9;Q7gSZ8ueQ<>4U_UzEQ*19a z!U@jB%nN#8P;5Mos%2~l7|20Ryv}R}#||m#-t514kqpdurXabQe@hxkV<<>Mc1Q>| zk$uVrvneTPCTN9*sUUY=y~fC6GdR4!kSPBbymIvm20a+1C5ICo+2v5l?t+C0CxGKH zeYy;hd~7A{0j0q(-NF;uwVBd*HqF*p=H%sidHD0*%e{kRIfT*2ioem=Sj@b>G&{tW zY$u-$DeXWxhjVO6e_5+@?@wO@+z#TbbeLjiDssOv(?2(hKN4eTo|swFLFUNN6O!@e z{xeyocg&IX<^Qs;$V*e3j*hIPY?D}3-T-V-8w}UWHS6X_T{4;DZCu_LPAEYrzg)50 zVKKlGs2&^J5yD7bikG=cdx^klodh9N$*nezhE-oU1YUCve`N+r0a{1juG=l+dYI|* z#e!5tPbr0qu0gvJqWA$XFl0|%zT{*TBHcP#0U)wL&r{g3mzNo^nlcAY4#jAo z-qpPdPPR3Mg6?<3`4ab4WiJpt;-*0^PI2)KsJTI=miu;;- zfeswI#1MjdHUj+fmkRWw>=Ys~lq_k(bSYTSgxGt?md*;qC7C?f(X07IM>G>#yv?vWG9NLM40)bc6jV|-dn&WhcqVSmz-O|+?r`ST!DNge=oIaaM}gCJTGP=b9QEf0>a>&l=xWM zMa~0|v}d*wgit8Rc*ELAPU+B`e7QO9(=hOfouu6jaI|O9fP+P?>4y1Gyh7!y5Gk7gsWQx3miJ!yMM+l1Kb_5a+#$6MA$e!=bJrB zipMx2m^-WYf5+*;oF@Vn>fQos#IC_(0{DP#2mzaU%z*HLZ_H2ulatEx_V0%!c%~E! zF^1ZGXtyEZWWil{`(1Q5duYk${RQ?9f2%&`?UlPz`-TUjVb&0b+|Z4N-~=lqQxs9{ zCr}R?%tVQ$R)`~X9@Ay$yoPx5DR|XuU@^pB)~q5_ef)8|g2ad#bCt#}sn_hi zTXhnf{K|^i_-AK^&?yZbg>TqlD0JNjP$w;&;x-%v2%5JW08G5Ob2$|4AOfBel9uKt zRfZ9Hh9JLC%zTbI$821}JIG0Pf1X0#0nEvhCXlq+$YTB8OLJibRaCPoQ}kke!{F(I z;X~)eBnTrbdJ?loW*1()_Mlixo{m6u!P=vw{jwP5r#Zj&W#dVXATYL+@E`~tbG_zx zq8Y(nZ#UGy;Ya$JeVQ69l*yB{%C+1e{iBw#g!hI z&!1&Rve?F>(8#6{($>c>G5L zdlUlui-ENf!g^?GeXn3WHz=&a+I$?qGQT(fBZLJ#K31^yJ`FN+s89w=2P+)cBj5-z zSU(Uf1L_On5ip9>u2nHme|`hSr=wijUnK=D>M^;Rzj>dUPrmva?Hp40|7nhy!zmC8 zUO7k;f0~2MLHqB|*B=|4oBur8e8vCm;eQ`Ke);NkCwbmGdMWM7H8OZG-BB>p^Vw8e zTbPd0N$H}Of_a6J3R67=vBcOp2i-jBS5ERX(&pG}kr^XGfFFw~e|f8TxA;{0UR%g_ zFf$WAeEGeTp9mmaD>e^CuQk9hyC6Kj+k>8-b!TVi6>ZvGT+ytQ68t?RS~!}SiJLVu zW6HXdrF=alYEr~6Zf!dJE-FPHVV`Tv=yx}jg-gKrnp7?svuVf zpLCY)2wav<=*=%Ie;a&x$5>aN)Dh(c2$fpEe=BgZG6IS8ya+0Czw4hDjMgp+;_%y3 z|J5qucF}wam6Jqsz*8tMsDZ(`)an>WH`yQa8%S6AVj+=68Nd z*N`jvjO>+^1rZ=#m+lj2jd{Ho485(v_r6vgJv1D4WOl1EQXm^}!{uJ226^XbJxGQ} zey?k^rNXh8f690iv=ZJv)j~WF>dJf1UatS8skJ#)8cScbtU7JyJTt5(KlP3S9_t(&DM~ZUcwj(M^s2B{{v9x2h zQc;v(e?egv&|)7x& z&;+&i4Jy^$=B=)#O`^aFmKn<5=CtbKEg@=<`B474vYWQnw_Ie%R zNlm<QT1n+my@hCk_pNEn{+)hZO~<^w8eCp0q-JC%fP1zMYmB9ovgxb z&EI?D;buD@%A{8EVRtZ{jJAyALmA-Pz5Ooz)g>dquBp;{VeVS*`^UZGy-ub4V>;3m zf4a|(_Vx~J2bF2PHSjD4^7OIpae^n159Pvd{%JTlI$Q;2;+4Ysa@iLT@(}LIn}Kp| z&fbz+_uI{Poq7Av)_wR+FabPo9xnVq!Hc0!@Z;*zGQ&&YX4N_}`IaZ&scClrjr>nL zWPq>f4;29Uv7VO9p(A!)=BP|5(yENC-z`-bPUyX z=B-pWg6cKE4g;qfe2AD39qa3XlG1RPJEVb$sI1e{5o@ z9UI@UbNB1l->&1j-CDC*qc8IA;Sp8r`a6e5$6u6cemnTbW`zoClM!19u+e-6RyZB79>#TT#$ot|8UR^HgZf2=OGDaA z2f7^zbDYhHy~O36AvF?yG0NmQe*~00h14mNHvPWH#xuAUsjjWZ+&Fo{?EoNp)Co|MSUn8zA=?Mv?!U7G{e+;BE%KC9q zT%3^mIScpj&;*gAAQ+LnNf%&h&dX3b1ReEu_Yaeodk3%CicuB@Uj~L-QPPQ$5+*n{ zcd(g3j=|zdW{5~|$ySR=`Z3K%r~nrnZrPC>q#yG$QtfrS-7Qv2d;btQ;S`vR#;%d< zUIj8q9wZMQwElOIkJn$*e}nAP0*D)opgw`Ehgq=J)`JJQ%9#dy3QKcJm0=@*edmeU z|F)SWxocWRSGTMCemXKlf?e20K%`$wLuQAKIQEn`fYMxQAsOH)0FWnvG@pw)Df1_b?S(JI>>fU^T zds9ncaC$=}#6%w-kSjCx7w+6#&?fLcNb3sA{Lv+F9}mS~&W<0O!rSzv*bk{;jPl=V z6ttZ);ttFP8c-drPY+$f!oA^Q7HF&t2Fa{MK;nQ%XQYA5^~3dFK3u>>^(^ZqJ=21G zq~XPinlhiEXQT}Bf8Yos{=O?uKI1H%oLt+{2?2DIHt6S(!zfhN$H#IzeK|L5hL}2_-4+G)wk}a~a66I|sI2G3^ zBSfS&V1ObLyK6QdyKS?ZU1k(VfnToZ&B~mqyyWI{`-36$@prQ^{+HZ0Kj!5OEj4H* zqz^RBz;UFbe-fXKVLU$f_^%nrIYtP~S&+vE-=^96M0D#}W9&pnA{Nqv2fPAwsVW~l z=*Bu^(G|BN&xM+a+=TP-WFaZCav(DZX5}OXVqcjd^{Gyy%DtuHj;Ffy`or6XkpX2> zfXNRHE0xV;Ij9xbP=J&clpoj(_PDr6&(o_9)(+y9e?ucwkg%$RbTBJ0QYFGfZ6pm~ zG@4!HWAFVHZ9kwcSP~Y>b^^>vF7+H>oAIPxn@quGeeCHBT= z=^42cv`s_nCg<}Uc9~SSBh3*|CV85(a8{B3_)s==;Q2IQ$oMQer!7C8R$3okW^>yX zPzPF)f6t^93P#C!3Amz^qpEC6>~i@t$a+qE;Ev* zOL#I$Pfw9q{%3k|QF{wO_%qY)5?JELjLo1jf0kAVng#8=4TF7F@CA&X4k)@7v_5U7JXt51f)Ps5wpqssQGBQs0{Wp zouW^|g);6WRG~r!;Fr_MjL4c?6PTvwUdPF_5Bz$wD++*Njr-(uwThqaL3Z_p;j7El zgP_KiwHG9)JV*x12>f`Q%lklrAfBaze)8`#LP4Dl#*xx%i{?f5VJ;f!v(Vt9m zU@itx*{5j*5xE4RO_xK3QghJ-9eM!5VsA>)a%dAErx1Zvg(C}+$MGq6UX-j-k%QHt zOJfUUY0@pIh}yi{j`{{I9CO)WeElk7mU(B1S?1fjvO89FfR>rvqwP9pg#!)kBGEm1E?_uAlmzQ zh!GS3VBJ~*_vbSzvXr*(2#VprmTuedN8;%Gl?K95d9fqn`^h%f+X5}Ic+#}cEE4{1e$BlulC@luHx&~RZoxS7f^dog#6U8H|C4Ppcpb5Rtegw%~(y!y__e3A@$vR z#na7=#69Iu@>52OJx#^Kg$7NZ*ms58R@k6GY=}i*3OrHhGku8oqQGZ!=QgL9C!ctT z)3uanqtU6WNLFAfCd*w_D!kxucaN*Q1S|rHUBDkcL&?RcpITeLf4}?Iv7a9_Yzc?U zaL=%)d$6?;KORiUD@Sm4MelR0G$AaU47tp2eo_<=^(pZVKL~RK)_t8&g$wjVhm-Za zeTr~)clyU>!OHv2c%YY0&~gA&1M~_0dV>T8e}M~SHWji}%i#^M3GiNT=Xn3{;Jx|( z!{K zR#p}j7)jVmg0j*$d3pHa?X%<4LtfwIXt1%z-^M4?Fv;>t5#RJ$&6VzAm zA4;4?!M&0QfAjbBuBi&T`C@CT2GKdJu1Grs=O{5CR3dRxeW0wp+&|raE~EB!2f84j zl#-Wtt?5iBc9n%%B~Y>Y%c`Qij#TBD4x{k3B2|zX<3p<3EPS~LlLyVRe=OEl0Z(S3 zm5odqTJb%u#)U=`zw#9=JZ}ZGh`J|GV#&9HF$^faf7&~*#j~mVf>{vUQq^yIdV~DK zuKUBT``5DTv}&k`znLED_aBvGXxn6Pu6(1=#OjXD1ko$wXeIkaD68--Yd@F4hWeSQf|_EH zlP@<_fA8T9`@_!w%!T@ph0Kc`#L2JbiP*7U}&ocPYZ4)X~#b>Y)W4Vmq zf6^le;=r6v#iy4#?9&}`nqYDQ5hN%5aU*5-Cm)324`O_|q-Q>5N=3bghqd==0!C)e zq7_Vxf(+F7oS`#u=5GF>p*V_fRIz;ZM%><-n4S1S`71s2i6$4)wLNP1i}pECFSO&S zxt$pnM>a@a3v~@pM6S@UX!(mvlI)E?f67mwbJC8ot8_V8h?AUR>e#llKQ^3(^BOl5 z*zDQm2RSvBh$mRqE-331lyya!RcfD&P`{Mj!>t!O4#M7?&O+xos+x@z?k8$?W8#-b z6Ki{3len>R`vAcK30mFxB7O00J?Iod-Sb(XK5lDs&Re68=lkPX&3V4nG5UxUNq5Q4WbAAV$BDwR2oG~YO+h0z z>wYDb7*7!}6fi-0ps$A(7XLS3Gql-L+Z z6!hrfB*JT9&*;WioK4qcfAy)TR$=9fXcrm-{w6P$Nvjp0iPyxZIw9$$NE4ncKIX|^ zF#FT{Y^oDR$(v^)+C{kdq%|reNInrpgwaLBz8dI58X(Z~7*(UdMh&}e8C_JQY(|WW zz(AN$WaW7xUT5A-j&&AjB`caf4a~rW`4`>^CtNPEA7Qw&%r(8Ge=-t^v+qfYp}iQH zGhWSI~SHVn3`J1WnMg6*6YK*OEj=7iY6&@?Lm`-hbllyP@HmdU(VzpB;dHVj&CZl(XNR-A|2*EQp+ z8*zB|g5Qj`{pHf&5$1yWxQ30!uWA2brTt;0{kvLeA*0DX6#V_nrT9W3=5KuApz?~w z(wU=iHf1l#fB1*h4W@vh^?O)M`#fc({t5HJF`ReEX1U_`yuO5#MBXl&&vT3qv$iith$4`H5BBZL;~{{GCaQ7LM>G^_e`pdXg+tbO(11&Z{Q4RnXIXd1AF1^NbD2;q<}$;hoXh{nWQfmNL%tKO)tDb< z$O6TB(U3VFIOZ=K^$)N$SH#M0YR$EiP+F^<%vVSmDfv1^_Uv5eT$KqF=^@Z*_EhNt#$KB2Ug>y9}Wt>*w$K&rptskosrpUBLb@iB8Wm~9Xn^N;8@ zUYpMs*nipx_rr`CQLGorwn4*Yvvd+|$SyLOhgm3cFcE4fz6DGI%%{EDA&Q+a*tetb znMIA4M1X(+P+D{p7IiW;cxq@gDHQJV?z|YM&W5fNn_})eCleHQA^~AP0sExlQO{au zDAhQTid4qsjIa(;L@l13cm;#Yxl3btEsg(PeShYD`nXX=Syz1TWrfNWjR#xEN_{L* z2fOQD*Dapt{t zg)XmyRif%Ql%{2cG180H_ZsBY)$cG$k>@&y+aoSLD?VrVvc0Jc(d}@jX}rQ<(?z36?FA!Bpq|YPk?# zFyE-TcLz(??JT>@^usk`vrd&fm0q&8RaqjU*D3X8{7F1}yZiD>k|^rH|9{A4cX;#s zYB^D?x@u$%%)296AV1KT;$Y zktsEhR8sJ9A9H&LGEVwJrX4sSZ6}AN;VhL*g_FZV&rG1Kz*IOnWD7A0ke^>YY&KBx zt!j)rIgC4ALXieK?*j%~Vcv(AIq>{ql35O=5K5}Ssw;{~1n(~-Cx>j2$3LP=gnvqU z6$sMz$5h+)H)B{v+fT~pK8HPtyCW$fm`F>%63I-H)t6zD1OLIvX3z`~PLxtQ_Az<3 zSEQRtFjARns==x>GnxM%oMI+vicc>rQ`8E-FYwLkL=>+O;3EW;$!MCaN=W|X!Gn|1 zpjm~O#x6~AN{EaH26q8^u70~FzJFG!ye+{HYr$IW0cqJRwcUkn95h7vqm>WVl0#|cp1FbBd5xkR+XBfp&YSlyedhH zACmbh^fj5{Dw0=h$pcTZ5ur2!HWE&GX34(t=ajIpEQv)E^zUx)k}I>lDh^oaD|UnSCXw zW@;+)#mZKyOB*cFauUp5>rMu@o=!;W(S!GET{?1lXJvj;Qr4W(_U@Q9 z7k_<(hi^_h9d7URE519G%^`qCBT*nca_(&wFUw&#QK0CEGE_dp*?*`)w8eKC6cr|W zZvIC(PW+W>yvi;+Vp90f^q0mb_-3FsKG~&rcIjukbbgy=<-8v4-AvIP#H<_+l-SFV~u zPbOLBmAs^^TQp4a>$A&qprTt&>QX@fw&1R&i=A|3|3vDTK7X?uX-?NBr@mfqy|J*~ z>rN(X8~V0IL4-5662hVRB34w(To52*C+~&to`@=C52%#oKJ@L8RcH`QVW@L{7dNpp zeiyAIo1JdlLWyU^(=}Jj)eDHHvqhz>$?~>5%}^~Ta=u!*11a?|9*%bcGk5KI%kGl= zQ_NOTR|OV19e>kjQ_E~coO*3xCgaQec9GfV9F8Caj2rQW(aYuh8f|rb9oI61$c&fI=S{K^yE~kC)z}7xQk>V} zpJcmU)C3@pq(6jSCUgGb8tJ6tfa!pN;KP<4W;b{3f5lNQMFec>JC#BltpxU#GM5Q@P0J+6z^TtW!nNI8~h|yJ(Jt zr-*16nkb^AWV*KJA#TowcVU&#yp8nl+j9V8lV}Fql4ie@$U9V9!|JNwHde>P^RrzritRmn<01FF&7-~O4i zP;=x2!mC=;Sz8Gbch>r;%y-j#Cf->$IFE9nR~PBUB$IwQ191+Fbhh?Yy&Uo|w|^e6 zIOTCJLzXnW!ny3+2xI|uw-xQAW1Yy2pht%;gxIMslg88R9bR>siMzWBR>epDh;sf( zqJru2>zU2%VuAGHWK2WrvG*c5;gZ4{*_W0~L1>x^@HPqD@w!iOT0;gQVA3Bx1x5UR z^CnsYjRx^FvrC)?{c9djjz(@zV1K__6OTQ5@L4&}%PvoZsEV|!{igU@EB!`2kr}wn zo9oY^P(yVpq$ZeZZwYsayYRbH9quiWOZ+Eqy<2>>02i2bUqIHo}#B>1pt4a*vzk|&4<{CE4m+R1nF z>z(|1XMO!Fzka5#+sS_=%|_21wZH^xB1N3iGwQk1Z#I*^V%_cJF~UB8zt9D3q)Q1w zo1{R_84!Y}XYjuR_}_UQQGddJTKE_KcHZLhsV9=*(UHreqjDY{86F+EJUSvCtsquM z4vVB*`Ybw9EIN`bI1||v<1GQf-u>Vw4A21yU=i!uwLgPApwcs zG`U$$7USE=9Tu`Vh5@p5%wctTjo16LPq#BL+p`gS=HRc%yx|~%QME8zI5LzQfO>}l z05Te1in|WNwtshN%ibiW_s)~_5(?>V2Htldym+tY{H0^bD|7~pr{cg-^di&vV>ZTg z2K%0T`RJK|S~r1Y?&A17OXtfO6FjA*<+F4uTj;H$0@KCi^)I(fu!Y$TsQgG&+@BdN;q>ui3o~=oEB#k^!|}%!hC$A1W3NlA*4u@F4FfI z%Rz;bpMS_^m-$V`y1`a6kx&ER>UX{!k)s@2d)n9Q(Be!6;@3RlJi%`ybB!*Bhr{$h zP_A9106^96ETBv-MV;@x7X?(?rX^K@-HvoHoPP9egLy$z~%BAn-B42#Jo=-_DcT^D*8pyT#0ABpN&@O#CW+4>;Q`7nA%>8IPPeM>{=NqP-0T*U&siMLev~ z_zV)_zO7r<05ShM{VQn5f>! z>8m?etrq;Yyj6gVo%#kDx@_4R9r5|jW!+*%E z3%HJKXby~!x-Nj>Sc63fl9}lDsjNl=IVl5l7Y1~^uHow2McS_CwyzXyA?=jn1CZ68=Y--OikuZ}&5Kh@is7oNlq+tREAs9{A4 zxmDH!`9Ww9chQxf*Mljq!CCbMCAWcK5^wD2}9FJw|@xmDdaiJsLbx$9C7C-O5xgH&;z)Lqf#*?;l^D=?$k zi7^i)m@LRa=GF~#<1qKh6C4JX9#2QvCvkl5KHtWJpXb^(#wC!EUlI}P@A}CqED&#W zf4>?jQQ)dH+N)Yq5}>C0(A&NE{Idv*)bZ<>6HveGAYG(vXA$Z^>@Um&bUV@e9xLX- z0bH_$@;ZqOm!OijI9S9~dVl0BTm3}0WNb$kulqDzWbg9Xo!oPjBXeZ8;nqxX59dPp zSLy-lhM-3&DV7#rRVNX`gud#F6amW6rIp%NtPYJ0>ul3SXB!81^;sFKtzV|^!FpCH z0YhDIuT_i@0b{okGlG_@+r_#Tuz~Y1Rxti-%o45utg1DPKXHo~e}Af3#g#bdo5`ik z+$#@7b5EO!GM)MT=b`(;>|YvfOwMku7KsUo=N&h6so?$1rYBuR6#S0;saQ_AdlL*W z16a#+vNATzIcWu)(WlUQldO{U&21VSR-jh7B^Lr6xHA^0R`S-Y`Z3omD(Fccz!z_} zS77iw%;7n)_&=whTYtPINC*FN&>`tx(ZV%9>?O1Ha;`hJlq~h4|AIYuRJ*76RTaP_ zIN&hAzzw8e#fpL_MUPR<4h3a2v~Q6GfUGaS0SOMsu;a1tKKOzdv4mIKDSK{xXS)0k zn!e_=#!1Q$Jc;%eSwBYkAoSJ}Yz$gGSOyY$_i8sbKj*veV1J8SgGu~z{H3C#AF z$C@*`KA=BbA%C%w?^`#DSofvwY4v@D)h5|`9lWn_d?0K^l>@8Pw8Yx)1DQvy*;NnU zqbW#{%WkwV)S_u@#jl~$d=YUIIM08gAIr({^gX%Er}${Eh=qH8e0FyH^WpjF{_%^$ z)8ulJ&gFwP^v~Yj9{!hpZ*3<({6+(sWal%0kj)<1&40g$_VpzDw8$_(<%i#XOy}97 zANS7=zbJV3`O#1L{_tD4YYhJr1H)K}kNIpeN^VFi(>phJFuiW%13&2`BNu6oiLmd) z6&H-6pm%}Adv}y@KUGCC2@{e1AMjM(GW19pG=P1Hq5uMKWLFk}1Y_rL(vxhjBU?FYb0VyOPHVa0%a)GAPK= zq0mDQG)D1y5WUienZa*o`G+xu^<98ruTsW|=OZ!K1+179VU)@Ga?4jv{nH`Z>7tSG=Bk23Ii8akOX0riYM5d?i5T$)~e&xO>G)i zZ2pXb7N?hY$?^1ZhEK^N5cT`q8iETdxzdd(_AZ}hG88V>$3bTLP`}@^5A0x{)I&^` zp{$~;*mYMG5T|ujsi=KS=i3Fc@e}IafL!2`STs1%E-VyfZGV;vM5te}43stucYhpi zj4cmn{fRJ934>UqoIX!!rV0$_1XIs}}vu0Jc%S zA8cZbG{(c6S@0_d4q*PWqcqJjY2Qup0S4+%OpSUnS`waW{x^j6OlIBq1`VX_uP}xQ zssbUuJg7Upyj()VyLxi5T!396bbrchJb#ZS3|V+;dDj;kJYxd15s9u<>ms|#-C@$( zl@#8ry7{l5W2(hT)qtgD>!JrlwOcjaBY^u_UvK0(}11+ z9%^{4@c7yfHNLhxKC|6wz=q4+o`HEqMjA?*c#l*XR8Ok@Q0=GqEEb>!!hiqK?L$QH znhm~<)(gfDKrTKMEC&oa+d4JYmEN^=(A4BsoZ0$a$_h7n&zaQl_z5Py`pwam1D#N$a z!DPV8bE8B!7h&^&%O2>k0*sWZ_66Y>8Yvt6WC|+-h{YMYMKA8mE9=+##dy6dm#eMd z=gAA4J15VcHHte@hUj??HdUk}&&reU$K!T|nOfK(nNMOH1MFgZUVm*U2?4E$RmI`Q z5L}NG+VK6tOzJucdKJr8q2*Y>WKW8H@rbU4i>tCQGjZambfU!w3WK?bQ(Pp(=39^e zCeg>KV;O69RpN-~8?DodJkiGLyfOnsAIcc5*pIYLSL})m#fm)yJvv&lvB#?lJxWWj zVxJ)caGhT1;6nAeFMl4r@GL>)j96UH=vFCNVcOSWbguF$igoey@Zk9TjJqo7_s5UV z7R&c(Qaebe)4T1*kCWHeBw%#ya}MLWyjFVhFvT0{2Y1u-W_*d)zh}!EISF3pGqK3! zpf}K+LbHfqlBJ06i%k}0*$Fyl1*WFa{F+uOdhdG#bD5SN(|-dlr|7nl@4(9D=N1Oo z*W<_CK|lF0o-N2S$C(|eaF0+s!OiFOQf z?o-QA; zmM(ZGW&t4uUC2s0*xF#W?Lj;#eA3l}343)0mSLpc3$VZaMuW1>oGcqGk$nFW!i^QG=0bUhLAOY_mU^AIJU}vz9P1& z*#ltPil_}?jTb5nQKgc~V0)Lf6^4LOd9ZeuQ88E5?yoBDgc2Qbh%!4mLK7TbyiWA6W@Mc6hP@6s=8c5q}AF#foI)M>P+CXOSHt&w2_qf~-?X zCCIw!q@p69)VYy8cnPcW=w*H51}Nf@i)ckw>BFeaqZ*fbSzCJ>Dq(7lw>E+*cXd>t ztEyg+tnA3_A+Rl+0R?g68b8=WTkd#@@2NH+WUF4Y5+T&_i$eu{N2V$n%%FNrm5MRQ zE`M1O&zY*=r_ZA{hhVE&4a15QY;B%|t!gxESEONk^E7OGG&G^w`fiO8Qy#(WlsPfI z>RmnMJ>hwLjt_JcKL*bpAK0nFbtRQAS-%+QdWznts{CSmSxuFvKw?-@y&+@F6~fg~ zYRFG?BcL*RRx1ltmhxJi3yMR(@l>Bjsekl_*XeXL(Fw@e$%OQ$MxqB&lQ|tf&Ov$Q zS63pZ+Le4InVoku1Rx3oFu|Fr${MG_0_;#uIx%xj7)`2u+k=R-vdX8+n~Q8_1lY=! zXfip$u9MPPD=#oYDNhdZ_2Y)LB z-eh3B&c-u!EZRt(rc*=);|uAa>_T;LyPVwuM#^ig6S=$I+K78pC=R0-G~(N4F3yEY zK-cZ=@$@>IVWMxLAm|%{*tXw|=C7g2i4gFy+P>F4UB%J|R7oc`n`=?GzmukDvKCUW z9joIq&|q$v%KnoCGA`@7OaLxVB9Lse+{^U5t$WFr&h%G8kUO$=j&x%C6MC9e*JJCKHEy zL8mf`l@VlXjm{*7xc-Mk)WJ{|ChXw=QKBAbS6W_F3ys7?;fkLIj6h`k#G8!`UZlWi z3jW8oFU!`pkQE1AhhC}O*eT?moel%-J42izcf;=#hc>i)21NE#ZiT?sKwZc1PFiBr zu?~#_;wy>-7+Y4nXq1}Mk+ocSMN!eW{tcu=w+w;S-v;8BnSn)HJ7wXsx zWoRqe-X&qLITmiL^|NP1&7BmWjxdB-{a{futICC~RW>OX7UY`Kk$)u@UQtx%S$}i6 za4MF`g-d-W_+>qDDFeEBDOxwmXeK4hcy`<>69vGg5I+ zG59@V&S+O9#m+z(V;pKn*3^w<{{2jIAu&b=NfqwMFzfQ=_-ZUsAFD$;5Gpk&@kG{w z^{l!grHBO+FzgvV%YWMuY=YO?Kl=8OzNH46#CItL;y|xDCEm0MB zlfw|*N82AtN3R!kxvH|}#{4E#HG^BTIv#n0di*v!w9WHe!>)Oq1$b{27VIOPFTNbG%GG2+oFd;t0tA2u<$Ga7@_MYdci)?5 zzXiV*>@*+-UWF2$LEx(|5>BIPVqs3j?;#on$b*Ww%<5Z zT<9+HzH!+IG=C_O3~~Cd=)RU*I3ONWDpm~mUsEnD_uD2Vg9EMwdkaa2TcN~T82B2H z5xY@|l&D~WicF3O%8F3RL`5XRn43%(a{GtA(RE#e+O4`-zn}tJ<6Sr&LH<4L=rw=X zj=+Mbd)JSLnYS^S#^Hwi%Ksansr0a@0&WBFEqScZjfs>E^N230ATiXB_)U%YF3#jXIVw0m`^9_*7J zzegH|6z)%S!+as%0M&6H7^VVydE@cX(8u{wtp5hW7iP(kx^L_DmeAzZ}3^h^JUafzVAHUdZio64MmM>?Q*}>B@^->Gg#e1gm zQ*i_JESS>>KYI;dXX$M|)wSiH=o}xx-{UKhE$*ZEOp#0x5LTz=(|-UcxhzW{;vE-F zi+^+GZj|#M-&rJy^E(I;OD2ca#IjoLVuT7+sBPQBqL0PEvRRVRcA61>iPsyng|51qF zU*=m@l4XxX_L~)*xYnD(YO- zQO$FV5fzWw6#KM%Wu|ies--AEWy*tVKfkJ4=__qUMy<5Pyp3>niHyZguavmhhUq3P z_S@X~ZSKn2eD>Q|d5*&mj&K^gdVjEvse}H~ZM3f_AF&u@aCfeuRFZ%)4aQ|a)-9F- z+cWpO$bpz3^m4e}uJO+|^$D)(Z z3fttbW4BdwwSHIqI{(PhQ0QRVu!*KkGdHIEyJ*;h7j5qDc`JmcV_gSP@8NMwNA~mK z>G@gma{u%kzsRpY=lQLUCw~l5d%_+jsO>f?3WHExx+D@8wZ9*7DDC{EIF-H5(we zEaN+fLhCHpTw7sLvnSZhvc?LnwSr!mRaR=b6@X!OS*h)Rp<$$x(HK%nyqy-(xd z*KjLITJMYV3c63x;8*W`LbX9yVd)iBYTJ$5So5+q*ibL>jKu0j*}8_=dd6AEK;wgQ zUN5%Yb~fQjx&5TVXQI2&U3sI+evfaZ9e6wdg@a^1A(8lACW^A_RNJXbcm@0Qi#yn` zs|@?@);&aqchSweRe!tEcHe5j<_L-_Eij>HEfd_bldlz-W;X0Dg{lRCnV-luUi^gK z2rJ*x%eK>zkDa|Ocb;=n`_Y-W@)}ug>i*KgK}abIx3%g~akdukdM1R$b6ZEcB$(&NNWA)h- zm>E5uU+Z6CUPS&ZoFMm}9=6ZSH{`?aFhBxW_LNplqLDaKR`SXFejG zwF*h*0X)|2V-Xud*Pqp1GJ##q)4w0TII;|TDtRU&;4ham%rGo3Slc(NMI;%btfGfx zrhSS~&>be{B7a=p+8{K%p2X`mqM!M_IuelV{fOxgDy5g#yNrA8eaxJ$w*RTH140zMTk51dVW37>}<7GYUY7qODxn_WrG z3han)dolF`j1Y|Ysxn;qz;Mws!S-q`{UnYNLn+MRYse~cFNz9#?RJ*kru1+l<*fA7PqgH<^5j7={G=*8#_rosL?94gSM# z{|D^uFKk@&stzBwdQm5zmA|PXLewN;2$>;APul^-gBmptqM57TKX zGur1%%ryq$m`&6x4yMnQU+qymeXSms5`RMx@6W@eX1&#uF+DMbCwbxtHOzJ&!~A_y^3V6$)oyCtyj?`J>9plG)(y_ zDN=1Q%Rq$#Iuv;-K&bp`nhst~@nV{M-INbRzVI|%jHgSn15cB8U?@*z@&HgGQh%@( z>HIzNET3JBVNLybjeGAP0j(4!Hj4$GdRY^FU|zcEc&_ntiA^}#)HZ}xFE5Ch92I9F zgU^62UvLkQizjW#mvcMIFF_&UHgu9+W-%?Vp64*|t31u&t|9D64pYRRnTxx-ma1WlI;dW&H zNNEHK`q?DUXZjoV0ctgyGeuz~>zk2a%N`g4mHK*`jd8qIZ`VNbO?5{KHIbb?A5X>K z=j0Ka(tB%`X4R~KF5ln$^|}hs^b-RrA91S!H1Gxs6RXhsE2el$y|D6xC4ZERti5&h z%3NwNktrwf-5jIA8Z-nUqg;4W++y32?5qK1chNPu-OO673+XDUf;>Jfi6)n;kn2bA2V3LI+*Pi zm)d?)CDfhk#TcIsze7NGa`w@x^3vmmN4B+)o9A?jhttvfPScg15{ z$1BO~qH}S+C-l@BSxE7JPk*vKhazr0MVLK@ zQl(eL?Ma1cON8PzCfmeKSX-c7*Rvy{lQ$$*YCB^|sdeMmo)7G=Pz`m*L@r{i#2k{S zb|^5S!YLT}I_WD<*({1rmWz`sH2a>Lhemn0UZj?nMRGcZEyP<{tgEZElOs&PO)~z4 z92Kp0Q>K&D9i82#AAhGdJXT8LBe%E8F=*3rHp{m<1m27l4nO}6+o#lS+Z)&AKc zbvmdkD+(KIiN^_pdwzoj76eud>nbpsqH1R(ZA=X4$E@u#@44k$_`=_PuOUs5B4HI&4Oe=65^!0nR z>_4V=w;1ut+kcS@CtZYHQCE{YyuM?rd)0zK$#VhNht9+Vg~@yd+T zb=@kzOTzF;8mJRIi*x$iHKqIGSe|l0cuTFK(LDpen(1!|b z_Gtzbv^vj?;K`+z7tvuGn@8-A?^?ea3K?{iuqiu^f_L~tW9RYVdG;b- z98VEh%gQ5dX9s4YB;#fgrp*jA3hbfU2SR)kYlo{3?qnPSqlYiir20S%PYI%uXwhDe z#{;3OaDUw7c3s#dsPdE~79hmt3Ee6Z1FJ>Xw|db!wjJ+B8A|~Zs&KT-v~!1hav|S2 z=^UWuM?QQp>1#D>zSFiy0U3&Bxl4SU>LC)={hD`S%!Qi|#mHztvIEiUoQ`J&h+66* zI09d1tfVnk*B9$(i$Y!DXbP<-#IMErAxtaPR(~Hn^Yv8vxa5@9^Lb%>oWh;De{5Dj zYr*4d=Vvqj*Hjyd=OW-?6@|ej5No_`LR-sKgx&c=Cct*lv0^c75=zA;d)=;a=i^vWk=Q6XD#XDvrao3s9;>R3)fI=uJoA|; z41b4I{xHvO^7q+kHmX%tEH3q2X1vHhCLgnJVUPPRm+uga@?@Ul!Kd_OUyd6IHb0W72Db$UlA>IYG>fK6m+!JOXd8ehJzCopTp1yy@z zV-S=c3$X_h+faE5rH+&NmV{ma%WiJ-S${gaBfma{aKw>6)0;}S$lh7nj}Jv@@JzoQ z#F;9>mEHz6y^NtJuM-&E`C)SY)1f#l_@<<@L*d$}A@nx$3p$R#KjI<&ed8f2IQP{1 z2y%%9+MG+$yv$~ou>HYk9W+S{#iq%vDXOXCGI3be+LqU0e1XI8vGFLIiJ{|NSbrvh zjW|x)!G40orF-;xBeB-;ix2l81)J=Pp#VV*U8M}ioZHef6syOVI2KG=>W=j_)8Wcg%#4}Uinsn~6O zg`z;u?4B+1TbAV${&`Xq*u8)JCZu7z2EV8?(M;Zu_ zKn!GbH%)KGmtgw?{c&A`b#VV!*pg?-D7yvR=rdZ$=9N-rlIf>*SPiUGGP~68; zUl<_0NJRTHGzbhhapo>+yMM9doYX3o+&rFGJ>r)t>isAhSq!pz7g;@k^}}zBa1?oN z^`~6Hj{_Cm0CleyH$a_L5R1wjNeK1@Y;V!LSSdnX4D%oPk_>7f*wy&mQk-hac-2fo z*XCdGkWQ)EdHxev&JrOQ;;BT`fYa7BNS~+%P)TaC~j(J_uVGW9SPo}K)O_+ioa9f%2b&cYM{ zLmi^XkDu`$U&TB4gu|ccAAEgnveu;}!4ajnr(f^O=0Q5KM5qGDI_lV1iuXZfL%o;QmB<8S#}f zz7O;CrNG?)m|x@Nq6GCVnEUVn+FlSLv0L(N;+}6jOO}{uwk~ckX>2gOgI;C38qemK z{CPfpHt*h6w_xJ_0fEJ#pcb zeSUIsCU$)|?}St&|Q3+gEkSe!-qXSZ)uZTaay@O zcZBnk$gTXf5)N#B#xyFr9D-3&xa^8nx%^5}hMG#w^>5hNqt|rB?RaPT;FO^XVijN- z-qg@__K)QbQ8`_TJyK%QkdMV_H#0sd;gZs6T4J80d)mMiG;gJa5d*Ts?hPOIodS`w z8-MIo4E2%F#9z2I5(1)yKwYC)umfw<%(gdLjk08LWmW)fhoJ(>&kw&jwZG81k>QiQ zxF^)npBj@!STjdpn``#Ug6CZ9|mY3tKN%3)bCUz%(iqvciqr|6ai=;xG& z6b2qQhOF%~zlan#1PNUC3ApDg*?#0=WREb`n2YQj5%G2;Px!2lZZa_aKxs*UwIbt|9<~ z8g|UI`&8uyl7i24dQ>G!KZtPX;D1KT_>#oU&4$;twV=qp^nw5j(cK)#_bz=WL(7~c zq8J_wp*r%^si;Dj2hQ6S?d4aQd;kDumkXBe(UDo&u^vy=qVZeu3al4xwVZ z!ET|xJ>5Sz{^d+wM%AS-F%{eGK=yi^TTV()`!BVJG5r@-*Uw8SZ7PQCWq)vGdKHzx zBYbX2y~r{565-*GQL~Bhq(bldhq}neXHI zPcV5{IDwXz9BYzB;{YIfnPLe();I!j#+AKp z7hWR@g-xNW0?nRMpv@jyS{D8diUe&?862%WDJf<_2}P8NK{sSEIN#3kBG3 z$3#y-LhDTct3`S(0ie^2VYp_pb;^T;bi^436mH?I`!KX{ra%0_@PDrN=^ch;l2uJ- zM;Rq>gLO&RMi(i**RD?R(MGJd^OJ*<-DIr$5(gF{I7wi5~&jlfWE z7>xA|Dbr9aHsSRJV~isucS(#1$~?~J);>D88>UnWwsG`qmfx6;7}AmMj3LcCY{>t* z-n><%WlJQm$u&dzzkU_mwsSVr1KrRTcxn_E#E7V_Kj|p`0uDN{$7_S72+&N zq&m@;1C&QsouAy!@(<$?nVkj6*LKqLC2daP4qN zF~$lkLh&5MMDSYsXppdO|9BXnYWW-3SBZZq`w|x z?S$0TWjGjeoE+yT`Z8=Jpi`0Dhdw#LRcNf{0SvsHQqjdHZG#p5yU+^-WU%$^k z%-`Sf!n>O}>*(*$%XmK4e?L#}-siV}hiNj0jb>`TV_x%gGQG=Q<)b_EIsZJ$-|IhL zq<@o37>D^g|B&O;EaSVm`FNI1)A!@Q=acu>rr)z18t#uKG7?REdY4Wo%Xj9(^8GbX z^2hXIi7|o(x$_G!1?Jm2Tb* z#Foa0j`~%!#rP@t1!Jca@toIt%#d~Tl=6w7arGmvgm|x3o;U#Y{&95jf{|}aRe#yi zeKg1mGuLgm#bs#nfU~>U^zmsv$!Cq%us~l2PrU z(Yz5-h;S^fH?&KrfZ37=KG3?4&VM?r#;Ewv7zIsRB}0^yZ&e$j;(g0yw>wA;w(jAx zDwDrXm_cmUL|b8eF~d8qkF|K6l0Oq4^KO<_J_n=Q1#Pxiu9m8FE!3_n;_jODqz(Tz znmq+JdVw>t=yMmZjDw%x+mzow5)U-}O#x6ive?CdiMhgx8ZvLK)!qIhA%C>Yawk3; zySgFHwJ~qKNkE4u+?b%0&aElmgVO8jdY4{~H?eR^8r5tZ&23g2bsk|XB9ZN8;c#SI za+DopbCINtd2~Z9ezSY~;%nVte9;L%AYQn0K>&hIh`1JL&#URS4LL96s*4^M z;kftXs7TBE=RJx+)YdD7?gh}|6KhEgd8`I&@at@HiKnix(;$n>$bT!Ipf#*)!07Wa zS=>Pj@)nKfqLv7$+!78XSgbIqz}Eix(_l~ojVZRw`G+`~^!BGPjbCN(-|^y3=4&!h zYpTGH1F##aGnw>aUgN+TpSF|lB1L!cqR)};U?yGUACx@qu?c2A$51_wg^7wkz8tUN)XMS6CAvZNaz-P0qiCMI{y_p+=}|s)EQvZFYrF z*XSES6~i-B17)KXV4%&ovZHVhW&~q->BOo0{a(^5KszwM@pd!b?3$~=OV^|H-+q&v zp_gEkf5g-}!m}uC81c~bNF9V?n4ni%g;a;2+7(kz zM$1fGCe&Q|FwSLiCK1EXA}uP78R3)@ukr<+C--P`qz;+3!=b5F$Qj?+tih0IKt^C) zEn~}lB>r}i$$wy@jmq@?VgW#adEX>a!L2~&@cLJo$Pp2bkT^!*`^m$)vJeYlajdWa z&gm3?z`WzDv4Y}>YNTOHfB?HxPmj_q`8+cr8@$F}|Qo%_zc z@1FnO8hh_CYOMOzoK<_R!sL%tYI}>94s2hJ$Z2z9EBid9M`rv6&<&LbE&VqzIe-GnNc4nE z!v2r5<*w~5+fBQV_T|gw^=x~S72L-5i=Dhr^D|Umzxk_{SNNMMPRpk=1I_#4Ob(k( z>&MLUUB#x$hp?_N%k@+Di(&kwR#w|b+yZsUri=6Y^;;dE6~eXHj!LJR%?F=L1la4# zx~0v&+J)Kg{EwY)*~KK{4l8v!Pj-W#h4znyg#;^LkYVL% zV_=c+-;9JNXtd`D_G?)a9s2T@yUjatFR{XT@X*!+kisGd21^9Hm&*43CQM{4n#-#K zPgp3$9(3VXa(bS>a$gS%DV{l$52;762;0ob!3E`*)$h3AIMbX8Ag@=8=EQX$pmR!} zKWV|?y$x@<8d}$RKWXd$R(|r~c4ApJ#$Xz{n1D`&vb&ZAyN*Qpm(oA`Vg|dZ{>TjYO-sC zhZd?~k4VfjqYkxah0D_k5MCbYU6y8YSu?`%r6;HFH&EA@AF%J>w)IJDTf}$o=u#$! zj|zY`%WS&zaPLPm!wJ;BlK|D!3r3AB1MaN=Y(6$ARCFwyB9fko{A{{xgp|{%UAoZR z_KVgG{_7|VK2!-@z@&o25elkjFEk{YTV>8Ux+qYnr#eJxvDQUo;FFV3i@o+(MX^sO zWvkji8tNVfTnwbOS6+7%vxIG0yQ+~9OZRLG@8V|xbUN2S;8UeOQ<{^#5@UOH&eov^ z*tXol1~SROv7FT3#zruTb$i*`Jb^E)>gaT%?H##9U>aT7Pzv_5s2#XKv~$Lc>6p=Z z@(@wA338f6sCL*emdt>BwGYI`#(RP|qg2(={?fig3tmvC6DzbkN1_s{~2f@z3>ca#Cl3QrH4P?71mP#T5M(*41-&PrSe?e zx?tn(%UT19>&ySZTh|5~8}7GF7do6RKdIK=OwQ!;Mmz{<*PS-3fk zWqGW0mjzs91mI%YY8l-iPY8bnn3HYSTEXe{+tUvo$Xigx)D9ed<_SXGwk`g=4CYmT z%cgMPI2M1((SyB^r=7j11zqEB)_$sdq~Gq3A3%8gYBH~MIWT^RTt9hw6LqjP?7;4k zZ^6%OSy@SoC}zF{ki_y(#3fg9uNZfz+_i&6)hm$=lZOVa%UAcwvXU1lc;* z#4NhuBYtRPHQbfG+R>i&J=L4OSV+_Qz_AdHN-ck7< zm%UK_4XD|*1KBBz0RzAQUfq+&LR5DyJonCF-YKKbBZd)oNDNhrW<-b|q%Q-dM`fUQ zYP{6$vnFL}g2xh+G=JA_#2jX+d)<3+ub9>_8nK+5xsDrm zNlop|EdSj2gpjjrnM|Y*u5fcTfPztzz-B5+5OMJ4Ai;H1QTgEmPA=d-1~7YBc=RRx zJLnsnWEdvYwuu83yu&r4`2|wk}44^_fPcCcm(8D zTHyG%F;?5xn%E-%R?m;}HBAkBgqt4U^YbdrwNXFC+7sC8`+4>DLte`QCqdhz`2+I(s?A#;gzG&)-wLsN3Fo!g*BDTtD9NDvSS$nMOzbLa zRR6ZT8@)c_1KCB|;by_5&*QZpBN-e33zqpsJ5f>>#9#z~%nX(|vu*sHgVd&pbc?N7 z82^!{Z^XEIu?|dQ=bFtcbuJdv0ffH_dx(!; z$;GjWv_`RjlZDVW!Q(d*-21|j3A-gvCR>ixqSZ(OJvYrl{FTYKAlTxn7o1IXp)>ox zwN3EeP5pIRm~!>qS6J2_9x+64+2|Dx3p4@TvoyX?4T02bAw>uRwyOL){g(TC9K=imnsw4<5ef|fE5H{J16wbCGact_WHysrObWnW zSI1?`wk=aM1P{G^pV%2b1X{JgI>Q4fdbN4%89x4J)sbEo7lVfcja$qM_&@8yzC)H) zOxUlZ3c;C2BDBnCKfT!j#vj(e{SY;6u(a~7mU^?4;PB0u_hU{Wi+L->os_RyZQUuW z4ZkBu-N94A9=nu`k-=1UMM$`rmACBG0P|1uUazeyqepo|pd*tek!lzQzXYOnnWqjh zpxZ)Qt=Rdj7>&JZ^8`7gRG}I!S+%Tvwqa=&P93j}g2eOG{=9zSI{zE5Cbq%b>E`j* zYb^KsVHb{p<)bTGkbvJe+PWCldGb8Foc)Oo82DAJZ(Cj`)gTXR_~!S-)1^KbhTTf` z)P8xdV}xH9=mq1~oS9<-^~T2gBHvdKccJrHzy}69j?~ec2ceG0(=9A;?#dIk0iMHb zyL}rAvu`Z81(+e|0U*FUb7uBjO(vfVENLzERpK8H)h%8=82f-$d%aan&*r*Rameui z%t;2-@BAxxuTwcKH?2lEe(7zsx1n0YdviML_Pg2ltZqSr@$dHIopsDaE?$HU!#iWI z#^0FXOXHt+EW^k@|DdZ1r~`ya`3)z##|cN>2vyR#&y~cKhX2hhL+_H)Wv)|Z{uLM97Q4s$p4tV zix<5UrjuGR$3obC(%if5i2r!f$OzzzJmm3Tw--cHTPElq$BYiL)v4<6f2U{+i>+PV z9)52&Omcsh)nnq;ytmkJSSM!;xstbSip_I3VXfUBa&T#1Wj}3w}A5lJboPiIB!sKl!%=27QQ+5Ac1q&R&<_^&GaesX1zu+G37;uNUUUy4F6zd;a z4hVumgv3Qy2&fJV^pqBAWWTQ_X{s^@hQyAm!CdX~goB?%Has?@ERfPmc@z!Y#M;Hp zuNnArTx-(7C|UcJcOqf++Uu=AcBel=59yN|*K_Kw{gM61RBz7eFojSmms^DOuo-ur z-&$i{@{@DwqdS~8+tLsMK(t}|0_#`84)jJJ0Dq2wUls zCttFClSDSZ#DxMA*OKR#2`(ma=yG070nQ!;d0ay79L_~*gpNYT@kSq~JTtghBJ{BU|RLOegGS+gqzI~(xj=51< zzRVtEF}$nsEabTXjv-hY?cED7DZ`1Z1B1imE0zg{CoQYlA$h0NEn~mWFLz7C+yP5B zHmRVQfAT{qBu-;1BfFXjMHKuV*XD+*>|$Fn@tC7Q=y)hV?3;q_FNYb9c{VQH)`Wr2 zhMIj4dVDT=!F_PPuIk-VX4)#5RXj2-)H7p&HnHMW5;zZ zme6mmFeZ%vwoC9^sBs8y6>{e9PqN9&;jYg8x0n&Gi-2~Gi2fN;u4f4XP{pRKr_jr< za>Y=}n2i=Nxm@TEn-U*3@mpYxipJ-7Y)U87zh&4@nM{pWeyy%r)vt?bxhZNcdXBCb{X!dG)^EtsuZ+-P zc*ekidr+6i+DjgyqC4rr`6UFt#ruP1RH!l08*O!JGz7Fukwce^c2p_?#jGCXVz_W< zU^LF{WwS6$fT*1gfkxSo%KhIlZ+kX+Bmf7rZn_jZB*5eiO>i;oWIr$Gjr-TO|S00w09gJ(>ldy zt!~6!VGw#HeEq-_gqr{a(XI){Wv^!1hwoh`1jbtm$-Gf&c|8GO@bc8Ev((gpqK$y4 zF%V|!|9fTx#z~5U=bCS+*{X&F?{I8ZfP9%pFzDD&kbjlxH8@93Zfs;}FGyqn>Dy_zEL%sT zW=NJS89Lagy^^r+zg}Q_30K>{p+S3wn!>gqVpOOZnv@LK1Y(B!i=e3zw=Q)Nr8cnW zrlRUqL}&!F?ctN=gF+(o`#mDXAbT%R6I_>pRUIoExg!(>*oz|WF1*s1>91szLGRiH zP^MK#nfR-z>=kl;hycq?$s>Q?<`GT4DRd5C0Zh0$S7RT;GXjAM7M!^Rr6-bh0qM{8 z5?dZ+4TR~Mk-L2gLVC({n73S&zn^_OFFOl&dx@B12V~iMnp7dVpR4QZtboSmL_&Yw zQ4DPG3&Hsds)WyIOFe~p1=wRZ1T_FyKVJb0xXt&O*dL)Z1>l|=Q(tkzh6>s-X`xkc zi8UJ<=IRQ1>Ku1NN(zz``^OKG<5(S3!a7(oY6`RA;D97oDVuUgQ1z(HnzY7?izx6j z+SNOqeB#CPHI6CnXAN-B-S6h?4b$i|UsK}s$6uk$48td;@7&^2YS(I1U!LJ;a;b^p zddg5W7PD%|)BqiZ%{)h^>>@>ANW-^Xw4&QX$ z;svto9);=yKNNTt(cv9a%-N%s)o<@A-?3g;o=Myws1Xe?2X08L1-VVBw$bZ?s7fu5 z>q2I~NsB9SO!s`t!q+LXt}kLGjNB`!JbMR9k1_aJ8-OqG4Y6a{EBLPg{lO3H{Z{gf zhI5WwdODUE%&;{H39|kDMbBQ;LZyQNDhdCqBwKbZRIkkwegtJc7dlB zxO1+v(8vBZeKsQ)od)`Nxrt4V7@Cg-vVZtB`T%Yz5{OE|M194k-1xHK3^hRdMbY4; zbu*=6HMiJ`*Q=ik`>7NDa($@PZ=POeQVE*Pf$8$alej`aP&U==? z)}MX#llDwp?qJPBWKID2V^)Cdm*H zB`B{r|J|p`%txjO%i0PUtLw!Wq^5>&V*$`E^_@`%k#4lc-!g{^81~JC&dbNT1%t?7 zYIA!z`koaAP!uxF?#l&E{dlAvMoGKn#1@e({t|k_;8sxSEa#gzWODfq42~)?b$X4) zz6T`sFsW<9h61$k0)CFV@FMV@xLGwWoX@3)fwKD~T$mJHCE>yA#nIP>pq<$qfdG(I zUj=(NCdSd3pG0#|obeSP%|uF^PYEesMzQqy4Z&K{7h-yzfhK5Q8MEpa%fsu3NM4)T zJxPc1uuJyZ8APxJ6q!U;BTuqfA0p-~tP?Aia&Z^zif(y6xar3@W=1wKzvwfQ>_cPgxbSoA^g!=5}?&l|$xnq(O`%G~DBwFu7Go zh}YBG9pPh&5I^RCLT^D>6BEiyqKDp+)Qi76WQaDqtB{?*E=;xvrdDKMsTME=z8cMY z)i&LN0i?MxI(_>?bEf;-@!cxncK|8_4aqjBHcN_MPTo;eX6S-1@db};+F>J@9-Y~A zgmlWhcYFd08oPx_;{pBG9O5|1l6{`w*Vs<=q~0xBX8r)YfbF+OJC$3QI83&)s2_hk z=@NLxhtHTRpOG8;lWO4f2r?jnAsXLUYB1!A8}w5mt_4OYri?QGZ@6URur=2-+FyA} zUf2jxNzS*C;=`bT$5|KQ-!RY!G9^%TvY~`(u~nDGu2*uz?LX~yu7A6jGB(HSU- zkNLUA2S5K_2w6BJFy2i}|N6Zj;-r9a&JFb(+<>QX7AqgLGJ4$@qY2mr`U=*3snolJ ztgyalgL)Y-i)(s-kOkskQKddRN2I9lbBdDj;h^}$iXCw1A~t@DjZvJGxbs6%)m0sk#GDH;ddI4Lv7JSZ*pjZbF- zmvBkpRq%?OOlZi%U;(G8rfz5{xdn~)5t_(G)9DtKEB~hWOQzHwvho$S_8tX4tl@5F z$YtgSlK=-Bp`Q{8)&c)RLU{D37IfL(20SfJdPum7Aj8?>kg$H$mJcWXX=K%{?#HtC zLWLM-gl*^&8`R0S{o7q_iY@-M`AcP-XIS%Htb~ayQ!w<>>VccYCj=#l@I^r0dXv~O zQD%|H(H?G{EcT8;#4;b~C@GKUM_Swv83tu7QC}=l-oiOXgkuaeg@ECGge6ceP}ckK z-`$-^a8#dmc?X9;zXC0ejEzkT&>|>xR?*51DG5x%#T7+>#Z17BHMinZmVM<%JTl5E z)9x5xB0>o~@p)rEX+eKr@^Dch1xx#~K^Qu{ch!}>eBPNwfMF_=5 z#6qDdHj0(@oh{5-Smp0%*u-#ccOerH{`vSxWzllt$x#z3Ri7Q>yjWG7Y1nYhwE~aB zl25BWpfDrWCAlkz_p*8C9t*stZg$$!>#q_uLj4M;*}QqbUhqVa2>s|{Cg}Rnt>Ar| z%tcKOqaScokdF2pl|LIfZGM>X?gfi-uHw9Y44u!s?jMDuN9;|4DWy`X@ zvaI!xC%XW-LQt1T-y@(Y@e1y`2yICZZfWzhR$#=?PeK!K-u>1OZ5!5pp((PH7#ob@J=g2lf0*qqyxEsJvPIROv&i z&>mh9p7g>0q@76^Htwd8w+KxjqTWrouz?c_b94O+#4K?Xk}n|?!jmIiM=vl46uNcv z(wUa84+U$*QI2A-g143tf9xegS+v++%ytDp_^R;{{j5=O_E)6l2zizikh`^Lr0gpv zU~Z`GKdQpjv&-OP;sWGKrekZ23|^nK4!Lm^tRvs4m_yRi_d1nX8nV|CM=s`3YMr0S^x$R zhi>=Dr!-6~0SLrzm%}_ol9w$(@V2~`Cn2#KBZ#G}znOO?9Srn0^Pzsii^8W!#kVqA z>@gDVt5XNk?b}HKpX1+S&x4Wo{_#7iM41Aj^4>J+IffX#rENvkAkb{M-(GxkCEqTj z_CT^_XO;_jS<%RaJ1iv$$@nJ*Q`e~0k`jCo_%vqbx;TH81aF!oG z7#E_aRq4ppxu(>(y3Pq=c>(U&gb)>*Te4V5nQgwyyFc-MeQ6rk#u5Z_$y)*_FH2-W zsGky8L~N^?a((>3%$d*zFy7BVs%BnP9c9?C!z6p3?-l;!xzwsVYGouD(74{fEFEb5 z+M@W3Ql)X+kA@KzhW5HOdx)SkNJ{a!9dp2kR@nH1R#621K{c-Z=izOs2F^5?or!jy zhQ#sKgP@quT$@R*$2rspqSXo@A_~B?x8BqY&6Lrp?whI+loKRrrs1rByQ9sm=ZA|d zSQiYJIQBa%VEAx2pAc@BN?}3CdvL!%a93@{NV4Lmlc4V#+Z>_7lg=% zVck~>>t9})llT+tJK9x!ImZzhJj(0R$W@xUewYv;AFI!4^0qaZzLT&N1IK)rBl~Dy z7S@h!qFF%(Mu9BP81es?jVv|~ujQ3(E zC>s-Ue_i{gHU`a;N(Xu19Y6jc_f|DI5}n+g9fWho&s<&vO1i_;D|rQ)eUM=7(BKhU z1pgA}fNbLKnNCfNzveM8t<{{b0^W)3?qm1J2~NR$Qda!Apq311bEWQ}U4qFlxpVQq zYuH@2K`$=j<+c!at8aM}^v-hpvn;rmu^N{Z>F&Kah3$-YN=!v@ z4~4)M8inFZ78?a1515B&mfNv>#f+h=N_ald@_vCj6_BdObSg}=4~J~0mOdq6weS>x zr)n?K&^u_ASEEar7Gdf?kyp|oWTNMGbmo~dXQKO~#bgp->6HrWyI>oD#oQPOT-zX6j(q<~%v`aF&G8SK&BK1c4x=6=Ka*^Sw+Rw@x# zI1AXJ{gVZlAp&Y}&%_%&rlF`{N-Fcf@+dx5&fpoB3{}q&m%jRJUA| zi2*4~j3qQwhWNKHOP^Z*k3plIwu}P5eiR!p2)m=*1TTm~xvLC&yMs(JaLlTF+?y7c zq4qd{#_yV~PcSl|u`t0++QrPS06UvU2;O)N^7kYy>_4{`o;OiEYaJxXuvOh?rt}C1 zzuWpSV5u4z^(7G^e*{W-7-QagTsY0;z;=x~TemF62pt1yqeqEaux|AJF!@Sg z*3zz{?P}L~Vj`E=t>3fGv~HH1KaukxUi7E~Y%c26iB3)FSBW$E(%dD^K$I}xHuBoLG(06b09H?x(p5xL)zMcUCo}?a=5|B-=s2W@JeYPO{W}K00+I zj9D3uI*0!?+(&vD#loR)0#@IwuMSsmS!na?f2vs%A&0=h(=A6y~<8KYTLRh&jN>+-?*AfX19QvfE%es zF*0W@es_D~Tra?JMI~ zW(CwwnEsuWjE6BvHa8iA{?a2|CKF@)ght?xDqroej4!}+)ujC`~m5RUz_SY7Ji$)_J_LVMDN=B)jB5=U}BL% z-1aWd#y0)=4-j#*J9P2d@)}JmzxJIHW_6v_Uw6RCaQ^tAm@PE{w=*VO$@$`gI}w3U zJ+cewbnP#hczwtlNR2E)YRob%j9BDH28Vb3lo*-cPS!~fH2jGab9zH_N31yv4HAXK zGoe=M1_h~u54j4r?@LW|v8`$v01t0^rqfkKB3}VO38P;dFuTPrONr05C5ZL8K=z%C zi~I?Qp=81#kW%-Fm;B0XV)6WnAY|2E|8FFFcdeoa#%E$jQF1I!t$zqg#jABW52O2t@yR6N6x+7R0C?)qntFMAASfSQ_k)M@-` z658ZnGGG7C!@0Y=EA37VKB%q!1t=aA4#RAL-&jyvq-V?!!N$vmFnYy#7`eH@50GD1 z1SG*^Jzj&KNShAi3WNOMM|9c~oI6dlwZ@y{pyK(W7dB18vY{67%x%x^=!3c$8e=I= zkT%I=_OPS66W`A8iLDCnQXC&&$4<^8^UGSh>HM-k45fb#xI@AxqTc>Mxalm!Jt0|Ekq0s;mC zYLOHJkphPQza^k|!jOfD9YO{db}xA}x$Ag~}Xj@U>UsnG0wzw#h=Qg&`JbOX7K z0K5lD#X$p58eskKtfWP~NxwjJBY`fx#Eutfj!$Wd4u4bamrxh=st{oU{V#%vK^Pf; zZ^A&z^dZAM$Us2Og+M@%-(@>17Z)oB`wKlCmvs&d|CyS<$7R`(Xg9?Z=jXxagFh&w z6Pq?oTTbF2iix0Uqf~|GBkLEwx?6vtfP;_-QOB*5=h~uhJv&YVU+<7)vCE*KNiJ&3OT+sRnF_=Dp z`r-5k$fg~E7@KQ$9>ceJ_5rseuKi>RAKN^FpU*AR3!?GU)FhAvqk=iwo7Lcj>F6^P zZZwOiTLV;T>MBTzWDEz0^<=Tj886X;zu)iZVAx#liVix7HUHpJ4Phr)y#TJeG%-;1 zsx9!QepSmFrkQiS2BusWZuCc?6?Dsls=N9pf@GQFk}h7|LSdA~tCizq=-6zDlgrJkuC$lx8-9*Tf$!SDNlgh^u*-|7?R%!s1( z6?!YT%dl6)wYAAvd8pFXt^xi&QE;M>vkB~+$upAc{dR&8QJ49$I(fi98P@)QHfU3p z(e8I#qLF?ccO|ju7LT67y~gqNiVM0&U(VzA&*(Au%N1>&>Xfw0mDJ*p)G29{b!a8f zOAaG4ip~OQ1TqmPhtj(jEFA92O$A51B_HhB1u+M=%M*JY(;+brpaHySbA?|kHAYuD z0ux1{uz-PEy$7_8o548lc7W}^g{#hYi_Q6%ykq}ez26~LlU3({x(uwRAb$4V0;va^ z-WqN=?{%8^1S~!n@cGQSRdrOk0S|yxskEM|uFjWCuU9WzJuzDKpN-XECblfWYg5h_ zaiT7}RF2VRJo@3;2LsGHPZIuUK|OxNrk#*Kch=kcJcb;;UK`&|mrvYaeEezp;7!^W z?*fWO(w=ES)+`jtIjFaJva@mix%<_dbeIni2!EO%)YzQ+JKhfLfwfd|6eZM_^n@FF z$R)#n@B!8>GM^I5_Kf5D(d~vDWN5ZY2dr;Jb6^rPkp6&dcm`Ocg}F_I`W3PpEn7~O_{Kx?g0fjp}X=wR6j;peP;_&Jr!?>TAsQ#Gu zPVckpDj{eL%m5UR(ibk`Fz!9z8-=ji1TD934al+1sZDMzbJ3xCn7I2rR+Q7ZEi2c^ z{{kl(Q*~}HY-u6HJ0oBF6WyMs;|{Rxy7bOq+UB%GKsENaOI{dEZM2a}t+NLn++2?6 zZG)Th)xU!7=W=HuA(PWhchzRlln0McH*VIm<0HRnUMOL-jQnDM5Q+}7Umna z;M!592$X;;&K^QgM9M;UJQrgMdY~Ev$RVyAK)m}7V(M?au_GLhCazw~g;<4pq)6HC zVLzOpX9RXB!j(M&>lH1{>MNPW31fZONqzk&<{v zL99zsy}$2~{?Ok#GDc^IO~j=k6k)JrR5Ia9;c>nv9NR(NHXP!IdO+Pz&}H{;DS(T_ z=j`J~eTQG{U9#)fta@kwp#G=c^37ZK!X8Lgo$H3FqO+zjoQP9dX-u`dcwE){n(>~+ zSu-H#dfrS8P2ZcY=XuG(L2u_GpbH&${8u+VETiOPRcNY7$~N-Wn%`mOu8ul0a^MsV z1xc;el#sH($$ z{^W4;b4po1a?=<)vGqc#yRRH#oaHR>6(qpa++AFag}l|7w*x)VSyY2bSM6E9!?9d>0Igy>*?Rqlypc@0-VF8thto_LUU3syN%hLw!09oGqatn1-mff}6IJ zL2oBSj0I;%jH*7lqev^41vRwcA0?0O2jz}!>k~fx*!!8~`v>&z{T3bg?do!zN}+(C zDn6Vvwo)+tj@61#0E)?-c5};8iW&@n@Y*rGl)4O*cu-kKu+pnHyoIF8(RN8(IRd7+ zTPs(Zuh9WWfnO3e)XV;u*jDKN{#*QEt6H%M-vsmAkYEr41 zZztGm$ezq*beq@ol90j?wu!H7z``2T=Xh0Lts$4k;F)a@d)<#Ya8%6W00t01;wZQ| zSn7OR3L{-4`8x(ZeW)mhx@gVKR4J-uJC8Zvw{TUxDUiP&7K=f#Ifd(7iO|$I>)X!* z0*(3OwjCpmG;oh2khL`Y4t3B5$INiGTQLVLX&Wj@2l13UW(laq zTKEM;F<2t+-CMB+19b6Ujwcz(@j|>M=3d+5|V@RYJSw7mzTeHvr*x+Hy&o`W0GH;0c4dxbHD>*K%K1hRx-VyL z52Yw%6b7S-Q;Hhn+0cd9@*XX=LX~7h0Xly?$@8qYzPa!oN z!s9NKz);B}W2X(lmQDbf$2ZhFO6o};&!OW&@4?@t2~%)W@V71-q(f=GWEQn&%e)#~ z`Z``Nbre`271D)c7HakYx@xDTqu->55R*};RmH2aNz4W`@2%1&^;>`3W6p$K+XeS# z+tPGaHOMFd8R*snE^WH%fn*owtjWy9OGFe zcMp0orWK4HQ~(F$%GOUTkIxyWYXjBnOvNLV@0`Y( zEmc!-0R842szhEWwMU^E4!NGV1dC;L^|^nB;}=k32~X zG4q=ccT|t#`uHY^R1Xp3IFhQ*ILz*~t_2nHMHDt1~K-8GQ zd6PHA^c@4Nu!C`e_R|vUOu}Q&2%%&6I7yyqJezU0Tp48Vo0{v`K; zN8|yOt*MsZ?D`|82Y}XdrU+|I9lW}r9M%J6_Um0lN~``oRkZv_K^}We4dV5?=X75t z#&CW$oR1P8pWjj~QBkhniEzz~9raQQqj4;7c7P4dapZ9(Tk2qaX?imzZ|(8CFrpV= zK+Si@5q;DYWU;l!XO$r~k8l+sdbVBkW=JorxNz7u(;PSFMm@C*0etIj?jsGc(i6zV zOxEc^->s;8w^IDwN}HzWH#`0Ci+9-osV@lCAgx7IwY8$g1a|rGiK-`~K&>q0Moq*ECqN9Af;@?5trXvg5dVeY$>-*v+ z(X@IyQFS{lQ`kWHftxX9Xxa~Q+$AUVL_s#So_t?p$<(S|HW$Bu>Z2tSeQ7n@S>t(?7r6MM3HMq);?{ryj`|AaPt~apLox zwu3^r(`%jIgNfp&#ZNyUOGk`4YFVx>llXYB@d|F)+SvOR;B_X5gulEa1PflXVM)Xt z>d&1A5qcK-rPM#h47U<&XGSsa&WT5Z{ZA5GcbHbSll z2uwTZmR0;eDZ3EEdMub=n!ONJ3kmHqrGvWc(V9^bQm*uqiv?S;0k7r-oy++6`1|SY z%4CsWx_p2zSpA9YvXriM9a)clkByIzA6k2J{#WgY?Srmt_kV9HOPm!L4s30>4~E)@ zO|lQ0q_*9xtJt^RwTj2yFkIN%{I^}Z&Dr*hD$1F$k){~?wqU*FP@DM^nYe#QcSy7u*IZ+Z|F|?D$)k{GM z;A(Za;%dl+%HxWg4EYbNMc>KEkfuyO5`h#j42JB{48>#O0Mx-xG~oGR#AY{Y=Muo` zgDY7qiivdjby)1X-7EE2wC;sOw8pNA*tJhiRDwQ4c?sfLb-1Bg$ia!@ihBN`ee>;M zndfnGEN63LB-JaiBGnPh%4Wy*Pzt)*H70QElho0j#+)!+1=?P~FPV zp6QaU-UU*M0BATJOpQjRzf2yMh-MWzLyp$#-JV+qP9gAxYo0W|ABRc}+n`vqn5~C7L~V4AOb>sDe5`%*^&R zaBDW#=#?pK67K^;NGerq+s9j=HHFTk|IXPN z6GZP00dRb@CmkH7mlO*%P>vu)@)x>xAz3|m`4j2oo)Mst(%DM+B`2&2#)y^&JA`2f z1jAYx5w@viZ^0!nU7I3{4R0vPezng#DjtEbxZ7JY?Hx;UQnvMh%oA6cp#(;1Pj~~9 ztcFkdvpxtd)#*XgY&;ou>1Ts;AeM-FiE|^%Z@_q{3Kl(8q)!a{Mj&hTVYl}0_IV;U zT(sen!pd`kY$rQeblN9gt*OpSp9dZ-w=lKsBhv;^9g4ofO1vR6`yMi`tayNb)+Y6k znJ%|_y7K{n%gePP5O4g|^I{BFEczr6D?CE)9RzR7~ zs%88DL|qLnE31#AhVN2I3jwe?tEIrs71L_r`Z_C#AvWoA%II7YSgAx{D$I0m5BB)z z*etI?*MzaN7po~Yo$yoZV#5Z?g_4nc_dL0xq7i5AC6l^83Tm9jq-=HNKQ(n z#!WUfx4bZnt9i_FSjhsy}D(5|VR3BEqa4073YQZfO9mw{N#+%W| zp8npmHfA*Vcg3`^pp`F|PGGrBatuw5kW-iVH{@alU8&%PT?c%}4y~On=_W49Y6Is- z7r|#jpuJ+2hWf*T5DO4`UU8uitnmpJMl{<{kv3`kXgmVZSNsAmkvp8OZ9HqgVbfS`*Cl z-upyBHW=!7HU_|BDjlffJCG~h9!p?@|1X-`N1VaCq`0tL>k&l0=7TswKLW&csU!?a zw^3Tn<#H>1GFZu45v$8MQ9LPNGR|@9n^LzpSYY@+qMQ~ZeC@qZ|%x(gHb$9=haxKdEI~tR}Ipz#Kow>6GOJFk8S_X zxv0z`+go$WIb){wbhkF^3c>5QzURBcF34gBLC3+1i&OE}tH#fpuDR`=iBHqp;c@&k zRs67_zvgT`x;#w9?Q}L`wdhj^wS8Jm?oKhnBI^+kXgcH@BL{|!op={}^{%yxgH!|l z`X(>qq4j`3_P^{Qe!2t~j%@&;%yObkPf7^z$W_*y;| z^h)!E2_gP6x{`T`oH0%h{j$d8@iDIYyeCUihQwKXRTc0Yaq6fIQGjrwRML;6X_9u# zoS;;bO{PU!(6g(DXhXEJaQAyJ@;CGk-@~~o@CyKA-vpAm?iuPLJb5`Yva8)S!n8I` zb`Hms&0MAPOt@d|uro_BLJc@ZMr;_JO+LGq|gw_Mn;v zJP|*@RilJ}NS+={O0~K$6{eQuAx79?><1aNW05!lzA7blY(WT=@&2mW=%g_oe(ttf zfwF~vp%ECQ;ZBx?%t_ipFdV7z@X%ect}$(GS8~GJ79RG@v75e$R?M7@=6oT)Oh7bi zunlD%+W?htj7Q@ik|gl_3(s`)7{=coXkWtYFEr9*)n~b+6l&pAj2xbgDmSvEH4<|; zX6>(9@vrcn5C1(?{?|;|GGODMkeX==LI!|9q11BS5vNg;(J8amP&Y&N$&w2Vbhh$V z`t*UOcn-+6B8gX0>(XZ#Naxli@VbdyXHwymPOsSTx`^@rnRUwPA)5VLT7CaA^{wz} zq?z=g^r%I$gLK`cW`Hl!wQ^&+@*{nH)xkuslUhx6=8+=N$zpnQg`3A&wbMDltpwoe zFvSvgFM( zeM6x8A|pI!v&KJm?H$&kaY$4` zL|`IBU@XnNwL*bt$5??#P=QFJE0?_>__BfW{}iACV=fTrW+TxoqlBPB076ivwjPFo z#madq{{TgZOgcbeU1`91ME|ED3*|hQ|K}zH*exYg$TwJM*gYJ*R74VLpBM?``-8oX zuSui;BSwMq51C3BGS)ePbjyE`^)$aG#okN{kpJPPT!;nrA~90p9|C|1kTJPNh5rx4 zKLA&u{{q;;ppE`_;a~KC|4mOZF>>pw>Lu@^)T->`@}s&!kJIIoPk6aUW?4;@X5)2c z;})TwJQ*KnGctd(_ZU%878nEw=)d(iKr;0|X--lF9Y8oq|EEfIJepC}6pzlB6U)O(;stQh} ScLu?NIs3kC5%&E9^nU<*HjPyP delta 159280 zcmZ5{Q*fYNv}|nKwr$(?B$?QnSd%ZdZQGvMwmI>{wv+pxhx2gm%i2}_vZ{7<_3GWV z*GVGW>_1p^6?t$73=l977!VK;5)iq@IJ(sYbaFu6agzr{Xw(0DkR(hJOh!*N)$Bc9 ze3xUm5K(Wb-!O6@pK-&2ULH!4@)y|mGoc!CFNU^k_C*O8+TwoK*mc(4Tq*3gvpe*- z&P|9y{xXN+$!Ju`?qWvp;ukJY>m}YzfRZ>=+GP05D^G*ow0!QI>e$<@uS7{>0>=$+ z7%YH@4rO&X5!9Q{ENNxvRdW>PGcF-9$Xt|X$B;C8`+}_(&w$1CUNp3Djdp%s zmSt>t!ataWZoXhWdz@eP(DN;|-hQ)1dP`6fnPC^a~QM1N$il16ftafkhm#Mvn=N6I80(4X8Rh2 z8syQeYA6i-zkP>3tvJ|_=xsA)^Io$}w=1lnd5ejI+J>FXtKFQBYINiH_*n5|u#2>9 zHdFr;yc>`Aj0hywf95mMd3xJnRGzDr;-Bq?ejTP&5pMZB&T3#er#bAozyilMg$6@n zchAV}p$Gra*Nx1>ab(lY=R(h;SfZ~tdKgV)mrd|D>I|>0QZas{hlN@oHg#^xH`;sV zM~n{n3mYAdPnoblm1k#+{y~uXRj&ad7AtV$MQ7kOQs2;0t67Pw!j+;zW#vjSo+B-e?$JxoUR~QT)tp)#*L4VRlKKD ze81S#^0#OkqPh@XVetNfUP#&LmNo68`XqfG)J?xi9KnQli}Qm1urQ&?q4W+`?i_z& z*f0rfrgfP%y}o@N5m7}AV^hI0CWfv8e}P`yIKF+E0L2uqUi?dOUl(xK-n^@E--1DU zpY667JCd=}glMkc@O%9HH$d?;JRT>oVz1wW{@5eL_PUQD3Le|CNZ z_6)Td8Fts%khS-f8}Ol<+UO(OOZ~1g!56Y+r$U;A9U3!H&!?`&t9U1j0=XM;0iRRZA#w;z8r;(b;=4O9))Tcai?gPsmltS-dKd4I7gZH~mzB;^(qvAUyg?o;Zi@d#zduzpMbdNNfE<9;@ zWfVvGozpf(D$g)nA3Zw24{$C6&KR~Fv{-%knYK$z-X{1(J-afue}d0W&)@!vDmVD9 zx%uVo5URZTO?-39cD=m~wgZuOZc4=J;H99!%{}@#uLgXo^}6*f+3l_f=B<0p^P2Y7 z25j=9`}t^HDE+ex0fL(fgR8%OUs>4+_goL!T@$q9xK-z_PM%yPZsY4y8cdE8G&js% zc6-o@Y3L^!P;O;z+XktFDtFfGRRq^8e<1%~*;mdROyYn80U?h6pCJGOBAz4wMGEZ1 z;r~G$%`@%$9wbv{j4$EM#&w3_fJ7*}6-Q}4Y4Ku>6ni?oS{h3vJ-yJ6`nV>X@c1e? zWO6Xyx+*mX8Et%O=Kkr-^WkJ6yZmV3*Rb7{d+C0Ee>Ux_{<99N^USw3OS9AM(b=%u zFi(3k>(b$?qhpQXsOtVu@$p5~;2NmK+B`F9$ku*)wlQE_t(tr--7u`FOFKRdy1$p~ zDBJGN%*kWcN?W%1s_oF(o-#ZOvxu6mn!Yg6{;mG|`Jy`0;CjVoXn)zR;u&z`1Rh-; zZMrkA8NGNnXP%$ezh@q1uCXi}Dm}DaJ|nUo-Q0wFb*i73xrwj4bbkAGZvx*7fPtfj zhw%HN$=8)#&t`@3rcEnf-HcWf_v!TIJMs3HP(?M@{pF*xb`A4`ds@@#wK*lL&A9uM z7NiY(&gD;m)yYk2;N^Wi@9S-pn(l18>G90u*DJ-=!+2O{*5TvDZBbnB#paoCuixD@ z_D|uOexc7d;?scxX=bBuF#yr4DSNB<$)MH)Q^40s-`b5*S69LCxkQ zElX%Yg5XJTK~u-sxcPUtpVU|UEDluG!qnYB;Q6~epdaeLTR~xxRo^D7mOI;{leMxI&8P(LR&Zx zaZ-|D&`sf|KfNWNoPZfGHW`Ao;M&*Gst^tg6I75$DmoGv4T%fShV>t?78|{@+BZrL6uB2c!%(a{Kpm4Eh37Q zA)It$IKnx2!gc&Ad87$7*m%?^Ja1(F5t5G1p;48}w|vvGN>HS5u z$B*QHn0Ui8sd&Fws@93}>=2}2B}{}JWZA&rVsq_)Aqf?sA-lR?aO-eqVd_dX*b>%= zMk4PGn4N(y0$g-$(oQ5ogWY_G{BX}L!ml}|&he-ybG!ftHx$P<+rOj|+Ny9O6T5i+ z(`Hjtmcf|(YU1BYq9Q%hb-9W75tc$hr5 z^HM6tICG|rLCX1@h!qQYl@)zzS*E=JD;pq`UCtVDyQi@QkJBmTXPXm@D2=THrM?I; zLX16Yiya3Pv(hy2T$ZI~H{2qnaI!(#JPA1yI|4@rjO(O_qJ^CEQual>sUPm%Qgan7P8t1q|KLb`Q zTuS_nFiuPaFhI15xV(hTLjHu{$Q~=892sh&1&NB1#~S8c*?oGeO*4N&S~;~;1|Y3g z&lJbYvv_-TEWU9WK0vix1`+oPY+VYHVkU?4#_qgzJFyC`^x3;9i^P0z?eB%dgytw= zuxaXFU}!4KE_XZKhW}#!5Er#?egV4XObUj@qC&9X8L{*jnsuxi{s+*~``G(-yM`ya zk9Sh!>H7SSjIU$C?U zX1qq~d+YbVG3eh+1Fy_(E1n#;4onvFXRj7Okxo(1ce89MRhMG2H-9<`$~obJ z?n^Xw>i2<<&sUF)da7(}?CLmg-Zz7bIi$fu2SBgkZ=H(Vc!9my8?GKht2+sQ2QW(v z7wrSHFjvINSblv-j=%BgiLm{otiBBEU$Rb9gz9Oig;b9JhZ$JPS$e)Ctcp4UowbC- zKZ94i2E*c&5lY1Q$i%IRL+mypE}*y6Qo|&%V_amix6*_A<0af<1m|g_Ag+(DSnnf~ zW68|&!Z0ae#YB-Z2BSfShi|Lql(4T^Re;F_AwndY*sKUuh0Zq#9O+s5H>)|mF%N%< zqJ^timKRs?W^jn7B1_EW&!Dho-WKVpyR(m#P!?~khNeqfdtYMGg@RABbZecRw6CM4 zMNJSBt5^f{McG0QZ#7mP@{61hKTGDwXHX|FOJ;YzIHrQGvT#4J=^c0sS{&w9b3mf3 z1wF}eWHDcr#{&6JmXuzDx~8HLSOGadr0#R2n8&N(sJm4kNIb7hUu%t1zYqxh*QGpL z)V8TSW`iPk={=sQ1a2=(j)nZ)D_Jf2a%qz{xkgA- z5*wZgDKKj9g^<^uTL1#}HX>s2Tf zcH8mzMEpeCys{Ahj~k5y+`mU9W;s==amS8Gaxt0Yvk1{ai5sH);KGqK?SDPOj*K^k z`!%QMF!`0Lp(DS(=|}A%4V5cG+0pcPUVBsq<1rf=8yRH)HiUb7S_MLVBN*M#`)c1} zr5dLm=7Qcgtn@s8M4k7yjMdtjCf&^&0zM5l{l+@SD_{ zfx$~UIE_e;rzwSTxV#3+jDbo;q|YH3sr#4DS~<~JsQ*VI{#P@)iiW?z{*TjaGC~D~ zMEu{hfj67wXJ=ZiEm*o5Y?aFdts-Pr#N^-&N&`uLUt&DyQ832totBj$l|~3@|6Cxx z)EuuxFh)9>nvvL8cQ{Fv=G?NT%(T4fn6kP|K$!>=$p2}TmTL!=3CAUNB*Ud2;Qzpo zbWB4E5L&B~Yu>PHy%Oi@XeDkLbNOr66z&JgjW>YV(9&_5QL#8AMzEukG~E2z9OXYA z17(PUu4P%Q`{~i^xAl3&J-@pU2fbBHi>I6`fa(JcExoya;(70R9J00!G`xRebrTW6 zD>#IwdcHH#&l)D0CA{$ANm$2^j*AeCe$q?=L0>oRI<|FwYhUG`d)Ds<%W*uG%%>27 zzpzAd5r4fsZaQ{Y@rm zSZ7DGB~TR!5J}*Q4P$>&5P(*~BS^hUCPvnI-@Zz2%R+f&KKLVGvPIopawslz(@X{e z_a~G8ynRrz9}DZ(5xsSn)Gk`O zyD|m#dr{m)(L^DX?jZXqFAx`UfOo{(Zz)AWyUAJ>wPAzV*~fSaJj|Y3%0<2l#rdp9 z`fqfaF?yPKV1%Ov3Zfno?x?|vrR=i;9^8s=`((3Wvw4E&F@Y(nP#hl=f`B__Z)9G# zOz44W^#d8KaC9MQ=>}Iu_9u~>GfOlj*P~%#7apRr3x$Y)X5q>Oq!5u5 z9L3iL%A|x5Zj6aPjl6Yo+(Lj6MzDlYT>Siz$3R6dmWw8tF(2<-VzMKOLAwdSthunw z5+1$?$sPx7?0Ok7na>@$D~S-qGwo_U5G*m@uGIFCToLl{lH>fRSwqj=Y1}UvI=Q7H z!gK#`AiZIHj>{w&s}9-*4Q(zu0RtS}hH#iH+#?Wc&UYrtVr@pEga_U2iI!slqf3t~ z%NFjw_b9WsK9ZRCs3!(uEExib(MTnT)Sm?r$q4$dBD@UvAj^1}#QRq~zt59EpI;Rp^?CrdHZD4luNgDS`%?__stSneVKjAd)ST;0G0! zUy!&tGSntMXj08l!O;6a)2cjTD`JjW^XJ%?>sP%{l!RXBXlUY%7f%7k;>LIsusmMc z^PY5Cs13K4K{{4hPkj_Iyx?3LjRrnO7re<_vEIf|{{=qjtEe+HsA@71lR>KA400{N z0djGJ{)f>&KI^HzG4xtDGU2F=I(&&(aG2y$;R)woSOMd#34gBX6#I$uFXQ+(nz1kv zY`3hiY>KPbEs|W}t?hvP>P;zm5l*bcnZ#mj$RMdIb6cWBT@-Jc^OU>UK6_6Jm+s#U z(l2vnZh>92QGfL)kexKVTwgq*M)$dnXg8PiyrUs&nQlq0PE{ys%lR=y(?s+k28|)Q z12Oo$@{}3j)V(lDNPWxRKp;I;$9M!ws1_q|>FM3N5Wnm+%H@E7=>??tSm?SN52{^a z+F5k|eUE5VQ5-2!34#1FIFT7%&6YCAEV`l{gT&XRx=OnO1+AQMPmYo&4fS$5CoRa+ zQWxEq9{eFoi=LRmwh@1tuM<)OQwef{UB?a1s|nRx3Gm=7RK{jJJ%4!I!0gW88yyCn zDh7X;qNe%wIB=lygyE#irnUauc&TRN`!wcRaq#S>BZWrwN9C#=sm&hBxU10N^@d+D z6Q4!acGA$DmMeK$Q$9ZHxw+`s(gt%JKTUU|cm}Bp%Mb!0N@04lfI-*c&t2hgkdD8l z?NeuXlT-F|leCFGnrNrpV6o!WC~s%+#d_P$geunhI}?D-1}DJ`>s;839x+|}?KUx@ zG72QSs}r4uwv24AS0iRlSwhh|Nav2$^1^%4a@^*u|7M7AG-f+n!yrj?P`{l?;v74P zo-~3K4-1!|($lk@GeXM=D+tW*dakGiZPnyi@v6(ZKRe%Tu^V68zZ#{(xoSQIqh`Lg zldSJtMPmUvJeWV_yXQ%#jSpce)sE1zS974{l2F^Z)xerVQe-Lm88WlQ+^ukR(G6UQ zzZxQ;DvAwyfrr`*dvZl8j*MDih)5Jhk5Cijg1uaWU4PX{Sb5V*@XvELtKA}D+R$j> zx&UIz{&>IYTxxE%@Tnn!ojDlpnPJU%*mMf~{&c_{0eq7KZlIwJg4EZ2%qzsuvG8A? z*aYGkIt*(g{mGgHOmbPxM=!&DW}??cLY21+;ktaajr9uLaK{!BYhLQq=>Erf%njqY9*cv@v zV5Zs@LpEq=i9-x9t`C*@8X^x|4IhDdd9NUohj=bXa=QhSG!vh9Jzz2h=r-iikYYHO zk&>{HrFr{J<1;J{lbDX=LF{qp8D&37O;pW6CPglg6c8&)F{rffs%QfJW;Df0Ac5*5 zJdy!lA|(UyUa!j1mDW~&sx(W@Gh0OX5tIg1YzZ^0m<}#@x9MgEC{zq&tK*Ax1=K00 z5aO1sKm84gZxSU*=Q~=`=lADUTg&qX^5p0vRK^0zuV%QtnLRyD7|&tdCoH(4R1#rk zH$yJza6J$)!Qz=himbS!2%v8ydVn#G+rAJFjN+RKY7>qNMtx_#B6bUgHtaf51q;MY zJS&C-%+tVEd06+*@{^;YOnzvnnr_ZTu0guJB5RZ9z>Biv=6612?mRwii65R|^6#%i zSGs<}!}N6?(p8~B7!=dc7AcBt=ui(RX~=E#B9pq3=l6U;0j z(I3HzHJB7Dz5K4;rv4DB08(q%vnKNbn~kjG5%D)nD{#OQm(7Q=WDIcQs|Ca#H_Gd9 z-r?Bv1~@C+{eB!QyqSJ-yxP}1;`4Y=Dn|G2Anz0Cmx^q(F*Y&E1@cgC#Usp;EVH3_ zb3O&s6_)y2gV_dhEYZR=9T|I$1)+(rU_XQL$*!0&Tq0zHO#WgM1tQGZGB_?fByAWj z&JFSM+S%%|%JUa>McsA>VW_r8)&?X*kHP%RajNnV>-iy(d-_@l5pW-%!84x)?GS|O z(^i)srngtaq+4fhx5S|ca&KXM1}{yLr3Aj;4+Jm1?mmpczgTbp`{842maceK-`i-a z3J&unDH=E_9#RDoK(i%9v9OI1b8$%OHVBgedrhoUGRI9+_<1P8yD_C&ZtEclUB>t8 z>Bn57!=<1$qVTg~y_|8;7!5R0eHj#MES*XtOsTB6#2%9*+pZymR?+~JfcIsATi?RN zE6LSJj*KaN(5<=aZ8~DsX0}%3rCLGVmNJVd0o~-Wl{mr&x+ybhT}uv zbgd4=Iz2HlX8fJpNLT5OxvQz_jf5|kXa(7rl zq1S?u7P=Ff@?VUlgUFh-!-qeYT6E0+xG;{rv(!RHZ%5nWjz~UN-luo+MD1z0rUxP? zziY5e-;TnR@(do6_3i1(!F#iOg9=l{ls1q6DVFsr8)oT?`j}?t85r|J?Qa5mywE2? zi(-sABRsg{gniomAgoq&G&4VX#1Y0s`uRkVPv)|r3J3C|Ao^M}*M{5hBpiQF2rKlD zI9(x}wXT9ER~aGP+wrVo6xTm65av2xTnFgHZ`EDY{`NYlHdhibxggb!3nBl5Oyx!d z{A~IQS6u#so}V%?`AN@AO&WDEx2AP-POPqCoiN2xiFRs%PSuu`()?^;t8yh{^W4g> zUm}yJZ~Y@ak^!z#DrGRay56_uNlxX;CP8-4zMHN`Wt;ZAS0;_)XZq*rRZX|?1Vm>e zEc3bp|NK_MqmnF zjC(S${gboWzZmHOMjUu1QFiypy7C5xcaak(4r+%_hhD2TUKG)ost)MpGB)RO8Q>8# zrPe}!NEF+|nK+Dw}_18{>jYKz_ce8x;QO9>XDFCE* zGa03c1^!2V@$gpaPi}=EzE|R}Qc}3*&-{26-^$)-^_~&9NIOKUs zDszWcV{du$-y5ep9C5oy$}ZU}ADXAbMTU6;-qS+CE`6BgD+{clcxTB|2BJQj<96vc z^(fWQ>`>(jmZko|hz8~|Rn%f@@-h~RZJ*b-t9a@l6$5o%7MuAn?LPWH;A08u^k~3L zOCwKbU>T}hh{+XR=d3r33%Y>}#WNwx;BP{O1GSp#@-h~> zjY#~UZBjvhwGnDWnzlQjxp$(m{xI3hXVc_B9VZpw%POBC{RLyINs_{eO<*}H`UKbR z{L$}lVwi3Gvt%#fE0E&^u!IXB5LRrB^k;VYB95D@DL5Wf4C3G>0(Y|?KD=2d7pn2HR)0_+efNh;Q2VcSv;lTY! zSZq~h3!My@JjM50^NM2-mx;999MdAbT22m9y4Z&eaXO zrjSG6Beh@}NFbdi+Y z&WBIYcnOg=a!gyvtk3nY?Hl!Zs94N~6nLY{ObClzI6y?$*bR)KyuyzIUBs%(-o zG>R@ge{mzV@ow-;PPMca!wlGw)=x8)9~+EHwNu`>%Z={kZO;1|YYQ|yGAZ@awA@BypVh>HAvN;gLL<(TLR9ApW z71^DFq_)OaYwL@l;*6Hg!0>=u(m=*glhBH=xQ!)OW<~Xp#4|@l#v;&6jhfvoMS&XmM(Mv9W~k40T}TJo zVA18;ZmV&TG<$|UZ3y=WMhswnxuuPlySua6ELZBh=gVOxI~`~>I=6>hghcJ4=uPb= z*Q6pkRPY=dq@S$R=qRF(AmZfe@CHh~c-u^?ihA6wu3z7a4X86aS*&pKHneOQcnVS(6J?#;BYc244n zDV*A}1n%R#}lukCKdv2!mP{A1*%?nJt9HFK! zU395UUJ>eOO?ZgK5!ZJ-?(+l0*g|+E25ZluQ`IRR9{Q9K`3y>8qH0FR#Wtx;Y??(?jTIk6lvZ^|rX@+`r0)@H-{DG@gv10*8Cv`PBkhfQ%-22x?_%`?G8BibEZZxEs8<>~f9&#Hd#PGKhp3=C-M}FFNpE*w(pG~SmsOuItntk4C~eSS)KP7Q_@t= zzamGZo}H}$#=>J+uvEZj5h>b; z1!R=yL{J>N$mM-OB`%n)C(4nnEu(5yh|{dv(j?b_`A3}+X+Dh7S)ks7mTDfb+RXiYGI1z52pcdxHTj>L6|d^VU$ zjtFf50Ua;625X@8SEY8-chYII-hY>Nb+*2Bcqc5g3AaQDVQhf+{tIfrLgRfNJiwB3bKCL^fU ztCLB}xQe6`yy>Qd$RJ)LoaVIk5+uUKa~-^As-kcfbPWK%+YM#q%fX@2i6ETT{;C7I zGX+Id@5Q>oO=|pDavHnb%ZK%ztv68DW_isNVBVocv|%}yD7nF> zz+&1?7z6Gm!uBBrOdvzbWKp=yr)W87_e&LcLXKrFemIu?O$@@-gUX5HUE0AkZ9B~# zR)>|pDg1|*_J=~70L(ftK1Eu1Dmni#$Dgmti|K@|;CKkvHrl}{XJ6yr?lX?nHzkp0 z)!KXc#|4o|=P$X8E1u#|zM1j@r`~M6+xiQc#jDGmyCvttp@NHY$OO|!`-b^ z7$gaKw~*fL?Pve(-4YBJAv7AzWo4e36-s#Fh|Lin3t)pBS>I6X;_5^hYFNT1U>3P? z!Tc@_!iY?5Z#h|O^4B}fy5L^I%_BM~MY203OS5iI$v}yU+_GkSiL@l1wJx~-ciza>{3VXU2GOt zOi>p(Tj!-*^x&|+N}HsL_4PO=HqeS`l1*?mk^`?OQQIwHy`v94`=aq6OJt+6g2&qiE9`E7cady$%-|6`q29Ex_`pY;xL|bQ~pM0+Y zKR3Ci*~v|{!Y2{&iz;ipH}=n{?XCchQ?{<@X!yyFP9NlyQYsCi;yV$V9_$Jp>p}Fz zX(W9lKZ`40JKjZ}Oxo$AFgKoF7gKVj=GY|qw+=h-^BO&NmMY+Z4(Y3&ThlY>Cu zVe&|bHx+VN>LF1JOS1v%0FA;&L(IPn^ zL}p})vRDfG(V)RQBPSgqSR`T#9G+}JD1z;0kopn9w-0l19;dpr#k&(cN-JORdxD4; zROJ@#>JqMW8=?bgqSLvUz~`p>IOFOa3`# zKc$_(9SA^>UJ0uk<+7(!mY;yAk!i$P4rO$~qEL%g?i~jctFL9$8qU5jVQ-ZF4#?ob zGZ5rDVSgV_5U`?aijd0Ihw#%Id%pG?HHMp-k$i`#6(il%4hX*fniCUHj?7vQdGF_* zCH4%Yde&@y~!242cUivt2?4 zd+z-HC$!99E?faD(;ukmZk?Ci+hf<0EVY98wwsgA=mbmy3A31vDuOtq#>ve1c0q`C zH=}OVN-aTQkQ0m2Cd;|(?LWQYN6M;CC#y9?bJ89j*taUVx*_)^K{zPhb10W%Kk^q~ zc9vU+K`1UK-ChX1QMv)+P#I$PMfd>(mvQ@zArL=qdQtRHu2ZB`QM*LUcZH92!%sOnaGwwe{$&*{GL5&s|5$%${}@n2Mm?3F%g+g zg{X!E;!Z-9f-`6ig(Zy420=>OLXd=tUh3d|i->T}+ibq2t$#Euz+eA{NJ)>Wq#J*_ zt6>fR-+>5um-=KMhr6*-xzG}JNipQeVP6?!)HPkf+eYrS6-^M$9Hz|%f^smk)~0R9 z>6xT6Cz!N)Xa6Up%s5#b2h~@6(d^^A}Z=Eb_67 zt8Ln$t{!tN`XzxIy`16K7U)K9Vd%%w!8P)X3$^82lm_7PJEF-4-bD-fD>I@0Y>tNX~YHvha?xQZ|bv32q+i`Y2)&9mnV|``$fNcb8>q z%(9w8oaZ()5ewGD77powNNeqKP&eK8+q#fKJT(9gv}2t5?pAwb@$L-zP4hG4BjukQ%St{pXa9nTQkYA`Cn_zL?gglAh(h zT>J2L{1l!&AKWm6R9@$r9$sS>k5++u6ND8ib7D8Haut~SPy+V@hb6l`P4gm<_q zL;aa3TjJ* zXyjd+?MElrS0g3G$=VMQ;_SK`dd7t*YxogPcgCuz?nYUYI>07t5MU=$!Gg=J82w)? zWaiz2AUGn&_ZDRaj}jCQvv)3VCGx;{?ZW87s?EYYutz2%Ze~OSzN8nMu`+To70>!oo(h?^VfohK~9`sGV%6Wj9uMxL9I zMDp+EPr2CLh_t$NTy?0;M&j#HE*;we!qUYJqJ*WQgzDz8QWat4Ff*nYhz2W%llS*s ztdZU?@fUp9gp~^_Tq0pDw_yOWm6l;QO)fS)oW3UFgchA`Y{FCFZAjK5=5VeNu`I-# zGILh?WZhA7JX&O#Z?(8l{SQQE-9!q?Ukk2_-@M%*k}`uKigc{h1ae2u;XugnvIdO9q`nMW zU>aKVgQo06VRKa`nbNIxOjG$RUR}-2<^W6VU(Z%p7uzV_ zzrC$TbJ)Dk`)7L27wJ;=9r&fqYSXqzB@hxky2O;M%Yb5HL8dDF*lF$5YMprg zRPriji3WswM6)ZS?@g2lvYws>Au5tY*I?Z(-IRF@5%<^dF{QDgzjdrAGMU=#!%Mgq z?u+IlzfZh6U_>^i^@tDfy-zI9ZQQMTCG4D~dyR{>J<98<^f-*!#LkP<`Hh3i>Rdj) zgq54jNqBNQw1BY(&Y2cm3va3jfhZ%dYyPg2Lrw`RS@EBrGNdhnI!p_5;q|T zYvK|I2s%vX`nx@}Sivx0kUW5;_>0$1I85YF^7GV07l{p&QVOjhb&+Rz>^F275-{!- zuEHl1*%w#ad(ZpH=_31Yp0mMJ&My4G&}I5K}HNU7t(S zK8E})bE&Gm^R_LcZq7wb%ous3VlwHQuEk3GTMSApEOG{J^w`IJpi{b7)foUfC2?`VXfN!*A^PfhDhjtU1%dJd_-;Y((eP6j% zUl=j3d)P(1QWVp-MXGv;+Sc=wvB5$1IuR9oiW3Ow(FvO$R&Y~iSJ8fLTOP3YX zlDw`;Z!uU{$1w;-D8p^t2%h-o+pQ;ar2mBUj|-kK=+QhI=&_>o5O?;*=9~1u?5vVO zfIIbmxAH?}`BgPU?+%R@0m#dxuZL!+C5!MymXOyLLh>-sW%Ge_E(Eb8Y0Y zWk$dfaLm0Tnlo=~;wwlYR1x%}@ms^{QOcqc#N*c>%ozZVhLnMFl<%$v;dg`3iMXzc z1HljXSz>L2MoAWN64jTlwxse5p1H#GC5IIgUJ=UZt-D@@q)DFWhw?fS6&rXUkaii3 zN%yT5|B{#Y$KffGI(H~1)zmBOuM$V`6SEm*#UC$?2F}Ju?~Ab`4`YU@gOz3-k{2lP zv2?v^J21u=a8)gcF~UQe5|~82Ydh+rb>M#HzrAo(J?YoL|!359V1AI|J@kdxPc z&b3OgQ99L@Pz>IrIhJH%M7Tx6RejH3!-? zD*_T}o4r|6jRsxy86CfvA%3yD)4&&_y)IJLoh%OF#yr0y(e96?ft0bILR>&X&~s1b znBvG+Px=M$a=a&Y5WrOfpp6C`XuJ^}>V3#KvOfpIKn#YIp9T~mvmpc_gdQfrt{K9_fA)wYX` zZCWxuwFmjwnYa4<{nw3mUnk*o6o2Vl7p!yQx$%CGra2J+^)F=D#L4O=GXCe3zoR6K z2c;cE-XoiI$~N0=#S%E?sR}|W*ICaFy~uS>pr@~*e+}Js2tuIG46D1c3JvD#SxGn9 z*uXjw&4W28W!o@r=I<0Ov>2r}V@_i|(naj^ZIN_cp1k$_&R#V2-^O$N^9GHC}_aDqxMPCtgLl6oo43 zhZFAJn#qWK?GRT#JQzp<|2;~BLltBX_MX+*=~M!MC44gxUypq17#w@LnC^Gq(&iB! zNo+3FIfLI3?WFz6_P6AO_weS}4%+fToYmoZ>0-cOjCSSmU84d&&DF6V;+F7q${o!CA7~dcqloe?Ew;As=BBV~--WKTmm$mYOy57gvM!Z{J#P6UW zq&OY#2TT!Ho66aS{_CpEecfyd@Y#!(D+7*)-ub-VCq8%h^}-*BvZ|}Ve*TNt;t@mihADZqRw_#v_XYwsxPa?$kVv&KK5 z6M7^aA;8$GRCPcVZ!8UY)4p%uTdxW6^YaJp8&Wom_^YS*u_nsF%g;ROC}=i?vO-;&vPg%+nGr8sh>fCX zP^UHWO_-pgW(3p5cX)2OiN9T|60HF&joe4bN%7b}>ru?`LfTBR{S0q6tTHT%VOtEF zo^w>{2BKch6Do_JI?(II!g1_inQp`{KiupFkB$f?8_+9ly{I<>6$z*JX|po7NvbP< zj?80Lb?cV&vSpTx_GAxpH^kQcU8;h#&r#FLS^uFF7W}u%;#qh8?H`e~M$><5t=1}5 zn$B<|08@|FQh?)pxs@V5A~@RlrEKl1dSazvForywdMlMz#3NX5fMq{^>O6ibqhtA4 zgMcZShwgPxIhxsJ3k=!pyS5V8bfVQ~iwuXkCx?9g^R;TeWJkkd$=fbbNn=(YuMXfD zSN&~qEtB=5EFkX{yU-B_4F(j@bMQncfW|PiwjOvj!r@l^A&!T=NsCeXog?U4V?L^c ze8ncha9Of!)6!x4R?YR~xJ~Y}+R)7U`5<#8=|iEu&{qE{ zz+B6NegHeov-MUy2;)&;cFB!HbxdUveLs6uQeOodj({P`)w>$r;Asgs{ZNqnxV-%v zyc-7cB3W?X?d81U^Zp2$zl0(4FS!EPoJO=K<*=Mlu=hg~z7}>jC z65a!29Yx>Do%n^#P%X0=o;3 zv$ubWqK`FQ*(@*-c#Gp0T_OG-4A6TqI=kZ!xVP`wDkX6IluMA;oYcC#WwaH8SNZY}rpgf7yAg6o_K|pvVO6y|b ztAj(fviF)z-dBk=NPqr6tI-o{W+%sbEe)HHUsW$jfg0L1H%HO%`J*4qb5<4PPp`SM z)iy&{U@B;1Yg)TGwYCx~RtL~E8q}Jmw+=L$!pbJ)&7`?eIZI*a4t{{zRR_3+hSe-C z%hAxb+N_;_v^FowvIHC3m#5dv(+Rvz8{52>Hs&Lpnm$iVf`30>+Y(vlP78IIQk>?w zjI~U*AH<3E;`&kvZ8kjDpp1+b-6cD2jaW#bCW>g~5{86M|etSeuxA}(i zh;_dX`zUkAw|_(`Uv%q|{LSX-MG+x~5azP<7t~7-HpdzLn8$T3kKgXZ1GrSw>bDWO z%|VDM_6E6ob)vMFcUlsSF|-JMhF{JE6m-R zlq4p~Yl(4MO@p#**uOO}_27ok0S~UJ9aJfaykgJp0k}Fa+6OK_E1b4H&A$xz$ z2dqsHubu$HK15nw@MZgPL7CN9>BkUD_PUQaMZx2{15pG0h~jX;BqKI4q}`)RMToQK zNom&~;D6Ib84(hBN;<~6wd!_m#iM+&Qdn3b=Ze$1%Y-C-7^mO_CaIvoX z)N`+F&ZG_pz_!1F3H=DQWZX-n2yu(r(^uU=V(St&U~cIoLobQ*TWZZe>qytf{C#~C z{6pz)#qSP0@eee2TdsHH%$KcVL~e%wx2UJ^FMnBUqf-258v=Rwhe5b22E#R~uM1 zmrCL3hJuJOQ;FgvUZ-8=diXpCrVcpXsNxC9d2UXRD}_UH%%zz}H*IPYh9zhTQjNYu z)+{Y9=gBpyk0J1vfPmduuvm&j`IRO7g@Dx;l%Rs>Bb(SNwi z-1EigSEo9o3bAHf=mjmYVlA|bMl+r-y-(0qCw@tx+5UhS-_t^b);B+k`PbK;mE^u^ zX|>+qdY0aL$~xE`k4GQvzVn&>r4Dn$kls-JcP5!%##iw=ehb8hPrlf#+xr*pA-reV zCz%4G%E{EJ5Gy47aK6;{FCtRCvww`x=Y<3dJa-H_P*RSFQ<3Moz(w@Asf-_%V&MkuWcdd(cWTq#u*#|Zo9-7Dp8 z&X&0^1tk4~wTFJ2{-PZ}GP^lo=yqAy{ap~&v35O$O2w{wQy63YWtWAmaeu|v544Bc zcWWYLxR=g#QIr1pQZJj}x9zll-B#_hv?wv;9WQ3b`gDN*M;!VwN$Y)Ks5C+59Yeb zh*1XM`P-=lxUmA~@#`|f>whwf>A9XQ=i27=*nY+)ImdHyHv_s&F2{C<%zJ%Q>?;HK zcg0YJ8D~cjl7)82-xM@r8Vn;q5HRu9eeVIiMuU_KISgv1<@t13kc3QVPTr^O&wjN6 z%7;!}ntMDXV!`ViE`eR9FD!9eT_Q=#mQ1En3Ayw4w6TwuV7|krbbs#KBk3rW1@i@fsadGx(HUwFyd;Mj29o}PTAMEvB?N^O8#9vv^!%r2qp)p-( zYBcSi)Iq_ZQTbg+EPpKP26vuVHm!UNQc@^=aampu6?Kd_-H?=u*Z2kdXP9%m7q?cQ zgeCVMk!!F-n(){a*n-8LobgRpVfzYEW^dK<5f%TFe|4w|CoCHse}YCjpgLtzGT}Fu zhQ2sZLLCtaMnRrpwZLY*7pzmowta@CD{#r0NnDO@00cU8QFQ|6+-H?5`)+&1oRiY9Q z?1r_!11Qp@x-#UtW83J4VLJ&%vtQkC&85;LXU+CT`d`zelJx4V+D=CZ1>!r;%czMm z50|Cb=pYUB>3{Q7fakwA-Pg)~%G&Ho85Bz&2R?2yp^Uhy`)Nbjtr5RcNk?1eWar$e z7#Q`r4bZX6a}P0$Y@OUn zEKE16M>5>}h)XLxnmZ#fQ$Gda7{_ix4(P(8yS_FP4F$yiwvcueZ@(-;KxGn-CZ@ECq*$tNJam7 zwXZ(-{Sju}a2};TuKqzPQq~gKy*XMeFLiE`ur8DN9Md^P7iy+Y(}kYVOU5Z!^Woum zHxOdKROet|;1A#NiAudd9H*H-6G~>7F3xqH(tp+tTzQ_tL6@23G!&@VLeSzedUQ`u z%K~@oLW(_It@N*Yx+Kah8cF@a3p?B6;XFHg;RSU{aU~e6&Q0FNIJttNd<4~5dv1yLEOi)CR1CJXp5 zDKuHZ5EfkeArr4f3AfKx)>jw0JkMrBmUFDNO0W)+i%T3Rmv!`S430X_esS;I&a#CT z1>Q6Ton(KJX+T!RHP!|C~e!I_PSQ({Vg1u^@8%tnh)Z<>^U{ljaRmvA=-dev>kRaQ9SycFP;D`U_Mr9@8XL60 zDXB04ZD#Z3#X`OInmuH1`~-Q4VI;%E%HS?J0@!qFrT20me-iGJtyW#}OZKRST#BV8 zca>__O2ut&s)^~Hgj%TGHKkG`$$uOAi)8*wa$Tqs(;Q|M3)}P-HrH2r&gRv{w!oqU zqU?o~vfzb|0D*+-yUGj6QsE);(Z2cLGw}i!SnI3K5M?3avxk`xE7_4DLGS7YyE;QGH8!a_4eQ(674JQvBeI-w>*EtFOE z%Q-Z~D}V|f3SMXe;8*oFGJnX0-e$vhR$eRhK`Kk(zdkS#HpVKPkSsx@T+xL)_PCyX z7>Z{wejpP%T)_2bX80*{o}d}vM72zY?M8N%L}qNG%6N`2PCpt<$PuVQ&rdm(=Q%hTi$feC z%C>{K+HvX!OI#bEpLTdV(~zHQEVR&uG?>X~{OQ2T242vIyh9s25KKHw@&&+rE`ZE9 zvaTG9;T*dY00u50Rp#e4P@(I)4@~B5Y@R_s=-8E_hD@01F@FcZ#?SUBaX@KAqObZ6 z%l;sk;g_aUQja|w0`YJxrbkbI8sALdnjk{FJyZ6R{t)(B%cB zm6&FA=YjeFL4UgX;fItDxey4X20qmOEz-AfpGmZTn+Fx9{iK=0~Jyx z(M0w5E1QHfz-a>8RdQ{yp_p!4^uvv<)~9aMJPXt24@RYdtfgH?=!p3+rv37$0lhQ~ zEQYbmU@&hr(*8MjU^w`bww%7okQjiEATtWnScT)cD1Q}U@eiI=W#V#=fH1x~!JnZd zZ+r~G(}N@?=ZF28OyR}dAE&`ps}&t*##?)z;P!l&wkc zUhSMG^nd=5=7!_pU$o(j=mec3`mZRRm5sCPw#N1bJeti2qkqSU1BvhY^mq0Q0H&C-Hbe^Y$7WA5^qZ$A`l4g_iC%FD$;7$Qe#yEvG}*u&VNz0jsPRR&}ULQ{%{y z5`Xr0jFAKjjRCk@Vx-UEm;zD)aEY>Vcv$cH>44PmV_M0X|uLzIn8+1b5ai1WGQg-u79)&6=W4o91Q+eLI`!!Va<3#+VKE zhw;aUlZ}B)`*=S}nv6c(J>1)?CO?4(dVi{E+sC8v$JNB$Pj=~vpKAK??%o%>Pxe3i zsG6~}JBlbD?LRrJ&%sLj0iFq(d~v)RWghI0$H4lB@nm#7Y0BJ<3oKc9WH|Jg2!_{C9E?#EwDb`HP#EPv9= zlhHT3$3MVN`0p2=?N1s2p6rgk++6_xg*`ZcPs)`xayWsql6Z}|bt*gzFo8LeF{pm)rJb}#uQ@!#16QfB!E0j9Gb z;K!?Py!F;=uf6rk;07Qr8PVsy{(lPmy@r{Xg5XFK_7K<|=8%L>q3*r(>g(Gd9FGo; zUK*vj8k-s6gKWu5p!h!POYlT15V|4vVY|HF@yp)&p%d@COO&nCID zKsw4|)A>q0l1Gs&MRnZ&l$PYf4QHcMkE|1l+Gu>gqtoUx}dV|NJ!m1vpk#A@6(& zH%<(PW>Vj&cA8uw*#f8Y8LRNi&1-~xb;B>FSFJ~@1j;mXT)x6&V1Mu#jx7EjUCv9$JQk^{1TF^QHibXLCI^2bpdMYR2xfR|V*+{tBYDz!4dn zu@XHlOGGDva0JuSfcxW^RG<&5{wmx!tP(-fHxRJNYFd0QiT@Z(xXdc5KSUZ-hWD_#+oOct=XbQ3ipRDk)p+63}(6Ji2!PUFuy{Jk3Ge_28uqh zJmx2|@Jl7p+5)51&8aaOpF8E|M)ZoO63|}jt&~~`#SAZK6OPvEc!qUb}O4$ z6A~dVGgpODe(s?oKci)(qIs`IJ>P?ZyD69HbNL>3E{{^T(tn)Q8>gCjlPbmGcY{@K z&vlYNfWFqyRyY0dB!VlR@4$HzPob$$CJpxQs>E!s>Sc@hwJKn*>4LVAnB=rj*`gnW z00+2@g!7z=mIb(Ox8Wz;As5b?G7^B(YW1ny4=QfXjAj=A(H>VxrM2L4=4pc9}qG{Td*B{s&NeEp0lHz>f z45h#=Z8LqEEaxV89A_4kHwT~S0Dhq^?3IS;0=F~gZgXsU>b5ttx>zPm3>gF0FF>7S8GqROLIt~a#zZUJDC=voX0t*a z{2>iPxjh-mJ##96GFG611Tn688lqoqt6u6}SORKoawC%es7~>Rdk)*<%134&&JzT$ z6^C+q3=m4f36D9$^$EK@wIQ~A(ko^bTgXaOFgkV{!|VpG4r2Ry=FL`I8;@1lNHiMu zSk#^);(t1-a1)oywR!2O&vs5OE`F^LYJ+*up(BYl4x4Vdf`%orn8j7kXndT5+gJx( za{S8Pzg9_<(_;W{0-SC<`uA=YUBw&P7{rDhv8q^7vJ}gtrD(W=Ha$(JMmadXy=8IZ z43@cB5u9(-F)-k&?*p_(1vqQzprdAxA%Dpru74H$DgV#cQ(O&3nOqMHj=wfQyNxv@ z+j2PiozE*HV(I~Nda$#@fOnLiEiY(9IZ}^G>YQnabFFB1Ueua@*z0+mf!e{|cOQmu z_MRdn8YJ)K*#)I37y5CJO+%Sp=l~uYPmlb2!t&+v@b>@^*FpqjM?^s&8A+=i*B1bV zYk$bea+V(tS@O_zbD%aBbMzLTlT-k+@!yVzOm1SZ1q?j>kV~*&x?!tng8|ahr~rK7 zpKlu~z^?~JIA{1uIm&UZW%-?J%r+n^lyAnqz)#YJ_I39PW;PXe%Kx7Oh9IOQk(G#q z!y1U?z$$AJg7RXnb;i)b&rOk3cf@Tx_kYH$2mkh8e(u%co#!@RDV}@f_1W;bqW4_U z-%x|Fm;=WhOlfap^&Yx`GmAlWhZh9HNNB9{G?}Nr>A)4JKK>IJ4E?W*^Exmwa#BX; zBQU{%^Ra>laA~1Ot8-IfNJy2s+NIpeKQuOZ-|9p>_`bjOP`SOUZO*ykm*eU}W`Fdx zvdZjPkiSFKZT>UsZu3FwuC3;_{th*__0O!itv|o!9;ym{nA|0ld*=U0?hcXMGtc0^ zE222eZi?ajTz`82XQtEt>!BO#S_W>MUK_S?R`;OonSjyy5!YnY79?Qy_Ar+>$o{4+a@x-e~W*AAmSPzx(=^DnNre^HQj$C~Tj z*tY)SI{O!eXZKlWupTC^hTvm1bV-B1oxxn!@YmMh?urWZecY|;>zTEy>lyk_%cRva zt#ejg0v>=eb?14m9XCY5!b`6bx#nnLonRr5?-tQQ+x*UMYs7H3`5hy@YkwB4cWWJf zh?~6YZ`U&0>loyQVFu=Qry{)WhQz9i4+@k({wq8?^F` zYX=gEf&GC5X(Ft>ZkA}P!$um-kL3RhMLbX+EgKo9z z_1`h4mSg0wSev$3cI}Rf)S)=>EBnl0~J57l72s{}EoriX{-| zjNDl>Ni1j$wHIhG@aiixUW#kTU%6nDIl(q7ZdCFH3%4xCJnOEq@PCHIL~AdQ;4I$n z&+s+}({8-G82R0`UR<9Rik8lPP?J!L?oDv&2Ga$i5#8!>cb3K+>h{D%Z_6;`B3JJH zm5MQ+q@VEIkfi7PWKN}1`~fBOsB2$a;5Ii!l-SP;wfhguZ#+8{S}Sdef4;!~{k+t+ zDWp0VQHn78==fBmK7YKin0`U?kov---xKNYQg(zIw>F|p(yfW<74995RZ1|i?x(yg-%sdVacLxkpzSAT%5?0yC0nw@ZnD!XD) zk+<%ULn62AmO~N^opWT^TH)Prr`IbNbzg@91J0QHG{M zw*_apKb^9Y&40>hP2zNm*+MZZk(e6~YpTfb*`yqkJ43+1opG=Khh|A=@v!N%w5Wj*NR_={~k zV*I@Wwf4mDH?_g3(7F#%L&-#-8p79wtD*&jAGP)ncW`kiD>=%5Hpt`HR1jMuxMeeL zARz(sj5ts+OlTc-yzD-Dr^06kYN`VC4c1t4kkQ zCDWSrw^_~%K4xUMwh{K-Raae=^&zcllqve~#H0x$3;j zSygJ58`r$*Ni?}358~#<|9nH6nkb}`jS0KzFll2$9JCn632b16L0FV~o{{M=8)G?F z=44!YRM`?uR&yoORdA;|si_CAK5nc@_2G|tq#ZX#xes3vk#}XsI_XfU+-Clq7A!{( za(^`O)bT+D_4-4n-0z#(s;B4M>z~y%1h&y-xV(NPgI?VL-Lzo&YCBaw{;*tK_QQ4$ zPO7f`!=GeZR;>E&!DX-P9~_kQ9Q81Nb~F;0T>BKttqjgkePsSWOlM>`<}+9}cxVeF zet$RnBB2_ri!)c-7Q-}ImWTLr?MlUcoqy2D%y(Bo*M%`E=3Ub4Rko<_7w=$-jWZuZ z6auZSLCgoXP2~RfGE9`H-YPLinj}bDMQyZ4&i<3TRr^n;<+G#1@jl)(*t~pplojNv z$%-s^!}3{^ectOnm0E$;UPiN2IxnMHgw@Mv4y=6{%|hN{8O@=_%V<_1cUnfXM1StE zjOIu*FQYZrWW0>#a+{aY9L&Qnqh08vSmq6jXf0)H-3t>DA9kkOx;W=)cid}Z*>zvN zaWciLH$F37y=inEH7hwzDnE1ISWYOQW!kuoV*&g+j%N_BF&0( zgtl(frTM9@H2O~WPMvvK6Y|pqUpqESa{!T`YHO#-SqHNk_JSJ`;5D}HIKYeK#(DzQ zk?>8jGzNJdY>gn#3(G;CCGn-6Zq)^QHor00vjAO#JquqO?1h<5Uymgk2Y-D09glG% z67dkX7Nq^ctQ95+%G)MPTv%Dk}pCP^7<`iLqE)Z8kQ% zWD;$JHvP>k_4&hJ0isrf;jgREt{c&QLo_+?si)E02s})CD`;y6TdnQj&-J<}5_{ag zQ#<(Ex!N_`f%UfaR61DNR)4#tRqZU9mub12>86^yv#IQ)=C!&>cWw`4CnLjMn#teC z9w57i&$EeU)?Vqu>($k+>bJ8*8l7k6G2)Z#3Ip$axqu^Uw>5z3{+5WHWb=SE5Boxp z)iLq;>s*8|3*WObHQAeopyOqJnoMa`8Gz>ycH?onAhj1z6PTjh>VL7MWJm>R!{aYL z`)c$}-0?|5(hZ5c4lAOO1Bz?-T+{89x3)WTtKwt@?G--aV}|JU*EWEa)qg+XczRlk z>`bhlhba=UxJb(LVFK=Wvp%99{yO|^(3JBl*F4Kn%iulriV#KBi&2~UqS{n1uz;6o zbmx^f#yVsc%o}ALjDI`9+ulVA8+GohZ16@VvP#nY))rg!l%C{6dd0;k&Hp-YSZAmt zQcX)pF}-O>>M^Bfiu2oQUUhIzR~p1l%WIBzZ(ZfpKsqA)aPDk^^gBNwSc&D@pv+8e5xybRRnJxa{Px<7FqWJ-O`EzUpM_!;!edqLU}lyy)aA zx_+U_cqT z%Q%JKn_Xy2z<)O3#9W|2YGN13HOjbl%^$TnFt>J06S6E?{5k_qxnSFB}csK@zt%KoJURT0dpvt{;f#BeCR6;RUzY?2+qy4Vv+&ER*R^VavFANA8H}{e< zn9t4FFPzb_v`&d*DAT!0E-pY?d)YkH zep;OCSqm2mYMkQv6AUlX{TdeYaWou1; zxpa4PZkmGwMfGsXI^}r+6>km4pLFdjOea;9p|1cP=IWe}zm{k#_&!fNgHicyw(!mv zld58Jy#ob=eDv)hyfJ$`+S&hN+~PV9^OLmPPV;Ht>?!STN+W4(bVJvxr98RcS$~=l zO_@rWDpZ|Jjoi?|VJ-Mf@AGIN6XxKrwkC0`PnUWgI$xLK< zMJ|q+eqN^Q#*^2vR6TyEDh2dHFN!QL`fYJ%OXz6iq(JPe(e~KKV9=2BQMKg{jp_|yD zW`EJB;VYVfosFg(fBLRkWGDm$+Bj~b zQS`+{(l&Mkppz`5NC}b>BtLz95C7DNRSvi>u2shjms*ghPUL@ zur8U`DMYcl50DZKH?WgaacfEQ190icS@2*r>|9XdPug@O{H}jW&A*)Q&@80 zPT#vE6ZHvPoZy|C`AS}5j9SubIPH481Sr7go(FFUZc#Ezbboxf`xVVo?d4kEbbvm* z)C-)9xM>F^gYF8vdzH*I!+J-Ly_}xXyf1fJ3k9GmBP2JgU3nf+wA29}q*-4RM?9On zmPQOtm%@@})37psvHmxC`PtA2Q>sa*3XW6k%sE=ruWO9VA?@I6JQy6A+5Pd?T zcQb^^mpZ2xc7LTEfOjvY8B89^3<6zruN|qAHL8_$vz{q99XXVh$EmzS>3*Eb@r{pD z`ONq@RsH(8JWhpcx?+tk{HSEQQ$V6NS)gIv5iN@w9nor-|FcDDJfvj-{2?vLf}uEv zdmI1KenH#kA*=q%Il-Iz`LOuW*(whopRHQ0)L1L=(tmnt0pY|XP( z&PA&%N3|FcQw zKY$Dls=A@<_Xcg;1eFqU?6$x15B83=xs4k5S2XDd9JrYD0hBU@2}ytqr74M_9~h={ zjW5lC?SISMo!bVc|DAp4wU*9z=Qw>(14De$YPDLeR=d(l@}R?zB0tm71xQ6f4k)tu zL3CLI8W~X30MsoCmfb1Skxz=tOHdqkF??inwyAbWkuE7N6G%_ns=WLoud4X;AKf?Dvk_c=FT22@p9E!F{O z+kcfkcBfjs+HD0wE*CpeZM*08Y@do)>C^q64iA2Nba*1?o~%r~-$R2qQU6-hZx*G* zf8t)Xl4Zl9R~ke6lPoQb$4w}I#Sw&Tm6~!in~<| zoao@26?Jp~x#;EMDq9&OGAm?|&#H zwV46&XCs{8$V0&(VvaM({|yQw2i?#Kvi+Ir+It3_$CD9D^C3zHEm%xo=>Af!o8;!T z0COO}&5)sB%33HhOh$p#iWYx=;&Kq~lZ5k#6P1HiyuJ#dwnQDx#@Xwjj~qn2mn25YkLE1& z+Lp-N(mj{aQYqxq8AP3^r{IT7piWHZH3$OVrr+4@sjk^?rtbQrsqaI|1AiF^L4+(E zax_te77M}5sk0Zt z{83?Y8;31t%&YVT8?fe}AMf^zvnidiO6yDqPgU8V+BOUMa)Vbd)ap#yQ-9)b6X3%% z_}I*)ddQg%@SMf>e22Duw|}P2$}P1`1uQ`>1n|NFspk~qROon|lP4-Y$K)?}wd=>V zlHZ7QQ+emjxHElYM3HM~>Fr=2CX}wM+ct3RU^1PAY56!AeXkxms0Y#AaC$-bzQy3c z#gK6r4P=H&^Ir#!Zr0bk%&P5%QP@C%5TC>fOK9u|fK5hxw4TM8(|_c$@HbAMv_@i} zc$Ro52{C{#3ZzH^IvQJaZNb{nQK9|RRi_SX zUV~%IJU&MYD>yoeIDaLOY&?wVZ4QE*vo7v`sr%Db@AixjnWI>Tf&$)|aZhb0VJnhgYD_Q?L;5d}~UnZm=@c!RYP zA0EL6SoaiatkeZW0#4^=7rF}jK75&h$X9$~DN7-r`O-#y#(zg6J{K!A!AhvU3DD>I}m%5(0sU+XKc1vC>nIt-_#>Fa!&PGBuJoz;1bo{OQIFM7%;B=hrt zIBW%ln)2~fE`z->v)z}y%z)(c#z&Qf^j?*odrgha)lO?X zLe(HuN2bnk8FDPOU|oRtLds>CQEgn@DH(2rE==q!S!`ww8k1AjMxf!WKH_|4k0xT0N?gAsPSYfI_#}({+9|LjxuMFfMTYi&(4AzFajrGWLZD9)2C)X3D5b=x zI078fCOSHB#g!h!`c5{UJ^gH+c_AxSTS5q?;YAT8a?u&P>`+X4^f3? zYy%Dn1i40=ifqv(F%)m~uQy@^BcLB$N?x#Vnch-GSb)aASYII2R$L;OZJtAHlUniW z(dezHp{TS7R%rHzBIS<`^F}=u4rR)X9L$$O70A(o5V^r)b3-8t*c`(8Kqfboq(!y{ zkbfSC$qQvkj(6!DB~7b^@dZM;dm29v*2Bd?@LTv+uyV778fo);gGpJ#j$nohUlz_!9yMT7U%PidvH^KnBiJ}RPXHLdLYZEv8Zhyi#z)l({_j?8FT+Y!EUiWhnZj1`yEx5X* zz0cO1%eC%7lYc;y7Flr!?l}ZqJc14`frjqj5-hX!JDTcfoCb^w0i96~KYE(ThN%HV zB{LoHyRnFUE4Qb8+Q7q5BG+%v_PRh!b+>lqODFDP@jC}QXGKwt^BHN*;@nk68-IvQ zj-_Q|7{Awsv9`p73493?RaTJ+9FRz)Rgi=+!=W)ile8Ph#uC_Ai0iTtH&#t()o7d0 zd;OrlEwQ=B3BLpp>Ws4v08RZnjULRCn`)amm?H zqG~oyFuRl4Vd2b)_cyAu)nWM)ntvP~UtG@-T(gk@6}Q+JaSHW zt0sTS@c6&?x(z32uBh!m>}{bS{3=un#OzQhIDS}GAf#c%aR2CJ|Ir~83$zEPx@IH0 zmoI#)&peuC5VY+fZUImu8W2X&8*urLY+N1Z0hjFd&q}Q7jGg}pS-Ub8(G@FW>C$!m z@xJL%>`f=ytHpCdRv+Uq(|Bg>v?KByE*t5xC)d^&w*i9UH zjo;8fgTC<*G#O#uFn0=kjq_;hNlOyOo4VY&m+YDGi}J(k^7E-1-}%f0cN=kBn@m3e<#+iw5%m5$txR?RTsQWGJiHPXV0_xRhG@< z>(~+j`{C#t)5{`s0Z+-Bhj(^&ca^@2QXT8s#(L?6U*NyUO04B9g)gPA?o)@L{)>|C zi=BN^o4a8I&H7pSvlIZU&6?c%ye7BVtln%^ZI!zpEgUCJ@+`pBY#Fc%)dQ;BHBdCbm`EEFX=5U7Or$lNNFsu7 zU=;6KER~Mt(K@U2j3d#oh-oD9+YBR~*f=aIFUKIW+0po;vXBJ3TI?g!r6z9dvjf>_^-&E&Xcl)W zF9d*0yxh>LLMxLh5K6Oc;ysn>KE74Eb^|4lUE2~u8cZwk9ahc=Tf@iUM0U8Rn3&u* z1jsGp3uoU3g@1hQlxiSiHkJd_5YsU@W|dbjI}J%&mVV*DqK5$A5cYE*V_x6 zX@g~n9+x;l!Y-L6Y1}jbS+~)7drC!2Z`ovr-ksGCA)L-{DlL!hE7j4`XHNDwupe}% z@HQPgT_4-@kfZU&L<_`#*MEwr$4mF`-z2n@B7d+G3%sQs-zlaww(#wDewvI{)LhUQ zE#i0ck=v#uW^R`$DI>_ul=PuZNs<=##Z}UwV1??4k zRs**#v>G`5eYF}~ekgz9Ab|y|UGo7TjY?axF-G35F%s{+P_uOs*Js`6r;Pa? zRBP~XBKY2UsTXyAKit2=D^I**iu<7R8GlW#PT61gC=>pY$C=KVfR<|vPttKduc%~6 zKY3o~l_NfKeK{$vD2XwydB+a#X^Lg5pq;S4ZRuH!rv4?zX1mN}6?2 zpUBI~dTbLc(i0HV7`r2BVMZif-a_bdu#W|sgVx2X`@-0r7B9h&?j*}=5+J0f|9`#@ zmWpioVDj?a)Bf8&h%@ZSHFQgO3-kBKC$Rdv2TDonCcIGW^mCtQPE*PE*hhLFpTZ%k zz_kCI%+^%>u(!`IXO-iuBrr;<3j^&384R*nHob}o%Qi=n%&AX3N9%8}E;;n)a*|$U z<&JxE3e7k4oc8xlcTDhrwfb~iMSpr$(?L-~7t7&MW0XSBOyh01kQZ+AdR7m`W!20g zKffg^>}`jFsim=C2N`maSE}uA8Mxz;nbLR|%RySFuqi5nSN5D)FQh(+EUtgih13+pDUu;7$oP5-aV8q3H9HR>VrAi|jOtPxd z4?yhDP2gE+OKy|K_pkR$`C&|6v12k{0SHxXd2`8cZDeCQe7H`{c{rm7C9o(vam>|f zprY##iRDvQec6J>SCE1L^>9%witH9`h(W?wv+oJ0o=Xc3-gci=mw(r=LPaxTimkZ; z?LIYuNQxb+*Py5xluz2IeiW|!(W%g#>LR_&#^}%XIV9WfBqt$Pojh&&)1~0sRy{i# z-4m=LTvG{k#@D2cj%F0e6WVGaRI8yT)-GH+i6B#VEv?l}ZCy)iaXb60i9p4XM)HqN zdhO;FTTHFVEhOifkAI7d{Wx}E8;^_Bh1qG6Co-Ie1Xx~ugJ#fQ^QvZrQ8kxgEz($B zT7ii>nc!dA0dpQUL-#QTJ37xRy!7-zs=LhzvCRpw%?Yv139()$#5RvrZ62%oknh^R z2^&9LoOR}R|Fe2)eZA@i$PhO&G6RIU6xjuhKz*`#$?Aq*vVV&BO3BCd%oU5>J6LpI z%ccGw)H7F6Cw6_|FgN%F7N%`{x{Xh_@#!``-AC%vZ9I#0cov%*RQh>Mi;sC-%UNlE zP^*{s^cLuexKT|Hd~xpPfv<)KzT&>l^`8G?mT#W_vWaiQ&KH)xn8v^)#vLG>qMq*U zpOR)iFLNk4xqqU5sMG)ffx6;l&aUK?qBTVjU-}$WkO}6jw%^gMGM*-+)(pDoCVwNB z%0;$rDSh2B#)S07f{d4UxW4}<(&6vE^F~D43cbe#Bi+Xt>+V0sdSe}^4ux+_UByw^ z+)=`UuY!>OA04O~96sGC({WmEFAn>|rziiLK@V+NL4RnVR77GRb=~3uDBr5Am=oJ% zU^fenTF=>nNmh%K1?(VoJy_5ljj%axK=~iRirQOVM%$d2=%HdUd&i zFCv9!Pk$VXEpPun^XS?Y{D3*SLg;i*PAcKJ!fny6;W6!HD(+euE>vfY$FrMt%UV>6 z^x%IfwCDw4!O9(UNML&-ui5ao2GH2QHZ+?)PfIWwR(*o3)3qhK1#|N!SG3 zF6wl15&^GpN8GZLqn3i;>c=EbUDvVG4clTz7S@hOI{8=~Pp5x${fk;3q0>7L!JCa1{(h zZ9)W?$yEoHX?j$n`6ThW(8r&E!dkg6pno46;}N0ZdtI1Y6I1m9hWw0AOWX1O{EAxA z>x>Tfgf3@0p*Yv5FDZRB#*^`An0q4}CmQJ&(`m*_1GY5=dR!&ADU<8m@y(tk@{BLXC)`%s^78HQzV9DE{m|qM=`Ljm8dTzEZ7PATqCi&?sOBYytML@d0vo88qu}8*eKCV3!44yE@N2m*bDEm$UTc)}N4aJ26QWa3-U) zU7ME9UIb|`V~JIrWhJHEN%RB~Fnm-vcJqJt(3`IOWN*gul3N&x5RRQcz(_iNnUx`s zBTfx1zQFkwEFB?xNfP z?3o#l-|w9qZ*6qnx^>?_elmAUs1(DF*l5gmr7^YEv}#f~*>SUb6?f;yA~ds!MooX> zs+x}5Y0(SaCX%JGE#?BJ(I7{^NvsRx=K-`kIV8J^ID<>qL-;ePhT|-|+%GP#Bo(fl zw(8eq>pR4T+N?A!dj?H&sRJeh+;^8Ytg;#@8F-}=L82~ny8qMR!EcWaPaZtZUP zTLKh&IFQoYj7Z3$IBUh}cx0>9K}UbCgd*!Eb$3@zxE=~#V>*e<)@SLA&UnyMIr%?k zsdSHLW}VIGac2K}`uT-{;6%GAEns^LnAX>i^cGAJ-&8*_l&b@BjVmlzLs=}!8$G(I z@T;;7b!%taS=vrX z9DXt88Gila9W%SwM1k|xYzTEUh1!iFnp(RVGI3J|P-Z$iv|;Y-s?Xu(`!CG|6*UoD zI`NeuvgD(mo&M$+ZFUBwb@E00ETn-%aEqqRHYay41hs%G51_vPIRxlEF zEEXYbM?W(w_YAuT=bV5oza>FyLgzqcN;g5~h7LoBxG_6)B3v%oS@1z;NzWG=Bb#|R z+N0uM-1%yF|Mu<|_wV2S>Z^Nq7ujmxR^~?DS;)U)67Jo-4QTFs{ncIgcLC%zf$V&7 zZ}-dLo%_3Y@7>$IfA@du1)y0v)!lKBpVdESSI^)@1>BE%_Ql=B4x&-OM<~HiAoUMU+B`yIiO(eJbhk_uu!B+*lG{Z1t?|pvOsGg(Z3dhgp^PoWle%& zIT2yBWue=3W*CX!9+Xw@h2<45@_Pnpd41(d;R75d^+U4Q1YCcU=@xB!S2K<^z2UM{ z{{g!LYfBUl3@(x1Xmjx_AhVbQ{uChdovI3H<`7Gq^)-+>I`Hk7L5Re9%5p_(cfHmU zV>wykG&w4s<7qriULr`XTi{Ma#{>oZ`9c&t$IaSXlLg8>_t9vE($Z4;%Rtki+dE9 zK+(N?_1%!*fdE-3uheeCn}Xw@h8S|-38BUU7AL_#<7%CxJO9om~v9-G-TPUP5gRKfSfZ)aB=4 zako?wVh)lXRP*Psp9v=I9c3R#Z!9e-i9e|SZ%}`5ky}>tJ?t>_n@7F1p>=}a@|>>F z;U4pn6{nCn<5q!O0qk1=j^7fPeo}n(h4XUNA}aiz3FsKx~s7i0^-KMdAC z1s!1RarQ0#``PV3m+Zc@qSiLv(v?cb6+Iq;T%|M6ncm&CIgYJy+W$mjIZOlgfxKS~ zd1QYN4DL_W&TTOwo3NsZ9j5ifN`#A_^g~#pj9ZSCtSpOiptcO-iEZZ?^-7{5T)YQr z3rrOinJruQgye)qM@PL^9jM=9MZJbp4d+FxEH%cHB0zPUE{-KDORy@S1zWi^pFyNd9Wu({7J)gaum zT0o4vO5h7oxvwr&0NAn`SUO!D^v$)n?=JNaps30H-{|jnEW(2q;ow^o*<$t=>M1}t}1)2==fMrp*#BnmQ2FNnS(*niXq6LVDc^eRkQyZeE zt!PN_G>i;^d8d8XvVeF@ldD}n+)vro64u8>F(E%8FZHSQ>bowB16-k<)SG|C98+*| ze2A~l;)}x27-CAlr*hXf>evUMcG3R{y~-1+{^*qJi$MQP-2*mhtTq5 zAr%g|WAgCn;og(u$IpH`esq7Jyhs+PRESE?dbyCPI>_i=J4$8Gx*w;2-Bm5qm)1NR zuNeFhRXBXpi!Oqq4^l~&LeRtRH==yl&)le=|JXaS?bd1FGY|ZOXdg(xg#865htLKH zaNC|H?1yuYo4B`zG!C{?D4g=`%%a6($&H<+w`{C8(r7fAO(S_E`4WF(&LHQz?Z9_; zG2GMtPNwQ)&PLO(&W@jcGCmtUf|J?U`-3@|O3x4LWb{2dZeQtPf}4|7^1pWphz9xc z99#=@^S@&ej^*TZ^k{Ac`hFCr0{uP@mr~iE&Q^FM0$%=f^B``8FAn=8PyUvU<)NGg zjT+$dIduI0$=T?k?1*2wf8daRdYqjlF#-HnY=>EXoT=nG#+(?t zu7ck3ByM@N#@5zU;rL^6`Z26&G(5y3Q%~Wa>1Xh38Zs^)YH)n=)RaDut$`}c6P*#X z!g~y_DM>0>7RiG|!qZdkja^>zM0lib(3pZ~DEHFEr+qfEp5$K?4x$q+yO4kx>(!{ei;qsig$bO-i$ zrq3&Q`FS=QKVE;*?c0330g?!3iLzq7%(9 z`QA724Ikdo{owIjJ`X@Bs9Q?}zb3*NgXzrnT(s!*qhPP2-;&w7O#09%XTB4H1WT(q zys-id2!k{Zx6`|Tl zZ2T;UCNlYDoh)a3riD>RwpfPOEnTv}fboslWHxQZVQ>tZFwzSM*KwXwYxgkJJxst1 zqUZP|c@%l$jqq?-{Xj?i=59(PlOLq8Zp_PG&0v3iFn{`SK-bsuc|H1bQR{+8>CpTK z(fUVYnrN3>aRc__Rlm`K!~AdCn*o{7Ar|+0m_J)zB{0zTa@dTj;o@^y#77&=abH*R z!@m6^AE?+9*Hp=ntvNJ~aRp!NDOy)88|`e^)dpMCm36Ba5o8ev`vFf@D5q6>^h~cT|?ElpK(w z(Zpl@n#N#h-#_$fF7pcA04$<39g-AorjfDL^s*9^(HE`Qf;rz7@icOit-+Pj%+DuQ zX-*O08$iW2q_UVo5ssipJavWm=aCJSs1tuLJ`9CDb^?C0OUx6POX-JqvN1Cgdv(Nv zFs_txJPB8P1s_Js`eP74=0yfrQ;L4d+HK+Ym`k+8r8{GCSYyl~C=1~1))wK7976Sh z8l3b=73!N&4KjnuK%lJ7+27u**h>bYhC0&-wk)fYOE=Gu>skfeXe z5%`*VlMbIbo5~ZM$?H>C1aJ-K`Xrz*vk6Ct4C8Jy^Vjq07dtcku>jdhVcHp(t8E|3rmLL57J2;53ec&<^bxc@(R95A6VS#R-j?lylIO^`iKIDD`= z0aTgTg2~`|u@OOmhMZ@aTJ+1LGVD9}jh@mIfZK5jUu%%8lGqS7UV=(3rr14) z<)S~SiPTkqicsJ3GKNoLG`335aqTvR3jzQ>l)om>_Zu|cHz|g#o)iy{DAYf>y0#)| z8n1KZBHZ&Gg_VcAx3_=pFCt&9qdPP`5{eat2Ootv9f{%h?aGwM1s924^u6&CqUKa@ zDMVC8RQKzP<-f@=ZmR*{pzewf>Qo9yK^eo!G65YP2Q+K0wC#m2I1od(Fw6mSPo4?+ z!;Go#sfK|L!i~*(yG8pqL3M1c#)v&hoxkc;-!hoE z7$@QTcd;Ks#Jhj^gb#pT;{_lFe?jGzO|4krq$nA((J6|(&=KBA@)=k*;6WDI0VjEW zRXj7mIM(X{zAWBTd(=jy6=H0=_i%^NwzVH==gIl{8LIR$b?#AMWspIc!zayi$Oboa z8Z+5HGS6LDA-Dm7&X#MMvkLfz!qN`wh@(Tc0XF=$!oYv2=h)FV{f3zv*1|}wmn#@c z3z4Wkjw2G{a91tujLKcmBlmnD*w}wwh&>=AOF-&f*9cRLwagPiral2353@x#Ri^>{otTJ&AsY3lw=qcH-^uXqp4HA z7k5?79Ik&riA#`NsZub5HirPO+=cvg1viF86k=3ugri%-`!~R=I2d{Bk`vPuR55vY?0Ji^v}K7yDx* z{^q?gk2d$DtlJsm8nG)zB?CfUKp(uOpu*rD7uD=Vww##yhS~38%YI5ghbKp)iNOJz zV_f=l^4STrmt~)gy`t&xi_ys^pVW)LghZu!+2Pr6@>#ub^!bQVo$BRhqffpX!DStv z)+>LGMnezt>G;c&a1Ab6pF+A6oKqcnl~2Z#31(SQnoU#X$REh`Q_&Oa8hSD{t}4v_;dW}_;|!5es$VZ``K61qmyrrJ-&Q7{BCpxP*eEt zSI6UN1HhM~;n$-(0AR3Bo{&CyI&w0lu}Xgq%GwYMpA5eho3GPLZ8*)=fY&lsEh3$Z zU;Gs=%Uz*4D_kvMi>;PG@)CS_#W(cArD#yq8Z6sKR=G(Ap=${2Ma@cr35=pIJbk%p zD6Y4dJ}V8)va|!u0NsXW4Hlw6(kzR8n)#5PUlN9MWAQYk2&zccJqEreI1#zk4Yz-x zEv@_QfY~41zgyq@n&pf6AfC^w<%}(y>JlK2noePk@A2??(scCNdUa5B=s#%S9}&`Z z<-lv7HeC*1p~?WO@dJk2+7*jz>NNB+=QlX~eP#kRGb0GxXwFqMRmo*~Rj?j&fNIB= zsDh&^AiMxJ$QscAgD&@F-AS{s;4XhQ4p!S-9^mT+Oh34Ot5`R~iY|;yH#Vz@`VdbM zCKv^sERT|SUJZegoCF=KXK2GM#LS;#n33YLbnjb}_nm1&j-U9tWYurIln?(i+6hpF zDA}~qC11W}Gfa>R?h9N6c^XbmM9v6u11jn1qG^)lh7Uc-mPoQ7a->J~{-l3@k!S`> zcZnSiifYkGqY1bl3iCMPG%xDSDRxzTlY3#hmN9w-5%t$hyIrT>xlxyt`s@4xQ*f6? z&6dgp1m7BoK+e<(TEd@ARtgfV5L(aPgEngU&}wHtHt$pcwe@yTw@;Co>8#hRTL!83 z)y9@ci?b`6{)i-wb7F5+~Z=W z=j*`!E}8_6i(ZoUxDj>MtvZICDj3hJT7h&}SD8d*xtuU%`#9IoFf(0gnPf= zoJzY5%&&-Z&CCfHD-d;_<$v1=wS$0rEyYMbOhJb^w6cg92=?w+POU`IFl&)4QhWl= za#*g~SU%ce%m@D<@oq6UwV0BeCfsWdyoYX7efnV@7ytY8Ryu*K`iJ;*CY9A{V>-h| zPk~$LT|C7@i+gLUMz()Eiql38h7D6auq^(KYmHW7-omLquJg7!($;m~dl&6L4=wGj9XB%NG5j|2kFno(d#Ix%{)=uKg}j9~ZQ->a z%x7=bk9OLDsRaM)NDCb~O&3}D4^)(jfS>0K|1bGYwn;1CIq-jno8NajyCbDL+-rk` zr~f@hE8Xa7#*gVNK&t<{i3d=HDO|yGa&fVZ0Y86Fp^4quQb4Cn{_ibXsz_H;eoTj9 zWc$C**ttTCmhhl;GPzurN7=8-Z7llvyADb74#SOF;_v^yq?_t=HTK7JDK$~=QhPY5 z{D0+Xqda(U>Z^a%7E=8?=ne~d7pjBDLOLkSzfBn?ms#0i`*TN|pUCvx3Xf}$pY7!M zUo?D>^){CHnD)LaMfq&}UpDg3(nqlI&&H1+x&NYBf0k}zZ;xr!J5r6>X~0g3@^4du z(?xufE$34fWy*U6(wn1p}PLc%br%|fyVVYzc}*cnr- zNfjdt9)cUBb8`w#+-HGpFk`rSw5&R${-GI+&QXV3QdOX#Xyqdd!UHT0mG18T z_=XUNDd~SV4$qwU-!l;Dg%5;M@JruIi_vf3OXOQ7&7Jt=K08RA?H>d^d>q?#<<}vZ zqF@V6G1T)BVrH_y83dH7!ezdy_zk79_-&~w*i^Lh(S=%s6(&qgsLP`gyerr;S{+f>9yCYFpj;U#-v!#R8Y;X zceKIt3f~d=`Vo25+Y4f7hU8OH4)7>0V|Vy7?6K|fPr+O1a!~pXqaiX}`a=i-&kKsX zk?hzz)b~xxi$ZBUJooQK)q(9%JOPDaN^dLL-j=w5JoVbGS>^B>cP%g033HWsx6Dev zFROpg_hpq}gZ5u1mSV9<(g08meo;fUZ&Fb2^UbIpCh|W7xPvZP(Tv`9>{?x zQO={WG>JMfE?EF@I!HxuA!!l_UI+uZ5ka}QIw>CNVxNm0Ojt^~-U&;;#(^k|5*xY6 zT65u+5S5jZ#p?@;2ams_P;XJFlT9MEQVpxo3+Y9rTX|#Q3om$W9H#EHsZW0! z6>U%~^HPN7L4lW==s!1O>&8djXIRjIQqjT}exP)dQcu46IH=HE-mJ`AA68^tw^vt0 zD8E|?RV#1tZ`7;F`Wyl7!qzNFexrkEwoiPS7in<+ViwOX_46-)v#>{Ep?1BT(^YS& zyL0{t!OXMe%cYtFrSU3>bK3bZa0-8@QuCxJ^X#Vnq66cYWH@!_H`F2T*yzS;Mrj~( zb+s-^+*!fO{O~9rNaS9-|cUd z+REYJaPH}EUf``Sh@v+SUS5A5@4$fs_ajhG%h~af0K>a0M6J6aY;)YjaG}`E);Y2T zFR@; zu?%IQ`}C4H@4(5g)xEw4|FgK5$BrcP2faS?_~Jp7@wW+qCHvN80bl`V2me0n!~$U7B5oNXSYKs z7D*CM=$`dMgJFN);u;j`oIj)5N*cWd_>K4mNO{3q^4JwLv*;74$0YU6*DdZ&Wldm8OHkv49hNU)YW zChYtVb@Zs+i3$&Z` zJ4miec%c8h*?aD2?Tuu0T~sU8bybZ5?h<3P2{7VDf9V`qH=nr^%WplWKH}6Fm^fcE znMpdq6&8QpWt{34Jn7z7o;cY_(tqCUtB?MuTnu~55RuZeCe-RDB^T(U_Vt5=Uk*S1 za&$`=4({`p$qfn;p;A0D{8V{t+KpS zFy&Mrho|FWU_eGoz&1-b=ZNczRWeKA-A)ALrYea7vx_YjeshgosRl7jOL7bK zBwohPnC`uzgpgqmqD6^$V99^wmGP6)le6g%zCEgwdrQ|4dDW$HVFP z`w_M-jA&0j##b&CybU=z8yz2xCNHVp72I#+q_4RIigS_V35>fy<>?PzdByho<^VK; zfGvL%%~6-xoa3$6!hca6=)6iG_05xu0;RuZE>miDzFuN%V$3H}G52YNZJPDWk-a{& z1u32S?f8DFI{N{d5C4EDTna#CBdiho@KiM@YyK>--4_vCc=&9PSOzLWD*TBgmoW7{QW zaW1wNLIe(z9*a#Waql{v13aD6u^?z9=o|7hxhCOzVyB)han(`evH*i%N9%BzK`nw% z%S`>e%zg#_QgA0U497vE*we$<3!3XdvcS+!vUb!4o2v60wFK%|7AeM-^cZn6*SUX) zWTeS&urzaF;rJqm%P~E{BS*-Elq@4sWtcYSc~LhoZxQ|vt!K#!d#iYi0oGlli=74K!D)fS*a&b@GdAl+G>l5Rx$u<#n(XaJnuor+^zgUVbOwBq(XaSOCEm|IYno& zVhduAoeu3vYo^ac!T?>X2ttkua756<@mWOG5O?uUvKB7U>>R;#;qeHK8nD4sut;Yl z8c?MaJFXnpW_en2+-N9qc#+QaNEj9T`qU zW`uLcLv#)Z4!%ysbkl&w4S`QwW!fvR7`DCV8nf4FR(aIkVOc_&JNbW++xJutl&`P2 zOvO6b>WJ$}yy9cQHGFoHCAJev?|hvu=1>v2w{0Vp49dZ*-?dvfxmWLzy2JAJxIWIV z&Ve38)ChQ#V3bCFj1RV&m}!-zn8UNQO1qqQ?)hxJ{58I@1M&JY=yQT=kA8G@9_J_n zi~31+T`@26ck1h8_LhG-#bJP2$EmrQYMxxAOAZ;x&dBT&!iYO|-L!-$nP$^GUKY6U zK#JJe^%Yk#F&02Apuc2}Y>ut1cj&N~Wx3N0{;6UerNwEE&#onU80{_Rli}f0-+I)m z%8X^I&6^xq;aL4T9iNRAARtC&`CPvOhedQQhC8nK6xBdC#a$)gRZLd zS+N?_u?4M~g*{Zqf@t zgCP6g!!rBn+3;xm)ue-yKFQD1@-WS33)cyiZOKX^$plj18)&iz z4~DSDp3RENRXUGJ>u^y6f9hgGXUWAnSycVEEpdU#GKqijyqkh0#Lr1SP{)~~{lEm3 zqC;O8-T40O%mndIVBw!FZA{E-F%|3hJjd2{$~eE_`J`+2(+nlz6Y<0Zg}n5+qDd?> zos-+@Fx|VZ-hNJ9p$Yk2QKeJvYB#@U%MLotGMZ*^_}+9A#=az{8yAdQ#OrVMMTF~x z>!KFdcCdfg?iv8!IC9MXPYUgdWLac+(ccsycL;Jdu@oqNGd!HQ7!fQ#k1tBzs)%v- ztw6pI6a_vPd78kE<&EN3+Is}Z+Ym(B61mG(j7@b3BG=BraqQ8|1Rw#z+ZecG} zM(0!p46~7!4K(Zqjaa#oNUY@TePFLUUEp9D7DRvV;||eJ>jDsjs01W5Vs@z(rEZDDX1NibTa` zsNonere6=he~fQg2KS6_!{gc*-0prvQ<@exH~>9)1{^@pn1$zjyRS}ZFN~dm?>*&C z%PfD%%QzKqyh+UFhrELNMV321c%EFw*J-xS$pf}x0FL|{`d%;}&N!rXQ@N;62nzks zQa$Fcn_ZT$(BM3)Vy6O$6^ipb#$7QgZz)8^4xw+I{+TIMMPjewp>js0w?{hlq8nDb zaiwxJ{41snTtQ<%Io^S|@*LzTKAuqQW}JVse#)StE1${=^R)y14<$)y(NuQ@K~Eq{M6n5BmXE!_8?O}odMF1>-=B}CCJkFtLW z$q<-!lqvqRnsqTkjc5X4$?Wo*_{J>qPm>%&6kLB$6{y4wg|8C5=JY#;($4}c-x}Dy zBfNX%ek?oXz4fhGr`vbs1hMcw2#A%Uy{}fZXkF&ERrpc%qh11ix z!1UOoDLg1;P-l|U@+N~Qop7Ts$UhRZ6{vIye)NvnYe$wj#*}k z=EkqSYy2wi0Wc5a_6}Bh+NlY)d1Y+TC37P+{@8D4`^8O!v1^IB*Ey{bIWxrW>)o=$ z{i;ah2lggvtKT_RQsVAY_qaH;{g0Q3$wpO$D)V)s(hCfB^$J^V@a2h5W2lQ$99A>> z0)nA?;XlsGM&wH<7HGTnWTbyd`#da6LKrV^45&$YNpjHdImJq1FP0K|FzAao&q;i? zUuBD%t1Mr^r(jtQh16J5;BStplOgMCnbLwz5edI)BsQ_WuFWuEKAbE+mLat?+6xI2GAgwo4(>K(~c zQYdpVM24k7Cle~E@VzsA-&wDMuHP!#xXM6Gd=ePsRpYM4l@DCmfva!ML{(??B)0)q z@E2;A;2_fwZ8}RRi)zrF>E@^8`5?e=r<((h>y!m%amlmLRlfN5BP$c*awoNBpV02b zfy>yTo~X(bf@?q*%esH+s8WRoGOcP4mvcOkNeR|YP7au*C57VB0EymUE*s)*BZ{zT zN<7<0f-|9N47vwr?_!K2*ZRnUlV6QG8wcM-RdtV2S0#76p`&P_mJ=m<6`OaLpX-*O ze1=8Ra^2B4*T@}ks1YU3GWaKnC@q*L^H8Il3ROIbB@UFfXt z7I64?wO1}ApT6Cb@cpX%MAar4zJ?0UmtP9~HM=?>h3o=9vtR}8Z<{St2yi&7kHt1; z97cQ~p-km*N_T%zno7O^yDD>Yzb5v>wf1Ec&IZL4G=4oqA~9zH+n8HTw0gA9MYOou z8ABS%ZxOLhUhFRB3gT?9FRpc`&NvRCd%X|yxVY>oWL%CWK233csi3aiUhg`Xn=#9B zKJL&)MYNGu6BO_5?d%H>==L1u@lnX{Y1mzgt%W^W3gv&qZi+pl6pf@+%DOH*7m1-5 zDsIPoGZ!BUR0rxan*tKy*A3W1UFv{hIVaVM)Z{W<-6a&@{VrYQ-GZrhO2^QRx%?ot zY5;r4r||sy=tm6j&B*qmCUBQALk%2Tnw#+cG=W$6)eJxRY!)tzIa@5Eo;C(X7VUFWL@Kr23Smidq_kwSkdtu7 zIlFoZ(82N^&RMtL*Z&`+b2Y7?rMs&!5h<_5>_Ag3uut8Y4^G(6WuzrVhxnhnYuAH1 z@TTG3n|=Hv0r=J?TTAJ=s_q^h-vp8iVNMiTuCIU2p@g0|oE z@}0Muue9RGiHA@J~l(pe=8+j`wWcJQ?u-VvIK9 zr#Cy6_m`;dq*=0K26!9+o6dbX+ZtcoqN#r`by3|?_|3-B&|wJ$8P8WP;y=!+KqVgH1E%uH|Z%qE)Ns zrJGR8#k}pt9rh1*9>8y%tIMa#4y)@*%?3e4Pu}dntm7#SRZvGWl=98<^ykG_zEyv# zfarNlIPsT}8NGaV=?&TXxauLb&6j^qo;K&fGModKAT1g-{>(0?xbL0M6>ZI~I;bl0 z@4tujR!T6E)YhhQy%@FBO+_TX(Gkcb0U-lteH+?cIP8(pc`KNxsGLL5H6IB*+eH_< zcH8%Ku0$X^s=gMWFtdX;_SDDNk7s}R_xfd$A8IR(S;v-@;D`J|7+}1)&Xbc){BpRr z^Gh(({L=L`zf|7xM<{mX%a)EkdfWOlbZS!cTS%ObS70HOMu94yrv~8(<#s?-z_a>506~_?!fR9~k?~Zg)bZ%cV7^1%|B2`O2CQyiXgVy&7sJ z1LNi?+cpC1hG}j?M0_X}Kl`T6V7_m*szYVXlx+%kp~8 zGK=!SXv;g^lpFeTIY!!{z8Ge}P@nxY`MSJK!1fZBC<~c;cSZrxlIH|t}Hf*NBC7x*`^g$;n#!xXRyS|c+6TAT@(@o!=Q+Egvc zfc9Oh_QPf-h4mt4S0aBw)x2!0JK$VL{v+*J z#~c=0_O*8MF|MujqSVCNmo=(irTQOw=@Qn~l334Qei>6gtGZ5~6ieIf20P*r&r4DNgaDnWhU=`i1u=x3;g0EfRPIZ-}kISCVNuEGE zFUB%vZ5h9!M9OezH1f70fEpQ^G`e1VY$(Z>+Dn_Yd7010BrI1Mz6o5D#4DI_d1p_r zzu?Pc^yrKL?jV2hy1{mNhk_qanLyeX6DobOenO>BIuYs$ve!hZ^hrlbrB4=9%8-Ni zqvQ95aOel#oyHKbTkqq#SAo~l9|3#s5=428@UDv``x?DhJ!J7tpEI%U)Y=dTcX?d67-QA}HIf}Q{qMcJFp z<3%K8x(0u1GkJ`TJpevO{Yz43uCkQeY3iZLHT5$$d0{p%dBw<+aAFDR6iiGr1$j7` z6z~ICty=K|I=hB`!n)M10jr6^mJ&VArN`|YaC3M#Q!Z5zQEhezo{;)Fg$z3`#R5cP zhVP`MOTts7HfSux&v3mZiUon##s_d?n2IiOReOK^K+{--(G&1$<)QA@f(tcQ2WISD zDw;e|$upPyE61Nw<#BS8^!X}xf3Z^1#yw(SH2Gb@{(6q#{m^$KhdlK)q@cROb z&vD8c_yO-**@jkTRKxnpCy2LPTF7P9^&S=IB68Udxjz z`XWi7tG7u<2P@Eqsw%>G*qSbqzAI&xpoe|WwGN8ReLkn!(ogADqmZqvXyg(jRFa%s zDL0=|4XakQY;($H71KqrYyE_QNz0*msSkuyecGcQL-1Irps*PBalpJQwnqNy}x9ah6bdXjxT4#r|>< zYvXWy5ws8k4pbn}Si!@jGSI8arfh#Pm$a|p)) zqQ{5Y(GH!$GG|)y#;8zGay-2rAfzCpzK1IaKq#CjQ7oCvm;rWlAUF?f(}C@Ulx{xb z!u6?t8oTfH;j9rD)oP486EYp zv{OzW_slB;v&A-&VzaeiDa1oXYyy?npl0X2Cfc1hOd})IpUk=h=?`1}R7~<(vf&gu zrjiM_=*+NkIRv}vO8wd5<#!>30oc%og<;Neb z`fed;;*vu|L{~Q{RAGS*a*cn>*fp=cY-ywpb>q0x)+bDJXU{w)dk*%d*?L6}sW?>H z9))R3LM6n*gK2dv&9L=&$ckc8^vs4A#qq=*Ka!~M0m6>iFiFB6-E8_vv3-)2W%_-F z(GLTQ*wkEeZZpEJ;m=W?jjK*`4QmkB7-?(<&B4TLWyM(ez(ovkKd67&1%I%*7BFfV z=-PppzGr89?;i$Q*5>zI!GUih(5pd-WnalI@Jq!gvg^9Au>rxWZcrd;(p zg>(BGi@DFMd31*)tRSC7!e(AaC~na-jZfs#f)7(AD=o4#2?}%kR5^Pd+I|FQfby;< zjCWIJ9PCG$>$J0YDq?>Z7p?ON+^qhk@`Z)x3i=M?xT2tNJkbjgmj9Tne6>zlIn6Hq z_Ob#v-bGd(kEYpwR#?`mSl%5?|Js?Wi?kq;tBQ+TS^O^~i-kl$>=VtN-~agN@c7(* zQDr8k#Pl9!IYt5OC~XWVx-{Xezn9!ubQNyx61e5AP08J}zuCB zG~IIkz*yhT^L(SdOA~Q5T(FC&B#`12bn2yIVXxwSzz@*B-ldIKpexCbI{ji0B zzQBJ}zg^;*jZn*zac09ovIZOT-Ml(F?eP(nr105X*=HM>iy1s@&r#vc43@;Z>_7}S zVz)g3>eY`H$vVY~SHDj3b2T);Si(6^;?YCYqTNj2hhl#om?E{F_+8XEtjL}vq?is| z4;3ty!c{_mvD89csBiCqnK9m@z&%)mDo!ZmH6JXd759Z3Lc&u|Hf&cmVq+)KbWnl* z1=Uzh^Ozk}5s zW*p2y25)}?d1PDC&UMd4ZLs65Pc$bXD&p|R5nE*xWQH}iWOt)QX(JFm(rpQf2UsNS zuoLf8SCOmQ=IyMrnF{z8!1qqK*U}1bR*~%JlTS}h&-aeccMLqLGiM*1eD?8yIX?XS z@YI~`9q*kVeSL_aOH0|4cRxJbKR2g`?;V~V9`Ao2o;_!JHu5`{2!;bOysttQZTAr& zDvrX`rvEHYwX$YyFfFqSp3lns=h`E|PfkwY=(HgSbl85WbtnU)EKSJ~Gp=}*CJ~u$hyy03`v?W4Cy>Ur!**=HK zFB;BcM>xQu9`PIK)b|VE1}3Z2lLCEYg{6OC8`+kq=4@12jHB3fGX1n%!PjU~B;vZ8 zD$&rSN_sjCt>1#xh4G%RQm;%UUFME8ejCbWs`ttEKdoG|RvQp@# zl93i+;ulwWm4(S)WvF=}osd=vAEg~PGnXc14m;|lc|k+E3n^_?US0wbw-8==HK~7S zu#v#PupCzQsVmTAhS^2scP!0#Y9HI6^~Qx2AMlCy;*dXG<$A)Q1w%g?lcJsJ0f*}T zJrv#R249fDv<};Z<&BHa59^yob8I7lpiOW4piigiP=U~d(k}O*={zEal=FZ>mhL=`5D2P&mak^uSQ6_ug7UnZff0T+WAEM5pQY!RBz;)N*77UTIXUXJs)+%1-;?kz$Yr|E?#W1)p8Q=t%L zUiZYyQJyP^i>Y`q%#nUQaM8OImz4-5QT}t^YYEuP`X`}XPhgVT=7@is@#ZjR4b2fb zR0{W;QaB=*Uqn0z1DFvmtV!$|T%XEfcI%-m7LSEhLr}DCY;o-^2c^`!1TLc@cZypk z0BYgMd?MSr-zhj*>9$ParnbJDl`V4@g4VY`zV_bO&#+$Q2D{f53O5~5YER@?OrItT zgW16J2D`jor8d57Har>=I3t^isnrzGU0hudg9JzJrXFGq~6WSTO((Hu+EX^{WGV=7~iVal&-g$H>yJH<;|f**DoH)@Q7^C zR6jUfEY_X_)1*#*pzD(|SiQ|?Ka*DOJ&6p(Nr6!G=#*zCYzw}Z94#vepK_bng|+gY z;R4vFJT#?U#s7Z*9|WWd)5AVxo~b}>Y(xzirO?uz-lsgWt*LeWF}NH|`dqG3A}*Zd zK(HZrjuv*d+7UiPpAoMfXB?Kn-@MfC(OhwkJODmJj^kjKb`Eb1Ir)f{L1)IPnqF!=mKUlmrO@-udRogB)tb||CE@6lKNl`(*B@D*dK_jbA!Rt7S*PI*%G`| zdEj532rQdp2_osWwNppkWf!*T_4Sm!4Rlpe>Hs-F#=jP--e8J`E>}>nWNl~su;xn$hRw`SVPnXcPQAKN)7?9f+??UlVpYoSwG98+-636N=?ES$nu9Fml_eylF4?@jyDFPLtAl4LST939&M%+B0ZNS_ z)S_a42&HI-_=3wbgem4D12X0AKza-4o>}nn)91mkS z$U!pHBk3S~LuT)#y6_T&{%^!jz-CFFb_&dYu@<%hZp*Xwewo|KUTe5G29u`=er|4h zO()!r+X-zSsK{8Z-r}`)GiUFYG_QQ{WIX)XGVV)J$}vKJ zzOZ~oYEUg`(e!#fTLXMlY;hf*(Eo1Ryl8xZUsVB2fCByRUQS-ag&KFgFUZR&)dmUz z9At5FO*kllN13jG11+dQiCjfR-hL2Ft1>L{`Y;`NLt-|<4(xDIB(%P5w`M>%y_zkQ zR(7#4q$T0N6=N(M)S(T`%i@noci|U*G+nIr5Jj<`~U&2#ANp?lm4BQf4jT@DNZe8eYV(@_?MU z-&AOq&Wl(%zMxE~q}|!+T8YDGKp9~GEtRffok{e?ctE{gTT^KE6K~Amz~XWzf^a^sx>GAh$D27Aon@lNqeba%UAWOb2XzK@WT?e2x5nGbB%@^b+#A zj8h>DG3p^FL0PoJ2+Nrsz}JB)oU4Sg9{{0kXS9`roE~y}H$>wsEvU{Ix6=R(=;3#} z9qJD=tQaqwB>Y<$#5J-xyvRW@#XEx9TUz38)rqp!iIl^TrONRNwK%^kk63KE8A<5UPEG7P zwe;!9$6vjFa_rlZq)2OGRW!K_+Dd2a&$FGP0~-2#M|(3F&Ay+1j2m)K-I15?bQw=Y zuP4O~XcMnng@5@tBE<|<`YU;f96xT`XNf!YC5K2{L=Pv6Kt7CvB*L`9bMAeVub`k$ zp~Ike(SI}Kt>_>KE3Ij?hdtQt$A*8{2Pv|8M{509r+NuH^-y&x=uOz+W&4B0??Z`& zU3s-1XtjIjPuRJCcD;GAirx%6_F6wwq))eJ>rmC^++Qh>;mbuF-U0!Dy;H|5Iqz`3W20!;DcuTw&_7(f}(@+h@r6)dd*XLti`^(|2B^OVN$>w=R zZcg0FirD6V!Oy=VS9jy{FpAPRSRnQU34NZd(=kWicL|Y}Sq?5op@+t=J&{5TdkOMT z`4wp6@9uqqrj1S)L3Q>3R4_*C-(XztO6>&00jh*w&8;Rk!_@RXpoxVh)bRzKS|MxvR)qV=iBtY zIS;|Nc0pHdcH5B`hVn!mSI$JF_B896!PFkVy_u&eE%ZfuN|&Uly(l zT2~b{>lskTa~on!%%u~X<_t<)vQThWAV4Pk*IZKERW-En|I?GB=q8=UoCpn)eDHa0 z#qp}dA?JQV8xLQ9x!%g&`1?`jKZ)__2=_8B#`{gaxsCZYdMj6;X#qg-|IAAcK8GRF zz@RMG*{nl)uLUGhFL`U3$ER)zDq3b>^w%TJ1=+=0au-)bt|MWewR; zh=N6F7os$E&x3YyP^Rv+uZkU4OE{hVpeags>-pk!IXLz6&^t&}mwIh7CFBzv7D*QC z;d!fJ%wIrleF~=wv6QO0K$({60(I7^2`AL2xB^bE+SRYVDNHOF}LVh~N=ylC+pm|q)n;B6og z(r73QlIH|r4QI2b%a6i)KAmNZRz9Dta~rF5;y9q$>!}sama2>?_OXRxpejWveFMed ze}-RO1nZf=-5}Db{u=aN&X+rXaQUg7Ff%UyoHJ%ibAQO}g?Saaw@pzUV7IOnsb*uQ zk5BaB?&U#ewP;JGyu(moZDHLm+mW}R=;BQSgQ1EVP%vN+-r^m^a`60`$E)06r9-Lu zwbI&+HncVclkZuCSq90wilOtl*+1{M-g^*LiAhDQT>s6=j4)dW%Zu??VyIG?ln2-gs7NJ<%` z$942&OeX)9R6tx?>PSq<2E$X2&7J!1bko~@M$8(IzB%ePsXUc}I&Z+=R?xcM7h5ox zHs>5`{l-5e%>uA~-{C8N5@z_Li@+0@xYTo=7ky&_(I-E2&dE5{Q1PJJ?l`#9{CuJP zcEiJ4JYeSDZG?0orf}_|!I~|Q4)KG{+Y)oa`Kq&UVEm8G0 z7#l26zT)CB;x}*Y*L!MUES8g{&JEDslfrNW4Y|@ulxyLcW^}oK(PbT;#Hp-~wH#aK zY>{>T+7@nIiMtqbNJUw+bs*z%htBhf+In`R{z+Jdvo z{6sd2w@S6AKW9byy;GxdevyvE@wD0s5sX3m{3aOHCOG9(7FkQbI?ZuZGBU|Y=5n(f zRp~m-X|v8n6CRa+y5o!&B^0vSv+wCme9|8^`dv$&Xv{MUyDk);{$S)W3f2TPLx(srAzQJ|{|QS73|IvmccK^Z^2 zGU4{Dr353PI^5bNE;NEK^R`0xooAovFlEerHhxMyKprm-o zSy*z`$pGZN(X_l0K^0SPlj1~LQ8?;+>_VV-7sNYoop1^qNchh~-ewDM)M9NT*U@lq+EXgQ2TwBeNPX6mr=CcC}2UyA3wm4=j-HlCD<`T zZr*O>tMS0IbUrXY44SgtNciDfH;wB^J_p&TO20I_&C+j_t<%07SlDr!P!$u2MJDH;IsSykUsE5zdoZiBQ{MzkO`{8AM3yc#dIwdv9CtH@`Hz2iwG-)g{r zE1REM75Ob(U|AqWQUbG{69P5CU>8E=kt6BrepF{i)T)o`T1RO3#xA-x!d@I%KVgsa z3h#G^Kh98lK+i6G&v=?~-I2w*IVH2Q@#Ghi8|c%;1Q+w{_Z8#dS2NO?K%~pde3)kl z1NL-DBBLBpqtK^rl}K4ximp(p_IqF1u1+ZVM!7PTstOdXf06+~3fH9Z>21^347y4MKLs-kCRk{vlaTX1YI}bs32jP~Zgw(ii_xOIN^i0`8~J&A_~yBnV5sybCAqg% zQV7-Vd0PH>I+>#H*kuf?<{iFCYm2Yau;^fk!rQykSQf3f20l}7=n;j$r-DHw)L&_|F%tx?Vsa!>Wl&(jQxP?cL zK#9T^hX{W3h`WkAOa?Nn;cCg?KWwMsg=$iB}@8yGb&OgSA6GjW1vM_dA9jztE4%3o#$PPxv-F_qYw z_YakLZ&J`b_hxv9}^Yw zlEVO2EvSiEGL8luvG5nF4>NkNT~h}M=3T-rbRO3|C#e>H4>#+;ZFln=zSj|6jBft@f#U%}R7;od<84AyuS^_>R z@*REh>B;H&-tqa4LBsj84^BS&_`n<=etvjr&i0P?&X2x6M9`(D^2xg&9`2u;)5G@; zPY;jx56_-|Grem#&aE*x7$hVD{Ur32$4X|tx4f+gm;D~WCF|XRTYEquMbPYC9#@NtVN z%9$QFxq<22Kh8iJNE*eqa;G(td|ssE5+~6x>s=6k*-PBdUx7=zdiJAFvhlQ}%S`&j z6{viE!jl~(81|eauPjKSN)f40l30Y)0EtJRVv%h(C3mFI`vZc-tGdn2PAmQ-23%9f zoP!{+D!m|&@Q?k7x+#*^&cS9Mr$BxI%oTYW zx4Qs;-<4fsmj-A19~>Th_VM9qvUhP|b9?56(<%H)jYz|JF`3+yFeJBLe_>!=IDv^c zWp@_%Ddj3ECwv_8IC5r)&?hm%B53fxPfVFtyc)vz3qNBAcr7w<%_P_gBlUvmbB`>x zJAnB6lXTQG2ieVNGCSLQosq>vE*q3*()6r<)a{6t!>)e@wAp&|lk?BFH$ONz-(ska z0IxvvJHEU4-gRZ*r+c4#+JOFWeb7VHx7PNu z{umz5r?RfwqtJfN$&7f-ADC41PKAnT2<0&PaQ-uDol!aYUypXxqYwUVYV^T!TJ*sR z%A%_hT?KY$9l8qet}1jD*muyN4xS9eL37;PNo6jhFn^na1)lo_m5@fRK(ARLES}ia z;~A)t;g!Ecqo9lTrka~XKeY!W4&NnzycEM8psl|0XcWvnoSvwOQ9fLLlsvjJFZ8z? z))%1Ss0d~5UuDA|&xThSZixygSxlxC`e9E>oA{okNRI(Oic}leyE20hhw|&Jz=y@> zInLjBYd1Hr>y;>-k}w75H@IP^Ldp&}dOP5DwFMz#*`IF=D4JMY(x;Vw%p-i+ zF2xf0S(*|yNHED3-!Gb2^(+($o`b)+$W9_PnH#vD+xA%EkA>3tft1;b8gV z2)>l4{7K%i_BK)jKZC@7SaL#tq(>U@{8CXwuMH4ht=jS|r)n?RatpbnWD}sEbHl#KsBX*f-TvEk}j2eY@bXmGuN>!zFzltu| zENx1rq^R_>&rzvDGuCQ}HVl?)qeZqVVuxIm*+VBparRDf>ENHO3v+muO89kFi+8tT zs(4*N4bV#kae-rh4omxgag~^qW*(RKO*Ez2pp84hfwWYFn!;ac)t}0%Eq~Kb+_c(!6`!R62UwyLw)+dljx%?rS zXZ!EH^~h%OM^bt{T)qWHOOKMDD@`C$Ma0XcH_jkAz^?D_L860y>&q>(a0{$k&SBi*h#BvS+tLFJJE+tV{jSX4uF^vfK?U+mq7NP>u%_Ff#>1`lDG#k?`-%HW z@}l*r&K!7?xxe0jub-w0IL!sEFc8tx?u6SP7B;+SwgTk}Bb4 z0wb3LZW*b3!3HimWaQU!nx!-AoM8gRXEdQbS<{9YB83xw|M!OPM5%mB!UOu-6L(Z^ z7No4;-@y+=q&4PAx=MjB1db*o?{@gJ0q?v3@1+>&DEU0dixD0I8xbaW;|I+{$7{j^ z4nxMf1h4i?9d@HZFjF!L0O!jIGJQ)2s)o@#&#{2(+oe6%9WOuw(|m2X@+VumyuVpM z%yCGYSRllIYI6Fe)B+Bphv%b{WN)BKW6^xUR7 zpr{hRN0)1%10)9Yu)KSb*>&EIy)d z_V>+RLZ$OcDhaSkw>vEW)!D9r6F|4ccdb$pT>258rH z>LOU5UkFoGF{>{GOfpG1@CRuS$)Ov6za_tAboYgCi4=<&U;C-5W?bY*QFD8EJu^=> zfa@-Qz^QoWVT;9(WfW}E*Nq_=M7OQn2EI2T6-h@uTK`CN=$;D7_hkl#bh^sQ+s{Lr zSPZGgt4gmv9;%{(eRD5LiQ$iwE6fgcW*3s|_G@dY#NKa5Y5-IS(A7Se|idaQ-CNYB(rgLIgz8^zVDH$-3@2eOcDoJmF1N(S&H z&M(U4>B;E<+lcadKta#g2BhkE$^Qw^8M+Q21IiFde9O0#TTE1IKuH`QZ5I{NvN-e0yE( zZA;VmJi<=kDU!*L8`P5%g)Zj<(z)Dh0tmC||KN+!#l_Lba8-Yrqq=*trbZTjcf~4u z1{h;^*sv{Bsb+?ZeaifzkW(nOY&o5_)c9w~&Lr|LoPlX}eZbOTNa%vk7b)CXAJ2)) z<>CF3R3|kLhx~g;f6Foe2hss8Maub@%K6_=a1Fe_pfPYd!Td1qRn}Wc!m3FK!G=2m z%j|$v@anFo3aWD%hXYR6-y5KR5x;+y&lW%tbL?W3uGR%C4BvTE0*uNkBI(0Rl5w(L z{s=sp-Ia`;Uvt_+%!{FQA;x{>Iu|}>^11~rp>Gz;*)+l94kIIoso={Hi<=ww(8eDz zL%uR$8U@{ZwtRL;9*<7FW_O4jCytf~Fepa8sII)!`(V$wsy{yUn1VQ9gf)+zz+oX1pwH_02A&zSmc~#J zJzM-_&9}}hnyLFnbp&c^IM1t~2`7 zj(j!C_BN3`#_M&U#x1&k+o2nZyeyLw!@PZm1y07 z6(GviD~;DQM_+z*%}gj?E_&U9z|}ilmR``B+|#+naD9CG#TQ3^U!DXpC8zV(2Yw3% zVZCE-O$~USf4-57o0~>DgbaZ0L&|*Y=2Nq%7Qjv3Rqz3)BHYB?U34%_XB4QD$4HA-oy8;1OTGz^AAb-4L`k$QWSl zQV(>H&yVt@+M!0o)$T(FN-_QZ!C@nuZ8Bbxe6v(-EUOZaS2e7P>Bq3JhIa_J=T1xZ z6tP0so{91Dwo4}RFY`l~ivR7DYPMCy_-}B!aB&H*E|0^1P8V=-pHChzNWkgB*`lDc zI9wou@5_tvCEQv&di43IlM{xZQwAo1-@HG3$X`jcSB8pf1%)l0JzEs3kavYAYf8Su z*W$0+n_Ko##w=4lQxuC@`B&hQ_StpFO+pwl?EgT(>OCMZz(yYk+WUbx1K{@U#u)&U z!OyXow+4NG{hR-P@r^%|_AkEiH|%Qlq@Rgye$uZbYglRYr0!9_F1@2?{fsQ`VLvx- z=MVe2)jNCG&s5ew?C1QNNB5lB_R&2vahqrNT<_**_Y4#N?4GIG^z7bq1tzuV2lzHw zKfte@hhBM^!ExPReK*fJy+QDSI%h_{(B$^r$Ky&VrGuA<4+$p}~BL8pjUUng_{7^uiPv| z?b1!5(GILCZk=p5bXm&nCwejGH(==QT3?O0SR54 zf%D-$nGiUX>+Qwnw1s3rAO=vg*?`yuV-3lETw1f<@Ccc zRM`4pzE&5C!>X|?T=lJGnGN*Z6UTC2N0c!g;q1-IP|t398VL7>s?+ZhUa?7SmEO>d z6exKi;K7D%Vv||zc*RvaNF+$$G7QrNO) zySdzh(!VllJi9tbdwx?Y?Az9o*KAzB@^YgCZOapDEbSX%`6It9?yT=_VB+3}C zTH`0C}^!tnZ0{v*1W#~m_UX{q*!*-c{{eyD|iGu<@4Fdyva z-G1?X2+4$=hoz`|pM8Gx-RS({Q;2yrI;kX<7O(aEesL3E zs@ykw`0&Ts;z>Gt_|PhURCzojm2nSXUr2VD)EnIT{B5!Pxx7-QBQ{*IV(;P_QaUnh zR4_tbIIv{~X4NvAR*$P(`5aiB0*^NCZcyHLOpPg#sUbu4o5<*CKEq{|!z{BR z8w-98_s4JP>}SpIB3ljILwhj{GG6eOn23<_4j+?J;+{1?rD`#MLOmkVrHe&9yOVZE zH9}c=FtK&$Iv)0ZMnELW>vOyUsyzg_MnDeL7`#Y}RK2rX7@tTo{moOF zB=S*!B=9UJ-)7E|1U<7!GIxr=*|kt9<;(O}js{|r$l{`vk!Wi7E<1rB%zydyh1*3AZxCIp`(8>TkK0Uh} zojdqnv#0rF7DA0|{qp1*x$mG0FhK=W8L9$9Cnh1N%k!^}FTXk;N#o0QYGDl3$^?iL zW+r zg^EiTBqbPsNKCRkkE#-8Pq)S#N%0Ey0H63;|yNgtrjOm{XIXEb@maz#0x@@st#xIX=yNv zDGX*AJCO6jjs^9$3l9b?Gc~b<#Yc4G2-Y^eJrWK-yEH4yHIF~_9?gHXNFd(s6{Q-} zo%@V`=Cdmc{8-v6pr+B{%Cf1|iNBbr=Yrn`sDPS)ibGnVoFkTL7bxYIOWJFDHaXOe zVZ92H#JMX~1&11_w)Th$JU2sixGGFP$aach2m z<3_v)xk)KYdDOmo?Y6vTMVSxvoALD#GBjg&$<=``Qc$r)g+>&nn7Ye6iFBi1altPP zF-ErW=2>M2r-qk25zN?r;OiFoV?NjjJ>2U-4x9bz``&!RxWcl+TOW!$Y%z9_6jM$M zii#mCVnW}wQbJ|=f-n%!Rf!1i-&`?&ycQ6F_T{6I0ozN5YKbo!KJ{8M>HrRzY!M5t zK}kiD=tXNCuF!n!@IolvI0xmGbhX=3h1Y3V)j>U&hvb?lnyA#@b_YsltRF^jdR&5~l6& z5@bv#Xsg_W3}V5R?QGe4lB=oa)>HQTE#0{seS36#`T2M9_>5zLua_BlRgq7qy;!EpJLtW|l3sAm*RxrEbI0Ab%rHF*p&QD~K-9R+bUX*}$khN+ zR5deHP_lI~-TuSP{BgYbk{btK4HU{yswYT6)mJZI^&5H>5gB+a^@hTKpvpQeQSSr= zQhes7c8=UQ063wUsQCwU63as zKE@yz(S366H%K6ffF|UfaI#z!c+ZL5*3@LYvspvt=!nU{HC#i-VLV45{4z#hq@};>xGsWXG;!d$I}vB zc5p$<3z=`_7)WtYpER|bxd?B^nafv08r>jK8mO!kWTYw^K@~SA#o7E3dg4> z`2;SYeU{zz2~v$ZeRmF{RZTKCGJ<6FW!qwxpKc1B zmqI22CSbCCSF%`{w&B}3|YM`9yR01M>`y9ZgyX-vB+dyny0M< z$@sl`Aiv+>%N2xwuGat-PfBSEqzR{Z^xs|eWezr0Z@O%UwHu5vm18&Uv~Jt)5sar1 z&?7*%Yj6#|?Rek7;uUw6p`l`YTUJjkqh=fdlnE!G=7~%?Rx8pRuB5Pk_&GN(+WLX?!$a%-y@ywy zY9M(3rzifv0>rAzdm-6Y$h#q_>w~V?!o9HtzDmEu&^A6HOiBlhr$K({hY+pQYoh`& zYcm}qR*;JChp<_thL<+1!VCB0u-QZ^H=dGf&Hor|s(*tBtw2TMGtjl@NCcv>Szy@~ z&^R~q-!<-kBUt#eY}tbPTuIPxmTvy?IJcP!%aVH`!r*SC0U3EuBuF2LU2acphT>ollJRmN>e;1yMUDKb~yB^oy&+HW$*JwnoBFKqmNHUVv7BnOy;J$&f;SvOiOEK&9x}#hIdDi80H^FOw36LjI%dXdoy+9{ELxN=G7 z;(o>PkEb2u>YIJPu=^J4pNW^g&3<5@7T>dY^c`JGk89IMCIMeIXcsf$h?gSqx!7h) zj!-$TI7gW)mpQ|h)|l}r()Z{Z;5!d;E-5Jxd2oQY2DPwZa@A{?ghX3laIJjq6a6~+C47qj@6te&t+wZkZXcaANrEXTcuSeOCm(A#wKv!SY)MM?i)ohPbkC$Gb9DT_%K6m-P`|kKP;u*7?-;Ar9GtItR0r6_X_V1Vvlk~fEMzWJ8?lk7Eb@^)00qy`^8BsKGpy}DJD zCZ)Z2DiNvj6r#dL*Aw}F8t?@DPbVoA66!nZPn;*?bm(w6tXH3$+CeGHf*DbTq++)+ zL2tn-LcxhIo>UN7t;K>$Z7mmM_DMhPObn#ciB9VE`_u(TpO3#DLBI2&quTMDN=}Sk zr0!?3TK2qdPuKMnFLCd+OU#P?gwEa`ZX~OK6zwwHOH=`DN?_jn%QOy0o65^pjJQ~bBjVB z(jy?eW*^WG&GZ1WGRtkH%s_zI%)p4&Tp41ZSt360&kTfrD9di~wXmxPG{L33N8n+%Wm5nhM|AXD5457baF)3)vPd_$kp(|6FsDzef zu6pKcJSCs1B@*&!c)SaUH{!9%pVq}HfdE3#ERf@6CP;*n;CuBNaS=fS`P3YhiZm~U zAdLvADSM~|{qF;?li6?YRfCNsU{Zah3Nj31xyIdma-Q{`XUWyq|vAF1=YAntR}SkBvZu{G3#L=DbRJL zP{z@DsiKO{E5;BfDmy6B43d^Him<5`G}G#TY|^N(I~SwNsHnDZeE0xhukRy-j>M}C zRAW6uF}V{Jua5U9IG=h8HYq3v_Rd^xWN}5i>19O#8rtm4D5o&$cEJb zI2Q|`YgJ^qLI z*@g{q|C!iF5Mh(Fosi~4)rJf5_y!+iE9_$n{aiwQN*E%%>VX)7?Hz1t@G$9LWEdVD`m4cTCPFbLY zQ$skSx588A05r#kJCFb)!78Y2wrOuW1;ZmcA;^BQM*~>O9wf1CRBh#>LaUV1srA#t z%3{iq3q!Iow0By~D+^LW9uU)itl==QF0_)Ok4Yr!!o{>iA3?}{ta)bIYvLv@X^(!n zOz%(%B?m>+(J#7gTH%pm>^miyv9~BEOVl8F8pljeNmQ^U44q19P%rT+vE~K07 z2uHqZ0s*EV5SoKm((`7Wuc3Du9?@Za@!}&o(xm&n-j9!8NXNb`0Kt%Wg0i`y;|2PH zT*2fvo}&Ok#p6&<#U7#8s4(?}&_avN5`u7(8@j{&F;IVPIhK2>XIss$QtIwk{Aw zgmDp9lb99_RbAfQcCKY@wMk=pP!Da>94sHx8n#_x>-mQ)7p%IC;i4MW!fdG(|9{*F z!AivjiS3Ri3*;TPK)7(M0n)|(K>X3>2LkWh`aq;FrtyJ)l+{aXbZ~Zgk1d8rpr(iw z>;J^=_%AQa6Qz4(Vz{n&w!CT*@T$!I*A>>}(bis-R)WS+S;}A*nPn z!8nwhf6_dp81ZU_EOcyRA`*faBas0`sEMHVh9aSfF%{$M6LYb#LNFM&t4p*{MC(w8 zZQD4+5!W_0AKTRS51EiueK#YLincK$BZkR8Xi9Q_wPH-R>6|8m@?9_}1;M?VlvG2! zQAyytH!BJ43u;(0Z5w5{{7^8)yd*hr24=HF>$8LR%1cP&virW)knI+cLQHrSnHraW zZXG?l>#(L|CeV6M>QoE9=9xOM#uHq@MV@3wtnvg>FZ03`DJA@#zs@tzd_}NaK4wYc zx7*@>Yq`|3Z4$qPYO&`7GW7vGQ^3$6ETUgUz$l2sZ=wBnPj>WmS`-kq-b3?*AE z`V5AMRiA+rF*n0Aa^2T;$zZDOv}Q16TPzw}n}pG|((ta5hS*uRO^+Nn*#h9>IedL_j0nu5!k*3S4Im3?p(l3m@!VGI z&p4&&X27#D_Df2g8Q$MXWz-jgWa7-Z0UIv#llN>u-4Y|6oU@g|dRcpoAX36k$u&=Z z)&)d~Hsj7*cvr2FFsA(WNM>KTOxq6plgiD3Ew`nN2jdEae*fceriv^XG zxcZXIvRlaYd^!v<{~Af{myqc&vYh@A7Ps-4U^HC`_+w#%0DG=TKhDhT1BDx#$=JLs zpLW0s_)w@`D*5wxNhopz>rg~f?3-ZMuvAw~gMnS`2}6lfDYpq2nEl?^s`}1T~QmtVd4bTwdNH z{QE6ug0*1RH`+$tl@{;p2~ljT;EnB*Y?){^bdlLr+cNuQ4NCgXIRHv>_3n+7IuXVX zzzD?PT-*enlc}dO~jwU}CVXz8~_lg8+Z%7eC+ zngX9rRbNi^HLnM{IeYa}gDzJyODJp`eVehog_r1T6^KnE?<*U{Dw;RfB~zgs#l%+| z)#xQMXKPnQq>RVKcs`k}rx};+TO9KA+7CM=!}_3SD-C=8uh(ng5K`BF?3#LfadvbG zPD;-YtZRL4iE_6;ptNK!SdJaVt76J`d_!S^i7SnNa4A71f({Xf`o`MF)Z2blp8s=I zsh2Aihp}mY-99#*TW&@hpKVT7`IT)x1?2Eh($2l}ECrphQnL<7Db6fu?L6sbGa0%pU82Q z_9Zvptg?UxM{ZvzSKijVbXnLbWIX*z<}nj=k{7EK3m)i zQl$*4Gzo44;S(keJg|w#8D@%<$EBi!WWzuQv#~AT6=rO(Aba0`BiuGSw&8)MJM{4p z^i(~S87MC5R%4{fP2)}mKp<1ed~Li+-bs3aV^;3(ZyS$if4^hg%KiNSR6wi0Hjyj$ z_gluU+~02%y;8tc1Po>%@%c&zLct>4;!)N`!<2>!)>;}iMb*^a@99&2$WQr!f2(N^ z6Ck&1#Gx3|IW8E--|Ss&e{bVN5dJHsd`Te$D1r}2l_)*lBo0o!0zxN1q4C{Cq)C;u zKtbiVvoo{n$K&0N*N&Yg5D+xpnVntlJZtaEGhWJ=bjr{NjZeK{XoN;)r^UeStGOFD zsuF?Q;J~i+;Id|@NMo$zLyWv5J~}F{IW&FAKoE5ernAFJ-L3T zwU#}r!cMz2lcKwv}%CLXvziy9j>KVLTsoer^Dlpan_ng|*%sh7iy=J1+ z4xlDuI`lYY-COi05lcSDcYJ;<|O0!{1^f$6->@`1X%U?b| zoV@klJ$b8-^Rm3Hg+Nl;Ia-ltxqfcXQ$mC2H5fQACHh=$e=rEy;MwdQjiDkH=jx_w z55}k*lhR`K%0Bw-3z=Wj(E~EbLiI6^MT92DWJqy#SRh7X>k#y(V_?WoX~Uy*9t|i` zx5tA@?P*J0fuuaV;%vbLQCADYmbcGT-!KizPfG=@H zANHk&qh{mJfBMSAtu(Sv9H7(G)n#co;*PBh>VY&8sa@0yU-P(TcdOSt2QSE&MNv$l z;}#M$5Ve7QFd)27@?Y;>F;UQrwpM0^|G0K`B9$okEoYhh0H0M@-0~#F$CU$(z||h8 zTlQI9G)d$!*U?e>mcN=HXgli4Gy^W_%FLRNFg&%Re>dr z5KYh5ogSM~RH? zv&8biJF{^;b>9!R1*r-KTC4KS<3Xh~^;%G(GcNNq8xYL=e0)9yzo(BfK5auQP{seQ zBt4WEB!$QXA|<9?pAJnO}H4NfSI< ztX9)sXBZ|!fkK&R6f)$I2I0kxCz`h2e>rTPkLMBxd8@*xh>Mr6KF*Fzc{Jpt66vok z@Msiy>%}`%B}!1ScBskqW~pe8pn`S9umTPn<)+68bgG!_AM`jF)JDpeFj!?HJsIL6 z$V5WNic}b9ADSH|WJHNxzpBU69baLX6UG!27*jH!9G1q5LpvB8@<6XKx}5cTe{@mF zj4PB)S5i9tqVn5=t*FQVm5PH6D!@iqAr3aE#K5MF;L-=18!sEI6~6&B8**h%x0x^gn7ge=v(TFTu~^O~jZr3+0Wxd8IO$6C zR*~XbW6BjfKnCE7QYLWafk`BSCHV;`NeYk@ujdQ?#W<2owJ=Hr zk~F@|xg46#X0zxi3)loNGP$Kkw_Y}>YdUyUx{RT%!}=;?$!&&D;vx> zohvggN?wi+r2w_53?lQZF@0ENWlkKU-B>9cx5eeyLJb3FO%d3de{4lQ&lyHd!U#9< zd*hGzw*S6zJzk2>-|;Vb8j)xD(tgtEHaAb<3Ej`=e*m@WH=75gmKpX8L%Z|yPQX9% zyhc?-Gq?&Yze{RG+o^jgtEs@kQo7mj4!1`rBF1M6YI3AcU-Kgi4K1x~|KV{uX0OLA z9Xe(6PDzJr9Xh0Re@JSJ|5In2_jdfip(i%)iRSD7hi*vS&@{xZ^+9rMVn5t~aLdim zo^i{Sc`Q0*`wkQDG9>joO$*xX$wq|AE@`*T0Mi%mb`Ow}#Jo*~N(1igW>9Iyy-j>o zmLIfF7mHQS360-19>W&4)ayhGz)V1@wUbHUms_>0-$<|8e<_rVB|N6rY?4kTpOE*J3w}JNQX}t3K9T{qBaa#1- zGg-*Zei~O9sUb3ffTDiG+XICt-78E)_op=?!llI#;jH+8aFQS%{C#fr3~H5v2H!{l zhIC~Q3r@TSe+o{eA0$}g9uR8xsXZK!j)p;aXL&6MSYs^)SR(`h7Enu~9N(>1A{k95 zFQ5d+_}1cnVU51rqV~?+6FX^-SNWw-@!e7qnr|PKFX5VKfpPbU0(nRFJVx|&>w#)q z_w6E8=rDUf(<$0>ZOjE-2c2F#SJ{|G493YIkoOo9e;8k?Rupiav<|W;1T`@htP>2e za6*o-;2=Vw19T8@VGcq{3c;X4|BDeAbYH0f7^IsPe?gi_;TNQs5Pd;v8wX!d`8)De zcdClV0(_Ykt6Z9K&K_%Fji@p3-Yh9oS-5=saxIt^t;f08h z=MXFae;dG&Hsbrx8W}iiYPMFS;>9JmhER)u$`H2J(dv6?jD+wBoP*!8tq?UM*M9f} zB!1`wWZ|$0$PqCkDJon7(UN{y$B3t45shY{h0$!0w?3H0X$`sgbSRBT+eXqDd-^O+ zO7P-nqW-6%-(-o{+YkgX*NbuGeI!NWXQCK@f4C-kMk7HdhGS=}!#Oaece?#d1Ooinz*z97aGTqNa1Z?7Df)+jf1AhO22%laH@d`{{=)u z8R+n9^Md|wK*5^b0HV)$De}e^!=(~HaR`>`B3LT;R0)Slv8azoDROH2Kq;zKN}N;z zq#8s?sZ~dXDW$UWF;Y~?_90Tu!lVihf3$MWAx3JG7%6JV4uem~TsZbbWC1t!6CXwR zO%IQP_9<6W1xIPMhOtqUB{?+8DGyT&HihZl1xD=vG`k9lYVTOh9g}J$Q^&wHq-@@& zJxyAAKon_jBOZ#&na*Am6_XFMCf;8q9>Xm%b^QCdKcWc7>hpo-cE*BkW16LUecJS zj}MwtRUV5o-?o=T`w0oXp0d}G6^)S6S761?V!#cNq9;>8@^HePzsNi zgEY5eEeRXOPLPR54V$0}>|?}4f1uv_jVCG%;v|$e)g@I=5;_QsATy5^6X9CzNxr%o z9FMN7Z0BPlBJ~b=JUtvD$>B-y57?LVTumb7W^YGPyVtWD_bf@3SDm%NF)V8rAsMZT ze8Dcn(ry})EVT|KAp?&QLqg?t5=SGCc8>$h~uyc2~i<6c0vwG4FyT@$GX@LEI&5c44eKrh9M1A(YE5`?wF zu^D9_w;vC}#U3I;_B$d(a1@UTkxAXwqC%uP{@yi&Ns%F}*)}$WaqY*2z_1q? z;)(i+43QEN&*Knfi7i0=e|&;DMC(EfxJ^>{H$`eK_lkj15!Fb8 z7!tHN9&NB54@$|4IEbM_i4k=Wz=osW*r#iX?FW6O1mUKTR!K&-11W`_mOW+q}oB|$TZg4G0ea0%VPqz}Skcg{8#6l`GdW>0Mk8Cq)ArTyh z$b~K<7oyLZaP)!*e|w2vVCQZS!N4_3ieX3uSc5nQy;=rP_)5DU%fQv#S~Nq#nozBy z4lxaz#58bIc1axKceM~3PpE}`=W(}#zT*nq+GGyym>b7kXD9YAYB1hS^8;Sr^U6-m?9Uu(SlOc|i z)u94vG7^1aGK4fHR;p^S1wlPyy`(sFEvGo^&}mCrw^jv(t)XBm@uriD@xD=^N~v(y zf8*HD@;H0F1|iVWAkpbj0z06h6M_`>TEK`}Kz(F?w`Q^1{EEh2B$CyX$9Cm;fhs9a zS3m?Vd-1}G;DG9CRR(42%I{9#5!#UfjCRx}jnY0A_GY(BYFC8@8~;FS?~~SU zakV{Odo9Y+iS2d}%Mg<>YC&h;3~C2Le|vjEdph~A$>2NWt={>6$*i!wW&qmO?2sa6 zEe1Ja5Qm+5U;*~Q0^Bhl?;aD-)-0I{X!RAN1h<_|0kj#m!2xtdP3P6SuH}GOJ={sl zx2upf?6`N=n1HsH6jLxWEjKX`n!dbuo}K4rw6nT3RHDix;z8!MVCq?V>#=G=4 z(nfAxW2#o%#Q-;?9PFiIHl?lE`Bb?adGM|&2F};Es*|l`FIAiBsZD6r8$8a7v!)tI zC!=*-YMAy?h<)BmdG>l*T;iiWe=Vsm*3MSBFSg87@{3hRizd@vtp48dUi^CdTTWJ| zd*+L07&q>t*GnwH5Vl(lYmQddE#0t{0QLS?;!tWS+nS0p1%ec8mCb?;rbPg%2J?e{q=Etx}`% zDZRw_bBi-ovZ2f-Hb+U z{!i%xxo5l&CrvXo2F4tgF`o0tn70=t3iV?YoV{i4p;Y~m+3|W99DiJ@H&>IDPXdj5 z;x(?{Cau~yrL|A|);@{0e>R(VoljrArsd(q(o9)spg5SmU@cr&SbEw68P;6?I0@yVj*RqK|o#jVwvYMMwz~PWnRClLTALH zp{QNtldzHzSd|}MPjBh9{L(W$*FQmVZx zD5<;pF{jn^u%5_Je_;ie<&EOnOPUE!Zld;gb-(o zt0TsfELY5GhiZ4m$`MS|mLzJ;%gWC2${O)}7#tGyyiMx%GZ&W1V?U-bcn2fjoZKMh4JimdTVA4T-K=GhGdl7s&1(U z?BiJect*yY9LCS{o7}v<`2RHdThR|1r~Y>R?rUA}uZzVjAJ0Yi>&4Y?Mv-QI*|kZP z8IaAr%4RGch4&$J>xYqrTQij!xW*l3@_)I{p;Tq4e`=&x>Hcnz^FbpRH7K@+ku)NN zY7CD4tf<`kDt}c}3{HHddtd1n#_XxP8B(YySp|{m?CwqNp1T#f`0Ug|;N9$l(MKVT zU&N)D?c34)3$rJ_`t69eq9x&P`IBWNn@(7AWDZLEb#Y0G!?Ku>wPF<{!+>aU0a_`j zXab4Nf2Ha7=DCMl&{1-fO$x!xB=TB|1i*t%A5ACvUPC%kEKCH&{2NM@-Eic=V-7PB#3?^rdLp82HI&kP;gf7Z@qZB;juFQsNYifvmr&fKbYoHM0< zJi2dPLC)Q-hMYC2ie|dex`HNeyXu*Ys2rv_oj)8fHwq3e&i*nhU54W_aO+gZnN5;m zlKgh#RG#c+lj$;-zE3)|iZ;HR-4?pjRrX$F%)pfyWT?~7mF7K%NT=CzX!^=jpR)N+ zf1^-|!XOS$7x*;m9tiYk>K~-X}sMYY|sgAXB z7z?flLu^;}Odb8T7-$98Vj$k9wHUQ*f3n{4*X9-QWlo9|c!i#%dWYSynZ7Joi1r&q zx!WX-Z2-Ay{y9{&A7wu-?s!W^c7g6Q^V4{GIkx%4zHAur?Z9m9TF^*rmM`8`Im&y$NsCm0e?>0X zqZU8*#uR}DaP{|=xlYtFm)z=lUflV3c6B#%EV79MnXudtv{=t~Ths4?Ot%YXnsA#` zklaF`M_hU}zpXP#qg2b%3}eq3*Mze`^_9QE3K|{GG6#r-GQgW=Ip`fWt&)zjpR<$f z?Yg}8e%^b^dqV$vZ}g!T((Njye^xzRVoT7JUla`xqu(zcT+y7MKlja1A32e!xGA50`z@Kfp62tr zQ2G~Uf%+ySAliB;oj&3gN|!Gz1S@i+64Y{Hi{P2xN1hhmNZ2ZNSCj25MeUh&X5bg~E>r~i@s~V+?@npQLQ*wv6 zM)jUeuYS9`iCejuE$(B|e{U9$_&qRslTW9smFX{G(BHO2htcqRejS5q zKAr@-)yg2{HdZvCzHKH)C;>|gedwYiNN__@sR9}Y8}*u*)K^7s%4j7dW4AtV_m zP@pg!C%z^JjxYEUAk4sTXCKn-?MY|rY=`hD6zY?9S1avmC9PJ{e-OKKUAO7=KO2tG zqD^OXkmC#vHzxiDzu}drFZ1)>E+rQcTrhJ^rgk6%9ddMY3V*Jyp^n1|&eW$# z9PMS3HJn1Qpa_0=s{qq|r|%bCWgkC#)E0t@b5GadKpY!t6Sty znD!=qTfPvnh%4gB*-L|03Y|v;6Q}fIi}oW2coN>EJfRfym~)bcmJKP^r2LQ8618J~ z+)DtxFV+(1GkN|?;A`HkC4{dN=;LFd?mk{iU?+Iqe_CL?FV`}lec@KB?_U06b;B4M zQs~iDI!SY2Tq!Ob0!zUJj?m&5&CtsUL#g(t`BRWT>OlE$qo@)Y7fw!d>XXtT5emB` z@xs$xz09y>2i+ZHE5tP}=FL}ZETX578-0yu`|gxQlGkgwEcPF?O5iyB$Pz_?*}5ad za@Pe_f1_;JjUok*nJS$!FEVxt7|fOXjFag!o8st8a$pHu-RAJnrFmuubz+)ah(=UQ zSxenRV*jfSf!jxuJ(zEpO_rB5b?2m`>F#uxUv|0Hof>393gd`KD8E>6 z^l{UFY8FdzZj$Zk$F`Mk{PJ_UD!~{oi;h=7e>3?%x?tL(512Ji5huXn-d6{}CQ6m1 z%y9LTOEhKQ5c>u$eA@0wOcn}C$gu(3rKZDCnnhQD9Y?zq_D#o8^Sl^)2L!S4N%Z;F zW_`b}@0FgOAskEF;3qc9SD$^kfA|$Q$(rebYmvb9#$!Uy4Z`lxmtXb{_bNz91aKH2 ze*=1KhnBUjl+-PxI7o0lNH~B})+TH&m;M@fW8v_U87T=52$!gMNiz#Vz1}UzqR+`- z*>M<3N=h%s=A~D@(9tqDwbQhty`yb7gvoy3JW0?%q%?^+$EhnI7!ykriW?Q;sBca; z!_Wm|fb}m~-N*C79x>LaXx40Xxwj!WPci`Xl{~3`$C=B&?MU{&6p=8Fl3YNq8@-p$s|r zCI{5&+qXhi&R=2i$P$)}f7cbN%9QIpzzxo2q2mql+d`#NcYUSYtnWCrrbD>ze<9l2 z@9jm{E`#35GgiwSI8_5r95n5yxop8zUw1I^T#-<@AwlGO3a*pHD(oa3S98c)Az4)< zJ1K5?@oI9de%59evhx=#(_T+52d&mIETn5egnTW86k(50I~Prutsqh))yNK{fJl=% zV4Q40MKBtU(i|Wmr~!qdM<~M2f40i9qjThnO5;clqVOXbT6`4@$*>4>z`+Z4-tNTb zHb26ZbT<8INH zYDr6ih^$)`RkzZz=38zKXQL-pzD$dMi?Nj>&YU9$o2g$2I8W^hH_T;re+%pQNjAMg zKM?%DHTv~+GQrDRVdr^mJf;V4z@3G6==?goi>qgLTPJuQ&LvJME&v^UHl+cXRW3r9 z=$GM?T>QB{;0>Lj+~tJV*rq!0A|(yasV=;lDw2JUejQLH_S>O@>{EF;r=sHexVTnKa`?$- z3`;9dQnlv>fV|LM^@pMdJRj!f%AFyyZYBum9i5cEtaI%wfs~|J!zQCoKc$LFWw7^@ zdHDi*LX{ckzh}vD;?p0gDrL8#Qw=i@9Dnr zqcPEFtp%&h(s+qqtu-?=MMH3wr64UB?+DJFG7x;!=4@evlRK2$s1Mgwh6&PLa&ctR zx1$ZDzX(Z(tyUaGf86m-vzy^~yGoezHasfURfNzKe~Lw|bzcZ+n52?NsF>vU@ud;ma^%T8{4pEm=ZU$4acDTBn_J;)oW4qE z|K4uq@#UO=MXH7%v_OcZ>(??PGv<0AT(g7$qDcyaG%*VXSXOJHm!;_?CqFD8RAyG? zg^=g^hu~q&Y7zP9?c6#;*(N!xjQ}3?D-gO^zs!X+f9AXiY@zZ^ke(0uCJaWA1&AyR z>q)47Mtx;&sUAb2T_-Y)Vh%z{{VB9GJ7LWb?aT*Rk3QH8r&w?jKw4mFZnVhEh$D?g zvUS9J`2_4bkHQ-D2Q$OT>d0v5$}FbUHarn_gEo+96$(*m)QLd=kpbu9GUj&mxTU5& zPvoOCfBOlU`|KX|4*IA4qr=jggBBehY<6dBA`w`;rMr%UZYHKoCg-q)?jC=w!>P<3FAy%$p zraz9h2z4PNu^m0{4Guw|Z$uuPhxmNZJ00|Q`+IbkImg-! zBhwvBh{h#^{n;z&x3FsrEz0J8@KctoCTWkX<_F8LuLw)!_>jMWK*iAu<%{xZ% zf8w%(HxTv8!^PS*LFHKY##&+&0YhCy7x0~znG#O(nL;ibXz@LWh@|24l1*L|V~2Sj zai~oxU^PdEugA#^FW>B>6@%LAmT?9KL5N&ClBkHTrNCB_@+-UVbD(97;V#hx)w>rv zf6ir!dm+UZ?)Z?oyv37+#R7Odjm6f(e`({w1WXFkD5NioJ)r{aDe29MVo?N4$>#v9 zlWf7zFH}`-tA#O5;aHPqUHNhd5i1x$dr4li3^%GGA}Jy1jBCFHITk+|70=21(?9!q zvMD`UTD@+rb=o`m;$^ky?Th^O3?k+th+tcL2~l?Bf-+HTy6?zr!*3}pS;pqbf1PXl zrqvZhi>6>SRA4y`htm|ctR>Xf5Se31*op*L4!^ZnZg<|ZKR?S%G;vPT-!4i}r)~sp zidtm2D(iR?oetM)SGVV{Byc2zbwm>dcSF@`UnioNVGc?Adm_@HxF(Tk#`!C8Xp-)P znn{*7Kut1gkfhlyrpm9664S96e{P-*KC6$-Z~^8J)?sH&BKYQq=`r4t5q$sk7(P)? z2d)4Ji{C@Q`sh6i5*oYbs52(ah}+ZpE%0?QdmN1|adl?RfDzkpf9Zt*6NaQMj1x2m`Tv+5P06t*kYFID0*8tbo5v>bFv@X7JEZxO+ma4V=v$Ew!@rXma zL43mjiZ(hi%5AtR601LlAVW>Z?-9~W{II&fS{pVQUPW6qyH4a}*`b_SPib!TYEgYv z^;TOjq;4e=IQt5YGxRogZMz4w$dvn)K%85K3;WY#R&J_c)IyznFzZef5l&X^SQcQXg%wn zR>EEXnbEEoq!HMWjFAcfT5dyH0F0e~QId&sCkL%(Ti=`@LsWat4za<|0i05>^*Di#gj- zQ9ca0dVEH@;n+? zuZ1297DX$wVOWBK^7aBZP4_U$;1*fK14e^FzGxMIyT&8Ft8n8NPT$p>!F zG!Y9|F)gCC>L81b2983D2mK+r8ce!;`=DlO&@3prFtdC{Q72L7gR4KtrQ9qIL{E4OyR5KS*vZ4PL0|* zz6ka0c6xCKKF-&SKaGt5f1pW_zR`J{x4Isug#pz)TxE7Ed8%S=yrUD|tg6w4;~ibg zxryp+iPtR91H|aBoj|XhK>u_n&}$D+(7Ncge+OuZCDna;fWDs~^kY=h$0HU43@{(T z(9)sD8QO2d*W36xZ-FHzK;)a7pdd!>uf0h-K#SkRP_dD5{S*$t1KkH@E3ei_&Enojl8Kr@1p}X+7S262F2* zhL6km)i}$hZCmQQ?|rzr+3A=9CSRtLe}?!UZi0;3T=F{~0x3%iA)3(wLWT}9gvj8q!W6Br>e}0ygXJ#*hbbdgwgFOZnqF%X(x5+f80qo zU1I!-AAC$R`YX$&TVS?exp&o-@^(sqdJKFuN~e$w#l*i()0+f7+a0uKFJ2sE7y0); z;1y^NJszI%uPl#8Ftx;)=eHY=uh5`9ezx)W%ZIke*7ou5ZG2`65s;#2L^@%vb#+x-r=QVnf^I{o zv3=#O)ol%KC#Na>;=ha@m|Px}?ye=nI)hO$RHB`nt3(IY(DekbN~$KN!&fCih#}*- zWflfj^9Gn|0#nUs#|j%P*B#6HWg%-q69cSYzGD+XSCI_U3I0_5)O`~#e{Sh9OXzZc z*$1-t%%SfEQld#WXiPGsm`vPGoqqE&MS^W&cU*p#z;5#gOQk@dK{8IAq}tK)bI_WvBfQ(qpU~nG0Lee zh9&2P*E&onx9|~KKSoy?e@`^d?U$xOv}+0J9>;XdM{_c&(L>Rt6M6-GL)jtdHLbA# zAzy1WC!<=!hu-}8!s;b7qU+s~3U|vI*{!IXe5-JOR~KyBJ)Ila*q|{a%JBvJ93HWU z(THY(e1b6}yCt(^TRVH$r#i8wgCkRXOb>y~Am+Q5t$agI%iPc-e;2dqwjzTlN%nyC z+M08jw*Z;F7UbkJaxb+j6l`gg@_Z+fU7;u_Y(x*pPUPPcPPKB{0{(R$0+b5Vno;0*9pF{7SHmeabDT~~F<*ZfJAo(|OV zFqeb+^6N{NR^}F#e@^a`urD`+lB@P^W&j;6bCc1aM%0*suQN1$z(U0{lQxn@lVled z@|H6HgXt!Ft&4xTI5Ih%i?bGqtH>Y-4rcqy(HmgV{Bk%^rextb9;Ix8W0a#wImlpB z-k==r>I4JVbX4j?7CaN5(==f1jWT%%~G^`VXc6In9ka zO?%%tVj`OB7uxL&o*qTJ<6)jBIZxGiVZ=EICjT;ueJOc3MQZ_+Bf1qQk4E$&{HXkd zvh}gm zvp%1Kynlszf0Cm1mq(wIG^lnb_C*Mr@bbH(!+lJA^NmN;Ca5SoEy-(jF$eT0`!1U# zg ziM!c2o5oM4NivZ#;2C>ND7b<5o=d!h5F8|wGowuNj#7*Y!2j^SKb%MD$=mvSHnH!#oTIwZ`{if2j2w@_yP1rz+l`Xz zadwxCif+ef)*hi%$7{{eW%BBFjEfkmFrucDQHm2~dgGt3sx<{&r{_O`jS%`**p0b} z<7xIwIwG6EMNMc`f(GRrDlT`}+81byTkj^Le^k{SEhzePBfLB*Gxb1mUNip@u4N%F znc4?%Y~ST2A8OP2CFTv;vXKH4WR-UU&|1q1fN`=-f1?^?xN8&{e{Y)G00w+ZtXOes2m7lOY0nBBG9U?JNTaEY_HStJ15lBOd_&i(SMlhf$%=oCB7kXQESU93I1GdZ<&m7Rg; zTkHafN~5{dpSB!yWxEyjI=t|vmV(aye_8Kjf4e_{{+r%#Samn5p%jsC;E`N!TU(Ai zCdJ@!b$C?Ba1em>jSY=nvR@#VbMzHpvco8#QsL<<;i|M0c_ds( z){X`RD9~u4qApi=OM*YHSJy9|lk4HHlXkfkT}H&I;>)x#?MD-cVb75qzO9={f48#s zn7*cD5-^3Fs;J{bF;x}??V9D5CZ3O+vWamjobn&B4%uvb)uj(<`)R`2cpqMWGD?1H zcZdcSq6v_~>!j^|-a|9d?vx6*t9BUgd<6~?Zsuq!G9{VSehIONTf`9d6vm(5lSq-V z6KG!%6bW(Mdwz(W#4p0_gY*hJe-s8tF`+OQB53@;0WAGo%t@)DEY8$l6TP_rE}C6_oG?E7P_?X_qVB zh1>kQt^#nyw#`|sV$##XCs0Wf#R*WS*G#iLQ*Fn|$ZChOS)5yzFZ`Kf(GaAeO(T@h zeq_M?or&{goLMvV!kcCu@ifKtl?yR_jQ$GOm zEZ5d4Z46`OCBdTPe89Qnxwbs`-~#9p1x@#4!@b4(AYdh^LUcrqWn>fnEUfSQwo^x@@B&fSNQe>^$GAH4eH&cEl{&#-uC zkylrL90wZKA1&TPNFVzBgV+6G`aS9WgV+7<(0gC)dB5estIvBy_gw#4cNHz#8vCro z4;d}(gxcyX<8I=j8#$d!S%P4Tk`zx#e#cVHtTWur#3B$^wqBSEA&=L)piAWR-ZsCJ zMj0*Is6OqTe|~jhH>VGIFMP9$9|uRhy?xq0rq8bqi-addJ_IS?1}^SE+6{4biP=Zs zWLvT~GHr<)N2Q&c*t%jW+l`YX8QDW-slia8#&uDA}Lve<=#tpusdESJ{yXpl-Hh3|85b zCdew2MJnXVu^>VhA>>PTO-hcp;H?s~OA;A5&(h1<1r_w8!(=!Wzv;n{wkJ`A>pZ83 zAdWaG2-7ivOY)X=kPVS~;jYysh#|ACNQ)rdT=h0l^I8Y;JZ_Rvf6|1RWON_Ad^JJZ zA_WeYf0ErZ#hKO_L}j)D$JXtm$!FPcItr0_6j`a`$*fe|50p`@H{|jUi^QL3hb4~; zsys7p-h@-!b6IoPPl75?aAL7k6>Nc$TUTgVJays_9TCuAp@24WB?igQx9ODRDWwPv z0GyEffA2VE* z_N!Y2EpI_ow=l-Y4h33R9j?N9RhwrE;alHIgYK{H`+E(mPC-C_N6oD%TcPsV$r6AD zPQ1&zU?Gz|Tdqgz>-(uv^Ti7>svJ^IGFq+}Y{L3dSbEErL&B1hBsBEt;OMJk@BCS^ ze_J%g)%;0r;H1)gkP@FJS8%fI#scu*51;TOZ8$NV$DtceS44Pz5+^;imoP}vxkd7F1XTQ7#~LYV&c zg)vA=$f{IUzw)`A=KFY?S9v{Zxs#oIf4xneK+4?tt}tvZA0xPPY0D#j5`SWx?Mt}< z{PEw5G}9w$r{)di=R_~trNL_E*R{aNJ?a8|DDds@x?$7>Xk`M_EEgqj?p~>*%zIrWzp?4p76eUlyTo&iOjwe@{E$ z+bZh{8)12c55P_VbrW(dI0&$jNbL{LvR6bdV0Z}xc0ewdZ=juksM1NP4apCIhZ)X> z=RfiB2BM3NjkKv*-2&(LMj6sXyXvY|Ui1MS0b+$PlGWzaCMqA0_jf%Fe2TmX+^hWhK@}L28ZWB0M!SZQAyvme_KhMwT*mC z+=#U<4ps`2dybgE!eOkqIjl2rr_1ux>guQGGY?E=}de(rN_Cl30S zlN2eB&MBu2ftn%JPA+17e^w{MAo467N23Hto&VIul0dD5nmN`{2I4avqiJ^Sg5}Au z6U%{Mr(V=!BT_zuGHpt2mlqFaQ7+7#k2;!&RzV@9 z(-lEC8_5cT%=L@6`S0~DSS5%dK|xJM@!4%U9z8#97o2rrjR$>}f8r;ZnC8kTdX*XN9`yGQPvfJ*&yIS7y_5dlKCSg7D7}uX7xiHO z^HV9R5_5kFQ6G5`xWpBxYD-j0*c&CI=BVl_jONw;pz#r6B6>s-dPe;&PWDsZygUTK;{U0u}yxQ2KL!lKqyt4OkuUvcz6cUHi@458|d!T;ef! za=fdMH5hEpAz}?OGEkcpD+=(xA+|BVkR9_f9uHNe20!iWQuQ7vOVXeLpRyg z5o+;nIz_lAsja(n*&VgHds*3ZW*}9?B^kbNV>gA!xW*&pn~R2pBcSw>YE*mfgta3M z<+N-3;et(WNvWU|qP)FS?G<=>@5RpxtTkSTx;|d2`D*;T$j~g`Zm?&!=?i}h!9gzX-N{m{xjo1C#+h^QRC(TYn57`AE6lWXYr<+T63wRH}yIidM23@!CHIF zyEcMrhx<~RY}50&NBsQo1N^l>xeQ@TcgpAeBKelnEMc4xZ`C_461=dTf>ikSe|r?@ zHlc2Rdy%WAgg+jeR7nBN*aE=&GE-&$v^@-n>d&WjUbN2bGnYT0I+4+$+=8u_mVO;IrWcXdRM&t7Y|3HvI@2%kNxiIR^@3TUdGaFJFhT?E7{O1?OlZx z*`Jh(S*~nOF3BYLQfbGC2)-O|(SPd|hTsE2dAow8E3n|s-~86QmyJK)>aqbdD_UFL zzbs+&S%ExPxv=_+y(4XIrG|Zm8UBL_Fijv``nac1pwK=DM+qs`)`u+Hk}TV@RF36cY^`o;NVU}VXPwu57oyjN5Pzlzt}cST z8Q@OHi!bu1W8VG4`o(_67P{h6U6cMc1;_=Ic&}fi&)_EIifU~w`-f`TX3XJbF-^~K zH63OJMu2rWg`5RI>t!S~41a?=^2CS2v8;;I{9^20JnYq&*JOSdIxp zR{#d|GM|+?)T~Ge_>uS`E7Tyo)G>#Cbwb8n$E_u8R;!DW$Rgv#)ZFMwa&N~bfNY4z&(ee@v`A}3Q6)s4y>U(? z=a@PjM!7sO-{dn2Ab;ctPpA$Cyqr#uAoM8{#VI@kX38Y(&=F}w5GQGIo?_f8{5iBQyj%s3byht;xq+1Lp)gmj8Q+H({` zLJBAtXQQDxo+l!cILdmi+b;Z9hf%P_(%;S}P|`_1*{caKv%~c|_o7R- zb>%%@{|fc0aUPV(3Kx#$BE?IkwJC`|g9BaQP-N3lnj{GusRh-61A?@_Fziq@Y;CYg z2i1~$j#Un+2KG+M7-j4cv@V!;)kVS5L0 zawPb;<(IP>ua?+(s`rxUJD%c7N5gOX}RRL*egT-13j^mZa|gH*oRs;?QmH;F7^)zxG3r($;8hJbU= zwtu>3;6(hko5Gs-t zJw=y;n6^hJMK(+m>Q3ic#D4&NDgh^^mVfwfmG*ImCtbR)ZQ&dugHdWg_xFp@!x^v& zK7wsP@tk9pr+5H+4TA44LF$wtz%hR6l~WPExMgMIXDgu>XDY|ke*o(+EuIIgFxXPhopjlpck+( zAZ_Ug*l$bsK$@Bio4fy-ofx4&qg=iYh!8}i#;8xZKk#X?vf%D_$E@}tkO`YoGx-W z&!#3W~AyckR0|+J^bX zmRXKfwQyBt%xk;JCU#uPQh#k3rog+|`6NBT!foA}_|q8ejS0v7LR*F-FRF)*eFkNJA+sT4dMtYc`xgZwFrF0+{){i~unh&4%=tC1oa% z3045H1+h3f#ma1`k^2mmION{5Iclv0@d<79E~wIB@&bcL%nz0M2-ANV_mM8(VzjV3Hj}@C6t2CwtdMI-Dr%D{QF(L{(zYx&9blm9c(AQ2!>r}L zvQCTx|8+blbQ~K3#ea!H+y2ix<;zBl8R1O9dBGA%ysDn|#kAJc{AkqCN+Hh_kethL8eA+ua?CtMeC1``| zM8@F}fYsrV3F~}}JG==Xo}msuCcV2qJj=#e0pHds;W&3DYk#xCnj?-c-L@4DOYto_ zOqw#`r4}OwyaQ*ztN-Ki#cH7`FU$oc^Zw8nWvWX#tuCg2diVhr0h2h)*ke};N4-y> zA{r82QK82NIJ|rBe?vvfaMfmi?|mxQh4Z`5cDIk<_xdAS2mi9@Ylgn zbX}sH*t!I5Po|pB-TETgvbxZ>u(?WJ$mE2?y)bzMk0p6vHB6PA(C-BQaue>z!?BrN zGuvTF3L%IFZD(ho2f?Yl5K>Ti4J*>4MuD?OFMn1@rBBuZV9LEyBGY;!o~5B~&U=sB zH(=kzJS+V{hSkZ-aVu3>j#VX5IM?#+kNg}~oa6-Ds|&S4_R<9&0F!yxG~tX@vl_s` zlLLIG%P}~1y7D0>2h1FlSR`dWpBmsqmPwoVODr&zBl7AZc#xt;J5qXm+st0!yxl3M z7=N<3QbTPEyQ#+MjdK$wSq+~FDO;R0A@}xrM+*rV3x$NN3p|9?La@1)HNz5e53Dcb zMLr&dRgbSvkwTEHuD+uXu55Xwfl&UM>3>g2 z;T1atJp4X5oK9>>6du2mBeQD#E*zemER6RcaRqFAB>o#k5F_x*S+b_x+{@bk>1;I3 z4(V97T>Y^-6~$e3+ZsFoQzyv6q^_@jmW^_HtcmJ7m6n~r^+3`NAb`j(4zU{#LCryi zX(UKjAdA_NX7q|IE8MgA5mOKmRDa1b&FCG9^I|ufOaN$=mba>2V$nMi!E(-G7r2OR zfJ7H;zc#$!4rU%g@`5N{3Q%64a(p`n{P*HIu-XJ=+`NG@;!O;;gmZUJlDOC*+#;|U zkRxHhO=oPy0d8`Mc87p6k=uWmKOL<+GPRpUDMYg*o6$fw_+)!;2fQfNXnzM%Af_MK zfr{Kq5Ckc~m8Iu$lwaXgY46sxf(3`Uib)4~K7k+o@Ew+q^4+Tew&4crwl^w79*dWj z;7F+TRmv`$(Hrouc$qd0Bw5m`UvuoDP`}Q!z`XpLEtH2)^3L5bySczVb=-zhkjqF& zCfO@!5La?cq%$PSjBb?KKz|ixf7_rgWWP~!x&o4ET_u;t)#O1Ymhlv^mIEpd%nF+> zb$SIE4vHR(@JKT&_gU4G4)$~Fv@Hqx#?3H)S*#^RM88ysxwjP|={ff&+C`iOSdA37 zph+^PpD>)l5lYgcA#xHoXivJ$@|Ay7uoR!UH^z^h?I1L~FRx-J?SF)LIh@>t`FPkQ z5vG(H&U`gR&~%B6W?S_@e0g#oIxUOVvQ4$#G_4yp$uq?NmjB3_9GPJmrwVsqIg%-- z=_niI=Wsub#sDoj=-&PM2trpe29hkDqMU?Kd^SIzp`Na^>zg+3?^Jv(Wjozn=e zuj_rvu(I@e=V zFmk5)pMnT1Oi55Ukp4rX#e3Q z^FlQ1vOeo~%<7mQ(Aq8R0G|Lg#=aVx6DRgVUL&`NITI+v381fHbVk(mCBsH<`viYL?>eqF!bg-oD*IWDs7>nl8qBP2nLq2ODNea1HdZ zO*US|Jl#6vG->mC zLqvSerK)ES4Ne})g>|>)vRd-%&KwpTIHW_aNK$8eIDc$#;IR7;uDl76C2zZ*dUBx> z3`Ob{z$fPFe^0DR{d?jTwZHgb!kRlwASo%1+=BB2l1IeSr^3?kU)#?vwV_94&wm`4DoS)@C(j=fxOHYAnd<%f`iRl zGp3ayfsN`))uETPI`on+TUVzF8FTl#5T8u1LK`yX0jfjB+`T?jzf7|#gN2$l$ZQki znhW@gc)~FZ90?}ogDRhV;*Q^9D!x(}*0ok;%zy2wRW}($V&kax_4bx|DWZD4eNEM? z)kE>0p0NkeIU|p4()&?LIL07seRyg$%FeQBvD#^2XSjVh;)d59*+>F00*G_~i#El9 zL_A0sCJWUOKbVLtY2`9k)gHx+GKdqRbyhKd(Te65d$m@Pk{?wxzZk<|ZLO*)1p=Lt z!GGSH86~;wclTAPp;#k04f@(jki7d_t1tGhVb$5l93o=IJV#NZH{Zu8j7?R~d+B>B zP_HuzOH>b&v!V*@~0PmRqa}QL#A1GuyyhZza^ud3ermzam1_P*eGQ(HDt$(Pn zGIgSl%aUSs#*+!K3();C*vmN)_e52~$vO7`p+M@m*VTeAl{j z2P+U=*Qbg*#8_t69t|(S_E^a2E`RR8^n<)V0;uPslsvHnWfCm#WjZbbowA*_}@5x-!jBj=4Z*=Rnxu4A6Q>9JxwiD;7Sm7rrZfPk*6ZX*$6| z+DI}83>-hfv&kw>@RGZx5@)-|yGix&a4}Cb-Ynbr>GrjPJLa3D{oy5h%dx(Gy7aHf z&_SdM8EXZA9&9mbt7>-2nwSU#mvH#?-jd=z&E?%~I-V>}B+JqmKJSGzqv-H&9c)df< z;35i=mN5JiFKu`>dP{MLcP#P5;!}qj?+2|9^ZXYamUJ- z(stT%mlK?FMeTAscIcYeLI**|>jRFvcBHJd#w|%s)Y`g~Nhf&W;eYfc*e{wQJHzNq z`9v(M1H?Yd3+oEbPvtvB&S`g&^LU$O-QQ%)0>H^{G}m;u$c3V%E^Vpb=a%~2)ON&O zN6G;aY@p@#sqL2~DBiul5tJo8V8m9!T8l4B8vE!SETdrR0-h6LXF_gja?d8 znJh=s?&vId=)v|!rd}Ut)g2JoJ1gP&K8P2X0*?HBGDwlhSgJ0HX=ft`gtACU_ z2#JxUGtS1muMe$^wVAQpC9l@B=6;N8_;6rV1~#{AVsir{8}8=n4Q*~>ByxRIn}!Ee z*FN>8iXr#9%vCY)LAqX`Pb=(Mof>>T$#I2G%nk-l#y3wQb!^SX=HUo5+{|AScF=_4VJ&hYUWvkc3yZb6@R~tak;VEn4P$rZ?4PP!EKBK zcw3INwtLNPVgQ9DT~gHpYUXFhhs5#`2Z+_z+NVd`2M4_`<5MH~(aG5+uN3vu!v(?# z60o;5MfSq1kv}s+vOiMhRD$6>_%fq*m!zDAK1?Ea)e$EqYxB=BSRCHSv&o8Et(a9B zBdin~+ka)5i6mVeYQPHN`*mKRnx1E9k8sY`qFvuyr8tY(+vAAkd}&klFMq42@} zH?=Ph!-6aac0fO$IXr$e@L_$MWA zzR007xC=JG%HsK1k`=|2S1Clj0@a-Z400v{Px}I6PEiji2*E~JE}k_-FZv{=WGc(= zB?a3z&M;D93%mO(fQ53$qm)WJLR=~+K&RPUlpYBgK?HmLHSV=jJH`tIh-Yy5q~u- z@s9Arg**aC5`c-6PLfAyVdLPNv;NQd1T}{BX^t|R`0-b`c=bb3S#39|KmkVQcvyW5 zD8*^W^!Wq?aRK6k&5nxH0}6MN{6-Gy4zNNOP#9mLpcsH~w%`YhBpF#{&MmJBLPh1Y z#M2$E1e)SR{)9Md6rB6Levv){+J6A>GG?+GL?XFPNYeSCL2x`erq4nhDjoJd*xUYu zVZbrN{wMnf_`!R8jK|Cx4^Otsc46m=Gq~Y>KOg0jm*O02L4VR5nrgRUtLv?nw5f75m~G@|J`ZG(!zT`S;2>~S9WPLMEFNkT0PZI++OS91sQsJ$yi&vKz3aWO}AEYdP z5*7UkYm0J6pKeQF%)&i^ghq>Q389^Sff9kH59Mhew%rC!6J{u0XMYp+l?r{D%&2{L zT&BX%Ai1z=zn8NtX-Tg6!^M&e@W0sdmyUGEJ%8x29iD0eq`Q?R05I?60zVjvd=5zyjT(u0V(lq z6~y;cTy%daOM4_76n_Ee?~|pVBvVNpmCiGnkr8z%vV&;pdF%vTrRVBr=#^taJ{Ixq zBSlso``yE%nf_%G)Mh)EFg@^>!u@O%?Wl$pQK+?JTk(qQvB}csM`g*XNOI|+SgM>3 z!if#ul);Kw(3YrAC~4Wk8#05!tiZ^vRr~=4=6z>7*1pjPX-SLm(6w7leW7GaXPnXyHYkbz)#dp1sRyBu=-Ix?T_Ns<+({asPRwMGM_H4a!NfJA^LP3}}+#DASSy!08ZY zFv*VH+jv`0LE(dHd*JlMVi;U7snRaNPFTcQurBAqVe^Cy;8 zR>OWH)qgUDiYQdQewR)nxk$}QT=<%YmLBs-iiR4?wu_FAcYwJBN~MZsK$63ql8pOj z&Jcj|+;0T3cnYa~fvG0)4@qY=lkIIKRTd;paB8RfR$ANU5rWhM^sOuTy|hqQ0!3qO zW>T)n=55jTRdDv;u%0xuxNzZ-ogzG*dwX{QH-7=m8z?Ix2dQDHoW8jaj`I9!x{B}jVO zts^8=MAOtw$tp$-?o44WwG@p?@eFQB2NqQ*L$uHF9QA>sFqpA8k%R^ElGV13cV0^Vj-!1aDO|(>|s-iIs&>gakJ!#MA$W3k;+LtFOQf0 zTQe!gYWF#vXZ`7E0=6dkq#YhLs){d$XNfBRc{nTC0DewhHJyM2FpqJo-CvGIYG*4m zeUVO_g4t|?uPmVWiYPp3lR|RH5It`z79X_9R?)Ov;yzJES{ z$`GXB))KIMapAtzaUQ3eanzK#4jg{ zpUFW=W>$lAiD#CjwOuVJ@xmeboPv2ZC))(vHdHyS7t;}&FN=aT-lsp+d;U6uczK;6 z@MvXr_WjvO6JU67E}#O`>S4Vtt6m(3u=Q%fdYwx?1_n@+(D*8!{9@d2)0IhDTGpj# z|15@wG#N2TZiB=b{?~cJD1W*(0ZrN6Z?Y7l4|)0%Zu+ zbNzs*!dt3tgP|zvZ5ZjcafpQ0R&q@n=52-L<-LSI0`%HbWx0WroPTnaIiY9l7uar! zwrU79d)3e=T*B(N@|rR z!v2$2$bjbdyrr7V2gr9CHAXE_2J^UGxdG|(av{h7LhqBVS4!h4aWw`shSB%5p(3dX zaU0&mO=rWDP^0RcZGQ?jEOd<}NmSyXaVXg427JFjwBYY~5{pF~8xJRFsG86`>2xxI zO<)qMjop+k$fEdv%D6dYkhS$a(gsarlse>@_qC}6O~wBwlA99=n$h1Qjo>t{T7aPO z|NpeH0@}cb5%)C&l!CBDpb<+>K(26LrUm>HoBGW7@bQ#S~}i?iJJj z>Ep)qaaW2dPSx^?DP5JD5B5LY|8y6t`o0PHmJxpbnvPtMU`jg8Vdjp}w2ZHt`3|}` zPY2maHlUGZ_kRi6MCa38?V&(g72gDs8h9vxV{XZdx@3~~Gs1JQm6W794=24DVHWbyPOLmtgjJ+t55&4)qmy6+=7Hf<3t_7I&n|=!2v%F z*_!0lJpaa$jtDRF*+i%i9D?KbAYZ4jBrFC%zWtgFQ!FY*r$gXX>rSVQ*K;f3~A?#KiM^dYdoxF<2Px74^z3-%KC3ma~ zDIjN}eV)0q9Hd-6vDOKtcL3x%_HjlNgQBotFH0p%{+m{&=vxvwd**BY$UVUo6sSROp3BNkY9OtdvoH>C&O| zf+L0&;$}`26>~&#{THdk zVJ#>^07K8?&vWaL#7dDo_)?9*H=CZhAcbYfmc*n#kv^A=mFhle*Ari34Ys2VZ-9{#xdCG6vV+}YjUA%BY? zW`SR=q83{?nNQf>kVSx7W?`I`6V~K{@fpHkXZvWIzr`B@w)W}%{^4#ihlQxlPTC)~ zxw_U^IZYV{QcBVrXVyEcwhQ#h%WMUOqveQQbXk`ilxH!b3sYLWWCV1X?&8O+uOIF2 z>~ESL$xoaGD4lOHTBaD(H^`9xGd3}LPr5b0^zFt%C8XmQwA4+GElb2VcUL6 z(RlVODE#~d!!yhP;uQLIoJ~2}ZIUE1w4~{2DaOX15pjj4pkb;u3XMy@FnOkpaanzgmHLl=H)9Yr3=;@{3ilZA3{rx8Ya=)X-^b@@~BWfPuV&_WwDyAnh0= z+`a9V!cNv^XJO{^Dh(SdP^4{E8V^RVc2Ax?-#>;|jadgIXpK(jhD?eXD&n0N9Iu7m$A66Yztz&C+gq91Eaw?6-)I8uWCAu( zfs|ijs%{x{Ua=ux`;oQHk-IH!?o)fYp-b-zb*sQLDSm*#B;nJAnA{)W)eI*mWVzD~ zm8(wSx-p9($Hh4^Bt0)sO$!qk5(+7yh;UgFmjlQt^GORzL4U4|lOOeG*b4Q5>$m3p zxQ%*W(Is8~vf(n~VHlY5%m5Fre8eRGdgsd^*(lFT_&ti>>5fapH%(2ML3pviWCcpr z32CK1l(!7Kn~~wM3=EHH+cFt~S+FG3FD;Q$y)=8R>ZPUHRWGuY*1cBE%Ya&cUUmz; zh2#inFZ!?oW`8g>$#8Ghb|cba{8S*BJYBS76gOIamsNnR#Gr2teKLHdnv3*!yV9Dm z!Ik!Q>*igSK)-AH>{}@k^j}~wh`VtSvWKEkg0%wSsU|@U7uc z44xJ=Myq<{XW!yF$~_i&D?08x%wRIn@Lg3 z@#ATZ8IZj8AggV!y2)nMBSpMJc+_&9HkUK3Q{VQ#%Nnt&^Yy*8ts;+Uqe7T^#m?5Q zO=&(?(SK#LKi9U>m)USxyZf%vExDZB3dnL9bym3-I9Du}A@__%? z;&Oo?Y~BSzQZ>b@1$WuYX^q{Rrh7NC@q-2Zz|Qc)Lw0wi zHCh!3ZfyO2YNh{S?03j9JW8>LGJ>WBqWW8U>qp;irhj;e#?==Mi0w2_iyqBYS9(&qm%MX9O2@;qM zB@5$?wPvn?y#ZX-IlK0|dG@UD^aV7l0EHQ>@u;e;d8@pbxj<%~SkoV>VYipINXQUx z&`+E-zMuRV_fs?Ceo|i7ewt_F^nZu;v%NGUafg2Hj=44l3u|7_9y*3NbWH%TV^Fjf zb#$u7Ix81H*z@&NTjk%Po*J(Y&QgaIUzdAn6IkL(0>s_q2T=~`C6VRS7o?;l(~;xj zjMr1CBAzGse-xB~21CzLOy#AKq03QiVK*uuoWHn~u?C(*6NPiX1tngzn1A%ZD^g1G zPb$uWa%#Z~qIgoAw{aLJ(_nE}@9K9 z8#{I=b4*Ao{Li`y`~ZPA@7tG9wX3UVtju6$_cp^yJ7SFSmasa@;pWuh9cF%0%}BlM zd#Lx4kIoehlA1VrsP zc%Cl4_w~kO8P(^ZRV+3J@y6ZXs61{!-Cxp!>c4|Q?Kq}O0*h(hkEs4F-HxN&_vdcV z8*V}~%)|zjhcv9C0Q%%i=tb|u=j9xy@Hedx%26>xDaE#8*5M9rQ-Akv*>yK)vjVJK zq>hWr>O&E)Q<1(!ixC!qwTS-O_sa~MtI-52VYj&+ea2NK$ud^p;}HtrIHqBw&HCC;^)9Q0edy>2JuvF+X4UYS|tOw8zUNt z{}dIYJiD_l&Lg7y2kj@YT08~p>Ebag-t!yHVH0brG`9HSih4tJA)rFVY?Gl<-dhMpD^rdI8r;ssjq&VQFI0^GLCc@OXD(+vF^ zHhAvb*9QLLV6&WXNnL5!v;JTTj0}FK)RnOzdxL?NwZ^uN-is@YYxh>0z*bqn7}IqY zFmL;+rbvvnCNO4*e-FBMOPpbcRn^Dy7|5~e2)YJc3 zyOBnGv8G~K-hYO!^uh~uJ&`hVC{~b!;X|dA6U7OY5hgRyTObiZ@kx}fIR5S#x0IiO ze~3o|z-8$nfyql%ZDakV#v{|#Ekjzc3(PWfPzG#*4Q#<-Ez(gfmeAZ;f}D(sz>qjC zEspMP{A(6kvn_Bt?HdN`C2OkueWe6$djrx996@Y!)*kj7E&x7{Y)stBe+kTEYl6FhuG$7{0Tzzu$Ch zqUtbIx5olA4F;A3jUu-Iag2q;3DeK{O|e~XRpauvx2i=fad$gfCydpMma?MV#)!s* zj=53ELP1b z#0NZNNmHG*hNfw7Ta%q&oPviKwIgn@j%%mQbjE4x@Cdn&{Rzg4%S(J;abA8X=hqo9 z^3%m!R7TY2KDu1qvv;!3&N6G#VSwtJg(+#jEPqN*+iy6l-67k<4E0D(p$*|(LZ+?M zC_4o;JFF2&XGtuM;qxBq6_!yt0M!>tJ?(sW4M-2G%;os%}Q|# z<)*JY9ali%c0STJQ|@@1c;g+aH(t1@Dr=1c81JeKU-TuY=D_U{1>4>XeCKOm+Y->l z*nju5S2{m5EsilbG>Cl8h=Ud~>+QGPu6>yZgv1~2q@qFG;{AQ}BvPAwF?tK>Ut}g^ zUh{Tm2y~bAyk()AYoMRK#h9jVzaIRn%$@0eOvnG5;T3N!x-lwyR!LL7YWZ|27=;JH!7xn3;cE$XZ zrPHn!HK8MB#W^rUF*8dBl=b-Ez)z3{=ge^;&mbQ(dDfq9GJwrZe>TWCLvGBXC3Fav zEDvaT!IE@N0TEtI0jH;VUED`e%E>U}CS!Ns7tOdUwR`J7Od(z`1Ou7L-~XPk%zvxm zJ+mnKEZTfY8vXD<*jhqP>-%Jar%c~EZ-*%X2@(9JWUfkE5be|`{=vQVN=&NnN zEao|Cpk2<@Fs(HvV4G0jfT=1E8U`L0z`|YxV5qKYoVk6t>?SNnicI;w@HKH#ffQ(! zBJYa%#{yrPMORokah2uTM} z=A^sGjnJ}Ij zevz@rV%}+SHE(!hKZAW=jv(1INy0 zz<4!AkIjt!ZmFw99d{xy|?J(Re20}Qx^0$QY3I5b_b1tV5`l~4|xI(Jvx zw!hX_oB|^v_B=4O(O68!#k@ELIvA}BS=^J2-7usL%wuu!7kQh^Mg;0kDz4%A+WbYrv`G*o${om#FRXHTYYlNtE5WuK9&!>~cISvj! z%W%hWp?~>rrHu-K&m&F!M9objx-NdKs&S*k!At|&{De$mZudh~j?GXR3CeIWpFw8s zcg^$$IXo{Xzy~=91|}v=ezrmv*F}vh>J-%_$h#&Ey8?i~f-Ha62wqsb8Pt2|Dc$5X z929SQXb%%={=;SMd$_Ek4r9ep9kSex*-nM$Uw@zO+{{h;gZMsUt-Faqq33^DN0SY} zDDu6flv{z*uJ@KwZUwF(9Ko|m3eZz-mBVL9wI*w+!&u6uESC%{pi3!QGBy${C+RU- zd&~_=uU#1`_!oH`dDR1WS5=e5%s8l@N%_9nv_yH zY=4uYG_MRs5dy8vC)$mh&SG(r8gte(cy27!0fe} zK8i@(u5Yy)ZL~GGv3LiW2}#lT<7k#NMatUeu_0IPIe(+Njf0B4!oay@k!6AzrN9^a-+3>Rhp!1YbO zSs56r*m?#IRFp>#b&+!3X=A$?S_a&+9zBUCI#4|qRh^zY*d@q7 zSq8yZaWBCTz55$|bP-K!#8|uV`xTkil4EGB>`NnP#xSz1v-YBkZn~IWS@yGpYUxqh z3NDG7fU-o0S%y)LN{Vpws~uC_bjLWmawCQbwxmhHzq-xJNz9`jgh2~)te zvjk&k=O#`@8MWF^PTpGWtvwdDK-t{5% zhrMC1H(0lF@XYPG!M4m^ds_p;GvxeePBZK0m97k6;0yEEx&uQF%7j01k)vAk=vB~mNI#_wEuL9Q%)xE5fOPCVilY4f`K{bTH>~BIRLnfQgtt1!t_KLkyCf8YT zutJ}520(}7Wa}aK5X?h=<=*QN+EJvG`xDTn><#_;aWiZ$caDw+oqx*y=7TLr<>+7f zlF{^jqrMi~S&_8;Wy-mM)a4e@bMB%zeGi(qxm!f*mt3Vqt5GsE>b=B$5i63U{p_u| zJOWi|6(Dhni~G}SlAsDAqc44Wi`O1s^PXn9olSsHeQsK_4CGddAd`=;Lz8h+#fNhV z9E=Y3LNm%ijmyQs6n}GSk6!aa0A_*cgzFNGVMm-i7;Z>zumIZL;tQuxHaeh`8yeRJ;98LQXFLXv6Z>zXL(0@$Vir8b;Hnpzb`IUQ->+1ParzVPxu@7zB_0vA$BJ{zE;L4z8s z!6`Cq124R%`F~gZ;0HetY>)T%RwA34LU_-P9x!8uf^6u92U5#)#)ttM&>Qpvo{Y!d z8Lbi7xvmyDy=_lNb36@s;S9LhJ7t@1{nRi0@PFxhv!jpyrqehXXC7MBA^L4AVd{(` zs%+JflugI_#M$z?NetP7#hbcF&MV@H^0d6dj;dxPEPrBjIj$v(Hw$_N=Cv3;z~OIF zqUcRYQq4G$DZdcOjx0@WRLYm$%jFEC28k*wQD7_C_xbi}^hhES@-D}N{P@4T z$B9Ay>3@Gxmt%>k9p}IHmWU+Yxb{de$wNV7vU-b=qyURy#4r?xXVQI} zNAk9dxm?(S`T#&czrXC-QJoPxYcO*mLL#U;;c>{HrHy8#3qBme{;cpHO_xF!SLoY?Lqr<01yT^N@gS~(K?8W{!Cw|dV=qSENm(}}%_oZ>? z;~FEj@t#z3v?e`?*FoN8X${&Kwe;Svgtqtbrb~wv%wdx4p7N3g;I(9Lm@M*meUT?& z5qGl|9U_}>NNlHj5TN&r*Ia10z0~7QrJhJBiy@Pd*(HkO7Ng(JId0$wNg<}A^{`SS zD$IZGd=7dDo8Q6t{vw-!DpFncAB&o#;4H_jr>(6Y^WWM6!{pAsjcpaq&^@N5D_#<{ zG?!D6*%CU8?^eCha;UxFul54l`%}E_xc@;<>eB@?vMg#ss0eWrF3^L(2%^Hf92e8_ ztW=Y~LQ&_$m*y_cnI0bCRUB}GbfrC3=(vBV=vopic|**ME2n>F z6{x$OQPle9cJv^#1_Q1fWa`Vb{wVWDX&qUcO26M9j*%Y$$Aj?Z4LtTW$H7!@-}xhX43w!spdnjeTDzHf?(+A(Yblc!yWI{42qB-Mw1v_ech^5t{yX;+GpmX(;YngN%f` zA+J<70j14c&bpLQ;>A}dK1qKpb~8!()Z4S&7y)0baY1p8{#iPvFwg)$A-}};kVtw` z&N@un7dT{)&L;V}gunzv67UBY&<%5kbjVf$o@CxTDo3}FjNTd%IQk|$pJTFh0re`c zzz{`;At}8hnELk>bcxh^%(}kskdN36Xf+)gWcrebc#4s$N}v)@U( z{!iFaV^x!(Ft^#M!m_v50b^$)Eb=%YZHc{M0V(o&PWL^z8rx_}A$OL!k)9eT{h)-9 z&U;~J9=@dvJ0AKh#Xts;3e(j(q-wl4@3hSyv|ml@0(uNdo5hv0CbS( zb5-~w(~;eb=qJY`fMa6@uYHIW=g?6D{!HpjT2*`#wFUv=CZvA?7Gf0X>QvjvXX`P` zLWnynkm&%5c}StOm+1h^c%&%E)g>9Q#>O^!vB1jD5 zFPd^ryQi4TcQDg*SGUzDJKL&RkV#5@swb)YN*dr2Rv?DO5Kmu-z6}hbugT@8Ih4+Y z9t4?`tN`LX{+FLzNOjh6eAI}-RLyUMB1$XxZC@lJGxL95n%K^T2z;BDb3WJ5T_&)< z_;rq5@ShM(?xfwT?X2B6uImZNhdcDe-({2&8woiwE8v!XUGM?w3}DW9!@W%PjONKt z!r?>eQ0mt^b~@O|8kR+9ydZ%8S%NoNW_v2J|ceywAJ zUXl-b{(3-y6MCK%dab+j3VRF%5b3J8f#uQFCeiq@Vo`{`x-Beg>+i(4}Uq(mr(3fU$ zHytUxeTcOW#rC%9hl*9Kag2(kQXwrQv}0x-CyAu#t@T{<0P3vZ$xp7M#_Aw%aZGUy z!>NA{Z4_g2AfUo2t3+Kvutx%lSY$2Z2H$p;EKMYXy1h@n8P9j)c+c&Yn;$)VxTNVC z;fH@E{;rsDPsQb^eWR?S#lZA&aDrDG3Mcn9iZi3UZo8fq<>Do@ zLci^?A(8u*kt6N8el71ELYwFej{L95a`t}_SSv@H#XkzWk6|-QlZ(XdwA&q0hwZ*O z$o34at&Tb1i6l>|+W2~%=d*XXTAfytNpT9s!A$#uhNv?P*w+B-iXvThqQ!owbx}j$ zC@&Y)q;Q@LwH%6NSNBHlGetNL}XFjYrl6geXQa zctGga1p%(HTB)*-%(!TzoGqpiH9X%m(<{^Kv1*1~zUX2FW*ELg3lKdl>P$b4yr3-N z%W2$&_DiKWL$yM5^Ir-mdiG|yqNsmB%+=)hMbPk`wK-*m#`$t|B-vMZbo=?(wWH`W=PsT!n!R=^1hDc6f71Xf;?h2U;rJYdxfV6RMMcQ9E|B zjy=U*nU9Y$0Svh~1566qIj+6C2c9v-r4>_HNzA~|Fr2tqB9;6m<6kuk?BetPnem;@j5FkfcwX=iVw0U1GNgZZ4Yj>`ju=2@ zhNu+pHcqY@reIp{uV2 z)pL3toNkUbHA3`8efxi|dE$9F#>)}2%kO4(;JA039*Nx?Usb4a72H33?f7{!R!Zsc z>2fhGIj(q3bf6INV7z(s&^RAQkqy}{Y2Pjg{n6Fl{Z1k!u~`Y9VxY4!1W57uHs3+} z@c?v#=v$hI8~xW$vA=$)WE0DlOBME1hM=i0;l=x)5@m2X8B>3Zzo0dTu7d~#^Fgv% z9=EvNEy}oCy95GE?vK+=BmX9Qj2U-p86i-Q4G$6}IV9s{P8V>6Z%7QS8tQHF7uIVw zDR<;Vh6;!BtS$dnK}|0j8CN#Ec*sS0r8AW>sWXP1CLt1~4lU@6C1~V7oR5LpND988% zRuOp6hl0)@;H99t!f5bhUeG+&%g;(|+}vKk7VH~p&#<}ISDcnZJbJX&(|dtl-UHtH z-?l#J6@@0F^{F+VpL!zAXVD{Ia(_`@HCs{E8qH9N)o9(!T}lfn0Tv_l8TdXxxF@v{n3eXTTT zTbE5nt{7u9#F}1sE$KB!mO^s<{VK1USC0Uyg0_hAEiN;6Xh=)>f%jv0>e1?~)M?%# z2K3(p!oY6)3IRPbn=dBlV~Hc<>(ki{C<+BVsPca^k#TkxEQE`K_`&~ibonrd3CLB2 zYj?{TKf$phT*qSZliQ--?&MuLDeH1;C<(t?%yUctTRvV-@%zYX7DDxvmViberM^~V z;BiIUG={@^814~GX=Rh)(oW;HFVMM9tuQ&}gI;;m*8NkSTg0VXHrPinGqt=%9*znr z0{VY^C$(viv2Bw8R<`eEzC2%hEK)n%D~iIu{F#7QVTK)8qL+hx5ERMTk4QAEOVA%-bN zHK+^?>7(xuMIgwM0i`%}K{}(SDwQ36ev8k0eBH-?ZoV5vXxbBc!uM_20IN1!fIolO zIJ%k*$i*#$FbsdhOweA`@<5nn)po-?pzY*{AqSzZ<;@G$kVr^ALwz&a zqZooaU)ccmjKYA;9BJl-&x|R z1v^h|UNA9j22B@DNekvM->`u)K~KwAA#8Oh1_u`plr{yx617d+>AyL{bL19V^j?*^>DG7Gjo@Y2tY~|1yAIl@koAn~%GLCuzS1?5!ZK z21$iJGfXhVJ$#&npBvw|RvxWTs^dFk!w`RkLtqi+w}hsq5$ zhIz7keDeC$Dv-P%?f~-n!O1E(xVV{oV9CuJd3L-zdLEBcC-9vJv$wyy7sKBG!x025 zjYeJSE0idB6a3ex>J$arKW=qOI8ZyTIz3&;L*;~9G3L&Js$2La{Q1Q*c33x`j z5cf}SE9nM-eWv`n-1DB}qF&Q-+yuFNdp?U5a2`9lJC8cg08j14kW`-WAsz3M`Epi? z!2oQ7lgBKy?Nl)G!h} zJ;idXo+xY(tpf-7kEjLni7?*$w|xBtW-5xI4ilAbYXBPF?_N5Ie)l{B;;uY<&mKi)orp{4Vh*{;>0~EZp5yZb9Wi2Hb-AYN z52mxk{9k}Cb)D|Qo#k1?2QsXXcL(0Fmj&#GA73QfcD-SXhPQ<`REI9g)yK?+uJ@Hz zj|x2O54eMDc4>cy{0nOu4G5#?m}lyWkP<6fGMk{o-wn-cyd19 zco?D1=NLu>V}?;P)1#;bx{M+gi$_s2Kf@>jl+QPc0IcIE+7oTWI-?^5_~ecx#5OZGhmq$yqcuJgd0{frhf zxOYTxiTHo@P!8=0i!S)~^@jXCdJfS}kG_5T?e59`u_T%w$49$+&G+lWZ+HLLgC94| zLPJEBCo=2{%FVphDPkOGeD1nw5>Eqr^ln~M4uy_u3iQ%JTAM>c@YJh}N=s$yTFE(Yn}j-m0BV4hm>* z^h6_U2-}bB2=?2(-IHB(Xu%LE?6b=YM%+1$&V5{ruJVu5o?;Sr>-WX!6T8aOJHQz2 zPtQet2cmj|cA$?*W8wUzob2zAw*)Htd%Ea#qUb+XqxD$PN(%x2Ie{HG@=uW3UxE^M zJ_dheBFov)4^P0C)okt3l8XIf&}@JCGyAx7vID*cL0ZOQN$W-!ZI{#C(%g=Zh=hiT z=LLE?1~lS?Ga=8L+3zY~0qGCwQa1vbYFFwQS?4Bvl1qSrQSeLq(15(aC-?tH#(R8x#0@iD(n zp?^2*hspqujKGC8T>H!ZPt1x1x3V{mCf+#;$V3B5O? zNhvw~!MeKiT!-7?=R@*$bw5!i`#W4BT3zCLZHa#jR4laO@wI!jBn5QQGMg1GlrDee zg9JYM#Y6XXv^TotMB=j)I$nXJAM)OwUSC$TBFUSdf7T=;D@n)K?gmY1LrlF{mS*rJ zhaTLj5f#Xroui~|=8ps6g@tr74?s;mKG|3OSR0HjHmr!Q5D0pxbw;=H%PGQl(7=$7 z?L6W=H`vsbs2z2y(hJt13OR`4wZwnHIoOTgzNZdnYx3CjVidCo(`8_!zvX`bf8aYi!(&ufa!^B?_itGNn0-{Qn)ndl}>I@QPD!0jJIU0eO3$TBqqm&pX z9&~lZxFjd6oNJ(Yfon56T%dkxQ7^1%x~;3SrZr%Rrzs`hQpl{mseQ3 z_hVO`=?KcRa{QDlFd{uGa*8sAA=%nCywePrcI@9KK}%!d^u*0&u1b+yjWVdX|2cUld|Rz z@-p@w1*C*B93B`;38cWHw#1P=XzluS;Z>f&(3NuuM8z+#$O91A532p5yu?+#FVi5S zgquNXXeD@;d2NspMRqA`ZUgvF5vS&r1LYtla1LTK)bJkrs^ zXC3p|c!?PZ1tFMB+T6V*E_?;tS^oWP13agv;|dLMq8$*#Gbd-Z*VO{XizBW}ba>0$ zj0E#GpVsmdM7DJ*G{k($YeoR0{)GI=J$+t%#A_)-nj%pJWLO9mme-~xvK6(@$Cgxp zTIG(j)M`PDT2-3}28n;EP&86;{sf9+QTU^Q=NLVqdro1`9^h)dt>fkJ5rmNpjkciF zLtZm>iWVa?BEEdwrV$t4+<&!#S zhGyRMTyN)b2Lo;$RnV|LQ;!p>s7ZQ|NMx?Tb-ci9PsP{}?#F)(i}8Aq1JQA5;#Tw} z*!IOimjIObU~B_e=7~aD0(L^gpmY4rbI^$ok zDKGI_6wj!p2T%9EIXd3Q$;R|Gi*JrA#ueaU7hEf}IIh+yiff9QtUc$el};JhMt+kO-V2nM+QJ{7(2QoZM9A!vp!=sxu$5TD#2PSe0az%C;#n!F@b$PDRC`R;>}N=>VUv zfpbVY!2=apFmH8;7?gezdH9!JIOQJvZ2|FQp(w&B&d$nH zyfj1j`D>A!d&k<`NDcc8GyDfnfoTG1xE}8gWhlo19Vo}NJ>JaC(rnv> zG+TC4xB%t1qldM!*4}2*_IUHWcx_phWm%SG$-{rzVGNjuc=)XQ2Wj^J6FEu{xj3j_ zdEC+amUD^4rHb2@XmkiGJA=I|VoD|kXGoHqQ#DKj9jcKmrkb9AlvCr*_bD+e1g71G zyQmznXbK2?g{3tjVl}d>Aj!hEz*HLe&z9?r>RBk?LwQ9&TCJ&0j=_5K3GeXgqo!TR zrZj&}kp1C|U!G%_5I~iMJT#l>2B9@lq}!>gYymCzvLBizKNWTH-BhwiAu&%!gOpvVyK zf}#aHH_a*)Rfug0_=A~uu)9RO(>3h#iOYY`CNO?k)}}1&zN<3OW`(m=N!8UzYk-8& zvb~HZS|%L1Mj1~Rv;_Z^zW7X&;`-dfQ`%>3U>RTe3yd^IV%bw(6x|JwkZ+`=RkEli z&3$M+c3+kkNFP*((vbPhiA-O*LU~S(JT=y&inT#4}xVjpcnEqVh=4wk~%Z8gv~E zDkK&GHhw+HmA8sY!aWp-4%gJMJ)98G$JnC7jfU&Cx*qrRJ^EJzU$M!DG0-eUGzQhL z)C-$WKxbt=mtBOfL*}f}bG$%=21OK1oXN$2r_OCb>Z1HA)e9G=2}4c1G{fbi+;Lo}f_T12BIEqHwY~sIwX! zb)^pVE}ly!I1qgyzoZm&zH!m73RFLl3)7O=KzdJ+Iob+>#Ummg!sl7`212Y(R-a42&ci&i4Q-(O=GztHdLczq~;US~~(SEXX_`sd!)8eQ+r(ijh`D@+XuJ#DXR*6*QduW|C)yJx>HmM~LDr2{actY#m^|rK zmngL@c2T>=Ey@&YUh${wU%bWWrG;3F%VT>2*8>X_lOR6L&d+n48JNB!F9b=q9ydKx z`VVruNcVg%xJH$p$-s36Hbc-(5k1AffQ-8p)lriMBXkI6fQ<*oKxvec{F+ z*R4t3%N`Rq6JIM!o0W8yJ%(r^XMJo}@GZd-kx45?g6#l|z;#g&TbKo|mZ}cgALQOP zC&zESeV0p1duuf>8BnXE&&Wd5+0FX^kI|Jp!?=2BTGiEAgcJd!qTmKfY*4J69yFu1 zXfPo1CyjqdNro*s^9|#I}t37Fiw!Es!3O3Sar`l4repd42_(=AE zee&9?Q?I}WT~^+p{*io-?$M?5K&GVJ3Yp=8?Qo)-PD zkp8cb{;!b!uaI5`h5r@O|DHm6W#rz_6JRgmAmsZ#4guaVb9F8R1gzYW%Le#U{`e>- zlB0jY+Pdm|mrYS;#vYBMNqHPnaSY0s&tobo^chSXXe^j~v6Zi$vUi}z*inuS-tj<~ zvxA^KxqT+D)%{KQE}#D#P`4&807 zPZg6iKf0JVK1MlT6A9UDe}Ys|%MFr8U{-&sLnG_ytP~hWtdYM1tIOuhQ0EL+>ZROX z^p338nZ-wakHvI{M7-$YXFXCl_$$?imBOn_T$&T5d6KMWW#hiV?dneY1{XN$AO%2? z4dC8Jog`EIq*)b4a>vTa&qm=fX#~twoKvDwQSdWYU!0$#Mh3ViQ2_LD)v`c=RdIij z<2@d`xa;vSlcmAV;({R$&EH+}3esv^stcJ~(4_VhQqgHqSn76;j6w=+#lzuSzMA>I zoblQR$z8JlS$N&SD9O<73OiBc+&N5Fc~MUnG8g*nM*Bx%$x>1{uXsShi*oO-nZZR4 zPK)E5SHVqhJ+^3H8MwP6?0*;?3Hg6>V&#t7E6pD4x(-yMKAeBSp_g1yIcgBc)-8|3uFe1VCQu?TQ;fu5Igq0kqWYMM{SH=GDfKMIL`5)>8C3 zu~sH^GsTCbv8aQ)-6|uqhj@D1msCotm3J3B8A@78(}k z?D&^y*LhY=i=2E{)YDBrmos(!>>k*DHYqM@8CK{f8q_sj!-#(^cCr|9tA%B zRRMF9O#_6E%?CM?vx#mVD(Zie$rPVjJ`o$F3nV&=Sv0=r5SW2Hs|?)s9Y7cas~ckK z4wShskK8LG2Mi%~w%w~(=eWW zDZRwaj%jRPzX)-a47zirW=@7{(4#CpoTNv!5@rc(bN9}jJDx9Yd~<)lWgV7zGaFGC z@s1W%Zi$VNU8AFbvsc{Xdcur1JBy*bcry>|jcyU0lb~sm=z4?%n z=?WA^<0o%EsM@RF;b~dc`7C;EAQkjfxWevnn9Y8`JED16&TxOz`za&K#s?sK8##K9 zI&KKR`Eua3zW(sQz*uiRrLkluRBTi@#T%>AH{Wjr+kKoL&(}wB`5x_?>&RsB$9;6@ zTTjheUN=L$Z!zTUD1J!dclj(G)Qh$XP3gvUU%B%<*HR5~U^b;8p)H6od_I>7V~cLS zdDlHu8;U={<#K<5Lok$TjRhFfcIoLX+|M2!JQAXT6*H#fW{UQAQ-v?53SUVTzIs(6 z^SJtJDHyM(3g1W-zL_fAyt5h(n<+ZLr>}&HgPH$;UR_I2BSZNd1hlx5oM(KQSf5k+6nIOvF)4o*usOXjtMyR_ zkPIIMuwj2Ybb_h<;{tihF1BO<@l#Qivom=+8mX70?yws@`{`RReK)8v$dI>dU=g$- zZ84w7i|?VTX+$Y`5KE5yL@81;q<7vg^BFNxW*=opQ~`Z6Ag~BdEjE3&UaO^ktQR?3 zYUVys;&^cS{71SV{mC4-Wg^*Tfem2MVwjX;u}OcTm7%_<*qWmIJ*h9DB~1Dq$z8X^ z94eC?jvTY&0{D;K+<@B$DM&O$<8hbTxq?x7|Dij$*m(IBw}Fo>4#2qX{eqeb`9@3a z8q`Cc1Xj$Z!NoeifOH4Qw)h4z`M`q(!NW%f520HtY7gJvRE$2V7H9Pj?*LjG9w)-D zUblaemIUSI8!B)Ke)zg|5R2DMXaWsMyl$o6Zw_L)tB*YgeZ^|a9mYyihSfUsrm@i| z(6*MiH86}TJ^l8X_rfJ9lean}r6^-j>PaF)5kukIAxMYRw=}WTU`Y>}vdCLHdXg}9 zD2#8FT6R=Vo@h*!G|iZ#ONl1I_@YPFS(SftwnRQ+@NJnq4bxj-X=tnKA>Z31nwApa zj~={HHEMc+8wP!#rCva1_;Eq;@4|~|d(4%6F`Gy4^=i$?-Om~y9_c+*(wV;JB`24p z4MD~gT2-{;K39TXgH&hEE#Et8o^I%z&XVyni>;kLXE-#I{&hav^AI~xO0P)@tfqf@ zwi;VOnXIv$Y-pNj>_s#jo_YToO8gVX7JOeu6(r;l2Q2v}sjd~S%}`CB-Q_5XX$iqD zN8R+fMtbZn4506ho^WU62*&ZE)@6-x98gW^3g*C%DhKWO3`33o!qzr5iMJoQD{u*d zL#bA^3R|=|)k=(d=W#>!?SFX zN6T0|qs7IX;eCO(zP9MgxabSkV&ke!`3)}jDbz1_GxA_ZVYgDKnsm~K^6RkUZ^xFb zJsQxjFz*US+O^{kexZc-k@|mi=25nUKYs_(gt;#afVa29su~12BDoYQz2%qUVG~)v zAHsRsFUvX3bRQB3i;o{CfPA?skOcx!tIZ)8v1|OWU(O?&%_u-N_%m~ZM; zdK6B z5ZdxSvF?-Vk~@VJ7aqBJjXBqW555h6rvbNsl7}SdboNPyu-l*kg0a1!98el`pAD5J z{gQ*<6jKW@!nx-vl6O&>$b`PHh7@+IGQK6=UkEpGswJBv{~@mRWgnCC25#)A6Q-kP zB|-{^Ce4R+j*-M=&=P;4G>oFL_u#?7{a&^TA__-)a)%~trHSusqB!ZvTEnGi=%)Cn z2-N9q-smu!SzPmQ9ZMW`mq+Mxk!8f_n5_6!fH=wpA(dBQm$m7CBrupegS z&tScPD~d%vAC9etDsqC*|G=lk!$57+u^lC2tIYz@7(fIh1gKU;(D2~_y&&LRxB^QX zC^#23eJ{+Q%S0eaxRmoP?$DxJzKDka#V$K8B(k65(;;zL%v$Cw>`kc@9X)!EwnOKx zuZ^~#ucDA%S0(M+rK*U1I$o}q-l$*dxm!8CnR?n6vxJ6v10A(*uaTOnit380>W!7v zz9?ImS0FF{zrpHTW%2h?ewTMC35EPqLJdDiH5(K8DO`Vj%N8*5_y1&0QW0kwdX@qY`qBh(Rn@g9i-MUe|ajHomP%TYenF+8k%8o=mGdqG-skdoI!s!DWrHK?n`HV zG%VQ)?_YntbFO{j-wLY#Al2Ji>$|I3O$TEM8eN9k)F#mA9K9kjIgxdwtktn4cp*~6 z2~gE&rXcjYMGP(TlqT#j zddDj|mtGU9u|9H2RuYY`?B_FaDWwk8!IX!W!J~i5A`bLp@k%2>-CCe5N<0SA>JB@d zV)8FfOmQ-Oeq+wjjj(OKnwVztLF(khx6j>AqIMcpA03|K><*VMgNe1Qp^c^?KB z7|%x?hLq%MZ4AMx-rds8E3Y;^5OH7E-(zRqgc5}5(FH7Gj`hke`1Mv(jsE(${F&W} zx14_?{9kb3KI1mvO7T_ql7nkSw~f8pRv&_oq%;d!y=YniZqn#oLSNkL=0BJGPPf+h z_j;=)M7CxP0b%x)osGyLy$T${9XJt)+!6tAU$ew>``g+VNpZxYFo2$h0T@;msRY5Ns>wd2JizgL` zG1gR$0bsR&KLAjDRwVv>l)czK_2vzdpRgAC&{;AG3JWP_#%DU8%V+a4S(Lsw(F4=k zcyo&xkC9ajm|R{9>9-8=In%S4G{b!ew8vlUe?yOdC5i|VR7qAMg{LJwQ`3Kik<^nP z08$md`y{X>{*GRH>qGYLCv{2iyR(@AU(9AJf&b*eA#}0)1wI=i2M>JMqM=?lgjqiI zsi(dy^z!x>=AyJQHx{2(xS-zg38y4BwIX?A5~mEB2_1#gFbat_x{iH!MXlDO<@-S+Z- zSFlqXaeOa<}{|Rb^qS zEK*gn>6~*ebbNe-c_!L5*qjuP@`_=6z4>h$V%XnsuG|whhjG`YkaA zg{f;hhH1V*0E*=>Q4yy2QY@h)0ijj^=Abc(m)ox|918;`F>87r)h+;VV>KHwH^xRgT!QT-$)iNR9?(!uo$^N^P^ zYljyVDvVsZ)~?k!E4F6R^I`aP(f*o=cmCQv&_yE9^*LDeaWQ`K1#JMLAo z8pEhCy!0lpiswmuDHLAjGt}719iKiv(3J4%odS8@fC$fWvNuUtl@7}k=yIgR>0?K4 z_|9F)51p72_BgGvZU)_vpN4!gAOivS*YpORl$hNdDBa5r-VBTWd%{I3RM3EYYr|UoV5BW+)&& z)eH8$zmF>X1eD;VYH&iP6MjJ2bgpozPV}>q zBebtz1F2J5!n}Y&A9~z6FdlKNNV!=qxe^Etd#IC; z#m(0aB$|I=`}u}0i#+$%?Nws4cLES!#yG==I_Mfm>AJyvUt$Bd?}vP*Nv6=4Q~HC* zdcJ=4`8zL9MA{_AHw>SODX5{kw`i$4uxJYf8@I8;c*-c{?}G}b@9+4v`U-*HLf!(? zR1HkJBYXwHwAd6aiXz z#LDI8tXztW^ws$z{-hQuWfM2b_i+GZEEVS`rAKdOPx9W#fD)T6AZOOI$TpLPMt1sZ zJBo`!r!CR`t3R!QSQHV1@OA)FzI)m$95cq{d)>%xc$SN2`QsYtj`& zXG#v9+#OSUn3~ddQ*yQ0*!;^TvxQE-36173O%$9*JGGHo_(2|Jb;`{9tbJ-*w<}o{ z5;M=&^CnBmtn~7v@E#><7GqSR{gzdCgmQmfWwQH;7kAky9Fqrw<5l9UFFCvR83s;yYMf2p;ueE&QQtRoI^k_1OUbx7&ZaeqVXivsZb1Yg|7^g;SH;`MUoeE+>BcJ92n% zvhBs;;}@O<24}Vn8!Ouyh+!386`Qgui0`g{`0l}`C&A@dwBaA25$Z^jJ`^)}U8o zmCv+_m4{m15{faiMf#`F1XyPbPR_>T*GR_XJ2H`%v8YsYW2_-0&n`5khORWYkN`Jj zTZPncZjYVQyoEQL=X1JwBDmgLpp4>hkl6RIMtjdoi3~X(N;rI;Q?5VBi z`7lk=IE+PXX*Z~2U{A_*b%lR?ixE!e$a<0|gyw+IPqV+O5_y;`t2A!qY+YL4zlQ8x zUvDy2Xr!-ke5|gXEj-QpSn5{**T`RJ49ZbHaQ)lH^K7H2cL!d#4dV1SiAozAaYV2b zFkLoR4J2hkVDrE|0D4kZi{1A`9IJbcdSDoRq*F;ySS`h7#kB1~v#WnHw)42{N7UN{ zjlnRu?MNPQV``KjAaH26LJk4;SJOlAxE4XcNO()!!JsTLZb#^vOWr3#Tmw>a=Et`H0u-Y=h()?vf&^$@|@;Ka^3HI z{IMfI8NH&^C!_#^oAiH-ce6CvlR03%qs^22)RExh7CEXTuz1q*3FnNyn)1-$6#h4@ z$CEsVMR2|tXkd!5)UL-OwBz2tZE7i(wsFv>tU*Ha^-oG=6(X%9go=AnznA!vY;*A- znS7zte^cvji|wMF~OK-Yh^pUe{W3P;`C-r1#m zE6bsm@czfU_a1zDcz@rO)yl1RcK1L1c;}P*H1HU6;NtjXqB5(ud!xWj z`{~V+9y&1xl6T<7^LOro*N*f%Tmqba3HL3l3&MJtFX=K6i=`kIE|~Gq+%7G^;=Y0? zgoB?IhZLEuor+TYB>{wuh-u8kakl?v`~K-TEHW>Jh5wc9Zf2Gb<$Sz zZnLYZUtlY^d3T+E*>wv9>Wo#TH3=kKMH&F2kIHkzcPq)+#L9<{Et|#clD*fEH;$iGx$~c;@Sg!ybk?7cHbP8wfhDH;XDHsY2m)9i<$rZjjy@zHT4T<4-0B3HJuI& zx|cC;7#h65A`w~*L^w_cX5v~;-d_xfB+UVd?&byyp{)zC=nW=~Mejj)((PchAlPD7 zTCphVlp%qNLedrCprlh~b}tGX;4?Eqr5b5 zyLtKgAUoOm`XK#&x6)xYZvA2hQG2THVBOSbC$Y7n{fsUStaelaX2lWGV&t;g=X!s> zs5yyejR`EXDW|Zj)BYQT_4OU4m&7k_6`~|yXL|pE{!FE+97P0I-QMf>gH%@>DrSg= zMKhAOwv)BhnO{Jr5j9|2IJ>txTfNXd90rD8tuuw-6TS4;_Xv^`&Aw=1+lOiIq8iCI zT3x}%HG`+bt2};SznA490TPIJIO>1&dgiRp^o>J%P$}v0o?fuFJL3Y!W^sv{KFO!~ zobz&w$78+RgDo$wsn}r(mhm`Vg_7-Ifca);bM+cB=~C|uhVCsb+WD@A(lEH%1URWl zaF|W_20-JTV3?G-M(^-)Mxt@UWZ@r4dSD1ZZcqROH-%#!J5e%zW4;TXmlc2VWxLGy z+Zrdx`&hA;|7N?Jp@h&kAX3MfeomYgOh-k<-?*96OfiOAZVl$Mn*byJ#L|n?Rqo|A z2HHL>A%5(@t?e=KQHq}dVp}w23^g$zBX_R${;b1G$$@U#ziEVaCv{C@MB(cbm|cm z%SP~l2CY2-iJw;-;$Cd@Lo1n2%862VeUHnYB>Azt7;Qr$h7b#A-ba)0rHj}3pEHzT{4 zml($ne=aa%8^3>sO6Q8%#pAtAp8RuJ{g79(;$;9xK)1i6RoB$|${bfIlj4E&*?JGQ zreD@ZtNM!i;_Dh4)zuWJ@EKT@CeWcPB$Z!Qp-}{+mRMb<`SCo+b#-(KGC~H!b7)@O z&?eP+*U5IYX`am6XJo>U*XOr^ zz*xQQwl&Am1Zp~2MCuv{y%@LImF#J6wL1*ZUpg~XiZURcCJ!NYtjrY zt2RI5a?ZRmxD%pz6ox+Mo^-e2T(EKA&vi!*+L&KYUu*(@(FFq6$sIlZna zk3~XC5NeF2L}J$)BlL75Nzsd1Zs6nH4ka)8&uzql-BkXe#tV<5ZCM zK7HtDU&GA{zN5K+0-8eUK_5-C+J_UJ%5-R|Co?gr0T3SLOlYp#mKz*#8Vu+bugDfK zq!~E0486{O>8ES&!DsjPAbqZE!q~f%F>YKPoDN}y$QOL33#@bxzx!~GYw~Sv^vu(j z0`4BstX4|#V=8`rg>*TE$)AcdG!G2t`zTj7G)gkv-2Ynh6L8qFE`Q@cyFIAQTSrbO z?To9+9YFJGfR5|+kjk}7W^+D`&vH#Cr#DyMEevgcSOc}Vu^%B}vL~<1HSHw<=Xnx> za3!5>!G?BqM#0aygfc^;0MDcK>lU;UnJz!>$yI!nQfhP!UX|w+>95H4+~uC1mPZc{ z9(@WMc8Qr%w;K#NdEl>Z{o#Q-%w|70U&nn63di~=F5fFAlWCs%vJY7#rOCYyH(q)D zJ-GINFU#|K-C+_!%Dbq#h{eG0!^q5uzDh*_3#e0W-rX4pjAAZ%53!5@4ed2?H(d3c z!hI6gi$%iG!DXGea@{_LH`TUHD}6YbtZMObm$Ct9Ww{x>^OXII#I|b594l8N-72pj z5Luw78Ln7JqKKlVE`@?vYH~%SImdv3$lL;C02YBe2PR4u&KVXQD-re0l{BUG{ zpm^iFLbyLe{v;svAXJf~^qAeLJtH+^4KV4IDu8BYFQq zpIsrYd>bTEnNktRl1K}sXBL}x@9>I_`dKwuDnaT+q4K<&Kx*!p<&AbVWlgP^Q$9v` z8+TI9ucjsR(IRCFv-A0dJm36IZ-Q%ovTM<)nU}-Qd8J-Eikx|ZT|+4D=>&Kk?yPdy z`)j%^9i!wyNakg>DnhIjkkS}Na>^#K^A)h&XZSNUNL?w!z*chmvdh1*?*U;r2DcCs z9m-gaX?&tZvDGPR)?m96OhI@Ko}-C`=>2ZEtAPkILE8B+gXty?KEPS^RcMiEX2 zA-Fel|IcOO1{8tix;KEz2zLtsXhb^{HnYNj=)rf)P=S+^@;UqOBocJceFa0;I@D!| zFnh1Uo3EnVSwqWL5MA%DuztvY^s#)c+@9H2rZq78x*g;j1A#wE&Sh3nr3k(gWm3%2 zY1xhEX5`wsZtU&J1#({EBW4%`FrwDm?vB00@KaiTmwg9@gE_hg52B9U3*Z%w?wc>Q z0fsEQjxC(RlDB$M7c^zUwt~DenHdfi#T?ANEBne=v}H0(jjdodG5sWe8<>`)H!suc zg9^1Cw;erRBf41*Ue^XfAuZv`jFA?;wH*;ru~5K_yQE%|bGLR951s+Q!aq65E1w3B z!#CXXQ24lENyk{K;WkEs6wR9570Z)YV5F`g_+2PxJ|~-FKC6N8 zF?M2xc?T-e(|{*Q7dzO0*>iO<&$~^T)-HAc0-g)93)r`+Rv1~alfW9eI5YJIN9EAH zKSk4pw;s8{UO6d_3xC^}&#D4J5F(A(%8+e_DiZ;N`#bNoEO1=NKf!CW`D_Fnl2f0mK(=Iie}<%*!3aq~8R_JIYMMrXtG6A}qK>%DvT zKIKLG9?fW8%NP1RVP4q3fPrT-#0hLtbI@%v>XRazar10G&yIdzicra;{fCc0emxSn zZkvi5OY8na0Jrg)`{?4k^^yLR>b`7mcjNABY(SNw9qP$_P*%k{D<&e2w1b%DH!`3m zpgpA)Q}exl(`?GRiB?s;T8pf5orXIp_0BK){h|Cr=VmLRX7S+Aelnm z=hD`{gVWNJbxevl{x;^nPD9*#`CN>X*-T^#=LH2Av;%bukg?mH`8z7uV@An^4z2^W z?uIpOEK@ilB5N@GcHX->mtD;AS~IdfXEfqIYRArhM$v&Ns>6F>^5A6Zex7INfRfbo zKhd#d0>6u6K8E~E#VlUgSdai>y3``H8uNS!7`|J>@`KQHbQdJ-6jp2Cq_DQ<<>trP z#f+4QZSQzwdmYk}ig1C-v=ywuu9EsF8$#Fjoe%al-so)2+sc(+KV4&U8f^_Zh#t0@ zhg(*EMve6Z^eD&O+Uo9ZusH(NeTZ zE!L3+Lp$kIn1X=UiSi;qoWAtyFx7+<=%5Yz05Aq)#XyNT>;}X1ZI`P1S*juGrO77E zL%k}|u=ZMGGN>b~^nb8-q|L3=u+RL9CBTq>z!F}|F-!*-3T>eruS^?Y7_Qkin|66= zwqz3^Fy$Nn8y!}(T6+^GZMi$|wTTZ|mStI%W!X|i!#Vb;ZhbczmbvCVjbKj|Eft|h zcvLCw-dimW7Mu0vmjGr4e7gz8BCWo`{uYf2JTJScb5JLrG`2?Sab$qnXMh=fGln#O z9XZN{PDe77aCT9-NtMD>D$5FlJ?9udL`>il$d21Wpi2&J0Prs=@A!AAcz2Rpu5K}L zaBNtao%B@<8>78d;+Wdjp|ZBO`Kn$_U81OL*9nxj*VO9ME+OcUWaHv>upkAb=jx7% zB$sW;I{aSGp&yhpblS|s+QTjnZesd9K*|j zqhlZgQFRqp7d}ILwViG;q)riY4f_|f>39z`AASM8yMNs0PknX*>_d_Lk72KW_1)QE ze{h(3`QW%yF91O>4-X$N8}PdIRWW1|diGeHIHm)|5NY6&R;(PUD}p_NTsyul@76#b z;$C^DVO(1?w`A81L3z?7w(RaVJv~xdOA8GY98W%^kCxS8#*;wop?^%woljfpJ;q8l z={QFpTNE09P(!vbptN-Rlzh_p)mP55;59}0>&pepD9$Ke*-aJ|R)^X%QnXHkB9Kh>JobRE z@12|uZfmCbw;Dh4DwJ26o!BabP3}85!r2AeNwjIiqny+cKw~SLUj$u7=`g#f*P}sl zuNlcLaXDwmK*KM`xg3Xops}ZvGF8&$?{FM5PYToY^2XdGIof%|&co6_3&kDO|Cmh| zu;B)rhC<&9cT3Ag<|GJo6jIFuEdhlFW5)Y~976w;H?!QCocD_OQd#$*5&8tyGIc?{=amu%VtV>&ndlKo+JqAoZ#nrJ1Ny)}>t96G=7Lg&M> zn7s5EAIKh+$lU0E1obm85)N2r?}Zm=l=C{^5f06W3L~Roh3veXYqcfI!Bt9IwqI}i zXben3O~@f2^RM(DXV{oyPgw*i*wjLs$p`_+kw8{V$%PBOOUkKf=F40p6c2ISf{BDovEYJf zqN}e!bKz_vmPTfd0{*cDvZx#I8_`X05z9XFvxvIz+cZ>wd^GXEqt9?20 zndI5@TpCk<_nUqKs#wkvrq^#W19u6d)*$uyf;MArL{S5u%8X=#Eaikj#ZadKSC1e` zq)^RHuzMYvukwC(J1(P*X+bWMQa8UfEPzo%X;c|a1@23|0Y(`h-?yI5I&^~4)c(+QX%RSsJFkmWYzX&R%a zR0zX(-G`xR28QCoLl!|xNUPm86PgkQXlzlt@|Z+t&CY8&Z4UCAoZ~3)e0OJ7GD^*A*fveYfSpVZi8OqS{sTIg{EV{1l zluG%vPj2$HbxSBiHF4srDj$?=?(Fwyny-SG6UAs0b^TVNptDics+(Z~uQx2Gnbxj< z22AOzNr9ZDWAC*uw`$!5LD?|kF(`0O=8w)1< zsn4pMwdo3vjIz;)gyr|y^|kB*!tm!%?*>I8G{bICIcqBpS{)23%}ehC(7Vfg{v#Ec z=I-ikLuX_!uY8hUFOpH6E2e=#Y?PIM*Xl9PlIqEJzY7oIu#U%?Lk8`WwRarTciY%;3t~#|) zmu5@D{>+e#czRZPy9h>(QdsZk2Vvr(wLjx|^r_nkhTzl6RfkX8v`TcFeh=~sWO)(V1dJ7a5#3qk1W?5bxYVS`LWtv3DLYEO9PZq*BfiEwe z(5^Xjx|WKGF)rl8VpdK)yySWh_sL>KSxvMgF^Cth_&i{&sZkq$l*P>vc4nYR5BUj| zODqPzcO4CB_bLlN!w8QXL$eug@q)?GCCm_{^^T`_H?RWT4!xhg$j5lgk=5p0m9Q_- z>^&9st1WvI-betFLq~?^8QSyi#cDC`72FA^YtAd+h$hja9D4jz$U^`1hKrET++Cq- zE8?&tKE&K@?1;bhoz!zyO<6GOOqshVn2CuhBgyb8?O$S@{XWWmY7p)2wU zQgMKU#}8JZ6qA0fw#HR@W_hvS9cV0b0FpU|C4gF*=wo2YyK)TYKQkE*IR;0isC^rWh?CG@TZ)LbFU*p^@QFv z6{nk9E2;WOXJ1^YbO_B+9)M7e!%f;iUi)>`4q1;p?9On6p_H$ z^34K>h;`P-;q2)^6E1B(LoFy84G%K1nZxvdb zxJOWol6A&lP}-z{<*y4gORc7Au5g)7{;${luh;z(^*Rv^vH0uskk9XmVTeMDYD49eG$rJepjns>3dLXOVT1IFE_=v@RfYA@k-+xZUI2}+y#IgL~mU00W=SHlL77o zSk)yv7z|I9PAH(-D9=g1$<*UbJ24c4FR}%HsXF>nSa+wbtf+5;&)vyFx3{v~A)c4v zaaq?vtQT57J;NAx6GImb%g*%Sw`QKFn~2&gN_{@*O0um#9^>JgtJ}k^3$OK0Cs>{a z3kB`-)4atgvsMldpxDGrG7<*@S6dXD_*a$;XA&1{(u+w5;jbsW5lFysA#H3|6EjeM zW?#qg1RgCj-y5LszkYwe@!iwUS4EW5!Zxm4|26pkXeY4)Ejx|6&f6C?wx#_&2@B`H zOI%~p;xTLnp<($Xr=2>!F75a2 z69nOekj5I6Z}o$mt_0!<=IyS?du2u5tDL8~-q{GY%h5e-x$toiv}PLf&U3VXn1v^& zCtX{a#>=CL*`9Y1H?8F#AQ+Hj*|#ZTi?^w28ERZU&i$B1VNMwZQ{ES}-4UHz6{cp+-0ibYCy*2d~4ZG)CA&Y<=rfa5!o0P&9v zj@H~CFeESX zS+51>r8jR1xM$*(Y@{fE4HzSW4dUwq>~MxnlTtX7%M$>R9f^V#J)A^%E$oPHe6_=u^TVN&6#c{F?Y=8ITnEL<`jHr!sjC2m@>LL;^;+$_#BpCO+0i zg@Z^3bc9)E(eQPP5qA*id5ofwv5{`4M(Ls~)){HFB1f2Ec;%6Q*O}qr3mG`!6{Sxf zBXD8-g-bTVl@9wMx;wjA(;bOO$YH*ySD2|LKML#Z4RV0AFVBZ zn?x^_ZEKL=Y8M_qKXy@Eil0r_MeeIXgOeyuUP~>ZjHxDRZzX;;w&e*K@rh^L`x>UV_C{n@9RxL^}q3NUK@#m3GI!OwnrMXK@s*aFmhx94U zOgQrd7N}M;q+eX7sSKW1KqsX8q$O_UV{ff8wxv3TyOh6wN*B9_ecJzu*#C-{RmAA2 zqjLJcKDLEE#s;bX^|Al7K6aXaFUGj5dsNNpVE@rAMDLsOw@xoN|Cw8_3_~sBlZ+&;_7+PY~c}qQ2kl{0K#x#A--OO*DDY?u$IUy zn{Q#Pag$w=SKA6^M^ZxC-r(Gyz=uxzQAub==>2J)Pm)bt7EbeVo>eeWsP>2mnT8vP zz%b>M_i&D5!0^Y%gFY3els=)DCgvIn6cZ$dNmj?>=}wZY?(!*ANw)4Xhz{-WLvXSK(&))?NMyYd`cT6N)QGnem7nY4HBPg`g{+n!Lr8>)n`!+TKkM>Xph(T`95@m2Oeia zan(388u8P3RWMi>ybWAu|KHR^6>C~+f^VJPF6fiMRtT&f+OkOj;k9EA(%~n>Olk( z^zXqEVd@MsX>gRo+wq9r_TZ$L4yru}4(i}+y-&Xf00aIjO5RBfc zwsg&(3LA20z|SS8NU45MNnxvh{qZ=I=`)!caDdxR4%fP~#P9*YS!J2=^4e7e2Br%! zF_0f$o%8&P(F1pK*rpp0TJ3Qk(Af&(K73ljn8Qmm#-QY(q!l*aifJJDGyqi>4*b%- zL>$Rzy%o`?ZqMJ0VIIyNer>yYx?^@E5d`C~^c#_kt87CwuK6dCP0{p!2`8uk>BwTc zIo%+@$YxZ73R}?(>it<16BK=VF&aXx@cRN!Z%#yhg#aEQh$rK+%EpA$ClCGvQZCVq zBBtu4Nl5{b@xWm5bZ0a3!iH;=1SiIb#Pt}&cUiG8B16nonV40}!P;`=+WLIKHLK;^ zDpz|Zf`dU;k{bZ9!C8ZUE8e!=t(!xG$EBbaoI~vhE-P-lW%QrfNL$*d&#A#3=Txny z{+wc@P?46?k0vi~$^EBmd^V0>lA{)6j?Ry3vP9c#M(PJdDI0n?%kQu}b7&;f%DpVrHsn&& zp}$wnZYm|wVNC1cX<6#dG6-jrbvHnZwf5*XtxL(LA(XK?@tu+^cqOQ-C9$<;v{KFO zFK2_6Ss!jP6n)o!r$@bAy>#TaE_r@XQd^zE_P!;cI4&Y3LWoDKi65WA!?#8~_QCes z<@82jF)w3sQsU9?!xB&Vson-Ffn30_17NR42<5*LCZ0+c>fE3Cr|J^tUvhd^zrfI_rLq} zXge>^K@^I=Y)-`zhw@mR`HOBtk2pj{x4CHkNgBFT3m5rYyE zY2L!-Eoym&Jes@(ai9{Brp~Oj%t*S_Fn|&b{=rHF{k>v(G0yjyIJK^&^~TfWkrf&m zJYI(@T@v(vmW!^jGGUP@)zF6qp@gvmU9U^0xN>y`yc!7-U^( zhzNuq7kNJ}_MtbR8___ZG)~Q6Binnd7UO+sX&Z43wyW8?OLzPeH zn~fdFp@;Es{1tEJ-eKO78}r|2wsKi=Bk~)jWG&@r>6ddE1hGx6;Er=k5pvWefZV)K z>Z8xpf0Fvx@q4EJHuMkqj{NNwue}xrfv&FD+O_qr7JsweS&s?7eUq(rX}@OJA{{1O zt?(QMQW4G77i&%ntqklhc;j-pV ztJi)#H&U+vZm|a(ALQfW0`7g}=A6SYf~ODZm;R^o>I!xB<#pU&JvH7vpEu5jwY$T~ zstpW!2uB{!5nZFz|Px}gPNW;}ZTcyTomsF-i zY)_VAQ3!pfojALxvG{&q>Ai^rmy(Pg>Vbaym}=~rks_S5q(Qe1 z+Y0yg)9ba*-Xux%zOq^LY&D;zJPN(FLeoi@&1L8Hd8uMESVk#ksYhVjMW-q(JFqB0 zm)z{_;Biyu`RC114~fa3=mb&SSYZBtN?PEE?~`>#~XUlPds50``k z^$bERp1yyR9eaZQDS~2CAyKQ&1L31kEAsacE}ZX+7{5%Eppl~9L9EIPog#iknG1eS zV7mB)VkQlj+)|8aWuv^I+6FtPt)^In`1mVm^CyTEzhPgn@N5UkqCWG(yaMHadcm)! zitEPwVT27Z``<*yG|K{JvYh!yNKT+qoc-$t>WsUI(4*Tktx6h@HNpzEtQlht+h&Lc zf7>A%Y%@fIyAIJ{>meFE&=4(MH2#h*5AqbH-?q!y%xOR>RsQx*&q90kC0c5vwYm(F zcGi-3d^stn{LZ@KJSErn(bMs4lZamE|i^{!vmM>vNKJrJD^G^~5ri_>IYKmn@&re1xA|a#r zq|PZ?$zEEjWf;P=9@P5%Z9c`>wWp%Nhe2|MQPLWlb zF$yM4iB9y=V_rDdRT8}~Dc*^}d!Iv2jWPj8C4*Mdk!qb(A?QB2h5=n^pY|_-f#HL~ zVvML=?vLNBE!qZ5wPmG$H@7TEH1l?SK(+{zL;BUs+l?g^695|w5&LsUZGb+YhfTYf z2cAtYAs+Cz_w8=-qDx)4)P+g?#ijm2slDXe?U0wvD{?W5lc@ zT-40l-HffEJ)bWTjEA%g(fe+Q-q#^=sSB67FsZ*_sy{@w(~Jq0^oQtuGeqyp5WT-{ zh=>X>LI5Cz(kWC;5u+5*!EgAfF+%hry*x#%AhG)u0_ zVLsjiP{+t!KX(CUFL|*E>Y}W=)Vm%KvI{^1WvXJbEb|M&@r3HJ3<~pw590-sZq*-v5 zKM|^>#7hW&$*?IW3A?J0Kla!bP=QDz4NjU*vgsn!ojI)6B?Tm4_M0Tv5O=1y880wX z=NLK2rWnKO;tH?#=Re;}L2b{6`pf|co~qwK1S-L7F~}5^vn*c4^LhuP))r^06@_f4N&DvSLRLcMFFY%$Z(bAg_@qr z<;CbA-}sL=s}WaLj8XMkSuDBrl>@%mRhN#lQe+#&lV!Qa@>-KsKB_VswA2hrRECLv zp&V{N-&gvtCwLhLy{lO@Ac4z5|C5_4>3&k+{j!^U>R7{%e9E>5n(cv$QXKK9?&s)* z=Sr5=2IE)0#!z9L$inuD&~}}6&t1BFa9_3tWlb)o2938?VBpsia)fIgxS%<%6aw&# z93CLg5c6FPZ1q(G;cxots@Q^_Gv!r(8sQeLlcvb=L2AAuFWtaWTXh>9?TOv8(bCEJ z_t4ekEmOQ-Qfgzani}S|yvcxpGzoh}b@+2pfu+aG>KDWBk~iT%i+_wgDM%8rEa9o_ z-cd0bdPuFQ%dFxh*I7lPbS(u&(hl;t5>`oV75ihWd|uGS;OH73XBBSJ<12iB1S%`s z-`K2zlbZ3B04;o`d!zE7=Rm_^wpdl?t&o&p5JGH!)D@fu+AcT$58piuAFrwFXR6$} z#nsTxx{!4*2+hLqd1DO>s|~J1kkmxKP0<<^a3f z-*^f&i);t-N0uNBc#^ywOu7bZ0b<&g(A?I`gDB|&RgVXBkmH-V;{b!FwLil8rS&;6 zyZbnE@eoB(8o=Qs?=5^(nCtcMw}Py0s9>s20!fx8=Sfdg^sKM*BstfAFXA=eBbN_1 zz)hnB(z!HSo95>n)LFKw%+i!5NeoIJPBh2T2r?#4>K-?FHb2J#qBIjrtPL=!jIcHs zrQeJUuJ#_gfw{+%Vg558-#-)VfY5GON>xLCZi+x5)mMS|YT4d5G!gBkDw$kExxEu!h{K? z_WP}r;Y%ysj+XKI#$|eR(OGcN)#pxFbv~Os0qt2r0*0EH4A--NMN@N&9Sl!%y-yAJ zp|#)$1vXw2jsO;`4YzB=n`y;SBiK}vBdWpr5Iy&nsv?IozlV9)d|~#v{_dz#56!?6 z63;uX=~BUy>-(N`ktjU5UOyGrQ|`_L1Iz%{JR5I}P0ctd&^0Nv-XxnueZ#72yVWQa zr^)%1f_KJh#UkH-nw6jBHH#QI=>xd+W_!c{SK$$^Xo$a_BrlO8WT?n`?%zdU*Ri^*PqQSiTWHZ0S_HaRB1FgSSX%VTAHZ|*B7C0SR@AU#U8#L}QxrYmPx8oo!f zB1Ep&(4lNJ{+9xA3r`k1xJ~z zau3?jueaWM3;)vRonG?JuhgM&K9~Z8eEN*7e#`ZL(*)wYL(>(Me>bc0XWrdEJG^Ch zcl(j2d;xH{X>|Xij*+j#PvvwxOs+{P(>pf{m|oZJfuC%glZmv%K-i1qnmbnUyTJ6` z9S7XcB+EJBT*2bKDCg6qUs{S-VVi^kKY%9}A2C_#%gUtBCiAS#{ZWTDA81MIKz zDh22l<2kmBD`f_G!$5=lq_e99Wu;mT;nZP&`+KmXiTtvAsI}FF>ek(ZybPVUL<4M^zyZkbCSV@RFSpTQ518VAV5t zR6DBlXavP&IBX3?ie?UwCxn!a`OKASX>(9w@NYq`YOe;+2@xid4~3Q17(nHOy>pe| z%nXKAi^?gb`~+L0If1EUjqa~x8yZJ{lk13_7AF^rrZ$PrMz3D8f~7^%A=T8{>s^0e+pTDlW~Y0 z?L$CqFYW{GyS!f3(Umpyo&Xz^?+6XuYt{w87M-S8-1NPf{sP65A`?vd0{o8H!Pq$nBou0QnD<`C+5vTEcq)wrFDfWj- zzlYCa0cybfKQ-GR4_GqK9)-e zY}o94N+P5~+eZd|T>`*zYIjT3RY@ntK*B2T*M@x88}b6G7qGSaCA-6*JNWxy+RNMT zvsQMc zV`xS9h9I``3(iNJb6DJWNcm4f(A)_!gL-ksaaQ|nL#75 zitK(1f?JYesrcU3RBBl2;xu1D%WA+>hYbcRUeaHKAS=u?QtN4dLW-iy?&^x%FUrtx z#f``x>>c}WGd1jIkoX^tB18wJ^s#mu0>s!pV7!LD4G=G(W4&#Kt~d2IU?BM0@guI! zms~I1IuMT!_~<3E<2a7vI8MTKgLN7!l1pQ?i0%NcgN@N>(P!Iq-Kxk?jI6=8A64YI z#`B08(b9{TXlDR_KDbuexR5&c>Cp?%5)@|y{9fRxQc6=_hw5DMD)PMe^vU7T=?Q13 z%MlEKlbhQg)1-Zv&gXYqFTV_)7ZNZ!_E|u?&MrkyK1uO}`r+L?y_%lk@$bd$l^X=id(pylji{#xIp5%2`GV4*a)0)Z|mcqIedp_ zYzHi^>ZPN9`nhKj~mSxmEYK&%^YuDEPCwr#l%Sh1a?<@npuOQj4}9YwPFT8|&!yQJ)RzhEMcLF2uo zae4{5C+zwxvKtJk22Vs~8s6%*0<9|3+Wi>Pkt{!d{z19hs#Mr=w{C+aMNN941X)3k z*(L^CtWR0^>qqbOOd=6VAFo1MwvY)V}m8G-+vEK2H9(pc7DEL z+GrDtiSx*l!M3t1q)=2>7^5+&>Fl!;|<;Zwu37e%|=&#Q>P0a^wqFFdMH0^jZ4_X1S26y+g1mk&j=p|x;{^75aTG>> za(vYbjbf*xp!@?kNz`8jE-N*OK6PlDaMlPXxr1XP^wJdgZn33%X6e>D=u{ z>Gg)-DVodxzqd2t{HZn31F7Dej)?_-D6jndobOcQ$Tzd!(FH^j2%y24soWYTVF5Oj zb2c+OjP_D2>*OO|nf&?f)%V##1=!q{C^tDus3JEyo5Tb&oXzqgD@QX}x;V%=SvnNk z{Ps&a+e*HG7SWapRtQc}6E7sR$PJ8`GhN8GXcsPcn*%WvUq~Be-%AD8w~K3kpa{Iy z_9A!7pj!7RD~_dNP{OyorwGt>`})xwoRQNTc|#M^2*s9pH(L3wj@E#W)%srFToy6< zfC?=yHe;W!pH7;hSAuYQ?MSxEK!a8Db9J=b(oVk4`?_KZPOj z^!4L81o}7z!5R6VK)^9U9nXq?TKwdITixf(PPjp929%ecpr-Dnz84k1y4@U8uz0(u z8*q!6&MXiDJp=Lte9o|S@&vZz`S^~#q8?xrz^P#Jq)W@_gImQ#sn7U_-^ABlRdQ~J z1we1&&;vSak{C^(&NcX@9DT+STA|QoCa=~#(9T~{EYuQ>!sS0*XhBMUr3(CA&T?p! zgU^%&CFD{rWd~h{UakSwOy9FJETQ(DA(~|u)qb`v6l*Cric82^u&u3XWw|fG_ zJU}Nhq%%qoVg0n?MWeKTZAEsvuvsfa-6_=GrA4Q7p8|8FgA=$k0Fql;meC6S1)lGf2WJpLNl}CktqZ^Wn2a3Vp5p#yC zDiJ%yGQ~L5p)0urcK7dR%U(#-=s>BW6&c>Td^SCwI?|`yCK4)X6hD!5qctz9LZwI< zv$QDFb9+63Meuq8?$(cGV6Gn`~&* zEa`3gO)#S;oW06_KCH`l#YZJWEDZ1l8csUMYAeKIG6Gg1j32K?RB2%m#%LdHf5_lG zd5oybSXmZj%_jNg=kpTYwyDGjn#rhJVrVIy#kEk}9L{AoGIKMkzjnUX2-t^C&dU|r zBiQy8+-p6q9e_poGL0vn z?7#ETlf$HqMz-t>2_qY?G$y1yA)L;YsW6|C7?{Dm>Zad>IjH_DQ?^r*uWDNkhsvRRTtmTwHk z1}coHvXTaCP&K28tQaSw2mv=Ub_}Y<>Sa^iuhVY7*8m0;E_6QK21!a$<35Uv+}`5x zQS9u0=wZaos<|}h^4*vPwhQLVll`Qa;(_^;51_l#>~r|{W=dxx$wJepn4>wr6MB{w zS%)4U#8dYLI1*)}*qjhI$Ks2O@ykiZCu_~|6qoP<$1d!j?(=v3w5@RrZ7!PF2k~9v z?`BSsGhiqA?cywh>*DxYRxXR@OkGkvfNb=C8z4>g0Kdr6Yam`qyH9kEPvCoc&bP(= zOvxO{RD;4)s!7iPDxQ`F3BTi_L22r4l!f60@Sw!`6$F{ZCj^vP2I_Ul;sWh0+bl|~ zL1r0=Kf4$1cJy$qTQ!JIQ2YQz@*Tif^O0xY7wakDL9p=1|+IrX#|vCe}eTIbaH#07}`#`B7G%D`Xq>ni)qkp?F1Sj z>Sa|&B~LL%lpnKM?bGs=ncVrybcVRh7ZD4KEfn{n%Ba1zSZY#A<;LPlt#omJvBg=v zwAhEa^I`6qV1D&sVL`i_tU{NyQ%C43I zSLpAQ1ARHX0@(4Y|GgqS-ec+fKzo!R(R1xl;zO^w#|h2vLF%5O;XW?_2}s9f7u3Ui z(5@2S{k7vI{i15bN9N;yh2Fk@hVCiIK7$~g%Y%I33biZL3hL>(hsb;IJFfCU@-jE@ zdaBb`h#!a9#Ujf>SO7zR7tV<&9!8+D93E{iPLc^DZFRhQ!UIoH>d>nnd^T*e{5tjk zKT6|{u4xniSU{)0GfabNYfLmT&HR}1S8Br^ylC@fU&V)~V_8e6|L{0oM+PCRf2SwO zr~6M&F~y~Rl;_vWctXBU%?)vPdq~E2TFYJ}wsDfpvg+1i8I)`y;S^~qGZT7)e5G<21#DHo7C{@R<0mcTW1E`YGxnQ zT4XDi9jmQ13tnTDHCt{LO^sdFe{8#nSej#Gr3V7-EA&2(!>Ja^Qs<}GSI~Wq22;cD z->*6Ka*_5{_nN`ipM#U6<{63m8)f%3%X zfOn-D$CQkY^+!_$K%7}(e=+?d#)bKe93T%K9y~be4Y`PS$L;=Lg`zBo82Jql84>zRa4a4q$wK-W$ zkz`D=L=W*z`xK#|6(*-Sg4qQ^*Q<$Nx8Zt<2UWzF?0Q7&gFztoL$)KD?le_`fCLa6fh0-$jyNO{aURq#*s6x!&$l8aiieLXktbhQe zqAlaGkLR&hslFKN6DgyQtrQ$ZAyOFis1J-vN zSmSMQowwn&-oIkKe^+iy{oEm?eLF>CkgEBb6Y!TMa0_gVg>Sl0|EP>x>WwNx>g^cT zcKC4hDhBmO05V25IeDU)@XP%6^>5}*TY09(T6kAvcDp6U2X`qI_8uFSO>iw~VS`x~ zf4DWOs}R)oQ(R9Wob4tvg%{FcQC+s8in^S?y}Ob&1$Hzqe|r-wl|bRGSQ&17V0hIt z!FIMLKZ)9Ls&O$jWEFV_McH1vhI7O4|4D}qs3GtbSZ6UxfS)DK7quPvM@jl(R&uMy za9uUvYp^S-=q-G2_W{RQ)Z?FUDa_O3kG?wof9KT%EWI`0m~N*d$Rq_MUxD5IJGV<;)lroCqE5bOep7`C2w{l1L>xVJ z)848+cB2K{($EWw5Lxq)1VI` z)$-sZ?at?Cn3PskjKf9UU z+)lD(HK|L8Lht%;2z{8&Q+K01Y>^`H`E5q$(QUV`)0gr`FFGS!R6p@CnHJ^RI?40~ zlW->wLkIb`GZsP%#kY8Ysw}@Kmd_@p7`|&E+JqOtm-$sj@t$1~vju^7TpX#25vlLg zyo#2ef19_lJe;&NXRh5Wvf>iSnHGWqh}8??3ow-D z?(%?}LImq3Eq=s4%NO5IZ#sAh-7E_-&|YC;yBO)zX^raOd+FxWg6UIcTN*95mC^F@ z0*~Zcab_8O7x)6wj94yH=ZwJX63()MmZ7use=M_F-hZA$@y9&Pp(J=ua%fihISy*_ z3-3KW{_Io31XlX2K3tc~_@+OFrA8yd?{JbSQHs!_?e%R-hsL<9vR|^ZTNWtA3lWdF z94TH9jo?tf3yy<@q){E9R*VJ|iEZ!g*c+qAS2(oIV%E9#n_ zr&sdmC!N0ly`TBgc+8d{8|F;SK1eRje*Nh(d)2#Ny`X4Cb#P>_*d6JH{W( zXqk-Z>F_%gb#9Tsj2*}x{9l`-$YE?Dg}jb=Nz-5A8v~8Pev=0XMUcO9#{v7TvZdD& zAZ_8B!Un0NjImQ9q(jZ?Ai?~1hiKl?ASxe|0*3}fCoH+0ii~xt;<2@iS8}(De-^yI zhhzF)w~#K6iyF4;hvs{Ykb*WJpOuN!F7%5|FIOXWHppjHcOaTbASvHC~PKs7>4wX`D?orawz zzcmz>-Mr0fkxGa2dJokd_3;@iv89pm&~E-W*--1sh1A?$W4^44$vU7;e`Nl;3C@WU ziBsduQDW0~R{MtZe>sVQ=qyO9d`wa2c3x> zDk~$F8VcygTie~e=f=12yRL>f##-KHj2L2T$)QhnHT+%qsO6St%y?Gx=9ggntDK2m zTmdf-%6F-i4=pP*x*BqEe?&8IC%MAo&|tEsch?y4s&LM^mEMG1QRfh319?{63k0H) zC>C*H(z;gsU?zNqyN_Y0w8m**2@1m<0HZwKl)`j@!$D9PLqTxfM{4)C@TZgvBhq+a z6#e5PcogLGCkI0^3d&@{k(p}M9g}~Tgz=L!P$f`7wa(WycYnHQf1CTxm6&d+)QqCu zy6@~iJ?=CYr?RIY>o71VAp&NfM!*WF(_96QrbLs?o2Z%~T#=;mAo==*(#I=(cr(Q3 znh2W--YJ2p%B~w{pX4`3b0oIyEo*e}i6p-}CExG@GzzSt28S%ZiCN)xP0*3yhm~ka zMKOFz7)7FOFp`f#e~Rc{q%PNq=cMvP5?2r;MdbJuH%vLgJdeVpu0 z-9OS9P$oQY?)+89|2@@)^f?DStfMew02yFrT&#+)l|P1Zur&}NVf1$O7F>H(+x=TK zXh$iK#h`TBL)D9I;3~x;WmKtHws&laJEd_=MPf-ZDnt?+)yEpjV_ns;zTz;Qr^%`? zs;u&xd2*Hif0#W5w?edHsdBH{8J|Gh&d=FPu*SW}`5gj`MlW*Q_=Io1d_A3Ys)e9$ z&|NNT3zD(2Wu9`fZ;*Gp+`qn2^F?|`BrYFB$$Xp0YQdb|>6)JX*hyg2@&Q%5vQYx_ z^U|gL&M>By+?J-m-j=F7C*$Paz!j#GlBbe^Rr8D@%ENsDTIXF5eC+cPfV~ zeHU2tmOAwKiv(JC`Xo7h{|RpvJl{~+6LxL15&NLz7c4sh|Br|GPsc+{G{@Pcw+gh6uO|_O=PfC^kZ~+Ol0nn`IdO_H$U^D12->$rjvnU_x00yFr?)KmHh) zi|6KKMIM{DcSLfTXQUUEZTE2wYBWiEB^NvO?eVus6lwJ#tyNV( z*;Uz!BTR_G`&ldeNB7-EDLuxuax>*|w^8c0;Zz#yrJ$Z{uD;>`Zq=9P=^)Hs99S_< zyRrd>$eaC9B(!?{2m!qjA!bse)^`l~T1}v4e_K4zEj83iwt6ZoCKgaszi(EEcpXzI z`(U~_n`P}yEG#-9v)^+@z<8N75axozP*k)HotlypzFh$K9n1f%9LrcD*;3Lfm`^gQ zv0Wh+##t{3vs!F4?c?Aee4P@cyMlYa7LgPTZ{^BbT5e@-)HAQ2+~n77bDh`9!0!E{ ze|Ppj+W+L>$nhmg!Tn2 zZ_&J1D?*)`iRY!zphkwBPcLqP^BS+3F?KcoRyXM>6+6w}2g}(J1Wn{r84G3W8o*sK z!19!&x!Z*MlPrbl;zrtAi+|4LU;#P>v7Frn>avmJhPf$*>5&d@Eke`X^5N~x+2wcd zqzf1=?GM0!DYjmI8J0A8a_8iu0EV7j%Jsre(hJaYhpZ6_JmP(ORk(FfzHm<$USv3w zd880dkSkmb6}K~3pNL=bY>~-2e=MvonRZ1`T&8H_qrL@m9})oedtxM13*b~CdW@1= zylA#V=8aN=;T`lU+xc`+;N{Q7^kVLwIhV%X79c_30(t#a-qLYgI{9S(-OpZrnZDjn zX&njk%Pga-uJE|JYK4p2JM0vE@%5`Lmvw(I081(w}(lz_u!O?36fBT;%#o1yC zsep8bVS>P_pMja#M4Yl8A0MB%Roo{i2h1@An`Fo!fXuK7$RmiC_{ntv*HzUsS9xA! zj?sSjxk_k#__yH0q(If4tv(zsP)e;0yH>6R!>%>E)v?hB{BSWQ0_VvD zk`#^3ZkTw$|8hH>(R7}=H~VQcp>WOe`2`Pf8UX2xj7Jz}XMph{2Zf8jaq-MQQ3PO+ zIz=!cul)oLLcot-k~t1*yEs>3s?G$Jkz~JY5-`o=RZ^cy>IB}Df00=3E4Jmbi5r%8 zd?;(ik2Lb7H~5wZU+^Lid~6v)ojd|5B%dA?Y^8{rM((KxtfLwW3uwcPgTV5_E)6w@ zR-=lcBZNI-w5;~Sn_4liE~&fQN&_7jrn_78+$NTj5?vK)(9?b@!4rea@InWdM(Gwv zxtUXKd1)vW;Barfe+5x5jnHg*Fke6Q)qHK1-Vq_K(c*rKB&WGmr3dZ9fUK>0JG_f~S*YQ*0F< z4#6m?Std}qOC>1-O(kRf`Bua+T_U?WeRxmf^DLkmUP~yFfBhr3LKLUVYL65T8uGDJ z;1=qWVwV&RycM3LhuXjqnm1}<#DFYby-hJr4Vau=VXfTM7g!VjuGUBpi3))nqqxxx zYt+ob1>4Go#x+_2v>b*4AU}YrQu=qAH!^&(H@$K8w^0$5c>3i7^V^*+p zQ7_*THzX%TcVUx-o19kTStC}kVgiMc*Be7-`P^1;;(GIOAJ07>X@jj&=jbf-O{dpk z(fkB92Kmd~IasRK$hQ09LQ=n8MiIIhZ2yReq3vgLe=97d$XxUi7vn=^=AOI|nl0}d zk5Fu{l<*PMT|6VmPU@)Z@N8>r8UOMv=n&&NcAxT$LwEVa4Dh)ed2W$vc&8sTUe8Dy zCvLG!&lLr?-R38@25_uvzTwZo40KX-wdU#?#VYS?K>yU*orASd{$)9X~C_(9mALklhSCGpA4u2;30P+VOdfq{wWt^oF3 zq!%1oR-Gck__PUY5Kom-5u!Y_-!8nTRPkmbLNIdmx<@0ka$Eb+oGPIO(&u2kEbZ3h z_n=_d*E&k4P``V+e|YrSi93ucxi~PT+if6wf2X#=I)=4&e+?rwtS+w4ONln+X17f# zt5;D8ynxRw$%`C?cM+aZvbI=9DO)zZW0|cK`_1~z7VQ}1s-Q}>bn!1t)3`o+Qb}A-O8!4Ht6&N@c^~A;Cdz%2b&`mudJHvj=H)N%epR$Gq)@H zfAX;K1zMeIT0ng4MFKh^l+7Mc=#Z1}r&iqVCto`K*&T0Au^ZiCDe{>cQuaQaKSwkQ zn~*DkW(WB#d6HhJ(BFj*_?sdJi&cnDK+m3CD!QvH)Y;m4mtu=yT$?2U*4uTWCzwt$ zLEjG7+JsYNmeytEkMBe?ir#0 zDmeSGvc#cEWzM8gYd2)Nb+w%yA0EG+Or1h-l^cdAU2rwaDaGp*{4buSp77ekl9(0 zBq_R7=Vgy@ZRw-=B>Sa$YNFq%Mnr2p zA%Xe2TB7*+g=z{MDDW?mQ6xb$rJtR+qU8X(SQr;twGRfxFW$YX~6Z+4<9aHa*K;Fz|Tu+2dRkTN7OvPmatg z)M^Z+5ibX7I@zojr^@#ke}tz^^V`{?XaEG# zg-i*h3UT~>c1N@Ad?JCCUhaRX@0P0TC)pfshWs#}{dhUm#2f(kC$O7Re@ePY=d;@jO}PE>5;*xz z`u#1&2r6->-%n@Ih>sA*TycJ${yI(N+XlXshfdVhs~qU&3s-!=n->9wsC|UNSTMgB z#e``UysJQIvI*@cAvR40?GO$Y^DA?U1G{197yB#2xp+tt!~!}LZ_~C~SjkY1>}v># zta6Dbc1O~0f0?%*>6h?=w4~C_M`@|A8GmW$P$yJ9dzG65yC_#hX9?M~6$~ z8aHLZHF`=)l9T%#oC(v#o$NRO_r84Z_>&U*T2iFdSwfN*rdYym@nLB4fS1l*C;N_%`JmFYp6R zZwUgSQDYaaiMjTS`a%OSiTy~3to+<2t6kmYeeG#czJP98kcB|b30zyLU5}HsnT|Ix zaXKEg4UKx5)g;>pW9%IZRu_&el4I;31F1p9f2$yVv$g&1Yh96^m~LIgm5SuHw;nJN z1EBh+{buD0Kk@5jCEpr0y8nv}qO^EtK3A$K*}@K)2OS|eT9MT$vrz1G#aSz4$3{IR zdYBb&Vq-N9)Q2{zxwkM=XL$Y6J~LeK4G#U|S1IkWH^V8OQe*(VaOa@_0yRY3I=(!w zf2M_9`I;SiT;61!zZcZ4|KFP75(}o=*VjVtMiFPtw1l5WL622i@K|>4R2Br2${l#e-(K3q ze=Qk#Y;D{OE*aK7+E=P^E-|4ciG5eE#arb>I1}N$Wk}@ffmF*-b;Wd&$!$i53ALBN zz0a33xfq5%YEdy}*eM4*vCotHe}9B5*<{+1(9}kdHC8sU7|JUhg$^k9^&);ABJpr? z*##SIRHpZDz>$fa_k2QvyAGF>&!nT)1y?4sh)1)S8600xoIFI339=9$!qWT>|NZH` zAFcPd=hR}uo{l!yKu+m)3fwWgSU|E~bhhBBxr;{G&*`+ZVRwdM^LVxhe=;9tlp*tC ztg^^QShr%I4z(VK@DAYmTMdDwCsq_jAF=TuMO$X0K>(BL4j8A?AM3@H9R33iv^RhI zx^>t3_RYceU@+Y7?v8f)+k@Sm&eyG9AobPpxIgYv8srSdo!>hp=s^j(-y8R&;I2TA zM!TafCSk_51s;}whr7LTf0s)Q1$MYM9zYtS9Pe7-?Go^4ufX4v)jO8qpzQfiUl~5AX}10{4sx$YZ9)jX;wApg<_KPs zVGL`q6?>GUNO`CA9&$JC?~KMfOLi@Le>58Qhmt(1lRJ>k{%&9Te{Z1B+t@KKb+J1$oDKHO?)Ip+9D=2Wjs}A&*wBDMmpG_?8EkjkYih7lhU0#B&;2RG zkLuw^27a(@SS|2-e|x?-N>>@7&}NUz@Y_p0BML>ef`#YyTdr;Ijcd8SYh^MBKB}jF zuLKTk8U?sN8jOsfS)u6}so6zBxo8=|t}03offc)ch<_k8%XSSs1OqF#Rsdv7@6@xP zKQst>VFcSNDA=|Xs7^8?XHe$BU$3Mo{N)}>dUt!!+Z}j=f4RTCyS+VXRMMabN=$(Ijjo8a9FF{tcr&^`@QX8ua1>>QfIhdfghoMg^}y2cmrmwCh1v_*nnnN4(+KD zGHk6^jiX9ye=Cg?u)kw8YVg@TM&w{`2h^iyJ&yYQk*FR|zy~Ghz25e=Z#3`iK*#h1 zsXrnGdUqG*Sm}3#9_`jbZodC4>Ck9J17IxW>b+G}3&0Q7Jis(U;d)e{_ye|fHT8=gPb5(?_*Y*cE6fe-W&Euhva7E;9{1Y9cZU4IVC$1kY1u zS?<*>EPoW!7^;NTTBw(Yuw?NG_WOCf1I!NfGx#N&r(J~K>y^QF)X?@utRZ{YH`NN+ zpxx_c>rolrC{x>PssC>ovG&NtJqGS@JRa|QZ3Ekl{W_fNk6Q&+6H$S2{bPXxoe6yj zfA&t*h5-v^SCw<^upI)?{vxa28R$l;vX7Una_yjW9_?4ym7Jn5+A`%wFg+|gi|kwFLjAv=E3^A6b2 zxT_ryYVSPc`UCHP9gRjkg*;A1{+|1FZpVXebF>eK348u%>>aT%UXwm`*d21Ne?9Db z2P*K|Q?57cZQ*uUM;_O7y9H;&IM6!eq7>;i8T%z1*VO~r?}o{)U&3xuN9ySw2g5Br zcBTLH2V!(sN2>Y4fm8n;xXoBO!KmML>zBQk(e>sFaOsp+`!94fN|eCkE^j<_hg*UX z^qr2H?mqx6awyZm=n=BZF}z)`e*++)BpVF31nE=;5>c78*r^oEuhwzGdf}K-EA|hw zZE77s>5F?O^l`GqC$fg<+&hcjuGS+5dAQfQUkwx1EhAOi!d#b2TSI>hGwY7Wdh5QA zI|{EE2MWEM>I++sHiNXs=>2WoXHxv0L*;`JmwlgP zOU_;b->VQYf|O4$F<~x)(+i$zT3W--dQNP}M19!3I(9ndxKryJ%FXSSh!M>7F6=>; zWbKs*klWpNmU7>R9X`qL(V`zJy&cPFsq3wd$`qHE7K3^_`{F_9*2bgnf$eeHi=0ftGDJP}|Geu&DnesSTR3ck8NGLmI=MC+mi7d;z{V^1%A;4*d9i!T%s(wgEvYnhhnz?mJaIe%k#m@fwnS zmhq6D0`qF?DNE9nXK_`5V{BN_>Z3`J19rK>q9-iI&c-h6evelUV>R{|dz>VU1jE6H zl!-3;sd7NbL;T_ne`?q;5A%>?>@9r{YuH)W)pr-<*m&W{x4y?+A35CVSgT*vV`*ld zbflSy^8?rZpwDqq^C-ynR77?96eitzL!S~1iSPC*$Ejxw5n54Bzk(c$SA@(z9Ch*c zpGmP(DK>f5lT_)=JBjvL3c}Kpuv5egxawj$HUM)rT z&gS6YV;45W-BIhF+HjDhW5=OKoS1!m59-S5_g!*>U-nxMu^3f5`-bySM>-^m9A{3B zGaY2u(gNSDZ7_rK6Su9Cfy+~RiPD(c+7Qv$r5Imqf10QvE94&tvC}8rQ{xx=?N@Xi zLLFI`(x5t@aR}2{IAizwWQ`g!96L~}6E-Cyk9jkePktud(J0{DDD3uhHRHYUcp$Oe zMORp_b5b?tzSG2uJ&;Nhm*Yrj1Ktcj@LXy7>}hR5ZVAQX_9G~WpYnb<oB{cG6WF|Rqibz4YEd#R(Km+e^BqU$L4h!ICHwkpr;J%G%?QaRLWuDh{Wy!B$J<)qpdz@$(S zZryExvy%gH;+wJAq`G*;*bv9r$(i${pR`_u0?sohHeP7-B+CP#wP8(JP^=!dE=&>0 zf6ee{c;I6i(A7wumn25v{DfnSGMcQ1vwWFey|@i3#|Rm8IPQ7z`vTu}up5u~D*dui zL&UDFzV}2ffdo=FpgBi?l(jB|bT|<843DcPrf0unohcl9|SG2OcD4cM>iy6yFq zWt`fDOMou?VUh-HEd$$q;E(m2Y{^bCDJ{<%LRwb*lZ+DihWmZClrxws`(2%zcgK*s zwq6YZ?7`TH4JR~POJdmovNmzXk+3sPy4Bj6v7vLvW@ic~klT-$19no|ovdNQe}&NY zdtI1e2xSd73?KM1C8~H-?`k+yLBVaATIHcz$M5PPCe$L2oswF5L#0%=Q4%>L5k3sP zkn2}QT5VKZF+FVwOZ;fWK5OXF81M5r=7v6;NN7F10oc7BgVnI%TkA*zY;gmbv0+*7 zotMDXdM>044)e4QFu)!sUDq6ue~#LdaKILRz}Wt4mqV#))=Imo4=_%l&r}?t=RPwY z5Nf~*i8H6f5DWuyNwikisc$&A6;N|V2TPp}mJLGI&{lp~=O_7}Wa(^v&SkHW3j5RD zv?c+TF*@EVGb70Z2z(80ti~lHfzDlt)Ucnlzc2)_`(0<3aF)Hbwlz+`e;-`&2o8t) zUNY4qk{VK)_-E>ow1)G3Ah`CCZb3tzY0sHyb~(M*1u-FL?d%le z!zBp+E##iSXW_CszJ7O&(=$?e)|L71>oF|Q`kXX`i2b(=X8illkY697Hx35;0uh1! z^L~Yhe;&cjulz9pH&o;Ie}x|Zt3m-kVbuIB0q!$0f6LcBQWNzpTettnjD&Ul)J*f2 zSR_WkPtN$dh#QO^=;vqLTBv^ZB}fVMt1-JNfq#@HNDb79Qp3JKP{TTq`Y?an_cJzC zWS?$#5DOFH7#1?XA(|xPijhY;K;#y0tK}_7h{Y{rkfobMNxtJ)f7ZOzO^I%vwpiA{ z1XiGOieTq-EXGZ8fX~2{NpK3^QzlD2aCz!}9yVn&NZIb^|k9h>;mOz|bzz zagDJ98=MJOs%{lH!0-$mWPAs4A@XsYz`kWl>BBy5F~0>0vb_ZjF?^F~Ow1hGWhDl$)790Xy4G6e$}k|{Jv#+H#oX9|`msnai9e^91iAj2|+22m34IGKXID61@s zk6Y`p2ozY1MbNNHtRfm4W)5G2wNy!~ehCAsuLv4idR1htjK?av)~{G9EpS_lwHY!j z@n`s;^xsWBt}%GJpX?ie8z3xueinK!P^EOwv zP+^X4VT0VfNjBavbZ{59WLq5E0)@G^g$;D>edFfL$$YCrag*Ug*HD_|E29LeBg9=KPFNYm+mTktaSAE&>PJ&)vUR%)3D}@4N??TKQNAu> z$>^bTDM`FCLy!^z+(ux8WmKL{nrb*sR%NapC{MAE+g!u|h53d74RQ)aG`7qf+zkxX ze-`^2m@vZ|&_Ihf$&!qRv@xA%wqc>Ty_>^Pbo+=jKu@<@nV?)|mMS2~04r;v@rIoP z*;&e1DYivKGDw(+ZD!VFS;&12jcnOd_l7h03deHcgdANtxVo8@aGZY%=WFQLe`yZx zU%Y+w_FGq%AAb~0=6Q*-AVOsRIzK<>e=ps$==DD?igjTQ?VoJ$%t`t`Ep{9gzpbIy z5nqR@|-j$r-ffi%AjPm$Su>hGV~c9dMjKe^1Y% z+hTpQoC;>sGfjE6p5^n|?>SNm;g?u`^8q!O-_PMH#FSXES4FIEDZN4C`XwhL}#>eO#h>H90oa`pJZ zIMm(U{2{spea-IXnnK;HJ}(Q?i@iSs7MHHMD(;r6wNS%s&Dv%ksVGNZ%*y+G9!DSF zt!ESb@M%8HL9v&ges%?4zWg+fE1oig(!Mqn~Pn7+t@}+8~p8+f9OJTU|Tx7 zkuxm1>6xaT2^vvd&U2_O@xPwQ-9(GFx7Pj!*y9$kQ2CpW`lHT#?KE029wpS_{HJa z+w}8pu_ko@*%I_)HF3q*fAvt6M{|hv(din)&l#}UWQW-HO?atq!u$NA%PW&De5R&7 zH^L!i!F{Gi#i&(~HB)rIm{kFMwy+U1U#}sI{k~jaoLYef-+AM$=*QLa{w}sE$ro0~ z)(5t!*!2BpNx243ai2r4C$^FOh2*HXoRzj$gF--pU&ACo&3-A+f70X^Ci}`4KNgX> z2nkQCaPS7qNNa;j;hG6sT9sVDg1MXt!eJVLQ&GMuEIY>6Ef>r=y9?$GpH`lYs62R4 zW@Mm51@dF$w%lV-%F%gM>j^u;u|d;>;eB=s(%u#e>=HC5UF9v|qlQ1rIxCc^&B_L` zcE4i_}E4%I=e+a<9#tF%a6a*YDSvlJhEIBP!<(fp!Zz1Ja1BS5_xj~F+#a?{9 zh2(%YnWX%hLmx2VFKy7yIlF;g?S)pW9+q!^7NGYkL90f}3`G9TZ4xu&ZwsW3Mt>dG zEi{O8_#ZS{!pNcQ$_xk^)y^SmS~iSsM&@49R0Pn}?dHSbfBZQ6Ro(4sLF`zY5Gn0v z!-|boE5e%v&Z2kbIMyL*n0>v=qFPvS+I@pDJO2q2XW?<`lp z=BsH0Wt*sC3ODcIA5;WWyLjufE9kF0xtQ5SI_ts2e=tLNWj?LVLh@!dxdFAVel&AD z<_r_mN-;I>QDDo6UYg^+9`hsd9F|Dhqnw17tEXKaa3-RZj~S z%eBqxq%)N`1wq5wLd}cZ%on){f);WGVQDJsN3T;xY|22^TvA?ocgb6bh6Oix@T>%R zHUPCLh%4ywa?-oJQCAyadh}e?pc|oFK9wq5(u@LO07Ah@)NBBLqOB z+$>7X7N@Ee?c}*9KPtxwwwVVueE;-RM;vjg8h=_j>3GHa) zf6p!QS(tOdg_aH?z+;31^n=KTfrv@^C1a3t26xG2Lepa;GXxGIn~jonvTgENpz}J4 zkP%jbrU=D#xIjs*Bq9^oE(P>N6WXaGYFK)54s3ENvPPAt?#6g^QSZsIUe>37n&l zAghwFs^wFW0wjQxYGR8OfzsP{68;h~g<9$^6{?j}ODFQ`#by4l4bHcSFuNAeXz&F- zcd85%(^z$tWwEP!f9(|E z?Ar>(FmS~P^Yv{w-thKnwOqx(r*k>q>2%B~3gK9vO>PRTH=tyC1!TGnlu)|RMKRAG zu4cD(l`_R|$X8ha<*C_t{WYH%n^rrp;K3aip-+oDP{Jj?VB(j2Zr42KQ8c4xOcyJu zk|y?a1G~k=qCzXC^M}VQfJkAde=K6$VA4PN5Hf4$oXIFCNfkil1BBOWAVS8x>$A7s zd;8+^58nRNEUC;2%R+yz!Q<$U$U;23X?zx5p4ld*UW<@x!8-Sr_9{i#l3P(&$%X${ ztNa0=_L;tXrgBJm8f`ve;X_&qG$335Y%D@ul@HYj?8_EWir^+2;^fT!f68U~#vFpn z=^016DsU2rt=C9247~6h&@4s+kNUr|r2!Xq1LV|FaIDZ`Zjs9w)xB~lc6vt|Z$DTL0_HeojW)@K&(#Qsxf z{*|lrlnGhRnRhflx8epMe}8*rR=)k)tc0XOKJUz?-$$=TSz`ZGUSjDvZEn#jr(yCx zlEVZbf3hrRIEcO|CcP#R^O9t8JMF9jRlA)<$3_<;RQ3YI)97?NU!C8gm$+BiaQ0mq zy~xC)R$31}S`WL^`d!hY2BcM|bQXOVC7mpKIqHICNgeD;5S~O3e~8^?j#+PiQtCzC z#!auDJ4=eFlNCqpToI4$Sa+HLrY{Ky~he{T-g&R%I88GS6_of|O>ieF)8C%Sv!7MDY=bRJ6$SEu4{L6@ve?vU|1$pRwZj|Fb^w8l> zye=tx4*@(2FZLV!uli`ei+w1)ncTXig`lrtgP|Nu&cC@ODH?)KQfjBy1r)d|g`EfP zOc^`lk%GJB!XANv%#4rSRo(f*5nRxcVN>l0mL`KDBI7; zsy$zTpmvdae+?{x3FHxt=033dxC?I!OIBMphZ&H!h~?VGZtu2uoo|PA`XU2Fyp~oJI=olG;g>`M=2Pm+1t5zgq`e@_eeD{o9qf07^WgsX0BU_gO7-O_H8 zU*`hC`W?$|W?BI2#;#O_+^eDIX9=jTXDB~u%FL+S|9o5diqN;MCmL$>#|YiEUp++mOm8N-8ibw_&-YqP71xo#(}< zf6K^9C3wfd%wb{r2s7s~MsXD8pN(<7Gl6#dV(Bz;RikCzO9fH7;J+?P2%F{2@_s(G zRp%dyVqtF$*lP4G&bj6Cwy^h7Fpk@+DtPe2Qr$ap9Dd9nezdE&7BWnm!xKtHZ$lB# zn2?P0(kAoZsZ$^lASD$pm%(~W3=Y4(>8!xbm$#=;5|0zA`7ke1*ia@AHjD|`pZ%vwg(8&W-aq75 zNU)ap)iAGAKPp^Z_=8sYni;`E$~-W?+c_|e7gh<3OxiFDC`+kq)Ce4}c#!;C!;tHP zD0X#5&~)J(DBUgR54X$J9h9M!e{#u%)^J43c_wdpEzLt-fHxU`biHDw$tMJ6%PO5b zGpy2WSKoH|$1epOn5ROo^X0 zv_;A9x(Ne1vOz;@1tuU4jV5uXW|m0~km7zdtH~&ClsEJX?uYxaIH=(BfAa1wNY{w8 zAq9*gx&i`f0tS+dJCFdBM29Ocug$5x=}R}u2}O!o37>wxFG|<#aM{I)B@Y=8ke7}| zFG^x7v)4fn7*ZahK|=1=K^*N7b{B;e+|3AK%S%a^$4}wMtUtZF{ODaBkqPF}?;at6 zw{*)Ms0Kfus#TsrLuOuge+Wh(*Wg!3QBB4Ld$n?MHBH`?y_4M ze4}W~MQiBBdBr-$tJ2rszXvLqtl_J?Qho3X*fO$rct_s0$XnMoq2}M0x4)te4^eeA z`$CAZ8;6u`)F%sQ6x-ImO=4~^q-CS{UHe&yLwYLTsim?5{~cu#f77`EO^s&LnZ*}W>R!31bcRwTJIS%swMX3@!A#Z2e0S8I_>eJG1l&Nb~aD|#=r zzJ)4wPStdMis6{+r>?2?6asMD4lCfvKqXU-K(o>wnPky8w@zN@RSs33X5z4{Hd8GGrhW;RfpB=|R|PI!%a)T+Qb?77C5d$)&C zqLuMjTGXm?rJTEmz0Ae?HZ!ROgi`9rvDbj@s5M zQv@0sTsNd)0t~w>#em|P6g^xN_L$A{Kl!Hbz%wxVO%oqGvrmyK!<4Tqb z0ymDue;Jk*V8>HFUm#~j)+&LbM(Hzal4;ge2v+?1TF6{%!br#d1a6T94zy z0`gj|GgF~PYg+pD3Q=5E=~eVBmxCL(1*&%~V!!gu0(p@_*M$Vp5#-EfxSr)^OoJY^ zKz{8Z5X62oT)ef(DmBkl--*MS{D#y9KwP7kBsI7D9j^0hWC4e!Ks^ zXGc!g^z>6tO;69v>8?6GiB)$$P`l_*;G|;nlgvX!>EWiVUHM5UNwB;^d?~%FuT+js z0V|xxhbBTS;UA9_zTrXa|Di%`^Oj%5B4L2)*P*^y-OQ0ZL#$m;sBcR_C6=RM*?1wLLZ7VxvM<2mb$g&~Ww zcTWC-_7^fAgy;kE%EeKaX&NHdL5IGQq0W zEKb|w#sGz2c)cc0-%wrgZX0zMWVpv+SR|WbCh$OO#Z2cwb&U*nmxp`N8OWa@xFm(R zr)kSP&_;7Cx)sfg3=q8XSuU)g8&DK2c4bM)tOT?BE3ZZRWIqV!IaDT4YNR94zoHK; z&WcT)(Pgk&3p5`r#`S>j?&^2DV2GototXXMvJ-NCHRA%iBlzbo>hb-lhq(R$uD;2t zc(|D5)K9gISQ~g(56(lilpu1%xbdYMZI(l2?6P zilN;5M3B^b8>o6{bUWNX`c>|<9rG6hMiRjAZRQx=vJ@ZWx>Jj6XMG3*RI1?KlszI}(!2uyy-Amh;~1VrPantPSlMzQ3R0 z6G2DI9iX!re~x8PqFg67|6YlaAXA>U{_^C|oKEOID~UeYd3b6m`vbJ|)`D($X+RNN zPv3cFm(KwxUs?-pBN9c&u$NjLxO4ChY!f*thnKldWZ$M!}<05-_Qc`eaVA4U24JQd=1~0RN zcb7>sc)HI-_Qk80xm|-zsX#ZNp(qLZuwoj3xi{y-=p$-0M73X-X>OQIte8LO^Jgps z7ct6eBlB%!P^@C<&o(}s1<}6m+0p_Qf=tjN>R4e?!E+xt-${`%J%8=F`FHZv#DVHt zFu=jEzdAv^yyx~*8P~*QMJLlQNPF1Z^uY})Z?iYN#kbX7(FoVVP!q45I#McUwrO7q zS9+lJXzyWUPM?je?VW-8v8eHzn57}y(=C&PFl8$i#kdozB1=!u=qjc(m$^b~#*Q_) ztP*>DjWaAXVGMQk=eIIr8H5N{N)q$DPXPEa_-)e?Rt<9fV!(-xuKOVUWQ^lD%X?vh zt9P~|?ejvB*e#{5kp8LliqoXr6$9&1F^#5Qo%k$Kxh(hD5%q4*(WnpQ z`NVC!Q;B&F>NsnAT>D$BsMz8VbnLw}XEh?MjxxwgryJqMGut{7ZG&LYGtX~3X6g~R%Sg$xINln5mem8_Kq+Ph1d0j=g~dWVSUD# zda;4kJGT!8svJXU&&T zktN3SyAw)LCB_50Ou8DLBnyg9Yjd~EY=qi2JOV#%ChFlC1r>`ZDW?|AD^?>v^iOXy zX$T;!4wxv}sm{5CkY8nkL)#9e?o9y@=<6X1PUtV0iKB=){BUcuOLid_abqvQ;%={X=Dt(Do! zp}VanIyt+w(A;)H1#xI|TmfT>oP%VFyL~TtX=m_iWxZgXlMnj?kI;j?bq-lhqJaiu zlX4NymgLP>+|{HnF`E@CGe^mrKc^AGLsa9@(_s|RtviTD7R^cXb;T@MYQ-#9+52Kq zDTnMZ2_49^lv{oJz~lDpl&HHMx!F_b!~4j^ILer*;>&1DPHq92f&hjNnTv>Z0NFGB zaH973>`-&kDI=NN9K$Km{Aq`@IsCd3y$UnrRaM+ZaO&kSS)Y6{4~B*pZSkCKu@Q|s zJhVQZDXTAWI*h3^y^LQpV7P1-x^-dBw+$_~Jn}=Ydk>9+Zd)$}7nt(Oq)dg(+S-vg z>(-MnDVOaZ`MR#>0$wY6WZCgm85|m@yC$pe5j#flz^PPSv$brFUM+Vp&uq$6QI}F` zZ(9sg_FMw^u%9lxlhz~adcct2uOLD=}xI=e2AyYnY-&It_^mZoAa-JIas1^ zzH0c0rLP5xZkym7$z*hoq zGi!a-ta4bj1_liJY}^u>9Db3RE4~ZKSro@xAcZZu5hzu3*CF*HENI7Uk~^I^J%07f##1Nu`^)T*Sa|99D+YN7Wg{N=q7fm>*JN<0*U3#m4D(I0Ja6Pe3Z?M3mQwJ`Aogk-)%3yt~E z;+b0p*j$B^r=WM}R6)onlLSp*;xP;^*Vw!uv{xZ$(&)n`ZhvKR^IJWtAT~@*t=U5# zE{ODO5V96IM$@3IxK7g9wLMTIRmgD~D*?e1D*U8gXtE%N(wB1tx%y#39iG&ZqGj

rcU(i(LTPI)T1F>F$Wxu9K{*&1xm%J z)pv|72m4(mTq(VNaVNZyv+UjA&1Sc4ib_6oAI?II401ddSw4=HX>mHP)nAiIrg!KR zEIIvd?iCbZt9zvan~b4Yfe~fNxa~3Y4Hg-@T3HobO5e@9CP0ySlkG~`SnS)Pg0ZT% znC7NWSRBllB_~#45eeA1AQlUXiak=!Eujiz@OmHFQxw~LI)*DkW%+1}`ZD8ifXSEI z?_C)x^lk5*eT3a}<}k!@#j1I13Mr5uja#|DWZG1{ieC+?$2@Nkya^l>bz+UeQ=w$?}t@cX|U~HCPew&U&fyTEI22 zw{|()flo+rc8=zLI8?BUOEgKM4dZioG;p* zdF+&y%MkY8$Cv=msia@Y<2k&qW1ao?jnZ{!{64eeL>ecAdLu*E?3@!5G~gro#sW6N zlo7NVuw<3`N}DX7$n(mXf;CH!P;$<)KmwK?)yz)eW22Z;j5!fv2wxzvk~L-8mKxhd z8Zc3pWk}{dEi_K$^YXT~v(*k|pnUL`T_B@q{3%9g1Orvo`^oK15tEi33q6>qnMy{moHJWD zwKw&8-e-Zlj4|7D4`Lm$f<%_|p2m(60VnFtYa|@iSM0w~tP{PYu;mcn2_GB4FV$l( zFsxd(*aEL>tPA>0%aIlJ*i^_6{3kZt?>J{drDg;?7dQfz{Rr>7!ag@9aVz$4`x)Sb z8M?Ohn~Ir`L@|uQ|6!miyHSVe<@+53{V3Qv=WmCC8s&l$r8mqJPw=oV>_G z2iK}bS!Nf@tv_ZOSdE-x=T9rx{ zQtPs`qRy+1I_||&kPZoNNP6yiO(zzEy|pe9OnRK{_nUwAwMJjzR7$s@(H~zYx$d_@ z)R8mR5E07`)o$!F^5qpgi!GQ~xMWP2^J4(}zOoh*5S+P`$rHkqmY3C- z8gfXiooT;RN@YGn?k1bH`7=YD-rs84rDBc=0pW`#rE)z%whnFZhjC)5jxlT9<75+F zW)-nE70V#;S{j}#xTp`}CF#AIwp^blvAHrd1;NZo7GI#$K)puI4wKc%Qp>vzaapfu>qWM#H^e0an=^5FY8I4cahSI?>_)f7R+J zx&}Or@7FbZ*cI9xRyZlBOOBwMrbw8u!t+6s`PkfDFJuni} z+^&Yi+UPm~WO?xpq0j>x+%#CWj{!?bQ&MDOT<%k=D|=hZP3qwrpm%G{M<02;ND0!( zzCSE#MX*6hwPB4ST$^l-rMBjt{Uv~Ha3ZhzasuLDHfn$3thXx&mmc& zZPpQE+n1N;_2(V@CNf=AY&7ZdaJ@Au+Pkt!E6i;IjMr*D2f1<3Rw4Pq+C~jp(Ks8v z#n(0or=(Shw0!$b4#|q93@0c4=F6)+eOg?Ov7`$9Os>h%tTl2hgD){MW`e{I)%N&x ze=ezDw=m~sJTXIwU_M)w%!hW)#8VeIJSP%6>S!XpE=!B9nb6)*X@A^qQPN8Aoj7j~ zdjF#e5s*Hhys&rY5Y7>Cd5)UdJUA5}JN){MyRsWd_)}5A&D}h%aYqt3{)@Dt!0mAk zZx^gU(&Y+yggW5|BPDrPpw(EVSW`y`xtaE1Wx+~~FMMm{ickiO?A*U5sWGr5J(152 zy?&xXs;eWn=@21k%dES)R~o#VUuH84fJ^uj2E;RU!gYNo_DjxWhE@E%@8z|ogh6w4 zm?ePnOp{T<`>?W+N+5B7& zy7-#x^|RyDhFsO0%5TdqACgQ)4~P9z%QEZaBBZhDelGh-?z-sGN{vB_xNx`-!I7Ni z9zZ*w9oKD=Up$6Vbk*p}_4KV_76fX?L_ZlilqIRd7S8whC$V`r*S*ly{bwbw4bUPq zUr0R1vyA@Ty2`s4-Ap#dn25#%x|$R*~--I_R!o3J)1;MMLdybcstSd zxa{OjX=O!VZaJP(Iq{xbs_K`(n`W0MEnxm@`NWmP#h-`3k?_PEzg~hkrh#KxS4d~V z(x+-~O4Fq`+_h1%JcOdW-%<amV~jT9=fb+YL3$e30dv4Jt;FHEf$Pob_usc6hYv zl9QA_U+d&tqF^U`A@q-hTFu>U*rxmrX%6`zL~6IzHG~uqT4f(CKh=mfgjHO(b_Tph z!rEwptKp*D++=D?`i=>i*EGCXso$?7gnq0GJLV;bH;N!?(WwrfALv;)TSWNW&NcSQ zHRg%5%tKdOC(<0dJ<<^W5F{ufsH(qCGR+ak{(3bokDYNx_J{kY8gRbfX3XLAE+QgQ z%`Zj7C%4yz+20Yhs6{CGuv!c$6v_YzhMwHFrb4SvduKPG{Y!BiYt65i;yn^=BLNTC z99_otJlg0y#)yY9VcQX)VVSrpPl?|&w_0#@`O>$_4*QGVk*egQQQf|pw=Be63x)IQ zS_%^bF*r@SA_jk6zAyjt^D>Sy(1D2!0yzhQKqN0iyc%ZCHVM82B!ETp=g=RBsm~k& z%~i@RUBd&BMy1O7cuHAw&Z>CQ)Wf*T_(JK(mUwvLanHvFc#P?TO3viDd&#`fe2Y6n z`(N0FX$UbV1t*Q@Hd6|#+1_?{-5*q(bU*%75$)_~^Sail`8G?a|A{f~_5qxn)FQf`w+Xk6v;Ce9D1DsT?&l$p)rVQ_tIAH_EET}>dGG9D zNT`}zEzmfgV^vPngBjv_sXP5WwyjhgT;23rAY9yAm@$X;l5348c z#)igEJA{tsMw>pKzxT~zGkIB@TOK2^`hBlYy1gIn$JbXgAV9mjBjvkGJ*^KBt0$V| zPpA9aKR=7MKinHrR=fjfbA3wUfIv=aKKPj(Lt{5?#nmujb?4Mol zt-5deS`a!j#P$O_jZZ%)y+Mh6+yY(x>9DC=pc}HSF7u(@S0%oA+hUW@?;vdfe>TKQ zIhb-xL?NYon@pym!OEkrF)q*wc_1Ce9yWL)HCP==42lvEIZA#W$Q!`hN+W_>vT2nP7k)KC2R#Ck z&}w%Vb?-)AKFE;g3Wf2d55Mv>lq9V?)Qs!yC)N`6n&BS;h8o63sdilK|3?@Z!o30uv%g^cDA6L6~FM)c>}#`w@w%$jox zAFU-42C(^1p2Hv-4Wkl;yw(dE<;WSu+T&R(rrIS7%ZwF)_n2TZwd4;f}f(46!8c-=l<%`59SN#gXnGBpZ0zX5EBT&fo+g1Nu2}_GJ9@lITZmSY% z*9jG`6b!>9>lZ<^F`n6_@*=|E!@Df7VSTmXuvg8VteWeM z0$g?#$_3mXi7_R}A-27QBQk}>2A`OU$7tkg;8~{xCdxlym2BUvfkx%2^Km~gQcb{f zl~^VO8fe76VjNEL!n=`rgXZVDLMWuskJZZ%)Db9t{wku)B)8UNYci^!~xjMA=oXk>SR zl=A{=CMn1v@vT!QDlUR*+L8I#Cwp+Zb!ro6L?7jQ+3=)41{1epGk0PaGTUKN%;{@+ zc;?p#Cc|r5YQahwyW*Mht`d~Y5Ln;*izJWu1nomyP8p5tlFyo|E)Hs#d}VZ|+@D@r1exMs`YfD#K%&UnlZkuOK$Y24xjdN1|3ija*rJu+^k41>K6K>BM=a`hOV-&nz;@QRMZuiq#+|#9L0tJ>IiY#fgEygti zs?(u+51(&(w&K&nAFJZN;V72(!1LlB%qgNhDynJk2wK*>&H71Oe91O-qAKE-xczRR zYB}`VKT0~KfcWzIn;QXZv2D+smO{%9#^YaFD?#HJ4gcsktw`f!7+F41eqXqineQYv zU7qHOuxH+=e(IRq*iK*aRYBX9!C7m8Oa#k!8--tEimL9b6%OJrMHpVs4;G7suPiMi z;V`6Q`bQjA$A$B(Lby<2ekc*G7F0G#_SkhRg#dBfPSO+o@)MF}BkAV?@o!7Sh25d@~#sLBQ-EIzeR|^bCGO*?an%Wf8$O z(^{YqS%T!F#X%+N3avgEPqLzh_cIv&>bYg?m+)N!AG}P8*hNgBupeOr=xZK+rNM6q zpa7QNIOU=3;dhjOWc-pF&K=009mr5zUYW(z51|2mgqmvI3E=sPYd9xb55~ZY;~w1T z=3jA#)Z(`~)k5pPs53jLij*Lcok<&=qNH2HDP>~w)Zy@`Rn!;%45(|R(HiZK&kc8~ z?PN~8^BC_Be37HWm-t2Tq@Z?f4OCKtz{lSuxSH%DJfXvf^Y+}PSBja_+;ubDoG%Tv zx1jDUzM%Q)@FZ<@0x#J*^+m8aR4tdXFqq=z9FHO|>%Q7*{22eaZ8ptP+Jy6!!ql=K z)N0{!tL3aYkHd>$;xJA3C=IW?-YtJ>aHnsU+evP+zbhLWxGbyFQj3jyu&W5n`Q`Tz zHFznx&y8JPzSGG^FO*CbDsY^^4Dzb+)jk=Too*PaMUZFUX!TDSQ=Y5aun2YW3{Bw^N2x8Y0)Hn3Y1dbwdZmYi7%VaOJ z=*ba8(UBJZ;WhY8rzd#uF~j;Y{oEcw+|@PtR4K7&Ea5DE1>4-+BB!IhyW6|v$@5OE zOF_x>4S_4$_qfdR^0!?N$2WC5kRRb*ZX4s)?RX4=B~!v@ih1LAW_l?uKuKtyASPIN z;@vu?jEec^Oa2i22_`fFo#fL29-ZJi#c5PFgDNB@#Q^0zOfTj1o)eWf0VS~^Yee1% zZ;P!bcGawdo^&n6hh9zHX=P_W&=4Rx=3ZaQZkf(St!DLf%Cw>BhcBYds zg3INS=HH~^6zdX$&n zi1RZGZ?hgQiPlGxPdOn8O_;mtrM8}Sxm|I4VOi}~PbG0qe?xDJYw#g0!WDiO3 zI*M13vs?lX-G(Y>I5g(;cW6&PMN=H4<_K)kyOKFOuv_HnO_X^83^}EJg6M)J$P+LK zFb)z!%)@VP2Pk7gTwWUf0gwEl?G5SF$ZPD~Pv-`>;;6`--G*3U*iT^aE=+x z6CCV1VO;Sz^H&olTUaK3#xpgFu~f|cc~7{^vTZWe|JDX;h8u& zeL7bXB68U8a+fIs;9ilfoj3k!4Xy7`G5WHdS;s0lU9qy0x$YU6JUPDWLgDPNMj5X+ zQRG<#mV>wuJF{`$ks-oV??`CHCQR~M&Fs7A?HEW$pmKV1$_Sd3JbH_P*0?T$_ug*5d<-4_7=AJM{Kol_UP0#3-9o!lU;lAZT`ji7# z8Q4MWbCn(3az)oaolu*l`}u=c`WJaU@`ZH8%#4-(r-EGS)C6lh#6^Qx+D1u7lp24S z0-dI7#(tZhKkLdL7!3@jWFu7wCz}J}oc=J5i*lFwu7%q!#+27T(Z*TMW$++fFg(bW zQyskgX$uj6G+xOTZqu6b!A}MLmbG#Cbm$r5y6_P-eKqT5-Cw-uk4}x|dWNyHeDp+u zkcy;j82?2}DSAnH`Gcfzg_)1yjNV+6Z$xBcP#cEYBJrFJ)>i(+OU*nEw4Z-*MgB~l z7oGUh)=EzdE*D{r;iWFp&ykXLHquJ7Ra?o2;&%b9k9E~-Czo_vJ!R!9IY`8jNtUm* zN6rdt65kYJifE@_>VC%Bns8Ca-<7?D=~NI+5!NR0s0_9~SIUQvN!l0I9`T(?f-PNi zmFb0{uedjNA5_7s+Za}NUs#OsGp(g zQ8)r7-KjoV8))s5uWZpLB*`$?DKn5?ev_lf{-rC3rtYQbLQ4-3J+w&WVa97;#1StZ zhE}YAvJ7LAwvew5)ahSL2J;UY!vYq!s^) zhmO!D@LF-F{tASSxG=EvfvyUrD|V})=|FQQ2i|y9-&U1Dk?{PXTc?!JSb`{z-g0WC zuw6aZ*BB`-H(AQIO5wfwZ&W?>Srt@{n`XDNZJJ3j3DJFt4qwr@F?dKYSnFo2JtizI z$nquzDL2KE|D|RLC9RCcjU@ zaZXgFSe03Q&65R@W?4OXw2IQ+zroht$2fXdl4O;soh$CI(55ZE;WgJTnwXNQy^npQ z=rE=>bMPN=nas=dJRut^fdueb&M0w|ZqBOwT&cb9In!Fz{$0#{l5nyn%*+gWSxG-S z)3K6nr$A6q{{+iv3e6UM?EPitCu}w1rPlDU|w?sn!E?1%rf-de+Z!O`HtO_GNv7k z>d&6(x+{R_A&lX1YP3&iRt*#L%irBcI~v!2ha$zl6SL z_61w1q5Oi?EfKcLau&kyI5vu({J`arj@V(A;hYW4o-+>e;+*m+>kis8(v8y|4BJbN*(#06$RE(L@1^q&E~y2gp5;{Zb+q zP0MjLf)2p4>!YPJH ziRNcEMQcG*QsXQx9ZSy#pBW!fO~LqBN1%`)k|l#6wEpaO`QVq!zRl-4hvl(1Mp#kYUakL@{|$pG;A*M8sGC}E1uJmwSS|2wAA+-K+K zmC_RgrUUrsl?)bPAR@J@+vTrgjFZpa~v~&z7g9Mne zYd-k;`(#eL#x|j`vm^oPF?HZ|N>1j%5Y=hV%Ltr}>6L^Vu8#CO9v5ei&zy}^9OqA9-T!)c+!h&C#ndjB;}+f=l65z- zmg@1|Xb zzvctaH>ckrzkj)GX5B`X5memkW$zgtL5zPbFaF71Tm!luGatIv_GMaG^R=#*tX>TY z;`1|%I07tyaSi45h1@W%844ZuG)$T`oCH7xr;aacnGee~{ny$;=GZYwMDzT=6tY@WY2g^qe;A6z^2Q_~ z|DO}(VulP}?vCpLH|xm1GoIES9 z0R{{L{hx475WIYS4D(`&Pbiol{l7t-Dmi@#JSjb)V07Nqn&q9I**B{|yk#ESPWb--LhwN#drl4qc1bB|aVOZYKuENKB+84^Fy37@H6s5b{TC%j33s_2=H<$YUv`fF zp#S3kE<%#v6dPMGC-85`ze8gG7XAkkE(QK?fb73P|MubiU(mTG81%nAdjAIfXJi%z zJ4Fow#)B1q4^FX$fNB5FUHs=A!yXRCrwg+OgWOG>Evy|syI8oWD!{*Z3qc^%mlYEh M1Y&l4xhbIk1;>6}IRF3v From ce553183c970ffeab7fa4981c86f641ae98dab5d Mon Sep 17 00:00:00 2001 From: HellRayzr Date: Thu, 7 Jul 2016 21:44:09 +0200 Subject: [PATCH 2/7] Static --- .../l10n/DEFAULT/Moose.lua | 23829 +++++++++++++++- Moose Mission Setup/Moose.lua | 23829 +++++++++++++++- 2 files changed, 47626 insertions(+), 32 deletions(-) diff --git a/Moose Mission Setup/Moose Mission Update/l10n/DEFAULT/Moose.lua b/Moose Mission Setup/Moose Mission Update/l10n/DEFAULT/Moose.lua index 9567ea116..f532c477e 100644 --- a/Moose Mission Setup/Moose Mission Update/l10n/DEFAULT/Moose.lua +++ b/Moose Mission Setup/Moose Mission Update/l10n/DEFAULT/Moose.lua @@ -1,31 +1,23828 @@ -env.info( '*** MOOSE DYNAMIC INCLUDE START *** ' ) -env.info( 'Moose Generation Timestamp: 20160707_2044' ) - +env.info( '*** MOOSE STATIC INCLUDE START *** ' ) +env.info( 'Moose Generation Timestamp: 20160707_2143' ) local base = _G Include = {} - +Include.Files = {} Include.File = function( IncludeFile ) - if not Include.Files[ IncludeFile ] then - Include.Files[IncludeFile] = IncludeFile - env.info( "Include:" .. IncludeFile .. " from " .. Include.ProgramPath ) - local f = assert( base.loadfile( Include.ProgramPath .. IncludeFile .. ".lua" ) ) - if f == nil then - error ("Could not load MOOSE file " .. IncludeFile .. ".lua" ) +end + +--- Various routines +-- @module routines +-- @author Flightcontrol + +env.setErrorMessageBoxEnabled(false) + +--- Extract of MIST functions. +-- @author Grimes + +routines = {} + + +-- don't change these +routines.majorVersion = 3 +routines.minorVersion = 3 +routines.build = 22 + +----------------------------------------------------------------------------------------------------------------- + +---------------------------------------------------------------------------------------------- +-- Utils- conversion, Lua utils, etc. +routines.utils = {} + +--from http://lua-users.org/wiki/CopyTable +routines.utils.deepCopy = function(object) + local lookup_table = {} + local function _copy(object) + if type(object) ~= "table" then + return object + elseif lookup_table[object] then + return lookup_table[object] + end + local new_table = {} + lookup_table[object] = new_table + for index, value in pairs(object) do + new_table[_copy(index)] = _copy(value) + end + return setmetatable(new_table, getmetatable(object)) + end + local objectreturn = _copy(object) + return objectreturn +end + + +-- porting in Slmod's serialize_slmod2 +routines.utils.oneLineSerialize = function(tbl) -- serialization of a table all on a single line, no comments, made to replace old get_table_string function + + lookup_table = {} + + local function _Serialize( tbl ) + + if type(tbl) == 'table' then --function only works for tables! + + if lookup_table[tbl] then + return lookup_table[object] + end + + local tbl_str = {} + + lookup_table[tbl] = tbl_str + + tbl_str[#tbl_str + 1] = '{' + + for ind,val in pairs(tbl) do -- serialize its fields + local ind_str = {} + if type(ind) == "number" then + ind_str[#ind_str + 1] = '[' + ind_str[#ind_str + 1] = tostring(ind) + ind_str[#ind_str + 1] = ']=' + else --must be a string + ind_str[#ind_str + 1] = '[' + ind_str[#ind_str + 1] = routines.utils.basicSerialize(ind) + ind_str[#ind_str + 1] = ']=' + end + + local val_str = {} + if ((type(val) == 'number') or (type(val) == 'boolean')) then + val_str[#val_str + 1] = tostring(val) + val_str[#val_str + 1] = ',' + tbl_str[#tbl_str + 1] = table.concat(ind_str) + tbl_str[#tbl_str + 1] = table.concat(val_str) + elseif type(val) == 'string' then + val_str[#val_str + 1] = routines.utils.basicSerialize(val) + val_str[#val_str + 1] = ',' + tbl_str[#tbl_str + 1] = table.concat(ind_str) + tbl_str[#tbl_str + 1] = table.concat(val_str) + elseif type(val) == 'nil' then -- won't ever happen, right? + val_str[#val_str + 1] = 'nil,' + tbl_str[#tbl_str + 1] = table.concat(ind_str) + tbl_str[#tbl_str + 1] = table.concat(val_str) + elseif type(val) == 'table' then + if ind == "__index" then + -- tbl_str[#tbl_str + 1] = "__index" + -- tbl_str[#tbl_str + 1] = ',' --I think this is right, I just added it + else + + val_str[#val_str + 1] = _Serialize(val) + val_str[#val_str + 1] = ',' --I think this is right, I just added it + tbl_str[#tbl_str + 1] = table.concat(ind_str) + tbl_str[#tbl_str + 1] = table.concat(val_str) + end + elseif type(val) == 'function' then + -- tbl_str[#tbl_str + 1] = "function " .. tostring(ind) + -- tbl_str[#tbl_str + 1] = ',' --I think this is right, I just added it + else +-- env.info('unable to serialize value type ' .. routines.utils.basicSerialize(type(val)) .. ' at index ' .. tostring(ind)) +-- env.info( debug.traceback() ) + end + + end + tbl_str[#tbl_str + 1] = '}' + return table.concat(tbl_str) else - env.info( "Include:" .. IncludeFile .. " loaded from " .. Include.ProgramPath ) - return f() + return tostring(tbl) + end + end + + local objectreturn = _Serialize(tbl) + return objectreturn +end + +--porting in Slmod's "safestring" basic serialize +routines.utils.basicSerialize = function(s) + if s == nil then + return "\"\"" + else + if ((type(s) == 'number') or (type(s) == 'boolean') or (type(s) == 'function') or (type(s) == 'table') or (type(s) == 'userdata') ) then + return tostring(s) + elseif type(s) == 'string' then + s = string.format('%q', s) + return s end end end -Include.ProgramPath = "Scripts/Moose/" -env.info( "Include.ProgramPath = " .. Include.ProgramPath) +routines.utils.toDegree = function(angle) + return angle*180/math.pi +end -Include.Files = {} +routines.utils.toRadian = function(angle) + return angle*math.pi/180 +end +routines.utils.metersToNM = function(meters) + return meters/1852 +end + +routines.utils.metersToFeet = function(meters) + return meters/0.3048 +end + +routines.utils.NMToMeters = function(NM) + return NM*1852 +end + +routines.utils.feetToMeters = function(feet) + return feet*0.3048 +end + +routines.utils.mpsToKnots = function(mps) + return mps*3600/1852 +end + +routines.utils.mpsToKmph = function(mps) + return mps*3.6 +end + +routines.utils.knotsToMps = function(knots) + return knots*1852/3600 +end + +routines.utils.kmphToMps = function(kmph) + return kmph/3.6 +end + +function routines.utils.makeVec2(Vec3) + if Vec3.z then + return {x = Vec3.x, y = Vec3.z} + else + return {x = Vec3.x, y = Vec3.y} -- it was actually already vec2. + end +end + +function routines.utils.makeVec3(Vec2, y) + if not Vec2.z then + if not y then + y = 0 + end + return {x = Vec2.x, y = y, z = Vec2.y} + else + return {x = Vec2.x, y = Vec2.y, z = Vec2.z} -- it was already Vec3, actually. + end +end + +function routines.utils.makeVec3GL(Vec2, offset) + local adj = offset or 0 + + if not Vec2.z then + return {x = Vec2.x, y = (land.getHeight(Vec2) + adj), z = Vec2.y} + else + return {x = Vec2.x, y = (land.getHeight({x = Vec2.x, y = Vec2.z}) + adj), z = Vec2.z} + end +end + +routines.utils.zoneToVec3 = function(zone) + local new = {} + if type(zone) == 'table' and zone.point then + new.x = zone.point.x + new.y = zone.point.y + new.z = zone.point.z + return new + elseif type(zone) == 'string' then + zone = trigger.misc.getZone(zone) + if zone then + new.x = zone.point.x + new.y = zone.point.y + new.z = zone.point.z + return new + end + end +end + +-- gets heading-error corrected direction from point along vector vec. +function routines.utils.getDir(vec, point) + local dir = math.atan2(vec.z, vec.x) + dir = dir + routines.getNorthCorrection(point) + if dir < 0 then + dir = dir + 2*math.pi -- put dir in range of 0 to 2*pi + end + return dir +end + +-- gets distance in meters between two points (2 dimensional) +function routines.utils.get2DDist(point1, point2) + point1 = routines.utils.makeVec3(point1) + point2 = routines.utils.makeVec3(point2) + return routines.vec.mag({x = point1.x - point2.x, y = 0, z = point1.z - point2.z}) +end + +-- gets distance in meters between two points (3 dimensional) +function routines.utils.get3DDist(point1, point2) + return routines.vec.mag({x = point1.x - point2.x, y = point1.y - point2.y, z = point1.z - point2.z}) +end + + + +-- From http://lua-users.org/wiki/SimpleRound +-- use negative idp for rounding ahead of decimal place, positive for rounding after decimal place +routines.utils.round = function(num, idp) + local mult = 10^(idp or 0) + return math.floor(num * mult + 0.5) / mult +end + +-- porting in Slmod's dostring +routines.utils.dostring = function(s) + local f, err = loadstring(s) + if f then + return true, f() + else + return false, err + end +end + + +--3D Vector manipulation +routines.vec = {} + +routines.vec.add = function(vec1, vec2) + return {x = vec1.x + vec2.x, y = vec1.y + vec2.y, z = vec1.z + vec2.z} +end + +routines.vec.sub = function(vec1, vec2) + return {x = vec1.x - vec2.x, y = vec1.y - vec2.y, z = vec1.z - vec2.z} +end + +routines.vec.scalarMult = function(vec, mult) + return {x = vec.x*mult, y = vec.y*mult, z = vec.z*mult} +end + +routines.vec.scalar_mult = routines.vec.scalarMult + +routines.vec.dp = function(vec1, vec2) + return vec1.x*vec2.x + vec1.y*vec2.y + vec1.z*vec2.z +end + +routines.vec.cp = function(vec1, vec2) + return { x = vec1.y*vec2.z - vec1.z*vec2.y, y = vec1.z*vec2.x - vec1.x*vec2.z, z = vec1.x*vec2.y - vec1.y*vec2.x} +end + +routines.vec.mag = function(vec) + return (vec.x^2 + vec.y^2 + vec.z^2)^0.5 +end + +routines.vec.getUnitVec = function(vec) + local mag = routines.vec.mag(vec) + return { x = vec.x/mag, y = vec.y/mag, z = vec.z/mag } +end + +routines.vec.rotateVec2 = function(vec2, theta) + return { x = vec2.x*math.cos(theta) - vec2.y*math.sin(theta), y = vec2.x*math.sin(theta) + vec2.y*math.cos(theta)} +end +--------------------------------------------------------------------------------------------------------------------------- + + + + +-- acc- the accuracy of each easting/northing. 0, 1, 2, 3, 4, or 5. +routines.tostringMGRS = function(MGRS, acc) + if acc == 0 then + return MGRS.UTMZone .. ' ' .. MGRS.MGRSDigraph + else + return MGRS.UTMZone .. ' ' .. MGRS.MGRSDigraph .. ' ' .. string.format('%0' .. acc .. 'd', routines.utils.round(MGRS.Easting/(10^(5-acc)), 0)) + .. ' ' .. string.format('%0' .. acc .. 'd', routines.utils.round(MGRS.Northing/(10^(5-acc)), 0)) + end +end + +--[[acc: +in DM: decimal point of minutes. +In DMS: decimal point of seconds. +position after the decimal of the least significant digit: +So: +42.32 - acc of 2. +]] +routines.tostringLL = function(lat, lon, acc, DMS) + + local latHemi, lonHemi + if lat > 0 then + latHemi = 'N' + else + latHemi = 'S' + end + + if lon > 0 then + lonHemi = 'E' + else + lonHemi = 'W' + end + + lat = math.abs(lat) + lon = math.abs(lon) + + local latDeg = math.floor(lat) + local latMin = (lat - latDeg)*60 + + local lonDeg = math.floor(lon) + local lonMin = (lon - lonDeg)*60 + + if DMS then -- degrees, minutes, and seconds. + local oldLatMin = latMin + latMin = math.floor(latMin) + local latSec = routines.utils.round((oldLatMin - latMin)*60, acc) + + local oldLonMin = lonMin + lonMin = math.floor(lonMin) + local lonSec = routines.utils.round((oldLonMin - lonMin)*60, acc) + + if latSec == 60 then + latSec = 0 + latMin = latMin + 1 + end + + if lonSec == 60 then + lonSec = 0 + lonMin = lonMin + 1 + end + + local secFrmtStr -- create the formatting string for the seconds place + if acc <= 0 then -- no decimal place. + secFrmtStr = '%02d' + else + local width = 3 + acc -- 01.310 - that's a width of 6, for example. + secFrmtStr = '%0' .. width .. '.' .. acc .. 'f' + end + + return string.format('%02d', latDeg) .. ' ' .. string.format('%02d', latMin) .. '\' ' .. string.format(secFrmtStr, latSec) .. '"' .. latHemi .. ' ' + .. string.format('%02d', lonDeg) .. ' ' .. string.format('%02d', lonMin) .. '\' ' .. string.format(secFrmtStr, lonSec) .. '"' .. lonHemi + + else -- degrees, decimal minutes. + latMin = routines.utils.round(latMin, acc) + lonMin = routines.utils.round(lonMin, acc) + + if latMin == 60 then + latMin = 0 + latDeg = latDeg + 1 + end + + if lonMin == 60 then + lonMin = 0 + lonDeg = lonDeg + 1 + end + + local minFrmtStr -- create the formatting string for the minutes place + if acc <= 0 then -- no decimal place. + minFrmtStr = '%02d' + else + local width = 3 + acc -- 01.310 - that's a width of 6, for example. + minFrmtStr = '%0' .. width .. '.' .. acc .. 'f' + end + + return string.format('%02d', latDeg) .. ' ' .. string.format(minFrmtStr, latMin) .. '\'' .. latHemi .. ' ' + .. string.format('%02d', lonDeg) .. ' ' .. string.format(minFrmtStr, lonMin) .. '\'' .. lonHemi + + end +end + +--[[ required: az - radian + required: dist - meters + optional: alt - meters (set to false or nil if you don't want to use it). + optional: metric - set true to get dist and alt in km and m. + precision will always be nearest degree and NM or km.]] +routines.tostringBR = function(az, dist, alt, metric) + az = routines.utils.round(routines.utils.toDegree(az), 0) + + if metric then + dist = routines.utils.round(dist/1000, 2) + else + dist = routines.utils.round(routines.utils.metersToNM(dist), 2) + end + + local s = string.format('%03d', az) .. ' for ' .. dist + + if alt then + if metric then + s = s .. ' at ' .. routines.utils.round(alt, 0) + else + s = s .. ' at ' .. routines.utils.round(routines.utils.metersToFeet(alt), 0) + end + end + return s +end + +routines.getNorthCorrection = function(point) --gets the correction needed for true north + if not point.z then --Vec2; convert to Vec3 + point.z = point.y + point.y = 0 + end + local lat, lon = coord.LOtoLL(point) + local north_posit = coord.LLtoLO(lat + 1, lon) + return math.atan2(north_posit.z - point.z, north_posit.x - point.x) +end + + +do + local idNum = 0 + + --Simplified event handler + routines.addEventHandler = function(f) --id is optional! + local handler = {} + idNum = idNum + 1 + handler.id = idNum + handler.f = f + handler.onEvent = function(self, event) + self.f(event) + end + world.addEventHandler(handler) + end + + routines.removeEventHandler = function(id) + for key, handler in pairs(world.eventHandlers) do + if handler.id and handler.id == id then + world.eventHandlers[key] = nil + return true + end + end + return false + end +end + +-- need to return a Vec3 or Vec2? +function routines.getRandPointInCircle(point, radius, innerRadius) + local theta = 2*math.pi*math.random() + local rad = math.random() + math.random() + if rad > 1 then + rad = 2 - rad + end + + local radMult + if innerRadius and innerRadius <= radius then + radMult = (radius - innerRadius)*rad + innerRadius + else + radMult = radius*rad + end + + if not point.z then --might as well work with vec2/3 + point.z = point.y + end + + local rndCoord + if radius > 0 then + rndCoord = {x = math.cos(theta)*radMult + point.x, y = math.sin(theta)*radMult + point.z} + else + rndCoord = {x = point.x, y = point.z} + end + return rndCoord +end + +routines.goRoute = function(group, path) + local misTask = { + id = 'Mission', + params = { + route = { + points = routines.utils.deepCopy(path), + }, + }, + } + if type(group) == 'string' then + group = Group.getByName(group) + end + local groupCon = group:getController() + if groupCon then + groupCon:setTask(misTask) + return true + end + + Controller.setTask(groupCon, misTask) + return false +end + + +-- Useful atomic functions from mist, ported. + +routines.ground = {} +routines.fixedWing = {} +routines.heli = {} + +routines.ground.buildWP = function(point, overRideForm, overRideSpeed) + + local wp = {} + wp.x = point.x + + if point.z then + wp.y = point.z + else + wp.y = point.y + end + local form, speed + + if point.speed and not overRideSpeed then + wp.speed = point.speed + elseif type(overRideSpeed) == 'number' then + wp.speed = overRideSpeed + else + wp.speed = routines.utils.kmphToMps(20) + end + + if point.form and not overRideForm then + form = point.form + else + form = overRideForm + end + + if not form then + wp.action = 'Cone' + else + form = string.lower(form) + if form == 'off_road' or form == 'off road' then + wp.action = 'Off Road' + elseif form == 'on_road' or form == 'on road' then + wp.action = 'On Road' + elseif form == 'rank' or form == 'line_abrest' or form == 'line abrest' or form == 'lineabrest'then + wp.action = 'Rank' + elseif form == 'cone' then + wp.action = 'Cone' + elseif form == 'diamond' then + wp.action = 'Diamond' + elseif form == 'vee' then + wp.action = 'Vee' + elseif form == 'echelon_left' or form == 'echelon left' or form == 'echelonl' then + wp.action = 'EchelonL' + elseif form == 'echelon_right' or form == 'echelon right' or form == 'echelonr' then + wp.action = 'EchelonR' + else + wp.action = 'Cone' -- if nothing matched + end + end + + wp.type = 'Turning Point' + + return wp + +end + +routines.fixedWing.buildWP = function(point, WPtype, speed, alt, altType) + + local wp = {} + wp.x = point.x + + if point.z then + wp.y = point.z + else + wp.y = point.y + end + + if alt and type(alt) == 'number' then + wp.alt = alt + else + wp.alt = 2000 + end + + if altType then + altType = string.lower(altType) + if altType == 'radio' or 'agl' then + wp.alt_type = 'RADIO' + elseif altType == 'baro' or 'asl' then + wp.alt_type = 'BARO' + end + else + wp.alt_type = 'RADIO' + end + + if point.speed then + speed = point.speed + end + + if point.type then + WPtype = point.type + end + + if not speed then + wp.speed = routines.utils.kmphToMps(500) + else + wp.speed = speed + end + + if not WPtype then + wp.action = 'Turning Point' + else + WPtype = string.lower(WPtype) + if WPtype == 'flyover' or WPtype == 'fly over' or WPtype == 'fly_over' then + wp.action = 'Fly Over Point' + elseif WPtype == 'turningpoint' or WPtype == 'turning point' or WPtype == 'turning_point' then + wp.action = 'Turning Point' + else + wp.action = 'Turning Point' + end + end + + wp.type = 'Turning Point' + return wp +end + +routines.heli.buildWP = function(point, WPtype, speed, alt, altType) + + local wp = {} + wp.x = point.x + + if point.z then + wp.y = point.z + else + wp.y = point.y + end + + if alt and type(alt) == 'number' then + wp.alt = alt + else + wp.alt = 500 + end + + if altType then + altType = string.lower(altType) + if altType == 'radio' or 'agl' then + wp.alt_type = 'RADIO' + elseif altType == 'baro' or 'asl' then + wp.alt_type = 'BARO' + end + else + wp.alt_type = 'RADIO' + end + + if point.speed then + speed = point.speed + end + + if point.type then + WPtype = point.type + end + + if not speed then + wp.speed = routines.utils.kmphToMps(200) + else + wp.speed = speed + end + + if not WPtype then + wp.action = 'Turning Point' + else + WPtype = string.lower(WPtype) + if WPtype == 'flyover' or WPtype == 'fly over' or WPtype == 'fly_over' then + wp.action = 'Fly Over Point' + elseif WPtype == 'turningpoint' or WPtype == 'turning point' or WPtype == 'turning_point' then + wp.action = 'Turning Point' + else + wp.action = 'Turning Point' + end + end + + wp.type = 'Turning Point' + return wp +end + +routines.groupToRandomPoint = function(vars) + local group = vars.group --Required + local point = vars.point --required + local radius = vars.radius or 0 + local innerRadius = vars.innerRadius + local form = vars.form or 'Cone' + local heading = vars.heading or math.random()*2*math.pi + local headingDegrees = vars.headingDegrees + local speed = vars.speed or routines.utils.kmphToMps(20) + + + local useRoads + if not vars.disableRoads then + useRoads = true + else + useRoads = false + end + + local path = {} + + if headingDegrees then + heading = headingDegrees*math.pi/180 + end + + if heading >= 2*math.pi then + heading = heading - 2*math.pi + end + + local rndCoord = routines.getRandPointInCircle(point, radius, innerRadius) + + local offset = {} + local posStart = routines.getLeadPos(group) + + offset.x = routines.utils.round(math.sin(heading - (math.pi/2)) * 50 + rndCoord.x, 3) + offset.z = routines.utils.round(math.cos(heading + (math.pi/2)) * 50 + rndCoord.y, 3) + path[#path + 1] = routines.ground.buildWP(posStart, form, speed) + + + if useRoads == true and ((point.x - posStart.x)^2 + (point.z - posStart.z)^2)^0.5 > radius * 1.3 then + path[#path + 1] = routines.ground.buildWP({['x'] = posStart.x + 11, ['z'] = posStart.z + 11}, 'off_road', speed) + path[#path + 1] = routines.ground.buildWP(posStart, 'on_road', speed) + path[#path + 1] = routines.ground.buildWP(offset, 'on_road', speed) + else + path[#path + 1] = routines.ground.buildWP({['x'] = posStart.x + 25, ['z'] = posStart.z + 25}, form, speed) + end + + path[#path + 1] = routines.ground.buildWP(offset, form, speed) + path[#path + 1] = routines.ground.buildWP(rndCoord, form, speed) + + routines.goRoute(group, path) + + return +end + +routines.groupRandomDistSelf = function(gpData, dist, form, heading, speed) + local pos = routines.getLeadPos(gpData) + local fakeZone = {} + fakeZone.radius = dist or math.random(300, 1000) + fakeZone.point = {x = pos.x, y, pos.y, z = pos.z} + routines.groupToRandomZone(gpData, fakeZone, form, heading, speed) + + return +end + +routines.groupToRandomZone = function(gpData, zone, form, heading, speed) + if type(gpData) == 'string' then + gpData = Group.getByName(gpData) + end + + if type(zone) == 'string' then + zone = trigger.misc.getZone(zone) + elseif type(zone) == 'table' and not zone.radius then + zone = trigger.misc.getZone(zone[math.random(1, #zone)]) + end + + if speed then + speed = routines.utils.kmphToMps(speed) + end + + local vars = {} + vars.group = gpData + vars.radius = zone.radius + vars.form = form + vars.headingDegrees = heading + vars.speed = speed + vars.point = routines.utils.zoneToVec3(zone) + + routines.groupToRandomPoint(vars) + + return +end + +routines.isTerrainValid = function(coord, terrainTypes) -- vec2/3 and enum or table of acceptable terrain types + if coord.z then + coord.y = coord.z + end + local typeConverted = {} + + if type(terrainTypes) == 'string' then -- if its a string it does this check + for constId, constData in pairs(land.SurfaceType) do + if string.lower(constId) == string.lower(terrainTypes) or string.lower(constData) == string.lower(terrainTypes) then + table.insert(typeConverted, constId) + end + end + elseif type(terrainTypes) == 'table' then -- if its a table it does this check + for typeId, typeData in pairs(terrainTypes) do + for constId, constData in pairs(land.SurfaceType) do + if string.lower(constId) == string.lower(typeData) or string.lower(constData) == string.lower(typeId) then + table.insert(typeConverted, constId) + end + end + end + end + for validIndex, validData in pairs(typeConverted) do + if land.getSurfaceType(coord) == land.SurfaceType[validData] then + return true + end + end + return false +end + +routines.groupToPoint = function(gpData, point, form, heading, speed, useRoads) + if type(point) == 'string' then + point = trigger.misc.getZone(point) + end + if speed then + speed = routines.utils.kmphToMps(speed) + end + + local vars = {} + vars.group = gpData + vars.form = form + vars.headingDegrees = heading + vars.speed = speed + vars.disableRoads = useRoads + vars.point = routines.utils.zoneToVec3(point) + routines.groupToRandomPoint(vars) + + return +end + + +routines.getLeadPos = function(group) + if type(group) == 'string' then -- group name + group = Group.getByName(group) + end + + local units = group:getUnits() + + local leader = units[1] + if not leader then -- SHOULD be good, but if there is a bug, this code future-proofs it then. + local lowestInd = math.huge + for ind, unit in pairs(units) do + if ind < lowestInd then + lowestInd = ind + leader = unit + end + end + end + if leader and Unit.isExist(leader) then -- maybe a little too paranoid now... + return leader:getPosition().p + end +end + +--[[ vars for routines.getMGRSString: +vars.units - table of unit names (NOT unitNameTable- maybe this should change). +vars.acc - integer between 0 and 5, inclusive +]] +routines.getMGRSString = function(vars) + local units = vars.units + local acc = vars.acc or 5 + local avgPos = routines.getAvgPos(units) + if avgPos then + return routines.tostringMGRS(coord.LLtoMGRS(coord.LOtoLL(avgPos)), acc) + end +end + +--[[ vars for routines.getLLString +vars.units - table of unit names (NOT unitNameTable- maybe this should change). +vars.acc - integer, number of numbers after decimal place +vars.DMS - if true, output in degrees, minutes, seconds. Otherwise, output in degrees, minutes. + + +]] +routines.getLLString = function(vars) + local units = vars.units + local acc = vars.acc or 3 + local DMS = vars.DMS + local avgPos = routines.getAvgPos(units) + if avgPos then + local lat, lon = coord.LOtoLL(avgPos) + return routines.tostringLL(lat, lon, acc, DMS) + end +end + +--[[ +vars.zone - table of a zone name. +vars.ref - vec3 ref point, maybe overload for vec2 as well? +vars.alt - boolean, if used, includes altitude in string +vars.metric - boolean, gives distance in km instead of NM. +]] +routines.getBRStringZone = function(vars) + local zone = trigger.misc.getZone( vars.zone ) + local ref = routines.utils.makeVec3(vars.ref, 0) -- turn it into Vec3 if it is not already. + local alt = vars.alt + local metric = vars.metric + if zone then + local vec = {x = zone.point.x - ref.x, y = zone.point.y - ref.y, z = zone.point.z - ref.z} + local dir = routines.utils.getDir(vec, ref) + local dist = routines.utils.get2DDist(zone.point, ref) + if alt then + alt = zone.y + end + return routines.tostringBR(dir, dist, alt, metric) + else + env.info( 'routines.getBRStringZone: error: zone is nil' ) + end +end + +--[[ +vars.units- table of unit names (NOT unitNameTable- maybe this should change). +vars.ref - vec3 ref point, maybe overload for vec2 as well? +vars.alt - boolean, if used, includes altitude in string +vars.metric - boolean, gives distance in km instead of NM. +]] +routines.getBRString = function(vars) + local units = vars.units + local ref = routines.utils.makeVec3(vars.ref, 0) -- turn it into Vec3 if it is not already. + local alt = vars.alt + local metric = vars.metric + local avgPos = routines.getAvgPos(units) + if avgPos then + local vec = {x = avgPos.x - ref.x, y = avgPos.y - ref.y, z = avgPos.z - ref.z} + local dir = routines.utils.getDir(vec, ref) + local dist = routines.utils.get2DDist(avgPos, ref) + if alt then + alt = avgPos.y + end + return routines.tostringBR(dir, dist, alt, metric) + end +end + + +-- Returns the Vec3 coordinates of the average position of the concentration of units most in the heading direction. +--[[ vars for routines.getLeadingPos: +vars.units - table of unit names +vars.heading - direction +vars.radius - number +vars.headingDegrees - boolean, switches heading to degrees +]] +routines.getLeadingPos = function(vars) + local units = vars.units + local heading = vars.heading + local radius = vars.radius + if vars.headingDegrees then + heading = routines.utils.toRadian(vars.headingDegrees) + end + + local unitPosTbl = {} + for i = 1, #units do + local unit = Unit.getByName(units[i]) + if unit and unit:isExist() then + unitPosTbl[#unitPosTbl + 1] = unit:getPosition().p + end + end + if #unitPosTbl > 0 then -- one more more units found. + -- first, find the unit most in the heading direction + local maxPos = -math.huge + + local maxPosInd -- maxPos - the furthest in direction defined by heading; maxPosInd = + for i = 1, #unitPosTbl do + local rotatedVec2 = routines.vec.rotateVec2(routines.utils.makeVec2(unitPosTbl[i]), heading) + if (not maxPos) or maxPos < rotatedVec2.x then + maxPos = rotatedVec2.x + maxPosInd = i + end + end + + --now, get all the units around this unit... + local avgPos + if radius then + local maxUnitPos = unitPosTbl[maxPosInd] + local avgx, avgy, avgz, totNum = 0, 0, 0, 0 + for i = 1, #unitPosTbl do + if routines.utils.get2DDist(maxUnitPos, unitPosTbl[i]) <= radius then + avgx = avgx + unitPosTbl[i].x + avgy = avgy + unitPosTbl[i].y + avgz = avgz + unitPosTbl[i].z + totNum = totNum + 1 + end + end + avgPos = { x = avgx/totNum, y = avgy/totNum, z = avgz/totNum} + else + avgPos = unitPosTbl[maxPosInd] + end + + return avgPos + end +end + + +--[[ vars for routines.getLeadingMGRSString: +vars.units - table of unit names +vars.heading - direction +vars.radius - number +vars.headingDegrees - boolean, switches heading to degrees +vars.acc - number, 0 to 5. +]] +routines.getLeadingMGRSString = function(vars) + local pos = routines.getLeadingPos(vars) + if pos then + local acc = vars.acc or 5 + return routines.tostringMGRS(coord.LLtoMGRS(coord.LOtoLL(pos)), acc) + end +end + +--[[ vars for routines.getLeadingLLString: +vars.units - table of unit names +vars.heading - direction, number +vars.radius - number +vars.headingDegrees - boolean, switches heading to degrees +vars.acc - number of digits after decimal point (can be negative) +vars.DMS - boolean, true if you want DMS. +]] +routines.getLeadingLLString = function(vars) + local pos = routines.getLeadingPos(vars) + if pos then + local acc = vars.acc or 3 + local DMS = vars.DMS + local lat, lon = coord.LOtoLL(pos) + return routines.tostringLL(lat, lon, acc, DMS) + end +end + + + +--[[ vars for routines.getLeadingBRString: +vars.units - table of unit names +vars.heading - direction, number +vars.radius - number +vars.headingDegrees - boolean, switches heading to degrees +vars.metric - boolean, if true, use km instead of NM. +vars.alt - boolean, if true, include altitude. +vars.ref - vec3/vec2 reference point. +]] +routines.getLeadingBRString = function(vars) + local pos = routines.getLeadingPos(vars) + if pos then + local ref = vars.ref + local alt = vars.alt + local metric = vars.metric + + local vec = {x = pos.x - ref.x, y = pos.y - ref.y, z = pos.z - ref.z} + local dir = routines.utils.getDir(vec, ref) + local dist = routines.utils.get2DDist(pos, ref) + if alt then + alt = pos.y + end + return routines.tostringBR(dir, dist, alt, metric) + end +end + +--[[ vars for routines.message.add + vars.text = 'Hello World' + vars.displayTime = 20 + vars.msgFor = {coa = {'red'}, countries = {'Ukraine', 'Georgia'}, unitTypes = {'A-10C'}} + +]] + +--[[ vars for routines.msgMGRS +vars.units - table of unit names (NOT unitNameTable- maybe this should change). +vars.acc - integer between 0 and 5, inclusive +vars.text - text in the message +vars.displayTime - self explanatory +vars.msgFor - scope +]] +routines.msgMGRS = function(vars) + local units = vars.units + local acc = vars.acc + local text = vars.text + local displayTime = vars.displayTime + local msgFor = vars.msgFor + + local s = routines.getMGRSString{units = units, acc = acc} + local newText + if string.find(text, '%%s') then -- look for %s + newText = string.format(text, s) -- insert the coordinates into the message + else -- else, just append to the end. + newText = text .. s + end + + routines.message.add{ + text = newText, + displayTime = displayTime, + msgFor = msgFor + } +end + +--[[ vars for routines.msgLL +vars.units - table of unit names (NOT unitNameTable- maybe this should change) (Yes). +vars.acc - integer, number of numbers after decimal place +vars.DMS - if true, output in degrees, minutes, seconds. Otherwise, output in degrees, minutes. +vars.text - text in the message +vars.displayTime - self explanatory +vars.msgFor - scope +]] +routines.msgLL = function(vars) + local units = vars.units -- technically, I don't really need to do this, but it helps readability. + local acc = vars.acc + local DMS = vars.DMS + local text = vars.text + local displayTime = vars.displayTime + local msgFor = vars.msgFor + + local s = routines.getLLString{units = units, acc = acc, DMS = DMS} + local newText + if string.find(text, '%%s') then -- look for %s + newText = string.format(text, s) -- insert the coordinates into the message + else -- else, just append to the end. + newText = text .. s + end + + routines.message.add{ + text = newText, + displayTime = displayTime, + msgFor = msgFor + } + +end + + +--[[ +vars.units- table of unit names (NOT unitNameTable- maybe this should change). +vars.ref - vec3 ref point, maybe overload for vec2 as well? +vars.alt - boolean, if used, includes altitude in string +vars.metric - boolean, gives distance in km instead of NM. +vars.text - text of the message +vars.displayTime +vars.msgFor - scope +]] +routines.msgBR = function(vars) + local units = vars.units -- technically, I don't really need to do this, but it helps readability. + local ref = vars.ref -- vec2/vec3 will be handled in routines.getBRString + local alt = vars.alt + local metric = vars.metric + local text = vars.text + local displayTime = vars.displayTime + local msgFor = vars.msgFor + + local s = routines.getBRString{units = units, ref = ref, alt = alt, metric = metric} + local newText + if string.find(text, '%%s') then -- look for %s + newText = string.format(text, s) -- insert the coordinates into the message + else -- else, just append to the end. + newText = text .. s + end + + routines.message.add{ + text = newText, + displayTime = displayTime, + msgFor = msgFor + } + +end + + +-------------------------------------------------------------------------------------------- +-- basically, just sub-types of routines.msgBR... saves folks the work of getting the ref point. +--[[ +vars.units- table of unit names (NOT unitNameTable- maybe this should change). +vars.ref - string red, blue +vars.alt - boolean, if used, includes altitude in string +vars.metric - boolean, gives distance in km instead of NM. +vars.text - text of the message +vars.displayTime +vars.msgFor - scope +]] +routines.msgBullseye = function(vars) + if string.lower(vars.ref) == 'red' then + vars.ref = routines.DBs.missionData.bullseye.red + routines.msgBR(vars) + elseif string.lower(vars.ref) == 'blue' then + vars.ref = routines.DBs.missionData.bullseye.blue + routines.msgBR(vars) + end +end + +--[[ +vars.units- table of unit names (NOT unitNameTable- maybe this should change). +vars.ref - unit name of reference point +vars.alt - boolean, if used, includes altitude in string +vars.metric - boolean, gives distance in km instead of NM. +vars.text - text of the message +vars.displayTime +vars.msgFor - scope +]] + +routines.msgBRA = function(vars) + if Unit.getByName(vars.ref) then + vars.ref = Unit.getByName(vars.ref):getPosition().p + if not vars.alt then + vars.alt = true + end + routines.msgBR(vars) + end +end +-------------------------------------------------------------------------------------------- + +--[[ vars for routines.msgLeadingMGRS: +vars.units - table of unit names +vars.heading - direction +vars.radius - number +vars.headingDegrees - boolean, switches heading to degrees (optional) +vars.acc - number, 0 to 5. +vars.text - text of the message +vars.displayTime +vars.msgFor - scope +]] +routines.msgLeadingMGRS = function(vars) + local units = vars.units -- technically, I don't really need to do this, but it helps readability. + local heading = vars.heading + local radius = vars.radius + local headingDegrees = vars.headingDegrees + local acc = vars.acc + local text = vars.text + local displayTime = vars.displayTime + local msgFor = vars.msgFor + + local s = routines.getLeadingMGRSString{units = units, heading = heading, radius = radius, headingDegrees = headingDegrees, acc = acc} + local newText + if string.find(text, '%%s') then -- look for %s + newText = string.format(text, s) -- insert the coordinates into the message + else -- else, just append to the end. + newText = text .. s + end + + routines.message.add{ + text = newText, + displayTime = displayTime, + msgFor = msgFor + } + + +end +--[[ vars for routines.msgLeadingLL: +vars.units - table of unit names +vars.heading - direction, number +vars.radius - number +vars.headingDegrees - boolean, switches heading to degrees (optional) +vars.acc - number of digits after decimal point (can be negative) +vars.DMS - boolean, true if you want DMS. (optional) +vars.text - text of the message +vars.displayTime +vars.msgFor - scope +]] +routines.msgLeadingLL = function(vars) + local units = vars.units -- technically, I don't really need to do this, but it helps readability. + local heading = vars.heading + local radius = vars.radius + local headingDegrees = vars.headingDegrees + local acc = vars.acc + local DMS = vars.DMS + local text = vars.text + local displayTime = vars.displayTime + local msgFor = vars.msgFor + + local s = routines.getLeadingLLString{units = units, heading = heading, radius = radius, headingDegrees = headingDegrees, acc = acc, DMS = DMS} + local newText + if string.find(text, '%%s') then -- look for %s + newText = string.format(text, s) -- insert the coordinates into the message + else -- else, just append to the end. + newText = text .. s + end + + routines.message.add{ + text = newText, + displayTime = displayTime, + msgFor = msgFor + } + +end + +--[[ +vars.units - table of unit names +vars.heading - direction, number +vars.radius - number +vars.headingDegrees - boolean, switches heading to degrees (optional) +vars.metric - boolean, if true, use km instead of NM. (optional) +vars.alt - boolean, if true, include altitude. (optional) +vars.ref - vec3/vec2 reference point. +vars.text - text of the message +vars.displayTime +vars.msgFor - scope +]] +routines.msgLeadingBR = function(vars) + local units = vars.units -- technically, I don't really need to do this, but it helps readability. + local heading = vars.heading + local radius = vars.radius + local headingDegrees = vars.headingDegrees + local metric = vars.metric + local alt = vars.alt + local ref = vars.ref -- vec2/vec3 will be handled in routines.getBRString + local text = vars.text + local displayTime = vars.displayTime + local msgFor = vars.msgFor + + local s = routines.getLeadingBRString{units = units, heading = heading, radius = radius, headingDegrees = headingDegrees, metric = metric, alt = alt, ref = ref} + local newText + if string.find(text, '%%s') then -- look for %s + newText = string.format(text, s) -- insert the coordinates into the message + else -- else, just append to the end. + newText = text .. s + end + + routines.message.add{ + text = newText, + displayTime = displayTime, + msgFor = msgFor + } +end + + +function spairs(t, order) + -- collect the keys + local keys = {} + for k in pairs(t) do keys[#keys+1] = k end + + -- if order function given, sort by it by passing the table and keys a, b, + -- otherwise just sort the keys + if order then + table.sort(keys, function(a,b) return order(t, a, b) end) + else + table.sort(keys) + end + + -- return the iterator function + local i = 0 + return function() + i = i + 1 + if keys[i] then + return keys[i], t[keys[i]] + end + end +end + + +function routines.IsPartOfGroupInZones( CargoGroup, LandingZones ) +--trace.f() + + local CurrentZoneID = nil + + if CargoGroup then + local CargoUnits = CargoGroup:getUnits() + for CargoUnitID, CargoUnit in pairs( CargoUnits ) do + if CargoUnit and CargoUnit:getLife() >= 1.0 then + CurrentZoneID = routines.IsUnitInZones( CargoUnit, LandingZones ) + if CurrentZoneID then + break + end + end + end + end + +--trace.r( "", "", { CurrentZoneID } ) + return CurrentZoneID +end + + + +function routines.IsUnitInZones( TransportUnit, LandingZones ) +--trace.f("", "routines.IsUnitInZones" ) + + local TransportZoneResult = nil + local TransportZonePos = nil + local TransportZone = nil + + -- fill-up some local variables to support further calculations to determine location of units within the zone. + if TransportUnit then + local TransportUnitPos = TransportUnit:getPosition().p + if type( LandingZones ) == "table" then + for LandingZoneID, LandingZoneName in pairs( LandingZones ) do + TransportZone = trigger.misc.getZone( LandingZoneName ) + if TransportZone then + TransportZonePos = {radius = TransportZone.radius, x = TransportZone.point.x, y = TransportZone.point.y, z = TransportZone.point.z} + if ((( TransportUnitPos.x - TransportZonePos.x)^2 + (TransportUnitPos.z - TransportZonePos.z)^2)^0.5 <= TransportZonePos.radius) then + TransportZoneResult = LandingZoneID + break + end + end + end + else + TransportZone = trigger.misc.getZone( LandingZones ) + TransportZonePos = {radius = TransportZone.radius, x = TransportZone.point.x, y = TransportZone.point.y, z = TransportZone.point.z} + if ((( TransportUnitPos.x - TransportZonePos.x)^2 + (TransportUnitPos.z - TransportZonePos.z)^2)^0.5 <= TransportZonePos.radius) then + TransportZoneResult = 1 + end + end + if TransportZoneResult then + --trace.i( "routines", "TransportZone:" .. TransportZoneResult ) + else + --trace.i( "routines", "TransportZone:nil logic" ) + end + return TransportZoneResult + else + --trace.i( "routines", "TransportZone:nil hard" ) + return nil + end +end + +function routines.IsUnitNearZonesRadius( TransportUnit, LandingZones, ZoneRadius ) +--trace.f("", "routines.IsUnitInZones" ) + + local TransportZoneResult = nil + local TransportZonePos = nil + local TransportZone = nil + + -- fill-up some local variables to support further calculations to determine location of units within the zone. + if TransportUnit then + local TransportUnitPos = TransportUnit:getPosition().p + if type( LandingZones ) == "table" then + for LandingZoneID, LandingZoneName in pairs( LandingZones ) do + TransportZone = trigger.misc.getZone( LandingZoneName ) + if TransportZone then + TransportZonePos = {radius = TransportZone.radius, x = TransportZone.point.x, y = TransportZone.point.y, z = TransportZone.point.z} + if ((( TransportUnitPos.x - TransportZonePos.x)^2 + (TransportUnitPos.z - TransportZonePos.z)^2)^0.5 <= ZoneRadius ) then + TransportZoneResult = LandingZoneID + break + end + end + end + else + TransportZone = trigger.misc.getZone( LandingZones ) + TransportZonePos = {radius = TransportZone.radius, x = TransportZone.point.x, y = TransportZone.point.y, z = TransportZone.point.z} + if ((( TransportUnitPos.x - TransportZonePos.x)^2 + (TransportUnitPos.z - TransportZonePos.z)^2)^0.5 <= ZoneRadius ) then + TransportZoneResult = 1 + end + end + if TransportZoneResult then + --trace.i( "routines", "TransportZone:" .. TransportZoneResult ) + else + --trace.i( "routines", "TransportZone:nil logic" ) + end + return TransportZoneResult + else + --trace.i( "routines", "TransportZone:nil hard" ) + return nil + end +end + + +function routines.IsStaticInZones( TransportStatic, LandingZones ) +--trace.f() + + local TransportZoneResult = nil + local TransportZonePos = nil + local TransportZone = nil + + -- fill-up some local variables to support further calculations to determine location of units within the zone. + local TransportStaticPos = TransportStatic:getPosition().p + if type( LandingZones ) == "table" then + for LandingZoneID, LandingZoneName in pairs( LandingZones ) do + TransportZone = trigger.misc.getZone( LandingZoneName ) + if TransportZone then + TransportZonePos = {radius = TransportZone.radius, x = TransportZone.point.x, y = TransportZone.point.y, z = TransportZone.point.z} + if ((( TransportStaticPos.x - TransportZonePos.x)^2 + (TransportStaticPos.z - TransportZonePos.z)^2)^0.5 <= TransportZonePos.radius) then + TransportZoneResult = LandingZoneID + break + end + end + end + else + TransportZone = trigger.misc.getZone( LandingZones ) + TransportZonePos = {radius = TransportZone.radius, x = TransportZone.point.x, y = TransportZone.point.y, z = TransportZone.point.z} + if ((( TransportStaticPos.x - TransportZonePos.x)^2 + (TransportStaticPos.z - TransportZonePos.z)^2)^0.5 <= TransportZonePos.radius) then + TransportZoneResult = 1 + end + end + +--trace.r( "", "", { TransportZoneResult } ) + return TransportZoneResult +end + + +function routines.IsUnitInRadius( CargoUnit, ReferencePosition, Radius ) +--trace.f() + + local Valid = true + + -- fill-up some local variables to support further calculations to determine location of units within the zone. + local CargoPos = CargoUnit:getPosition().p + local ReferenceP = ReferencePosition.p + + if (((CargoPos.x - ReferenceP.x)^2 + (CargoPos.z - ReferenceP.z)^2)^0.5 <= Radius) then + else + Valid = false + end + + return Valid +end + +function routines.IsPartOfGroupInRadius( CargoGroup, ReferencePosition, Radius ) +--trace.f() + + local Valid = true + + Valid = routines.ValidateGroup( CargoGroup, "CargoGroup", Valid ) + + -- fill-up some local variables to support further calculations to determine location of units within the zone + local CargoUnits = CargoGroup:getUnits() + for CargoUnitId, CargoUnit in pairs( CargoUnits ) do + local CargoUnitPos = CargoUnit:getPosition().p +-- env.info( 'routines.IsPartOfGroupInRadius: CargoUnitPos.x = ' .. CargoUnitPos.x .. ' CargoUnitPos.z = ' .. CargoUnitPos.z ) + local ReferenceP = ReferencePosition.p +-- env.info( 'routines.IsPartOfGroupInRadius: ReferenceGroupPos.x = ' .. ReferenceGroupPos.x .. ' ReferenceGroupPos.z = ' .. ReferenceGroupPos.z ) + + if ((( CargoUnitPos.x - ReferenceP.x)^2 + (CargoUnitPos.z - ReferenceP.z)^2)^0.5 <= Radius) then + else + Valid = false + break + end + end + + return Valid +end + + +function routines.ValidateString( Variable, VariableName, Valid ) +--trace.f() + + if type( Variable ) == "string" then + if Variable == "" then + error( "routines.ValidateString: error: " .. VariableName .. " must be filled out!" ) + Valid = false + end + else + error( "routines.ValidateString: error: " .. VariableName .. " is not a string." ) + Valid = false + end + +--trace.r( "", "", { Valid } ) + return Valid +end + +function routines.ValidateNumber( Variable, VariableName, Valid ) +--trace.f() + + if type( Variable ) == "number" then + else + error( "routines.ValidateNumber: error: " .. VariableName .. " is not a number." ) + Valid = false + end + +--trace.r( "", "", { Valid } ) + return Valid + +end + +function routines.ValidateGroup( Variable, VariableName, Valid ) +--trace.f() + + if Variable == nil then + error( "routines.ValidateGroup: error: " .. VariableName .. " is a nil value!" ) + Valid = false + end + +--trace.r( "", "", { Valid } ) + return Valid +end + +function routines.ValidateZone( LandingZones, VariableName, Valid ) +--trace.f() + + if LandingZones == nil then + error( "routines.ValidateGroup: error: " .. VariableName .. " is a nil value!" ) + Valid = false + end + + if type( LandingZones ) == "table" then + for LandingZoneID, LandingZoneName in pairs( LandingZones ) do + if trigger.misc.getZone( LandingZoneName ) == nil then + error( "routines.ValidateGroup: error: Zone " .. LandingZoneName .. " does not exist!" ) + Valid = false + break + end + end + else + if trigger.misc.getZone( LandingZones ) == nil then + error( "routines.ValidateGroup: error: Zone " .. LandingZones .. " does not exist!" ) + Valid = false + end + end + +--trace.r( "", "", { Valid } ) + return Valid +end + +function routines.ValidateEnumeration( Variable, VariableName, Enum, Valid ) +--trace.f() + + local ValidVariable = false + + for EnumId, EnumData in pairs( Enum ) do + if Variable == EnumData then + ValidVariable = true + break + end + end + + if ValidVariable then + else + error( 'TransportValidateEnum: " .. VariableName .. " is not a valid type.' .. Variable ) + Valid = false + end + +--trace.r( "", "", { Valid } ) + return Valid +end + +function routines.getGroupRoute(groupIdent, task) -- same as getGroupPoints but returns speed and formation type along with vec2 of point} + -- refactor to search by groupId and allow groupId and groupName as inputs + local gpId = groupIdent + if type(groupIdent) == 'string' and not tonumber(groupIdent) then + gpId = _DATABASE.Templates.Groups[groupIdent].groupId + end + + for coa_name, coa_data in pairs(env.mission.coalition) do + if (coa_name == 'red' or coa_name == 'blue') and type(coa_data) == 'table' then + if coa_data.country then --there is a country table + for cntry_id, cntry_data in pairs(coa_data.country) do + for obj_type_name, obj_type_data in pairs(cntry_data) do + if obj_type_name == "helicopter" or obj_type_name == "ship" or obj_type_name == "plane" or obj_type_name == "vehicle" then -- only these types have points + if ((type(obj_type_data) == 'table') and obj_type_data.group and (type(obj_type_data.group) == 'table') and (#obj_type_data.group > 0)) then --there's a group! + for group_num, group_data in pairs(obj_type_data.group) do + if group_data and group_data.groupId == gpId then -- this is the group we are looking for + if group_data.route and group_data.route.points and #group_data.route.points > 0 then + local points = {} + + for point_num, point in pairs(group_data.route.points) do + local routeData = {} + if not point.point then + routeData.x = point.x + routeData.y = point.y + else + routeData.point = point.point --it's possible that the ME could move to the point = Vec2 notation. + end + routeData.form = point.action + routeData.speed = point.speed + routeData.alt = point.alt + routeData.alt_type = point.alt_type + routeData.airdromeId = point.airdromeId + routeData.helipadId = point.helipadId + routeData.type = point.type + routeData.action = point.action + if task then + routeData.task = point.task + end + points[point_num] = routeData + end + + return points + end + return + end --if group_data and group_data.name and group_data.name == 'groupname' + end --for group_num, group_data in pairs(obj_type_data.group) do + end --if ((type(obj_type_data) == 'table') and obj_type_data.group and (type(obj_type_data.group) == 'table') and (#obj_type_data.group > 0)) then + end --if obj_type_name == "helicopter" or obj_type_name == "ship" or obj_type_name == "plane" or obj_type_name == "vehicle" or obj_type_name == "static" then + end --for obj_type_name, obj_type_data in pairs(cntry_data) do + end --for cntry_id, cntry_data in pairs(coa_data.country) do + end --if coa_data.country then --there is a country table + end --if coa_name == 'red' or coa_name == 'blue' and type(coa_data) == 'table' then + end --for coa_name, coa_data in pairs(mission.coalition) do +end + +routines.ground.patrolRoute = function(vars) + + + local tempRoute = {} + local useRoute = {} + local gpData = vars.gpData + if type(gpData) == 'string' then + gpData = Group.getByName(gpData) + end + + local useGroupRoute + if not vars.useGroupRoute then + useGroupRoute = vars.gpData + else + useGroupRoute = vars.useGroupRoute + end + local routeProvided = false + if not vars.route then + if useGroupRoute then + tempRoute = routines.getGroupRoute(useGroupRoute) + end + else + useRoute = vars.route + local posStart = routines.getLeadPos(gpData) + useRoute[1] = routines.ground.buildWP(posStart, useRoute[1].action, useRoute[1].speed) + routeProvided = true + end + + + local overRideSpeed = vars.speed or 'default' + local pType = vars.pType + local offRoadForm = vars.offRoadForm or 'default' + local onRoadForm = vars.onRoadForm or 'default' + + if routeProvided == false and #tempRoute > 0 then + local posStart = routines.getLeadPos(gpData) + + + useRoute[#useRoute + 1] = routines.ground.buildWP(posStart, offRoadForm, overRideSpeed) + for i = 1, #tempRoute do + local tempForm = tempRoute[i].action + local tempSpeed = tempRoute[i].speed + + if offRoadForm == 'default' then + tempForm = tempRoute[i].action + end + if onRoadForm == 'default' then + onRoadForm = 'On Road' + end + if (string.lower(tempRoute[i].action) == 'on road' or string.lower(tempRoute[i].action) == 'onroad' or string.lower(tempRoute[i].action) == 'on_road') then + tempForm = onRoadForm + else + tempForm = offRoadForm + end + + if type(overRideSpeed) == 'number' then + tempSpeed = overRideSpeed + end + + + useRoute[#useRoute + 1] = routines.ground.buildWP(tempRoute[i], tempForm, tempSpeed) + end + + if pType and string.lower(pType) == 'doubleback' then + local curRoute = routines.utils.deepCopy(useRoute) + for i = #curRoute, 2, -1 do + useRoute[#useRoute + 1] = routines.ground.buildWP(curRoute[i], curRoute[i].action, curRoute[i].speed) + end + end + + useRoute[1].action = useRoute[#useRoute].action -- make it so the first WP matches the last WP + end + + local cTask3 = {} + local newPatrol = {} + newPatrol.route = useRoute + newPatrol.gpData = gpData:getName() + cTask3[#cTask3 + 1] = 'routines.ground.patrolRoute(' + cTask3[#cTask3 + 1] = routines.utils.oneLineSerialize(newPatrol) + cTask3[#cTask3 + 1] = ')' + cTask3 = table.concat(cTask3) + local tempTask = { + id = 'WrappedAction', + params = { + action = { + id = 'Script', + params = { + command = cTask3, + + }, + }, + }, + } + + + useRoute[#useRoute].task = tempTask + routines.goRoute(gpData, useRoute) + + return +end + +routines.ground.patrol = function(gpData, pType, form, speed) + local vars = {} + + if type(gpData) == 'table' and gpData:getName() then + gpData = gpData:getName() + end + + vars.useGroupRoute = gpData + vars.gpData = gpData + vars.pType = pType + vars.offRoadForm = form + vars.speed = speed + + routines.ground.patrolRoute(vars) + + return +end + +function routines.GetUnitHeight( CheckUnit ) +--trace.f( "routines" ) + + local UnitPoint = CheckUnit:getPoint() + local UnitPosition = { x = UnitPoint.x, y = UnitPoint.z } + local UnitHeight = UnitPoint.y + + local LandHeight = land.getHeight( UnitPosition ) + + --env.info(( 'CarrierHeight: LandHeight = ' .. LandHeight .. ' CarrierHeight = ' .. CarrierHeight )) + + --trace.f( "routines", "Unit Height = " .. UnitHeight - LandHeight ) + + return UnitHeight - LandHeight + +end + + + +Su34Status = { status = {} } +boardMsgRed = { statusMsg = "" } +boardMsgAll = { timeMsg = "" } +SpawnSettings = {} +Su34MenuPath = {} +Su34Menus = 0 + + +function Su34AttackCarlVinson(groupName) +--trace.menu("", "Su34AttackCarlVinson") + local groupSu34 = Group.getByName( groupName ) + local controllerSu34 = groupSu34.getController(groupSu34) + local groupCarlVinson = Group.getByName("US Carl Vinson #001") + controllerSu34.setOption( controllerSu34, AI.Option.Air.id.ROE, AI.Option.Air.val.ROE.OPEN_FIRE ) + controllerSu34.setOption( controllerSu34, AI.Option.Air.id.REACTION_ON_THREAT, AI.Option.Air.val.REACTION_ON_THREAT.EVADE_FIRE ) + if groupCarlVinson ~= nil then + controllerSu34.pushTask(controllerSu34,{id = 'AttackGroup', params = { groupId = groupCarlVinson:getID(), expend = AI.Task.WeaponExpend.ALL, attackQtyLimit = true}}) + end + Su34Status.status[groupName] = 1 + MessageToRed( string.format('%s: ',groupName) .. 'Attacking carrier Carl Vinson. ', 10, 'RedStatus' .. groupName ) +end + +function Su34AttackWest(groupName) +--trace.f("","Su34AttackWest") + local groupSu34 = Group.getByName( groupName ) + local controllerSu34 = groupSu34.getController(groupSu34) + local groupShipWest1 = Group.getByName("US Ship West #001") + local groupShipWest2 = Group.getByName("US Ship West #002") + controllerSu34.setOption( controllerSu34, AI.Option.Air.id.ROE, AI.Option.Air.val.ROE.OPEN_FIRE ) + controllerSu34.setOption( controllerSu34, AI.Option.Air.id.REACTION_ON_THREAT, AI.Option.Air.val.REACTION_ON_THREAT.EVADE_FIRE ) + if groupShipWest1 ~= nil then + controllerSu34.pushTask(controllerSu34,{id = 'AttackGroup', params = { groupId = groupShipWest1:getID(), expend = AI.Task.WeaponExpend.ALL, attackQtyLimit = true}}) + end + if groupShipWest2 ~= nil then + controllerSu34.pushTask(controllerSu34,{id = 'AttackGroup', params = { groupId = groupShipWest2:getID(), expend = AI.Task.WeaponExpend.ALL, attackQtyLimit = true}}) + end + Su34Status.status[groupName] = 2 + MessageToRed( string.format('%s: ',groupName) .. 'Attacking invading ships in the west. ', 10, 'RedStatus' .. groupName ) +end + +function Su34AttackNorth(groupName) +--trace.menu("","Su34AttackNorth") + local groupSu34 = Group.getByName( groupName ) + local controllerSu34 = groupSu34.getController(groupSu34) + local groupShipNorth1 = Group.getByName("US Ship North #001") + local groupShipNorth2 = Group.getByName("US Ship North #002") + local groupShipNorth3 = Group.getByName("US Ship North #003") + controllerSu34.setOption( controllerSu34, AI.Option.Air.id.ROE, AI.Option.Air.val.ROE.OPEN_FIRE ) + controllerSu34.setOption( controllerSu34, AI.Option.Air.id.REACTION_ON_THREAT, AI.Option.Air.val.REACTION_ON_THREAT.EVADE_FIRE ) + if groupShipNorth1 ~= nil then + controllerSu34.pushTask(controllerSu34,{id = 'AttackGroup', params = { groupId = groupShipNorth1:getID(), expend = AI.Task.WeaponExpend.ALL, attackQtyLimit = false}}) + end + if groupShipNorth2 ~= nil then + controllerSu34.pushTask(controllerSu34,{id = 'AttackGroup', params = { groupId = groupShipNorth2:getID(), expend = AI.Task.WeaponExpend.ALL, attackQtyLimit = false}}) + end + if groupShipNorth3 ~= nil then + controllerSu34.pushTask(controllerSu34,{id = 'AttackGroup', params = { groupId = groupShipNorth3:getID(), expend = AI.Task.WeaponExpend.ALL, attackQtyLimit = false}}) + end + Su34Status.status[groupName] = 3 + MessageToRed( string.format('%s: ',groupName) .. 'Attacking invading ships in the north. ', 10, 'RedStatus' .. groupName ) +end + +function Su34Orbit(groupName) +--trace.menu("","Su34Orbit") + local groupSu34 = Group.getByName( groupName ) + local controllerSu34 = groupSu34:getController() + controllerSu34.setOption( controllerSu34, AI.Option.Air.id.ROE, AI.Option.Air.val.ROE.WEAPON_HOLD ) + controllerSu34.setOption( controllerSu34, AI.Option.Air.id.REACTION_ON_THREAT, AI.Option.Air.val.REACTION_ON_THREAT.EVADE_FIRE ) + controllerSu34:pushTask( {id = 'ControlledTask', params = { task = { id = 'Orbit', params = { pattern = AI.Task.OrbitPattern.RACE_TRACK } }, stopCondition = { duration = 600 } } } ) + Su34Status.status[groupName] = 4 + MessageToRed( string.format('%s: ',groupName) .. 'In orbit and awaiting further instructions. ', 10, 'RedStatus' .. groupName ) +end + +function Su34TakeOff(groupName) +--trace.menu("","Su34TakeOff") + local groupSu34 = Group.getByName( groupName ) + local controllerSu34 = groupSu34:getController() + controllerSu34.setOption( controllerSu34, AI.Option.Air.id.ROE, AI.Option.Air.val.ROE.WEAPON_HOLD ) + controllerSu34.setOption( controllerSu34, AI.Option.Air.id.REACTION_ON_THREAT, AI.Option.Air.val.REACTION_ON_THREAT.BYPASS_AND_ESCAPE ) + Su34Status.status[groupName] = 8 + MessageToRed( string.format('%s: ',groupName) .. 'Take-Off. ', 10, 'RedStatus' .. groupName ) +end + +function Su34Hold(groupName) +--trace.menu("","Su34Hold") + local groupSu34 = Group.getByName( groupName ) + local controllerSu34 = groupSu34:getController() + controllerSu34.setOption( controllerSu34, AI.Option.Air.id.ROE, AI.Option.Air.val.ROE.WEAPON_HOLD ) + controllerSu34.setOption( controllerSu34, AI.Option.Air.id.REACTION_ON_THREAT, AI.Option.Air.val.REACTION_ON_THREAT.BYPASS_AND_ESCAPE ) + Su34Status.status[groupName] = 5 + MessageToRed( string.format('%s: ',groupName) .. 'Holding Weapons. ', 10, 'RedStatus' .. groupName ) +end + +function Su34RTB(groupName) +--trace.menu("","Su34RTB") + Su34Status.status[groupName] = 6 + MessageToRed( string.format('%s: ',groupName) .. 'Return to Krasnodar. ', 10, 'RedStatus' .. groupName ) +end + +function Su34Destroyed(groupName) +--trace.menu("","Su34Destroyed") + Su34Status.status[groupName] = 7 + MessageToRed( string.format('%s: ',groupName) .. 'Destroyed. ', 30, 'RedStatus' .. groupName ) +end + +function GroupAlive( groupName ) +--trace.menu("","GroupAlive") + local groupTest = Group.getByName( groupName ) + + local groupExists = false + + if groupTest then + groupExists = groupTest:isExist() + end + + --trace.r( "", "", { groupExists } ) + return groupExists +end + +function Su34IsDead() +--trace.f() + +end + +function Su34OverviewStatus() +--trace.menu("","Su34OverviewStatus") + local msg = "" + local currentStatus = 0 + local Exists = false + + for groupName, currentStatus in pairs(Su34Status.status) do + + env.info(('Su34 Overview Status: GroupName = ' .. groupName )) + Alive = GroupAlive( groupName ) + + if Alive then + if currentStatus == 1 then + msg = msg .. string.format("%s: ",groupName) + msg = msg .. "Attacking carrier Carl Vinson. " + elseif currentStatus == 2 then + msg = msg .. string.format("%s: ",groupName) + msg = msg .. "Attacking supporting ships in the west. " + elseif currentStatus == 3 then + msg = msg .. string.format("%s: ",groupName) + msg = msg .. "Attacking invading ships in the north. " + elseif currentStatus == 4 then + msg = msg .. string.format("%s: ",groupName) + msg = msg .. "In orbit and awaiting further instructions. " + elseif currentStatus == 5 then + msg = msg .. string.format("%s: ",groupName) + msg = msg .. "Holding Weapons. " + elseif currentStatus == 6 then + msg = msg .. string.format("%s: ",groupName) + msg = msg .. "Return to Krasnodar. " + elseif currentStatus == 7 then + msg = msg .. string.format("%s: ",groupName) + msg = msg .. "Destroyed. " + elseif currentStatus == 8 then + msg = msg .. string.format("%s: ",groupName) + msg = msg .. "Take-Off. " + end + else + if currentStatus == 7 then + msg = msg .. string.format("%s: ",groupName) + msg = msg .. "Destroyed. " + else + Su34Destroyed(groupName) + end + end + end + + boardMsgRed.statusMsg = msg +end + + +function UpdateBoardMsg() +--trace.f() + Su34OverviewStatus() + MessageToRed( boardMsgRed.statusMsg, 15, 'RedStatus' ) +end + +function MusicReset( flg ) +--trace.f() + trigger.action.setUserFlag(95,flg) +end + +function PlaneActivate(groupNameFormat, flg) +--trace.f() + local groupName = groupNameFormat .. string.format("#%03d", trigger.misc.getUserFlag(flg)) + --trigger.action.outText(groupName,10) + trigger.action.activateGroup(Group.getByName(groupName)) +end + +function Su34Menu(groupName) +--trace.f() + + --env.info(( 'Su34Menu(' .. groupName .. ')' )) + local groupSu34 = Group.getByName( groupName ) + + if Su34Status.status[groupName] == 1 or + Su34Status.status[groupName] == 2 or + Su34Status.status[groupName] == 3 or + Su34Status.status[groupName] == 4 or + Su34Status.status[groupName] == 5 then + if Su34MenuPath[groupName] == nil then + if planeMenuPath == nil then + planeMenuPath = missionCommands.addSubMenuForCoalition( + coalition.side.RED, + "SU-34 anti-ship flights", + nil + ) + end + Su34MenuPath[groupName] = missionCommands.addSubMenuForCoalition( + coalition.side.RED, + "Flight " .. groupName, + planeMenuPath + ) + + missionCommands.addCommandForCoalition( + coalition.side.RED, + "Attack carrier Carl Vinson", + Su34MenuPath[groupName], + Su34AttackCarlVinson, + groupName + ) + + missionCommands.addCommandForCoalition( + coalition.side.RED, + "Attack ships in the west", + Su34MenuPath[groupName], + Su34AttackWest, + groupName + ) + + missionCommands.addCommandForCoalition( + coalition.side.RED, + "Attack ships in the north", + Su34MenuPath[groupName], + Su34AttackNorth, + groupName + ) + + missionCommands.addCommandForCoalition( + coalition.side.RED, + "Hold position and await instructions", + Su34MenuPath[groupName], + Su34Orbit, + groupName + ) + + missionCommands.addCommandForCoalition( + coalition.side.RED, + "Report status", + Su34MenuPath[groupName], + Su34OverviewStatus + ) + end + else + if Su34MenuPath[groupName] then + missionCommands.removeItemForCoalition(coalition.side.RED, Su34MenuPath[groupName]) + end + end +end + +--- Obsolete function, but kept to rework in framework. + +function ChooseInfantry ( TeleportPrefixTable, TeleportMax ) +--trace.f("Spawn") + --env.info(( 'ChooseInfantry: ' )) + + TeleportPrefixTableCount = #TeleportPrefixTable + TeleportPrefixTableIndex = math.random( 1, TeleportPrefixTableCount ) + + --env.info(( 'ChooseInfantry: TeleportPrefixTableIndex = ' .. TeleportPrefixTableIndex .. ' TeleportPrefixTableCount = ' .. TeleportPrefixTableCount .. ' TeleportMax = ' .. TeleportMax )) + + local TeleportFound = false + local TeleportLoop = true + local Index = TeleportPrefixTableIndex + local TeleportPrefix = '' + + while TeleportLoop do + TeleportPrefix = TeleportPrefixTable[Index] + if SpawnSettings[TeleportPrefix] then + if SpawnSettings[TeleportPrefix]['SpawnCount'] - 1 < TeleportMax then + SpawnSettings[TeleportPrefix]['SpawnCount'] = SpawnSettings[TeleportPrefix]['SpawnCount'] + 1 + TeleportFound = true + else + TeleportFound = false + end + else + SpawnSettings[TeleportPrefix] = {} + SpawnSettings[TeleportPrefix]['SpawnCount'] = 0 + TeleportFound = true + end + if TeleportFound then + TeleportLoop = false + else + if Index < TeleportPrefixTableCount then + Index = Index + 1 + else + TeleportLoop = false + end + end + --env.info(( 'ChooseInfantry: Loop 1 - TeleportPrefix = ' .. TeleportPrefix .. ' Index = ' .. Index )) + end + + if TeleportFound == false then + TeleportLoop = true + Index = 1 + while TeleportLoop do + TeleportPrefix = TeleportPrefixTable[Index] + if SpawnSettings[TeleportPrefix] then + if SpawnSettings[TeleportPrefix]['SpawnCount'] - 1 < TeleportMax then + SpawnSettings[TeleportPrefix]['SpawnCount'] = SpawnSettings[TeleportPrefix]['SpawnCount'] + 1 + TeleportFound = true + else + TeleportFound = false + end + else + SpawnSettings[TeleportPrefix] = {} + SpawnSettings[TeleportPrefix]['SpawnCount'] = 0 + TeleportFound = true + end + if TeleportFound then + TeleportLoop = false + else + if Index < TeleportPrefixTableIndex then + Index = Index + 1 + else + TeleportLoop = false + end + end + --env.info(( 'ChooseInfantry: Loop 2 - TeleportPrefix = ' .. TeleportPrefix .. ' Index = ' .. Index )) + end + end + + local TeleportGroupName = '' + if TeleportFound == true then + TeleportGroupName = TeleportPrefix .. string.format("#%03d", SpawnSettings[TeleportPrefix]['SpawnCount'] ) + else + TeleportGroupName = '' + end + + --env.info(('ChooseInfantry: TeleportGroupName = ' .. TeleportGroupName )) + --env.info(('ChooseInfantry: return')) + + return TeleportGroupName +end + +SpawnedInfantry = 0 + +function LandCarrier ( CarrierGroup, LandingZonePrefix ) +--trace.f() + --env.info(( 'LandCarrier: ' )) + --env.info(( 'LandCarrier: CarrierGroup = ' .. CarrierGroup:getName() )) + --env.info(( 'LandCarrier: LandingZone = ' .. LandingZonePrefix )) + + local controllerGroup = CarrierGroup:getController() + + local LandingZone = trigger.misc.getZone(LandingZonePrefix) + local LandingZonePos = {} + LandingZonePos.x = LandingZone.point.x + math.random(LandingZone.radius * -1, LandingZone.radius) + LandingZonePos.y = LandingZone.point.z + math.random(LandingZone.radius * -1, LandingZone.radius) + + controllerGroup:pushTask( { id = 'Land', params = { point = LandingZonePos, durationFlag = true, duration = 10 } } ) + + --env.info(( 'LandCarrier: end' )) +end + +EscortCount = 0 +function EscortCarrier ( CarrierGroup, EscortPrefix, EscortLastWayPoint, EscortEngagementDistanceMax, EscortTargetTypes ) +--trace.f() + --env.info(( 'EscortCarrier: ' )) + --env.info(( 'EscortCarrier: CarrierGroup = ' .. CarrierGroup:getName() )) + --env.info(( 'EscortCarrier: EscortPrefix = ' .. EscortPrefix )) + + local CarrierName = CarrierGroup:getName() + + local EscortMission = {} + local CarrierMission = {} + + local EscortMission = SpawnMissionGroup( EscortPrefix ) + local CarrierMission = SpawnMissionGroup( CarrierGroup:getName() ) + + if EscortMission ~= nil and CarrierMission ~= nil then + + EscortCount = EscortCount + 1 + EscortMissionName = string.format( EscortPrefix .. '#Escort %s', CarrierName ) + EscortMission.name = EscortMissionName + EscortMission.groupId = nil + EscortMission.lateActivation = false + EscortMission.taskSelected = false + + local EscortUnits = #EscortMission.units + for u = 1, EscortUnits do + EscortMission.units[u].name = string.format( EscortPrefix .. '#Escort %s %02d', CarrierName, u ) + EscortMission.units[u].unitId = nil + end + + + EscortMission.route.points[1].task = { id = "ComboTask", + params = + { + tasks = + { + [1] = + { + enabled = true, + auto = false, + id = "Escort", + number = 1, + params = + { + lastWptIndexFlagChangedManually = false, + groupId = CarrierGroup:getID(), + lastWptIndex = nil, + lastWptIndexFlag = false, + engagementDistMax = EscortEngagementDistanceMax, + targetTypes = EscortTargetTypes, + pos = + { + y = 20, + x = 20, + z = 0, + } -- end of ["pos"] + } -- end of ["params"] + } -- end of [1] + } -- end of ["tasks"] + } -- end of ["params"] + } -- end of ["task"] + + SpawnGroupAdd( EscortPrefix, EscortMission ) + + end +end + +function SendMessageToCarrier( CarrierGroup, CarrierMessage ) +--trace.f() + + if CarrierGroup ~= nil then + MessageToGroup( CarrierGroup, CarrierMessage, 30, 'Carrier/' .. CarrierGroup:getName() ) + end + +end + +function MessageToGroup( MsgGroup, MsgText, MsgTime, MsgName ) +--trace.f() + + if type(MsgGroup) == 'string' then + --env.info( 'MessageToGroup: Converted MsgGroup string "' .. MsgGroup .. '" into a Group structure.' ) + MsgGroup = Group.getByName( MsgGroup ) + end + + if MsgGroup ~= nil then + local MsgTable = {} + MsgTable.text = MsgText + MsgTable.displayTime = MsgTime + MsgTable.msgFor = { units = { MsgGroup:getUnits()[1]:getName() } } + MsgTable.name = MsgName + --routines.message.add( MsgTable ) + --env.info(('MessageToGroup: Message sent to ' .. MsgGroup:getUnits()[1]:getName() .. ' -> ' .. MsgText )) + end +end + +function MessageToUnit( UnitName, MsgText, MsgTime, MsgName ) +--trace.f() + + if UnitName ~= nil then + local MsgTable = {} + MsgTable.text = MsgText + MsgTable.displayTime = MsgTime + MsgTable.msgFor = { units = { UnitName } } + MsgTable.name = MsgName + --routines.message.add( MsgTable ) + end +end + +function MessageToAll( MsgText, MsgTime, MsgName ) +--trace.f() + + MESSAGE:New( MsgText, MsgTime, "Message" ):ToCoalition( coalition.side.RED ):ToCoalition( coalition.side.BLUE ) +end + +function MessageToRed( MsgText, MsgTime, MsgName ) +--trace.f() + + MESSAGE:New( MsgText, MsgTime, "To Red Coalition" ):ToCoalition( coalition.side.RED ) +end + +function MessageToBlue( MsgText, MsgTime, MsgName ) +--trace.f() + + MESSAGE:New( MsgText, MsgTime, "To Blue Coalition" ):ToCoalition( coalition.side.RED ) +end + +function getCarrierHeight( CarrierGroup ) +--trace.f() + + if CarrierGroup ~= nil then + if table.getn(CarrierGroup:getUnits()) == 1 then + local CarrierUnit = CarrierGroup:getUnits()[1] + local CurrentPoint = CarrierUnit:getPoint() + + local CurrentPosition = { x = CurrentPoint.x, y = CurrentPoint.z } + local CarrierHeight = CurrentPoint.y + + local LandHeight = land.getHeight( CurrentPosition ) + + --env.info(( 'CarrierHeight: LandHeight = ' .. LandHeight .. ' CarrierHeight = ' .. CarrierHeight )) + + return CarrierHeight - LandHeight + else + return 999999 + end + else + return 999999 + end + +end + +function GetUnitHeight( CheckUnit ) +--trace.f() + + local UnitPoint = CheckUnit:getPoint() + local UnitPosition = { x = CurrentPoint.x, y = CurrentPoint.z } + local UnitHeight = CurrentPoint.y + + local LandHeight = land.getHeight( CurrentPosition ) + + --env.info(( 'CarrierHeight: LandHeight = ' .. LandHeight .. ' CarrierHeight = ' .. CarrierHeight )) + + return UnitHeight - LandHeight + +end + + +_MusicTable = {} +_MusicTable.Files = {} +_MusicTable.Queue = {} +_MusicTable.FileCnt = 0 + + +function MusicRegister( SndRef, SndFile, SndTime ) +--trace.f() + + env.info(( 'MusicRegister: SndRef = ' .. SndRef )) + env.info(( 'MusicRegister: SndFile = ' .. SndFile )) + env.info(( 'MusicRegister: SndTime = ' .. SndTime )) + + + _MusicTable.FileCnt = _MusicTable.FileCnt + 1 + + _MusicTable.Files[_MusicTable.FileCnt] = {} + _MusicTable.Files[_MusicTable.FileCnt].Ref = SndRef + _MusicTable.Files[_MusicTable.FileCnt].File = SndFile + _MusicTable.Files[_MusicTable.FileCnt].Time = SndTime + + if not _MusicTable.Function then + _MusicTable.Function = routines.scheduleFunction( MusicScheduler, { }, timer.getTime() + 10, 10) + end + +end + +function MusicToPlayer( SndRef, PlayerName, SndContinue ) +--trace.f() + + --env.info(( 'MusicToPlayer: SndRef = ' .. SndRef )) + + local PlayerUnits = AlivePlayerUnits() + for PlayerUnitIdx, PlayerUnit in pairs(PlayerUnits) do + local PlayerUnitName = PlayerUnit:getPlayerName() + --env.info(( 'MusicToPlayer: PlayerUnitName = ' .. PlayerUnitName )) + if PlayerName == PlayerUnitName then + PlayerGroup = PlayerUnit:getGroup() + if PlayerGroup then + --env.info(( 'MusicToPlayer: PlayerGroup = ' .. PlayerGroup:getName() )) + MusicToGroup( SndRef, PlayerGroup, SndContinue ) + end + break + end + end + + --env.info(( 'MusicToPlayer: end' )) + +end + +function MusicToGroup( SndRef, SndGroup, SndContinue ) +--trace.f() + + --env.info(( 'MusicToGroup: SndRef = ' .. SndRef )) + + if SndGroup ~= nil then + if _MusicTable and _MusicTable.FileCnt > 0 then + if SndGroup:isExist() then + if MusicCanStart(SndGroup:getUnit(1):getPlayerName()) then + --env.info(( 'MusicToGroup: OK for Sound.' )) + local SndIdx = 0 + if SndRef == '' then + --env.info(( 'MusicToGroup: SndRef as empty. Queueing at random.' )) + SndIdx = math.random( 1, _MusicTable.FileCnt ) + else + for SndIdx = 1, _MusicTable.FileCnt do + if _MusicTable.Files[SndIdx].Ref == SndRef then + break + end + end + end + --env.info(( 'MusicToGroup: SndIdx = ' .. SndIdx )) + --env.info(( 'MusicToGroup: Queueing Music ' .. _MusicTable.Files[SndIdx].File .. ' for Group ' .. SndGroup:getID() )) + trigger.action.outSoundForGroup( SndGroup:getID(), _MusicTable.Files[SndIdx].File ) + MessageToGroup( SndGroup, 'Playing ' .. _MusicTable.Files[SndIdx].File, 15, 'Music-' .. SndGroup:getUnit(1):getPlayerName() ) + + local SndQueueRef = SndGroup:getUnit(1):getPlayerName() + if _MusicTable.Queue[SndQueueRef] == nil then + _MusicTable.Queue[SndQueueRef] = {} + end + _MusicTable.Queue[SndQueueRef].Start = timer.getTime() + _MusicTable.Queue[SndQueueRef].PlayerName = SndGroup:getUnit(1):getPlayerName() + _MusicTable.Queue[SndQueueRef].Group = SndGroup + _MusicTable.Queue[SndQueueRef].ID = SndGroup:getID() + _MusicTable.Queue[SndQueueRef].Ref = SndIdx + _MusicTable.Queue[SndQueueRef].Continue = SndContinue + _MusicTable.Queue[SndQueueRef].Type = Group + end + end + end + end +end + +function MusicCanStart(PlayerName) +--trace.f() + + --env.info(( 'MusicCanStart:' )) + + local MusicOut = false + + if _MusicTable['Queue'] ~= nil and _MusicTable.FileCnt > 0 then + --env.info(( 'MusicCanStart: PlayerName = ' .. PlayerName )) + local PlayerFound = false + local MusicStart = 0 + local MusicTime = 0 + for SndQueueIdx, SndQueue in pairs( _MusicTable.Queue ) do + if SndQueue.PlayerName == PlayerName then + PlayerFound = true + MusicStart = SndQueue.Start + MusicTime = _MusicTable.Files[SndQueue.Ref].Time + break + end + end + if PlayerFound then + --env.info(( 'MusicCanStart: MusicStart = ' .. MusicStart )) + --env.info(( 'MusicCanStart: MusicTime = ' .. MusicTime )) + --env.info(( 'MusicCanStart: timer.getTime() = ' .. timer.getTime() )) + + if MusicStart + MusicTime <= timer.getTime() then + MusicOut = true + end + else + MusicOut = true + end + end + + if MusicOut then + --env.info(( 'MusicCanStart: true' )) + else + --env.info(( 'MusicCanStart: false' )) + end + + return MusicOut +end + +function MusicScheduler() +--trace.scheduled("", "MusicScheduler") + + --env.info(( 'MusicScheduler:' )) + if _MusicTable['Queue'] ~= nil and _MusicTable.FileCnt > 0 then + --env.info(( 'MusicScheduler: Walking Sound Queue.')) + for SndQueueIdx, SndQueue in pairs( _MusicTable.Queue ) do + if SndQueue.Continue then + if MusicCanStart(SndQueue.PlayerName) then + --env.info(('MusicScheduler: MusicToGroup')) + MusicToPlayer( '', SndQueue.PlayerName, true ) + end + end + end + end + +end + + +env.info(( 'Init: Scripts Loaded v1.1' )) + +--- This module contains the BASE class. +-- +-- 1) @{#BASE} class +-- ================= +-- The @{#BASE} class is the super class for all the classes defined within MOOSE. +-- +-- It handles: +-- +-- * The construction and inheritance of child classes. +-- * The tracing of objects during mission execution within the **DCS.log** file, under the **"Saved Games\DCS\Logs"** folder. +-- +-- Note: Normally you would not use the BASE class unless you are extending the MOOSE framework with new classes. +-- +-- 1.1) BASE constructor +-- --------------------- +-- Any class derived from BASE, must use the @{Base#BASE.New) constructor within the @{Base#BASE.Inherit) method. +-- See an example at the @{Base#BASE.New} method how this is done. +-- +-- 1.2) BASE Trace functionality +-- ----------------------------- +-- The BASE class contains trace methods to trace progress within a mission execution of a certain object. +-- Note that these trace methods are inherited by each MOOSE class interiting BASE. +-- As such, each object created from derived class from BASE can use the tracing functions to trace its execution. +-- +-- 1.2.1) Tracing functions +-- ------------------------ +-- There are basically 3 types of tracing methods available within BASE: +-- +-- * @{#BASE.F}: Trace the beginning of a function and its given parameters. An F is indicated at column 44 in the DCS.log file. +-- * @{#BASE.T}: Trace further logic within a function giving optional variables or parameters. A T is indicated at column 44 in the DCS.log file. +-- * @{#BASE.E}: Trace an exception within a function giving optional variables or parameters. An E is indicated at column 44 in the DCS.log file. An exception will always be traced. +-- +-- 1.2.2) Tracing levels +-- --------------------- +-- There are 3 tracing levels within MOOSE. +-- These tracing levels were defined to avoid bulks of tracing to be generated by lots of objects. +-- +-- As such, the F and T methods have additional variants to trace level 2 and 3 respectively: +-- +-- * @{#BASE.F2}: Trace the beginning of a function and its given parameters with tracing level 2. +-- * @{#BASE.F3}: Trace the beginning of a function and its given parameters with tracing level 3. +-- * @{#BASE.T2}: Trace further logic within a function giving optional variables or parameters with tracing level 2. +-- * @{#BASE.T3}: Trace further logic within a function giving optional variables or parameters with tracing level 3. +-- +-- 1.3) BASE Inheritance support +-- =========================== +-- The following methods are available to support inheritance: +-- +-- * @{#BASE.Inherit}: Inherits from a class. +-- * @{#BASE.Inherited}: Returns the parent class from the class. +-- +-- Future +-- ====== +-- Further methods may be added to BASE whenever there is a need to make "overall" functions available within MOOSE. +-- +-- ==== +-- +-- @module Base +-- @author FlightControl + + + +local _TraceOnOff = true +local _TraceLevel = 1 +local _TraceAll = false +local _TraceClass = {} +local _TraceClassMethod = {} + +local _ClassID = 0 + +--- The BASE Class +-- @type BASE +-- @field ClassName The name of the class. +-- @field ClassID The ID number of the class. +-- @field ClassNameAndID The name of the class concatenated with the ID number of the class. +BASE = { + ClassName = "BASE", + ClassID = 0, + Events = {}, + States = {} +} + +--- The Formation Class +-- @type FORMATION +-- @field Cone A cone formation. +FORMATION = { + Cone = "Cone" +} + + + +--- The base constructor. This is the top top class of all classed defined within the MOOSE. +-- Any new class needs to be derived from this class for proper inheritance. +-- @param #BASE self +-- @return #BASE The new instance of the BASE class. +-- @usage +-- -- This declares the constructor of the class TASK, inheriting from BASE. +-- --- TASK constructor +-- -- @param #TASK self +-- -- @param Parameter The parameter of the New constructor. +-- -- @return #TASK self +-- function TASK:New( Parameter ) +-- +-- local self = BASE:Inherit( self, BASE:New() ) +-- +-- self.Variable = Parameter +-- +-- return self +-- end +-- @todo need to investigate if the deepCopy is really needed... Don't think so. +function BASE:New() + local self = routines.utils.deepCopy( self ) -- Create a new self instance + local MetaTable = {} + setmetatable( self, MetaTable ) + self.__index = self + _ClassID = _ClassID + 1 + self.ClassID = _ClassID + self.ClassNameAndID = string.format( '%s#%09d', self.ClassName, self.ClassID ) + return self +end + +--- This is the worker method to inherit from a parent class. +-- @param #BASE self +-- @param Child is the Child class that inherits. +-- @param #BASE Parent is the Parent class that the Child inherits from. +-- @return #BASE Child +function BASE:Inherit( Child, Parent ) + local Child = routines.utils.deepCopy( Child ) + --local Parent = routines.utils.deepCopy( Parent ) + --local Parent = Parent + if Child ~= nil then + setmetatable( Child, Parent ) + Child.__index = Child + end + --Child.ClassName = Child.ClassName .. '.' .. Child.ClassID + self:T( 'Inherited from ' .. Parent.ClassName ) + return Child +end + +--- This is the worker method to retrieve the Parent class. +-- @param #BASE self +-- @param #BASE Child is the Child class from which the Parent class needs to be retrieved. +-- @return #BASE +function BASE:Inherited( Child ) + local Parent = getmetatable( Child ) +-- env.info('Inherited class of ' .. Child.ClassName .. ' is ' .. Parent.ClassName ) + return Parent +end + +--- Get the ClassName + ClassID of the class instance. +-- The ClassName + ClassID is formatted as '%s#%09d'. +-- @param #BASE self +-- @return #string The ClassName + ClassID of the class instance. +function BASE:GetClassNameAndID() + return self.ClassNameAndID +end + +--- Get the ClassName of the class instance. +-- @param #BASE self +-- @return #string The ClassName of the class instance. +function BASE:GetClassName() + return self.ClassName +end + +--- Get the ClassID of the class instance. +-- @param #BASE self +-- @return #string The ClassID of the class instance. +function BASE:GetClassID() + return self.ClassID +end + +--- Set a new listener for the class. +-- @param self +-- @param DCSTypes#Event Event +-- @param #function EventFunction +-- @return #BASE +function BASE:AddEvent( Event, EventFunction ) + self:F( Event ) + + self.Events[#self.Events+1] = {} + self.Events[#self.Events].Event = Event + self.Events[#self.Events].EventFunction = EventFunction + self.Events[#self.Events].EventEnabled = false + + return self +end + +--- Returns the event dispatcher +-- @param #BASE self +-- @return Event#EVENT +function BASE:Event() + + return _EVENTDISPATCHER +end + + + + + +--- Enable the event listeners for the class. +-- @param #BASE self +-- @return #BASE +function BASE:EnableEvents() + self:F( #self.Events ) + + for EventID, Event in pairs( self.Events ) do + Event.Self = self + Event.EventEnabled = true + end + self.Events.Handler = world.addEventHandler( self ) + + return self +end + + +--- Disable the event listeners for the class. +-- @param #BASE self +-- @return #BASE +function BASE:DisableEvents() + self:F() + + world.removeEventHandler( self ) + for EventID, Event in pairs( self.Events ) do + Event.Self = nil + Event.EventEnabled = false + end + + return self +end + + +local BaseEventCodes = { + "S_EVENT_SHOT", + "S_EVENT_HIT", + "S_EVENT_TAKEOFF", + "S_EVENT_LAND", + "S_EVENT_CRASH", + "S_EVENT_EJECTION", + "S_EVENT_REFUELING", + "S_EVENT_DEAD", + "S_EVENT_PILOT_DEAD", + "S_EVENT_BASE_CAPTURED", + "S_EVENT_MISSION_START", + "S_EVENT_MISSION_END", + "S_EVENT_TOOK_CONTROL", + "S_EVENT_REFUELING_STOP", + "S_EVENT_BIRTH", + "S_EVENT_HUMAN_FAILURE", + "S_EVENT_ENGINE_STARTUP", + "S_EVENT_ENGINE_SHUTDOWN", + "S_EVENT_PLAYER_ENTER_UNIT", + "S_EVENT_PLAYER_LEAVE_UNIT", + "S_EVENT_PLAYER_COMMENT", + "S_EVENT_SHOOTING_START", + "S_EVENT_SHOOTING_END", + "S_EVENT_MAX", +} + +--onEvent( {[1]="S_EVENT_BIRTH",[2]={["subPlace"]=5,["time"]=0,["initiator"]={["id_"]=16884480,},["place"]={["id_"]=5000040,},["id"]=15,["IniUnitName"]="US F-15C@RAMP-Air Support Mountains#001-01",},} +-- Event = { +-- id = enum world.event, +-- time = Time, +-- initiator = Unit, +-- target = Unit, +-- place = Unit, +-- subPlace = enum world.BirthPlace, +-- weapon = Weapon +-- } + +--- Creation of a Birth Event. +-- @param #BASE self +-- @param DCSTypes#Time EventTime The time stamp of the event. +-- @param DCSObject#Object Initiator The initiating object of the event. +-- @param #string IniUnitName The initiating unit name. +-- @param place +-- @param subplace +function BASE:CreateEventBirth( EventTime, Initiator, IniUnitName, place, subplace ) + self:F( { EventTime, Initiator, IniUnitName, place, subplace } ) + + local Event = { + id = world.event.S_EVENT_BIRTH, + time = EventTime, + initiator = Initiator, + IniUnitName = IniUnitName, + place = place, + subplace = subplace + } + + world.onEvent( Event ) +end + +--- Creation of a Crash Event. +-- @param #BASE self +-- @param DCSTypes#Time EventTime The time stamp of the event. +-- @param DCSObject#Object Initiator The initiating object of the event. +function BASE:CreateEventCrash( EventTime, Initiator ) + self:F( { EventTime, Initiator } ) + + local Event = { + id = world.event.S_EVENT_CRASH, + time = EventTime, + initiator = Initiator, + } + + world.onEvent( Event ) +end + +-- TODO: Complete DCSTypes#Event structure. +--- The main event handling function... This function captures all events generated for the class. +-- @param #BASE self +-- @param DCSTypes#Event event +function BASE:onEvent(event) + --self:F( { BaseEventCodes[event.id], event } ) + + if self then + for EventID, EventObject in pairs( self.Events ) do + if EventObject.EventEnabled then + --env.info( 'onEvent Table EventObject.Self = ' .. tostring(EventObject.Self) ) + --env.info( 'onEvent event.id = ' .. tostring(event.id) ) + --env.info( 'onEvent EventObject.Event = ' .. tostring(EventObject.Event) ) + if event.id == EventObject.Event then + if self == EventObject.Self then + if event.initiator and event.initiator:isExist() then + event.IniUnitName = event.initiator:getName() + end + if event.target and event.target:isExist() then + event.TgtUnitName = event.target:getName() + end + --self:T( { BaseEventCodes[event.id], event } ) + --EventObject.EventFunction( self, event ) + end + end + end + end + end +end + +function BASE:SetState( Object, StateName, State ) + + local ClassNameAndID = Object:GetClassNameAndID() + + if not self.States[ClassNameAndID] then + self.States[ClassNameAndID] = {} + end + self.States[ClassNameAndID][StateName] = State + self:F2( { ClassNameAndID, StateName, State } ) + + return self.States[ClassNameAndID][StateName] +end + +function BASE:GetState( Object, StateName ) + + local ClassNameAndID = Object:GetClassNameAndID() + + if self.States[ClassNameAndID] then + local State = self.States[ClassNameAndID][StateName] + self:F2( { ClassNameAndID, StateName, State } ) + return State + end + + return nil +end + +function BASE:ClearState( Object, StateName ) + + local ClassNameAndID = Object:GetClassNameAndID() + if self.States[ClassNameAndID] then + self.States[ClassNameAndID][StateName] = nil + end +end + +-- Trace section + +-- Log a trace (only shown when trace is on) +-- TODO: Make trace function using variable parameters. + +--- Set trace on or off +-- Note that when trace is off, no debug statement is performed, increasing performance! +-- When Moose is loaded statically, (as one file), tracing is switched off by default. +-- So tracing must be switched on manually in your mission if you are using Moose statically. +-- When moose is loading dynamically (for moose class development), tracing is switched on by default. +-- @param BASE self +-- @param #boolean TraceOnOff Switch the tracing on or off. +-- @usage +-- -- Switch the tracing On +-- BASE:TraceOn( true ) +-- +-- -- Switch the tracing Off +-- BASE:TraceOn( false ) +function BASE:TraceOnOff( TraceOnOff ) + _TraceOnOff = TraceOnOff +end + +--- Set trace level +-- @param #BASE self +-- @param #number Level +function BASE:TraceLevel( Level ) + _TraceLevel = Level + self:E( "Tracing level " .. Level ) +end + +--- Trace all methods in MOOSE +-- @param #BASE self +-- @param #boolean TraceAll true = trace all methods in MOOSE. +function BASE:TraceAll( TraceAll ) + + _TraceAll = TraceAll + + if _TraceAll then + self:E( "Tracing all methods in MOOSE " ) + else + self:E( "Switched off tracing all methods in MOOSE" ) + end +end + +--- Set tracing for a class +-- @param #BASE self +-- @param #string Class +function BASE:TraceClass( Class ) + _TraceClass[Class] = true + _TraceClassMethod[Class] = {} + self:E( "Tracing class " .. Class ) +end + +--- Set tracing for a specific method of class +-- @param #BASE self +-- @param #string Class +-- @param #string Method +function BASE:TraceClassMethod( Class, Method ) + if not _TraceClassMethod[Class] then + _TraceClassMethod[Class] = {} + _TraceClassMethod[Class].Method = {} + end + _TraceClassMethod[Class].Method[Method] = true + self:E( "Tracing method " .. Method .. " of class " .. Class ) +end + +--- Trace a function call. This function is private. +-- @param #BASE self +-- @param Arguments A #table or any field. +function BASE:_F( Arguments, DebugInfoCurrentParam, DebugInfoFromParam ) + + if debug and ( _TraceAll == true ) or ( _TraceClass[self.ClassName] or _TraceClassMethod[self.ClassName] ) then + + local DebugInfoCurrent = DebugInfoCurrentParam and DebugInfoCurrentParam or debug.getinfo( 2, "nl" ) + local DebugInfoFrom = DebugInfoFromParam and DebugInfoFromParam or debug.getinfo( 3, "l" ) + + local Function = "function" + if DebugInfoCurrent.name then + Function = DebugInfoCurrent.name + end + + if _TraceAll == true or _TraceClass[self.ClassName] or _TraceClassMethod[self.ClassName].Method[Function] then + local LineCurrent = 0 + if DebugInfoCurrent.currentline then + LineCurrent = DebugInfoCurrent.currentline + end + local LineFrom = 0 + if DebugInfoFrom then + LineFrom = DebugInfoFrom.currentline + end + env.info( string.format( "%6d(%6d)/%1s:%20s%05d.%s(%s)" , LineCurrent, LineFrom, "F", self.ClassName, self.ClassID, Function, routines.utils.oneLineSerialize( Arguments ) ) ) + end + end +end + +--- Trace a function call. Must be at the beginning of the function logic. +-- @param #BASE self +-- @param Arguments A #table or any field. +function BASE:F( Arguments ) + + if debug and _TraceOnOff then + local DebugInfoCurrent = debug.getinfo( 2, "nl" ) + local DebugInfoFrom = debug.getinfo( 3, "l" ) + + if _TraceLevel >= 1 then + self:_F( Arguments, DebugInfoCurrent, DebugInfoFrom ) + end + end +end + + +--- Trace a function call level 2. Must be at the beginning of the function logic. +-- @param #BASE self +-- @param Arguments A #table or any field. +function BASE:F2( Arguments ) + + if debug and _TraceOnOff then + local DebugInfoCurrent = debug.getinfo( 2, "nl" ) + local DebugInfoFrom = debug.getinfo( 3, "l" ) + + if _TraceLevel >= 2 then + self:_F( Arguments, DebugInfoCurrent, DebugInfoFrom ) + end + end +end + +--- Trace a function call level 3. Must be at the beginning of the function logic. +-- @param #BASE self +-- @param Arguments A #table or any field. +function BASE:F3( Arguments ) + + if debug and _TraceOnOff then + local DebugInfoCurrent = debug.getinfo( 2, "nl" ) + local DebugInfoFrom = debug.getinfo( 3, "l" ) + + if _TraceLevel >= 3 then + self:_F( Arguments, DebugInfoCurrent, DebugInfoFrom ) + end + end +end + +--- Trace a function logic. +-- @param #BASE self +-- @param Arguments A #table or any field. +function BASE:_T( Arguments, DebugInfoCurrentParam, DebugInfoFromParam ) + + if debug and ( _TraceAll == true ) or ( _TraceClass[self.ClassName] or _TraceClassMethod[self.ClassName] ) then + + local DebugInfoCurrent = DebugInfoCurrentParam and DebugInfoCurrentParam or debug.getinfo( 2, "nl" ) + local DebugInfoFrom = DebugInfoFromParam and DebugInfoFromParam or debug.getinfo( 3, "l" ) + + local Function = "function" + if DebugInfoCurrent.name then + Function = DebugInfoCurrent.name + end + + if _TraceAll == true or _TraceClass[self.ClassName] or _TraceClassMethod[self.ClassName].Method[Function] then + local LineCurrent = 0 + if DebugInfoCurrent.currentline then + LineCurrent = DebugInfoCurrent.currentline + end + local LineFrom = 0 + if DebugInfoFrom then + LineFrom = DebugInfoFrom.currentline + end + env.info( string.format( "%6d(%6d)/%1s:%20s%05d.%s" , LineCurrent, LineFrom, "T", self.ClassName, self.ClassID, routines.utils.oneLineSerialize( Arguments ) ) ) + end + end +end + +--- Trace a function logic level 1. Can be anywhere within the function logic. +-- @param #BASE self +-- @param Arguments A #table or any field. +function BASE:T( Arguments ) + + if debug and _TraceOnOff then + local DebugInfoCurrent = debug.getinfo( 2, "nl" ) + local DebugInfoFrom = debug.getinfo( 3, "l" ) + + if _TraceLevel >= 1 then + self:_T( Arguments, DebugInfoCurrent, DebugInfoFrom ) + end + end +end + + +--- Trace a function logic level 2. Can be anywhere within the function logic. +-- @param #BASE self +-- @param Arguments A #table or any field. +function BASE:T2( Arguments ) + + if debug and _TraceOnOff then + local DebugInfoCurrent = debug.getinfo( 2, "nl" ) + local DebugInfoFrom = debug.getinfo( 3, "l" ) + + if _TraceLevel >= 2 then + self:_T( Arguments, DebugInfoCurrent, DebugInfoFrom ) + end + end +end + +--- Trace a function logic level 3. Can be anywhere within the function logic. +-- @param #BASE self +-- @param Arguments A #table or any field. +function BASE:T3( Arguments ) + + if debug and _TraceOnOff then + local DebugInfoCurrent = debug.getinfo( 2, "nl" ) + local DebugInfoFrom = debug.getinfo( 3, "l" ) + + if _TraceLevel >= 3 then + self:_T( Arguments, DebugInfoCurrent, DebugInfoFrom ) + end + end +end + +--- Log an exception which will be traced always. Can be anywhere within the function logic. +-- @param #BASE self +-- @param Arguments A #table or any field. +function BASE:E( Arguments ) + + if debug then + local DebugInfoCurrent = debug.getinfo( 2, "nl" ) + local DebugInfoFrom = debug.getinfo( 3, "l" ) + + local Function = "function" + if DebugInfoCurrent.name then + Function = DebugInfoCurrent.name + end + + local LineCurrent = DebugInfoCurrent.currentline + local LineFrom = -1 + if DebugInfoFrom then + LineFrom = DebugInfoFrom.currentline + end + + env.info( string.format( "%6d(%6d)/%1s:%20s%05d.%s(%s)" , LineCurrent, LineFrom, "E", self.ClassName, self.ClassID, Function, routines.utils.oneLineSerialize( Arguments ) ) ) + end + +end + + + +--- This module contains the OBJECT class. +-- +-- 1) @{Object#OBJECT} class, extends @{Base#BASE} +-- =========================================================== +-- The @{Object#OBJECT} class is a wrapper class to handle the DCS Object objects: +-- +-- * Support all DCS Object APIs. +-- * Enhance with Object specific APIs not in the DCS Object API set. +-- * Manage the "state" of the DCS Object. +-- +-- 1.1) OBJECT constructor: +-- ------------------------------ +-- The OBJECT class provides the following functions to construct a OBJECT instance: +-- +-- * @{Object#OBJECT.New}(): Create a OBJECT instance. +-- +-- 1.2) OBJECT methods: +-- -------------------------- +-- The following methods can be used to identify an Object object: +-- +-- * @{Object#OBJECT.GetID}(): Returns the ID of the Object object. +-- +-- === +-- +-- @module Object +-- @author FlightControl + +--- The OBJECT class +-- @type OBJECT +-- @extends Base#BASE +-- @field #string ObjectName The name of the Object. +OBJECT = { + ClassName = "OBJECT", + ObjectName = "", +} + + +--- A DCSObject +-- @type DCSObject +-- @field id_ The ID of the controllable in DCS + +--- Create a new OBJECT from a DCSObject +-- @param #OBJECT self +-- @param DCSObject#Object ObjectName The Object name +-- @return #OBJECT self +function OBJECT:New( ObjectName ) + local self = BASE:Inherit( self, BASE:New() ) + self:F2( ObjectName ) + self.ObjectName = ObjectName + return self +end + + +--- Returns the unit's unique identifier. +-- @param Object#OBJECT self +-- @return DCSObject#Object.ID ObjectID +-- @return #nil The DCS Object is not existing or alive. +function OBJECT:GetID() + self:F2( self.ObjectName ) + + local DCSObject = self:GetDCSObject() + + if DCSObject then + local ObjectID = DCSObject:getID() + return ObjectID + end + + return nil +end + + + +--- This module contains the IDENTIFIABLE class. +-- +-- 1) @{Identifiable#IDENTIFIABLE} class, extends @{Object#OBJECT} +-- =============================================================== +-- The @{Identifiable#IDENTIFIABLE} class is a wrapper class to handle the DCS Identifiable objects: +-- +-- * Support all DCS Identifiable APIs. +-- * Enhance with Identifiable specific APIs not in the DCS Identifiable API set. +-- * Manage the "state" of the DCS Identifiable. +-- +-- 1.1) IDENTIFIABLE constructor: +-- ------------------------------ +-- The IDENTIFIABLE class provides the following functions to construct a IDENTIFIABLE instance: +-- +-- * @{Identifiable#IDENTIFIABLE.New}(): Create a IDENTIFIABLE instance. +-- +-- 1.2) IDENTIFIABLE methods: +-- -------------------------- +-- The following methods can be used to identify an identifiable object: +-- +-- * @{Identifiable#IDENTIFIABLE.GetName}(): Returns the name of the Identifiable. +-- * @{Identifiable#IDENTIFIABLE.IsAlive}(): Returns if the Identifiable is alive. +-- * @{Identifiable#IDENTIFIABLE.GetTypeName}(): Returns the type name of the Identifiable. +-- * @{Identifiable#IDENTIFIABLE.GetCoalition}(): Returns the coalition of the Identifiable. +-- * @{Identifiable#IDENTIFIABLE.GetCountry}(): Returns the country of the Identifiable. +-- * @{Identifiable#IDENTIFIABLE.GetDesc}(): Returns the descriptor structure of the Identifiable. +-- +-- +-- === +-- +-- @module Identifiable +-- @author FlightControl + +--- The IDENTIFIABLE class +-- @type IDENTIFIABLE +-- @extends Object#OBJECT +-- @field #string IdentifiableName The name of the identifiable. +IDENTIFIABLE = { + ClassName = "IDENTIFIABLE", + IdentifiableName = "", +} + +local _CategoryName = { + [Unit.Category.AIRPLANE] = "Airplane", + [Unit.Category.HELICOPTER] = "Helicoper", + [Unit.Category.GROUND_UNIT] = "Ground Identifiable", + [Unit.Category.SHIP] = "Ship", + [Unit.Category.STRUCTURE] = "Structure", + } + +--- Create a new IDENTIFIABLE from a DCSIdentifiable +-- @param #IDENTIFIABLE self +-- @param DCSIdentifiable#Identifiable IdentifiableName The DCS Identifiable name +-- @return #IDENTIFIABLE self +function IDENTIFIABLE:New( IdentifiableName ) + local self = BASE:Inherit( self, OBJECT:New( IdentifiableName ) ) + self:F2( IdentifiableName ) + self.IdentifiableName = IdentifiableName + return self +end + +--- Returns if the Identifiable is alive. +-- @param Identifiable#IDENTIFIABLE self +-- @return #boolean true if Identifiable is alive. +-- @return #nil The DCS Identifiable is not existing or alive. +function IDENTIFIABLE:IsAlive() + self:F2( self.IdentifiableName ) + + local DCSIdentifiable = self:GetDCSObject() + + if DCSIdentifiable then + local IdentifiableIsAlive = DCSIdentifiable:isExist() + return IdentifiableIsAlive + end + + return false +end + + + + +--- Returns DCS Identifiable object name. +-- The function provides access to non-activated objects too. +-- @param Identifiable#IDENTIFIABLE self +-- @return #string The name of the DCS Identifiable. +-- @return #nil The DCS Identifiable is not existing or alive. +function IDENTIFIABLE:GetName() + self:F2( self.IdentifiableName ) + + local DCSIdentifiable = self:GetDCSObject() + + if DCSIdentifiable then + local IdentifiableName = self.IdentifiableName + return IdentifiableName + end + + self:E( self.ClassName .. " " .. self.IdentifiableName .. " not found!" ) + return nil +end + + +--- Returns the type name of the DCS Identifiable. +-- @param Identifiable#IDENTIFIABLE self +-- @return #string The type name of the DCS Identifiable. +-- @return #nil The DCS Identifiable is not existing or alive. +function IDENTIFIABLE:GetTypeName() + self:F2( self.IdentifiableName ) + + local DCSIdentifiable = self:GetDCSObject() + + if DCSIdentifiable then + local IdentifiableTypeName = DCSIdentifiable:getTypeName() + self:T3( IdentifiableTypeName ) + return IdentifiableTypeName + end + + self:E( self.ClassName .. " " .. self.IdentifiableName .. " not found!" ) + return nil +end + + +--- Returns category of the DCS Identifiable. +-- @param #IDENTIFIABLE self +-- @return DCSObject#Object.Category The category ID +function IDENTIFIABLE:GetCategory() + self:F2( self.ObjectName ) + + local DCSObject = self:GetDCSObject() + if DCSObject then + local ObjectCategory = DCSObject:getCategory() + self:T3( ObjectCategory ) + return ObjectCategory + end + + return nil +end + + +--- Returns the DCS Identifiable category name as defined within the DCS Identifiable Descriptor. +-- @param Identifiable#IDENTIFIABLE self +-- @return #string The DCS Identifiable Category Name +function IDENTIFIABLE:GetCategoryName() + local DCSIdentifiable = self:GetDCSObject() + + if DCSIdentifiable then + local IdentifiableCategoryName = _CategoryName[ self:GetDesc().category ] + return IdentifiableCategoryName + end + + self:E( self.ClassName .. " " .. self.IdentifiableName .. " not found!" ) + return nil +end + +--- Returns coalition of the Identifiable. +-- @param Identifiable#IDENTIFIABLE self +-- @return DCSCoalitionObject#coalition.side The side of the coalition. +-- @return #nil The DCS Identifiable is not existing or alive. +function IDENTIFIABLE:GetCoalition() + self:F2( self.IdentifiableName ) + + local DCSIdentifiable = self:GetDCSObject() + + if DCSIdentifiable then + local IdentifiableCoalition = DCSIdentifiable:getCoalition() + self:T3( IdentifiableCoalition ) + return IdentifiableCoalition + end + + self:E( self.ClassName .. " " .. self.IdentifiableName .. " not found!" ) + return nil +end + +--- Returns country of the Identifiable. +-- @param Identifiable#IDENTIFIABLE self +-- @return DCScountry#country.id The country identifier. +-- @return #nil The DCS Identifiable is not existing or alive. +function IDENTIFIABLE:GetCountry() + self:F2( self.IdentifiableName ) + + local DCSIdentifiable = self:GetDCSObject() + + if DCSIdentifiable then + local IdentifiableCountry = DCSIdentifiable:getCountry() + self:T3( IdentifiableCountry ) + return IdentifiableCountry + end + + self:E( self.ClassName .. " " .. self.IdentifiableName .. " not found!" ) + return nil +end + + + +--- Returns Identifiable descriptor. Descriptor type depends on Identifiable category. +-- @param Identifiable#IDENTIFIABLE self +-- @return DCSIdentifiable#Identifiable.Desc The Identifiable descriptor. +-- @return #nil The DCS Identifiable is not existing or alive. +function IDENTIFIABLE:GetDesc() + self:F2( self.IdentifiableName ) + + local DCSIdentifiable = self:GetDCSObject() + + if DCSIdentifiable then + local IdentifiableDesc = DCSIdentifiable:getDesc() + self:T2( IdentifiableDesc ) + return IdentifiableDesc + end + + self:E( self.ClassName .. " " .. self.IdentifiableName .. " not found!" ) + return nil +end + + + + + + + + + +--- This module contains the POSITIONABLE class. +-- +-- 1) @{Positionable#POSITIONABLE} class, extends @{Identifiable#IDENTIFIABLE} +-- =========================================================== +-- The @{Positionable#POSITIONABLE} class is a wrapper class to handle the DCS Positionable objects: +-- +-- * Support all DCS Positionable APIs. +-- * Enhance with Positionable specific APIs not in the DCS Positionable API set. +-- * Manage the "state" of the DCS Positionable. +-- +-- 1.1) POSITIONABLE constructor: +-- ------------------------------ +-- The POSITIONABLE class provides the following functions to construct a POSITIONABLE instance: +-- +-- * @{Positionable#POSITIONABLE.New}(): Create a POSITIONABLE instance. +-- +-- 1.2) POSITIONABLE methods: +-- -------------------------- +-- The following methods can be used to identify an measurable object: +-- +-- * @{Positionable#POSITIONABLE.GetID}(): Returns the ID of the measurable object. +-- * @{Positionable#POSITIONABLE.GetName}(): Returns the name of the measurable object. +-- +-- === +-- +-- @module Positionable +-- @author FlightControl + +--- The POSITIONABLE class +-- @type POSITIONABLE +-- @extends Identifiable#IDENTIFIABLE +-- @field #string PositionableName The name of the measurable. +POSITIONABLE = { + ClassName = "POSITIONABLE", + PositionableName = "", +} + +--- A DCSPositionable +-- @type DCSPositionable +-- @field id_ The ID of the controllable in DCS + +--- Create a new POSITIONABLE from a DCSPositionable +-- @param #POSITIONABLE self +-- @param DCSPositionable#Positionable PositionableName The DCS Positionable name +-- @return #POSITIONABLE self +function POSITIONABLE:New( PositionableName ) + local self = BASE:Inherit( self, IDENTIFIABLE:New( PositionableName ) ) + + return self +end + +--- Returns the @{DCSTypes#Position3} position vectors indicating the point and direction vectors in 3D of the DCS Positionable within the mission. +-- @param Positionable#POSITIONABLE self +-- @return DCSTypes#Position The 3D position vectors of the DCS Positionable. +-- @return #nil The DCS Positionable is not existing or alive. +function POSITIONABLE:GetPositionVec3() + self:F2( self.PositionableName ) + + local DCSPositionable = self:GetDCSObject() + + if DCSPositionable then + local PositionablePosition = DCSPositionable:getPosition() + self:T3( PositionablePosition ) + return PositionablePosition + end + + return nil +end + +--- Returns the @{DCSTypes#Vec2} vector indicating the point in 2D of the DCS Positionable within the mission. +-- @param Positionable#POSITIONABLE self +-- @return DCSTypes#Vec2 The 2D point vector of the DCS Positionable. +-- @return #nil The DCS Positionable is not existing or alive. +function POSITIONABLE:GetPointVec2() + self:F2( self.PositionableName ) + + local DCSPositionable = self:GetDCSObject() + + if DCSPositionable then + local PositionablePointVec3 = DCSPositionable:getPosition().p + + local PositionablePointVec2 = {} + PositionablePointVec2.x = PositionablePointVec3.x + PositionablePointVec2.y = PositionablePointVec3.z + + self:T2( PositionablePointVec2 ) + return PositionablePointVec2 + end + + return nil +end + + +--- Returns the @{DCSTypes#Vec3} vector indicating the point in 3D of the DCS Positionable within the mission. +-- @param Positionable#POSITIONABLE self +-- @return DCSTypes#Vec3 The 3D point vector of the DCS Positionable. +-- @return #nil The DCS Positionable is not existing or alive. +function POSITIONABLE:GetPointVec3() + self:F2( self.PositionableName ) + + local DCSPositionable = self:GetDCSObject() + + if DCSPositionable then + local PositionablePointVec3 = DCSPositionable:getPosition().p + self:T3( PositionablePointVec3 ) + return PositionablePointVec3 + end + + return nil +end + +--- Returns the altitude of the DCS Positionable. +-- @param Positionable#POSITIONABLE self +-- @return DCSTypes#Distance The altitude of the DCS Positionable. +-- @return #nil The DCS Positionable is not existing or alive. +function POSITIONABLE:GetAltitude() + self:F2() + + local DCSPositionable = self:GetDCSObject() + + if DCSPositionable then + local PositionablePointVec3 = DCSPositionable:getPoint() --DCSTypes#Vec3 + return PositionablePointVec3.y + end + + return nil +end + +--- Returns if the Positionable is located above a runway. +-- @param Positionable#POSITIONABLE self +-- @return #boolean true if Positionable is above a runway. +-- @return #nil The DCS Positionable is not existing or alive. +function POSITIONABLE:IsAboveRunway() + self:F2( self.PositionableName ) + + local DCSPositionable = self:GetDCSObject() + + if DCSPositionable then + + local PointVec2 = self:GetPointVec2() + local SurfaceType = land.getSurfaceType( PointVec2 ) + local IsAboveRunway = SurfaceType == land.SurfaceType.RUNWAY + + self:T2( IsAboveRunway ) + return IsAboveRunway + end + + return nil +end + + + +--- Returns the DCS Positionable heading. +-- @param Positionable#POSITIONABLE self +-- @return #number The DCS Positionable heading +function POSITIONABLE:GetHeading() + local DCSPositionable = self:GetDCSObject() + + if DCSPositionable then + + local PositionablePosition = DCSPositionable:getPosition() + if PositionablePosition then + local PositionableHeading = math.atan2( PositionablePosition.x.z, PositionablePosition.x.x ) + if PositionableHeading < 0 then + PositionableHeading = PositionableHeading + 2 * math.pi + end + self:T2( PositionableHeading ) + return PositionableHeading + end + end + + return nil +end + + +--- Returns true if the DCS Positionable is in the air. +-- @param Positionable#POSITIONABLE self +-- @return #boolean true if in the air. +-- @return #nil The DCS Positionable is not existing or alive. +function POSITIONABLE:InAir() + self:F2( self.PositionableName ) + + local DCSPositionable = self:GetDCSObject() + + if DCSPositionable then + local PositionableInAir = DCSPositionable:inAir() + self:T3( PositionableInAir ) + return PositionableInAir + end + + return nil +end + +--- Returns the DCS Positionable velocity vector. +-- @param Positionable#POSITIONABLE self +-- @return DCSTypes#Vec3 The velocity vector +-- @return #nil The DCS Positionable is not existing or alive. +function POSITIONABLE:GetVelocity() + self:F2( self.PositionableName ) + + local DCSPositionable = self:GetDCSObject() + + if DCSPositionable then + local PositionableVelocityVec3 = DCSPositionable:getVelocity() + self:T3( PositionableVelocityVec3 ) + return PositionableVelocityVec3 + end + + return nil +end + + + +--- This module contains the CONTROLLABLE class. +-- +-- 1) @{Controllable#CONTROLLABLE} class, extends @{Positionable#POSITIONABLE} +-- =========================================================== +-- The @{Controllable#CONTROLLABLE} class is a wrapper class to handle the DCS Controllable objects: +-- +-- * Support all DCS Controllable APIs. +-- * Enhance with Controllable specific APIs not in the DCS Controllable API set. +-- * Handle local Controllable Controller. +-- * Manage the "state" of the DCS Controllable. +-- +-- 1.1) CONTROLLABLE constructor +-- ----------------------------- +-- The CONTROLLABLE class provides the following functions to construct a CONTROLLABLE instance: +-- +-- * @{#CONTROLLABLE.New}(): Create a CONTROLLABLE instance. +-- +-- 1.2) CONTROLLABLE task methods +-- ------------------------------ +-- Several controllable task methods are available that help you to prepare tasks. +-- These methods return a string consisting of the task description, which can then be given to either a @{Controllable#CONTROLLABLE.PushTask} or @{Controllable#SetTask} method to assign the task to the CONTROLLABLE. +-- Tasks are specific for the category of the CONTROLLABLE, more specific, for AIR, GROUND or AIR and GROUND. +-- Each task description where applicable indicates for which controllable category the task is valid. +-- There are 2 main subdivisions of tasks: Assigned tasks and EnRoute tasks. +-- +-- ### 1.2.1) Assigned task methods +-- +-- Assigned task methods make the controllable execute the task where the location of the (possible) targets of the task are known before being detected. +-- This is different from the EnRoute tasks, where the targets of the task need to be detected before the task can be executed. +-- +-- Find below a list of the **assigned task** methods: +-- +-- * @{#CONTROLLABLE.TaskAttackControllable}: (AIR) Attack a Controllable. +-- * @{#CONTROLLABLE.TaskAttackMapObject}: (AIR) Attacking the map object (building, structure, e.t.c). +-- * @{#CONTROLLABLE.TaskAttackUnit}: (AIR) Attack the Unit. +-- * @{#CONTROLLABLE.TaskBombing}: (AIR) Delivering weapon at the point on the ground. +-- * @{#CONTROLLABLE.TaskBombingRunway}: (AIR) Delivering weapon on the runway. +-- * @{#CONTROLLABLE.TaskEmbarking}: (AIR) Move the controllable to a Vec2 Point, wait for a defined duration and embark a controllable. +-- * @{#CONTROLLABLE.TaskEmbarkToTransport}: (GROUND) Embark to a Transport landed at a location. +-- * @{#CONTROLLABLE.TaskEscort}: (AIR) Escort another airborne controllable. +-- * @{#CONTROLLABLE.TaskFAC_AttackControllable}: (AIR + GROUND) The task makes the controllable/unit a FAC and orders the FAC to control the target (enemy ground controllable) destruction. +-- * @{#CONTROLLABLE.TaskFireAtPoint}: (GROUND) Fire at a VEC2 point until ammunition is finished. +-- * @{#CONTROLLABLE.TaskFollow}: (AIR) Following another airborne controllable. +-- * @{#CONTROLLABLE.TaskHold}: (GROUND) Hold ground controllable from moving. +-- * @{#CONTROLLABLE.TaskHoldPosition}: (AIR) Hold position at the current position of the first unit of the controllable. +-- * @{#CONTROLLABLE.TaskLand}: (AIR HELICOPTER) Landing at the ground. For helicopters only. +-- * @{#CONTROLLABLE.TaskLandAtZone}: (AIR) Land the controllable at a @{Zone#ZONE_RADIUS). +-- * @{#CONTROLLABLE.TaskOrbitCircle}: (AIR) Orbit at the current position of the first unit of the controllable at a specified alititude. +-- * @{#CONTROLLABLE.TaskOrbitCircleAtVec2}: (AIR) Orbit at a specified position at a specified alititude during a specified duration with a specified speed. +-- * @{#CONTROLLABLE.TaskRefueling}: (AIR) Refueling from the nearest tanker. No parameters. +-- * @{#CONTROLLABLE.TaskRoute}: (AIR + GROUND) Return a Misson task to follow a given route defined by Points. +-- * @{#CONTROLLABLE.TaskRouteToVec2}: (AIR + GROUND) Make the Controllable move to a given point. +-- * @{#CONTROLLABLE.TaskRouteToVec3}: (AIR + GROUND) Make the Controllable move to a given point. +-- * @{#CONTROLLABLE.TaskRouteToZone}: (AIR + GROUND) Route the controllable to a given zone. +-- * @{#CONTROLLABLE.TaskReturnToBase}: (AIR) Route the controllable to an airbase. +-- +-- ### 1.2.2) EnRoute task methods +-- +-- EnRoute tasks require the targets of the task need to be detected by the controllable (using its sensors) before the task can be executed: +-- +-- * @{#CONTROLLABLE.EnRouteTaskAWACS}: (AIR) Aircraft will act as an AWACS for friendly units (will provide them with information about contacts). No parameters. +-- * @{#CONTROLLABLE.EnRouteTaskEngageControllable}: (AIR) Engaging a controllable. The task does not assign the target controllable to the unit/controllable to attack now; it just allows the unit/controllable to engage the target controllable as well as other assigned targets. +-- * @{#CONTROLLABLE.EnRouteTaskEngageTargets}: (AIR) Engaging targets of defined types. +-- * @{#CONTROLLABLE.EnRouteTaskEWR}: (AIR) Attack the Unit. +-- * @{#CONTROLLABLE.EnRouteTaskFAC}: (AIR + GROUND) The task makes the controllable/unit a FAC and lets the FAC to choose a targets (enemy ground controllable) around as well as other assigned targets. +-- * @{#CONTROLLABLE.EnRouteTaskFAC_EngageControllable}: (AIR + GROUND) The task makes the controllable/unit a FAC and lets the FAC to choose the target (enemy ground controllable) as well as other assigned targets. +-- * @{#CONTROLLABLE.EnRouteTaskTanker}: (AIR) Aircraft will act as a tanker for friendly units. No parameters. +-- +-- ### 1.2.3) Preparation task methods +-- +-- There are certain task methods that allow to tailor the task behaviour: +-- +-- * @{#CONTROLLABLE.TaskWrappedAction}: Return a WrappedAction Task taking a Command. +-- * @{#CONTROLLABLE.TaskCombo}: Return a Combo Task taking an array of Tasks. +-- * @{#CONTROLLABLE.TaskCondition}: Return a condition section for a controlled task. +-- * @{#CONTROLLABLE.TaskControlled}: Return a Controlled Task taking a Task and a TaskCondition. +-- +-- ### 1.2.4) Obtain the mission from controllable templates +-- +-- Controllable templates contain complete mission descriptions. Sometimes you want to copy a complete mission from a controllable and assign it to another: +-- +-- * @{#CONTROLLABLE.TaskMission}: (AIR + GROUND) Return a mission task from a mission template. +-- +-- 1.3) CONTROLLABLE Command methods +-- -------------------------- +-- Controllable **command methods** prepare the execution of commands using the @{#CONTROLLABLE.SetCommand} method: +-- +-- * @{#CONTROLLABLE.CommandDoScript}: Do Script command. +-- * @{#CONTROLLABLE.CommandSwitchWayPoint}: Perform a switch waypoint command. +-- +-- 1.4) CONTROLLABLE Option methods +-- ------------------------- +-- Controllable **Option methods** change the behaviour of the Controllable while being alive. +-- +-- ### 1.4.1) Rule of Engagement: +-- +-- * @{#CONTROLLABLE.OptionROEWeaponFree} +-- * @{#CONTROLLABLE.OptionROEOpenFire} +-- * @{#CONTROLLABLE.OptionROEReturnFire} +-- * @{#CONTROLLABLE.OptionROEEvadeFire} +-- +-- To check whether an ROE option is valid for a specific controllable, use: +-- +-- * @{#CONTROLLABLE.OptionROEWeaponFreePossible} +-- * @{#CONTROLLABLE.OptionROEOpenFirePossible} +-- * @{#CONTROLLABLE.OptionROEReturnFirePossible} +-- * @{#CONTROLLABLE.OptionROEEvadeFirePossible} +-- +-- ### 1.4.2) Rule on thread: +-- +-- * @{#CONTROLLABLE.OptionROTNoReaction} +-- * @{#CONTROLLABLE.OptionROTPassiveDefense} +-- * @{#CONTROLLABLE.OptionROTEvadeFire} +-- * @{#CONTROLLABLE.OptionROTVertical} +-- +-- To test whether an ROT option is valid for a specific controllable, use: +-- +-- * @{#CONTROLLABLE.OptionROTNoReactionPossible} +-- * @{#CONTROLLABLE.OptionROTPassiveDefensePossible} +-- * @{#CONTROLLABLE.OptionROTEvadeFirePossible} +-- * @{#CONTROLLABLE.OptionROTVerticalPossible} +-- +-- === +-- +-- @module Controllable +-- @author FlightControl + +--- The CONTROLLABLE class +-- @type CONTROLLABLE +-- @extends Positionable#POSITIONABLE +-- @field DCSControllable#Controllable DCSControllable The DCS controllable class. +-- @field #string ControllableName The name of the controllable. +CONTROLLABLE = { + ClassName = "CONTROLLABLE", + ControllableName = "", + WayPointFunctions = {}, +} + +--- Create a new CONTROLLABLE from a DCSControllable +-- @param #CONTROLLABLE self +-- @param DCSControllable#Controllable ControllableName The DCS Controllable name +-- @return #CONTROLLABLE self +function CONTROLLABLE:New( ControllableName ) + local self = BASE:Inherit( self, POSITIONABLE:New( ControllableName ) ) + self:F2( ControllableName ) + self.ControllableName = ControllableName + return self +end + +-- DCS Controllable methods support. + +--- Get the controller for the CONTROLLABLE. +-- @param #CONTROLLABLE self +-- @return DCSController#Controller +function CONTROLLABLE:_GetController() + self:F2( { self.ControllableName } ) + local DCSControllable = self:GetDCSObject() + + if DCSControllable then + local ControllableController = DCSControllable:getController() + self:T3( ControllableController ) + return ControllableController + end + + return nil +end + + + +-- Tasks + +--- Popping current Task from the controllable. +-- @param #CONTROLLABLE self +-- @return Controllable#CONTROLLABLE self +function CONTROLLABLE:PopCurrentTask() + self:F2() + + local DCSControllable = self:GetDCSObject() + + if DCSControllable then + local Controller = self:_GetController() + Controller:popTask() + return self + end + + return nil +end + +--- Pushing Task on the queue from the controllable. +-- @param #CONTROLLABLE self +-- @return Controllable#CONTROLLABLE self +function CONTROLLABLE:PushTask( DCSTask, WaitTime ) + self:F2() + + local DCSControllable = self:GetDCSObject() + + if DCSControllable then + local Controller = self:_GetController() + + -- When a controllable SPAWNs, it takes about a second to get the controllable in the simulator. Setting tasks to unspawned controllables provides unexpected results. + -- Therefore we schedule the functions to set the mission and options for the Controllable. + -- Controller:pushTask( DCSTask ) + + if WaitTime then + SCHEDULER:New( Controller, Controller.pushTask, { DCSTask }, WaitTime ) + else + Controller:pushTask( DCSTask ) + end + + return self + end + + return nil +end + +--- Clearing the Task Queue and Setting the Task on the queue from the controllable. +-- @param #CONTROLLABLE self +-- @return Controllable#CONTROLLABLE self +function CONTROLLABLE:SetTask( DCSTask, WaitTime ) + self:F2( { DCSTask } ) + + local DCSControllable = self:GetDCSObject() + + if DCSControllable then + + local Controller = self:_GetController() + + -- When a controllable SPAWNs, it takes about a second to get the controllable in the simulator. Setting tasks to unspawned controllables provides unexpected results. + -- Therefore we schedule the functions to set the mission and options for the Controllable. + -- Controller.setTask( Controller, DCSTask ) + + if not WaitTime then + WaitTime = 1 + end + SCHEDULER:New( Controller, Controller.setTask, { DCSTask }, WaitTime ) + + return self + end + + return nil +end + + +--- Return a condition section for a controlled task. +-- @param #CONTROLLABLE self +-- @param DCSTime#Time time +-- @param #string userFlag +-- @param #boolean userFlagValue +-- @param #string condition +-- @param DCSTime#Time duration +-- @param #number lastWayPoint +-- return DCSTask#Task +function CONTROLLABLE:TaskCondition( time, userFlag, userFlagValue, condition, duration, lastWayPoint ) + self:F2( { time, userFlag, userFlagValue, condition, duration, lastWayPoint } ) + + local DCSStopCondition = {} + DCSStopCondition.time = time + DCSStopCondition.userFlag = userFlag + DCSStopCondition.userFlagValue = userFlagValue + DCSStopCondition.condition = condition + DCSStopCondition.duration = duration + DCSStopCondition.lastWayPoint = lastWayPoint + + self:T3( { DCSStopCondition } ) + return DCSStopCondition +end + +--- Return a Controlled Task taking a Task and a TaskCondition. +-- @param #CONTROLLABLE self +-- @param DCSTask#Task DCSTask +-- @param #DCSStopCondition DCSStopCondition +-- @return DCSTask#Task +function CONTROLLABLE:TaskControlled( DCSTask, DCSStopCondition ) + self:F2( { DCSTask, DCSStopCondition } ) + + local DCSTaskControlled + + DCSTaskControlled = { + id = 'ControlledTask', + params = { + task = DCSTask, + stopCondition = DCSStopCondition + } + } + + self:T3( { DCSTaskControlled } ) + return DCSTaskControlled +end + +--- Return a Combo Task taking an array of Tasks. +-- @param #CONTROLLABLE self +-- @param DCSTask#TaskArray DCSTasks Array of @{DCSTask#Task} +-- @return DCSTask#Task +function CONTROLLABLE:TaskCombo( DCSTasks ) + self:F2( { DCSTasks } ) + + local DCSTaskCombo + + DCSTaskCombo = { + id = 'ComboTask', + params = { + tasks = DCSTasks + } + } + + self:T3( { DCSTaskCombo } ) + return DCSTaskCombo +end + +--- Return a WrappedAction Task taking a Command. +-- @param #CONTROLLABLE self +-- @param DCSCommand#Command DCSCommand +-- @return DCSTask#Task +function CONTROLLABLE:TaskWrappedAction( DCSCommand, Index ) + self:F2( { DCSCommand } ) + + local DCSTaskWrappedAction + + DCSTaskWrappedAction = { + id = "WrappedAction", + enabled = true, + number = Index, + auto = false, + params = { + action = DCSCommand, + }, + } + + self:T3( { DCSTaskWrappedAction } ) + return DCSTaskWrappedAction +end + +--- Executes a command action +-- @param #CONTROLLABLE self +-- @param DCSCommand#Command DCSCommand +-- @return #CONTROLLABLE self +function CONTROLLABLE:SetCommand( DCSCommand ) + self:F2( DCSCommand ) + + local DCSControllable = self:GetDCSObject() + + if DCSControllable then + local Controller = self:_GetController() + Controller:setCommand( DCSCommand ) + return self + end + + return nil +end + +--- Perform a switch waypoint command +-- @param #CONTROLLABLE self +-- @param #number FromWayPoint +-- @param #number ToWayPoint +-- @return DCSTask#Task +-- @usage +-- --- This test demonstrates the use(s) of the SwitchWayPoint method of the GROUP class. +-- HeliGroup = GROUP:FindByName( "Helicopter" ) +-- +-- --- Route the helicopter back to the FARP after 60 seconds. +-- -- We use the SCHEDULER class to do this. +-- SCHEDULER:New( nil, +-- function( HeliGroup ) +-- local CommandRTB = HeliGroup:CommandSwitchWayPoint( 2, 8 ) +-- HeliGroup:SetCommand( CommandRTB ) +-- end, { HeliGroup }, 90 +-- ) +function CONTROLLABLE:CommandSwitchWayPoint( FromWayPoint, ToWayPoint ) + self:F2( { FromWayPoint, ToWayPoint } ) + + local CommandSwitchWayPoint = { + id = 'SwitchWaypoint', + params = { + fromWaypointIndex = FromWayPoint, + goToWaypointIndex = ToWayPoint, + }, + } + + self:T3( { CommandSwitchWayPoint } ) + return CommandSwitchWayPoint +end + +--- Perform stop route command +-- @param #CONTROLLABLE self +-- @param #boolean StopRoute +-- @return DCSTask#Task +function CONTROLLABLE:CommandStopRoute( StopRoute, Index ) + self:F2( { StopRoute, Index } ) + + local CommandStopRoute = { + id = 'StopRoute', + params = { + value = StopRoute, + }, + } + + self:T3( { CommandStopRoute } ) + return CommandStopRoute +end + + +-- TASKS FOR AIR CONTROLLABLES + + +--- (AIR) Attack a Controllable. +-- @param #CONTROLLABLE self +-- @param Controllable#CONTROLLABLE AttackGroup The Controllable to be attacked. +-- @param #number WeaponType (optional) Bitmask of weapon types those allowed to use. If parameter is not defined that means no limits on weapon usage. +-- @param DCSTypes#AI.Task.WeaponExpend WeaponExpend (optional) Determines how much weapon will be released at each attack. If parameter is not defined the unit / controllable will choose expend on its own discretion. +-- @param #number AttackQty (optional) This parameter limits maximal quantity of attack. The aicraft/controllable will not make more attack than allowed even if the target controllable not destroyed and the aicraft/controllable still have ammo. If not defined the aircraft/controllable will attack target until it will be destroyed or until the aircraft/controllable will run out of ammo. +-- @param DCSTypes#Azimuth Direction (optional) Desired ingress direction from the target to the attacking aircraft. Controllable/aircraft will make its attacks from the direction. Of course if there is no way to attack from the direction due the terrain controllable/aircraft will choose another direction. +-- @param DCSTypes#Distance Altitude (optional) Desired attack start altitude. Controllable/aircraft will make its attacks from the altitude. If the altitude is too low or too high to use weapon aircraft/controllable will choose closest altitude to the desired attack start altitude. If the desired altitude is defined controllable/aircraft will not attack from safe altitude. +-- @param #boolean AttackQtyLimit (optional) The flag determines how to interpret attackQty parameter. If the flag is true then attackQty is a limit on maximal attack quantity for "AttackControllable" and "AttackUnit" tasks. If the flag is false then attackQty is a desired attack quantity for "Bombing" and "BombingRunway" tasks. +-- @return DCSTask#Task The DCS task structure. +function CONTROLLABLE:TaskAttackGroup( AttackGroup, WeaponType, WeaponExpend, AttackQty, Direction, Altitude, AttackQtyLimit ) + self:F2( { self.ControllableName, AttackGroup, WeaponType, WeaponExpend, AttackQty, Direction, Altitude, AttackQtyLimit } ) + + -- AttackControllable = { + -- id = 'AttackControllable', + -- params = { + -- controllableId = Controllable.ID, + -- weaponType = number, + -- expend = enum AI.Task.WeaponExpend, + -- attackQty = number, + -- directionEnabled = boolean, + -- direction = Azimuth, + -- altitudeEnabled = boolean, + -- altitude = Distance, + -- attackQtyLimit = boolean, + -- } + -- } + + local DirectionEnabled = nil + if Direction then + DirectionEnabled = true + end + + local AltitudeEnabled = nil + if Altitude then + AltitudeEnabled = true + end + + local DCSTask + DCSTask = { id = 'AttackControllable', + params = { + controllableId = AttackGroup:GetID(), + weaponType = WeaponType, + expend = WeaponExpend, + attackQty = AttackQty, + directionEnabled = DirectionEnabled, + direction = Direction, + altitudeEnabled = AltitudeEnabled, + altitude = Altitude, + attackQtyLimit = AttackQtyLimit, + }, + }, + + self:T3( { DCSTask } ) + return DCSTask +end + + +--- (AIR) Attack the Unit. +-- @param #CONTROLLABLE self +-- @param Unit#UNIT AttackUnit The unit. +-- @param #number WeaponType (optional) Bitmask of weapon types those allowed to use. If parameter is not defined that means no limits on weapon usage. +-- @param DCSTypes#AI.Task.WeaponExpend WeaponExpend (optional) Determines how much weapon will be released at each attack. If parameter is not defined the unit / controllable will choose expend on its own discretion. +-- @param #number AttackQty (optional) This parameter limits maximal quantity of attack. The aicraft/controllable will not make more attack than allowed even if the target controllable not destroyed and the aicraft/controllable still have ammo. If not defined the aircraft/controllable will attack target until it will be destroyed or until the aircraft/controllable will run out of ammo. +-- @param DCSTypes#Azimuth Direction (optional) Desired ingress direction from the target to the attacking aircraft. Controllable/aircraft will make its attacks from the direction. Of course if there is no way to attack from the direction due the terrain controllable/aircraft will choose another direction. +-- @param #boolean AttackQtyLimit (optional) The flag determines how to interpret attackQty parameter. If the flag is true then attackQty is a limit on maximal attack quantity for "AttackControllable" and "AttackUnit" tasks. If the flag is false then attackQty is a desired attack quantity for "Bombing" and "BombingRunway" tasks. +-- @param #boolean ControllableAttack (optional) Flag indicates that the target must be engaged by all aircrafts of the controllable. Has effect only if the task is assigned to a controllable, not to a single aircraft. +-- @return DCSTask#Task The DCS task structure. +function CONTROLLABLE:TaskAttackUnit( AttackUnit, WeaponType, WeaponExpend, AttackQty, Direction, AttackQtyLimit, ControllableAttack ) + self:F2( { self.ControllableName, AttackUnit, WeaponType, WeaponExpend, AttackQty, Direction, AttackQtyLimit, ControllableAttack } ) + + -- AttackUnit = { + -- id = 'AttackUnit', + -- params = { + -- unitId = Unit.ID, + -- weaponType = number, + -- expend = enum AI.Task.WeaponExpend + -- attackQty = number, + -- direction = Azimuth, + -- attackQtyLimit = boolean, + -- controllableAttack = boolean, + -- } + -- } + + local DCSTask + DCSTask = { id = 'AttackUnit', + params = { + unitId = AttackUnit:GetID(), + weaponType = WeaponType, + expend = WeaponExpend, + attackQty = AttackQty, + direction = Direction, + attackQtyLimit = AttackQtyLimit, + controllableAttack = ControllableAttack, + }, + }, + + self:T3( { DCSTask } ) + return DCSTask +end + + +--- (AIR) Delivering weapon at the point on the ground. +-- @param #CONTROLLABLE self +-- @param DCSTypes#Vec2 PointVec2 2D-coordinates of the point to deliver weapon at. +-- @param #number WeaponType (optional) Bitmask of weapon types those allowed to use. If parameter is not defined that means no limits on weapon usage. +-- @param DCSTypes#AI.Task.WeaponExpend WeaponExpend (optional) Determines how much weapon will be released at each attack. If parameter is not defined the unit / controllable will choose expend on its own discretion. +-- @param #number AttackQty (optional) Desired quantity of passes. The parameter is not the same in AttackControllable and AttackUnit tasks. +-- @param DCSTypes#Azimuth Direction (optional) Desired ingress direction from the target to the attacking aircraft. Controllable/aircraft will make its attacks from the direction. Of course if there is no way to attack from the direction due the terrain controllable/aircraft will choose another direction. +-- @param #boolean ControllableAttack (optional) Flag indicates that the target must be engaged by all aircrafts of the controllable. Has effect only if the task is assigned to a controllable, not to a single aircraft. +-- @return DCSTask#Task The DCS task structure. +function CONTROLLABLE:TaskBombing( PointVec2, WeaponType, WeaponExpend, AttackQty, Direction, ControllableAttack ) + self:F2( { self.ControllableName, PointVec2, WeaponType, WeaponExpend, AttackQty, Direction, ControllableAttack } ) + +-- Bombing = { +-- id = 'Bombing', +-- params = { +-- point = Vec2, +-- weaponType = number, +-- expend = enum AI.Task.WeaponExpend, +-- attackQty = number, +-- direction = Azimuth, +-- controllableAttack = boolean, +-- } +-- } + + local DCSTask + DCSTask = { id = 'Bombing', + params = { + point = PointVec2, + weaponType = WeaponType, + expend = WeaponExpend, + attackQty = AttackQty, + direction = Direction, + controllableAttack = ControllableAttack, + }, + }, + + self:T3( { DCSTask } ) + return DCSTask +end + +--- (AIR) Orbit at a specified position at a specified alititude during a specified duration with a specified speed. +-- @param #CONTROLLABLE self +-- @param DCSTypes#Vec2 Point The point to hold the position. +-- @param #number Altitude The altitude to hold the position. +-- @param #number Speed The speed flying when holding the position. +-- @return #CONTROLLABLE self +function CONTROLLABLE:TaskOrbitCircleAtVec2( Point, Altitude, Speed ) + self:F2( { self.ControllableName, Point, Altitude, Speed } ) + + -- pattern = enum AI.Task.OribtPattern, + -- point = Vec2, + -- point2 = Vec2, + -- speed = Distance, + -- altitude = Distance + + local LandHeight = land.getHeight( Point ) + + self:T3( { LandHeight } ) + + local DCSTask = { id = 'Orbit', + params = { pattern = AI.Task.OrbitPattern.CIRCLE, + point = Point, + speed = Speed, + altitude = Altitude + LandHeight + } + } + + + -- local AITask = { id = 'ControlledTask', + -- params = { task = { id = 'Orbit', + -- params = { pattern = AI.Task.OrbitPattern.CIRCLE, + -- point = Point, + -- speed = Speed, + -- altitude = Altitude + LandHeight + -- } + -- }, + -- stopCondition = { duration = Duration + -- } + -- } + -- } + -- ) + + return DCSTask +end + +--- (AIR) Orbit at the current position of the first unit of the controllable at a specified alititude. +-- @param #CONTROLLABLE self +-- @param #number Altitude The altitude to hold the position. +-- @param #number Speed The speed flying when holding the position. +-- @return #CONTROLLABLE self +function CONTROLLABLE:TaskOrbitCircle( Altitude, Speed ) + self:F2( { self.ControllableName, Altitude, Speed } ) + + local DCSControllable = self:GetDCSObject() + + if DCSControllable then + local ControllablePoint = self:GetPointVec2() + return self:TaskOrbitCircleAtVec2( ControllablePoint, Altitude, Speed ) + end + + return nil +end + + + +--- (AIR) Hold position at the current position of the first unit of the controllable. +-- @param #CONTROLLABLE self +-- @param #number Duration The maximum duration in seconds to hold the position. +-- @return #CONTROLLABLE self +function CONTROLLABLE:TaskHoldPosition() + self:F2( { self.ControllableName } ) + + return self:TaskOrbitCircle( 30, 10 ) +end + + + + +--- (AIR) Attacking the map object (building, structure, e.t.c). +-- @param #CONTROLLABLE self +-- @param DCSTypes#Vec2 PointVec2 2D-coordinates of the point the map object is closest to. The distance between the point and the map object must not be greater than 2000 meters. Object id is not used here because Mission Editor doesn't support map object identificators. +-- @param #number WeaponType (optional) Bitmask of weapon types those allowed to use. If parameter is not defined that means no limits on weapon usage. +-- @param DCSTypes#AI.Task.WeaponExpend WeaponExpend (optional) Determines how much weapon will be released at each attack. If parameter is not defined the unit / controllable will choose expend on its own discretion. +-- @param #number AttackQty (optional) This parameter limits maximal quantity of attack. The aicraft/controllable will not make more attack than allowed even if the target controllable not destroyed and the aicraft/controllable still have ammo. If not defined the aircraft/controllable will attack target until it will be destroyed or until the aircraft/controllable will run out of ammo. +-- @param DCSTypes#Azimuth Direction (optional) Desired ingress direction from the target to the attacking aircraft. Controllable/aircraft will make its attacks from the direction. Of course if there is no way to attack from the direction due the terrain controllable/aircraft will choose another direction. +-- @param #boolean ControllableAttack (optional) Flag indicates that the target must be engaged by all aircrafts of the controllable. Has effect only if the task is assigned to a controllable, not to a single aircraft. +-- @return DCSTask#Task The DCS task structure. +function CONTROLLABLE:TaskAttackMapObject( PointVec2, WeaponType, WeaponExpend, AttackQty, Direction, ControllableAttack ) + self:F2( { self.ControllableName, PointVec2, WeaponType, WeaponExpend, AttackQty, Direction, ControllableAttack } ) + +-- AttackMapObject = { +-- id = 'AttackMapObject', +-- params = { +-- point = Vec2, +-- weaponType = number, +-- expend = enum AI.Task.WeaponExpend, +-- attackQty = number, +-- direction = Azimuth, +-- controllableAttack = boolean, +-- } +-- } + + local DCSTask + DCSTask = { id = 'AttackMapObject', + params = { + point = PointVec2, + weaponType = WeaponType, + expend = WeaponExpend, + attackQty = AttackQty, + direction = Direction, + controllableAttack = ControllableAttack, + }, + }, + + self:T3( { DCSTask } ) + return DCSTask +end + + +--- (AIR) Delivering weapon on the runway. +-- @param #CONTROLLABLE self +-- @param Airbase#AIRBASE Airbase Airbase to attack. +-- @param #number WeaponType (optional) Bitmask of weapon types those allowed to use. If parameter is not defined that means no limits on weapon usage. +-- @param DCSTypes#AI.Task.WeaponExpend WeaponExpend (optional) Determines how much weapon will be released at each attack. If parameter is not defined the unit / controllable will choose expend on its own discretion. +-- @param #number AttackQty (optional) This parameter limits maximal quantity of attack. The aicraft/controllable will not make more attack than allowed even if the target controllable not destroyed and the aicraft/controllable still have ammo. If not defined the aircraft/controllable will attack target until it will be destroyed or until the aircraft/controllable will run out of ammo. +-- @param DCSTypes#Azimuth Direction (optional) Desired ingress direction from the target to the attacking aircraft. Controllable/aircraft will make its attacks from the direction. Of course if there is no way to attack from the direction due the terrain controllable/aircraft will choose another direction. +-- @param #boolean ControllableAttack (optional) Flag indicates that the target must be engaged by all aircrafts of the controllable. Has effect only if the task is assigned to a controllable, not to a single aircraft. +-- @return DCSTask#Task The DCS task structure. +function CONTROLLABLE:TaskBombingRunway( Airbase, WeaponType, WeaponExpend, AttackQty, Direction, ControllableAttack ) + self:F2( { self.ControllableName, Airbase, WeaponType, WeaponExpend, AttackQty, Direction, ControllableAttack } ) + +-- BombingRunway = { +-- id = 'BombingRunway', +-- params = { +-- runwayId = AirdromeId, +-- weaponType = number, +-- expend = enum AI.Task.WeaponExpend, +-- attackQty = number, +-- direction = Azimuth, +-- controllableAttack = boolean, +-- } +-- } + + local DCSTask + DCSTask = { id = 'BombingRunway', + params = { + point = Airbase:GetID(), + weaponType = WeaponType, + expend = WeaponExpend, + attackQty = AttackQty, + direction = Direction, + controllableAttack = ControllableAttack, + }, + }, + + self:T3( { DCSTask } ) + return DCSTask +end + + +--- (AIR) Refueling from the nearest tanker. No parameters. +-- @param #CONTROLLABLE self +-- @return DCSTask#Task The DCS task structure. +function CONTROLLABLE:TaskRefueling() + self:F2( { self.ControllableName } ) + +-- Refueling = { +-- id = 'Refueling', +-- params = {} +-- } + + local DCSTask + DCSTask = { id = 'Refueling', + params = { + }, + }, + + self:T3( { DCSTask } ) + return DCSTask +end + + +--- (AIR HELICOPTER) Landing at the ground. For helicopters only. +-- @param #CONTROLLABLE self +-- @param DCSTypes#Vec2 Point The point where to land. +-- @param #number Duration The duration in seconds to stay on the ground. +-- @return #CONTROLLABLE self +function CONTROLLABLE:TaskLandAtVec2( Point, Duration ) + self:F2( { self.ControllableName, Point, Duration } ) + +-- Land = { +-- id= 'Land', +-- params = { +-- point = Vec2, +-- durationFlag = boolean, +-- duration = Time +-- } +-- } + + local DCSTask + if Duration and Duration > 0 then + DCSTask = { id = 'Land', + params = { + point = Point, + durationFlag = true, + duration = Duration, + }, + } + else + DCSTask = { id = 'Land', + params = { + point = Point, + durationFlag = false, + }, + } + end + + self:T3( DCSTask ) + return DCSTask +end + +--- (AIR) Land the controllable at a @{Zone#ZONE_RADIUS). +-- @param #CONTROLLABLE self +-- @param Zone#ZONE Zone The zone where to land. +-- @param #number Duration The duration in seconds to stay on the ground. +-- @return #CONTROLLABLE self +function CONTROLLABLE:TaskLandAtZone( Zone, Duration, RandomPoint ) + self:F2( { self.ControllableName, Zone, Duration, RandomPoint } ) + + local Point + if RandomPoint then + Point = Zone:GetRandomVec2() + else + Point = Zone:GetPointVec2() + end + + local DCSTask = self:TaskLandAtVec2( Point, Duration ) + + self:T3( DCSTask ) + return DCSTask +end + + + +--- (AIR) Following another airborne controllable. +-- The unit / controllable will follow lead unit of another controllable, wingmens of both controllables will continue following their leaders. +-- If another controllable is on land the unit / controllable will orbit around. +-- @param #CONTROLLABLE self +-- @param Controllable#CONTROLLABLE FollowControllable The controllable to be followed. +-- @param DCSTypes#Vec3 PointVec3 Position of the unit / lead unit of the controllable relative lead unit of another controllable in frame reference oriented by course of lead unit of another controllable. If another controllable is on land the unit / controllable will orbit around. +-- @param #number LastWaypointIndex Detach waypoint of another controllable. Once reached the unit / controllable Follow task is finished. +-- @return DCSTask#Task The DCS task structure. +function CONTROLLABLE:TaskFollow( FollowControllable, PointVec3, LastWaypointIndex ) + self:F2( { self.ControllableName, FollowControllable, PointVec3, LastWaypointIndex } ) + +-- Follow = { +-- id = 'Follow', +-- params = { +-- controllableId = Controllable.ID, +-- pos = Vec3, +-- lastWptIndexFlag = boolean, +-- lastWptIndex = number +-- } +-- } + + local LastWaypointIndexFlag = nil + if LastWaypointIndex then + LastWaypointIndexFlag = true + end + + local DCSTask + DCSTask = { id = 'Follow', + params = { + controllableId = FollowControllable:GetID(), + pos = PointVec3, + lastWptIndexFlag = LastWaypointIndexFlag, + lastWptIndex = LastWaypointIndex, + }, + }, + + self:T3( { DCSTask } ) + return DCSTask +end + + +--- (AIR) Escort another airborne controllable. +-- The unit / controllable will follow lead unit of another controllable, wingmens of both controllables will continue following their leaders. +-- The unit / controllable will also protect that controllable from threats of specified types. +-- @param #CONTROLLABLE self +-- @param Controllable#CONTROLLABLE EscortControllable The controllable to be escorted. +-- @param DCSTypes#Vec3 PointVec3 Position of the unit / lead unit of the controllable relative lead unit of another controllable in frame reference oriented by course of lead unit of another controllable. If another controllable is on land the unit / controllable will orbit around. +-- @param #number LastWaypointIndex Detach waypoint of another controllable. Once reached the unit / controllable Follow task is finished. +-- @param #number EngagementDistanceMax Maximal distance from escorted controllable to threat. If the threat is already engaged by escort escort will disengage if the distance becomes greater than 1.5 * engagementDistMax. +-- @param DCSTypes#AttributeNameArray TargetTypes Array of AttributeName that is contains threat categories allowed to engage. +-- @return DCSTask#Task The DCS task structure. +function CONTROLLABLE:TaskEscort( FollowControllable, PointVec3, LastWaypointIndex, EngagementDistance, TargetTypes ) + self:F2( { self.ControllableName, FollowControllable, PointVec3, LastWaypointIndex, EngagementDistance, TargetTypes } ) + +-- Escort = { +-- id = 'Escort', +-- params = { +-- controllableId = Controllable.ID, +-- pos = Vec3, +-- lastWptIndexFlag = boolean, +-- lastWptIndex = number, +-- engagementDistMax = Distance, +-- targetTypes = array of AttributeName, +-- } +-- } + + local LastWaypointIndexFlag = nil + if LastWaypointIndex then + LastWaypointIndexFlag = true + end + + local DCSTask + DCSTask = { id = 'Follow', + params = { + controllableId = FollowControllable:GetID(), + pos = PointVec3, + lastWptIndexFlag = LastWaypointIndexFlag, + lastWptIndex = LastWaypointIndex, + engagementDistMax = EngagementDistance, + targetTypes = TargetTypes, + }, + }, + + self:T3( { DCSTask } ) + return DCSTask +end + + +-- GROUND TASKS + +--- (GROUND) Fire at a VEC2 point until ammunition is finished. +-- @param #CONTROLLABLE self +-- @param DCSTypes#Vec2 PointVec2 The point to fire at. +-- @param DCSTypes#Distance Radius The radius of the zone to deploy the fire at. +-- @return DCSTask#Task The DCS task structure. +function CONTROLLABLE:TaskFireAtPoint( PointVec2, Radius ) + self:F2( { self.ControllableName, PointVec2, Radius } ) + + -- FireAtPoint = { + -- id = 'FireAtPoint', + -- params = { + -- point = Vec2, + -- radius = Distance, + -- } + -- } + + local DCSTask + DCSTask = { id = 'FireAtPoint', + params = { + point = PointVec2, + radius = Radius, + } + } + + self:T3( { DCSTask } ) + return DCSTask +end + +--- (GROUND) Hold ground controllable from moving. +-- @param #CONTROLLABLE self +-- @return DCSTask#Task The DCS task structure. +function CONTROLLABLE:TaskHold() + self:F2( { self.ControllableName } ) + +-- Hold = { +-- id = 'Hold', +-- params = { +-- } +-- } + + local DCSTask + DCSTask = { id = 'Hold', + params = { + } + } + + self:T3( { DCSTask } ) + return DCSTask +end + + +-- TASKS FOR AIRBORNE AND GROUND UNITS/CONTROLLABLES + +--- (AIR + GROUND) The task makes the controllable/unit a FAC and orders the FAC to control the target (enemy ground controllable) destruction. +-- The killer is player-controlled allied CAS-aircraft that is in contact with the FAC. +-- If the task is assigned to the controllable lead unit will be a FAC. +-- @param #CONTROLLABLE self +-- @param Controllable#CONTROLLABLE AttackGroup Target CONTROLLABLE. +-- @param #number WeaponType Bitmask of weapon types those allowed to use. If parameter is not defined that means no limits on weapon usage. +-- @param DCSTypes#AI.Task.Designation Designation (optional) Designation type. +-- @param #boolean Datalink (optional) Allows to use datalink to send the target information to attack aircraft. Enabled by default. +-- @return DCSTask#Task The DCS task structure. +function CONTROLLABLE:TaskFAC_AttackGroup( AttackGroup, WeaponType, Designation, Datalink ) + self:F2( { self.ControllableName, AttackGroup, WeaponType, Designation, Datalink } ) + +-- FAC_AttackControllable = { +-- id = 'FAC_AttackControllable', +-- params = { +-- controllableId = Controllable.ID, +-- weaponType = number, +-- designation = enum AI.Task.Designation, +-- datalink = boolean +-- } +-- } + + local DCSTask + DCSTask = { id = 'FAC_AttackControllable', + params = { + controllableId = AttackGroup:GetID(), + weaponType = WeaponType, + designation = Designation, + datalink = Datalink, + } + } + + self:T3( { DCSTask } ) + return DCSTask +end + +-- EN-ROUTE TASKS FOR AIRBORNE CONTROLLABLES + +--- (AIR) Engaging targets of defined types. +-- @param #CONTROLLABLE self +-- @param DCSTypes#Distance Distance Maximal distance from the target to a route leg. If the target is on a greater distance it will be ignored. +-- @param DCSTypes#AttributeNameArray TargetTypes Array of target categories allowed to engage. +-- @param #number Priority All enroute tasks have the priority parameter. This is a number (less value - higher priority) that determines actions related to what task will be performed first. +-- @return DCSTask#Task The DCS task structure. +function CONTROLLABLE:EnRouteTaskEngageTargets( Distance, TargetTypes, Priority ) + self:F2( { self.ControllableName, Distance, TargetTypes, Priority } ) + +-- EngageTargets ={ +-- id = 'EngageTargets', +-- params = { +-- maxDist = Distance, +-- targetTypes = array of AttributeName, +-- priority = number +-- } +-- } + + local DCSTask + DCSTask = { id = 'EngageTargets', + params = { + maxDist = Distance, + targetTypes = TargetTypes, + priority = Priority + } + } + + self:T3( { DCSTask } ) + return DCSTask +end + + + +--- (AIR) Engaging a targets of defined types at circle-shaped zone. +-- @param #CONTROLLABLE self +-- @param DCSTypes#Vec2 PointVec2 2D-coordinates of the zone. +-- @param DCSTypes#Distance Radius Radius of the zone. +-- @param DCSTypes#AttributeNameArray TargetTypes Array of target categories allowed to engage. +-- @param #number Priority All en-route tasks have the priority parameter. This is a number (less value - higher priority) that determines actions related to what task will be performed first. +-- @return DCSTask#Task The DCS task structure. +function CONTROLLABLE:EnRouteTaskEngageTargets( PointVec2, Radius, TargetTypes, Priority ) + self:F2( { self.ControllableName, PointVec2, Radius, TargetTypes, Priority } ) + +-- EngageTargetsInZone = { +-- id = 'EngageTargetsInZone', +-- params = { +-- point = Vec2, +-- zoneRadius = Distance, +-- targetTypes = array of AttributeName, +-- priority = number +-- } +-- } + + local DCSTask + DCSTask = { id = 'EngageTargetsInZone', + params = { + point = PointVec2, + zoneRadius = Radius, + targetTypes = TargetTypes, + priority = Priority + } + } + + self:T3( { DCSTask } ) + return DCSTask +end + + +--- (AIR) Engaging a controllable. The task does not assign the target controllable to the unit/controllable to attack now; it just allows the unit/controllable to engage the target controllable as well as other assigned targets. +-- @param #CONTROLLABLE self +-- @param Controllable#CONTROLLABLE AttackGroup The Controllable to be attacked. +-- @param #number Priority All en-route tasks have the priority parameter. This is a number (less value - higher priority) that determines actions related to what task will be performed first. +-- @param #number WeaponType (optional) Bitmask of weapon types those allowed to use. If parameter is not defined that means no limits on weapon usage. +-- @param DCSTypes#AI.Task.WeaponExpend WeaponExpend (optional) Determines how much weapon will be released at each attack. If parameter is not defined the unit / controllable will choose expend on its own discretion. +-- @param #number AttackQty (optional) This parameter limits maximal quantity of attack. The aicraft/controllable will not make more attack than allowed even if the target controllable not destroyed and the aicraft/controllable still have ammo. If not defined the aircraft/controllable will attack target until it will be destroyed or until the aircraft/controllable will run out of ammo. +-- @param DCSTypes#Azimuth Direction (optional) Desired ingress direction from the target to the attacking aircraft. Controllable/aircraft will make its attacks from the direction. Of course if there is no way to attack from the direction due the terrain controllable/aircraft will choose another direction. +-- @param DCSTypes#Distance Altitude (optional) Desired attack start altitude. Controllable/aircraft will make its attacks from the altitude. If the altitude is too low or too high to use weapon aircraft/controllable will choose closest altitude to the desired attack start altitude. If the desired altitude is defined controllable/aircraft will not attack from safe altitude. +-- @param #boolean AttackQtyLimit (optional) The flag determines how to interpret attackQty parameter. If the flag is true then attackQty is a limit on maximal attack quantity for "AttackControllable" and "AttackUnit" tasks. If the flag is false then attackQty is a desired attack quantity for "Bombing" and "BombingRunway" tasks. +-- @return DCSTask#Task The DCS task structure. +function CONTROLLABLE:EnRouteTaskEngageGroup( AttackGroup, Priority, WeaponType, WeaponExpend, AttackQty, Direction, Altitude, AttackQtyLimit ) + self:F2( { self.ControllableName, AttackGroup, Priority, WeaponType, WeaponExpend, AttackQty, Direction, Altitude, AttackQtyLimit } ) + + -- EngageControllable = { + -- id = 'EngageControllable ', + -- params = { + -- controllableId = Controllable.ID, + -- weaponType = number, + -- expend = enum AI.Task.WeaponExpend, + -- attackQty = number, + -- directionEnabled = boolean, + -- direction = Azimuth, + -- altitudeEnabled = boolean, + -- altitude = Distance, + -- attackQtyLimit = boolean, + -- priority = number, + -- } + -- } + + local DirectionEnabled = nil + if Direction then + DirectionEnabled = true + end + + local AltitudeEnabled = nil + if Altitude then + AltitudeEnabled = true + end + + local DCSTask + DCSTask = { id = 'EngageControllable', + params = { + controllableId = AttackGroup:GetID(), + weaponType = WeaponType, + expend = WeaponExpend, + attackQty = AttackQty, + directionEnabled = DirectionEnabled, + direction = Direction, + altitudeEnabled = AltitudeEnabled, + altitude = Altitude, + attackQtyLimit = AttackQtyLimit, + priority = Priority, + }, + }, + + self:T3( { DCSTask } ) + return DCSTask +end + + +--- (AIR) Attack the Unit. +-- @param #CONTROLLABLE self +-- @param Unit#UNIT AttackUnit The UNIT. +-- @param #number Priority All en-route tasks have the priority parameter. This is a number (less value - higher priority) that determines actions related to what task will be performed first. +-- @param #number WeaponType (optional) Bitmask of weapon types those allowed to use. If parameter is not defined that means no limits on weapon usage. +-- @param DCSTypes#AI.Task.WeaponExpend WeaponExpend (optional) Determines how much weapon will be released at each attack. If parameter is not defined the unit / controllable will choose expend on its own discretion. +-- @param #number AttackQty (optional) This parameter limits maximal quantity of attack. The aicraft/controllable will not make more attack than allowed even if the target controllable not destroyed and the aicraft/controllable still have ammo. If not defined the aircraft/controllable will attack target until it will be destroyed or until the aircraft/controllable will run out of ammo. +-- @param DCSTypes#Azimuth Direction (optional) Desired ingress direction from the target to the attacking aircraft. Controllable/aircraft will make its attacks from the direction. Of course if there is no way to attack from the direction due the terrain controllable/aircraft will choose another direction. +-- @param #boolean AttackQtyLimit (optional) The flag determines how to interpret attackQty parameter. If the flag is true then attackQty is a limit on maximal attack quantity for "AttackControllable" and "AttackUnit" tasks. If the flag is false then attackQty is a desired attack quantity for "Bombing" and "BombingRunway" tasks. +-- @param #boolean ControllableAttack (optional) Flag indicates that the target must be engaged by all aircrafts of the controllable. Has effect only if the task is assigned to a controllable, not to a single aircraft. +-- @return DCSTask#Task The DCS task structure. +function CONTROLLABLE:EnRouteTaskEngageUnit( AttackUnit, Priority, WeaponType, WeaponExpend, AttackQty, Direction, AttackQtyLimit, ControllableAttack ) + self:F2( { self.ControllableName, AttackUnit, Priority, WeaponType, WeaponExpend, AttackQty, Direction, AttackQtyLimit, ControllableAttack } ) + + -- EngageUnit = { + -- id = 'EngageUnit', + -- params = { + -- unitId = Unit.ID, + -- weaponType = number, + -- expend = enum AI.Task.WeaponExpend + -- attackQty = number, + -- direction = Azimuth, + -- attackQtyLimit = boolean, + -- controllableAttack = boolean, + -- priority = number, + -- } + -- } + + local DCSTask + DCSTask = { id = 'EngageUnit', + params = { + unitId = AttackUnit:GetID(), + weaponType = WeaponType, + expend = WeaponExpend, + attackQty = AttackQty, + direction = Direction, + attackQtyLimit = AttackQtyLimit, + controllableAttack = ControllableAttack, + priority = Priority, + }, + }, + + self:T3( { DCSTask } ) + return DCSTask +end + + + +--- (AIR) Aircraft will act as an AWACS for friendly units (will provide them with information about contacts). No parameters. +-- @param #CONTROLLABLE self +-- @return DCSTask#Task The DCS task structure. +function CONTROLLABLE:EnRouteTaskAWACS( ) + self:F2( { self.ControllableName } ) + +-- AWACS = { +-- id = 'AWACS', +-- params = { +-- } +-- } + + local DCSTask + DCSTask = { id = 'AWACS', + params = { + } + } + + self:T3( { DCSTask } ) + return DCSTask +end + + +--- (AIR) Aircraft will act as a tanker for friendly units. No parameters. +-- @param #CONTROLLABLE self +-- @return DCSTask#Task The DCS task structure. +function CONTROLLABLE:EnRouteTaskTanker( ) + self:F2( { self.ControllableName } ) + +-- Tanker = { +-- id = 'Tanker', +-- params = { +-- } +-- } + + local DCSTask + DCSTask = { id = 'Tanker', + params = { + } + } + + self:T3( { DCSTask } ) + return DCSTask +end + + +-- En-route tasks for ground units/controllables + +--- (GROUND) Ground unit (EW-radar) will act as an EWR for friendly units (will provide them with information about contacts). No parameters. +-- @param #CONTROLLABLE self +-- @return DCSTask#Task The DCS task structure. +function CONTROLLABLE:EnRouteTaskEWR( ) + self:F2( { self.ControllableName } ) + +-- EWR = { +-- id = 'EWR', +-- params = { +-- } +-- } + + local DCSTask + DCSTask = { id = 'EWR', + params = { + } + } + + self:T3( { DCSTask } ) + return DCSTask +end + + +-- En-route tasks for airborne and ground units/controllables + +--- (AIR + GROUND) The task makes the controllable/unit a FAC and lets the FAC to choose the target (enemy ground controllable) as well as other assigned targets. +-- The killer is player-controlled allied CAS-aircraft that is in contact with the FAC. +-- If the task is assigned to the controllable lead unit will be a FAC. +-- @param #CONTROLLABLE self +-- @param Controllable#CONTROLLABLE AttackGroup Target CONTROLLABLE. +-- @param #number Priority All en-route tasks have the priority parameter. This is a number (less value - higher priority) that determines actions related to what task will be performed first. +-- @param #number WeaponType Bitmask of weapon types those allowed to use. If parameter is not defined that means no limits on weapon usage. +-- @param DCSTypes#AI.Task.Designation Designation (optional) Designation type. +-- @param #boolean Datalink (optional) Allows to use datalink to send the target information to attack aircraft. Enabled by default. +-- @return DCSTask#Task The DCS task structure. +function CONTROLLABLE:EnRouteTaskFAC_EngageGroup( AttackGroup, Priority, WeaponType, Designation, Datalink ) + self:F2( { self.ControllableName, AttackGroup, WeaponType, Priority, Designation, Datalink } ) + +-- FAC_EngageControllable = { +-- id = 'FAC_EngageControllable', +-- params = { +-- controllableId = Controllable.ID, +-- weaponType = number, +-- designation = enum AI.Task.Designation, +-- datalink = boolean, +-- priority = number, +-- } +-- } + + local DCSTask + DCSTask = { id = 'FAC_EngageControllable', + params = { + controllableId = AttackGroup:GetID(), + weaponType = WeaponType, + designation = Designation, + datalink = Datalink, + priority = Priority, + } + } + + self:T3( { DCSTask } ) + return DCSTask +end + + +--- (AIR + GROUND) The task makes the controllable/unit a FAC and lets the FAC to choose a targets (enemy ground controllable) around as well as other assigned targets. +-- The killer is player-controlled allied CAS-aircraft that is in contact with the FAC. +-- If the task is assigned to the controllable lead unit will be a FAC. +-- @param #CONTROLLABLE self +-- @param DCSTypes#Distance Radius The maximal distance from the FAC to a target. +-- @param #number Priority All en-route tasks have the priority parameter. This is a number (less value - higher priority) that determines actions related to what task will be performed first. +-- @return DCSTask#Task The DCS task structure. +function CONTROLLABLE:EnRouteTaskFAC( Radius, Priority ) + self:F2( { self.ControllableName, Radius, Priority } ) + +-- FAC = { +-- id = 'FAC', +-- params = { +-- radius = Distance, +-- priority = number +-- } +-- } + + local DCSTask + DCSTask = { id = 'FAC', + params = { + radius = Radius, + priority = Priority + } + } + + self:T3( { DCSTask } ) + return DCSTask +end + + + + +--- (AIR) Move the controllable to a Vec2 Point, wait for a defined duration and embark a controllable. +-- @param #CONTROLLABLE self +-- @param DCSTypes#Vec2 Point The point where to wait. +-- @param #number Duration The duration in seconds to wait. +-- @param #CONTROLLABLE EmbarkingControllable The controllable to be embarked. +-- @return DCSTask#Task The DCS task structure +function CONTROLLABLE:TaskEmbarking( Point, Duration, EmbarkingControllable ) + self:F2( { self.ControllableName, Point, Duration, EmbarkingControllable.DCSControllable } ) + + local DCSTask + DCSTask = { id = 'Embarking', + params = { x = Point.x, + y = Point.y, + duration = Duration, + controllablesForEmbarking = { EmbarkingControllable.ControllableID }, + durationFlag = true, + distributionFlag = false, + distribution = {}, + } + } + + self:T3( { DCSTask } ) + return DCSTask +end + +--- (GROUND) Embark to a Transport landed at a location. + +--- Move to a defined Vec2 Point, and embark to a controllable when arrived within a defined Radius. +-- @param #CONTROLLABLE self +-- @param DCSTypes#Vec2 Point The point where to wait. +-- @param #number Radius The radius of the embarking zone around the Point. +-- @return DCSTask#Task The DCS task structure. +function CONTROLLABLE:TaskEmbarkToTransport( Point, Radius ) + self:F2( { self.ControllableName, Point, Radius } ) + + local DCSTask --DCSTask#Task + DCSTask = { id = 'EmbarkToTransport', + params = { x = Point.x, + y = Point.y, + zoneRadius = Radius, + } + } + + self:T3( { DCSTask } ) + return DCSTask +end + + + +--- (AIR + GROUND) Return a mission task from a mission template. +-- @param #CONTROLLABLE self +-- @param #table TaskMission A table containing the mission task. +-- @return DCSTask#Task +function CONTROLLABLE:TaskMission( TaskMission ) + self:F2( Points ) + + local DCSTask + DCSTask = { id = 'Mission', params = { TaskMission, }, } + + self:T3( { DCSTask } ) + return DCSTask +end + +--- Return a Misson task to follow a given route defined by Points. +-- @param #CONTROLLABLE self +-- @param #table Points A table of route points. +-- @return DCSTask#Task +function CONTROLLABLE:TaskRoute( Points ) + self:F2( Points ) + + local DCSTask + DCSTask = { id = 'Mission', params = { route = { points = Points, }, }, } + + self:T3( { DCSTask } ) + return DCSTask +end + +--- (AIR + GROUND) Make the Controllable move to fly to a given point. +-- @param #CONTROLLABLE self +-- @param DCSTypes#Vec3 Point The destination point in Vec3 format. +-- @param #number Speed The speed to travel. +-- @return #CONTROLLABLE self +function CONTROLLABLE:TaskRouteToVec2( Point, Speed ) + self:F2( { Point, Speed } ) + + local ControllablePoint = self:GetUnit( 1 ):GetPointVec2() + + local PointFrom = {} + PointFrom.x = ControllablePoint.x + PointFrom.y = ControllablePoint.y + PointFrom.type = "Turning Point" + PointFrom.action = "Turning Point" + PointFrom.speed = Speed + PointFrom.speed_locked = true + PointFrom.properties = { + ["vnav"] = 1, + ["scale"] = 0, + ["angle"] = 0, + ["vangle"] = 0, + ["steer"] = 2, + } + + + local PointTo = {} + PointTo.x = Point.x + PointTo.y = Point.y + PointTo.type = "Turning Point" + PointTo.action = "Fly Over Point" + PointTo.speed = Speed + PointTo.speed_locked = true + PointTo.properties = { + ["vnav"] = 1, + ["scale"] = 0, + ["angle"] = 0, + ["vangle"] = 0, + ["steer"] = 2, + } + + + local Points = { PointFrom, PointTo } + + self:T3( Points ) + + self:Route( Points ) + + return self +end + +--- (AIR + GROUND) Make the Controllable move to a given point. +-- @param #CONTROLLABLE self +-- @param DCSTypes#Vec3 Point The destination point in Vec3 format. +-- @param #number Speed The speed to travel. +-- @return #CONTROLLABLE self +function CONTROLLABLE:TaskRouteToVec3( Point, Speed ) + self:F2( { Point, Speed } ) + + local ControllablePoint = self:GetUnit( 1 ):GetPointVec3() + + local PointFrom = {} + PointFrom.x = ControllablePoint.x + PointFrom.y = ControllablePoint.z + PointFrom.alt = ControllablePoint.y + PointFrom.alt_type = "BARO" + PointFrom.type = "Turning Point" + PointFrom.action = "Turning Point" + PointFrom.speed = Speed + PointFrom.speed_locked = true + PointFrom.properties = { + ["vnav"] = 1, + ["scale"] = 0, + ["angle"] = 0, + ["vangle"] = 0, + ["steer"] = 2, + } + + + local PointTo = {} + PointTo.x = Point.x + PointTo.y = Point.z + PointTo.alt = Point.y + PointTo.alt_type = "BARO" + PointTo.type = "Turning Point" + PointTo.action = "Fly Over Point" + PointTo.speed = Speed + PointTo.speed_locked = true + PointTo.properties = { + ["vnav"] = 1, + ["scale"] = 0, + ["angle"] = 0, + ["vangle"] = 0, + ["steer"] = 2, + } + + + local Points = { PointFrom, PointTo } + + self:T3( Points ) + + self:Route( Points ) + + return self +end + + + +--- Make the controllable to follow a given route. +-- @param #CONTROLLABLE self +-- @param #table GoPoints A table of Route Points. +-- @return #CONTROLLABLE self +function CONTROLLABLE:Route( GoPoints ) + self:F2( GoPoints ) + + local DCSControllable = self:GetDCSObject() + + if DCSControllable then + local Points = routines.utils.deepCopy( GoPoints ) + local MissionTask = { id = 'Mission', params = { route = { points = Points, }, }, } + local Controller = self:_GetController() + --Controller.setTask( Controller, MissionTask ) + SCHEDULER:New( Controller, Controller.setTask, { MissionTask }, 1 ) + return self + end + + return nil +end + + + +--- (AIR + GROUND) Route the controllable to a given zone. +-- The controllable final destination point can be randomized. +-- A speed can be given in km/h. +-- A given formation can be given. +-- @param #CONTROLLABLE self +-- @param Zone#ZONE Zone The zone where to route to. +-- @param #boolean Randomize Defines whether to target point gets randomized within the Zone. +-- @param #number Speed The speed. +-- @param Base#FORMATION Formation The formation string. +function CONTROLLABLE:TaskRouteToZone( Zone, Randomize, Speed, Formation ) + self:F2( Zone ) + + local DCSControllable = self:GetDCSObject() + + if DCSControllable then + + local ControllablePoint = self:GetPointVec2() + + local PointFrom = {} + PointFrom.x = ControllablePoint.x + PointFrom.y = ControllablePoint.y + PointFrom.type = "Turning Point" + PointFrom.action = "Cone" + PointFrom.speed = 20 / 1.6 + + + local PointTo = {} + local ZonePoint + + if Randomize then + ZonePoint = Zone:GetRandomVec2() + else + ZonePoint = Zone:GetPointVec2() + end + + PointTo.x = ZonePoint.x + PointTo.y = ZonePoint.y + PointTo.type = "Turning Point" + + if Formation then + PointTo.action = Formation + else + PointTo.action = "Cone" + end + + if Speed then + PointTo.speed = Speed + else + PointTo.speed = 20 / 1.6 + end + + local Points = { PointFrom, PointTo } + + self:T3( Points ) + + self:Route( Points ) + + return self + end + + return nil +end + +--- (AIR) Return the Controllable to an @{Airbase#AIRBASE} +-- A speed can be given in km/h. +-- A given formation can be given. +-- @param #CONTROLLABLE self +-- @param Airbase#AIRBASE ReturnAirbase The @{Airbase#AIRBASE} to return to. +-- @param #number Speed (optional) The speed. +-- @return #string The route +function CONTROLLABLE:RouteReturnToAirbase( ReturnAirbase, Speed ) + self:F2( { ReturnAirbase, Speed } ) + +-- Example +-- [4] = +-- { +-- ["alt"] = 45, +-- ["type"] = "Land", +-- ["action"] = "Landing", +-- ["alt_type"] = "BARO", +-- ["formation_template"] = "", +-- ["properties"] = +-- { +-- ["vnav"] = 1, +-- ["scale"] = 0, +-- ["angle"] = 0, +-- ["vangle"] = 0, +-- ["steer"] = 2, +-- }, -- end of ["properties"] +-- ["ETA"] = 527.81058817743, +-- ["airdromeId"] = 12, +-- ["y"] = 243127.2973737, +-- ["x"] = -5406.2803440839, +-- ["name"] = "DictKey_WptName_53", +-- ["speed"] = 138.88888888889, +-- ["ETA_locked"] = false, +-- ["task"] = +-- { +-- ["id"] = "ComboTask", +-- ["params"] = +-- { +-- ["tasks"] = +-- { +-- }, -- end of ["tasks"] +-- }, -- end of ["params"] +-- }, -- end of ["task"] +-- ["speed_locked"] = true, +-- }, -- end of [4] + + + local DCSControllable = self:GetDCSObject() + + if DCSControllable then + + local ControllablePoint = self:GetPointVec2() + local ControllableVelocity = self:GetMaxVelocity() + + local PointFrom = {} + PointFrom.x = ControllablePoint.x + PointFrom.y = ControllablePoint.y + PointFrom.type = "Turning Point" + PointFrom.action = "Turning Point" + PointFrom.speed = ControllableVelocity + + + local PointTo = {} + local AirbasePoint = ReturnAirbase:GetPointVec2() + + PointTo.x = AirbasePoint.x + PointTo.y = AirbasePoint.y + PointTo.type = "Land" + PointTo.action = "Landing" + PointTo.airdromeId = ReturnAirbase:GetID()-- Airdrome ID + self:T(PointTo.airdromeId) + --PointTo.alt = 0 + + local Points = { PointFrom, PointTo } + + self:T3( Points ) + + local Route = { points = Points, } + + return Route + end + + return nil +end + +-- Commands + +--- Do Script command +-- @param #CONTROLLABLE self +-- @param #string DoScript +-- @return #DCSCommand +function CONTROLLABLE:CommandDoScript( DoScript ) + + local DCSDoScript = { + id = "Script", + params = { + command = DoScript, + }, + } + + self:T3( DCSDoScript ) + return DCSDoScript +end + + +--- Return the mission template of the controllable. +-- @param #CONTROLLABLE self +-- @return #table The MissionTemplate +-- TODO: Rework the method how to retrieve a template ... +function CONTROLLABLE:GetTaskMission() + self:F2( self.ControllableName ) + + return routines.utils.deepCopy( _DATABASE.Templates.Controllables[self.ControllableName].Template ) +end + +--- Return the mission route of the controllable. +-- @param #CONTROLLABLE self +-- @return #table The mission route defined by points. +function CONTROLLABLE:GetTaskRoute() + self:F2( self.ControllableName ) + + return routines.utils.deepCopy( _DATABASE.Templates.Controllables[self.ControllableName].Template.route.points ) +end + +--- Return the route of a controllable by using the @{Database#DATABASE} class. +-- @param #CONTROLLABLE self +-- @param #number Begin The route point from where the copy will start. The base route point is 0. +-- @param #number End The route point where the copy will end. The End point is the last point - the End point. The last point has base 0. +-- @param #boolean Randomize Randomization of the route, when true. +-- @param #number Radius When randomization is on, the randomization is within the radius. +function CONTROLLABLE:CopyRoute( Begin, End, Randomize, Radius ) + self:F2( { Begin, End } ) + + local Points = {} + + -- Could be a Spawned Controllable + local ControllableName = string.match( self:GetName(), ".*#" ) + if ControllableName then + ControllableName = ControllableName:sub( 1, -2 ) + else + ControllableName = self:GetName() + end + + self:T3( { ControllableName } ) + + local Template = _DATABASE.Templates.Controllables[ControllableName].Template + + if Template then + if not Begin then + Begin = 0 + end + if not End then + End = 0 + end + + for TPointID = Begin + 1, #Template.route.points - End do + if Template.route.points[TPointID] then + Points[#Points+1] = routines.utils.deepCopy( Template.route.points[TPointID] ) + if Randomize then + if not Radius then + Radius = 500 + end + Points[#Points].x = Points[#Points].x + math.random( Radius * -1, Radius ) + Points[#Points].y = Points[#Points].y + math.random( Radius * -1, Radius ) + end + end + end + return Points + else + error( "Template not found for Controllable : " .. ControllableName ) + end + + return nil +end + + +--- Return the detected targets of the controllable. +-- The optional parametes specify the detection methods that can be applied. +-- If no detection method is given, the detection will use all the available methods by default. +-- @param Controllable#CONTROLLABLE self +-- @param #boolean DetectVisual (optional) +-- @param #boolean DetectOptical (optional) +-- @param #boolean DetectRadar (optional) +-- @param #boolean DetectIRST (optional) +-- @param #boolean DetectRWR (optional) +-- @param #boolean DetectDLINK (optional) +-- @return #table DetectedTargets +function CONTROLLABLE:GetDetectedTargets( DetectVisual, DetectOptical, DetectRadar, DetectIRST, DetectRWR, DetectDLINK ) + self:F2( self.ControllableName ) + + local DCSControllable = self:GetDCSObject() + if DCSControllable then + local DetectionVisual = ( DetectVisual and DetectVisual == true ) and Controller.Detection.VISUAL or nil + local DetectionOptical = ( DetectOptical and DetectOptical == true ) and Controller.Detection.OPTICAL or nil + local DetectionRadar = ( DetectRadar and DetectRadar == true ) and Controller.Detection.RADAR or nil + local DetectionIRST = ( DetectIRST and DetectIRST == true ) and Controller.Detection.IRST or nil + local DetectionRWR = ( DetectRWR and DetectRWR == true ) and Controller.Detection.RWR or nil + local DetectionDLINK = ( DetectDLINK and DetectDLINK == true ) and Controller.Detection.DLINK or nil + + + return self:_GetController():getDetectedTargets( DetectionVisual, DetectionOptical, DetectionRadar, DetectionIRST, DetectionRWR, DetectionDLINK ) + end + + return nil +end + +function CONTROLLABLE:IsTargetDetected( DCSObject ) + self:F2( self.ControllableName ) + + local DCSControllable = self:GetDCSObject() + if DCSControllable then + + local TargetIsDetected, TargetIsVisible, TargetLastTime, TargetKnowType, TargetKnowDistance, TargetLastPos, TargetLastVelocity + = self:_GetController().isTargetDetected( self:_GetController(), DCSObject, + Controller.Detection.VISUAL, + Controller.Detection.OPTIC, + Controller.Detection.RADAR, + Controller.Detection.IRST, + Controller.Detection.RWR, + Controller.Detection.DLINK + ) + return TargetIsDetected, TargetIsVisible, TargetLastTime, TargetKnowType, TargetKnowDistance, TargetLastPos, TargetLastVelocity + end + + return nil +end + +-- Options + +--- Can the CONTROLLABLE hold their weapons? +-- @param #CONTROLLABLE self +-- @return #boolean +function CONTROLLABLE:OptionROEHoldFirePossible() + self:F2( { self.ControllableName } ) + + local DCSControllable = self:GetDCSObject() + if DCSControllable then + if self:IsAir() or self:IsGround() or self:IsShip() then + return true + end + + return false + end + + return nil +end + +--- Holding weapons. +-- @param Controllable#CONTROLLABLE self +-- @return Controllable#CONTROLLABLE self +function CONTROLLABLE:OptionROEHoldFire() + self:F2( { self.ControllableName } ) + + local DCSControllable = self:GetDCSObject() + if DCSControllable then + local Controller = self:_GetController() + + if self:IsAir() then + Controller:setOption( AI.Option.Air.id.ROE, AI.Option.Air.val.ROE.WEAPON_HOLD ) + elseif self:IsGround() then + Controller:setOption( AI.Option.Ground.id.ROE, AI.Option.Ground.val.ROE.WEAPON_HOLD ) + elseif self:IsShip() then + Controller:setOption( AI.Option.Naval.id.ROE, AI.Option.Naval.val.ROE.WEAPON_HOLD ) + end + + return self + end + + return nil +end + +--- Can the CONTROLLABLE attack returning on enemy fire? +-- @param #CONTROLLABLE self +-- @return #boolean +function CONTROLLABLE:OptionROEReturnFirePossible() + self:F2( { self.ControllableName } ) + + local DCSControllable = self:GetDCSObject() + if DCSControllable then + if self:IsAir() or self:IsGround() or self:IsShip() then + return true + end + + return false + end + + return nil +end + +--- Return fire. +-- @param #CONTROLLABLE self +-- @return #CONTROLLABLE self +function CONTROLLABLE:OptionROEReturnFire() + self:F2( { self.ControllableName } ) + + local DCSControllable = self:GetDCSObject() + if DCSControllable then + local Controller = self:_GetController() + + if self:IsAir() then + Controller:setOption( AI.Option.Air.id.ROE, AI.Option.Air.val.ROE.RETURN_FIRE ) + elseif self:IsGround() then + Controller:setOption( AI.Option.Ground.id.ROE, AI.Option.Ground.val.ROE.RETURN_FIRE ) + elseif self:IsShip() then + Controller:setOption( AI.Option.Naval.id.ROE, AI.Option.Naval.val.ROE.RETURN_FIRE ) + end + + return self + end + + return nil +end + +--- Can the CONTROLLABLE attack designated targets? +-- @param #CONTROLLABLE self +-- @return #boolean +function CONTROLLABLE:OptionROEOpenFirePossible() + self:F2( { self.ControllableName } ) + + local DCSControllable = self:GetDCSObject() + if DCSControllable then + if self:IsAir() or self:IsGround() or self:IsShip() then + return true + end + + return false + end + + return nil +end + +--- Openfire. +-- @param #CONTROLLABLE self +-- @return #CONTROLLABLE self +function CONTROLLABLE:OptionROEOpenFire() + self:F2( { self.ControllableName } ) + + local DCSControllable = self:GetDCSObject() + if DCSControllable then + local Controller = self:_GetController() + + if self:IsAir() then + Controller:setOption( AI.Option.Air.id.ROE, AI.Option.Air.val.ROE.OPEN_FIRE ) + elseif self:IsGround() then + Controller:setOption( AI.Option.Ground.id.ROE, AI.Option.Ground.val.ROE.OPEN_FIRE ) + elseif self:IsShip() then + Controller:setOption( AI.Option.Naval.id.ROE, AI.Option.Naval.val.ROE.OPEN_FIRE ) + end + + return self + end + + return nil +end + +--- Can the CONTROLLABLE attack targets of opportunity? +-- @param #CONTROLLABLE self +-- @return #boolean +function CONTROLLABLE:OptionROEWeaponFreePossible() + self:F2( { self.ControllableName } ) + + local DCSControllable = self:GetDCSObject() + if DCSControllable then + if self:IsAir() then + return true + end + + return false + end + + return nil +end + +--- Weapon free. +-- @param #CONTROLLABLE self +-- @return #CONTROLLABLE self +function CONTROLLABLE:OptionROEWeaponFree() + self:F2( { self.ControllableName } ) + + local DCSControllable = self:GetDCSObject() + if DCSControllable then + local Controller = self:_GetController() + + if self:IsAir() then + Controller:setOption( AI.Option.Air.id.ROE, AI.Option.Air.val.ROE.WEAPON_FREE ) + end + + return self + end + + return nil +end + +--- Can the CONTROLLABLE ignore enemy fire? +-- @param #CONTROLLABLE self +-- @return #boolean +function CONTROLLABLE:OptionROTNoReactionPossible() + self:F2( { self.ControllableName } ) + + local DCSControllable = self:GetDCSObject() + if DCSControllable then + if self:IsAir() then + return true + end + + return false + end + + return nil +end + + +--- No evasion on enemy threats. +-- @param #CONTROLLABLE self +-- @return #CONTROLLABLE self +function CONTROLLABLE:OptionROTNoReaction() + self:F2( { self.ControllableName } ) + + local DCSControllable = self:GetDCSObject() + if DCSControllable then + local Controller = self:_GetController() + + if self:IsAir() then + Controller:setOption( AI.Option.Air.id.REACTION_ON_THREAT, AI.Option.Air.val.REACTION_ON_THREAT.NO_REACTION ) + end + + return self + end + + return nil +end + +--- Can the CONTROLLABLE evade using passive defenses? +-- @param #CONTROLLABLE self +-- @return #boolean +function CONTROLLABLE:OptionROTPassiveDefensePossible() + self:F2( { self.ControllableName } ) + + local DCSControllable = self:GetDCSObject() + if DCSControllable then + if self:IsAir() then + return true + end + + return false + end + + return nil +end + +--- Evasion passive defense. +-- @param #CONTROLLABLE self +-- @return #CONTROLLABLE self +function CONTROLLABLE:OptionROTPassiveDefense() + self:F2( { self.ControllableName } ) + + local DCSControllable = self:GetDCSObject() + if DCSControllable then + local Controller = self:_GetController() + + if self:IsAir() then + Controller:setOption( AI.Option.Air.id.REACTION_ON_THREAT, AI.Option.Air.val.REACTION_ON_THREAT.PASSIVE_DEFENCE ) + end + + return self + end + + return nil +end + +--- Can the CONTROLLABLE evade on enemy fire? +-- @param #CONTROLLABLE self +-- @return #boolean +function CONTROLLABLE:OptionROTEvadeFirePossible() + self:F2( { self.ControllableName } ) + + local DCSControllable = self:GetDCSObject() + if DCSControllable then + if self:IsAir() then + return true + end + + return false + end + + return nil +end + + +--- Evade on fire. +-- @param #CONTROLLABLE self +-- @return #CONTROLLABLE self +function CONTROLLABLE:OptionROTEvadeFire() + self:F2( { self.ControllableName } ) + + local DCSControllable = self:GetDCSObject() + if DCSControllable then + local Controller = self:_GetController() + + if self:IsAir() then + Controller:setOption( AI.Option.Air.id.REACTION_ON_THREAT, AI.Option.Air.val.REACTION_ON_THREAT.EVADE_FIRE ) + end + + return self + end + + return nil +end + +--- Can the CONTROLLABLE evade on fire using vertical manoeuvres? +-- @param #CONTROLLABLE self +-- @return #boolean +function CONTROLLABLE:OptionROTVerticalPossible() + self:F2( { self.ControllableName } ) + + local DCSControllable = self:GetDCSObject() + if DCSControllable then + if self:IsAir() then + return true + end + + return false + end + + return nil +end + + +--- Evade on fire using vertical manoeuvres. +-- @param #CONTROLLABLE self +-- @return #CONTROLLABLE self +function CONTROLLABLE:OptionROTVertical() + self:F2( { self.ControllableName } ) + + local DCSControllable = self:GetDCSObject() + if DCSControllable then + local Controller = self:_GetController() + + if self:IsAir() then + Controller:setOption( AI.Option.Air.id.REACTION_ON_THREAT, AI.Option.Air.val.REACTION_ON_THREAT.BYPASS_AND_ESCAPE ) + end + + return self + end + + return nil +end + +--- Retrieve the controllable mission and allow to place function hooks within the mission waypoint plan. +-- Use the method @{Controllable#CONTROLLABLE:WayPointFunction} to define the hook functions for specific waypoints. +-- Use the method @{Controllable@CONTROLLABLE:WayPointExecute) to start the execution of the new mission plan. +-- Note that when WayPointInitialize is called, the Mission of the controllable is RESTARTED! +-- @param #CONTROLLABLE self +-- @param #table WayPoints If WayPoints is given, then use the route. +-- @return #CONTROLLABLE +function CONTROLLABLE:WayPointInitialize( WayPoints ) + + if WayPoints then + self.WayPoints = WayPoints + else + self.WayPoints = self:GetTaskRoute() + end + + return self +end + + +--- Registers a waypoint function that will be executed when the controllable moves over the WayPoint. +-- @param #CONTROLLABLE self +-- @param #number WayPoint The waypoint number. Note that the start waypoint on the route is WayPoint 1! +-- @param #number WayPointIndex When defining multiple WayPoint functions for one WayPoint, use WayPointIndex to set the sequence of actions. +-- @param #function WayPointFunction The waypoint function to be called when the controllable moves over the waypoint. The waypoint function takes variable parameters. +-- @return #CONTROLLABLE +function CONTROLLABLE:WayPointFunction( WayPoint, WayPointIndex, WayPointFunction, ... ) + self:F2( { WayPoint, WayPointIndex, WayPointFunction } ) + + table.insert( self.WayPoints[WayPoint].task.params.tasks, WayPointIndex ) + self.WayPoints[WayPoint].task.params.tasks[WayPointIndex] = self:TaskFunction( WayPoint, WayPointIndex, WayPointFunction, arg ) + return self +end + + +function CONTROLLABLE:TaskFunction( WayPoint, WayPointIndex, FunctionString, FunctionArguments ) + self:F2( { WayPoint, WayPointIndex, FunctionString, FunctionArguments } ) + + local DCSTask + + local DCSScript = {} + DCSScript[#DCSScript+1] = "local MissionControllable = CONTROLLABLE:Find( ... ) " + + if FunctionArguments and #FunctionArguments > 0 then + DCSScript[#DCSScript+1] = FunctionString .. "( MissionControllable, " .. table.concat( FunctionArguments, "," ) .. ")" + else + DCSScript[#DCSScript+1] = FunctionString .. "( MissionControllable )" + end + + DCSTask = self:TaskWrappedAction( + self:CommandDoScript( + table.concat( DCSScript ) + ), WayPointIndex + ) + + self:T3( DCSTask ) + + return DCSTask + +end + +--- Executes the WayPoint plan. +-- The function gets a WayPoint parameter, that you can use to restart the mission at a specific WayPoint. +-- Note that when the WayPoint parameter is used, the new start mission waypoint of the controllable will be 1! +-- @param #CONTROLLABLE self +-- @param #number WayPoint The WayPoint from where to execute the mission. +-- @param #number WaitTime The amount seconds to wait before initiating the mission. +-- @return #CONTROLLABLE +function CONTROLLABLE:WayPointExecute( WayPoint, WaitTime ) + + if not WayPoint then + WayPoint = 1 + end + + -- When starting the mission from a certain point, the TaskPoints need to be deleted before the given WayPoint. + for TaskPointID = 1, WayPoint - 1 do + table.remove( self.WayPoints, 1 ) + end + + self:T3( self.WayPoints ) + + self:SetTask( self:TaskRoute( self.WayPoints ), WaitTime ) + + return self +end + + +--- This module contains the SCHEDULER class. +-- +-- 1) @{Scheduler#SCHEDULER} class, extends @{Base#BASE} +-- ===================================================== +-- The @{Scheduler#SCHEDULER} class models time events calling given event handling functions. +-- +-- 1.1) SCHEDULER constructor +-- -------------------------- +-- The SCHEDULER class is quite easy to use: +-- +-- * @{Scheduler#SCHEDULER.New}: Setup a new scheduler and start it with the specified parameters. +-- +-- 1.2) SCHEDULER timer stop and start +-- ----------------------------------- +-- The SCHEDULER can be stopped and restarted with the following methods: +-- +-- * @{Scheduler#SCHEDULER.Start}: (Re-)Start the scheduler. +-- * @{Scheduler#SCHEDULER.Stop}: Stop the scheduler. +-- +-- @module Scheduler +-- @author FlightControl + + +--- The SCHEDULER class +-- @type SCHEDULER +-- @field #number ScheduleID the ID of the scheduler. +-- @extends Base#BASE +SCHEDULER = { + ClassName = "SCHEDULER", +} + +--- SCHEDULER constructor. +-- @param #SCHEDULER self +-- @param #table TimeEventObject Specified for which Moose object the timer is setup. If a value of nil is provided, a scheduler will be setup without an object reference. +-- @param #function TimeEventFunction The event function to be called when a timer event occurs. The event function needs to accept the parameters specified in TimeEventFunctionArguments. +-- @param #table TimeEventFunctionArguments Optional arguments that can be given as part of scheduler. The arguments need to be given as a table { param1, param 2, ... }. +-- @param #number StartSeconds Specifies the amount of seconds that will be waited before the scheduling is started, and the event function is called. +-- @param #number RepeatSecondsInterval Specifies the interval in seconds when the scheduler will call the event function. +-- @param #number RandomizationFactor Specifies a randomization factor between 0 and 1 to randomize the RepeatSecondsInterval. +-- @param #number StopSeconds Specifies the amount of seconds when the scheduler will be stopped. +-- @return #SCHEDULER self +function SCHEDULER:New( TimeEventObject, TimeEventFunction, TimeEventFunctionArguments, StartSeconds, RepeatSecondsInterval, RandomizationFactor, StopSeconds ) + local self = BASE:Inherit( self, BASE:New() ) + self:F2( { TimeEventObject, TimeEventFunction, TimeEventFunctionArguments, StartSeconds, RepeatSecondsInterval, RandomizationFactor, StopSeconds } ) + + self.TimeEventObject = TimeEventObject + self.TimeEventFunction = TimeEventFunction + self.TimeEventFunctionArguments = TimeEventFunctionArguments + self.StartSeconds = StartSeconds + self.Repeat = false + + if RepeatSecondsInterval then + self.RepeatSecondsInterval = RepeatSecondsInterval + else + self.RepeatSecondsInterval = 0 + end + + if RandomizationFactor then + self.RandomizationFactor = RandomizationFactor + else + self.RandomizationFactor = 0 + end + + if StopSeconds then + self.StopSeconds = StopSeconds + end + + + self.StartTime = timer.getTime() + + self:Start() + + return self +end + +--- (Re-)Starts the scheduler. +-- @param #SCHEDULER self +-- @return #SCHEDULER self +function SCHEDULER:Start() + self:F2( self.TimeEventObject ) + + if self.RepeatSecondsInterval ~= 0 then + self.Repeat = true + end + self.ScheduleID = timer.scheduleFunction( self._Scheduler, self, timer.getTime() + self.StartSeconds + .01 ) + + return self +end + +--- Stops the scheduler. +-- @param #SCHEDULER self +-- @return #SCHEDULER self +function SCHEDULER:Stop() + self:F2( self.TimeEventObject ) + + self.Repeat = false + if self.ScheduleID then + timer.removeFunction( self.ScheduleID ) + end + self.ScheduleID = nil + + return self +end + +-- Private Functions + +--- @param #SCHEDULER self +function SCHEDULER:_Scheduler() + self:F2( self.TimeEventFunctionArguments ) + + local ErrorHandler = function( errmsg ) + + env.info( "Error in SCHEDULER function:" .. errmsg ) + if debug ~= nil then + env.info( debug.traceback() ) + end + + return errmsg + end + + local Status, Result + if self.TimeEventObject then + Status, Result = xpcall( function() return self.TimeEventFunction( self.TimeEventObject, unpack( self.TimeEventFunctionArguments ) ) end, ErrorHandler ) + else + Status, Result = xpcall( function() return self.TimeEventFunction( unpack( self.TimeEventFunctionArguments ) ) end, ErrorHandler ) + end + + self:T( { self.TimeEventFunctionArguments, Status, Result, self.StartTime, self.RepeatSecondsInterval, self.RandomizationFactor, self.StopSeconds } ) + + if Status and ( ( Result == nil ) or ( Result and Result ~= false ) ) then + if self.Repeat and ( not self.StopSeconds or ( self.StopSeconds and timer.getTime() <= self.StartTime + self.StopSeconds ) ) then + local ScheduleTime = + timer.getTime() + + self.RepeatSecondsInterval + + math.random( + - ( self.RandomizationFactor * self.RepeatSecondsInterval / 2 ), + ( self.RandomizationFactor * self.RepeatSecondsInterval / 2 ) + ) + + 0.01 + self:T( { self.TimeEventFunctionArguments, "Repeat:", timer.getTime(), ScheduleTime } ) + return ScheduleTime -- returns the next time the function needs to be called. + else + timer.removeFunction( self.ScheduleID ) + self.ScheduleID = nil + end + else + timer.removeFunction( self.ScheduleID ) + self.ScheduleID = nil + end + + return nil +end + + + + + + + + + + + + + + + + +--- The EVENT class models an efficient event handling process between other classes and its units, weapons. +-- @module Event +-- @author FlightControl + +--- The EVENT structure +-- @type EVENT +-- @field #EVENT.Events Events +EVENT = { + ClassName = "EVENT", + ClassID = 0, +} + +local _EVENTCODES = { + "S_EVENT_SHOT", + "S_EVENT_HIT", + "S_EVENT_TAKEOFF", + "S_EVENT_LAND", + "S_EVENT_CRASH", + "S_EVENT_EJECTION", + "S_EVENT_REFUELING", + "S_EVENT_DEAD", + "S_EVENT_PILOT_DEAD", + "S_EVENT_BASE_CAPTURED", + "S_EVENT_MISSION_START", + "S_EVENT_MISSION_END", + "S_EVENT_TOOK_CONTROL", + "S_EVENT_REFUELING_STOP", + "S_EVENT_BIRTH", + "S_EVENT_HUMAN_FAILURE", + "S_EVENT_ENGINE_STARTUP", + "S_EVENT_ENGINE_SHUTDOWN", + "S_EVENT_PLAYER_ENTER_UNIT", + "S_EVENT_PLAYER_LEAVE_UNIT", + "S_EVENT_PLAYER_COMMENT", + "S_EVENT_SHOOTING_START", + "S_EVENT_SHOOTING_END", + "S_EVENT_MAX", +} + +--- The Event structure +-- @type EVENTDATA +-- @field id +-- @field initiator +-- @field target +-- @field weapon +-- @field IniDCSUnit +-- @field IniDCSUnitName +-- @field Unit#UNIT IniUnit +-- @field #string IniUnitName +-- @field IniDCSGroup +-- @field IniDCSGroupName +-- @field TgtDCSUnit +-- @field TgtDCSUnitName +-- @field Unit#UNIT TgtUnit +-- @field #string TgtUnitName +-- @field TgtDCSGroup +-- @field TgtDCSGroupName +-- @field Weapon +-- @field WeaponName +-- @field WeaponTgtDCSUnit + +--- The Events structure +-- @type EVENT.Events +-- @field #number IniUnit + +function EVENT:New() + local self = BASE:Inherit( self, BASE:New() ) + self:F2() + self.EventHandler = world.addEventHandler( self ) + return self +end + +function EVENT:EventText( EventID ) + + local EventText = _EVENTCODES[EventID] + + return EventText +end + + +--- Initializes the Events structure for the event +-- @param #EVENT self +-- @param DCSWorld#world.event EventID +-- @param #string EventClass +-- @return #EVENT.Events +function EVENT:Init( EventID, EventClass ) + self:F3( { _EVENTCODES[EventID], EventClass } ) + if not self.Events[EventID] then + self.Events[EventID] = {} + end + if not self.Events[EventID][EventClass] then + self.Events[EventID][EventClass] = {} + end + return self.Events[EventID][EventClass] +end + + +--- Create an OnDead event handler for a group +-- @param #EVENT self +-- @param #table EventTemplate +-- @param #function EventFunction The function to be called when the event occurs for the unit. +-- @param EventSelf The self instance of the class for which the event is. +-- @param #function OnEventFunction +-- @return #EVENT +function EVENT:OnEventForTemplate( EventTemplate, EventFunction, EventSelf, OnEventFunction ) + self:F2( EventTemplate.name ) + + for EventUnitID, EventUnit in pairs( EventTemplate.units ) do + OnEventFunction( self, EventUnit.name, EventFunction, EventSelf ) + end + return self +end + +--- Set a new listener for an S_EVENT_X event independent from a unit or a weapon. +-- @param #EVENT self +-- @param #function EventFunction The function to be called when the event occurs for the unit. +-- @param Base#BASE EventSelf The self instance of the class for which the event is. +-- @param EventID +-- @return #EVENT +function EVENT:OnEventGeneric( EventFunction, EventSelf, EventID ) + self:F2( { EventID } ) + + local Event = self:Init( EventID, EventSelf:GetClassNameAndID() ) + Event.EventFunction = EventFunction + Event.EventSelf = EventSelf + return self +end + + +--- Set a new listener for an S_EVENT_X event +-- @param #EVENT self +-- @param #string EventDCSUnitName +-- @param #function EventFunction The function to be called when the event occurs for the unit. +-- @param Base#BASE EventSelf The self instance of the class for which the event is. +-- @param EventID +-- @return #EVENT +function EVENT:OnEventForUnit( EventDCSUnitName, EventFunction, EventSelf, EventID ) + self:F2( EventDCSUnitName ) + + local Event = self:Init( EventID, EventSelf:GetClassNameAndID() ) + if not Event.IniUnit then + Event.IniUnit = {} + end + Event.IniUnit[EventDCSUnitName] = {} + Event.IniUnit[EventDCSUnitName].EventFunction = EventFunction + Event.IniUnit[EventDCSUnitName].EventSelf = EventSelf + return self +end + + +--- Create an OnBirth event handler for a group +-- @param #EVENT self +-- @param Group#GROUP EventGroup +-- @param #function EventFunction The function to be called when the event occurs for the unit. +-- @param EventSelf The self instance of the class for which the event is. +-- @return #EVENT +function EVENT:OnBirthForTemplate( EventTemplate, EventFunction, EventSelf ) + self:F2( EventTemplate.name ) + + self:OnEventForTemplate( EventTemplate, EventFunction, EventSelf, self.OnBirthForUnit ) + + return self +end + +--- Set a new listener for an S_EVENT_BIRTH event, and registers the unit born. +-- @param #EVENT self +-- @param #function EventFunction The function to be called when the event occurs for the unit. +-- @param Base#BASE EventSelf +-- @return #EVENT +function EVENT:OnBirth( EventFunction, EventSelf ) + self:F2() + + self:OnEventGeneric( EventFunction, EventSelf, world.event.S_EVENT_BIRTH ) + + return self +end + +--- Set a new listener for an S_EVENT_BIRTH event. +-- @param #EVENT self +-- @param #string EventDCSUnitName The id of the unit for the event to be handled. +-- @param #function EventFunction The function to be called when the event occurs for the unit. +-- @param Base#BASE EventSelf +-- @return #EVENT +function EVENT:OnBirthForUnit( EventDCSUnitName, EventFunction, EventSelf ) + self:F2( EventDCSUnitName ) + + self:OnEventForUnit( EventDCSUnitName, EventFunction, EventSelf, world.event.S_EVENT_BIRTH ) + + return self +end + +--- Create an OnCrash event handler for a group +-- @param #EVENT self +-- @param Group#GROUP EventGroup +-- @param #function EventFunction The function to be called when the event occurs for the unit. +-- @param EventSelf The self instance of the class for which the event is. +-- @return #EVENT +function EVENT:OnCrashForTemplate( EventTemplate, EventFunction, EventSelf ) + self:F2( EventTemplate.name ) + + self:OnEventForTemplate( EventTemplate, EventFunction, EventSelf, self.OnCrashForUnit ) + + return self +end + +--- Set a new listener for an S_EVENT_CRASH event. +-- @param #EVENT self +-- @param #function EventFunction The function to be called when the event occurs for the unit. +-- @param Base#BASE EventSelf +-- @return #EVENT +function EVENT:OnCrash( EventFunction, EventSelf ) + self:F2() + + self:OnEventGeneric( EventFunction, EventSelf, world.event.S_EVENT_CRASH ) + + return self +end + +--- Set a new listener for an S_EVENT_CRASH event. +-- @param #EVENT self +-- @param #string EventDCSUnitName +-- @param #function EventFunction The function to be called when the event occurs for the unit. +-- @param Base#BASE EventSelf The self instance of the class for which the event is. +-- @return #EVENT +function EVENT:OnCrashForUnit( EventDCSUnitName, EventFunction, EventSelf ) + self:F2( EventDCSUnitName ) + + self:OnEventForUnit( EventDCSUnitName, EventFunction, EventSelf, world.event.S_EVENT_CRASH ) + + return self +end + +--- Create an OnDead event handler for a group +-- @param #EVENT self +-- @param Group#GROUP EventGroup +-- @param #function EventFunction The function to be called when the event occurs for the unit. +-- @param EventSelf The self instance of the class for which the event is. +-- @return #EVENT +function EVENT:OnDeadForTemplate( EventTemplate, EventFunction, EventSelf ) + self:F2( EventTemplate.name ) + + self:OnEventForTemplate( EventTemplate, EventFunction, EventSelf, self.OnDeadForUnit ) + + return self +end + +--- Set a new listener for an S_EVENT_DEAD event. +-- @param #EVENT self +-- @param #function EventFunction The function to be called when the event occurs for the unit. +-- @param Base#BASE EventSelf +-- @return #EVENT +function EVENT:OnDead( EventFunction, EventSelf ) + self:F2() + + self:OnEventGeneric( EventFunction, EventSelf, world.event.S_EVENT_DEAD ) + + return self +end + + +--- Set a new listener for an S_EVENT_DEAD event. +-- @param #EVENT self +-- @param #string EventDCSUnitName +-- @param #function EventFunction The function to be called when the event occurs for the unit. +-- @param Base#BASE EventSelf The self instance of the class for which the event is. +-- @return #EVENT +function EVENT:OnDeadForUnit( EventDCSUnitName, EventFunction, EventSelf ) + self:F2( EventDCSUnitName ) + + self:OnEventForUnit( EventDCSUnitName, EventFunction, EventSelf, world.event.S_EVENT_DEAD ) + + return self +end + +--- Set a new listener for an S_EVENT_PILOT_DEAD event. +-- @param #EVENT self +-- @param #string EventDCSUnitName +-- @param #function EventFunction The function to be called when the event occurs for the unit. +-- @param Base#BASE EventSelf The self instance of the class for which the event is. +-- @return #EVENT +function EVENT:OnPilotDeadForUnit( EventDCSUnitName, EventFunction, EventSelf ) + self:F2( EventDCSUnitName ) + + self:OnEventForUnit( EventDCSUnitName, EventFunction, EventSelf, world.event.S_EVENT_PILOT_DEAD ) + + return self +end + +--- Create an OnDead event handler for a group +-- @param #EVENT self +-- @param #table EventTemplate +-- @param #function EventFunction The function to be called when the event occurs for the unit. +-- @param EventSelf The self instance of the class for which the event is. +-- @return #EVENT +function EVENT:OnLandForTemplate( EventTemplate, EventFunction, EventSelf ) + self:F2( EventTemplate.name ) + + self:OnEventForTemplate( EventTemplate, EventFunction, EventSelf, self.OnLandForUnit ) + + return self +end + +--- Set a new listener for an S_EVENT_LAND event. +-- @param #EVENT self +-- @param #string EventDCSUnitName +-- @param #function EventFunction The function to be called when the event occurs for the unit. +-- @param Base#BASE EventSelf The self instance of the class for which the event is. +-- @return #EVENT +function EVENT:OnLandForUnit( EventDCSUnitName, EventFunction, EventSelf ) + self:F2( EventDCSUnitName ) + + self:OnEventForUnit( EventDCSUnitName, EventFunction, EventSelf, world.event.S_EVENT_LAND ) + + return self +end + +--- Create an OnDead event handler for a group +-- @param #EVENT self +-- @param #table EventTemplate +-- @param #function EventFunction The function to be called when the event occurs for the unit. +-- @param EventSelf The self instance of the class for which the event is. +-- @return #EVENT +function EVENT:OnTakeOffForTemplate( EventTemplate, EventFunction, EventSelf ) + self:F2( EventTemplate.name ) + + self:OnEventForTemplate( EventTemplate, EventFunction, EventSelf, self.OnTakeOffForUnit ) + + return self +end + +--- Set a new listener for an S_EVENT_TAKEOFF event. +-- @param #EVENT self +-- @param #string EventDCSUnitName +-- @param #function EventFunction The function to be called when the event occurs for the unit. +-- @param Base#BASE EventSelf The self instance of the class for which the event is. +-- @return #EVENT +function EVENT:OnTakeOffForUnit( EventDCSUnitName, EventFunction, EventSelf ) + self:F2( EventDCSUnitName ) + + self:OnEventForUnit( EventDCSUnitName, EventFunction, EventSelf, world.event.S_EVENT_TAKEOFF ) + + return self +end + +--- Create an OnDead event handler for a group +-- @param #EVENT self +-- @param #table EventTemplate +-- @param #function EventFunction The function to be called when the event occurs for the unit. +-- @param EventSelf The self instance of the class for which the event is. +-- @return #EVENT +function EVENT:OnEngineShutDownForTemplate( EventTemplate, EventFunction, EventSelf ) + self:F2( EventTemplate.name ) + + self:OnEventForTemplate( EventTemplate, EventFunction, EventSelf, self.OnEngineShutDownForUnit ) + + return self +end + +--- Set a new listener for an S_EVENT_ENGINE_SHUTDOWN event. +-- @param #EVENT self +-- @param #string EventDCSUnitName +-- @param #function EventFunction The function to be called when the event occurs for the unit. +-- @param Base#BASE EventSelf The self instance of the class for which the event is. +-- @return #EVENT +function EVENT:OnEngineShutDownForUnit( EventDCSUnitName, EventFunction, EventSelf ) + self:F2( EventDCSUnitName ) + + self:OnEventForUnit( EventDCSUnitName, EventFunction, EventSelf, world.event.S_EVENT_ENGINE_SHUTDOWN ) + + return self +end + +--- Set a new listener for an S_EVENT_ENGINE_STARTUP event. +-- @param #EVENT self +-- @param #string EventDCSUnitName +-- @param #function EventFunction The function to be called when the event occurs for the unit. +-- @param Base#BASE EventSelf The self instance of the class for which the event is. +-- @return #EVENT +function EVENT:OnEngineStartUpForUnit( EventDCSUnitName, EventFunction, EventSelf ) + self:F2( EventDCSUnitName ) + + self:OnEventForUnit( EventDCSUnitName, EventFunction, EventSelf, world.event.S_EVENT_ENGINE_STARTUP ) + + return self +end + +--- Set a new listener for an S_EVENT_SHOT event. +-- @param #EVENT self +-- @param #function EventFunction The function to be called when the event occurs for the unit. +-- @param Base#BASE EventSelf The self instance of the class for which the event is. +-- @return #EVENT +function EVENT:OnShot( EventFunction, EventSelf ) + self:F2() + + self:OnEventGeneric( EventFunction, EventSelf, world.event.S_EVENT_SHOT ) + + return self +end + +--- Set a new listener for an S_EVENT_SHOT event for a unit. +-- @param #EVENT self +-- @param #string EventDCSUnitName +-- @param #function EventFunction The function to be called when the event occurs for the unit. +-- @param Base#BASE EventSelf The self instance of the class for which the event is. +-- @return #EVENT +function EVENT:OnShotForUnit( EventDCSUnitName, EventFunction, EventSelf ) + self:F2( EventDCSUnitName ) + + self:OnEventForUnit( EventDCSUnitName, EventFunction, EventSelf, world.event.S_EVENT_SHOT ) + + return self +end + +--- Set a new listener for an S_EVENT_HIT event. +-- @param #EVENT self +-- @param #function EventFunction The function to be called when the event occurs for the unit. +-- @param Base#BASE EventSelf The self instance of the class for which the event is. +-- @return #EVENT +function EVENT:OnHit( EventFunction, EventSelf ) + self:F2() + + self:OnEventGeneric( EventFunction, EventSelf, world.event.S_EVENT_HIT ) + + return self +end + +--- Set a new listener for an S_EVENT_HIT event. +-- @param #EVENT self +-- @param #string EventDCSUnitName +-- @param #function EventFunction The function to be called when the event occurs for the unit. +-- @param Base#BASE EventSelf The self instance of the class for which the event is. +-- @return #EVENT +function EVENT:OnHitForUnit( EventDCSUnitName, EventFunction, EventSelf ) + self:F2( EventDCSUnitName ) + + self:OnEventForUnit( EventDCSUnitName, EventFunction, EventSelf, world.event.S_EVENT_HIT ) + + return self +end + +--- Set a new listener for an S_EVENT_PLAYER_ENTER_UNIT event. +-- @param #EVENT self +-- @param #function EventFunction The function to be called when the event occurs for the unit. +-- @param Base#BASE EventSelf The self instance of the class for which the event is. +-- @return #EVENT +function EVENT:OnPlayerEnterUnit( EventFunction, EventSelf ) + self:F2() + + self:OnEventGeneric( EventFunction, EventSelf, world.event.S_EVENT_PLAYER_ENTER_UNIT ) + + return self +end + +--- Set a new listener for an S_EVENT_PLAYER_LEAVE_UNIT event. +-- @param #EVENT self +-- @param #function EventFunction The function to be called when the event occurs for the unit. +-- @param Base#BASE EventSelf The self instance of the class for which the event is. +-- @return #EVENT +function EVENT:OnPlayerLeaveUnit( EventFunction, EventSelf ) + self:F2() + + self:OnEventGeneric( EventFunction, EventSelf, world.event.S_EVENT_PLAYER_LEAVE_UNIT ) + + return self +end + + +--- @param #EVENT self +-- @param #EVENTDATA Event +function EVENT:onEvent( Event ) + self:F2( { _EVENTCODES[Event.id], Event } ) + + if self and self.Events and self.Events[Event.id] then + if Event.initiator and Event.initiator:getCategory() == Object.Category.UNIT then + Event.IniDCSUnit = Event.initiator + Event.IniDCSGroup = Event.IniDCSUnit:getGroup() + Event.IniDCSUnitName = Event.IniDCSUnit:getName() + Event.IniUnitName = Event.IniDCSUnitName + Event.IniUnit = UNIT:FindByName( Event.IniDCSUnitName ) + Event.IniDCSGroupName = "" + if Event.IniDCSGroup and Event.IniDCSGroup:isExist() then + Event.IniDCSGroupName = Event.IniDCSGroup:getName() + end + end + if Event.target then + if Event.target and Event.target:getCategory() == Object.Category.UNIT then + Event.TgtDCSUnit = Event.target + Event.TgtDCSGroup = Event.TgtDCSUnit:getGroup() + Event.TgtDCSUnitName = Event.TgtDCSUnit:getName() + Event.TgtUnitName = Event.TgtDCSUnitName + Event.TgtUnit = UNIT:FindByName( Event.TgtDCSUnitName ) + Event.TgtDCSGroupName = "" + if Event.TgtDCSGroup and Event.TgtDCSGroup:isExist() then + Event.TgtDCSGroupName = Event.TgtDCSGroup:getName() + end + end + end + if Event.weapon then + Event.Weapon = Event.weapon + Event.WeaponName = Event.Weapon:getTypeName() + --Event.WeaponTgtDCSUnit = Event.Weapon:getTarget() + end + self:E( { _EVENTCODES[Event.id], Event.IniUnitName, Event.TgtUnitName, Event.WeaponName } ) + for ClassName, EventData in pairs( self.Events[Event.id] ) do + if Event.IniDCSUnitName and EventData.IniUnit and EventData.IniUnit[Event.IniDCSUnitName] then + self:E( { "Calling event function for class ", ClassName, " unit ", Event.IniDCSUnitName } ) + EventData.IniUnit[Event.IniDCSUnitName].EventFunction( EventData.IniUnit[Event.IniDCSUnitName].EventSelf, Event ) + else + if Event.IniDCSUnit and not EventData.IniUnit then + self:E( { "Calling event function for class ", ClassName } ) + EventData.EventFunction( EventData.EventSelf, Event ) + end + end + end + end +end + +--- Encapsulation of DCS World Menu system in a set of MENU classes. +-- @module Menu + +--- The MENU class +-- @type MENU +-- @extends Base#BASE +MENU = { + ClassName = "MENU", + MenuPath = nil, + MenuText = "", + MenuParentPath = nil +} + +--- +function MENU:New( MenuText, MenuParentPath ) + + -- Arrange meta tables + local Child = BASE:Inherit( self, BASE:New() ) + + Child.MenuPath = nil + Child.MenuText = MenuText + Child.MenuParentPath = MenuParentPath + return Child +end + +--- The COMMANDMENU class +-- @type COMMANDMENU +-- @extends Menu#MENU +COMMANDMENU = { + ClassName = "COMMANDMENU", + CommandMenuFunction = nil, + CommandMenuArgument = nil +} + +function COMMANDMENU:New( MenuText, ParentMenu, CommandMenuFunction, CommandMenuArgument ) + + -- Arrange meta tables + + local MenuParentPath = nil + if ParentMenu ~= nil then + MenuParentPath = ParentMenu.MenuPath + end + + local Child = BASE:Inherit( self, MENU:New( MenuText, MenuParentPath ) ) + + Child.MenuPath = missionCommands.addCommand( MenuText, MenuParentPath, CommandMenuFunction, CommandMenuArgument ) + Child.CommandMenuFunction = CommandMenuFunction + Child.CommandMenuArgument = CommandMenuArgument + return Child +end + +--- The SUBMENU class +-- @type SUBMENU +-- @extends Menu#MENU +SUBMENU = { + ClassName = "SUBMENU" +} + +function SUBMENU:New( MenuText, ParentMenu ) + + -- Arrange meta tables + local MenuParentPath = nil + if ParentMenu ~= nil then + MenuParentPath = ParentMenu.MenuPath + end + + local Child = BASE:Inherit( self, MENU:New( MenuText, MenuParentPath ) ) + + Child.MenuPath = missionCommands.addSubMenu( MenuText, MenuParentPath ) + return Child +end + +-- This local variable is used to cache the menus registered under clients. +-- Menus don't dissapear when clients are destroyed and restarted. +-- So every menu for a client created must be tracked so that program logic accidentally does not create +-- the same menus twice during initialization logic. +-- These menu classes are handling this logic with this variable. +local _MENUCLIENTS = {} + +--- The MENU_CLIENT class +-- @type MENU_CLIENT +-- @extends Menu#MENU +MENU_CLIENT = { + ClassName = "MENU_CLIENT" +} + +--- Creates a new menu item for a group +-- @param self +-- @param Client#CLIENT MenuClient The Client owning the menu. +-- @param #string MenuText The text for the menu. +-- @param #table ParentMenu The parent menu. +-- @return #MENU_CLIENT self +function MENU_CLIENT:New( MenuClient, MenuText, ParentMenu ) + + -- Arrange meta tables + local MenuParentPath = {} + if ParentMenu ~= nil then + MenuParentPath = ParentMenu.MenuPath + end + + local self = BASE:Inherit( self, MENU:New( MenuText, MenuParentPath ) ) + self:F( { MenuClient, MenuText, ParentMenu } ) + + self.MenuClient = MenuClient + self.MenuClientGroupID = MenuClient:GetClientGroupID() + self.MenuParentPath = MenuParentPath + self.MenuText = MenuText + self.ParentMenu = ParentMenu + + self.Menus = {} + + if not _MENUCLIENTS[self.MenuClientGroupID] then + _MENUCLIENTS[self.MenuClientGroupID] = {} + end + + local MenuPath = _MENUCLIENTS[self.MenuClientGroupID] + + self:T( { MenuClient:GetClientGroupName(), MenuPath[table.concat(MenuParentPath)], MenuParentPath, MenuText } ) + + local MenuPathID = table.concat(MenuParentPath) .. "/" .. MenuText + if MenuPath[MenuPathID] then + missionCommands.removeItemForGroup( self.MenuClient:GetClientGroupID(), MenuPath[MenuPathID] ) + end + + self.MenuPath = missionCommands.addSubMenuForGroup( self.MenuClient:GetClientGroupID(), MenuText, MenuParentPath ) + MenuPath[MenuPathID] = self.MenuPath + + self:T( { MenuClient:GetClientGroupName(), self.MenuPath } ) + + if ParentMenu and ParentMenu.Menus then + ParentMenu.Menus[self.MenuPath] = self + end + return self +end + +--- Removes the sub menus recursively of this MENU_CLIENT. +-- @param #MENU_CLIENT self +-- @return #MENU_CLIENT self +function MENU_CLIENT:RemoveSubMenus() + self:F( self.MenuPath ) + + for MenuID, Menu in pairs( self.Menus ) do + Menu:Remove() + end + +end + +--- Removes the sub menus recursively of this MENU_CLIENT. +-- @param #MENU_CLIENT self +-- @return #MENU_CLIENT self +function MENU_CLIENT:Remove() + self:F( self.MenuPath ) + + self:RemoveSubMenus() + + if not _MENUCLIENTS[self.MenuClientGroupID] then + _MENUCLIENTS[self.MenuClientGroupID] = {} + end + + local MenuPath = _MENUCLIENTS[self.MenuClientGroupID] + + if MenuPath[table.concat(self.MenuParentPath) .. "/" .. self.MenuText] then + MenuPath[table.concat(self.MenuParentPath) .. "/" .. self.MenuText] = nil + end + + missionCommands.removeItemForGroup( self.MenuClient:GetClientGroupID(), self.MenuPath ) + self.ParentMenu.Menus[self.MenuPath] = nil + return nil +end + + +--- The MENU_CLIENT_COMMAND class +-- @type MENU_CLIENT_COMMAND +-- @extends Menu#MENU +MENU_CLIENT_COMMAND = { + ClassName = "MENU_CLIENT_COMMAND" +} + +--- Creates a new radio command item for a group +-- @param self +-- @param Client#CLIENT MenuClient The Client owning the menu. +-- @param MenuText The text for the menu. +-- @param ParentMenu The parent menu. +-- @param CommandMenuFunction A function that is called when the menu key is pressed. +-- @param CommandMenuArgument An argument for the function. +-- @return Menu#MENU_CLIENT_COMMAND self +function MENU_CLIENT_COMMAND:New( MenuClient, MenuText, ParentMenu, CommandMenuFunction, CommandMenuArgument ) + + -- Arrange meta tables + + local MenuParentPath = {} + if ParentMenu ~= nil then + MenuParentPath = ParentMenu.MenuPath + end + + local self = BASE:Inherit( self, MENU:New( MenuText, MenuParentPath ) ) + + self.MenuClient = MenuClient + self.MenuClientGroupID = MenuClient:GetClientGroupID() + self.MenuParentPath = MenuParentPath + self.MenuText = MenuText + self.ParentMenu = ParentMenu + + if not _MENUCLIENTS[self.MenuClientGroupID] then + _MENUCLIENTS[self.MenuClientGroupID] = {} + end + + local MenuPath = _MENUCLIENTS[self.MenuClientGroupID] + + self:T( { MenuClient:GetClientGroupName(), MenuPath[table.concat(MenuParentPath)], MenuParentPath, MenuText, CommandMenuFunction, CommandMenuArgument } ) + + local MenuPathID = table.concat(MenuParentPath) .. "/" .. MenuText + if MenuPath[MenuPathID] then + missionCommands.removeItemForGroup( self.MenuClient:GetClientGroupID(), MenuPath[MenuPathID] ) + end + + self.MenuPath = missionCommands.addCommandForGroup( self.MenuClient:GetClientGroupID(), MenuText, MenuParentPath, CommandMenuFunction, CommandMenuArgument ) + MenuPath[MenuPathID] = self.MenuPath + + self.CommandMenuFunction = CommandMenuFunction + self.CommandMenuArgument = CommandMenuArgument + + ParentMenu.Menus[self.MenuPath] = self + + return self +end + +function MENU_CLIENT_COMMAND:Remove() + self:F( self.MenuPath ) + + if not _MENUCLIENTS[self.MenuClientGroupID] then + _MENUCLIENTS[self.MenuClientGroupID] = {} + end + + local MenuPath = _MENUCLIENTS[self.MenuClientGroupID] + + if MenuPath[table.concat(self.MenuParentPath) .. "/" .. self.MenuText] then + MenuPath[table.concat(self.MenuParentPath) .. "/" .. self.MenuText] = nil + end + + missionCommands.removeItemForGroup( self.MenuClient:GetClientGroupID(), self.MenuPath ) + self.ParentMenu.Menus[self.MenuPath] = nil + return nil +end + + +--- The MENU_COALITION class +-- @type MENU_COALITION +-- @extends Menu#MENU +MENU_COALITION = { + ClassName = "MENU_COALITION" +} + +--- Creates a new coalition menu item +-- @param #MENU_COALITION self +-- @param DCSCoalition#coalition.side MenuCoalition The coalition owning the menu. +-- @param #string MenuText The text for the menu. +-- @param #table ParentMenu The parent menu. +-- @return #MENU_COALITION self +function MENU_COALITION:New( MenuCoalition, MenuText, ParentMenu ) + + -- Arrange meta tables + local MenuParentPath = {} + if ParentMenu ~= nil then + MenuParentPath = ParentMenu.MenuPath + end + + local self = BASE:Inherit( self, MENU:New( MenuText, MenuParentPath ) ) + self:F( { MenuCoalition, MenuText, ParentMenu } ) + + self.MenuCoalition = MenuCoalition + self.MenuParentPath = MenuParentPath + self.MenuText = MenuText + self.ParentMenu = ParentMenu + + self.Menus = {} + + self:T( { MenuParentPath, MenuText } ) + + self.MenuPath = missionCommands.addSubMenuForCoalition( self.MenuCoalition, MenuText, MenuParentPath ) + + self:T( { self.MenuPath } ) + + if ParentMenu and ParentMenu.Menus then + ParentMenu.Menus[self.MenuPath] = self + end + return self +end + +--- Removes the sub menus recursively of this MENU_COALITION. +-- @param #MENU_COALITION self +-- @return #MENU_COALITION self +function MENU_COALITION:RemoveSubMenus() + self:F( self.MenuPath ) + + for MenuID, Menu in pairs( self.Menus ) do + Menu:Remove() + end + +end + +--- Removes the sub menus recursively of this MENU_COALITION. +-- @param #MENU_COALITION self +-- @return #MENU_COALITION self +function MENU_COALITION:Remove() + self:F( self.MenuPath ) + + self:RemoveSubMenus() + missionCommands.removeItemForCoalition( self.MenuCoalition, self.MenuPath ) + self.ParentMenu.Menus[self.MenuPath] = nil + + return nil +end + + +--- The MENU_COALITION_COMMAND class +-- @type MENU_COALITION_COMMAND +-- @extends Menu#MENU +MENU_COALITION_COMMAND = { + ClassName = "MENU_COALITION_COMMAND" +} + +--- Creates a new radio command item for a group +-- @param #MENU_COALITION_COMMAND self +-- @param DCSCoalition#coalition.side MenuCoalition The coalition owning the menu. +-- @param MenuText The text for the menu. +-- @param ParentMenu The parent menu. +-- @param CommandMenuFunction A function that is called when the menu key is pressed. +-- @param CommandMenuArgument An argument for the function. +-- @return #MENU_COALITION_COMMAND self +function MENU_COALITION_COMMAND:New( MenuCoalition, MenuText, ParentMenu, CommandMenuFunction, CommandMenuArgument ) + + -- Arrange meta tables + + local MenuParentPath = {} + if ParentMenu ~= nil then + MenuParentPath = ParentMenu.MenuPath + end + + local self = BASE:Inherit( self, MENU:New( MenuText, MenuParentPath ) ) + + self.MenuCoalition = MenuCoalition + self.MenuParentPath = MenuParentPath + self.MenuText = MenuText + self.ParentMenu = ParentMenu + + self:T( { MenuParentPath, MenuText, CommandMenuFunction, CommandMenuArgument } ) + + self.MenuPath = missionCommands.addCommandForCoalition( self.MenuCoalition, MenuText, MenuParentPath, CommandMenuFunction, CommandMenuArgument ) + + self.CommandMenuFunction = CommandMenuFunction + self.CommandMenuArgument = CommandMenuArgument + + ParentMenu.Menus[self.MenuPath] = self + + return self +end + +--- Removes a radio command item for a coalition +-- @param #MENU_COALITION_COMMAND self +-- @return #MENU_COALITION_COMMAND self +function MENU_COALITION_COMMAND:Remove() + self:F( self.MenuPath ) + + missionCommands.removeItemForCoalition( self.MenuCoalition, self.MenuPath ) + self.ParentMenu.Menus[self.MenuPath] = nil + return nil +end +--- This module contains the GROUP class. +-- +-- 1) @{Group#GROUP} class, extends @{Controllable#CONTROLLABLE} +-- ============================================================= +-- The @{Group#GROUP} class is a wrapper class to handle the DCS Group objects: +-- +-- * Support all DCS Group APIs. +-- * Enhance with Group specific APIs not in the DCS Group API set. +-- * Handle local Group Controller. +-- * Manage the "state" of the DCS Group. +-- +-- **IMPORTANT: ONE SHOULD NEVER SANATIZE these GROUP OBJECT REFERENCES! (make the GROUP object references nil).** +-- +-- 1.1) GROUP reference methods +-- ----------------------- +-- For each DCS Group object alive within a running mission, a GROUP wrapper object (instance) will be created within the _@{DATABASE} object. +-- This is done at the beginning of the mission (when the mission starts), and dynamically when new DCS Group objects are spawned (using the @{SPAWN} class). +-- +-- The GROUP class does not contain a :New() method, rather it provides :Find() methods to retrieve the object reference +-- using the DCS Group or the DCS GroupName. +-- +-- Another thing to know is that GROUP objects do not "contain" the DCS Group object. +-- The GROUP methods will reference the DCS Group object by name when it is needed during API execution. +-- If the DCS Group object does not exist or is nil, the GROUP methods will return nil and log an exception in the DCS.log file. +-- +-- The GROUP class provides the following functions to retrieve quickly the relevant GROUP instance: +-- +-- * @{#GROUP.Find}(): Find a GROUP instance from the _DATABASE object using a DCS Group object. +-- * @{#GROUP.FindByName}(): Find a GROUP instance from the _DATABASE object using a DCS Group name. +-- +-- 1.2) GROUP task methods +-- ----------------------- +-- Several group task methods are available that help you to prepare tasks. +-- These methods return a string consisting of the task description, which can then be given to either a +-- @{Controllable#CONTROLLABLE.PushTask} or @{Controllable#CONTROLLABLE.SetTask} method to assign the task to the GROUP. +-- Tasks are specific for the category of the GROUP, more specific, for AIR, GROUND or AIR and GROUND. +-- Each task description where applicable indicates for which group category the task is valid. +-- There are 2 main subdivisions of tasks: Assigned tasks and EnRoute tasks. +-- +-- ### 1.2.1) Assigned task methods +-- +-- Assigned task methods make the group execute the task where the location of the (possible) targets of the task are known before being detected. +-- This is different from the EnRoute tasks, where the targets of the task need to be detected before the task can be executed. +-- +-- Find below a list of the **assigned task** methods: +-- +-- * @{Controllable#CONTROLLABLE.TaskAttackGroup}: (AIR) Attack a Group. +-- * @{Controllable#CONTROLLABLE.TaskAttackMapObject}: (AIR) Attacking the map object (building, structure, e.t.c). +-- * @{Controllable#CONTROLLABLE.TaskAttackUnit}: (AIR) Attack the Unit. +-- * @{Controllable#CONTROLLABLE.TaskBombing}: (Controllable#CONTROLLABLEDelivering weapon at the point on the ground. +-- * @{Controllable#CONTROLLABLE.TaskBombingRunway}: (AIR) Delivering weapon on the runway. +-- * @{Controllable#CONTROLLABLE.TaskEmbarking}: (AIR) Move the group to a Vec2 Point, wait for a defined duration and embark a group. +-- * @{Controllable#CONTROLLABLE.TaskEmbarkToTransport}: (GROUND) Embark to a Transport landed at a location. +-- * @{Controllable#CONTROLLABLE.TaskEscort}: (AIR) Escort another airborne group. +-- * @{Controllable#CONTROLLABLE.TaskFAC_AttackGroup}: (AIR + GROUND) The task makes the group/unit a FAC and orders the FAC to control the target (enemy ground group) destruction. +-- * @{Controllable#CONTROLLABLE.TaskFireAtPoint}: (GROUND) Fire at a VEC2 point until ammunition is finished. +-- * @{Controllable#CONTROLLABLE.TaskFollow}: (AIR) Following another airborne group. +-- * @{Controllable#CONTROLLABLE.TaskHold}: (GROUND) Hold ground group from moving. +-- * @{Controllable#CONTROLLABLE.TaskHoldPosition}: (AIR) Hold position at the current position of the first unit of the group. +-- * @{Controllable#CONTROLLABLE.TaskLand}: (AIR HELICOPTER) Landing at the ground. For helicopters only. +-- * @{Controllable#CONTROLLABLE.TaskLandAtZone}: (AIR) Land the group at a @{Zone#ZONE_RADIUS). +-- * @{Controllable#CONTROLLABLE.TaskOrbitCircle}: (AIR) Orbit at the current position of the first unit of the group at a specified alititude. +-- * @{Controllable#CONTROLLABLE.TaskOrbitCircleAtVec2}: (AIR) Orbit at a specified position at a specified alititude during a specified duration with a specified speed. +-- * @{Controllable#CONTROLLABLE.TaskRefueling}: (AIR) Refueling from the nearest tanker. No parameters. +-- * @{Controllable#CONTROLLABLE.TaskRoute}: (AIR + GROUND) Return a Misson task to follow a given route defined by Points. +-- * @{Controllable#CONTROLLABLE.TaskRouteToVec2}: (AIR + GROUND) Make the Group move to a given point. +-- * @{Controllable#CONTROLLABLE.TaskRouteToVec3}: (AIR + GROUND) Make the Group move to a given point. +-- * @{Controllable#CONTROLLABLE.TaskRouteToZone}: (AIR + GROUND) Route the group to a given zone. +-- * @{Controllable#CONTROLLABLE.TaskReturnToBase}: (AIR) Route the group to an airbase. +-- +-- ### 1.2.2) EnRoute task methods +-- +-- EnRoute tasks require the targets of the task need to be detected by the group (using its sensors) before the task can be executed: +-- +-- * @{Controllable#CONTROLLABLE.EnRouteTaskAWACS}: (AIR) Aircraft will act as an AWACS for friendly units (will provide them with information about contacts). No parameters. +-- * @{Controllable#CONTROLLABLE.EnRouteTaskEngageGroup}: (AIR) Engaging a group. The task does not assign the target group to the unit/group to attack now; it just allows the unit/group to engage the target group as well as other assigned targets. +-- * @{Controllable#CONTROLLABLE.EnRouteTaskEngageTargets}: (AIR) Engaging targets of defined types. +-- * @{Controllable#CONTROLLABLE.EnRouteTaskEWR}: (AIR) Attack the Unit. +-- * @{Controllable#CONTROLLABLE.EnRouteTaskFAC}: (AIR + GROUND) The task makes the group/unit a FAC and lets the FAC to choose a targets (enemy ground group) around as well as other assigned targets. +-- * @{Controllable#CONTROLLABLE.EnRouteTaskFAC_EngageGroup}: (AIR + GROUND) The task makes the group/unit a FAC and lets the FAC to choose the target (enemy ground group) as well as other assigned targets. +-- * @{Controllable#CONTROLLABLE.EnRouteTaskTanker}: (AIR) Aircraft will act as a tanker for friendly units. No parameters. +-- +-- ### 1.2.3) Preparation task methods +-- +-- There are certain task methods that allow to tailor the task behaviour: +-- +-- * @{Controllable#CONTROLLABLE.TaskWrappedAction}: Return a WrappedAction Task taking a Command. +-- * @{Controllable#CONTROLLABLE.TaskCombo}: Return a Combo Task taking an array of Tasks. +-- * @{Controllable#CONTROLLABLE.TaskCondition}: Return a condition section for a controlled task. +-- * @{Controllable#CONTROLLABLE.TaskControlled}: Return a Controlled Task taking a Task and a TaskCondition. +-- +-- ### 1.2.4) Obtain the mission from group templates +-- +-- Group templates contain complete mission descriptions. Sometimes you want to copy a complete mission from a group and assign it to another: +-- +-- * @{Controllable#CONTROLLABLE.TaskMission}: (AIR + GROUND) Return a mission task from a mission template. +-- +-- 1.3) GROUP Command methods +-- -------------------------- +-- Group **command methods** prepare the execution of commands using the @{Controllable#CONTROLLABLE.SetCommand} method: +-- +-- * @{Controllable#CONTROLLABLE.CommandDoScript}: Do Script command. +-- * @{Controllable#CONTROLLABLE.CommandSwitchWayPoint}: Perform a switch waypoint command. +-- +-- 1.4) GROUP Option methods +-- ------------------------- +-- Group **Option methods** change the behaviour of the Group while being alive. +-- +-- ### 1.4.1) Rule of Engagement: +-- +-- * @{Controllable#CONTROLLABLE.OptionROEWeaponFree} +-- * @{Controllable#CONTROLLABLE.OptionROEOpenFire} +-- * @{Controllable#CONTROLLABLE.OptionROEReturnFire} +-- * @{Controllable#CONTROLLABLE.OptionROEEvadeFire} +-- +-- To check whether an ROE option is valid for a specific group, use: +-- +-- * @{Controllable#CONTROLLABLE.OptionROEWeaponFreePossible} +-- * @{Controllable#CONTROLLABLE.OptionROEOpenFirePossible} +-- * @{Controllable#CONTROLLABLE.OptionROEReturnFirePossible} +-- * @{Controllable#CONTROLLABLE.OptionROEEvadeFirePossible} +-- +-- ### 1.4.2) Rule on thread: +-- +-- * @{Controllable#CONTROLLABLE.OptionROTNoReaction} +-- * @{Controllable#CONTROLLABLE.OptionROTPassiveDefense} +-- * @{Controllable#CONTROLLABLE.OptionROTEvadeFire} +-- * @{Controllable#CONTROLLABLE.OptionROTVertical} +-- +-- To test whether an ROT option is valid for a specific group, use: +-- +-- * @{Controllable#CONTROLLABLE.OptionROTNoReactionPossible} +-- * @{Controllable#CONTROLLABLE.OptionROTPassiveDefensePossible} +-- * @{Controllable#CONTROLLABLE.OptionROTEvadeFirePossible} +-- * @{Controllable#CONTROLLABLE.OptionROTVerticalPossible} +-- +-- 1.5) GROUP Zone validation methods +-- ---------------------------------- +-- The group can be validated whether it is completely, partly or not within a @{Zone}. +-- Use the following Zone validation methods on the group: +-- +-- * @{#GROUP.IsCompletelyInZone}: Returns true if all units of the group are within a @{Zone}. +-- * @{#GROUP.IsPartlyInZone}: Returns true if some units of the group are within a @{Zone}. +-- * @{#GROUP.IsNotInZone}: Returns true if none of the group units of the group are within a @{Zone}. +-- +-- The zone can be of any @{Zone} class derived from @{Zone#ZONE_BASE}. So, these methods are polymorphic to the zones tested on. +-- +-- @module Group +-- @author FlightControl + +--- The GROUP class +-- @type GROUP +-- @extends Controllable#CONTROLLABLE +-- @field #string GroupName The name of the group. +GROUP = { + ClassName = "GROUP", +} + +--- Create a new GROUP from a DCSGroup +-- @param #GROUP self +-- @param DCSGroup#Group GroupName The DCS Group name +-- @return #GROUP self +function GROUP:Register( GroupName ) + local self = BASE:Inherit( self, CONTROLLABLE:New( GroupName ) ) + self:F2( GroupName ) + self.GroupName = GroupName + return self +end + +-- Reference methods. + +--- Find the GROUP wrapper class instance using the DCS Group. +-- @param #GROUP self +-- @param DCSGroup#Group DCSGroup The DCS Group. +-- @return #GROUP The GROUP. +function GROUP:Find( DCSGroup ) + + local GroupName = DCSGroup:getName() -- Group#GROUP + local GroupFound = _DATABASE:FindGroup( GroupName ) + GroupFound:E( { GroupName, GroupFound:GetClassNameAndID() } ) + return GroupFound +end + +--- Find the created GROUP using the DCS Group Name. +-- @param #GROUP self +-- @param #string GroupName The DCS Group Name. +-- @return #GROUP The GROUP. +function GROUP:FindByName( GroupName ) + + local GroupFound = _DATABASE:FindGroup( GroupName ) + return GroupFound +end + +-- DCS Group methods support. + +--- Returns the DCS Group. +-- @param #GROUP self +-- @return DCSGroup#Group The DCS Group. +function GROUP:GetDCSObject() + local DCSGroup = Group.getByName( self.GroupName ) + + if DCSGroup then + return DCSGroup + end + + return nil +end + + +--- Returns if the DCS Group is alive. +-- When the group exists at run-time, this method will return true, otherwise false. +-- @param #GROUP self +-- @return #boolean true if the DCS Group is alive. +function GROUP:IsAlive() + self:F2( self.GroupName ) + + local DCSGroup = self:GetDCSObject() + + if DCSGroup then + local GroupIsAlive = DCSGroup:isExist() + self:T3( GroupIsAlive ) + return GroupIsAlive + end + + return nil +end + +--- Destroys the DCS Group and all of its DCS Units. +-- Note that this destroy method also raises a destroy event at run-time. +-- So all event listeners will catch the destroy event of this DCS Group. +-- @param #GROUP self +function GROUP:Destroy() + self:F2( self.GroupName ) + + local DCSGroup = self:GetDCSObject() + + if DCSGroup then + for Index, UnitData in pairs( DCSGroup:getUnits() ) do + self:CreateEventCrash( timer.getTime(), UnitData ) + end + DCSGroup:destroy() + DCSGroup = nil + end + + return nil +end + +--- Returns category of the DCS Group. +-- @param #GROUP self +-- @return DCSGroup#Group.Category The category ID +function GROUP:GetCategory() + self:F2( self.GroupName ) + + local DCSGroup = self:GetDCSObject() + if DCSGroup then + local GroupCategory = DCSGroup:getCategory() + self:T3( GroupCategory ) + return GroupCategory + end + + return nil +end + +--- Returns the category name of the DCS Group. +-- @param #GROUP self +-- @return #string Category name = Helicopter, Airplane, Ground Unit, Ship +function GROUP:GetCategoryName() + self:F2( self.GroupName ) + + local DCSGroup = self:GetDCSObject() + if DCSGroup then + local CategoryNames = { + [Group.Category.AIRPLANE] = "Airplane", + [Group.Category.HELICOPTER] = "Helicopter", + [Group.Category.GROUND] = "Ground Unit", + [Group.Category.SHIP] = "Ship", + } + local GroupCategory = DCSGroup:getCategory() + self:T3( GroupCategory ) + + return CategoryNames[GroupCategory] + end + + return nil +end + + +--- Returns the coalition of the DCS Group. +-- @param #GROUP self +-- @return DCSCoalitionObject#coalition.side The coalition side of the DCS Group. +function GROUP:GetCoalition() + self:F2( self.GroupName ) + + local DCSGroup = self:GetDCSObject() + if DCSGroup then + local GroupCoalition = DCSGroup:getCoalition() + self:T3( GroupCoalition ) + return GroupCoalition + end + + return nil +end + +--- Returns the country of the DCS Group. +-- @param #GROUP self +-- @return DCScountry#country.id The country identifier. +-- @return #nil The DCS Group is not existing or alive. +function GROUP:GetCountry() + self:F2( self.GroupName ) + + local DCSGroup = self:GetDCSObject() + if DCSGroup then + local GroupCountry = DCSGroup:getUnit(1):getCountry() + self:T3( GroupCountry ) + return GroupCountry + end + + return nil +end + +--- Returns the UNIT wrapper class with number UnitNumber. +-- If the underlying DCS Unit does not exist, the method will return nil. . +-- @param #GROUP self +-- @param #number UnitNumber The number of the UNIT wrapper class to be returned. +-- @return Unit#UNIT The UNIT wrapper class. +function GROUP:GetUnit( UnitNumber ) + self:F2( { self.GroupName, UnitNumber } ) + + local DCSGroup = self:GetDCSObject() + + if DCSGroup then + local UnitFound = UNIT:Find( DCSGroup:getUnit( UnitNumber ) ) + self:T3( UnitFound.UnitName ) + self:T2( UnitFound ) + return UnitFound + end + + return nil +end + +--- Returns the DCS Unit with number UnitNumber. +-- If the underlying DCS Unit does not exist, the method will return nil. . +-- @param #GROUP self +-- @param #number UnitNumber The number of the DCS Unit to be returned. +-- @return DCSUnit#Unit The DCS Unit. +function GROUP:GetDCSUnit( UnitNumber ) + self:F2( { self.GroupName, UnitNumber } ) + + local DCSGroup = self:GetDCSObject() + + if DCSGroup then + local DCSUnitFound = DCSGroup:getUnit( UnitNumber ) + self:T3( DCSUnitFound ) + return DCSUnitFound + end + + return nil +end + +--- Returns current size of the DCS Group. +-- If some of the DCS Units of the DCS Group are destroyed the size of the DCS Group is changed. +-- @param #GROUP self +-- @return #number The DCS Group size. +function GROUP:GetSize() + self:F2( { self.GroupName } ) + local DCSGroup = self:GetDCSObject() + + if DCSGroup then + local GroupSize = DCSGroup:getSize() + self:T3( GroupSize ) + return GroupSize + end + + return nil +end + +--- +--- Returns the initial size of the DCS Group. +-- If some of the DCS Units of the DCS Group are destroyed, the initial size of the DCS Group is unchanged. +-- @param #GROUP self +-- @return #number The DCS Group initial size. +function GROUP:GetInitialSize() + self:F2( { self.GroupName } ) + local DCSGroup = self:GetDCSObject() + + if DCSGroup then + local GroupInitialSize = DCSGroup:getInitialSize() + self:T3( GroupInitialSize ) + return GroupInitialSize + end + + return nil +end + +--- Returns the UNITs wrappers of the DCS Units of the DCS Group. +-- @param #GROUP self +-- @return #table The UNITs wrappers. +function GROUP:GetUnits() + self:F2( { self.GroupName } ) + local DCSGroup = self:GetDCSObject() + + if DCSGroup then + local DCSUnits = DCSGroup:getUnits() + local Units = {} + for Index, UnitData in pairs( DCSUnits ) do + Units[#Units+1] = UNIT:Find( UnitData ) + end + self:T3( Units ) + return Units + end + + return nil +end + + +--- Returns the DCS Units of the DCS Group. +-- @param #GROUP self +-- @return #table The DCS Units. +function GROUP:GetDCSUnits() + self:F2( { self.GroupName } ) + local DCSGroup = self:GetDCSObject() + + if DCSGroup then + local DCSUnits = DCSGroup:getUnits() + self:T3( DCSUnits ) + return DCSUnits + end + + return nil +end + + +--- Activates a GROUP. +-- @param #GROUP self +function GROUP:Activate() + self:F2( { self.GroupName } ) + trigger.action.activateGroup( self:GetDCSObject() ) + return self:GetDCSObject() +end + + +--- Gets the type name of the group. +-- @param #GROUP self +-- @return #string The type name of the group. +function GROUP:GetTypeName() + self:F2( self.GroupName ) + + local DCSGroup = self:GetDCSObject() + + if DCSGroup then + local GroupTypeName = DCSGroup:getUnit(1):getTypeName() + self:T3( GroupTypeName ) + return( GroupTypeName ) + end + + return nil +end + +--- Gets the CallSign of the first DCS Unit of the DCS Group. +-- @param #GROUP self +-- @return #string The CallSign of the first DCS Unit of the DCS Group. +function GROUP:GetCallsign() + self:F2( self.GroupName ) + + local DCSGroup = self:GetDCSObject() + + if DCSGroup then + local GroupCallSign = DCSGroup:getUnit(1):getCallsign() + self:T3( GroupCallSign ) + return GroupCallSign + end + + return nil +end + +--- Returns the current point (Vec2 vector) of the first DCS Unit in the DCS Group. +-- @param #GROUP self +-- @return DCSTypes#Vec2 Current Vec2 point of the first DCS Unit of the DCS Group. +function GROUP:GetPointVec2() + self:F2( self.GroupName ) + + local UnitPoint = self:GetUnit(1) + UnitPoint:GetPointVec2() + local GroupPointVec2 = UnitPoint:GetPointVec2() + self:T3( GroupPointVec2 ) + return GroupPointVec2 +end + +--- Returns the current point (Vec3 vector) of the first DCS Unit in the DCS Group. +-- @return DCSTypes#Vec3 Current Vec3 point of the first DCS Unit of the DCS Group. +function GROUP:GetPointVec3() + self:F2( self.GroupName ) + + local GroupPointVec3 = self:GetUnit(1):GetPointVec3() + self:T3( GroupPointVec3 ) + return GroupPointVec3 +end + + + +-- Is Zone Functions + +--- Returns true if all units of the group are within a @{Zone}. +-- @param #GROUP self +-- @param Zone#ZONE_BASE Zone The zone to test. +-- @return #boolean Returns true if the Group is completely within the @{Zone#ZONE_BASE} +function GROUP:IsCompletelyInZone( Zone ) + self:F2( { self.GroupName, Zone } ) + + for UnitID, UnitData in pairs( self:GetUnits() ) do + local Unit = UnitData -- Unit#UNIT + if Zone:IsPointVec3InZone( Unit:GetPointVec3() ) then + else + return false + end + end + + return true +end + +--- Returns true if some units of the group are within a @{Zone}. +-- @param #GROUP self +-- @param Zone#ZONE_BASE Zone The zone to test. +-- @return #boolean Returns true if the Group is completely within the @{Zone#ZONE_BASE} +function GROUP:IsPartlyInZone( Zone ) + self:F2( { self.GroupName, Zone } ) + + for UnitID, UnitData in pairs( self:GetUnits() ) do + local Unit = UnitData -- Unit#UNIT + if Zone:IsPointVec3InZone( Unit:GetPointVec3() ) then + return true + end + end + + return false +end + +--- Returns true if none of the group units of the group are within a @{Zone}. +-- @param #GROUP self +-- @param Zone#ZONE_BASE Zone The zone to test. +-- @return #boolean Returns true if the Group is completely within the @{Zone#ZONE_BASE} +function GROUP:IsNotInZone( Zone ) + self:F2( { self.GroupName, Zone } ) + + for UnitID, UnitData in pairs( self:GetUnits() ) do + local Unit = UnitData -- Unit#UNIT + if Zone:IsPointVec3InZone( Unit:GetPointVec3() ) then + return false + end + end + + return true +end + +--- Returns if the group is of an air category. +-- If the group is a helicopter or a plane, then this method will return true, otherwise false. +-- @param #GROUP self +-- @return #boolean Air category evaluation result. +function GROUP:IsAir() + self:F2( self.GroupName ) + + local DCSGroup = self:GetDCSObject() + + if DCSGroup then + local IsAirResult = DCSGroup:getCategory() == Group.Category.AIRPLANE or DCSGroup:getCategory() == Group.Category.HELICOPTER + self:T3( IsAirResult ) + return IsAirResult + end + + return nil +end + +--- Returns if the DCS Group contains Helicopters. +-- @param #GROUP self +-- @return #boolean true if DCS Group contains Helicopters. +function GROUP:IsHelicopter() + self:F2( self.GroupName ) + + local DCSGroup = self:GetDCSObject() + + if DCSGroup then + local GroupCategory = DCSGroup:getCategory() + self:T2( GroupCategory ) + return GroupCategory == Group.Category.HELICOPTER + end + + return nil +end + +--- Returns if the DCS Group contains AirPlanes. +-- @param #GROUP self +-- @return #boolean true if DCS Group contains AirPlanes. +function GROUP:IsAirPlane() + self:F2() + + local DCSGroup = self:GetDCSObject() + + if DCSGroup then + local GroupCategory = DCSGroup:getCategory() + self:T2( GroupCategory ) + return GroupCategory == Group.Category.AIRPLANE + end + + return nil +end + +--- Returns if the DCS Group contains Ground troops. +-- @param #GROUP self +-- @return #boolean true if DCS Group contains Ground troops. +function GROUP:IsGround() + self:F2() + + local DCSGroup = self:GetDCSObject() + + if DCSGroup then + local GroupCategory = DCSGroup:getCategory() + self:T2( GroupCategory ) + return GroupCategory == Group.Category.GROUND + end + + return nil +end + +--- Returns if the DCS Group contains Ships. +-- @param #GROUP self +-- @return #boolean true if DCS Group contains Ships. +function GROUP:IsShip() + self:F2() + + local DCSGroup = self:GetDCSObject() + + if DCSGroup then + local GroupCategory = DCSGroup:getCategory() + self:T2( GroupCategory ) + return GroupCategory == Group.Category.SHIP + end + + return nil +end + +--- Returns if all units of the group are on the ground or landed. +-- If all units of this group are on the ground, this function will return true, otherwise false. +-- @param #GROUP self +-- @return #boolean All units on the ground result. +function GROUP:AllOnGround() + self:F2() + + local DCSGroup = self:GetDCSObject() + + if DCSGroup then + local AllOnGroundResult = true + + for Index, UnitData in pairs( DCSGroup:getUnits() ) do + if UnitData:inAir() then + AllOnGroundResult = false + end + end + + self:T3( AllOnGroundResult ) + return AllOnGroundResult + end + + return nil +end + +--- Returns the current maximum velocity of the group. +-- Each unit within the group gets evaluated, and the maximum velocity (= the unit which is going the fastest) is returned. +-- @param #GROUP self +-- @return #number Maximum velocity found. +function GROUP:GetMaxVelocity() + self:F2() + + local DCSGroup = self:GetDCSObject() + + if DCSGroup then + local MaxVelocity = 0 + + for Index, UnitData in pairs( DCSGroup:getUnits() ) do + + local Velocity = UnitData:getVelocity() + local VelocityTotal = math.abs( Velocity.x ) + math.abs( Velocity.y ) + math.abs( Velocity.z ) + + if VelocityTotal < MaxVelocity then + MaxVelocity = VelocityTotal + end + end + + return MaxVelocity + end + + return nil +end + +--- Returns the current minimum height of the group. +-- Each unit within the group gets evaluated, and the minimum height (= the unit which is the lowest elevated) is returned. +-- @param #GROUP self +-- @return #number Minimum height found. +function GROUP:GetMinHeight() + self:F2() + +end + +--- Returns the current maximum height of the group. +-- Each unit within the group gets evaluated, and the maximum height (= the unit which is the highest elevated) is returned. +-- @param #GROUP self +-- @return #number Maximum height found. +function GROUP:GetMaxHeight() + self:F2() + +end + +-- SPAWNING + +--- Respawn the @{GROUP} using a (tweaked) template of the Group. +-- The template must be retrieved with the @{Group#GROUP.GetTemplate}() function. +-- The template contains all the definitions as declared within the mission file. +-- To understand templates, do the following: +-- +-- * unpack your .miz file into a directory using 7-zip. +-- * browse in the directory created to the file **mission**. +-- * open the file and search for the country group definitions. +-- +-- Your group template will contain the fields as described within the mission file. +-- +-- This function will: +-- +-- * Get the current position and heading of the group. +-- * When the group is alive, it will tweak the template x, y and heading coordinates of the group and the embedded units to the current units positions. +-- * Then it will destroy the current alive group. +-- * And it will respawn the group using your new template definition. +-- @param Group#GROUP self +-- @param #table Template The template of the Group retrieved with GROUP:GetTemplate() +function GROUP:Respawn( Template ) + + local Vec3 = self:GetPointVec3() + Template.x = Vec3.x + Template.y = Vec3.z + --Template.x = nil + --Template.y = nil + + self:E( #Template.units ) + for UnitID, UnitData in pairs( self:GetUnits() ) do + local GroupUnit = UnitData -- Unit#UNIT + self:E( GroupUnit:GetName() ) + if GroupUnit:IsAlive() then + local GroupUnitVec3 = GroupUnit:GetPointVec3() + local GroupUnitHeading = GroupUnit:GetHeading() + Template.units[UnitID].alt = GroupUnitVec3.y + Template.units[UnitID].x = GroupUnitVec3.x + Template.units[UnitID].y = GroupUnitVec3.z + Template.units[UnitID].heading = GroupUnitHeading + self:E( { UnitID, Template.units[UnitID], Template.units[UnitID] } ) + end + end + + self:Destroy() + _DATABASE:Spawn( Template ) +end + +--- Returns the group template from the @{DATABASE} (_DATABASE object). +-- @param #GROUP self +-- @return #table +function GROUP:GetTemplate() + local GroupName = self:GetName() + self:E( GroupName ) + return _DATABASE:GetGroupTemplate( GroupName ) +end + +--- Sets the controlled status in a Template. +-- @param #GROUP self +-- @param #boolean Controlled true is controlled, false is uncontrolled. +-- @return #table +function GROUP:SetTemplateControlled( Template, Controlled ) + Template.uncontrolled = not Controlled + return Template +end + +--- Sets the CountryID of the group in a Template. +-- @param #GROUP self +-- @param DCScountry#country.id CountryID The country ID. +-- @return #table +function GROUP:SetTemplateCountry( Template, CountryID ) + Template.CountryID = CountryID + return Template +end + +--- Sets the CoalitionID of the group in a Template. +-- @param #GROUP self +-- @param DCSCoalitionObject#coalition.side CoalitionID The coalition ID. +-- @return #table +function GROUP:SetTemplateCoalition( Template, CoalitionID ) + Template.CoalitionID = CoalitionID + return Template +end + + + + +--- Return the mission template of the group. +-- @param #GROUP self +-- @return #table The MissionTemplate +function GROUP:GetTaskMission() + self:F2( self.GroupName ) + + return routines.utils.deepCopy( _DATABASE.Templates.Groups[self.GroupName].Template ) +end + +--- Return the mission route of the group. +-- @param #GROUP self +-- @return #table The mission route defined by points. +function GROUP:GetTaskRoute() + self:F2( self.GroupName ) + + return routines.utils.deepCopy( _DATABASE.Templates.Groups[self.GroupName].Template.route.points ) +end + +--- Return the route of a group by using the @{Database#DATABASE} class. +-- @param #GROUP self +-- @param #number Begin The route point from where the copy will start. The base route point is 0. +-- @param #number End The route point where the copy will end. The End point is the last point - the End point. The last point has base 0. +-- @param #boolean Randomize Randomization of the route, when true. +-- @param #number Radius When randomization is on, the randomization is within the radius. +function GROUP:CopyRoute( Begin, End, Randomize, Radius ) + self:F2( { Begin, End } ) + + local Points = {} + + -- Could be a Spawned Group + local GroupName = string.match( self:GetName(), ".*#" ) + if GroupName then + GroupName = GroupName:sub( 1, -2 ) + else + GroupName = self:GetName() + end + + self:T3( { GroupName } ) + + local Template = _DATABASE.Templates.Groups[GroupName].Template + + if Template then + if not Begin then + Begin = 0 + end + if not End then + End = 0 + end + + for TPointID = Begin + 1, #Template.route.points - End do + if Template.route.points[TPointID] then + Points[#Points+1] = routines.utils.deepCopy( Template.route.points[TPointID] ) + if Randomize then + if not Radius then + Radius = 500 + end + Points[#Points].x = Points[#Points].x + math.random( Radius * -1, Radius ) + Points[#Points].y = Points[#Points].y + math.random( Radius * -1, Radius ) + end + end + end + return Points + else + error( "Template not found for Group : " .. GroupName ) + end + + return nil +end + + +-- Message APIs + +--- Returns a message for a coalition or a client. +-- @param #GROUP self +-- @param #string Message The message text +-- @param DCSTypes#Duration Duration The duration of the message. +-- @return Message#MESSAGE +function GROUP:Message( Message, Duration ) + self:F2( { Message, Duration } ) + + local DCSGroup = self:GetDCSObject() + if DCSGroup then + return MESSAGE:New( Message, Duration, self:GetCallsign() .. " (" .. self:GetTypeName() .. ")" ) + end + + return nil +end + +--- Send a message to all coalitions. +-- The message will appear in the message area. The message will begin with the callsign of the group and the type of the first unit sending the message. +-- @param #GROUP self +-- @param #string Message The message text +-- @param DCSTypes#Duration Duration The duration of the message. +function GROUP:MessageToAll( Message, Duration ) + self:F2( { Message, Duration } ) + + local DCSGroup = self:GetDCSObject() + if DCSGroup then + self:Message( Message, Duration ):ToAll() + end + + return nil +end + +--- Send a message to the red coalition. +-- The message will appear in the message area. The message will begin with the callsign of the group and the type of the first unit sending the message. +-- @param #GROUP self +-- @param #string Message The message text +-- @param DCSTYpes#Duration Duration The duration of the message. +function GROUP:MessageToRed( Message, Duration ) + self:F2( { Message, Duration } ) + + local DCSGroup = self:GetDCSObject() + if DCSGroup then + self:Message( Message, Duration ):ToRed() + end + + return nil +end + +--- Send a message to the blue coalition. +-- The message will appear in the message area. The message will begin with the callsign of the group and the type of the first unit sending the message. +-- @param #GROUP self +-- @param #string Message The message text +-- @param DCSTypes#Duration Duration The duration of the message. +function GROUP:MessageToBlue( Message, Duration ) + self:F2( { Message, Duration } ) + + local DCSGroup = self:GetDCSObject() + if DCSGroup then + self:Message( Message, Duration ):ToBlue() + end + + return nil +end + +--- Send a message to a client. +-- The message will appear in the message area. The message will begin with the callsign of the group and the type of the first unit sending the message. +-- @param #GROUP self +-- @param #string Message The message text +-- @param DCSTypes#Duration Duration The duration of the message. +-- @param Client#CLIENT Client The client object receiving the message. +function GROUP:MessageToClient( Message, Duration, Client ) + self:F2( { Message, Duration } ) + + local DCSGroup = self:GetDCSObject() + if DCSGroup then + self:Message( Message, Duration ):ToClient( Client ) + end + + return nil +end +--- This module contains the UNIT class. +-- +-- 1) @{Unit#UNIT} class, extends @{Controllable#CONTROLLABLE} +-- =========================================================== +-- The @{Unit#UNIT} class is a wrapper class to handle the DCS Unit objects: +-- +-- * Support all DCS Unit APIs. +-- * Enhance with Unit specific APIs not in the DCS Unit API set. +-- * Handle local Unit Controller. +-- * Manage the "state" of the DCS Unit. +-- +-- +-- 1.1) UNIT reference methods +-- ---------------------- +-- For each DCS Unit object alive within a running mission, a UNIT wrapper object (instance) will be created within the _@{DATABASE} object. +-- This is done at the beginning of the mission (when the mission starts), and dynamically when new DCS Unit objects are spawned (using the @{SPAWN} class). +-- +-- The UNIT class **does not contain a :New()** method, rather it provides **:Find()** methods to retrieve the object reference +-- using the DCS Unit or the DCS UnitName. +-- +-- Another thing to know is that UNIT objects do not "contain" the DCS Unit object. +-- The UNIT methods will reference the DCS Unit object by name when it is needed during API execution. +-- If the DCS Unit object does not exist or is nil, the UNIT methods will return nil and log an exception in the DCS.log file. +-- +-- The UNIT class provides the following functions to retrieve quickly the relevant UNIT instance: +-- +-- * @{#UNIT.Find}(): Find a UNIT instance from the _DATABASE object using a DCS Unit object. +-- * @{#UNIT.FindByName}(): Find a UNIT instance from the _DATABASE object using a DCS Unit name. +-- +-- IMPORTANT: ONE SHOULD NEVER SANATIZE these UNIT OBJECT REFERENCES! (make the UNIT object references nil). +-- +-- 1.2) DCS UNIT APIs +-- ------------------ +-- The DCS Unit APIs are used extensively within MOOSE. The UNIT class has for each DCS Unit API a corresponding method. +-- To be able to distinguish easily in your code the difference between a UNIT API call and a DCS Unit API call, +-- the first letter of the method is also capitalized. So, by example, the DCS Unit method @{DCSUnit#Unit.getName}() +-- is implemented in the UNIT class as @{#UNIT.GetName}(). +-- +-- 1.3) Smoke, Flare Units +-- ----------------------- +-- The UNIT class provides methods to smoke or flare units easily. +-- The @{#UNIT.SmokeBlue}(), @{#UNIT.SmokeGreen}(),@{#UNIT.SmokeOrange}(), @{#UNIT.SmokeRed}(), @{#UNIT.SmokeRed}() methods +-- will smoke the unit in the corresponding color. Note that smoking a unit is done at the current position of the DCS Unit. +-- When the DCS Unit moves for whatever reason, the smoking will still continue! +-- The @{#UNIT.FlareGreen}(), @{#UNIT.FlareRed}(), @{#UNIT.FlareWhite}(), @{#UNIT.FlareYellow}() +-- methods will fire off a flare in the air with the corresponding color. Note that a flare is a one-off shot and its effect is of very short duration. +-- +-- 1.4) Location Position, Point +-- ----------------------------- +-- The UNIT class provides methods to obtain the current point or position of the DCS Unit. +-- The @{#UNIT.GetPointVec2}(), @{#UNIT.GetPointVec3}() will obtain the current **location** of the DCS Unit in a Vec2 (2D) or a **point** in a Vec3 (3D) vector respectively. +-- If you want to obtain the complete **3D position** including oriëntation and direction vectors, consult the @{#UNIT.GetPositionVec3}() method respectively. +-- +-- 1.5) Test if alive +-- ------------------ +-- The @{#UNIT.IsAlive}(), @{#UNIT.IsActive}() methods determines if the DCS Unit is alive, meaning, it is existing and active. +-- +-- 1.6) Test for proximity +-- ----------------------- +-- The UNIT class contains methods to test the location or proximity against zones or other objects. +-- +-- ### 1.6.1) Zones +-- To test whether the Unit is within a **zone**, use the @{#UNIT.IsInZone}() or the @{#UNIT.IsNotInZone}() methods. Any zone can be tested on, but the zone must be derived from @{Zone#ZONE_BASE}. +-- +-- ### 1.6.2) Units +-- Test if another DCS Unit is within a given radius of the current DCS Unit, use the @{#UNIT.OtherUnitInRadius}() method. +-- +-- @module Unit +-- @author FlightControl + + + + + +--- The UNIT class +-- @type UNIT +-- @extends Controllable#CONTROLLABLE +-- @field #UNIT.FlareColor FlareColor +-- @field #UNIT.SmokeColor SmokeColor +UNIT = { + ClassName="UNIT", + FlareColor = { + Green = trigger.flareColor.Green, + Red = trigger.flareColor.Red, + White = trigger.flareColor.White, + Yellow = trigger.flareColor.Yellow + }, + SmokeColor = { + Green = trigger.smokeColor.Green, + Red = trigger.smokeColor.Red, + White = trigger.smokeColor.White, + Orange = trigger.smokeColor.Orange, + Blue = trigger.smokeColor.Blue + }, + } + +--- FlareColor +-- @type UNIT.FlareColor +-- @field Green +-- @field Red +-- @field White +-- @field Yellow + +--- SmokeColor +-- @type UNIT.SmokeColor +-- @field Green +-- @field Red +-- @field White +-- @field Orange +-- @field Blue + +-- Registration. + +--- Create a new UNIT from DCSUnit. +-- @param #UNIT self +-- @param #string UnitName The name of the DCS unit. +-- @return Unit#UNIT +function UNIT:Register( UnitName ) + local self = BASE:Inherit( self, CONTROLLABLE:New( UnitName ) ) + self.UnitName = UnitName + return self +end + +-- Reference methods. + +--- Finds a UNIT from the _DATABASE using a DCSUnit object. +-- @param #UNIT self +-- @param DCSUnit#Unit DCSUnit An existing DCS Unit object reference. +-- @return Unit#UNIT self +function UNIT:Find( DCSUnit ) + + local UnitName = DCSUnit:getName() + local UnitFound = _DATABASE:FindUnit( UnitName ) + return UnitFound +end + +--- Find a UNIT in the _DATABASE using the name of an existing DCS Unit. +-- @param #UNIT self +-- @param #string UnitName The Unit Name. +-- @return Unit#UNIT self +function UNIT:FindByName( UnitName ) + + local UnitFound = _DATABASE:FindUnit( UnitName ) + return UnitFound +end + + +--- @param #UNIT self +-- @return DCSUnit#Unit +function UNIT:GetDCSObject() + + local DCSUnit = Unit.getByName( self.UnitName ) + + if DCSUnit then + return DCSUnit + end + + return nil +end + + + + +--- Returns if the unit is activated. +-- @param Unit#UNIT self +-- @return #boolean true if Unit is activated. +-- @return #nil The DCS Unit is not existing or alive. +function UNIT:IsActive() + self:F2( self.UnitName ) + + local DCSUnit = self:GetDCSObject() + + if DCSUnit then + + local UnitIsActive = DCSUnit:isActive() + return UnitIsActive + end + + return nil +end + +--- Returns the Unit's callsign - the localized string. +-- @param Unit#UNIT self +-- @return #string The Callsign of the Unit. +-- @return #nil The DCS Unit is not existing or alive. +function UNIT:GetCallSign() + self:F2( self.UnitName ) + + local DCSUnit = self:GetDCSObject() + + if DCSUnit then + local UnitCallSign = DCSUnit:getCallsign() + return UnitCallSign + end + + self:E( self.ClassName .. " " .. self.UnitName .. " not found!" ) + return nil +end + + +--- Returns name of the player that control the unit or nil if the unit is controlled by A.I. +-- @param Unit#UNIT self +-- @return #string Player Name +-- @return #nil The DCS Unit is not existing or alive. +function UNIT:GetPlayerName() + self:F2( self.UnitName ) + + local DCSUnit = self:GetDCSObject() + + if DCSUnit then + + local PlayerName = DCSUnit:getPlayerName() + if PlayerName == nil then + PlayerName = "" + end + return PlayerName + end + + return nil +end + +--- Returns the unit's number in the group. +-- The number is the same number the unit has in ME. +-- It may not be changed during the mission. +-- If any unit in the group is destroyed, the numbers of another units will not be changed. +-- @param Unit#UNIT self +-- @return #number The Unit number. +-- @return #nil The DCS Unit is not existing or alive. +function UNIT:GetNumber() + self:F2( self.UnitName ) + + local DCSUnit = self:GetDCSObject() + + if DCSUnit then + local UnitNumber = DCSUnit:getNumber() + return UnitNumber + end + + return nil +end + +--- Returns the unit's group if it exist and nil otherwise. +-- @param Unit#UNIT self +-- @return Group#GROUP The Group of the Unit. +-- @return #nil The DCS Unit is not existing or alive. +function UNIT:GetGroup() + self:F2( self.UnitName ) + + local DCSUnit = self:GetDCSObject() + + if DCSUnit then + local UnitGroup = GROUP:Find( DCSUnit:getGroup() ) + return UnitGroup + end + + return nil +end + + +-- Need to add here functions to check if radar is on and which object etc. + +--- Returns the prefix name of the DCS Unit. A prefix name is a part of the name before a '#'-sign. +-- DCS Units spawned with the @{SPAWN} class contain a '#'-sign to indicate the end of the (base) DCS Unit name. +-- The spawn sequence number and unit number are contained within the name after the '#' sign. +-- @param Unit#UNIT self +-- @return #string The name of the DCS Unit. +-- @return #nil The DCS Unit is not existing or alive. +function UNIT:GetPrefix() + self:F2( self.UnitName ) + + local DCSUnit = self:GetDCSObject() + + if DCSUnit then + local UnitPrefix = string.match( self.UnitName, ".*#" ):sub( 1, -2 ) + self:T3( UnitPrefix ) + return UnitPrefix + end + + return nil +end + +--- Returns the Unit's ammunition. +-- @param Unit#UNIT self +-- @return DCSUnit#Unit.Ammo +-- @return #nil The DCS Unit is not existing or alive. +function UNIT:GetAmmo() + self:F2( self.UnitName ) + + local DCSUnit = self:GetDCSObject() + + if DCSUnit then + local UnitAmmo = DCSUnit:getAmmo() + return UnitAmmo + end + + return nil +end + +--- Returns the unit sensors. +-- @param Unit#UNIT self +-- @return DCSUnit#Unit.Sensors +-- @return #nil The DCS Unit is not existing or alive. +function UNIT:GetSensors() + self:F2( self.UnitName ) + + local DCSUnit = self:GetDCSObject() + + if DCSUnit then + local UnitSensors = DCSUnit:getSensors() + return UnitSensors + end + + return nil +end + +-- Need to add here a function per sensortype +-- unit:hasSensors(Unit.SensorType.RADAR, Unit.RadarType.AS) + +--- Returns two values: +-- +-- * First value indicates if at least one of the unit's radar(s) is on. +-- * Second value is the object of the radar's interest. Not nil only if at least one radar of the unit is tracking a target. +-- @param Unit#UNIT self +-- @return #boolean Indicates if at least one of the unit's radar(s) is on. +-- @return DCSObject#Object The object of the radar's interest. Not nil only if at least one radar of the unit is tracking a target. +-- @return #nil The DCS Unit is not existing or alive. +function UNIT:GetRadar() + self:F2( self.UnitName ) + + local DCSUnit = self:GetDCSObject() + + if DCSUnit then + local UnitRadarOn, UnitRadarObject = DCSUnit:getRadar() + return UnitRadarOn, UnitRadarObject + end + + return nil, nil +end + +--- Returns relative amount of fuel (from 0.0 to 1.0) the unit has in its internal tanks. If there are additional fuel tanks the value may be greater than 1.0. +-- @param Unit#UNIT self +-- @return #number The relative amount of fuel (from 0.0 to 1.0). +-- @return #nil The DCS Unit is not existing or alive. +function UNIT:GetFuel() + self:F2( self.UnitName ) + + local DCSUnit = self:GetDCSObject() + + if DCSUnit then + local UnitFuel = DCSUnit:getFuel() + return UnitFuel + end + + return nil +end + +--- Returns the unit's health. Dead units has health <= 1.0. +-- @param Unit#UNIT self +-- @return #number The Unit's health value. +-- @return #nil The DCS Unit is not existing or alive. +function UNIT:GetLife() + self:F2( self.UnitName ) + + local DCSUnit = self:GetDCSObject() + + if DCSUnit then + local UnitLife = DCSUnit:getLife() + return UnitLife + end + + return nil +end + +--- Returns the Unit's initial health. +-- @param Unit#UNIT self +-- @return #number The Unit's initial health value. +-- @return #nil The DCS Unit is not existing or alive. +function UNIT:GetLife0() + self:F2( self.UnitName ) + + local DCSUnit = self:GetDCSObject() + + if DCSUnit then + local UnitLife0 = DCSUnit:getLife0() + return UnitLife0 + end + + return nil +end + + + + +-- Is functions + +--- Returns true if the unit is within a @{Zone}. +-- @param #UNIT self +-- @param Zone#ZONE_BASE Zone The zone to test. +-- @return #boolean Returns true if the unit is within the @{Zone#ZONE_BASE} +function UNIT:IsInZone( Zone ) + self:F2( { self.UnitName, Zone } ) + + if self:IsAlive() then + local IsInZone = Zone:IsPointVec3InZone( self:GetPointVec3() ) + + self:T( { IsInZone } ) + return IsInZone + else + return false + end +end + +--- Returns true if the unit is not within a @{Zone}. +-- @param #UNIT self +-- @param Zone#ZONE_BASE Zone The zone to test. +-- @return #boolean Returns true if the unit is not within the @{Zone#ZONE_BASE} +function UNIT:IsNotInZone( Zone ) + self:F2( { self.UnitName, Zone } ) + + if self:IsAlive() then + local IsInZone = not Zone:IsPointVec3InZone( self:GetPointVec3() ) + + self:T( { IsInZone } ) + return IsInZone + else + return false + end +end + + +--- Returns true if there is an **other** DCS Unit within a radius of the current 2D point of the DCS Unit. +-- @param Unit#UNIT self +-- @param Unit#UNIT AwaitUnit The other UNIT wrapper object. +-- @param Radius The radius in meters with the DCS Unit in the centre. +-- @return true If the other DCS Unit is within the radius of the 2D point of the DCS Unit. +-- @return #nil The DCS Unit is not existing or alive. +function UNIT:OtherUnitInRadius( AwaitUnit, Radius ) + self:F2( { self.UnitName, AwaitUnit.UnitName, Radius } ) + + local DCSUnit = self:GetDCSObject() + + if DCSUnit then + local UnitPos = self:GetPointVec3() + local AwaitUnitPos = AwaitUnit:GetPointVec3() + + if (((UnitPos.x - AwaitUnitPos.x)^2 + (UnitPos.z - AwaitUnitPos.z)^2)^0.5 <= Radius) then + self:T3( "true" ) + return true + else + self:T3( "false" ) + return false + end + end + + return nil +end + + + +--- Signal a flare at the position of the UNIT. +-- @param #UNIT self +function UNIT:Flare( FlareColor ) + self:F2() + trigger.action.signalFlare( self:GetPointVec3(), FlareColor , 0 ) +end + +--- Signal a white flare at the position of the UNIT. +-- @param #UNIT self +function UNIT:FlareWhite() + self:F2() + trigger.action.signalFlare( self:GetPointVec3(), trigger.flareColor.White , 0 ) +end + +--- Signal a yellow flare at the position of the UNIT. +-- @param #UNIT self +function UNIT:FlareYellow() + self:F2() + trigger.action.signalFlare( self:GetPointVec3(), trigger.flareColor.Yellow , 0 ) +end + +--- Signal a green flare at the position of the UNIT. +-- @param #UNIT self +function UNIT:FlareGreen() + self:F2() + trigger.action.signalFlare( self:GetPointVec3(), trigger.flareColor.Green , 0 ) +end + +--- Signal a red flare at the position of the UNIT. +-- @param #UNIT self +function UNIT:FlareRed() + self:F2() + trigger.action.signalFlare( self:GetPointVec3(), trigger.flareColor.Red, 0 ) +end + +--- Smoke the UNIT. +-- @param #UNIT self +function UNIT:Smoke( SmokeColor ) + self:F2() + trigger.action.smoke( self:GetPointVec3(), SmokeColor ) +end + +--- Smoke the UNIT Green. +-- @param #UNIT self +function UNIT:SmokeGreen() + self:F2() + trigger.action.smoke( self:GetPointVec3(), trigger.smokeColor.Green ) +end + +--- Smoke the UNIT Red. +-- @param #UNIT self +function UNIT:SmokeRed() + self:F2() + trigger.action.smoke( self:GetPointVec3(), trigger.smokeColor.Red ) +end + +--- Smoke the UNIT White. +-- @param #UNIT self +function UNIT:SmokeWhite() + self:F2() + trigger.action.smoke( self:GetPointVec3(), trigger.smokeColor.White ) +end + +--- Smoke the UNIT Orange. +-- @param #UNIT self +function UNIT:SmokeOrange() + self:F2() + trigger.action.smoke( self:GetPointVec3(), trigger.smokeColor.Orange ) +end + +--- Smoke the UNIT Blue. +-- @param #UNIT self +function UNIT:SmokeBlue() + self:F2() + trigger.action.smoke( self:GetPointVec3(), trigger.smokeColor.Blue ) +end + +-- Is methods + +--- Returns if the unit is of an air category. +-- If the unit is a helicopter or a plane, then this method will return true, otherwise false. +-- @param #UNIT self +-- @return #boolean Air category evaluation result. +function UNIT:IsAir() + self:F2() + + local UnitDescriptor = self.DCSUnit:getDesc() + self:T3( { UnitDescriptor.category, Unit.Category.AIRPLANE, Unit.Category.HELICOPTER } ) + + local IsAirResult = ( UnitDescriptor.category == Unit.Category.AIRPLANE ) or ( UnitDescriptor.category == Unit.Category.HELICOPTER ) + + self:T3( IsAirResult ) + return IsAirResult +end + +--- This module contains the ZONE classes, inherited from @{Zone#ZONE_BASE}. +-- There are essentially two core functions that zones accomodate: +-- +-- * Test if an object is within the zone boundaries. +-- * Provide the zone behaviour. Some zones are static, while others are moveable. +-- +-- The object classes are using the zone classes to test the zone boundaries, which can take various forms: +-- +-- * Test if completely within the zone. +-- * Test if partly within the zone (for @{Group#GROUP} objects). +-- * Test if not in the zone. +-- * Distance to the nearest intersecting point of the zone. +-- * Distance to the center of the zone. +-- * ... +-- +-- Each of these ZONE classes have a zone name, and specific parameters defining the zone type: +-- +-- * @{Zone#ZONE_BASE}: The ZONE_BASE class defining the base for all other zone classes. +-- * @{Zone#ZONE_RADIUS}: The ZONE_RADIUS class defined by a zone name, a location and a radius. +-- * @{Zone#ZONE}: The ZONE class, defined by the zone name as defined within the Mission Editor. +-- * @{Zone#ZONE_UNIT}: The ZONE_UNIT class defines by a zone around a @{Unit#UNIT} with a radius. +-- * @{Zone#ZONE_GROUP}: The ZONE_GROUP class defines by a zone around a @{Group#GROUP} with a radius. +-- * @{Zone#ZONE_POLYGON}: The ZONE_POLYGON class defines by a sequence of @{Group#GROUP} waypoints within the Mission Editor, forming a polygon. +-- +-- Each zone implements two polymorphic functions defined in @{Zone#ZONE_BASE}: +-- +-- * @{#ZONE_BASE.IsPointVec2InZone}: Returns if a location is within the zone. +-- * @{#ZONE_BASE.IsPointVec3InZone}: Returns if a point is within the zone. +-- +-- === +-- +-- 1) @{Zone#ZONE_BASE} class, extends @{Base#BASE} +-- ================================================ +-- The ZONE_BASE class defining the base for all other zone classes. +-- +-- === +-- +-- 2) @{Zone#ZONE_RADIUS} class, extends @{Zone#ZONE_BASE} +-- ======================================================= +-- The ZONE_RADIUS class defined by a zone name, a location and a radius. +-- +-- === +-- +-- 3) @{Zone#ZONE} class, extends @{Zone#ZONE_RADIUS} +-- ========================================== +-- The ZONE class, defined by the zone name as defined within the Mission Editor. +-- +-- === +-- +-- 4) @{Zone#ZONE_UNIT} class, extends @{Zone#ZONE_RADIUS} +-- ======================================================= +-- The ZONE_UNIT class defined by a zone around a @{Unit#UNIT} with a radius. +-- +-- === +-- +-- 5) @{Zone#ZONE_GROUP} class, extends @{Zone#ZONE_RADIUS} +-- ======================================================= +-- The ZONE_GROUP class defines by a zone around a @{Group#GROUP} with a radius. The current leader of the group defines the center of the zone. +-- +-- === +-- +-- 6) @{Zone#ZONE_POLYGON} class, extends @{Zone#ZONE_BASE} +-- ======================================================== +-- The ZONE_POLYGON class defined by a sequence of @{Group#GROUP} waypoints within the Mission Editor, forming a polygon. +-- +-- === +-- +-- @module Zone +-- @author FlightControl + + +--- The ZONE_BASE class +-- @type ZONE_BASE +-- @field #string ZoneName Name of the zone. +-- @extends Base#BASE +ZONE_BASE = { + ClassName = "ZONE_BASE", + } + + +--- The ZONE_BASE.BoundingSquare +-- @type ZONE_BASE.BoundingSquare +-- @field DCSTypes#Distance x1 The lower x coordinate (left down) +-- @field DCSTypes#Distance y1 The lower y coordinate (left down) +-- @field DCSTypes#Distance x2 The higher x coordinate (right up) +-- @field DCSTypes#Distance y2 The higher y coordinate (right up) + + +--- ZONE_BASE constructor +-- @param #ZONE_BASE self +-- @param #string ZoneName Name of the zone. +-- @return #ZONE_BASE self +function ZONE_BASE:New( ZoneName ) + local self = BASE:Inherit( self, BASE:New() ) + self:F( ZoneName ) + + self.ZoneName = ZoneName + + return self +end + +--- Returns if a location is within the zone. +-- @param #ZONE_BASE self +-- @param DCSTypes#Vec2 PointVec2 The location to test. +-- @return #boolean true if the location is within the zone. +function ZONE_BASE:IsPointVec2InZone( PointVec2 ) + self:F2( PointVec2 ) + + return false +end + +--- Returns if a point is within the zone. +-- @param #ZONE_BASE self +-- @param DCSTypes#Vec3 PointVec3 The point to test. +-- @return #boolean true if the point is within the zone. +function ZONE_BASE:IsPointVec3InZone( PointVec3 ) + self:F2( PointVec3 ) + + local InZone = self:IsPointVec2InZone( { x = PointVec3.x, y = PointVec3.z } ) + + return InZone +end + +--- Define a random @{DCSTypes#Vec2} within the zone. +-- @param #ZONE_BASE self +-- @return DCSTypes#Vec2 The Vec2 coordinates. +function ZONE_BASE:GetRandomVec2() + return { x = 0, y = 0 } +end + +--- Get the bounding square the zone. +-- @param #ZONE_BASE self +-- @return #ZONE_BASE.BoundingSquare The bounding square. +function ZONE_BASE:GetBoundingSquare() + return { x1 = 0, y1 = 0, x2 = 0, y2 = 0 } +end + + +--- Smokes the zone boundaries in a color. +-- @param #ZONE_BASE self +-- @param SmokeColor The smoke color. +function ZONE_BASE:SmokeZone( SmokeColor ) + self:F2( SmokeColor ) + +end + + +--- The ZONE_RADIUS class, defined by a zone name, a location and a radius. +-- @type ZONE_RADIUS +-- @field DCSTypes#Vec2 PointVec2 The current location of the zone. +-- @field DCSTypes#Distance Radius The radius of the zone. +-- @extends Zone#ZONE_BASE +ZONE_RADIUS = { + ClassName="ZONE_RADIUS", + } + +--- Constructor of ZONE_RADIUS, taking the zone name, the zone location and a radius. +-- @param #ZONE_RADIUS self +-- @param #string ZoneName Name of the zone. +-- @param DCSTypes#Vec2 PointVec2 The location of the zone. +-- @param DCSTypes#Distance Radius The radius of the zone. +-- @return #ZONE_RADIUS self +function ZONE_RADIUS:New( ZoneName, PointVec2, Radius ) + local self = BASE:Inherit( self, ZONE_BASE:New( ZoneName ) ) + self:F( { ZoneName, PointVec2, Radius } ) + + self.Radius = Radius + self.PointVec2 = PointVec2 + + return self +end + +--- Smokes the zone boundaries in a color. +-- @param #ZONE_RADIUS self +-- @param #POINT_VEC3.SmokeColor SmokeColor The smoke color. +-- @param #number Points (optional) The amount of points in the circle. +-- @return #ZONE_RADIUS self +function ZONE_RADIUS:SmokeZone( SmokeColor, Points ) + self:F2( SmokeColor ) + + local Point = {} + local PointVec2 = self:GetPointVec2() + + Points = Points and Points or 360 + + local Angle + local RadialBase = math.pi*2 + + for Angle = 0, 360, 360 / Points do + local Radial = Angle * RadialBase / 360 + Point.x = PointVec2.x + math.cos( Radial ) * self:GetRadius() + Point.y = PointVec2.y + math.sin( Radial ) * self:GetRadius() + POINT_VEC2:New( Point.x, Point.y ):Smoke( SmokeColor ) + end + + return self +end + + +--- Flares the zone boundaries in a color. +-- @param #ZONE_RADIUS self +-- @param #POINT_VEC3.FlareColor FlareColor The flare color. +-- @param #number Points (optional) The amount of points in the circle. +-- @param DCSTypes#Azimuth Azimuth (optional) Azimuth The azimuth of the flare. +-- @return #ZONE_RADIUS self +function ZONE_RADIUS:FlareZone( FlareColor, Points, Azimuth ) + self:F2( { FlareColor, Azimuth } ) + + local Point = {} + local PointVec2 = self:GetPointVec2() + + Points = Points and Points or 360 + + local Angle + local RadialBase = math.pi*2 + + for Angle = 0, 360, 360 / Points do + local Radial = Angle * RadialBase / 360 + Point.x = PointVec2.x + math.cos( Radial ) * self:GetRadius() + Point.y = PointVec2.y + math.sin( Radial ) * self:GetRadius() + POINT_VEC2:New( Point.x, Point.y ):Flare( FlareColor, Azimuth ) + end + + return self +end + +--- Returns the radius of the zone. +-- @param #ZONE_RADIUS self +-- @return DCSTypes#Distance The radius of the zone. +function ZONE_RADIUS:GetRadius() + self:F2( self.ZoneName ) + + self:T2( { self.Radius } ) + + return self.Radius +end + +--- Sets the radius of the zone. +-- @param #ZONE_RADIUS self +-- @param DCSTypes#Distance Radius The radius of the zone. +-- @return DCSTypes#Distance The radius of the zone. +function ZONE_RADIUS:SetRadius( Radius ) + self:F2( self.ZoneName ) + + self.Radius = Radius + self:T2( { self.Radius } ) + + return self.Radius +end + +--- Returns the location of the zone. +-- @param #ZONE_RADIUS self +-- @return DCSTypes#Vec2 The location of the zone. +function ZONE_RADIUS:GetPointVec2() + self:F2( self.ZoneName ) + + self:T2( { self.PointVec2 } ) + + return self.PointVec2 +end + +--- Sets the location of the zone. +-- @param #ZONE_RADIUS self +-- @param DCSTypes#Vec2 PointVec2 The new location of the zone. +-- @return DCSTypes#Vec2 The new location of the zone. +function ZONE_RADIUS:SetPointVec2( PointVec2 ) + self:F2( self.ZoneName ) + + self.PointVec2 = PointVec2 + + self:T2( { self.PointVec2 } ) + + return self.PointVec2 +end + +--- Returns the point of the zone. +-- @param #ZONE_RADIUS self +-- @param DCSTypes#Distance Height The height to add to the land height where the center of the zone is located. +-- @return DCSTypes#Vec3 The point of the zone. +function ZONE_RADIUS:GetPointVec3( Height ) + self:F2( self.ZoneName ) + + local PointVec2 = self:GetPointVec2() + + local PointVec3 = { x = PointVec2.x, y = land.getHeight( self:GetPointVec2() ) + Height, z = PointVec2.y } + + self:T2( { PointVec3 } ) + + return PointVec3 +end + + +--- Returns if a location is within the zone. +-- @param #ZONE_RADIUS self +-- @param DCSTypes#Vec2 PointVec2 The location to test. +-- @return #boolean true if the location is within the zone. +function ZONE_RADIUS:IsPointVec2InZone( PointVec2 ) + self:F2( PointVec2 ) + + local ZonePointVec2 = self:GetPointVec2() + + if (( PointVec2.x - ZonePointVec2.x )^2 + ( PointVec2.y - ZonePointVec2.y ) ^2 ) ^ 0.5 <= self:GetRadius() then + return true + end + + return false +end + +--- Returns if a point is within the zone. +-- @param #ZONE_RADIUS self +-- @param DCSTypes#Vec3 PointVec3 The point to test. +-- @return #boolean true if the point is within the zone. +function ZONE_RADIUS:IsPointVec3InZone( PointVec3 ) + self:F2( PointVec3 ) + + local InZone = self:IsPointVec2InZone( { x = PointVec3.x, y = PointVec3.z } ) + + return InZone +end + +--- Returns a random location within the zone. +-- @param #ZONE_RADIUS self +-- @return DCSTypes#Vec2 The random location within the zone. +function ZONE_RADIUS:GetRandomVec2() + self:F( self.ZoneName ) + + local Point = {} + local PointVec2 = self:GetPointVec2() + + local angle = math.random() * math.pi*2; + Point.x = PointVec2.x + math.cos( angle ) * math.random() * self:GetRadius(); + Point.y = PointVec2.y + math.sin( angle ) * math.random() * self:GetRadius(); + + self:T( { Point } ) + + return Point +end + + + +--- The ZONE class, defined by the zone name as defined within the Mission Editor. The location and the radius are automatically collected from the mission settings. +-- @type ZONE +-- @extends Zone#ZONE_RADIUS +ZONE = { + ClassName="ZONE", + } + + +--- Constructor of ZONE, taking the zone name. +-- @param #ZONE self +-- @param #string ZoneName The name of the zone as defined within the mission editor. +-- @return #ZONE +function ZONE:New( ZoneName ) + + local Zone = trigger.misc.getZone( ZoneName ) + + if not Zone then + error( "Zone " .. ZoneName .. " does not exist." ) + return nil + end + + local self = BASE:Inherit( self, ZONE_RADIUS:New( ZoneName, { x = Zone.point.x, y = Zone.point.z }, Zone.radius ) ) + self:F( ZoneName ) + + self.Zone = Zone + + return self +end + + +--- The ZONE_UNIT class defined by a zone around a @{Unit#UNIT} with a radius. +-- @type ZONE_UNIT +-- @field Unit#UNIT ZoneUNIT +-- @extends Zone#ZONE_RADIUS +ZONE_UNIT = { + ClassName="ZONE_UNIT", + } + +--- Constructor to create a ZONE_UNIT instance, taking the zone name, a zone unit and a radius. +-- @param #ZONE_UNIT self +-- @param #string ZoneName Name of the zone. +-- @param Unit#UNIT ZoneUNIT The unit as the center of the zone. +-- @param DCSTypes#Distance Radius The radius of the zone. +-- @return #ZONE_UNIT self +function ZONE_UNIT:New( ZoneName, ZoneUNIT, Radius ) + local self = BASE:Inherit( self, ZONE_RADIUS:New( ZoneName, ZoneUNIT:GetPointVec2(), Radius ) ) + self:F( { ZoneName, ZoneUNIT:GetPointVec2(), Radius } ) + + self.ZoneUNIT = ZoneUNIT + + return self +end + + +--- Returns the current location of the @{Unit#UNIT}. +-- @param #ZONE_UNIT self +-- @return DCSTypes#Vec2 The location of the zone based on the @{Unit#UNIT}location. +function ZONE_UNIT:GetPointVec2() + self:F( self.ZoneName ) + + local ZonePointVec2 = self.ZoneUNIT:GetPointVec2() + + self:T( { ZonePointVec2 } ) + + return ZonePointVec2 +end + +--- Returns a random location within the zone. +-- @param #ZONE_UNIT self +-- @return DCSTypes#Vec2 The random location within the zone. +function ZONE_UNIT:GetRandomVec2() + self:F( self.ZoneName ) + + local Point = {} + local PointVec2 = self.ZoneUNIT:GetPointVec2() + + local angle = math.random() * math.pi*2; + Point.x = PointVec2.x + math.cos( angle ) * math.random() * self:GetRadius(); + Point.y = PointVec2.y + math.sin( angle ) * math.random() * self:GetRadius(); + + self:T( { Point } ) + + return Point +end + +--- The ZONE_GROUP class defined by a zone around a @{Group}, taking the average center point of all the units within the Group, with a radius. +-- @type ZONE_GROUP +-- @field Group#GROUP ZoneGROUP +-- @extends Zone#ZONE_RADIUS +ZONE_GROUP = { + ClassName="ZONE_GROUP", + } + +--- Constructor to create a ZONE_GROUP instance, taking the zone name, a zone @{Group#GROUP} and a radius. +-- @param #ZONE_GROUP self +-- @param #string ZoneName Name of the zone. +-- @param Group#GROUP ZoneGROUP The @{Group} as the center of the zone. +-- @param DCSTypes#Distance Radius The radius of the zone. +-- @return #ZONE_GROUP self +function ZONE_GROUP:New( ZoneName, ZoneGROUP, Radius ) + local self = BASE:Inherit( self, ZONE_RADIUS:New( ZoneName, ZoneGROUP:GetPointVec2(), Radius ) ) + self:F( { ZoneName, ZoneGROUP:GetPointVec2(), Radius } ) + + self.ZoneGROUP = ZoneGROUP + + return self +end + + +--- Returns the current location of the @{Group}. +-- @param #ZONE_GROUP self +-- @return DCSTypes#Vec2 The location of the zone based on the @{Group} location. +function ZONE_GROUP:GetPointVec2() + self:F( self.ZoneName ) + + local ZonePointVec2 = self.ZoneGROUP:GetPointVec2() + + self:T( { ZonePointVec2 } ) + + return ZonePointVec2 +end + +--- Returns a random location within the zone of the @{Group}. +-- @param #ZONE_GROUP self +-- @return DCSTypes#Vec2 The random location of the zone based on the @{Group} location. +function ZONE_GROUP:GetRandomVec2() + self:F( self.ZoneName ) + + local Point = {} + local PointVec2 = self.ZoneGROUP:GetPointVec2() + + local angle = math.random() * math.pi*2; + Point.x = PointVec2.x + math.cos( angle ) * math.random() * self:GetRadius(); + Point.y = PointVec2.y + math.sin( angle ) * math.random() * self:GetRadius(); + + self:T( { Point } ) + + return Point +end + + + +-- Polygons + +--- The ZONE_POLYGON_BASE class defined by an array of @{DCSTypes#Vec2}, forming a polygon. +-- @type ZONE_POLYGON_BASE +-- @field #ZONE_POLYGON_BASE.ListVec2 Polygon The polygon defined by an array of @{DCSTypes#Vec2}. +-- @extends Zone#ZONE_BASE +ZONE_POLYGON_BASE = { + ClassName="ZONE_POLYGON_BASE", + } + +--- A points array. +-- @type ZONE_POLYGON_BASE.ListVec2 +-- @list + +--- Constructor to create a ZONE_POLYGON_BASE instance, taking the zone name and an array of @{DCSTypes#Vec2}, forming a polygon. +-- The @{Group#GROUP} waypoints define the polygon corners. The first and the last point are automatically connected. +-- @param #ZONE_POLYGON_BASE self +-- @param #string ZoneName Name of the zone. +-- @param #ZONE_POLYGON_BASE.ListVec2 PointsArray An array of @{DCSTypes#Vec2}, forming a polygon.. +-- @return #ZONE_POLYGON_BASE self +function ZONE_POLYGON_BASE:New( ZoneName, PointsArray ) + local self = BASE:Inherit( self, ZONE_BASE:New( ZoneName ) ) + self:F( { ZoneName, PointsArray } ) + + local i = 0 + + self.Polygon = {} + + for i = 1, #PointsArray do + self.Polygon[i] = {} + self.Polygon[i].x = PointsArray[i].x + self.Polygon[i].y = PointsArray[i].y + end + + return self +end + +--- Flush polygon coordinates as a table in DCS.log. +-- @param #ZONE_POLYGON_BASE self +-- @return #ZONE_POLYGON_BASE self +function ZONE_POLYGON_BASE:Flush() + self:F2() + + self:E( { Polygon = self.ZoneName, Coordinates = self.Polygon } ) + + return self +end + + +--- Smokes the zone boundaries in a color. +-- @param #ZONE_POLYGON_BASE self +-- @param #POINT_VEC3.SmokeColor SmokeColor The smoke color. +-- @return #ZONE_POLYGON_BASE self +function ZONE_POLYGON_BASE:SmokeZone( SmokeColor ) + self:F2( SmokeColor ) + + local i + local j + local Segments = 10 + + i = 1 + j = #self.Polygon + + while i <= #self.Polygon do + self:T( { i, j, self.Polygon[i], self.Polygon[j] } ) + + local DeltaX = self.Polygon[j].x - self.Polygon[i].x + local DeltaY = self.Polygon[j].y - self.Polygon[i].y + + for Segment = 0, Segments do -- We divide each line in 5 segments and smoke a point on the line. + local PointX = self.Polygon[i].x + ( Segment * DeltaX / Segments ) + local PointY = self.Polygon[i].y + ( Segment * DeltaY / Segments ) + POINT_VEC2:New( PointX, PointY ):Smoke( SmokeColor ) + end + j = i + i = i + 1 + end + + return self +end + + + + +--- Returns if a location is within the zone. +-- Source learned and taken from: https://www.ecse.rpi.edu/Homepages/wrf/Research/Short_Notes/pnpoly.html +-- @param #ZONE_POLYGON_BASE self +-- @param DCSTypes#Vec2 PointVec2 The location to test. +-- @return #boolean true if the location is within the zone. +function ZONE_POLYGON_BASE:IsPointVec2InZone( PointVec2 ) + self:F2( PointVec2 ) + + local Next + local Prev + local InPolygon = false + + Next = 1 + Prev = #self.Polygon + + while Next <= #self.Polygon do + self:T( { Next, Prev, self.Polygon[Next], self.Polygon[Prev] } ) + if ( ( ( self.Polygon[Next].y > PointVec2.y ) ~= ( self.Polygon[Prev].y > PointVec2.y ) ) and + ( PointVec2.x < ( self.Polygon[Prev].x - self.Polygon[Next].x ) * ( PointVec2.y - self.Polygon[Next].y ) / ( self.Polygon[Prev].y - self.Polygon[Next].y ) + self.Polygon[Next].x ) + ) then + InPolygon = not InPolygon + end + self:T2( { InPolygon = InPolygon } ) + Prev = Next + Next = Next + 1 + end + + self:T( { InPolygon = InPolygon } ) + return InPolygon +end + +--- Define a random @{DCSTypes#Vec2} within the zone. +-- @param #ZONE_POLYGON_BASE self +-- @return DCSTypes#Vec2 The Vec2 coordinate. +function ZONE_POLYGON_BASE:GetRandomVec2() + self:F2() + + --- It is a bit tricky to find a random point within a polygon. Right now i am doing it the dirty and inefficient way... + local Vec2Found = false + local Vec2 + local BS = self:GetBoundingSquare() + + self:T2( BS ) + + while Vec2Found == false do + Vec2 = { x = math.random( BS.x1, BS.x2 ), y = math.random( BS.y1, BS.y2 ) } + self:T2( Vec2 ) + if self:IsPointVec2InZone( Vec2 ) then + Vec2Found = true + end + end + + self:T2( Vec2 ) + + return Vec2 +end + +--- Get the bounding square the zone. +-- @param #ZONE_POLYGON_BASE self +-- @return #ZONE_POLYGON_BASE.BoundingSquare The bounding square. +function ZONE_POLYGON_BASE:GetBoundingSquare() + + local x1 = self.Polygon[1].x + local y1 = self.Polygon[1].y + local x2 = self.Polygon[1].x + local y2 = self.Polygon[1].y + + for i = 2, #self.Polygon do + self:T2( { self.Polygon[i], x1, y1, x2, y2 } ) + x1 = ( x1 > self.Polygon[i].x ) and self.Polygon[i].x or x1 + x2 = ( x2 < self.Polygon[i].x ) and self.Polygon[i].x or x2 + y1 = ( y1 > self.Polygon[i].y ) and self.Polygon[i].y or y1 + y2 = ( y2 < self.Polygon[i].y ) and self.Polygon[i].y or y2 + + end + + return { x1 = x1, y1 = y1, x2 = x2, y2 = y2 } +end + + + + + +--- The ZONE_POLYGON class defined by a sequence of @{Group#GROUP} waypoints within the Mission Editor, forming a polygon. +-- @type ZONE_POLYGON +-- @extends Zone#ZONE_POLYGON_BASE +ZONE_POLYGON = { + ClassName="ZONE_POLYGON", + } + +--- Constructor to create a ZONE_POLYGON instance, taking the zone name and the name of the @{Group#GROUP} defined within the Mission Editor. +-- The @{Group#GROUP} waypoints define the polygon corners. The first and the last point are automatically connected by ZONE_POLYGON. +-- @param #ZONE_POLYGON self +-- @param #string ZoneName Name of the zone. +-- @param Group#GROUP ZoneGroup The GROUP waypoints as defined within the Mission Editor define the polygon shape. +-- @return #ZONE_POLYGON self +function ZONE_POLYGON:New( ZoneName, ZoneGroup ) + + local GroupPoints = ZoneGroup:GetTaskRoute() + + local self = BASE:Inherit( self, ZONE_POLYGON_BASE:New( ZoneName, GroupPoints ) ) + self:F( { ZoneName, ZoneGroup, self.Polygon } ) + + return self +end + +--- This module contains the CLIENT class. +-- +-- 1) @{Client#CLIENT} class, extends @{Unit#UNIT} +-- =============================================== +-- Clients are those **Units** defined within the Mission Editor that have the skillset defined as __Client__ or __Player__. +-- Note that clients are NOT the same as Units, they are NOT necessarily alive. +-- The @{Client#CLIENT} class is a wrapper class to handle the DCS Unit objects that have the skillset defined as __Client__ or __Player__: +-- +-- * Wraps the DCS Unit objects with skill level set to Player or Client. +-- * Support all DCS Unit APIs. +-- * Enhance with Unit specific APIs not in the DCS Group API set. +-- * When player joins Unit, execute alive init logic. +-- * Handles messages to players. +-- * Manage the "state" of the DCS Unit. +-- +-- Clients are being used by the @{MISSION} class to follow players and register their successes. +-- +-- 1.1) CLIENT reference methods +-- ----------------------------- +-- For each DCS Unit having skill level Player or Client, a CLIENT wrapper object (instance) will be created within the _@{DATABASE} object. +-- This is done at the beginning of the mission (when the mission starts). +-- +-- The CLIENT class does not contain a :New() method, rather it provides :Find() methods to retrieve the object reference +-- using the DCS Unit or the DCS UnitName. +-- +-- Another thing to know is that CLIENT objects do not "contain" the DCS Unit object. +-- The CLIENT methods will reference the DCS Unit object by name when it is needed during API execution. +-- If the DCS Unit object does not exist or is nil, the CLIENT methods will return nil and log an exception in the DCS.log file. +-- +-- The CLIENT class provides the following functions to retrieve quickly the relevant CLIENT instance: +-- +-- * @{#CLIENT.Find}(): Find a CLIENT instance from the _DATABASE object using a DCS Unit object. +-- * @{#CLIENT.FindByName}(): Find a CLIENT instance from the _DATABASE object using a DCS Unit name. +-- +-- IMPORTANT: ONE SHOULD NEVER SANATIZE these CLIENT OBJECT REFERENCES! (make the CLIENT object references nil). +-- +-- @module Client +-- @author FlightControl + +--- The CLIENT class +-- @type CLIENT +-- @extends Unit#UNIT +CLIENT = { + ONBOARDSIDE = { + NONE = 0, + LEFT = 1, + RIGHT = 2, + BACK = 3, + FRONT = 4 + }, + ClassName = "CLIENT", + ClientName = nil, + ClientAlive = false, + ClientTransport = false, + ClientBriefingShown = false, + _Menus = {}, + _Tasks = {}, + Messages = { + } +} + + +--- Finds a CLIENT from the _DATABASE using the relevant DCS Unit. +-- @param #CLIENT self +-- @param #string ClientName Name of the DCS **Unit** as defined within the Mission Editor. +-- @param #string ClientBriefing Text that describes the briefing of the mission when a Player logs into the Client. +-- @return #CLIENT +-- @usage +-- -- Create new Clients. +-- local Mission = MISSIONSCHEDULER.AddMission( 'Russia Transport Troops SA-6', 'Operational', 'Transport troops from the control center to one of the SA-6 SAM sites to activate their operation.', 'Russia' ) +-- Mission:AddGoal( DeploySA6TroopsGoal ) +-- +-- Mission:AddClient( CLIENT:FindByName( 'RU MI-8MTV2*HOT-Deploy Troops 1' ):Transport() ) +-- Mission:AddClient( CLIENT:FindByName( 'RU MI-8MTV2*RAMP-Deploy Troops 3' ):Transport() ) +-- Mission:AddClient( CLIENT:FindByName( 'RU MI-8MTV2*HOT-Deploy Troops 2' ):Transport() ) +-- Mission:AddClient( CLIENT:FindByName( 'RU MI-8MTV2*RAMP-Deploy Troops 4' ):Transport() ) +function CLIENT:Find( DCSUnit ) + local ClientName = DCSUnit:getName() + local ClientFound = _DATABASE:FindClient( ClientName ) + + if ClientFound then + ClientFound:F( ClientName ) + return ClientFound + end + + error( "CLIENT not found for: " .. ClientName ) +end + + +--- Finds a CLIENT from the _DATABASE using the relevant Client Unit Name. +-- As an optional parameter, a briefing text can be given also. +-- @param #CLIENT self +-- @param #string ClientName Name of the DCS **Unit** as defined within the Mission Editor. +-- @param #string ClientBriefing Text that describes the briefing of the mission when a Player logs into the Client. +-- @return #CLIENT +-- @usage +-- -- Create new Clients. +-- local Mission = MISSIONSCHEDULER.AddMission( 'Russia Transport Troops SA-6', 'Operational', 'Transport troops from the control center to one of the SA-6 SAM sites to activate their operation.', 'Russia' ) +-- Mission:AddGoal( DeploySA6TroopsGoal ) +-- +-- Mission:AddClient( CLIENT:FindByName( 'RU MI-8MTV2*HOT-Deploy Troops 1' ):Transport() ) +-- Mission:AddClient( CLIENT:FindByName( 'RU MI-8MTV2*RAMP-Deploy Troops 3' ):Transport() ) +-- Mission:AddClient( CLIENT:FindByName( 'RU MI-8MTV2*HOT-Deploy Troops 2' ):Transport() ) +-- Mission:AddClient( CLIENT:FindByName( 'RU MI-8MTV2*RAMP-Deploy Troops 4' ):Transport() ) +function CLIENT:FindByName( ClientName, ClientBriefing ) + local ClientFound = _DATABASE:FindClient( ClientName ) + + if ClientFound then + ClientFound:F( { ClientName, ClientBriefing } ) + ClientFound:AddBriefing( ClientBriefing ) + ClientFound.MessageSwitch = true + + return ClientFound + end + + error( "CLIENT not found for: " .. ClientName ) +end + +function CLIENT:Register( ClientName ) + local self = BASE:Inherit( self, UNIT:Register( ClientName ) ) + + self:F( ClientName ) + self.ClientName = ClientName + self.MessageSwitch = true + self.ClientAlive2 = false + + --self.AliveCheckScheduler = routines.scheduleFunction( self._AliveCheckScheduler, { self }, timer.getTime() + 1, 5 ) + self.AliveCheckScheduler = SCHEDULER:New( self, self._AliveCheckScheduler, { "Client Alive " .. ClientName }, 1, 5 ) + + self:E( self ) + return self +end + + +--- Transport defines that the Client is a Transport. Transports show cargo. +-- @param #CLIENT self +-- @return #CLIENT +function CLIENT:Transport() + self:F() + + self.ClientTransport = true + return self +end + +--- AddBriefing adds a briefing to a CLIENT when a player joins a mission. +-- @param #CLIENT self +-- @param #string ClientBriefing is the text defining the Mission briefing. +-- @return #CLIENT self +function CLIENT:AddBriefing( ClientBriefing ) + self:F( ClientBriefing ) + self.ClientBriefing = ClientBriefing + self.ClientBriefingShown = false + + return self +end + +--- Show the briefing of a CLIENT. +-- @param #CLIENT self +-- @return #CLIENT self +function CLIENT:ShowBriefing() + self:F( { self.ClientName, self.ClientBriefingShown } ) + + if not self.ClientBriefingShown then + self.ClientBriefingShown = true + local Briefing = "" + if self.ClientBriefing then + Briefing = Briefing .. self.ClientBriefing + end + Briefing = Briefing .. " Press [LEFT ALT]+[B] to view the complete mission briefing." + self:Message( Briefing, 60, "Briefing" ) + end + + return self +end + +--- Show the mission briefing of a MISSION to the CLIENT. +-- @param #CLIENT self +-- @param #string MissionBriefing +-- @return #CLIENT self +function CLIENT:ShowMissionBriefing( MissionBriefing ) + self:F( { self.ClientName } ) + + if MissionBriefing then + self:Message( MissionBriefing, 60, "Mission Briefing" ) + end + + return self +end + + + +--- Resets a CLIENT. +-- @param #CLIENT self +-- @param #string ClientName Name of the Group as defined within the Mission Editor. The Group must have a Unit with the type Client. +function CLIENT:Reset( ClientName ) + self:F() + self._Menus = {} +end + +-- Is Functions + +--- Checks if the CLIENT is a multi-seated UNIT. +-- @param #CLIENT self +-- @return #boolean true if multi-seated. +function CLIENT:IsMultiSeated() + self:F( self.ClientName ) + + local ClientMultiSeatedTypes = { + ["Mi-8MT"] = "Mi-8MT", + ["UH-1H"] = "UH-1H", + ["P-51B"] = "P-51B" + } + + if self:IsAlive() then + local ClientTypeName = self:GetClientGroupUnit():GetTypeName() + if ClientMultiSeatedTypes[ClientTypeName] then + return true + end + end + + return false +end + +--- Checks for a client alive event and calls a function on a continuous basis. +-- @param #CLIENT self +-- @param #function CallBack Function. +-- @return #CLIENT +function CLIENT:Alive( CallBackFunction, ... ) + self:F() + + self.ClientCallBack = CallBackFunction + self.ClientParameters = arg + + return self +end + +--- @param #CLIENT self +function CLIENT:_AliveCheckScheduler( SchedulerName ) + self:F( { SchedulerName, self.ClientName, self.ClientAlive2, self.ClientBriefingShown, self.ClientCallBack } ) + + if self:IsAlive() then + if self.ClientAlive2 == false then + self:ShowBriefing() + if self.ClientCallBack then + self:T("Calling Callback function") + self.ClientCallBack( self, unpack( self.ClientParameters ) ) + end + self.ClientAlive2 = true + end + else + if self.ClientAlive2 == true then + self.ClientAlive2 = false + end + end + + return true +end + +--- Return the DCSGroup of a Client. +-- This function is modified to deal with a couple of bugs in DCS 1.5.3 +-- @param #CLIENT self +-- @return DCSGroup#Group +function CLIENT:GetDCSGroup() + self:F3() + +-- local ClientData = Group.getByName( self.ClientName ) +-- if ClientData and ClientData:isExist() then +-- self:T( self.ClientName .. " : group found!" ) +-- return ClientData +-- else +-- return nil +-- end + + local ClientUnit = Unit.getByName( self.ClientName ) + + local CoalitionsData = { AlivePlayersRed = coalition.getPlayers( coalition.side.RED ), AlivePlayersBlue = coalition.getPlayers( coalition.side.BLUE ) } + for CoalitionId, CoalitionData in pairs( CoalitionsData ) do + self:T3( { "CoalitionData:", CoalitionData } ) + for UnitId, UnitData in pairs( CoalitionData ) do + self:T3( { "UnitData:", UnitData } ) + if UnitData and UnitData:isExist() then + + --self:E(self.ClientName) + if ClientUnit then + local ClientGroup = ClientUnit:getGroup() + if ClientGroup then + self:T3( "ClientGroup = " .. self.ClientName ) + if ClientGroup:isExist() and UnitData:getGroup():isExist() then + if ClientGroup:getID() == UnitData:getGroup():getID() then + self:T3( "Normal logic" ) + self:T3( self.ClientName .. " : group found!" ) + self.ClientGroupID = ClientGroup:getID() + self.ClientGroupName = ClientGroup:getName() + return ClientGroup + end + else + -- Now we need to resolve the bugs in DCS 1.5 ... + -- Consult the database for the units of the Client Group. (ClientGroup:getUnits() returns nil) + self:T3( "Bug 1.5 logic" ) + local ClientGroupTemplate = _DATABASE.Templates.Units[self.ClientName].GroupTemplate + self.ClientGroupID = ClientGroupTemplate.groupId + self.ClientGroupName = _DATABASE.Templates.Units[self.ClientName].GroupName + self:T3( self.ClientName .. " : group found in bug 1.5 resolvement logic!" ) + return ClientGroup + end + -- else + -- error( "Client " .. self.ClientName .. " not found!" ) + end + else + --self:E( { "Client not found!", self.ClientName } ) + end + end + end + end + + -- For non player clients + if ClientUnit then + local ClientGroup = ClientUnit:getGroup() + if ClientGroup then + self:T3( "ClientGroup = " .. self.ClientName ) + if ClientGroup:isExist() then + self:T3( "Normal logic" ) + self:T3( self.ClientName .. " : group found!" ) + return ClientGroup + end + end + end + + self.ClientGroupID = nil + self.ClientGroupUnit = nil + + return nil +end + + +-- TODO: Check DCSTypes#Group.ID +--- Get the group ID of the client. +-- @param #CLIENT self +-- @return DCSTypes#Group.ID +function CLIENT:GetClientGroupID() + + local ClientGroup = self:GetDCSGroup() + + --self:E( self.ClientGroupID ) -- Determined in GetDCSGroup() + return self.ClientGroupID +end + + +--- Get the name of the group of the client. +-- @param #CLIENT self +-- @return #string +function CLIENT:GetClientGroupName() + + local ClientGroup = self:GetDCSGroup() + + self:T( self.ClientGroupName ) -- Determined in GetDCSGroup() + return self.ClientGroupName +end + +--- Returns the UNIT of the CLIENT. +-- @param #CLIENT self +-- @return Unit#UNIT +function CLIENT:GetClientGroupUnit() + self:F2() + + local ClientDCSUnit = Unit.getByName( self.ClientName ) + + self:T( self.ClientDCSUnit ) + if ClientDCSUnit and ClientDCSUnit:isExist() then + local ClientUnit = _DATABASE:FindUnit( self.ClientName ) + self:T2( ClientUnit ) + return ClientUnit + end +end + +--- Returns the DCSUnit of the CLIENT. +-- @param #CLIENT self +-- @return DCSTypes#Unit +function CLIENT:GetClientGroupDCSUnit() + self:F2() + + local ClientDCSUnit = Unit.getByName( self.ClientName ) + + if ClientDCSUnit and ClientDCSUnit:isExist() then + self:T2( ClientDCSUnit ) + return ClientDCSUnit + end +end + + +--- Evaluates if the CLIENT is a transport. +-- @param #CLIENT self +-- @return #boolean true is a transport. +function CLIENT:IsTransport() + self:F() + return self.ClientTransport +end + +--- Shows the @{Cargo#CARGO} contained within the CLIENT to the player as a message. +-- The @{Cargo#CARGO} is shown using the @{Message#MESSAGE} distribution system. +-- @param #CLIENT self +function CLIENT:ShowCargo() + self:F() + + local CargoMsg = "" + + for CargoName, Cargo in pairs( CARGOS ) do + if self == Cargo:IsLoadedInClient() then + CargoMsg = CargoMsg .. Cargo.CargoName .. " Type:" .. Cargo.CargoType .. " Weight: " .. Cargo.CargoWeight .. "\n" + end + end + + if CargoMsg == "" then + CargoMsg = "empty" + end + + self:Message( CargoMsg, 15, "Co-Pilot: Cargo Status", 30 ) + +end + +-- TODO (1) I urgently need to revise this. +--- A local function called by the DCS World Menu system to switch off messages. +function CLIENT.SwitchMessages( PrmTable ) + PrmTable[1].MessageSwitch = PrmTable[2] +end + +--- The main message driver for the CLIENT. +-- This function displays various messages to the Player logged into the CLIENT through the DCS World Messaging system. +-- @param #CLIENT self +-- @param #string Message is the text describing the message. +-- @param #number MessageDuration is the duration in seconds that the Message should be displayed. +-- @param #string MessageCategory is the category of the message (the title). +-- @param #number MessageInterval is the interval in seconds between the display of the @{Message#MESSAGE} when the CLIENT is in the air. +-- @param #string MessageID is the identifier of the message when displayed with intervals. +function CLIENT:Message( Message, MessageDuration, MessageCategory, MessageInterval, MessageID ) + self:F( { Message, MessageDuration, MessageCategory, MessageInterval } ) + + if not self.MenuMessages then + if self:GetClientGroupID() then + self.MenuMessages = MENU_CLIENT:New( self, 'Messages' ) + self.MenuRouteMessageOn = MENU_CLIENT_COMMAND:New( self, 'Messages On', self.MenuMessages, CLIENT.SwitchMessages, { self, true } ) + self.MenuRouteMessageOff = MENU_CLIENT_COMMAND:New( self,'Messages Off', self.MenuMessages, CLIENT.SwitchMessages, { self, false } ) + end + end + + if self.MessageSwitch == true then + if MessageCategory == nil then + MessageCategory = "Messages" + end + if MessageID ~= nil then + if self.Messages[MessageID] == nil then + self.Messages[MessageID] = {} + self.Messages[MessageID].MessageId = MessageID + self.Messages[MessageID].MessageTime = timer.getTime() + self.Messages[MessageID].MessageDuration = MessageDuration + if MessageInterval == nil then + self.Messages[MessageID].MessageInterval = 600 + else + self.Messages[MessageID].MessageInterval = MessageInterval + end + MESSAGE:New( Message, MessageDuration, MessageCategory ):ToClient( self ) + else + if self:GetClientGroupDCSUnit() and not self:GetClientGroupDCSUnit():inAir() then + if timer.getTime() - self.Messages[MessageID].MessageTime >= self.Messages[MessageID].MessageDuration + 10 then + MESSAGE:New( Message, MessageDuration , MessageCategory):ToClient( self ) + self.Messages[MessageID].MessageTime = timer.getTime() + end + else + if timer.getTime() - self.Messages[MessageID].MessageTime >= self.Messages[MessageID].MessageDuration + self.Messages[MessageID].MessageInterval then + MESSAGE:New( Message, MessageDuration, MessageCategory ):ToClient( self ) + self.Messages[MessageID].MessageTime = timer.getTime() + end + end + end + else + MESSAGE:New( Message, MessageDuration, MessageCategory ):ToClient( self ) + end + end +end +--- This module contains the STATIC class. +-- +-- 1) @{Static#STATIC} class, extends @{Positionable#POSITIONABLE} +-- =============================================================== +-- Statics are **Static Units** defined within the Mission Editor. +-- Note that Statics are almost the same as Units, but they don't have a controller. +-- The @{Static#STATIC} class is a wrapper class to handle the DCS Static objects: +-- +-- * Wraps the DCS Static objects. +-- * Support all DCS Static APIs. +-- * Enhance with Static specific APIs not in the DCS API set. +-- +-- 1.1) STATIC reference methods +-- ----------------------------- +-- For each DCS Static will have a STATIC wrapper object (instance) within the _@{DATABASE} object. +-- This is done at the beginning of the mission (when the mission starts). +-- +-- The STATIC class does not contain a :New() method, rather it provides :Find() methods to retrieve the object reference +-- using the Static Name. +-- +-- Another thing to know is that STATIC objects do not "contain" the DCS Static object. +-- The STATIc methods will reference the DCS Static object by name when it is needed during API execution. +-- If the DCS Static object does not exist or is nil, the STATIC methods will return nil and log an exception in the DCS.log file. +-- +-- The STATIc class provides the following functions to retrieve quickly the relevant STATIC instance: +-- +-- * @{#STATIC.FindByName}(): Find a STATIC instance from the _DATABASE object using a DCS Static name. +-- +-- IMPORTANT: ONE SHOULD NEVER SANATIZE these STATIC OBJECT REFERENCES! (make the STATIC object references nil). +-- +-- @module Static +-- @author FlightControl + + + + + + +--- The STATIC class +-- @type STATIC +-- @extends Positionable#POSITIONABLE +STATIC = { + ClassName = "STATIC", +} + + +--- Finds a STATIC from the _DATABASE using the relevant Static Name. +-- As an optional parameter, a briefing text can be given also. +-- @param #STATIC self +-- @param #string StaticName Name of the DCS **Static** as defined within the Mission Editor. +-- @return #STATIC +function STATIC:FindByName( StaticName ) + local StaticFound = _DATABASE:FindStatic( StaticName ) + + if StaticFound then + StaticFound:F( { StaticName } ) + + return StaticFound + end + + error( "STATIC not found for: " .. StaticName ) +end + +function STATIC:Register( StaticName ) + local self = BASE:Inherit( self, POSITIONABLE:New( StaticName ) ) + return self +end + + +function STATIC:GetDCSUnit() + local DCSStatic = StaticObject.getByName( self.UnitName ) + + if DCSStatic then + return DCSStatic + end + + return nil +end +--- This module contains the AIRBASE classes. +-- +-- === +-- +-- 1) @{Airbase#AIRBASE} class, extends @{Positionable#POSITIONABLE} +-- ================================================================= +-- The @{AIRBASE} class is a wrapper class to handle the DCS Airbase objects: +-- +-- * Support all DCS Airbase APIs. +-- * Enhance with Airbase specific APIs not in the DCS Airbase API set. +-- +-- +-- 1.1) AIRBASE reference methods +-- ------------------------------ +-- For each DCS Airbase object alive within a running mission, a AIRBASE wrapper object (instance) will be created within the _@{DATABASE} object. +-- This is done at the beginning of the mission (when the mission starts). +-- +-- The AIRBASE class **does not contain a :New()** method, rather it provides **:Find()** methods to retrieve the object reference +-- using the DCS Airbase or the DCS AirbaseName. +-- +-- Another thing to know is that AIRBASE objects do not "contain" the DCS Airbase object. +-- The AIRBASE methods will reference the DCS Airbase object by name when it is needed during API execution. +-- If the DCS Airbase object does not exist or is nil, the AIRBASE methods will return nil and log an exception in the DCS.log file. +-- +-- The AIRBASE class provides the following functions to retrieve quickly the relevant AIRBASE instance: +-- +-- * @{#AIRBASE.Find}(): Find a AIRBASE instance from the _DATABASE object using a DCS Airbase object. +-- * @{#AIRBASE.FindByName}(): Find a AIRBASE instance from the _DATABASE object using a DCS Airbase name. +-- +-- IMPORTANT: ONE SHOULD NEVER SANATIZE these AIRBASE OBJECT REFERENCES! (make the AIRBASE object references nil). +-- +-- 1.2) DCS AIRBASE APIs +-- --------------------- +-- The DCS Airbase APIs are used extensively within MOOSE. The AIRBASE class has for each DCS Airbase API a corresponding method. +-- To be able to distinguish easily in your code the difference between a AIRBASE API call and a DCS Airbase API call, +-- the first letter of the method is also capitalized. So, by example, the DCS Airbase method @{DCSAirbase#Airbase.getName}() +-- is implemented in the AIRBASE class as @{#AIRBASE.GetName}(). +-- +-- More functions will be added +-- ---------------------------- +-- During the MOOSE development, more functions will be added. +-- +-- @module Airbase +-- @author FlightControl + + + + + +--- The AIRBASE class +-- @type AIRBASE +-- @extends Positionable#POSITIONABLE +AIRBASE = { + ClassName="AIRBASE", + CategoryName = { + [Airbase.Category.AIRDROME] = "Airdrome", + [Airbase.Category.HELIPAD] = "Helipad", + [Airbase.Category.SHIP] = "Ship", + }, + } + +-- Registration. + +--- Create a new AIRBASE from DCSAirbase. +-- @param #AIRBASE self +-- @param #string AirbaseName The name of the airbase. +-- @return Airbase#AIRBASE +function AIRBASE:Register( AirbaseName ) + + local self = BASE:Inherit( self, POSITIONABLE:New( AirbaseName ) ) + self.AirbaseName = AirbaseName + return self +end + +-- Reference methods. + +--- Finds a AIRBASE from the _DATABASE using a DCSAirbase object. +-- @param #AIRBASE self +-- @param DCSAirbase#Airbase DCSAirbase An existing DCS Airbase object reference. +-- @return Airbase#AIRBASE self +function AIRBASE:Find( DCSAirbase ) + + local AirbaseName = DCSAirbase:getName() + local AirbaseFound = _DATABASE:FindAirbase( AirbaseName ) + return AirbaseFound +end + +--- Find a AIRBASE in the _DATABASE using the name of an existing DCS Airbase. +-- @param #AIRBASE self +-- @param #string AirbaseName The Airbase Name. +-- @return Airbase#AIRBASE self +function AIRBASE:FindByName( AirbaseName ) + + local AirbaseFound = _DATABASE:FindAirbase( AirbaseName ) + return AirbaseFound +end + +function AIRBASE:GetDCSObject() + local DCSAirbase = Airbase.getByName( self.AirbaseName ) + + if DCSAirbase then + return DCSAirbase + end + + return nil +end + + + +--- This module contains the DATABASE class, managing the database of mission objects. +-- +-- ==== +-- +-- 1) @{Database#DATABASE} class, extends @{Base#BASE} +-- =================================================== +-- Mission designers can use the DATABASE class to refer to: +-- +-- * UNITS +-- * GROUPS +-- * CLIENTS +-- * AIRPORTS +-- * PLAYERSJOINED +-- * PLAYERS +-- +-- On top, for internal MOOSE administration purposes, the DATBASE administers the Unit and Group TEMPLATES as defined within the Mission Editor. +-- +-- Moose will automatically create one instance of the DATABASE class into the **global** object _DATABASE. +-- Moose refers to _DATABASE within the framework extensively, but you can also refer to the _DATABASE object within your missions if required. +-- +-- 1.1) DATABASE iterators +-- ----------------------- +-- You can iterate the database with the available iterator methods. +-- The iterator methods will walk the DATABASE set, and call for each element within the set a function that you provide. +-- The following iterator methods are currently available within the DATABASE: +-- +-- * @{#DATABASE.ForEachUnit}: Calls a function for each @{UNIT} it finds within the DATABASE. +-- * @{#DATABASE.ForEachGroup}: Calls a function for each @{GROUP} it finds within the DATABASE. +-- * @{#DATABASE.ForEachPlayer}: Calls a function for each alive player it finds within the DATABASE. +-- * @{#DATABASE.ForEachPlayerJoined}: Calls a function for each joined player it finds within the DATABASE. +-- * @{#DATABASE.ForEachClient}: Calls a function for each @{CLIENT} it finds within the DATABASE. +-- * @{#DATABASE.ForEachClientAlive}: Calls a function for each alive @{CLIENT} it finds within the DATABASE. +-- +-- === +-- +-- @module Database +-- @author FlightControl + +--- DATABASE class +-- @type DATABASE +-- @extends Base#BASE +DATABASE = { + ClassName = "DATABASE", + Templates = { + Units = {}, + Groups = {}, + ClientsByName = {}, + ClientsByID = {}, + }, + UNITS = {}, + STATICS = {}, + GROUPS = {}, + PLAYERS = {}, + PLAYERSJOINED = {}, + CLIENTS = {}, + AIRBASES = {}, + NavPoints = {}, +} + +local _DATABASECoalition = + { + [1] = "Red", + [2] = "Blue", + } + +local _DATABASECategory = + { + ["plane"] = Unit.Category.AIRPLANE, + ["helicopter"] = Unit.Category.HELICOPTER, + ["vehicle"] = Unit.Category.GROUND_UNIT, + ["ship"] = Unit.Category.SHIP, + ["static"] = Unit.Category.STRUCTURE, + } + + +--- Creates a new DATABASE object, building a set of units belonging to a coalitions, categories, countries, types or with defined prefix names. +-- @param #DATABASE self +-- @return #DATABASE +-- @usage +-- -- Define a new DATABASE Object. This DBObject will contain a reference to all Group and Unit Templates defined within the ME and the DCSRTE. +-- DBObject = DATABASE:New() +function DATABASE:New() + + -- Inherits from BASE + local self = BASE:Inherit( self, BASE:New() ) + + _EVENTDISPATCHER:OnBirth( self._EventOnBirth, self ) + _EVENTDISPATCHER:OnDead( self._EventOnDeadOrCrash, self ) + _EVENTDISPATCHER:OnCrash( self._EventOnDeadOrCrash, self ) + + + -- Follow alive players and clients + _EVENTDISPATCHER:OnPlayerEnterUnit( self._EventOnPlayerEnterUnit, self ) + _EVENTDISPATCHER:OnPlayerLeaveUnit( self._EventOnPlayerLeaveUnit, self ) + + self:_RegisterTemplates() + self:_RegisterGroupsAndUnits() + self:_RegisterClients() + self:_RegisterStatics() + self:_RegisterPlayers() + self:_RegisterAirbases() + + return self +end + +--- Finds a Unit based on the Unit Name. +-- @param #DATABASE self +-- @param #string UnitName +-- @return Unit#UNIT The found Unit. +function DATABASE:FindUnit( UnitName ) + + local UnitFound = self.UNITS[UnitName] + return UnitFound +end + + +--- Adds a Unit based on the Unit Name in the DATABASE. +-- @param #DATABASE self +function DATABASE:AddUnit( DCSUnitName ) + + if not self.UNITS[DCSUnitName] then + local UnitRegister = UNIT:Register( DCSUnitName ) + self:E( UnitRegister.UnitName ) + self.UNITS[DCSUnitName] = UNIT:Register( DCSUnitName ) + end + + return self.UNITS[DCSUnitName] +end + + +--- Deletes a Unit from the DATABASE based on the Unit Name. +-- @param #DATABASE self +function DATABASE:DeleteUnit( DCSUnitName ) + + --self.UNITS[DCSUnitName] = nil +end + +--- Adds a Static based on the Static Name in the DATABASE. +-- @param #DATABASE self +function DATABASE:AddStatic( DCSStaticName ) + + if not self.STATICS[DCSStaticName] then + self.STATICS[DCSStaticName] = STATIC:Register( DCSStaticName ) + end +end + + +--- Deletes a Static from the DATABASE based on the Static Name. +-- @param #DATABASE self +function DATABASE:DeleteStatic( DCSStaticName ) + + --self.STATICS[DCSStaticName] = nil +end + +--- Finds a STATIC based on the StaticName. +-- @param #DATABASE self +-- @param #string StaticName +-- @return Static#STATIC The found STATIC. +function DATABASE:FindStatic( StaticName ) + + local StaticFound = self.STATICS[StaticName] + return StaticFound +end + +--- Adds a Airbase based on the Airbase Name in the DATABASE. +-- @param #DATABASE self +function DATABASE:AddAirbase( DCSAirbaseName ) + + if not self.AIRBASES[DCSAirbaseName] then + self.AIRBASES[DCSAirbaseName] = AIRBASE:Register( DCSAirbaseName ) + end +end + + +--- Deletes a Airbase from the DATABASE based on the Airbase Name. +-- @param #DATABASE self +function DATABASE:DeleteAirbase( DCSAirbaseName ) + + --self.AIRBASES[DCSAirbaseName] = nil +end + +--- Finds a AIRBASE based on the AirbaseName. +-- @param #DATABASE self +-- @param #string AirbaseName +-- @return Airbase#AIRBASE The found AIRBASE. +function DATABASE:FindAirbase( AirbaseName ) + + local AirbaseFound = self.AIRBASES[AirbaseName] + return AirbaseFound +end + + +--- Finds a CLIENT based on the ClientName. +-- @param #DATABASE self +-- @param #string ClientName +-- @return Client#CLIENT The found CLIENT. +function DATABASE:FindClient( ClientName ) + + local ClientFound = self.CLIENTS[ClientName] + return ClientFound +end + + +--- Adds a CLIENT based on the ClientName in the DATABASE. +-- @param #DATABASE self +function DATABASE:AddClient( ClientName ) + + if not self.CLIENTS[ClientName] then + self.CLIENTS[ClientName] = CLIENT:Register( ClientName ) + end + + return self.CLIENTS[ClientName] +end + + +--- Finds a GROUP based on the GroupName. +-- @param #DATABASE self +-- @param #string GroupName +-- @return Group#GROUP The found GROUP. +function DATABASE:FindGroup( GroupName ) + + local GroupFound = self.GROUPS[GroupName] + return GroupFound +end + + +--- Adds a GROUP based on the GroupName in the DATABASE. +-- @param #DATABASE self +function DATABASE:AddGroup( GroupName ) + + if not self.GROUPS[GroupName] then + self.GROUPS[GroupName] = GROUP:Register( GroupName ) + end + + return self.GROUPS[GroupName] +end + +--- Adds a player based on the Player Name in the DATABASE. +-- @param #DATABASE self +function DATABASE:AddPlayer( UnitName, PlayerName ) + + if PlayerName then + self:E( { "Add player for unit:", UnitName, PlayerName } ) + self.PLAYERS[PlayerName] = self:FindUnit( UnitName ) + self.PLAYERSJOINED[PlayerName] = PlayerName + end +end + +--- Deletes a player from the DATABASE based on the Player Name. +-- @param #DATABASE self +function DATABASE:DeletePlayer( PlayerName ) + + if PlayerName then + self:E( { "Clean player:", PlayerName } ) + self.PLAYERS[PlayerName] = nil + end +end + + +--- Instantiate new Groups within the DCSRTE. +-- This method expects EXACTLY the same structure as a structure within the ME, and needs 2 additional fields defined: +-- SpawnCountryID, SpawnCategoryID +-- This method is used by the SPAWN class. +-- @param #DATABASE self +-- @param #table SpawnTemplate +-- @return #DATABASE self +function DATABASE:Spawn( SpawnTemplate ) + self:F2( SpawnTemplate.name ) + + self:T2( { SpawnTemplate.SpawnCountryID, SpawnTemplate.SpawnCategoryID } ) + + -- Copy the spawn variables of the template in temporary storage, nullify, and restore the spawn variables. + local SpawnCoalitionID = SpawnTemplate.SpawnCoalitionID + local SpawnCountryID = SpawnTemplate.SpawnCountryID + local SpawnCategoryID = SpawnTemplate.SpawnCategoryID + + -- Nullify + SpawnTemplate.SpawnCoalitionID = nil + SpawnTemplate.SpawnCountryID = nil + SpawnTemplate.SpawnCategoryID = nil + + self:_RegisterTemplate( SpawnTemplate, SpawnCoalitionID, SpawnCategoryID, SpawnCountryID ) + + self:T3( SpawnTemplate ) + coalition.addGroup( SpawnCountryID, SpawnCategoryID, SpawnTemplate ) + + -- Restore + SpawnTemplate.SpawnCoalitionID = SpawnCoalitionID + SpawnTemplate.SpawnCountryID = SpawnCountryID + SpawnTemplate.SpawnCategoryID = SpawnCategoryID + + local SpawnGroup = self:AddGroup( SpawnTemplate.name ) + return SpawnGroup +end + +--- Set a status to a Group within the Database, this to check crossing events for example. +function DATABASE:SetStatusGroup( GroupName, Status ) + self:F2( Status ) + + self.Templates.Groups[GroupName].Status = Status +end + +--- Get a status to a Group within the Database, this to check crossing events for example. +function DATABASE:GetStatusGroup( GroupName ) + self:F2( Status ) + + if self.Templates.Groups[GroupName] then + return self.Templates.Groups[GroupName].Status + else + return "" + end +end + +--- Private method that registers new Group Templates within the DATABASE Object. +-- @param #DATABASE self +-- @param #table GroupTemplate +-- @return #DATABASE self +function DATABASE:_RegisterTemplate( GroupTemplate, CoalitionID, CategoryID, CountryID ) + + local GroupTemplateName = env.getValueDictByKey(GroupTemplate.name) + + local TraceTable = {} + + if not self.Templates.Groups[GroupTemplateName] then + self.Templates.Groups[GroupTemplateName] = {} + self.Templates.Groups[GroupTemplateName].Status = nil + end + + -- Delete the spans from the route, it is not needed and takes memory. + if GroupTemplate.route and GroupTemplate.route.spans then + GroupTemplate.route.spans = nil + end + + self.Templates.Groups[GroupTemplateName].GroupName = GroupTemplateName + self.Templates.Groups[GroupTemplateName].Template = GroupTemplate + self.Templates.Groups[GroupTemplateName].groupId = GroupTemplate.groupId + self.Templates.Groups[GroupTemplateName].UnitCount = #GroupTemplate.units + self.Templates.Groups[GroupTemplateName].Units = GroupTemplate.units + self.Templates.Groups[GroupTemplateName].CategoryID = CategoryID + self.Templates.Groups[GroupTemplateName].CoalitionID = CoalitionID + self.Templates.Groups[GroupTemplateName].CountryID = CountryID + + + TraceTable[#TraceTable+1] = "Group" + TraceTable[#TraceTable+1] = self.Templates.Groups[GroupTemplateName].GroupName + + TraceTable[#TraceTable+1] = "Coalition" + TraceTable[#TraceTable+1] = self.Templates.Groups[GroupTemplateName].CoalitionID + TraceTable[#TraceTable+1] = "Category" + TraceTable[#TraceTable+1] = self.Templates.Groups[GroupTemplateName].CategoryID + TraceTable[#TraceTable+1] = "Country" + TraceTable[#TraceTable+1] = self.Templates.Groups[GroupTemplateName].CountryID + + TraceTable[#TraceTable+1] = "Units" + + for unit_num, UnitTemplate in pairs( GroupTemplate.units ) do + + local UnitTemplateName = env.getValueDictByKey(UnitTemplate.name) + self.Templates.Units[UnitTemplateName] = {} + self.Templates.Units[UnitTemplateName].UnitName = UnitTemplateName + self.Templates.Units[UnitTemplateName].Template = UnitTemplate + self.Templates.Units[UnitTemplateName].GroupName = GroupTemplateName + self.Templates.Units[UnitTemplateName].GroupTemplate = GroupTemplate + self.Templates.Units[UnitTemplateName].GroupId = GroupTemplate.groupId + self.Templates.Units[UnitTemplateName].CategoryID = CategoryID + self.Templates.Units[UnitTemplateName].CoalitionID = CoalitionID + self.Templates.Units[UnitTemplateName].CountryID = CountryID + + if UnitTemplate.skill and (UnitTemplate.skill == "Client" or UnitTemplate.skill == "Player") then + self.Templates.ClientsByName[UnitTemplateName] = UnitTemplate + self.Templates.ClientsByName[UnitTemplateName].CategoryID = CategoryID + self.Templates.ClientsByName[UnitTemplateName].CoalitionID = CoalitionID + self.Templates.ClientsByName[UnitTemplateName].CountryID = CountryID + self.Templates.ClientsByID[UnitTemplate.unitId] = UnitTemplate + end + + TraceTable[#TraceTable+1] = self.Templates.Units[UnitTemplateName].UnitName + end + + self:E( TraceTable ) +end + +function DATABASE:GetGroupTemplate( GroupName ) + local GroupTemplate = self.Templates.Groups[GroupName].Template + GroupTemplate.SpawnCoalitionID = self.Templates.Groups[GroupName].CoalitionID + GroupTemplate.SpawnCategoryID = self.Templates.Groups[GroupName].CategoryID + GroupTemplate.SpawnCountryID = self.Templates.Groups[GroupName].CountryID + return GroupTemplate +end + +function DATABASE:GetCoalitionFromClientTemplate( ClientName ) + return self.Templates.ClientsByName[ClientName].CoalitionID +end + +function DATABASE:GetCategoryFromClientTemplate( ClientName ) + return self.Templates.ClientsByName[ClientName].CategoryID +end + +function DATABASE:GetCountryFromClientTemplate( ClientName ) + return self.Templates.ClientsByName[ClientName].CountryID +end + +--- Airbase + +function DATABASE:GetCoalitionFromAirbase( AirbaseName ) + return self.AIRBASES[AirbaseName]:GetCoalition() +end + +function DATABASE:GetCategoryFromAirbase( AirbaseName ) + return self.AIRBASES[AirbaseName]:GetCategory() +end + + + +--- Private method that registers all alive players in the mission. +-- @param #DATABASE self +-- @return #DATABASE self +function DATABASE:_RegisterPlayers() + + local CoalitionsData = { AlivePlayersRed = coalition.getPlayers( coalition.side.RED ), AlivePlayersBlue = coalition.getPlayers( coalition.side.BLUE ) } + for CoalitionId, CoalitionData in pairs( CoalitionsData ) do + for UnitId, UnitData in pairs( CoalitionData ) do + self:T3( { "UnitData:", UnitData } ) + if UnitData and UnitData:isExist() then + local UnitName = UnitData:getName() + local PlayerName = UnitData:getPlayerName() + if not self.PLAYERS[PlayerName] then + self:E( { "Add player for unit:", UnitName, PlayerName } ) + self:AddPlayer( UnitName, PlayerName ) + end + end + end + end + + return self +end + + +--- Private method that registers all Groups and Units within in the mission. +-- @param #DATABASE self +-- @return #DATABASE self +function DATABASE:_RegisterGroupsAndUnits() + + local CoalitionsData = { GroupsRed = coalition.getGroups( coalition.side.RED ), GroupsBlue = coalition.getGroups( coalition.side.BLUE ) } + for CoalitionId, CoalitionData in pairs( CoalitionsData ) do + for DCSGroupId, DCSGroup in pairs( CoalitionData ) do + + if DCSGroup:isExist() then + local DCSGroupName = DCSGroup:getName() + + self:E( { "Register Group:", DCSGroupName } ) + self:AddGroup( DCSGroupName ) + + for DCSUnitId, DCSUnit in pairs( DCSGroup:getUnits() ) do + + local DCSUnitName = DCSUnit:getName() + self:E( { "Register Unit:", DCSUnitName } ) + self:AddUnit( DCSUnitName ) + end + else + self:E( { "Group does not exist: ", DCSGroup } ) + end + + end + end + + return self +end + +--- Private method that registers all Units of skill Client or Player within in the mission. +-- @param #DATABASE self +-- @return #DATABASE self +function DATABASE:_RegisterClients() + + for ClientName, ClientTemplate in pairs( self.Templates.ClientsByName ) do + self:E( { "Register Client:", ClientName } ) + self:AddClient( ClientName ) + end + + return self +end + +--- @param #DATABASE self +function DATABASE:_RegisterStatics() + + local CoalitionsData = { GroupsRed = coalition.getStaticObjects( coalition.side.RED ), GroupsBlue = coalition.getStaticObjects( coalition.side.BLUE ) } + for CoalitionId, CoalitionData in pairs( CoalitionsData ) do + for DCSStaticId, DCSStatic in pairs( CoalitionData ) do + + if DCSStatic:isExist() then + local DCSStaticName = DCSStatic:getName() + + self:E( { "Register Static:", DCSStaticName } ) + self:AddStatic( DCSStaticName ) + else + self:E( { "Static does not exist: ", DCSStatic } ) + end + end + end + + return self +end + +--- @param #DATABASE self +function DATABASE:_RegisterAirbases() + + local CoalitionsData = { AirbasesRed = coalition.getAirbases( coalition.side.RED ), AirbasesBlue = coalition.getAirbases( coalition.side.BLUE ), AirbasesNeutral = coalition.getAirbases( coalition.side.NEUTRAL ) } + for CoalitionId, CoalitionData in pairs( CoalitionsData ) do + for DCSAirbaseId, DCSAirbase in pairs( CoalitionData ) do + + local DCSAirbaseName = DCSAirbase:getName() + + self:E( { "Register Airbase:", DCSAirbaseName } ) + self:AddAirbase( DCSAirbaseName ) + end + end + + return self +end + + +--- Events + +--- Handles the OnBirth event for the alive units set. +-- @param #DATABASE self +-- @param Event#EVENTDATA Event +function DATABASE:_EventOnBirth( Event ) + self:F2( { Event } ) + + if Event.IniDCSUnit then + self:AddUnit( Event.IniDCSUnitName ) + self:AddGroup( Event.IniDCSGroupName ) + self:_EventOnPlayerEnterUnit( Event ) + end +end + + +--- Handles the OnDead or OnCrash event for alive units set. +-- @param #DATABASE self +-- @param Event#EVENTDATA Event +function DATABASE:_EventOnDeadOrCrash( Event ) + self:F2( { Event } ) + + if Event.IniDCSUnit then + if self.UNITS[Event.IniDCSUnitName] then + self:DeleteUnit( Event.IniDCSUnitName ) + -- add logic to correctly remove a group once all units are destroyed... + end + end +end + + +--- Handles the OnPlayerEnterUnit event to fill the active players table (with the unit filter applied). +-- @param #DATABASE self +-- @param Event#EVENTDATA Event +function DATABASE:_EventOnPlayerEnterUnit( Event ) + self:F2( { Event } ) + + if Event.IniUnit then + local PlayerName = Event.IniUnit:GetPlayerName() + if not self.PLAYERS[PlayerName] then + self:AddPlayer( Event.IniUnitName, PlayerName ) + end + end +end + + +--- Handles the OnPlayerLeaveUnit event to clean the active players table. +-- @param #DATABASE self +-- @param Event#EVENTDATA Event +function DATABASE:_EventOnPlayerLeaveUnit( Event ) + self:F2( { Event } ) + + if Event.IniUnit then + local PlayerName = Event.IniUnit:GetPlayerName() + if self.PLAYERS[PlayerName] then + self:DeletePlayer( PlayerName ) + end + end +end + +--- Iterators + +--- Iterate the DATABASE and call an iterator function for the given set, providing the Object for each element within the set and optional parameters. +-- @param #DATABASE self +-- @param #function IteratorFunction The function that will be called when there is an alive player in the database. +-- @return #DATABASE self +function DATABASE:ForEach( IteratorFunction, FinalizeFunction, arg, Set ) + self:F2( arg ) + + local function CoRoutine() + local Count = 0 + for ObjectID, Object in pairs( Set ) do + self:T2( Object ) + IteratorFunction( Object, unpack( arg ) ) + Count = Count + 1 +-- if Count % 100 == 0 then +-- coroutine.yield( false ) +-- end + end + return true + end + +-- local co = coroutine.create( CoRoutine ) + local co = CoRoutine + + local function Schedule() + +-- local status, res = coroutine.resume( co ) + local status, res = co() + self:T3( { status, res } ) + + if status == false then + error( res ) + end + if res == false then + return true -- resume next time the loop + end + if FinalizeFunction then + FinalizeFunction( unpack( arg ) ) + end + return false + end + + local Scheduler = SCHEDULER:New( self, Schedule, {}, 0.001, 0.001, 0 ) + + return self +end + + +--- Iterate the DATABASE and call an iterator function for each **alive** UNIT, providing the UNIT and optional parameters. +-- @param #DATABASE self +-- @param #function IteratorFunction The function that will be called when there is an alive UNIT in the database. The function needs to accept a UNIT parameter. +-- @return #DATABASE self +function DATABASE:ForEachUnit( IteratorFunction, FinalizeFunction, ... ) + self:F2( arg ) + + self:ForEach( IteratorFunction, FinalizeFunction, arg, self.UNITS ) + + return self +end + +--- Iterate the DATABASE and call an iterator function for each **alive** GROUP, providing the GROUP and optional parameters. +-- @param #DATABASE self +-- @param #function IteratorFunction The function that will be called when there is an alive GROUP in the database. The function needs to accept a GROUP parameter. +-- @return #DATABASE self +function DATABASE:ForEachGroup( IteratorFunction, ... ) + self:F2( arg ) + + self:ForEach( IteratorFunction, arg, self.GROUPS ) + + return self +end + + +--- Iterate the DATABASE and call an iterator function for each **ALIVE** player, providing the player name and optional parameters. +-- @param #DATABASE self +-- @param #function IteratorFunction The function that will be called when there is an player in the database. The function needs to accept the player name. +-- @return #DATABASE self +function DATABASE:ForEachPlayer( IteratorFunction, ... ) + self:F2( arg ) + + self:ForEach( IteratorFunction, arg, self.PLAYERS ) + + return self +end + + +--- Iterate the DATABASE and call an iterator function for each player who has joined the mission, providing the Unit of the player and optional parameters. +-- @param #DATABASE self +-- @param #function IteratorFunction The function that will be called when there is was a player in the database. The function needs to accept a UNIT parameter. +-- @return #DATABASE self +function DATABASE:ForEachPlayerJoined( IteratorFunction, ... ) + self:F2( arg ) + + self:ForEach( IteratorFunction, arg, self.PLAYERSJOINED ) + + return self +end + +--- Iterate the DATABASE and call an iterator function for each CLIENT, providing the CLIENT to the function and optional parameters. +-- @param #DATABASE self +-- @param #function IteratorFunction The function that will be called when there is an alive player in the database. The function needs to accept a CLIENT parameter. +-- @return #DATABASE self +function DATABASE:ForEachClient( IteratorFunction, ... ) + self:F2( arg ) + + self:ForEach( IteratorFunction, arg, self.CLIENTS ) + + return self +end + + +function DATABASE:_RegisterTemplates() + self:F2() + + self.Navpoints = {} + self.UNITS = {} + --Build routines.db.units and self.Navpoints + for CoalitionName, coa_data in pairs(env.mission.coalition) do + + if (CoalitionName == 'red' or CoalitionName == 'blue') and type(coa_data) == 'table' then + --self.Units[coa_name] = {} + + ---------------------------------------------- + -- build nav points DB + self.Navpoints[CoalitionName] = {} + if coa_data.nav_points then --navpoints + for nav_ind, nav_data in pairs(coa_data.nav_points) do + + if type(nav_data) == 'table' then + self.Navpoints[CoalitionName][nav_ind] = routines.utils.deepCopy(nav_data) + + self.Navpoints[CoalitionName][nav_ind]['name'] = nav_data.callsignStr -- name is a little bit more self-explanatory. + self.Navpoints[CoalitionName][nav_ind]['point'] = {} -- point is used by SSE, support it. + self.Navpoints[CoalitionName][nav_ind]['point']['x'] = nav_data.x + self.Navpoints[CoalitionName][nav_ind]['point']['y'] = 0 + self.Navpoints[CoalitionName][nav_ind]['point']['z'] = nav_data.y + end + end + end + ------------------------------------------------- + if coa_data.country then --there is a country table + for cntry_id, cntry_data in pairs(coa_data.country) do + + local CountryName = string.upper(cntry_data.name) + --self.Units[coa_name][countryName] = {} + --self.Units[coa_name][countryName]["countryId"] = cntry_data.id + + if type(cntry_data) == 'table' then --just making sure + + for obj_type_name, obj_type_data in pairs(cntry_data) do + + if obj_type_name == "helicopter" or obj_type_name == "ship" or obj_type_name == "plane" or obj_type_name == "vehicle" or obj_type_name == "static" then --should be an unncessary check + + local CategoryName = obj_type_name + + if ((type(obj_type_data) == 'table') and obj_type_data.group and (type(obj_type_data.group) == 'table') and (#obj_type_data.group > 0)) then --there's a group! + + --self.Units[coa_name][countryName][category] = {} + + for group_num, GroupTemplate in pairs(obj_type_data.group) do + + if GroupTemplate and GroupTemplate.units and type(GroupTemplate.units) == 'table' then --making sure again- this is a valid group + self:_RegisterTemplate( + GroupTemplate, + coalition.side[string.upper(CoalitionName)], + _DATABASECategory[string.lower(CategoryName)], + country.id[string.upper(CountryName)] + ) + end --if GroupTemplate and GroupTemplate.units then + end --for group_num, GroupTemplate in pairs(obj_type_data.group) do + end --if ((type(obj_type_data) == 'table') and obj_type_data.group and (type(obj_type_data.group) == 'table') and (#obj_type_data.group > 0)) then + end --if obj_type_name == "helicopter" or obj_type_name == "ship" or obj_type_name == "plane" or obj_type_name == "vehicle" or obj_type_name == "static" then + end --for obj_type_name, obj_type_data in pairs(cntry_data) do + end --if type(cntry_data) == 'table' then + end --for cntry_id, cntry_data in pairs(coa_data.country) do + end --if coa_data.country then --there is a country table + end --if coa_name == 'red' or coa_name == 'blue' and type(coa_data) == 'table' then + end --for coa_name, coa_data in pairs(mission.coalition) do + + return self +end + + + + +--- This module contains the SET classes. +-- +-- === +-- +-- 1) @{Set#SET_BASE} class, extends @{Base#BASE} +-- ============================================== +-- The @{Set#SET_BASE} class defines the core functions that define a collection of objects. +-- A SET provides iterators to iterate the SET, but will **temporarily** yield the ForEach interator loop at defined **"intervals"** to the mail simulator loop. +-- In this way, large loops can be done while not blocking the simulator main processing loop. +-- The default **"yield interval"** is after 10 objects processed. +-- The default **"time interval"** is after 0.001 seconds. +-- +-- 1.1) Add or remove objects from the SET +-- --------------------------------------- +-- Some key core functions are @{Set#SET_BASE.Add} and @{Set#SET_BASE.Remove} to add or remove objects from the SET in your logic. +-- +-- 1.2) Define the SET iterator **"yield interval"** and the **"time interval"** +-- ----------------------------------------------------------------------------- +-- Modify the iterator intervals with the @{Set#SET_BASE.SetInteratorIntervals} method. +-- You can set the **"yield interval"**, and the **"time interval"**. (See above). +-- +-- === +-- +-- 2) @{Set#SET_GROUP} class, extends @{Set#SET_BASE} +-- ================================================== +-- Mission designers can use the @{Set#SET_GROUP} class to build sets of groups belonging to certain: +-- +-- * Coalitions +-- * Categories +-- * Countries +-- * Starting with certain prefix strings. +-- +-- 2.1) SET_GROUP construction method: +-- ----------------------------------- +-- Create a new SET_GROUP object with the @{#SET_GROUP.New} method: +-- +-- * @{#SET_GROUP.New}: Creates a new SET_GROUP object. +-- +-- 2.2) Add or Remove GROUP(s) from SET_GROUP: +-- ------------------------------------------- +-- GROUPS can be added and removed using the @{Set#SET_GROUP.AddGroupsByName} and @{Set#SET_GROUP.RemoveGroupsByName} respectively. +-- These methods take a single GROUP name or an array of GROUP names to be added or removed from SET_GROUP. +-- +-- 2.3) SET_GROUP filter criteria: +-- ------------------------------- +-- You can set filter criteria to define the set of groups within the SET_GROUP. +-- Filter criteria are defined by: +-- +-- * @{#SET_GROUP.FilterCoalitions}: Builds the SET_GROUP with the groups belonging to the coalition(s). +-- * @{#SET_GROUP.FilterCategories}: Builds the SET_GROUP with the groups belonging to the category(ies). +-- * @{#SET_GROUP.FilterCountries}: Builds the SET_GROUP with the gruops belonging to the country(ies). +-- * @{#SET_GROUP.FilterPrefixes}: Builds the SET_GROUP with the groups starting with the same prefix string(s). +-- +-- Once the filter criteria have been set for the SET_GROUP, you can start filtering using: +-- +-- * @{#SET_GROUP.FilterStart}: Starts the filtering of the groups within the SET_GROUP and add or remove GROUP objects **dynamically**. +-- +-- Planned filter criteria within development are (so these are not yet available): +-- +-- * @{#SET_GROUP.FilterZones}: Builds the SET_GROUP with the groups within a @{Zone#ZONE}. +-- +-- 2.4) SET_GROUP iterators: +-- ------------------------- +-- Once the filters have been defined and the SET_GROUP has been built, you can iterate the SET_GROUP with the available iterator methods. +-- The iterator methods will walk the SET_GROUP set, and call for each element within the set a function that you provide. +-- The following iterator methods are currently available within the SET_GROUP: +-- +-- * @{#SET_GROUP.ForEachGroup}: Calls a function for each alive group it finds within the SET_GROUP. +-- * @{#SET_GROUP.ForEachGroupCompletelyInZone}: Iterate the SET_GROUP and call an iterator function for each **alive** GROUP presence completely in a @{Zone}, providing the GROUP and optional parameters to the called function. +-- * @{#SET_GROUP.ForEachGroupPartlyInZone}: Iterate the SET_GROUP and call an iterator function for each **alive** GROUP presence partly in a @{Zone}, providing the GROUP and optional parameters to the called function. +-- * @{#SET_GROUP.ForEachGroupNotInZone}: Iterate the SET_GROUP and call an iterator function for each **alive** GROUP presence not in a @{Zone}, providing the GROUP and optional parameters to the called function. +-- +-- ==== +-- +-- 3) @{Set#SET_UNIT} class, extends @{Set#SET_BASE} +-- =================================================== +-- Mission designers can use the @{Set#SET_UNIT} class to build sets of units belonging to certain: +-- +-- * Coalitions +-- * Categories +-- * Countries +-- * Unit types +-- * Starting with certain prefix strings. +-- +-- 3.1) SET_UNIT construction method: +-- ---------------------------------- +-- Create a new SET_UNIT object with the @{#SET_UNIT.New} method: +-- +-- * @{#SET_UNIT.New}: Creates a new SET_UNIT object. +-- +-- 3.2) Add or Remove UNIT(s) from SET_UNIT: +-- ----------------------------------------- +-- UNITs can be added and removed using the @{Set#SET_UNIT.AddUnitsByName} and @{Set#SET_UNIT.RemoveUnitsByName} respectively. +-- These methods take a single UNIT name or an array of UNIT names to be added or removed from SET_UNIT. +-- +-- 3.3) SET_UNIT filter criteria: +-- ------------------------------ +-- You can set filter criteria to define the set of units within the SET_UNIT. +-- Filter criteria are defined by: +-- +-- * @{#SET_UNIT.FilterCoalitions}: Builds the SET_UNIT with the units belonging to the coalition(s). +-- * @{#SET_UNIT.FilterCategories}: Builds the SET_UNIT with the units belonging to the category(ies). +-- * @{#SET_UNIT.FilterTypes}: Builds the SET_UNIT with the units belonging to the unit type(s). +-- * @{#SET_UNIT.FilterCountries}: Builds the SET_UNIT with the units belonging to the country(ies). +-- * @{#SET_UNIT.FilterPrefixes}: Builds the SET_UNIT with the units starting with the same prefix string(s). +-- +-- Once the filter criteria have been set for the SET_UNIT, you can start filtering using: +-- +-- * @{#SET_UNIT.FilterStart}: Starts the filtering of the units within the SET_UNIT. +-- +-- Planned filter criteria within development are (so these are not yet available): +-- +-- * @{#SET_UNIT.FilterZones}: Builds the SET_UNIT with the units within a @{Zone#ZONE}. +-- +-- 3.4) SET_UNIT iterators: +-- ------------------------ +-- Once the filters have been defined and the SET_UNIT has been built, you can iterate the SET_UNIT with the available iterator methods. +-- The iterator methods will walk the SET_UNIT set, and call for each element within the set a function that you provide. +-- The following iterator methods are currently available within the SET_UNIT: +-- +-- * @{#SET_UNIT.ForEachUnit}: Calls a function for each alive unit it finds within the SET_UNIT. +-- * @{#SET_GROUP.ForEachGroupCompletelyInZone}: Iterate the SET_GROUP and call an iterator function for each **alive** GROUP presence completely in a @{Zone}, providing the GROUP and optional parameters to the called function. +-- * @{#SET_GROUP.ForEachGroupNotInZone}: Iterate the SET_GROUP and call an iterator function for each **alive** GROUP presence not in a @{Zone}, providing the GROUP and optional parameters to the called function. +-- +-- Planned iterators methods in development are (so these are not yet available): +-- +-- * @{#SET_UNIT.ForEachUnitInUnit}: Calls a function for each unit contained within the SET_UNIT. +-- * @{#SET_UNIT.ForEachUnitCompletelyInZone}: Iterate and call an iterator function for each **alive** UNIT presence completely in a @{Zone}, providing the UNIT and optional parameters to the called function. +-- * @{#SET_UNIT.ForEachUnitNotInZone}: Iterate and call an iterator function for each **alive** UNIT presence not in a @{Zone}, providing the UNIT and optional parameters to the called function. +-- +-- === +-- +-- 4) @{Set#SET_CLIENT} class, extends @{Set#SET_BASE} +-- =================================================== +-- Mission designers can use the @{Set#SET_CLIENT} class to build sets of units belonging to certain: +-- +-- * Coalitions +-- * Categories +-- * Countries +-- * Client types +-- * Starting with certain prefix strings. +-- +-- 4.1) SET_CLIENT construction method: +-- ---------------------------------- +-- Create a new SET_CLIENT object with the @{#SET_CLIENT.New} method: +-- +-- * @{#SET_CLIENT.New}: Creates a new SET_CLIENT object. +-- +-- 4.2) Add or Remove CLIENT(s) from SET_CLIENT: +-- ----------------------------------------- +-- CLIENTs can be added and removed using the @{Set#SET_CLIENT.AddClientsByName} and @{Set#SET_CLIENT.RemoveClientsByName} respectively. +-- These methods take a single CLIENT name or an array of CLIENT names to be added or removed from SET_CLIENT. +-- +-- 4.3) SET_CLIENT filter criteria: +-- ------------------------------ +-- You can set filter criteria to define the set of clients within the SET_CLIENT. +-- Filter criteria are defined by: +-- +-- * @{#SET_CLIENT.FilterCoalitions}: Builds the SET_CLIENT with the clients belonging to the coalition(s). +-- * @{#SET_CLIENT.FilterCategories}: Builds the SET_CLIENT with the clients belonging to the category(ies). +-- * @{#SET_CLIENT.FilterTypes}: Builds the SET_CLIENT with the clients belonging to the client type(s). +-- * @{#SET_CLIENT.FilterCountries}: Builds the SET_CLIENT with the clients belonging to the country(ies). +-- * @{#SET_CLIENT.FilterPrefixes}: Builds the SET_CLIENT with the clients starting with the same prefix string(s). +-- +-- Once the filter criteria have been set for the SET_CLIENT, you can start filtering using: +-- +-- * @{#SET_CLIENT.FilterStart}: Starts the filtering of the clients within the SET_CLIENT. +-- +-- Planned filter criteria within development are (so these are not yet available): +-- +-- * @{#SET_CLIENT.FilterZones}: Builds the SET_CLIENT with the clients within a @{Zone#ZONE}. +-- +-- 4.4) SET_CLIENT iterators: +-- ------------------------ +-- Once the filters have been defined and the SET_CLIENT has been built, you can iterate the SET_CLIENT with the available iterator methods. +-- The iterator methods will walk the SET_CLIENT set, and call for each element within the set a function that you provide. +-- The following iterator methods are currently available within the SET_CLIENT: +-- +-- * @{#SET_CLIENT.ForEachClient}: Calls a function for each alive client it finds within the SET_CLIENT. +-- +-- ==== +-- +-- 5) @{Set#SET_AIRBASE} class, extends @{Set#SET_BASE} +-- ==================================================== +-- Mission designers can use the @{Set#SET_AIRBASE} class to build sets of airbases optionally belonging to certain: +-- +-- * Coalitions +-- +-- 5.1) SET_AIRBASE construction +-- ----------------------------- +-- Create a new SET_AIRBASE object with the @{#SET_AIRBASE.New} method: +-- +-- * @{#SET_AIRBASE.New}: Creates a new SET_AIRBASE object. +-- +-- 5.2) Add or Remove AIRBASEs from SET_AIRBASE +-- -------------------------------------------- +-- AIRBASEs can be added and removed using the @{Set#SET_AIRBASE.AddAirbasesByName} and @{Set#SET_AIRBASE.RemoveAirbasesByName} respectively. +-- These methods take a single AIRBASE name or an array of AIRBASE names to be added or removed from SET_AIRBASE. +-- +-- 5.3) SET_AIRBASE filter criteria +-- -------------------------------- +-- You can set filter criteria to define the set of clients within the SET_AIRBASE. +-- Filter criteria are defined by: +-- +-- * @{#SET_AIRBASE.FilterCoalitions}: Builds the SET_AIRBASE with the airbases belonging to the coalition(s). +-- +-- Once the filter criteria have been set for the SET_AIRBASE, you can start filtering using: +-- +-- * @{#SET_AIRBASE.FilterStart}: Starts the filtering of the airbases within the SET_AIRBASE. +-- +-- 5.4) SET_AIRBASE iterators: +-- --------------------------- +-- Once the filters have been defined and the SET_AIRBASE has been built, you can iterate the SET_AIRBASE with the available iterator methods. +-- The iterator methods will walk the SET_AIRBASE set, and call for each airbase within the set a function that you provide. +-- The following iterator methods are currently available within the SET_AIRBASE: +-- +-- * @{#SET_AIRBASE.ForEachAirbase}: Calls a function for each airbase it finds within the SET_AIRBASE. +-- +-- ==== +-- +-- @module Set +-- @author FlightControl + + +--- SET_BASE class +-- @type SET_BASE +-- @extends Base#BASE +SET_BASE = { + ClassName = "SET_BASE", + Set = {}, +} + +--- Creates a new SET_BASE object, building a set of units belonging to a coalitions, categories, countries, types or with defined prefix names. +-- @param #SET_BASE self +-- @return #SET_BASE +-- @usage +-- -- Define a new SET_BASE Object. This DBObject will contain a reference to all Group and Unit Templates defined within the ME and the DCSRTE. +-- DBObject = SET_BASE:New() +function SET_BASE:New( Database ) + + -- Inherits from BASE + local self = BASE:Inherit( self, BASE:New() ) + + self.Database = Database + + self.YieldInterval = 10 + self.TimeInterval = 0.001 + + return self +end + +--- Finds an @{Base#BASE} object based on the object Name. +-- @param #SET_BASE self +-- @param #string ObjectName +-- @return Base#BASE The Object found. +function SET_BASE:_Find( ObjectName ) + + local ObjectFound = self.Set[ObjectName] + return ObjectFound +end + + +--- Gets the Set. +-- @param #SET_BASE self +-- @return #SET_BASE self +function SET_BASE:GetSet() + self:F2() + + return self.Set +end + +--- Adds a @{Base#BASE} object in the @{Set#SET_BASE}, using the Object Name as the index. +-- @param #SET_BASE self +-- @param #string ObjectName +-- @param Base#BASE Object +-- @return Base#BASE The added BASE Object. +function SET_BASE:Add( ObjectName, Object ) + + self.Set[ObjectName] = Object +end + +--- Removes a @{Base#BASE} object from the @{Set#SET_BASE} and derived classes, based on the Object Name. +-- @param #SET_BASE self +-- @param #string ObjectName +function SET_BASE:Remove( ObjectName ) + + self.Set[ObjectName] = nil +end + +--- Define the SET iterator **"yield interval"** and the **"time interval"**. +-- @param #SET_BASE self +-- @param #number YieldInterval Sets the frequency when the iterator loop will yield after the number of objects processed. The default frequency is 10 objects processed. +-- @param #number TimeInterval Sets the time in seconds when the main logic will resume the iterator loop. The default time is 0.001 seconds. +-- @return #SET_BASE self +function SET_BASE:SetIteratorIntervals( YieldInterval, TimeInterval ) + + self.YieldInterval = YieldInterval + self.TimeInterval = TimeInterval + + return self +end + + + +--- Starts the filtering for the defined collection. +-- @param #SET_BASE self +-- @return #SET_BASE self +function SET_BASE:_FilterStart() + + for ObjectName, Object in pairs( self.Database ) do + + if self:IsIncludeObject( Object ) then + self:E( { "Adding Object:", ObjectName } ) + self:Add( ObjectName, Object ) + end + end + + _EVENTDISPATCHER:OnBirth( self._EventOnBirth, self ) + _EVENTDISPATCHER:OnDead( self._EventOnDeadOrCrash, self ) + _EVENTDISPATCHER:OnCrash( self._EventOnDeadOrCrash, self ) + + -- Follow alive players and clients +-- _EVENTDISPATCHER:OnPlayerEnterUnit( self._EventOnPlayerEnterUnit, self ) +-- _EVENTDISPATCHER:OnPlayerLeaveUnit( self._EventOnPlayerLeaveUnit, self ) + + + return self +end + +--- Iterate the SET_BASE while identifying the nearest object from a @{Point#POINT_VEC2}. +-- @param #SET_BASE self +-- @param Point#POINT_VEC2 PointVec2 A @{Point#POINT_VEC2} object from where to evaluate the closest object in the set. +-- @return Base#BASE The closest object. +function SET_BASE:FindNearestObjectFromPointVec2( PointVec2 ) + self:F2( PointVec2 ) + + local NearestObject = nil + local ClosestDistance = nil + + for ObjectID, ObjectData in pairs( self.Set ) do + if NearestObject == nil then + NearestObject = ObjectData + ClosestDistance = PointVec2:DistanceFromVec2( ObjectData:GetPointVec2() ) + else + local Distance = PointVec2:DistanceFromVec2( ObjectData:GetPointVec2() ) + if Distance < ClosestDistance then + NearestObject = ObjectData + ClosestDistance = Distance + end + end + end + + return NearestObject +end + + + +----- Private method that registers all alive players in the mission. +---- @param #SET_BASE self +---- @return #SET_BASE self +--function SET_BASE:_RegisterPlayers() +-- +-- local CoalitionsData = { AlivePlayersRed = coalition.getPlayers( coalition.side.RED ), AlivePlayersBlue = coalition.getPlayers( coalition.side.BLUE ) } +-- for CoalitionId, CoalitionData in pairs( CoalitionsData ) do +-- for UnitId, UnitData in pairs( CoalitionData ) do +-- self:T3( { "UnitData:", UnitData } ) +-- if UnitData and UnitData:isExist() then +-- local UnitName = UnitData:getName() +-- if not self.PlayersAlive[UnitName] then +-- self:E( { "Add player for unit:", UnitName, UnitData:getPlayerName() } ) +-- self.PlayersAlive[UnitName] = UnitData:getPlayerName() +-- end +-- end +-- end +-- end +-- +-- return self +--end + +--- Events + +--- Handles the OnBirth event for the Set. +-- @param #SET_BASE self +-- @param Event#EVENTDATA Event +function SET_BASE:_EventOnBirth( Event ) + self:F3( { Event } ) + + if Event.IniDCSUnit then + local ObjectName, Object = self:AddInDatabase( Event ) + self:T3( ObjectName, Object ) + if self:IsIncludeObject( Object ) then + self:Add( ObjectName, Object ) + --self:_EventOnPlayerEnterUnit( Event ) + end + end +end + +--- Handles the OnDead or OnCrash event for alive units set. +-- @param #SET_BASE self +-- @param Event#EVENTDATA Event +function SET_BASE:_EventOnDeadOrCrash( Event ) + self:F3( { Event } ) + + if Event.IniDCSUnit then + local ObjectName, Object = self:FindInDatabase( Event ) + if ObjectName and Object then + self:Remove( ObjectName ) + end + end +end + +----- Handles the OnPlayerEnterUnit event to fill the active players table (with the unit filter applied). +---- @param #SET_BASE self +---- @param Event#EVENTDATA Event +--function SET_BASE:_EventOnPlayerEnterUnit( Event ) +-- self:F3( { Event } ) +-- +-- if Event.IniDCSUnit then +-- if self:IsIncludeObject( Event.IniDCSUnit ) then +-- if not self.PlayersAlive[Event.IniDCSUnitName] then +-- self:E( { "Add player for unit:", Event.IniDCSUnitName, Event.IniDCSUnit:getPlayerName() } ) +-- self.PlayersAlive[Event.IniDCSUnitName] = Event.IniDCSUnit:getPlayerName() +-- self.ClientsAlive[Event.IniDCSUnitName] = _DATABASE.Clients[ Event.IniDCSUnitName ] +-- end +-- end +-- end +--end +-- +----- Handles the OnPlayerLeaveUnit event to clean the active players table. +---- @param #SET_BASE self +---- @param Event#EVENTDATA Event +--function SET_BASE:_EventOnPlayerLeaveUnit( Event ) +-- self:F3( { Event } ) +-- +-- if Event.IniDCSUnit then +-- if self:IsIncludeObject( Event.IniDCSUnit ) then +-- if self.PlayersAlive[Event.IniDCSUnitName] then +-- self:E( { "Cleaning player for unit:", Event.IniDCSUnitName, Event.IniDCSUnit:getPlayerName() } ) +-- self.PlayersAlive[Event.IniDCSUnitName] = nil +-- self.ClientsAlive[Event.IniDCSUnitName] = nil +-- end +-- end +-- end +--end + +-- Iterators + +--- Iterate the SET_BASE and derived classes and call an iterator function for the given SET_BASE, providing the Object for each element within the set and optional parameters. +-- @param #SET_BASE self +-- @param #function IteratorFunction The function that will be called. +-- @return #SET_BASE self +function SET_BASE:ForEach( IteratorFunction, arg, Set, Function, FunctionArguments ) + self:F3( arg ) + + local function CoRoutine() + local Count = 0 + for ObjectID, Object in pairs( Set ) do + self:T3( Object ) + if Function then + if Function( unpack( FunctionArguments ), Object ) == true then + IteratorFunction( Object, unpack( arg ) ) + end + else + IteratorFunction( Object, unpack( arg ) ) + end + Count = Count + 1 +-- if Count % self.YieldInterval == 0 then +-- coroutine.yield( false ) +-- end + end + return true + end + +-- local co = coroutine.create( CoRoutine ) + local co = CoRoutine + + local function Schedule() + +-- local status, res = coroutine.resume( co ) + local status, res = co() + self:T3( { status, res } ) + + if status == false then + error( res ) + end + if res == false then + return true -- resume next time the loop + end + + return false + end + + local Scheduler = SCHEDULER:New( self, Schedule, {}, self.TimeInterval, self.TimeInterval, 0 ) + + return self +end + + +----- Iterate the SET_BASE and call an interator function for each **alive** unit, providing the Unit and optional parameters. +---- @param #SET_BASE self +---- @param #function IteratorFunction The function that will be called when there is an alive unit in the SET_BASE. The function needs to accept a UNIT parameter. +---- @return #SET_BASE self +--function SET_BASE:ForEachDCSUnitAlive( IteratorFunction, ... ) +-- self:F3( arg ) +-- +-- self:ForEach( IteratorFunction, arg, self.DCSUnitsAlive ) +-- +-- return self +--end +-- +----- Iterate the SET_BASE and call an interator function for each **alive** player, providing the Unit of the player and optional parameters. +---- @param #SET_BASE self +---- @param #function IteratorFunction The function that will be called when there is an alive player in the SET_BASE. The function needs to accept a UNIT parameter. +---- @return #SET_BASE self +--function SET_BASE:ForEachPlayer( IteratorFunction, ... ) +-- self:F3( arg ) +-- +-- self:ForEach( IteratorFunction, arg, self.PlayersAlive ) +-- +-- return self +--end +-- +-- +----- Iterate the SET_BASE and call an interator function for each client, providing the Client to the function and optional parameters. +---- @param #SET_BASE self +---- @param #function IteratorFunction The function that will be called when there is an alive player in the SET_BASE. The function needs to accept a CLIENT parameter. +---- @return #SET_BASE self +--function SET_BASE:ForEachClient( IteratorFunction, ... ) +-- self:F3( arg ) +-- +-- self:ForEach( IteratorFunction, arg, self.Clients ) +-- +-- return self +--end + + +--- Decides whether to include the Object +-- @param #SET_BASE self +-- @param #table Object +-- @return #SET_BASE self +function SET_BASE:IsIncludeObject( Object ) + self:F3( Object ) + + return true +end + +--- Flushes the current SET_BASE contents in the log ... (for debugging reasons). +-- @param #SET_BASE self +-- @return #string A string with the names of the objects. +function SET_BASE:Flush() + self:F3() + + local ObjectNames = "" + for ObjectName, Object in pairs( self.Set ) do + ObjectNames = ObjectNames .. ObjectName .. ", " + end + self:T( { "Objects in Set:", ObjectNames } ) + + return ObjectNames +end + +-- SET_GROUP + +--- SET_GROUP class +-- @type SET_GROUP +-- @extends Set#SET_BASE +SET_GROUP = { + ClassName = "SET_GROUP", + Filter = { + Coalitions = nil, + Categories = nil, + Countries = nil, + GroupPrefixes = nil, + }, + FilterMeta = { + Coalitions = { + red = coalition.side.RED, + blue = coalition.side.BLUE, + neutral = coalition.side.NEUTRAL, + }, + Categories = { + plane = Group.Category.AIRPLANE, + helicopter = Group.Category.HELICOPTER, + ground = Group.Category.GROUND_UNIT, + ship = Group.Category.SHIP, + structure = Group.Category.STRUCTURE, + }, + }, +} + + +--- Creates a new SET_GROUP object, building a set of groups belonging to a coalitions, categories, countries, types or with defined prefix names. +-- @param #SET_GROUP self +-- @return #SET_GROUP +-- @usage +-- -- Define a new SET_GROUP Object. This DBObject will contain a reference to all alive GROUPS. +-- DBObject = SET_GROUP:New() +function SET_GROUP:New() + + -- Inherits from BASE + local self = BASE:Inherit( self, SET_BASE:New( _DATABASE.GROUPS ) ) + + return self +end + +--- Add GROUP(s) to SET_GROUP. +-- @param Set#SET_GROUP self +-- @param #string AddGroupNames A single name or an array of GROUP names. +-- @return self +function SET_GROUP:AddGroupsByName( AddGroupNames ) + + local AddGroupNamesArray = ( type( AddGroupNames ) == "table" ) and AddGroupNames or { AddGroupNames } + + for AddGroupID, AddGroupName in pairs( AddGroupNamesArray ) do + self:Add( AddGroupName, GROUP:FindByName( AddGroupName ) ) + end + + return self +end + +--- Remove GROUP(s) from SET_GROUP. +-- @param Set#SET_GROUP self +-- @param Group#GROUP RemoveGroupNames A single name or an array of GROUP names. +-- @return self +function SET_GROUP:RemoveGroupsByName( RemoveGroupNames ) + + local RemoveGroupNamesArray = ( type( RemoveGroupNames ) == "table" ) and RemoveGroupNames or { RemoveGroupNames } + + for RemoveGroupID, RemoveGroupName in pairs( RemoveGroupNamesArray ) do + self:Remove( RemoveGroupName.GroupName ) + end + + return self +end + + + + +--- Finds a Group based on the Group Name. +-- @param #SET_GROUP self +-- @param #string GroupName +-- @return Group#GROUP The found Group. +function SET_GROUP:FindGroup( GroupName ) + + local GroupFound = self.Set[GroupName] + return GroupFound +end + + + +--- Builds a set of groups of coalitions. +-- Possible current coalitions are red, blue and neutral. +-- @param #SET_GROUP self +-- @param #string Coalitions Can take the following values: "red", "blue", "neutral". +-- @return #SET_GROUP self +function SET_GROUP:FilterCoalitions( Coalitions ) + if not self.Filter.Coalitions then + self.Filter.Coalitions = {} + end + if type( Coalitions ) ~= "table" then + Coalitions = { Coalitions } + end + for CoalitionID, Coalition in pairs( Coalitions ) do + self.Filter.Coalitions[Coalition] = Coalition + end + return self +end + + +--- Builds a set of groups out of categories. +-- Possible current categories are plane, helicopter, ground, ship. +-- @param #SET_GROUP self +-- @param #string Categories Can take the following values: "plane", "helicopter", "ground", "ship". +-- @return #SET_GROUP self +function SET_GROUP:FilterCategories( Categories ) + if not self.Filter.Categories then + self.Filter.Categories = {} + end + if type( Categories ) ~= "table" then + Categories = { Categories } + end + for CategoryID, Category in pairs( Categories ) do + self.Filter.Categories[Category] = Category + end + return self +end + +--- Builds a set of groups of defined countries. +-- Possible current countries are those known within DCS world. +-- @param #SET_GROUP self +-- @param #string Countries Can take those country strings known within DCS world. +-- @return #SET_GROUP self +function SET_GROUP:FilterCountries( Countries ) + if not self.Filter.Countries then + self.Filter.Countries = {} + end + if type( Countries ) ~= "table" then + Countries = { Countries } + end + for CountryID, Country in pairs( Countries ) do + self.Filter.Countries[Country] = Country + end + return self +end + + +--- Builds a set of groups of defined GROUP prefixes. +-- All the groups starting with the given prefixes will be included within the set. +-- @param #SET_GROUP self +-- @param #string Prefixes The prefix of which the group name starts with. +-- @return #SET_GROUP self +function SET_GROUP:FilterPrefixes( Prefixes ) + if not self.Filter.GroupPrefixes then + self.Filter.GroupPrefixes = {} + end + if type( Prefixes ) ~= "table" then + Prefixes = { Prefixes } + end + for PrefixID, Prefix in pairs( Prefixes ) do + self.Filter.GroupPrefixes[Prefix] = Prefix + end + return self +end + + +--- Starts the filtering. +-- @param #SET_GROUP self +-- @return #SET_GROUP self +function SET_GROUP:FilterStart() + + if _DATABASE then + self:_FilterStart() + end + + return self +end + +--- Handles the Database to check on an event (birth) that the Object was added in the Database. +-- This is required, because sometimes the _DATABASE birth event gets called later than the SET_BASE birth event! +-- @param #SET_GROUP self +-- @param Event#EVENTDATA Event +-- @return #string The name of the GROUP +-- @return #table The GROUP +function SET_GROUP:AddInDatabase( Event ) + self:F3( { Event } ) + + if not self.Database[Event.IniDCSGroupName] then + self.Database[Event.IniDCSGroupName] = GROUP:Register( Event.IniDCSGroupName ) + self:T3( self.Database[Event.IniDCSGroupName] ) + end + + return Event.IniDCSGroupName, self.Database[Event.IniDCSGroupName] +end + +--- Handles the Database to check on any event that Object exists in the Database. +-- This is required, because sometimes the _DATABASE event gets called later than the SET_BASE event or vise versa! +-- @param #SET_GROUP self +-- @param Event#EVENTDATA Event +-- @return #string The name of the GROUP +-- @return #table The GROUP +function SET_GROUP:FindInDatabase( Event ) + self:F3( { Event } ) + + return Event.IniDCSGroupName, self.Database[Event.IniDCSGroupName] +end + +--- Iterate the SET_GROUP and call an iterator function for each **alive** GROUP, providing the GROUP and optional parameters. +-- @param #SET_GROUP self +-- @param #function IteratorFunction The function that will be called when there is an alive GROUP in the SET_GROUP. The function needs to accept a GROUP parameter. +-- @return #SET_GROUP self +function SET_GROUP:ForEachGroup( IteratorFunction, ... ) + self:F2( arg ) + + self:ForEach( IteratorFunction, arg, self.Set ) + + return self +end + +--- Iterate the SET_GROUP and call an iterator function for each **alive** GROUP presence completely in a @{Zone}, providing the GROUP and optional parameters to the called function. +-- @param #SET_GROUP self +-- @param Zone#ZONE ZoneObject The Zone to be tested for. +-- @param #function IteratorFunction The function that will be called when there is an alive GROUP in the SET_GROUP. The function needs to accept a GROUP parameter. +-- @return #SET_GROUP self +function SET_GROUP:ForEachGroupCompletelyInZone( ZoneObject, IteratorFunction, ... ) + self:F2( arg ) + + self:ForEach( IteratorFunction, arg, self.Set, + --- @param Zone#ZONE_BASE ZoneObject + -- @param Group#GROUP GroupObject + function( ZoneObject, GroupObject ) + if GroupObject:IsCompletelyInZone( ZoneObject ) then + return true + else + return false + end + end, { ZoneObject } ) + + return self +end + +--- Iterate the SET_GROUP and call an iterator function for each **alive** GROUP presence partly in a @{Zone}, providing the GROUP and optional parameters to the called function. +-- @param #SET_GROUP self +-- @param Zone#ZONE ZoneObject The Zone to be tested for. +-- @param #function IteratorFunction The function that will be called when there is an alive GROUP in the SET_GROUP. The function needs to accept a GROUP parameter. +-- @return #SET_GROUP self +function SET_GROUP:ForEachGroupPartlyInZone( ZoneObject, IteratorFunction, ... ) + self:F2( arg ) + + self:ForEach( IteratorFunction, arg, self.Set, + --- @param Zone#ZONE_BASE ZoneObject + -- @param Group#GROUP GroupObject + function( ZoneObject, GroupObject ) + if GroupObject:IsPartlyInZone( ZoneObject ) then + return true + else + return false + end + end, { ZoneObject } ) + + return self +end + +--- Iterate the SET_GROUP and call an iterator function for each **alive** GROUP presence not in a @{Zone}, providing the GROUP and optional parameters to the called function. +-- @param #SET_GROUP self +-- @param Zone#ZONE ZoneObject The Zone to be tested for. +-- @param #function IteratorFunction The function that will be called when there is an alive GROUP in the SET_GROUP. The function needs to accept a GROUP parameter. +-- @return #SET_GROUP self +function SET_GROUP:ForEachGroupNotInZone( ZoneObject, IteratorFunction, ... ) + self:F2( arg ) + + self:ForEach( IteratorFunction, arg, self.Set, + --- @param Zone#ZONE_BASE ZoneObject + -- @param Group#GROUP GroupObject + function( ZoneObject, GroupObject ) + if GroupObject:IsNotInZone( ZoneObject ) then + return true + else + return false + end + end, { ZoneObject } ) + + return self +end + + +----- Iterate the SET_GROUP and call an interator function for each **alive** player, providing the Group of the player and optional parameters. +---- @param #SET_GROUP self +---- @param #function IteratorFunction The function that will be called when there is an alive player in the SET_GROUP. The function needs to accept a GROUP parameter. +---- @return #SET_GROUP self +--function SET_GROUP:ForEachPlayer( IteratorFunction, ... ) +-- self:F2( arg ) +-- +-- self:ForEach( IteratorFunction, arg, self.PlayersAlive ) +-- +-- return self +--end +-- +-- +----- Iterate the SET_GROUP and call an interator function for each client, providing the Client to the function and optional parameters. +---- @param #SET_GROUP self +---- @param #function IteratorFunction The function that will be called when there is an alive player in the SET_GROUP. The function needs to accept a CLIENT parameter. +---- @return #SET_GROUP self +--function SET_GROUP:ForEachClient( IteratorFunction, ... ) +-- self:F2( arg ) +-- +-- self:ForEach( IteratorFunction, arg, self.Clients ) +-- +-- return self +--end + + +--- +-- @param #SET_GROUP self +-- @param Group#GROUP MooseGroup +-- @return #SET_GROUP self +function SET_GROUP:IsIncludeObject( MooseGroup ) + self:F2( MooseGroup ) + local MooseGroupInclude = true + + if self.Filter.Coalitions then + local MooseGroupCoalition = false + for CoalitionID, CoalitionName in pairs( self.Filter.Coalitions ) do + self:T3( { "Coalition:", MooseGroup:GetCoalition(), self.FilterMeta.Coalitions[CoalitionName], CoalitionName } ) + if self.FilterMeta.Coalitions[CoalitionName] and self.FilterMeta.Coalitions[CoalitionName] == MooseGroup:GetCoalition() then + MooseGroupCoalition = true + end + end + MooseGroupInclude = MooseGroupInclude and MooseGroupCoalition + end + + if self.Filter.Categories then + local MooseGroupCategory = false + for CategoryID, CategoryName in pairs( self.Filter.Categories ) do + self:T3( { "Category:", MooseGroup:GetCategory(), self.FilterMeta.Categories[CategoryName], CategoryName } ) + if self.FilterMeta.Categories[CategoryName] and self.FilterMeta.Categories[CategoryName] == MooseGroup:GetCategory() then + MooseGroupCategory = true + end + end + MooseGroupInclude = MooseGroupInclude and MooseGroupCategory + end + + if self.Filter.Countries then + local MooseGroupCountry = false + for CountryID, CountryName in pairs( self.Filter.Countries ) do + self:T3( { "Country:", MooseGroup:GetCountry(), CountryName } ) + if country.id[CountryName] == MooseGroup:GetCountry() then + MooseGroupCountry = true + end + end + MooseGroupInclude = MooseGroupInclude and MooseGroupCountry + end + + if self.Filter.GroupPrefixes then + local MooseGroupPrefix = false + for GroupPrefixId, GroupPrefix in pairs( self.Filter.GroupPrefixes ) do + self:T3( { "Prefix:", string.find( MooseGroup:GetName(), GroupPrefix, 1 ), GroupPrefix } ) + if string.find( MooseGroup:GetName(), GroupPrefix, 1 ) then + MooseGroupPrefix = true + end + end + MooseGroupInclude = MooseGroupInclude and MooseGroupPrefix + end + + self:T2( MooseGroupInclude ) + return MooseGroupInclude +end + +--- SET_UNIT class +-- @type SET_UNIT +-- @extends Set#SET_BASE +SET_UNIT = { + ClassName = "SET_UNIT", + Units = {}, + Filter = { + Coalitions = nil, + Categories = nil, + Types = nil, + Countries = nil, + UnitPrefixes = nil, + }, + FilterMeta = { + Coalitions = { + red = coalition.side.RED, + blue = coalition.side.BLUE, + neutral = coalition.side.NEUTRAL, + }, + Categories = { + plane = Unit.Category.AIRPLANE, + helicopter = Unit.Category.HELICOPTER, + ground = Unit.Category.GROUND_UNIT, + ship = Unit.Category.SHIP, + structure = Unit.Category.STRUCTURE, + }, + }, +} + + +--- Creates a new SET_UNIT object, building a set of units belonging to a coalitions, categories, countries, types or with defined prefix names. +-- @param #SET_UNIT self +-- @return #SET_UNIT +-- @usage +-- -- Define a new SET_UNIT Object. This DBObject will contain a reference to all alive Units. +-- DBObject = SET_UNIT:New() +function SET_UNIT:New() + + -- Inherits from BASE + local self = BASE:Inherit( self, SET_BASE:New( _DATABASE.UNITS ) ) + + _EVENTDISPATCHER:OnBirth( self._EventOnBirth, self ) + _EVENTDISPATCHER:OnDead( self._EventOnDeadOrCrash, self ) + _EVENTDISPATCHER:OnCrash( self._EventOnDeadOrCrash, self ) + + return self +end + +--- Add UNIT(s) to SET_UNIT. +-- @param #SET_UNIT self +-- @param #string AddUnit A single UNIT. +-- @return #SET_UNIT self +function SET_UNIT:AddUnit( AddUnit ) + self:F2( AddUnit:GetName() ) + + self:Add( AddUnit:GetName(), AddUnit ) + + return self +end + + +--- Add UNIT(s) to SET_UNIT. +-- @param #SET_UNIT self +-- @param #string AddUnitNames A single name or an array of UNIT names. +-- @return #SET_UNIT self +function SET_UNIT:AddUnitsByName( AddUnitNames ) + + local AddUnitNamesArray = ( type( AddUnitNames ) == "table" ) and AddUnitNames or { AddUnitNames } + + self:T( AddUnitNamesArray ) + for AddUnitID, AddUnitName in pairs( AddUnitNamesArray ) do + self:Add( AddUnitName, UNIT:FindByName( AddUnitName ) ) + end + + return self +end + +--- Remove UNIT(s) from SET_UNIT. +-- @param Set#SET_UNIT self +-- @param Unit#UNIT RemoveUnitNames A single name or an array of UNIT names. +-- @return self +function SET_UNIT:RemoveUnitsByName( RemoveUnitNames ) + + local RemoveUnitNamesArray = ( type( RemoveUnitNames ) == "table" ) and RemoveUnitNames or { RemoveUnitNames } + + for RemoveUnitID, RemoveUnitName in pairs( RemoveUnitNamesArray ) do + self:Remove( RemoveUnitName.UnitName ) + end + + return self +end + + +--- Finds a Unit based on the Unit Name. +-- @param #SET_UNIT self +-- @param #string UnitName +-- @return Unit#UNIT The found Unit. +function SET_UNIT:FindUnit( UnitName ) + + local UnitFound = self.Set[UnitName] + return UnitFound +end + + + +--- Builds a set of units of coalitions. +-- Possible current coalitions are red, blue and neutral. +-- @param #SET_UNIT self +-- @param #string Coalitions Can take the following values: "red", "blue", "neutral". +-- @return #SET_UNIT self +function SET_UNIT:FilterCoalitions( Coalitions ) + if not self.Filter.Coalitions then + self.Filter.Coalitions = {} + end + if type( Coalitions ) ~= "table" then + Coalitions = { Coalitions } + end + for CoalitionID, Coalition in pairs( Coalitions ) do + self.Filter.Coalitions[Coalition] = Coalition + end + return self +end + + +--- Builds a set of units out of categories. +-- Possible current categories are plane, helicopter, ground, ship. +-- @param #SET_UNIT self +-- @param #string Categories Can take the following values: "plane", "helicopter", "ground", "ship". +-- @return #SET_UNIT self +function SET_UNIT:FilterCategories( Categories ) + if not self.Filter.Categories then + self.Filter.Categories = {} + end + if type( Categories ) ~= "table" then + Categories = { Categories } + end + for CategoryID, Category in pairs( Categories ) do + self.Filter.Categories[Category] = Category + end + return self +end + + +--- Builds a set of units of defined unit types. +-- Possible current types are those types known within DCS world. +-- @param #SET_UNIT self +-- @param #string Types Can take those type strings known within DCS world. +-- @return #SET_UNIT self +function SET_UNIT:FilterTypes( Types ) + if not self.Filter.Types then + self.Filter.Types = {} + end + if type( Types ) ~= "table" then + Types = { Types } + end + for TypeID, Type in pairs( Types ) do + self.Filter.Types[Type] = Type + end + return self +end + + +--- Builds a set of units of defined countries. +-- Possible current countries are those known within DCS world. +-- @param #SET_UNIT self +-- @param #string Countries Can take those country strings known within DCS world. +-- @return #SET_UNIT self +function SET_UNIT:FilterCountries( Countries ) + if not self.Filter.Countries then + self.Filter.Countries = {} + end + if type( Countries ) ~= "table" then + Countries = { Countries } + end + for CountryID, Country in pairs( Countries ) do + self.Filter.Countries[Country] = Country + end + return self +end + + +--- Builds a set of units of defined unit prefixes. +-- All the units starting with the given prefixes will be included within the set. +-- @param #SET_UNIT self +-- @param #string Prefixes The prefix of which the unit name starts with. +-- @return #SET_UNIT self +function SET_UNIT:FilterPrefixes( Prefixes ) + if not self.Filter.UnitPrefixes then + self.Filter.UnitPrefixes = {} + end + if type( Prefixes ) ~= "table" then + Prefixes = { Prefixes } + end + for PrefixID, Prefix in pairs( Prefixes ) do + self.Filter.UnitPrefixes[Prefix] = Prefix + end + return self +end + + + + +--- Starts the filtering. +-- @param #SET_UNIT self +-- @return #SET_UNIT self +function SET_UNIT:FilterStart() + + if _DATABASE then + self:_FilterStart() + end + + return self +end + +--- Handles the Database to check on an event (birth) that the Object was added in the Database. +-- This is required, because sometimes the _DATABASE birth event gets called later than the SET_BASE birth event! +-- @param #SET_UNIT self +-- @param Event#EVENTDATA Event +-- @return #string The name of the UNIT +-- @return #table The UNIT +function SET_UNIT:AddInDatabase( Event ) + self:F3( { Event } ) + + if not self.Database[Event.IniDCSUnitName] then + self.Database[Event.IniDCSUnitName] = UNIT:Register( Event.IniDCSUnitName ) + self:T3( self.Database[Event.IniDCSUnitName] ) + end + + return Event.IniDCSUnitName, self.Database[Event.IniDCSUnitName] +end + +--- Handles the Database to check on any event that Object exists in the Database. +-- This is required, because sometimes the _DATABASE event gets called later than the SET_BASE event or vise versa! +-- @param #SET_UNIT self +-- @param Event#EVENTDATA Event +-- @return #string The name of the UNIT +-- @return #table The UNIT +function SET_UNIT:FindInDatabase( Event ) + self:F3( { Event } ) + + return Event.IniDCSUnitName, self.Database[Event.IniDCSUnitName] +end + +--- Iterate the SET_UNIT and call an interator function for each **alive** UNIT, providing the UNIT and optional parameters. +-- @param #SET_UNIT self +-- @param #function IteratorFunction The function that will be called when there is an alive UNIT in the SET_UNIT. The function needs to accept a UNIT parameter. +-- @return #SET_UNIT self +function SET_UNIT:ForEachUnit( IteratorFunction, ... ) + self:F2( arg ) + + self:ForEach( IteratorFunction, arg, self.Set ) + + return self +end + +--- Iterate the SET_UNIT and call an iterator function for each **alive** UNIT presence completely in a @{Zone}, providing the UNIT and optional parameters to the called function. +-- @param #SET_UNIT self +-- @param Zone#ZONE ZoneObject The Zone to be tested for. +-- @param #function IteratorFunction The function that will be called when there is an alive UNIT in the SET_UNIT. The function needs to accept a UNIT parameter. +-- @return #SET_UNIT self +function SET_UNIT:ForEachUnitCompletelyInZone( ZoneObject, IteratorFunction, ... ) + self:F2( arg ) + + self:ForEach( IteratorFunction, arg, self.Set, + --- @param Zone#ZONE_BASE ZoneObject + -- @param Unit#UNIT UnitObject + function( ZoneObject, UnitObject ) + if UnitObject:IsCompletelyInZone( ZoneObject ) then + return true + else + return false + end + end, { ZoneObject } ) + + return self +end + +--- Iterate the SET_UNIT and call an iterator function for each **alive** UNIT presence not in a @{Zone}, providing the UNIT and optional parameters to the called function. +-- @param #SET_UNIT self +-- @param Zone#ZONE ZoneObject The Zone to be tested for. +-- @param #function IteratorFunction The function that will be called when there is an alive UNIT in the SET_UNIT. The function needs to accept a UNIT parameter. +-- @return #SET_UNIT self +function SET_UNIT:ForEachUnitNotInZone( ZoneObject, IteratorFunction, ... ) + self:F2( arg ) + + self:ForEach( IteratorFunction, arg, self.Set, + --- @param Zone#ZONE_BASE ZoneObject + -- @param Unit#UNIT UnitObject + function( ZoneObject, UnitObject ) + if UnitObject:IsNotInZone( ZoneObject ) then + return true + else + return false + end + end, { ZoneObject } ) + + return self +end + + + +----- Iterate the SET_UNIT and call an interator function for each **alive** player, providing the Unit of the player and optional parameters. +---- @param #SET_UNIT self +---- @param #function IteratorFunction The function that will be called when there is an alive player in the SET_UNIT. The function needs to accept a UNIT parameter. +---- @return #SET_UNIT self +--function SET_UNIT:ForEachPlayer( IteratorFunction, ... ) +-- self:F2( arg ) +-- +-- self:ForEach( IteratorFunction, arg, self.PlayersAlive ) +-- +-- return self +--end +-- +-- +----- Iterate the SET_UNIT and call an interator function for each client, providing the Client to the function and optional parameters. +---- @param #SET_UNIT self +---- @param #function IteratorFunction The function that will be called when there is an alive player in the SET_UNIT. The function needs to accept a CLIENT parameter. +---- @return #SET_UNIT self +--function SET_UNIT:ForEachClient( IteratorFunction, ... ) +-- self:F2( arg ) +-- +-- self:ForEach( IteratorFunction, arg, self.Clients ) +-- +-- return self +--end + + +--- +-- @param #SET_UNIT self +-- @param Unit#UNIT MUnit +-- @return #SET_UNIT self +function SET_UNIT:IsIncludeObject( MUnit ) + self:F2( MUnit ) + local MUnitInclude = true + + if self.Filter.Coalitions then + local MUnitCoalition = false + for CoalitionID, CoalitionName in pairs( self.Filter.Coalitions ) do + self:T3( { "Coalition:", MUnit:GetCoalition(), self.FilterMeta.Coalitions[CoalitionName], CoalitionName } ) + if self.FilterMeta.Coalitions[CoalitionName] and self.FilterMeta.Coalitions[CoalitionName] == MUnit:GetCoalition() then + MUnitCoalition = true + end + end + MUnitInclude = MUnitInclude and MUnitCoalition + end + + if self.Filter.Categories then + local MUnitCategory = false + for CategoryID, CategoryName in pairs( self.Filter.Categories ) do + self:T3( { "Category:", MUnit:GetDesc().category, self.FilterMeta.Categories[CategoryName], CategoryName } ) + if self.FilterMeta.Categories[CategoryName] and self.FilterMeta.Categories[CategoryName] == MUnit:GetDesc().category then + MUnitCategory = true + end + end + MUnitInclude = MUnitInclude and MUnitCategory + end + + if self.Filter.Types then + local MUnitType = false + for TypeID, TypeName in pairs( self.Filter.Types ) do + self:T3( { "Type:", MUnit:GetTypeName(), TypeName } ) + if TypeName == MUnit:GetTypeName() then + MUnitType = true + end + end + MUnitInclude = MUnitInclude and MUnitType + end + + if self.Filter.Countries then + local MUnitCountry = false + for CountryID, CountryName in pairs( self.Filter.Countries ) do + self:T3( { "Country:", MUnit:GetCountry(), CountryName } ) + if country.id[CountryName] == MUnit:GetCountry() then + MUnitCountry = true + end + end + MUnitInclude = MUnitInclude and MUnitCountry + end + + if self.Filter.UnitPrefixes then + local MUnitPrefix = false + for UnitPrefixId, UnitPrefix in pairs( self.Filter.UnitPrefixes ) do + self:T3( { "Prefix:", string.find( MUnit:GetName(), UnitPrefix, 1 ), UnitPrefix } ) + if string.find( MUnit:GetName(), UnitPrefix, 1 ) then + MUnitPrefix = true + end + end + MUnitInclude = MUnitInclude and MUnitPrefix + end + + self:T2( MUnitInclude ) + return MUnitInclude +end + + +--- SET_CLIENT + +--- SET_CLIENT class +-- @type SET_CLIENT +-- @extends Set#SET_BASE +SET_CLIENT = { + ClassName = "SET_CLIENT", + Clients = {}, + Filter = { + Coalitions = nil, + Categories = nil, + Types = nil, + Countries = nil, + ClientPrefixes = nil, + }, + FilterMeta = { + Coalitions = { + red = coalition.side.RED, + blue = coalition.side.BLUE, + neutral = coalition.side.NEUTRAL, + }, + Categories = { + plane = Unit.Category.AIRPLANE, + helicopter = Unit.Category.HELICOPTER, + ground = Unit.Category.GROUND_UNIT, + ship = Unit.Category.SHIP, + structure = Unit.Category.STRUCTURE, + }, + }, +} + + +--- Creates a new SET_CLIENT object, building a set of clients belonging to a coalitions, categories, countries, types or with defined prefix names. +-- @param #SET_CLIENT self +-- @return #SET_CLIENT +-- @usage +-- -- Define a new SET_CLIENT Object. This DBObject will contain a reference to all Clients. +-- DBObject = SET_CLIENT:New() +function SET_CLIENT:New() + -- Inherits from BASE + local self = BASE:Inherit( self, SET_BASE:New( _DATABASE.CLIENTS ) ) + + return self +end + +--- Add CLIENT(s) to SET_CLIENT. +-- @param Set#SET_CLIENT self +-- @param #string AddClientNames A single name or an array of CLIENT names. +-- @return self +function SET_CLIENT:AddClientsByName( AddClientNames ) + + local AddClientNamesArray = ( type( AddClientNames ) == "table" ) and AddClientNames or { AddClientNames } + + for AddClientID, AddClientName in pairs( AddClientNamesArray ) do + self:Add( AddClientName, CLIENT:FindByName( AddClientName ) ) + end + + return self +end + +--- Remove CLIENT(s) from SET_CLIENT. +-- @param Set#SET_CLIENT self +-- @param Client#CLIENT RemoveClientNames A single name or an array of CLIENT names. +-- @return self +function SET_CLIENT:RemoveClientsByName( RemoveClientNames ) + + local RemoveClientNamesArray = ( type( RemoveClientNames ) == "table" ) and RemoveClientNames or { RemoveClientNames } + + for RemoveClientID, RemoveClientName in pairs( RemoveClientNamesArray ) do + self:Remove( RemoveClientName.ClientName ) + end + + return self +end + + +--- Finds a Client based on the Client Name. +-- @param #SET_CLIENT self +-- @param #string ClientName +-- @return Client#CLIENT The found Client. +function SET_CLIENT:FindClient( ClientName ) + + local ClientFound = self.Set[ClientName] + return ClientFound +end + + + +--- Builds a set of clients of coalitions. +-- Possible current coalitions are red, blue and neutral. +-- @param #SET_CLIENT self +-- @param #string Coalitions Can take the following values: "red", "blue", "neutral". +-- @return #SET_CLIENT self +function SET_CLIENT:FilterCoalitions( Coalitions ) + if not self.Filter.Coalitions then + self.Filter.Coalitions = {} + end + if type( Coalitions ) ~= "table" then + Coalitions = { Coalitions } + end + for CoalitionID, Coalition in pairs( Coalitions ) do + self.Filter.Coalitions[Coalition] = Coalition + end + return self +end + + +--- Builds a set of clients out of categories. +-- Possible current categories are plane, helicopter, ground, ship. +-- @param #SET_CLIENT self +-- @param #string Categories Can take the following values: "plane", "helicopter", "ground", "ship". +-- @return #SET_CLIENT self +function SET_CLIENT:FilterCategories( Categories ) + if not self.Filter.Categories then + self.Filter.Categories = {} + end + if type( Categories ) ~= "table" then + Categories = { Categories } + end + for CategoryID, Category in pairs( Categories ) do + self.Filter.Categories[Category] = Category + end + return self +end + + +--- Builds a set of clients of defined client types. +-- Possible current types are those types known within DCS world. +-- @param #SET_CLIENT self +-- @param #string Types Can take those type strings known within DCS world. +-- @return #SET_CLIENT self +function SET_CLIENT:FilterTypes( Types ) + if not self.Filter.Types then + self.Filter.Types = {} + end + if type( Types ) ~= "table" then + Types = { Types } + end + for TypeID, Type in pairs( Types ) do + self.Filter.Types[Type] = Type + end + return self +end + + +--- Builds a set of clients of defined countries. +-- Possible current countries are those known within DCS world. +-- @param #SET_CLIENT self +-- @param #string Countries Can take those country strings known within DCS world. +-- @return #SET_CLIENT self +function SET_CLIENT:FilterCountries( Countries ) + if not self.Filter.Countries then + self.Filter.Countries = {} + end + if type( Countries ) ~= "table" then + Countries = { Countries } + end + for CountryID, Country in pairs( Countries ) do + self.Filter.Countries[Country] = Country + end + return self +end + + +--- Builds a set of clients of defined client prefixes. +-- All the clients starting with the given prefixes will be included within the set. +-- @param #SET_CLIENT self +-- @param #string Prefixes The prefix of which the client name starts with. +-- @return #SET_CLIENT self +function SET_CLIENT:FilterPrefixes( Prefixes ) + if not self.Filter.ClientPrefixes then + self.Filter.ClientPrefixes = {} + end + if type( Prefixes ) ~= "table" then + Prefixes = { Prefixes } + end + for PrefixID, Prefix in pairs( Prefixes ) do + self.Filter.ClientPrefixes[Prefix] = Prefix + end + return self +end + + + + +--- Starts the filtering. +-- @param #SET_CLIENT self +-- @return #SET_CLIENT self +function SET_CLIENT:FilterStart() + + if _DATABASE then + self:_FilterStart() + end + + return self +end + +--- Handles the Database to check on an event (birth) that the Object was added in the Database. +-- This is required, because sometimes the _DATABASE birth event gets called later than the SET_BASE birth event! +-- @param #SET_CLIENT self +-- @param Event#EVENTDATA Event +-- @return #string The name of the CLIENT +-- @return #table The CLIENT +function SET_CLIENT:AddInDatabase( Event ) + self:F3( { Event } ) + + return Event.IniDCSUnitName, self.Database[Event.IniDCSUnitName] +end + +--- Handles the Database to check on any event that Object exists in the Database. +-- This is required, because sometimes the _DATABASE event gets called later than the SET_BASE event or vise versa! +-- @param #SET_CLIENT self +-- @param Event#EVENTDATA Event +-- @return #string The name of the CLIENT +-- @return #table The CLIENT +function SET_CLIENT:FindInDatabase( Event ) + self:F3( { Event } ) + + return Event.IniDCSUnitName, self.Database[Event.IniDCSUnitName] +end + +--- Iterate the SET_CLIENT and call an interator function for each **alive** CLIENT, providing the CLIENT and optional parameters. +-- @param #SET_CLIENT self +-- @param #function IteratorFunction The function that will be called when there is an alive CLIENT in the SET_CLIENT. The function needs to accept a CLIENT parameter. +-- @return #SET_CLIENT self +function SET_CLIENT:ForEachClient( IteratorFunction, ... ) + self:F2( arg ) + + self:ForEach( IteratorFunction, arg, self.Set ) + + return self +end + +--- Iterate the SET_CLIENT and call an iterator function for each **alive** CLIENT presence completely in a @{Zone}, providing the CLIENT and optional parameters to the called function. +-- @param #SET_CLIENT self +-- @param Zone#ZONE ZoneObject The Zone to be tested for. +-- @param #function IteratorFunction The function that will be called when there is an alive CLIENT in the SET_CLIENT. The function needs to accept a CLIENT parameter. +-- @return #SET_CLIENT self +function SET_CLIENT:ForEachClientInZone( ZoneObject, IteratorFunction, ... ) + self:F2( arg ) + + self:ForEach( IteratorFunction, arg, self.Set, + --- @param Zone#ZONE_BASE ZoneObject + -- @param Client#CLIENT ClientObject + function( ZoneObject, ClientObject ) + if ClientObject:IsInZone( ZoneObject ) then + return true + else + return false + end + end, { ZoneObject } ) + + return self +end + +--- Iterate the SET_CLIENT and call an iterator function for each **alive** CLIENT presence not in a @{Zone}, providing the CLIENT and optional parameters to the called function. +-- @param #SET_CLIENT self +-- @param Zone#ZONE ZoneObject The Zone to be tested for. +-- @param #function IteratorFunction The function that will be called when there is an alive CLIENT in the SET_CLIENT. The function needs to accept a CLIENT parameter. +-- @return #SET_CLIENT self +function SET_CLIENT:ForEachClientNotInZone( ZoneObject, IteratorFunction, ... ) + self:F2( arg ) + + self:ForEach( IteratorFunction, arg, self.Set, + --- @param Zone#ZONE_BASE ZoneObject + -- @param Client#CLIENT ClientObject + function( ZoneObject, ClientObject ) + if ClientObject:IsNotInZone( ZoneObject ) then + return true + else + return false + end + end, { ZoneObject } ) + + return self +end + +--- +-- @param #SET_CLIENT self +-- @param Client#CLIENT MClient +-- @return #SET_CLIENT self +function SET_CLIENT:IsIncludeObject( MClient ) + self:F2( MClient ) + + local MClientInclude = true + + if MClient then + local MClientName = MClient.UnitName + + if self.Filter.Coalitions then + local MClientCoalition = false + for CoalitionID, CoalitionName in pairs( self.Filter.Coalitions ) do + local ClientCoalitionID = _DATABASE:GetCoalitionFromClientTemplate( MClientName ) + self:T3( { "Coalition:", ClientCoalitionID, self.FilterMeta.Coalitions[CoalitionName], CoalitionName } ) + if self.FilterMeta.Coalitions[CoalitionName] and self.FilterMeta.Coalitions[CoalitionName] == ClientCoalitionID then + MClientCoalition = true + end + end + self:T( { "Evaluated Coalition", MClientCoalition } ) + MClientInclude = MClientInclude and MClientCoalition + end + + if self.Filter.Categories then + local MClientCategory = false + for CategoryID, CategoryName in pairs( self.Filter.Categories ) do + local ClientCategoryID = _DATABASE:GetCategoryFromClientTemplate( MClientName ) + self:T3( { "Category:", ClientCategoryID, self.FilterMeta.Categories[CategoryName], CategoryName } ) + if self.FilterMeta.Categories[CategoryName] and self.FilterMeta.Categories[CategoryName] == ClientCategoryID then + MClientCategory = true + end + end + self:T( { "Evaluated Category", MClientCategory } ) + MClientInclude = MClientInclude and MClientCategory + end + + if self.Filter.Types then + local MClientType = false + for TypeID, TypeName in pairs( self.Filter.Types ) do + self:T3( { "Type:", MClient:GetTypeName(), TypeName } ) + if TypeName == MClient:GetTypeName() then + MClientType = true + end + end + self:T( { "Evaluated Type", MClientType } ) + MClientInclude = MClientInclude and MClientType + end + + if self.Filter.Countries then + local MClientCountry = false + for CountryID, CountryName in pairs( self.Filter.Countries ) do + local ClientCountryID = _DATABASE:GetCountryFromClientTemplate(MClientName) + self:T3( { "Country:", ClientCountryID, country.id[CountryName], CountryName } ) + if country.id[CountryName] and country.id[CountryName] == ClientCountryID then + MClientCountry = true + end + end + self:T( { "Evaluated Country", MClientCountry } ) + MClientInclude = MClientInclude and MClientCountry + end + + if self.Filter.ClientPrefixes then + local MClientPrefix = false + for ClientPrefixId, ClientPrefix in pairs( self.Filter.ClientPrefixes ) do + self:T3( { "Prefix:", string.find( MClient.UnitName, ClientPrefix, 1 ), ClientPrefix } ) + if string.find( MClient.UnitName, ClientPrefix, 1 ) then + MClientPrefix = true + end + end + self:T( { "Evaluated Prefix", MClientPrefix } ) + MClientInclude = MClientInclude and MClientPrefix + end + end + + self:T2( MClientInclude ) + return MClientInclude +end + +--- SET_AIRBASE + +--- SET_AIRBASE class +-- @type SET_AIRBASE +-- @extends Set#SET_BASE +SET_AIRBASE = { + ClassName = "SET_AIRBASE", + Airbases = {}, + Filter = { + Coalitions = nil, + }, + FilterMeta = { + Coalitions = { + red = coalition.side.RED, + blue = coalition.side.BLUE, + neutral = coalition.side.NEUTRAL, + }, + Categories = { + airdrome = Airbase.Category.AIRDROME, + helipad = Airbase.Category.HELIPAD, + ship = Airbase.Category.SHIP, + }, + }, +} + + +--- Creates a new SET_AIRBASE object, building a set of airbases belonging to a coalitions and categories. +-- @param #SET_AIRBASE self +-- @return #SET_AIRBASE self +-- @usage +-- -- Define a new SET_AIRBASE Object. The DatabaseSet will contain a reference to all Airbases. +-- DatabaseSet = SET_AIRBASE:New() +function SET_AIRBASE:New() + -- Inherits from BASE + local self = BASE:Inherit( self, SET_BASE:New( _DATABASE.AIRBASES ) ) + + return self +end + +--- Add AIRBASEs to SET_AIRBASE. +-- @param Set#SET_AIRBASE self +-- @param #string AddAirbaseNames A single name or an array of AIRBASE names. +-- @return self +function SET_AIRBASE:AddAirbasesByName( AddAirbaseNames ) + + local AddAirbaseNamesArray = ( type( AddAirbaseNames ) == "table" ) and AddAirbaseNames or { AddAirbaseNames } + + for AddAirbaseID, AddAirbaseName in pairs( AddAirbaseNamesArray ) do + self:Add( AddAirbaseName, AIRBASE:FindByName( AddAirbaseName ) ) + end + + return self +end + +--- Remove AIRBASEs from SET_AIRBASE. +-- @param Set#SET_AIRBASE self +-- @param Airbase#AIRBASE RemoveAirbaseNames A single name or an array of AIRBASE names. +-- @return self +function SET_AIRBASE:RemoveAirbasesByName( RemoveAirbaseNames ) + + local RemoveAirbaseNamesArray = ( type( RemoveAirbaseNames ) == "table" ) and RemoveAirbaseNames or { RemoveAirbaseNames } + + for RemoveAirbaseID, RemoveAirbaseName in pairs( RemoveAirbaseNamesArray ) do + self:Remove( RemoveAirbaseName.AirbaseName ) + end + + return self +end + + +--- Finds a Airbase based on the Airbase Name. +-- @param #SET_AIRBASE self +-- @param #string AirbaseName +-- @return Airbase#AIRBASE The found Airbase. +function SET_AIRBASE:FindAirbase( AirbaseName ) + + local AirbaseFound = self.Set[AirbaseName] + return AirbaseFound +end + + + +--- Builds a set of airbases of coalitions. +-- Possible current coalitions are red, blue and neutral. +-- @param #SET_AIRBASE self +-- @param #string Coalitions Can take the following values: "red", "blue", "neutral". +-- @return #SET_AIRBASE self +function SET_AIRBASE:FilterCoalitions( Coalitions ) + if not self.Filter.Coalitions then + self.Filter.Coalitions = {} + end + if type( Coalitions ) ~= "table" then + Coalitions = { Coalitions } + end + for CoalitionID, Coalition in pairs( Coalitions ) do + self.Filter.Coalitions[Coalition] = Coalition + end + return self +end + + +--- Builds a set of airbases out of categories. +-- Possible current categories are plane, helicopter, ground, ship. +-- @param #SET_AIRBASE self +-- @param #string Categories Can take the following values: "airdrome", "helipad", "ship". +-- @return #SET_AIRBASE self +function SET_AIRBASE:FilterCategories( Categories ) + if not self.Filter.Categories then + self.Filter.Categories = {} + end + if type( Categories ) ~= "table" then + Categories = { Categories } + end + for CategoryID, Category in pairs( Categories ) do + self.Filter.Categories[Category] = Category + end + return self +end + +--- Starts the filtering. +-- @param #SET_AIRBASE self +-- @return #SET_AIRBASE self +function SET_AIRBASE:FilterStart() + + if _DATABASE then + self:_FilterStart() + end + + return self +end + + +--- Handles the Database to check on an event (birth) that the Object was added in the Database. +-- This is required, because sometimes the _DATABASE birth event gets called later than the SET_BASE birth event! +-- @param #SET_AIRBASE self +-- @param Event#EVENTDATA Event +-- @return #string The name of the AIRBASE +-- @return #table The AIRBASE +function SET_AIRBASE:AddInDatabase( Event ) + self:F3( { Event } ) + + return Event.IniDCSUnitName, self.Database[Event.IniDCSUnitName] +end + +--- Handles the Database to check on any event that Object exists in the Database. +-- This is required, because sometimes the _DATABASE event gets called later than the SET_BASE event or vise versa! +-- @param #SET_AIRBASE self +-- @param Event#EVENTDATA Event +-- @return #string The name of the AIRBASE +-- @return #table The AIRBASE +function SET_AIRBASE:FindInDatabase( Event ) + self:F3( { Event } ) + + return Event.IniDCSUnitName, self.Database[Event.IniDCSUnitName] +end + +--- Iterate the SET_AIRBASE and call an interator function for each AIRBASE, providing the AIRBASE and optional parameters. +-- @param #SET_AIRBASE self +-- @param #function IteratorFunction The function that will be called when there is an alive AIRBASE in the SET_AIRBASE. The function needs to accept a AIRBASE parameter. +-- @return #SET_AIRBASE self +function SET_AIRBASE:ForEachAirbase( IteratorFunction, ... ) + self:F2( arg ) + + self:ForEach( IteratorFunction, arg, self.Set ) + + return self +end + +--- Iterate the SET_AIRBASE while identifying the nearest @{Airbase#AIRBASE} from a @{Point#POINT_VEC2}. +-- @param #SET_AIRBASE self +-- @param Point#POINT_VEC2 PointVec2 A @{Point#POINT_VEC2} object from where to evaluate the closest @{Airbase#AIRBASE}. +-- @return Airbase#AIRBASE The closest @{Airbase#AIRBASE}. +function SET_AIRBASE:FindNearestAirbaseFromPointVec2( PointVec2 ) + self:F2( PointVec2 ) + + local NearestAirbase = self:FindNearestObjectFromPointVec2( PointVec2 ) + return NearestAirbase +end + + + +--- +-- @param #SET_AIRBASE self +-- @param Airbase#AIRBASE MAirbase +-- @return #SET_AIRBASE self +function SET_AIRBASE:IsIncludeObject( MAirbase ) + self:F2( MAirbase ) + + local MAirbaseInclude = true + + if MAirbase then + local MAirbaseName = MAirbase:GetName() + + if self.Filter.Coalitions then + local MAirbaseCoalition = false + for CoalitionID, CoalitionName in pairs( self.Filter.Coalitions ) do + local AirbaseCoalitionID = _DATABASE:GetCoalitionFromAirbase( MAirbaseName ) + self:T3( { "Coalition:", AirbaseCoalitionID, self.FilterMeta.Coalitions[CoalitionName], CoalitionName } ) + if self.FilterMeta.Coalitions[CoalitionName] and self.FilterMeta.Coalitions[CoalitionName] == AirbaseCoalitionID then + MAirbaseCoalition = true + end + end + self:T( { "Evaluated Coalition", MAirbaseCoalition } ) + MAirbaseInclude = MAirbaseInclude and MAirbaseCoalition + end + + if self.Filter.Categories then + local MAirbaseCategory = false + for CategoryID, CategoryName in pairs( self.Filter.Categories ) do + local AirbaseCategoryID = _DATABASE:GetCategoryFromAirbase( MAirbaseName ) + self:T3( { "Category:", AirbaseCategoryID, self.FilterMeta.Categories[CategoryName], CategoryName } ) + if self.FilterMeta.Categories[CategoryName] and self.FilterMeta.Categories[CategoryName] == AirbaseCategoryID then + MAirbaseCategory = true + end + end + self:T( { "Evaluated Category", MAirbaseCategory } ) + MAirbaseInclude = MAirbaseInclude and MAirbaseCategory + end + end + + self:T2( MAirbaseInclude ) + return MAirbaseInclude +end +--- This module contains the POINT classes. +-- +-- 1) @{Point#POINT_VEC3} class, extends @{Base#BASE} +-- =============================================== +-- The @{Point#POINT_VEC3} class defines a 3D point in the simulator. +-- +-- 1.1) POINT_VEC3 constructor +-- --------------------------- +-- +-- A new POINT instance can be created with: +-- +-- * @{#POINT_VEC3.New}(): a 3D point. +-- +-- 2) @{Point#POINT_VEC2} class, extends @{Point#POINT_VEC3} +-- ========================================================= +-- The @{Point#POINT_VEC2} class defines a 2D point in the simulator. The height coordinate (if needed) will be the land height + an optional added height specified. +-- +-- 2.1) POINT_VEC2 constructor +-- --------------------------- +-- +-- A new POINT instance can be created with: +-- +-- * @{#POINT_VEC2.New}(): a 2D point. +-- +-- @module Point +-- @author FlightControl + +--- The POINT_VEC3 class +-- @type POINT_VEC3 +-- @extends Base#BASE +-- @field #POINT_VEC3.SmokeColor SmokeColor +-- @field #POINT_VEC3.FlareColor FlareColor +-- @field #POINT_VEC3.RoutePointAltType RoutePointAltType +-- @field #POINT_VEC3.RoutePointType RoutePointType +-- @field #POINT_VEC3.RoutePointAction RoutePointAction +POINT_VEC3 = { + ClassName = "POINT_VEC3", + SmokeColor = { + Green = trigger.smokeColor.Green, + Red = trigger.smokeColor.Red, + White = trigger.smokeColor.White, + Orange = trigger.smokeColor.Orange, + Blue = trigger.smokeColor.Blue + }, + FlareColor = { + Green = trigger.flareColor.Green, + Red = trigger.flareColor.Red, + White = trigger.flareColor.White, + Yellow = trigger.flareColor.Yellow + }, + RoutePointAltType = { + BARO = "BARO", + }, + RoutePointType = { + TurningPoint = "Turning Point", + }, + RoutePointAction = { + TurningPoint = "Turning Point", + }, +} + + +--- SmokeColor +-- @type POINT_VEC3.SmokeColor +-- @field Green +-- @field Red +-- @field White +-- @field Orange +-- @field Blue + + + +--- FlareColor +-- @type POINT_VEC3.FlareColor +-- @field Green +-- @field Red +-- @field White +-- @field Yellow + + + +--- RoutePoint AltTypes +-- @type POINT_VEC3.RoutePointAltType +-- @field BARO "BARO" + + + +--- RoutePoint Types +-- @type POINT_VEC3.RoutePointType +-- @field TurningPoint "Turning Point" + + + +--- RoutePoint Actions +-- @type POINT_VEC3.RoutePointAction +-- @field TurningPoint "Turning Point" + + + +-- Constructor. + +--- Create a new POINT_VEC3 object. +-- @param #POINT_VEC3 self +-- @param DCSTypes#Distance x The x coordinate of the Vec3 point, pointing to the North. +-- @param DCSTypes#Distance y The y coordinate of the Vec3 point, pointing Upwards. +-- @param DCSTypes#Distance z The z coordinate of the Vec3 point, pointing to the Right. +-- @return Point#POINT_VEC3 self +function POINT_VEC3:New( x, y, z ) + + local self = BASE:Inherit( self, BASE:New() ) + self.PointVec3 = { x = x, y = y, z = z } + self:F2( self.PointVec3 ) + return self +end + + +--- Build an air type route point. +-- @param #POINT_VEC3 self +-- @param #POINT_VEC3.RoutePointAltType AltType The altitude type. +-- @param #POINT_VEC3.RoutePointType Type The route point type. +-- @param #POINT_VEC3.RoutePointAction Action The route point action. +-- @param DCSTypes#Speed Speed Airspeed in km/h. +-- @param #boolean SpeedLocked true means the speed is locked. +-- @return #table The route point. +function POINT_VEC3:RoutePointAir( AltType, Type, Action, Speed, SpeedLocked ) + self:F2( { AltType, Type, Action, Speed, SpeedLocked } ) + + local RoutePoint = {} + RoutePoint.x = self.PointVec3.x + RoutePoint.y = self.PointVec3.z + RoutePoint.alt = self.PointVec3.y + RoutePoint.alt_type = AltType + + RoutePoint.type = Type + RoutePoint.action = Action + + RoutePoint.speed = Speed / 3.6 + RoutePoint.speed_locked = true + +-- ["task"] = +-- { +-- ["id"] = "ComboTask", +-- ["params"] = +-- { +-- ["tasks"] = +-- { +-- }, -- end of ["tasks"] +-- }, -- end of ["params"] +-- }, -- end of ["task"] + + + RoutePoint.task = {} + RoutePoint.task.id = "ComboTask" + RoutePoint.task.params = {} + RoutePoint.task.params.tasks = {} + + + return RoutePoint +end + + +--- Smokes the point in a color. +-- @param #POINT_VEC3 self +-- @param Point#POINT_VEC3.SmokeColor SmokeColor +function POINT_VEC3:Smoke( SmokeColor ) + self:F2( { SmokeColor, self.PointVec3 } ) + trigger.action.smoke( self.PointVec3, SmokeColor ) +end + +--- Smoke the POINT_VEC3 Green. +-- @param #POINT_VEC3 self +function POINT_VEC3:SmokeGreen() + self:F2() + self:Smoke( POINT_VEC3.SmokeColor.Green ) +end + +--- Smoke the POINT_VEC3 Red. +-- @param #POINT_VEC3 self +function POINT_VEC3:SmokeRed() + self:F2() + self:Smoke( POINT_VEC3.SmokeColor.Red ) +end + +--- Smoke the POINT_VEC3 White. +-- @param #POINT_VEC3 self +function POINT_VEC3:SmokeWhite() + self:F2() + self:Smoke( POINT_VEC3.SmokeColor.White ) +end + +--- Smoke the POINT_VEC3 Orange. +-- @param #POINT_VEC3 self +function POINT_VEC3:SmokeOrange() + self:F2() + self:Smoke( POINT_VEC3.SmokeColor.Orange ) +end + +--- Smoke the POINT_VEC3 Blue. +-- @param #POINT_VEC3 self +function POINT_VEC3:SmokeBlue() + self:F2() + self:Smoke( POINT_VEC3.SmokeColor.Blue ) +end + +--- Flares the point in a color. +-- @param #POINT_VEC3 self +-- @param Point#POINT_VEC3.FlareColor +-- @param DCSTypes#Azimuth (optional) Azimuth The azimuth of the flare direction. The default azimuth is 0. +function POINT_VEC3:Flare( FlareColor, Azimuth ) + self:F2( { FlareColor, self.PointVec3 } ) + trigger.action.signalFlare( self.PointVec3, FlareColor, Azimuth and Azimuth or 0 ) +end + +--- Flare the POINT_VEC3 White. +-- @param #POINT_VEC3 self +-- @param DCSTypes#Azimuth (optional) Azimuth The azimuth of the flare direction. The default azimuth is 0. +function POINT_VEC3:FlareWhite( Azimuth ) + self:F2( Azimuth ) + self:Flare( POINT_VEC3.FlareColor.White, Azimuth ) +end + +--- Flare the POINT_VEC3 Yellow. +-- @param #POINT_VEC3 self +-- @param DCSTypes#Azimuth (optional) Azimuth The azimuth of the flare direction. The default azimuth is 0. +function POINT_VEC3:FlareYellow( Azimuth ) + self:F2( Azimuth ) + self:Flare( POINT_VEC3.FlareColor.Yellow, Azimuth ) +end + +--- Flare the POINT_VEC3 Green. +-- @param #POINT_VEC3 self +-- @param DCSTypes#Azimuth (optional) Azimuth The azimuth of the flare direction. The default azimuth is 0. +function POINT_VEC3:FlareGreen( Azimuth ) + self:F2( Azimuth ) + self:Flare( POINT_VEC3.FlareColor.Green, Azimuth ) +end + +--- Flare the POINT_VEC3 Red. +-- @param #POINT_VEC3 self +function POINT_VEC3:FlareRed( Azimuth ) + self:F2( Azimuth ) + self:Flare( POINT_VEC3.FlareColor.Red, Azimuth ) +end + + +--- The POINT_VEC2 class +-- @type POINT_VEC2 +-- @field DCSTypes#Vec2 PointVec2 +-- @extends Point#POINT_VEC3 +POINT_VEC2 = { + ClassName = "POINT_VEC2", + } + +--- Create a new POINT_VEC2 object. +-- @param #POINT_VEC2 self +-- @param DCSTypes#Distance x The x coordinate of the Vec3 point, pointing to the North. +-- @param DCSTypes#Distance y The y coordinate of the Vec3 point, pointing to the Right. +-- @param DCSTypes#Distance LandHeightAdd (optional) The default height if required to be evaluated will be the land height of the x, y coordinate. You can specify an extra height to be added to the land height. +-- @return Point#POINT_VEC2 +function POINT_VEC2:New( x, y, LandHeightAdd ) + + local LandHeight = land.getHeight( { ["x"] = x, ["y"] = y } ) + if LandHeightAdd then + LandHeight = LandHeight + LandHeightAdd + end + + local self = BASE:Inherit( self, POINT_VEC3:New( x, LandHeight, y ) ) + self:F2( { x, y, LandHeightAdd } ) + + self.PointVec2 = { x = x, y = y } + + return self +end + +--- Calculate the distance from a reference @{Point#POINT_VEC2}. +-- @param #POINT_VEC2 self +-- @param #POINT_VEC2 PointVec2Reference The reference @{Point#POINT_VEC2}. +-- @return DCSTypes#Distance The distance from the reference @{Point#POINT_VEC2} in meters. +function POINT_VEC2:DistanceFromPointVec2( PointVec2Reference ) + self:F2( PointVec2Reference ) + + local Distance = ( ( PointVec2Reference.PointVec2.x - self.PointVec2.x ) ^ 2 + ( PointVec2Reference.PointVec2.y - self.PointVec2.y ) ^2 ) ^0.5 + + self:T2( Distance ) + return Distance +end + +--- Calculate the distance from a reference @{DCSTypes#Vec2}. +-- @param #POINT_VEC2 self +-- @param DCSTypes#Vec2 Vec2Reference The reference @{DCSTypes#Vec2}. +-- @return DCSTypes#Distance The distance from the reference @{DCSTypes#Vec2} in meters. +function POINT_VEC2:DistanceFromVec2( Vec2Reference ) + self:F2( Vec2Reference ) + + local Distance = ( ( Vec2Reference.x - self.PointVec2.x ) ^ 2 + ( Vec2Reference.y - self.PointVec2.y ) ^2 ) ^0.5 + + self:T2( Distance ) + return Distance +end + + +--- The main include file for the MOOSE system. + +Include.File( "Routines" ) +Include.File( "Base" ) +Include.File( "Object" ) +Include.File( "Identifiable" ) +Include.File( "Positionable" ) +Include.File( "Controllable" ) +Include.File( "Scheduler" ) +Include.File( "Event" ) +Include.File( "Menu" ) +Include.File( "Group" ) +Include.File( "Unit" ) +Include.File( "Zone" ) +Include.File( "Client" ) +Include.File( "Static" ) +Include.File( "Airbase" ) +Include.File( "Database" ) +Include.File( "Set" ) +Include.File( "Point" ) Include.File( "Moose" ) +Include.File( "Scoring" ) +Include.File( "Cargo" ) +Include.File( "Message" ) +Include.File( "Stage" ) +Include.File( "Task" ) +Include.File( "GoHomeTask" ) +Include.File( "DestroyBaseTask" ) +Include.File( "DestroyGroupsTask" ) +Include.File( "DestroyRadarsTask" ) +Include.File( "DestroyUnitTypesTask" ) +Include.File( "PickupTask" ) +Include.File( "DeployTask" ) +Include.File( "NoTask" ) +Include.File( "RouteTask" ) +Include.File( "Mission" ) +Include.File( "CleanUp" ) +Include.File( "Spawn" ) +Include.File( "Movement" ) +Include.File( "Sead" ) +Include.File( "Escort" ) +Include.File( "MissileTrainer" ) +Include.File( "PatrolZone" ) +Include.File( "AIBalancer" ) +Include.File( "AirbasePolice" ) +Include.File( "Detection" ) +Include.File( "FAC" ) -BASE:TraceOnOff( true ) +-- The order of the declarations is important here. Don't touch it. + +--- Declare the event dispatcher based on the EVENT class +_EVENTDISPATCHER = EVENT:New() -- #EVENT + +--- Declare the main database object, which is used internally by the MOOSE classes. +_DATABASE = DATABASE:New() -- Database#DATABASE + +--- Scoring system for MOOSE. +-- This scoring class calculates the hits and kills that players make within a simulation session. +-- Scoring is calculated using a defined algorithm. +-- With a small change in MissionScripting.lua, the scoring can also be logged in a CSV file, that can then be uploaded +-- to a database or a BI tool to publish the scoring results to the player community. +-- @module Scoring +-- @author FlightControl + + +--- The Scoring class +-- @type SCORING +-- @field Players A collection of the current players that have joined the game. +-- @extends Base#BASE +SCORING = { + ClassName = "SCORING", + ClassID = 0, + Players = {}, +} + +local _SCORINGCoalition = + { + [1] = "Red", + [2] = "Blue", + } + +local _SCORINGCategory = + { + [Unit.Category.AIRPLANE] = "Plane", + [Unit.Category.HELICOPTER] = "Helicopter", + [Unit.Category.GROUND_UNIT] = "Vehicle", + [Unit.Category.SHIP] = "Ship", + [Unit.Category.STRUCTURE] = "Structure", + } + +--- Creates a new SCORING object to administer the scoring achieved by players. +-- @param #SCORING self +-- @param #string GameName The name of the game. This name is also logged in the CSV score file. +-- @return #SCORING self +-- @usage +-- -- Define a new scoring object for the mission Gori Valley. +-- ScoringObject = SCORING:New( "Gori Valley" ) +function SCORING:New( GameName ) + + -- Inherits from BASE + local self = BASE:Inherit( self, BASE:New() ) + + if GameName then + self.GameName = GameName + else + error( "A game name must be given to register the scoring results" ) + end + + + _EVENTDISPATCHER:OnDead( self._EventOnDeadOrCrash, self ) + _EVENTDISPATCHER:OnCrash( self._EventOnDeadOrCrash, self ) + _EVENTDISPATCHER:OnHit( self._EventOnHit, self ) + + --self.SchedulerId = routines.scheduleFunction( SCORING._FollowPlayersScheduled, { self }, 0, 5 ) + self.SchedulerId = SCHEDULER:New( self, self._FollowPlayersScheduled, {}, 0, 5 ) + + self:ScoreMenu() + + return self + +end + +--- Creates a score radio menu. Can be accessed using Radio -> F10. +-- @param #SCORING self +-- @return #SCORING self +function SCORING:ScoreMenu() + self.Menu = SUBMENU:New( 'Scoring' ) + self.AllScoresMenu = COMMANDMENU:New( 'Score All Active Players', self.Menu, SCORING.ReportScoreAll, self ) + --- = COMMANDMENU:New('Your Current Score', ReportScore, SCORING.ReportScorePlayer, self ) + return self +end + +--- Follows new players entering Clients within the DCSRTE. +-- TODO: Need to see if i can catch this also with an event. It will eliminate the schedule ... +function SCORING:_FollowPlayersScheduled() + self:F3( "_FollowPlayersScheduled" ) + + local ClientUnit = 0 + local CoalitionsData = { AlivePlayersRed = coalition.getPlayers(coalition.side.RED), AlivePlayersBlue = coalition.getPlayers(coalition.side.BLUE) } + local unitId + local unitData + local AlivePlayerUnits = {} + + for CoalitionId, CoalitionData in pairs( CoalitionsData ) do + self:T3( { "_FollowPlayersScheduled", CoalitionData } ) + for UnitId, UnitData in pairs( CoalitionData ) do + self:_AddPlayerFromUnit( UnitData ) + end + end + + return true +end + + +--- Track DEAD or CRASH events for the scoring. +-- @param #SCORING self +-- @param Event#EVENTDATA Event +function SCORING:_EventOnDeadOrCrash( Event ) + self:F( { Event } ) + + local TargetUnit = nil + local TargetGroup = nil + local TargetUnitName = "" + local TargetGroupName = "" + local TargetPlayerName = "" + local TargetCoalition = nil + local TargetCategory = nil + local TargetType = nil + local TargetUnitCoalition = nil + local TargetUnitCategory = nil + local TargetUnitType = nil + + if Event.IniDCSUnit then + + TargetUnit = Event.IniDCSUnit + TargetUnitName = Event.IniDCSUnitName + TargetGroup = Event.IniDCSGroup + TargetGroupName = Event.IniDCSGroupName + TargetPlayerName = TargetUnit:getPlayerName() + + TargetCoalition = TargetUnit:getCoalition() + --TargetCategory = TargetUnit:getCategory() + TargetCategory = TargetUnit:getDesc().category -- Workaround + TargetType = TargetUnit:getTypeName() + + TargetUnitCoalition = _SCORINGCoalition[TargetCoalition] + TargetUnitCategory = _SCORINGCategory[TargetCategory] + TargetUnitType = TargetType + + self:T( { TargetUnitName, TargetGroupName, TargetPlayerName, TargetCoalition, TargetCategory, TargetType } ) + end + + for PlayerName, PlayerData in pairs( self.Players ) do + if PlayerData then -- This should normally not happen, but i'll test it anyway. + self:T( "Something got killed" ) + + -- Some variables + local InitUnitName = PlayerData.UnitName + local InitUnitType = PlayerData.UnitType + local InitCoalition = PlayerData.UnitCoalition + local InitCategory = PlayerData.UnitCategory + local InitUnitCoalition = _SCORINGCoalition[InitCoalition] + local InitUnitCategory = _SCORINGCategory[InitCategory] + + self:T( { InitUnitName, InitUnitType, InitUnitCoalition, InitCoalition, InitUnitCategory, InitCategory } ) + + -- What is he hitting? + if TargetCategory then + if PlayerData and PlayerData.Hit and PlayerData.Hit[TargetCategory] and PlayerData.Hit[TargetCategory][TargetUnitName] then -- Was there a hit for this unit for this player before registered??? + if not PlayerData.Kill[TargetCategory] then + PlayerData.Kill[TargetCategory] = {} + end + if not PlayerData.Kill[TargetCategory][TargetType] then + PlayerData.Kill[TargetCategory][TargetType] = {} + PlayerData.Kill[TargetCategory][TargetType].Score = 0 + PlayerData.Kill[TargetCategory][TargetType].ScoreKill = 0 + PlayerData.Kill[TargetCategory][TargetType].Penalty = 0 + PlayerData.Kill[TargetCategory][TargetType].PenaltyKill = 0 + end + + if InitCoalition == TargetCoalition then + PlayerData.Penalty = PlayerData.Penalty + 25 + PlayerData.Kill[TargetCategory][TargetType].Penalty = PlayerData.Kill[TargetCategory][TargetType].Penalty + 25 + PlayerData.Kill[TargetCategory][TargetType].PenaltyKill = PlayerData.Kill[TargetCategory][TargetType].PenaltyKill + 1 + MESSAGE:New( "Player '" .. PlayerName .. "' killed a friendly " .. TargetUnitCategory .. " ( " .. TargetType .. " ) " .. + PlayerData.Kill[TargetCategory][TargetType].PenaltyKill .. " times. Penalty: -" .. PlayerData.Kill[TargetCategory][TargetType].Penalty .. + ". Score Total:" .. PlayerData.Score - PlayerData.Penalty, + 5 ):ToAll() + self:ScoreCSV( PlayerName, "KILL_PENALTY", 1, -125, InitUnitName, InitUnitCoalition, InitUnitCategory, InitUnitType, TargetUnitName, TargetUnitCoalition, TargetUnitCategory, TargetUnitType ) + else + PlayerData.Score = PlayerData.Score + 10 + PlayerData.Kill[TargetCategory][TargetType].Score = PlayerData.Kill[TargetCategory][TargetType].Score + 10 + PlayerData.Kill[TargetCategory][TargetType].ScoreKill = PlayerData.Kill[TargetCategory][TargetType].ScoreKill + 1 + MESSAGE:New( "Player '" .. PlayerName .. "' killed an enemy " .. TargetUnitCategory .. " ( " .. TargetType .. " ) " .. + PlayerData.Kill[TargetCategory][TargetType].ScoreKill .. " times. Score: " .. PlayerData.Kill[TargetCategory][TargetType].Score .. + ". Score Total:" .. PlayerData.Score - PlayerData.Penalty, + 5 ):ToAll() + self:ScoreCSV( PlayerName, "KILL_SCORE", 1, 10, InitUnitName, InitUnitCoalition, InitUnitCategory, InitUnitType, TargetUnitName, TargetUnitCoalition, TargetUnitCategory, TargetUnitType ) + end + end + end + end + end +end + + + +--- Add a new player entering a Unit. +function SCORING:_AddPlayerFromUnit( UnitData ) + self:F( UnitData ) + + if UnitData and UnitData:isExist() then + local UnitName = UnitData:getName() + local PlayerName = UnitData:getPlayerName() + local UnitDesc = UnitData:getDesc() + local UnitCategory = UnitDesc.category + local UnitCoalition = UnitData:getCoalition() + local UnitTypeName = UnitData:getTypeName() + + self:T( { PlayerName, UnitName, UnitCategory, UnitCoalition, UnitTypeName } ) + + if self.Players[PlayerName] == nil then -- I believe this is the place where a Player gets a life in a mission when he enters a unit ... + self.Players[PlayerName] = {} + self.Players[PlayerName].Hit = {} + self.Players[PlayerName].Kill = {} + self.Players[PlayerName].Mission = {} + + -- for CategoryID, CategoryName in pairs( SCORINGCategory ) do + -- self.Players[PlayerName].Hit[CategoryID] = {} + -- self.Players[PlayerName].Kill[CategoryID] = {} + -- end + self.Players[PlayerName].HitPlayers = {} + self.Players[PlayerName].HitUnits = {} + self.Players[PlayerName].Score = 0 + self.Players[PlayerName].Penalty = 0 + self.Players[PlayerName].PenaltyCoalition = 0 + self.Players[PlayerName].PenaltyWarning = 0 + end + + if not self.Players[PlayerName].UnitCoalition then + self.Players[PlayerName].UnitCoalition = UnitCoalition + else + if self.Players[PlayerName].UnitCoalition ~= UnitCoalition then + self.Players[PlayerName].Penalty = self.Players[PlayerName].Penalty + 50 + self.Players[PlayerName].PenaltyCoalition = self.Players[PlayerName].PenaltyCoalition + 1 + MESSAGE:New( "Player '" .. PlayerName .. "' changed coalition from " .. _SCORINGCoalition[self.Players[PlayerName].UnitCoalition] .. " to " .. _SCORINGCoalition[UnitCoalition] .. + "(changed " .. self.Players[PlayerName].PenaltyCoalition .. " times the coalition). 50 Penalty points added.", + 2 + ):ToAll() + self:ScoreCSV( PlayerName, "COALITION_PENALTY", 1, -50, self.Players[PlayerName].UnitName, _SCORINGCoalition[self.Players[PlayerName].UnitCoalition], _SCORINGCategory[self.Players[PlayerName].UnitCategory], self.Players[PlayerName].UnitType, + UnitName, _SCORINGCoalition[UnitCoalition], _SCORINGCategory[UnitCategory], UnitData:getTypeName() ) + end + end + self.Players[PlayerName].UnitName = UnitName + self.Players[PlayerName].UnitCoalition = UnitCoalition + self.Players[PlayerName].UnitCategory = UnitCategory + self.Players[PlayerName].UnitType = UnitTypeName + + if self.Players[PlayerName].Penalty > 100 then + if self.Players[PlayerName].PenaltyWarning < 1 then + MESSAGE:New( "Player '" .. PlayerName .. "': WARNING! If you continue to commit FRATRICIDE and have a PENALTY score higher than 150, you will be COURT MARTIALED and DISMISSED from this mission! \nYour total penalty is: " .. self.Players[PlayerName].Penalty, + 30 + ):ToAll() + self.Players[PlayerName].PenaltyWarning = self.Players[PlayerName].PenaltyWarning + 1 + end + end + + if self.Players[PlayerName].Penalty > 150 then + ClientGroup = GROUP:NewFromDCSUnit( UnitData ) + ClientGroup:Destroy() + MESSAGE:New( "Player '" .. PlayerName .. "' committed FRATRICIDE, he will be COURT MARTIALED and is DISMISSED from this mission!", + 10 + ):ToAll() + end + + end +end + + +--- Registers Scores the players completing a Mission Task. +function SCORING:_AddMissionTaskScore( PlayerUnit, MissionName, Score ) + self:F( { PlayerUnit, MissionName, Score } ) + + local PlayerName = PlayerUnit:getPlayerName() + + if not self.Players[PlayerName].Mission[MissionName] then + self.Players[PlayerName].Mission[MissionName] = {} + self.Players[PlayerName].Mission[MissionName].ScoreTask = 0 + self.Players[PlayerName].Mission[MissionName].ScoreMission = 0 + end + + self:T( PlayerName ) + self:T( self.Players[PlayerName].Mission[MissionName] ) + + self.Players[PlayerName].Score = self.Players[PlayerName].Score + Score + self.Players[PlayerName].Mission[MissionName].ScoreTask = self.Players[PlayerName].Mission[MissionName].ScoreTask + Score + + MESSAGE:New( "Player '" .. PlayerName .. "' has finished another Task in Mission '" .. MissionName .. "'. " .. + Score .. " Score points added.", + 20 ):ToAll() + + self:ScoreCSV( PlayerName, "TASK_" .. MissionName:gsub( ' ', '_' ), 1, Score, PlayerUnit:getName() ) +end + + +--- Registers Mission Scores for possible multiple players that contributed in the Mission. +function SCORING:_AddMissionScore( MissionName, Score ) + self:F( { MissionName, Score } ) + + for PlayerName, PlayerData in pairs( self.Players ) do + + if PlayerData.Mission[MissionName] then + PlayerData.Score = PlayerData.Score + Score + PlayerData.Mission[MissionName].ScoreMission = PlayerData.Mission[MissionName].ScoreMission + Score + MESSAGE:New( "Player '" .. PlayerName .. "' has finished Mission '" .. MissionName .. "'. " .. + Score .. " Score points added.", + 20 ):ToAll() + self:ScoreCSV( PlayerName, "MISSION_" .. MissionName:gsub( ' ', '_' ), 1, Score ) + end + end +end + +--- Handles the OnHit event for the scoring. +-- @param #SCORING self +-- @param Event#EVENTDATA Event +function SCORING:_EventOnHit( Event ) + self:F( { Event } ) + + local InitUnit = nil + local InitUnitName = "" + local InitGroup = nil + local InitGroupName = "" + local InitPlayerName = nil + + local InitCoalition = nil + local InitCategory = nil + local InitType = nil + local InitUnitCoalition = nil + local InitUnitCategory = nil + local InitUnitType = nil + + local TargetUnit = nil + local TargetUnitName = "" + local TargetGroup = nil + local TargetGroupName = "" + local TargetPlayerName = "" + + local TargetCoalition = nil + local TargetCategory = nil + local TargetType = nil + local TargetUnitCoalition = nil + local TargetUnitCategory = nil + local TargetUnitType = nil + + if Event.IniDCSUnit then + + InitUnit = Event.IniDCSUnit + InitUnitName = Event.IniDCSUnitName + InitGroup = Event.IniDCSGroup + InitGroupName = Event.IniDCSGroupName + InitPlayerName = InitUnit:getPlayerName() + + InitCoalition = InitUnit:getCoalition() + --TODO: Workaround Client DCS Bug + --InitCategory = InitUnit:getCategory() + InitCategory = InitUnit:getDesc().category + InitType = InitUnit:getTypeName() + + InitUnitCoalition = _SCORINGCoalition[InitCoalition] + InitUnitCategory = _SCORINGCategory[InitCategory] + InitUnitType = InitType + + self:T( { InitUnitName, InitGroupName, InitPlayerName, InitCoalition, InitCategory, InitType , InitUnitCoalition, InitUnitCategory, InitUnitType } ) + end + + + if Event.TgtDCSUnit then + + TargetUnit = Event.TgtDCSUnit + TargetUnitName = Event.TgtDCSUnitName + TargetGroup = Event.TgtDCSGroup + TargetGroupName = Event.TgtDCSGroupName + TargetPlayerName = TargetUnit:getPlayerName() + + TargetCoalition = TargetUnit:getCoalition() + --TODO: Workaround Client DCS Bug + --TargetCategory = TargetUnit:getCategory() + TargetCategory = TargetUnit:getDesc().category + TargetType = TargetUnit:getTypeName() + + TargetUnitCoalition = _SCORINGCoalition[TargetCoalition] + TargetUnitCategory = _SCORINGCategory[TargetCategory] + TargetUnitType = TargetType + + self:T( { TargetUnitName, TargetGroupName, TargetPlayerName, TargetCoalition, TargetCategory, TargetType, TargetUnitCoalition, TargetUnitCategory, TargetUnitType } ) + end + + if InitPlayerName ~= nil then -- It is a player that is hitting something + self:_AddPlayerFromUnit( InitUnit ) + if self.Players[InitPlayerName] then -- This should normally not happen, but i'll test it anyway. + if TargetPlayerName ~= nil then -- It is a player hitting another player ... + self:_AddPlayerFromUnit( TargetUnit ) + self.Players[InitPlayerName].HitPlayers = self.Players[InitPlayerName].HitPlayers + 1 + end + + self:T( "Hitting Something" ) + -- What is he hitting? + if TargetCategory then + if not self.Players[InitPlayerName].Hit[TargetCategory] then + self.Players[InitPlayerName].Hit[TargetCategory] = {} + end + if not self.Players[InitPlayerName].Hit[TargetCategory][TargetUnitName] then + self.Players[InitPlayerName].Hit[TargetCategory][TargetUnitName] = {} + self.Players[InitPlayerName].Hit[TargetCategory][TargetUnitName].Score = 0 + self.Players[InitPlayerName].Hit[TargetCategory][TargetUnitName].Penalty = 0 + self.Players[InitPlayerName].Hit[TargetCategory][TargetUnitName].ScoreHit = 0 + self.Players[InitPlayerName].Hit[TargetCategory][TargetUnitName].PenaltyHit = 0 + end + local Score = 0 + if InitCoalition == TargetCoalition then + self.Players[InitPlayerName].Penalty = self.Players[InitPlayerName].Penalty + 10 + self.Players[InitPlayerName].Hit[TargetCategory][TargetUnitName].Penalty = self.Players[InitPlayerName].Hit[TargetCategory][TargetUnitName].Penalty + 10 + self.Players[InitPlayerName].Hit[TargetCategory][TargetUnitName].PenaltyHit = self.Players[InitPlayerName].Hit[TargetCategory][TargetUnitName].PenaltyHit + 1 + MESSAGE:New( "Player '" .. InitPlayerName .. "' hit a friendly " .. TargetUnitCategory .. " ( " .. TargetType .. " ) " .. + self.Players[InitPlayerName].Hit[TargetCategory][TargetUnitName].PenaltyHit .. " times. Penalty: -" .. self.Players[InitPlayerName].Hit[TargetCategory][TargetUnitName].Penalty .. + ". Score Total:" .. self.Players[InitPlayerName].Score - self.Players[InitPlayerName].Penalty, + 2 + ):ToAll() + self:ScoreCSV( InitPlayerName, "HIT_PENALTY", 1, -25, InitUnitName, InitUnitCoalition, InitUnitCategory, InitUnitType, TargetUnitName, TargetUnitCoalition, TargetUnitCategory, TargetUnitType ) + else + self.Players[InitPlayerName].Score = self.Players[InitPlayerName].Score + 10 + self.Players[InitPlayerName].Hit[TargetCategory][TargetUnitName].Score = self.Players[InitPlayerName].Hit[TargetCategory][TargetUnitName].Score + 1 + self.Players[InitPlayerName].Hit[TargetCategory][TargetUnitName].ScoreHit = self.Players[InitPlayerName].Hit[TargetCategory][TargetUnitName].ScoreHit + 1 + MESSAGE:New( "Player '" .. InitPlayerName .. "' hit a target " .. TargetUnitCategory .. " ( " .. TargetType .. " ) " .. + self.Players[InitPlayerName].Hit[TargetCategory][TargetUnitName].ScoreHit .. " times. Score: " .. self.Players[InitPlayerName].Hit[TargetCategory][TargetUnitName].Score .. + ". Score Total:" .. self.Players[InitPlayerName].Score - self.Players[InitPlayerName].Penalty, + 2 + ):ToAll() + self:ScoreCSV( InitPlayerName, "HIT_SCORE", 1, 1, InitUnitName, InitUnitCoalition, InitUnitCategory, InitUnitType, TargetUnitName, TargetUnitCoalition, TargetUnitCategory, TargetUnitType ) + end + end + end + elseif InitPlayerName == nil then -- It is an AI hitting a player??? + + end +end + + +function SCORING:ReportScoreAll() + + env.info( "Hello World " ) + + local ScoreMessage = "" + local PlayerMessage = "" + + self:T( "Score Report" ) + + for PlayerName, PlayerData in pairs( self.Players ) do + if PlayerData then -- This should normally not happen, but i'll test it anyway. + self:T( "Score Player: " .. PlayerName ) + + -- Some variables + local InitUnitCoalition = _SCORINGCoalition[PlayerData.UnitCoalition] + local InitUnitCategory = _SCORINGCategory[PlayerData.UnitCategory] + local InitUnitType = PlayerData.UnitType + local InitUnitName = PlayerData.UnitName + + local PlayerScore = 0 + local PlayerPenalty = 0 + + ScoreMessage = ":\n" + + local ScoreMessageHits = "" + + for CategoryID, CategoryName in pairs( _SCORINGCategory ) do + self:T( CategoryName ) + if PlayerData.Hit[CategoryID] then + local Score = 0 + local ScoreHit = 0 + local Penalty = 0 + local PenaltyHit = 0 + self:T( "Hit scores exist for player " .. PlayerName ) + for UnitName, UnitData in pairs( PlayerData.Hit[CategoryID] ) do + Score = Score + UnitData.Score + ScoreHit = ScoreHit + UnitData.ScoreHit + Penalty = Penalty + UnitData.Penalty + PenaltyHit = UnitData.PenaltyHit + end + local ScoreMessageHit = string.format( "%s:%d ", CategoryName, Score - Penalty ) + self:T( ScoreMessageHit ) + ScoreMessageHits = ScoreMessageHits .. ScoreMessageHit + PlayerScore = PlayerScore + Score + PlayerPenalty = PlayerPenalty + Penalty + else + --ScoreMessageHits = ScoreMessageHits .. string.format( "%s:%d ", string.format(CategoryName, 1, 1), 0 ) + end + end + if ScoreMessageHits ~= "" then + ScoreMessage = ScoreMessage .. " Hits: " .. ScoreMessageHits .. "\n" + end + + local ScoreMessageKills = "" + for CategoryID, CategoryName in pairs( _SCORINGCategory ) do + self:T( "Kill scores exist for player " .. PlayerName ) + if PlayerData.Kill[CategoryID] then + local Score = 0 + local ScoreKill = 0 + local Penalty = 0 + local PenaltyKill = 0 + + for UnitName, UnitData in pairs( PlayerData.Kill[CategoryID] ) do + Score = Score + UnitData.Score + ScoreKill = ScoreKill + UnitData.ScoreKill + Penalty = Penalty + UnitData.Penalty + PenaltyKill = PenaltyKill + UnitData.PenaltyKill + end + + local ScoreMessageKill = string.format( " %s:%d ", CategoryName, Score - Penalty ) + self:T( ScoreMessageKill ) + ScoreMessageKills = ScoreMessageKills .. ScoreMessageKill + + PlayerScore = PlayerScore + Score + PlayerPenalty = PlayerPenalty + Penalty + else + --ScoreMessageKills = ScoreMessageKills .. string.format( "%s:%d ", string.format(CategoryName, 1, 1), 0 ) + end + end + if ScoreMessageKills ~= "" then + ScoreMessage = ScoreMessage .. " Kills: " .. ScoreMessageKills .. "\n" + end + + local ScoreMessageCoalitionChangePenalties = "" + if PlayerData.PenaltyCoalition ~= 0 then + ScoreMessageCoalitionChangePenalties = ScoreMessageCoalitionChangePenalties .. string.format( " -%d (%d changed)", PlayerData.Penalty, PlayerData.PenaltyCoalition ) + PlayerPenalty = PlayerPenalty + PlayerData.Penalty + end + if ScoreMessageCoalitionChangePenalties ~= "" then + ScoreMessage = ScoreMessage .. " Coalition Penalties: " .. ScoreMessageCoalitionChangePenalties .. "\n" + end + + local ScoreMessageMission = "" + local ScoreMission = 0 + local ScoreTask = 0 + for MissionName, MissionData in pairs( PlayerData.Mission ) do + ScoreMission = ScoreMission + MissionData.ScoreMission + ScoreTask = ScoreTask + MissionData.ScoreTask + ScoreMessageMission = ScoreMessageMission .. "'" .. MissionName .. "'; " + end + PlayerScore = PlayerScore + ScoreMission + ScoreTask + + if ScoreMessageMission ~= "" then + ScoreMessage = ScoreMessage .. " Tasks: " .. ScoreTask .. " Mission: " .. ScoreMission .. " ( " .. ScoreMessageMission .. ")\n" + end + + PlayerMessage = PlayerMessage .. string.format( "Player '%s' Score:%d (%d Score -%d Penalties)%s", PlayerName, PlayerScore - PlayerPenalty, PlayerScore, PlayerPenalty, ScoreMessage ) + end + end + MESSAGE:New( PlayerMessage, 30, "Player Scores" ):ToAll() +end + + +function SCORING:ReportScorePlayer() + + env.info( "Hello World " ) + + local ScoreMessage = "" + local PlayerMessage = "" + + self:T( "Score Report" ) + + for PlayerName, PlayerData in pairs( self.Players ) do + if PlayerData then -- This should normally not happen, but i'll test it anyway. + self:T( "Score Player: " .. PlayerName ) + + -- Some variables + local InitUnitCoalition = _SCORINGCoalition[PlayerData.UnitCoalition] + local InitUnitCategory = _SCORINGCategory[PlayerData.UnitCategory] + local InitUnitType = PlayerData.UnitType + local InitUnitName = PlayerData.UnitName + + local PlayerScore = 0 + local PlayerPenalty = 0 + + ScoreMessage = "" + + local ScoreMessageHits = "" + + for CategoryID, CategoryName in pairs( _SCORINGCategory ) do + self:T( CategoryName ) + if PlayerData.Hit[CategoryID] then + local Score = 0 + local ScoreHit = 0 + local Penalty = 0 + local PenaltyHit = 0 + self:T( "Hit scores exist for player " .. PlayerName ) + for UnitName, UnitData in pairs( PlayerData.Hit[CategoryID] ) do + Score = Score + UnitData.Score + ScoreHit = ScoreHit + UnitData.ScoreHit + Penalty = Penalty + UnitData.Penalty + PenaltyHit = UnitData.PenaltyHit + end + local ScoreMessageHit = string.format( "\n %s = %d score(%d;-%d) hits(#%d;#-%d)", CategoryName, Score - Penalty, Score, Penalty, ScoreHit, PenaltyHit ) + self:T( ScoreMessageHit ) + ScoreMessageHits = ScoreMessageHits .. ScoreMessageHit + PlayerScore = PlayerScore + Score + PlayerPenalty = PlayerPenalty + Penalty + else + --ScoreMessageHits = ScoreMessageHits .. string.format( "%s:%d ", string.format(CategoryName, 1, 1), 0 ) + end + end + if ScoreMessageHits ~= "" then + ScoreMessage = ScoreMessage .. "\n Hits: " .. ScoreMessageHits .. " " + end + + local ScoreMessageKills = "" + for CategoryID, CategoryName in pairs( _SCORINGCategory ) do + self:T( "Kill scores exist for player " .. PlayerName ) + if PlayerData.Kill[CategoryID] then + local Score = 0 + local ScoreKill = 0 + local Penalty = 0 + local PenaltyKill = 0 + + for UnitName, UnitData in pairs( PlayerData.Kill[CategoryID] ) do + Score = Score + UnitData.Score + ScoreKill = ScoreKill + UnitData.ScoreKill + Penalty = Penalty + UnitData.Penalty + PenaltyKill = PenaltyKill + UnitData.PenaltyKill + end + + local ScoreMessageKill = string.format( "\n %s = %d score(%d;-%d) hits(#%d;#-%d)", CategoryName, Score - Penalty, Score, Penalty, ScoreKill, PenaltyKill ) + self:T( ScoreMessageKill ) + ScoreMessageKills = ScoreMessageKills .. ScoreMessageKill + + PlayerScore = PlayerScore + Score + PlayerPenalty = PlayerPenalty + Penalty + else + --ScoreMessageKills = ScoreMessageKills .. string.format( "%s:%d ", string.format(CategoryName, 1, 1), 0 ) + end + end + if ScoreMessageKills ~= "" then + ScoreMessage = ScoreMessage .. "\n Kills: " .. ScoreMessageKills .. " " + end + + local ScoreMessageCoalitionChangePenalties = "" + if PlayerData.PenaltyCoalition ~= 0 then + ScoreMessageCoalitionChangePenalties = ScoreMessageCoalitionChangePenalties .. string.format( " -%d (%d changed)", PlayerData.Penalty, PlayerData.PenaltyCoalition ) + PlayerPenalty = PlayerPenalty + PlayerData.Penalty + end + if ScoreMessageCoalitionChangePenalties ~= "" then + ScoreMessage = ScoreMessage .. "\n Coalition: " .. ScoreMessageCoalitionChangePenalties .. " " + end + + local ScoreMessageMission = "" + local ScoreMission = 0 + local ScoreTask = 0 + for MissionName, MissionData in pairs( PlayerData.Mission ) do + ScoreMission = ScoreMission + MissionData.ScoreMission + ScoreTask = ScoreTask + MissionData.ScoreTask + ScoreMessageMission = ScoreMessageMission .. "'" .. MissionName .. "'; " + end + PlayerScore = PlayerScore + ScoreMission + ScoreTask + + if ScoreMessageMission ~= "" then + ScoreMessage = ScoreMessage .. "\n Tasks: " .. ScoreTask .. " Mission: " .. ScoreMission .. " ( " .. ScoreMessageMission .. ") " + end + + PlayerMessage = PlayerMessage .. string.format( "Player '%s' Score = %d ( %d Score, -%d Penalties ):%s", PlayerName, PlayerScore - PlayerPenalty, PlayerScore, PlayerPenalty, ScoreMessage ) + end + end + MESSAGE:New( PlayerMessage, 30, "Player Scores" ):ToAll() + +end + + +function SCORING:SecondsToClock(sSeconds) + local nSeconds = sSeconds + if nSeconds == 0 then + --return nil; + return "00:00:00"; + else + nHours = string.format("%02.f", math.floor(nSeconds/3600)); + nMins = string.format("%02.f", math.floor(nSeconds/60 - (nHours*60))); + nSecs = string.format("%02.f", math.floor(nSeconds - nHours*3600 - nMins *60)); + return nHours..":"..nMins..":"..nSecs + end +end + +--- Opens a score CSV file to log the scores. +-- @param #SCORING self +-- @param #string ScoringCSV +-- @return #SCORING self +-- @usage +-- -- Open a new CSV file to log the scores of the game Gori Valley. Let the name of the CSV file begin with "Player Scores". +-- ScoringObject = SCORING:New( "Gori Valley" ) +-- ScoringObject:OpenCSV( "Player Scores" ) +function SCORING:OpenCSV( ScoringCSV ) + self:F( ScoringCSV ) + + if lfs and io and os then + if ScoringCSV then + self.ScoringCSV = ScoringCSV + local fdir = lfs.writedir() .. [[Logs\]] .. self.ScoringCSV .. " " .. os.date( "%Y-%m-%d %H-%M-%S" ) .. ".csv" + + self.CSVFile, self.err = io.open( fdir, "w+" ) + if not self.CSVFile then + error( "Error: Cannot open CSV file in " .. lfs.writedir() ) + end + + self.CSVFile:write( '"GameName","RunTime","Time","PlayerName","ScoreType","PlayerUnitCoaltion","PlayerUnitCategory","PlayerUnitType","PlayerUnitName","TargetUnitCoalition","TargetUnitCategory","TargetUnitType","TargetUnitName","Times","Score"\n' ) + + self.RunTime = os.date("%y-%m-%d_%H-%M-%S") + else + error( "A string containing the CSV file name must be given." ) + end + else + self:E( "The MissionScripting.lua file has not been changed to allow lfs, io and os modules to be used..." ) + end + return self +end + + +--- Registers a score for a player. +-- @param #SCORING self +-- @param #string PlayerName The name of the player. +-- @param #string ScoreType The type of the score. +-- @param #string ScoreTimes The amount of scores achieved. +-- @param #string ScoreAmount The score given. +-- @param #string PlayerUnitName The unit name of the player. +-- @param #string PlayerUnitCoalition The coalition of the player unit. +-- @param #string PlayerUnitCategory The category of the player unit. +-- @param #string PlayerUnitType The type of the player unit. +-- @param #string TargetUnitName The name of the target unit. +-- @param #string TargetUnitCoalition The coalition of the target unit. +-- @param #string TargetUnitCategory The category of the target unit. +-- @param #string TargetUnitType The type of the target unit. +-- @return #SCORING self +function SCORING:ScoreCSV( PlayerName, ScoreType, ScoreTimes, ScoreAmount, PlayerUnitName, PlayerUnitCoalition, PlayerUnitCategory, PlayerUnitType, TargetUnitName, TargetUnitCoalition, TargetUnitCategory, TargetUnitType ) + --write statistic information to file + local ScoreTime = self:SecondsToClock( timer.getTime() ) + PlayerName = PlayerName:gsub( '"', '_' ) + + if PlayerUnitName and PlayerUnitName ~= '' then + local PlayerUnit = Unit.getByName( PlayerUnitName ) + + if PlayerUnit then + if not PlayerUnitCategory then + --PlayerUnitCategory = SCORINGCategory[PlayerUnit:getCategory()] + PlayerUnitCategory = _SCORINGCategory[PlayerUnit:getDesc().category] + end + + if not PlayerUnitCoalition then + PlayerUnitCoalition = _SCORINGCoalition[PlayerUnit:getCoalition()] + end + + if not PlayerUnitType then + PlayerUnitType = PlayerUnit:getTypeName() + end + else + PlayerUnitName = '' + PlayerUnitCategory = '' + PlayerUnitCoalition = '' + PlayerUnitType = '' + end + else + PlayerUnitName = '' + PlayerUnitCategory = '' + PlayerUnitCoalition = '' + PlayerUnitType = '' + end + + if not TargetUnitCoalition then + TargetUnitCoalition = '' + end + + if not TargetUnitCategory then + TargetUnitCategory = '' + end + + if not TargetUnitType then + TargetUnitType = '' + end + + if not TargetUnitName then + TargetUnitName = '' + end + + if lfs and io and os then + self.CSVFile:write( + '"' .. self.GameName .. '"' .. ',' .. + '"' .. self.RunTime .. '"' .. ',' .. + '' .. ScoreTime .. '' .. ',' .. + '"' .. PlayerName .. '"' .. ',' .. + '"' .. ScoreType .. '"' .. ',' .. + '"' .. PlayerUnitCoalition .. '"' .. ',' .. + '"' .. PlayerUnitCategory .. '"' .. ',' .. + '"' .. PlayerUnitType .. '"' .. ',' .. + '"' .. PlayerUnitName .. '"' .. ',' .. + '"' .. TargetUnitCoalition .. '"' .. ',' .. + '"' .. TargetUnitCategory .. '"' .. ',' .. + '"' .. TargetUnitType .. '"' .. ',' .. + '"' .. TargetUnitName .. '"' .. ',' .. + '' .. ScoreTimes .. '' .. ',' .. + '' .. ScoreAmount + ) + + self.CSVFile:write( "\n" ) + end +end + + +function SCORING:CloseCSV() + if lfs and io and os then + self.CSVFile:close() + end +end + +--- CARGO Classes +-- @module CARGO + + + + + + + +--- Clients are those Groups defined within the Mission Editor that have the skillset defined as "Client" or "Player". +-- These clients are defined within the Mission Orchestration Framework (MOF) + +CARGOS = {} + + +CARGO_ZONE = { + ClassName="CARGO_ZONE", + CargoZoneName = '', + CargoHostUnitName = '', + SIGNAL = { + TYPE = { + SMOKE = { ID = 1, TEXT = "smoke" }, + FLARE = { ID = 2, TEXT = "flare" } + }, + COLOR = { + GREEN = { ID = 1, TRIGGERCOLOR = trigger.smokeColor.Green, TEXT = "A green" }, + RED = { ID = 2, TRIGGERCOLOR = trigger.smokeColor.Red, TEXT = "A red" }, + WHITE = { ID = 3, TRIGGERCOLOR = trigger.smokeColor.White, TEXT = "A white" }, + ORANGE = { ID = 4, TRIGGERCOLOR = trigger.smokeColor.Orange, TEXT = "An orange" }, + BLUE = { ID = 5, TRIGGERCOLOR = trigger.smokeColor.Blue, TEXT = "A blue" }, + YELLOW = { ID = 6, TRIGGERCOLOR = trigger.flareColor.Yellow, TEXT = "A yellow" } + } + } +} + +--- Creates a new zone where cargo can be collected or deployed. +-- The zone functionality is useful to smoke or indicate routes for cargo pickups or deployments. +-- Provide the zone name as declared in the mission file into the CargoZoneName in the :New method. +-- An optional parameter is the CargoHostName, which is a Group declared with Late Activation switched on in the mission file. +-- The CargoHostName is the "host" of the cargo zone: +-- +-- * It will smoke the zone position when a client is approaching the zone. +-- * Depending on the cargo type, it will assist in the delivery of the cargo by driving to and from the client. +-- +-- @param #CARGO_ZONE self +-- @param #string CargoZoneName The name of the zone as declared within the mission editor. +-- @param #string CargoHostName The name of the Group "hosting" the zone. The Group MUST NOT be a static, and must be a "mobile" unit. +function CARGO_ZONE:New( CargoZoneName, CargoHostName ) local self = BASE:Inherit( self, ZONE:New( CargoZoneName ) ) + self:F( { CargoZoneName, CargoHostName } ) + + self.CargoZoneName = CargoZoneName + self.SignalHeight = 2 + --self.CargoZone = trigger.misc.getZone( CargoZoneName ) + + + if CargoHostName then + self.CargoHostName = CargoHostName + end + + self:T( self.CargoZoneName ) + + return self +end + +function CARGO_ZONE:Spawn() + self:F( self.CargoHostName ) + + if self.CargoHostName then -- Only spawn a host in the zone when there is one given as a parameter in the New function. + if self.CargoHostSpawn then + local CargoHostGroup = self.CargoHostSpawn:GetGroupFromIndex() + if CargoHostGroup and CargoHostGroup:IsAlive() then + else + self.CargoHostSpawn:ReSpawn( 1 ) + end + else + self:T( "Initialize CargoHostSpawn" ) + self.CargoHostSpawn = SPAWN:New( self.CargoHostName ):Limit( 1, 1 ) + self.CargoHostSpawn:ReSpawn( 1 ) + end + end + + return self +end + +function CARGO_ZONE:GetHostUnit() + self:F( self ) + + if self.CargoHostName then + + -- A Host has been given, signal the host + local CargoHostGroup = self.CargoHostSpawn:GetGroupFromIndex() + local CargoHostUnit + if CargoHostGroup and CargoHostGroup:IsAlive() then + CargoHostUnit = CargoHostGroup:GetUnit(1) + else + CargoHostUnit = StaticObject.getByName( self.CargoHostName ) + end + + return CargoHostUnit + end + + return nil +end + +function CARGO_ZONE:ReportCargosToClient( Client, CargoType ) + self:F() + + local SignalUnit = self:GetHostUnit() + + if SignalUnit then + + local SignalUnitTypeName = SignalUnit:getTypeName() + + local HostMessage = "" + + local IsCargo = false + for CargoID, Cargo in pairs( CARGOS ) do + if Cargo.CargoType == Task.CargoType then + if Cargo:IsStatusNone() then + HostMessage = HostMessage .. " - " .. Cargo.CargoName .. " - " .. Cargo.CargoType .. " (" .. Cargo.Weight .. "kg)" .. "\n" + IsCargo = true + end + end + end + + if not IsCargo then + HostMessage = "No Cargo Available." + end + + Client:Message( HostMessage, 20, SignalUnitTypeName .. ": Reporting Cargo", 10 ) + end +end + + +function CARGO_ZONE:Signal() + self:F() + + local Signalled = false + + if self.SignalType then + + if self.CargoHostName then + + -- A Host has been given, signal the host + + local SignalUnit = self:GetHostUnit() + + if SignalUnit then + + self:T( 'Signalling Unit' ) + local SignalVehiclePos = SignalUnit:GetPointVec3() + SignalVehiclePos.y = SignalVehiclePos.y + 2 + + if self.SignalType.ID == CARGO_ZONE.SIGNAL.TYPE.SMOKE.ID then + + trigger.action.smoke( SignalVehiclePos, self.SignalColor.TRIGGERCOLOR ) + Signalled = true + + elseif self.SignalType.ID == CARGO_ZONE.SIGNAL.TYPE.FLARE.ID then + + trigger.action.signalFlare( SignalVehiclePos, self.SignalColor.TRIGGERCOLOR , 0 ) + Signalled = false + + end + end + + else + + local ZonePointVec3 = self:GetPointVec3( self.SignalHeight ) -- Get the zone position + the landheight + 2 meters + + if self.SignalType.ID == CARGO_ZONE.SIGNAL.TYPE.SMOKE.ID then + + trigger.action.smoke( ZonePointVec3, self.SignalColor.TRIGGERCOLOR ) + Signalled = true + + elseif self.SignalType.ID == CARGO_ZONE.SIGNAL.TYPE.FLARE.ID then + trigger.action.signalFlare( ZonePointVec3, self.SignalColor.TRIGGERCOLOR, 0 ) + Signalled = false + + end + end + end + + return Signalled + +end + +function CARGO_ZONE:WhiteSmoke( SignalHeight ) + self:F() + + self.SignalType = CARGO_ZONE.SIGNAL.TYPE.SMOKE + self.SignalColor = CARGO_ZONE.SIGNAL.COLOR.WHITE + + if SignalHeight then + self.SignalHeight = SignalHeight + end + + return self +end + +function CARGO_ZONE:BlueSmoke( SignalHeight ) + self:F() + + self.SignalType = CARGO_ZONE.SIGNAL.TYPE.SMOKE + self.SignalColor = CARGO_ZONE.SIGNAL.COLOR.BLUE + + if SignalHeight then + self.SignalHeight = SignalHeight + end + + return self +end + +function CARGO_ZONE:RedSmoke( SignalHeight ) + self:F() + + self.SignalType = CARGO_ZONE.SIGNAL.TYPE.SMOKE + self.SignalColor = CARGO_ZONE.SIGNAL.COLOR.RED + + if SignalHeight then + self.SignalHeight = SignalHeight + end + + return self +end + +function CARGO_ZONE:OrangeSmoke( SignalHeight ) + self:F() + + self.SignalType = CARGO_ZONE.SIGNAL.TYPE.SMOKE + self.SignalColor = CARGO_ZONE.SIGNAL.COLOR.ORANGE + + if SignalHeight then + self.SignalHeight = SignalHeight + end + + return self +end + +function CARGO_ZONE:GreenSmoke( SignalHeight ) + self:F() + + self.SignalType = CARGO_ZONE.SIGNAL.TYPE.SMOKE + self.SignalColor = CARGO_ZONE.SIGNAL.COLOR.GREEN + + if SignalHeight then + self.SignalHeight = SignalHeight + end + + return self +end + + +function CARGO_ZONE:WhiteFlare( SignalHeight ) + self:F() + + self.SignalType = CARGO_ZONE.SIGNAL.TYPE.FLARE + self.SignalColor = CARGO_ZONE.SIGNAL.COLOR.WHITE + + if SignalHeight then + self.SignalHeight = SignalHeight + end + + return self +end + +function CARGO_ZONE:RedFlare( SignalHeight ) + self:F() + + self.SignalType = CARGO_ZONE.SIGNAL.TYPE.FLARE + self.SignalColor = CARGO_ZONE.SIGNAL.COLOR.RED + + if SignalHeight then + self.SignalHeight = SignalHeight + end + + return self +end + +function CARGO_ZONE:GreenFlare( SignalHeight ) + self:F() + + self.SignalType = CARGO_ZONE.SIGNAL.TYPE.FLARE + self.SignalColor = CARGO_ZONE.SIGNAL.COLOR.GREEN + + if SignalHeight then + self.SignalHeight = SignalHeight + end + + return self +end + +function CARGO_ZONE:YellowFlare( SignalHeight ) + self:F() + + self.SignalType = CARGO_ZONE.SIGNAL.TYPE.FLARE + self.SignalColor = CARGO_ZONE.SIGNAL.COLOR.YELLOW + + if SignalHeight then + self.SignalHeight = SignalHeight + end + + return self +end + + +function CARGO_ZONE:GetCargoHostUnit() + self:F( self ) + + if self.CargoHostSpawn then + local CargoHostGroup = self.CargoHostSpawn:GetGroupFromIndex(1) + if CargoHostGroup and CargoHostGroup:IsAlive() then + local CargoHostUnit = CargoHostGroup:GetUnit(1) + if CargoHostUnit and CargoHostUnit:IsAlive() then + return CargoHostUnit + end + end + end + + return nil +end + +function CARGO_ZONE:GetCargoZoneName() + self:F() + + return self.CargoZoneName +end + +CARGO = { + ClassName = "CARGO", + STATUS = { + NONE = 0, + LOADED = 1, + UNLOADED = 2, + LOADING = 3 + }, + CargoClient = nil +} + +--- Add Cargo to the mission... Cargo functionality needs to be reworked a bit, so this is still under construction. I need to make a CARGO Class... +function CARGO:New( CargoType, CargoName, CargoWeight ) local self = BASE:Inherit( self, BASE:New() ) + self:F( { CargoType, CargoName, CargoWeight } ) + + + self.CargoType = CargoType + self.CargoName = CargoName + self.CargoWeight = CargoWeight + + self:StatusNone() + + return self +end + +function CARGO:Spawn( Client ) + self:F() + + return self + +end + +function CARGO:IsNear( Client, LandingZone ) + self:F() + + local Near = true + + return Near + +end + + +function CARGO:IsLoadingToClient() + self:F() + + if self:IsStatusLoading() then + return self.CargoClient + end + + return nil + +end + + +function CARGO:IsLoadedInClient() + self:F() + + if self:IsStatusLoaded() then + return self.CargoClient + end + + return nil + +end + + +function CARGO:UnLoad( Client, TargetZoneName ) + self:F() + + self:StatusUnLoaded() + + return self +end + +function CARGO:OnBoard( Client, LandingZone ) + self:F() + + local Valid = true + + self.CargoClient = Client + local ClientUnit = Client:GetClientGroupDCSUnit() + + return Valid +end + +function CARGO:OnBoarded( Client, LandingZone ) + self:F() + + local OnBoarded = true + + return OnBoarded +end + +function CARGO:Load( Client ) + self:F() + + self:StatusLoaded( Client ) + + return self +end + +function CARGO:IsLandingRequired() + self:F() + return true +end + +function CARGO:IsSlingLoad() + self:F() + return false +end + + +function CARGO:StatusNone() + self:F() + + self.CargoClient = nil + self.CargoStatus = CARGO.STATUS.NONE + + return self +end + +function CARGO:StatusLoading( Client ) + self:F() + + self.CargoClient = Client + self.CargoStatus = CARGO.STATUS.LOADING + self:T( "Cargo " .. self.CargoName .. " loading to Client: " .. self.CargoClient:GetClientGroupName() ) + + return self +end + +function CARGO:StatusLoaded( Client ) + self:F() + + self.CargoClient = Client + self.CargoStatus = CARGO.STATUS.LOADED + self:T( "Cargo " .. self.CargoName .. " loaded in Client: " .. self.CargoClient:GetClientGroupName() ) + + return self +end + +function CARGO:StatusUnLoaded() + self:F() + + self.CargoClient = nil + self.CargoStatus = CARGO.STATUS.UNLOADED + + return self +end + + +function CARGO:IsStatusNone() + self:F() + + return self.CargoStatus == CARGO.STATUS.NONE +end + +function CARGO:IsStatusLoading() + self:F() + + return self.CargoStatus == CARGO.STATUS.LOADING +end + +function CARGO:IsStatusLoaded() + self:F() + + return self.CargoStatus == CARGO.STATUS.LOADED +end + +function CARGO:IsStatusUnLoaded() + self:F() + + return self.CargoStatus == CARGO.STATUS.UNLOADED +end + + +CARGO_GROUP = { + ClassName = "CARGO_GROUP" +} + + +function CARGO_GROUP:New( CargoType, CargoName, CargoWeight, CargoGroupTemplate, CargoZone ) local self = BASE:Inherit( self, CARGO:New( CargoType, CargoName, CargoWeight ) ) + self:F( { CargoType, CargoName, CargoWeight, CargoGroupTemplate, CargoZone } ) + + self.CargoSpawn = SPAWN:NewWithAlias( CargoGroupTemplate, CargoName ) + self.CargoZone = CargoZone + + CARGOS[self.CargoName] = self + + return self + +end + +function CARGO_GROUP:Spawn( Client ) + self:F( { Client } ) + + local SpawnCargo = true + + if self:IsStatusNone() then + local CargoGroup = Group.getByName( self.CargoName ) + if CargoGroup and CargoGroup:isExist() then + SpawnCargo = false + end + + elseif self:IsStatusLoading() then + + local Client = self:IsLoadingToClient() + if Client and Client:GetDCSGroup() then + SpawnCargo = false + else + local CargoGroup = Group.getByName( self.CargoName ) + if CargoGroup and CargoGroup:isExist() then + SpawnCargo = false + end + end + + elseif self:IsStatusLoaded() then + + local ClientLoaded = self:IsLoadedInClient() + -- Now test if another Client is alive (not this one), and it has the CARGO, then this cargo does not need to be initialized and spawned. + if ClientLoaded and ClientLoaded ~= Client then + local ClientGroup = Client:GetDCSGroup() + if ClientLoaded:GetClientGroupDCSUnit() and ClientLoaded:GetClientGroupDCSUnit():isExist() then + SpawnCargo = false + else + self:StatusNone() + end + else + -- Same Client, but now in initialize, so set back the status to None. + self:StatusNone() + end + + elseif self:IsStatusUnLoaded() then + + SpawnCargo = false + + end + + if SpawnCargo then + if self.CargoZone:GetCargoHostUnit() then + --- ReSpawn the Cargo from the CargoHost + self.CargoGroupName = self.CargoSpawn:SpawnFromUnit( self.CargoZone:GetCargoHostUnit(), 60, 30, 1 ):GetName() + else + --- ReSpawn the Cargo in the CargoZone without a host ... + self:T( self.CargoZone ) + self.CargoGroupName = self.CargoSpawn:SpawnInZone( self.CargoZone, true, 1 ):GetName() + end + self:StatusNone() + end + + self:T( { self.CargoGroupName, CARGOS[self.CargoName].CargoGroupName } ) + + return self +end + +function CARGO_GROUP:IsNear( Client, LandingZone ) + self:F() + + local Near = false + + if self.CargoGroupName then + local CargoGroup = Group.getByName( self.CargoGroupName ) + if routines.IsPartOfGroupInRadius( CargoGroup, Client:GetPositionVec3(), 250 ) then + Near = true + end + end + + return Near + +end + + +function CARGO_GROUP:OnBoard( Client, LandingZone, OnBoardSide ) + self:F() + + local Valid = true + + local ClientUnit = Client:GetClientGroupDCSUnit() + + local CarrierPos = ClientUnit:getPoint() + local CarrierPosMove = ClientUnit:getPoint() + local CarrierPosOnBoard = ClientUnit:getPoint() + + local CargoGroup = Group.getByName( self.CargoGroupName ) + + local CargoUnit = CargoGroup:getUnit(1) + local CargoPos = CargoUnit:getPoint() + + self.CargoInAir = CargoUnit:inAir() + + self:T( self.CargoInAir ) + + -- Only move the group to the carrier when the cargo is not in the air + -- (eg. cargo can be on a oil derrick, moving the cargo on the oil derrick will drop the cargo on the sea). + if not self.CargoInAir then + + local Points = {} + + self:T( 'CargoPos x = ' .. CargoPos.x .. " z = " .. CargoPos.z ) + self:T( 'CarrierPosMove x = ' .. CarrierPosMove.x .. " z = " .. CarrierPosMove.z ) + + Points[#Points+1] = routines.ground.buildWP( CargoPos, "Cone", 10 ) + + self:T( 'Points[1] x = ' .. Points[1].x .. " y = " .. Points[1].y ) + + if OnBoardSide == nil then + OnBoardSide = CLIENT.ONBOARDSIDE.NONE + end + + if OnBoardSide == CLIENT.ONBOARDSIDE.LEFT then + + self:T( "TransportCargoOnBoard: Onboarding LEFT" ) + CarrierPosMove.z = CarrierPosMove.z - 25 + CarrierPosOnBoard.z = CarrierPosOnBoard.z - 5 + Points[#Points+1] = routines.ground.buildWP( CarrierPosMove, "Cone", 10 ) + Points[#Points+1] = routines.ground.buildWP( CarrierPosOnBoard, "Cone", 10 ) + + elseif OnBoardSide == CLIENT.ONBOARDSIDE.RIGHT then + + self:T( "TransportCargoOnBoard: Onboarding RIGHT" ) + CarrierPosMove.z = CarrierPosMove.z + 25 + CarrierPosOnBoard.z = CarrierPosOnBoard.z + 5 + Points[#Points+1] = routines.ground.buildWP( CarrierPosMove, "Cone", 10 ) + Points[#Points+1] = routines.ground.buildWP( CarrierPosOnBoard, "Cone", 10 ) + + elseif OnBoardSide == CLIENT.ONBOARDSIDE.BACK then + + self:T( "TransportCargoOnBoard: Onboarding BACK" ) + CarrierPosMove.x = CarrierPosMove.x - 25 + CarrierPosOnBoard.x = CarrierPosOnBoard.x - 5 + Points[#Points+1] = routines.ground.buildWP( CarrierPosMove, "Cone", 10 ) + Points[#Points+1] = routines.ground.buildWP( CarrierPosOnBoard, "Cone", 10 ) + + elseif OnBoardSide == CLIENT.ONBOARDSIDE.FRONT then + + self:T( "TransportCargoOnBoard: Onboarding FRONT" ) + CarrierPosMove.x = CarrierPosMove.x + 25 + CarrierPosOnBoard.x = CarrierPosOnBoard.x + 5 + Points[#Points+1] = routines.ground.buildWP( CarrierPosMove, "Cone", 10 ) + Points[#Points+1] = routines.ground.buildWP( CarrierPosOnBoard, "Cone", 10 ) + + elseif OnBoardSide == CLIENT.ONBOARDSIDE.NONE then + + self:T( "TransportCargoOnBoard: Onboarding CENTRAL" ) + Points[#Points+1] = routines.ground.buildWP( CarrierPos, "Cone", 10 ) + + end + self:T( "TransportCargoOnBoard: Routing " .. self.CargoGroupName ) + + --routines.scheduleFunction( routines.goRoute, { self.CargoGroupName, Points}, timer.getTime() + 4 ) + SCHEDULER:New( self, routines.goRoute, { self.CargoGroupName, Points}, 4 ) + end + + self:StatusLoading( Client ) + + return Valid + +end + + +function CARGO_GROUP:OnBoarded( Client, LandingZone ) + self:F() + + local OnBoarded = false + + local CargoGroup = Group.getByName( self.CargoGroupName ) + + if not self.CargoInAir then + if routines.IsPartOfGroupInRadius( CargoGroup, Client:GetPositionVec3(), 25 ) then + CargoGroup:destroy() + self:StatusLoaded( Client ) + OnBoarded = true + end + else + CargoGroup:destroy() + self:StatusLoaded( Client ) + OnBoarded = true + end + + return OnBoarded +end + + +function CARGO_GROUP:UnLoad( Client, TargetZoneName ) + self:F() + + self:T( 'self.CargoName = ' .. self.CargoName ) + + local CargoGroup = self.CargoSpawn:SpawnFromUnit( Client:GetClientGroupUnit(), 60, 30 ) + + self.CargoGroupName = CargoGroup:GetName() + self:T( 'self.CargoGroupName = ' .. self.CargoGroupName ) + + CargoGroup:TaskRouteToZone( ZONE:New( TargetZoneName ), true ) + + self:StatusUnLoaded() + + return self +end + + +CARGO_PACKAGE = { + ClassName = "CARGO_PACKAGE" +} + + +function CARGO_PACKAGE:New( CargoType, CargoName, CargoWeight, CargoClient ) local self = BASE:Inherit( self, CARGO:New( CargoType, CargoName, CargoWeight ) ) + self:F( { CargoType, CargoName, CargoWeight, CargoClient } ) + + self.CargoClient = CargoClient + + CARGOS[self.CargoName] = self + + return self + +end + + +function CARGO_PACKAGE:Spawn( Client ) + self:F( { self, Client } ) + + -- this needs to be checked thoroughly + + local CargoClientGroup = self.CargoClient:GetDCSGroup() + if not CargoClientGroup then + if not self.CargoClientSpawn then + self.CargoClientSpawn = SPAWN:New( self.CargoClient:GetClientGroupName() ):Limit( 1, 1 ) + end + self.CargoClientSpawn:ReSpawn( 1 ) + end + + local SpawnCargo = true + + if self:IsStatusNone() then + + elseif self:IsStatusLoading() or self:IsStatusLoaded() then + + local CargoClientLoaded = self:IsLoadedInClient() + if CargoClientLoaded and CargoClientLoaded:GetDCSGroup() then + SpawnCargo = false + end + + elseif self:IsStatusUnLoaded() then + + SpawnCargo = false + + else + + end + + if SpawnCargo then + self:StatusLoaded( self.CargoClient ) + end + + return self +end + + +function CARGO_PACKAGE:IsNear( Client, LandingZone ) + self:F() + + local Near = false + + if self.CargoClient and self.CargoClient:GetDCSGroup() then + self:T( self.CargoClient.ClientName ) + self:T( 'Client Exists.' ) + + if routines.IsUnitInRadius( self.CargoClient:GetClientGroupDCSUnit(), Client:GetPositionVec3(), 150 ) then + Near = true + end + end + + return Near + +end + + +function CARGO_PACKAGE:OnBoard( Client, LandingZone, OnBoardSide ) + self:F() + + local Valid = true + + local ClientUnit = Client:GetClientGroupDCSUnit() + + local CarrierPos = ClientUnit:getPoint() + local CarrierPosMove = ClientUnit:getPoint() + local CarrierPosOnBoard = ClientUnit:getPoint() + local CarrierPosMoveAway = ClientUnit:getPoint() + + local CargoHostGroup = self.CargoClient:GetDCSGroup() + local CargoHostName = self.CargoClient:GetDCSGroup():getName() + + local CargoHostUnits = CargoHostGroup:getUnits() + local CargoPos = CargoHostUnits[1]:getPoint() + + local Points = {} + + self:T( 'CargoPos x = ' .. CargoPos.x .. " z = " .. CargoPos.z ) + self:T( 'CarrierPosMove x = ' .. CarrierPosMove.x .. " z = " .. CarrierPosMove.z ) + + Points[#Points+1] = routines.ground.buildWP( CargoPos, "Cone", 10 ) + + self:T( 'Points[1] x = ' .. Points[1].x .. " y = " .. Points[1].y ) + + if OnBoardSide == nil then + OnBoardSide = CLIENT.ONBOARDSIDE.NONE + end + + if OnBoardSide == CLIENT.ONBOARDSIDE.LEFT then + + self:T( "TransportCargoOnBoard: Onboarding LEFT" ) + CarrierPosMove.z = CarrierPosMove.z - 25 + CarrierPosOnBoard.z = CarrierPosOnBoard.z - 5 + CarrierPosMoveAway.z = CarrierPosMoveAway.z - 20 + Points[#Points+1] = routines.ground.buildWP( CarrierPosMove, "Cone", 10 ) + Points[#Points+1] = routines.ground.buildWP( CarrierPosOnBoard, "Cone", 10 ) + Points[#Points+1] = routines.ground.buildWP( CarrierPosMoveAway, "Cone", 10 ) + + elseif OnBoardSide == CLIENT.ONBOARDSIDE.RIGHT then + + self:T( "TransportCargoOnBoard: Onboarding RIGHT" ) + CarrierPosMove.z = CarrierPosMove.z + 25 + CarrierPosOnBoard.z = CarrierPosOnBoard.z + 5 + CarrierPosMoveAway.z = CarrierPosMoveAway.z + 20 + Points[#Points+1] = routines.ground.buildWP( CarrierPosMove, "Cone", 10 ) + Points[#Points+1] = routines.ground.buildWP( CarrierPosOnBoard, "Cone", 10 ) + Points[#Points+1] = routines.ground.buildWP( CarrierPosMoveAway, "Cone", 10 ) + + elseif OnBoardSide == CLIENT.ONBOARDSIDE.BACK then + + self:T( "TransportCargoOnBoard: Onboarding BACK" ) + CarrierPosMove.x = CarrierPosMove.x - 25 + CarrierPosOnBoard.x = CarrierPosOnBoard.x - 5 + CarrierPosMoveAway.x = CarrierPosMoveAway.x - 20 + Points[#Points+1] = routines.ground.buildWP( CarrierPosMove, "Cone", 10 ) + Points[#Points+1] = routines.ground.buildWP( CarrierPosOnBoard, "Cone", 10 ) + Points[#Points+1] = routines.ground.buildWP( CarrierPosMoveAway, "Cone", 10 ) + + elseif OnBoardSide == CLIENT.ONBOARDSIDE.FRONT then + + self:T( "TransportCargoOnBoard: Onboarding FRONT" ) + CarrierPosMove.x = CarrierPosMove.x + 25 + CarrierPosOnBoard.x = CarrierPosOnBoard.x + 5 + CarrierPosMoveAway.x = CarrierPosMoveAway.x + 20 + Points[#Points+1] = routines.ground.buildWP( CarrierPosMove, "Cone", 10 ) + Points[#Points+1] = routines.ground.buildWP( CarrierPosOnBoard, "Cone", 10 ) + Points[#Points+1] = routines.ground.buildWP( CarrierPosMoveAway, "Cone", 10 ) + + elseif OnBoardSide == CLIENT.ONBOARDSIDE.NONE then + + self:T( "TransportCargoOnBoard: Onboarding FRONT" ) + CarrierPosMove.x = CarrierPosMove.x + 25 + CarrierPosOnBoard.x = CarrierPosOnBoard.x + 5 + CarrierPosMoveAway.x = CarrierPosMoveAway.x + 20 + Points[#Points+1] = routines.ground.buildWP( CarrierPosMove, "Cone", 10 ) + Points[#Points+1] = routines.ground.buildWP( CarrierPosOnBoard, "Cone", 10 ) + Points[#Points+1] = routines.ground.buildWP( CarrierPosMoveAway, "Cone", 10 ) + + end + self:T( "Routing " .. CargoHostName ) + + SCHEDULER:New( self, routines.goRoute, { CargoHostName, Points }, 4 ) + + return Valid + +end + + +function CARGO_PACKAGE:OnBoarded( Client, LandingZone ) + self:F() + + local OnBoarded = false + + if self.CargoClient and self.CargoClient:GetDCSGroup() then + if routines.IsUnitInRadius( self.CargoClient:GetClientGroupDCSUnit(), self.CargoClient:GetPositionVec3(), 10 ) then + + -- Switch Cargo from self.CargoClient to Client ... Each cargo can have only one client. So assigning the new client for the cargo is enough. + self:StatusLoaded( Client ) + + -- All done, onboarded the Cargo to the new Client. + OnBoarded = true + end + end + + return OnBoarded +end + + +function CARGO_PACKAGE:UnLoad( Client, TargetZoneName ) + self:F() + + self:T( 'self.CargoName = ' .. self.CargoName ) + --self:T( 'self.CargoHostName = ' .. self.CargoHostName ) + + --self.CargoSpawn:FromCarrier( Client:GetDCSGroup(), TargetZoneName, self.CargoHostName ) + self:StatusUnLoaded() + + return Cargo +end + + +CARGO_SLINGLOAD = { + ClassName = "CARGO_SLINGLOAD" +} + + +function CARGO_SLINGLOAD:New( CargoType, CargoName, CargoWeight, CargoZone, CargoHostName, CargoCountryID ) + local self = BASE:Inherit( self, CARGO:New( CargoType, CargoName, CargoWeight ) ) + self:F( { CargoType, CargoName, CargoWeight, CargoZone, CargoHostName, CargoCountryID } ) + + self.CargoHostName = CargoHostName + + -- Cargo will be initialized around the CargoZone position. + self.CargoZone = CargoZone + + self.CargoCount = 0 + self.CargoStaticName = string.format( "%s#%03d", self.CargoName, self.CargoCount ) + + -- The country ID needs to be correctly set. + self.CargoCountryID = CargoCountryID + + CARGOS[self.CargoName] = self + + return self + +end + + +function CARGO_SLINGLOAD:IsLandingRequired() + self:F() + return false +end + + +function CARGO_SLINGLOAD:IsSlingLoad() + self:F() + return true +end + + +function CARGO_SLINGLOAD:Spawn( Client ) + self:F( { self, Client } ) + + local Zone = trigger.misc.getZone( self.CargoZone ) + + local ZonePos = {} + ZonePos.x = Zone.point.x + math.random( Zone.radius / 2 * -1, Zone.radius / 2 ) + ZonePos.y = Zone.point.z + math.random( Zone.radius / 2 * -1, Zone.radius / 2 ) + + self:T( "Cargo Location = " .. ZonePos.x .. ", " .. ZonePos.y ) + + --[[ + -- This does not work in 1.5.2. + CargoStatic = StaticObject.getByName( self.CargoName ) + if CargoStatic then + CargoStatic:destroy() + end + --]] + + CargoStatic = StaticObject.getByName( self.CargoStaticName ) + + if CargoStatic and CargoStatic:isExist() then + CargoStatic:destroy() + end + + -- I need to make every time a new cargo due to bugs in 1.5.2. + + self.CargoCount = self.CargoCount + 1 + self.CargoStaticName = string.format( "%s#%03d", self.CargoName, self.CargoCount ) + + local CargoTemplate = { + ["category"] = "Cargo", + ["shape_name"] = "ab-212_cargo", + ["type"] = "Cargo1", + ["x"] = ZonePos.x, + ["y"] = ZonePos.y, + ["mass"] = self.CargoWeight, + ["name"] = self.CargoStaticName, + ["canCargo"] = true, + ["heading"] = 0, + } + + coalition.addStaticObject( self.CargoCountryID, CargoTemplate ) + +-- end + + return self +end + + +function CARGO_SLINGLOAD:IsNear( Client, LandingZone ) + self:F() + + local Near = false + + return Near +end + + +function CARGO_SLINGLOAD:IsInLandingZone( Client, LandingZone ) + self:F() + + local Near = false + + local CargoStaticUnit = StaticObject.getByName( self.CargoName ) + if CargoStaticUnit then + if routines.IsStaticInZones( CargoStaticUnit, LandingZone ) then + Near = true + end + end + + return Near +end + + +function CARGO_SLINGLOAD:OnBoard( Client, LandingZone, OnBoardSide ) + self:F() + + local Valid = true + + + return Valid +end + + +function CARGO_SLINGLOAD:OnBoarded( Client, LandingZone ) + self:F() + + local OnBoarded = false + + local CargoStaticUnit = StaticObject.getByName( self.CargoName ) + if CargoStaticUnit then + if not routines.IsStaticInZones( CargoStaticUnit, LandingZone ) then + OnBoarded = true + end + end + + return OnBoarded +end + + +function CARGO_SLINGLOAD:UnLoad( Client, TargetZoneName ) + self:F() + + self:T( 'self.CargoName = ' .. self.CargoName ) + self:T( 'self.CargoGroupName = ' .. self.CargoGroupName ) + + self:StatusUnLoaded() + + return Cargo +end +--- This module contains the MESSAGE class. +-- +-- 1) @{Message#MESSAGE} class, extends @{Base#BASE} +-- ================================================= +-- Message System to display Messages to Clients, Coalitions or All. +-- Messages are shown on the display panel for an amount of seconds, and will then disappear. +-- Messages can contain a category which is indicating the category of the message. +-- +-- 1.1) MESSAGE construction methods +-- --------------------------------- +-- Messages are created with @{Message#MESSAGE.New}. Note that when the MESSAGE object is created, no message is sent yet. +-- To send messages, you need to use the To functions. +-- +-- 1.2) Send messages with MESSAGE To methods +-- ------------------------------------------ +-- Messages are sent to: +-- +-- * Clients with @{Message#MESSAGE.ToClient}. +-- * Coalitions with @{Message#MESSAGE.ToCoalition}. +-- * All Players with @{Message#MESSAGE.ToAll}. +-- +-- @module Message +-- @author FlightControl + +--- The MESSAGE class +-- @type MESSAGE +-- @extends Base#BASE +MESSAGE = { + ClassName = "MESSAGE", + MessageCategory = 0, + MessageID = 0, +} + + +--- Creates a new MESSAGE object. Note that these MESSAGE objects are not yet displayed on the display panel. You must use the functions @{ToClient} or @{ToCoalition} or @{ToAll} to send these Messages to the respective recipients. +-- @param self +-- @param #string MessageText is the text of the Message. +-- @param #number MessageDuration is a number in seconds of how long the MESSAGE should be shown on the display panel. +-- @param #string MessageCategory (optional) is a string expressing the "category" of the Message. The category will be shown as the first text in the message followed by a ": ". +-- @return #MESSAGE +-- @usage +-- -- Create a series of new Messages. +-- -- MessageAll is meant to be sent to all players, for 25 seconds, and is classified as "Score". +-- -- MessageRED is meant to be sent to the RED players only, for 10 seconds, and is classified as "End of Mission", with ID "Win". +-- -- MessageClient1 is meant to be sent to a Client, for 25 seconds, and is classified as "Score", with ID "Score". +-- -- MessageClient1 is meant to be sent to a Client, for 25 seconds, and is classified as "Score", with ID "Score". +-- MessageAll = MESSAGE:New( "To all Players: BLUE has won! Each player of BLUE wins 50 points!", 25, "End of Mission" ) +-- MessageRED = MESSAGE:New( "To the RED Players: You receive a penalty because you've killed one of your own units", 25, "Penalty" ) +-- MessageClient1 = MESSAGE:New( "Congratulations, you've just hit a target", 25, "Score" ) +-- MessageClient2 = MESSAGE:New( "Congratulations, you've just killed a target", 25, "Score") +function MESSAGE:New( MessageText, MessageDuration, MessageCategory ) + local self = BASE:Inherit( self, BASE:New() ) + self:F( { MessageText, MessageDuration, MessageCategory } ) + + -- When no MessageCategory is given, we don't show it as a title... + if MessageCategory and MessageCategory ~= "" then + self.MessageCategory = MessageCategory .. ": " + else + self.MessageCategory = "" + end + + self.MessageDuration = MessageDuration + self.MessageTime = timer.getTime() + self.MessageText = MessageText + + self.MessageSent = false + self.MessageGroup = false + self.MessageCoalition = false + + return self +end + +--- Sends a MESSAGE to a Client Group. Note that the Group needs to be defined within the ME with the skillset "Client" or "Player". +-- @param #MESSAGE self +-- @param Client#CLIENT Client is the Group of the Client. +-- @return #MESSAGE +-- @usage +-- -- Send the 2 messages created with the @{New} method to the Client Group. +-- -- Note that the Message of MessageClient2 is overwriting the Message of MessageClient1. +-- ClientGroup = Group.getByName( "ClientGroup" ) +-- +-- MessageClient1 = MESSAGE:New( "Congratulations, you've just hit a target", "Score", 25, "Score" ):ToClient( ClientGroup ) +-- MessageClient2 = MESSAGE:New( "Congratulations, you've just killed a target", "Score", 25, "Score" ):ToClient( ClientGroup ) +-- or +-- MESSAGE:New( "Congratulations, you've just hit a target", "Score", 25, "Score" ):ToClient( ClientGroup ) +-- MESSAGE:New( "Congratulations, you've just killed a target", "Score", 25, "Score" ):ToClient( ClientGroup ) +-- or +-- MessageClient1 = MESSAGE:New( "Congratulations, you've just hit a target", "Score", 25, "Score" ) +-- MessageClient2 = MESSAGE:New( "Congratulations, you've just killed a target", "Score", 25, "Score" ) +-- MessageClient1:ToClient( ClientGroup ) +-- MessageClient2:ToClient( ClientGroup ) +function MESSAGE:ToClient( Client ) + self:F( Client ) + + if Client and Client:GetClientGroupID() then + + local ClientGroupID = Client:GetClientGroupID() + self:T( self.MessageCategory .. self.MessageText:gsub("\n$",""):gsub("\n$","") .. " / " .. self.MessageDuration ) + trigger.action.outTextForGroup( ClientGroupID, self.MessageCategory .. self.MessageText:gsub("\n$",""):gsub("\n$",""), self.MessageDuration ) + end + + return self +end + +--- Sends a MESSAGE to the Blue coalition. +-- @param #MESSAGE self +-- @return #MESSAGE +-- @usage +-- -- Send a message created with the @{New} method to the BLUE coalition. +-- MessageBLUE = MESSAGE:New( "To the BLUE Players: You receive a penalty because you've killed one of your own units", "Penalty", 25, "Score" ):ToBlue() +-- or +-- MESSAGE:New( "To the BLUE Players: You receive a penalty because you've killed one of your own units", "Penalty", 25, "Score" ):ToBlue() +-- or +-- MessageBLUE = MESSAGE:New( "To the BLUE Players: You receive a penalty because you've killed one of your own units", "Penalty", 25, "Score" ) +-- MessageBLUE:ToBlue() +function MESSAGE:ToBlue() + self:F() + + self:ToCoalition( coalition.side.BLUE ) + + return self +end + +--- Sends a MESSAGE to the Red Coalition. +-- @param #MESSAGE self +-- @return #MESSAGE +-- @usage +-- -- Send a message created with the @{New} method to the RED coalition. +-- MessageRED = MESSAGE:New( "To the RED Players: You receive a penalty because you've killed one of your own units", "Penalty", 25, "Score" ):ToRed() +-- or +-- MESSAGE:New( "To the RED Players: You receive a penalty because you've killed one of your own units", "Penalty", 25, "Score" ):ToRed() +-- or +-- MessageRED = MESSAGE:New( "To the RED Players: You receive a penalty because you've killed one of your own units", "Penalty", 25, "Score" ) +-- MessageRED:ToRed() +function MESSAGE:ToRed( ) + self:F() + + self:ToCoalition( coalition.side.RED ) + + return self +end + +--- Sends a MESSAGE to a Coalition. +-- @param #MESSAGE self +-- @param CoalitionSide needs to be filled out by the defined structure of the standard scripting engine @{coalition.side}. +-- @return #MESSAGE +-- @usage +-- -- Send a message created with the @{New} method to the RED coalition. +-- MessageRED = MESSAGE:New( "To the RED Players: You receive a penalty because you've killed one of your own units", "Penalty", 25, "Score" ):ToCoalition( coalition.side.RED ) +-- or +-- MESSAGE:New( "To the RED Players: You receive a penalty because you've killed one of your own units", "Penalty", 25, "Score" ):ToCoalition( coalition.side.RED ) +-- or +-- MessageRED = MESSAGE:New( "To the RED Players: You receive a penalty because you've killed one of your own units", "Penalty", 25, "Score" ) +-- MessageRED:ToCoalition( coalition.side.RED ) +function MESSAGE:ToCoalition( CoalitionSide ) + self:F( CoalitionSide ) + + if CoalitionSide then + self:T( self.MessageCategory .. self.MessageText:gsub("\n$",""):gsub("\n$","") .. " / " .. self.MessageDuration ) + trigger.action.outTextForCoalition( CoalitionSide, self.MessageCategory .. self.MessageText:gsub("\n$",""):gsub("\n$",""), self.MessageDuration ) + end + + return self +end + +--- Sends a MESSAGE to all players. +-- @param #MESSAGE self +-- @return #MESSAGE +-- @usage +-- -- Send a message created to all players. +-- MessageAll = MESSAGE:New( "To all Players: BLUE has won! Each player of BLUE wins 50 points!", "End of Mission", 25, "Win" ):ToAll() +-- or +-- MESSAGE:New( "To all Players: BLUE has won! Each player of BLUE wins 50 points!", "End of Mission", 25, "Win" ):ToAll() +-- or +-- MessageAll = MESSAGE:New( "To all Players: BLUE has won! Each player of BLUE wins 50 points!", "End of Mission", 25, "Win" ) +-- MessageAll:ToAll() +function MESSAGE:ToAll() + self:F() + + self:ToCoalition( coalition.side.RED ) + self:ToCoalition( coalition.side.BLUE ) + + return self +end + + + +----- The MESSAGEQUEUE class +---- @type MESSAGEQUEUE +--MESSAGEQUEUE = { +-- ClientGroups = {}, +-- CoalitionSides = {} +--} +-- +--function MESSAGEQUEUE:New( RefreshInterval ) +-- local self = BASE:Inherit( self, BASE:New() ) +-- self:F( { RefreshInterval } ) +-- +-- self.RefreshInterval = RefreshInterval +-- +-- --self.DisplayFunction = routines.scheduleFunction( self._DisplayMessages, { self }, 0, RefreshInterval ) +-- self.DisplayFunction = SCHEDULER:New( self, self._DisplayMessages, {}, 0, RefreshInterval ) +-- +-- return self +--end +-- +----- This function is called automatically by the MESSAGEQUEUE scheduler. +--function MESSAGEQUEUE:_DisplayMessages() +-- +-- -- First we display all messages that a coalition needs to receive... Also those who are not in a client (CA module clients...). +-- for CoalitionSideID, CoalitionSideData in pairs( self.CoalitionSides ) do +-- for MessageID, MessageData in pairs( CoalitionSideData.Messages ) do +-- if MessageData.MessageSent == false then +-- --trigger.action.outTextForCoalition( CoalitionSideID, MessageData.MessageCategory .. '\n' .. MessageData.MessageText:gsub("\n$",""):gsub("\n$",""), MessageData.MessageDuration ) +-- MessageData.MessageSent = true +-- end +-- local MessageTimeLeft = ( MessageData.MessageTime + MessageData.MessageDuration ) - timer.getTime() +-- if MessageTimeLeft <= 0 then +-- MessageData = nil +-- end +-- end +-- end +-- +-- -- Then we send the messages for each individual client, but also to be included are those Coalition messages for the Clients who belong to a coalition. +-- -- Because the Client messages will overwrite the Coalition messages (for that Client). +-- for ClientGroupName, ClientGroupData in pairs( self.ClientGroups ) do +-- for MessageID, MessageData in pairs( ClientGroupData.Messages ) do +-- if MessageData.MessageGroup == false then +-- trigger.action.outTextForGroup( Group.getByName(ClientGroupName):getID(), MessageData.MessageCategory .. '\n' .. MessageData.MessageText:gsub("\n$",""):gsub("\n$",""), MessageData.MessageDuration ) +-- MessageData.MessageGroup = true +-- end +-- local MessageTimeLeft = ( MessageData.MessageTime + MessageData.MessageDuration ) - timer.getTime() +-- if MessageTimeLeft <= 0 then +-- MessageData = nil +-- end +-- end +-- +-- -- Now check if the Client also has messages that belong to the Coalition of the Client... +-- for CoalitionSideID, CoalitionSideData in pairs( self.CoalitionSides ) do +-- for MessageID, MessageData in pairs( CoalitionSideData.Messages ) do +-- local CoalitionGroup = Group.getByName( ClientGroupName ) +-- if CoalitionGroup and CoalitionGroup:getCoalition() == CoalitionSideID then +-- if MessageData.MessageCoalition == false then +-- trigger.action.outTextForGroup( Group.getByName(ClientGroupName):getID(), MessageData.MessageCategory .. '\n' .. MessageData.MessageText:gsub("\n$",""):gsub("\n$",""), MessageData.MessageDuration ) +-- MessageData.MessageCoalition = true +-- end +-- end +-- local MessageTimeLeft = ( MessageData.MessageTime + MessageData.MessageDuration ) - timer.getTime() +-- if MessageTimeLeft <= 0 then +-- MessageData = nil +-- end +-- end +-- end +-- end +-- +-- return true +--end +-- +----- The _MessageQueue object is created when the MESSAGE class module is loaded. +----_MessageQueue = MESSAGEQUEUE:New( 0.5 ) +-- +--- Stages within a @{TASK} within a @{MISSION}. All of the STAGE functionality is considered internally administered and not to be used by any Mission designer. +-- @module STAGE +-- @author Flightcontrol + + + + + + + +--- The STAGE class +-- @type +STAGE = { + ClassName = "STAGE", + MSG = { ID = "None", TIME = 10 }, + FREQUENCY = { NONE = 0, ONCE = 1, REPEAT = -1 }, + + Name = "NoStage", + StageType = '', + WaitTime = 1, + Frequency = 1, + MessageCount = 0, + MessageInterval = 15, + MessageShown = {}, + MessageShow = false, + MessageFlash = false +} + + +function STAGE:New() + local self = BASE:Inherit( self, BASE:New() ) + self:F() + return self +end + +function STAGE:Execute( Mission, Client, Task ) + + local Valid = true + + return Valid +end + +function STAGE:Executing( Mission, Client, Task ) + +end + +function STAGE:Validate( Mission, Client, Task ) + local Valid = true + + return Valid +end + + +STAGEBRIEF = { + ClassName = "BRIEF", + MSG = { ID = "Brief", TIME = 1 }, + Name = "Brief", + StageBriefingTime = 0, + StageBriefingDuration = 1 +} + +function STAGEBRIEF:New() + local self = BASE:Inherit( self, STAGE:New() ) + self:F() + self.StageType = 'CLIENT' + return self +end + +--- Execute +-- @param #STAGEBRIEF self +-- @param Mission#MISSION Mission +-- @param Client#CLIENT Client +-- @param Task#TASK Task +-- @return #boolean +function STAGEBRIEF:Execute( Mission, Client, Task ) + local Valid = BASE:Inherited(self):Execute( Mission, Client, Task ) + self:F() + Client:ShowMissionBriefing( Mission.MissionBriefing ) + self.StageBriefingTime = timer.getTime() + return Valid +end + +function STAGEBRIEF:Validate( Mission, Client, Task ) + local Valid = STAGE:Validate( Mission, Client, Task ) + self:T() + + if timer.getTime() - self.StageBriefingTime <= self.StageBriefingDuration then + return 0 + else + self.StageBriefingTime = timer.getTime() + return 1 + end + +end + + +STAGESTART = { + ClassName = "START", + MSG = { ID = "Start", TIME = 1 }, + Name = "Start", + StageStartTime = 0, + StageStartDuration = 1 +} + +function STAGESTART:New() + local self = BASE:Inherit( self, STAGE:New() ) + self:F() + self.StageType = 'CLIENT' + return self +end + +function STAGESTART:Execute( Mission, Client, Task ) + self:F() + local Valid = BASE:Inherited(self):Execute( Mission, Client, Task ) + if Task.TaskBriefing then + Client:Message( Task.TaskBriefing, 30, "Command" ) + else + Client:Message( 'Task ' .. Task.TaskNumber .. '.', 30, "Command" ) + end + self.StageStartTime = timer.getTime() + return Valid +end + +function STAGESTART:Validate( Mission, Client, Task ) + self:F() + local Valid = STAGE:Validate( Mission, Client, Task ) + + if timer.getTime() - self.StageStartTime <= self.StageStartDuration then + return 0 + else + self.StageStartTime = timer.getTime() + return 1 + end + + return 1 + +end + +STAGE_CARGO_LOAD = { + ClassName = "STAGE_CARGO_LOAD" +} + +function STAGE_CARGO_LOAD:New() + local self = BASE:Inherit( self, STAGE:New() ) + self:F() + self.StageType = 'CLIENT' + return self +end + +function STAGE_CARGO_LOAD:Execute( Mission, Client, Task ) + self:F() + local Valid = BASE:Inherited(self):Execute( Mission, Client, Task ) + + for LoadCargoID, LoadCargo in pairs( Task.Cargos.LoadCargos ) do + LoadCargo:Load( Client ) + end + + if Mission.MissionReportFlash and Client:IsTransport() then + Client:ShowCargo() + end + + return Valid +end + +function STAGE_CARGO_LOAD:Validate( Mission, Client, Task ) + self:F() + local Valid = STAGE:Validate( Mission, Client, Task ) + + return 1 +end + + +STAGE_CARGO_INIT = { + ClassName = "STAGE_CARGO_INIT" +} + +function STAGE_CARGO_INIT:New() + local self = BASE:Inherit( self, STAGE:New() ) + self:F() + self.StageType = 'CLIENT' + return self +end + +function STAGE_CARGO_INIT:Execute( Mission, Client, Task ) + self:F() + local Valid = BASE:Inherited(self):Execute( Mission, Client, Task ) + + for InitLandingZoneID, InitLandingZone in pairs( Task.LandingZones.LandingZones ) do + self:T( InitLandingZone ) + InitLandingZone:Spawn() + end + + + self:T( Task.Cargos.InitCargos ) + for InitCargoID, InitCargoData in pairs( Task.Cargos.InitCargos ) do + self:T( { InitCargoData } ) + InitCargoData:Spawn( Client ) + end + + return Valid +end + + +function STAGE_CARGO_INIT:Validate( Mission, Client, Task ) + self:F() + local Valid = STAGE:Validate( Mission, Client, Task ) + + return 1 +end + + + +STAGEROUTE = { + ClassName = "STAGEROUTE", + MSG = { ID = "Route", TIME = 5 }, + Frequency = STAGE.FREQUENCY.REPEAT, + Name = "Route" +} + +function STAGEROUTE:New() + local self = BASE:Inherit( self, STAGE:New() ) + self:F() + self.StageType = 'CLIENT' + self.MessageSwitch = true + return self +end + + +--- Execute the routing. +-- @param #STAGEROUTE self +-- @param Mission#MISSION Mission +-- @param Client#CLIENT Client +-- @param Task#TASK Task +function STAGEROUTE:Execute( Mission, Client, Task ) + self:F() + local Valid = BASE:Inherited(self):Execute( Mission, Client, Task ) + + local RouteMessage = "Fly to: " + self:T( Task.LandingZones ) + for LandingZoneID, LandingZoneName in pairs( Task.LandingZones.LandingZoneNames ) do + RouteMessage = RouteMessage .. "\n " .. LandingZoneName .. ' at ' .. routines.getBRStringZone( { zone = LandingZoneName, ref = Client:GetClientGroupDCSUnit():getPoint(), true, true } ) .. ' km.' + end + + if Client:IsMultiSeated() then + Client:Message( RouteMessage, self.MSG.TIME, "Co-Pilot", 20, "Route" ) + else + Client:Message( RouteMessage, self.MSG.TIME, "Command", 20, "Route" ) + end + + + if Mission.MissionReportFlash and Client:IsTransport() then + Client:ShowCargo() + end + + return Valid +end + +function STAGEROUTE:Validate( Mission, Client, Task ) + self:F() + local Valid = STAGE:Validate( Mission, Client, Task ) + + -- check if the Client is in the landing zone + self:T( Task.LandingZones.LandingZoneNames ) + Task.CurrentLandingZoneName = routines.IsUnitNearZonesRadius( Client:GetClientGroupDCSUnit(), Task.LandingZones.LandingZoneNames, 500 ) + + if Task.CurrentLandingZoneName then + + Task.CurrentLandingZone = Task.LandingZones.LandingZones[Task.CurrentLandingZoneName].CargoZone + Task.CurrentCargoZone = Task.LandingZones.LandingZones[Task.CurrentLandingZoneName] + + if Task.CurrentCargoZone then + if not Task.Signalled then + Task.Signalled = Task.CurrentCargoZone:Signal() + end + end + + self:T( 1 ) + return 1 + end + + self:T( 0 ) + return 0 +end + + + +STAGELANDING = { + ClassName = "STAGELANDING", + MSG = { ID = "Landing", TIME = 10 }, + Name = "Landing", + Signalled = false +} + +function STAGELANDING:New() + local self = BASE:Inherit( self, STAGE:New() ) + self:F() + self.StageType = 'CLIENT' + return self +end + +--- Execute the landing coordination. +-- @param #STAGELANDING self +-- @param Mission#MISSION Mission +-- @param Client#CLIENT Client +-- @param Task#TASK Task +function STAGELANDING:Execute( Mission, Client, Task ) + self:F() + + if Client:IsMultiSeated() then + Client:Message( "We have arrived at the landing zone.", self.MSG.TIME, "Co-Pilot" ) + else + Client:Message( "You have arrived at the landing zone.", self.MSG.TIME, "Command" ) + end + + Task.HostUnit = Task.CurrentCargoZone:GetHostUnit() + + self:T( { Task.HostUnit } ) + + if Task.HostUnit then + + Task.HostUnitName = Task.HostUnit:GetPrefix() + Task.HostUnitTypeName = Task.HostUnit:GetTypeName() + + local HostMessage = "" + Task.CargoNames = "" + + local IsFirst = true + + for CargoID, Cargo in pairs( CARGOS ) do + if Cargo.CargoType == Task.CargoType then + + if Cargo:IsLandingRequired() then + self:T( "Task for cargo " .. Cargo.CargoType .. " requires landing.") + Task.IsLandingRequired = true + end + + if Cargo:IsSlingLoad() then + self:T( "Task for cargo " .. Cargo.CargoType .. " is a slingload.") + Task.IsSlingLoad = true + end + + if IsFirst then + IsFirst = false + Task.CargoNames = Task.CargoNames .. Cargo.CargoName .. "( " .. Cargo.CargoWeight .. " )" + else + Task.CargoNames = Task.CargoNames .. "; " .. Cargo.CargoName .. "( " .. Cargo.CargoWeight .. " )" + end + end + end + + if Task.IsLandingRequired then + HostMessage = "Land the helicopter to " .. Task.TEXT[1] .. " " .. Task.CargoNames .. "." + else + HostMessage = "Use the Radio menu and F6 to find the cargo, then fly or land near the cargo and " .. Task.TEXT[1] .. " " .. Task.CargoNames .. "." + end + + local Host = "Command" + if Task.HostUnitName then + Host = Task.HostUnitName .. " (" .. Task.HostUnitTypeName .. ")" + else + if Client:IsMultiSeated() then + Host = "Co-Pilot" + end + end + + Client:Message( HostMessage, self.MSG.TIME, Host ) + + end +end + +function STAGELANDING:Validate( Mission, Client, Task ) + self:F() + + Task.CurrentLandingZoneName = routines.IsUnitNearZonesRadius( Client:GetClientGroupDCSUnit(), Task.LandingZones.LandingZoneNames, 500 ) + if Task.CurrentLandingZoneName then + + -- Client is in de landing zone. + self:T( Task.CurrentLandingZoneName ) + + Task.CurrentLandingZone = Task.LandingZones.LandingZones[Task.CurrentLandingZoneName].CargoZone + Task.CurrentCargoZone = Task.LandingZones.LandingZones[Task.CurrentLandingZoneName] + + if Task.CurrentCargoZone then + if not Task.Signalled then + Task.Signalled = Task.CurrentCargoZone:Signal() + end + end + else + if Task.CurrentLandingZone then + Task.CurrentLandingZone = nil + end + if Task.CurrentCargoZone then + Task.CurrentCargoZone = nil + end + Task.Signalled = false + Task:RemoveCargoMenus( Client ) + self:T( -1 ) + return -1 + end + + + local DCSUnitVelocityVec3 = Client:GetClientGroupDCSUnit():getVelocity() + local DCSUnitVelocity = ( DCSUnitVelocityVec3.x ^2 + DCSUnitVelocityVec3.y ^2 + DCSUnitVelocityVec3.z ^2 ) ^ 0.5 + + local DCSUnitPointVec3 = Client:GetClientGroupDCSUnit():getPoint() + local LandHeight = land.getHeight( { x = DCSUnitPointVec3.x, y = DCSUnitPointVec3.z } ) + local DCSUnitHeight = DCSUnitPointVec3.y - LandHeight + + self:T( { Task.IsLandingRequired, Client:GetClientGroupDCSUnit():inAir() } ) + if Task.IsLandingRequired and not Client:GetClientGroupDCSUnit():inAir() then + self:T( 1 ) + Task.IsInAirTestRequired = true + return 1 + end + + self:T( { DCSUnitVelocity, DCSUnitHeight, LandHeight, Task.CurrentCargoZone.SignalHeight } ) + if Task.IsLandingRequired and DCSUnitVelocity <= 0.05 and DCSUnitHeight <= Task.CurrentCargoZone.SignalHeight then + self:T( 1 ) + Task.IsInAirTestRequired = false + return 1 + end + + self:T( 0 ) + return 0 +end + +STAGELANDED = { + ClassName = "STAGELANDED", + MSG = { ID = "Land", TIME = 10 }, + Name = "Landed", + MenusAdded = false +} + +function STAGELANDED:New() + local self = BASE:Inherit( self, STAGE:New() ) + self:F() + self.StageType = 'CLIENT' + return self +end + +function STAGELANDED:Execute( Mission, Client, Task ) + self:F() + + if Task.IsLandingRequired then + + local Host = "Command" + if Task.HostUnitName then + Host = Task.HostUnitName .. " (" .. Task.HostUnitTypeName .. ")" + else + if Client:IsMultiSeated() then + Host = "Co-Pilot" + end + end + + Client:Message( 'You have landed within the landing zone. Use the radio menu (F10) to ' .. Task.TEXT[1] .. ' the ' .. Task.CargoType .. '.', + self.MSG.TIME, Host ) + + if not self.MenusAdded then + Task.Cargo = nil + Task:RemoveCargoMenus( Client ) + Task:AddCargoMenus( Client, CARGOS, 250 ) + end + end +end + + + +function STAGELANDED:Validate( Mission, Client, Task ) + self:F() + + if not routines.IsUnitNearZonesRadius( Client:GetClientGroupDCSUnit(), Task.CurrentLandingZoneName, 500 ) then + self:T( "Client is not anymore in the landing zone, go back to stage Route, and remove cargo menus." ) + Task.Signalled = false + Task:RemoveCargoMenus( Client ) + self:T( -2 ) + return -2 + end + + local DCSUnitVelocityVec3 = Client:GetClientGroupDCSUnit():getVelocity() + local DCSUnitVelocity = ( DCSUnitVelocityVec3.x ^2 + DCSUnitVelocityVec3.y ^2 + DCSUnitVelocityVec3.z ^2 ) ^ 0.5 + + local DCSUnitPointVec3 = Client:GetClientGroupDCSUnit():getPoint() + local LandHeight = land.getHeight( { x = DCSUnitPointVec3.x, y = DCSUnitPointVec3.z } ) + local DCSUnitHeight = DCSUnitPointVec3.y - LandHeight + + self:T( { Task.IsLandingRequired, Client:GetClientGroupDCSUnit():inAir() } ) + if Task.IsLandingRequired and Task.IsInAirTestRequired == true and Client:GetClientGroupDCSUnit():inAir() then + self:T( "Client went back in the air. Go back to stage Landing." ) + self:T( -1 ) + return -1 + end + + self:T( { DCSUnitVelocity, DCSUnitHeight, LandHeight, Task.CurrentCargoZone.SignalHeight } ) + if Task.IsLandingRequired and Task.IsInAirTestRequired == false and DCSUnitVelocity >= 2 and DCSUnitHeight >= Task.CurrentCargoZone.SignalHeight then + self:T( "It seems the Client went back in the air and over the boundary limits. Go back to stage Landing." ) + self:T( -1 ) + return -1 + end + + -- Wait until cargo is selected from the menu. + if Task.IsLandingRequired then + if not Task.Cargo then + self:T( 0 ) + return 0 + end + end + + self:T( 1 ) + return 1 +end + +STAGEUNLOAD = { + ClassName = "STAGEUNLOAD", + MSG = { ID = "Unload", TIME = 10 }, + Name = "Unload" +} + +function STAGEUNLOAD:New() + local self = BASE:Inherit( self, STAGE:New() ) + self:F() + self.StageType = 'CLIENT' + return self +end + +--- Coordinate UnLoading +-- @param #STAGEUNLOAD self +-- @param Mission#MISSION Mission +-- @param Client#CLIENT Client +-- @param Task#TASK Task +function STAGEUNLOAD:Execute( Mission, Client, Task ) + self:F() + + if Client:IsMultiSeated() then + Client:Message( 'The ' .. Task.CargoType .. ' are being ' .. Task.TEXT[2] .. ' within the landing zone. Wait until the helicopter is ' .. Task.TEXT[3] .. '.', + "Co-Pilot" ) + else + Client:Message( 'You are unloading the ' .. Task.CargoType .. ' ' .. Task.TEXT[2] .. ' within the landing zone. Wait until the helicopter is ' .. Task.TEXT[3] .. '.', + "Command" ) + end + Task:RemoveCargoMenus( Client ) +end + +function STAGEUNLOAD:Executing( Mission, Client, Task ) + self:F() + env.info( 'STAGEUNLOAD:Executing() Task.Cargo.CargoName = ' .. Task.Cargo.CargoName ) + + local TargetZoneName + + if Task.TargetZoneName then + TargetZoneName = Task.TargetZoneName + else + TargetZoneName = Task.CurrentLandingZoneName + end + + if Task.Cargo:UnLoad( Client, TargetZoneName ) then + Task.ExecuteStage = _TransportExecuteStage.SUCCESS + if Mission.MissionReportFlash then + Client:ShowCargo() + end + end +end + +--- Validate UnLoading +-- @param #STAGEUNLOAD self +-- @param Mission#MISSION Mission +-- @param Client#CLIENT Client +-- @param Task#TASK Task +function STAGEUNLOAD:Validate( Mission, Client, Task ) + self:F() + env.info( 'STAGEUNLOAD:Validate()' ) + + if routines.IsUnitNearZonesRadius( Client:GetClientGroupDCSUnit(), Task.CurrentLandingZoneName, 500 ) then + else + Task.ExecuteStage = _TransportExecuteStage.FAILED + Task:RemoveCargoMenus( Client ) + if Client:IsMultiSeated() then + Client:Message( 'The ' .. Task.CargoType .. " haven't been successfully " .. Task.TEXT[3] .. ' within the landing zone. Task and mission has failed.', + _TransportStageMsgTime.DONE, "Co-Pilot" ) + else + Client:Message( 'The ' .. Task.CargoType .. " haven't been successfully " .. Task.TEXT[3] .. ' within the landing zone. Task and mission has failed.', + _TransportStageMsgTime.DONE, "Command" ) + end + return 1 + end + + if not Client:GetClientGroupDCSUnit():inAir() then + else + Task.ExecuteStage = _TransportExecuteStage.FAILED + Task:RemoveCargoMenus( Client ) + if Client:IsMultiSeated() then + Client:Message( 'The ' .. Task.CargoType .. " haven't been successfully " .. Task.TEXT[3] .. ' within the landing zone. Task and mission has failed.', + _TransportStageMsgTime.DONE, "Co-Pilot" ) + else + Client:Message( 'The ' .. Task.CargoType .. " haven't been successfully " .. Task.TEXT[3] .. ' within the landing zone. Task and mission has failed.', + _TransportStageMsgTime.DONE, "Command" ) + end + return 1 + end + + if Task.ExecuteStage == _TransportExecuteStage.SUCCESS then + if Client:IsMultiSeated() then + Client:Message( 'The ' .. Task.CargoType .. ' have been sucessfully ' .. Task.TEXT[3] .. ' within the landing zone.', _TransportStageMsgTime.DONE, "Co-Pilot" ) + else + Client:Message( 'The ' .. Task.CargoType .. ' have been sucessfully ' .. Task.TEXT[3] .. ' within the landing zone.', _TransportStageMsgTime.DONE, "Command" ) + end + Task:RemoveCargoMenus( Client ) + Task.MissionTask:AddGoalCompletion( Task.MissionTask.GoalVerb, Task.CargoName, 1 ) -- We set the cargo as one more goal completed in the mission. + return 1 + end + + return 1 +end + +STAGELOAD = { + ClassName = "STAGELOAD", + MSG = { ID = "Load", TIME = 10 }, + Name = "Load" +} + +function STAGELOAD:New() + local self = BASE:Inherit( self, STAGE:New() ) + self:F() + self.StageType = 'CLIENT' + return self +end + +function STAGELOAD:Execute( Mission, Client, Task ) + self:F() + + if not Task.IsSlingLoad then + + local Host = "Command" + if Task.HostUnitName then + Host = Task.HostUnitName .. " (" .. Task.HostUnitTypeName .. ")" + else + if Client:IsMultiSeated() then + Host = "Co-Pilot" + end + end + + Client:Message( 'The ' .. Task.CargoType .. ' are being ' .. Task.TEXT[2] .. ' within the landing zone. Wait until the helicopter is ' .. Task.TEXT[3] .. '.', + _TransportStageMsgTime.EXECUTING, Host ) + + -- Route the cargo to the Carrier + + Task.Cargo:OnBoard( Client, Task.CurrentCargoZone, Task.OnBoardSide ) + Task.ExecuteStage = _TransportExecuteStage.EXECUTING + else + Task.ExecuteStage = _TransportExecuteStage.EXECUTING + end +end + +function STAGELOAD:Executing( Mission, Client, Task ) + self:F() + + -- If the Cargo is ready to be loaded, load it into the Client. + + local Host = "Command" + if Task.HostUnitName then + Host = Task.HostUnitName .. " (" .. Task.HostUnitTypeName .. ")" + else + if Client:IsMultiSeated() then + Host = "Co-Pilot" + end + end + + if not Task.IsSlingLoad then + self:T( Task.Cargo.CargoName) + + if Task.Cargo:OnBoarded( Client, Task.CurrentCargoZone ) then + + -- Load the Cargo onto the Client + Task.Cargo:Load( Client ) + + -- Message to the pilot that cargo has been loaded. + Client:Message( "The cargo " .. Task.Cargo.CargoName .. " has been loaded in our helicopter.", + 20, Host ) + Task.ExecuteStage = _TransportExecuteStage.SUCCESS + + Client:ShowCargo() + end + else + Client:Message( "Hook the " .. Task.CargoNames .. " onto the helicopter " .. Task.TEXT[3] .. " within the landing zone.", + _TransportStageMsgTime.EXECUTING, Host ) + for CargoID, Cargo in pairs( CARGOS ) do + self:T( "Cargo.CargoName = " .. Cargo.CargoName ) + + if Cargo:IsSlingLoad() then + local CargoStatic = StaticObject.getByName( Cargo.CargoStaticName ) + if CargoStatic then + self:T( "Cargo is found in the DCS simulator.") + local CargoStaticPosition = CargoStatic:getPosition().p + self:T( "Cargo Position x = " .. CargoStaticPosition.x .. ", y = " .. CargoStaticPosition.y .. ", z = " .. CargoStaticPosition.z ) + local CargoStaticHeight = routines.GetUnitHeight( CargoStatic ) + if CargoStaticHeight > 5 then + self:T( "Cargo is airborne.") + Cargo:StatusLoaded() + Task.Cargo = Cargo + Client:Message( 'The Cargo has been successfully hooked onto the helicopter and is now being sling loaded. Fly outside the landing zone.', + self.MSG.TIME, Host ) + Task.ExecuteStage = _TransportExecuteStage.SUCCESS + break + end + else + self:T( "Cargo not found in the DCS simulator." ) + end + end + end + end + +end + +function STAGELOAD:Validate( Mission, Client, Task ) + self:F() + + self:T( "Task.CurrentLandingZoneName = " .. Task.CurrentLandingZoneName ) + + local Host = "Command" + if Task.HostUnitName then + Host = Task.HostUnitName .. " (" .. Task.HostUnitTypeName .. ")" + else + if Client:IsMultiSeated() then + Host = "Co-Pilot" + end + end + + if not Task.IsSlingLoad then + if not routines.IsUnitNearZonesRadius( Client:GetClientGroupDCSUnit(), Task.CurrentLandingZoneName, 500 ) then + Task:RemoveCargoMenus( Client ) + Task.ExecuteStage = _TransportExecuteStage.FAILED + Task.CargoName = nil + Client:Message( "The " .. Task.CargoType .. " loading has been aborted. You flew outside the pick-up zone while loading. ", + self.MSG.TIME, Host ) + self:T( -1 ) + return -1 + end + + local DCSUnitVelocityVec3 = Client:GetClientGroupDCSUnit():getVelocity() + local DCSUnitVelocity = ( DCSUnitVelocityVec3.x ^2 + DCSUnitVelocityVec3.y ^2 + DCSUnitVelocityVec3.z ^2 ) ^ 0.5 + + local DCSUnitPointVec3 = Client:GetClientGroupDCSUnit():getPoint() + local LandHeight = land.getHeight( { x = DCSUnitPointVec3.x, y = DCSUnitPointVec3.z } ) + local DCSUnitHeight = DCSUnitPointVec3.y - LandHeight + + self:T( { Task.IsLandingRequired, Client:GetClientGroupDCSUnit():inAir() } ) + if Task.IsLandingRequired and Task.IsInAirTestRequired == true and Client:GetClientGroupDCSUnit():inAir() then + Task:RemoveCargoMenus( Client ) + Task.ExecuteStage = _TransportExecuteStage.FAILED + Task.CargoName = nil + Client:Message( "The " .. Task.CargoType .. " loading has been aborted. Re-start the " .. Task.TEXT[3] .. " process. Don't fly outside the pick-up zone.", + self.MSG.TIME, Host ) + self:T( -1 ) + return -1 + end + + self:T( { DCSUnitVelocity, DCSUnitHeight, LandHeight, Task.CurrentCargoZone.SignalHeight } ) + if Task.IsLandingRequired and Task.IsInAirTestRequired == false and DCSUnitVelocity >= 2 and DCSUnitHeight >= Task.CurrentCargoZone.SignalHeight then + Task:RemoveCargoMenus( Client ) + Task.ExecuteStage = _TransportExecuteStage.FAILED + Task.CargoName = nil + Client:Message( "The " .. Task.CargoType .. " loading has been aborted. Re-start the " .. Task.TEXT[3] .. " process. Don't fly outside the pick-up zone.", + self.MSG.TIME, Host ) + self:T( -1 ) + return -1 + end + + if Task.ExecuteStage == _TransportExecuteStage.SUCCESS then + Task:RemoveCargoMenus( Client ) + Client:Message( "Good Job. The " .. Task.CargoType .. " has been sucessfully " .. Task.TEXT[3] .. " within the landing zone.", + self.MSG.TIME, Host ) + Task.MissionTask:AddGoalCompletion( Task.MissionTask.GoalVerb, Task.CargoName, 1 ) + self:T( 1 ) + return 1 + end + + else + if Task.ExecuteStage == _TransportExecuteStage.SUCCESS then + CargoStatic = StaticObject.getByName( Task.Cargo.CargoStaticName ) + if CargoStatic and not routines.IsStaticInZones( CargoStatic, Task.CurrentLandingZoneName ) then + Client:Message( "Good Job. The " .. Task.CargoType .. " has been sucessfully " .. Task.TEXT[3] .. " and flown outside of the landing zone.", + self.MSG.TIME, Host ) + Task.MissionTask:AddGoalCompletion( Task.MissionTask.GoalVerb, Task.Cargo.CargoName, 1 ) + self:T( 1 ) + return 1 + end + end + + end + + + self:T( 0 ) + return 0 +end + + +STAGEDONE = { + ClassName = "STAGEDONE", + MSG = { ID = "Done", TIME = 10 }, + Name = "Done" +} + +function STAGEDONE:New() + local self = BASE:Inherit( self, STAGE:New() ) + self:F() + self.StageType = 'AI' + return self +end + +function STAGEDONE:Execute( Mission, Client, Task ) + self:F() + +end + +function STAGEDONE:Validate( Mission, Client, Task ) + self:F() + + Task:Done() + + return 0 +end + +STAGEARRIVE = { + ClassName = "STAGEARRIVE", + MSG = { ID = "Arrive", TIME = 10 }, + Name = "Arrive" +} + +function STAGEARRIVE:New() + local self = BASE:Inherit( self, STAGE:New() ) + self:F() + self.StageType = 'CLIENT' + return self +end + + +--- Execute Arrival +-- @param #STAGEARRIVE self +-- @param Mission#MISSION Mission +-- @param Client#CLIENT Client +-- @param Task#TASK Task +function STAGEARRIVE:Execute( Mission, Client, Task ) + self:F() + + if Client:IsMultiSeated() then + Client:Message( 'We have arrived at ' .. Task.CurrentLandingZoneName .. ".", self.MSG.TIME, "Co-Pilot" ) + else + Client:Message( 'We have arrived at ' .. Task.CurrentLandingZoneName .. ".", self.MSG.TIME, "Command" ) + end + +end + +function STAGEARRIVE:Validate( Mission, Client, Task ) + self:F() + + Task.CurrentLandingZoneID = routines.IsUnitInZones( Client:GetClientGroupDCSUnit(), Task.LandingZones ) + if ( Task.CurrentLandingZoneID ) then + else + return -1 + end + + return 1 +end + +STAGEGROUPSDESTROYED = { + ClassName = "STAGEGROUPSDESTROYED", + DestroyGroupSize = -1, + Frequency = STAGE.FREQUENCY.REPEAT, + MSG = { ID = "DestroyGroup", TIME = 10 }, + Name = "GroupsDestroyed" +} + +function STAGEGROUPSDESTROYED:New() + local self = BASE:Inherit( self, STAGE:New() ) + self:F() + self.StageType = 'AI' + return self +end + +--function STAGEGROUPSDESTROYED:Execute( Mission, Client, Task ) +-- +-- Client:Message( 'Task: Still ' .. DestroyGroupSize .. " of " .. Task.DestroyGroupCount .. " " .. Task.DestroyGroupType .. " to be destroyed!", self.MSG.TIME, Mission.Name .. "/Stage" ) +-- +--end + +function STAGEGROUPSDESTROYED:Validate( Mission, Client, Task ) + self:F() + + if Task.MissionTask:IsGoalReached() then + return 1 + else + return 0 + end +end + +function STAGEGROUPSDESTROYED:Execute( Mission, Client, Task ) + self:F() + self:T( { Task.ClassName, Task.Destroyed } ) + --env.info( 'Event Table Task = ' .. tostring(Task) ) + +end + + + + + + + + + + + + + +--[[ + _TransportStage: Defines the different stages of which of transport missions can be in. This table is internal and is used to control the sequence of messages, actions and flow. + + - _TransportStage.START + - _TransportStage.ROUTE + - _TransportStage.LAND + - _TransportStage.EXECUTE + - _TransportStage.DONE + - _TransportStage.REMOVE +--]] +_TransportStage = { + HOLD = "HOLD", + START = "START", + ROUTE = "ROUTE", + LANDING = "LANDING", + LANDED = "LANDED", + EXECUTING = "EXECUTING", + LOAD = "LOAD", + UNLOAD = "UNLOAD", + DONE = "DONE", + NEXT = "NEXT" +} + +_TransportStageMsgTime = { + HOLD = 10, + START = 60, + ROUTE = 5, + LANDING = 10, + LANDED = 30, + EXECUTING = 30, + LOAD = 30, + UNLOAD = 30, + DONE = 30, + NEXT = 0 +} + +_TransportStageTime = { + HOLD = 10, + START = 5, + ROUTE = 5, + LANDING = 1, + LANDED = 1, + EXECUTING = 5, + LOAD = 5, + UNLOAD = 5, + DONE = 1, + NEXT = 0 +} + +_TransportStageAction = { + REPEAT = -1, + NONE = 0, + ONCE = 1 +} +--- The TASK Classes define major end-to-end activities within a MISSION. The TASK Class is the Master Class to orchestrate these activities. From this class, many concrete TASK classes are inherited. +-- @module TASK + + + + + + + +--- The TASK class +-- @type TASK +-- @extends Base#BASE +TASK = { + + -- Defines the different signal types with a Task. + SIGNAL = { + COLOR = { + RED = { ID = 1, COLOR = trigger.smokeColor.Red, TEXT = "A red" }, + GREEN = { ID = 2, COLOR = trigger.smokeColor.Green, TEXT = "A green" }, + BLUE = { ID = 3, COLOR = trigger.smokeColor.Blue, TEXT = "A blue" }, + WHITE = { ID = 4, COLOR = trigger.smokeColor.White, TEXT = "A white" }, + ORANGE = { ID = 5, COLOR = trigger.smokeColor.Orange, TEXT = "An orange" } + }, + TYPE = { + SMOKE = { ID = 1, TEXT = "smoke" }, + FLARE = { ID = 2, TEXT = "flare" } + } + }, + ClassName = "TASK", + Mission = {}, -- Owning mission of the Task + Name = '', + Stages = {}, + Stage = {}, + Cargos = { + InitCargos = {}, + LoadCargos = {} + }, + LandingZones = { + LandingZoneNames = {}, + LandingZones = {} + }, + ActiveStage = 0, + TaskDone = false, + TaskFailed = false, + GoalTasks = {} +} + +--- Instantiates a new TASK Base. Should never be used. Interface Class. +-- @return TASK +function TASK:New() + local self = BASE:Inherit( self, BASE:New() ) + self:F() + + -- assign Task default values during construction + self.TaskBriefing = "Task: No Task." + self.Time = timer.getTime() + self.ExecuteStage = _TransportExecuteStage.NONE + + return self +end + +function TASK:SetStage( StageSequenceIncrement ) + self:F( { StageSequenceIncrement } ) + + local Valid = false + if StageSequenceIncrement ~= 0 then + self.ActiveStage = self.ActiveStage + StageSequenceIncrement + if 1 <= self.ActiveStage and self.ActiveStage <= #self.Stages then + self.Stage = self.Stages[self.ActiveStage] + self:T( { self.Stage.Name } ) + self.Frequency = self.Stage.Frequency + Valid = true + else + Valid = false + env.info( "TASK:SetStage() self.ActiveStage is smaller or larger than self.Stages array. self.ActiveStage = " .. self.ActiveStage ) + end + end + self.Time = timer.getTime() + return Valid +end + +function TASK:Init() + self:F() + self.ActiveStage = 0 + self:SetStage(1) + self.TaskDone = false + self.TaskFailed = false +end + + +--- Get progress of a TASK. +-- @return string GoalsText +function TASK:GetGoalProgress() + self:F2() + + local GoalsText = "" + for GoalVerb, GoalVerbData in pairs( self.GoalTasks ) do + local Goals = self:GetGoalCompletion( GoalVerb ) + if Goals and Goals ~= "" then + Goals = '(' .. Goals .. ')' + else + Goals = '( - )' + end + GoalsText = GoalsText .. GoalVerb .. ': ' .. self:GetGoalCount(GoalVerb) .. ' goals ' .. Goals .. ' of ' .. self:GetGoalTotal(GoalVerb) .. ' goals completed (' .. self:GetGoalPercentage(GoalVerb) .. '%); ' + end + + if GoalsText == "" then + GoalsText = "( - )" + end + + return GoalsText +end + +--- Show progress of a TASK. +-- @param MISSION Mission Group structure describing the Mission. +-- @param CLIENT Client Group structure describing the Client. +function TASK:ShowGoalProgress( Mission, Client ) + self:F2() + + local GoalsText = "" + for GoalVerb, GoalVerbData in pairs( self.GoalTasks ) do + if Mission:IsCompleted() then + else + local Goals = self:GetGoalCompletion( GoalVerb ) + if Goals and Goals ~= "" then + else + Goals = "-" + end + GoalsText = GoalsText .. self:GetGoalProgress() + end + end + + if Mission.MissionReportFlash or Mission.MissionReportShow then + Client:Message( GoalsText, 10, "Mission Command: Task Status", 30, "Task status" ) + end +end + +--- Sets a TASK to status Done. +function TASK:Done() + self:F2() + self.TaskDone = true +end + +--- Returns if a TASK is done. +-- @return bool +function TASK:IsDone() + self:F2( self.TaskDone ) + return self.TaskDone +end + +--- Sets a TASK to status failed. +function TASK:Failed() + self:F() + self.TaskFailed = true +end + +--- Returns if a TASk has failed. +-- @return bool +function TASK:IsFailed() + self:F2( self.TaskFailed ) + return self.TaskFailed +end + +function TASK:Reset( Mission, Client ) + self:F2() + self.ExecuteStage = _TransportExecuteStage.NONE +end + +--- Returns the Goals of a TASK +-- @return @table Goals +function TASK:GetGoals() + return self.GoalTasks +end + +--- Returns if a TASK has Goal(s). +-- @param #TASK self +-- @param #string GoalVerb is the name of the Goal of the TASK. +-- @return bool +function TASK:Goal( GoalVerb ) + self:F2( { GoalVerb } ) + if not GoalVerb then + GoalVerb = self.GoalVerb + end + self:T2( {self.GoalTasks[GoalVerb] } ) + if self.GoalTasks[GoalVerb] and self.GoalTasks[GoalVerb].GoalTotal > 0 then + return true + else + return false + end +end + +--- Sets the total Goals to be achieved of the Goal Name +-- @param number GoalTotal is the number of times the GoalVerb needs to be achieved. +-- @param ?string GoalVerb is the name of the Goal of the TASK. If the GoalVerb is not given, then the default TASK Goals will be used. +function TASK:SetGoalTotal( GoalTotal, GoalVerb ) + self:F2( { GoalTotal, GoalVerb } ) + + if not GoalVerb then + GoalVerb = self.GoalVerb + end + self.GoalTasks[GoalVerb] = {} + self.GoalTasks[GoalVerb].Goals = {} + self.GoalTasks[GoalVerb].GoalTotal = GoalTotal + self.GoalTasks[GoalVerb].GoalCount = 0 + return self +end + +--- Gets the total of Goals to be achieved within the TASK of the GoalVerb. +-- @param ?string GoalVerb is the name of the Goal of the TASK. If the GoalVerb is not given, then the default TASK Goals will be used. +function TASK:GetGoalTotal( GoalVerb ) + self:F2( { GoalVerb } ) + if not GoalVerb then + GoalVerb = self.GoalVerb + end + if self:Goal( GoalVerb ) then + return self.GoalTasks[GoalVerb].GoalTotal + else + return 0 + end +end + +--- Sets the total of Goals currently achieved within the TASK of the GoalVerb. +-- @param number GoalCount is the total number of Goals achieved within the TASK. +-- @param ?string GoalVerb is the name of the Goal of the TASK. If the GoalVerb is not given, then the default TASK Goals will be used. +-- @return TASK +function TASK:SetGoalCount( GoalCount, GoalVerb ) + self:F2() + if not GoalVerb then + GoalVerb = self.GoalVerb + end + if self:Goal( GoalVerb) then + self.GoalTasks[GoalVerb].GoalCount = GoalCount + end + return self +end + +--- Increments the total of Goals currently achieved within the TASK of the GoalVerb, with the given GoalCountIncrease. +-- @param number GoalCountIncrease is the number of new Goals achieved within the TASK. +-- @param ?string GoalVerb is the name of the Goal of the TASK. If the GoalVerb is not given, then the default TASK Goals will be used. +-- @return TASK +function TASK:IncreaseGoalCount( GoalCountIncrease, GoalVerb ) + self:F2( { GoalCountIncrease, GoalVerb } ) + if not GoalVerb then + GoalVerb = self.GoalVerb + end + if self:Goal( GoalVerb) then + self.GoalTasks[GoalVerb].GoalCount = self.GoalTasks[GoalVerb].GoalCount + GoalCountIncrease + end + return self +end + +--- Gets the total of Goals currently achieved within the TASK of the GoalVerb. +-- @param ?string GoalVerb is the name of the Goal of the TASK. If the GoalVerb is not given, then the default TASK Goals will be used. +-- @return TASK +function TASK:GetGoalCount( GoalVerb ) + self:F2() + if not GoalVerb then + GoalVerb = self.GoalVerb + end + if self:Goal( GoalVerb ) then + return self.GoalTasks[GoalVerb].GoalCount + else + return 0 + end +end + +--- Gets the percentage of Goals currently achieved within the TASK of the GoalVerb. +-- @param ?string GoalVerb is the name of the Goal of the TASK. If the GoalVerb is not given, then the default TASK Goals will be used. +-- @return TASK +function TASK:GetGoalPercentage( GoalVerb ) + self:F2() + if not GoalVerb then + GoalVerb = self.GoalVerb + end + if self:Goal( GoalVerb ) then + return math.floor( self:GetGoalCount( GoalVerb ) / self:GetGoalTotal( GoalVerb ) * 100 + .5 ) + else + return 100 + end +end + +--- Returns if all the Goals of the TASK were achieved. +-- @return bool +function TASK:IsGoalReached() + self:F2() + + local GoalReached = true + + for GoalVerb, Goals in pairs( self.GoalTasks ) do + self:T2( { "GoalVerb", GoalVerb } ) + if self:Goal( GoalVerb ) then + local GoalToDo = self:GetGoalTotal( GoalVerb ) - self:GetGoalCount( GoalVerb ) + self:T2( "GoalToDo = " .. GoalToDo ) + if GoalToDo <= 0 then + else + GoalReached = false + break + end + else + break + end + end + + self:T( { GoalReached, self.GoalTasks } ) + return GoalReached +end + +--- Adds an Additional Goal for the TASK to be achieved. +-- @param string GoalVerb is the name of the Goal of the TASK. +-- @param string GoalTask is a text describing the Goal of the TASK to be achieved. +-- @param number GoalIncrease is a number by which the Goal achievement is increasing. +function TASK:AddGoalCompletion( GoalVerb, GoalTask, GoalIncrease ) + self:F2( { GoalVerb, GoalTask, GoalIncrease } ) + + if self:Goal( GoalVerb ) then + self.GoalTasks[GoalVerb].Goals[#self.GoalTasks[GoalVerb].Goals+1] = GoalTask + self.GoalTasks[GoalVerb].GoalCount = self.GoalTasks[GoalVerb].GoalCount + GoalIncrease + end + return self +end + +--- Returns if the additional Goal for the TASK was completed. +-- @param ?string GoalVerb is the name of the Goal of the TASK. If the GoalVerb is not given, then the default TASK Goals will be used. +-- @return string Goals +function TASK:GetGoalCompletion( GoalVerb ) + self:F2( { GoalVerb } ) + + if self:Goal( GoalVerb ) then + local Goals = "" + for GoalID, GoalName in pairs( self.GoalTasks[GoalVerb].Goals ) do Goals = Goals .. GoalName .. " + " end + return Goals:gsub(" + $", ""), self.GoalTasks[GoalVerb].GoalCount + end +end + +function TASK.MenuAction( Parameter ) + Parameter.ReferenceTask.ExecuteStage = _TransportExecuteStage.EXECUTING + Parameter.ReferenceTask.Cargo = Parameter.CargoTask +end + +function TASK:StageExecute() + self:F() + + local Execute = false + + if self.Frequency == STAGE.FREQUENCY.REPEAT then + Execute = true + elseif self.Frequency == STAGE.FREQUENCY.NONE then + Execute = false + elseif self.Frequency >= 0 then + Execute = true + self.Frequency = self.Frequency - 1 + end + + return Execute + +end + +--- Work function to set signal events within a TASK. +function TASK:AddSignal( SignalUnitNames, SignalType, SignalColor, SignalHeight ) + self:F() + + local Valid = true + + if Valid then + if type( SignalUnitNames ) == "table" then + self.LandingZoneSignalUnitNames = SignalUnitNames + else + self.LandingZoneSignalUnitNames = { SignalUnitNames } + end + self.LandingZoneSignalType = SignalType + self.LandingZoneSignalColor = SignalColor + self.Signalled = false + if SignalHeight ~= nil then + self.LandingZoneSignalHeight = SignalHeight + else + self.LandingZoneSignalHeight = 0 + end + + if self.TaskBriefing then + self.TaskBriefing = self.TaskBriefing .. " " .. SignalColor.TEXT .. " " .. SignalType.TEXT .. " will be fired when entering the landing zone." + end + end + + return Valid +end + +--- When the CLIENT is approaching the landing zone, a RED SMOKE will be fired by an optional SignalUnitNames. +-- @param table|string SignalUnitNames Name of the Group that will fire the signal. If this parameter is NIL, the signal will be fired from the center of the landing zone. +-- @param number SignalHeight Altitude that the Signal should be fired... +function TASK:AddSmokeRed( SignalUnitNames, SignalHeight ) + self:F() + self:AddSignal( SignalUnitNames, TASK.SIGNAL.TYPE.SMOKE, TASK.SIGNAL.COLOR.RED, SignalHeight ) +end + +--- When the CLIENT is approaching the landing zone, a GREEN SMOKE will be fired by an optional SignalUnitNames. +-- @param table|string SignalUnitNames Name of the Group that will fire the signal. If this parameter is NIL, the signal will be fired from the center of the landing zone. +-- @param number SignalHeight Altitude that the Signal should be fired... +function TASK:AddSmokeGreen( SignalUnitNames, SignalHeight ) + self:F() + self:AddSignal( SignalUnitNames, TASK.SIGNAL.TYPE.SMOKE, TASK.SIGNAL.COLOR.GREEN, SignalHeight ) +end + +--- When the CLIENT is approaching the landing zone, a BLUE SMOKE will be fired by an optional SignalUnitNames. +-- @param table|string SignalUnitNames Name of the Group that will fire the signal. If this parameter is NIL, the signal will be fired from the center of the landing zone. +-- @param number SignalHeight Altitude that the Signal should be fired... +function TASK:AddSmokeBlue( SignalUnitNames, SignalHeight ) + self:F() + self:AddSignal( SignalUnitNames, TASK.SIGNAL.TYPE.SMOKE, TASK.SIGNAL.COLOR.BLUE, SignalHeight ) +end + +--- When the CLIENT is approaching the landing zone, a WHITE SMOKE will be fired by an optional SignalUnitNames. +-- @param table|string SignalUnitNames Name of the Group that will fire the signal. If this parameter is NIL, the signal will be fired from the center of the landing zone. +-- @param number SignalHeight Altitude that the Signal should be fired... +function TASK:AddSmokeWhite( SignalUnitNames, SignalHeight ) + self:F() + self:AddSignal( SignalUnitNames, TASK.SIGNAL.TYPE.SMOKE, TASK.SIGNAL.COLOR.WHITE, SignalHeight ) +end + +--- When the CLIENT is approaching the landing zone, an ORANGE SMOKE will be fired by an optional SignalUnitNames. +-- @param table|string SignalUnitNames Name of the Group that will fire the signal. If this parameter is NIL, the signal will be fired from the center of the landing zone. +-- @param number SignalHeight Altitude that the Signal should be fired... +function TASK:AddSmokeOrange( SignalUnitNames, SignalHeight ) + self:F() + self:AddSignal( SignalUnitNames, TASK.SIGNAL.TYPE.SMOKE, TASK.SIGNAL.COLOR.ORANGE, SignalHeight ) +end + +--- When the CLIENT is approaching the landing zone, a RED FLARE will be fired by an optional SignalUnitNames. +-- @param table|string SignalUnitNames Name of the Group that will fire the signal. If this parameter is NIL, the signal will be fired from the center of the landing zone. +-- @param number SignalHeight Altitude that the Signal should be fired... +function TASK:AddFlareRed( SignalUnitNames, SignalHeight ) + self:F() + self:AddSignal( SignalUnitNames, TASK.SIGNAL.TYPE.FLARE, TASK.SIGNAL.COLOR.RED, SignalHeight ) +end + +--- When the CLIENT is approaching the landing zone, a GREEN FLARE will be fired by an optional SignalUnitNames. +-- @param table|string SignalUnitNames Name of the Group that will fire the signal. If this parameter is NIL, the signal will be fired from the center of the landing zone. +-- @param number SignalHeight Altitude that the Signal should be fired... +function TASK:AddFlareGreen( SignalUnitNames, SignalHeight ) + self:F() + self:AddSignal( SignalUnitNames, TASK.SIGNAL.TYPE.FLARE, TASK.SIGNAL.COLOR.GREEN, SignalHeight ) +end + +--- When the CLIENT is approaching the landing zone, a BLUE FLARE will be fired by an optional SignalUnitNames. +-- @param table|string SignalUnitNames Name of the Group that will fire the signal. If this parameter is NIL, the signal will be fired from the center of the landing zone. +-- @param number SignalHeight Altitude that the Signal should be fired... +function TASK:AddFlareBlue( SignalUnitNames, SignalHeight ) + self:F() + self:AddSignal( SignalUnitNames, TASK.SIGNAL.TYPE.FLARE, TASK.SIGNAL.COLOR.BLUE, SignalHeight ) +end + +--- When the CLIENT is approaching the landing zone, a WHITE FLARE will be fired by an optional SignalUnitNames. +-- @param table|string SignalUnitNames Name of the Group that will fire the signal. If this parameter is NIL, the signal will be fired from the center of the landing zone. +-- @param number SignalHeight Altitude that the Signal should be fired... +function TASK:AddFlareWhite( SignalUnitNames, SignalHeight ) + self:F() + self:AddSignal( SignalUnitNames, TASK.SIGNAL.TYPE.FLARE, TASK.SIGNAL.COLOR.WHITE, SignalHeight ) +end + +--- When the CLIENT is approaching the landing zone, an ORANGE FLARE will be fired by an optional SignalUnitNames. +-- @param table|string SignalUnitNames Name of the Group that will fire the signal. If this parameter is NIL, the signal will be fired from the center of the landing zone. +-- @param number SignalHeight Altitude that the Signal should be fired... +function TASK:AddFlareOrange( SignalUnitNames, SignalHeight ) + self:F() + self:AddSignal( SignalUnitNames, TASK.SIGNAL.TYPE.FLARE, TASK.SIGNAL.COLOR.ORANGE, SignalHeight ) +end +--- A GOHOMETASK orchestrates the travel back to the home base, which is a specific zone defined within the ME. +-- @module GOHOMETASK + +--- The GOHOMETASK class +-- @type +GOHOMETASK = { + ClassName = "GOHOMETASK", +} + +--- Creates a new GOHOMETASK. +-- @param table{string,...}|string LandingZones Table of Landing Zone names where Home(s) are located. +-- @return GOHOMETASK +function GOHOMETASK:New( LandingZones ) + local self = BASE:Inherit( self, TASK:New() ) + self:F( { LandingZones } ) + local Valid = true + + Valid = routines.ValidateZone( LandingZones, "LandingZones", Valid ) + + if Valid then + self.Name = 'Fly Home' + self.TaskBriefing = "Task: Fly back to your home base. Your co-pilot will provide you with the directions (required flight angle in degrees) and the distance (in km) to your home base." + if type( LandingZones ) == "table" then + self.LandingZones = LandingZones + else + self.LandingZones = { LandingZones } + end + self.Stages = { STAGEBRIEF:New(), STAGESTART:New(), STAGEROUTE:New(), STAGEARRIVE:New(), STAGEDONE:New() } + self.SetStage( self, 1 ) + end + + return self +end +--- A DESTROYBASETASK will monitor the destruction of Groups and Units. This is a BASE class, other classes are derived from this class. +-- @module DESTROYBASETASK +-- @see DESTROYGROUPSTASK +-- @see DESTROYUNITTYPESTASK +-- @see DESTROY_RADARS_TASK + + + +--- The DESTROYBASETASK class +-- @type DESTROYBASETASK +DESTROYBASETASK = { + ClassName = "DESTROYBASETASK", + Destroyed = 0, + GoalVerb = "Destroy", + DestroyPercentage = 100, +} + +--- Creates a new DESTROYBASETASK. +-- @param #DESTROYBASETASK self +-- @param #string DestroyGroupType Text describing the group to be destroyed. f.e. "Radar Installations", "Ships", "Vehicles", "Command Centers". +-- @param #string DestroyUnitType Text describing the unit types to be destroyed. f.e. "SA-6", "Row Boats", "Tanks", "Tents". +-- @param #list<#string> DestroyGroupPrefixes Table of Prefixes of the Groups to be destroyed before task is completed. +-- @param #number DestroyPercentage defines the %-tage that needs to be destroyed to achieve mission success. eg. If in the Group there are 10 units, then a value of 75 would require 8 units to be destroyed from the Group to complete the @{TASK}. +-- @return DESTROYBASETASK +function DESTROYBASETASK:New( DestroyGroupType, DestroyUnitType, DestroyGroupPrefixes, DestroyPercentage ) + local self = BASE:Inherit( self, TASK:New() ) + self:F() + + self.Name = 'Destroy' + self.Destroyed = 0 + self.DestroyGroupPrefixes = DestroyGroupPrefixes + self.DestroyGroupType = DestroyGroupType + self.DestroyUnitType = DestroyUnitType + if DestroyPercentage then + self.DestroyPercentage = DestroyPercentage + end + self.TaskBriefing = "Task: Destroy " .. DestroyGroupType .. "." + self.Stages = { STAGEBRIEF:New(), STAGESTART:New(), STAGEGROUPSDESTROYED:New(), STAGEDONE:New() } + self.SetStage( self, 1 ) + + return self +end + +--- Handle the S_EVENT_DEAD events to validate the destruction of units for the task monitoring. +-- @param #DESTROYBASETASK self +-- @param Event#EVENTDATA Event structure of MOOSE. +function DESTROYBASETASK:EventDead( Event ) + self:F( { Event } ) + + if Event.IniDCSUnit then + local DestroyUnit = Event.IniDCSUnit + local DestroyUnitName = Event.IniDCSUnitName + local DestroyGroup = Event.IniDCSGroup + local DestroyGroupName = Event.IniDCSGroupName + + --TODO: I need to fix here if 2 groups in the mission have a similar name with GroupPrefix equal, then i should differentiate for which group the goal was reached! + --I may need to test if for the goalverb that group goal was reached or something. Need to think about it a bit more ... + local UnitsDestroyed = 0 + for DestroyGroupPrefixID, DestroyGroupPrefix in pairs( self.DestroyGroupPrefixes ) do + self:T( DestroyGroupPrefix ) + if string.find( DestroyGroupName, DestroyGroupPrefix, 1, true ) then + self:T( BASE:Inherited(self).ClassName ) + UnitsDestroyed = self:ReportGoalProgress( DestroyGroup, DestroyUnit ) + self:T( UnitsDestroyed ) + end + end + + self:T( { UnitsDestroyed } ) + self:IncreaseGoalCount( UnitsDestroyed, self.GoalVerb ) + end + +end + +--- Validate task completeness of DESTROYBASETASK. +-- @param DestroyGroup Group structure describing the group to be evaluated. +-- @param DestroyUnit Unit structure describing the Unit to be evaluated. +function DESTROYBASETASK:ReportGoalProgress( DestroyGroup, DestroyUnit ) + self:F() + + return 0 +end +--- DESTROYGROUPSTASK +-- @module DESTROYGROUPSTASK + + + +--- The DESTROYGROUPSTASK class +-- @type +DESTROYGROUPSTASK = { + ClassName = "DESTROYGROUPSTASK", + GoalVerb = "Destroy Groups", +} + +--- Creates a new DESTROYGROUPSTASK. +-- @param #DESTROYGROUPSTASK self +-- @param #string DestroyGroupType String describing the group to be destroyed. +-- @param #string DestroyUnitType String describing the unit to be destroyed. +-- @param #list<#string> DestroyGroupNames Table of string containing the name of the groups to be destroyed before task is completed. +-- @param #number DestroyPercentage defines the %-tage that needs to be destroyed to achieve mission success. eg. If in the Group there are 10 units, then a value of 75 would require 8 units to be destroyed from the Group to complete the @{TASK}. +---@return DESTROYGROUPSTASK +function DESTROYGROUPSTASK:New( DestroyGroupType, DestroyUnitType, DestroyGroupNames, DestroyPercentage ) + local self = BASE:Inherit( self, DESTROYBASETASK:New( DestroyGroupType, DestroyUnitType, DestroyGroupNames, DestroyPercentage ) ) + self:F() + + self.Name = 'Destroy Groups' + self.GoalVerb = "Destroy " .. DestroyGroupType + + _EVENTDISPATCHER:OnDead( self.EventDead , self ) + _EVENTDISPATCHER:OnCrash( self.EventDead , self ) + + return self +end + +--- Report Goal Progress. +-- @param #DESTROYGROUPSTASK self +-- @param DCSGroup#Group DestroyGroup Group structure describing the group to be evaluated. +-- @param DCSUnit#Unit DestroyUnit Unit structure describing the Unit to be evaluated. +-- @return #number The DestroyCount reflecting the amount of units destroyed within the group. +function DESTROYGROUPSTASK:ReportGoalProgress( DestroyGroup, DestroyUnit ) + self:F( { DestroyGroup, DestroyUnit, self.DestroyPercentage } ) + + local DestroyGroupSize = DestroyGroup:getSize() - 1 -- When a DEAD event occurs, the getSize is still one larger than the destroyed unit. + local DestroyGroupInitialSize = DestroyGroup:getInitialSize() + self:T( { DestroyGroupSize, DestroyGroupInitialSize - ( DestroyGroupInitialSize * self.DestroyPercentage / 100 ) } ) + + local DestroyCount = 0 + if DestroyGroup then + if DestroyGroupSize <= DestroyGroupInitialSize - ( DestroyGroupInitialSize * self.DestroyPercentage / 100 ) then + DestroyCount = 1 + end + else + DestroyCount = 1 + end + + self:T( DestroyCount ) + + return DestroyCount +end +--- Task class to destroy radar installations. +-- @module DESTROYRADARSTASK + + + +--- The DESTROYRADARS class +-- @type +DESTROYRADARSTASK = { + ClassName = "DESTROYRADARSTASK", + GoalVerb = "Destroy Radars" +} + +--- Creates a new DESTROYRADARSTASK. +-- @param table{string,...} DestroyGroupNames Table of string containing the group names of which the radars are be destroyed. +-- @return DESTROYRADARSTASK +function DESTROYRADARSTASK:New( DestroyGroupNames ) + local self = BASE:Inherit( self, DESTROYGROUPSTASK:New( 'radar installations', 'radars', DestroyGroupNames ) ) + self:F() + + self.Name = 'Destroy Radars' + + _EVENTDISPATCHER:OnDead( self.EventDead , self ) + + return self +end + +--- Report Goal Progress. +-- @param Group DestroyGroup Group structure describing the group to be evaluated. +-- @param Unit DestroyUnit Unit structure describing the Unit to be evaluated. +function DESTROYRADARSTASK:ReportGoalProgress( DestroyGroup, DestroyUnit ) + self:F( { DestroyGroup, DestroyUnit } ) + + local DestroyCount = 0 + if DestroyUnit and DestroyUnit:hasSensors( Unit.SensorType.RADAR, Unit.RadarType.AS ) then + if DestroyUnit and DestroyUnit:getLife() <= 1.0 then + self:T( 'Destroyed a radar' ) + DestroyCount = 1 + end + end + return DestroyCount +end +--- Set TASK to destroy certain unit types. +-- @module DESTROYUNITTYPESTASK + + + +--- The DESTROYUNITTYPESTASK class +-- @type +DESTROYUNITTYPESTASK = { + ClassName = "DESTROYUNITTYPESTASK", + GoalVerb = "Destroy", +} + +--- Creates a new DESTROYUNITTYPESTASK. +-- @param string DestroyGroupType String describing the group to be destroyed. f.e. "Radar Installations", "Fleet", "Batallion", "Command Centers". +-- @param string DestroyUnitType String describing the unit to be destroyed. f.e. "radars", "ships", "tanks", "centers". +-- @param table{string,...} DestroyGroupNames Table of string containing the group names of which the radars are be destroyed. +-- @param string DestroyUnitTypes Table of string containing the type names of the units to achieve mission success. +-- @return DESTROYUNITTYPESTASK +function DESTROYUNITTYPESTASK:New( DestroyGroupType, DestroyUnitType, DestroyGroupNames, DestroyUnitTypes ) + local self = BASE:Inherit( self, DESTROYBASETASK:New( DestroyGroupType, DestroyUnitType, DestroyGroupNames ) ) + self:F( { DestroyGroupType, DestroyUnitType, DestroyGroupNames, DestroyUnitTypes } ) + + if type(DestroyUnitTypes) == 'table' then + self.DestroyUnitTypes = DestroyUnitTypes + else + self.DestroyUnitTypes = { DestroyUnitTypes } + end + + self.Name = 'Destroy Unit Types' + self.GoalVerb = "Destroy " .. DestroyGroupType + + _EVENTDISPATCHER:OnDead( self.EventDead , self ) + + return self +end + +--- Report Goal Progress. +-- @param Group DestroyGroup Group structure describing the group to be evaluated. +-- @param Unit DestroyUnit Unit structure describing the Unit to be evaluated. +function DESTROYUNITTYPESTASK:ReportGoalProgress( DestroyGroup, DestroyUnit ) + self:F( { DestroyGroup, DestroyUnit } ) + + local DestroyCount = 0 + for UnitTypeID, UnitType in pairs( self.DestroyUnitTypes ) do + if DestroyUnit and DestroyUnit:getTypeName() == UnitType then + if DestroyUnit and DestroyUnit:getLife() <= 1.0 then + DestroyCount = DestroyCount + 1 + end + end + end + return DestroyCount +end +--- A PICKUPTASK orchestrates the loading of CARGO at a specific landing zone. +-- @module PICKUPTASK +-- @parent TASK + +--- The PICKUPTASK class +-- @type +PICKUPTASK = { + ClassName = "PICKUPTASK", + TEXT = { "Pick-Up", "picked-up", "loaded" }, + GoalVerb = "Pick-Up" +} + +--- Creates a new PICKUPTASK. +-- @param table{string,...}|string LandingZones Table of Zone names where Cargo is to be loaded. +-- @param CARGO_TYPE CargoType Type of the Cargo. The type must be of the following Enumeration:.. +-- @param number OnBoardSide Reflects from which side the cargo Group will be on-boarded on the Carrier. +function PICKUPTASK:New( CargoType, OnBoardSide ) + local self = BASE:Inherit( self, TASK:New() ) + self:F() + + -- self holds the inherited instance of the PICKUPTASK Class to the BASE class. + + local Valid = true + + if Valid then + self.Name = 'Pickup Cargo' + self.TaskBriefing = "Task: Fly to the indicated landing zones and pickup " .. CargoType .. ". Your co-pilot will provide you with the directions (required flight angle in degrees) and the distance (in km) to the pickup zone." + self.CargoType = CargoType + self.GoalVerb = CargoType .. " " .. self.GoalVerb + self.OnBoardSide = OnBoardSide + self.IsLandingRequired = true -- required to decide whether the client needs to land or not + self.IsSlingLoad = false -- Indicates whether the cargo is a sling load cargo + self.Stages = { STAGE_CARGO_INIT:New(), STAGE_CARGO_LOAD:New(), STAGEBRIEF:New(), STAGESTART:New(), STAGEROUTE:New(), STAGELANDING:New(), STAGELANDED:New(), STAGELOAD:New(), STAGEDONE:New() } + self.SetStage( self, 1 ) + end + + return self +end + +function PICKUPTASK:FromZone( LandingZone ) + self:F() + + self.LandingZones.LandingZoneNames[LandingZone.CargoZoneName] = LandingZone.CargoZoneName + self.LandingZones.LandingZones[LandingZone.CargoZoneName] = LandingZone + + return self +end + +function PICKUPTASK:InitCargo( InitCargos ) + self:F( { InitCargos } ) + + if type( InitCargos ) == "table" then + self.Cargos.InitCargos = InitCargos + else + self.Cargos.InitCargos = { InitCargos } + end + + return self +end + +function PICKUPTASK:LoadCargo( LoadCargos ) + self:F( { LoadCargos } ) + + if type( LoadCargos ) == "table" then + self.Cargos.LoadCargos = LoadCargos + else + self.Cargos.LoadCargos = { LoadCargos } + end + + return self +end + +function PICKUPTASK:AddCargoMenus( Client, Cargos, TransportRadius ) + self:F() + + for CargoID, Cargo in pairs( Cargos ) do + + self:T( { Cargo.ClassName, Cargo.CargoName, Cargo.CargoType, Cargo:IsStatusNone(), Cargo:IsStatusLoaded(), Cargo:IsStatusLoading(), Cargo:IsStatusUnLoaded() } ) + + -- If the Cargo has no status, allow the menu option. + if Cargo:IsStatusNone() or ( Cargo:IsStatusLoading() and Client == Cargo:IsLoadingToClient() ) then + + local MenuAdd = false + if Cargo:IsNear( Client, self.CurrentCargoZone ) then + MenuAdd = true + end + + if MenuAdd then + if Client._Menus[Cargo.CargoType] == nil then + Client._Menus[Cargo.CargoType] = {} + end + + if not Client._Menus[Cargo.CargoType].PickupMenu then + Client._Menus[Cargo.CargoType].PickupMenu = missionCommands.addSubMenuForGroup( + Client:GetClientGroupID(), + self.TEXT[1] .. " " .. Cargo.CargoType, + nil + ) + self:T( 'Added PickupMenu: ' .. self.TEXT[1] .. " " .. Cargo.CargoType ) + end + + if Client._Menus[Cargo.CargoType].PickupSubMenus == nil then + Client._Menus[Cargo.CargoType].PickupSubMenus = {} + end + + Client._Menus[Cargo.CargoType].PickupSubMenus[ #Client._Menus[Cargo.CargoType].PickupSubMenus + 1 ] = missionCommands.addCommandForGroup( + Client:GetClientGroupID(), + Cargo.CargoName .. " ( " .. Cargo.CargoWeight .. "kg )", + Client._Menus[Cargo.CargoType].PickupMenu, + self.MenuAction, + { ReferenceTask = self, CargoTask = Cargo } + ) + self:T( 'Added PickupSubMenu' .. Cargo.CargoType .. ":" .. Cargo.CargoName .. " ( " .. Cargo.CargoWeight .. "kg )" ) + end + end + end + +end + +function PICKUPTASK:RemoveCargoMenus( Client ) + self:F() + + for MenuID, MenuData in pairs( Client._Menus ) do + for SubMenuID, SubMenuData in pairs( MenuData.PickupSubMenus ) do + missionCommands.removeItemForGroup( Client:GetClientGroupID(), SubMenuData ) + self:T( "Removed PickupSubMenu " ) + SubMenuData = nil + end + if MenuData.PickupMenu then + missionCommands.removeItemForGroup( Client:GetClientGroupID(), MenuData.PickupMenu ) + self:T( "Removed PickupMenu " ) + MenuData.PickupMenu = nil + end + end + + for CargoID, Cargo in pairs( CARGOS ) do + self:T( { Cargo.ClassName, Cargo.CargoName, Cargo.CargoType, Cargo:IsStatusNone(), Cargo:IsStatusLoaded(), Cargo:IsStatusLoading(), Cargo:IsStatusUnLoaded() } ) + if Cargo:IsStatusLoading() and Client == Cargo:IsLoadingToClient() then + Cargo:StatusNone() + end + end + +end + + + +function PICKUPTASK:HasFailed( ClientDead ) + self:F() + + local TaskHasFailed = self.TaskFailed + return TaskHasFailed +end + +--- A DEPLOYTASK orchestrates the deployment of CARGO within a specific landing zone. +-- @module DEPLOYTASK + + + +--- A DeployTask +-- @type DEPLOYTASK +DEPLOYTASK = { + ClassName = "DEPLOYTASK", + TEXT = { "Deploy", "deployed", "unloaded" }, + GoalVerb = "Deployment" +} + + +--- Creates a new DEPLOYTASK object, which models the sequence of STAGEs to unload a cargo. +-- @function [parent=#DEPLOYTASK] New +-- @param #string CargoType Type of the Cargo. +-- @return #DEPLOYTASK The created DeployTask +function DEPLOYTASK:New( CargoType ) + local self = BASE:Inherit( self, TASK:New() ) + self:F() + + local Valid = true + + if Valid then + self.Name = 'Deploy Cargo' + self.TaskBriefing = "Fly to one of the indicated landing zones and deploy " .. CargoType .. ". Your co-pilot will provide you with the directions (required flight angle in degrees) and the distance (in km) to the deployment zone." + self.CargoType = CargoType + self.GoalVerb = CargoType .. " " .. self.GoalVerb + self.Stages = { STAGE_CARGO_INIT:New(), STAGE_CARGO_LOAD:New(), STAGEBRIEF:New(), STAGESTART:New(), STAGEROUTE:New(), STAGELANDING:New(), STAGELANDED:New(), STAGEUNLOAD:New(), STAGEDONE:New() } + self.SetStage( self, 1 ) + end + + return self +end + +function DEPLOYTASK:ToZone( LandingZone ) + self:F() + + self.LandingZones.LandingZoneNames[LandingZone.CargoZoneName] = LandingZone.CargoZoneName + self.LandingZones.LandingZones[LandingZone.CargoZoneName] = LandingZone + + return self +end + + +function DEPLOYTASK:InitCargo( InitCargos ) + self:F( { InitCargos } ) + + if type( InitCargos ) == "table" then + self.Cargos.InitCargos = InitCargos + else + self.Cargos.InitCargos = { InitCargos } + end + + return self +end + + +function DEPLOYTASK:LoadCargo( LoadCargos ) + self:F( { LoadCargos } ) + + if type( LoadCargos ) == "table" then + self.Cargos.LoadCargos = LoadCargos + else + self.Cargos.LoadCargos = { LoadCargos } + end + + return self +end + + +--- When the cargo is unloaded, it will move to the target zone name. +-- @param string TargetZoneName Name of the Zone to where the Cargo should move after unloading. +function DEPLOYTASK:SetCargoTargetZoneName( TargetZoneName ) + self:F() + + local Valid = true + + Valid = routines.ValidateString( TargetZoneName, "TargetZoneName", Valid ) + + if Valid then + self.TargetZoneName = TargetZoneName + end + + return Valid + +end + +function DEPLOYTASK:AddCargoMenus( Client, Cargos, TransportRadius ) + self:F() + + local ClientGroupID = Client:GetClientGroupID() + + self:T( ClientGroupID ) + + for CargoID, Cargo in pairs( Cargos ) do + + self:T( { Cargo.ClassName, Cargo.CargoName, Cargo.CargoType, Cargo.CargoWeight } ) + + if Cargo:IsStatusLoaded() and Client == Cargo:IsLoadedInClient() then + + if Client._Menus[Cargo.CargoType] == nil then + Client._Menus[Cargo.CargoType] = {} + end + + if not Client._Menus[Cargo.CargoType].DeployMenu then + Client._Menus[Cargo.CargoType].DeployMenu = missionCommands.addSubMenuForGroup( + ClientGroupID, + self.TEXT[1] .. " " .. Cargo.CargoType, + nil + ) + self:T( 'Added DeployMenu ' .. self.TEXT[1] ) + end + + if Client._Menus[Cargo.CargoType].DeploySubMenus == nil then + Client._Menus[Cargo.CargoType].DeploySubMenus = {} + end + + if Client._Menus[Cargo.CargoType].DeployMenu == nil then + self:T( 'deploymenu is nil' ) + end + + Client._Menus[Cargo.CargoType].DeploySubMenus[ #Client._Menus[Cargo.CargoType].DeploySubMenus + 1 ] = missionCommands.addCommandForGroup( + ClientGroupID, + Cargo.CargoName .. " ( " .. Cargo.CargoWeight .. "kg )", + Client._Menus[Cargo.CargoType].DeployMenu, + self.MenuAction, + { ReferenceTask = self, CargoTask = Cargo } + ) + self:T( 'Added DeploySubMenu ' .. Cargo.CargoType .. ":" .. Cargo.CargoName .. " ( " .. Cargo.CargoWeight .. "kg )" ) + end + end + +end + +function DEPLOYTASK:RemoveCargoMenus( Client ) + self:F() + + local ClientGroupID = Client:GetClientGroupID() + self:T( ClientGroupID ) + + for MenuID, MenuData in pairs( Client._Menus ) do + if MenuData.DeploySubMenus ~= nil then + for SubMenuID, SubMenuData in pairs( MenuData.DeploySubMenus ) do + missionCommands.removeItemForGroup( ClientGroupID, SubMenuData ) + self:T( "Removed DeploySubMenu " ) + SubMenuData = nil + end + end + if MenuData.DeployMenu then + missionCommands.removeItemForGroup( ClientGroupID, MenuData.DeployMenu ) + self:T( "Removed DeployMenu " ) + MenuData.DeployMenu = nil + end + end + +end +--- A NOTASK is a dummy activity... But it will show a Mission Briefing... +-- @module NOTASK + +--- The NOTASK class +-- @type +NOTASK = { + ClassName = "NOTASK", +} + +--- Creates a new NOTASK. +function NOTASK:New() + local self = BASE:Inherit( self, TASK:New() ) + self:F() + + local Valid = true + + if Valid then + self.Name = 'Nothing' + self.TaskBriefing = "Task: Execute your mission." + self.Stages = { STAGEBRIEF:New(), STAGESTART:New(), STAGEDONE:New() } + self.SetStage( self, 1 ) + end + + return self +end +--- A ROUTETASK orchestrates the travel to a specific zone defined within the ME. +-- @module ROUTETASK + +--- The ROUTETASK class +-- @type +ROUTETASK = { + ClassName = "ROUTETASK", + GoalVerb = "Route", +} + +--- Creates a new ROUTETASK. +-- @param table{sring,...}|string LandingZones Table of Zone Names where the target is located. +-- @param string TaskBriefing (optional) Defines a text describing the briefing of the task. +-- @return ROUTETASK +function ROUTETASK:New( LandingZones, TaskBriefing ) + local self = BASE:Inherit( self, TASK:New() ) + self:F( { LandingZones, TaskBriefing } ) + + local Valid = true + + Valid = routines.ValidateZone( LandingZones, "LandingZones", Valid ) + + if Valid then + self.Name = 'Route To Zone' + if TaskBriefing then + self.TaskBriefing = TaskBriefing .. " Your co-pilot will provide you with the directions (required flight angle in degrees) and the distance (in km) to the target objective." + else + self.TaskBriefing = "Task: Fly to specified zone(s). Your co-pilot will provide you with the directions (required flight angle in degrees) and the distance (in km) to the target objective." + end + if type( LandingZones ) == "table" then + self.LandingZones = LandingZones + else + self.LandingZones = { LandingZones } + end + self.Stages = { STAGEBRIEF:New(), STAGESTART:New(), STAGEROUTE:New(), STAGEARRIVE:New(), STAGEDONE:New() } + self.SetStage( self, 1 ) + end + + return self +end + +--- A MISSION is the main owner of a Mission orchestration within MOOSE . The Mission framework orchestrates @{CLIENT}s, @{TASK}s, @{STAGE}s etc. +-- A @{CLIENT} needs to be registered within the @{MISSION} through the function @{AddClient}. A @{TASK} needs to be registered within the @{MISSION} through the function @{AddTask}. +-- @module Mission + +--- The MISSION class +-- @type MISSION +-- @extends Base#BASE +-- @field #MISSION.Clients _Clients +-- @field #string MissionBriefing +MISSION = { + ClassName = "MISSION", + Name = "", + MissionStatus = "PENDING", + _Clients = {}, + _Tasks = {}, + _ActiveTasks = {}, + GoalFunction = nil, + MissionReportTrigger = 0, + MissionProgressTrigger = 0, + MissionReportShow = false, + MissionReportFlash = false, + MissionTimeInterval = 0, + MissionCoalition = "", + SUCCESS = 1, + FAILED = 2, + REPEAT = 3, + _GoalTasks = {} +} + +--- @type MISSION.Clients +-- @list + +function MISSION:Meta() + + local self = BASE:Inherit( self, BASE:New() ) + self:F() + + return self +end + +--- This is the main MISSION declaration method. Each Mission is like the master or a Mission orchestration between, Clients, Tasks, Stages etc. +-- @param string MissionName is the name of the mission. This name will be used to reference the status of each mission by the players. +-- @param string MissionPriority is a string indicating the "priority" of the Mission. f.e. "Primary", "Secondary" or "First", "Second". It is free format and up to the Mission designer to choose. There are no rules behind this field. +-- @param string MissionBriefing is a string indicating the mission briefing to be shown when a player joins a @{CLIENT}. +-- @param string MissionCoalition is a string indicating the coalition or party to which this mission belongs to. It is free format and can be chosen freely by the mission designer. Note that this field is not to be confused with the coalition concept of the ME. Examples of a Mission Coalition could be "NATO", "CCCP", "Intruders", "Terrorists"... +-- @return MISSION +-- @usage +-- -- Declare a few missions. +-- local Mission = MISSIONSCHEDULER.AddMission( 'Russia Transport Troops SA-6', 'Operational', 'Transport troops from the control center to one of the SA-6 SAM sites to activate their operation.', 'Russia' ) +-- local Mission = MISSIONSCHEDULER.AddMission( 'Patriots', 'Primary', 'Our intelligence reports that 3 Patriot SAM defense batteries are located near Ruisi, Kvarhiti and Gori.', 'Russia' ) +-- local Mission = MISSIONSCHEDULER.AddMission( 'Package Delivery', 'Operational', 'In order to be in full control of the situation, we need you to deliver a very important package at a secret location. Fly undetected through the NATO defenses and deliver the secret package. The secret agent is located at waypoint 4.', 'Russia' ) +-- local Mission = MISSIONSCHEDULER.AddMission( 'Rescue General', 'Tactical', 'Our intelligence has received a remote signal behind Gori. We believe it is a very important Russian General that was captured by Georgia. Go out there and rescue him! Ensure you stay out of the battle zone, keep south. Waypoint 4 is the location of our Russian General.', 'Russia' ) +-- local Mission = MISSIONSCHEDULER.AddMission( 'NATO Transport Troops', 'Operational', 'Transport 3 groups of air defense engineers from our barracks "Gold" and "Titan" to each patriot battery control center to activate our air defenses.', 'NATO' ) +-- local Mission = MISSIONSCHEDULER.AddMission( 'SA-6 SAMs', 'Primary', 'Our intelligence reports that 3 SA-6 SAM defense batteries are located near Didmukha, Khetagurov and Berula. Eliminate the Russian SAMs.', 'NATO' ) +-- local Mission = MISSIONSCHEDULER.AddMission( 'NATO Sling Load', 'Operational', 'Fly to the cargo pickup zone at Dzegvi or Kaspi, and sling the cargo to Soganlug airbase.', 'NATO' ) +-- local Mission = MISSIONSCHEDULER.AddMission( 'Rescue secret agent', 'Tactical', 'In order to be in full control of the situation, we need you to rescue a secret agent from the woods behind enemy lines. Avoid the Russian defenses and rescue the agent. Keep south until Khasuri, and keep your eyes open for any SAM presence. The agent is located at waypoint 4 on your kneeboard.', 'NATO' ) +function MISSION:New( MissionName, MissionPriority, MissionBriefing, MissionCoalition ) + + self = MISSION:Meta() + self:T({ MissionName, MissionPriority, MissionBriefing, MissionCoalition }) + + local Valid = true + + Valid = routines.ValidateString( MissionName, "MissionName", Valid ) + Valid = routines.ValidateString( MissionPriority, "MissionPriority", Valid ) + Valid = routines.ValidateString( MissionBriefing, "MissionBriefing", Valid ) + Valid = routines.ValidateString( MissionCoalition, "MissionCoalition", Valid ) + + if Valid then + self.Name = MissionName + self.MissionPriority = MissionPriority + self.MissionBriefing = MissionBriefing + self.MissionCoalition = MissionCoalition + end + + return self +end + +--- Returns if a Mission has completed. +-- @return bool +function MISSION:IsCompleted() + self:F() + return self.MissionStatus == "ACCOMPLISHED" +end + +--- Set a Mission to completed. +function MISSION:Completed() + self:F() + self.MissionStatus = "ACCOMPLISHED" + self:StatusToClients() +end + +--- Returns if a Mission is ongoing. +-- treturn bool +function MISSION:IsOngoing() + self:F() + return self.MissionStatus == "ONGOING" +end + +--- Set a Mission to ongoing. +function MISSION:Ongoing() + self:F() + self.MissionStatus = "ONGOING" + --self:StatusToClients() +end + +--- Returns if a Mission is pending. +-- treturn bool +function MISSION:IsPending() + self:F() + return self.MissionStatus == "PENDING" +end + +--- Set a Mission to pending. +function MISSION:Pending() + self:F() + self.MissionStatus = "PENDING" + self:StatusToClients() +end + +--- Returns if a Mission has failed. +-- treturn bool +function MISSION:IsFailed() + self:F() + return self.MissionStatus == "FAILED" +end + +--- Set a Mission to failed. +function MISSION:Failed() + self:F() + self.MissionStatus = "FAILED" + self:StatusToClients() +end + +--- Send the status of the MISSION to all Clients. +function MISSION:StatusToClients() + self:F() + if self.MissionReportFlash then + for ClientID, Client in pairs( self._Clients ) do + Client:Message( self.MissionCoalition .. ' "' .. self.Name .. '": ' .. self.MissionStatus .. '! ( ' .. self.MissionPriority .. ' mission ) ', 10, "Mission Command: Mission Status") + end + end +end + +--- Handles the reporting. After certain time intervals, a MISSION report MESSAGE will be shown to All Players. +function MISSION:ReportTrigger() + self:F() + + if self.MissionReportShow == true then + self.MissionReportShow = false + return true + else + if self.MissionReportFlash == true then + if timer.getTime() >= self.MissionReportTrigger then + self.MissionReportTrigger = timer.getTime() + self.MissionTimeInterval + return true + else + return false + end + else + return false + end + end +end + +--- Report the status of all MISSIONs to all active Clients. +function MISSION:ReportToAll() + self:F() + + local AlivePlayers = '' + for ClientID, Client in pairs( self._Clients ) do + if Client:GetDCSGroup() then + if Client:GetClientGroupDCSUnit() then + if Client:GetClientGroupDCSUnit():getLife() > 0.0 then + if AlivePlayers == '' then + AlivePlayers = ' Players: ' .. Client:GetClientGroupDCSUnit():getPlayerName() + else + AlivePlayers = AlivePlayers .. ' / ' .. Client:GetClientGroupDCSUnit():getPlayerName() + end + end + end + end + end + local Tasks = self:GetTasks() + local TaskText = "" + for TaskID, TaskData in pairs( Tasks ) do + TaskText = TaskText .. " - Task " .. TaskID .. ": " .. TaskData.Name .. ": " .. TaskData:GetGoalProgress() .. "\n" + end + MESSAGE:New( self.MissionCoalition .. ' "' .. self.Name .. '": ' .. self.MissionStatus .. ' ( ' .. self.MissionPriority .. ' mission )' .. AlivePlayers .. "\n" .. TaskText:gsub("\n$",""), 10, "Mission Command: Mission Report" ):ToAll() +end + + +--- Add a goal function to a MISSION. Goal functions are called when a @{TASK} within a mission has been completed. +-- @param function GoalFunction is the function defined by the mission designer to evaluate whether a certain goal has been reached after a @{TASK} finishes within the @{MISSION}. A GoalFunction must accept 2 parameters: Mission, Client, which contains the current MISSION object and the current CLIENT object respectively. +-- @usage +-- PatriotActivation = { +-- { "US SAM Patriot Zerti", false }, +-- { "US SAM Patriot Zegduleti", false }, +-- { "US SAM Patriot Gvleti", false } +-- } +-- +-- function DeployPatriotTroopsGoal( Mission, Client ) +-- +-- +-- -- Check if the cargo is all deployed for mission success. +-- for CargoID, CargoData in pairs( Mission._Cargos ) do +-- if Group.getByName( CargoData.CargoGroupName ) then +-- CargoGroup = Group.getByName( CargoData.CargoGroupName ) +-- if CargoGroup then +-- -- Check if the cargo is ready to activate +-- CurrentLandingZoneID = routines.IsUnitInZones( CargoGroup:getUnits()[1], Mission:GetTask( 2 ).LandingZones ) -- The second task is the Deploytask to measure mission success upon +-- if CurrentLandingZoneID then +-- if PatriotActivation[CurrentLandingZoneID][2] == false then +-- -- Now check if this is a new Mission Task to be completed... +-- trigger.action.setGroupAIOn( Group.getByName( PatriotActivation[CurrentLandingZoneID][1] ) ) +-- PatriotActivation[CurrentLandingZoneID][2] = true +-- MessageToBlue( "Mission Command: Message to all airborne units! The " .. PatriotActivation[CurrentLandingZoneID][1] .. " is armed. Our air defenses are now stronger.", 60, "BLUE/PatriotDefense" ) +-- MessageToRed( "Mission Command: Our satellite systems are detecting additional NATO air defenses. To all airborne units: Take care!!!", 60, "RED/PatriotDefense" ) +-- Mission:GetTask( 2 ):AddGoalCompletion( "Patriots activated", PatriotActivation[CurrentLandingZoneID][1], 1 ) -- Register Patriot activation as part of mission goal. +-- end +-- end +-- end +-- end +-- end +-- end +-- +-- local Mission = MISSIONSCHEDULER.AddMission( 'NATO Transport Troops', 'Operational', 'Transport 3 groups of air defense engineers from our barracks "Gold" and "Titan" to each patriot battery control center to activate our air defenses.', 'NATO' ) +-- Mission:AddGoalFunction( DeployPatriotTroopsGoal ) +function MISSION:AddGoalFunction( GoalFunction ) + self:F() + self.GoalFunction = GoalFunction +end + +--- Register a new @{CLIENT} to participate within the mission. +-- @param CLIENT Client is the @{CLIENT} object. The object must have been instantiated with @{CLIENT:New}. +-- @return CLIENT +-- @usage +-- Add a number of Client objects to the Mission. +-- Mission:AddClient( CLIENT:FindByName( 'US UH-1H*HOT-Deploy Troops 1', 'Transport 3 groups of air defense engineers from our barracks "Gold" and "Titan" to each patriot battery control center to activate our air defenses.' ):Transport() ) +-- Mission:AddClient( CLIENT:FindByName( 'US UH-1H*RAMP-Deploy Troops 3', 'Transport 3 groups of air defense engineers from our barracks "Gold" and "Titan" to each patriot battery control center to activate our air defenses.' ):Transport() ) +-- Mission:AddClient( CLIENT:FindByName( 'US UH-1H*HOT-Deploy Troops 2', 'Transport 3 groups of air defense engineers from our barracks "Gold" and "Titan" to each patriot battery control center to activate our air defenses.' ):Transport() ) +-- Mission:AddClient( CLIENT:FindByName( 'US UH-1H*RAMP-Deploy Troops 4', 'Transport 3 groups of air defense engineers from our barracks "Gold" and "Titan" to each patriot battery control center to activate our air defenses.' ):Transport() ) +function MISSION:AddClient( Client ) + self:F( { Client } ) + + local Valid = true + + if Valid then + self._Clients[Client.ClientName] = Client + end + + return Client +end + +--- Find a @{CLIENT} object within the @{MISSION} by its ClientName. +-- @param CLIENT ClientName is a string defining the Client Group as defined within the ME. +-- @return CLIENT +-- @usage +-- -- Seach for Client "Bomber" within the Mission. +-- local BomberClient = Mission:FindClient( "Bomber" ) +function MISSION:FindClient( ClientName ) + self:F( { self._Clients[ClientName] } ) + return self._Clients[ClientName] +end + + +--- Register a @{TASK} to be completed within the @{MISSION}. Note that there can be multiple @{TASK}s registered to be completed. Each TASK can be set a certain Goal. The MISSION will not be completed until all Goals are reached. +-- @param TASK Task is the @{TASK} object. The object must have been instantiated with @{TASK:New} or any of its inherited @{TASK}s. +-- @param number TaskNumber is the sequence number of the TASK within the MISSION. This number does have to be chronological. +-- @return TASK +-- @usage +-- -- Define a few tasks for the Mission. +-- PickupZones = { "NATO Gold Pickup Zone", "NATO Titan Pickup Zone" } +-- PickupSignalUnits = { "NATO Gold Coordination Center", "NATO Titan Coordination Center" } +-- +-- -- Assign the Pickup Task +-- local PickupTask = PICKUPTASK:New( PickupZones, CARGO_TYPE.ENGINEERS, CLIENT.ONBOARDSIDE.LEFT ) +-- PickupTask:AddSmokeBlue( PickupSignalUnits ) +-- PickupTask:SetGoalTotal( 3 ) +-- Mission:AddTask( PickupTask, 1 ) +-- +-- -- Assign the Deploy Task +-- local PatriotActivationZones = { "US Patriot Battery 1 Activation", "US Patriot Battery 2 Activation", "US Patriot Battery 3 Activation" } +-- local PatriotActivationZonesSmokeUnits = { "US SAM Patriot - Battery 1 Control", "US SAM Patriot - Battery 2 Control", "US SAM Patriot - Battery 3 Control" } +-- local DeployTask = DEPLOYTASK:New( PatriotActivationZones, CARGO_TYPE.ENGINEERS ) +-- --DeployTask:SetCargoTargetZoneName( 'US Troops Attack ' .. math.random(2) ) +-- DeployTask:AddSmokeBlue( PatriotActivationZonesSmokeUnits ) +-- DeployTask:SetGoalTotal( 3 ) +-- DeployTask:SetGoalTotal( 3, "Patriots activated" ) +-- Mission:AddTask( DeployTask, 2 ) + +function MISSION:AddTask( Task, TaskNumber ) + self:F() + + self._Tasks[TaskNumber] = Task + self._Tasks[TaskNumber]:EnableEvents() + self._Tasks[TaskNumber].ID = TaskNumber + + return Task + end + +--- Get the TASK idenified by the TaskNumber from the Mission. This function is useful in GoalFunctions. +-- @param number TaskNumber is the number of the @{TASK} within the @{MISSION}. +-- @return TASK +-- @usage +-- -- Get Task 2 from the Mission. +-- Task2 = Mission:GetTask( 2 ) + +function MISSION:GetTask( TaskNumber ) + self:F() + + local Valid = true + + local Task = nil + + if type(TaskNumber) ~= "number" then + Valid = false + end + + if Valid then + Task = self._Tasks[TaskNumber] + end + + return Task +end + +--- Get all the TASKs from the Mission. This function is useful in GoalFunctions. +-- @return {TASK,...} Structure of TASKS with the @{TASK} number as the key. +-- @usage +-- -- Get Tasks from the Mission. +-- Tasks = Mission:GetTasks() +-- env.info( "Task 2 Completion = " .. Tasks[2]:GetGoalPercentage() .. "%" ) +function MISSION:GetTasks() + self:F() + + return self._Tasks +end + + +--[[ + _TransportExecuteStage: Defines the different stages of Transport unload/load execution. This table is internal and is used to control the validity of Transport load/unload timing. + + - _TransportExecuteStage.EXECUTING + - _TransportExecuteStage.SUCCESS + - _TransportExecuteStage.FAILED + +--]] +_TransportExecuteStage = { + NONE = 0, + EXECUTING = 1, + SUCCESS = 2, + FAILED = 3 +} + + +--- The MISSIONSCHEDULER is an OBJECT and is the main scheduler of ALL active MISSIONs registered within this scheduler. It's workings are considered internal and is automatically created when the Mission.lua file is included. +-- @type MISSIONSCHEDULER +-- @field #MISSIONSCHEDULER.MISSIONS Missions +MISSIONSCHEDULER = { + Missions = {}, + MissionCount = 0, + TimeIntervalCount = 0, + TimeIntervalShow = 150, + TimeSeconds = 14400, + TimeShow = 5 +} + +--- @type MISSIONSCHEDULER.MISSIONS +-- @list <#MISSION> Mission + +--- This is the main MISSIONSCHEDULER Scheduler function. It is considered internal and is automatically created when the Mission.lua file is included. +function MISSIONSCHEDULER.Scheduler() + + + -- loop through the missions in the TransportTasks + for MissionName, MissionData in pairs( MISSIONSCHEDULER.Missions ) do + + local Mission = MissionData -- #MISSION + + if not Mission:IsCompleted() then + + -- This flag will monitor if for this mission, there are clients alive. If this flag is still false at the end of the loop, the mission status will be set to Pending (if not Failed or Completed). + local ClientsAlive = false + + for ClientID, ClientData in pairs( Mission._Clients ) do + + local Client = ClientData -- Client#CLIENT + + if Client:IsAlive() then + + -- There is at least one Client that is alive... So the Mission status is set to Ongoing. + ClientsAlive = true + + -- If this Client was not registered as Alive before: + -- 1. We register the Client as Alive. + -- 2. We initialize the Client Tasks and make a link to the original Mission Task. + -- 3. We initialize the Cargos. + -- 4. We flag the Mission as Ongoing. + if not Client.ClientAlive then + Client.ClientAlive = true + Client.ClientBriefingShown = false + for TaskNumber, Task in pairs( Mission._Tasks ) do + -- Note that this a deepCopy. Each client must have their own Tasks with own Stages!!! + Client._Tasks[TaskNumber] = routines.utils.deepCopy( Mission._Tasks[TaskNumber] ) + -- Each MissionTask must point to the original Mission. + Client._Tasks[TaskNumber].MissionTask = Mission._Tasks[TaskNumber] + Client._Tasks[TaskNumber].Cargos = Mission._Tasks[TaskNumber].Cargos + Client._Tasks[TaskNumber].LandingZones = Mission._Tasks[TaskNumber].LandingZones + end + + Mission:Ongoing() + end + + + -- For each Client, check for each Task the state and evolve the mission. + -- This flag will indicate if the Task of the Client is Complete. + local TaskComplete = false + + for TaskNumber, Task in pairs( Client._Tasks ) do + + if not Task.Stage then + Task:SetStage( 1 ) + end + + + local TransportTime = timer.getTime() + + if not Task:IsDone() then + + if Task:Goal() then + Task:ShowGoalProgress( Mission, Client ) + end + + --env.info( 'Scheduler: Mission = ' .. Mission.Name .. ' / Client = ' .. Client.ClientName .. ' / Task = ' .. Task.Name .. ' / Stage = ' .. Task.ActiveStage .. ' - ' .. Task.Stage.Name .. ' - ' .. Task.Stage.StageType ) + + -- Action + if Task:StageExecute() then + Task.Stage:Execute( Mission, Client, Task ) + end + + -- Wait until execution is finished + if Task.ExecuteStage == _TransportExecuteStage.EXECUTING then + Task.Stage:Executing( Mission, Client, Task ) + end + + -- Validate completion or reverse to earlier stage + if Task.Time + Task.Stage.WaitTime <= TransportTime then + Task:SetStage( Task.Stage:Validate( Mission, Client, Task ) ) + end + + if Task:IsDone() then + --env.info( 'Scheduler: Mission '.. Mission.Name .. ' Task ' .. Task.Name .. ' Stage ' .. Task.Stage.Name .. ' done. TaskComplete = ' .. string.format ( "%s", TaskComplete and "true" or "false" ) ) + TaskComplete = true -- when a task is not yet completed, a mission cannot be completed + + else + -- break only if this task is not yet done, so that future task are not yet activated. + TaskComplete = false -- when a task is not yet completed, a mission cannot be completed + --env.info( 'Scheduler: Mission "'.. Mission.Name .. '" Task "' .. Task.Name .. '" Stage "' .. Task.Stage.Name .. '" break. TaskComplete = ' .. string.format ( "%s", TaskComplete and "true" or "false" ) ) + break + end + + if TaskComplete then + + if Mission.GoalFunction ~= nil then + Mission.GoalFunction( Mission, Client ) + end + if MISSIONSCHEDULER.Scoring then + MISSIONSCHEDULER.Scoring:_AddMissionTaskScore( Client:GetClientGroupDCSUnit(), Mission.Name, 25 ) + end + +-- if not Mission:IsCompleted() then +-- end + end + end + end + + local MissionComplete = true + for TaskNumber, Task in pairs( Mission._Tasks ) do + if Task:Goal() then +-- Task:ShowGoalProgress( Mission, Client ) + if Task:IsGoalReached() then + else + MissionComplete = false + end + else + MissionComplete = false -- If there is no goal, the mission should never be ended. The goal status will be set somewhere else. + end + end + + if MissionComplete then + Mission:Completed() + if MISSIONSCHEDULER.Scoring then + MISSIONSCHEDULER.Scoring:_AddMissionScore( Mission.Name, 100 ) + end + else + if TaskComplete then + -- Reset for new tasking of active client + Client.ClientAlive = false -- Reset the client tasks. + end + end + + + else + if Client.ClientAlive then + env.info( 'Scheduler: Client "' .. Client.ClientName .. '" is inactive.' ) + Client.ClientAlive = false + + -- This is tricky. If we sanitize Client._Tasks before sanitizing Client._Tasks[TaskNumber].MissionTask, then the original MissionTask will be sanitized, and will be lost within the garbage collector. + -- So first sanitize Client._Tasks[TaskNumber].MissionTask, after that, sanitize only the whole _Tasks structure... + --Client._Tasks[TaskNumber].MissionTask = nil + --Client._Tasks = nil + end + end + end + + -- If all Clients of this Mission are not activated, then the Mission status needs to be put back into Pending status. + -- But only if the Mission was Ongoing. In case the Mission is Completed or Failed, the Mission status may not be changed. In these cases, this will be the last run of this Mission in the Scheduler. + if ClientsAlive == false then + if Mission:IsOngoing() then + -- Mission status back to pending... + Mission:Pending() + end + end + end + + Mission:StatusToClients() + + if Mission:ReportTrigger() then + Mission:ReportToAll() + end + end + + return true +end + +--- Start the MISSIONSCHEDULER. +function MISSIONSCHEDULER.Start() + if MISSIONSCHEDULER ~= nil then + --MISSIONSCHEDULER.SchedulerId = routines.scheduleFunction( MISSIONSCHEDULER.Scheduler, { }, 0, 2 ) + MISSIONSCHEDULER.SchedulerId = SCHEDULER:New( nil, MISSIONSCHEDULER.Scheduler, { }, 0, 2 ) + end +end + +--- Stop the MISSIONSCHEDULER. +function MISSIONSCHEDULER.Stop() + if MISSIONSCHEDULER.SchedulerId then + routines.removeFunction(MISSIONSCHEDULER.SchedulerId) + MISSIONSCHEDULER.SchedulerId = nil + end +end + +--- This is the main MISSION declaration method. Each Mission is like the master or a Mission orchestration between, Clients, Tasks, Stages etc. +-- @param Mission is the MISSION object instantiated by @{MISSION:New}. +-- @return MISSION +-- @usage +-- -- Declare a mission. +-- Mission = MISSION:New( 'Russia Transport Troops SA-6', +-- 'Operational', +-- 'Transport troops from the control center to one of the SA-6 SAM sites to activate their operation.', +-- 'Russia' ) +-- MISSIONSCHEDULER:AddMission( Mission ) +function MISSIONSCHEDULER.AddMission( Mission ) + MISSIONSCHEDULER.Missions[Mission.Name] = Mission + MISSIONSCHEDULER.MissionCount = MISSIONSCHEDULER.MissionCount + 1 + -- Add an overall AI Client for the AI tasks... This AI Client will facilitate the Events in the background for each Task. + --MissionAdd:AddClient( CLIENT:Register( 'AI' ) ) + + return Mission +end + +--- Remove a MISSION from the MISSIONSCHEDULER. +-- @param MissionName is the name of the MISSION given at declaration using @{AddMission}. +-- @usage +-- -- Declare a mission. +-- Mission = MISSION:New( 'Russia Transport Troops SA-6', +-- 'Operational', +-- 'Transport troops from the control center to one of the SA-6 SAM sites to activate their operation.', +-- 'Russia' ) +-- MISSIONSCHEDULER:AddMission( Mission ) +-- +-- -- Now remove the Mission. +-- MISSIONSCHEDULER:RemoveMission( 'Russia Transport Troops SA-6' ) +function MISSIONSCHEDULER.RemoveMission( MissionName ) + MISSIONSCHEDULER.Missions[MissionName] = nil + MISSIONSCHEDULER.MissionCount = MISSIONSCHEDULER.MissionCount - 1 +end + +--- Find a MISSION within the MISSIONSCHEDULER. +-- @param MissionName is the name of the MISSION given at declaration using @{AddMission}. +-- @return MISSION +-- @usage +-- -- Declare a mission. +-- Mission = MISSION:New( 'Russia Transport Troops SA-6', +-- 'Operational', +-- 'Transport troops from the control center to one of the SA-6 SAM sites to activate their operation.', +-- 'Russia' ) +-- MISSIONSCHEDULER:AddMission( Mission ) +-- +-- -- Now find the Mission. +-- MissionFind = MISSIONSCHEDULER:FindMission( 'Russia Transport Troops SA-6' ) +function MISSIONSCHEDULER.FindMission( MissionName ) + return MISSIONSCHEDULER.Missions[MissionName] +end + +-- Internal function used by the MISSIONSCHEDULER menu. +function MISSIONSCHEDULER.ReportMissionsShow( ) + for MissionName, Mission in pairs( MISSIONSCHEDULER.Missions ) do + Mission.MissionReportShow = true + Mission.MissionReportFlash = false + end +end + +-- Internal function used by the MISSIONSCHEDULER menu. +function MISSIONSCHEDULER.ReportMissionsFlash( TimeInterval ) + local Count = 0 + for MissionName, Mission in pairs( MISSIONSCHEDULER.Missions ) do + Mission.MissionReportShow = false + Mission.MissionReportFlash = true + Mission.MissionReportTrigger = timer.getTime() + Count * TimeInterval + Mission.MissionTimeInterval = MISSIONSCHEDULER.MissionCount * TimeInterval + env.info( "TimeInterval = " .. Mission.MissionTimeInterval ) + Count = Count + 1 + end +end + +-- Internal function used by the MISSIONSCHEDULER menu. +function MISSIONSCHEDULER.ReportMissionsHide( Prm ) + for MissionName, Mission in pairs( MISSIONSCHEDULER.Missions ) do + Mission.MissionReportShow = false + Mission.MissionReportFlash = false + end +end + +--- Enables a MENU option in the communications menu under F10 to control the status of the active missions. +-- This function should be called only once when starting the MISSIONSCHEDULER. +function MISSIONSCHEDULER.ReportMenu() + local ReportMenu = SUBMENU:New( 'Status' ) + local ReportMenuShow = COMMANDMENU:New( 'Show Report Missions', ReportMenu, MISSIONSCHEDULER.ReportMissionsShow, 0 ) + local ReportMenuFlash = COMMANDMENU:New('Flash Report Missions', ReportMenu, MISSIONSCHEDULER.ReportMissionsFlash, 120 ) + local ReportMenuHide = COMMANDMENU:New( 'Hide Report Missions', ReportMenu, MISSIONSCHEDULER.ReportMissionsHide, 0 ) +end + +--- Show the remaining mission time. +function MISSIONSCHEDULER:TimeShow() + self.TimeIntervalCount = self.TimeIntervalCount + 1 + if self.TimeIntervalCount >= self.TimeTriggerShow then + local TimeMsg = string.format("%00d", ( self.TimeSeconds / 60 ) - ( timer.getTime() / 60 )) .. ' minutes left until mission reload.' + MESSAGE:New( TimeMsg, self.TimeShow, "Mission time" ):ToAll() + self.TimeIntervalCount = 0 + end +end + +function MISSIONSCHEDULER:Time( TimeSeconds, TimeIntervalShow, TimeShow ) + + self.TimeIntervalCount = 0 + self.TimeSeconds = TimeSeconds + self.TimeIntervalShow = TimeIntervalShow + self.TimeShow = TimeShow +end + +--- Adds a mission scoring to the game. +function MISSIONSCHEDULER:Scoring( Scoring ) + + self.Scoring = Scoring +end + +--- The CLEANUP class keeps an area clean of crashing or colliding airplanes. It also prevents airplanes from firing within this area. +-- @module CleanUp +-- @author Flightcontrol + + + + + + + +--- The CLEANUP class. +-- @type CLEANUP +-- @extends Base#BASE +CLEANUP = { + ClassName = "CLEANUP", + ZoneNames = {}, + TimeInterval = 300, + CleanUpList = {}, +} + +--- Creates the main object which is handling the cleaning of the debris within the given Zone Names. +-- @param #CLEANUP self +-- @param #table ZoneNames Is a table of zone names where the debris should be cleaned. Also a single string can be passed with one zone name. +-- @param #number TimeInterval The interval in seconds when the clean activity takes place. The default is 300 seconds, thus every 5 minutes. +-- @return #CLEANUP +-- @usage +-- -- Clean these Zones. +-- CleanUpAirports = CLEANUP:New( { 'CLEAN Tbilisi', 'CLEAN Kutaisi' }, 150 ) +-- or +-- CleanUpTbilisi = CLEANUP:New( 'CLEAN Tbilisi', 150 ) +-- CleanUpKutaisi = CLEANUP:New( 'CLEAN Kutaisi', 600 ) +function CLEANUP:New( ZoneNames, TimeInterval ) local self = BASE:Inherit( self, BASE:New() ) + self:F( { ZoneNames, TimeInterval } ) + + if type( ZoneNames ) == 'table' then + self.ZoneNames = ZoneNames + else + self.ZoneNames = { ZoneNames } + end + if TimeInterval then + self.TimeInterval = TimeInterval + end + + _EVENTDISPATCHER:OnBirth( self._OnEventBirth, self ) + + self.CleanUpScheduler = SCHEDULER:New( self, self._CleanUpScheduler, {}, 1, TimeInterval ) + + return self +end + + +--- Destroys a group from the simulator, but checks first if it is still existing! +-- @param #CLEANUP self +-- @param DCSGroup#Group GroupObject The object to be destroyed. +-- @param #string CleanUpGroupName The groupname... +function CLEANUP:_DestroyGroup( GroupObject, CleanUpGroupName ) + self:F( { GroupObject, CleanUpGroupName } ) + + if GroupObject then -- and GroupObject:isExist() then + trigger.action.deactivateGroup(GroupObject) + self:T( { "GroupObject Destroyed", GroupObject } ) + end +end + +--- Destroys a @{DCSUnit#Unit} from the simulator, but checks first if it is still existing! +-- @param #CLEANUP self +-- @param DCSUnit#Unit CleanUpUnit The object to be destroyed. +-- @param #string CleanUpUnitName The Unit name ... +function CLEANUP:_DestroyUnit( CleanUpUnit, CleanUpUnitName ) + self:F( { CleanUpUnit, CleanUpUnitName } ) + + if CleanUpUnit then + local CleanUpGroup = Unit.getGroup(CleanUpUnit) + -- TODO Client bug in 1.5.3 + if CleanUpGroup and CleanUpGroup:isExist() then + local CleanUpGroupUnits = CleanUpGroup:getUnits() + if #CleanUpGroupUnits == 1 then + local CleanUpGroupName = CleanUpGroup:getName() + --self:CreateEventCrash( timer.getTime(), CleanUpUnit ) + CleanUpGroup:destroy() + self:T( { "Destroyed Group:", CleanUpGroupName } ) + else + CleanUpUnit:destroy() + self:T( { "Destroyed Unit:", CleanUpUnitName } ) + end + self.CleanUpList[CleanUpUnitName] = nil -- Cleaning from the list + CleanUpUnit = nil + end + end +end + +-- TODO check DCSTypes#Weapon +--- Destroys a missile from the simulator, but checks first if it is still existing! +-- @param #CLEANUP self +-- @param DCSTypes#Weapon MissileObject +function CLEANUP:_DestroyMissile( MissileObject ) + self:F( { MissileObject } ) + + if MissileObject and MissileObject:isExist() then + MissileObject:destroy() + self:T( "MissileObject Destroyed") + end +end + +function CLEANUP:_OnEventBirth( Event ) + self:F( { Event } ) + + self.CleanUpList[Event.IniDCSUnitName] = {} + self.CleanUpList[Event.IniDCSUnitName].CleanUpUnit = Event.IniDCSUnit + self.CleanUpList[Event.IniDCSUnitName].CleanUpGroup = Event.IniDCSGroup + self.CleanUpList[Event.IniDCSUnitName].CleanUpGroupName = Event.IniDCSGroupName + self.CleanUpList[Event.IniDCSUnitName].CleanUpUnitName = Event.IniDCSUnitName + + _EVENTDISPATCHER:OnEngineShutDownForUnit( Event.IniDCSUnitName, self._EventAddForCleanUp, self ) + _EVENTDISPATCHER:OnEngineStartUpForUnit( Event.IniDCSUnitName, self._EventAddForCleanUp, self ) + _EVENTDISPATCHER:OnHitForUnit( Event.IniDCSUnitName, self._EventAddForCleanUp, self ) + _EVENTDISPATCHER:OnPilotDeadForUnit( Event.IniDCSUnitName, self._EventCrash, self ) + _EVENTDISPATCHER:OnDeadForUnit( Event.IniDCSUnitName, self._EventCrash, self ) + _EVENTDISPATCHER:OnCrashForUnit( Event.IniDCSUnitName, self._EventCrash, self ) + _EVENTDISPATCHER:OnShotForUnit( Event.IniDCSUnitName, self._EventShot, self ) + + --self:AddEvent( world.event.S_EVENT_ENGINE_SHUTDOWN, self._EventAddForCleanUp ) + --self:AddEvent( world.event.S_EVENT_ENGINE_STARTUP, self._EventAddForCleanUp ) +-- self:AddEvent( world.event.S_EVENT_HIT, self._EventAddForCleanUp ) -- , self._EventHitCleanUp ) +-- self:AddEvent( world.event.S_EVENT_CRASH, self._EventCrash ) -- , self._EventHitCleanUp ) +-- --self:AddEvent( world.event.S_EVENT_DEAD, self._EventCrash ) +-- self:AddEvent( world.event.S_EVENT_SHOT, self._EventShot ) +-- +-- self:EnableEvents() + + +end + +--- Detects if a crash event occurs. +-- Crashed units go into a CleanUpList for removal. +-- @param #CLEANUP self +-- @param DCSTypes#Event event +function CLEANUP:_EventCrash( Event ) + self:F( { Event } ) + + --TODO: This stuff is not working due to a DCS bug. Burning units cannot be destroyed. + -- self:T("before getGroup") + -- local _grp = Unit.getGroup(event.initiator)-- Identify the group that fired + -- self:T("after getGroup") + -- _grp:destroy() + -- self:T("after deactivateGroup") + -- event.initiator:destroy() + + self.CleanUpList[Event.IniDCSUnitName] = {} + self.CleanUpList[Event.IniDCSUnitName].CleanUpUnit = Event.IniDCSUnit + self.CleanUpList[Event.IniDCSUnitName].CleanUpGroup = Event.IniDCSGroup + self.CleanUpList[Event.IniDCSUnitName].CleanUpGroupName = Event.IniDCSGroupName + self.CleanUpList[Event.IniDCSUnitName].CleanUpUnitName = Event.IniDCSUnitName + +end + +--- Detects if a unit shoots a missile. +-- If this occurs within one of the zones, then the weapon used must be destroyed. +-- @param #CLEANUP self +-- @param DCSTypes#Event event +function CLEANUP:_EventShot( Event ) + self:F( { Event } ) + + -- Test if the missile was fired within one of the CLEANUP.ZoneNames. + local CurrentLandingZoneID = 0 + CurrentLandingZoneID = routines.IsUnitInZones( Event.IniDCSUnit, self.ZoneNames ) + if ( CurrentLandingZoneID ) then + -- Okay, the missile was fired within the CLEANUP.ZoneNames, destroy the fired weapon. + --_SEADmissile:destroy() + SCHEDULER:New( self, CLEANUP._DestroyMissile, { Event.Weapon }, 0.1 ) + end +end + + +--- Detects if the Unit has an S_EVENT_HIT within the given ZoneNames. If this is the case, destroy the unit. +-- @param #CLEANUP self +-- @param DCSTypes#Event event +function CLEANUP:_EventHitCleanUp( Event ) + self:F( { Event } ) + + if Event.IniDCSUnit then + if routines.IsUnitInZones( Event.IniDCSUnit, self.ZoneNames ) ~= nil then + self:T( { "Life: ", Event.IniDCSUnitName, ' = ', Event.IniDCSUnit:getLife(), "/", Event.IniDCSUnit:getLife0() } ) + if Event.IniDCSUnit:getLife() < Event.IniDCSUnit:getLife0() then + self:T( "CleanUp: Destroy: " .. Event.IniDCSUnitName ) + SCHEDULER:New( self, CLEANUP._DestroyUnit, { Event.IniDCSUnit }, 0.1 ) + end + end + end + + if Event.TgtDCSUnit then + if routines.IsUnitInZones( Event.TgtDCSUnit, self.ZoneNames ) ~= nil then + self:T( { "Life: ", Event.TgtDCSUnitName, ' = ', Event.TgtDCSUnit:getLife(), "/", Event.TgtDCSUnit:getLife0() } ) + if Event.TgtDCSUnit:getLife() < Event.TgtDCSUnit:getLife0() then + self:T( "CleanUp: Destroy: " .. Event.TgtDCSUnitName ) + SCHEDULER:New( self, CLEANUP._DestroyUnit, { Event.TgtDCSUnit }, 0.1 ) + end + end + end +end + +--- Add the @{DCSUnit#Unit} to the CleanUpList for CleanUp. +function CLEANUP:_AddForCleanUp( CleanUpUnit, CleanUpUnitName ) + self:F( { CleanUpUnit, CleanUpUnitName } ) + + self.CleanUpList[CleanUpUnitName] = {} + self.CleanUpList[CleanUpUnitName].CleanUpUnit = CleanUpUnit + self.CleanUpList[CleanUpUnitName].CleanUpUnitName = CleanUpUnitName + self.CleanUpList[CleanUpUnitName].CleanUpGroup = Unit.getGroup(CleanUpUnit) + self.CleanUpList[CleanUpUnitName].CleanUpGroupName = Unit.getGroup(CleanUpUnit):getName() + self.CleanUpList[CleanUpUnitName].CleanUpTime = timer.getTime() + self.CleanUpList[CleanUpUnitName].CleanUpMoved = false + + self:T( { "CleanUp: Add to CleanUpList: ", Unit.getGroup(CleanUpUnit):getName(), CleanUpUnitName } ) + +end + +--- Detects if the Unit has an S_EVENT_ENGINE_SHUTDOWN or an S_EVENT_HIT within the given ZoneNames. If this is the case, add the Group to the CLEANUP List. +-- @param #CLEANUP self +-- @param DCSTypes#Event event +function CLEANUP:_EventAddForCleanUp( Event ) + + if Event.IniDCSUnit then + if self.CleanUpList[Event.IniDCSUnitName] == nil then + if routines.IsUnitInZones( Event.IniDCSUnit, self.ZoneNames ) ~= nil then + self:_AddForCleanUp( Event.IniDCSUnit, Event.IniDCSUnitName ) + end + end + end + + if Event.TgtDCSUnit then + if self.CleanUpList[Event.TgtDCSUnitName] == nil then + if routines.IsUnitInZones( Event.TgtDCSUnit, self.ZoneNames ) ~= nil then + self:_AddForCleanUp( Event.TgtDCSUnit, Event.TgtDCSUnitName ) + end + end + end + +end + +local CleanUpSurfaceTypeText = { + "LAND", + "SHALLOW_WATER", + "WATER", + "ROAD", + "RUNWAY" + } + +--- At the defined time interval, CleanUp the Groups within the CleanUpList. +-- @param #CLEANUP self +function CLEANUP:_CleanUpScheduler() + self:F( { "CleanUp Scheduler" } ) + + local CleanUpCount = 0 + for CleanUpUnitName, UnitData in pairs( self.CleanUpList ) do + CleanUpCount = CleanUpCount + 1 + + self:T( { CleanUpUnitName, UnitData } ) + local CleanUpUnit = Unit.getByName(UnitData.CleanUpUnitName) + local CleanUpGroupName = UnitData.CleanUpGroupName + local CleanUpUnitName = UnitData.CleanUpUnitName + if CleanUpUnit then + self:T( { "CleanUp Scheduler", "Checking:", CleanUpUnitName } ) + if _DATABASE:GetStatusGroup( CleanUpGroupName ) ~= "ReSpawn" then + local CleanUpUnitVec3 = CleanUpUnit:getPoint() + --self:T( CleanUpUnitVec3 ) + local CleanUpUnitVec2 = {} + CleanUpUnitVec2.x = CleanUpUnitVec3.x + CleanUpUnitVec2.y = CleanUpUnitVec3.z + --self:T( CleanUpUnitVec2 ) + local CleanUpSurfaceType = land.getSurfaceType(CleanUpUnitVec2) + --self:T( CleanUpSurfaceType ) + + if CleanUpUnit and CleanUpUnit:getLife() <= CleanUpUnit:getLife0() * 0.95 then + if CleanUpSurfaceType == land.SurfaceType.RUNWAY then + if CleanUpUnit:inAir() then + local CleanUpLandHeight = land.getHeight(CleanUpUnitVec2) + local CleanUpUnitHeight = CleanUpUnitVec3.y - CleanUpLandHeight + self:T( { "CleanUp Scheduler", "Height = " .. CleanUpUnitHeight } ) + if CleanUpUnitHeight < 30 then + self:T( { "CleanUp Scheduler", "Destroy " .. CleanUpUnitName .. " because below safe height and damaged." } ) + self:_DestroyUnit(CleanUpUnit, CleanUpUnitName) + end + else + self:T( { "CleanUp Scheduler", "Destroy " .. CleanUpUnitName .. " because on runway and damaged." } ) + self:_DestroyUnit(CleanUpUnit, CleanUpUnitName) + end + end + end + -- Clean Units which are waiting for a very long time in the CleanUpZone. + if CleanUpUnit then + local CleanUpUnitVelocity = CleanUpUnit:getVelocity() + local CleanUpUnitVelocityTotal = math.abs(CleanUpUnitVelocity.x) + math.abs(CleanUpUnitVelocity.y) + math.abs(CleanUpUnitVelocity.z) + if CleanUpUnitVelocityTotal < 1 then + if UnitData.CleanUpMoved then + if UnitData.CleanUpTime + 180 <= timer.getTime() then + self:T( { "CleanUp Scheduler", "Destroy due to not moving anymore " .. CleanUpUnitName } ) + self:_DestroyUnit(CleanUpUnit, CleanUpUnitName) + end + end + else + UnitData.CleanUpTime = timer.getTime() + UnitData.CleanUpMoved = true + end + end + + else + -- Do nothing ... + self.CleanUpList[CleanUpUnitName] = nil -- Not anymore in the DCSRTE + end + else + self:T( "CleanUp: Group " .. CleanUpUnitName .. " cannot be found in DCS RTE, removing ..." ) + self.CleanUpList[CleanUpUnitName] = nil -- Not anymore in the DCSRTE + end + end + self:T(CleanUpCount) + + return true +end + +--- This module contains the SPAWN class. +-- +-- 1) @{Spawn#SPAWN} class, extends @{Base#BASE} +-- ============================================= +-- The @{#SPAWN} class allows to spawn dynamically new groups, based on pre-defined initialization settings, modifying the behaviour when groups are spawned. +-- For each group to be spawned, within the mission editor, a group has to be created with the "late activation flag" set. We call this group the *"Spawn Template"* of the SPAWN object. +-- A reference to this Spawn Template needs to be provided when constructing the SPAWN object, by indicating the name of the group within the mission editor in the constructor methods. +-- +-- Within the SPAWN object, there is an internal index that keeps track of which group from the internal group list was spawned. +-- When new groups get spawned by using the SPAWN functions (see below), it will be validated whether the Limits (@{#SPAWN.Limit}) of the SPAWN object are not reached. +-- When all is valid, a new group will be created by the spawning methods, and the internal index will be increased with 1. +-- +-- Regarding the name of new spawned groups, a _SpawnPrefix_ will be assigned for each new group created. +-- If you want to have the Spawn Template name to be used as the _SpawnPrefix_ name, use the @{#SPAWN.New} constructor. +-- However, when the @{#SPAWN.NewWithAlias} constructor was used, the Alias name will define the _SpawnPrefix_ name. +-- Groups will follow the following naming structure when spawned at run-time: +-- +-- 1. Spawned groups will have the name _SpawnPrefix_#ggg, where ggg is a counter from 0 to 999. +-- 2. Spawned units will have the name _SpawnPrefix_#ggg-uu, where uu is a counter from 0 to 99 for each new spawned unit belonging to the group. +-- +-- Some additional notes that need to be remembered: +-- +-- * Templates are actually groups defined within the mission editor, with the flag "Late Activation" set. As such, these groups are never used within the mission, but are used by the @{#SPAWN} module. +-- * It is important to defined BEFORE you spawn new groups, a proper initialization of the SPAWN instance is done with the options you want to use. +-- * When designing a mission, NEVER name groups using a "#" within the name of the group Spawn Template(s), or the SPAWN module logic won't work anymore. +-- +-- 1.1) SPAWN construction methods +-- ------------------------------- +-- Create a new SPAWN object with the @{#SPAWN.New} or the @{#SPAWN.NewWithAlias} methods: +-- +-- * @{#SPAWN.New}: Creates a new SPAWN object taking the name of the group that functions as the Template. +-- +-- It is important to understand how the SPAWN class works internally. The SPAWN object created will contain internally a list of groups that will be spawned and that are already spawned. +-- The initialization functions will modify this list of groups so that when a group gets spawned, ALL information is already prepared when spawning. This is done for performance reasons. +-- So in principle, the group list will contain all parameters and configurations after initialization, and when groups get actually spawned, this spawning can be done quickly and efficient. +-- +-- 1.2) SPAWN initialization methods +-- --------------------------------- +-- A spawn object will behave differently based on the usage of initialization methods: +-- +-- * @{#SPAWN.Limit}: Limits the amount of groups that can be alive at the same time and that can be dynamically spawned. +-- * @{#SPAWN.RandomizeRoute}: Randomize the routes of spawned groups. +-- * @{#SPAWN.RandomizeTemplate}: Randomize the group templates so that when a new group is spawned, a random group template is selected from one of the templates defined. +-- * @{#SPAWN.Uncontrolled}: Spawn plane groups uncontrolled. +-- * @{#SPAWN.Array}: Make groups visible before they are actually activated, and order these groups like a batallion in an array. +-- * @{#SPAWN.InitRepeat}: Re-spawn groups when they land at the home base. Similar functions are @{#SPAWN.InitRepeatOnLanding} and @{#SPAWN.InitRepeatOnEngineShutDown}. +-- +-- 1.3) SPAWN spawning methods +-- --------------------------- +-- Groups can be spawned at different times and methods: +-- +-- * @{#SPAWN.Spawn}: Spawn one new group based on the last spawned index. +-- * @{#SPAWN.ReSpawn}: Re-spawn a group based on a given index. +-- * @{#SPAWN.SpawnScheduled}: Spawn groups at scheduled but randomized intervals. You can use @{#SPAWN.SpawnScheduleStart} and @{#SPAWN.SpawnScheduleStop} to start and stop the schedule respectively. +-- * @{#SPAWN.SpawnFromUnit}: Spawn a new group taking the position of a @{UNIT}. +-- * @{#SPAWN.SpawnInZone}: Spawn a new group in a @{ZONE}. +-- +-- Note that @{#SPAWN.Spawn} and @{#SPAWN.ReSpawn} return a @{GROUP#GROUP.New} object, that contains a reference to the DCSGroup object. +-- You can use the @{GROUP} object to do further actions with the DCSGroup. +-- +-- 1.4) SPAWN object cleaning +-- -------------------------- +-- Sometimes, it will occur during a mission run-time, that ground or especially air objects get damaged, and will while being damged stop their activities, while remaining alive. +-- In such cases, the SPAWN object will just sit there and wait until that group gets destroyed, but most of the time it won't, +-- and it may occur that no new groups are or can be spawned as limits are reached. +-- To prevent this, a @{#SPAWN.CleanUp} initialization method has been defined that will silently monitor the status of each spawned group. +-- Once a group has a velocity = 0, and has been waiting for a defined interval, that group will be cleaned or removed from run-time. +-- There is a catch however :-) If a damaged group has returned to an airbase within the coalition, that group will not be considered as "lost"... +-- In such a case, when the inactive group is cleaned, a new group will Re-spawned automatically. +-- This models AI that has succesfully returned to their airbase, to restart their combat activities. +-- Check the @{#SPAWN.CleanUp} for further info. +-- +-- +-- @module Spawn +-- @author FlightControl + +--- SPAWN Class +-- @type SPAWN +-- @extends Base#BASE +-- @field ClassName +-- @field #string SpawnTemplatePrefix +-- @field #string SpawnAliasPrefix +SPAWN = { + ClassName = "SPAWN", + SpawnTemplatePrefix = nil, + SpawnAliasPrefix = nil, +} + + + +--- Creates the main object to spawn a GROUP defined in the DCS ME. +-- @param #SPAWN self +-- @param #string SpawnTemplatePrefix is the name of the Group in the ME that defines the Template. Each new group will have the name starting with SpawnTemplatePrefix. +-- @return #SPAWN +-- @usage +-- -- NATO helicopters engaging in the battle field. +-- Spawn_BE_KA50 = SPAWN:New( 'BE KA-50@RAMP-Ground Defense' ) +-- @usage local Plane = SPAWN:New( "Plane" ) -- Creates a new local variable that can initiate new planes with the name "Plane#ddd" using the template "Plane" as defined within the ME. +function SPAWN:New( SpawnTemplatePrefix ) + local self = BASE:Inherit( self, BASE:New() ) + self:F( { SpawnTemplatePrefix } ) + + local TemplateGroup = Group.getByName( SpawnTemplatePrefix ) + if TemplateGroup then + self.SpawnTemplatePrefix = SpawnTemplatePrefix + self.SpawnIndex = 0 + self.SpawnCount = 0 -- The internal counter of the amount of spawning the has happened since SpawnStart. + self.AliveUnits = 0 -- Contains the counter how many units are currently alive + self.SpawnIsScheduled = false -- Reflects if the spawning for this SpawnTemplatePrefix is going to be scheduled or not. + self.SpawnTemplate = self._GetTemplate( self, SpawnTemplatePrefix ) -- Contains the template structure for a Group Spawn from the Mission Editor. Note that this group must have lateActivation always on!!! + self.Repeat = false -- Don't repeat the group from Take-Off till Landing and back Take-Off by ReSpawning. + self.UnControlled = false -- When working in UnControlled mode, all planes are Spawned in UnControlled mode before the scheduler starts. + self.SpawnMaxUnitsAlive = 0 -- The maximum amount of groups that can be alive of SpawnTemplatePrefix at the same time. + self.SpawnMaxGroups = 0 -- The maximum amount of groups that can be spawned. + self.SpawnRandomize = false -- Sets the randomization flag of new Spawned units to false. + self.SpawnVisible = false -- Flag that indicates if all the Groups of the SpawnGroup need to be visible when Spawned. + + self.SpawnGroups = {} -- Array containing the descriptions of each Group to be Spawned. + else + error( "SPAWN:New: There is no group declared in the mission editor with SpawnTemplatePrefix = '" .. SpawnTemplatePrefix .. "'" ) + end + + return self +end + +--- Creates a new SPAWN instance to create new groups based on the defined template and using a new alias for each new group. +-- @param #SPAWN self +-- @param #string SpawnTemplatePrefix is the name of the Group in the ME that defines the Template. +-- @param #string SpawnAliasPrefix is the name that will be given to the Group at runtime. +-- @return #SPAWN +-- @usage +-- -- NATO helicopters engaging in the battle field. +-- Spawn_BE_KA50 = SPAWN:NewWithAlias( 'BE KA-50@RAMP-Ground Defense', 'Helicopter Attacking a City' ) +-- @usage local PlaneWithAlias = SPAWN:NewWithAlias( "Plane", "Bomber" ) -- Creates a new local variable that can instantiate new planes with the name "Bomber#ddd" using the template "Plane" as defined within the ME. +function SPAWN:NewWithAlias( SpawnTemplatePrefix, SpawnAliasPrefix ) + local self = BASE:Inherit( self, BASE:New() ) + self:F( { SpawnTemplatePrefix, SpawnAliasPrefix } ) + + local TemplateGroup = Group.getByName( SpawnTemplatePrefix ) + if TemplateGroup then + self.SpawnTemplatePrefix = SpawnTemplatePrefix + self.SpawnAliasPrefix = SpawnAliasPrefix + self.SpawnIndex = 0 + self.SpawnCount = 0 -- The internal counter of the amount of spawning the has happened since SpawnStart. + self.AliveUnits = 0 -- Contains the counter how many units are currently alive + self.SpawnIsScheduled = false -- Reflects if the spawning for this SpawnTemplatePrefix is going to be scheduled or not. + self.SpawnTemplate = self._GetTemplate( self, SpawnTemplatePrefix ) -- Contains the template structure for a Group Spawn from the Mission Editor. Note that this group must have lateActivation always on!!! + self.Repeat = false -- Don't repeat the group from Take-Off till Landing and back Take-Off by ReSpawning. + self.UnControlled = false -- When working in UnControlled mode, all planes are Spawned in UnControlled mode before the scheduler starts. + self.SpawnMaxUnitsAlive = 0 -- The maximum amount of groups that can be alive of SpawnTemplatePrefix at the same time. + self.SpawnMaxGroups = 0 -- The maximum amount of groups that can be spawned. + self.SpawnRandomize = false -- Sets the randomization flag of new Spawned units to false. + self.SpawnVisible = false -- Flag that indicates if all the Groups of the SpawnGroup need to be visible when Spawned. + + self.SpawnGroups = {} -- Array containing the descriptions of each Group to be Spawned. + else + error( "SPAWN:New: There is no group declared in the mission editor with SpawnTemplatePrefix = '" .. SpawnTemplatePrefix .. "'" ) + end + + return self +end + + +--- Limits the Maximum amount of Units that can be alive at the same time, and the maximum amount of groups that can be spawned. +-- Note that this method is exceptionally important to balance the performance of the mission. Depending on the machine etc, a mission can only process a maximum amount of units. +-- If the time interval must be short, but there should not be more Units or Groups alive than a maximum amount of units, then this function should be used... +-- When a @{#SPAWN.New} is executed and the limit of the amount of units alive is reached, then no new spawn will happen of the group, until some of these units of the spawn object will be destroyed. +-- @param #SPAWN self +-- @param #number SpawnMaxUnitsAlive The maximum amount of units that can be alive at runtime. +-- @param #number SpawnMaxGroups The maximum amount of groups that can be spawned. When the limit is reached, then no more actual spawns will happen of the group. +-- This parameter is useful to define a maximum amount of airplanes, ground troops, helicopters, ships etc within a supply area. +-- This parameter accepts the value 0, which defines that there are no maximum group limits, but there are limits on the maximum of units that can be alive at the same time. +-- @return #SPAWN self +-- @usage +-- -- NATO helicopters engaging in the battle field. +-- -- This helicopter group consists of one Unit. So, this group will SPAWN maximum 2 groups simultaneously within the DCSRTE. +-- -- There will be maximum 24 groups spawned during the whole mission lifetime. +-- Spawn_BE_KA50 = SPAWN:New( 'BE KA-50@RAMP-Ground Defense' ):Limit( 2, 24 ) +function SPAWN:Limit( SpawnMaxUnitsAlive, SpawnMaxGroups ) + self:F( { self.SpawnTemplatePrefix, SpawnMaxUnitsAlive, SpawnMaxGroups } ) + + self.SpawnMaxUnitsAlive = SpawnMaxUnitsAlive -- The maximum amount of groups that can be alive of SpawnTemplatePrefix at the same time. + self.SpawnMaxGroups = SpawnMaxGroups -- The maximum amount of groups that can be spawned. + + for SpawnGroupID = 1, self.SpawnMaxGroups do + self:_InitializeSpawnGroups( SpawnGroupID ) + end + + return self +end + + +--- Randomizes the defined route of the SpawnTemplatePrefix group in the ME. This is very useful to define extra variation of the behaviour of groups. +-- @param #SPAWN self +-- @param #number SpawnStartPoint is the waypoint where the randomization begins. +-- Note that the StartPoint = 0 equaling the point where the group is spawned. +-- @param #number SpawnEndPoint is the waypoint where the randomization ends counting backwards. +-- This parameter is useful to avoid randomization to end at a waypoint earlier than the last waypoint on the route. +-- @param #number SpawnRadius is the radius in meters in which the randomization of the new waypoints, with the original waypoint of the original template located in the middle ... +-- @return #SPAWN +-- @usage +-- -- NATO helicopters engaging in the battle field. +-- -- The KA-50 has waypoints Start point ( =0 or SP ), 1, 2, 3, 4, End point (= 5 or DP). +-- -- Waypoints 2 and 3 will only be randomized. The others will remain on their original position with each new spawn of the helicopter. +-- -- The randomization of waypoint 2 and 3 will take place within a radius of 2000 meters. +-- Spawn_BE_KA50 = SPAWN:New( 'BE KA-50@RAMP-Ground Defense' ):RandomizeRoute( 2, 2, 2000 ) +function SPAWN:RandomizeRoute( SpawnStartPoint, SpawnEndPoint, SpawnRadius ) + self:F( { self.SpawnTemplatePrefix, SpawnStartPoint, SpawnEndPoint, SpawnRadius } ) + + self.SpawnRandomizeRoute = true + self.SpawnRandomizeRouteStartPoint = SpawnStartPoint + self.SpawnRandomizeRouteEndPoint = SpawnEndPoint + self.SpawnRandomizeRouteRadius = SpawnRadius + + for GroupID = 1, self.SpawnMaxGroups do + self:_RandomizeRoute( GroupID ) + end + + return self +end + + +--- This function is rather complicated to understand. But I'll try to explain. +-- This function becomes useful when you need to spawn groups with random templates of groups defined within the mission editor, +-- but they will all follow the same Template route and have the same prefix name. +-- In other words, this method randomizes between a defined set of groups the template to be used for each new spawn of a group. +-- @param #SPAWN self +-- @param #string SpawnTemplatePrefixTable A table with the names of the groups defined within the mission editor, from which one will be choosen when a new group will be spawned. +-- @return #SPAWN +-- @usage +-- -- NATO Tank Platoons invading Gori. +-- -- Choose between 13 different 'US Tank Platoon' configurations for each new SPAWN the Group to be spawned for the +-- -- 'US Tank Platoon Left', 'US Tank Platoon Middle' and 'US Tank Platoon Right' SpawnTemplatePrefixes. +-- -- Each new SPAWN will randomize the route, with a defined time interval of 200 seconds with 40% time variation (randomization) and +-- -- with a limit set of maximum 12 Units alive simulteneously and 150 Groups to be spawned during the whole mission. +-- Spawn_US_Platoon = { 'US Tank Platoon 1', 'US Tank Platoon 2', 'US Tank Platoon 3', 'US Tank Platoon 4', 'US Tank Platoon 5', +-- 'US Tank Platoon 6', 'US Tank Platoon 7', 'US Tank Platoon 8', 'US Tank Platoon 9', 'US Tank Platoon 10', +-- 'US Tank Platoon 11', 'US Tank Platoon 12', 'US Tank Platoon 13' } +-- Spawn_US_Platoon_Left = SPAWN:New( 'US Tank Platoon Left' ):Limit( 12, 150 ):Schedule( 200, 0.4 ):RandomizeTemplate( Spawn_US_Platoon ):RandomizeRoute( 3, 3, 2000 ) +-- Spawn_US_Platoon_Middle = SPAWN:New( 'US Tank Platoon Middle' ):Limit( 12, 150 ):Schedule( 200, 0.4 ):RandomizeTemplate( Spawn_US_Platoon ):RandomizeRoute( 3, 3, 2000 ) +-- Spawn_US_Platoon_Right = SPAWN:New( 'US Tank Platoon Right' ):Limit( 12, 150 ):Schedule( 200, 0.4 ):RandomizeTemplate( Spawn_US_Platoon ):RandomizeRoute( 3, 3, 2000 ) +function SPAWN:RandomizeTemplate( SpawnTemplatePrefixTable ) + self:F( { self.SpawnTemplatePrefix, SpawnTemplatePrefixTable } ) + + self.SpawnTemplatePrefixTable = SpawnTemplatePrefixTable + self.SpawnRandomizeTemplate = true + + for SpawnGroupID = 1, self.SpawnMaxGroups do + self:_RandomizeTemplate( SpawnGroupID ) + end + + return self +end + + + + + +--- For planes and helicopters, when these groups go home and land on their home airbases and farps, they normally would taxi to the parking spot, shut-down their engines and wait forever until the Group is removed by the runtime environment. +-- This function is used to re-spawn automatically (so no extra call is needed anymore) the same group after it has landed. +-- This will enable a spawned group to be re-spawned after it lands, until it is destroyed... +-- Note: When the group is respawned, it will re-spawn from the original airbase where it took off. +-- So ensure that the routes for groups that respawn, always return to the original airbase, or players may get confused ... +-- @param #SPAWN self +-- @return #SPAWN self +-- @usage +-- -- RU Su-34 - AI Ship Attack +-- -- Re-SPAWN the Group(s) after each landing and Engine Shut-Down automatically. +-- SpawnRU_SU34 = SPAWN:New( 'TF1 RU Su-34 Krymsk@AI - Attack Ships' ):Schedule( 2, 3, 1800, 0.4 ):SpawnUncontrolled():RandomizeRoute( 1, 1, 3000 ):RepeatOnEngineShutDown() +function SPAWN:InitRepeat() + self:F( { self.SpawnTemplatePrefix, self.SpawnIndex } ) + + self.Repeat = true + self.RepeatOnEngineShutDown = false + self.RepeatOnLanding = true + + return self +end + +--- Respawn group after landing. +-- @param #SPAWN self +-- @return #SPAWN self +function SPAWN:InitRepeatOnLanding() + self:F( { self.SpawnTemplatePrefix } ) + + self:InitRepeat() + self.RepeatOnEngineShutDown = false + self.RepeatOnLanding = true + + return self +end + + +--- Respawn after landing when its engines have shut down. +-- @param #SPAWN self +-- @return #SPAWN self +function SPAWN:InitRepeatOnEngineShutDown() + self:F( { self.SpawnTemplatePrefix } ) + + self:InitRepeat() + self.RepeatOnEngineShutDown = true + self.RepeatOnLanding = false + + return self +end + + +--- CleanUp groups when they are still alive, but inactive. +-- When groups are still alive and have become inactive due to damage and are unable to contribute anything, then this group will be removed at defined intervals in seconds. +-- @param #SPAWN self +-- @param #string SpawnCleanUpInterval The interval to check for inactive groups within seconds. +-- @return #SPAWN self +-- @usage Spawn_Helicopter:CleanUp( 20 ) -- CleanUp the spawning of the helicopters every 20 seconds when they become inactive. +function SPAWN:CleanUp( SpawnCleanUpInterval ) + self:F( { self.SpawnTemplatePrefix, SpawnCleanUpInterval } ) + + self.SpawnCleanUpInterval = SpawnCleanUpInterval + self.SpawnCleanUpTimeStamps = {} + --self.CleanUpFunction = routines.scheduleFunction( self._SpawnCleanUpScheduler, { self }, timer.getTime() + 1, SpawnCleanUpInterval ) + self.CleanUpScheduler = SCHEDULER:New( self, self._SpawnCleanUpScheduler, {}, 1, SpawnCleanUpInterval, 0.2 ) + return self +end + + + +--- Makes the groups visible before start (like a batallion). +-- The method will take the position of the group as the first position in the array. +-- @param #SPAWN self +-- @param #number SpawnAngle The angle in degrees how the groups and each unit of the group will be positioned. +-- @param #number SpawnWidth The amount of Groups that will be positioned on the X axis. +-- @param #number SpawnDeltaX The space between each Group on the X-axis. +-- @param #number SpawnDeltaY The space between each Group on the Y-axis. +-- @return #SPAWN self +-- @usage +-- -- Define an array of Groups. +-- Spawn_BE_Ground = SPAWN:New( 'BE Ground' ):Limit( 2, 24 ):Visible( 90, "Diamond", 10, 100, 50 ) +function SPAWN:Array( SpawnAngle, SpawnWidth, SpawnDeltaX, SpawnDeltaY ) + self:F( { self.SpawnTemplatePrefix, SpawnAngle, SpawnWidth, SpawnDeltaX, SpawnDeltaY } ) + + self.SpawnVisible = true -- When the first Spawn executes, all the Groups need to be made visible before start. + + local SpawnX = 0 + local SpawnY = 0 + local SpawnXIndex = 0 + local SpawnYIndex = 0 + + for SpawnGroupID = 1, self.SpawnMaxGroups do + self:T( { SpawnX, SpawnY, SpawnXIndex, SpawnYIndex } ) + + self.SpawnGroups[SpawnGroupID].Visible = true + self.SpawnGroups[SpawnGroupID].Spawned = false + + SpawnXIndex = SpawnXIndex + 1 + if SpawnWidth and SpawnWidth ~= 0 then + if SpawnXIndex >= SpawnWidth then + SpawnXIndex = 0 + SpawnYIndex = SpawnYIndex + 1 + end + end + + local SpawnRootX = self.SpawnGroups[SpawnGroupID].SpawnTemplate.x + local SpawnRootY = self.SpawnGroups[SpawnGroupID].SpawnTemplate.y + + self:_TranslateRotate( SpawnGroupID, SpawnRootX, SpawnRootY, SpawnX, SpawnY, SpawnAngle ) + + self.SpawnGroups[SpawnGroupID].SpawnTemplate.lateActivation = true + self.SpawnGroups[SpawnGroupID].SpawnTemplate.visible = true + + self.SpawnGroups[SpawnGroupID].Visible = true + + _EVENTDISPATCHER:OnBirthForTemplate( self.SpawnGroups[SpawnGroupID].SpawnTemplate, self._OnBirth, self ) + _EVENTDISPATCHER:OnCrashForTemplate( self.SpawnGroups[SpawnGroupID].SpawnTemplate, self._OnDeadOrCrash, self ) + _EVENTDISPATCHER:OnDeadForTemplate( self.SpawnGroups[SpawnGroupID].SpawnTemplate, self._OnDeadOrCrash, self ) + + if self.Repeat then + _EVENTDISPATCHER:OnTakeOffForTemplate( self.SpawnGroups[SpawnGroupID].SpawnTemplate, self._OnTakeOff, self ) + _EVENTDISPATCHER:OnLandForTemplate( self.SpawnGroups[SpawnGroupID].SpawnTemplate, self._OnLand, self ) + end + if self.RepeatOnEngineShutDown then + _EVENTDISPATCHER:OnEngineShutDownForTemplate( self.SpawnGroups[SpawnGroupID].SpawnTemplate, self._OnEngineShutDown, self ) + end + + self.SpawnGroups[SpawnGroupID].Group = _DATABASE:Spawn( self.SpawnGroups[SpawnGroupID].SpawnTemplate ) + + SpawnX = SpawnXIndex * SpawnDeltaX + SpawnY = SpawnYIndex * SpawnDeltaY + end + + return self +end + + + +--- Will spawn a group based on the internal index. +-- Note: Uses @{DATABASE} module defined in MOOSE. +-- @param #SPAWN self +-- @return Group#GROUP The group that was spawned. You can use this group for further actions. +function SPAWN:Spawn() + self:F( { self.SpawnTemplatePrefix, self.SpawnIndex } ) + + return self:SpawnWithIndex( self.SpawnIndex + 1 ) +end + +--- Will re-spawn a group based on a given index. +-- Note: Uses @{DATABASE} module defined in MOOSE. +-- @param #SPAWN self +-- @param #string SpawnIndex The index of the group to be spawned. +-- @return Group#GROUP The group that was spawned. You can use this group for further actions. +function SPAWN:ReSpawn( SpawnIndex ) + self:F( { self.SpawnTemplatePrefix, SpawnIndex } ) + + if not SpawnIndex then + SpawnIndex = 1 + end + +-- TODO: This logic makes DCS crash and i don't know why (yet). + local SpawnGroup = self:GetGroupFromIndex( SpawnIndex ) + if SpawnGroup then + local SpawnDCSGroup = SpawnGroup:GetDCSObject() + if SpawnDCSGroup then + SpawnGroup:Destroy() + end + end + + return self:SpawnWithIndex( SpawnIndex ) +end + +--- Will spawn a group with a specified index number. +-- Uses @{DATABASE} global object defined in MOOSE. +-- @param #SPAWN self +-- @return Group#GROUP The group that was spawned. You can use this group for further actions. +function SPAWN:SpawnWithIndex( SpawnIndex ) + self:F( { self.SpawnTemplatePrefix, SpawnIndex, self.SpawnMaxGroups } ) + + if self:_GetSpawnIndex( SpawnIndex ) then + + if self.SpawnGroups[self.SpawnIndex].Visible then + self.SpawnGroups[self.SpawnIndex].Group:Activate() + else + self:T( self.SpawnGroups[self.SpawnIndex].SpawnTemplate ) + _EVENTDISPATCHER:OnBirthForTemplate( self.SpawnGroups[self.SpawnIndex].SpawnTemplate, self._OnBirth, self ) + _EVENTDISPATCHER:OnCrashForTemplate( self.SpawnGroups[self.SpawnIndex].SpawnTemplate, self._OnDeadOrCrash, self ) + _EVENTDISPATCHER:OnDeadForTemplate( self.SpawnGroups[self.SpawnIndex].SpawnTemplate, self._OnDeadOrCrash, self ) + + if self.Repeat then + _EVENTDISPATCHER:OnTakeOffForTemplate( self.SpawnGroups[self.SpawnIndex].SpawnTemplate, self._OnTakeOff, self ) + _EVENTDISPATCHER:OnLandForTemplate( self.SpawnGroups[self.SpawnIndex].SpawnTemplate, self._OnLand, self ) + end + if self.RepeatOnEngineShutDown then + _EVENTDISPATCHER:OnEngineShutDownForTemplate( self.SpawnGroups[self.SpawnIndex].SpawnTemplate, self._OnEngineShutDown, self ) + end + + self:T( self.SpawnGroups[self.SpawnIndex].SpawnTemplate ) + + self.SpawnGroups[self.SpawnIndex].Group = _DATABASE:Spawn( self.SpawnGroups[self.SpawnIndex].SpawnTemplate ) + + -- If there is a SpawnFunction hook defined, call it. + if self.SpawnFunctionHook then + self.SpawnFunctionHook( self.SpawnGroups[self.SpawnIndex].Group, unpack( self.SpawnFunctionArguments ) ) + end + -- TODO: Need to fix this by putting an "R" in the name of the group when the group repeats. + --if self.Repeat then + -- _DATABASE:SetStatusGroup( SpawnTemplate.name, "ReSpawn" ) + --end + end + + self.SpawnGroups[self.SpawnIndex].Spawned = true + return self.SpawnGroups[self.SpawnIndex].Group + else + --self:E( { self.SpawnTemplatePrefix, "No more Groups to Spawn:", SpawnIndex, self.SpawnMaxGroups } ) + end + + return nil +end + +--- Spawns new groups at varying time intervals. +-- This is useful if you want to have continuity within your missions of certain (AI) groups to be present (alive) within your missions. +-- @param #SPAWN self +-- @param #number SpawnTime The time interval defined in seconds between each new spawn of new groups. +-- @param #number SpawnTimeVariation The variation to be applied on the defined time interval between each new spawn. +-- The variation is a number between 0 and 1, representing the %-tage of variation to be applied on the time interval. +-- @return #SPAWN self +-- @usage +-- -- NATO helicopters engaging in the battle field. +-- -- The time interval is set to SPAWN new helicopters between each 600 seconds, with a time variation of 50%. +-- -- The time variation in this case will be between 450 seconds and 750 seconds. +-- -- This is calculated as follows: +-- -- Low limit: 600 * ( 1 - 0.5 / 2 ) = 450 +-- -- High limit: 600 * ( 1 + 0.5 / 2 ) = 750 +-- -- Between these two values, a random amount of seconds will be choosen for each new spawn of the helicopters. +-- Spawn_BE_KA50 = SPAWN:New( 'BE KA-50@RAMP-Ground Defense' ):Schedule( 600, 0.5 ) +function SPAWN:SpawnScheduled( SpawnTime, SpawnTimeVariation ) + self:F( { SpawnTime, SpawnTimeVariation } ) + + if SpawnTime ~= nil and SpawnTimeVariation ~= nil then + self.SpawnScheduler = SCHEDULER:New( self, self._Scheduler, {}, 1, SpawnTime, SpawnTimeVariation ) + end + + return self +end + +--- Will re-start the spawning scheduler. +-- Note: This function is only required to be called when the schedule was stopped. +function SPAWN:SpawnScheduleStart() + self:F( { self.SpawnTemplatePrefix } ) + + self.SpawnScheduler:Start() +end + +--- Will stop the scheduled spawning scheduler. +function SPAWN:SpawnScheduleStop() + self:F( { self.SpawnTemplatePrefix } ) + + self.SpawnScheduler:Stop() +end + + +--- Allows to place a CallFunction hook when a new group spawns. +-- The provided function will be called when a new group is spawned, including its given parameters. +-- The first parameter of the SpawnFunction is the @{Group#GROUP} that was spawned. +-- @param #SPAWN self +-- @param #function SpawnFunctionHook The function to be called when a group spawns. +-- @param SpawnFunctionArguments A random amount of arguments to be provided to the function when the group spawns. +-- @return #SPAWN +function SPAWN:SpawnFunction( SpawnFunctionHook, ... ) + self:F( SpawnFunction ) + + self.SpawnFunctionHook = SpawnFunctionHook + self.SpawnFunctionArguments = {} + if arg then + self.SpawnFunctionArguments = arg + end + + return self +end + + + + +--- Will spawn a group from a hosting unit. This function is mostly advisable to be used if you want to simulate spawning from air units, like helicopters, which are dropping infantry into a defined Landing Zone. +-- Note that each point in the route assigned to the spawning group is reset to the point of the spawn. +-- You can use the returned group to further define the route to be followed. +-- @param #SPAWN self +-- @param Unit#UNIT HostUnit The air or ground unit dropping or unloading the group. +-- @param #number OuterRadius The outer radius in meters where the new group will be spawned. +-- @param #number InnerRadius The inner radius in meters where the new group will NOT be spawned. +-- @param #number SpawnIndex (Optional) The index which group to spawn within the given zone. +-- @return Group#GROUP that was spawned. +-- @return #nil Nothing was spawned. +function SPAWN:SpawnFromUnit( HostUnit, OuterRadius, InnerRadius, SpawnIndex ) + self:F( { self.SpawnTemplatePrefix, HostUnit, OuterRadius, InnerRadius, SpawnIndex } ) + + if HostUnit and HostUnit:IsAlive() then -- and HostUnit:getUnit(1):inAir() == false then + + if SpawnIndex then + else + SpawnIndex = self.SpawnIndex + 1 + end + + if self:_GetSpawnIndex( SpawnIndex ) then + + local SpawnTemplate = self.SpawnGroups[self.SpawnIndex].SpawnTemplate + + if SpawnTemplate then + + local UnitPoint = HostUnit:GetPointVec2() + + self:T( { "Current point of ", self.SpawnTemplatePrefix, UnitPoint } ) + + --for PointID, Point in pairs( SpawnTemplate.route.points ) do + --Point.x = UnitPoint.x + --Point.y = UnitPoint.y + --Point.alt = nil + --Point.alt_type = nil + --end + + SpawnTemplate.route.points[1].x = UnitPoint.x + SpawnTemplate.route.points[1].y = UnitPoint.y + + if not InnerRadius then + InnerRadius = 10 + end + + if not OuterRadius then + OuterRadius = 50 + end + + -- Apply SpawnFormation + for UnitID = 1, #SpawnTemplate.units do + if InnerRadius == 0 then + SpawnTemplate.units[UnitID].x = UnitPoint.x + SpawnTemplate.units[UnitID].y = UnitPoint.y + else + local CirclePos = routines.getRandPointInCircle( UnitPoint, OuterRadius, InnerRadius ) + SpawnTemplate.units[UnitID].x = CirclePos.x + SpawnTemplate.units[UnitID].y = CirclePos.y + end + self:T( 'SpawnTemplate.units['..UnitID..'].x = ' .. SpawnTemplate.units[UnitID].x .. ', SpawnTemplate.units['..UnitID..'].y = ' .. SpawnTemplate.units[UnitID].y ) + end + + local SpawnPos = routines.getRandPointInCircle( UnitPoint, OuterRadius, InnerRadius ) + local Point = {} + Point.type = "Turning Point" + Point.x = SpawnPos.x + Point.y = SpawnPos.y + Point.action = "Cone" + Point.speed = 5 + + table.insert( SpawnTemplate.route.points, 2, Point ) + + return self:SpawnWithIndex( self.SpawnIndex ) + end + end + end + + return nil +end + +--- Will spawn a Group within a given @{Zone#ZONE}. +-- Once the group is spawned within the zone, it will continue on its route. +-- The first waypoint (where the group is spawned) is replaced with the zone coordinates. +-- @param #SPAWN self +-- @param Zone#ZONE Zone The zone where the group is to be spawned. +-- @param #number ZoneRandomize (Optional) Set to true if you want to randomize the starting point in the zone. +-- @param #number SpawnIndex (Optional) The index which group to spawn within the given zone. +-- @return Group#GROUP that was spawned. +-- @return #nil when nothing was spawned. +function SPAWN:SpawnInZone( Zone, ZoneRandomize, SpawnIndex ) + self:F( { self.SpawnTemplatePrefix, Zone, ZoneRandomize, SpawnIndex } ) + + if Zone then + + if SpawnIndex then + else + SpawnIndex = self.SpawnIndex + 1 + end + + if self:_GetSpawnIndex( SpawnIndex ) then + + local SpawnTemplate = self.SpawnGroups[self.SpawnIndex].SpawnTemplate + + if SpawnTemplate then + + local ZonePoint + + if ZoneRandomize == true then + ZonePoint = Zone:GetRandomVec2() + else + ZonePoint = Zone:GetPointVec2() + end + + SpawnTemplate.route.points[1].x = ZonePoint.x + SpawnTemplate.route.points[1].y = ZonePoint.y + + -- Apply SpawnFormation + for UnitID = 1, #SpawnTemplate.units do + local ZonePointUnit = Zone:GetRandomVec2() + SpawnTemplate.units[UnitID].x = ZonePointUnit.x + SpawnTemplate.units[UnitID].y = ZonePointUnit.y + self:T( 'SpawnTemplate.units['..UnitID..'].x = ' .. SpawnTemplate.units[UnitID].x .. ', SpawnTemplate.units['..UnitID..'].y = ' .. SpawnTemplate.units[UnitID].y ) + end + + return self:SpawnWithIndex( self.SpawnIndex ) + end + end + end + + return nil +end + + + + +--- Will spawn a plane group in uncontrolled mode... +-- This will be similar to the uncontrolled flag setting in the ME. +-- @return #SPAWN self +function SPAWN:UnControlled() + self:F( { self.SpawnTemplatePrefix } ) + + self.SpawnUnControlled = true + + for SpawnGroupID = 1, self.SpawnMaxGroups do + self.SpawnGroups[SpawnGroupID].UnControlled = true + end + + return self +end + + + +--- Will return the SpawnGroupName either with with a specific count number or without any count. +-- @param #SPAWN self +-- @param #number SpawnIndex Is the number of the Group that is to be spawned. +-- @return #string SpawnGroupName +function SPAWN:SpawnGroupName( SpawnIndex ) + self:F( { self.SpawnTemplatePrefix, SpawnIndex } ) + + local SpawnPrefix = self.SpawnTemplatePrefix + if self.SpawnAliasPrefix then + SpawnPrefix = self.SpawnAliasPrefix + end + + if SpawnIndex then + local SpawnName = string.format( '%s#%03d', SpawnPrefix, SpawnIndex ) + self:T( SpawnName ) + return SpawnName + else + self:T( SpawnPrefix ) + return SpawnPrefix + end + +end + +--- Find the first alive group. +-- @param #SPAWN self +-- @param #number SpawnCursor A number holding the index from where to find the first group from. +-- @return Group#GROUP, #number The group found, the new index where the group was found. +-- @return #nil, #nil When no group is found, #nil is returned. +function SPAWN:GetFirstAliveGroup( SpawnCursor ) + self:F( { self.SpawnTemplatePrefix, self.SpawnAliasPrefix, SpawnCursor } ) + + for SpawnIndex = 1, self.SpawnCount do + local SpawnGroup = self:GetGroupFromIndex( SpawnIndex ) + if SpawnGroup and SpawnGroup:IsAlive() then + SpawnCursor = SpawnIndex + return SpawnGroup, SpawnCursor + end + end + + return nil, nil +end + + +--- Find the next alive group. +-- @param #SPAWN self +-- @param #number SpawnCursor A number holding the last found previous index. +-- @return Group#GROUP, #number The group found, the new index where the group was found. +-- @return #nil, #nil When no group is found, #nil is returned. +function SPAWN:GetNextAliveGroup( SpawnCursor ) + self:F( { self.SpawnTemplatePrefix, self.SpawnAliasPrefix, SpawnCursor } ) + + SpawnCursor = SpawnCursor + 1 + for SpawnIndex = SpawnCursor, self.SpawnCount do + local SpawnGroup = self:GetGroupFromIndex( SpawnIndex ) + if SpawnGroup and SpawnGroup:IsAlive() then + SpawnCursor = SpawnIndex + return SpawnGroup, SpawnCursor + end + end + + return nil, nil +end + +--- Find the last alive group during runtime. +function SPAWN:GetLastAliveGroup() + self:F( { self.SpawnTemplatePrefixself.SpawnAliasPrefix } ) + + self.SpawnIndex = self:_GetLastIndex() + for SpawnIndex = self.SpawnIndex, 1, -1 do + local SpawnGroup = self:GetGroupFromIndex( SpawnIndex ) + if SpawnGroup and SpawnGroup:IsAlive() then + self.SpawnIndex = SpawnIndex + return SpawnGroup + end + end + + self.SpawnIndex = nil + return nil +end + + + +--- Get the group from an index. +-- Returns the group from the SpawnGroups list. +-- If no index is given, it will return the first group in the list. +-- @param #SPAWN self +-- @param #number SpawnIndex The index of the group to return. +-- @return Group#GROUP self +function SPAWN:GetGroupFromIndex( SpawnIndex ) + self:F( { self.SpawnTemplatePrefix, self.SpawnAliasPrefix, SpawnIndex } ) + + if not SpawnIndex then + SpawnIndex = 1 + end + + if self.SpawnGroups and self.SpawnGroups[SpawnIndex] then + local SpawnGroup = self.SpawnGroups[SpawnIndex].Group + return SpawnGroup + else + return nil + end +end + +--- Get the group index from a DCSUnit. +-- The method will search for a #-mark, and will return the index behind the #-mark of the DCSUnit. +-- It will return nil of no prefix was found. +-- @param #SPAWN self +-- @param DCSUnit The DCS unit to be searched. +-- @return #string The prefix +-- @return #nil Nothing found +function SPAWN:_GetGroupIndexFromDCSUnit( DCSUnit ) + self:F( { self.SpawnTemplatePrefix, self.SpawnAliasPrefix, DCSUnit } ) + + if DCSUnit and DCSUnit:getName() then + local IndexString = string.match( DCSUnit:getName(), "#.*-" ):sub( 2, -2 ) + self:T( IndexString ) + + if IndexString then + local Index = tonumber( IndexString ) + self:T( { "Index:", IndexString, Index } ) + return Index + end + end + + return nil +end + +--- Return the prefix of a DCSUnit. +-- The method will search for a #-mark, and will return the text before the #-mark. +-- It will return nil of no prefix was found. +-- @param #SPAWN self +-- @param DCSUnit The DCS unit to be searched. +-- @return #string The prefix +-- @return #nil Nothing found +function SPAWN:_GetPrefixFromDCSUnit( DCSUnit ) + self:F( { self.SpawnTemplatePrefix, self.SpawnAliasPrefix, DCSUnit } ) + + if DCSUnit and DCSUnit:getName() then + local SpawnPrefix = string.match( DCSUnit:getName(), ".*#" ) + if SpawnPrefix then + SpawnPrefix = SpawnPrefix:sub( 1, -2 ) + end + self:T( SpawnPrefix ) + return SpawnPrefix + end + + return nil +end + +--- Return the group within the SpawnGroups collection with input a DCSUnit. +function SPAWN:_GetGroupFromDCSUnit( DCSUnit ) + self:F( { self.SpawnTemplatePrefix, self.SpawnAliasPrefix, DCSUnit } ) + + if DCSUnit then + local SpawnPrefix = self:_GetPrefixFromDCSUnit( DCSUnit ) + + if self.SpawnTemplatePrefix == SpawnPrefix or ( self.SpawnAliasPrefix and self.SpawnAliasPrefix == SpawnPrefix ) then + local SpawnGroupIndex = self:_GetGroupIndexFromDCSUnit( DCSUnit ) + local SpawnGroup = self.SpawnGroups[SpawnGroupIndex].Group + self:T( SpawnGroup ) + return SpawnGroup + end + end + + return nil +end + + +--- Get the index from a given group. +-- The function will search the name of the group for a #, and will return the number behind the #-mark. +function SPAWN:GetSpawnIndexFromGroup( SpawnGroup ) + self:F( { self.SpawnTemplatePrefix, self.SpawnAliasPrefix, SpawnGroup } ) + + local IndexString = string.match( SpawnGroup:GetName(), "#.*$" ):sub( 2 ) + local Index = tonumber( IndexString ) + + self:T( IndexString, Index ) + return Index + +end + +--- Return the last maximum index that can be used. +function SPAWN:_GetLastIndex() + self:F( { self.SpawnTemplatePrefix, self.SpawnAliasPrefix } ) + + return self.SpawnMaxGroups +end + +--- Initalize the SpawnGroups collection. +function SPAWN:_InitializeSpawnGroups( SpawnIndex ) + self:F( { self.SpawnTemplatePrefix, self.SpawnAliasPrefix, SpawnIndex } ) + + if not self.SpawnGroups[SpawnIndex] then + self.SpawnGroups[SpawnIndex] = {} + self.SpawnGroups[SpawnIndex].Visible = false + self.SpawnGroups[SpawnIndex].Spawned = false + self.SpawnGroups[SpawnIndex].UnControlled = false + self.SpawnGroups[SpawnIndex].SpawnTime = 0 + + self.SpawnGroups[SpawnIndex].SpawnTemplatePrefix = self.SpawnTemplatePrefix + self.SpawnGroups[SpawnIndex].SpawnTemplate = self:_Prepare( self.SpawnGroups[SpawnIndex].SpawnTemplatePrefix, SpawnIndex ) + end + + self:_RandomizeTemplate( SpawnIndex ) + self:_RandomizeRoute( SpawnIndex ) + --self:_TranslateRotate( SpawnIndex ) + + return self.SpawnGroups[SpawnIndex] +end + + + +--- Gets the CategoryID of the Group with the given SpawnPrefix +function SPAWN:_GetGroupCategoryID( SpawnPrefix ) + local TemplateGroup = Group.getByName( SpawnPrefix ) + + if TemplateGroup then + return TemplateGroup:getCategory() + else + return nil + end +end + +--- Gets the CoalitionID of the Group with the given SpawnPrefix +function SPAWN:_GetGroupCoalitionID( SpawnPrefix ) + local TemplateGroup = Group.getByName( SpawnPrefix ) + + if TemplateGroup then + return TemplateGroup:getCoalition() + else + return nil + end +end + +--- Gets the CountryID of the Group with the given SpawnPrefix +function SPAWN:_GetGroupCountryID( SpawnPrefix ) + self:F( { self.SpawnTemplatePrefix, self.SpawnAliasPrefix, SpawnPrefix } ) + + local TemplateGroup = Group.getByName( SpawnPrefix ) + + if TemplateGroup then + local TemplateUnits = TemplateGroup:getUnits() + return TemplateUnits[1]:getCountry() + else + return nil + end +end + +--- Gets the Group Template from the ME environment definition. +-- This method used the @{DATABASE} object, which contains ALL initial and new spawned object in MOOSE. +-- @param #SPAWN self +-- @param #string SpawnTemplatePrefix +-- @return @SPAWN self +function SPAWN:_GetTemplate( SpawnTemplatePrefix ) + self:F( { self.SpawnTemplatePrefix, self.SpawnAliasPrefix, SpawnTemplatePrefix } ) + + local SpawnTemplate = nil + + SpawnTemplate = routines.utils.deepCopy( _DATABASE.Templates.Groups[SpawnTemplatePrefix].Template ) + + if SpawnTemplate == nil then + error( 'No Template returned for SpawnTemplatePrefix = ' .. SpawnTemplatePrefix ) + end + + SpawnTemplate.SpawnCoalitionID = self:_GetGroupCoalitionID( SpawnTemplatePrefix ) + SpawnTemplate.SpawnCategoryID = self:_GetGroupCategoryID( SpawnTemplatePrefix ) + SpawnTemplate.SpawnCountryID = self:_GetGroupCountryID( SpawnTemplatePrefix ) + + self:T( { SpawnTemplate } ) + return SpawnTemplate +end + +--- Prepares the new Group Template. +-- @param #SPAWN self +-- @param #string SpawnTemplatePrefix +-- @param #number SpawnIndex +-- @return #SPAWN self +function SPAWN:_Prepare( SpawnTemplatePrefix, SpawnIndex ) + self:F( { self.SpawnTemplatePrefix, self.SpawnAliasPrefix } ) + + local SpawnTemplate = self:_GetTemplate( SpawnTemplatePrefix ) + SpawnTemplate.name = self:SpawnGroupName( SpawnIndex ) + + SpawnTemplate.groupId = nil + --SpawnTemplate.lateActivation = false + SpawnTemplate.lateActivation = false -- TODO BUGFIX + + if SpawnTemplate.SpawnCategoryID == Group.Category.GROUND then + self:T( "For ground units, visible needs to be false..." ) + SpawnTemplate.visible = false -- TODO BUGFIX + end + + if SpawnTemplate.SpawnCategoryID == Group.Category.HELICOPTER or SpawnTemplate.SpawnCategoryID == Group.Category.AIRPLANE then + SpawnTemplate.uncontrolled = false + end + + for UnitID = 1, #SpawnTemplate.units do + SpawnTemplate.units[UnitID].name = string.format( SpawnTemplate.name .. '-%02d', UnitID ) + SpawnTemplate.units[UnitID].unitId = nil + SpawnTemplate.units[UnitID].x = SpawnTemplate.route.points[1].x + SpawnTemplate.units[UnitID].y = SpawnTemplate.route.points[1].y + end + + self:T( { "Template:", SpawnTemplate } ) + return SpawnTemplate + +end + +--- Private method randomizing the routes. +-- @param #SPAWN self +-- @param #number SpawnIndex The index of the group to be spawned. +-- @return #SPAWN +function SPAWN:_RandomizeRoute( SpawnIndex ) + self:F( { self.SpawnTemplatePrefix, SpawnIndex, self.SpawnRandomizeRoute, self.SpawnRandomizeRouteStartPoint, self.SpawnRandomizeRouteEndPoint, self.SpawnRandomizeRouteRadius } ) + + if self.SpawnRandomizeRoute then + local SpawnTemplate = self.SpawnGroups[SpawnIndex].SpawnTemplate + local RouteCount = #SpawnTemplate.route.points + + for t = self.SpawnRandomizeRouteStartPoint + 1, ( RouteCount - self.SpawnRandomizeRouteEndPoint ) do + SpawnTemplate.route.points[t].x = SpawnTemplate.route.points[t].x + math.random( self.SpawnRandomizeRouteRadius * -1, self.SpawnRandomizeRouteRadius ) + SpawnTemplate.route.points[t].y = SpawnTemplate.route.points[t].y + math.random( self.SpawnRandomizeRouteRadius * -1, self.SpawnRandomizeRouteRadius ) + -- TODO: manage altitude for airborne units ... + SpawnTemplate.route.points[t].alt = nil + --SpawnGroup.route.points[t].alt_type = nil + self:T( 'SpawnTemplate.route.points[' .. t .. '].x = ' .. SpawnTemplate.route.points[t].x .. ', SpawnTemplate.route.points[' .. t .. '].y = ' .. SpawnTemplate.route.points[t].y ) + end + end + + return self +end + +--- Private method that randomizes the template of the group. +-- @param #SPAWN self +-- @param #number SpawnIndex +-- @return #SPAWN self +function SPAWN:_RandomizeTemplate( SpawnIndex ) + self:F( { self.SpawnTemplatePrefix, SpawnIndex, self.SpawnRandomizeTemplate } ) + + if self.SpawnRandomizeTemplate then + self.SpawnGroups[SpawnIndex].SpawnTemplatePrefix = self.SpawnTemplatePrefixTable[ math.random( 1, #self.SpawnTemplatePrefixTable ) ] + self.SpawnGroups[SpawnIndex].SpawnTemplate = self:_Prepare( self.SpawnGroups[SpawnIndex].SpawnTemplatePrefix, SpawnIndex ) + self.SpawnGroups[SpawnIndex].SpawnTemplate.route = routines.utils.deepCopy( self.SpawnTemplate.route ) + self.SpawnGroups[SpawnIndex].SpawnTemplate.x = self.SpawnTemplate.x + self.SpawnGroups[SpawnIndex].SpawnTemplate.y = self.SpawnTemplate.y + self.SpawnGroups[SpawnIndex].SpawnTemplate.start_time = self.SpawnTemplate.start_time + for UnitID = 1, #self.SpawnGroups[SpawnIndex].SpawnTemplate.units do + self.SpawnGroups[SpawnIndex].SpawnTemplate.units[UnitID].heading = self.SpawnTemplate.units[1].heading + end + end + + self:_RandomizeRoute( SpawnIndex ) + + return self +end + +function SPAWN:_TranslateRotate( SpawnIndex, SpawnRootX, SpawnRootY, SpawnX, SpawnY, SpawnAngle ) + self:F( { self.SpawnTemplatePrefix, SpawnIndex, SpawnRootX, SpawnRootY, SpawnX, SpawnY, SpawnAngle } ) + + -- Translate + local TranslatedX = SpawnX + local TranslatedY = SpawnY + + -- Rotate + -- From Wikipedia: https://en.wikipedia.org/wiki/Rotation_matrix#Common_rotations + -- x' = x \cos \theta - y \sin \theta\ + -- y' = x \sin \theta + y \cos \theta\ + local RotatedX = - TranslatedX * math.cos( math.rad( SpawnAngle ) ) + + TranslatedY * math.sin( math.rad( SpawnAngle ) ) + local RotatedY = TranslatedX * math.sin( math.rad( SpawnAngle ) ) + + TranslatedY * math.cos( math.rad( SpawnAngle ) ) + + -- Assign + self.SpawnGroups[SpawnIndex].SpawnTemplate.x = SpawnRootX - RotatedX + self.SpawnGroups[SpawnIndex].SpawnTemplate.y = SpawnRootY + RotatedY + + + local SpawnUnitCount = table.getn( self.SpawnGroups[SpawnIndex].SpawnTemplate.units ) + for u = 1, SpawnUnitCount do + + -- Translate + local TranslatedX = SpawnX + local TranslatedY = SpawnY - 10 * ( u - 1 ) + + -- Rotate + local RotatedX = - TranslatedX * math.cos( math.rad( SpawnAngle ) ) + + TranslatedY * math.sin( math.rad( SpawnAngle ) ) + local RotatedY = TranslatedX * math.sin( math.rad( SpawnAngle ) ) + + TranslatedY * math.cos( math.rad( SpawnAngle ) ) + + -- Assign + self.SpawnGroups[SpawnIndex].SpawnTemplate.units[u].x = SpawnRootX - RotatedX + self.SpawnGroups[SpawnIndex].SpawnTemplate.units[u].y = SpawnRootY + RotatedY + self.SpawnGroups[SpawnIndex].SpawnTemplate.units[u].heading = self.SpawnGroups[SpawnIndex].SpawnTemplate.units[u].heading + math.rad( SpawnAngle ) + end + + return self +end + +--- Get the next index of the groups to be spawned. This function is complicated, as it is used at several spaces. +function SPAWN:_GetSpawnIndex( SpawnIndex ) + self:F( { self.SpawnTemplatePrefix, SpawnIndex, self.SpawnMaxGroups, self.SpawnMaxUnitsAlive, self.AliveUnits, #self.SpawnTemplate.units } ) + + + if ( self.SpawnMaxGroups == 0 ) or ( SpawnIndex <= self.SpawnMaxGroups ) then + if ( self.SpawnMaxUnitsAlive == 0 ) or ( self.AliveUnits < self.SpawnMaxUnitsAlive * #self.SpawnTemplate.units ) or self.UnControlled then + if SpawnIndex and SpawnIndex >= self.SpawnCount + 1 then + self.SpawnCount = self.SpawnCount + 1 + SpawnIndex = self.SpawnCount + end + self.SpawnIndex = SpawnIndex + if not self.SpawnGroups[self.SpawnIndex] then + self:_InitializeSpawnGroups( self.SpawnIndex ) + end + else + return nil + end + else + return nil + end + + return self.SpawnIndex +end + + +-- TODO Need to delete this... _DATABASE does this now ... +function SPAWN:_OnBirth( event ) + + if timer.getTime0() < timer.getAbsTime() then -- dont need to add units spawned in at the start of the mission if mist is loaded in init line + if event.initiator and event.initiator:getName() then + local EventPrefix = self:_GetPrefixFromDCSUnit( event.initiator ) + if EventPrefix == self.SpawnTemplatePrefix or ( self.SpawnAliasPrefix and EventPrefix == self.SpawnAliasPrefix ) then + self:T( { "Birth event: " .. event.initiator:getName(), event } ) + --MessageToAll( "Mission command: unit " .. SpawnTemplatePrefix .. " spawned." , 5, EventPrefix .. '/Event') + self.AliveUnits = self.AliveUnits + 1 + self:T( "Alive Units: " .. self.AliveUnits ) + end + end + end + +end + +--- Obscolete +-- @todo Need to delete this... _DATABASE does this now ... +function SPAWN:_OnDeadOrCrash( event ) + self:F( self.SpawnTemplatePrefix, event ) + + if event.initiator and event.initiator:getName() then + local EventPrefix = self:_GetPrefixFromDCSUnit( event.initiator ) + if EventPrefix == self.SpawnTemplatePrefix or ( self.SpawnAliasPrefix and EventPrefix == self.SpawnAliasPrefix ) then + self:T( { "Dead event: " .. event.initiator:getName(), event } ) +-- local DestroyedUnit = Unit.getByName( EventPrefix ) +-- if DestroyedUnit and DestroyedUnit.getLife() <= 1.0 then + --MessageToAll( "Mission command: unit " .. SpawnTemplatePrefix .. " crashed." , 5, EventPrefix .. '/Event') + self.AliveUnits = self.AliveUnits - 1 + self:T( "Alive Units: " .. self.AliveUnits ) +-- end + end + end +end + +--- Will detect AIR Units taking off... When the event takes place, the spawned Group is registered as airborne... +-- This is needed to ensure that Re-SPAWNing only is done for landed AIR Groups. +-- @todo Need to test for AIR Groups only... +function SPAWN:_OnTakeOff( event ) + self:F( self.SpawnTemplatePrefix, event ) + + if event.initiator and event.initiator:getName() then + local SpawnGroup = self:_GetGroupFromDCSUnit( event.initiator ) + if SpawnGroup then + self:T( { "TakeOff event: " .. event.initiator:getName(), event } ) + self:T( "self.Landed = false" ) + self.Landed = false + end + end +end + +--- Will detect AIR Units landing... When the event takes place, the spawned Group is registered as landed. +-- This is needed to ensure that Re-SPAWNing is only done for landed AIR Groups. +-- @todo Need to test for AIR Groups only... +function SPAWN:_OnLand( event ) + self:F( self.SpawnTemplatePrefix, event ) + + local SpawnUnit = event.initiator + if SpawnUnit and SpawnUnit:isExist() and Object.getCategory(SpawnUnit) == Object.Category.UNIT then + local SpawnGroup = self:_GetGroupFromDCSUnit( SpawnUnit ) + if SpawnGroup then + self:T( { "Landed event:" .. SpawnUnit:getName(), event } ) + self.Landed = true + self:T( "self.Landed = true" ) + if self.Landed and self.RepeatOnLanding then + local SpawnGroupIndex = self:GetSpawnIndexFromGroup( SpawnGroup ) + self:T( { "Landed:", "ReSpawn:", SpawnGroup:GetName(), SpawnGroupIndex } ) + self:ReSpawn( SpawnGroupIndex ) + end + end + end +end + +--- Will detect AIR Units shutting down their engines ... +-- When the event takes place, and the method @{RepeatOnEngineShutDown} was called, the spawned Group will Re-SPAWN. +-- But only when the Unit was registered to have landed. +-- @param #SPAWN self +-- @see _OnTakeOff +-- @see _OnLand +-- @todo Need to test for AIR Groups only... +function SPAWN:_OnEngineShutDown( event ) + self:F( self.SpawnTemplatePrefix, event ) + + local SpawnUnit = event.initiator + if SpawnUnit and SpawnUnit:isExist() and Object.getCategory(SpawnUnit) == Object.Category.UNIT then + local SpawnGroup = self:_GetGroupFromDCSUnit( SpawnUnit ) + if SpawnGroup then + self:T( { "EngineShutDown event: " .. SpawnUnit:getName(), event } ) + if self.Landed and self.RepeatOnEngineShutDown then + local SpawnGroupIndex = self:GetSpawnIndexFromGroup( SpawnGroup ) + self:T( { "EngineShutDown: ", "ReSpawn:", SpawnGroup:GetName(), SpawnGroupIndex } ) + self:ReSpawn( SpawnGroupIndex ) + end + end + end +end + +--- This function is called automatically by the Spawning scheduler. +-- It is the internal worker method SPAWNing new Groups on the defined time intervals. +function SPAWN:_Scheduler() + self:F( { "_Scheduler", self.SpawnTemplatePrefix, self.SpawnAliasPrefix, self.SpawnIndex, self.SpawnMaxGroups, self.SpawnMaxUnitsAlive } ) + + -- Validate if there are still groups left in the batch... + self:Spawn() + + return true +end + +function SPAWN:_SpawnCleanUpScheduler() + self:F( { "CleanUp Scheduler:", self.SpawnTemplatePrefix } ) + + local SpawnCursor + local SpawnGroup, SpawnCursor = self:GetFirstAliveGroup( SpawnCursor ) + + self:T( { "CleanUp Scheduler:", SpawnGroup } ) + + while SpawnGroup do + + if SpawnGroup:AllOnGround() and SpawnGroup:GetMaxVelocity() < 1 then + if not self.SpawnCleanUpTimeStamps[SpawnGroup:GetName()] then + self.SpawnCleanUpTimeStamps[SpawnGroup:GetName()] = timer.getTime() + else + if self.SpawnCleanUpTimeStamps[SpawnGroup:GetName()] + self.SpawnCleanUpInterval < timer.getTime() then + self:T( { "CleanUp Scheduler:", "Cleaning:", SpawnGroup } ) + SpawnGroup:Destroy() + end + end + else + self.SpawnCleanUpTimeStamps[SpawnGroup:GetName()] = nil + end + + SpawnGroup, SpawnCursor = self:GetNextAliveGroup( SpawnCursor ) + + self:T( { "CleanUp Scheduler:", SpawnGroup } ) + + end + + return true -- Repeat + +end +--- Limit the simultaneous movement of Groups within a running Mission. +-- This module is defined to improve the performance in missions, and to bring additional realism for GROUND vehicles. +-- Performance: If in a DCSRTE there are a lot of moving GROUND units, then in a multi player mission, this WILL create lag if +-- the main DCS execution core of your CPU is fully utilized. So, this class will limit the amount of simultaneous moving GROUND units +-- on defined intervals (currently every minute). +-- @module MOVEMENT + +--- the MOVEMENT class +-- @type +MOVEMENT = { + ClassName = "MOVEMENT", +} + +--- Creates the main object which is handling the GROUND forces movement. +-- @param table{string,...}|string MovePrefixes is a table of the Prefixes (names) of the GROUND Groups that need to be controlled by the MOVEMENT Object. +-- @param number MoveMaximum is a number that defines the maximum amount of GROUND Units to be moving during one minute. +-- @return MOVEMENT +-- @usage +-- -- Limit the amount of simultaneous moving units on the ground to prevent lag. +-- Movement_US_Platoons = MOVEMENT:New( { 'US Tank Platoon Left', 'US Tank Platoon Middle', 'US Tank Platoon Right', 'US CH-47D Troops' }, 15 ) + +function MOVEMENT:New( MovePrefixes, MoveMaximum ) + local self = BASE:Inherit( self, BASE:New() ) + self:F( { MovePrefixes, MoveMaximum } ) + + if type( MovePrefixes ) == 'table' then + self.MovePrefixes = MovePrefixes + else + self.MovePrefixes = { MovePrefixes } + end + self.MoveCount = 0 -- The internal counter of the amount of Moveing the has happened since MoveStart. + self.MoveMaximum = MoveMaximum -- Contains the Maximum amount of units that are allowed to move... + self.AliveUnits = 0 -- Contains the counter how many units are currently alive + self.MoveUnits = {} -- Reflects if the Moving for this MovePrefixes is going to be scheduled or not. + + _EVENTDISPATCHER:OnBirth( self.OnBirth, self ) + +-- self:AddEvent( world.event.S_EVENT_BIRTH, self.OnBirth ) +-- +-- self:EnableEvents() + + self:ScheduleStart() + + return self +end + +--- Call this function to start the MOVEMENT scheduling. +function MOVEMENT:ScheduleStart() + self:F() + --self.MoveFunction = routines.scheduleFunction( self._Scheduler, { self }, timer.getTime() + 1, 120 ) + self.MoveFunction = SCHEDULER:New( self, self._Scheduler, {}, 1, 120 ) +end + +--- Call this function to stop the MOVEMENT scheduling. +-- @todo need to implement it ... Forgot. +function MOVEMENT:ScheduleStop() + self:F() + +end + +--- Captures the birth events when new Units were spawned. +-- @todo This method should become obsolete. The new @{DATABASE} class will handle the collection administration. +function MOVEMENT:OnBirth( Event ) + self:F( { Event } ) + + if timer.getTime0() < timer.getAbsTime() then -- dont need to add units spawned in at the start of the mission if mist is loaded in init line + if Event.IniDCSUnit then + self:T( "Birth object : " .. Event.IniDCSUnitName ) + if Event.IniDCSGroup and Event.IniDCSGroup:isExist() then + for MovePrefixID, MovePrefix in pairs( self.MovePrefixes ) do + if string.find( Event.IniDCSUnitName, MovePrefix, 1, true ) then + self.AliveUnits = self.AliveUnits + 1 + self.MoveUnits[Event.IniDCSUnitName] = Event.IniDCSGroupName + self:T( self.AliveUnits ) + end + end + end + end + _EVENTDISPATCHER:OnCrashForUnit( Event.IniDCSUnitName, self.OnDeadOrCrash, self ) + _EVENTDISPATCHER:OnDeadForUnit( Event.IniDCSUnitName, self.OnDeadOrCrash, self ) + end + +end + +--- Captures the Dead or Crash events when Units crash or are destroyed. +-- @todo This method should become obsolete. The new @{DATABASE} class will handle the collection administration. +function MOVEMENT:OnDeadOrCrash( Event ) + self:F( { Event } ) + + if Event.IniDCSUnit then + self:T( "Dead object : " .. Event.IniDCSUnitName ) + for MovePrefixID, MovePrefix in pairs( self.MovePrefixes ) do + if string.find( Event.IniDCSUnitName, MovePrefix, 1, true ) then + self.AliveUnits = self.AliveUnits - 1 + self.MoveUnits[Event.IniDCSUnitName] = nil + self:T( self.AliveUnits ) + end + end + end +end + +--- This function is called automatically by the MOVEMENT scheduler. A new function is scheduled when MoveScheduled is true. +function MOVEMENT:_Scheduler() + self:F( { self.MovePrefixes, self.MoveMaximum, self.AliveUnits, self.MovementGroups } ) + + if self.AliveUnits > 0 then + local MoveProbability = ( self.MoveMaximum * 100 ) / self.AliveUnits + self:T( 'Move Probability = ' .. MoveProbability ) + + for MovementUnitName, MovementGroupName in pairs( self.MoveUnits ) do + local MovementGroup = Group.getByName( MovementGroupName ) + if MovementGroup and MovementGroup:isExist() then + local MoveOrStop = math.random( 1, 100 ) + self:T( 'MoveOrStop = ' .. MoveOrStop ) + if MoveOrStop <= MoveProbability then + self:T( 'Group continues moving = ' .. MovementGroupName ) + trigger.action.groupContinueMoving( MovementGroup ) + else + self:T( 'Group stops moving = ' .. MovementGroupName ) + trigger.action.groupStopMoving( MovementGroup ) + end + else + self.MoveUnits[MovementUnitName] = nil + end + end + end + return true +end +--- Provides defensive behaviour to a set of SAM sites within a running Mission. +-- @module Sead +-- @author to be searched on the forum +-- @author (co) Flightcontrol (Modified and enriched with functionality) + +--- The SEAD class +-- @type SEAD +-- @extends Base#BASE +SEAD = { + ClassName = "SEAD", + TargetSkill = { + Average = { Evade = 50, DelayOff = { 10, 25 }, DelayOn = { 10, 30 } } , + Good = { Evade = 30, DelayOff = { 8, 20 }, DelayOn = { 20, 40 } } , + High = { Evade = 15, DelayOff = { 5, 17 }, DelayOn = { 30, 50 } } , + Excellent = { Evade = 10, DelayOff = { 3, 10 }, DelayOn = { 30, 60 } } + }, + SEADGroupPrefixes = {} +} + +--- Creates the main object which is handling defensive actions for SA sites or moving SA vehicles. +-- When an anti radiation missile is fired (KH-58, KH-31P, KH-31A, KH-25MPU, HARM missiles), the SA will shut down their radars and will take evasive actions... +-- Chances are big that the missile will miss. +-- @param table{string,...}|string SEADGroupPrefixes which is a table of Prefixes of the SA Groups in the DCSRTE on which evasive actions need to be taken. +-- @return SEAD +-- @usage +-- -- CCCP SEAD Defenses +-- -- Defends the Russian SA installations from SEAD attacks. +-- SEAD_RU_SAM_Defenses = SEAD:New( { 'RU SA-6 Kub', 'RU SA-6 Defenses', 'RU MI-26 Troops', 'RU Attack Gori' } ) +function SEAD:New( SEADGroupPrefixes ) + local self = BASE:Inherit( self, BASE:New() ) + self:F( SEADGroupPrefixes ) + if type( SEADGroupPrefixes ) == 'table' then + for SEADGroupPrefixID, SEADGroupPrefix in pairs( SEADGroupPrefixes ) do + self.SEADGroupPrefixes[SEADGroupPrefix] = SEADGroupPrefix + end + else + self.SEADGroupNames[SEADGroupPrefixes] = SEADGroupPrefixes + end + _EVENTDISPATCHER:OnShot( self.EventShot, self ) + + return self +end + +--- Detects if an SA site was shot with an anti radiation missile. In this case, take evasive actions based on the skill level set within the ME. +-- @see SEAD +function SEAD:EventShot( Event ) + self:F( { Event } ) + + local SEADUnit = Event.IniDCSUnit + local SEADUnitName = Event.IniDCSUnitName + local SEADWeapon = Event.Weapon -- Identify the weapon fired + local SEADWeaponName = Event.WeaponName -- return weapon type + -- Start of the 2nd loop + self:T( "Missile Launched = " .. SEADWeaponName ) + if SEADWeaponName == "KH-58" or SEADWeaponName == "KH-25MPU" or SEADWeaponName == "AGM-88" or SEADWeaponName == "KH-31A" or SEADWeaponName == "KH-31P" then -- Check if the missile is a SEAD + local _evade = math.random (1,100) -- random number for chance of evading action + local _targetMim = Event.Weapon:getTarget() -- Identify target + local _targetMimname = Unit.getName(_targetMim) + local _targetMimgroup = Unit.getGroup(Weapon.getTarget(SEADWeapon)) + local _targetMimgroupName = _targetMimgroup:getName() + local _targetMimcont= _targetMimgroup:getController() + local _targetskill = _DATABASE.Templates.Units[_targetMimname].Template.skill + self:T( self.SEADGroupPrefixes ) + self:T( _targetMimgroupName ) + local SEADGroupFound = false + for SEADGroupPrefixID, SEADGroupPrefix in pairs( self.SEADGroupPrefixes ) do + if string.find( _targetMimgroupName, SEADGroupPrefix, 1, true ) then + SEADGroupFound = true + self:T( 'Group Found' ) + break + end + end + if SEADGroupFound == true then + if _targetskill == "Random" then -- when skill is random, choose a skill + local Skills = { "Average", "Good", "High", "Excellent" } + _targetskill = Skills[ math.random(1,4) ] + end + self:T( _targetskill ) + if self.TargetSkill[_targetskill] then + if (_evade > self.TargetSkill[_targetskill].Evade) then + self:T( string.format("Evading, target skill " ..string.format(_targetskill)) ) + local _targetMim = Weapon.getTarget(SEADWeapon) + local _targetMimname = Unit.getName(_targetMim) + local _targetMimgroup = Unit.getGroup(Weapon.getTarget(SEADWeapon)) + local _targetMimcont= _targetMimgroup:getController() + routines.groupRandomDistSelf(_targetMimgroup,300,'Diamond',250,20) -- move randomly + local SuppressedGroups1 = {} -- unit suppressed radar off for a random time + local function SuppressionEnd1(id) + id.ctrl:setOption(AI.Option.Ground.id.ALARM_STATE,AI.Option.Ground.val.ALARM_STATE.GREEN) + SuppressedGroups1[id.groupName] = nil + end + local id = { + groupName = _targetMimgroup, + ctrl = _targetMimcont + } + local delay1 = math.random(self.TargetSkill[_targetskill].DelayOff[1], self.TargetSkill[_targetskill].DelayOff[2]) + if SuppressedGroups1[id.groupName] == nil then + SuppressedGroups1[id.groupName] = { + SuppressionEndTime1 = timer.getTime() + delay1, + SuppressionEndN1 = SuppressionEndCounter1 --Store instance of SuppressionEnd() scheduled function + } + Controller.setOption(_targetMimcont, AI.Option.Ground.id.ALARM_STATE,AI.Option.Ground.val.ALARM_STATE.GREEN) + timer.scheduleFunction(SuppressionEnd1, id, SuppressedGroups1[id.groupName].SuppressionEndTime1) --Schedule the SuppressionEnd() function + --trigger.action.outText( string.format("Radar Off " ..string.format(delay1)), 20) + end + + local SuppressedGroups = {} + local function SuppressionEnd(id) + id.ctrl:setOption(AI.Option.Ground.id.ALARM_STATE,AI.Option.Ground.val.ALARM_STATE.RED) + SuppressedGroups[id.groupName] = nil + end + local id = { + groupName = _targetMimgroup, + ctrl = _targetMimcont + } + local delay = math.random(self.TargetSkill[_targetskill].DelayOn[1], self.TargetSkill[_targetskill].DelayOn[2]) + if SuppressedGroups[id.groupName] == nil then + SuppressedGroups[id.groupName] = { + SuppressionEndTime = timer.getTime() + delay, + SuppressionEndN = SuppressionEndCounter --Store instance of SuppressionEnd() scheduled function + } + timer.scheduleFunction(SuppressionEnd, id, SuppressedGroups[id.groupName].SuppressionEndTime) --Schedule the SuppressionEnd() function + --trigger.action.outText( string.format("Radar On " ..string.format(delay)), 20) + end + end + end + end + end +end +--- Taking the lead of AI escorting your flight. +-- +-- @{#ESCORT} class +-- ================ +-- The @{#ESCORT} class allows you to interact with escorting AI on your flight and take the lead. +-- Each escorting group can be commanded with a whole set of radio commands (radio menu in your flight, and then F10). +-- +-- The radio commands will vary according the category of the group. The richest set of commands are with Helicopters and AirPlanes. +-- Ships and Ground troops will have a more limited set, but they can provide support through the bombing of targets designated by the other escorts. +-- +-- RADIO MENUs that can be created: +-- ================================ +-- Find a summary below of the current available commands: +-- +-- Navigation ...: +-- --------------- +-- Escort group navigation functions: +-- +-- * **"Join-Up and Follow at x meters":** The escort group fill follow you at about x meters, and they will follow you. +-- * **"Flare":** Provides menu commands to let the escort group shoot a flare in the air in a color. +-- * **"Smoke":** Provides menu commands to let the escort group smoke the air in a color. Note that smoking is only available for ground and naval troops. +-- +-- Hold position ...: +-- ------------------ +-- Escort group navigation functions: +-- +-- * **"At current location":** Stops the escort group and they will hover 30 meters above the ground at the position they stopped. +-- * **"At client location":** Stops the escort group and they will hover 30 meters above the ground at the position they stopped. +-- +-- Report targets ...: +-- ------------------- +-- Report targets will make the escort group to report any target that it identifies within a 8km range. Any detected target can be attacked using the 4. Attack nearby targets function. (see below). +-- +-- * **"Report now":** Will report the current detected targets. +-- * **"Report targets on":** Will make the escort group to report detected targets and will fill the "Attack nearby targets" menu list. +-- * **"Report targets off":** Will stop detecting targets. +-- +-- Scan targets ...: +-- ----------------- +-- Menu items to pop-up the escort group for target scanning. After scanning, the escort group will resume with the mission or defined task. +-- +-- * **"Scan targets 30 seconds":** Scan 30 seconds for targets. +-- * **"Scan targets 60 seconds":** Scan 60 seconds for targets. +-- +-- Attack targets ...: +-- ------------------- +-- This menu item will list all detected targets within a 15km range. Depending on the level of detection (known/unknown) and visuality, the targets type will also be listed. +-- +-- Request assistance from ...: +-- ---------------------------- +-- This menu item will list all detected targets within a 15km range, as with the menu item **Attack Targets**. +-- This menu item allows to request attack support from other escorts supporting the current client group. +-- eg. the function allows a player to request support from the Ship escort to attack a target identified by the Plane escort with its Tomahawk missiles. +-- eg. the function allows a player to request support from other Planes escorting to bomb the unit with illumination missiles or bombs, so that the main plane escort can attack the area. +-- +-- ROE ...: +-- -------- +-- Sets the Rules of Engagement (ROE) of the escort group when in flight. +-- +-- * **"Hold Fire":** The escort group will hold fire. +-- * **"Return Fire":** The escort group will return fire. +-- * **"Open Fire":** The escort group will open fire on designated targets. +-- * **"Weapon Free":** The escort group will engage with any target. +-- +-- Evasion ...: +-- ------------ +-- Will define the evasion techniques that the escort group will perform during flight or combat. +-- +-- * **"Fight until death":** The escort group will have no reaction to threats. +-- * **"Use flares, chaff and jammers":** The escort group will use passive defense using flares and jammers. No evasive manoeuvres are executed. +-- * **"Evade enemy fire":** The rescort group will evade enemy fire before firing. +-- * **"Go below radar and evade fire":** The escort group will perform evasive vertical manoeuvres. +-- +-- Resume Mission ...: +-- ------------------- +-- Escort groups can have their own mission. This menu item will allow the escort group to resume their Mission from a given waypoint. +-- Note that this is really fantastic, as you now have the dynamic of taking control of the escort groups, and allowing them to resume their path or mission. +-- +-- ESCORT construction methods. +-- ============================ +-- Create a new SPAWN object with the @{#ESCORT.New} method: +-- +-- * @{#ESCORT.New}: Creates a new ESCORT object from a @{Group#GROUP} for a @{Client#CLIENT}, with an optional briefing text. +-- +-- ESCORT initialization methods. +-- ============================== +-- The following menus are created within the RADIO MENU of an active unit hosted by a player: +-- +-- * @{#ESCORT.MenuFollowAt}: Creates a menu to make the escort follow the client. +-- * @{#ESCORT.MenuHoldAtEscortPosition}: Creates a menu to hold the escort at its current position. +-- * @{#ESCORT.MenuHoldAtLeaderPosition}: Creates a menu to hold the escort at the client position. +-- * @{#ESCORT.MenuScanForTargets}: Creates a menu so that the escort scans targets. +-- * @{#ESCORT.MenuFlare}: Creates a menu to disperse flares. +-- * @{#ESCORT.MenuSmoke}: Creates a menu to disparse smoke. +-- * @{#ESCORT.MenuReportTargets}: Creates a menu so that the escort reports targets. +-- * @{#ESCORT.MenuReportPosition}: Creates a menu so that the escort reports its current position from bullseye. +-- * @{#ESCORT.MenuAssistedAttack: Creates a menu so that the escort supportes assisted attack from other escorts with the client. +-- * @{#ESCORT.MenuROE: Creates a menu structure to set the rules of engagement of the escort. +-- * @{#ESCORT.MenuEvasion: Creates a menu structure to set the evasion techniques when the escort is under threat. +-- * @{#ESCORT.MenuResumeMission}: Creates a menu structure so that the escort can resume from a waypoint. +-- +-- +-- @usage +-- -- Declare a new EscortPlanes object as follows: +-- +-- -- First find the GROUP object and the CLIENT object. +-- local EscortClient = CLIENT:FindByName( "Unit Name" ) -- The Unit Name is the name of the unit flagged with the skill Client in the mission editor. +-- local EscortGroup = GROUP:FindByName( "Group Name" ) -- The Group Name is the name of the group that will escort the Escort Client. +-- +-- -- Now use these 2 objects to construct the new EscortPlanes object. +-- EscortPlanes = ESCORT:New( EscortClient, EscortGroup, "Desert", "Welcome to the mission. You are escorted by a plane with code name 'Desert', which can be instructed through the F10 radio menu." ) +-- +-- +-- +-- @module Escort +-- @author FlightControl + +--- ESCORT class +-- @type ESCORT +-- @extends Base#BASE +-- @field Client#CLIENT EscortClient +-- @field Group#GROUP EscortGroup +-- @field #string EscortName +-- @field #ESCORT.MODE EscortMode The mode the escort is in. +-- @field Scheduler#SCHEDULER FollowScheduler The instance of the SCHEDULER class. +-- @field #number FollowDistance The current follow distance. +-- @field #boolean ReportTargets If true, nearby targets are reported. +-- @Field DCSTypes#AI.Option.Air.val.ROE OptionROE Which ROE is set to the EscortGroup. +-- @field DCSTypes#AI.Option.Air.val.REACTION_ON_THREAT OptionReactionOnThreat Which REACTION_ON_THREAT is set to the EscortGroup. +-- @field Menu#MENU_CLIENT EscortMenuResumeMission +ESCORT = { + ClassName = "ESCORT", + EscortName = nil, -- The Escort Name + EscortClient = nil, + EscortGroup = nil, + EscortMode = 1, + MODE = { + FOLLOW = 1, + MISSION = 2, + }, + Targets = {}, -- The identified targets + FollowScheduler = nil, + ReportTargets = true, + OptionROE = AI.Option.Air.val.ROE.OPEN_FIRE, + OptionReactionOnThreat = AI.Option.Air.val.REACTION_ON_THREAT.ALLOW_ABORT_MISSION, + SmokeDirectionVector = false, + TaskPoints = {} +} + +--- ESCORT.Mode class +-- @type ESCORT.MODE +-- @field #number FOLLOW +-- @field #number MISSION + +--- MENUPARAM type +-- @type MENUPARAM +-- @field #ESCORT ParamSelf +-- @field #Distance ParamDistance +-- @field #function ParamFunction +-- @field #string ParamMessage + +--- ESCORT class constructor for an AI group +-- @param #ESCORT self +-- @param Client#CLIENT EscortClient The client escorted by the EscortGroup. +-- @param Group#GROUP EscortGroup The group AI escorting the EscortClient. +-- @param #string EscortName Name of the escort. +-- @return #ESCORT self +-- @usage +-- -- Declare a new EscortPlanes object as follows: +-- +-- -- First find the GROUP object and the CLIENT object. +-- local EscortClient = CLIENT:FindByName( "Unit Name" ) -- The Unit Name is the name of the unit flagged with the skill Client in the mission editor. +-- local EscortGroup = GROUP:FindByName( "Group Name" ) -- The Group Name is the name of the group that will escort the Escort Client. +-- +-- -- Now use these 2 objects to construct the new EscortPlanes object. +-- EscortPlanes = ESCORT:New( EscortClient, EscortGroup, "Desert", "Welcome to the mission. You are escorted by a plane with code name 'Desert', which can be instructed through the F10 radio menu." ) +function ESCORT:New( EscortClient, EscortGroup, EscortName, EscortBriefing ) + local self = BASE:Inherit( self, BASE:New() ) + self:F( { EscortClient, EscortGroup, EscortName } ) + + self.EscortClient = EscortClient -- Client#CLIENT + self.EscortGroup = EscortGroup -- Group#GROUP + self.EscortName = EscortName + self.EscortBriefing = EscortBriefing + + -- Set EscortGroup known at EscortClient. + if not self.EscortClient._EscortGroups then + self.EscortClient._EscortGroups = {} + end + + if not self.EscortClient._EscortGroups[EscortGroup:GetName()] then + self.EscortClient._EscortGroups[EscortGroup:GetName()] = {} + self.EscortClient._EscortGroups[EscortGroup:GetName()].EscortGroup = self.EscortGroup + self.EscortClient._EscortGroups[EscortGroup:GetName()].EscortName = self.EscortName + self.EscortClient._EscortGroups[EscortGroup:GetName()].Targets = {} + end + + self.EscortMenu = MENU_CLIENT:New( self.EscortClient, self.EscortName ) + + self.EscortGroup:WayPointInitialize(1) + + self.EscortGroup:OptionROTVertical() + self.EscortGroup:OptionROEOpenFire() + + EscortGroup:MessageToClient( EscortGroup:GetCategoryName() .. " '" .. EscortName .. "' (" .. EscortGroup:GetCallsign() .. ") reporting! " .. + "We're escorting your flight. " .. + "Use the Radio Menu and F10 and use the options under + " .. EscortName .. "\n", + 60, EscortClient + ) + + self.FollowDistance = 100 + self.CT1 = 0 + self.GT1 = 0 + self.FollowScheduler = SCHEDULER:New( self, self._FollowScheduler, {}, 1, .5, .01 ) + self.EscortMode = ESCORT.MODE.MISSION + self.FollowScheduler:Stop() + + return self +end + +--- This function is for test, it will put on the frequency of the FollowScheduler a red smoke at the direction vector calculated for the escort to fly to. +-- This allows to visualize where the escort is flying to. +-- @param #ESCORT self +-- @param #boolean SmokeDirection If true, then the direction vector will be smoked. +function ESCORT:TestSmokeDirectionVector( SmokeDirection ) + self.SmokeDirectionVector = ( SmokeDirection == true ) and true or false +end + + +--- Defines the default menus +-- @param #ESCORT self +-- @return #ESCORT +function ESCORT:Menus() + self:F() + + self:MenuFollowAt( 100 ) + self:MenuFollowAt( 200 ) + self:MenuFollowAt( 300 ) + self:MenuFollowAt( 400 ) + + self:MenuScanForTargets( 100, 60 ) + + self:MenuHoldAtEscortPosition( 30 ) + self:MenuHoldAtLeaderPosition( 30 ) + + self:MenuFlare() + self:MenuSmoke() + + self:MenuReportTargets( 60 ) + self:MenuAssistedAttack() + self:MenuROE() + self:MenuEvasion() + self:MenuResumeMission() + + + return self +end + + + +--- Defines a menu slot to let the escort Join and Follow you at a certain distance. +-- This menu will appear under **Navigation**. +-- @param #ESCORT self +-- @param DCSTypes#Distance Distance The distance in meters that the escort needs to follow the client. +-- @return #ESCORT +function ESCORT:MenuFollowAt( Distance ) + self:F(Distance) + + if self.EscortGroup:IsAir() then + if not self.EscortMenuReportNavigation then + self.EscortMenuReportNavigation = MENU_CLIENT:New( self.EscortClient, "Navigation", self.EscortMenu ) + end + + if not self.EscortMenuJoinUpAndFollow then + self.EscortMenuJoinUpAndFollow = {} + end + + self.EscortMenuJoinUpAndFollow[#self.EscortMenuJoinUpAndFollow+1] = MENU_CLIENT_COMMAND:New( self.EscortClient, "Join-Up and Follow at " .. Distance, self.EscortMenuReportNavigation, ESCORT._JoinUpAndFollow, { ParamSelf = self, ParamDistance = Distance } ) + + self.EscortMode = ESCORT.MODE.FOLLOW + end + + return self +end + +--- Defines a menu slot to let the escort hold at their current position and stay low with a specified height during a specified time in seconds. +-- This menu will appear under **Hold position**. +-- @param #ESCORT self +-- @param DCSTypes#Distance Height Optional parameter that sets the height in meters to let the escort orbit at the current location. The default value is 30 meters. +-- @param DCSTypes#Time Seconds Optional parameter that lets the escort orbit at the current position for a specified time. (not implemented yet). The default value is 0 seconds, meaning, that the escort will orbit forever until a sequent command is given. +-- @param #string MenuTextFormat Optional parameter that shows the menu option text. The text string is formatted, and should contain two %d tokens in the string. The first for the Height, the second for the Time (if given). If no text is given, the default text will be displayed. +-- @return #ESCORT +-- TODO: Implement Seconds parameter. Challenge is to first develop the "continue from last activity" function. +function ESCORT:MenuHoldAtEscortPosition( Height, Seconds, MenuTextFormat ) + self:F( { Height, Seconds, MenuTextFormat } ) + + if self.EscortGroup:IsAir() then + + if not self.EscortMenuHold then + self.EscortMenuHold = MENU_CLIENT:New( self.EscortClient, "Hold position", self.EscortMenu ) + end + + if not Height then + Height = 30 + end + + if not Seconds then + Seconds = 0 + end + + local MenuText = "" + if not MenuTextFormat then + if Seconds == 0 then + MenuText = string.format( "Hold at %d meter", Height ) + else + MenuText = string.format( "Hold at %d meter for %d seconds", Height, Seconds ) + end + else + if Seconds == 0 then + MenuText = string.format( MenuTextFormat, Height ) + else + MenuText = string.format( MenuTextFormat, Height, Seconds ) + end + end + + if not self.EscortMenuHoldPosition then + self.EscortMenuHoldPosition = {} + end + + self.EscortMenuHoldPosition[#self.EscortMenuHoldPosition+1] = MENU_CLIENT_COMMAND + :New( + self.EscortClient, + MenuText, + self.EscortMenuHold, + ESCORT._HoldPosition, + { ParamSelf = self, + ParamOrbitGroup = self.EscortGroup, + ParamHeight = Height, + ParamSeconds = Seconds + } + ) + end + + return self +end + + +--- Defines a menu slot to let the escort hold at the client position and stay low with a specified height during a specified time in seconds. +-- This menu will appear under **Navigation**. +-- @param #ESCORT self +-- @param DCSTypes#Distance Height Optional parameter that sets the height in meters to let the escort orbit at the current location. The default value is 30 meters. +-- @param DCSTypes#Time Seconds Optional parameter that lets the escort orbit at the current position for a specified time. (not implemented yet). The default value is 0 seconds, meaning, that the escort will orbit forever until a sequent command is given. +-- @param #string MenuTextFormat Optional parameter that shows the menu option text. The text string is formatted, and should contain one or two %d tokens in the string. The first for the Height, the second for the Time (if given). If no text is given, the default text will be displayed. +-- @return #ESCORT +-- TODO: Implement Seconds parameter. Challenge is to first develop the "continue from last activity" function. +function ESCORT:MenuHoldAtLeaderPosition( Height, Seconds, MenuTextFormat ) + self:F( { Height, Seconds, MenuTextFormat } ) + + if self.EscortGroup:IsAir() then + + if not self.EscortMenuHold then + self.EscortMenuHold = MENU_CLIENT:New( self.EscortClient, "Hold position", self.EscortMenu ) + end + + if not Height then + Height = 30 + end + + if not Seconds then + Seconds = 0 + end + + local MenuText = "" + if not MenuTextFormat then + if Seconds == 0 then + MenuText = string.format( "Rejoin and hold at %d meter", Height ) + else + MenuText = string.format( "Rejoin and hold at %d meter for %d seconds", Height, Seconds ) + end + else + if Seconds == 0 then + MenuText = string.format( MenuTextFormat, Height ) + else + MenuText = string.format( MenuTextFormat, Height, Seconds ) + end + end + + if not self.EscortMenuHoldAtLeaderPosition then + self.EscortMenuHoldAtLeaderPosition = {} + end + + self.EscortMenuHoldAtLeaderPosition[#self.EscortMenuHoldAtLeaderPosition+1] = MENU_CLIENT_COMMAND + :New( + self.EscortClient, + MenuText, + self.EscortMenuHold, + ESCORT._HoldPosition, + { ParamSelf = self, + ParamOrbitGroup = self.EscortClient, + ParamHeight = Height, + ParamSeconds = Seconds + } + ) + end + + return self +end + +--- Defines a menu slot to let the escort scan for targets at a certain height for a certain time in seconds. +-- This menu will appear under **Scan targets**. +-- @param #ESCORT self +-- @param DCSTypes#Distance Height Optional parameter that sets the height in meters to let the escort orbit at the current location. The default value is 30 meters. +-- @param DCSTypes#Time Seconds Optional parameter that lets the escort orbit at the current position for a specified time. (not implemented yet). The default value is 0 seconds, meaning, that the escort will orbit forever until a sequent command is given. +-- @param #string MenuTextFormat Optional parameter that shows the menu option text. The text string is formatted, and should contain one or two %d tokens in the string. The first for the Height, the second for the Time (if given). If no text is given, the default text will be displayed. +-- @return #ESCORT +function ESCORT:MenuScanForTargets( Height, Seconds, MenuTextFormat ) + self:F( { Height, Seconds, MenuTextFormat } ) + + if self.EscortGroup:IsAir() then + if not self.EscortMenuScan then + self.EscortMenuScan = MENU_CLIENT:New( self.EscortClient, "Scan for targets", self.EscortMenu ) + end + + if not Height then + Height = 100 + end + + if not Seconds then + Seconds = 30 + end + + local MenuText = "" + if not MenuTextFormat then + if Seconds == 0 then + MenuText = string.format( "At %d meter", Height ) + else + MenuText = string.format( "At %d meter for %d seconds", Height, Seconds ) + end + else + if Seconds == 0 then + MenuText = string.format( MenuTextFormat, Height ) + else + MenuText = string.format( MenuTextFormat, Height, Seconds ) + end + end + + if not self.EscortMenuScanForTargets then + self.EscortMenuScanForTargets = {} + end + + self.EscortMenuScanForTargets[#self.EscortMenuScanForTargets+1] = MENU_CLIENT_COMMAND + :New( + self.EscortClient, + MenuText, + self.EscortMenuScan, + ESCORT._ScanTargets, + { ParamSelf = self, + ParamScanDuration = 30 + } + ) + end + + return self +end + + + +--- Defines a menu slot to let the escort disperse a flare in a certain color. +-- This menu will appear under **Navigation**. +-- The flare will be fired from the first unit in the group. +-- @param #ESCORT self +-- @param #string MenuTextFormat Optional parameter that shows the menu option text. If no text is given, the default text will be displayed. +-- @return #ESCORT +function ESCORT:MenuFlare( MenuTextFormat ) + self:F() + + if not self.EscortMenuReportNavigation then + self.EscortMenuReportNavigation = MENU_CLIENT:New( self.EscortClient, "Navigation", self.EscortMenu ) + end + + local MenuText = "" + if not MenuTextFormat then + MenuText = "Flare" + else + MenuText = MenuTextFormat + end + + if not self.EscortMenuFlare then + self.EscortMenuFlare = MENU_CLIENT:New( self.EscortClient, MenuText, self.EscortMenuReportNavigation, ESCORT._Flare, { ParamSelf = self } ) + self.EscortMenuFlareGreen = MENU_CLIENT_COMMAND:New( self.EscortClient, "Release green flare", self.EscortMenuFlare, ESCORT._Flare, { ParamSelf = self, ParamColor = UNIT.FlareColor.Green, ParamMessage = "Released a green flare!" } ) + self.EscortMenuFlareRed = MENU_CLIENT_COMMAND:New( self.EscortClient, "Release red flare", self.EscortMenuFlare, ESCORT._Flare, { ParamSelf = self, ParamColor = UNIT.FlareColor.Red, ParamMessage = "Released a red flare!" } ) + self.EscortMenuFlareWhite = MENU_CLIENT_COMMAND:New( self.EscortClient, "Release white flare", self.EscortMenuFlare, ESCORT._Flare, { ParamSelf = self, ParamColor = UNIT.FlareColor.White, ParamMessage = "Released a white flare!" } ) + self.EscortMenuFlareYellow = MENU_CLIENT_COMMAND:New( self.EscortClient, "Release yellow flare", self.EscortMenuFlare, ESCORT._Flare, { ParamSelf = self, ParamColor = UNIT.FlareColor.Yellow, ParamMessage = "Released a yellow flare!" } ) + end + + return self +end + +--- Defines a menu slot to let the escort disperse a smoke in a certain color. +-- This menu will appear under **Navigation**. +-- Note that smoke menu options will only be displayed for ships and ground units. Not for air units. +-- The smoke will be fired from the first unit in the group. +-- @param #ESCORT self +-- @param #string MenuTextFormat Optional parameter that shows the menu option text. If no text is given, the default text will be displayed. +-- @return #ESCORT +function ESCORT:MenuSmoke( MenuTextFormat ) + self:F() + + if not self.EscortGroup:IsAir() then + if not self.EscortMenuReportNavigation then + self.EscortMenuReportNavigation = MENU_CLIENT:New( self.EscortClient, "Navigation", self.EscortMenu ) + end + + local MenuText = "" + if not MenuTextFormat then + MenuText = "Smoke" + else + MenuText = MenuTextFormat + end + + if not self.EscortMenuSmoke then + self.EscortMenuSmoke = MENU_CLIENT:New( self.EscortClient, "Smoke", self.EscortMenuReportNavigation, ESCORT._Smoke, { ParamSelf = self } ) + self.EscortMenuSmokeGreen = MENU_CLIENT_COMMAND:New( self.EscortClient, "Release green smoke", self.EscortMenuSmoke, ESCORT._Smoke, { ParamSelf = self, ParamColor = UNIT.SmokeColor.Green, ParamMessage = "Releasing green smoke!" } ) + self.EscortMenuSmokeRed = MENU_CLIENT_COMMAND:New( self.EscortClient, "Release red smoke", self.EscortMenuSmoke, ESCORT._Smoke, { ParamSelf = self, ParamColor = UNIT.SmokeColor.Red, ParamMessage = "Releasing red smoke!" } ) + self.EscortMenuSmokeWhite = MENU_CLIENT_COMMAND:New( self.EscortClient, "Release white smoke", self.EscortMenuSmoke, ESCORT._Smoke, { ParamSelf = self, ParamColor = UNIT.SmokeColor.White, ParamMessage = "Releasing white smoke!" } ) + self.EscortMenuSmokeOrange = MENU_CLIENT_COMMAND:New( self.EscortClient, "Release orange smoke", self.EscortMenuSmoke, ESCORT._Smoke, { ParamSelf = self, ParamColor = UNIT.SmokeColor.Orange, ParamMessage = "Releasing orange smoke!" } ) + self.EscortMenuSmokeBlue = MENU_CLIENT_COMMAND:New( self.EscortClient, "Release blue smoke", self.EscortMenuSmoke, ESCORT._Smoke, { ParamSelf = self, ParamColor = UNIT.SmokeColor.Blue, ParamMessage = "Releasing blue smoke!" } ) + end + end + + return self +end + +--- Defines a menu slot to let the escort report their current detected targets with a specified time interval in seconds. +-- This menu will appear under **Report targets**. +-- Note that if a report targets menu is not specified, no targets will be detected by the escort, and the attack and assisted attack menus will not be displayed. +-- @param #ESCORT self +-- @param DCSTypes#Time Seconds Optional parameter that lets the escort report their current detected targets after specified time interval in seconds. The default time is 30 seconds. +-- @return #ESCORT +function ESCORT:MenuReportTargets( Seconds ) + self:F( { Seconds } ) + + if not self.EscortMenuReportNearbyTargets then + self.EscortMenuReportNearbyTargets = MENU_CLIENT:New( self.EscortClient, "Report targets", self.EscortMenu ) + end + + if not Seconds then + Seconds = 30 + end + + -- Report Targets + self.EscortMenuReportNearbyTargetsNow = MENU_CLIENT_COMMAND:New( self.EscortClient, "Report targets now!", self.EscortMenuReportNearbyTargets, ESCORT._ReportNearbyTargetsNow, { ParamSelf = self } ) + self.EscortMenuReportNearbyTargetsOn = MENU_CLIENT_COMMAND:New( self.EscortClient, "Report targets on", self.EscortMenuReportNearbyTargets, ESCORT._SwitchReportNearbyTargets, { ParamSelf = self, ParamReportTargets = true } ) + self.EscortMenuReportNearbyTargetsOff = MENU_CLIENT_COMMAND:New( self.EscortClient, "Report targets off", self.EscortMenuReportNearbyTargets, ESCORT._SwitchReportNearbyTargets, { ParamSelf = self, ParamReportTargets = false, } ) + + -- Attack Targets + self.EscortMenuAttackNearbyTargets = MENU_CLIENT:New( self.EscortClient, "Attack targets", self.EscortMenu ) + + + self.ReportTargetsScheduler = SCHEDULER:New( self, self._ReportTargetsScheduler, {}, 1, Seconds ) + + return self +end + +--- Defines a menu slot to let the escort attack its detected targets using assisted attack from another escort joined also with the client. +-- This menu will appear under **Request assistance from**. +-- Note that this method needs to be preceded with the method MenuReportTargets. +-- @param #ESCORT self +-- @return #ESCORT +function ESCORT:MenuAssistedAttack() + self:F() + + -- Request assistance from other escorts. + -- This is very useful to let f.e. an escorting ship attack a target detected by an escorting plane... + self.EscortMenuTargetAssistance = MENU_CLIENT:New( self.EscortClient, "Request assistance from", self.EscortMenu ) + + return self +end + +--- Defines a menu to let the escort set its rules of engagement. +-- All rules of engagement will appear under the menu **ROE**. +-- @param #ESCORT self +-- @return #ESCORT +function ESCORT:MenuROE( MenuTextFormat ) + self:F( MenuTextFormat ) + + if not self.EscortMenuROE then + -- Rules of Engagement + self.EscortMenuROE = MENU_CLIENT:New( self.EscortClient, "ROE", self.EscortMenu ) + if self.EscortGroup:OptionROEHoldFirePossible() then + self.EscortMenuROEHoldFire = MENU_CLIENT_COMMAND:New( self.EscortClient, "Hold Fire", self.EscortMenuROE, ESCORT._ROE, { ParamSelf = self, ParamFunction = self.EscortGroup:OptionROEHoldFire(), ParamMessage = "Holding weapons!" } ) + end + if self.EscortGroup:OptionROEReturnFirePossible() then + self.EscortMenuROEReturnFire = MENU_CLIENT_COMMAND:New( self.EscortClient, "Return Fire", self.EscortMenuROE, ESCORT._ROE, { ParamSelf = self, ParamFunction = self.EscortGroup:OptionROEReturnFire(), ParamMessage = "Returning fire!" } ) + end + if self.EscortGroup:OptionROEOpenFirePossible() then + self.EscortMenuROEOpenFire = MENU_CLIENT_COMMAND:New( self.EscortClient, "Open Fire", self.EscortMenuROE, ESCORT._ROE, { ParamSelf = self, ParamFunction = self.EscortGroup:OptionROEOpenFire(), ParamMessage = "Opening fire on designated targets!!" } ) + end + if self.EscortGroup:OptionROEWeaponFreePossible() then + self.EscortMenuROEWeaponFree = MENU_CLIENT_COMMAND:New( self.EscortClient, "Weapon Free", self.EscortMenuROE, ESCORT._ROE, { ParamSelf = self, ParamFunction = self.EscortGroup:OptionROEWeaponFree(), ParamMessage = "Opening fire on targets of opportunity!" } ) + end + end + + return self +end + + +--- Defines a menu to let the escort set its evasion when under threat. +-- All rules of engagement will appear under the menu **Evasion**. +-- @param #ESCORT self +-- @return #ESCORT +function ESCORT:MenuEvasion( MenuTextFormat ) + self:F( MenuTextFormat ) + + if self.EscortGroup:IsAir() then + if not self.EscortMenuEvasion then + -- Reaction to Threats + self.EscortMenuEvasion = MENU_CLIENT:New( self.EscortClient, "Evasion", self.EscortMenu ) + if self.EscortGroup:OptionROTNoReactionPossible() then + self.EscortMenuEvasionNoReaction = MENU_CLIENT_COMMAND:New( self.EscortClient, "Fight until death", self.EscortMenuEvasion, ESCORT._ROT, { ParamSelf = self, ParamFunction = self.EscortGroup:OptionROTNoReaction(), ParamMessage = "Fighting until death!" } ) + end + if self.EscortGroup:OptionROTPassiveDefensePossible() then + self.EscortMenuEvasionPassiveDefense = MENU_CLIENT_COMMAND:New( self.EscortClient, "Use flares, chaff and jammers", self.EscortMenuEvasion, ESCORT._ROT, { ParamSelf = self, ParamFunction = self.EscortGroup:OptionROTPassiveDefense(), ParamMessage = "Defending using jammers, chaff and flares!" } ) + end + if self.EscortGroup:OptionROTEvadeFirePossible() then + self.EscortMenuEvasionEvadeFire = MENU_CLIENT_COMMAND:New( self.EscortClient, "Evade enemy fire", self.EscortMenuEvasion, ESCORT._ROT, { ParamSelf = self, ParamFunction = self.EscortGroup:OptionROTEvadeFire(), ParamMessage = "Evading on enemy fire!" } ) + end + if self.EscortGroup:OptionROTVerticalPossible() then + self.EscortMenuOptionEvasionVertical = MENU_CLIENT_COMMAND:New( self.EscortClient, "Go below radar and evade fire", self.EscortMenuEvasion, ESCORT._ROT, { ParamSelf = self, ParamFunction = self.EscortGroup:OptionROTVertical(), ParamMessage = "Evading on enemy fire with vertical manoeuvres!" } ) + end + end + end + + return self +end + +--- Defines a menu to let the escort resume its mission from a waypoint on its route. +-- All rules of engagement will appear under the menu **Resume mission from**. +-- @param #ESCORT self +-- @return #ESCORT +function ESCORT:MenuResumeMission() + self:F() + + if not self.EscortMenuResumeMission then + -- Mission Resume Menu Root + self.EscortMenuResumeMission = MENU_CLIENT:New( self.EscortClient, "Resume mission from", self.EscortMenu ) + end + + return self +end + + +--- @param #MENUPARAM MenuParam +function ESCORT._HoldPosition( MenuParam ) + + local self = MenuParam.ParamSelf + local EscortGroup = self.EscortGroup + local EscortClient = self.EscortClient + + local OrbitGroup = MenuParam.ParamOrbitGroup -- Group#GROUP + local OrbitUnit = OrbitGroup:GetUnit(1) -- Unit#UNIT + local OrbitHeight = MenuParam.ParamHeight + local OrbitSeconds = MenuParam.ParamSeconds -- Not implemented yet + + self.FollowScheduler:Stop() + + local PointFrom = {} + local GroupPoint = EscortGroup:GetUnit(1):GetPointVec3() + PointFrom = {} + PointFrom.x = GroupPoint.x + PointFrom.y = GroupPoint.z + PointFrom.speed = 250 + PointFrom.type = AI.Task.WaypointType.TURNING_POINT + PointFrom.alt = GroupPoint.y + PointFrom.alt_type = AI.Task.AltitudeType.BARO + + local OrbitPoint = OrbitUnit:GetPointVec2() + local PointTo = {} + PointTo.x = OrbitPoint.x + PointTo.y = OrbitPoint.y + PointTo.speed = 250 + PointTo.type = AI.Task.WaypointType.TURNING_POINT + PointTo.alt = OrbitHeight + PointTo.alt_type = AI.Task.AltitudeType.BARO + PointTo.task = EscortGroup:TaskOrbitCircleAtVec2( OrbitPoint, OrbitHeight, 0 ) + + local Points = { PointFrom, PointTo } + + EscortGroup:OptionROEHoldFire() + EscortGroup:OptionROTPassiveDefense() + + EscortGroup:SetTask( EscortGroup:TaskRoute( Points ) ) + EscortGroup:MessageToClient( "Orbiting at location.", 10, EscortClient ) + +end + +--- @param #MENUPARAM MenuParam +function ESCORT._JoinUpAndFollow( MenuParam ) + + local self = MenuParam.ParamSelf + local EscortGroup = self.EscortGroup + local EscortClient = self.EscortClient + + self.Distance = MenuParam.ParamDistance + + self:JoinUpAndFollow( EscortGroup, EscortClient, self.Distance ) +end + +--- JoinsUp and Follows a CLIENT. +-- @param Escort#ESCORT self +-- @param Group#GROUP EscortGroup +-- @param Client#CLIENT EscortClient +-- @param DCSTypes#Distance Distance +function ESCORT:JoinUpAndFollow( EscortGroup, EscortClient, Distance ) + self:F( { EscortGroup, EscortClient, Distance } ) + + self.FollowScheduler:Stop() + + EscortGroup:OptionROEHoldFire() + EscortGroup:OptionROTPassiveDefense() + + self.EscortMode = ESCORT.MODE.FOLLOW + + self.CT1 = 0 + self.GT1 = 0 + self.FollowScheduler:Start() + + EscortGroup:MessageToClient( "Rejoining and Following at " .. Distance .. "!", 30, EscortClient ) +end + +--- @param #MENUPARAM MenuParam +function ESCORT._Flare( MenuParam ) + + local self = MenuParam.ParamSelf + local EscortGroup = self.EscortGroup + local EscortClient = self.EscortClient + + local Color = MenuParam.ParamColor + local Message = MenuParam.ParamMessage + + EscortGroup:GetUnit(1):Flare( Color ) + EscortGroup:MessageToClient( Message, 10, EscortClient ) +end + +--- @param #MENUPARAM MenuParam +function ESCORT._Smoke( MenuParam ) + + local self = MenuParam.ParamSelf + local EscortGroup = self.EscortGroup + local EscortClient = self.EscortClient + + local Color = MenuParam.ParamColor + local Message = MenuParam.ParamMessage + + EscortGroup:GetUnit(1):Smoke( Color ) + EscortGroup:MessageToClient( Message, 10, EscortClient ) +end + + +--- @param #MENUPARAM MenuParam +function ESCORT._ReportNearbyTargetsNow( MenuParam ) + + local self = MenuParam.ParamSelf + local EscortGroup = self.EscortGroup + local EscortClient = self.EscortClient + + self:_ReportTargetsScheduler() + +end + +function ESCORT._SwitchReportNearbyTargets( MenuParam ) + + local self = MenuParam.ParamSelf + local EscortGroup = self.EscortGroup + local EscortClient = self.EscortClient + + self.ReportTargets = MenuParam.ParamReportTargets + + if self.ReportTargets then + if not self.ReportTargetsScheduler then + self.ReportTargetsScheduler = SCHEDULER:New( self, self._ReportTargetsScheduler, {}, 1, 30 ) + end + else + routines.removeFunction( self.ReportTargetsScheduler ) + self.ReportTargetsScheduler = nil + end +end + +--- @param #MENUPARAM MenuParam +function ESCORT._ScanTargets( MenuParam ) + + local self = MenuParam.ParamSelf + local EscortGroup = self.EscortGroup + local EscortClient = self.EscortClient + + local ScanDuration = MenuParam.ParamScanDuration + + self.FollowScheduler:Stop() + + if EscortGroup:IsHelicopter() then + SCHEDULER:New( EscortGroup, EscortGroup.PushTask, + { EscortGroup:TaskControlled( + EscortGroup:TaskOrbitCircle( 200, 20 ), + EscortGroup:TaskCondition( nil, nil, nil, nil, ScanDuration, nil ) + ) + }, + 1 + ) + elseif EscortGroup:IsAirPlane() then + SCHEDULER:New( EscortGroup, EscortGroup.PushTask, + { EscortGroup:TaskControlled( + EscortGroup:TaskOrbitCircle( 1000, 500 ), + EscortGroup:TaskCondition( nil, nil, nil, nil, ScanDuration, nil ) + ) + }, + 1 + ) + end + + EscortGroup:MessageToClient( "Scanning targets for " .. ScanDuration .. " seconds.", ScanDuration, EscortClient ) + + if self.EscortMode == ESCORT.MODE.FOLLOW then + self.FollowScheduler:Start() + end + +end + +--- @param Group#GROUP EscortGroup +function _Resume( EscortGroup ) + env.info( '_Resume' ) + + local Escort = EscortGroup:GetState( EscortGroup, "Escort" ) + env.info( "EscortMode = " .. Escort.EscortMode ) + if Escort.EscortMode == ESCORT.MODE.FOLLOW then + Escort:JoinUpAndFollow( EscortGroup, Escort.EscortClient, Escort.Distance ) + end + +end + +--- @param #MENUPARAM MenuParam +function ESCORT._AttackTarget( MenuParam ) + + local self = MenuParam.ParamSelf + local EscortGroup = self.EscortGroup + + local EscortClient = self.EscortClient + local AttackUnit = MenuParam.ParamUnit -- Unit#UNIT + + self.FollowScheduler:Stop() + + self:T( AttackUnit ) + + if EscortGroup:IsAir() then + EscortGroup:OptionROEOpenFire() + EscortGroup:OptionROTPassiveDefense() + EscortGroup:SetState( EscortGroup, "Escort", self ) + SCHEDULER:New( EscortGroup, + EscortGroup.PushTask, + { EscortGroup:TaskCombo( + { EscortGroup:TaskAttackUnit( AttackUnit ), + EscortGroup:TaskFunction( 1, 2, "_Resume", { "''" } ) + } + ) + }, 10 + ) + else + SCHEDULER:New( EscortGroup, + EscortGroup.PushTask, + { EscortGroup:TaskCombo( + { EscortGroup:TaskFireAtPoint( AttackUnit:GetPointVec2(), 50 ) + } + ) + }, 10 + ) + end + + EscortGroup:MessageToClient( "Engaging Designated Unit!", 10, EscortClient ) + +end + +--- @param #MENUPARAM MenuParam +function ESCORT._AssistTarget( MenuParam ) + + local self = MenuParam.ParamSelf + local EscortGroup = self.EscortGroup + local EscortClient = self.EscortClient + local EscortGroupAttack = MenuParam.ParamEscortGroup + local AttackUnit = MenuParam.ParamUnit -- Unit#UNIT + + self.FollowScheduler:Stop() + + self:T( AttackUnit ) + + if EscortGroupAttack:IsAir() then + EscortGroupAttack:OptionROEOpenFire() + EscortGroupAttack:OptionROTVertical() + SCHDULER:New( EscortGroupAttack, + EscortGroupAttack.PushTask, + { EscortGroupAttack:TaskCombo( + { EscortGroupAttack:TaskAttackUnit( AttackUnit ), + EscortGroupAttack:TaskOrbitCircle( 500, 350 ) + } + ) + }, 10 + ) + else + SCHEDULER:New( EscortGroupAttack, + EscortGroupAttack.PushTask, + { EscortGroupAttack:TaskCombo( + { EscortGroupAttack:TaskFireAtPoint( AttackUnit:GetPointVec2(), 50 ) + } + ) + }, 10 + ) + end + EscortGroupAttack:MessageToClient( "Assisting with the destroying the enemy unit!", 10, EscortClient ) + +end + +--- @param #MENUPARAM MenuParam +function ESCORT._ROE( MenuParam ) + + local self = MenuParam.ParamSelf + local EscortGroup = self.EscortGroup + local EscortClient = self.EscortClient + + local EscortROEFunction = MenuParam.ParamFunction + local EscortROEMessage = MenuParam.ParamMessage + + pcall( function() EscortROEFunction() end ) + EscortGroup:MessageToClient( EscortROEMessage, 10, EscortClient ) +end + +--- @param #MENUPARAM MenuParam +function ESCORT._ROT( MenuParam ) + + local self = MenuParam.ParamSelf + local EscortGroup = self.EscortGroup + local EscortClient = self.EscortClient + + local EscortROTFunction = MenuParam.ParamFunction + local EscortROTMessage = MenuParam.ParamMessage + + pcall( function() EscortROTFunction() end ) + EscortGroup:MessageToClient( EscortROTMessage, 10, EscortClient ) +end + +--- @param #MENUPARAM MenuParam +function ESCORT._ResumeMission( MenuParam ) + + local self = MenuParam.ParamSelf + local EscortGroup = self.EscortGroup + local EscortClient = self.EscortClient + + local WayPoint = MenuParam.ParamWayPoint + + self.FollowScheduler:Stop() + + local WayPoints = EscortGroup:GetTaskRoute() + self:T( WayPoint, WayPoints ) + + for WayPointIgnore = 1, WayPoint do + table.remove( WayPoints, 1 ) + end + + SCHEDULER:New( EscortGroup, EscortGroup.SetTask, { EscortGroup:TaskRoute( WayPoints ) }, 1 ) + + EscortGroup:MessageToClient( "Resuming mission from waypoint " .. WayPoint .. ".", 10, EscortClient ) +end + +--- Registers the waypoints +-- @param #ESCORT self +-- @return #table +function ESCORT:RegisterRoute() + self:F() + + local EscortGroup = self.EscortGroup -- Group#GROUP + + local TaskPoints = EscortGroup:GetTaskRoute() + + self:T( TaskPoints ) + + return TaskPoints +end + +--- @param Escort#ESCORT self +function ESCORT:_FollowScheduler() + self:F( { self.FollowDistance } ) + + self:T( {self.EscortClient.UnitName, self.EscortGroup.GroupName } ) + if self.EscortGroup:IsAlive() and self.EscortClient:IsAlive() then + + local ClientUnit = self.EscortClient:GetClientGroupUnit() + local GroupUnit = self.EscortGroup:GetUnit( 1 ) + local FollowDistance = self.FollowDistance + + self:T( {ClientUnit.UnitName, GroupUnit.UnitName } ) + + if self.CT1 == 0 and self.GT1 == 0 then + self.CV1 = ClientUnit:GetPointVec3() + self:T( { "self.CV1", self.CV1 } ) + self.CT1 = timer.getTime() + self.GV1 = GroupUnit:GetPointVec3() + self.GT1 = timer.getTime() + else + local CT1 = self.CT1 + local CT2 = timer.getTime() + local CV1 = self.CV1 + local CV2 = ClientUnit:GetPointVec3() + self.CT1 = CT2 + self.CV1 = CV2 + + local CD = ( ( CV2.x - CV1.x )^2 + ( CV2.y - CV1.y )^2 + ( CV2.z - CV1.z )^2 ) ^ 0.5 + local CT = CT2 - CT1 + + local CS = ( 3600 / CT ) * ( CD / 1000 ) + + self:T2( { "Client:", CS, CD, CT, CV2, CV1, CT2, CT1 } ) + + local GT1 = self.GT1 + local GT2 = timer.getTime() + local GV1 = self.GV1 + local GV2 = GroupUnit:GetPointVec3() + self.GT1 = GT2 + self.GV1 = GV2 + + local GD = ( ( GV2.x - GV1.x )^2 + ( GV2.y - GV1.y )^2 + ( GV2.z - GV1.z )^2 ) ^ 0.5 + local GT = GT2 - GT1 + + local GS = ( 3600 / GT ) * ( GD / 1000 ) + + self:T2( { "Group:", GS, GD, GT, GV2, GV1, GT2, GT1 } ) + + -- Calculate the group direction vector + local GV = { x = GV2.x - CV2.x, y = GV2.y - CV2.y, z = GV2.z - CV2.z } + + -- Calculate GH2, GH2 with the same height as CV2. + local GH2 = { x = GV2.x, y = CV2.y, z = GV2.z } + + -- Calculate the angle of GV to the orthonormal plane + local alpha = math.atan2( GV.z, GV.x ) + + -- Now we calculate the intersecting vector between the circle around CV2 with radius FollowDistance and GH2. + -- From the GeoGebra model: CVI = (x(CV2) + FollowDistance cos(alpha), y(GH2) + FollowDistance sin(alpha), z(CV2)) + local CVI = { x = CV2.x + FollowDistance * math.cos(alpha), + y = GH2.y, + z = CV2.z + FollowDistance * math.sin(alpha), + } + + -- Calculate the direction vector DV of the escort group. We use CVI as the base and CV2 as the direction. + local DV = { x = CV2.x - CVI.x, y = CV2.y - CVI.y, z = CV2.z - CVI.z } + + -- We now calculate the unary direction vector DVu, so that we can multiply DVu with the speed, which is expressed in meters / s. + -- We need to calculate this vector to predict the point the escort group needs to fly to according its speed. + -- The distance of the destination point should be far enough not to have the aircraft starting to swipe left to right... + local DVu = { x = DV.x / FollowDistance, y = DV.y / FollowDistance, z = DV.z / FollowDistance } + + -- Now we can calculate the group destination vector GDV. + local GDV = { x = DVu.x * CS * 8 + CVI.x, y = CVI.y, z = DVu.z * CS * 8 + CVI.z } + + if self.SmokeDirectionVector == true then + trigger.action.smoke( GDV, trigger.smokeColor.Red ) + end + + self:T2( { "CV2:", CV2 } ) + self:T2( { "CVI:", CVI } ) + self:T2( { "GDV:", GDV } ) + + -- Measure distance between client and group + local CatchUpDistance = ( ( GDV.x - GV2.x )^2 + ( GDV.y - GV2.y )^2 + ( GDV.z - GV2.z )^2 ) ^ 0.5 + + -- The calculation of the Speed would simulate that the group would take 30 seconds to overcome + -- the requested Distance). + local Time = 10 + local CatchUpSpeed = ( CatchUpDistance - ( CS * 8.4 ) ) / Time + + local Speed = CS + CatchUpSpeed + if Speed < 0 then + Speed = 0 + end + + self:T( { "Client Speed, Escort Speed, Speed, FollowDistance, Time:", CS, GS, Speed, FollowDistance, Time } ) + + -- Now route the escort to the desired point with the desired speed. + self.EscortGroup:TaskRouteToVec3( GDV, Speed / 3.6 ) -- DCS models speed in Mps (Miles per second) + end + + return true + end + + return false +end + + +--- Report Targets Scheduler. +-- @param #ESCORT self +function ESCORT:_ReportTargetsScheduler() + self:F( self.EscortGroup:GetName() ) + + if self.EscortGroup:IsAlive() and self.EscortClient:IsAlive() then + local EscortGroupName = self.EscortGroup:GetName() + local EscortTargets = self.EscortGroup:GetDetectedTargets() + + local ClientEscortTargets = self.EscortClient._EscortGroups[EscortGroupName].Targets + + local EscortTargetMessages = "" + for EscortTargetID, EscortTarget in pairs( EscortTargets ) do + local EscortObject = EscortTarget.object + self:T( EscortObject ) + if EscortObject and EscortObject:isExist() and EscortObject.id_ < 50000000 then + + local EscortTargetUnit = UNIT:Find( EscortObject ) + local EscortTargetUnitName = EscortTargetUnit:GetName() + + + + -- local EscortTargetIsDetected, + -- EscortTargetIsVisible, + -- EscortTargetLastTime, + -- EscortTargetKnowType, + -- EscortTargetKnowDistance, + -- EscortTargetLastPos, + -- EscortTargetLastVelocity + -- = self.EscortGroup:IsTargetDetected( EscortObject ) + -- + -- self:T( { EscortTargetIsDetected, + -- EscortTargetIsVisible, + -- EscortTargetLastTime, + -- EscortTargetKnowType, + -- EscortTargetKnowDistance, + -- EscortTargetLastPos, + -- EscortTargetLastVelocity } ) + + + local EscortTargetUnitPositionVec3 = EscortTargetUnit:GetPointVec3() + local EscortPositionVec3 = self.EscortGroup:GetPointVec3() + local Distance = ( ( EscortTargetUnitPositionVec3.x - EscortPositionVec3.x )^2 + + ( EscortTargetUnitPositionVec3.y - EscortPositionVec3.y )^2 + + ( EscortTargetUnitPositionVec3.z - EscortPositionVec3.z )^2 + ) ^ 0.5 / 1000 + + self:T( { self.EscortGroup:GetName(), EscortTargetUnit:GetName(), Distance, EscortTarget } ) + + if Distance <= 15 then + + if not ClientEscortTargets[EscortTargetUnitName] then + ClientEscortTargets[EscortTargetUnitName] = {} + end + ClientEscortTargets[EscortTargetUnitName].AttackUnit = EscortTargetUnit + ClientEscortTargets[EscortTargetUnitName].visible = EscortTarget.visible + ClientEscortTargets[EscortTargetUnitName].type = EscortTarget.type + ClientEscortTargets[EscortTargetUnitName].distance = EscortTarget.distance + else + if ClientEscortTargets[EscortTargetUnitName] then + ClientEscortTargets[EscortTargetUnitName] = nil + end + end + end + end + + self:T( { "Sorting Targets Table:", ClientEscortTargets } ) + table.sort( ClientEscortTargets, function( a, b ) return a.Distance < b.Distance end ) + self:T( { "Sorted Targets Table:", ClientEscortTargets } ) + + -- Remove the sub menus of the Attack menu of the Escort for the EscortGroup. + self.EscortMenuAttackNearbyTargets:RemoveSubMenus() + + if self.EscortMenuTargetAssistance then + self.EscortMenuTargetAssistance:RemoveSubMenus() + end + + --for MenuIndex = 1, #self.EscortMenuAttackTargets do + -- self:T( { "Remove Menu:", self.EscortMenuAttackTargets[MenuIndex] } ) + -- self.EscortMenuAttackTargets[MenuIndex] = self.EscortMenuAttackTargets[MenuIndex]:Remove() + --end + + + if ClientEscortTargets then + for ClientEscortTargetUnitName, ClientEscortTargetData in pairs( ClientEscortTargets ) do + + for ClientEscortGroupName, EscortGroupData in pairs( self.EscortClient._EscortGroups ) do + + if ClientEscortTargetData and ClientEscortTargetData.AttackUnit:IsAlive() then + + local EscortTargetMessage = "" + local EscortTargetCategoryName = ClientEscortTargetData.AttackUnit:GetCategoryName() + local EscortTargetCategoryType = ClientEscortTargetData.AttackUnit:GetTypeName() + if ClientEscortTargetData.type then + EscortTargetMessage = EscortTargetMessage .. EscortTargetCategoryName .. " (" .. EscortTargetCategoryType .. ") at " + else + EscortTargetMessage = EscortTargetMessage .. "Unknown target at " + end + + local EscortTargetUnitPositionVec3 = ClientEscortTargetData.AttackUnit:GetPointVec3() + local EscortPositionVec3 = self.EscortGroup:GetPointVec3() + local Distance = ( ( EscortTargetUnitPositionVec3.x - EscortPositionVec3.x )^2 + + ( EscortTargetUnitPositionVec3.y - EscortPositionVec3.y )^2 + + ( EscortTargetUnitPositionVec3.z - EscortPositionVec3.z )^2 + ) ^ 0.5 / 1000 + + self:T( { self.EscortGroup:GetName(), ClientEscortTargetData.AttackUnit:GetName(), Distance, ClientEscortTargetData.AttackUnit } ) + if ClientEscortTargetData.visible == false then + EscortTargetMessage = EscortTargetMessage .. string.format( "%.2f", Distance ) .. " estimated km" + else + EscortTargetMessage = EscortTargetMessage .. string.format( "%.2f", Distance ) .. " km" + end + + if ClientEscortTargetData.visible then + EscortTargetMessage = EscortTargetMessage .. ", visual" + end + + if ClientEscortGroupName == EscortGroupName then + + MENU_CLIENT_COMMAND:New( self.EscortClient, + EscortTargetMessage, + self.EscortMenuAttackNearbyTargets, + ESCORT._AttackTarget, + { ParamSelf = self, + ParamUnit = ClientEscortTargetData.AttackUnit + } + ) + EscortTargetMessages = EscortTargetMessages .. "\n - " .. EscortTargetMessage + else + if self.EscortMenuTargetAssistance then + local MenuTargetAssistance = MENU_CLIENT:New( self.EscortClient, EscortGroupData.EscortName, self.EscortMenuTargetAssistance ) + MENU_CLIENT_COMMAND:New( self.EscortClient, + EscortTargetMessage, + MenuTargetAssistance, + ESCORT._AssistTarget, + { ParamSelf = self, + ParamEscortGroup = EscortGroupData.EscortGroup, + ParamUnit = ClientEscortTargetData.AttackUnit + } + ) + end + end + else + ClientEscortTargetData = nil + end + end + end + + if EscortTargetMessages ~= "" and self.ReportTargets == true then + self.EscortGroup:MessageToClient( "Detected targets within 15 km range:" .. EscortTargetMessages:gsub("\n$",""), 20, self.EscortClient ) + else + self.EscortGroup:MessageToClient( "No targets detected!", 20, self.EscortClient ) + end + end + + if self.EscortMenuResumeMission then + self.EscortMenuResumeMission:RemoveSubMenus() + + -- if self.EscortMenuResumeWayPoints then + -- for MenuIndex = 1, #self.EscortMenuResumeWayPoints do + -- self:T( { "Remove Menu:", self.EscortMenuResumeWayPoints[MenuIndex] } ) + -- self.EscortMenuResumeWayPoints[MenuIndex] = self.EscortMenuResumeWayPoints[MenuIndex]:Remove() + -- end + -- end + + local TaskPoints = self:RegisterRoute() + for WayPointID, WayPoint in pairs( TaskPoints ) do + local EscortPositionVec3 = self.EscortGroup:GetPointVec3() + local Distance = ( ( WayPoint.x - EscortPositionVec3.x )^2 + + ( WayPoint.y - EscortPositionVec3.z )^2 + ) ^ 0.5 / 1000 + MENU_CLIENT_COMMAND:New( self.EscortClient, "Waypoint " .. WayPointID .. " at " .. string.format( "%.2f", Distance ).. "km", self.EscortMenuResumeMission, ESCORT._ResumeMission, { ParamSelf = self, ParamWayPoint = WayPointID } ) + end + end + + return true + end + + return false +end +--- This module contains the MISSILETRAINER class. +-- +-- === +-- +-- 1) @{MissileTrainer#MISSILETRAINER} class, extends @{Base#BASE} +-- =============================================================== +-- The @{#MISSILETRAINER} class uses the DCS world messaging system to be alerted of any missiles fired, and when a missile would hit your aircraft, +-- the class will destroy the missile within a certain range, to avoid damage to your aircraft. +-- It suports the following functionality: +-- +-- * Track the missiles fired at you and other players, providing bearing and range information of the missiles towards the airplanes. +-- * Provide alerts of missile launches, including detailed information of the units launching, including bearing, range … +-- * Provide alerts when a missile would have killed your aircraft. +-- * Provide alerts when the missile self destructs. +-- * Enable / Disable and Configure the Missile Trainer using the various menu options. +-- +-- When running a mission where MISSILETRAINER is used, the following radio menu structure ( 'Radio Menu' -> 'Other (F10)' -> 'MissileTrainer' ) options are available for the players: +-- +-- * **Messages**: Menu to configure all messages. +-- * **Messages On**: Show all messages. +-- * **Messages Off**: Disable all messages. +-- * **Tracking**: Menu to configure missile tracking messages. +-- * **To All**: Shows missile tracking messages to all players. +-- * **To Target**: Shows missile tracking messages only to the player where the missile is targetted at. +-- * **Tracking On**: Show missile tracking messages. +-- * **Tracking Off**: Disable missile tracking messages. +-- * **Frequency Increase**: Increases the missile tracking message frequency with one second. +-- * **Frequency Decrease**: Decreases the missile tracking message frequency with one second. +-- * **Alerts**: Menu to configure alert messages. +-- * **To All**: Shows alert messages to all players. +-- * **To Target**: Shows alert messages only to the player where the missile is (was) targetted at. +-- * **Hits On**: Show missile hit alert messages. +-- * **Hits Off**: Disable missile hit alert messages. +-- * **Launches On**: Show missile launch messages. +-- * **Launches Off**: Disable missile launch messages. +-- * **Details**: Menu to configure message details. +-- * **Range On**: Shows range information when a missile is fired to a target. +-- * **Range Off**: Disable range information when a missile is fired to a target. +-- * **Bearing On**: Shows bearing information when a missile is fired to a target. +-- * **Bearing Off**: Disable bearing information when a missile is fired to a target. +-- * **Distance**: Menu to configure the distance when a missile needs to be destroyed when near to a player, during tracking. This will improve/influence hit calculation accuracy, but has the risk of damaging the aircraft when the missile reaches the aircraft before the distance is measured. +-- * **50 meter**: Destroys the missile when the distance to the aircraft is below or equal to 50 meter. +-- * **100 meter**: Destroys the missile when the distance to the aircraft is below or equal to 100 meter. +-- * **150 meter**: Destroys the missile when the distance to the aircraft is below or equal to 150 meter. +-- * **200 meter**: Destroys the missile when the distance to the aircraft is below or equal to 200 meter. +-- +-- +-- 1.1) MISSILETRAINER construction methods: +-- ----------------------------------------- +-- Create a new MISSILETRAINER object with the @{#MISSILETRAINER.New} method: +-- +-- * @{#MISSILETRAINER.New}: Creates a new MISSILETRAINER object taking the maximum distance to your aircraft to evaluate when a missile needs to be destroyed. +-- +-- MISSILETRAINER will collect each unit declared in the mission with a skill level "Client" and "Player", and will monitor the missiles shot at those. +-- +-- 1.2) MISSILETRAINER initialization methods: +-- ------------------------------------------- +-- A MISSILETRAINER object will behave differently based on the usage of initialization methods: +-- +-- * @{#MISSILETRAINER.InitMessagesOnOff}: Sets by default the display of any message to be ON or OFF. +-- * @{#MISSILETRAINER.InitTrackingToAll}: Sets by default the missile tracking report for all players or only for those missiles targetted to you. +-- * @{#MISSILETRAINER.InitTrackingOnOff}: Sets by default the display of missile tracking report to be ON or OFF. +-- * @{#MISSILETRAINER.InitTrackingFrequency}: Increases, decreases the missile tracking message display frequency with the provided time interval in seconds. +-- * @{#MISSILETRAINER.InitAlertsToAll}: Sets by default the display of alerts to be shown to all players or only to you. +-- * @{#MISSILETRAINER.InitAlertsHitsOnOff}: Sets by default the display of hit alerts ON or OFF. +-- * @{#MISSILETRAINER.InitAlertsLaunchesOnOff}: Sets by default the display of launch alerts ON or OFF. +-- * @{#MISSILETRAINER.InitRangeOnOff}: Sets by default the display of range information of missiles ON of OFF. +-- * @{#MISSILETRAINER.InitBearingOnOff}: Sets by default the display of bearing information of missiles ON of OFF. +-- * @{#MISSILETRAINER.InitMenusOnOff}: Allows to configure the options through the radio menu. +-- +-- === +-- +-- CREDITS +-- ======= +-- **Stuka (Danny)** Who you can search on the Eagle Dynamics Forums. +-- Working together with Danny has resulted in the MISSILETRAINER class. +-- Danny has shared his ideas and together we made a design. +-- Together with the **476 virtual team**, we tested the MISSILETRAINER class, and got much positive feedback! +-- +-- @module MissileTrainer +-- @author FlightControl + + +--- The MISSILETRAINER class +-- @type MISSILETRAINER +-- @field Set#SET_CLIENT DBClients +-- @extends Base#BASE +MISSILETRAINER = { + ClassName = "MISSILETRAINER", + TrackingMissiles = {}, +} + +function MISSILETRAINER._Alive( Client, self ) + + if self.Briefing then + Client:Message( self.Briefing, 15, "Trainer" ) + end + + if self.MenusOnOff == true then + Client:Message( "Use the 'Radio Menu' -> 'Other (F10)' -> 'Missile Trainer' menu options to change the Missile Trainer settings (for all players).", 15, "Trainer" ) + + Client.MainMenu = MENU_CLIENT:New( Client, "Missile Trainer", nil ) -- Menu#MENU_CLIENT + + Client.MenuMessages = MENU_CLIENT:New( Client, "Messages", Client.MainMenu ) + Client.MenuOn = MENU_CLIENT_COMMAND:New( Client, "Messages On", Client.MenuMessages, self._MenuMessages, { MenuSelf = self, MessagesOnOff = true } ) + Client.MenuOff = MENU_CLIENT_COMMAND:New( Client, "Messages Off", Client.MenuMessages, self._MenuMessages, { MenuSelf = self, MessagesOnOff = false } ) + + Client.MenuTracking = MENU_CLIENT:New( Client, "Tracking", Client.MainMenu ) + Client.MenuTrackingToAll = MENU_CLIENT_COMMAND:New( Client, "To All", Client.MenuTracking, self._MenuMessages, { MenuSelf = self, TrackingToAll = true } ) + Client.MenuTrackingToTarget = MENU_CLIENT_COMMAND:New( Client, "To Target", Client.MenuTracking, self._MenuMessages, { MenuSelf = self, TrackingToAll = false } ) + Client.MenuTrackOn = MENU_CLIENT_COMMAND:New( Client, "Tracking On", Client.MenuTracking, self._MenuMessages, { MenuSelf = self, TrackingOnOff = true } ) + Client.MenuTrackOff = MENU_CLIENT_COMMAND:New( Client, "Tracking Off", Client.MenuTracking, self._MenuMessages, { MenuSelf = self, TrackingOnOff = false } ) + Client.MenuTrackIncrease = MENU_CLIENT_COMMAND:New( Client, "Frequency Increase", Client.MenuTracking, self._MenuMessages, { MenuSelf = self, TrackingFrequency = -1 } ) + Client.MenuTrackDecrease = MENU_CLIENT_COMMAND:New( Client, "Frequency Decrease", Client.MenuTracking, self._MenuMessages, { MenuSelf = self, TrackingFrequency = 1 } ) + + Client.MenuAlerts = MENU_CLIENT:New( Client, "Alerts", Client.MainMenu ) + Client.MenuAlertsToAll = MENU_CLIENT_COMMAND:New( Client, "To All", Client.MenuAlerts, self._MenuMessages, { MenuSelf = self, AlertsToAll = true } ) + Client.MenuAlertsToTarget = MENU_CLIENT_COMMAND:New( Client, "To Target", Client.MenuAlerts, self._MenuMessages, { MenuSelf = self, AlertsToAll = false } ) + Client.MenuHitsOn = MENU_CLIENT_COMMAND:New( Client, "Hits On", Client.MenuAlerts, self._MenuMessages, { MenuSelf = self, AlertsHitsOnOff = true } ) + Client.MenuHitsOff = MENU_CLIENT_COMMAND:New( Client, "Hits Off", Client.MenuAlerts, self._MenuMessages, { MenuSelf = self, AlertsHitsOnOff = false } ) + Client.MenuLaunchesOn = MENU_CLIENT_COMMAND:New( Client, "Launches On", Client.MenuAlerts, self._MenuMessages, { MenuSelf = self, AlertsLaunchesOnOff = true } ) + Client.MenuLaunchesOff = MENU_CLIENT_COMMAND:New( Client, "Launches Off", Client.MenuAlerts, self._MenuMessages, { MenuSelf = self, AlertsLaunchesOnOff = false } ) + + Client.MenuDetails = MENU_CLIENT:New( Client, "Details", Client.MainMenu ) + Client.MenuDetailsDistanceOn = MENU_CLIENT_COMMAND:New( Client, "Range On", Client.MenuDetails, self._MenuMessages, { MenuSelf = self, DetailsRangeOnOff = true } ) + Client.MenuDetailsDistanceOff = MENU_CLIENT_COMMAND:New( Client, "Range Off", Client.MenuDetails, self._MenuMessages, { MenuSelf = self, DetailsRangeOnOff = false } ) + Client.MenuDetailsBearingOn = MENU_CLIENT_COMMAND:New( Client, "Bearing On", Client.MenuDetails, self._MenuMessages, { MenuSelf = self, DetailsBearingOnOff = true } ) + Client.MenuDetailsBearingOff = MENU_CLIENT_COMMAND:New( Client, "Bearing Off", Client.MenuDetails, self._MenuMessages, { MenuSelf = self, DetailsBearingOnOff = false } ) + + Client.MenuDistance = MENU_CLIENT:New( Client, "Set distance to plane", Client.MainMenu ) + Client.MenuDistance50 = MENU_CLIENT_COMMAND:New( Client, "50 meter", Client.MenuDistance, self._MenuMessages, { MenuSelf = self, Distance = 50 / 1000 } ) + Client.MenuDistance100 = MENU_CLIENT_COMMAND:New( Client, "100 meter", Client.MenuDistance, self._MenuMessages, { MenuSelf = self, Distance = 100 / 1000 } ) + Client.MenuDistance150 = MENU_CLIENT_COMMAND:New( Client, "150 meter", Client.MenuDistance, self._MenuMessages, { MenuSelf = self, Distance = 150 / 1000 } ) + Client.MenuDistance200 = MENU_CLIENT_COMMAND:New( Client, "200 meter", Client.MenuDistance, self._MenuMessages, { MenuSelf = self, Distance = 200 / 1000 } ) + else + if Client.MainMenu then + Client.MainMenu:Remove() + end + end + + local ClientID = Client:GetID() + self:T( ClientID ) + if not self.TrackingMissiles[ClientID] then + self.TrackingMissiles[ClientID] = {} + end + self.TrackingMissiles[ClientID].Client = Client + if not self.TrackingMissiles[ClientID].MissileData then + self.TrackingMissiles[ClientID].MissileData = {} + end +end + +--- Creates the main object which is handling missile tracking. +-- When a missile is fired a SCHEDULER is set off that follows the missile. When near a certain a client player, the missile will be destroyed. +-- @param #MISSILETRAINER self +-- @param #number Distance The distance in meters when a tracked missile needs to be destroyed when close to a player. +-- @param #string Briefing (Optional) Will show a text to the players when starting their mission. Can be used for briefing purposes. +-- @return #MISSILETRAINER +function MISSILETRAINER:New( Distance, Briefing ) + local self = BASE:Inherit( self, BASE:New() ) + self:F( Distance ) + + if Briefing then + self.Briefing = Briefing + end + + self.Schedulers = {} + self.SchedulerID = 0 + + self.MessageInterval = 2 + self.MessageLastTime = timer.getTime() + + self.Distance = Distance / 1000 + + _EVENTDISPATCHER:OnShot( self._EventShot, self ) + + self.DBClients = SET_CLIENT:New():FilterStart() + + +-- for ClientID, Client in pairs( self.DBClients.Database ) do +-- self:E( "ForEach:" .. Client.UnitName ) +-- Client:Alive( self._Alive, self ) +-- end +-- + self.DBClients:ForEachClient( + function( Client ) + self:E( "ForEach:" .. Client.UnitName ) + Client:Alive( self._Alive, self ) + end + ) + + + +-- self.DB:ForEachClient( +-- --- @param Client#CLIENT Client +-- function( Client ) +-- +-- ... actions ... +-- +-- end +-- ) + + self.MessagesOnOff = true + + self.TrackingToAll = false + self.TrackingOnOff = true + self.TrackingFrequency = 3 + + self.AlertsToAll = true + self.AlertsHitsOnOff = true + self.AlertsLaunchesOnOff = true + + self.DetailsRangeOnOff = true + self.DetailsBearingOnOff = true + + self.MenusOnOff = true + + self.TrackingMissiles = {} + + self.TrackingScheduler = SCHEDULER:New( self, self._TrackMissiles, {}, 0.5, 0.05, 0 ) + + return self +end + +-- Initialization methods. + + + +--- Sets by default the display of any message to be ON or OFF. +-- @param #MISSILETRAINER self +-- @param #boolean MessagesOnOff true or false +-- @return #MISSILETRAINER self +function MISSILETRAINER:InitMessagesOnOff( MessagesOnOff ) + self:F( MessagesOnOff ) + + self.MessagesOnOff = MessagesOnOff + if self.MessagesOnOff == true then + MESSAGE:New( "Messages ON", 15, "Menu" ):ToAll() + else + MESSAGE:New( "Messages OFF", 15, "Menu" ):ToAll() + end + + return self +end + +--- Sets by default the missile tracking report for all players or only for those missiles targetted to you. +-- @param #MISSILETRAINER self +-- @param #boolean TrackingToAll true or false +-- @return #MISSILETRAINER self +function MISSILETRAINER:InitTrackingToAll( TrackingToAll ) + self:F( TrackingToAll ) + + self.TrackingToAll = TrackingToAll + if self.TrackingToAll == true then + MESSAGE:New( "Missile tracking to all players ON", 15, "Menu" ):ToAll() + else + MESSAGE:New( "Missile tracking to all players OFF", 15, "Menu" ):ToAll() + end + + return self +end + +--- Sets by default the display of missile tracking report to be ON or OFF. +-- @param #MISSILETRAINER self +-- @param #boolean TrackingOnOff true or false +-- @return #MISSILETRAINER self +function MISSILETRAINER:InitTrackingOnOff( TrackingOnOff ) + self:F( TrackingOnOff ) + + self.TrackingOnOff = TrackingOnOff + if self.TrackingOnOff == true then + MESSAGE:New( "Missile tracking ON", 15, "Menu" ):ToAll() + else + MESSAGE:New( "Missile tracking OFF", 15, "Menu" ):ToAll() + end + + return self +end + +--- Increases, decreases the missile tracking message display frequency with the provided time interval in seconds. +-- The default frequency is a 3 second interval, so the Tracking Frequency parameter specifies the increase or decrease from the default 3 seconds or the last frequency update. +-- @param #MISSILETRAINER self +-- @param #number TrackingFrequency Provide a negative or positive value in seconds to incraese or decrease the display frequency. +-- @return #MISSILETRAINER self +function MISSILETRAINER:InitTrackingFrequency( TrackingFrequency ) + self:F( TrackingFrequency ) + + self.TrackingFrequency = self.TrackingFrequency + TrackingFrequency + if self.TrackingFrequency < 0.5 then + self.TrackingFrequency = 0.5 + end + if self.TrackingFrequency then + MESSAGE:New( "Missile tracking frequency is " .. self.TrackingFrequency .. " seconds.", 15, "Menu" ):ToAll() + end + + return self +end + +--- Sets by default the display of alerts to be shown to all players or only to you. +-- @param #MISSILETRAINER self +-- @param #boolean AlertsToAll true or false +-- @return #MISSILETRAINER self +function MISSILETRAINER:InitAlertsToAll( AlertsToAll ) + self:F( AlertsToAll ) + + self.AlertsToAll = AlertsToAll + if self.AlertsToAll == true then + MESSAGE:New( "Alerts to all players ON", 15, "Menu" ):ToAll() + else + MESSAGE:New( "Alerts to all players OFF", 15, "Menu" ):ToAll() + end + + return self +end + +--- Sets by default the display of hit alerts ON or OFF. +-- @param #MISSILETRAINER self +-- @param #boolean AlertsHitsOnOff true or false +-- @return #MISSILETRAINER self +function MISSILETRAINER:InitAlertsHitsOnOff( AlertsHitsOnOff ) + self:F( AlertsHitsOnOff ) + + self.AlertsHitsOnOff = AlertsHitsOnOff + if self.AlertsHitsOnOff == true then + MESSAGE:New( "Alerts Hits ON", 15, "Menu" ):ToAll() + else + MESSAGE:New( "Alerts Hits OFF", 15, "Menu" ):ToAll() + end + + return self +end + +--- Sets by default the display of launch alerts ON or OFF. +-- @param #MISSILETRAINER self +-- @param #boolean AlertsLaunchesOnOff true or false +-- @return #MISSILETRAINER self +function MISSILETRAINER:InitAlertsLaunchesOnOff( AlertsLaunchesOnOff ) + self:F( AlertsLaunchesOnOff ) + + self.AlertsLaunchesOnOff = AlertsLaunchesOnOff + if self.AlertsLaunchesOnOff == true then + MESSAGE:New( "Alerts Launches ON", 15, "Menu" ):ToAll() + else + MESSAGE:New( "Alerts Launches OFF", 15, "Menu" ):ToAll() + end + + return self +end + +--- Sets by default the display of range information of missiles ON of OFF. +-- @param #MISSILETRAINER self +-- @param #boolean DetailsRangeOnOff true or false +-- @return #MISSILETRAINER self +function MISSILETRAINER:InitRangeOnOff( DetailsRangeOnOff ) + self:F( DetailsRangeOnOff ) + + self.DetailsRangeOnOff = DetailsRangeOnOff + if self.DetailsRangeOnOff == true then + MESSAGE:New( "Range display ON", 15, "Menu" ):ToAll() + else + MESSAGE:New( "Range display OFF", 15, "Menu" ):ToAll() + end + + return self +end + +--- Sets by default the display of bearing information of missiles ON of OFF. +-- @param #MISSILETRAINER self +-- @param #boolean DetailsBearingOnOff true or false +-- @return #MISSILETRAINER self +function MISSILETRAINER:InitBearingOnOff( DetailsBearingOnOff ) + self:F( DetailsBearingOnOff ) + + self.DetailsBearingOnOff = DetailsBearingOnOff + if self.DetailsBearingOnOff == true then + MESSAGE:New( "Bearing display OFF", 15, "Menu" ):ToAll() + else + MESSAGE:New( "Bearing display OFF", 15, "Menu" ):ToAll() + end + + return self +end + +--- Enables / Disables the menus. +-- @param #MISSILETRAINER self +-- @param #boolean MenusOnOff true or false +-- @return #MISSILETRAINER self +function MISSILETRAINER:InitMenusOnOff( MenusOnOff ) + self:F( MenusOnOff ) + + self.MenusOnOff = MenusOnOff + if self.MenusOnOff == true then + MESSAGE:New( "Menus are ENABLED (only when a player rejoins a slot)", 15, "Menu" ):ToAll() + else + MESSAGE:New( "Menus are DISABLED", 15, "Menu" ):ToAll() + end + + return self +end + + +-- Menu functions + +function MISSILETRAINER._MenuMessages( MenuParameters ) + + local self = MenuParameters.MenuSelf + + if MenuParameters.MessagesOnOff ~= nil then + self:InitMessagesOnOff( MenuParameters.MessagesOnOff ) + end + + if MenuParameters.TrackingToAll ~= nil then + self:InitTrackingToAll( MenuParameters.TrackingToAll ) + end + + if MenuParameters.TrackingOnOff ~= nil then + self:InitTrackingOnOff( MenuParameters.TrackingOnOff ) + end + + if MenuParameters.TrackingFrequency ~= nil then + self:InitTrackingFrequency( MenuParameters.TrackingFrequency ) + end + + if MenuParameters.AlertsToAll ~= nil then + self:InitAlertsToAll( MenuParameters.AlertsToAll ) + end + + if MenuParameters.AlertsHitsOnOff ~= nil then + self:InitAlertsHitsOnOff( MenuParameters.AlertsHitsOnOff ) + end + + if MenuParameters.AlertsLaunchesOnOff ~= nil then + self:InitAlertsLaunchesOnOff( MenuParameters.AlertsLaunchesOnOff ) + end + + if MenuParameters.DetailsRangeOnOff ~= nil then + self:InitRangeOnOff( MenuParameters.DetailsRangeOnOff ) + end + + if MenuParameters.DetailsBearingOnOff ~= nil then + self:InitBearingOnOff( MenuParameters.DetailsBearingOnOff ) + end + + if MenuParameters.Distance ~= nil then + self.Distance = MenuParameters.Distance + MESSAGE:New( "Hit detection distance set to " .. self.Distance .. " meters", 15, "Menu" ):ToAll() + end + +end + +--- Detects if an SA site was shot with an anti radiation missile. In this case, take evasive actions based on the skill level set within the ME. +-- @param #MISSILETRAINER self +-- @param Event#EVENTDATA Event +function MISSILETRAINER:_EventShot( Event ) + self:F( { Event } ) + + local TrainerSourceDCSUnit = Event.IniDCSUnit + local TrainerSourceDCSUnitName = Event.IniDCSUnitName + local TrainerWeapon = Event.Weapon -- Identify the weapon fired + local TrainerWeaponName = Event.WeaponName -- return weapon type + + self:T( "Missile Launched = " .. TrainerWeaponName ) + + local TrainerTargetDCSUnit = TrainerWeapon:getTarget() -- Identify target + local TrainerTargetDCSUnitName = Unit.getName( TrainerTargetDCSUnit ) + local TrainerTargetSkill = _DATABASE.Templates.Units[TrainerTargetDCSUnitName].Template.skill + + self:T(TrainerTargetDCSUnitName ) + + local Client = self.DBClients:FindClient( TrainerTargetDCSUnitName ) + if Client then + + local TrainerSourceUnit = UNIT:Find( TrainerSourceDCSUnit ) + local TrainerTargetUnit = UNIT:Find( TrainerTargetDCSUnit ) + + if self.MessagesOnOff == true and self.AlertsLaunchesOnOff == true then + + local Message = MESSAGE:New( + string.format( "%s launched a %s", + TrainerSourceUnit:GetTypeName(), + TrainerWeaponName + ) .. self:_AddRange( Client, TrainerWeapon ) .. self:_AddBearing( Client, TrainerWeapon ), 5, "Launch Alert" ) + + if self.AlertsToAll then + Message:ToAll() + else + Message:ToClient( Client ) + end + end + + local ClientID = Client:GetID() + self:T( ClientID ) + local MissileData = {} + MissileData.TrainerSourceUnit = TrainerSourceUnit + MissileData.TrainerWeapon = TrainerWeapon + MissileData.TrainerTargetUnit = TrainerTargetUnit + MissileData.TrainerWeaponTypeName = TrainerWeapon:getTypeName() + MissileData.TrainerWeaponLaunched = true + table.insert( self.TrackingMissiles[ClientID].MissileData, MissileData ) + --self:T( self.TrackingMissiles ) + end +end + +function MISSILETRAINER:_AddRange( Client, TrainerWeapon ) + + local RangeText = "" + + if self.DetailsRangeOnOff then + + local PositionMissile = TrainerWeapon:getPoint() + local PositionTarget = Client:GetPointVec3() + + local Range = ( ( PositionMissile.x - PositionTarget.x )^2 + + ( PositionMissile.y - PositionTarget.y )^2 + + ( PositionMissile.z - PositionTarget.z )^2 + ) ^ 0.5 / 1000 + + RangeText = string.format( ", at %4.2fkm", Range ) + end + + return RangeText +end + +function MISSILETRAINER:_AddBearing( Client, TrainerWeapon ) + + local BearingText = "" + + if self.DetailsBearingOnOff then + + local PositionMissile = TrainerWeapon:getPoint() + local PositionTarget = Client:GetPointVec3() + + self:T2( { PositionTarget, PositionMissile }) + + local DirectionVector = { x = PositionMissile.x - PositionTarget.x, y = PositionMissile.y - PositionTarget.y, z = PositionMissile.z - PositionTarget.z } + local DirectionRadians = math.atan2( DirectionVector.z, DirectionVector.x ) + --DirectionRadians = DirectionRadians + routines.getNorthCorrection( PositionTarget ) + if DirectionRadians < 0 then + DirectionRadians = DirectionRadians + 2 * math.pi + end + local DirectionDegrees = DirectionRadians * 180 / math.pi + + BearingText = string.format( ", %d degrees", DirectionDegrees ) + end + + return BearingText +end + + +function MISSILETRAINER:_TrackMissiles() + self:F2() + + + local ShowMessages = false + if self.MessagesOnOff and self.MessageLastTime + self.TrackingFrequency <= timer.getTime() then + self.MessageLastTime = timer.getTime() + ShowMessages = true + end + + -- ALERTS PART + + -- Loop for all Player Clients to check the alerts and deletion of missiles. + for ClientDataID, ClientData in pairs( self.TrackingMissiles ) do + + local Client = ClientData.Client + self:T2( { Client:GetName() } ) + + for MissileDataID, MissileData in pairs( ClientData.MissileData ) do + self:T3( MissileDataID ) + + local TrainerSourceUnit = MissileData.TrainerSourceUnit + local TrainerWeapon = MissileData.TrainerWeapon + local TrainerTargetUnit = MissileData.TrainerTargetUnit + local TrainerWeaponTypeName = MissileData.TrainerWeaponTypeName + local TrainerWeaponLaunched = MissileData.TrainerWeaponLaunched + + if Client and Client:IsAlive() and TrainerSourceUnit and TrainerSourceUnit:IsAlive() and TrainerWeapon and TrainerWeapon:isExist() and TrainerTargetUnit and TrainerTargetUnit:IsAlive() then + local PositionMissile = TrainerWeapon:getPosition().p + local PositionTarget = Client:GetPointVec3() + + local Distance = ( ( PositionMissile.x - PositionTarget.x )^2 + + ( PositionMissile.y - PositionTarget.y )^2 + + ( PositionMissile.z - PositionTarget.z )^2 + ) ^ 0.5 / 1000 + + if Distance <= self.Distance then + -- Hit alert + TrainerWeapon:destroy() + if self.MessagesOnOff == true and self.AlertsHitsOnOff == true then + + self:T( "killed" ) + + local Message = MESSAGE:New( + string.format( "%s launched by %s killed %s", + TrainerWeapon:getTypeName(), + TrainerSourceUnit:GetTypeName(), + TrainerTargetUnit:GetPlayerName() + ), 15, "Hit Alert" ) + + if self.AlertsToAll == true then + Message:ToAll() + else + Message:ToClient( Client ) + end + + MissileData = nil + table.remove( ClientData.MissileData, MissileDataID ) + self:T(ClientData.MissileData) + end + end + else + if not ( TrainerWeapon and TrainerWeapon:isExist() ) then + if self.MessagesOnOff == true and self.AlertsLaunchesOnOff == true then + -- Weapon does not exist anymore. Delete from Table + local Message = MESSAGE:New( + string.format( "%s launched by %s self destructed!", + TrainerWeaponTypeName, + TrainerSourceUnit:GetTypeName() + ), 5, "Tracking" ) + + if self.AlertsToAll == true then + Message:ToAll() + else + Message:ToClient( Client ) + end + end + MissileData = nil + table.remove( ClientData.MissileData, MissileDataID ) + self:T( ClientData.MissileData ) + end + end + end + end + + if ShowMessages == true and self.MessagesOnOff == true and self.TrackingOnOff == true then -- Only do this when tracking information needs to be displayed. + + -- TRACKING PART + + -- For the current client, the missile range and bearing details are displayed To the Player Client. + -- For the other clients, the missile range and bearing details are displayed To the other Player Clients. + -- To achieve this, a cross loop is done for each Player Client <-> Other Player Client missile information. + + -- Main Player Client loop + for ClientDataID, ClientData in pairs( self.TrackingMissiles ) do + + local Client = ClientData.Client + self:T2( { Client:GetName() } ) + + + ClientData.MessageToClient = "" + ClientData.MessageToAll = "" + + -- Other Players Client loop + for TrackingDataID, TrackingData in pairs( self.TrackingMissiles ) do + + for MissileDataID, MissileData in pairs( TrackingData.MissileData ) do + self:T3( MissileDataID ) + + local TrainerSourceUnit = MissileData.TrainerSourceUnit + local TrainerWeapon = MissileData.TrainerWeapon + local TrainerTargetUnit = MissileData.TrainerTargetUnit + local TrainerWeaponTypeName = MissileData.TrainerWeaponTypeName + local TrainerWeaponLaunched = MissileData.TrainerWeaponLaunched + + if Client and Client:IsAlive() and TrainerSourceUnit and TrainerSourceUnit:IsAlive() and TrainerWeapon and TrainerWeapon:isExist() and TrainerTargetUnit and TrainerTargetUnit:IsAlive() then + + if ShowMessages == true then + local TrackingTo + TrackingTo = string.format( " -> %s", + TrainerWeaponTypeName + ) + + if ClientDataID == TrackingDataID then + if ClientData.MessageToClient == "" then + ClientData.MessageToClient = "Missiles to You:\n" + end + ClientData.MessageToClient = ClientData.MessageToClient .. TrackingTo .. self:_AddRange( ClientData.Client, TrainerWeapon ) .. self:_AddBearing( ClientData.Client, TrainerWeapon ) .. "\n" + else + if self.TrackingToAll == true then + if ClientData.MessageToAll == "" then + ClientData.MessageToAll = "Missiles to other Players:\n" + end + ClientData.MessageToAll = ClientData.MessageToAll .. TrackingTo .. self:_AddRange( ClientData.Client, TrainerWeapon ) .. self:_AddBearing( ClientData.Client, TrainerWeapon ) .. " ( " .. TrainerTargetUnit:GetPlayerName() .. " )\n" + end + end + end + end + end + end + + -- Once the Player Client and the Other Player Client tracking messages are prepared, show them. + if ClientData.MessageToClient ~= "" or ClientData.MessageToAll ~= "" then + local Message = MESSAGE:New( ClientData.MessageToClient .. ClientData.MessageToAll, 1, "Tracking" ):ToClient( Client ) + end + end + end + + return true +end +--- This module contains the PATROLZONE class. +-- +-- === +-- +-- 1) @{Patrol#PATROLZONE} class, extends @{Base#BASE} +-- =================================================== +-- The @{Patrol#PATROLZONE} class implements the core functions to patrol a @{Zone}. +-- +-- 1.1) PATROLZONE constructor: +-- ---------------------------- +-- @{PatrolZone#PATROLZONE.New}(): Creates a new PATROLZONE object. +-- +-- 1.2) Modify the PATROLZONE parameters: +-- -------------------------------------- +-- The following methods are available to modify the parameters of a PATROLZONE object: +-- +-- * @{PatrolZone#PATROLZONE.SetGroup}(): Set the AI Patrol Group. +-- * @{PatrolZone#PATROLZONE.SetSpeed}(): Set the patrol speed of the AI, for the next patrol. +-- * @{PatrolZone#PATROLZONE.SetAltitude}(): Set altitude of the AI, for the next patrol. +-- +-- 1.3) Manage the out of fuel in the PATROLZONE: +-- ---------------------------------------------- +-- When the PatrolGroup is out of fuel, it is required that a new PatrolGroup is started, before the old PatrolGroup can return to the home base. +-- Therefore, with a parameter and a calculation of the distance to the home base, the fuel treshold is calculated. +-- When the fuel treshold is reached, the PatrolGroup will continue for a given time its patrol task in orbit, while a new PatrolGroup is targetted to the PATROLZONE. +-- Once the time is finished, the old PatrolGroup will return to the base. +-- Use the method @{PatrolZone#PATROLZONE.ManageFuel}() to have this proces in place. +-- +-- === +-- +-- @module PatrolZone +-- @author FlightControl + + +--- PATROLZONE class +-- @type PATROLZONE +-- @field Group#GROUP PatrolGroup The @{Group} patrolling. +-- @field Zone#ZONE_BASE PatrolZone The @{Zone} where the patrol needs to be executed. +-- @field DCSTypes#Altitude PatrolFloorAltitude The lowest altitude in meters where to execute the patrol. +-- @field DCSTypes#Altitude PatrolCeilingAltitude The highest altitude in meters where to execute the patrol. +-- @field DCSTypes#Speed PatrolMinSpeed The minimum speed of the @{Group} in km/h. +-- @field DCSTypes#Speed PatrolMaxSpeed The maximum speed of the @{Group} in km/h. +-- @extends Base#BASE +PATROLZONE = { + ClassName = "PATROLZONE", +} + +--- Creates a new PATROLZONE object, taking a @{Group} object as a parameter. The GROUP needs to be alive. +-- @param #PATROLZONE self +-- @param Zone#ZONE_BASE PatrolZone The @{Zone} where the patrol needs to be executed. +-- @param DCSTypes#Altitude PatrolFloorAltitude The lowest altitude in meters where to execute the patrol. +-- @param DCSTypes#Altitude PatrolCeilingAltitude The highest altitude in meters where to execute the patrol. +-- @param DCSTypes#Speed PatrolMinSpeed The minimum speed of the @{Group} in km/h. +-- @param DCSTypes#Speed PatrolMaxSpeed The maximum speed of the @{Group} in km/h. +-- @return #PATROLZONE self +-- @usage +-- -- Define a new PATROLZONE Object. This PatrolArea will patrol a group within PatrolZone between 3000 and 6000 meters, with a variying speed between 600 and 900 km/h. +-- PatrolZone = ZONE:New( 'PatrolZone' ) +-- PatrolGroup = GROUP:FindByName( "Patrol Group" ) +-- PatrolArea = PATROLZONE:New( PatrolGroup, PatrolZone, 3000, 6000, 600, 900 ) +function PATROLZONE:New( PatrolZone, PatrolFloorAltitude, PatrolCeilingAltitude, PatrolMinSpeed, PatrolMaxSpeed ) + + -- Inherits from BASE + local self = BASE:Inherit( self, BASE:New() ) + + self.PatrolZone = PatrolZone + self.PatrolFloorAltitude = PatrolFloorAltitude + self.PatrolCeilingAltitude = PatrolCeilingAltitude + self.PatrolMinSpeed = PatrolMinSpeed + self.PatrolMaxSpeed = PatrolMaxSpeed + + return self +end + +--- Set the @{Group} to act as the Patroller. +-- @param #PATROLZONE self +-- @param Group#GROUP PatrolGroup The @{Group} patrolling. +-- @return #PATROLZONE self +function PATROLZONE:SetGroup( PatrolGroup ) + + self.PatrolGroup = PatrolGroup + self.PatrolGroupTemplateName = PatrolGroup:GetName() + self:NewPatrolRoute() + + if not self.PatrolOutOfFuelMonitor then + self.PatrolOutOfFuelMonitor = SCHEDULER:New( nil, _MonitorOutOfFuelScheduled, { self }, 1, 120, 0 ) + self.SpawnPatrolGroup = SPAWN:New( self.PatrolGroupTemplateName ) + end + + return self +end + +--- Sets (modifies) the minimum and maximum speed of the patrol. +-- @param #PATROLZONE self +-- @param DCSTypes#Speed PatrolMinSpeed The minimum speed of the @{Group} in km/h. +-- @param DCSTypes#Speed PatrolMaxSpeed The maximum speed of the @{Group} in km/h. +-- @return #PATROLZONE self +function PATROLZONE:SetSpeed( PatrolMinSpeed, PatrolMaxSpeed ) + self:F2( { PatrolMinSpeed, PatrolMaxSpeed } ) + + self.PatrolMinSpeed = PatrolMinSpeed + self.PatrolMaxSpeed = PatrolMaxSpeed +end + +--- Sets the floor and ceiling altitude of the patrol. +-- @param #PATROLZONE self +-- @param DCSTypes#Altitude PatrolFloorAltitude The lowest altitude in meters where to execute the patrol. +-- @param DCSTypes#Altitude PatrolCeilingAltitude The highest altitude in meters where to execute the patrol. +-- @return #PATROLZONE self +function PATROLZONE:SetAltitude( PatrolFloorAltitude, PatrolCeilingAltitude ) + self:F2( { PatrolFloorAltitude, PatrolCeilingAltitude } ) + + self.PatrolFloorAltitude = PatrolFloorAltitude + self.PatrolCeilingAltitude = PatrolCeilingAltitude +end + + + +--- @param Group#GROUP PatrolGroup +function _NewPatrolRoute( PatrolGroup ) + + PatrolGroup:T( "NewPatrolRoute" ) + local PatrolZone = PatrolGroup:GetState( PatrolGroup, "PatrolZone" ) -- PatrolZone#PATROLZONE + PatrolZone:NewPatrolRoute() +end + +--- Defines a new patrol route using the @{PatrolZone} parameters and settings. +-- @param #PATROLZONE self +-- @return #PATROLZONE self +function PATROLZONE:NewPatrolRoute() + + self:F2() + + local PatrolRoute = {} + + if self.PatrolGroup:IsAlive() then + --- Determine if the PatrolGroup is within the PatrolZone. + -- If not, make a waypoint within the to that the PatrolGroup will fly at maximum speed to that point. + +-- --- Calculate the current route point. +-- local CurrentVec2 = self.PatrolGroup:GetPointVec2() +-- local CurrentAltitude = self.PatrolGroup:GetUnit(1):GetAltitude() +-- local CurrentPointVec3 = POINT_VEC3:New( CurrentVec2.x, CurrentAltitude, CurrentVec2.y ) +-- local CurrentRoutePoint = CurrentPointVec3:RoutePointAir( +-- POINT_VEC3.RoutePointAltType.BARO, +-- POINT_VEC3.RoutePointType.TurningPoint, +-- POINT_VEC3.RoutePointAction.TurningPoint, +-- ToPatrolZoneSpeed, +-- true +-- ) +-- +-- PatrolRoute[#PatrolRoute+1] = CurrentRoutePoint + + self:T2( PatrolRoute ) + + if self.PatrolGroup:IsNotInZone( self.PatrolZone ) then + --- Find a random 2D point in PatrolZone. + local ToPatrolZoneVec2 = self.PatrolZone:GetRandomVec2() + self:T2( ToPatrolZoneVec2 ) + + --- Define Speed and Altitude. + local ToPatrolZoneAltitude = math.random( self.PatrolFloorAltitude, self.PatrolCeilingAltitude ) + local ToPatrolZoneSpeed = self.PatrolMaxSpeed + self:T2( ToPatrolZoneSpeed ) + + --- Obtain a 3D @{Point} from the 2D point + altitude. + local ToPatrolZonePointVec3 = POINT_VEC3:New( ToPatrolZoneVec2.x, ToPatrolZoneAltitude, ToPatrolZoneVec2.y ) + + --- Create a route point of type air. + local ToPatrolZoneRoutePoint = ToPatrolZonePointVec3:RoutePointAir( + POINT_VEC3.RoutePointAltType.BARO, + POINT_VEC3.RoutePointType.TurningPoint, + POINT_VEC3.RoutePointAction.TurningPoint, + ToPatrolZoneSpeed, + true + ) + + PatrolRoute[#PatrolRoute+1] = ToPatrolZoneRoutePoint + + end + + --- Define a random point in the @{Zone}. The AI will fly to that point within the zone. + + --- Find a random 2D point in PatrolZone. + local ToTargetVec2 = self.PatrolZone:GetRandomVec2() + self:T2( ToTargetVec2 ) + + --- Define Speed and Altitude. + local ToTargetAltitude = math.random( self.PatrolFloorAltitude, self.PatrolCeilingAltitude ) + local ToTargetSpeed = math.random( self.PatrolMinSpeed, self.PatrolMaxSpeed ) + self:T2( { self.PatrolMinSpeed, self.PatrolMaxSpeed, ToTargetSpeed } ) + + --- Obtain a 3D @{Point} from the 2D point + altitude. + local ToTargetPointVec3 = POINT_VEC3:New( ToTargetVec2.x, ToTargetAltitude, ToTargetVec2.y ) + + --- Create a route point of type air. + local ToTargetRoutePoint = ToTargetPointVec3:RoutePointAir( + POINT_VEC3.RoutePointAltType.BARO, + POINT_VEC3.RoutePointType.TurningPoint, + POINT_VEC3.RoutePointAction.TurningPoint, + ToTargetSpeed, + true + ) + + --ToTargetPointVec3:SmokeRed() + + PatrolRoute[#PatrolRoute+1] = ToTargetRoutePoint + + --- Now we're going to do something special, we're going to call a function from a waypoint action at the PatrolGroup... + self.PatrolGroup:WayPointInitialize( PatrolRoute ) + + --- Do a trick, link the NewPatrolRoute function of the PATROLGROUP object to the PatrolGroup in a temporary variable ... + self.PatrolGroup:SetState( self.PatrolGroup, "PatrolZone", self ) + self.PatrolGroup:WayPointFunction( #PatrolRoute, 1, "_NewPatrolRoute" ) + + --- NOW ROUTE THE GROUP! + self.PatrolGroup:WayPointExecute( 1, 2 ) + end + +end + +--- When the PatrolGroup is out of fuel, it is required that a new PatrolGroup is started, before the old PatrolGroup can return to the home base. +-- Therefore, with a parameter and a calculation of the distance to the home base, the fuel treshold is calculated. +-- When the fuel treshold is reached, the PatrolGroup will continue for a given time its patrol task in orbit, while a new PatrolGroup is targetted to the PATROLZONE. +-- Once the time is finished, the old PatrolGroup will return to the base. +-- @param #PATROLZONE self +-- @param #number PatrolFuelTresholdPercentage The treshold in percentage (between 0 and 1) when the PatrolGroup is considered to get out of fuel. +-- @param #number PatrolOutOfFuelOrbitTime The amount of seconds the out of fuel PatrolGroup will orbit before returning to the base. +-- @return #PATROLZONE self +function PATROLZONE:ManageFuel( PatrolFuelTresholdPercentage, PatrolOutOfFuelOrbitTime ) + + self.PatrolManageFuel = true + self.PatrolFuelTresholdPercentage = PatrolFuelTresholdPercentage + self.PatrolOutOfFuelOrbitTime = PatrolOutOfFuelOrbitTime + + if self.PatrolGroup then + self.PatrolOutOfFuelMonitor = SCHEDULER:New( self, self._MonitorOutOfFuelScheduled, {}, 1, 120, 0 ) + self.SpawnPatrolGroup = SPAWN:New( self.PatrolGroupTemplateName ) + end + return self +end + +--- @param #PATROLZONE self +function _MonitorOutOfFuelScheduled( self ) + self:F2( "_MonitorOutOfFuelScheduled" ) + + if self.PatrolGroup and self.PatrolGroup:IsAlive() then + + local Fuel = self.PatrolGroup:GetUnit(1):GetFuel() + if Fuel < self.PatrolFuelTresholdPercentage then + local OldPatrolGroup = self.PatrolGroup + local PatrolGroupTemplate = self.PatrolGroup:GetTemplate() + + local OrbitTask = OldPatrolGroup:TaskOrbitCircle( math.random( self.PatrolFloorAltitude, self.PatrolCeilingAltitude ), self.PatrolMinSpeed ) + local TimedOrbitTask = OldPatrolGroup:TaskControlled( OrbitTask, OldPatrolGroup:TaskCondition(nil,nil,nil,nil,self.PatrolOutOfFuelOrbitTime,nil ) ) + OldPatrolGroup:SetTask( TimedOrbitTask, 10 ) + + local NewPatrolGroup = self.SpawnPatrolGroup:Spawn() + self.PatrolGroup = NewPatrolGroup + self:NewPatrolRoute() + end + else + self.PatrolOutOfFuelMonitor:Stop() + end +end--- This module contains the AIBALANCER class. +-- +-- === +-- +-- 1) @{AIBalancer#AIBALANCER} class, extends @{Base#BASE} +-- ================================================ +-- The @{AIBalancer#AIBALANCER} class controls the dynamic spawning of AI GROUPS depending on a SET_CLIENT. +-- There will be as many AI GROUPS spawned as there at CLIENTS in SET_CLIENT not spawned. +-- +-- 1.1) AIBALANCER construction method: +-- ------------------------------------ +-- Create a new AIBALANCER object with the @{#AIBALANCER.New} method: +-- +-- * @{#AIBALANCER.New}: Creates a new AIBALANCER object. +-- +-- 1.2) AIBALANCER returns AI to Airbases: +-- --------------------------------------- +-- You can configure to have the AI to return to: +-- +-- * @{#AIBALANCER.ReturnToHomeAirbase}: Returns the AI to the home @{Airbase#AIRBASE}. +-- * @{#AIBALANCER.ReturnToNearestAirbases}: Returns the AI to the nearest friendly @{Airbase#AIRBASE}. +-- +-- 1.3) AIBALANCER allows AI to patrol specific zones: +-- --------------------------------------------------- +-- Use @{AIBalancer#AIBALANCER.SetPatrolZone}() to specify a zone where the AI needs to patrol. +-- +-- +-- === +-- +-- CREDITS +-- ======= +-- **Dutch_Baron (James)** Who you can search on the Eagle Dynamics Forums. +-- Working together with James has resulted in the creation of the AIBALANCER class. +-- James has shared his ideas on balancing AI with air units, and together we made a first design which you can use now :-) +-- +-- **SNAFU** +-- Had a couple of mails with the guys to validate, if the same concept in the GCI/CAP script could be reworked within MOOSE. +-- None of the script code has been used however within the new AIBALANCER moose class. +-- +-- @module AIBalancer +-- @author FlightControl + +--- AIBALANCER class +-- @type AIBALANCER +-- @field Set#SET_CLIENT SetClient +-- @field Spawn#SPAWN SpawnAI +-- @field #boolean ToNearestAirbase +-- @field Set#SET_AIRBASE ReturnAirbaseSet +-- @field DCSTypes#Distance ReturnTresholdRange +-- @field #boolean ToHomeAirbase +-- @field PatrolZone#PATROLZONE PatrolZone +-- @extends Base#BASE +AIBALANCER = { + ClassName = "AIBALANCER", + PatrolZones = {}, + AIGroups = {}, +} + +--- Creates a new AIBALANCER object, building a set of units belonging to a coalitions, categories, countries, types or with defined prefix names. +-- @param #AIBALANCER self +-- @param SetClient A SET_CLIENT object that will contain the CLIENT objects to be monitored if they are alive or not (joined by a player). +-- @param SpawnAI A SPAWN object that will spawn the AI units required, balancing the SetClient. +-- @return #AIBALANCER self +function AIBALANCER:New( SetClient, SpawnAI ) + + -- Inherits from BASE + local self = BASE:Inherit( self, BASE:New() ) + + self.SetClient = SetClient + if type( SpawnAI ) == "table" then + if SpawnAI.ClassName and SpawnAI.ClassName == "SPAWN" then + self.SpawnAI = { SpawnAI } + else + local SpawnObjects = true + for SpawnObjectID, SpawnObject in pairs( SpawnAI ) do + if SpawnObject.ClassName and SpawnObject.ClassName == "SPAWN" then + self:E( SpawnObject.ClassName ) + else + self:E( "other object" ) + SpawnObjects = false + end + end + if SpawnObjects == true then + self.SpawnAI = SpawnAI + else + error( "No SPAWN object given in parameter SpawnAI, either as a single object or as a table of objects!" ) + end + end + end + + self.ToNearestAirbase = false + self.ReturnHomeAirbase = false + + self.AIMonitorSchedule = SCHEDULER:New( self, self._ClientAliveMonitorScheduler, {}, 1, 10, 0 ) + + return self +end + +--- Returns the AI to the nearest friendly @{Airbase#AIRBASE}. +-- @param #AIBALANCER self +-- @param DCSTypes#Distance ReturnTresholdRange If there is an enemy @{Client#CLIENT} within the ReturnTresholdRange given in meters, the AI will not return to the nearest @{Airbase#AIRBASE}. +-- @param Set#SET_AIRBASE ReturnAirbaseSet The SET of @{Set#SET_AIRBASE}s to evaluate where to return to. +function AIBALANCER:ReturnToNearestAirbases( ReturnTresholdRange, ReturnAirbaseSet ) + + self.ToNearestAirbase = true + self.ReturnTresholdRange = ReturnTresholdRange + self.ReturnAirbaseSet = ReturnAirbaseSet +end + +--- Returns the AI to the home @{Airbase#AIRBASE}. +-- @param #AIBALANCER self +-- @param DCSTypes#Distance ReturnTresholdRange If there is an enemy @{Client#CLIENT} within the ReturnTresholdRange given in meters, the AI will not return to the nearest @{Airbase#AIRBASE}. +function AIBALANCER:ReturnToHomeAirbase( ReturnTresholdRange ) + + self.ToHomeAirbase = true + self.ReturnTresholdRange = ReturnTresholdRange +end + +--- Let the AI patrol a @{Zone} with a given Speed range and Altitude range. +-- @param #AIBALANCER self +-- @param PatrolZone#PATROLZONE PatrolZone The @{PatrolZone} where the AI needs to patrol. +-- @return PatrolZone#PATROLZONE self +function AIBALANCER:SetPatrolZone( PatrolZone ) + + self.PatrolZone = PatrolZone +end + +--- @param #AIBALANCER self +function AIBALANCER:_ClientAliveMonitorScheduler() + + self.SetClient:ForEachClient( + --- @param Client#CLIENT Client + function( Client ) + local ClientAIAliveState = Client:GetState( self, 'AIAlive' ) + self:T( ClientAIAliveState ) + if Client:IsAlive() then + if ClientAIAliveState == true then + Client:SetState( self, 'AIAlive', false ) + + local AIGroup = self.AIGroups[Client.UnitName] -- Group#GROUP + +-- local PatrolZone = Client:GetState( self, "PatrolZone" ) +-- if PatrolZone then +-- PatrolZone = nil +-- Client:ClearState( self, "PatrolZone" ) +-- end + + if self.ToNearestAirbase == false and self.ToHomeAirbase == false then + AIGroup:Destroy() + else + -- We test if there is no other CLIENT within the self.ReturnTresholdRange of the first unit of the AI group. + -- If there is a CLIENT, the AI stays engaged and will not return. + -- If there is no CLIENT within the self.ReturnTresholdRange, then the unit will return to the Airbase return method selected. + + local PlayerInRange = { Value = false } + local RangeZone = ZONE_RADIUS:New( 'RangeZone', AIGroup:GetPointVec2(), self.ReturnTresholdRange ) + + self:E( RangeZone ) + + _DATABASE:ForEachPlayer( + --- @param Unit#UNIT RangeTestUnit + function( RangeTestUnit, RangeZone, AIGroup, PlayerInRange ) + self:E( { PlayerInRange, RangeTestUnit.UnitName, RangeZone.ZoneName } ) + if RangeTestUnit:IsInZone( RangeZone ) == true then + self:E( "in zone" ) + if RangeTestUnit:GetCoalition() ~= AIGroup:GetCoalition() then + self:E( "in range" ) + PlayerInRange.Value = true + end + end + end, + + --- @param Zone#ZONE_RADIUS RangeZone + -- @param Group#GROUP AIGroup + function( RangeZone, AIGroup, PlayerInRange ) + local AIGroupTemplate = AIGroup:GetTemplate() + if PlayerInRange.Value == false then + if self.ToHomeAirbase == true then + local WayPointCount = #AIGroupTemplate.route.points + local SwitchWayPointCommand = AIGroup:CommandSwitchWayPoint( 1, WayPointCount, 1 ) + AIGroup:SetCommand( SwitchWayPointCommand ) + AIGroup:MessageToRed( "Returning to home base ...", 30 ) + else + -- Okay, we need to send this Group back to the nearest base of the Coalition of the AI. + --TODO: i need to rework the POINT_VEC2 thing. + local PointVec2 = POINT_VEC2:New( AIGroup:GetPointVec2().x, AIGroup:GetPointVec2().y ) + local ClosestAirbase = self.ReturnAirbaseSet:FindNearestAirbaseFromPointVec2( PointVec2 ) + self:T( ClosestAirbase.AirbaseName ) + AIGroup:MessageToRed( "Returning to " .. ClosestAirbase:GetName().. " ...", 30 ) + local RTBRoute = AIGroup:RouteReturnToAirbase( ClosestAirbase ) + AIGroupTemplate.route = RTBRoute + AIGroup:Respawn( AIGroupTemplate ) + end + end + end + , RangeZone, AIGroup, PlayerInRange + ) + + end + end + else + if not ClientAIAliveState or ClientAIAliveState == false then + Client:SetState( self, 'AIAlive', true ) + + + -- OK, spawn a new group from the SpawnAI objects provided. + local SpawnAICount = #self.SpawnAI + local SpawnAIIndex = math.random( 1, SpawnAICount ) + local AIGroup = self.SpawnAI[SpawnAIIndex]:Spawn() + AIGroup:E( "spawning new AIGroup" ) + --TODO: need to rework UnitName thing ... + self.AIGroups[Client.UnitName] = AIGroup + + --- Now test if the AIGroup needs to patrol a zone, otherwise let it follow its route... + if self.PatrolZone then + self.PatrolZones[#self.PatrolZones+1] = PATROLZONE:New( + self.PatrolZone.PatrolZone, + self.PatrolZone.PatrolFloorAltitude, + self.PatrolZone.PatrolCeilingAltitude, + self.PatrolZone.PatrolMinSpeed, + self.PatrolZone.PatrolMaxSpeed + ) + + if self.PatrolZone.PatrolManageFuel == true then + self.PatrolZones[#self.PatrolZones]:ManageFuel( self.PatrolZone.PatrolFuelTresholdPercentage, self.PatrolZone.PatrolOutOfFuelOrbitTime ) + end + self.PatrolZones[#self.PatrolZones]:SetGroup( AIGroup ) + + --self.PatrolZones[#self.PatrolZones+1] = PatrolZone + + --Client:SetState( self, "PatrolZone", PatrolZone ) + end + end + end + end + ) + return true +end + + + +--- This module contains the AIRBASEPOLICE classes. +-- +-- === +-- +-- 1) @{AirbasePolice#AIRBASEPOLICE_BASE} class, extends @{Base#BASE} +-- ================================================================== +-- The @{AirbasePolice#AIRBASEPOLICE_BASE} class provides the main methods to monitor CLIENT behaviour at airbases. +-- CLIENTS should not be allowed to: +-- +-- * Don't taxi faster than 40 km/h. +-- * Don't take-off on taxiways. +-- * Avoid to hit other planes on the airbase. +-- * Obey ground control orders. +-- +-- 2) @{AirbasePolice#AIRBASEPOLICE_CAUCASUS} class, extends @{AirbasePolice#AIRBASEPOLICE_BASE} +-- ============================================================================================= +-- All the airbases on the caucasus map can be monitored using this class. +-- If you want to monitor specific airbases, you need to use the @{#AIRBASEPOLICE_BASE.Monitor}() method, which takes a table or airbase names. +-- The following names can be given: +-- * AnapaVityazevo +-- * Batumi +-- * Beslan +-- * Gelendzhik +-- * Gudauta +-- * Kobuleti +-- * KrasnodarCenter +-- * KrasnodarPashkovsky +-- * Krymsk +-- * Kutaisi +-- * MaykopKhanskaya +-- * MineralnyeVody +-- * Mozdok +-- * Nalchik +-- * Novorossiysk +-- * SenakiKolkhi +-- * SochiAdler +-- * Soganlug +-- * SukhumiBabushara +-- * TbilisiLochini +-- * Vaziani +-- +-- 3) @{AirbasePolice#AIRBASEPOLICE_NEVADA} class, extends @{AirbasePolice#AIRBASEPOLICE_BASE} +-- ============================================================================================= +-- All the airbases on the NEVADA map can be monitored using this class. +-- If you want to monitor specific airbases, you need to use the @{#AIRBASEPOLICE_BASE.Monitor}() method, which takes a table or airbase names. +-- The following names can be given: +-- * Nellis +-- * McCarran +-- * Creech +-- * Groom Lake +-- +-- @module AirbasePolice +-- @author Flight Control & DUTCH BARON + + + + + +--- @type AIRBASEPOLICE_BASE +-- @field Set#SET_CLIENT SetClient +-- @extends Base#BASE + +AIRBASEPOLICE_BASE = { + ClassName = "AIRBASEPOLICE_BASE", + SetClient = nil, + Airbases = nil, + AirbaseNames = nil, +} + + +--- Creates a new AIRBASEPOLICE_BASE object. +-- @param #AIRBASEPOLICE_BASE self +-- @param SetClient A SET_CLIENT object that will contain the CLIENT objects to be monitored if they follow the rules of the airbase. +-- @param Airbases A table of Airbase Names. +-- @return #AIRBASEPOLICE_BASE self +function AIRBASEPOLICE_BASE:New( SetClient, Airbases ) + + -- Inherits from BASE + local self = BASE:Inherit( self, BASE:New() ) + self:E( { self.ClassName, SetClient, Airbases } ) + + self.SetClient = SetClient + self.Airbases = Airbases + + for AirbaseID, Airbase in pairs( self.Airbases ) do + Airbase.ZoneBoundary = ZONE_POLYGON_BASE:New( "Boundary", Airbase.PointsBoundary ):SmokeZone(POINT_VEC3.SmokeColor.White):Flush() + for PointsRunwayID, PointsRunway in pairs( Airbase.PointsRunways ) do + Airbase.ZoneRunways[PointsRunwayID] = ZONE_POLYGON_BASE:New( "Runway " .. PointsRunwayID, PointsRunway ):SmokeZone(POINT_VEC3.SmokeColor.Red):Flush() + end + end + + -- -- Template + -- local TemplateBoundary = GROUP:FindByName( "Template Boundary" ) + -- self.Airbases.Template.ZoneBoundary = ZONE_POLYGON:New( "Template Boundary", TemplateBoundary ):SmokeZone(POINT_VEC3.SmokeColor.White):Flush() + -- + -- local TemplateRunway1 = GROUP:FindByName( "Template Runway 1" ) + -- self.Airbases.Template.ZoneRunways[1] = ZONE_POLYGON:New( "Template Runway 1", TemplateRunway1 ):SmokeZone(POINT_VEC3.SmokeColor.Red):Flush() + + self.SetClient:ForEachClient( + --- @param Client#CLIENT Client + function( Client ) + Client:SetState( self, "Speeding", false ) + Client:SetState( self, "Warnings", 0) + Client:SetState( self, "Taxi", false ) + end + ) + + self.AirbaseMonitor = SCHEDULER:New( self, self._AirbaseMonitor, {}, 0, 2, 0.05 ) + + return self +end + +--- @type AIRBASEPOLICE_BASE.AirbaseNames +-- @list <#string> + +--- Monitor a table of airbase names. +-- @param #AIRBASEPOLICE_BASE self +-- @param #AIRBASEPOLICE_BASE.AirbaseNames AirbaseNames A list of AirbaseNames to monitor. If this parameters is nil, then all airbases will be monitored. +-- @return #AIRBASEPOLICE_BASE self +function AIRBASEPOLICE_BASE:Monitor( AirbaseNames ) + + if AirbaseNames then + if type( AirbaseNames ) == "table" then + self.AirbaseNames = AirbaseNames + else + self.AirbaseNames = { AirbaseNames } + end + end +end + +--- @param #AIRBASEPOLICE_BASE self +function AIRBASEPOLICE_BASE:_AirbaseMonitor() + + for AirbaseID, Airbase in pairs( self.Airbases ) do + + if not self.AirbaseNames or self.AirbaseNames[AirbaseID] then + + self:E( AirbaseID ) + + self.SetClient:ForEachClientInZone( Airbase.ZoneBoundary, + + --- @param Client#CLIENT Client + function( Client ) + + self:E( Client.UnitName ) + if Client:IsAlive() then + local NotInRunwayZone = true + for ZoneRunwayID, ZoneRunway in pairs( Airbase.ZoneRunways ) do + NotInRunwayZone = ( Client:IsNotInZone( ZoneRunway ) == true ) and NotInRunwayZone or false + end + + if NotInRunwayZone then + local Taxi = self:GetState( self, "Taxi" ) + self:E( Taxi ) + if Taxi == false then + Client:Message( "Welcome at " .. AirbaseID .. ". The maximum taxiing speed is " .. Airbase.MaximumSpeed " km/h.", 20, "ATC" ) + self:SetState( self, "Taxi", true ) + end + + local VelocityVec3 = Client:GetVelocity() + local Velocity = math.abs(VelocityVec3.x) + math.abs(VelocityVec3.y) + math.abs(VelocityVec3.z) + local IsAboveRunway = Client:IsAboveRunway() + local IsOnGround = Client:InAir() == false + self:T( IsAboveRunway, IsOnGround ) + + if IsAboveRunway and IsOnGround then + + if Velocity > Airbase.MaximumSpeed then + local IsSpeeding = Client:GetState( self, "Speeding" ) + + if IsSpeeding == true then + local SpeedingWarnings = Client:GetState( self, "Warnings" ) + self:T( SpeedingWarnings ) + + if SpeedingWarnings <= 5 then + Client:Message( "You are speeding on the taxiway! Slow down or you will be removed from this airbase! Your current velocity is " .. string.format( "%2.0f km/h", Velocity ), 5, "Warning " .. SpeedingWarnings .. " / 5" ) + Client:SetState( self, "Warnings", SpeedingWarnings + 1 ) + else + MESSAGE:New( "Player " .. Client:GetPlayerName() .. " has been removed from the airbase, due to a speeding violation ...", 10, "Airbase Police" ):ToAll() + Client:GetGroup():Destroy() + Client:SetState( self, "Speeding", false ) + Client:SetState( self, "Warnings", 0 ) + end + + else + Client:Message( "You are speeding on the taxiway! Slow down please ...! Your current velocity is " .. string.format( "%2.0f km/h", Velocity ), 5, "Attention! " ) + Client:SetState( self, "Speeding", true ) + Client:SetState( self, "Warnings", 1 ) + end + + else + Client:SetState( self, "Speeding", false ) + Client:SetState( self, "Warnings", 0 ) + end + end + + else + Client:SetState( self, "Speeding", false ) + Client:SetState( self, "Warnings", 0 ) + local Taxi = self:GetState( self, "Taxi" ) + if Taxi == true then + Client:Message( "You have progressed to the runway ... Await take-off clearance ...", 20, "ATC" ) + self:SetState( self, "Taxi", false ) + end + end + end + end + ) + end + end + + return true +end + + +--- @type AIRBASEPOLICE_CAUCASUS +-- @field Set#SET_CLIENT SetClient +-- @extends #AIRBASEPOLICE_BASE + +AIRBASEPOLICE_CAUCASUS = { + ClassName = "AIRBASEPOLICE_CAUCASUS", + Airbases = { + AnapaVityazevo = { + PointsBoundary = { + [1]={["y"]=242234.85714287,["x"]=-6616.5714285726,}, + [2]={["y"]=241060.57142858,["x"]=-5585.142857144,}, + [3]={["y"]=243806.2857143,["x"]=-3962.2857142868,}, + [4]={["y"]=245240.57142858,["x"]=-4816.5714285726,}, + [5]={["y"]=244783.42857144,["x"]=-5630.8571428583,}, + [6]={["y"]=243800.57142858,["x"]=-5065.142857144,}, + [7]={["y"]=242232.00000001,["x"]=-6622.2857142868,}, + }, + PointsRunways = { + [1] = { + }, + }, + ZoneBoundary = {}, + ZoneRunways = {}, + MaximumSpeed = 50, + }, + Batumi = { + PointsBoundary = { + [1]={["y"]=617567.14285714,["x"]=-355313.14285715,}, + [2]={["y"]=616181.42857142,["x"]=-354800.28571429,}, + [3]={["y"]=616007.14285714,["x"]=-355128.85714286,}, + [4]={["y"]=618230,["x"]=-356914.57142858,}, + [5]={["y"]=618727.14285714,["x"]=-356166,}, + [6]={["y"]=617572.85714285,["x"]=-355308.85714286,}, + }, + PointsRunways = { + [1] = { + [1]={["y"]=616442.28571429,["x"]=-355090.28571429,}, + [2]={["y"]=618450.57142857,["x"]=-356522,}, + [3]={["y"]=618407.71428571,["x"]=-356584.85714286,}, + [4]={["y"]=618361.99999999,["x"]=-356554.85714286,}, + [5]={["y"]=618324.85714285,["x"]=-356599.14285715,}, + [6]={["y"]=618250.57142856,["x"]=-356543.42857143,}, + [7]={["y"]=618257.7142857,["x"]=-356496.28571429,}, + [8]={["y"]=618237.7142857,["x"]=-356459.14285715,}, + [9]={["y"]=616555.71428571,["x"]=-355258.85714286,}, + [10]={["y"]=616486.28571428,["x"]=-355280.57142858,}, + [11]={["y"]=616410.57142856,["x"]=-355227.71428572,}, + [12]={["y"]=616441.99999999,["x"]=-355179.14285715,}, + [13]={["y"]=616401.99999999,["x"]=-355147.71428572,}, + [14]={["y"]=616441.42857142,["x"]=-355092.57142858,}, + }, + }, + ZoneBoundary = {}, + ZoneRunways = {}, + MaximumSpeed = 50, + }, + Beslan = { + PointsBoundary = { + [1]={["y"]=842082.57142857,["x"]=-148445.14285715,}, + [2]={["y"]=845237.71428572,["x"]=-148639.71428572,}, + [3]={["y"]=845232,["x"]=-148765.42857143,}, + [4]={["y"]=844220.57142857,["x"]=-149168.28571429,}, + [5]={["y"]=843274.85714286,["x"]=-149125.42857143,}, + [6]={["y"]=842077.71428572,["x"]=-148554,}, + [7]={["y"]=842083.42857143,["x"]=-148445.42857143,}, + }, + PointsRunways = { + [1] = { + [1]={["y"]=842104.57142857,["x"]=-148460.57142857,}, + [2]={["y"]=845225.71428572,["x"]=-148656,}, + [3]={["y"]=845220.57142858,["x"]=-148750,}, + [4]={["y"]=842098.85714286,["x"]=-148556.28571429,}, + [5]={["y"]=842104,["x"]=-148460.28571429,}, + }, + }, + ZoneBoundary = {}, + ZoneRunways = {}, + MaximumSpeed = 50, + }, + Gelendzhik = { + PointsBoundary = { + [1]={["y"]=297856.00000001,["x"]=-51151.428571429,}, + [2]={["y"]=299044.57142858,["x"]=-49720.000000001,}, + [3]={["y"]=298861.71428572,["x"]=-49580.000000001,}, + [4]={["y"]=298198.85714286,["x"]=-49842.857142858,}, + [5]={["y"]=297990.28571429,["x"]=-50151.428571429,}, + [6]={["y"]=297696.00000001,["x"]=-51054.285714286,}, + [7]={["y"]=297850.28571429,["x"]=-51160.000000001,}, + }, + PointsRunways = { + [1] = { + [1]={["y"]=297834.00000001,["x"]=-51107.428571429,}, + [2]={["y"]=297786.57142858,["x"]=-51068.857142858,}, + [3]={["y"]=298946.57142858,["x"]=-49686.000000001,}, + [4]={["y"]=298993.14285715,["x"]=-49725.714285715,}, + [5]={["y"]=297835.14285715,["x"]=-51107.714285715,}, + }, + }, + ZoneBoundary = {}, + ZoneRunways = {}, + MaximumSpeed = 50, + }, + Gudauta = { + PointsBoundary = { + [1]={["y"]=517246.57142857,["x"]=-197850.28571429,}, + [2]={["y"]=516749.42857142,["x"]=-198070.28571429,}, + [3]={["y"]=515755.14285714,["x"]=-197598.85714286,}, + [4]={["y"]=515369.42857142,["x"]=-196538.85714286,}, + [5]={["y"]=515623.71428571,["x"]=-195618.85714286,}, + [6]={["y"]=515946.57142857,["x"]=-195510.28571429,}, + [7]={["y"]=517243.71428571,["x"]=-197858.85714286,}, + }, + PointsRunways = { + [1] = { + [1]={["y"]=517096.57142857,["x"]=-197804.57142857,}, + [2]={["y"]=515880.85714285,["x"]=-195590.28571429,}, + [3]={["y"]=515812.28571428,["x"]=-195628.85714286,}, + [4]={["y"]=517036.57142857,["x"]=-197834.57142857,}, + [5]={["y"]=517097.99999999,["x"]=-197807.42857143,}, + }, + }, + ZoneBoundary = {}, + ZoneRunways = {}, + MaximumSpeed = 50, + }, + Kobuleti = { + PointsBoundary = { + [1]={["y"]=634427.71428571,["x"]=-318290.28571429,}, + [2]={["y"]=635033.42857143,["x"]=-317550.2857143,}, + [3]={["y"]=635864.85714286,["x"]=-317333.14285715,}, + [4]={["y"]=636967.71428571,["x"]=-317261.71428572,}, + [5]={["y"]=637144.85714286,["x"]=-317913.14285715,}, + [6]={["y"]=634630.57142857,["x"]=-318687.42857144,}, + [7]={["y"]=634424.85714286,["x"]=-318290.2857143,}, + }, + PointsRunways = { + [1] = { + [1]={["y"]=634509.71428571,["x"]=-318339.42857144,}, + [2]={["y"]=636767.42857143,["x"]=-317516.57142858,}, + [3]={["y"]=636790,["x"]=-317575.71428572,}, + [4]={["y"]=634531.42857143,["x"]=-318398.00000001,}, + [5]={["y"]=634510.28571429,["x"]=-318339.71428572,}, + }, + }, + ZoneBoundary = {}, + ZoneRunways = {}, + MaximumSpeed = 50, + }, + KrasnodarCenter = { + PointsBoundary = { + [1]={["y"]=366680.28571429,["x"]=11699.142857142,}, + [2]={["y"]=366654.28571429,["x"]=11225.142857142,}, + [3]={["y"]=367497.14285715,["x"]=11082.285714285,}, + [4]={["y"]=368025.71428572,["x"]=10396.57142857,}, + [5]={["y"]=369854.28571429,["x"]=11367.999999999,}, + [6]={["y"]=369840.00000001,["x"]=11910.857142856,}, + [7]={["y"]=366682.57142858,["x"]=11697.999999999,}, + }, + PointsRunways = { + [1] = { + [1]={["y"]=369205.42857144,["x"]=11789.142857142,}, + [2]={["y"]=369209.71428572,["x"]=11714.857142856,}, + [3]={["y"]=366699.71428572,["x"]=11581.714285713,}, + [4]={["y"]=366698.28571429,["x"]=11659.142857142,}, + [5]={["y"]=369208.85714286,["x"]=11788.57142857,}, + }, + }, + ZoneBoundary = {}, + ZoneRunways = {}, + MaximumSpeed = 50, + }, + KrasnodarPashkovsky = { + PointsBoundary = { + [1]={["y"]=386754,["x"]=6476.5714285703,}, + [2]={["y"]=389182.57142858,["x"]=8722.2857142846,}, + [3]={["y"]=388832.57142858,["x"]=9086.5714285703,}, + [4]={["y"]=386961.14285715,["x"]=7707.9999999989,}, + [5]={["y"]=385404,["x"]=9179.4285714274,}, + [6]={["y"]=383239.71428572,["x"]=7386.5714285703,}, + [7]={["y"]=383954,["x"]=6486.5714285703,}, + [8]={["y"]=385775.42857143,["x"]=8097.9999999989,}, + [9]={["y"]=386804,["x"]=7319.4285714274,}, + [10]={["y"]=386375.42857143,["x"]=6797.9999999989,}, + [11]={["y"]=386746.85714286,["x"]=6472.2857142846,}, + }, + PointsRunways = { + [1] = { + [1]={["y"]=385891.14285715,["x"]=8416.5714285703,}, + [2]={["y"]=385842.28571429,["x"]=8467.9999999989,}, + [3]={["y"]=384180.85714286,["x"]=6917.1428571417,}, + [4]={["y"]=384228.57142858,["x"]=6867.7142857132,}, + [5]={["y"]=385891.14285715,["x"]=8416.5714285703,}, + }, + [2] = { + [1]={["y"]=386714.85714286,["x"]=6674.857142856,}, + [2]={["y"]=386757.71428572,["x"]=6627.7142857132,}, + [3]={["y"]=389028.57142858,["x"]=8741.4285714275,}, + [4]={["y"]=388981.71428572,["x"]=8790.5714285703,}, + [5]={["y"]=386714.57142858,["x"]=6674.5714285703,}, + }, + }, + ZoneBoundary = {}, + ZoneRunways = {}, + MaximumSpeed = 50, + }, + Krymsk = { + PointsBoundary = { + [1]={["y"]=293338.00000001,["x"]=-7575.4285714297,}, + [2]={["y"]=295199.42857144,["x"]=-5434.0000000011,}, + [3]={["y"]=295595.14285715,["x"]=-6239.7142857154,}, + [4]={["y"]=294152.2857143,["x"]=-8325.4285714297,}, + [5]={["y"]=293345.14285715,["x"]=-7596.8571428582,}, + }, + PointsRunways = { + [1] = { + [1]={["y"]=293522.00000001,["x"]=-7567.4285714297,}, + [2]={["y"]=293578.57142858,["x"]=-7616.0000000011,}, + [3]={["y"]=295246.00000001,["x"]=-5591.142857144,}, + [4]={["y"]=295187.71428573,["x"]=-5546.0000000011,}, + [5]={["y"]=293523.14285715,["x"]=-7568.2857142868,}, + }, + }, + ZoneBoundary = {}, + ZoneRunways = {}, + MaximumSpeed = 50, + }, + Kutaisi = { + PointsBoundary = { + [1]={["y"]=682087.42857143,["x"]=-284512.85714286,}, + [2]={["y"]=685387.42857143,["x"]=-283662.85714286,}, + [3]={["y"]=685294.57142857,["x"]=-284977.14285715,}, + [4]={["y"]=682744.57142857,["x"]=-286505.71428572,}, + [5]={["y"]=682094.57142857,["x"]=-284527.14285715,}, + }, + PointsRunways = { + [1] = { + [1]={["y"]=682638,["x"]=-285202.28571429,}, + [2]={["y"]=685050.28571429,["x"]=-284507.42857144,}, + [3]={["y"]=685068.85714286,["x"]=-284578.85714286,}, + [4]={["y"]=682657.42857143,["x"]=-285264.28571429,}, + [5]={["y"]=682638.28571429,["x"]=-285202.85714286,}, + }, + }, + ZoneBoundary = {}, + ZoneRunways = {}, + MaximumSpeed = 50, + }, + MaykopKhanskaya = { + PointsBoundary = { + [1]={["y"]=456876.28571429,["x"]=-27665.42857143,}, + [2]={["y"]=457800,["x"]=-28392.857142858,}, + [3]={["y"]=459368.57142857,["x"]=-26378.571428573,}, + [4]={["y"]=459425.71428572,["x"]=-25242.857142858,}, + [5]={["y"]=458961.42857143,["x"]=-24964.285714287,}, + [6]={["y"]=456878.57142857,["x"]=-27667.714285715,}, + }, + PointsRunways = { + [1] = { + [1]={["y"]=457005.42857143,["x"]=-27668.000000001,}, + [2]={["y"]=459028.85714286,["x"]=-25168.857142858,}, + [3]={["y"]=459082.57142857,["x"]=-25216.857142858,}, + [4]={["y"]=457060,["x"]=-27714.285714287,}, + [5]={["y"]=457004.57142857,["x"]=-27669.714285715,}, + }, + }, + ZoneBoundary = {}, + ZoneRunways = {}, + MaximumSpeed = 50, + }, + MineralnyeVody = { + PointsBoundary = { + [1]={["y"]=703857.14285714,["x"]=-50226.000000002,}, + [2]={["y"]=707385.71428571,["x"]=-51911.714285716,}, + [3]={["y"]=707595.71428571,["x"]=-51434.857142859,}, + [4]={["y"]=707900,["x"]=-51568.857142859,}, + [5]={["y"]=707542.85714286,["x"]=-52326.000000002,}, + [6]={["y"]=706628.57142857,["x"]=-52568.857142859,}, + [7]={["y"]=705142.85714286,["x"]=-51790.285714288,}, + [8]={["y"]=703678.57142857,["x"]=-50611.714285716,}, + [9]={["y"]=703857.42857143,["x"]=-50226.857142859,}, + }, + PointsRunways = { + [1] = { + [1]={["y"]=703904,["x"]=-50352.571428573,}, + [2]={["y"]=707596.28571429,["x"]=-52094.571428573,}, + [3]={["y"]=707560.57142858,["x"]=-52161.714285716,}, + [4]={["y"]=703871.71428572,["x"]=-50420.571428573,}, + [5]={["y"]=703902,["x"]=-50352.000000002,}, + }, + }, + ZoneBoundary = {}, + ZoneRunways = {}, + MaximumSpeed = 50, + }, + Mozdok = { + PointsBoundary = { + [1]={["y"]=832123.42857143,["x"]=-83608.571428573,}, + [2]={["y"]=835916.28571429,["x"]=-83144.285714288,}, + [3]={["y"]=835474.28571429,["x"]=-84170.571428573,}, + [4]={["y"]=832911.42857143,["x"]=-84470.571428573,}, + [5]={["y"]=832487.71428572,["x"]=-85565.714285716,}, + [6]={["y"]=831573.42857143,["x"]=-85351.42857143,}, + [7]={["y"]=832123.71428572,["x"]=-83610.285714288,}, + }, + PointsRunways = { + [1] = { + [1]={["y"]=832201.14285715,["x"]=-83699.428571431,}, + [2]={["y"]=832212.57142857,["x"]=-83780.571428574,}, + [3]={["y"]=835730.28571429,["x"]=-83335.714285717,}, + [4]={["y"]=835718.85714286,["x"]=-83246.571428574,}, + [5]={["y"]=832200.57142857,["x"]=-83700.000000002,}, + }, + }, + ZoneBoundary = {}, + ZoneRunways = {}, + MaximumSpeed = 50, + }, + Nalchik = { + PointsBoundary = { + [1]={["y"]=759370,["x"]=-125502.85714286,}, + [2]={["y"]=761384.28571429,["x"]=-124177.14285714,}, + [3]={["y"]=761472.85714286,["x"]=-124325.71428572,}, + [4]={["y"]=761092.85714286,["x"]=-125048.57142857,}, + [5]={["y"]=760295.71428572,["x"]=-125685.71428572,}, + [6]={["y"]=759444.28571429,["x"]=-125734.28571429,}, + [7]={["y"]=759375.71428572,["x"]=-125511.42857143,}, + }, + PointsRunways = { + [1] = { + [1]={["y"]=759454.28571429,["x"]=-125551.42857143,}, + [2]={["y"]=759492.85714286,["x"]=-125610.85714286,}, + [3]={["y"]=761406.28571429,["x"]=-124304.28571429,}, + [4]={["y"]=761361.14285714,["x"]=-124239.71428572,}, + [5]={["y"]=759456,["x"]=-125552.57142857,}, + }, + }, + ZoneBoundary = {}, + ZoneRunways = {}, + MaximumSpeed = 50, + }, + Novorossiysk = { + PointsBoundary = { + [1]={["y"]=278677.71428573,["x"]=-41656.571428572,}, + [2]={["y"]=278446.2857143,["x"]=-41453.714285715,}, + [3]={["y"]=278989.14285716,["x"]=-40188.000000001,}, + [4]={["y"]=279717.71428573,["x"]=-39968.000000001,}, + [5]={["y"]=280020.57142859,["x"]=-40208.000000001,}, + [6]={["y"]=278674.85714287,["x"]=-41660.857142858,}, + }, + PointsRunways = { + [1] = { + [1]={["y"]=278673.14285716,["x"]=-41615.142857144,}, + [2]={["y"]=278625.42857144,["x"]=-41570.571428572,}, + [3]={["y"]=279835.42857144,["x"]=-40226.000000001,}, + [4]={["y"]=279882.2857143,["x"]=-40270.000000001,}, + [5]={["y"]=278672.00000001,["x"]=-41614.857142858,}, + }, + }, + ZoneBoundary = {}, + ZoneRunways = {}, + MaximumSpeed = 50, + }, + SenakiKolkhi = { + PointsBoundary = { + [1]={["y"]=646036.57142857,["x"]=-281778.85714286,}, + [2]={["y"]=646045.14285714,["x"]=-281191.71428571,}, + [3]={["y"]=647032.28571429,["x"]=-280598.85714285,}, + [4]={["y"]=647669.42857143,["x"]=-281273.14285714,}, + [5]={["y"]=648323.71428571,["x"]=-281370.28571428,}, + [6]={["y"]=648520.85714286,["x"]=-281978.85714285,}, + [7]={["y"]=646039.42857143,["x"]=-281783.14285714,}, + }, + PointsRunways = { + [1] = { + [1]={["y"]=646060.85714285,["x"]=-281736,}, + [2]={["y"]=646056.57142857,["x"]=-281631.71428571,}, + [3]={["y"]=648442.28571428,["x"]=-281840.28571428,}, + [4]={["y"]=648432.28571428,["x"]=-281918.85714286,}, + [5]={["y"]=646063.71428571,["x"]=-281738.85714286,}, + }, + }, + ZoneBoundary = {}, + ZoneRunways = {}, + MaximumSpeed = 50, + }, + SochiAdler = { + PointsBoundary = { + [1]={["y"]=460642.28571428,["x"]=-164861.71428571,}, + [2]={["y"]=462820.85714285,["x"]=-163368.85714286,}, + [3]={["y"]=463649.42857142,["x"]=-163340.28571429,}, + [4]={["y"]=463835.14285714,["x"]=-164040.28571429,}, + [5]={["y"]=462535.14285714,["x"]=-165654.57142857,}, + [6]={["y"]=460678,["x"]=-165247.42857143,}, + [7]={["y"]=460635.14285714,["x"]=-164876,}, + }, + PointsRunways = { + [1] = { + [1]={["y"]=460831.42857143,["x"]=-165180,}, + [2]={["y"]=460878.57142857,["x"]=-165257.14285714,}, + [3]={["y"]=463663.71428571,["x"]=-163793.14285714,}, + [4]={["y"]=463612.28571428,["x"]=-163697.42857143,}, + [5]={["y"]=460831.42857143,["x"]=-165177.14285714,}, + }, + [2] = { + [1]={["y"]=460831.42857143,["x"]=-165180,}, + [2]={["y"]=460878.57142857,["x"]=-165257.14285714,}, + [3]={["y"]=463663.71428571,["x"]=-163793.14285714,}, + [4]={["y"]=463612.28571428,["x"]=-163697.42857143,}, + [5]={["y"]=460831.42857143,["x"]=-165177.14285714,}, + }, + }, + ZoneBoundary = {}, + ZoneRunways = {}, + MaximumSpeed = 50, + }, + Soganlug = { + PointsBoundary = { + [1]={["y"]=894530.85714286,["x"]=-316928.28571428,}, + [2]={["y"]=896422.28571428,["x"]=-318622.57142857,}, + [3]={["y"]=896090.85714286,["x"]=-318934,}, + [4]={["y"]=894019.42857143,["x"]=-317119.71428571,}, + [5]={["y"]=894533.71428571,["x"]=-316925.42857143,}, + }, + PointsRunways = { + [1] = { + [1]={["y"]=894525.71428571,["x"]=-316964,}, + [2]={["y"]=896363.14285714,["x"]=-318634.28571428,}, + [3]={["y"]=896299.14285714,["x"]=-318702.85714286,}, + [4]={["y"]=894464,["x"]=-317031.71428571,}, + [5]={["y"]=894524.57142857,["x"]=-316963.71428571,}, + }, + }, + ZoneBoundary = {}, + ZoneRunways = {}, + MaximumSpeed = 50, + }, + SukhumiBabushara = { + PointsBoundary = { + [1]={["y"]=562541.14285714,["x"]=-219852.28571429,}, + [2]={["y"]=562691.14285714,["x"]=-219395.14285714,}, + [3]={["y"]=564326.85714286,["x"]=-219523.71428571,}, + [4]={["y"]=566262.57142857,["x"]=-221166.57142857,}, + [5]={["y"]=566069.71428571,["x"]=-221580.85714286,}, + [6]={["y"]=562534,["x"]=-219873.71428571,}, + }, + PointsRunways = { + [1] = { + [1]={["y"]=562684,["x"]=-219779.71428571,}, + [2]={["y"]=562717.71428571,["x"]=-219718,}, + [3]={["y"]=566046.85714286,["x"]=-221376.57142857,}, + [4]={["y"]=566012.28571428,["x"]=-221446.57142857,}, + [5]={["y"]=562684.57142857,["x"]=-219782.57142857,}, + }, + }, + ZoneBoundary = {}, + ZoneRunways = {}, + MaximumSpeed = 50, + }, + TbilisiLochini = { + PointsBoundary = { + [1]={["y"]=895172.85714286,["x"]=-314667.42857143,}, + [2]={["y"]=895337.42857143,["x"]=-314143.14285714,}, + [3]={["y"]=895990.28571429,["x"]=-314036,}, + [4]={["y"]=897730.28571429,["x"]=-315284.57142857,}, + [5]={["y"]=897901.71428571,["x"]=-316284.57142857,}, + [6]={["y"]=897684.57142857,["x"]=-316618.85714286,}, + [7]={["y"]=895173.14285714,["x"]=-314667.42857143,}, + }, + PointsRunways = { + [1] = { + [1]={["y"]=895261.14285715,["x"]=-314652.28571428,}, + [2]={["y"]=897654.57142857,["x"]=-316523.14285714,}, + [3]={["y"]=897711.71428571,["x"]=-316450.28571429,}, + [4]={["y"]=895327.42857143,["x"]=-314568.85714286,}, + [5]={["y"]=895261.71428572,["x"]=-314656,}, + }, + }, + ZoneBoundary = {}, + ZoneRunways = {}, + MaximumSpeed = 50, + }, + Vaziani = { + PointsBoundary = { + [1]={["y"]=902122,["x"]=-318163.71428572,}, + [2]={["y"]=902678.57142857,["x"]=-317594,}, + [3]={["y"]=903275.71428571,["x"]=-317405.42857143,}, + [4]={["y"]=903418.57142857,["x"]=-317891.14285714,}, + [5]={["y"]=904292.85714286,["x"]=-318748.28571429,}, + [6]={["y"]=904542,["x"]=-319740.85714286,}, + [7]={["y"]=904042,["x"]=-320166.57142857,}, + [8]={["y"]=902121.42857143,["x"]=-318164.85714286,}, + }, + PointsRunways = { + [1] = { + [1]={["y"]=902239.14285714,["x"]=-318190.85714286,}, + [2]={["y"]=904014.28571428,["x"]=-319994.57142857,}, + [3]={["y"]=904064.85714285,["x"]=-319945.14285715,}, + [4]={["y"]=902294.57142857,["x"]=-318146,}, + [5]={["y"]=902247.71428571,["x"]=-318190.85714286,}, + }, + }, + ZoneBoundary = {}, + ZoneRunways = {}, + MaximumSpeed = 50, + }, + }, +} + +--- Creates a new AIRBASEPOLICE_CAUCASUS object. +-- @param #AIRBASEPOLICE_CAUCASUS self +-- @param SetClient A SET_CLIENT object that will contain the CLIENT objects to be monitored if they follow the rules of the airbase. +-- @return #AIRBASEPOLICE_CAUCASUS self +function AIRBASEPOLICE_CAUCASUS:New( SetClient ) + + -- Inherits from BASE + local self = BASE:Inherit( self, AIRBASEPOLICE_BASE:New( SetClient, self.Airbases ) ) + + -- -- AnapaVityazevo + -- local AnapaVityazevoBoundary = GROUP:FindByName( "AnapaVityazevo Boundary" ) + -- self.Airbases.AnapaVityazevo.ZoneBoundary = ZONE_POLYGON:New( "AnapaVityazevo Boundary", AnapaVityazevoBoundary ):SmokeZone(POINT_VEC3.SmokeColor.White):Flush() + -- + -- local AnapaVityazevoRunway1 = GROUP:FindByName( "AnapaVityazevo Runway 1" ) + -- self.Airbases.AnapaVityazevo.ZoneRunways[1] = ZONE_POLYGON:New( "AnapaVityazevo Runway 1", AnapaVityazevoRunway1 ):SmokeZone(POINT_VEC3.SmokeColor.Red):Flush() + -- + -- + -- + -- -- Batumi + -- local BatumiBoundary = GROUP:FindByName( "Batumi Boundary" ) + -- self.Airbases.Batumi.ZoneBoundary = ZONE_POLYGON:New( "Batumi Boundary", BatumiBoundary ):SmokeZone(POINT_VEC3.SmokeColor.White):Flush() + -- + -- local BatumiRunway1 = GROUP:FindByName( "Batumi Runway 1" ) + -- self.Airbases.Batumi.ZoneRunways[1] = ZONE_POLYGON:New( "Batumi Runway 1", BatumiRunway1 ):SmokeZone(POINT_VEC3.SmokeColor.Red):Flush() + -- + -- + -- + -- -- Beslan + -- local BeslanBoundary = GROUP:FindByName( "Beslan Boundary" ) + -- self.Airbases.Beslan.ZoneBoundary = ZONE_POLYGON:New( "Beslan Boundary", BeslanBoundary ):SmokeZone(POINT_VEC3.SmokeColor.White):Flush() + -- + -- local BeslanRunway1 = GROUP:FindByName( "Beslan Runway 1" ) + -- self.Airbases.Beslan.ZoneRunways[1] = ZONE_POLYGON:New( "Beslan Runway 1", BeslanRunway1 ):SmokeZone(POINT_VEC3.SmokeColor.Red):Flush() + -- + -- + -- + -- -- Gelendzhik + -- local GelendzhikBoundary = GROUP:FindByName( "Gelendzhik Boundary" ) + -- self.Airbases.Gelendzhik.ZoneBoundary = ZONE_POLYGON:New( "Gelendzhik Boundary", GelendzhikBoundary ):SmokeZone(POINT_VEC3.SmokeColor.White):Flush() + -- + -- local GelendzhikRunway1 = GROUP:FindByName( "Gelendzhik Runway 1" ) + -- self.Airbases.Gelendzhik.ZoneRunways[1] = ZONE_POLYGON:New( "Gelendzhik Runway 1", GelendzhikRunway1 ):SmokeZone(POINT_VEC3.SmokeColor.Red):Flush() + -- + -- + -- + -- -- Gudauta + -- local GudautaBoundary = GROUP:FindByName( "Gudauta Boundary" ) + -- self.Airbases.Gudauta.ZoneBoundary = ZONE_POLYGON:New( "Gudauta Boundary", GudautaBoundary ):SmokeZone(POINT_VEC3.SmokeColor.White):Flush() + -- + -- local GudautaRunway1 = GROUP:FindByName( "Gudauta Runway 1" ) + -- self.Airbases.Gudauta.ZoneRunways[1] = ZONE_POLYGON:New( "Gudauta Runway 1", GudautaRunway1 ):SmokeZone(POINT_VEC3.SmokeColor.Red):Flush() + -- + -- + -- + -- -- Kobuleti + -- local KobuletiBoundary = GROUP:FindByName( "Kobuleti Boundary" ) + -- self.Airbases.Kobuleti.ZoneBoundary = ZONE_POLYGON:New( "Kobuleti Boundary", KobuletiBoundary ):SmokeZone(POINT_VEC3.SmokeColor.White):Flush() + -- + -- local KobuletiRunway1 = GROUP:FindByName( "Kobuleti Runway 1" ) + -- self.Airbases.Kobuleti.ZoneRunways[1] = ZONE_POLYGON:New( "Kobuleti Runway 1", KobuletiRunway1 ):SmokeZone(POINT_VEC3.SmokeColor.Red):Flush() + -- + -- + -- + -- -- KrasnodarCenter + -- local KrasnodarCenterBoundary = GROUP:FindByName( "KrasnodarCenter Boundary" ) + -- self.Airbases.KrasnodarCenter.ZoneBoundary = ZONE_POLYGON:New( "KrasnodarCenter Boundary", KrasnodarCenterBoundary ):SmokeZone(POINT_VEC3.SmokeColor.White):Flush() + -- + -- local KrasnodarCenterRunway1 = GROUP:FindByName( "KrasnodarCenter Runway 1" ) + -- self.Airbases.KrasnodarCenter.ZoneRunways[1] = ZONE_POLYGON:New( "KrasnodarCenter Runway 1", KrasnodarCenterRunway1 ):SmokeZone(POINT_VEC3.SmokeColor.Red):Flush() + -- + -- + -- + -- -- KrasnodarPashkovsky + -- local KrasnodarPashkovskyBoundary = GROUP:FindByName( "KrasnodarPashkovsky Boundary" ) + -- self.Airbases.KrasnodarPashkovsky.ZoneBoundary = ZONE_POLYGON:New( "KrasnodarPashkovsky Boundary", KrasnodarPashkovskyBoundary ):SmokeZone(POINT_VEC3.SmokeColor.White):Flush() + -- + -- local KrasnodarPashkovskyRunway1 = GROUP:FindByName( "KrasnodarPashkovsky Runway 1" ) + -- self.Airbases.KrasnodarPashkovsky.ZoneRunways[1] = ZONE_POLYGON:New( "KrasnodarPashkovsky Runway 1", KrasnodarPashkovskyRunway1 ):SmokeZone(POINT_VEC3.SmokeColor.Red):Flush() + -- local KrasnodarPashkovskyRunway2 = GROUP:FindByName( "KrasnodarPashkovsky Runway 2" ) + -- self.Airbases.KrasnodarPashkovsky.ZoneRunways[2] = ZONE_POLYGON:New( "KrasnodarPashkovsky Runway 2", KrasnodarPashkovskyRunway2 ):SmokeZone(POINT_VEC3.SmokeColor.Red):Flush() + -- + -- + -- + -- -- Krymsk + -- local KrymskBoundary = GROUP:FindByName( "Krymsk Boundary" ) + -- self.Airbases.Krymsk.ZoneBoundary = ZONE_POLYGON:New( "Krymsk Boundary", KrymskBoundary ):SmokeZone(POINT_VEC3.SmokeColor.White):Flush() + -- + -- local KrymskRunway1 = GROUP:FindByName( "Krymsk Runway 1" ) + -- self.Airbases.Krymsk.ZoneRunways[1] = ZONE_POLYGON:New( "Krymsk Runway 1", KrymskRunway1 ):SmokeZone(POINT_VEC3.SmokeColor.Red):Flush() + -- + -- + -- + -- -- Kutaisi + -- local KutaisiBoundary = GROUP:FindByName( "Kutaisi Boundary" ) + -- self.Airbases.Kutaisi.ZoneBoundary = ZONE_POLYGON:New( "Kutaisi Boundary", KutaisiBoundary ):SmokeZone(POINT_VEC3.SmokeColor.White):Flush() + -- + -- local KutaisiRunway1 = GROUP:FindByName( "Kutaisi Runway 1" ) + -- self.Airbases.Kutaisi.ZoneRunways[1] = ZONE_POLYGON:New( "Kutaisi Runway 1", KutaisiRunway1 ):SmokeZone(POINT_VEC3.SmokeColor.Red):Flush() + -- + -- + -- + -- -- MaykopKhanskaya + -- local MaykopKhanskayaBoundary = GROUP:FindByName( "MaykopKhanskaya Boundary" ) + -- self.Airbases.MaykopKhanskaya.ZoneBoundary = ZONE_POLYGON:New( "MaykopKhanskaya Boundary", MaykopKhanskayaBoundary ):SmokeZone(POINT_VEC3.SmokeColor.White):Flush() + -- + -- local MaykopKhanskayaRunway1 = GROUP:FindByName( "MaykopKhanskaya Runway 1" ) + -- self.Airbases.MaykopKhanskaya.ZoneRunways[1] = ZONE_POLYGON:New( "MaykopKhanskaya Runway 1", MaykopKhanskayaRunway1 ):SmokeZone(POINT_VEC3.SmokeColor.Red):Flush() + -- + -- + -- + -- -- MineralnyeVody + -- local MineralnyeVodyBoundary = GROUP:FindByName( "MineralnyeVody Boundary" ) + -- self.Airbases.MineralnyeVody.ZoneBoundary = ZONE_POLYGON:New( "MineralnyeVody Boundary", MineralnyeVodyBoundary ):SmokeZone(POINT_VEC3.SmokeColor.White):Flush() + -- + -- local MineralnyeVodyRunway1 = GROUP:FindByName( "MineralnyeVody Runway 1" ) + -- self.Airbases.MineralnyeVody.ZoneRunways[1] = ZONE_POLYGON:New( "MineralnyeVody Runway 1", MineralnyeVodyRunway1 ):SmokeZone(POINT_VEC3.SmokeColor.Red):Flush() + -- + -- + -- + -- -- Mozdok + -- local MozdokBoundary = GROUP:FindByName( "Mozdok Boundary" ) + -- self.Airbases.Mozdok.ZoneBoundary = ZONE_POLYGON:New( "Mozdok Boundary", MozdokBoundary ):SmokeZone(POINT_VEC3.SmokeColor.White):Flush() + -- + -- local MozdokRunway1 = GROUP:FindByName( "Mozdok Runway 1" ) + -- self.Airbases.Mozdok.ZoneRunways[1] = ZONE_POLYGON:New( "Mozdok Runway 1", MozdokRunway1 ):SmokeZone(POINT_VEC3.SmokeColor.Red):Flush() + -- + -- + -- + -- -- Nalchik + -- local NalchikBoundary = GROUP:FindByName( "Nalchik Boundary" ) + -- self.Airbases.Nalchik.ZoneBoundary = ZONE_POLYGON:New( "Nalchik Boundary", NalchikBoundary ):SmokeZone(POINT_VEC3.SmokeColor.White):Flush() + -- + -- local NalchikRunway1 = GROUP:FindByName( "Nalchik Runway 1" ) + -- self.Airbases.Nalchik.ZoneRunways[1] = ZONE_POLYGON:New( "Nalchik Runway 1", NalchikRunway1 ):SmokeZone(POINT_VEC3.SmokeColor.Red):Flush() + -- + -- + -- + -- -- Novorossiysk + -- local NovorossiyskBoundary = GROUP:FindByName( "Novorossiysk Boundary" ) + -- self.Airbases.Novorossiysk.ZoneBoundary = ZONE_POLYGON:New( "Novorossiysk Boundary", NovorossiyskBoundary ):SmokeZone(POINT_VEC3.SmokeColor.White):Flush() + -- + -- local NovorossiyskRunway1 = GROUP:FindByName( "Novorossiysk Runway 1" ) + -- self.Airbases.Novorossiysk.ZoneRunways[1] = ZONE_POLYGON:New( "Novorossiysk Runway 1", NovorossiyskRunway1 ):SmokeZone(POINT_VEC3.SmokeColor.Red):Flush() + -- + -- + -- + -- -- SenakiKolkhi + -- local SenakiKolkhiBoundary = GROUP:FindByName( "SenakiKolkhi Boundary" ) + -- self.Airbases.SenakiKolkhi.ZoneBoundary = ZONE_POLYGON:New( "SenakiKolkhi Boundary", SenakiKolkhiBoundary ):SmokeZone(POINT_VEC3.SmokeColor.White):Flush() + -- + -- local SenakiKolkhiRunway1 = GROUP:FindByName( "SenakiKolkhi Runway 1" ) + -- self.Airbases.SenakiKolkhi.ZoneRunways[1] = ZONE_POLYGON:New( "SenakiKolkhi Runway 1", SenakiKolkhiRunway1 ):SmokeZone(POINT_VEC3.SmokeColor.Red):Flush() + -- + -- + -- + -- -- SochiAdler + -- local SochiAdlerBoundary = GROUP:FindByName( "SochiAdler Boundary" ) + -- self.Airbases.SochiAdler.ZoneBoundary = ZONE_POLYGON:New( "SochiAdler Boundary", SochiAdlerBoundary ):SmokeZone(POINT_VEC3.SmokeColor.White):Flush() + -- + -- local SochiAdlerRunway1 = GROUP:FindByName( "SochiAdler Runway 1" ) + -- self.Airbases.SochiAdler.ZoneRunways[1] = ZONE_POLYGON:New( "SochiAdler Runway 1", SochiAdlerRunway1 ):SmokeZone(POINT_VEC3.SmokeColor.Red):Flush() + -- local SochiAdlerRunway2 = GROUP:FindByName( "SochiAdler Runway 2" ) + -- self.Airbases.SochiAdler.ZoneRunways[2] = ZONE_POLYGON:New( "SochiAdler Runway 2", SochiAdlerRunway1 ):SmokeZone(POINT_VEC3.SmokeColor.Red):Flush() + -- + -- + -- + -- -- Soganlug + -- local SoganlugBoundary = GROUP:FindByName( "Soganlug Boundary" ) + -- self.Airbases.Soganlug.ZoneBoundary = ZONE_POLYGON:New( "Soganlug Boundary", SoganlugBoundary ):SmokeZone(POINT_VEC3.SmokeColor.White):Flush() + -- + -- local SoganlugRunway1 = GROUP:FindByName( "Soganlug Runway 1" ) + -- self.Airbases.Soganlug.ZoneRunways[1] = ZONE_POLYGON:New( "Soganlug Runway 1", SoganlugRunway1 ):SmokeZone(POINT_VEC3.SmokeColor.Red):Flush() + -- + -- + -- + -- -- SukhumiBabushara + -- local SukhumiBabusharaBoundary = GROUP:FindByName( "SukhumiBabushara Boundary" ) + -- self.Airbases.SukhumiBabushara.ZoneBoundary = ZONE_POLYGON:New( "SukhumiBabushara Boundary", SukhumiBabusharaBoundary ):SmokeZone(POINT_VEC3.SmokeColor.White):Flush() + -- + -- local SukhumiBabusharaRunway1 = GROUP:FindByName( "SukhumiBabushara Runway 1" ) + -- self.Airbases.SukhumiBabushara.ZoneRunways[1] = ZONE_POLYGON:New( "SukhumiBabushara Runway 1", SukhumiBabusharaRunway1 ):SmokeZone(POINT_VEC3.SmokeColor.Red):Flush() + -- + -- + -- + -- -- TbilisiLochini + -- local TbilisiLochiniBoundary = GROUP:FindByName( "TbilisiLochini Boundary" ) + -- self.Airbases.TbilisiLochini.ZoneBoundary = ZONE_POLYGON:New( "TbilisiLochini Boundary", TbilisiLochiniBoundary ):SmokeZone(POINT_VEC3.SmokeColor.White):Flush() + -- + -- local TbilisiLochiniRunway1 = GROUP:FindByName( "TbilisiLochini Runway 1" ) + -- self.Airbases.TbilisiLochini.ZoneRunways[1] = ZONE_POLYGON:New( "TbilisiLochini Runway 1", TbilisiLochiniRunway1 ):SmokeZone(POINT_VEC3.SmokeColor.Red):Flush() + -- + -- + -- + -- -- Vaziani + -- local VazianiBoundary = GROUP:FindByName( "Vaziani Boundary" ) + -- self.Airbases.Vaziani.ZoneBoundary = ZONE_POLYGON:New( "Vaziani Boundary", VazianiBoundary ):SmokeZone(POINT_VEC3.SmokeColor.White):Flush() + -- + -- local VazianiRunway1 = GROUP:FindByName( "Vaziani Runway 1" ) + -- self.Airbases.Vaziani.ZoneRunways[1] = ZONE_POLYGON:New( "Vaziani Runway 1", VazianiRunway1 ):SmokeZone(POINT_VEC3.SmokeColor.Red):Flush() + -- + -- + -- + + + -- -- Template + -- local TemplateBoundary = GROUP:FindByName( "Template Boundary" ) + -- self.Airbases.Template.ZoneBoundary = ZONE_POLYGON:New( "Template Boundary", TemplateBoundary ):SmokeZone(POINT_VEC3.SmokeColor.White):Flush() + -- + -- local TemplateRunway1 = GROUP:FindByName( "Template Runway 1" ) + -- self.Airbases.Template.ZoneRunways[1] = ZONE_POLYGON:New( "Template Runway 1", TemplateRunway1 ):SmokeZone(POINT_VEC3.SmokeColor.Red):Flush() + + return self + +end + + + + +--- @type AIRBASEPOLICE_NEVADA +-- @extends AirbasePolice#AIRBASEPOLICE_BASE +AIRBASEPOLICE_NEVADA = { + ClassName = "AIRBASEPOLICE_NEVADA", + Airbases = { + Nellis = { + PointsBoundary = { + [1]={["y"]=-17814.714285714,["x"]=-399823.14285714,}, + [2]={["y"]=-16875.857142857,["x"]=-398763.14285714,}, + [3]={["y"]=-16251.571428571,["x"]=-398988.85714286,}, + [4]={["y"]=-16163,["x"]=-398693.14285714,}, + [5]={["y"]=-16328.714285714,["x"]=-398034.57142857,}, + [6]={["y"]=-15943,["x"]=-397571.71428571,}, + [7]={["y"]=-15711.571428571,["x"]=-397551.71428571,}, + [8]={["y"]=-15748.714285714,["x"]=-396806,}, + [9]={["y"]=-16288.714285714,["x"]=-396517.42857143,}, + [10]={["y"]=-16751.571428571,["x"]=-396308.85714286,}, + [11]={["y"]=-17263,["x"]=-396234.57142857,}, + [12]={["y"]=-17577.285714286,["x"]=-396640.28571429,}, + [13]={["y"]=-17614.428571429,["x"]=-397400.28571429,}, + [14]={["y"]=-19405.857142857,["x"]=-399428.85714286,}, + [15]={["y"]=-19234.428571429,["x"]=-399683.14285714,}, + [16]={["y"]=-18708.714285714,["x"]=-399408.85714286,}, + [17]={["y"]=-18397.285714286,["x"]=-399657.42857143,}, + [18]={["y"]=-17814.428571429,["x"]=-399823.42857143,}, + }, + PointsRunways = { + [1] = { + [1]={["y"]=-18687,["x"]=-399380.28571429,}, + [2]={["y"]=-18620.714285714,["x"]=-399436.85714286,}, + [3]={["y"]=-16217.857142857,["x"]=-396596.85714286,}, + [4]={["y"]=-16300.142857143,["x"]=-396530,}, + [5]={["y"]=-18687,["x"]=-399380.85714286,}, + }, + [2] = { + [1]={["y"]=-18451.571428572,["x"]=-399580.57142857,}, + [2]={["y"]=-18392.142857143,["x"]=-399628.57142857,}, + [3]={["y"]=-16011,["x"]=-396806.85714286,}, + [4]={["y"]=-16074.714285714,["x"]=-396751.71428572,}, + [5]={["y"]=-18451.571428572,["x"]=-399580.85714285,}, + }, + }, + ZoneBoundary = {}, + ZoneRunways = {}, + MaximumSpeed = 50, + }, + McCarran = { + PointsBoundary = { + [1]={["y"]=-29455.285714286,["x"]=-416277.42857142,}, + [2]={["y"]=-28860.142857143,["x"]=-416492,}, + [3]={["y"]=-25044.428571429,["x"]=-416344.85714285,}, + [4]={["y"]=-24580.142857143,["x"]=-415959.14285714,}, + [5]={["y"]=-25073,["x"]=-415630.57142857,}, + [6]={["y"]=-25087.285714286,["x"]=-415130.57142857,}, + [7]={["y"]=-25830.142857143,["x"]=-414866.28571428,}, + [8]={["y"]=-26658.714285715,["x"]=-414880.57142857,}, + [9]={["y"]=-26973,["x"]=-415273.42857142,}, + [10]={["y"]=-27380.142857143,["x"]=-415187.71428571,}, + [11]={["y"]=-27715.857142857,["x"]=-414144.85714285,}, + [12]={["y"]=-27551.571428572,["x"]=-413473.42857142,}, + [13]={["y"]=-28630.142857143,["x"]=-413201.99999999,}, + [14]={["y"]=-29494.428571429,["x"]=-415437.71428571,}, + [15]={["y"]=-29455.571428572,["x"]=-416277.71428571,}, + }, + PointsRunways = { + [1] = { + [1]={["y"]=-29408.428571429,["x"]=-416016.28571428,}, + [2]={["y"]=-29408.142857144,["x"]=-416105.42857142,}, + [3]={["y"]=-24680.714285715,["x"]=-416003.14285713,}, + [4]={["y"]=-24681.857142858,["x"]=-415926.57142856,}, + [5]={["y"]=-29408.42857143,["x"]=-416016.57142856,}, + }, + [2] = { + [1]={["y"]=-28575.571428572,["x"]=-416303.14285713,}, + [2]={["y"]=-28575.571428572,["x"]=-416382.57142856,}, + [3]={["y"]=-25111.000000001,["x"]=-416309.7142857,}, + [4]={["y"]=-25111.000000001,["x"]=-416249.14285713,}, + [5]={["y"]=-28575.571428572,["x"]=-416303.7142857,}, + }, + [3] = { + [1]={["y"]=-29331.000000001,["x"]=-416275.42857141,}, + [2]={["y"]=-29259.000000001,["x"]=-416306.85714284,}, + [3]={["y"]=-28005.571428572,["x"]=-413449.7142857,}, + [4]={["y"]=-28068.714285715,["x"]=-413422.85714284,}, + [5]={["y"]=-29331.000000001,["x"]=-416275.7142857,}, + }, + [4] = { + [1]={["y"]=-29073.285714286,["x"]=-416386.57142856,}, + [2]={["y"]=-28997.285714286,["x"]=-416417.42857141,}, + [3]={["y"]=-27697.571428572,["x"]=-413464.57142856,}, + [4]={["y"]=-27767.857142858,["x"]=-413434.28571427,}, + [5]={["y"]=-29073.000000001,["x"]=-416386.85714284,}, + }, + }, + ZoneBoundary = {}, + ZoneRunways = {}, + MaximumSpeed = 50, + }, + Creech = { + PointsBoundary = { + [1]={["y"]=-74522.714285715,["x"]=-360887.99999998,}, + [2]={["y"]=-74197,["x"]=-360556.57142855,}, + [3]={["y"]=-74402.714285715,["x"]=-359639.42857141,}, + [4]={["y"]=-74637,["x"]=-359279.42857141,}, + [5]={["y"]=-75759.857142857,["x"]=-359005.14285712,}, + [6]={["y"]=-75834.142857143,["x"]=-359045.14285712,}, + [7]={["y"]=-75902.714285714,["x"]=-359782.28571427,}, + [8]={["y"]=-76099.857142857,["x"]=-360399.42857141,}, + [9]={["y"]=-77314.142857143,["x"]=-360219.42857141,}, + [10]={["y"]=-77728.428571429,["x"]=-360445.14285713,}, + [11]={["y"]=-77585.571428571,["x"]=-360585.14285713,}, + [12]={["y"]=-76471.285714286,["x"]=-360819.42857141,}, + [13]={["y"]=-76325.571428571,["x"]=-360942.28571427,}, + [14]={["y"]=-74671.857142857,["x"]=-360927.7142857,}, + [15]={["y"]=-74522.714285714,["x"]=-360888.85714284,}, + }, + PointsRunways = { + [1] = { + [1]={["y"]=-74237.571428571,["x"]=-360591.7142857,}, + [2]={["y"]=-74234.428571429,["x"]=-360493.71428571,}, + [3]={["y"]=-77605.285714286,["x"]=-360399.14285713,}, + [4]={["y"]=-77608.714285715,["x"]=-360498.85714285,}, + [5]={["y"]=-74237.857142857,["x"]=-360591.7142857,}, + }, + [2] = { + [1]={["y"]=-75807.571428572,["x"]=-359073.42857142,}, + [2]={["y"]=-74770.142857144,["x"]=-360581.71428571,}, + [3]={["y"]=-74641.285714287,["x"]=-360585.42857142,}, + [4]={["y"]=-75734.142857144,["x"]=-359023.14285714,}, + [5]={["y"]=-75807.285714287,["x"]=-359073.42857142,}, + }, + }, + ZoneBoundary = {}, + ZoneRunways = {}, + MaximumSpeed = 50, + }, + GroomLake = { + PointsBoundary = { + [1]={["y"]=-88916.714285714,["x"]=-289102.28571425,}, + [2]={["y"]=-87023.571428572,["x"]=-290388.57142857,}, + [3]={["y"]=-85916.428571429,["x"]=-290674.28571428,}, + [4]={["y"]=-87645.000000001,["x"]=-286567.14285714,}, + [5]={["y"]=-88380.714285715,["x"]=-286388.57142857,}, + [6]={["y"]=-89670.714285715,["x"]=-283524.28571428,}, + [7]={["y"]=-89797.857142858,["x"]=-283567.14285714,}, + [8]={["y"]=-88635.000000001,["x"]=-286749.99999999,}, + [9]={["y"]=-89177.857142858,["x"]=-287207.14285714,}, + [10]={["y"]=-89092.142857144,["x"]=-288892.85714285,}, + [11]={["y"]=-88917.000000001,["x"]=-289102.85714285,}, + }, + PointsRunways = { + [1] = { + [1]={["y"]=-86039.000000001,["x"]=-290606.28571428,}, + [2]={["y"]=-85965.285714287,["x"]=-290573.99999999,}, + [3]={["y"]=-87692.714285715,["x"]=-286634.85714285,}, + [4]={["y"]=-87756.714285715,["x"]=-286663.99999999,}, + [5]={["y"]=-86038.714285715,["x"]=-290606.85714285,}, + }, + [2] = { + [1]={["y"]=-86808.428571429,["x"]=-290375.7142857,}, + [2]={["y"]=-86732.714285715,["x"]=-290344.28571427,}, + [3]={["y"]=-89672.714285714,["x"]=-283546.57142855,}, + [4]={["y"]=-89772.142857143,["x"]=-283587.71428569,}, + [5]={["y"]=-86808.142857143,["x"]=-290375.7142857,}, + }, + }, + ZoneBoundary = {}, + ZoneRunways = {}, + MaximumSpeed = 50, + }, + }, +} + +--- Creates a new AIRBASEPOLICE_NEVADA object. +-- @param #AIRBASEPOLICE_NEVADA self +-- @param SetClient A SET_CLIENT object that will contain the CLIENT objects to be monitored if they follow the rules of the airbase. +-- @return #AIRBASEPOLICE_NEVADA self +function AIRBASEPOLICE_NEVADA:New( SetClient ) + + -- Inherits from BASE + local self = BASE:Inherit( self, AIRBASEPOLICE_BASE:New( SetClient, self.Airbases ) ) + +-- -- Nellis +-- local NellisBoundary = GROUP:FindByName( "Nellis Boundary" ) +-- self.Airbases.Nellis.ZoneBoundary = ZONE_POLYGON:New( "Nellis Boundary", NellisBoundary ):SmokeZone(POINT_VEC3.SmokeColor.White):Flush() +-- +-- local NellisRunway1 = GROUP:FindByName( "Nellis Runway 1" ) +-- self.Airbases.Nellis.ZoneRunways[1] = ZONE_POLYGON:New( "Nellis Runway 1", NellisRunway1 ):SmokeZone(POINT_VEC3.SmokeColor.Red):Flush() +-- +-- local NellisRunway2 = GROUP:FindByName( "Nellis Runway 2" ) +-- self.Airbases.Nellis.ZoneRunways[2] = ZONE_POLYGON:New( "Nellis Runway 2", NellisRunway2 ):SmokeZone(POINT_VEC3.SmokeColor.Red):Flush() +-- +-- -- McCarran +-- local McCarranBoundary = GROUP:FindByName( "McCarran Boundary" ) +-- self.Airbases.McCarran.ZoneBoundary = ZONE_POLYGON:New( "McCarran Boundary", McCarranBoundary ):SmokeZone(POINT_VEC3.SmokeColor.White):Flush() +-- +-- local McCarranRunway1 = GROUP:FindByName( "McCarran Runway 1" ) +-- self.Airbases.McCarran.ZoneRunways[1] = ZONE_POLYGON:New( "McCarran Runway 1", McCarranRunway1 ):SmokeZone(POINT_VEC3.SmokeColor.Red):Flush() +-- +-- local McCarranRunway2 = GROUP:FindByName( "McCarran Runway 2" ) +-- self.Airbases.McCarran.ZoneRunways[2] = ZONE_POLYGON:New( "McCarran Runway 2", McCarranRunway2 ):SmokeZone(POINT_VEC3.SmokeColor.Red):Flush() +-- +-- local McCarranRunway3 = GROUP:FindByName( "McCarran Runway 3" ) +-- self.Airbases.McCarran.ZoneRunways[3] = ZONE_POLYGON:New( "McCarran Runway 3", McCarranRunway3 ):SmokeZone(POINT_VEC3.SmokeColor.Red):Flush() +-- +-- local McCarranRunway4 = GROUP:FindByName( "McCarran Runway 4" ) +-- self.Airbases.McCarran.ZoneRunways[4] = ZONE_POLYGON:New( "McCarran Runway 4", McCarranRunway4 ):SmokeZone(POINT_VEC3.SmokeColor.Red):Flush() +-- +-- -- Creech +-- local CreechBoundary = GROUP:FindByName( "Creech Boundary" ) +-- self.Airbases.Creech.ZoneBoundary = ZONE_POLYGON:New( "Creech Boundary", CreechBoundary ):SmokeZone(POINT_VEC3.SmokeColor.White):Flush() +-- +-- local CreechRunway1 = GROUP:FindByName( "Creech Runway 1" ) +-- self.Airbases.Creech.ZoneRunways[1] = ZONE_POLYGON:New( "Creech Runway 1", CreechRunway1 ):SmokeZone(POINT_VEC3.SmokeColor.Red):Flush() +-- +-- local CreechRunway2 = GROUP:FindByName( "Creech Runway 2" ) +-- self.Airbases.Creech.ZoneRunways[2] = ZONE_POLYGON:New( "Creech Runway 2", CreechRunway2 ):SmokeZone(POINT_VEC3.SmokeColor.Red):Flush() +-- +-- -- Groom Lake +-- local GroomLakeBoundary = GROUP:FindByName( "GroomLake Boundary" ) +-- self.Airbases.GroomLake.ZoneBoundary = ZONE_POLYGON:New( "GroomLake Boundary", GroomLakeBoundary ):SmokeZone(POINT_VEC3.SmokeColor.White):Flush() +-- +-- local GroomLakeRunway1 = GROUP:FindByName( "GroomLake Runway 1" ) +-- self.Airbases.GroomLake.ZoneRunways[1] = ZONE_POLYGON:New( "GroomLake Runway 1", GroomLakeRunway1 ):SmokeZone(POINT_VEC3.SmokeColor.Red):Flush() +-- +-- local GroomLakeRunway2 = GROUP:FindByName( "GroomLake Runway 2" ) +-- self.Airbases.GroomLake.ZoneRunways[2] = ZONE_POLYGON:New( "GroomLake Runway 2", GroomLakeRunway2 ):SmokeZone(POINT_VEC3.SmokeColor.Red):Flush() + +end + + + + + + --- This module contains the DETECTION classes. +-- +-- === +-- +-- 1) @{Detection#DETECTION_BASE} class, extends @{Base#BASE} +-- ========================================================== +-- The @{Detection#DETECTION_BASE} class defines the core functions to administer detected objects. +-- +-- 1.1) DETECTION_BASE constructor +-- ------------------------------- +-- Construct a new DETECTION_BASE instance using the @{Detection#DETECTION_BASE.New}() method. +-- +-- 1.2) DETECTION_BASE initialization +-- ---------------------------------- +-- By default, detection will return detected objects with all the detection sensors available. +-- However, you can ask how the objects were found with specific detection methods. +-- If you use one of the below methods, the detection will work with the detection method specified. +-- You can specify to apply multiple detection methods. +-- +-- Use the following functions to report the objects it detected using the methods Visual, Optical, Radar, IRST, RWR, DLINK: +-- +-- * @{Detection#DETECTION_BASE.InitDetectVisual}(): Detected using Visual. +-- * @{Detection#DETECTION_BASE.InitDetectOptical}(): Detected using Optical. +-- * @{Detection#DETECTION_BASE.InitDetectRadar}(): Detected using Radar. +-- * @{Detection#DETECTION_BASE.InitDetectIRST}(): Detected using IRST. +-- * @{Detection#DETECTION_BASE.InitDetectRWR}(): Detected using RWR. +-- * @{Detection#DETECTION_BASE.InitDetectDLINK}(): Detected using DLINK. +-- +-- 1.3) Obtain objects detected by DETECTION_BASE +-- ---------------------------------------------- +-- DETECTION_BASE builds @{Set}s of objects detected. These @{Set#SET_BASE}s can be retrieved using the method @{Detection#DETECTION_BASE.GetDetectedSets}(). +-- The method will return a list (table) of @{Set#SET_BASE} objects. +-- +-- === +-- +-- 2) @{Detection#DETECTION_UNITGROUPS} class, extends @{Detection#DETECTION_BASE} +-- =============================================================================== +-- The @{Detection#DETECTION_UNITGROUPS} class will detect units within the battle zone for a FAC group, +-- and will build a list (table) of @{Set#SET_UNIT}s containing the @{Unit#UNIT}s detected. +-- The class is group the detected units within zones given a DetectedZoneRange parameter. +-- A set with multiple detected zones will be created as there are groups of units detected. +-- +-- 2.1) Retrieve the Detected Unit sets and Detected Zones +-- ------------------------------------------------------- +-- The DetectedUnitSets methods are implemented in @{Detection#DECTECTION_BASE} and the DetectedZones methods is implemented in @{Detection#DETECTION_UNITGROUPS}. +-- +-- Retrieve the DetectedUnitSets with the method @{Detection#DETECTION_BASE.GetDetectedSets}(). A table will be return of @{Set#SET_UNIT}s. +-- To understand the amount of sets created, use the method @{Detection#DETECTION_BASE.GetDetectedSetCount}(). +-- If you want to obtain a specific set from the DetectedSets, use the method @{Detection#DETECTION_BASE.GetDetectedSet}() with a given index. +-- +-- Retrieve the formed @{Zone@ZONE_UNIT}s as a result of the grouping the detected units within the DetectionZoneRange, use the method @{Detection#DETECTION_BASE.GetDetectionZones}(). +-- To understand the amount of zones created, use the method @{Detection#DETECTION_BASE.GetDetectionZoneCount}(). +-- If you want to obtain a specific zone from the DetectedZones, use the method @{Detection#DETECTION_BASE.GetDetectionZone}() with a given index. +-- +-- 1.4) Flare or Smoke detected units +-- ---------------------------------- +-- Use the methods @{Detection#DETECTION_UNITGROUPS.FlareDetectedUnits}() or @{Detection#DETECTION_UNITGROUPS.SmokeDetectedUnits}() to flare or smoke the detected units when a new detection has taken place. +-- +-- 1.5) Flare or Smoke detected zones +-- ---------------------------------- +-- Use the methods @{Detection#DETECTION_UNITGROUPS.FlareDetectedZones}() or @{Detection#DETECTION_UNITGROUPS.SmokeDetectedZones}() to flare or smoke the detected zones when a new detection has taken place. +-- +-- === +-- +-- @module Detection +-- @author Mechanic : Concept & Testing +-- @author FlightControl : Design & Programming + + + +--- DETECTION_BASE class +-- @type DETECTION_BASE +-- @field Group#GROUP FACGroup The GROUP in the Forward Air Controller role. +-- @field DCSTypes#Distance DetectionRange The range till which targets are accepted to be detected. +-- @field #DETECTION_BASE.DetectedSets DetectedSets A list of @{Set#SET_BASE}s containing the objects in each set that were detected. The base class will not build the detected sets, but will leave that to the derived classes. +-- @extends Base#BASE +DETECTION_BASE = { + ClassName = "DETECTION_BASE", + DetectedSets = {}, + DetectedObjects = {}, + FACGroup = nil, + DetectionRange = nil, +} + +--- @type DETECTION_BASE.DetectedSets +-- @list + + +--- @type DETECTION_BASE.DetectedZones +-- @list + + +--- DETECTION constructor. +-- @param #DETECTION_BASE self +-- @param Group#GROUP FACGroup The GROUP in the Forward Air Controller role. +-- @param DCSTypes#Distance DetectionRange The range till which targets are accepted to be detected. +-- @return #DETECTION_BASE self +function DETECTION_BASE:New( FACGroup, DetectionRange ) + + -- Inherits from BASE + local self = BASE:Inherit( self, BASE:New() ) + + self.FACGroup = FACGroup + self.DetectionRange = DetectionRange + + self:InitDetectVisual( false ) + self:InitDetectOptical( false ) + self:InitDetectRadar( false ) + self:InitDetectRWR( false ) + self:InitDetectIRST( false ) + self:InitDetectDLINK( false ) + + return self +end + +--- Detect Visual. +-- @param #DETECTION_BASE self +-- @param #boolean DetectVisual +-- @return #DETECTION_BASE self +function DETECTION_BASE:InitDetectVisual( DetectVisual ) + + self.DetectVisual = DetectVisual +end + +--- Detect Optical. +-- @param #DETECTION_BASE self +-- @param #boolean DetectOptical +-- @return #DETECTION_BASE self +function DETECTION_BASE:InitDetectOptical( DetectOptical ) + self:F2() + + self.DetectOptical = DetectOptical +end + +--- Detect Radar. +-- @param #DETECTION_BASE self +-- @param #boolean DetectRadar +-- @return #DETECTION_BASE self +function DETECTION_BASE:InitDetectRadar( DetectRadar ) + self:F2() + + self.DetectRadar = DetectRadar +end + +--- Detect IRST. +-- @param #DETECTION_BASE self +-- @param #boolean DetectIRST +-- @return #DETECTION_BASE self +function DETECTION_BASE:InitDetectIRST( DetectIRST ) + self:F2() + + self.DetectIRST = DetectIRST +end + +--- Detect RWR. +-- @param #DETECTION_BASE self +-- @param #boolean DetectRWR +-- @return #DETECTION_BASE self +function DETECTION_BASE:InitDetectRWR( DetectRWR ) + self:F2() + + self.DetectRWR = DetectRWR +end + +--- Detect DLINK. +-- @param #DETECTION_BASE self +-- @param #boolean DetectDLINK +-- @return #DETECTION_BASE self +function DETECTION_BASE:InitDetectDLINK( DetectDLINK ) + self:F2() + + self.DetectDLINK = DetectDLINK +end + +--- Gets the FAC group. +-- @param #DETECTION_BASE self +-- @return Group#GROUP self +function DETECTION_BASE:GetFACGroup() + self:F2() + + return self.FACGroup +end + +--- Get the detected @{Set#SET_BASE}s. +-- @param #DETECTION_BASE self +-- @return #DETECTION_BASE.DetectedSets DetectedSets +function DETECTION_BASE:GetDetectedSets() + + local DetectionSets = self.DetectedSets + return DetectionSets +end + +--- Get the amount of SETs with detected objects. +-- @param #DETECTION_BASE self +-- @return #number Count +function DETECTION_BASE:GetDetectedSetCount() + + local DetectionSetCount = #self.DetectedSets + return DetectionSetCount +end + +--- Get a SET of detected objects using a given numeric index. +-- @param #DETECTION_BASE self +-- @param #number Index +-- @return Set#SET_BASE +function DETECTION_BASE:GetDetectedSet( Index ) + + local DetectionSet = self.DetectedSets[Index] + if DetectionSet then + return DetectionSet + end + + return nil +end + + +--- Make a DetectionSet table. This function will be overridden in the derived clsses. +-- @param #DETECTION_BASE self +-- @return #DETECTION_BASE self +function DETECTION_BASE:CreateDetectionSets() + self:F2() + + self:E( "Error, in DETECTION_BASE class..." ) + +end + +--- Schedule the DETECTION construction. +-- @param #DETECTION_BASE self +-- @param #number DelayTime The delay in seconds to wait the reporting. +-- @param #number RepeatInterval The repeat interval in seconds for the reporting to happen repeatedly. +-- @return #DETECTION_BASE self +function DETECTION_BASE:Schedule( DelayTime, RepeatInterval ) + self:F2() + + self.ScheduleDelayTime = DelayTime + self.ScheduleRepeatInterval = RepeatInterval + + self.DetectionScheduler = SCHEDULER:New(self, self._DetectionScheduler, { self, "Detection" }, DelayTime, RepeatInterval ) + return self +end + + +--- Form @{Set}s of detected @{Unit#UNIT}s in an array of @{Set#SET_BASE}s. +-- @param #DETECTION_BASE self +function DETECTION_BASE:_DetectionScheduler( SchedulerName ) + self:F2( { SchedulerName } ) + + self.DetectedObjects = {} + self.DetectedSets = {} + self.DetectedZones = {} + + if self.FACGroup:IsAlive() then + local FACGroupName = self.FACGroup:GetName() + + local FACDetectedTargets = self.FACGroup:GetDetectedTargets( + self.DetectVisual, + self.DetectOptical, + self.DetectRadar, + self.DetectIRST, + self.DetectRWR, + self.DetectDLINK + ) + + for FACDetectedTargetID, FACDetectedTarget in pairs( FACDetectedTargets ) do + local FACObject = FACDetectedTarget.object -- DCSObject#Object + self:T2( FACObject ) + + if FACObject and FACObject:isExist() and FACObject.id_ < 50000000 then + + local FACDetectedObjectName = FACObject:getName() + + local FACDetectedObjectPositionVec3 = FACObject:getPoint() + local FACGroupPositionVec3 = self.FACGroup:GetPointVec3() + + local Distance = ( ( FACDetectedObjectPositionVec3.x - FACGroupPositionVec3.x )^2 + + ( FACDetectedObjectPositionVec3.y - FACGroupPositionVec3.y )^2 + + ( FACDetectedObjectPositionVec3.z - FACGroupPositionVec3.z )^2 + ) ^ 0.5 / 1000 + + self:T( { FACGroupName, FACDetectedObjectName, Distance } ) + + if Distance <= self.DetectionRange then + + if not self.DetectedObjects[FACDetectedObjectName] then + self.DetectedObjects[FACDetectedObjectName] = {} + end + self.DetectedObjects[FACDetectedObjectName].Name = FACDetectedObjectName + self.DetectedObjects[FACDetectedObjectName].Visible = FACDetectedTarget.visible + self.DetectedObjects[FACDetectedObjectName].Type = FACDetectedTarget.type + self.DetectedObjects[FACDetectedObjectName].Distance = FACDetectedTarget.distance + else + -- if beyond the DetectionRange then nullify... + if self.DetectedObjects[FACDetectedObjectName] then + self.DetectedObjects[FACDetectedObjectName] = nil + end + end + end + end + + self:T2( self.DetectedObjects ) + + -- okay, now we have a list of detected object names ... + -- Sort the table based on distance ... + self:T( { "Sorting DetectedObjects table:", self.DetectedObjects } ) + table.sort( self.DetectedObjects, function( a, b ) return a.Distance < b.Distance end ) + self:T( { "Sorted Targets Table:", self.DetectedObjects } ) + + -- Now group the DetectedObjects table into SET_BASEs, evaluating the DetectionZoneRange. + + if self.DetectedObjects then + self:CreateDetectionSets() + end + + + end +end + +--- @type DETECTION_UNITGROUPS.DetectedSets +-- @list +-- + + +--- @type DETECTION_UNITGROUPS.DetectedZones +-- @list +-- + + +--- DETECTION_UNITGROUPS class +-- @type DETECTION_UNITGROUPS +-- @param DCSTypes#Distance DetectionZoneRange The range till which targets are grouped upon the first detected target. +-- @field #DETECTION_UNITGROUPS.DetectedSets DetectedSets A list of @{Set#SET_UNIT}s containing the units in each set that were detected within a DetectionZoneRange. +-- @field #DETECTION_UNITGROUPS.DetectedZones DetectedZones A list of @{Zone#ZONE_UNIT}s containing the zones of the reference detected units. +-- @extends Detection#DETECTION_BASE +DETECTION_UNITGROUPS = { + ClassName = "DETECTION_UNITGROUPS", + DetectedZones = {}, +} + + + +--- DETECTION_UNITGROUPS constructor. +-- @param Detection#DETECTION_UNITGROUPS self +-- @param Group#GROUP FACGroup The GROUP in the Forward Air Controller role. +-- @param DCSTypes#Distance DetectionRange The range till which targets are accepted to be detected. +-- @param DCSTypes#Distance DetectionZoneRange The range till which targets are grouped upon the first detected target. +-- @return Detection#DETECTION_UNITGROUPS self +function DETECTION_UNITGROUPS:New( FACGroup, DetectionRange, DetectionZoneRange ) + + -- Inherits from DETECTION_BASE + local self = BASE:Inherit( self, DETECTION_BASE:New( FACGroup, DetectionRange ) ) + self.DetectionZoneRange = DetectionZoneRange + + self:Schedule( 10, 30 ) + + return self +end + +--- Get the detected @{Zone#ZONE_UNIT}s. +-- @param #DETECTION_UNITGROUPS self +-- @return #DETECTION_UNITGROUPS.DetectedZones DetectedZones +function DETECTION_UNITGROUPS:GetDetectedZones() + + local DetectedZones = self.DetectedZones + return DetectedZones +end + +--- Get the amount of @{Zone#ZONE_UNIT}s with detected units. +-- @param #DETECTION_UNITGROUPS self +-- @return #number Count +function DETECTION_UNITGROUPS:GetDetectedZoneCount() + + local DetectedZoneCount = #self.DetectedZones + return DetectedZoneCount +end + +--- Get a SET of detected objects using a given numeric index. +-- @param #DETECTION_UNITGROUPS self +-- @param #number Index +-- @return Zone#ZONE_UNIT +function DETECTION_UNITGROUPS:GetDetectedZone( Index ) + + local DetectedZone = self.DetectedZones[Index] + if DetectedZone then + return DetectedZone + end + + return nil +end + +--- Smoke the detected units +-- @param #DETECTION_UNITGROUPS self +-- @return #DETECTION_UNITGROUPS self +function DETECTION_UNITGROUPS:SmokeDetectedUnits() + self:F2() + + self._SmokeDetectedUnits = true + return self +end + +--- Flare the detected units +-- @param #DETECTION_UNITGROUPS self +-- @return #DETECTION_UNITGROUPS self +function DETECTION_UNITGROUPS:FlareDetectedUnits() + self:F2() + + self._FlareDetectedUnits = true + return self +end + +--- Smoke the detected zones +-- @param #DETECTION_UNITGROUPS self +-- @return #DETECTION_UNITGROUPS self +function DETECTION_UNITGROUPS:SmokeDetectedZones() + self:F2() + + self._SmokeDetectedZones = true + return self +end + +--- Flare the detected zones +-- @param #DETECTION_UNITGROUPS self +-- @return #DETECTION_UNITGROUPS self +function DETECTION_UNITGROUPS:FlareDetectedZones() + self:F2() + + self._FlareDetectedZones = true + return self +end + + +--- Make a DetectionSet table. This function will be overridden in the derived clsses. +-- @param #DETECTION_UNITGROUPS self +-- @return #DETECTION_UNITGROUPS self +function DETECTION_UNITGROUPS:CreateDetectionSets() + self:F2() + + for DetectedUnitName, DetectedUnitData in pairs( self.DetectedObjects ) do + self:T( DetectedUnitData.Name ) + local DetectedUnit = UNIT:FindByName( DetectedUnitData.Name ) -- Unit#UNIT + if DetectedUnit and DetectedUnit:IsAlive() then + self:T( DetectedUnit:GetName() ) + if #self.DetectedSets == 0 then + self:T( { "Adding Unit Set #", 1 } ) + self.DetectedZones[1] = ZONE_UNIT:New( DetectedUnitName, DetectedUnit, self.DetectionZoneRange ) + self.DetectedSets[1] = SET_UNIT:New() + self.DetectedSets[1]:AddUnit( DetectedUnit ) + else + local AddedToSet = false + for DetectedZoneIndex = 1, #self.DetectedZones do + self:T( "Detected Unit Set #" .. DetectedZoneIndex ) + local DetectedUnitSet = self.DetectedSets[DetectedZoneIndex] -- Set#SET_BASE + local DetectedZone = self.DetectedZones[DetectedZoneIndex] -- Zone#ZONE_UNIT + if DetectedUnit:IsInZone( DetectedZone ) then + self:T( "Adding to Unit Set #" .. DetectedZoneIndex ) + DetectedUnitSet:AddUnit( DetectedUnit ) + AddedToSet = true + end + end + if AddedToSet == false then + local DetectedZoneIndex = #self.DetectedZones + 1 + self:T( "Adding new zone #" .. DetectedZoneIndex ) + self.DetectedZones[DetectedZoneIndex] = ZONE_UNIT:New( DetectedUnitName, DetectedUnit, self.DetectionZoneRange ) + self.DetectedSets[DetectedZoneIndex] = SET_UNIT:New() + self.DetectedSets[DetectedZoneIndex]:AddUnit( DetectedUnit ) + end + end + end + end + + -- Now all the tests should have been build, now make some smoke and flares... + + for DetectedZoneIndex = 1, #self.DetectedZones do + local DetectedUnitSet = self.DetectedSets[DetectedZoneIndex] -- Set#SET_BASE + local DetectedZone = self.DetectedZones[DetectedZoneIndex] -- Zone#ZONE_UNIT + self:T( "Detected Set #" .. DetectedZoneIndex ) + DetectedUnitSet:ForEachUnit( + --- @param Unit#UNIT DetectedUnit + function( DetectedUnit ) + self:T( DetectedUnit:GetName() ) + if self._FlareDetectedUnits then + DetectedUnit:FlareRed() + end + if self._SmokeDetectedUnits then + DetectedUnit:SmokeRed() + end + end + ) + if self._FlareDetectedZones then + DetectedZone:FlareZone( POINT_VEC3.SmokeColor.White, 30, math.random( 0,90 ) ) + end + if self._SmokeDetectedZones then + DetectedZone:SmokeZone( POINT_VEC3.SmokeColor.White, 30 ) + end + end + +end + + +--- This module contains the FAC classes. +-- +-- === +-- +-- 1) @{Fac#FAC_BASE} class, extends @{Base#BASE} +-- ============================================== +-- The @{Fac#FAC_BASE} class defines the core functions to report detected objects to clients. +-- Reportings can be done in several manners, and it is up to the derived classes if FAC_BASE to model the reporting behaviour. +-- +-- 1.1) FAC_BASE constructor: +-- ---------------------------- +-- * @{Fac#FAC_BASE.New}(): Create a new FAC_BASE instance. +-- +-- 1.2) FAC_BASE reporting: +-- ------------------------ +-- Derived FAC_BASE classes will reports detected units using the method @{Fac#FAC_BASE.ReportDetected}(). This method implements polymorphic behaviour. +-- +-- The time interval in seconds of the reporting can be changed using the methods @{Fac#FAC_BASE.SetReportInterval}(). +-- To control how long a reporting message is displayed, use @{Fac#FAC_BASE.SetReportDisplayTime}(). +-- Derived classes need to implement the method @{Fac#FAC_BASE.GetReportDisplayTime}() to use the correct display time for displayed messages during a report. +-- +-- Reporting can be started and stopped using the methods @{Fac#FAC_BASE.StartReporting}() and @{Fac#FAC_BASE.StopReporting}() respectively. +-- If an ad-hoc report is requested, use the method @{Fac#FAC_BASE#ReportNow}(). +-- +-- The default reporting interval is every 60 seconds. The reporting messages are displayed 15 seconds. +-- +-- === +-- +-- 2) @{Fac#FAC_REPORTING} class, extends @{Fac#FAC_BASE} +-- ====================================================== +-- The @{Fac#FAC_REPORTING} class implements detected units reporting. Reporting can be controlled using the reporting methods available in the @{Fac#FAC_BASE} class. +-- +-- 2.1) FAC_REPORTING constructor: +-- ------------------------------- +-- The @{Fac#FAC_REPORTING.New}() method creates a new FAC_REPORTING instance. +-- +-- === +-- +-- @module Fac +-- @author Mechanic, Prof_Hilactic, FlightControl : Concept & Testing +-- @author FlightControl : Design & Programming + + + +--- FAC_BASE class. +-- @type FAC_BASE +-- @field Set#SET_CLIENT ClientSet The clients to which the FAC will report to. +-- @field Detection#DETECTION_BASE Detection The DETECTION_BASE object that is used to report the detected objects. +-- @extends Base#BASE +FAC_BASE = { + ClassName = "FAC_BASE", + ClientSet = nil, + Detection = nil, +} + +--- FAC constructor. +-- @param #FAC_BASE self +-- @param Set#SET_CLIENT ClientSet +-- @param Detection#DETECTION_BASE Detection +-- @return #FAC_BASE self +function FAC_BASE:New( ClientSet, Detection ) + + -- Inherits from BASE + local self = BASE:Inherit( self, BASE:New() ) -- Fac#FAC_BASE + + self.ClientSet = ClientSet + self.Detection = Detection + + self:SetReportInterval( 60 ) + self:SetReportDisplayTime( 15 ) + + return self +end + +--- Set the reporting time interval. +-- @param #FAC_BASE self +-- @param #number ReportInterval The interval in seconds when a report needs to be done. +-- @return #FAC_BASE self +function FAC_BASE:SetReportInterval( ReportInterval ) + self:F2() + + self._ReportInterval = ReportInterval +end + + +--- Set the reporting message display time. +-- @param #FAC_BASE self +-- @param #number ReportDisplayTime The display time in seconds when a report needs to be done. +-- @return #FAC_BASE self +function FAC_BASE:SetReportDisplayTime( ReportDisplayTime ) + self:F2() + + self._ReportDisplayTime = ReportDisplayTime +end + +--- Get the reporting message display time. +-- @param #FAC_BASE self +-- @return #number ReportDisplayTime The display time in seconds when a report needs to be done. +function FAC_BASE:GetReportDisplayTime() + self:F2() + + return self._ReportDisplayTime +end + +--- Reports the detected items to the @{Set#SET_CLIENT}. +-- @param #FAC_BASE self +-- @param Set#SET_BASE DetectedSets The detected Sets created by the @{Detection#DETECTION_BASE} object. +-- @return #FAC_BASE self +function FAC_BASE:ReportDetected( DetectedSets ) + self:F2() + + + +end + +--- Schedule the FAC reporting. +-- @param #FAC_BASE self +-- @param #number DelayTime The delay in seconds to wait the reporting. +-- @param #number ReportInterval The repeat interval in seconds for the reporting to happen repeatedly. +-- @return #FAC_BASE self +function FAC_BASE:Schedule( DelayTime, ReportInterval ) + self:F2() + + self._ScheduleDelayTime = DelayTime + + self:SetReportInterval( ReportInterval ) + + self.FacScheduler = SCHEDULER:New(self, self._FacScheduler, { self, "Fac" }, self._ScheduleDelayTime, self._ReportInterval ) + return self +end + +--- Report the detected @{Unit#UNIT}s detected within the @{DetectION#DETECTION_BASE} object to the @{Set#SET_CLIENT}s. +-- @param #FAC_BASE self +function FAC_BASE:_FacScheduler( SchedulerName ) + self:F2( { SchedulerName } ) + + self.ClientSet:ForEachClient( + --- @param Client#CLIENT Client + function( Client ) + if Client:IsAlive() then + local DetectedSets = self.Detection:GetDetectedSets() + return self:ReportDetected( Client, DetectedSets ) + end + end + ) + + return true +end + +-- FAC_REPORTING + +--- FAC_REPORTING class. +-- @type FAC_REPORTING +-- @field Set#SET_CLIENT ClientSet The clients to which the FAC will report to. +-- @field Detection#DETECTION_BASE Detection The DETECTION_BASE object that is used to report the detected objects. +-- @extends #FAC_BASE +FAC_REPORTING = { + ClassName = "FAC_REPORTING", +} + + +--- FAC_REPORTING constructor. +-- @param #FAC_REPORTING self +-- @param Set#SET_CLIENT ClientSet +-- @param Detection#DETECTION_BASE Detection +-- @return #FAC_REPORTING self +function FAC_REPORTING:New( ClientSet, Detection ) + + -- Inherits from FAC_BASE + local self = BASE:Inherit( self, FAC_BASE:New( ClientSet, Detection ) ) -- #FAC_REPORTING + + self:Schedule( 5, 60 ) + return self +end + + +--- Reports the detected items to the @{Set#SET_CLIENT}. +-- @param #FAC_REPORTING self +-- @param Client#CLIENT Client The @{Client} object to where the report needs to go. +-- @param Set#SET_BASE DetectedSets The detected Sets created by the @{Detection#DETECTION_BASE} object. +-- @return #boolean Return true if you want the reporting to continue... false will cancel the reporting loop. +function FAC_REPORTING:ReportDetected( Client, DetectedSets ) + self:F2( Client ) + + local DetectedMsg = {} + for DetectedUnitSetID, DetectedUnitSet in pairs( DetectedSets ) do + local UnitSet = DetectedUnitSet -- Set#SET_UNIT + local MT = {} -- Message Text + local UnitTypes = {} + for DetectedUnitID, DetectedUnitData in pairs( UnitSet:GetSet() ) do + local DetectedUnit = DetectedUnitData -- Unit#UNIT + local UnitType = DetectedUnit:GetTypeName() + if not UnitTypes[UnitType] then + UnitTypes[UnitType] = 1 + else + UnitTypes[UnitType] = UnitTypes[UnitType] + 1 + end + end + for UnitTypeID, UnitType in pairs( UnitTypes ) do + MT[#MT+1] = UnitType .. " of " .. UnitTypeID + end + local MessageText = table.concat( MT, ", " ) + DetectedMsg[#DetectedMsg+1] = " - Group #" .. DetectedUnitSetID .. ": " .. MessageText + end + local FACGroup = self.Detection:GetFACGroup() + FACGroup:MessageToClient( "Reporting detected target groups:\n" .. table.concat( DetectedMsg, "\n" ), self:GetReportDisplayTime(), Client ) + + return true +end + + +BASE:TraceOnOff( false ) env.info( '*** MOOSE INCLUDE END *** ' ) diff --git a/Moose Mission Setup/Moose.lua b/Moose Mission Setup/Moose.lua index 9567ea116..f532c477e 100644 --- a/Moose Mission Setup/Moose.lua +++ b/Moose Mission Setup/Moose.lua @@ -1,31 +1,23828 @@ -env.info( '*** MOOSE DYNAMIC INCLUDE START *** ' ) -env.info( 'Moose Generation Timestamp: 20160707_2044' ) - +env.info( '*** MOOSE STATIC INCLUDE START *** ' ) +env.info( 'Moose Generation Timestamp: 20160707_2143' ) local base = _G Include = {} - +Include.Files = {} Include.File = function( IncludeFile ) - if not Include.Files[ IncludeFile ] then - Include.Files[IncludeFile] = IncludeFile - env.info( "Include:" .. IncludeFile .. " from " .. Include.ProgramPath ) - local f = assert( base.loadfile( Include.ProgramPath .. IncludeFile .. ".lua" ) ) - if f == nil then - error ("Could not load MOOSE file " .. IncludeFile .. ".lua" ) +end + +--- Various routines +-- @module routines +-- @author Flightcontrol + +env.setErrorMessageBoxEnabled(false) + +--- Extract of MIST functions. +-- @author Grimes + +routines = {} + + +-- don't change these +routines.majorVersion = 3 +routines.minorVersion = 3 +routines.build = 22 + +----------------------------------------------------------------------------------------------------------------- + +---------------------------------------------------------------------------------------------- +-- Utils- conversion, Lua utils, etc. +routines.utils = {} + +--from http://lua-users.org/wiki/CopyTable +routines.utils.deepCopy = function(object) + local lookup_table = {} + local function _copy(object) + if type(object) ~= "table" then + return object + elseif lookup_table[object] then + return lookup_table[object] + end + local new_table = {} + lookup_table[object] = new_table + for index, value in pairs(object) do + new_table[_copy(index)] = _copy(value) + end + return setmetatable(new_table, getmetatable(object)) + end + local objectreturn = _copy(object) + return objectreturn +end + + +-- porting in Slmod's serialize_slmod2 +routines.utils.oneLineSerialize = function(tbl) -- serialization of a table all on a single line, no comments, made to replace old get_table_string function + + lookup_table = {} + + local function _Serialize( tbl ) + + if type(tbl) == 'table' then --function only works for tables! + + if lookup_table[tbl] then + return lookup_table[object] + end + + local tbl_str = {} + + lookup_table[tbl] = tbl_str + + tbl_str[#tbl_str + 1] = '{' + + for ind,val in pairs(tbl) do -- serialize its fields + local ind_str = {} + if type(ind) == "number" then + ind_str[#ind_str + 1] = '[' + ind_str[#ind_str + 1] = tostring(ind) + ind_str[#ind_str + 1] = ']=' + else --must be a string + ind_str[#ind_str + 1] = '[' + ind_str[#ind_str + 1] = routines.utils.basicSerialize(ind) + ind_str[#ind_str + 1] = ']=' + end + + local val_str = {} + if ((type(val) == 'number') or (type(val) == 'boolean')) then + val_str[#val_str + 1] = tostring(val) + val_str[#val_str + 1] = ',' + tbl_str[#tbl_str + 1] = table.concat(ind_str) + tbl_str[#tbl_str + 1] = table.concat(val_str) + elseif type(val) == 'string' then + val_str[#val_str + 1] = routines.utils.basicSerialize(val) + val_str[#val_str + 1] = ',' + tbl_str[#tbl_str + 1] = table.concat(ind_str) + tbl_str[#tbl_str + 1] = table.concat(val_str) + elseif type(val) == 'nil' then -- won't ever happen, right? + val_str[#val_str + 1] = 'nil,' + tbl_str[#tbl_str + 1] = table.concat(ind_str) + tbl_str[#tbl_str + 1] = table.concat(val_str) + elseif type(val) == 'table' then + if ind == "__index" then + -- tbl_str[#tbl_str + 1] = "__index" + -- tbl_str[#tbl_str + 1] = ',' --I think this is right, I just added it + else + + val_str[#val_str + 1] = _Serialize(val) + val_str[#val_str + 1] = ',' --I think this is right, I just added it + tbl_str[#tbl_str + 1] = table.concat(ind_str) + tbl_str[#tbl_str + 1] = table.concat(val_str) + end + elseif type(val) == 'function' then + -- tbl_str[#tbl_str + 1] = "function " .. tostring(ind) + -- tbl_str[#tbl_str + 1] = ',' --I think this is right, I just added it + else +-- env.info('unable to serialize value type ' .. routines.utils.basicSerialize(type(val)) .. ' at index ' .. tostring(ind)) +-- env.info( debug.traceback() ) + end + + end + tbl_str[#tbl_str + 1] = '}' + return table.concat(tbl_str) else - env.info( "Include:" .. IncludeFile .. " loaded from " .. Include.ProgramPath ) - return f() + return tostring(tbl) + end + end + + local objectreturn = _Serialize(tbl) + return objectreturn +end + +--porting in Slmod's "safestring" basic serialize +routines.utils.basicSerialize = function(s) + if s == nil then + return "\"\"" + else + if ((type(s) == 'number') or (type(s) == 'boolean') or (type(s) == 'function') or (type(s) == 'table') or (type(s) == 'userdata') ) then + return tostring(s) + elseif type(s) == 'string' then + s = string.format('%q', s) + return s end end end -Include.ProgramPath = "Scripts/Moose/" -env.info( "Include.ProgramPath = " .. Include.ProgramPath) +routines.utils.toDegree = function(angle) + return angle*180/math.pi +end -Include.Files = {} +routines.utils.toRadian = function(angle) + return angle*math.pi/180 +end +routines.utils.metersToNM = function(meters) + return meters/1852 +end + +routines.utils.metersToFeet = function(meters) + return meters/0.3048 +end + +routines.utils.NMToMeters = function(NM) + return NM*1852 +end + +routines.utils.feetToMeters = function(feet) + return feet*0.3048 +end + +routines.utils.mpsToKnots = function(mps) + return mps*3600/1852 +end + +routines.utils.mpsToKmph = function(mps) + return mps*3.6 +end + +routines.utils.knotsToMps = function(knots) + return knots*1852/3600 +end + +routines.utils.kmphToMps = function(kmph) + return kmph/3.6 +end + +function routines.utils.makeVec2(Vec3) + if Vec3.z then + return {x = Vec3.x, y = Vec3.z} + else + return {x = Vec3.x, y = Vec3.y} -- it was actually already vec2. + end +end + +function routines.utils.makeVec3(Vec2, y) + if not Vec2.z then + if not y then + y = 0 + end + return {x = Vec2.x, y = y, z = Vec2.y} + else + return {x = Vec2.x, y = Vec2.y, z = Vec2.z} -- it was already Vec3, actually. + end +end + +function routines.utils.makeVec3GL(Vec2, offset) + local adj = offset or 0 + + if not Vec2.z then + return {x = Vec2.x, y = (land.getHeight(Vec2) + adj), z = Vec2.y} + else + return {x = Vec2.x, y = (land.getHeight({x = Vec2.x, y = Vec2.z}) + adj), z = Vec2.z} + end +end + +routines.utils.zoneToVec3 = function(zone) + local new = {} + if type(zone) == 'table' and zone.point then + new.x = zone.point.x + new.y = zone.point.y + new.z = zone.point.z + return new + elseif type(zone) == 'string' then + zone = trigger.misc.getZone(zone) + if zone then + new.x = zone.point.x + new.y = zone.point.y + new.z = zone.point.z + return new + end + end +end + +-- gets heading-error corrected direction from point along vector vec. +function routines.utils.getDir(vec, point) + local dir = math.atan2(vec.z, vec.x) + dir = dir + routines.getNorthCorrection(point) + if dir < 0 then + dir = dir + 2*math.pi -- put dir in range of 0 to 2*pi + end + return dir +end + +-- gets distance in meters between two points (2 dimensional) +function routines.utils.get2DDist(point1, point2) + point1 = routines.utils.makeVec3(point1) + point2 = routines.utils.makeVec3(point2) + return routines.vec.mag({x = point1.x - point2.x, y = 0, z = point1.z - point2.z}) +end + +-- gets distance in meters between two points (3 dimensional) +function routines.utils.get3DDist(point1, point2) + return routines.vec.mag({x = point1.x - point2.x, y = point1.y - point2.y, z = point1.z - point2.z}) +end + + + +-- From http://lua-users.org/wiki/SimpleRound +-- use negative idp for rounding ahead of decimal place, positive for rounding after decimal place +routines.utils.round = function(num, idp) + local mult = 10^(idp or 0) + return math.floor(num * mult + 0.5) / mult +end + +-- porting in Slmod's dostring +routines.utils.dostring = function(s) + local f, err = loadstring(s) + if f then + return true, f() + else + return false, err + end +end + + +--3D Vector manipulation +routines.vec = {} + +routines.vec.add = function(vec1, vec2) + return {x = vec1.x + vec2.x, y = vec1.y + vec2.y, z = vec1.z + vec2.z} +end + +routines.vec.sub = function(vec1, vec2) + return {x = vec1.x - vec2.x, y = vec1.y - vec2.y, z = vec1.z - vec2.z} +end + +routines.vec.scalarMult = function(vec, mult) + return {x = vec.x*mult, y = vec.y*mult, z = vec.z*mult} +end + +routines.vec.scalar_mult = routines.vec.scalarMult + +routines.vec.dp = function(vec1, vec2) + return vec1.x*vec2.x + vec1.y*vec2.y + vec1.z*vec2.z +end + +routines.vec.cp = function(vec1, vec2) + return { x = vec1.y*vec2.z - vec1.z*vec2.y, y = vec1.z*vec2.x - vec1.x*vec2.z, z = vec1.x*vec2.y - vec1.y*vec2.x} +end + +routines.vec.mag = function(vec) + return (vec.x^2 + vec.y^2 + vec.z^2)^0.5 +end + +routines.vec.getUnitVec = function(vec) + local mag = routines.vec.mag(vec) + return { x = vec.x/mag, y = vec.y/mag, z = vec.z/mag } +end + +routines.vec.rotateVec2 = function(vec2, theta) + return { x = vec2.x*math.cos(theta) - vec2.y*math.sin(theta), y = vec2.x*math.sin(theta) + vec2.y*math.cos(theta)} +end +--------------------------------------------------------------------------------------------------------------------------- + + + + +-- acc- the accuracy of each easting/northing. 0, 1, 2, 3, 4, or 5. +routines.tostringMGRS = function(MGRS, acc) + if acc == 0 then + return MGRS.UTMZone .. ' ' .. MGRS.MGRSDigraph + else + return MGRS.UTMZone .. ' ' .. MGRS.MGRSDigraph .. ' ' .. string.format('%0' .. acc .. 'd', routines.utils.round(MGRS.Easting/(10^(5-acc)), 0)) + .. ' ' .. string.format('%0' .. acc .. 'd', routines.utils.round(MGRS.Northing/(10^(5-acc)), 0)) + end +end + +--[[acc: +in DM: decimal point of minutes. +In DMS: decimal point of seconds. +position after the decimal of the least significant digit: +So: +42.32 - acc of 2. +]] +routines.tostringLL = function(lat, lon, acc, DMS) + + local latHemi, lonHemi + if lat > 0 then + latHemi = 'N' + else + latHemi = 'S' + end + + if lon > 0 then + lonHemi = 'E' + else + lonHemi = 'W' + end + + lat = math.abs(lat) + lon = math.abs(lon) + + local latDeg = math.floor(lat) + local latMin = (lat - latDeg)*60 + + local lonDeg = math.floor(lon) + local lonMin = (lon - lonDeg)*60 + + if DMS then -- degrees, minutes, and seconds. + local oldLatMin = latMin + latMin = math.floor(latMin) + local latSec = routines.utils.round((oldLatMin - latMin)*60, acc) + + local oldLonMin = lonMin + lonMin = math.floor(lonMin) + local lonSec = routines.utils.round((oldLonMin - lonMin)*60, acc) + + if latSec == 60 then + latSec = 0 + latMin = latMin + 1 + end + + if lonSec == 60 then + lonSec = 0 + lonMin = lonMin + 1 + end + + local secFrmtStr -- create the formatting string for the seconds place + if acc <= 0 then -- no decimal place. + secFrmtStr = '%02d' + else + local width = 3 + acc -- 01.310 - that's a width of 6, for example. + secFrmtStr = '%0' .. width .. '.' .. acc .. 'f' + end + + return string.format('%02d', latDeg) .. ' ' .. string.format('%02d', latMin) .. '\' ' .. string.format(secFrmtStr, latSec) .. '"' .. latHemi .. ' ' + .. string.format('%02d', lonDeg) .. ' ' .. string.format('%02d', lonMin) .. '\' ' .. string.format(secFrmtStr, lonSec) .. '"' .. lonHemi + + else -- degrees, decimal minutes. + latMin = routines.utils.round(latMin, acc) + lonMin = routines.utils.round(lonMin, acc) + + if latMin == 60 then + latMin = 0 + latDeg = latDeg + 1 + end + + if lonMin == 60 then + lonMin = 0 + lonDeg = lonDeg + 1 + end + + local minFrmtStr -- create the formatting string for the minutes place + if acc <= 0 then -- no decimal place. + minFrmtStr = '%02d' + else + local width = 3 + acc -- 01.310 - that's a width of 6, for example. + minFrmtStr = '%0' .. width .. '.' .. acc .. 'f' + end + + return string.format('%02d', latDeg) .. ' ' .. string.format(minFrmtStr, latMin) .. '\'' .. latHemi .. ' ' + .. string.format('%02d', lonDeg) .. ' ' .. string.format(minFrmtStr, lonMin) .. '\'' .. lonHemi + + end +end + +--[[ required: az - radian + required: dist - meters + optional: alt - meters (set to false or nil if you don't want to use it). + optional: metric - set true to get dist and alt in km and m. + precision will always be nearest degree and NM or km.]] +routines.tostringBR = function(az, dist, alt, metric) + az = routines.utils.round(routines.utils.toDegree(az), 0) + + if metric then + dist = routines.utils.round(dist/1000, 2) + else + dist = routines.utils.round(routines.utils.metersToNM(dist), 2) + end + + local s = string.format('%03d', az) .. ' for ' .. dist + + if alt then + if metric then + s = s .. ' at ' .. routines.utils.round(alt, 0) + else + s = s .. ' at ' .. routines.utils.round(routines.utils.metersToFeet(alt), 0) + end + end + return s +end + +routines.getNorthCorrection = function(point) --gets the correction needed for true north + if not point.z then --Vec2; convert to Vec3 + point.z = point.y + point.y = 0 + end + local lat, lon = coord.LOtoLL(point) + local north_posit = coord.LLtoLO(lat + 1, lon) + return math.atan2(north_posit.z - point.z, north_posit.x - point.x) +end + + +do + local idNum = 0 + + --Simplified event handler + routines.addEventHandler = function(f) --id is optional! + local handler = {} + idNum = idNum + 1 + handler.id = idNum + handler.f = f + handler.onEvent = function(self, event) + self.f(event) + end + world.addEventHandler(handler) + end + + routines.removeEventHandler = function(id) + for key, handler in pairs(world.eventHandlers) do + if handler.id and handler.id == id then + world.eventHandlers[key] = nil + return true + end + end + return false + end +end + +-- need to return a Vec3 or Vec2? +function routines.getRandPointInCircle(point, radius, innerRadius) + local theta = 2*math.pi*math.random() + local rad = math.random() + math.random() + if rad > 1 then + rad = 2 - rad + end + + local radMult + if innerRadius and innerRadius <= radius then + radMult = (radius - innerRadius)*rad + innerRadius + else + radMult = radius*rad + end + + if not point.z then --might as well work with vec2/3 + point.z = point.y + end + + local rndCoord + if radius > 0 then + rndCoord = {x = math.cos(theta)*radMult + point.x, y = math.sin(theta)*radMult + point.z} + else + rndCoord = {x = point.x, y = point.z} + end + return rndCoord +end + +routines.goRoute = function(group, path) + local misTask = { + id = 'Mission', + params = { + route = { + points = routines.utils.deepCopy(path), + }, + }, + } + if type(group) == 'string' then + group = Group.getByName(group) + end + local groupCon = group:getController() + if groupCon then + groupCon:setTask(misTask) + return true + end + + Controller.setTask(groupCon, misTask) + return false +end + + +-- Useful atomic functions from mist, ported. + +routines.ground = {} +routines.fixedWing = {} +routines.heli = {} + +routines.ground.buildWP = function(point, overRideForm, overRideSpeed) + + local wp = {} + wp.x = point.x + + if point.z then + wp.y = point.z + else + wp.y = point.y + end + local form, speed + + if point.speed and not overRideSpeed then + wp.speed = point.speed + elseif type(overRideSpeed) == 'number' then + wp.speed = overRideSpeed + else + wp.speed = routines.utils.kmphToMps(20) + end + + if point.form and not overRideForm then + form = point.form + else + form = overRideForm + end + + if not form then + wp.action = 'Cone' + else + form = string.lower(form) + if form == 'off_road' or form == 'off road' then + wp.action = 'Off Road' + elseif form == 'on_road' or form == 'on road' then + wp.action = 'On Road' + elseif form == 'rank' or form == 'line_abrest' or form == 'line abrest' or form == 'lineabrest'then + wp.action = 'Rank' + elseif form == 'cone' then + wp.action = 'Cone' + elseif form == 'diamond' then + wp.action = 'Diamond' + elseif form == 'vee' then + wp.action = 'Vee' + elseif form == 'echelon_left' or form == 'echelon left' or form == 'echelonl' then + wp.action = 'EchelonL' + elseif form == 'echelon_right' or form == 'echelon right' or form == 'echelonr' then + wp.action = 'EchelonR' + else + wp.action = 'Cone' -- if nothing matched + end + end + + wp.type = 'Turning Point' + + return wp + +end + +routines.fixedWing.buildWP = function(point, WPtype, speed, alt, altType) + + local wp = {} + wp.x = point.x + + if point.z then + wp.y = point.z + else + wp.y = point.y + end + + if alt and type(alt) == 'number' then + wp.alt = alt + else + wp.alt = 2000 + end + + if altType then + altType = string.lower(altType) + if altType == 'radio' or 'agl' then + wp.alt_type = 'RADIO' + elseif altType == 'baro' or 'asl' then + wp.alt_type = 'BARO' + end + else + wp.alt_type = 'RADIO' + end + + if point.speed then + speed = point.speed + end + + if point.type then + WPtype = point.type + end + + if not speed then + wp.speed = routines.utils.kmphToMps(500) + else + wp.speed = speed + end + + if not WPtype then + wp.action = 'Turning Point' + else + WPtype = string.lower(WPtype) + if WPtype == 'flyover' or WPtype == 'fly over' or WPtype == 'fly_over' then + wp.action = 'Fly Over Point' + elseif WPtype == 'turningpoint' or WPtype == 'turning point' or WPtype == 'turning_point' then + wp.action = 'Turning Point' + else + wp.action = 'Turning Point' + end + end + + wp.type = 'Turning Point' + return wp +end + +routines.heli.buildWP = function(point, WPtype, speed, alt, altType) + + local wp = {} + wp.x = point.x + + if point.z then + wp.y = point.z + else + wp.y = point.y + end + + if alt and type(alt) == 'number' then + wp.alt = alt + else + wp.alt = 500 + end + + if altType then + altType = string.lower(altType) + if altType == 'radio' or 'agl' then + wp.alt_type = 'RADIO' + elseif altType == 'baro' or 'asl' then + wp.alt_type = 'BARO' + end + else + wp.alt_type = 'RADIO' + end + + if point.speed then + speed = point.speed + end + + if point.type then + WPtype = point.type + end + + if not speed then + wp.speed = routines.utils.kmphToMps(200) + else + wp.speed = speed + end + + if not WPtype then + wp.action = 'Turning Point' + else + WPtype = string.lower(WPtype) + if WPtype == 'flyover' or WPtype == 'fly over' or WPtype == 'fly_over' then + wp.action = 'Fly Over Point' + elseif WPtype == 'turningpoint' or WPtype == 'turning point' or WPtype == 'turning_point' then + wp.action = 'Turning Point' + else + wp.action = 'Turning Point' + end + end + + wp.type = 'Turning Point' + return wp +end + +routines.groupToRandomPoint = function(vars) + local group = vars.group --Required + local point = vars.point --required + local radius = vars.radius or 0 + local innerRadius = vars.innerRadius + local form = vars.form or 'Cone' + local heading = vars.heading or math.random()*2*math.pi + local headingDegrees = vars.headingDegrees + local speed = vars.speed or routines.utils.kmphToMps(20) + + + local useRoads + if not vars.disableRoads then + useRoads = true + else + useRoads = false + end + + local path = {} + + if headingDegrees then + heading = headingDegrees*math.pi/180 + end + + if heading >= 2*math.pi then + heading = heading - 2*math.pi + end + + local rndCoord = routines.getRandPointInCircle(point, radius, innerRadius) + + local offset = {} + local posStart = routines.getLeadPos(group) + + offset.x = routines.utils.round(math.sin(heading - (math.pi/2)) * 50 + rndCoord.x, 3) + offset.z = routines.utils.round(math.cos(heading + (math.pi/2)) * 50 + rndCoord.y, 3) + path[#path + 1] = routines.ground.buildWP(posStart, form, speed) + + + if useRoads == true and ((point.x - posStart.x)^2 + (point.z - posStart.z)^2)^0.5 > radius * 1.3 then + path[#path + 1] = routines.ground.buildWP({['x'] = posStart.x + 11, ['z'] = posStart.z + 11}, 'off_road', speed) + path[#path + 1] = routines.ground.buildWP(posStart, 'on_road', speed) + path[#path + 1] = routines.ground.buildWP(offset, 'on_road', speed) + else + path[#path + 1] = routines.ground.buildWP({['x'] = posStart.x + 25, ['z'] = posStart.z + 25}, form, speed) + end + + path[#path + 1] = routines.ground.buildWP(offset, form, speed) + path[#path + 1] = routines.ground.buildWP(rndCoord, form, speed) + + routines.goRoute(group, path) + + return +end + +routines.groupRandomDistSelf = function(gpData, dist, form, heading, speed) + local pos = routines.getLeadPos(gpData) + local fakeZone = {} + fakeZone.radius = dist or math.random(300, 1000) + fakeZone.point = {x = pos.x, y, pos.y, z = pos.z} + routines.groupToRandomZone(gpData, fakeZone, form, heading, speed) + + return +end + +routines.groupToRandomZone = function(gpData, zone, form, heading, speed) + if type(gpData) == 'string' then + gpData = Group.getByName(gpData) + end + + if type(zone) == 'string' then + zone = trigger.misc.getZone(zone) + elseif type(zone) == 'table' and not zone.radius then + zone = trigger.misc.getZone(zone[math.random(1, #zone)]) + end + + if speed then + speed = routines.utils.kmphToMps(speed) + end + + local vars = {} + vars.group = gpData + vars.radius = zone.radius + vars.form = form + vars.headingDegrees = heading + vars.speed = speed + vars.point = routines.utils.zoneToVec3(zone) + + routines.groupToRandomPoint(vars) + + return +end + +routines.isTerrainValid = function(coord, terrainTypes) -- vec2/3 and enum or table of acceptable terrain types + if coord.z then + coord.y = coord.z + end + local typeConverted = {} + + if type(terrainTypes) == 'string' then -- if its a string it does this check + for constId, constData in pairs(land.SurfaceType) do + if string.lower(constId) == string.lower(terrainTypes) or string.lower(constData) == string.lower(terrainTypes) then + table.insert(typeConverted, constId) + end + end + elseif type(terrainTypes) == 'table' then -- if its a table it does this check + for typeId, typeData in pairs(terrainTypes) do + for constId, constData in pairs(land.SurfaceType) do + if string.lower(constId) == string.lower(typeData) or string.lower(constData) == string.lower(typeId) then + table.insert(typeConverted, constId) + end + end + end + end + for validIndex, validData in pairs(typeConverted) do + if land.getSurfaceType(coord) == land.SurfaceType[validData] then + return true + end + end + return false +end + +routines.groupToPoint = function(gpData, point, form, heading, speed, useRoads) + if type(point) == 'string' then + point = trigger.misc.getZone(point) + end + if speed then + speed = routines.utils.kmphToMps(speed) + end + + local vars = {} + vars.group = gpData + vars.form = form + vars.headingDegrees = heading + vars.speed = speed + vars.disableRoads = useRoads + vars.point = routines.utils.zoneToVec3(point) + routines.groupToRandomPoint(vars) + + return +end + + +routines.getLeadPos = function(group) + if type(group) == 'string' then -- group name + group = Group.getByName(group) + end + + local units = group:getUnits() + + local leader = units[1] + if not leader then -- SHOULD be good, but if there is a bug, this code future-proofs it then. + local lowestInd = math.huge + for ind, unit in pairs(units) do + if ind < lowestInd then + lowestInd = ind + leader = unit + end + end + end + if leader and Unit.isExist(leader) then -- maybe a little too paranoid now... + return leader:getPosition().p + end +end + +--[[ vars for routines.getMGRSString: +vars.units - table of unit names (NOT unitNameTable- maybe this should change). +vars.acc - integer between 0 and 5, inclusive +]] +routines.getMGRSString = function(vars) + local units = vars.units + local acc = vars.acc or 5 + local avgPos = routines.getAvgPos(units) + if avgPos then + return routines.tostringMGRS(coord.LLtoMGRS(coord.LOtoLL(avgPos)), acc) + end +end + +--[[ vars for routines.getLLString +vars.units - table of unit names (NOT unitNameTable- maybe this should change). +vars.acc - integer, number of numbers after decimal place +vars.DMS - if true, output in degrees, minutes, seconds. Otherwise, output in degrees, minutes. + + +]] +routines.getLLString = function(vars) + local units = vars.units + local acc = vars.acc or 3 + local DMS = vars.DMS + local avgPos = routines.getAvgPos(units) + if avgPos then + local lat, lon = coord.LOtoLL(avgPos) + return routines.tostringLL(lat, lon, acc, DMS) + end +end + +--[[ +vars.zone - table of a zone name. +vars.ref - vec3 ref point, maybe overload for vec2 as well? +vars.alt - boolean, if used, includes altitude in string +vars.metric - boolean, gives distance in km instead of NM. +]] +routines.getBRStringZone = function(vars) + local zone = trigger.misc.getZone( vars.zone ) + local ref = routines.utils.makeVec3(vars.ref, 0) -- turn it into Vec3 if it is not already. + local alt = vars.alt + local metric = vars.metric + if zone then + local vec = {x = zone.point.x - ref.x, y = zone.point.y - ref.y, z = zone.point.z - ref.z} + local dir = routines.utils.getDir(vec, ref) + local dist = routines.utils.get2DDist(zone.point, ref) + if alt then + alt = zone.y + end + return routines.tostringBR(dir, dist, alt, metric) + else + env.info( 'routines.getBRStringZone: error: zone is nil' ) + end +end + +--[[ +vars.units- table of unit names (NOT unitNameTable- maybe this should change). +vars.ref - vec3 ref point, maybe overload for vec2 as well? +vars.alt - boolean, if used, includes altitude in string +vars.metric - boolean, gives distance in km instead of NM. +]] +routines.getBRString = function(vars) + local units = vars.units + local ref = routines.utils.makeVec3(vars.ref, 0) -- turn it into Vec3 if it is not already. + local alt = vars.alt + local metric = vars.metric + local avgPos = routines.getAvgPos(units) + if avgPos then + local vec = {x = avgPos.x - ref.x, y = avgPos.y - ref.y, z = avgPos.z - ref.z} + local dir = routines.utils.getDir(vec, ref) + local dist = routines.utils.get2DDist(avgPos, ref) + if alt then + alt = avgPos.y + end + return routines.tostringBR(dir, dist, alt, metric) + end +end + + +-- Returns the Vec3 coordinates of the average position of the concentration of units most in the heading direction. +--[[ vars for routines.getLeadingPos: +vars.units - table of unit names +vars.heading - direction +vars.radius - number +vars.headingDegrees - boolean, switches heading to degrees +]] +routines.getLeadingPos = function(vars) + local units = vars.units + local heading = vars.heading + local radius = vars.radius + if vars.headingDegrees then + heading = routines.utils.toRadian(vars.headingDegrees) + end + + local unitPosTbl = {} + for i = 1, #units do + local unit = Unit.getByName(units[i]) + if unit and unit:isExist() then + unitPosTbl[#unitPosTbl + 1] = unit:getPosition().p + end + end + if #unitPosTbl > 0 then -- one more more units found. + -- first, find the unit most in the heading direction + local maxPos = -math.huge + + local maxPosInd -- maxPos - the furthest in direction defined by heading; maxPosInd = + for i = 1, #unitPosTbl do + local rotatedVec2 = routines.vec.rotateVec2(routines.utils.makeVec2(unitPosTbl[i]), heading) + if (not maxPos) or maxPos < rotatedVec2.x then + maxPos = rotatedVec2.x + maxPosInd = i + end + end + + --now, get all the units around this unit... + local avgPos + if radius then + local maxUnitPos = unitPosTbl[maxPosInd] + local avgx, avgy, avgz, totNum = 0, 0, 0, 0 + for i = 1, #unitPosTbl do + if routines.utils.get2DDist(maxUnitPos, unitPosTbl[i]) <= radius then + avgx = avgx + unitPosTbl[i].x + avgy = avgy + unitPosTbl[i].y + avgz = avgz + unitPosTbl[i].z + totNum = totNum + 1 + end + end + avgPos = { x = avgx/totNum, y = avgy/totNum, z = avgz/totNum} + else + avgPos = unitPosTbl[maxPosInd] + end + + return avgPos + end +end + + +--[[ vars for routines.getLeadingMGRSString: +vars.units - table of unit names +vars.heading - direction +vars.radius - number +vars.headingDegrees - boolean, switches heading to degrees +vars.acc - number, 0 to 5. +]] +routines.getLeadingMGRSString = function(vars) + local pos = routines.getLeadingPos(vars) + if pos then + local acc = vars.acc or 5 + return routines.tostringMGRS(coord.LLtoMGRS(coord.LOtoLL(pos)), acc) + end +end + +--[[ vars for routines.getLeadingLLString: +vars.units - table of unit names +vars.heading - direction, number +vars.radius - number +vars.headingDegrees - boolean, switches heading to degrees +vars.acc - number of digits after decimal point (can be negative) +vars.DMS - boolean, true if you want DMS. +]] +routines.getLeadingLLString = function(vars) + local pos = routines.getLeadingPos(vars) + if pos then + local acc = vars.acc or 3 + local DMS = vars.DMS + local lat, lon = coord.LOtoLL(pos) + return routines.tostringLL(lat, lon, acc, DMS) + end +end + + + +--[[ vars for routines.getLeadingBRString: +vars.units - table of unit names +vars.heading - direction, number +vars.radius - number +vars.headingDegrees - boolean, switches heading to degrees +vars.metric - boolean, if true, use km instead of NM. +vars.alt - boolean, if true, include altitude. +vars.ref - vec3/vec2 reference point. +]] +routines.getLeadingBRString = function(vars) + local pos = routines.getLeadingPos(vars) + if pos then + local ref = vars.ref + local alt = vars.alt + local metric = vars.metric + + local vec = {x = pos.x - ref.x, y = pos.y - ref.y, z = pos.z - ref.z} + local dir = routines.utils.getDir(vec, ref) + local dist = routines.utils.get2DDist(pos, ref) + if alt then + alt = pos.y + end + return routines.tostringBR(dir, dist, alt, metric) + end +end + +--[[ vars for routines.message.add + vars.text = 'Hello World' + vars.displayTime = 20 + vars.msgFor = {coa = {'red'}, countries = {'Ukraine', 'Georgia'}, unitTypes = {'A-10C'}} + +]] + +--[[ vars for routines.msgMGRS +vars.units - table of unit names (NOT unitNameTable- maybe this should change). +vars.acc - integer between 0 and 5, inclusive +vars.text - text in the message +vars.displayTime - self explanatory +vars.msgFor - scope +]] +routines.msgMGRS = function(vars) + local units = vars.units + local acc = vars.acc + local text = vars.text + local displayTime = vars.displayTime + local msgFor = vars.msgFor + + local s = routines.getMGRSString{units = units, acc = acc} + local newText + if string.find(text, '%%s') then -- look for %s + newText = string.format(text, s) -- insert the coordinates into the message + else -- else, just append to the end. + newText = text .. s + end + + routines.message.add{ + text = newText, + displayTime = displayTime, + msgFor = msgFor + } +end + +--[[ vars for routines.msgLL +vars.units - table of unit names (NOT unitNameTable- maybe this should change) (Yes). +vars.acc - integer, number of numbers after decimal place +vars.DMS - if true, output in degrees, minutes, seconds. Otherwise, output in degrees, minutes. +vars.text - text in the message +vars.displayTime - self explanatory +vars.msgFor - scope +]] +routines.msgLL = function(vars) + local units = vars.units -- technically, I don't really need to do this, but it helps readability. + local acc = vars.acc + local DMS = vars.DMS + local text = vars.text + local displayTime = vars.displayTime + local msgFor = vars.msgFor + + local s = routines.getLLString{units = units, acc = acc, DMS = DMS} + local newText + if string.find(text, '%%s') then -- look for %s + newText = string.format(text, s) -- insert the coordinates into the message + else -- else, just append to the end. + newText = text .. s + end + + routines.message.add{ + text = newText, + displayTime = displayTime, + msgFor = msgFor + } + +end + + +--[[ +vars.units- table of unit names (NOT unitNameTable- maybe this should change). +vars.ref - vec3 ref point, maybe overload for vec2 as well? +vars.alt - boolean, if used, includes altitude in string +vars.metric - boolean, gives distance in km instead of NM. +vars.text - text of the message +vars.displayTime +vars.msgFor - scope +]] +routines.msgBR = function(vars) + local units = vars.units -- technically, I don't really need to do this, but it helps readability. + local ref = vars.ref -- vec2/vec3 will be handled in routines.getBRString + local alt = vars.alt + local metric = vars.metric + local text = vars.text + local displayTime = vars.displayTime + local msgFor = vars.msgFor + + local s = routines.getBRString{units = units, ref = ref, alt = alt, metric = metric} + local newText + if string.find(text, '%%s') then -- look for %s + newText = string.format(text, s) -- insert the coordinates into the message + else -- else, just append to the end. + newText = text .. s + end + + routines.message.add{ + text = newText, + displayTime = displayTime, + msgFor = msgFor + } + +end + + +-------------------------------------------------------------------------------------------- +-- basically, just sub-types of routines.msgBR... saves folks the work of getting the ref point. +--[[ +vars.units- table of unit names (NOT unitNameTable- maybe this should change). +vars.ref - string red, blue +vars.alt - boolean, if used, includes altitude in string +vars.metric - boolean, gives distance in km instead of NM. +vars.text - text of the message +vars.displayTime +vars.msgFor - scope +]] +routines.msgBullseye = function(vars) + if string.lower(vars.ref) == 'red' then + vars.ref = routines.DBs.missionData.bullseye.red + routines.msgBR(vars) + elseif string.lower(vars.ref) == 'blue' then + vars.ref = routines.DBs.missionData.bullseye.blue + routines.msgBR(vars) + end +end + +--[[ +vars.units- table of unit names (NOT unitNameTable- maybe this should change). +vars.ref - unit name of reference point +vars.alt - boolean, if used, includes altitude in string +vars.metric - boolean, gives distance in km instead of NM. +vars.text - text of the message +vars.displayTime +vars.msgFor - scope +]] + +routines.msgBRA = function(vars) + if Unit.getByName(vars.ref) then + vars.ref = Unit.getByName(vars.ref):getPosition().p + if not vars.alt then + vars.alt = true + end + routines.msgBR(vars) + end +end +-------------------------------------------------------------------------------------------- + +--[[ vars for routines.msgLeadingMGRS: +vars.units - table of unit names +vars.heading - direction +vars.radius - number +vars.headingDegrees - boolean, switches heading to degrees (optional) +vars.acc - number, 0 to 5. +vars.text - text of the message +vars.displayTime +vars.msgFor - scope +]] +routines.msgLeadingMGRS = function(vars) + local units = vars.units -- technically, I don't really need to do this, but it helps readability. + local heading = vars.heading + local radius = vars.radius + local headingDegrees = vars.headingDegrees + local acc = vars.acc + local text = vars.text + local displayTime = vars.displayTime + local msgFor = vars.msgFor + + local s = routines.getLeadingMGRSString{units = units, heading = heading, radius = radius, headingDegrees = headingDegrees, acc = acc} + local newText + if string.find(text, '%%s') then -- look for %s + newText = string.format(text, s) -- insert the coordinates into the message + else -- else, just append to the end. + newText = text .. s + end + + routines.message.add{ + text = newText, + displayTime = displayTime, + msgFor = msgFor + } + + +end +--[[ vars for routines.msgLeadingLL: +vars.units - table of unit names +vars.heading - direction, number +vars.radius - number +vars.headingDegrees - boolean, switches heading to degrees (optional) +vars.acc - number of digits after decimal point (can be negative) +vars.DMS - boolean, true if you want DMS. (optional) +vars.text - text of the message +vars.displayTime +vars.msgFor - scope +]] +routines.msgLeadingLL = function(vars) + local units = vars.units -- technically, I don't really need to do this, but it helps readability. + local heading = vars.heading + local radius = vars.radius + local headingDegrees = vars.headingDegrees + local acc = vars.acc + local DMS = vars.DMS + local text = vars.text + local displayTime = vars.displayTime + local msgFor = vars.msgFor + + local s = routines.getLeadingLLString{units = units, heading = heading, radius = radius, headingDegrees = headingDegrees, acc = acc, DMS = DMS} + local newText + if string.find(text, '%%s') then -- look for %s + newText = string.format(text, s) -- insert the coordinates into the message + else -- else, just append to the end. + newText = text .. s + end + + routines.message.add{ + text = newText, + displayTime = displayTime, + msgFor = msgFor + } + +end + +--[[ +vars.units - table of unit names +vars.heading - direction, number +vars.radius - number +vars.headingDegrees - boolean, switches heading to degrees (optional) +vars.metric - boolean, if true, use km instead of NM. (optional) +vars.alt - boolean, if true, include altitude. (optional) +vars.ref - vec3/vec2 reference point. +vars.text - text of the message +vars.displayTime +vars.msgFor - scope +]] +routines.msgLeadingBR = function(vars) + local units = vars.units -- technically, I don't really need to do this, but it helps readability. + local heading = vars.heading + local radius = vars.radius + local headingDegrees = vars.headingDegrees + local metric = vars.metric + local alt = vars.alt + local ref = vars.ref -- vec2/vec3 will be handled in routines.getBRString + local text = vars.text + local displayTime = vars.displayTime + local msgFor = vars.msgFor + + local s = routines.getLeadingBRString{units = units, heading = heading, radius = radius, headingDegrees = headingDegrees, metric = metric, alt = alt, ref = ref} + local newText + if string.find(text, '%%s') then -- look for %s + newText = string.format(text, s) -- insert the coordinates into the message + else -- else, just append to the end. + newText = text .. s + end + + routines.message.add{ + text = newText, + displayTime = displayTime, + msgFor = msgFor + } +end + + +function spairs(t, order) + -- collect the keys + local keys = {} + for k in pairs(t) do keys[#keys+1] = k end + + -- if order function given, sort by it by passing the table and keys a, b, + -- otherwise just sort the keys + if order then + table.sort(keys, function(a,b) return order(t, a, b) end) + else + table.sort(keys) + end + + -- return the iterator function + local i = 0 + return function() + i = i + 1 + if keys[i] then + return keys[i], t[keys[i]] + end + end +end + + +function routines.IsPartOfGroupInZones( CargoGroup, LandingZones ) +--trace.f() + + local CurrentZoneID = nil + + if CargoGroup then + local CargoUnits = CargoGroup:getUnits() + for CargoUnitID, CargoUnit in pairs( CargoUnits ) do + if CargoUnit and CargoUnit:getLife() >= 1.0 then + CurrentZoneID = routines.IsUnitInZones( CargoUnit, LandingZones ) + if CurrentZoneID then + break + end + end + end + end + +--trace.r( "", "", { CurrentZoneID } ) + return CurrentZoneID +end + + + +function routines.IsUnitInZones( TransportUnit, LandingZones ) +--trace.f("", "routines.IsUnitInZones" ) + + local TransportZoneResult = nil + local TransportZonePos = nil + local TransportZone = nil + + -- fill-up some local variables to support further calculations to determine location of units within the zone. + if TransportUnit then + local TransportUnitPos = TransportUnit:getPosition().p + if type( LandingZones ) == "table" then + for LandingZoneID, LandingZoneName in pairs( LandingZones ) do + TransportZone = trigger.misc.getZone( LandingZoneName ) + if TransportZone then + TransportZonePos = {radius = TransportZone.radius, x = TransportZone.point.x, y = TransportZone.point.y, z = TransportZone.point.z} + if ((( TransportUnitPos.x - TransportZonePos.x)^2 + (TransportUnitPos.z - TransportZonePos.z)^2)^0.5 <= TransportZonePos.radius) then + TransportZoneResult = LandingZoneID + break + end + end + end + else + TransportZone = trigger.misc.getZone( LandingZones ) + TransportZonePos = {radius = TransportZone.radius, x = TransportZone.point.x, y = TransportZone.point.y, z = TransportZone.point.z} + if ((( TransportUnitPos.x - TransportZonePos.x)^2 + (TransportUnitPos.z - TransportZonePos.z)^2)^0.5 <= TransportZonePos.radius) then + TransportZoneResult = 1 + end + end + if TransportZoneResult then + --trace.i( "routines", "TransportZone:" .. TransportZoneResult ) + else + --trace.i( "routines", "TransportZone:nil logic" ) + end + return TransportZoneResult + else + --trace.i( "routines", "TransportZone:nil hard" ) + return nil + end +end + +function routines.IsUnitNearZonesRadius( TransportUnit, LandingZones, ZoneRadius ) +--trace.f("", "routines.IsUnitInZones" ) + + local TransportZoneResult = nil + local TransportZonePos = nil + local TransportZone = nil + + -- fill-up some local variables to support further calculations to determine location of units within the zone. + if TransportUnit then + local TransportUnitPos = TransportUnit:getPosition().p + if type( LandingZones ) == "table" then + for LandingZoneID, LandingZoneName in pairs( LandingZones ) do + TransportZone = trigger.misc.getZone( LandingZoneName ) + if TransportZone then + TransportZonePos = {radius = TransportZone.radius, x = TransportZone.point.x, y = TransportZone.point.y, z = TransportZone.point.z} + if ((( TransportUnitPos.x - TransportZonePos.x)^2 + (TransportUnitPos.z - TransportZonePos.z)^2)^0.5 <= ZoneRadius ) then + TransportZoneResult = LandingZoneID + break + end + end + end + else + TransportZone = trigger.misc.getZone( LandingZones ) + TransportZonePos = {radius = TransportZone.radius, x = TransportZone.point.x, y = TransportZone.point.y, z = TransportZone.point.z} + if ((( TransportUnitPos.x - TransportZonePos.x)^2 + (TransportUnitPos.z - TransportZonePos.z)^2)^0.5 <= ZoneRadius ) then + TransportZoneResult = 1 + end + end + if TransportZoneResult then + --trace.i( "routines", "TransportZone:" .. TransportZoneResult ) + else + --trace.i( "routines", "TransportZone:nil logic" ) + end + return TransportZoneResult + else + --trace.i( "routines", "TransportZone:nil hard" ) + return nil + end +end + + +function routines.IsStaticInZones( TransportStatic, LandingZones ) +--trace.f() + + local TransportZoneResult = nil + local TransportZonePos = nil + local TransportZone = nil + + -- fill-up some local variables to support further calculations to determine location of units within the zone. + local TransportStaticPos = TransportStatic:getPosition().p + if type( LandingZones ) == "table" then + for LandingZoneID, LandingZoneName in pairs( LandingZones ) do + TransportZone = trigger.misc.getZone( LandingZoneName ) + if TransportZone then + TransportZonePos = {radius = TransportZone.radius, x = TransportZone.point.x, y = TransportZone.point.y, z = TransportZone.point.z} + if ((( TransportStaticPos.x - TransportZonePos.x)^2 + (TransportStaticPos.z - TransportZonePos.z)^2)^0.5 <= TransportZonePos.radius) then + TransportZoneResult = LandingZoneID + break + end + end + end + else + TransportZone = trigger.misc.getZone( LandingZones ) + TransportZonePos = {radius = TransportZone.radius, x = TransportZone.point.x, y = TransportZone.point.y, z = TransportZone.point.z} + if ((( TransportStaticPos.x - TransportZonePos.x)^2 + (TransportStaticPos.z - TransportZonePos.z)^2)^0.5 <= TransportZonePos.radius) then + TransportZoneResult = 1 + end + end + +--trace.r( "", "", { TransportZoneResult } ) + return TransportZoneResult +end + + +function routines.IsUnitInRadius( CargoUnit, ReferencePosition, Radius ) +--trace.f() + + local Valid = true + + -- fill-up some local variables to support further calculations to determine location of units within the zone. + local CargoPos = CargoUnit:getPosition().p + local ReferenceP = ReferencePosition.p + + if (((CargoPos.x - ReferenceP.x)^2 + (CargoPos.z - ReferenceP.z)^2)^0.5 <= Radius) then + else + Valid = false + end + + return Valid +end + +function routines.IsPartOfGroupInRadius( CargoGroup, ReferencePosition, Radius ) +--trace.f() + + local Valid = true + + Valid = routines.ValidateGroup( CargoGroup, "CargoGroup", Valid ) + + -- fill-up some local variables to support further calculations to determine location of units within the zone + local CargoUnits = CargoGroup:getUnits() + for CargoUnitId, CargoUnit in pairs( CargoUnits ) do + local CargoUnitPos = CargoUnit:getPosition().p +-- env.info( 'routines.IsPartOfGroupInRadius: CargoUnitPos.x = ' .. CargoUnitPos.x .. ' CargoUnitPos.z = ' .. CargoUnitPos.z ) + local ReferenceP = ReferencePosition.p +-- env.info( 'routines.IsPartOfGroupInRadius: ReferenceGroupPos.x = ' .. ReferenceGroupPos.x .. ' ReferenceGroupPos.z = ' .. ReferenceGroupPos.z ) + + if ((( CargoUnitPos.x - ReferenceP.x)^2 + (CargoUnitPos.z - ReferenceP.z)^2)^0.5 <= Radius) then + else + Valid = false + break + end + end + + return Valid +end + + +function routines.ValidateString( Variable, VariableName, Valid ) +--trace.f() + + if type( Variable ) == "string" then + if Variable == "" then + error( "routines.ValidateString: error: " .. VariableName .. " must be filled out!" ) + Valid = false + end + else + error( "routines.ValidateString: error: " .. VariableName .. " is not a string." ) + Valid = false + end + +--trace.r( "", "", { Valid } ) + return Valid +end + +function routines.ValidateNumber( Variable, VariableName, Valid ) +--trace.f() + + if type( Variable ) == "number" then + else + error( "routines.ValidateNumber: error: " .. VariableName .. " is not a number." ) + Valid = false + end + +--trace.r( "", "", { Valid } ) + return Valid + +end + +function routines.ValidateGroup( Variable, VariableName, Valid ) +--trace.f() + + if Variable == nil then + error( "routines.ValidateGroup: error: " .. VariableName .. " is a nil value!" ) + Valid = false + end + +--trace.r( "", "", { Valid } ) + return Valid +end + +function routines.ValidateZone( LandingZones, VariableName, Valid ) +--trace.f() + + if LandingZones == nil then + error( "routines.ValidateGroup: error: " .. VariableName .. " is a nil value!" ) + Valid = false + end + + if type( LandingZones ) == "table" then + for LandingZoneID, LandingZoneName in pairs( LandingZones ) do + if trigger.misc.getZone( LandingZoneName ) == nil then + error( "routines.ValidateGroup: error: Zone " .. LandingZoneName .. " does not exist!" ) + Valid = false + break + end + end + else + if trigger.misc.getZone( LandingZones ) == nil then + error( "routines.ValidateGroup: error: Zone " .. LandingZones .. " does not exist!" ) + Valid = false + end + end + +--trace.r( "", "", { Valid } ) + return Valid +end + +function routines.ValidateEnumeration( Variable, VariableName, Enum, Valid ) +--trace.f() + + local ValidVariable = false + + for EnumId, EnumData in pairs( Enum ) do + if Variable == EnumData then + ValidVariable = true + break + end + end + + if ValidVariable then + else + error( 'TransportValidateEnum: " .. VariableName .. " is not a valid type.' .. Variable ) + Valid = false + end + +--trace.r( "", "", { Valid } ) + return Valid +end + +function routines.getGroupRoute(groupIdent, task) -- same as getGroupPoints but returns speed and formation type along with vec2 of point} + -- refactor to search by groupId and allow groupId and groupName as inputs + local gpId = groupIdent + if type(groupIdent) == 'string' and not tonumber(groupIdent) then + gpId = _DATABASE.Templates.Groups[groupIdent].groupId + end + + for coa_name, coa_data in pairs(env.mission.coalition) do + if (coa_name == 'red' or coa_name == 'blue') and type(coa_data) == 'table' then + if coa_data.country then --there is a country table + for cntry_id, cntry_data in pairs(coa_data.country) do + for obj_type_name, obj_type_data in pairs(cntry_data) do + if obj_type_name == "helicopter" or obj_type_name == "ship" or obj_type_name == "plane" or obj_type_name == "vehicle" then -- only these types have points + if ((type(obj_type_data) == 'table') and obj_type_data.group and (type(obj_type_data.group) == 'table') and (#obj_type_data.group > 0)) then --there's a group! + for group_num, group_data in pairs(obj_type_data.group) do + if group_data and group_data.groupId == gpId then -- this is the group we are looking for + if group_data.route and group_data.route.points and #group_data.route.points > 0 then + local points = {} + + for point_num, point in pairs(group_data.route.points) do + local routeData = {} + if not point.point then + routeData.x = point.x + routeData.y = point.y + else + routeData.point = point.point --it's possible that the ME could move to the point = Vec2 notation. + end + routeData.form = point.action + routeData.speed = point.speed + routeData.alt = point.alt + routeData.alt_type = point.alt_type + routeData.airdromeId = point.airdromeId + routeData.helipadId = point.helipadId + routeData.type = point.type + routeData.action = point.action + if task then + routeData.task = point.task + end + points[point_num] = routeData + end + + return points + end + return + end --if group_data and group_data.name and group_data.name == 'groupname' + end --for group_num, group_data in pairs(obj_type_data.group) do + end --if ((type(obj_type_data) == 'table') and obj_type_data.group and (type(obj_type_data.group) == 'table') and (#obj_type_data.group > 0)) then + end --if obj_type_name == "helicopter" or obj_type_name == "ship" or obj_type_name == "plane" or obj_type_name == "vehicle" or obj_type_name == "static" then + end --for obj_type_name, obj_type_data in pairs(cntry_data) do + end --for cntry_id, cntry_data in pairs(coa_data.country) do + end --if coa_data.country then --there is a country table + end --if coa_name == 'red' or coa_name == 'blue' and type(coa_data) == 'table' then + end --for coa_name, coa_data in pairs(mission.coalition) do +end + +routines.ground.patrolRoute = function(vars) + + + local tempRoute = {} + local useRoute = {} + local gpData = vars.gpData + if type(gpData) == 'string' then + gpData = Group.getByName(gpData) + end + + local useGroupRoute + if not vars.useGroupRoute then + useGroupRoute = vars.gpData + else + useGroupRoute = vars.useGroupRoute + end + local routeProvided = false + if not vars.route then + if useGroupRoute then + tempRoute = routines.getGroupRoute(useGroupRoute) + end + else + useRoute = vars.route + local posStart = routines.getLeadPos(gpData) + useRoute[1] = routines.ground.buildWP(posStart, useRoute[1].action, useRoute[1].speed) + routeProvided = true + end + + + local overRideSpeed = vars.speed or 'default' + local pType = vars.pType + local offRoadForm = vars.offRoadForm or 'default' + local onRoadForm = vars.onRoadForm or 'default' + + if routeProvided == false and #tempRoute > 0 then + local posStart = routines.getLeadPos(gpData) + + + useRoute[#useRoute + 1] = routines.ground.buildWP(posStart, offRoadForm, overRideSpeed) + for i = 1, #tempRoute do + local tempForm = tempRoute[i].action + local tempSpeed = tempRoute[i].speed + + if offRoadForm == 'default' then + tempForm = tempRoute[i].action + end + if onRoadForm == 'default' then + onRoadForm = 'On Road' + end + if (string.lower(tempRoute[i].action) == 'on road' or string.lower(tempRoute[i].action) == 'onroad' or string.lower(tempRoute[i].action) == 'on_road') then + tempForm = onRoadForm + else + tempForm = offRoadForm + end + + if type(overRideSpeed) == 'number' then + tempSpeed = overRideSpeed + end + + + useRoute[#useRoute + 1] = routines.ground.buildWP(tempRoute[i], tempForm, tempSpeed) + end + + if pType and string.lower(pType) == 'doubleback' then + local curRoute = routines.utils.deepCopy(useRoute) + for i = #curRoute, 2, -1 do + useRoute[#useRoute + 1] = routines.ground.buildWP(curRoute[i], curRoute[i].action, curRoute[i].speed) + end + end + + useRoute[1].action = useRoute[#useRoute].action -- make it so the first WP matches the last WP + end + + local cTask3 = {} + local newPatrol = {} + newPatrol.route = useRoute + newPatrol.gpData = gpData:getName() + cTask3[#cTask3 + 1] = 'routines.ground.patrolRoute(' + cTask3[#cTask3 + 1] = routines.utils.oneLineSerialize(newPatrol) + cTask3[#cTask3 + 1] = ')' + cTask3 = table.concat(cTask3) + local tempTask = { + id = 'WrappedAction', + params = { + action = { + id = 'Script', + params = { + command = cTask3, + + }, + }, + }, + } + + + useRoute[#useRoute].task = tempTask + routines.goRoute(gpData, useRoute) + + return +end + +routines.ground.patrol = function(gpData, pType, form, speed) + local vars = {} + + if type(gpData) == 'table' and gpData:getName() then + gpData = gpData:getName() + end + + vars.useGroupRoute = gpData + vars.gpData = gpData + vars.pType = pType + vars.offRoadForm = form + vars.speed = speed + + routines.ground.patrolRoute(vars) + + return +end + +function routines.GetUnitHeight( CheckUnit ) +--trace.f( "routines" ) + + local UnitPoint = CheckUnit:getPoint() + local UnitPosition = { x = UnitPoint.x, y = UnitPoint.z } + local UnitHeight = UnitPoint.y + + local LandHeight = land.getHeight( UnitPosition ) + + --env.info(( 'CarrierHeight: LandHeight = ' .. LandHeight .. ' CarrierHeight = ' .. CarrierHeight )) + + --trace.f( "routines", "Unit Height = " .. UnitHeight - LandHeight ) + + return UnitHeight - LandHeight + +end + + + +Su34Status = { status = {} } +boardMsgRed = { statusMsg = "" } +boardMsgAll = { timeMsg = "" } +SpawnSettings = {} +Su34MenuPath = {} +Su34Menus = 0 + + +function Su34AttackCarlVinson(groupName) +--trace.menu("", "Su34AttackCarlVinson") + local groupSu34 = Group.getByName( groupName ) + local controllerSu34 = groupSu34.getController(groupSu34) + local groupCarlVinson = Group.getByName("US Carl Vinson #001") + controllerSu34.setOption( controllerSu34, AI.Option.Air.id.ROE, AI.Option.Air.val.ROE.OPEN_FIRE ) + controllerSu34.setOption( controllerSu34, AI.Option.Air.id.REACTION_ON_THREAT, AI.Option.Air.val.REACTION_ON_THREAT.EVADE_FIRE ) + if groupCarlVinson ~= nil then + controllerSu34.pushTask(controllerSu34,{id = 'AttackGroup', params = { groupId = groupCarlVinson:getID(), expend = AI.Task.WeaponExpend.ALL, attackQtyLimit = true}}) + end + Su34Status.status[groupName] = 1 + MessageToRed( string.format('%s: ',groupName) .. 'Attacking carrier Carl Vinson. ', 10, 'RedStatus' .. groupName ) +end + +function Su34AttackWest(groupName) +--trace.f("","Su34AttackWest") + local groupSu34 = Group.getByName( groupName ) + local controllerSu34 = groupSu34.getController(groupSu34) + local groupShipWest1 = Group.getByName("US Ship West #001") + local groupShipWest2 = Group.getByName("US Ship West #002") + controllerSu34.setOption( controllerSu34, AI.Option.Air.id.ROE, AI.Option.Air.val.ROE.OPEN_FIRE ) + controllerSu34.setOption( controllerSu34, AI.Option.Air.id.REACTION_ON_THREAT, AI.Option.Air.val.REACTION_ON_THREAT.EVADE_FIRE ) + if groupShipWest1 ~= nil then + controllerSu34.pushTask(controllerSu34,{id = 'AttackGroup', params = { groupId = groupShipWest1:getID(), expend = AI.Task.WeaponExpend.ALL, attackQtyLimit = true}}) + end + if groupShipWest2 ~= nil then + controllerSu34.pushTask(controllerSu34,{id = 'AttackGroup', params = { groupId = groupShipWest2:getID(), expend = AI.Task.WeaponExpend.ALL, attackQtyLimit = true}}) + end + Su34Status.status[groupName] = 2 + MessageToRed( string.format('%s: ',groupName) .. 'Attacking invading ships in the west. ', 10, 'RedStatus' .. groupName ) +end + +function Su34AttackNorth(groupName) +--trace.menu("","Su34AttackNorth") + local groupSu34 = Group.getByName( groupName ) + local controllerSu34 = groupSu34.getController(groupSu34) + local groupShipNorth1 = Group.getByName("US Ship North #001") + local groupShipNorth2 = Group.getByName("US Ship North #002") + local groupShipNorth3 = Group.getByName("US Ship North #003") + controllerSu34.setOption( controllerSu34, AI.Option.Air.id.ROE, AI.Option.Air.val.ROE.OPEN_FIRE ) + controllerSu34.setOption( controllerSu34, AI.Option.Air.id.REACTION_ON_THREAT, AI.Option.Air.val.REACTION_ON_THREAT.EVADE_FIRE ) + if groupShipNorth1 ~= nil then + controllerSu34.pushTask(controllerSu34,{id = 'AttackGroup', params = { groupId = groupShipNorth1:getID(), expend = AI.Task.WeaponExpend.ALL, attackQtyLimit = false}}) + end + if groupShipNorth2 ~= nil then + controllerSu34.pushTask(controllerSu34,{id = 'AttackGroup', params = { groupId = groupShipNorth2:getID(), expend = AI.Task.WeaponExpend.ALL, attackQtyLimit = false}}) + end + if groupShipNorth3 ~= nil then + controllerSu34.pushTask(controllerSu34,{id = 'AttackGroup', params = { groupId = groupShipNorth3:getID(), expend = AI.Task.WeaponExpend.ALL, attackQtyLimit = false}}) + end + Su34Status.status[groupName] = 3 + MessageToRed( string.format('%s: ',groupName) .. 'Attacking invading ships in the north. ', 10, 'RedStatus' .. groupName ) +end + +function Su34Orbit(groupName) +--trace.menu("","Su34Orbit") + local groupSu34 = Group.getByName( groupName ) + local controllerSu34 = groupSu34:getController() + controllerSu34.setOption( controllerSu34, AI.Option.Air.id.ROE, AI.Option.Air.val.ROE.WEAPON_HOLD ) + controllerSu34.setOption( controllerSu34, AI.Option.Air.id.REACTION_ON_THREAT, AI.Option.Air.val.REACTION_ON_THREAT.EVADE_FIRE ) + controllerSu34:pushTask( {id = 'ControlledTask', params = { task = { id = 'Orbit', params = { pattern = AI.Task.OrbitPattern.RACE_TRACK } }, stopCondition = { duration = 600 } } } ) + Su34Status.status[groupName] = 4 + MessageToRed( string.format('%s: ',groupName) .. 'In orbit and awaiting further instructions. ', 10, 'RedStatus' .. groupName ) +end + +function Su34TakeOff(groupName) +--trace.menu("","Su34TakeOff") + local groupSu34 = Group.getByName( groupName ) + local controllerSu34 = groupSu34:getController() + controllerSu34.setOption( controllerSu34, AI.Option.Air.id.ROE, AI.Option.Air.val.ROE.WEAPON_HOLD ) + controllerSu34.setOption( controllerSu34, AI.Option.Air.id.REACTION_ON_THREAT, AI.Option.Air.val.REACTION_ON_THREAT.BYPASS_AND_ESCAPE ) + Su34Status.status[groupName] = 8 + MessageToRed( string.format('%s: ',groupName) .. 'Take-Off. ', 10, 'RedStatus' .. groupName ) +end + +function Su34Hold(groupName) +--trace.menu("","Su34Hold") + local groupSu34 = Group.getByName( groupName ) + local controllerSu34 = groupSu34:getController() + controllerSu34.setOption( controllerSu34, AI.Option.Air.id.ROE, AI.Option.Air.val.ROE.WEAPON_HOLD ) + controllerSu34.setOption( controllerSu34, AI.Option.Air.id.REACTION_ON_THREAT, AI.Option.Air.val.REACTION_ON_THREAT.BYPASS_AND_ESCAPE ) + Su34Status.status[groupName] = 5 + MessageToRed( string.format('%s: ',groupName) .. 'Holding Weapons. ', 10, 'RedStatus' .. groupName ) +end + +function Su34RTB(groupName) +--trace.menu("","Su34RTB") + Su34Status.status[groupName] = 6 + MessageToRed( string.format('%s: ',groupName) .. 'Return to Krasnodar. ', 10, 'RedStatus' .. groupName ) +end + +function Su34Destroyed(groupName) +--trace.menu("","Su34Destroyed") + Su34Status.status[groupName] = 7 + MessageToRed( string.format('%s: ',groupName) .. 'Destroyed. ', 30, 'RedStatus' .. groupName ) +end + +function GroupAlive( groupName ) +--trace.menu("","GroupAlive") + local groupTest = Group.getByName( groupName ) + + local groupExists = false + + if groupTest then + groupExists = groupTest:isExist() + end + + --trace.r( "", "", { groupExists } ) + return groupExists +end + +function Su34IsDead() +--trace.f() + +end + +function Su34OverviewStatus() +--trace.menu("","Su34OverviewStatus") + local msg = "" + local currentStatus = 0 + local Exists = false + + for groupName, currentStatus in pairs(Su34Status.status) do + + env.info(('Su34 Overview Status: GroupName = ' .. groupName )) + Alive = GroupAlive( groupName ) + + if Alive then + if currentStatus == 1 then + msg = msg .. string.format("%s: ",groupName) + msg = msg .. "Attacking carrier Carl Vinson. " + elseif currentStatus == 2 then + msg = msg .. string.format("%s: ",groupName) + msg = msg .. "Attacking supporting ships in the west. " + elseif currentStatus == 3 then + msg = msg .. string.format("%s: ",groupName) + msg = msg .. "Attacking invading ships in the north. " + elseif currentStatus == 4 then + msg = msg .. string.format("%s: ",groupName) + msg = msg .. "In orbit and awaiting further instructions. " + elseif currentStatus == 5 then + msg = msg .. string.format("%s: ",groupName) + msg = msg .. "Holding Weapons. " + elseif currentStatus == 6 then + msg = msg .. string.format("%s: ",groupName) + msg = msg .. "Return to Krasnodar. " + elseif currentStatus == 7 then + msg = msg .. string.format("%s: ",groupName) + msg = msg .. "Destroyed. " + elseif currentStatus == 8 then + msg = msg .. string.format("%s: ",groupName) + msg = msg .. "Take-Off. " + end + else + if currentStatus == 7 then + msg = msg .. string.format("%s: ",groupName) + msg = msg .. "Destroyed. " + else + Su34Destroyed(groupName) + end + end + end + + boardMsgRed.statusMsg = msg +end + + +function UpdateBoardMsg() +--trace.f() + Su34OverviewStatus() + MessageToRed( boardMsgRed.statusMsg, 15, 'RedStatus' ) +end + +function MusicReset( flg ) +--trace.f() + trigger.action.setUserFlag(95,flg) +end + +function PlaneActivate(groupNameFormat, flg) +--trace.f() + local groupName = groupNameFormat .. string.format("#%03d", trigger.misc.getUserFlag(flg)) + --trigger.action.outText(groupName,10) + trigger.action.activateGroup(Group.getByName(groupName)) +end + +function Su34Menu(groupName) +--trace.f() + + --env.info(( 'Su34Menu(' .. groupName .. ')' )) + local groupSu34 = Group.getByName( groupName ) + + if Su34Status.status[groupName] == 1 or + Su34Status.status[groupName] == 2 or + Su34Status.status[groupName] == 3 or + Su34Status.status[groupName] == 4 or + Su34Status.status[groupName] == 5 then + if Su34MenuPath[groupName] == nil then + if planeMenuPath == nil then + planeMenuPath = missionCommands.addSubMenuForCoalition( + coalition.side.RED, + "SU-34 anti-ship flights", + nil + ) + end + Su34MenuPath[groupName] = missionCommands.addSubMenuForCoalition( + coalition.side.RED, + "Flight " .. groupName, + planeMenuPath + ) + + missionCommands.addCommandForCoalition( + coalition.side.RED, + "Attack carrier Carl Vinson", + Su34MenuPath[groupName], + Su34AttackCarlVinson, + groupName + ) + + missionCommands.addCommandForCoalition( + coalition.side.RED, + "Attack ships in the west", + Su34MenuPath[groupName], + Su34AttackWest, + groupName + ) + + missionCommands.addCommandForCoalition( + coalition.side.RED, + "Attack ships in the north", + Su34MenuPath[groupName], + Su34AttackNorth, + groupName + ) + + missionCommands.addCommandForCoalition( + coalition.side.RED, + "Hold position and await instructions", + Su34MenuPath[groupName], + Su34Orbit, + groupName + ) + + missionCommands.addCommandForCoalition( + coalition.side.RED, + "Report status", + Su34MenuPath[groupName], + Su34OverviewStatus + ) + end + else + if Su34MenuPath[groupName] then + missionCommands.removeItemForCoalition(coalition.side.RED, Su34MenuPath[groupName]) + end + end +end + +--- Obsolete function, but kept to rework in framework. + +function ChooseInfantry ( TeleportPrefixTable, TeleportMax ) +--trace.f("Spawn") + --env.info(( 'ChooseInfantry: ' )) + + TeleportPrefixTableCount = #TeleportPrefixTable + TeleportPrefixTableIndex = math.random( 1, TeleportPrefixTableCount ) + + --env.info(( 'ChooseInfantry: TeleportPrefixTableIndex = ' .. TeleportPrefixTableIndex .. ' TeleportPrefixTableCount = ' .. TeleportPrefixTableCount .. ' TeleportMax = ' .. TeleportMax )) + + local TeleportFound = false + local TeleportLoop = true + local Index = TeleportPrefixTableIndex + local TeleportPrefix = '' + + while TeleportLoop do + TeleportPrefix = TeleportPrefixTable[Index] + if SpawnSettings[TeleportPrefix] then + if SpawnSettings[TeleportPrefix]['SpawnCount'] - 1 < TeleportMax then + SpawnSettings[TeleportPrefix]['SpawnCount'] = SpawnSettings[TeleportPrefix]['SpawnCount'] + 1 + TeleportFound = true + else + TeleportFound = false + end + else + SpawnSettings[TeleportPrefix] = {} + SpawnSettings[TeleportPrefix]['SpawnCount'] = 0 + TeleportFound = true + end + if TeleportFound then + TeleportLoop = false + else + if Index < TeleportPrefixTableCount then + Index = Index + 1 + else + TeleportLoop = false + end + end + --env.info(( 'ChooseInfantry: Loop 1 - TeleportPrefix = ' .. TeleportPrefix .. ' Index = ' .. Index )) + end + + if TeleportFound == false then + TeleportLoop = true + Index = 1 + while TeleportLoop do + TeleportPrefix = TeleportPrefixTable[Index] + if SpawnSettings[TeleportPrefix] then + if SpawnSettings[TeleportPrefix]['SpawnCount'] - 1 < TeleportMax then + SpawnSettings[TeleportPrefix]['SpawnCount'] = SpawnSettings[TeleportPrefix]['SpawnCount'] + 1 + TeleportFound = true + else + TeleportFound = false + end + else + SpawnSettings[TeleportPrefix] = {} + SpawnSettings[TeleportPrefix]['SpawnCount'] = 0 + TeleportFound = true + end + if TeleportFound then + TeleportLoop = false + else + if Index < TeleportPrefixTableIndex then + Index = Index + 1 + else + TeleportLoop = false + end + end + --env.info(( 'ChooseInfantry: Loop 2 - TeleportPrefix = ' .. TeleportPrefix .. ' Index = ' .. Index )) + end + end + + local TeleportGroupName = '' + if TeleportFound == true then + TeleportGroupName = TeleportPrefix .. string.format("#%03d", SpawnSettings[TeleportPrefix]['SpawnCount'] ) + else + TeleportGroupName = '' + end + + --env.info(('ChooseInfantry: TeleportGroupName = ' .. TeleportGroupName )) + --env.info(('ChooseInfantry: return')) + + return TeleportGroupName +end + +SpawnedInfantry = 0 + +function LandCarrier ( CarrierGroup, LandingZonePrefix ) +--trace.f() + --env.info(( 'LandCarrier: ' )) + --env.info(( 'LandCarrier: CarrierGroup = ' .. CarrierGroup:getName() )) + --env.info(( 'LandCarrier: LandingZone = ' .. LandingZonePrefix )) + + local controllerGroup = CarrierGroup:getController() + + local LandingZone = trigger.misc.getZone(LandingZonePrefix) + local LandingZonePos = {} + LandingZonePos.x = LandingZone.point.x + math.random(LandingZone.radius * -1, LandingZone.radius) + LandingZonePos.y = LandingZone.point.z + math.random(LandingZone.radius * -1, LandingZone.radius) + + controllerGroup:pushTask( { id = 'Land', params = { point = LandingZonePos, durationFlag = true, duration = 10 } } ) + + --env.info(( 'LandCarrier: end' )) +end + +EscortCount = 0 +function EscortCarrier ( CarrierGroup, EscortPrefix, EscortLastWayPoint, EscortEngagementDistanceMax, EscortTargetTypes ) +--trace.f() + --env.info(( 'EscortCarrier: ' )) + --env.info(( 'EscortCarrier: CarrierGroup = ' .. CarrierGroup:getName() )) + --env.info(( 'EscortCarrier: EscortPrefix = ' .. EscortPrefix )) + + local CarrierName = CarrierGroup:getName() + + local EscortMission = {} + local CarrierMission = {} + + local EscortMission = SpawnMissionGroup( EscortPrefix ) + local CarrierMission = SpawnMissionGroup( CarrierGroup:getName() ) + + if EscortMission ~= nil and CarrierMission ~= nil then + + EscortCount = EscortCount + 1 + EscortMissionName = string.format( EscortPrefix .. '#Escort %s', CarrierName ) + EscortMission.name = EscortMissionName + EscortMission.groupId = nil + EscortMission.lateActivation = false + EscortMission.taskSelected = false + + local EscortUnits = #EscortMission.units + for u = 1, EscortUnits do + EscortMission.units[u].name = string.format( EscortPrefix .. '#Escort %s %02d', CarrierName, u ) + EscortMission.units[u].unitId = nil + end + + + EscortMission.route.points[1].task = { id = "ComboTask", + params = + { + tasks = + { + [1] = + { + enabled = true, + auto = false, + id = "Escort", + number = 1, + params = + { + lastWptIndexFlagChangedManually = false, + groupId = CarrierGroup:getID(), + lastWptIndex = nil, + lastWptIndexFlag = false, + engagementDistMax = EscortEngagementDistanceMax, + targetTypes = EscortTargetTypes, + pos = + { + y = 20, + x = 20, + z = 0, + } -- end of ["pos"] + } -- end of ["params"] + } -- end of [1] + } -- end of ["tasks"] + } -- end of ["params"] + } -- end of ["task"] + + SpawnGroupAdd( EscortPrefix, EscortMission ) + + end +end + +function SendMessageToCarrier( CarrierGroup, CarrierMessage ) +--trace.f() + + if CarrierGroup ~= nil then + MessageToGroup( CarrierGroup, CarrierMessage, 30, 'Carrier/' .. CarrierGroup:getName() ) + end + +end + +function MessageToGroup( MsgGroup, MsgText, MsgTime, MsgName ) +--trace.f() + + if type(MsgGroup) == 'string' then + --env.info( 'MessageToGroup: Converted MsgGroup string "' .. MsgGroup .. '" into a Group structure.' ) + MsgGroup = Group.getByName( MsgGroup ) + end + + if MsgGroup ~= nil then + local MsgTable = {} + MsgTable.text = MsgText + MsgTable.displayTime = MsgTime + MsgTable.msgFor = { units = { MsgGroup:getUnits()[1]:getName() } } + MsgTable.name = MsgName + --routines.message.add( MsgTable ) + --env.info(('MessageToGroup: Message sent to ' .. MsgGroup:getUnits()[1]:getName() .. ' -> ' .. MsgText )) + end +end + +function MessageToUnit( UnitName, MsgText, MsgTime, MsgName ) +--trace.f() + + if UnitName ~= nil then + local MsgTable = {} + MsgTable.text = MsgText + MsgTable.displayTime = MsgTime + MsgTable.msgFor = { units = { UnitName } } + MsgTable.name = MsgName + --routines.message.add( MsgTable ) + end +end + +function MessageToAll( MsgText, MsgTime, MsgName ) +--trace.f() + + MESSAGE:New( MsgText, MsgTime, "Message" ):ToCoalition( coalition.side.RED ):ToCoalition( coalition.side.BLUE ) +end + +function MessageToRed( MsgText, MsgTime, MsgName ) +--trace.f() + + MESSAGE:New( MsgText, MsgTime, "To Red Coalition" ):ToCoalition( coalition.side.RED ) +end + +function MessageToBlue( MsgText, MsgTime, MsgName ) +--trace.f() + + MESSAGE:New( MsgText, MsgTime, "To Blue Coalition" ):ToCoalition( coalition.side.RED ) +end + +function getCarrierHeight( CarrierGroup ) +--trace.f() + + if CarrierGroup ~= nil then + if table.getn(CarrierGroup:getUnits()) == 1 then + local CarrierUnit = CarrierGroup:getUnits()[1] + local CurrentPoint = CarrierUnit:getPoint() + + local CurrentPosition = { x = CurrentPoint.x, y = CurrentPoint.z } + local CarrierHeight = CurrentPoint.y + + local LandHeight = land.getHeight( CurrentPosition ) + + --env.info(( 'CarrierHeight: LandHeight = ' .. LandHeight .. ' CarrierHeight = ' .. CarrierHeight )) + + return CarrierHeight - LandHeight + else + return 999999 + end + else + return 999999 + end + +end + +function GetUnitHeight( CheckUnit ) +--trace.f() + + local UnitPoint = CheckUnit:getPoint() + local UnitPosition = { x = CurrentPoint.x, y = CurrentPoint.z } + local UnitHeight = CurrentPoint.y + + local LandHeight = land.getHeight( CurrentPosition ) + + --env.info(( 'CarrierHeight: LandHeight = ' .. LandHeight .. ' CarrierHeight = ' .. CarrierHeight )) + + return UnitHeight - LandHeight + +end + + +_MusicTable = {} +_MusicTable.Files = {} +_MusicTable.Queue = {} +_MusicTable.FileCnt = 0 + + +function MusicRegister( SndRef, SndFile, SndTime ) +--trace.f() + + env.info(( 'MusicRegister: SndRef = ' .. SndRef )) + env.info(( 'MusicRegister: SndFile = ' .. SndFile )) + env.info(( 'MusicRegister: SndTime = ' .. SndTime )) + + + _MusicTable.FileCnt = _MusicTable.FileCnt + 1 + + _MusicTable.Files[_MusicTable.FileCnt] = {} + _MusicTable.Files[_MusicTable.FileCnt].Ref = SndRef + _MusicTable.Files[_MusicTable.FileCnt].File = SndFile + _MusicTable.Files[_MusicTable.FileCnt].Time = SndTime + + if not _MusicTable.Function then + _MusicTable.Function = routines.scheduleFunction( MusicScheduler, { }, timer.getTime() + 10, 10) + end + +end + +function MusicToPlayer( SndRef, PlayerName, SndContinue ) +--trace.f() + + --env.info(( 'MusicToPlayer: SndRef = ' .. SndRef )) + + local PlayerUnits = AlivePlayerUnits() + for PlayerUnitIdx, PlayerUnit in pairs(PlayerUnits) do + local PlayerUnitName = PlayerUnit:getPlayerName() + --env.info(( 'MusicToPlayer: PlayerUnitName = ' .. PlayerUnitName )) + if PlayerName == PlayerUnitName then + PlayerGroup = PlayerUnit:getGroup() + if PlayerGroup then + --env.info(( 'MusicToPlayer: PlayerGroup = ' .. PlayerGroup:getName() )) + MusicToGroup( SndRef, PlayerGroup, SndContinue ) + end + break + end + end + + --env.info(( 'MusicToPlayer: end' )) + +end + +function MusicToGroup( SndRef, SndGroup, SndContinue ) +--trace.f() + + --env.info(( 'MusicToGroup: SndRef = ' .. SndRef )) + + if SndGroup ~= nil then + if _MusicTable and _MusicTable.FileCnt > 0 then + if SndGroup:isExist() then + if MusicCanStart(SndGroup:getUnit(1):getPlayerName()) then + --env.info(( 'MusicToGroup: OK for Sound.' )) + local SndIdx = 0 + if SndRef == '' then + --env.info(( 'MusicToGroup: SndRef as empty. Queueing at random.' )) + SndIdx = math.random( 1, _MusicTable.FileCnt ) + else + for SndIdx = 1, _MusicTable.FileCnt do + if _MusicTable.Files[SndIdx].Ref == SndRef then + break + end + end + end + --env.info(( 'MusicToGroup: SndIdx = ' .. SndIdx )) + --env.info(( 'MusicToGroup: Queueing Music ' .. _MusicTable.Files[SndIdx].File .. ' for Group ' .. SndGroup:getID() )) + trigger.action.outSoundForGroup( SndGroup:getID(), _MusicTable.Files[SndIdx].File ) + MessageToGroup( SndGroup, 'Playing ' .. _MusicTable.Files[SndIdx].File, 15, 'Music-' .. SndGroup:getUnit(1):getPlayerName() ) + + local SndQueueRef = SndGroup:getUnit(1):getPlayerName() + if _MusicTable.Queue[SndQueueRef] == nil then + _MusicTable.Queue[SndQueueRef] = {} + end + _MusicTable.Queue[SndQueueRef].Start = timer.getTime() + _MusicTable.Queue[SndQueueRef].PlayerName = SndGroup:getUnit(1):getPlayerName() + _MusicTable.Queue[SndQueueRef].Group = SndGroup + _MusicTable.Queue[SndQueueRef].ID = SndGroup:getID() + _MusicTable.Queue[SndQueueRef].Ref = SndIdx + _MusicTable.Queue[SndQueueRef].Continue = SndContinue + _MusicTable.Queue[SndQueueRef].Type = Group + end + end + end + end +end + +function MusicCanStart(PlayerName) +--trace.f() + + --env.info(( 'MusicCanStart:' )) + + local MusicOut = false + + if _MusicTable['Queue'] ~= nil and _MusicTable.FileCnt > 0 then + --env.info(( 'MusicCanStart: PlayerName = ' .. PlayerName )) + local PlayerFound = false + local MusicStart = 0 + local MusicTime = 0 + for SndQueueIdx, SndQueue in pairs( _MusicTable.Queue ) do + if SndQueue.PlayerName == PlayerName then + PlayerFound = true + MusicStart = SndQueue.Start + MusicTime = _MusicTable.Files[SndQueue.Ref].Time + break + end + end + if PlayerFound then + --env.info(( 'MusicCanStart: MusicStart = ' .. MusicStart )) + --env.info(( 'MusicCanStart: MusicTime = ' .. MusicTime )) + --env.info(( 'MusicCanStart: timer.getTime() = ' .. timer.getTime() )) + + if MusicStart + MusicTime <= timer.getTime() then + MusicOut = true + end + else + MusicOut = true + end + end + + if MusicOut then + --env.info(( 'MusicCanStart: true' )) + else + --env.info(( 'MusicCanStart: false' )) + end + + return MusicOut +end + +function MusicScheduler() +--trace.scheduled("", "MusicScheduler") + + --env.info(( 'MusicScheduler:' )) + if _MusicTable['Queue'] ~= nil and _MusicTable.FileCnt > 0 then + --env.info(( 'MusicScheduler: Walking Sound Queue.')) + for SndQueueIdx, SndQueue in pairs( _MusicTable.Queue ) do + if SndQueue.Continue then + if MusicCanStart(SndQueue.PlayerName) then + --env.info(('MusicScheduler: MusicToGroup')) + MusicToPlayer( '', SndQueue.PlayerName, true ) + end + end + end + end + +end + + +env.info(( 'Init: Scripts Loaded v1.1' )) + +--- This module contains the BASE class. +-- +-- 1) @{#BASE} class +-- ================= +-- The @{#BASE} class is the super class for all the classes defined within MOOSE. +-- +-- It handles: +-- +-- * The construction and inheritance of child classes. +-- * The tracing of objects during mission execution within the **DCS.log** file, under the **"Saved Games\DCS\Logs"** folder. +-- +-- Note: Normally you would not use the BASE class unless you are extending the MOOSE framework with new classes. +-- +-- 1.1) BASE constructor +-- --------------------- +-- Any class derived from BASE, must use the @{Base#BASE.New) constructor within the @{Base#BASE.Inherit) method. +-- See an example at the @{Base#BASE.New} method how this is done. +-- +-- 1.2) BASE Trace functionality +-- ----------------------------- +-- The BASE class contains trace methods to trace progress within a mission execution of a certain object. +-- Note that these trace methods are inherited by each MOOSE class interiting BASE. +-- As such, each object created from derived class from BASE can use the tracing functions to trace its execution. +-- +-- 1.2.1) Tracing functions +-- ------------------------ +-- There are basically 3 types of tracing methods available within BASE: +-- +-- * @{#BASE.F}: Trace the beginning of a function and its given parameters. An F is indicated at column 44 in the DCS.log file. +-- * @{#BASE.T}: Trace further logic within a function giving optional variables or parameters. A T is indicated at column 44 in the DCS.log file. +-- * @{#BASE.E}: Trace an exception within a function giving optional variables or parameters. An E is indicated at column 44 in the DCS.log file. An exception will always be traced. +-- +-- 1.2.2) Tracing levels +-- --------------------- +-- There are 3 tracing levels within MOOSE. +-- These tracing levels were defined to avoid bulks of tracing to be generated by lots of objects. +-- +-- As such, the F and T methods have additional variants to trace level 2 and 3 respectively: +-- +-- * @{#BASE.F2}: Trace the beginning of a function and its given parameters with tracing level 2. +-- * @{#BASE.F3}: Trace the beginning of a function and its given parameters with tracing level 3. +-- * @{#BASE.T2}: Trace further logic within a function giving optional variables or parameters with tracing level 2. +-- * @{#BASE.T3}: Trace further logic within a function giving optional variables or parameters with tracing level 3. +-- +-- 1.3) BASE Inheritance support +-- =========================== +-- The following methods are available to support inheritance: +-- +-- * @{#BASE.Inherit}: Inherits from a class. +-- * @{#BASE.Inherited}: Returns the parent class from the class. +-- +-- Future +-- ====== +-- Further methods may be added to BASE whenever there is a need to make "overall" functions available within MOOSE. +-- +-- ==== +-- +-- @module Base +-- @author FlightControl + + + +local _TraceOnOff = true +local _TraceLevel = 1 +local _TraceAll = false +local _TraceClass = {} +local _TraceClassMethod = {} + +local _ClassID = 0 + +--- The BASE Class +-- @type BASE +-- @field ClassName The name of the class. +-- @field ClassID The ID number of the class. +-- @field ClassNameAndID The name of the class concatenated with the ID number of the class. +BASE = { + ClassName = "BASE", + ClassID = 0, + Events = {}, + States = {} +} + +--- The Formation Class +-- @type FORMATION +-- @field Cone A cone formation. +FORMATION = { + Cone = "Cone" +} + + + +--- The base constructor. This is the top top class of all classed defined within the MOOSE. +-- Any new class needs to be derived from this class for proper inheritance. +-- @param #BASE self +-- @return #BASE The new instance of the BASE class. +-- @usage +-- -- This declares the constructor of the class TASK, inheriting from BASE. +-- --- TASK constructor +-- -- @param #TASK self +-- -- @param Parameter The parameter of the New constructor. +-- -- @return #TASK self +-- function TASK:New( Parameter ) +-- +-- local self = BASE:Inherit( self, BASE:New() ) +-- +-- self.Variable = Parameter +-- +-- return self +-- end +-- @todo need to investigate if the deepCopy is really needed... Don't think so. +function BASE:New() + local self = routines.utils.deepCopy( self ) -- Create a new self instance + local MetaTable = {} + setmetatable( self, MetaTable ) + self.__index = self + _ClassID = _ClassID + 1 + self.ClassID = _ClassID + self.ClassNameAndID = string.format( '%s#%09d', self.ClassName, self.ClassID ) + return self +end + +--- This is the worker method to inherit from a parent class. +-- @param #BASE self +-- @param Child is the Child class that inherits. +-- @param #BASE Parent is the Parent class that the Child inherits from. +-- @return #BASE Child +function BASE:Inherit( Child, Parent ) + local Child = routines.utils.deepCopy( Child ) + --local Parent = routines.utils.deepCopy( Parent ) + --local Parent = Parent + if Child ~= nil then + setmetatable( Child, Parent ) + Child.__index = Child + end + --Child.ClassName = Child.ClassName .. '.' .. Child.ClassID + self:T( 'Inherited from ' .. Parent.ClassName ) + return Child +end + +--- This is the worker method to retrieve the Parent class. +-- @param #BASE self +-- @param #BASE Child is the Child class from which the Parent class needs to be retrieved. +-- @return #BASE +function BASE:Inherited( Child ) + local Parent = getmetatable( Child ) +-- env.info('Inherited class of ' .. Child.ClassName .. ' is ' .. Parent.ClassName ) + return Parent +end + +--- Get the ClassName + ClassID of the class instance. +-- The ClassName + ClassID is formatted as '%s#%09d'. +-- @param #BASE self +-- @return #string The ClassName + ClassID of the class instance. +function BASE:GetClassNameAndID() + return self.ClassNameAndID +end + +--- Get the ClassName of the class instance. +-- @param #BASE self +-- @return #string The ClassName of the class instance. +function BASE:GetClassName() + return self.ClassName +end + +--- Get the ClassID of the class instance. +-- @param #BASE self +-- @return #string The ClassID of the class instance. +function BASE:GetClassID() + return self.ClassID +end + +--- Set a new listener for the class. +-- @param self +-- @param DCSTypes#Event Event +-- @param #function EventFunction +-- @return #BASE +function BASE:AddEvent( Event, EventFunction ) + self:F( Event ) + + self.Events[#self.Events+1] = {} + self.Events[#self.Events].Event = Event + self.Events[#self.Events].EventFunction = EventFunction + self.Events[#self.Events].EventEnabled = false + + return self +end + +--- Returns the event dispatcher +-- @param #BASE self +-- @return Event#EVENT +function BASE:Event() + + return _EVENTDISPATCHER +end + + + + + +--- Enable the event listeners for the class. +-- @param #BASE self +-- @return #BASE +function BASE:EnableEvents() + self:F( #self.Events ) + + for EventID, Event in pairs( self.Events ) do + Event.Self = self + Event.EventEnabled = true + end + self.Events.Handler = world.addEventHandler( self ) + + return self +end + + +--- Disable the event listeners for the class. +-- @param #BASE self +-- @return #BASE +function BASE:DisableEvents() + self:F() + + world.removeEventHandler( self ) + for EventID, Event in pairs( self.Events ) do + Event.Self = nil + Event.EventEnabled = false + end + + return self +end + + +local BaseEventCodes = { + "S_EVENT_SHOT", + "S_EVENT_HIT", + "S_EVENT_TAKEOFF", + "S_EVENT_LAND", + "S_EVENT_CRASH", + "S_EVENT_EJECTION", + "S_EVENT_REFUELING", + "S_EVENT_DEAD", + "S_EVENT_PILOT_DEAD", + "S_EVENT_BASE_CAPTURED", + "S_EVENT_MISSION_START", + "S_EVENT_MISSION_END", + "S_EVENT_TOOK_CONTROL", + "S_EVENT_REFUELING_STOP", + "S_EVENT_BIRTH", + "S_EVENT_HUMAN_FAILURE", + "S_EVENT_ENGINE_STARTUP", + "S_EVENT_ENGINE_SHUTDOWN", + "S_EVENT_PLAYER_ENTER_UNIT", + "S_EVENT_PLAYER_LEAVE_UNIT", + "S_EVENT_PLAYER_COMMENT", + "S_EVENT_SHOOTING_START", + "S_EVENT_SHOOTING_END", + "S_EVENT_MAX", +} + +--onEvent( {[1]="S_EVENT_BIRTH",[2]={["subPlace"]=5,["time"]=0,["initiator"]={["id_"]=16884480,},["place"]={["id_"]=5000040,},["id"]=15,["IniUnitName"]="US F-15C@RAMP-Air Support Mountains#001-01",},} +-- Event = { +-- id = enum world.event, +-- time = Time, +-- initiator = Unit, +-- target = Unit, +-- place = Unit, +-- subPlace = enum world.BirthPlace, +-- weapon = Weapon +-- } + +--- Creation of a Birth Event. +-- @param #BASE self +-- @param DCSTypes#Time EventTime The time stamp of the event. +-- @param DCSObject#Object Initiator The initiating object of the event. +-- @param #string IniUnitName The initiating unit name. +-- @param place +-- @param subplace +function BASE:CreateEventBirth( EventTime, Initiator, IniUnitName, place, subplace ) + self:F( { EventTime, Initiator, IniUnitName, place, subplace } ) + + local Event = { + id = world.event.S_EVENT_BIRTH, + time = EventTime, + initiator = Initiator, + IniUnitName = IniUnitName, + place = place, + subplace = subplace + } + + world.onEvent( Event ) +end + +--- Creation of a Crash Event. +-- @param #BASE self +-- @param DCSTypes#Time EventTime The time stamp of the event. +-- @param DCSObject#Object Initiator The initiating object of the event. +function BASE:CreateEventCrash( EventTime, Initiator ) + self:F( { EventTime, Initiator } ) + + local Event = { + id = world.event.S_EVENT_CRASH, + time = EventTime, + initiator = Initiator, + } + + world.onEvent( Event ) +end + +-- TODO: Complete DCSTypes#Event structure. +--- The main event handling function... This function captures all events generated for the class. +-- @param #BASE self +-- @param DCSTypes#Event event +function BASE:onEvent(event) + --self:F( { BaseEventCodes[event.id], event } ) + + if self then + for EventID, EventObject in pairs( self.Events ) do + if EventObject.EventEnabled then + --env.info( 'onEvent Table EventObject.Self = ' .. tostring(EventObject.Self) ) + --env.info( 'onEvent event.id = ' .. tostring(event.id) ) + --env.info( 'onEvent EventObject.Event = ' .. tostring(EventObject.Event) ) + if event.id == EventObject.Event then + if self == EventObject.Self then + if event.initiator and event.initiator:isExist() then + event.IniUnitName = event.initiator:getName() + end + if event.target and event.target:isExist() then + event.TgtUnitName = event.target:getName() + end + --self:T( { BaseEventCodes[event.id], event } ) + --EventObject.EventFunction( self, event ) + end + end + end + end + end +end + +function BASE:SetState( Object, StateName, State ) + + local ClassNameAndID = Object:GetClassNameAndID() + + if not self.States[ClassNameAndID] then + self.States[ClassNameAndID] = {} + end + self.States[ClassNameAndID][StateName] = State + self:F2( { ClassNameAndID, StateName, State } ) + + return self.States[ClassNameAndID][StateName] +end + +function BASE:GetState( Object, StateName ) + + local ClassNameAndID = Object:GetClassNameAndID() + + if self.States[ClassNameAndID] then + local State = self.States[ClassNameAndID][StateName] + self:F2( { ClassNameAndID, StateName, State } ) + return State + end + + return nil +end + +function BASE:ClearState( Object, StateName ) + + local ClassNameAndID = Object:GetClassNameAndID() + if self.States[ClassNameAndID] then + self.States[ClassNameAndID][StateName] = nil + end +end + +-- Trace section + +-- Log a trace (only shown when trace is on) +-- TODO: Make trace function using variable parameters. + +--- Set trace on or off +-- Note that when trace is off, no debug statement is performed, increasing performance! +-- When Moose is loaded statically, (as one file), tracing is switched off by default. +-- So tracing must be switched on manually in your mission if you are using Moose statically. +-- When moose is loading dynamically (for moose class development), tracing is switched on by default. +-- @param BASE self +-- @param #boolean TraceOnOff Switch the tracing on or off. +-- @usage +-- -- Switch the tracing On +-- BASE:TraceOn( true ) +-- +-- -- Switch the tracing Off +-- BASE:TraceOn( false ) +function BASE:TraceOnOff( TraceOnOff ) + _TraceOnOff = TraceOnOff +end + +--- Set trace level +-- @param #BASE self +-- @param #number Level +function BASE:TraceLevel( Level ) + _TraceLevel = Level + self:E( "Tracing level " .. Level ) +end + +--- Trace all methods in MOOSE +-- @param #BASE self +-- @param #boolean TraceAll true = trace all methods in MOOSE. +function BASE:TraceAll( TraceAll ) + + _TraceAll = TraceAll + + if _TraceAll then + self:E( "Tracing all methods in MOOSE " ) + else + self:E( "Switched off tracing all methods in MOOSE" ) + end +end + +--- Set tracing for a class +-- @param #BASE self +-- @param #string Class +function BASE:TraceClass( Class ) + _TraceClass[Class] = true + _TraceClassMethod[Class] = {} + self:E( "Tracing class " .. Class ) +end + +--- Set tracing for a specific method of class +-- @param #BASE self +-- @param #string Class +-- @param #string Method +function BASE:TraceClassMethod( Class, Method ) + if not _TraceClassMethod[Class] then + _TraceClassMethod[Class] = {} + _TraceClassMethod[Class].Method = {} + end + _TraceClassMethod[Class].Method[Method] = true + self:E( "Tracing method " .. Method .. " of class " .. Class ) +end + +--- Trace a function call. This function is private. +-- @param #BASE self +-- @param Arguments A #table or any field. +function BASE:_F( Arguments, DebugInfoCurrentParam, DebugInfoFromParam ) + + if debug and ( _TraceAll == true ) or ( _TraceClass[self.ClassName] or _TraceClassMethod[self.ClassName] ) then + + local DebugInfoCurrent = DebugInfoCurrentParam and DebugInfoCurrentParam or debug.getinfo( 2, "nl" ) + local DebugInfoFrom = DebugInfoFromParam and DebugInfoFromParam or debug.getinfo( 3, "l" ) + + local Function = "function" + if DebugInfoCurrent.name then + Function = DebugInfoCurrent.name + end + + if _TraceAll == true or _TraceClass[self.ClassName] or _TraceClassMethod[self.ClassName].Method[Function] then + local LineCurrent = 0 + if DebugInfoCurrent.currentline then + LineCurrent = DebugInfoCurrent.currentline + end + local LineFrom = 0 + if DebugInfoFrom then + LineFrom = DebugInfoFrom.currentline + end + env.info( string.format( "%6d(%6d)/%1s:%20s%05d.%s(%s)" , LineCurrent, LineFrom, "F", self.ClassName, self.ClassID, Function, routines.utils.oneLineSerialize( Arguments ) ) ) + end + end +end + +--- Trace a function call. Must be at the beginning of the function logic. +-- @param #BASE self +-- @param Arguments A #table or any field. +function BASE:F( Arguments ) + + if debug and _TraceOnOff then + local DebugInfoCurrent = debug.getinfo( 2, "nl" ) + local DebugInfoFrom = debug.getinfo( 3, "l" ) + + if _TraceLevel >= 1 then + self:_F( Arguments, DebugInfoCurrent, DebugInfoFrom ) + end + end +end + + +--- Trace a function call level 2. Must be at the beginning of the function logic. +-- @param #BASE self +-- @param Arguments A #table or any field. +function BASE:F2( Arguments ) + + if debug and _TraceOnOff then + local DebugInfoCurrent = debug.getinfo( 2, "nl" ) + local DebugInfoFrom = debug.getinfo( 3, "l" ) + + if _TraceLevel >= 2 then + self:_F( Arguments, DebugInfoCurrent, DebugInfoFrom ) + end + end +end + +--- Trace a function call level 3. Must be at the beginning of the function logic. +-- @param #BASE self +-- @param Arguments A #table or any field. +function BASE:F3( Arguments ) + + if debug and _TraceOnOff then + local DebugInfoCurrent = debug.getinfo( 2, "nl" ) + local DebugInfoFrom = debug.getinfo( 3, "l" ) + + if _TraceLevel >= 3 then + self:_F( Arguments, DebugInfoCurrent, DebugInfoFrom ) + end + end +end + +--- Trace a function logic. +-- @param #BASE self +-- @param Arguments A #table or any field. +function BASE:_T( Arguments, DebugInfoCurrentParam, DebugInfoFromParam ) + + if debug and ( _TraceAll == true ) or ( _TraceClass[self.ClassName] or _TraceClassMethod[self.ClassName] ) then + + local DebugInfoCurrent = DebugInfoCurrentParam and DebugInfoCurrentParam or debug.getinfo( 2, "nl" ) + local DebugInfoFrom = DebugInfoFromParam and DebugInfoFromParam or debug.getinfo( 3, "l" ) + + local Function = "function" + if DebugInfoCurrent.name then + Function = DebugInfoCurrent.name + end + + if _TraceAll == true or _TraceClass[self.ClassName] or _TraceClassMethod[self.ClassName].Method[Function] then + local LineCurrent = 0 + if DebugInfoCurrent.currentline then + LineCurrent = DebugInfoCurrent.currentline + end + local LineFrom = 0 + if DebugInfoFrom then + LineFrom = DebugInfoFrom.currentline + end + env.info( string.format( "%6d(%6d)/%1s:%20s%05d.%s" , LineCurrent, LineFrom, "T", self.ClassName, self.ClassID, routines.utils.oneLineSerialize( Arguments ) ) ) + end + end +end + +--- Trace a function logic level 1. Can be anywhere within the function logic. +-- @param #BASE self +-- @param Arguments A #table or any field. +function BASE:T( Arguments ) + + if debug and _TraceOnOff then + local DebugInfoCurrent = debug.getinfo( 2, "nl" ) + local DebugInfoFrom = debug.getinfo( 3, "l" ) + + if _TraceLevel >= 1 then + self:_T( Arguments, DebugInfoCurrent, DebugInfoFrom ) + end + end +end + + +--- Trace a function logic level 2. Can be anywhere within the function logic. +-- @param #BASE self +-- @param Arguments A #table or any field. +function BASE:T2( Arguments ) + + if debug and _TraceOnOff then + local DebugInfoCurrent = debug.getinfo( 2, "nl" ) + local DebugInfoFrom = debug.getinfo( 3, "l" ) + + if _TraceLevel >= 2 then + self:_T( Arguments, DebugInfoCurrent, DebugInfoFrom ) + end + end +end + +--- Trace a function logic level 3. Can be anywhere within the function logic. +-- @param #BASE self +-- @param Arguments A #table or any field. +function BASE:T3( Arguments ) + + if debug and _TraceOnOff then + local DebugInfoCurrent = debug.getinfo( 2, "nl" ) + local DebugInfoFrom = debug.getinfo( 3, "l" ) + + if _TraceLevel >= 3 then + self:_T( Arguments, DebugInfoCurrent, DebugInfoFrom ) + end + end +end + +--- Log an exception which will be traced always. Can be anywhere within the function logic. +-- @param #BASE self +-- @param Arguments A #table or any field. +function BASE:E( Arguments ) + + if debug then + local DebugInfoCurrent = debug.getinfo( 2, "nl" ) + local DebugInfoFrom = debug.getinfo( 3, "l" ) + + local Function = "function" + if DebugInfoCurrent.name then + Function = DebugInfoCurrent.name + end + + local LineCurrent = DebugInfoCurrent.currentline + local LineFrom = -1 + if DebugInfoFrom then + LineFrom = DebugInfoFrom.currentline + end + + env.info( string.format( "%6d(%6d)/%1s:%20s%05d.%s(%s)" , LineCurrent, LineFrom, "E", self.ClassName, self.ClassID, Function, routines.utils.oneLineSerialize( Arguments ) ) ) + end + +end + + + +--- This module contains the OBJECT class. +-- +-- 1) @{Object#OBJECT} class, extends @{Base#BASE} +-- =========================================================== +-- The @{Object#OBJECT} class is a wrapper class to handle the DCS Object objects: +-- +-- * Support all DCS Object APIs. +-- * Enhance with Object specific APIs not in the DCS Object API set. +-- * Manage the "state" of the DCS Object. +-- +-- 1.1) OBJECT constructor: +-- ------------------------------ +-- The OBJECT class provides the following functions to construct a OBJECT instance: +-- +-- * @{Object#OBJECT.New}(): Create a OBJECT instance. +-- +-- 1.2) OBJECT methods: +-- -------------------------- +-- The following methods can be used to identify an Object object: +-- +-- * @{Object#OBJECT.GetID}(): Returns the ID of the Object object. +-- +-- === +-- +-- @module Object +-- @author FlightControl + +--- The OBJECT class +-- @type OBJECT +-- @extends Base#BASE +-- @field #string ObjectName The name of the Object. +OBJECT = { + ClassName = "OBJECT", + ObjectName = "", +} + + +--- A DCSObject +-- @type DCSObject +-- @field id_ The ID of the controllable in DCS + +--- Create a new OBJECT from a DCSObject +-- @param #OBJECT self +-- @param DCSObject#Object ObjectName The Object name +-- @return #OBJECT self +function OBJECT:New( ObjectName ) + local self = BASE:Inherit( self, BASE:New() ) + self:F2( ObjectName ) + self.ObjectName = ObjectName + return self +end + + +--- Returns the unit's unique identifier. +-- @param Object#OBJECT self +-- @return DCSObject#Object.ID ObjectID +-- @return #nil The DCS Object is not existing or alive. +function OBJECT:GetID() + self:F2( self.ObjectName ) + + local DCSObject = self:GetDCSObject() + + if DCSObject then + local ObjectID = DCSObject:getID() + return ObjectID + end + + return nil +end + + + +--- This module contains the IDENTIFIABLE class. +-- +-- 1) @{Identifiable#IDENTIFIABLE} class, extends @{Object#OBJECT} +-- =============================================================== +-- The @{Identifiable#IDENTIFIABLE} class is a wrapper class to handle the DCS Identifiable objects: +-- +-- * Support all DCS Identifiable APIs. +-- * Enhance with Identifiable specific APIs not in the DCS Identifiable API set. +-- * Manage the "state" of the DCS Identifiable. +-- +-- 1.1) IDENTIFIABLE constructor: +-- ------------------------------ +-- The IDENTIFIABLE class provides the following functions to construct a IDENTIFIABLE instance: +-- +-- * @{Identifiable#IDENTIFIABLE.New}(): Create a IDENTIFIABLE instance. +-- +-- 1.2) IDENTIFIABLE methods: +-- -------------------------- +-- The following methods can be used to identify an identifiable object: +-- +-- * @{Identifiable#IDENTIFIABLE.GetName}(): Returns the name of the Identifiable. +-- * @{Identifiable#IDENTIFIABLE.IsAlive}(): Returns if the Identifiable is alive. +-- * @{Identifiable#IDENTIFIABLE.GetTypeName}(): Returns the type name of the Identifiable. +-- * @{Identifiable#IDENTIFIABLE.GetCoalition}(): Returns the coalition of the Identifiable. +-- * @{Identifiable#IDENTIFIABLE.GetCountry}(): Returns the country of the Identifiable. +-- * @{Identifiable#IDENTIFIABLE.GetDesc}(): Returns the descriptor structure of the Identifiable. +-- +-- +-- === +-- +-- @module Identifiable +-- @author FlightControl + +--- The IDENTIFIABLE class +-- @type IDENTIFIABLE +-- @extends Object#OBJECT +-- @field #string IdentifiableName The name of the identifiable. +IDENTIFIABLE = { + ClassName = "IDENTIFIABLE", + IdentifiableName = "", +} + +local _CategoryName = { + [Unit.Category.AIRPLANE] = "Airplane", + [Unit.Category.HELICOPTER] = "Helicoper", + [Unit.Category.GROUND_UNIT] = "Ground Identifiable", + [Unit.Category.SHIP] = "Ship", + [Unit.Category.STRUCTURE] = "Structure", + } + +--- Create a new IDENTIFIABLE from a DCSIdentifiable +-- @param #IDENTIFIABLE self +-- @param DCSIdentifiable#Identifiable IdentifiableName The DCS Identifiable name +-- @return #IDENTIFIABLE self +function IDENTIFIABLE:New( IdentifiableName ) + local self = BASE:Inherit( self, OBJECT:New( IdentifiableName ) ) + self:F2( IdentifiableName ) + self.IdentifiableName = IdentifiableName + return self +end + +--- Returns if the Identifiable is alive. +-- @param Identifiable#IDENTIFIABLE self +-- @return #boolean true if Identifiable is alive. +-- @return #nil The DCS Identifiable is not existing or alive. +function IDENTIFIABLE:IsAlive() + self:F2( self.IdentifiableName ) + + local DCSIdentifiable = self:GetDCSObject() + + if DCSIdentifiable then + local IdentifiableIsAlive = DCSIdentifiable:isExist() + return IdentifiableIsAlive + end + + return false +end + + + + +--- Returns DCS Identifiable object name. +-- The function provides access to non-activated objects too. +-- @param Identifiable#IDENTIFIABLE self +-- @return #string The name of the DCS Identifiable. +-- @return #nil The DCS Identifiable is not existing or alive. +function IDENTIFIABLE:GetName() + self:F2( self.IdentifiableName ) + + local DCSIdentifiable = self:GetDCSObject() + + if DCSIdentifiable then + local IdentifiableName = self.IdentifiableName + return IdentifiableName + end + + self:E( self.ClassName .. " " .. self.IdentifiableName .. " not found!" ) + return nil +end + + +--- Returns the type name of the DCS Identifiable. +-- @param Identifiable#IDENTIFIABLE self +-- @return #string The type name of the DCS Identifiable. +-- @return #nil The DCS Identifiable is not existing or alive. +function IDENTIFIABLE:GetTypeName() + self:F2( self.IdentifiableName ) + + local DCSIdentifiable = self:GetDCSObject() + + if DCSIdentifiable then + local IdentifiableTypeName = DCSIdentifiable:getTypeName() + self:T3( IdentifiableTypeName ) + return IdentifiableTypeName + end + + self:E( self.ClassName .. " " .. self.IdentifiableName .. " not found!" ) + return nil +end + + +--- Returns category of the DCS Identifiable. +-- @param #IDENTIFIABLE self +-- @return DCSObject#Object.Category The category ID +function IDENTIFIABLE:GetCategory() + self:F2( self.ObjectName ) + + local DCSObject = self:GetDCSObject() + if DCSObject then + local ObjectCategory = DCSObject:getCategory() + self:T3( ObjectCategory ) + return ObjectCategory + end + + return nil +end + + +--- Returns the DCS Identifiable category name as defined within the DCS Identifiable Descriptor. +-- @param Identifiable#IDENTIFIABLE self +-- @return #string The DCS Identifiable Category Name +function IDENTIFIABLE:GetCategoryName() + local DCSIdentifiable = self:GetDCSObject() + + if DCSIdentifiable then + local IdentifiableCategoryName = _CategoryName[ self:GetDesc().category ] + return IdentifiableCategoryName + end + + self:E( self.ClassName .. " " .. self.IdentifiableName .. " not found!" ) + return nil +end + +--- Returns coalition of the Identifiable. +-- @param Identifiable#IDENTIFIABLE self +-- @return DCSCoalitionObject#coalition.side The side of the coalition. +-- @return #nil The DCS Identifiable is not existing or alive. +function IDENTIFIABLE:GetCoalition() + self:F2( self.IdentifiableName ) + + local DCSIdentifiable = self:GetDCSObject() + + if DCSIdentifiable then + local IdentifiableCoalition = DCSIdentifiable:getCoalition() + self:T3( IdentifiableCoalition ) + return IdentifiableCoalition + end + + self:E( self.ClassName .. " " .. self.IdentifiableName .. " not found!" ) + return nil +end + +--- Returns country of the Identifiable. +-- @param Identifiable#IDENTIFIABLE self +-- @return DCScountry#country.id The country identifier. +-- @return #nil The DCS Identifiable is not existing or alive. +function IDENTIFIABLE:GetCountry() + self:F2( self.IdentifiableName ) + + local DCSIdentifiable = self:GetDCSObject() + + if DCSIdentifiable then + local IdentifiableCountry = DCSIdentifiable:getCountry() + self:T3( IdentifiableCountry ) + return IdentifiableCountry + end + + self:E( self.ClassName .. " " .. self.IdentifiableName .. " not found!" ) + return nil +end + + + +--- Returns Identifiable descriptor. Descriptor type depends on Identifiable category. +-- @param Identifiable#IDENTIFIABLE self +-- @return DCSIdentifiable#Identifiable.Desc The Identifiable descriptor. +-- @return #nil The DCS Identifiable is not existing or alive. +function IDENTIFIABLE:GetDesc() + self:F2( self.IdentifiableName ) + + local DCSIdentifiable = self:GetDCSObject() + + if DCSIdentifiable then + local IdentifiableDesc = DCSIdentifiable:getDesc() + self:T2( IdentifiableDesc ) + return IdentifiableDesc + end + + self:E( self.ClassName .. " " .. self.IdentifiableName .. " not found!" ) + return nil +end + + + + + + + + + +--- This module contains the POSITIONABLE class. +-- +-- 1) @{Positionable#POSITIONABLE} class, extends @{Identifiable#IDENTIFIABLE} +-- =========================================================== +-- The @{Positionable#POSITIONABLE} class is a wrapper class to handle the DCS Positionable objects: +-- +-- * Support all DCS Positionable APIs. +-- * Enhance with Positionable specific APIs not in the DCS Positionable API set. +-- * Manage the "state" of the DCS Positionable. +-- +-- 1.1) POSITIONABLE constructor: +-- ------------------------------ +-- The POSITIONABLE class provides the following functions to construct a POSITIONABLE instance: +-- +-- * @{Positionable#POSITIONABLE.New}(): Create a POSITIONABLE instance. +-- +-- 1.2) POSITIONABLE methods: +-- -------------------------- +-- The following methods can be used to identify an measurable object: +-- +-- * @{Positionable#POSITIONABLE.GetID}(): Returns the ID of the measurable object. +-- * @{Positionable#POSITIONABLE.GetName}(): Returns the name of the measurable object. +-- +-- === +-- +-- @module Positionable +-- @author FlightControl + +--- The POSITIONABLE class +-- @type POSITIONABLE +-- @extends Identifiable#IDENTIFIABLE +-- @field #string PositionableName The name of the measurable. +POSITIONABLE = { + ClassName = "POSITIONABLE", + PositionableName = "", +} + +--- A DCSPositionable +-- @type DCSPositionable +-- @field id_ The ID of the controllable in DCS + +--- Create a new POSITIONABLE from a DCSPositionable +-- @param #POSITIONABLE self +-- @param DCSPositionable#Positionable PositionableName The DCS Positionable name +-- @return #POSITIONABLE self +function POSITIONABLE:New( PositionableName ) + local self = BASE:Inherit( self, IDENTIFIABLE:New( PositionableName ) ) + + return self +end + +--- Returns the @{DCSTypes#Position3} position vectors indicating the point and direction vectors in 3D of the DCS Positionable within the mission. +-- @param Positionable#POSITIONABLE self +-- @return DCSTypes#Position The 3D position vectors of the DCS Positionable. +-- @return #nil The DCS Positionable is not existing or alive. +function POSITIONABLE:GetPositionVec3() + self:F2( self.PositionableName ) + + local DCSPositionable = self:GetDCSObject() + + if DCSPositionable then + local PositionablePosition = DCSPositionable:getPosition() + self:T3( PositionablePosition ) + return PositionablePosition + end + + return nil +end + +--- Returns the @{DCSTypes#Vec2} vector indicating the point in 2D of the DCS Positionable within the mission. +-- @param Positionable#POSITIONABLE self +-- @return DCSTypes#Vec2 The 2D point vector of the DCS Positionable. +-- @return #nil The DCS Positionable is not existing or alive. +function POSITIONABLE:GetPointVec2() + self:F2( self.PositionableName ) + + local DCSPositionable = self:GetDCSObject() + + if DCSPositionable then + local PositionablePointVec3 = DCSPositionable:getPosition().p + + local PositionablePointVec2 = {} + PositionablePointVec2.x = PositionablePointVec3.x + PositionablePointVec2.y = PositionablePointVec3.z + + self:T2( PositionablePointVec2 ) + return PositionablePointVec2 + end + + return nil +end + + +--- Returns the @{DCSTypes#Vec3} vector indicating the point in 3D of the DCS Positionable within the mission. +-- @param Positionable#POSITIONABLE self +-- @return DCSTypes#Vec3 The 3D point vector of the DCS Positionable. +-- @return #nil The DCS Positionable is not existing or alive. +function POSITIONABLE:GetPointVec3() + self:F2( self.PositionableName ) + + local DCSPositionable = self:GetDCSObject() + + if DCSPositionable then + local PositionablePointVec3 = DCSPositionable:getPosition().p + self:T3( PositionablePointVec3 ) + return PositionablePointVec3 + end + + return nil +end + +--- Returns the altitude of the DCS Positionable. +-- @param Positionable#POSITIONABLE self +-- @return DCSTypes#Distance The altitude of the DCS Positionable. +-- @return #nil The DCS Positionable is not existing or alive. +function POSITIONABLE:GetAltitude() + self:F2() + + local DCSPositionable = self:GetDCSObject() + + if DCSPositionable then + local PositionablePointVec3 = DCSPositionable:getPoint() --DCSTypes#Vec3 + return PositionablePointVec3.y + end + + return nil +end + +--- Returns if the Positionable is located above a runway. +-- @param Positionable#POSITIONABLE self +-- @return #boolean true if Positionable is above a runway. +-- @return #nil The DCS Positionable is not existing or alive. +function POSITIONABLE:IsAboveRunway() + self:F2( self.PositionableName ) + + local DCSPositionable = self:GetDCSObject() + + if DCSPositionable then + + local PointVec2 = self:GetPointVec2() + local SurfaceType = land.getSurfaceType( PointVec2 ) + local IsAboveRunway = SurfaceType == land.SurfaceType.RUNWAY + + self:T2( IsAboveRunway ) + return IsAboveRunway + end + + return nil +end + + + +--- Returns the DCS Positionable heading. +-- @param Positionable#POSITIONABLE self +-- @return #number The DCS Positionable heading +function POSITIONABLE:GetHeading() + local DCSPositionable = self:GetDCSObject() + + if DCSPositionable then + + local PositionablePosition = DCSPositionable:getPosition() + if PositionablePosition then + local PositionableHeading = math.atan2( PositionablePosition.x.z, PositionablePosition.x.x ) + if PositionableHeading < 0 then + PositionableHeading = PositionableHeading + 2 * math.pi + end + self:T2( PositionableHeading ) + return PositionableHeading + end + end + + return nil +end + + +--- Returns true if the DCS Positionable is in the air. +-- @param Positionable#POSITIONABLE self +-- @return #boolean true if in the air. +-- @return #nil The DCS Positionable is not existing or alive. +function POSITIONABLE:InAir() + self:F2( self.PositionableName ) + + local DCSPositionable = self:GetDCSObject() + + if DCSPositionable then + local PositionableInAir = DCSPositionable:inAir() + self:T3( PositionableInAir ) + return PositionableInAir + end + + return nil +end + +--- Returns the DCS Positionable velocity vector. +-- @param Positionable#POSITIONABLE self +-- @return DCSTypes#Vec3 The velocity vector +-- @return #nil The DCS Positionable is not existing or alive. +function POSITIONABLE:GetVelocity() + self:F2( self.PositionableName ) + + local DCSPositionable = self:GetDCSObject() + + if DCSPositionable then + local PositionableVelocityVec3 = DCSPositionable:getVelocity() + self:T3( PositionableVelocityVec3 ) + return PositionableVelocityVec3 + end + + return nil +end + + + +--- This module contains the CONTROLLABLE class. +-- +-- 1) @{Controllable#CONTROLLABLE} class, extends @{Positionable#POSITIONABLE} +-- =========================================================== +-- The @{Controllable#CONTROLLABLE} class is a wrapper class to handle the DCS Controllable objects: +-- +-- * Support all DCS Controllable APIs. +-- * Enhance with Controllable specific APIs not in the DCS Controllable API set. +-- * Handle local Controllable Controller. +-- * Manage the "state" of the DCS Controllable. +-- +-- 1.1) CONTROLLABLE constructor +-- ----------------------------- +-- The CONTROLLABLE class provides the following functions to construct a CONTROLLABLE instance: +-- +-- * @{#CONTROLLABLE.New}(): Create a CONTROLLABLE instance. +-- +-- 1.2) CONTROLLABLE task methods +-- ------------------------------ +-- Several controllable task methods are available that help you to prepare tasks. +-- These methods return a string consisting of the task description, which can then be given to either a @{Controllable#CONTROLLABLE.PushTask} or @{Controllable#SetTask} method to assign the task to the CONTROLLABLE. +-- Tasks are specific for the category of the CONTROLLABLE, more specific, for AIR, GROUND or AIR and GROUND. +-- Each task description where applicable indicates for which controllable category the task is valid. +-- There are 2 main subdivisions of tasks: Assigned tasks and EnRoute tasks. +-- +-- ### 1.2.1) Assigned task methods +-- +-- Assigned task methods make the controllable execute the task where the location of the (possible) targets of the task are known before being detected. +-- This is different from the EnRoute tasks, where the targets of the task need to be detected before the task can be executed. +-- +-- Find below a list of the **assigned task** methods: +-- +-- * @{#CONTROLLABLE.TaskAttackControllable}: (AIR) Attack a Controllable. +-- * @{#CONTROLLABLE.TaskAttackMapObject}: (AIR) Attacking the map object (building, structure, e.t.c). +-- * @{#CONTROLLABLE.TaskAttackUnit}: (AIR) Attack the Unit. +-- * @{#CONTROLLABLE.TaskBombing}: (AIR) Delivering weapon at the point on the ground. +-- * @{#CONTROLLABLE.TaskBombingRunway}: (AIR) Delivering weapon on the runway. +-- * @{#CONTROLLABLE.TaskEmbarking}: (AIR) Move the controllable to a Vec2 Point, wait for a defined duration and embark a controllable. +-- * @{#CONTROLLABLE.TaskEmbarkToTransport}: (GROUND) Embark to a Transport landed at a location. +-- * @{#CONTROLLABLE.TaskEscort}: (AIR) Escort another airborne controllable. +-- * @{#CONTROLLABLE.TaskFAC_AttackControllable}: (AIR + GROUND) The task makes the controllable/unit a FAC and orders the FAC to control the target (enemy ground controllable) destruction. +-- * @{#CONTROLLABLE.TaskFireAtPoint}: (GROUND) Fire at a VEC2 point until ammunition is finished. +-- * @{#CONTROLLABLE.TaskFollow}: (AIR) Following another airborne controllable. +-- * @{#CONTROLLABLE.TaskHold}: (GROUND) Hold ground controllable from moving. +-- * @{#CONTROLLABLE.TaskHoldPosition}: (AIR) Hold position at the current position of the first unit of the controllable. +-- * @{#CONTROLLABLE.TaskLand}: (AIR HELICOPTER) Landing at the ground. For helicopters only. +-- * @{#CONTROLLABLE.TaskLandAtZone}: (AIR) Land the controllable at a @{Zone#ZONE_RADIUS). +-- * @{#CONTROLLABLE.TaskOrbitCircle}: (AIR) Orbit at the current position of the first unit of the controllable at a specified alititude. +-- * @{#CONTROLLABLE.TaskOrbitCircleAtVec2}: (AIR) Orbit at a specified position at a specified alititude during a specified duration with a specified speed. +-- * @{#CONTROLLABLE.TaskRefueling}: (AIR) Refueling from the nearest tanker. No parameters. +-- * @{#CONTROLLABLE.TaskRoute}: (AIR + GROUND) Return a Misson task to follow a given route defined by Points. +-- * @{#CONTROLLABLE.TaskRouteToVec2}: (AIR + GROUND) Make the Controllable move to a given point. +-- * @{#CONTROLLABLE.TaskRouteToVec3}: (AIR + GROUND) Make the Controllable move to a given point. +-- * @{#CONTROLLABLE.TaskRouteToZone}: (AIR + GROUND) Route the controllable to a given zone. +-- * @{#CONTROLLABLE.TaskReturnToBase}: (AIR) Route the controllable to an airbase. +-- +-- ### 1.2.2) EnRoute task methods +-- +-- EnRoute tasks require the targets of the task need to be detected by the controllable (using its sensors) before the task can be executed: +-- +-- * @{#CONTROLLABLE.EnRouteTaskAWACS}: (AIR) Aircraft will act as an AWACS for friendly units (will provide them with information about contacts). No parameters. +-- * @{#CONTROLLABLE.EnRouteTaskEngageControllable}: (AIR) Engaging a controllable. The task does not assign the target controllable to the unit/controllable to attack now; it just allows the unit/controllable to engage the target controllable as well as other assigned targets. +-- * @{#CONTROLLABLE.EnRouteTaskEngageTargets}: (AIR) Engaging targets of defined types. +-- * @{#CONTROLLABLE.EnRouteTaskEWR}: (AIR) Attack the Unit. +-- * @{#CONTROLLABLE.EnRouteTaskFAC}: (AIR + GROUND) The task makes the controllable/unit a FAC and lets the FAC to choose a targets (enemy ground controllable) around as well as other assigned targets. +-- * @{#CONTROLLABLE.EnRouteTaskFAC_EngageControllable}: (AIR + GROUND) The task makes the controllable/unit a FAC and lets the FAC to choose the target (enemy ground controllable) as well as other assigned targets. +-- * @{#CONTROLLABLE.EnRouteTaskTanker}: (AIR) Aircraft will act as a tanker for friendly units. No parameters. +-- +-- ### 1.2.3) Preparation task methods +-- +-- There are certain task methods that allow to tailor the task behaviour: +-- +-- * @{#CONTROLLABLE.TaskWrappedAction}: Return a WrappedAction Task taking a Command. +-- * @{#CONTROLLABLE.TaskCombo}: Return a Combo Task taking an array of Tasks. +-- * @{#CONTROLLABLE.TaskCondition}: Return a condition section for a controlled task. +-- * @{#CONTROLLABLE.TaskControlled}: Return a Controlled Task taking a Task and a TaskCondition. +-- +-- ### 1.2.4) Obtain the mission from controllable templates +-- +-- Controllable templates contain complete mission descriptions. Sometimes you want to copy a complete mission from a controllable and assign it to another: +-- +-- * @{#CONTROLLABLE.TaskMission}: (AIR + GROUND) Return a mission task from a mission template. +-- +-- 1.3) CONTROLLABLE Command methods +-- -------------------------- +-- Controllable **command methods** prepare the execution of commands using the @{#CONTROLLABLE.SetCommand} method: +-- +-- * @{#CONTROLLABLE.CommandDoScript}: Do Script command. +-- * @{#CONTROLLABLE.CommandSwitchWayPoint}: Perform a switch waypoint command. +-- +-- 1.4) CONTROLLABLE Option methods +-- ------------------------- +-- Controllable **Option methods** change the behaviour of the Controllable while being alive. +-- +-- ### 1.4.1) Rule of Engagement: +-- +-- * @{#CONTROLLABLE.OptionROEWeaponFree} +-- * @{#CONTROLLABLE.OptionROEOpenFire} +-- * @{#CONTROLLABLE.OptionROEReturnFire} +-- * @{#CONTROLLABLE.OptionROEEvadeFire} +-- +-- To check whether an ROE option is valid for a specific controllable, use: +-- +-- * @{#CONTROLLABLE.OptionROEWeaponFreePossible} +-- * @{#CONTROLLABLE.OptionROEOpenFirePossible} +-- * @{#CONTROLLABLE.OptionROEReturnFirePossible} +-- * @{#CONTROLLABLE.OptionROEEvadeFirePossible} +-- +-- ### 1.4.2) Rule on thread: +-- +-- * @{#CONTROLLABLE.OptionROTNoReaction} +-- * @{#CONTROLLABLE.OptionROTPassiveDefense} +-- * @{#CONTROLLABLE.OptionROTEvadeFire} +-- * @{#CONTROLLABLE.OptionROTVertical} +-- +-- To test whether an ROT option is valid for a specific controllable, use: +-- +-- * @{#CONTROLLABLE.OptionROTNoReactionPossible} +-- * @{#CONTROLLABLE.OptionROTPassiveDefensePossible} +-- * @{#CONTROLLABLE.OptionROTEvadeFirePossible} +-- * @{#CONTROLLABLE.OptionROTVerticalPossible} +-- +-- === +-- +-- @module Controllable +-- @author FlightControl + +--- The CONTROLLABLE class +-- @type CONTROLLABLE +-- @extends Positionable#POSITIONABLE +-- @field DCSControllable#Controllable DCSControllable The DCS controllable class. +-- @field #string ControllableName The name of the controllable. +CONTROLLABLE = { + ClassName = "CONTROLLABLE", + ControllableName = "", + WayPointFunctions = {}, +} + +--- Create a new CONTROLLABLE from a DCSControllable +-- @param #CONTROLLABLE self +-- @param DCSControllable#Controllable ControllableName The DCS Controllable name +-- @return #CONTROLLABLE self +function CONTROLLABLE:New( ControllableName ) + local self = BASE:Inherit( self, POSITIONABLE:New( ControllableName ) ) + self:F2( ControllableName ) + self.ControllableName = ControllableName + return self +end + +-- DCS Controllable methods support. + +--- Get the controller for the CONTROLLABLE. +-- @param #CONTROLLABLE self +-- @return DCSController#Controller +function CONTROLLABLE:_GetController() + self:F2( { self.ControllableName } ) + local DCSControllable = self:GetDCSObject() + + if DCSControllable then + local ControllableController = DCSControllable:getController() + self:T3( ControllableController ) + return ControllableController + end + + return nil +end + + + +-- Tasks + +--- Popping current Task from the controllable. +-- @param #CONTROLLABLE self +-- @return Controllable#CONTROLLABLE self +function CONTROLLABLE:PopCurrentTask() + self:F2() + + local DCSControllable = self:GetDCSObject() + + if DCSControllable then + local Controller = self:_GetController() + Controller:popTask() + return self + end + + return nil +end + +--- Pushing Task on the queue from the controllable. +-- @param #CONTROLLABLE self +-- @return Controllable#CONTROLLABLE self +function CONTROLLABLE:PushTask( DCSTask, WaitTime ) + self:F2() + + local DCSControllable = self:GetDCSObject() + + if DCSControllable then + local Controller = self:_GetController() + + -- When a controllable SPAWNs, it takes about a second to get the controllable in the simulator. Setting tasks to unspawned controllables provides unexpected results. + -- Therefore we schedule the functions to set the mission and options for the Controllable. + -- Controller:pushTask( DCSTask ) + + if WaitTime then + SCHEDULER:New( Controller, Controller.pushTask, { DCSTask }, WaitTime ) + else + Controller:pushTask( DCSTask ) + end + + return self + end + + return nil +end + +--- Clearing the Task Queue and Setting the Task on the queue from the controllable. +-- @param #CONTROLLABLE self +-- @return Controllable#CONTROLLABLE self +function CONTROLLABLE:SetTask( DCSTask, WaitTime ) + self:F2( { DCSTask } ) + + local DCSControllable = self:GetDCSObject() + + if DCSControllable then + + local Controller = self:_GetController() + + -- When a controllable SPAWNs, it takes about a second to get the controllable in the simulator. Setting tasks to unspawned controllables provides unexpected results. + -- Therefore we schedule the functions to set the mission and options for the Controllable. + -- Controller.setTask( Controller, DCSTask ) + + if not WaitTime then + WaitTime = 1 + end + SCHEDULER:New( Controller, Controller.setTask, { DCSTask }, WaitTime ) + + return self + end + + return nil +end + + +--- Return a condition section for a controlled task. +-- @param #CONTROLLABLE self +-- @param DCSTime#Time time +-- @param #string userFlag +-- @param #boolean userFlagValue +-- @param #string condition +-- @param DCSTime#Time duration +-- @param #number lastWayPoint +-- return DCSTask#Task +function CONTROLLABLE:TaskCondition( time, userFlag, userFlagValue, condition, duration, lastWayPoint ) + self:F2( { time, userFlag, userFlagValue, condition, duration, lastWayPoint } ) + + local DCSStopCondition = {} + DCSStopCondition.time = time + DCSStopCondition.userFlag = userFlag + DCSStopCondition.userFlagValue = userFlagValue + DCSStopCondition.condition = condition + DCSStopCondition.duration = duration + DCSStopCondition.lastWayPoint = lastWayPoint + + self:T3( { DCSStopCondition } ) + return DCSStopCondition +end + +--- Return a Controlled Task taking a Task and a TaskCondition. +-- @param #CONTROLLABLE self +-- @param DCSTask#Task DCSTask +-- @param #DCSStopCondition DCSStopCondition +-- @return DCSTask#Task +function CONTROLLABLE:TaskControlled( DCSTask, DCSStopCondition ) + self:F2( { DCSTask, DCSStopCondition } ) + + local DCSTaskControlled + + DCSTaskControlled = { + id = 'ControlledTask', + params = { + task = DCSTask, + stopCondition = DCSStopCondition + } + } + + self:T3( { DCSTaskControlled } ) + return DCSTaskControlled +end + +--- Return a Combo Task taking an array of Tasks. +-- @param #CONTROLLABLE self +-- @param DCSTask#TaskArray DCSTasks Array of @{DCSTask#Task} +-- @return DCSTask#Task +function CONTROLLABLE:TaskCombo( DCSTasks ) + self:F2( { DCSTasks } ) + + local DCSTaskCombo + + DCSTaskCombo = { + id = 'ComboTask', + params = { + tasks = DCSTasks + } + } + + self:T3( { DCSTaskCombo } ) + return DCSTaskCombo +end + +--- Return a WrappedAction Task taking a Command. +-- @param #CONTROLLABLE self +-- @param DCSCommand#Command DCSCommand +-- @return DCSTask#Task +function CONTROLLABLE:TaskWrappedAction( DCSCommand, Index ) + self:F2( { DCSCommand } ) + + local DCSTaskWrappedAction + + DCSTaskWrappedAction = { + id = "WrappedAction", + enabled = true, + number = Index, + auto = false, + params = { + action = DCSCommand, + }, + } + + self:T3( { DCSTaskWrappedAction } ) + return DCSTaskWrappedAction +end + +--- Executes a command action +-- @param #CONTROLLABLE self +-- @param DCSCommand#Command DCSCommand +-- @return #CONTROLLABLE self +function CONTROLLABLE:SetCommand( DCSCommand ) + self:F2( DCSCommand ) + + local DCSControllable = self:GetDCSObject() + + if DCSControllable then + local Controller = self:_GetController() + Controller:setCommand( DCSCommand ) + return self + end + + return nil +end + +--- Perform a switch waypoint command +-- @param #CONTROLLABLE self +-- @param #number FromWayPoint +-- @param #number ToWayPoint +-- @return DCSTask#Task +-- @usage +-- --- This test demonstrates the use(s) of the SwitchWayPoint method of the GROUP class. +-- HeliGroup = GROUP:FindByName( "Helicopter" ) +-- +-- --- Route the helicopter back to the FARP after 60 seconds. +-- -- We use the SCHEDULER class to do this. +-- SCHEDULER:New( nil, +-- function( HeliGroup ) +-- local CommandRTB = HeliGroup:CommandSwitchWayPoint( 2, 8 ) +-- HeliGroup:SetCommand( CommandRTB ) +-- end, { HeliGroup }, 90 +-- ) +function CONTROLLABLE:CommandSwitchWayPoint( FromWayPoint, ToWayPoint ) + self:F2( { FromWayPoint, ToWayPoint } ) + + local CommandSwitchWayPoint = { + id = 'SwitchWaypoint', + params = { + fromWaypointIndex = FromWayPoint, + goToWaypointIndex = ToWayPoint, + }, + } + + self:T3( { CommandSwitchWayPoint } ) + return CommandSwitchWayPoint +end + +--- Perform stop route command +-- @param #CONTROLLABLE self +-- @param #boolean StopRoute +-- @return DCSTask#Task +function CONTROLLABLE:CommandStopRoute( StopRoute, Index ) + self:F2( { StopRoute, Index } ) + + local CommandStopRoute = { + id = 'StopRoute', + params = { + value = StopRoute, + }, + } + + self:T3( { CommandStopRoute } ) + return CommandStopRoute +end + + +-- TASKS FOR AIR CONTROLLABLES + + +--- (AIR) Attack a Controllable. +-- @param #CONTROLLABLE self +-- @param Controllable#CONTROLLABLE AttackGroup The Controllable to be attacked. +-- @param #number WeaponType (optional) Bitmask of weapon types those allowed to use. If parameter is not defined that means no limits on weapon usage. +-- @param DCSTypes#AI.Task.WeaponExpend WeaponExpend (optional) Determines how much weapon will be released at each attack. If parameter is not defined the unit / controllable will choose expend on its own discretion. +-- @param #number AttackQty (optional) This parameter limits maximal quantity of attack. The aicraft/controllable will not make more attack than allowed even if the target controllable not destroyed and the aicraft/controllable still have ammo. If not defined the aircraft/controllable will attack target until it will be destroyed or until the aircraft/controllable will run out of ammo. +-- @param DCSTypes#Azimuth Direction (optional) Desired ingress direction from the target to the attacking aircraft. Controllable/aircraft will make its attacks from the direction. Of course if there is no way to attack from the direction due the terrain controllable/aircraft will choose another direction. +-- @param DCSTypes#Distance Altitude (optional) Desired attack start altitude. Controllable/aircraft will make its attacks from the altitude. If the altitude is too low or too high to use weapon aircraft/controllable will choose closest altitude to the desired attack start altitude. If the desired altitude is defined controllable/aircraft will not attack from safe altitude. +-- @param #boolean AttackQtyLimit (optional) The flag determines how to interpret attackQty parameter. If the flag is true then attackQty is a limit on maximal attack quantity for "AttackControllable" and "AttackUnit" tasks. If the flag is false then attackQty is a desired attack quantity for "Bombing" and "BombingRunway" tasks. +-- @return DCSTask#Task The DCS task structure. +function CONTROLLABLE:TaskAttackGroup( AttackGroup, WeaponType, WeaponExpend, AttackQty, Direction, Altitude, AttackQtyLimit ) + self:F2( { self.ControllableName, AttackGroup, WeaponType, WeaponExpend, AttackQty, Direction, Altitude, AttackQtyLimit } ) + + -- AttackControllable = { + -- id = 'AttackControllable', + -- params = { + -- controllableId = Controllable.ID, + -- weaponType = number, + -- expend = enum AI.Task.WeaponExpend, + -- attackQty = number, + -- directionEnabled = boolean, + -- direction = Azimuth, + -- altitudeEnabled = boolean, + -- altitude = Distance, + -- attackQtyLimit = boolean, + -- } + -- } + + local DirectionEnabled = nil + if Direction then + DirectionEnabled = true + end + + local AltitudeEnabled = nil + if Altitude then + AltitudeEnabled = true + end + + local DCSTask + DCSTask = { id = 'AttackControllable', + params = { + controllableId = AttackGroup:GetID(), + weaponType = WeaponType, + expend = WeaponExpend, + attackQty = AttackQty, + directionEnabled = DirectionEnabled, + direction = Direction, + altitudeEnabled = AltitudeEnabled, + altitude = Altitude, + attackQtyLimit = AttackQtyLimit, + }, + }, + + self:T3( { DCSTask } ) + return DCSTask +end + + +--- (AIR) Attack the Unit. +-- @param #CONTROLLABLE self +-- @param Unit#UNIT AttackUnit The unit. +-- @param #number WeaponType (optional) Bitmask of weapon types those allowed to use. If parameter is not defined that means no limits on weapon usage. +-- @param DCSTypes#AI.Task.WeaponExpend WeaponExpend (optional) Determines how much weapon will be released at each attack. If parameter is not defined the unit / controllable will choose expend on its own discretion. +-- @param #number AttackQty (optional) This parameter limits maximal quantity of attack. The aicraft/controllable will not make more attack than allowed even if the target controllable not destroyed and the aicraft/controllable still have ammo. If not defined the aircraft/controllable will attack target until it will be destroyed or until the aircraft/controllable will run out of ammo. +-- @param DCSTypes#Azimuth Direction (optional) Desired ingress direction from the target to the attacking aircraft. Controllable/aircraft will make its attacks from the direction. Of course if there is no way to attack from the direction due the terrain controllable/aircraft will choose another direction. +-- @param #boolean AttackQtyLimit (optional) The flag determines how to interpret attackQty parameter. If the flag is true then attackQty is a limit on maximal attack quantity for "AttackControllable" and "AttackUnit" tasks. If the flag is false then attackQty is a desired attack quantity for "Bombing" and "BombingRunway" tasks. +-- @param #boolean ControllableAttack (optional) Flag indicates that the target must be engaged by all aircrafts of the controllable. Has effect only if the task is assigned to a controllable, not to a single aircraft. +-- @return DCSTask#Task The DCS task structure. +function CONTROLLABLE:TaskAttackUnit( AttackUnit, WeaponType, WeaponExpend, AttackQty, Direction, AttackQtyLimit, ControllableAttack ) + self:F2( { self.ControllableName, AttackUnit, WeaponType, WeaponExpend, AttackQty, Direction, AttackQtyLimit, ControllableAttack } ) + + -- AttackUnit = { + -- id = 'AttackUnit', + -- params = { + -- unitId = Unit.ID, + -- weaponType = number, + -- expend = enum AI.Task.WeaponExpend + -- attackQty = number, + -- direction = Azimuth, + -- attackQtyLimit = boolean, + -- controllableAttack = boolean, + -- } + -- } + + local DCSTask + DCSTask = { id = 'AttackUnit', + params = { + unitId = AttackUnit:GetID(), + weaponType = WeaponType, + expend = WeaponExpend, + attackQty = AttackQty, + direction = Direction, + attackQtyLimit = AttackQtyLimit, + controllableAttack = ControllableAttack, + }, + }, + + self:T3( { DCSTask } ) + return DCSTask +end + + +--- (AIR) Delivering weapon at the point on the ground. +-- @param #CONTROLLABLE self +-- @param DCSTypes#Vec2 PointVec2 2D-coordinates of the point to deliver weapon at. +-- @param #number WeaponType (optional) Bitmask of weapon types those allowed to use. If parameter is not defined that means no limits on weapon usage. +-- @param DCSTypes#AI.Task.WeaponExpend WeaponExpend (optional) Determines how much weapon will be released at each attack. If parameter is not defined the unit / controllable will choose expend on its own discretion. +-- @param #number AttackQty (optional) Desired quantity of passes. The parameter is not the same in AttackControllable and AttackUnit tasks. +-- @param DCSTypes#Azimuth Direction (optional) Desired ingress direction from the target to the attacking aircraft. Controllable/aircraft will make its attacks from the direction. Of course if there is no way to attack from the direction due the terrain controllable/aircraft will choose another direction. +-- @param #boolean ControllableAttack (optional) Flag indicates that the target must be engaged by all aircrafts of the controllable. Has effect only if the task is assigned to a controllable, not to a single aircraft. +-- @return DCSTask#Task The DCS task structure. +function CONTROLLABLE:TaskBombing( PointVec2, WeaponType, WeaponExpend, AttackQty, Direction, ControllableAttack ) + self:F2( { self.ControllableName, PointVec2, WeaponType, WeaponExpend, AttackQty, Direction, ControllableAttack } ) + +-- Bombing = { +-- id = 'Bombing', +-- params = { +-- point = Vec2, +-- weaponType = number, +-- expend = enum AI.Task.WeaponExpend, +-- attackQty = number, +-- direction = Azimuth, +-- controllableAttack = boolean, +-- } +-- } + + local DCSTask + DCSTask = { id = 'Bombing', + params = { + point = PointVec2, + weaponType = WeaponType, + expend = WeaponExpend, + attackQty = AttackQty, + direction = Direction, + controllableAttack = ControllableAttack, + }, + }, + + self:T3( { DCSTask } ) + return DCSTask +end + +--- (AIR) Orbit at a specified position at a specified alititude during a specified duration with a specified speed. +-- @param #CONTROLLABLE self +-- @param DCSTypes#Vec2 Point The point to hold the position. +-- @param #number Altitude The altitude to hold the position. +-- @param #number Speed The speed flying when holding the position. +-- @return #CONTROLLABLE self +function CONTROLLABLE:TaskOrbitCircleAtVec2( Point, Altitude, Speed ) + self:F2( { self.ControllableName, Point, Altitude, Speed } ) + + -- pattern = enum AI.Task.OribtPattern, + -- point = Vec2, + -- point2 = Vec2, + -- speed = Distance, + -- altitude = Distance + + local LandHeight = land.getHeight( Point ) + + self:T3( { LandHeight } ) + + local DCSTask = { id = 'Orbit', + params = { pattern = AI.Task.OrbitPattern.CIRCLE, + point = Point, + speed = Speed, + altitude = Altitude + LandHeight + } + } + + + -- local AITask = { id = 'ControlledTask', + -- params = { task = { id = 'Orbit', + -- params = { pattern = AI.Task.OrbitPattern.CIRCLE, + -- point = Point, + -- speed = Speed, + -- altitude = Altitude + LandHeight + -- } + -- }, + -- stopCondition = { duration = Duration + -- } + -- } + -- } + -- ) + + return DCSTask +end + +--- (AIR) Orbit at the current position of the first unit of the controllable at a specified alititude. +-- @param #CONTROLLABLE self +-- @param #number Altitude The altitude to hold the position. +-- @param #number Speed The speed flying when holding the position. +-- @return #CONTROLLABLE self +function CONTROLLABLE:TaskOrbitCircle( Altitude, Speed ) + self:F2( { self.ControllableName, Altitude, Speed } ) + + local DCSControllable = self:GetDCSObject() + + if DCSControllable then + local ControllablePoint = self:GetPointVec2() + return self:TaskOrbitCircleAtVec2( ControllablePoint, Altitude, Speed ) + end + + return nil +end + + + +--- (AIR) Hold position at the current position of the first unit of the controllable. +-- @param #CONTROLLABLE self +-- @param #number Duration The maximum duration in seconds to hold the position. +-- @return #CONTROLLABLE self +function CONTROLLABLE:TaskHoldPosition() + self:F2( { self.ControllableName } ) + + return self:TaskOrbitCircle( 30, 10 ) +end + + + + +--- (AIR) Attacking the map object (building, structure, e.t.c). +-- @param #CONTROLLABLE self +-- @param DCSTypes#Vec2 PointVec2 2D-coordinates of the point the map object is closest to. The distance between the point and the map object must not be greater than 2000 meters. Object id is not used here because Mission Editor doesn't support map object identificators. +-- @param #number WeaponType (optional) Bitmask of weapon types those allowed to use. If parameter is not defined that means no limits on weapon usage. +-- @param DCSTypes#AI.Task.WeaponExpend WeaponExpend (optional) Determines how much weapon will be released at each attack. If parameter is not defined the unit / controllable will choose expend on its own discretion. +-- @param #number AttackQty (optional) This parameter limits maximal quantity of attack. The aicraft/controllable will not make more attack than allowed even if the target controllable not destroyed and the aicraft/controllable still have ammo. If not defined the aircraft/controllable will attack target until it will be destroyed or until the aircraft/controllable will run out of ammo. +-- @param DCSTypes#Azimuth Direction (optional) Desired ingress direction from the target to the attacking aircraft. Controllable/aircraft will make its attacks from the direction. Of course if there is no way to attack from the direction due the terrain controllable/aircraft will choose another direction. +-- @param #boolean ControllableAttack (optional) Flag indicates that the target must be engaged by all aircrafts of the controllable. Has effect only if the task is assigned to a controllable, not to a single aircraft. +-- @return DCSTask#Task The DCS task structure. +function CONTROLLABLE:TaskAttackMapObject( PointVec2, WeaponType, WeaponExpend, AttackQty, Direction, ControllableAttack ) + self:F2( { self.ControllableName, PointVec2, WeaponType, WeaponExpend, AttackQty, Direction, ControllableAttack } ) + +-- AttackMapObject = { +-- id = 'AttackMapObject', +-- params = { +-- point = Vec2, +-- weaponType = number, +-- expend = enum AI.Task.WeaponExpend, +-- attackQty = number, +-- direction = Azimuth, +-- controllableAttack = boolean, +-- } +-- } + + local DCSTask + DCSTask = { id = 'AttackMapObject', + params = { + point = PointVec2, + weaponType = WeaponType, + expend = WeaponExpend, + attackQty = AttackQty, + direction = Direction, + controllableAttack = ControllableAttack, + }, + }, + + self:T3( { DCSTask } ) + return DCSTask +end + + +--- (AIR) Delivering weapon on the runway. +-- @param #CONTROLLABLE self +-- @param Airbase#AIRBASE Airbase Airbase to attack. +-- @param #number WeaponType (optional) Bitmask of weapon types those allowed to use. If parameter is not defined that means no limits on weapon usage. +-- @param DCSTypes#AI.Task.WeaponExpend WeaponExpend (optional) Determines how much weapon will be released at each attack. If parameter is not defined the unit / controllable will choose expend on its own discretion. +-- @param #number AttackQty (optional) This parameter limits maximal quantity of attack. The aicraft/controllable will not make more attack than allowed even if the target controllable not destroyed and the aicraft/controllable still have ammo. If not defined the aircraft/controllable will attack target until it will be destroyed or until the aircraft/controllable will run out of ammo. +-- @param DCSTypes#Azimuth Direction (optional) Desired ingress direction from the target to the attacking aircraft. Controllable/aircraft will make its attacks from the direction. Of course if there is no way to attack from the direction due the terrain controllable/aircraft will choose another direction. +-- @param #boolean ControllableAttack (optional) Flag indicates that the target must be engaged by all aircrafts of the controllable. Has effect only if the task is assigned to a controllable, not to a single aircraft. +-- @return DCSTask#Task The DCS task structure. +function CONTROLLABLE:TaskBombingRunway( Airbase, WeaponType, WeaponExpend, AttackQty, Direction, ControllableAttack ) + self:F2( { self.ControllableName, Airbase, WeaponType, WeaponExpend, AttackQty, Direction, ControllableAttack } ) + +-- BombingRunway = { +-- id = 'BombingRunway', +-- params = { +-- runwayId = AirdromeId, +-- weaponType = number, +-- expend = enum AI.Task.WeaponExpend, +-- attackQty = number, +-- direction = Azimuth, +-- controllableAttack = boolean, +-- } +-- } + + local DCSTask + DCSTask = { id = 'BombingRunway', + params = { + point = Airbase:GetID(), + weaponType = WeaponType, + expend = WeaponExpend, + attackQty = AttackQty, + direction = Direction, + controllableAttack = ControllableAttack, + }, + }, + + self:T3( { DCSTask } ) + return DCSTask +end + + +--- (AIR) Refueling from the nearest tanker. No parameters. +-- @param #CONTROLLABLE self +-- @return DCSTask#Task The DCS task structure. +function CONTROLLABLE:TaskRefueling() + self:F2( { self.ControllableName } ) + +-- Refueling = { +-- id = 'Refueling', +-- params = {} +-- } + + local DCSTask + DCSTask = { id = 'Refueling', + params = { + }, + }, + + self:T3( { DCSTask } ) + return DCSTask +end + + +--- (AIR HELICOPTER) Landing at the ground. For helicopters only. +-- @param #CONTROLLABLE self +-- @param DCSTypes#Vec2 Point The point where to land. +-- @param #number Duration The duration in seconds to stay on the ground. +-- @return #CONTROLLABLE self +function CONTROLLABLE:TaskLandAtVec2( Point, Duration ) + self:F2( { self.ControllableName, Point, Duration } ) + +-- Land = { +-- id= 'Land', +-- params = { +-- point = Vec2, +-- durationFlag = boolean, +-- duration = Time +-- } +-- } + + local DCSTask + if Duration and Duration > 0 then + DCSTask = { id = 'Land', + params = { + point = Point, + durationFlag = true, + duration = Duration, + }, + } + else + DCSTask = { id = 'Land', + params = { + point = Point, + durationFlag = false, + }, + } + end + + self:T3( DCSTask ) + return DCSTask +end + +--- (AIR) Land the controllable at a @{Zone#ZONE_RADIUS). +-- @param #CONTROLLABLE self +-- @param Zone#ZONE Zone The zone where to land. +-- @param #number Duration The duration in seconds to stay on the ground. +-- @return #CONTROLLABLE self +function CONTROLLABLE:TaskLandAtZone( Zone, Duration, RandomPoint ) + self:F2( { self.ControllableName, Zone, Duration, RandomPoint } ) + + local Point + if RandomPoint then + Point = Zone:GetRandomVec2() + else + Point = Zone:GetPointVec2() + end + + local DCSTask = self:TaskLandAtVec2( Point, Duration ) + + self:T3( DCSTask ) + return DCSTask +end + + + +--- (AIR) Following another airborne controllable. +-- The unit / controllable will follow lead unit of another controllable, wingmens of both controllables will continue following their leaders. +-- If another controllable is on land the unit / controllable will orbit around. +-- @param #CONTROLLABLE self +-- @param Controllable#CONTROLLABLE FollowControllable The controllable to be followed. +-- @param DCSTypes#Vec3 PointVec3 Position of the unit / lead unit of the controllable relative lead unit of another controllable in frame reference oriented by course of lead unit of another controllable. If another controllable is on land the unit / controllable will orbit around. +-- @param #number LastWaypointIndex Detach waypoint of another controllable. Once reached the unit / controllable Follow task is finished. +-- @return DCSTask#Task The DCS task structure. +function CONTROLLABLE:TaskFollow( FollowControllable, PointVec3, LastWaypointIndex ) + self:F2( { self.ControllableName, FollowControllable, PointVec3, LastWaypointIndex } ) + +-- Follow = { +-- id = 'Follow', +-- params = { +-- controllableId = Controllable.ID, +-- pos = Vec3, +-- lastWptIndexFlag = boolean, +-- lastWptIndex = number +-- } +-- } + + local LastWaypointIndexFlag = nil + if LastWaypointIndex then + LastWaypointIndexFlag = true + end + + local DCSTask + DCSTask = { id = 'Follow', + params = { + controllableId = FollowControllable:GetID(), + pos = PointVec3, + lastWptIndexFlag = LastWaypointIndexFlag, + lastWptIndex = LastWaypointIndex, + }, + }, + + self:T3( { DCSTask } ) + return DCSTask +end + + +--- (AIR) Escort another airborne controllable. +-- The unit / controllable will follow lead unit of another controllable, wingmens of both controllables will continue following their leaders. +-- The unit / controllable will also protect that controllable from threats of specified types. +-- @param #CONTROLLABLE self +-- @param Controllable#CONTROLLABLE EscortControllable The controllable to be escorted. +-- @param DCSTypes#Vec3 PointVec3 Position of the unit / lead unit of the controllable relative lead unit of another controllable in frame reference oriented by course of lead unit of another controllable. If another controllable is on land the unit / controllable will orbit around. +-- @param #number LastWaypointIndex Detach waypoint of another controllable. Once reached the unit / controllable Follow task is finished. +-- @param #number EngagementDistanceMax Maximal distance from escorted controllable to threat. If the threat is already engaged by escort escort will disengage if the distance becomes greater than 1.5 * engagementDistMax. +-- @param DCSTypes#AttributeNameArray TargetTypes Array of AttributeName that is contains threat categories allowed to engage. +-- @return DCSTask#Task The DCS task structure. +function CONTROLLABLE:TaskEscort( FollowControllable, PointVec3, LastWaypointIndex, EngagementDistance, TargetTypes ) + self:F2( { self.ControllableName, FollowControllable, PointVec3, LastWaypointIndex, EngagementDistance, TargetTypes } ) + +-- Escort = { +-- id = 'Escort', +-- params = { +-- controllableId = Controllable.ID, +-- pos = Vec3, +-- lastWptIndexFlag = boolean, +-- lastWptIndex = number, +-- engagementDistMax = Distance, +-- targetTypes = array of AttributeName, +-- } +-- } + + local LastWaypointIndexFlag = nil + if LastWaypointIndex then + LastWaypointIndexFlag = true + end + + local DCSTask + DCSTask = { id = 'Follow', + params = { + controllableId = FollowControllable:GetID(), + pos = PointVec3, + lastWptIndexFlag = LastWaypointIndexFlag, + lastWptIndex = LastWaypointIndex, + engagementDistMax = EngagementDistance, + targetTypes = TargetTypes, + }, + }, + + self:T3( { DCSTask } ) + return DCSTask +end + + +-- GROUND TASKS + +--- (GROUND) Fire at a VEC2 point until ammunition is finished. +-- @param #CONTROLLABLE self +-- @param DCSTypes#Vec2 PointVec2 The point to fire at. +-- @param DCSTypes#Distance Radius The radius of the zone to deploy the fire at. +-- @return DCSTask#Task The DCS task structure. +function CONTROLLABLE:TaskFireAtPoint( PointVec2, Radius ) + self:F2( { self.ControllableName, PointVec2, Radius } ) + + -- FireAtPoint = { + -- id = 'FireAtPoint', + -- params = { + -- point = Vec2, + -- radius = Distance, + -- } + -- } + + local DCSTask + DCSTask = { id = 'FireAtPoint', + params = { + point = PointVec2, + radius = Radius, + } + } + + self:T3( { DCSTask } ) + return DCSTask +end + +--- (GROUND) Hold ground controllable from moving. +-- @param #CONTROLLABLE self +-- @return DCSTask#Task The DCS task structure. +function CONTROLLABLE:TaskHold() + self:F2( { self.ControllableName } ) + +-- Hold = { +-- id = 'Hold', +-- params = { +-- } +-- } + + local DCSTask + DCSTask = { id = 'Hold', + params = { + } + } + + self:T3( { DCSTask } ) + return DCSTask +end + + +-- TASKS FOR AIRBORNE AND GROUND UNITS/CONTROLLABLES + +--- (AIR + GROUND) The task makes the controllable/unit a FAC and orders the FAC to control the target (enemy ground controllable) destruction. +-- The killer is player-controlled allied CAS-aircraft that is in contact with the FAC. +-- If the task is assigned to the controllable lead unit will be a FAC. +-- @param #CONTROLLABLE self +-- @param Controllable#CONTROLLABLE AttackGroup Target CONTROLLABLE. +-- @param #number WeaponType Bitmask of weapon types those allowed to use. If parameter is not defined that means no limits on weapon usage. +-- @param DCSTypes#AI.Task.Designation Designation (optional) Designation type. +-- @param #boolean Datalink (optional) Allows to use datalink to send the target information to attack aircraft. Enabled by default. +-- @return DCSTask#Task The DCS task structure. +function CONTROLLABLE:TaskFAC_AttackGroup( AttackGroup, WeaponType, Designation, Datalink ) + self:F2( { self.ControllableName, AttackGroup, WeaponType, Designation, Datalink } ) + +-- FAC_AttackControllable = { +-- id = 'FAC_AttackControllable', +-- params = { +-- controllableId = Controllable.ID, +-- weaponType = number, +-- designation = enum AI.Task.Designation, +-- datalink = boolean +-- } +-- } + + local DCSTask + DCSTask = { id = 'FAC_AttackControllable', + params = { + controllableId = AttackGroup:GetID(), + weaponType = WeaponType, + designation = Designation, + datalink = Datalink, + } + } + + self:T3( { DCSTask } ) + return DCSTask +end + +-- EN-ROUTE TASKS FOR AIRBORNE CONTROLLABLES + +--- (AIR) Engaging targets of defined types. +-- @param #CONTROLLABLE self +-- @param DCSTypes#Distance Distance Maximal distance from the target to a route leg. If the target is on a greater distance it will be ignored. +-- @param DCSTypes#AttributeNameArray TargetTypes Array of target categories allowed to engage. +-- @param #number Priority All enroute tasks have the priority parameter. This is a number (less value - higher priority) that determines actions related to what task will be performed first. +-- @return DCSTask#Task The DCS task structure. +function CONTROLLABLE:EnRouteTaskEngageTargets( Distance, TargetTypes, Priority ) + self:F2( { self.ControllableName, Distance, TargetTypes, Priority } ) + +-- EngageTargets ={ +-- id = 'EngageTargets', +-- params = { +-- maxDist = Distance, +-- targetTypes = array of AttributeName, +-- priority = number +-- } +-- } + + local DCSTask + DCSTask = { id = 'EngageTargets', + params = { + maxDist = Distance, + targetTypes = TargetTypes, + priority = Priority + } + } + + self:T3( { DCSTask } ) + return DCSTask +end + + + +--- (AIR) Engaging a targets of defined types at circle-shaped zone. +-- @param #CONTROLLABLE self +-- @param DCSTypes#Vec2 PointVec2 2D-coordinates of the zone. +-- @param DCSTypes#Distance Radius Radius of the zone. +-- @param DCSTypes#AttributeNameArray TargetTypes Array of target categories allowed to engage. +-- @param #number Priority All en-route tasks have the priority parameter. This is a number (less value - higher priority) that determines actions related to what task will be performed first. +-- @return DCSTask#Task The DCS task structure. +function CONTROLLABLE:EnRouteTaskEngageTargets( PointVec2, Radius, TargetTypes, Priority ) + self:F2( { self.ControllableName, PointVec2, Radius, TargetTypes, Priority } ) + +-- EngageTargetsInZone = { +-- id = 'EngageTargetsInZone', +-- params = { +-- point = Vec2, +-- zoneRadius = Distance, +-- targetTypes = array of AttributeName, +-- priority = number +-- } +-- } + + local DCSTask + DCSTask = { id = 'EngageTargetsInZone', + params = { + point = PointVec2, + zoneRadius = Radius, + targetTypes = TargetTypes, + priority = Priority + } + } + + self:T3( { DCSTask } ) + return DCSTask +end + + +--- (AIR) Engaging a controllable. The task does not assign the target controllable to the unit/controllable to attack now; it just allows the unit/controllable to engage the target controllable as well as other assigned targets. +-- @param #CONTROLLABLE self +-- @param Controllable#CONTROLLABLE AttackGroup The Controllable to be attacked. +-- @param #number Priority All en-route tasks have the priority parameter. This is a number (less value - higher priority) that determines actions related to what task will be performed first. +-- @param #number WeaponType (optional) Bitmask of weapon types those allowed to use. If parameter is not defined that means no limits on weapon usage. +-- @param DCSTypes#AI.Task.WeaponExpend WeaponExpend (optional) Determines how much weapon will be released at each attack. If parameter is not defined the unit / controllable will choose expend on its own discretion. +-- @param #number AttackQty (optional) This parameter limits maximal quantity of attack. The aicraft/controllable will not make more attack than allowed even if the target controllable not destroyed and the aicraft/controllable still have ammo. If not defined the aircraft/controllable will attack target until it will be destroyed or until the aircraft/controllable will run out of ammo. +-- @param DCSTypes#Azimuth Direction (optional) Desired ingress direction from the target to the attacking aircraft. Controllable/aircraft will make its attacks from the direction. Of course if there is no way to attack from the direction due the terrain controllable/aircraft will choose another direction. +-- @param DCSTypes#Distance Altitude (optional) Desired attack start altitude. Controllable/aircraft will make its attacks from the altitude. If the altitude is too low or too high to use weapon aircraft/controllable will choose closest altitude to the desired attack start altitude. If the desired altitude is defined controllable/aircraft will not attack from safe altitude. +-- @param #boolean AttackQtyLimit (optional) The flag determines how to interpret attackQty parameter. If the flag is true then attackQty is a limit on maximal attack quantity for "AttackControllable" and "AttackUnit" tasks. If the flag is false then attackQty is a desired attack quantity for "Bombing" and "BombingRunway" tasks. +-- @return DCSTask#Task The DCS task structure. +function CONTROLLABLE:EnRouteTaskEngageGroup( AttackGroup, Priority, WeaponType, WeaponExpend, AttackQty, Direction, Altitude, AttackQtyLimit ) + self:F2( { self.ControllableName, AttackGroup, Priority, WeaponType, WeaponExpend, AttackQty, Direction, Altitude, AttackQtyLimit } ) + + -- EngageControllable = { + -- id = 'EngageControllable ', + -- params = { + -- controllableId = Controllable.ID, + -- weaponType = number, + -- expend = enum AI.Task.WeaponExpend, + -- attackQty = number, + -- directionEnabled = boolean, + -- direction = Azimuth, + -- altitudeEnabled = boolean, + -- altitude = Distance, + -- attackQtyLimit = boolean, + -- priority = number, + -- } + -- } + + local DirectionEnabled = nil + if Direction then + DirectionEnabled = true + end + + local AltitudeEnabled = nil + if Altitude then + AltitudeEnabled = true + end + + local DCSTask + DCSTask = { id = 'EngageControllable', + params = { + controllableId = AttackGroup:GetID(), + weaponType = WeaponType, + expend = WeaponExpend, + attackQty = AttackQty, + directionEnabled = DirectionEnabled, + direction = Direction, + altitudeEnabled = AltitudeEnabled, + altitude = Altitude, + attackQtyLimit = AttackQtyLimit, + priority = Priority, + }, + }, + + self:T3( { DCSTask } ) + return DCSTask +end + + +--- (AIR) Attack the Unit. +-- @param #CONTROLLABLE self +-- @param Unit#UNIT AttackUnit The UNIT. +-- @param #number Priority All en-route tasks have the priority parameter. This is a number (less value - higher priority) that determines actions related to what task will be performed first. +-- @param #number WeaponType (optional) Bitmask of weapon types those allowed to use. If parameter is not defined that means no limits on weapon usage. +-- @param DCSTypes#AI.Task.WeaponExpend WeaponExpend (optional) Determines how much weapon will be released at each attack. If parameter is not defined the unit / controllable will choose expend on its own discretion. +-- @param #number AttackQty (optional) This parameter limits maximal quantity of attack. The aicraft/controllable will not make more attack than allowed even if the target controllable not destroyed and the aicraft/controllable still have ammo. If not defined the aircraft/controllable will attack target until it will be destroyed or until the aircraft/controllable will run out of ammo. +-- @param DCSTypes#Azimuth Direction (optional) Desired ingress direction from the target to the attacking aircraft. Controllable/aircraft will make its attacks from the direction. Of course if there is no way to attack from the direction due the terrain controllable/aircraft will choose another direction. +-- @param #boolean AttackQtyLimit (optional) The flag determines how to interpret attackQty parameter. If the flag is true then attackQty is a limit on maximal attack quantity for "AttackControllable" and "AttackUnit" tasks. If the flag is false then attackQty is a desired attack quantity for "Bombing" and "BombingRunway" tasks. +-- @param #boolean ControllableAttack (optional) Flag indicates that the target must be engaged by all aircrafts of the controllable. Has effect only if the task is assigned to a controllable, not to a single aircraft. +-- @return DCSTask#Task The DCS task structure. +function CONTROLLABLE:EnRouteTaskEngageUnit( AttackUnit, Priority, WeaponType, WeaponExpend, AttackQty, Direction, AttackQtyLimit, ControllableAttack ) + self:F2( { self.ControllableName, AttackUnit, Priority, WeaponType, WeaponExpend, AttackQty, Direction, AttackQtyLimit, ControllableAttack } ) + + -- EngageUnit = { + -- id = 'EngageUnit', + -- params = { + -- unitId = Unit.ID, + -- weaponType = number, + -- expend = enum AI.Task.WeaponExpend + -- attackQty = number, + -- direction = Azimuth, + -- attackQtyLimit = boolean, + -- controllableAttack = boolean, + -- priority = number, + -- } + -- } + + local DCSTask + DCSTask = { id = 'EngageUnit', + params = { + unitId = AttackUnit:GetID(), + weaponType = WeaponType, + expend = WeaponExpend, + attackQty = AttackQty, + direction = Direction, + attackQtyLimit = AttackQtyLimit, + controllableAttack = ControllableAttack, + priority = Priority, + }, + }, + + self:T3( { DCSTask } ) + return DCSTask +end + + + +--- (AIR) Aircraft will act as an AWACS for friendly units (will provide them with information about contacts). No parameters. +-- @param #CONTROLLABLE self +-- @return DCSTask#Task The DCS task structure. +function CONTROLLABLE:EnRouteTaskAWACS( ) + self:F2( { self.ControllableName } ) + +-- AWACS = { +-- id = 'AWACS', +-- params = { +-- } +-- } + + local DCSTask + DCSTask = { id = 'AWACS', + params = { + } + } + + self:T3( { DCSTask } ) + return DCSTask +end + + +--- (AIR) Aircraft will act as a tanker for friendly units. No parameters. +-- @param #CONTROLLABLE self +-- @return DCSTask#Task The DCS task structure. +function CONTROLLABLE:EnRouteTaskTanker( ) + self:F2( { self.ControllableName } ) + +-- Tanker = { +-- id = 'Tanker', +-- params = { +-- } +-- } + + local DCSTask + DCSTask = { id = 'Tanker', + params = { + } + } + + self:T3( { DCSTask } ) + return DCSTask +end + + +-- En-route tasks for ground units/controllables + +--- (GROUND) Ground unit (EW-radar) will act as an EWR for friendly units (will provide them with information about contacts). No parameters. +-- @param #CONTROLLABLE self +-- @return DCSTask#Task The DCS task structure. +function CONTROLLABLE:EnRouteTaskEWR( ) + self:F2( { self.ControllableName } ) + +-- EWR = { +-- id = 'EWR', +-- params = { +-- } +-- } + + local DCSTask + DCSTask = { id = 'EWR', + params = { + } + } + + self:T3( { DCSTask } ) + return DCSTask +end + + +-- En-route tasks for airborne and ground units/controllables + +--- (AIR + GROUND) The task makes the controllable/unit a FAC and lets the FAC to choose the target (enemy ground controllable) as well as other assigned targets. +-- The killer is player-controlled allied CAS-aircraft that is in contact with the FAC. +-- If the task is assigned to the controllable lead unit will be a FAC. +-- @param #CONTROLLABLE self +-- @param Controllable#CONTROLLABLE AttackGroup Target CONTROLLABLE. +-- @param #number Priority All en-route tasks have the priority parameter. This is a number (less value - higher priority) that determines actions related to what task will be performed first. +-- @param #number WeaponType Bitmask of weapon types those allowed to use. If parameter is not defined that means no limits on weapon usage. +-- @param DCSTypes#AI.Task.Designation Designation (optional) Designation type. +-- @param #boolean Datalink (optional) Allows to use datalink to send the target information to attack aircraft. Enabled by default. +-- @return DCSTask#Task The DCS task structure. +function CONTROLLABLE:EnRouteTaskFAC_EngageGroup( AttackGroup, Priority, WeaponType, Designation, Datalink ) + self:F2( { self.ControllableName, AttackGroup, WeaponType, Priority, Designation, Datalink } ) + +-- FAC_EngageControllable = { +-- id = 'FAC_EngageControllable', +-- params = { +-- controllableId = Controllable.ID, +-- weaponType = number, +-- designation = enum AI.Task.Designation, +-- datalink = boolean, +-- priority = number, +-- } +-- } + + local DCSTask + DCSTask = { id = 'FAC_EngageControllable', + params = { + controllableId = AttackGroup:GetID(), + weaponType = WeaponType, + designation = Designation, + datalink = Datalink, + priority = Priority, + } + } + + self:T3( { DCSTask } ) + return DCSTask +end + + +--- (AIR + GROUND) The task makes the controllable/unit a FAC and lets the FAC to choose a targets (enemy ground controllable) around as well as other assigned targets. +-- The killer is player-controlled allied CAS-aircraft that is in contact with the FAC. +-- If the task is assigned to the controllable lead unit will be a FAC. +-- @param #CONTROLLABLE self +-- @param DCSTypes#Distance Radius The maximal distance from the FAC to a target. +-- @param #number Priority All en-route tasks have the priority parameter. This is a number (less value - higher priority) that determines actions related to what task will be performed first. +-- @return DCSTask#Task The DCS task structure. +function CONTROLLABLE:EnRouteTaskFAC( Radius, Priority ) + self:F2( { self.ControllableName, Radius, Priority } ) + +-- FAC = { +-- id = 'FAC', +-- params = { +-- radius = Distance, +-- priority = number +-- } +-- } + + local DCSTask + DCSTask = { id = 'FAC', + params = { + radius = Radius, + priority = Priority + } + } + + self:T3( { DCSTask } ) + return DCSTask +end + + + + +--- (AIR) Move the controllable to a Vec2 Point, wait for a defined duration and embark a controllable. +-- @param #CONTROLLABLE self +-- @param DCSTypes#Vec2 Point The point where to wait. +-- @param #number Duration The duration in seconds to wait. +-- @param #CONTROLLABLE EmbarkingControllable The controllable to be embarked. +-- @return DCSTask#Task The DCS task structure +function CONTROLLABLE:TaskEmbarking( Point, Duration, EmbarkingControllable ) + self:F2( { self.ControllableName, Point, Duration, EmbarkingControllable.DCSControllable } ) + + local DCSTask + DCSTask = { id = 'Embarking', + params = { x = Point.x, + y = Point.y, + duration = Duration, + controllablesForEmbarking = { EmbarkingControllable.ControllableID }, + durationFlag = true, + distributionFlag = false, + distribution = {}, + } + } + + self:T3( { DCSTask } ) + return DCSTask +end + +--- (GROUND) Embark to a Transport landed at a location. + +--- Move to a defined Vec2 Point, and embark to a controllable when arrived within a defined Radius. +-- @param #CONTROLLABLE self +-- @param DCSTypes#Vec2 Point The point where to wait. +-- @param #number Radius The radius of the embarking zone around the Point. +-- @return DCSTask#Task The DCS task structure. +function CONTROLLABLE:TaskEmbarkToTransport( Point, Radius ) + self:F2( { self.ControllableName, Point, Radius } ) + + local DCSTask --DCSTask#Task + DCSTask = { id = 'EmbarkToTransport', + params = { x = Point.x, + y = Point.y, + zoneRadius = Radius, + } + } + + self:T3( { DCSTask } ) + return DCSTask +end + + + +--- (AIR + GROUND) Return a mission task from a mission template. +-- @param #CONTROLLABLE self +-- @param #table TaskMission A table containing the mission task. +-- @return DCSTask#Task +function CONTROLLABLE:TaskMission( TaskMission ) + self:F2( Points ) + + local DCSTask + DCSTask = { id = 'Mission', params = { TaskMission, }, } + + self:T3( { DCSTask } ) + return DCSTask +end + +--- Return a Misson task to follow a given route defined by Points. +-- @param #CONTROLLABLE self +-- @param #table Points A table of route points. +-- @return DCSTask#Task +function CONTROLLABLE:TaskRoute( Points ) + self:F2( Points ) + + local DCSTask + DCSTask = { id = 'Mission', params = { route = { points = Points, }, }, } + + self:T3( { DCSTask } ) + return DCSTask +end + +--- (AIR + GROUND) Make the Controllable move to fly to a given point. +-- @param #CONTROLLABLE self +-- @param DCSTypes#Vec3 Point The destination point in Vec3 format. +-- @param #number Speed The speed to travel. +-- @return #CONTROLLABLE self +function CONTROLLABLE:TaskRouteToVec2( Point, Speed ) + self:F2( { Point, Speed } ) + + local ControllablePoint = self:GetUnit( 1 ):GetPointVec2() + + local PointFrom = {} + PointFrom.x = ControllablePoint.x + PointFrom.y = ControllablePoint.y + PointFrom.type = "Turning Point" + PointFrom.action = "Turning Point" + PointFrom.speed = Speed + PointFrom.speed_locked = true + PointFrom.properties = { + ["vnav"] = 1, + ["scale"] = 0, + ["angle"] = 0, + ["vangle"] = 0, + ["steer"] = 2, + } + + + local PointTo = {} + PointTo.x = Point.x + PointTo.y = Point.y + PointTo.type = "Turning Point" + PointTo.action = "Fly Over Point" + PointTo.speed = Speed + PointTo.speed_locked = true + PointTo.properties = { + ["vnav"] = 1, + ["scale"] = 0, + ["angle"] = 0, + ["vangle"] = 0, + ["steer"] = 2, + } + + + local Points = { PointFrom, PointTo } + + self:T3( Points ) + + self:Route( Points ) + + return self +end + +--- (AIR + GROUND) Make the Controllable move to a given point. +-- @param #CONTROLLABLE self +-- @param DCSTypes#Vec3 Point The destination point in Vec3 format. +-- @param #number Speed The speed to travel. +-- @return #CONTROLLABLE self +function CONTROLLABLE:TaskRouteToVec3( Point, Speed ) + self:F2( { Point, Speed } ) + + local ControllablePoint = self:GetUnit( 1 ):GetPointVec3() + + local PointFrom = {} + PointFrom.x = ControllablePoint.x + PointFrom.y = ControllablePoint.z + PointFrom.alt = ControllablePoint.y + PointFrom.alt_type = "BARO" + PointFrom.type = "Turning Point" + PointFrom.action = "Turning Point" + PointFrom.speed = Speed + PointFrom.speed_locked = true + PointFrom.properties = { + ["vnav"] = 1, + ["scale"] = 0, + ["angle"] = 0, + ["vangle"] = 0, + ["steer"] = 2, + } + + + local PointTo = {} + PointTo.x = Point.x + PointTo.y = Point.z + PointTo.alt = Point.y + PointTo.alt_type = "BARO" + PointTo.type = "Turning Point" + PointTo.action = "Fly Over Point" + PointTo.speed = Speed + PointTo.speed_locked = true + PointTo.properties = { + ["vnav"] = 1, + ["scale"] = 0, + ["angle"] = 0, + ["vangle"] = 0, + ["steer"] = 2, + } + + + local Points = { PointFrom, PointTo } + + self:T3( Points ) + + self:Route( Points ) + + return self +end + + + +--- Make the controllable to follow a given route. +-- @param #CONTROLLABLE self +-- @param #table GoPoints A table of Route Points. +-- @return #CONTROLLABLE self +function CONTROLLABLE:Route( GoPoints ) + self:F2( GoPoints ) + + local DCSControllable = self:GetDCSObject() + + if DCSControllable then + local Points = routines.utils.deepCopy( GoPoints ) + local MissionTask = { id = 'Mission', params = { route = { points = Points, }, }, } + local Controller = self:_GetController() + --Controller.setTask( Controller, MissionTask ) + SCHEDULER:New( Controller, Controller.setTask, { MissionTask }, 1 ) + return self + end + + return nil +end + + + +--- (AIR + GROUND) Route the controllable to a given zone. +-- The controllable final destination point can be randomized. +-- A speed can be given in km/h. +-- A given formation can be given. +-- @param #CONTROLLABLE self +-- @param Zone#ZONE Zone The zone where to route to. +-- @param #boolean Randomize Defines whether to target point gets randomized within the Zone. +-- @param #number Speed The speed. +-- @param Base#FORMATION Formation The formation string. +function CONTROLLABLE:TaskRouteToZone( Zone, Randomize, Speed, Formation ) + self:F2( Zone ) + + local DCSControllable = self:GetDCSObject() + + if DCSControllable then + + local ControllablePoint = self:GetPointVec2() + + local PointFrom = {} + PointFrom.x = ControllablePoint.x + PointFrom.y = ControllablePoint.y + PointFrom.type = "Turning Point" + PointFrom.action = "Cone" + PointFrom.speed = 20 / 1.6 + + + local PointTo = {} + local ZonePoint + + if Randomize then + ZonePoint = Zone:GetRandomVec2() + else + ZonePoint = Zone:GetPointVec2() + end + + PointTo.x = ZonePoint.x + PointTo.y = ZonePoint.y + PointTo.type = "Turning Point" + + if Formation then + PointTo.action = Formation + else + PointTo.action = "Cone" + end + + if Speed then + PointTo.speed = Speed + else + PointTo.speed = 20 / 1.6 + end + + local Points = { PointFrom, PointTo } + + self:T3( Points ) + + self:Route( Points ) + + return self + end + + return nil +end + +--- (AIR) Return the Controllable to an @{Airbase#AIRBASE} +-- A speed can be given in km/h. +-- A given formation can be given. +-- @param #CONTROLLABLE self +-- @param Airbase#AIRBASE ReturnAirbase The @{Airbase#AIRBASE} to return to. +-- @param #number Speed (optional) The speed. +-- @return #string The route +function CONTROLLABLE:RouteReturnToAirbase( ReturnAirbase, Speed ) + self:F2( { ReturnAirbase, Speed } ) + +-- Example +-- [4] = +-- { +-- ["alt"] = 45, +-- ["type"] = "Land", +-- ["action"] = "Landing", +-- ["alt_type"] = "BARO", +-- ["formation_template"] = "", +-- ["properties"] = +-- { +-- ["vnav"] = 1, +-- ["scale"] = 0, +-- ["angle"] = 0, +-- ["vangle"] = 0, +-- ["steer"] = 2, +-- }, -- end of ["properties"] +-- ["ETA"] = 527.81058817743, +-- ["airdromeId"] = 12, +-- ["y"] = 243127.2973737, +-- ["x"] = -5406.2803440839, +-- ["name"] = "DictKey_WptName_53", +-- ["speed"] = 138.88888888889, +-- ["ETA_locked"] = false, +-- ["task"] = +-- { +-- ["id"] = "ComboTask", +-- ["params"] = +-- { +-- ["tasks"] = +-- { +-- }, -- end of ["tasks"] +-- }, -- end of ["params"] +-- }, -- end of ["task"] +-- ["speed_locked"] = true, +-- }, -- end of [4] + + + local DCSControllable = self:GetDCSObject() + + if DCSControllable then + + local ControllablePoint = self:GetPointVec2() + local ControllableVelocity = self:GetMaxVelocity() + + local PointFrom = {} + PointFrom.x = ControllablePoint.x + PointFrom.y = ControllablePoint.y + PointFrom.type = "Turning Point" + PointFrom.action = "Turning Point" + PointFrom.speed = ControllableVelocity + + + local PointTo = {} + local AirbasePoint = ReturnAirbase:GetPointVec2() + + PointTo.x = AirbasePoint.x + PointTo.y = AirbasePoint.y + PointTo.type = "Land" + PointTo.action = "Landing" + PointTo.airdromeId = ReturnAirbase:GetID()-- Airdrome ID + self:T(PointTo.airdromeId) + --PointTo.alt = 0 + + local Points = { PointFrom, PointTo } + + self:T3( Points ) + + local Route = { points = Points, } + + return Route + end + + return nil +end + +-- Commands + +--- Do Script command +-- @param #CONTROLLABLE self +-- @param #string DoScript +-- @return #DCSCommand +function CONTROLLABLE:CommandDoScript( DoScript ) + + local DCSDoScript = { + id = "Script", + params = { + command = DoScript, + }, + } + + self:T3( DCSDoScript ) + return DCSDoScript +end + + +--- Return the mission template of the controllable. +-- @param #CONTROLLABLE self +-- @return #table The MissionTemplate +-- TODO: Rework the method how to retrieve a template ... +function CONTROLLABLE:GetTaskMission() + self:F2( self.ControllableName ) + + return routines.utils.deepCopy( _DATABASE.Templates.Controllables[self.ControllableName].Template ) +end + +--- Return the mission route of the controllable. +-- @param #CONTROLLABLE self +-- @return #table The mission route defined by points. +function CONTROLLABLE:GetTaskRoute() + self:F2( self.ControllableName ) + + return routines.utils.deepCopy( _DATABASE.Templates.Controllables[self.ControllableName].Template.route.points ) +end + +--- Return the route of a controllable by using the @{Database#DATABASE} class. +-- @param #CONTROLLABLE self +-- @param #number Begin The route point from where the copy will start. The base route point is 0. +-- @param #number End The route point where the copy will end. The End point is the last point - the End point. The last point has base 0. +-- @param #boolean Randomize Randomization of the route, when true. +-- @param #number Radius When randomization is on, the randomization is within the radius. +function CONTROLLABLE:CopyRoute( Begin, End, Randomize, Radius ) + self:F2( { Begin, End } ) + + local Points = {} + + -- Could be a Spawned Controllable + local ControllableName = string.match( self:GetName(), ".*#" ) + if ControllableName then + ControllableName = ControllableName:sub( 1, -2 ) + else + ControllableName = self:GetName() + end + + self:T3( { ControllableName } ) + + local Template = _DATABASE.Templates.Controllables[ControllableName].Template + + if Template then + if not Begin then + Begin = 0 + end + if not End then + End = 0 + end + + for TPointID = Begin + 1, #Template.route.points - End do + if Template.route.points[TPointID] then + Points[#Points+1] = routines.utils.deepCopy( Template.route.points[TPointID] ) + if Randomize then + if not Radius then + Radius = 500 + end + Points[#Points].x = Points[#Points].x + math.random( Radius * -1, Radius ) + Points[#Points].y = Points[#Points].y + math.random( Radius * -1, Radius ) + end + end + end + return Points + else + error( "Template not found for Controllable : " .. ControllableName ) + end + + return nil +end + + +--- Return the detected targets of the controllable. +-- The optional parametes specify the detection methods that can be applied. +-- If no detection method is given, the detection will use all the available methods by default. +-- @param Controllable#CONTROLLABLE self +-- @param #boolean DetectVisual (optional) +-- @param #boolean DetectOptical (optional) +-- @param #boolean DetectRadar (optional) +-- @param #boolean DetectIRST (optional) +-- @param #boolean DetectRWR (optional) +-- @param #boolean DetectDLINK (optional) +-- @return #table DetectedTargets +function CONTROLLABLE:GetDetectedTargets( DetectVisual, DetectOptical, DetectRadar, DetectIRST, DetectRWR, DetectDLINK ) + self:F2( self.ControllableName ) + + local DCSControllable = self:GetDCSObject() + if DCSControllable then + local DetectionVisual = ( DetectVisual and DetectVisual == true ) and Controller.Detection.VISUAL or nil + local DetectionOptical = ( DetectOptical and DetectOptical == true ) and Controller.Detection.OPTICAL or nil + local DetectionRadar = ( DetectRadar and DetectRadar == true ) and Controller.Detection.RADAR or nil + local DetectionIRST = ( DetectIRST and DetectIRST == true ) and Controller.Detection.IRST or nil + local DetectionRWR = ( DetectRWR and DetectRWR == true ) and Controller.Detection.RWR or nil + local DetectionDLINK = ( DetectDLINK and DetectDLINK == true ) and Controller.Detection.DLINK or nil + + + return self:_GetController():getDetectedTargets( DetectionVisual, DetectionOptical, DetectionRadar, DetectionIRST, DetectionRWR, DetectionDLINK ) + end + + return nil +end + +function CONTROLLABLE:IsTargetDetected( DCSObject ) + self:F2( self.ControllableName ) + + local DCSControllable = self:GetDCSObject() + if DCSControllable then + + local TargetIsDetected, TargetIsVisible, TargetLastTime, TargetKnowType, TargetKnowDistance, TargetLastPos, TargetLastVelocity + = self:_GetController().isTargetDetected( self:_GetController(), DCSObject, + Controller.Detection.VISUAL, + Controller.Detection.OPTIC, + Controller.Detection.RADAR, + Controller.Detection.IRST, + Controller.Detection.RWR, + Controller.Detection.DLINK + ) + return TargetIsDetected, TargetIsVisible, TargetLastTime, TargetKnowType, TargetKnowDistance, TargetLastPos, TargetLastVelocity + end + + return nil +end + +-- Options + +--- Can the CONTROLLABLE hold their weapons? +-- @param #CONTROLLABLE self +-- @return #boolean +function CONTROLLABLE:OptionROEHoldFirePossible() + self:F2( { self.ControllableName } ) + + local DCSControllable = self:GetDCSObject() + if DCSControllable then + if self:IsAir() or self:IsGround() or self:IsShip() then + return true + end + + return false + end + + return nil +end + +--- Holding weapons. +-- @param Controllable#CONTROLLABLE self +-- @return Controllable#CONTROLLABLE self +function CONTROLLABLE:OptionROEHoldFire() + self:F2( { self.ControllableName } ) + + local DCSControllable = self:GetDCSObject() + if DCSControllable then + local Controller = self:_GetController() + + if self:IsAir() then + Controller:setOption( AI.Option.Air.id.ROE, AI.Option.Air.val.ROE.WEAPON_HOLD ) + elseif self:IsGround() then + Controller:setOption( AI.Option.Ground.id.ROE, AI.Option.Ground.val.ROE.WEAPON_HOLD ) + elseif self:IsShip() then + Controller:setOption( AI.Option.Naval.id.ROE, AI.Option.Naval.val.ROE.WEAPON_HOLD ) + end + + return self + end + + return nil +end + +--- Can the CONTROLLABLE attack returning on enemy fire? +-- @param #CONTROLLABLE self +-- @return #boolean +function CONTROLLABLE:OptionROEReturnFirePossible() + self:F2( { self.ControllableName } ) + + local DCSControllable = self:GetDCSObject() + if DCSControllable then + if self:IsAir() or self:IsGround() or self:IsShip() then + return true + end + + return false + end + + return nil +end + +--- Return fire. +-- @param #CONTROLLABLE self +-- @return #CONTROLLABLE self +function CONTROLLABLE:OptionROEReturnFire() + self:F2( { self.ControllableName } ) + + local DCSControllable = self:GetDCSObject() + if DCSControllable then + local Controller = self:_GetController() + + if self:IsAir() then + Controller:setOption( AI.Option.Air.id.ROE, AI.Option.Air.val.ROE.RETURN_FIRE ) + elseif self:IsGround() then + Controller:setOption( AI.Option.Ground.id.ROE, AI.Option.Ground.val.ROE.RETURN_FIRE ) + elseif self:IsShip() then + Controller:setOption( AI.Option.Naval.id.ROE, AI.Option.Naval.val.ROE.RETURN_FIRE ) + end + + return self + end + + return nil +end + +--- Can the CONTROLLABLE attack designated targets? +-- @param #CONTROLLABLE self +-- @return #boolean +function CONTROLLABLE:OptionROEOpenFirePossible() + self:F2( { self.ControllableName } ) + + local DCSControllable = self:GetDCSObject() + if DCSControllable then + if self:IsAir() or self:IsGround() or self:IsShip() then + return true + end + + return false + end + + return nil +end + +--- Openfire. +-- @param #CONTROLLABLE self +-- @return #CONTROLLABLE self +function CONTROLLABLE:OptionROEOpenFire() + self:F2( { self.ControllableName } ) + + local DCSControllable = self:GetDCSObject() + if DCSControllable then + local Controller = self:_GetController() + + if self:IsAir() then + Controller:setOption( AI.Option.Air.id.ROE, AI.Option.Air.val.ROE.OPEN_FIRE ) + elseif self:IsGround() then + Controller:setOption( AI.Option.Ground.id.ROE, AI.Option.Ground.val.ROE.OPEN_FIRE ) + elseif self:IsShip() then + Controller:setOption( AI.Option.Naval.id.ROE, AI.Option.Naval.val.ROE.OPEN_FIRE ) + end + + return self + end + + return nil +end + +--- Can the CONTROLLABLE attack targets of opportunity? +-- @param #CONTROLLABLE self +-- @return #boolean +function CONTROLLABLE:OptionROEWeaponFreePossible() + self:F2( { self.ControllableName } ) + + local DCSControllable = self:GetDCSObject() + if DCSControllable then + if self:IsAir() then + return true + end + + return false + end + + return nil +end + +--- Weapon free. +-- @param #CONTROLLABLE self +-- @return #CONTROLLABLE self +function CONTROLLABLE:OptionROEWeaponFree() + self:F2( { self.ControllableName } ) + + local DCSControllable = self:GetDCSObject() + if DCSControllable then + local Controller = self:_GetController() + + if self:IsAir() then + Controller:setOption( AI.Option.Air.id.ROE, AI.Option.Air.val.ROE.WEAPON_FREE ) + end + + return self + end + + return nil +end + +--- Can the CONTROLLABLE ignore enemy fire? +-- @param #CONTROLLABLE self +-- @return #boolean +function CONTROLLABLE:OptionROTNoReactionPossible() + self:F2( { self.ControllableName } ) + + local DCSControllable = self:GetDCSObject() + if DCSControllable then + if self:IsAir() then + return true + end + + return false + end + + return nil +end + + +--- No evasion on enemy threats. +-- @param #CONTROLLABLE self +-- @return #CONTROLLABLE self +function CONTROLLABLE:OptionROTNoReaction() + self:F2( { self.ControllableName } ) + + local DCSControllable = self:GetDCSObject() + if DCSControllable then + local Controller = self:_GetController() + + if self:IsAir() then + Controller:setOption( AI.Option.Air.id.REACTION_ON_THREAT, AI.Option.Air.val.REACTION_ON_THREAT.NO_REACTION ) + end + + return self + end + + return nil +end + +--- Can the CONTROLLABLE evade using passive defenses? +-- @param #CONTROLLABLE self +-- @return #boolean +function CONTROLLABLE:OptionROTPassiveDefensePossible() + self:F2( { self.ControllableName } ) + + local DCSControllable = self:GetDCSObject() + if DCSControllable then + if self:IsAir() then + return true + end + + return false + end + + return nil +end + +--- Evasion passive defense. +-- @param #CONTROLLABLE self +-- @return #CONTROLLABLE self +function CONTROLLABLE:OptionROTPassiveDefense() + self:F2( { self.ControllableName } ) + + local DCSControllable = self:GetDCSObject() + if DCSControllable then + local Controller = self:_GetController() + + if self:IsAir() then + Controller:setOption( AI.Option.Air.id.REACTION_ON_THREAT, AI.Option.Air.val.REACTION_ON_THREAT.PASSIVE_DEFENCE ) + end + + return self + end + + return nil +end + +--- Can the CONTROLLABLE evade on enemy fire? +-- @param #CONTROLLABLE self +-- @return #boolean +function CONTROLLABLE:OptionROTEvadeFirePossible() + self:F2( { self.ControllableName } ) + + local DCSControllable = self:GetDCSObject() + if DCSControllable then + if self:IsAir() then + return true + end + + return false + end + + return nil +end + + +--- Evade on fire. +-- @param #CONTROLLABLE self +-- @return #CONTROLLABLE self +function CONTROLLABLE:OptionROTEvadeFire() + self:F2( { self.ControllableName } ) + + local DCSControllable = self:GetDCSObject() + if DCSControllable then + local Controller = self:_GetController() + + if self:IsAir() then + Controller:setOption( AI.Option.Air.id.REACTION_ON_THREAT, AI.Option.Air.val.REACTION_ON_THREAT.EVADE_FIRE ) + end + + return self + end + + return nil +end + +--- Can the CONTROLLABLE evade on fire using vertical manoeuvres? +-- @param #CONTROLLABLE self +-- @return #boolean +function CONTROLLABLE:OptionROTVerticalPossible() + self:F2( { self.ControllableName } ) + + local DCSControllable = self:GetDCSObject() + if DCSControllable then + if self:IsAir() then + return true + end + + return false + end + + return nil +end + + +--- Evade on fire using vertical manoeuvres. +-- @param #CONTROLLABLE self +-- @return #CONTROLLABLE self +function CONTROLLABLE:OptionROTVertical() + self:F2( { self.ControllableName } ) + + local DCSControllable = self:GetDCSObject() + if DCSControllable then + local Controller = self:_GetController() + + if self:IsAir() then + Controller:setOption( AI.Option.Air.id.REACTION_ON_THREAT, AI.Option.Air.val.REACTION_ON_THREAT.BYPASS_AND_ESCAPE ) + end + + return self + end + + return nil +end + +--- Retrieve the controllable mission and allow to place function hooks within the mission waypoint plan. +-- Use the method @{Controllable#CONTROLLABLE:WayPointFunction} to define the hook functions for specific waypoints. +-- Use the method @{Controllable@CONTROLLABLE:WayPointExecute) to start the execution of the new mission plan. +-- Note that when WayPointInitialize is called, the Mission of the controllable is RESTARTED! +-- @param #CONTROLLABLE self +-- @param #table WayPoints If WayPoints is given, then use the route. +-- @return #CONTROLLABLE +function CONTROLLABLE:WayPointInitialize( WayPoints ) + + if WayPoints then + self.WayPoints = WayPoints + else + self.WayPoints = self:GetTaskRoute() + end + + return self +end + + +--- Registers a waypoint function that will be executed when the controllable moves over the WayPoint. +-- @param #CONTROLLABLE self +-- @param #number WayPoint The waypoint number. Note that the start waypoint on the route is WayPoint 1! +-- @param #number WayPointIndex When defining multiple WayPoint functions for one WayPoint, use WayPointIndex to set the sequence of actions. +-- @param #function WayPointFunction The waypoint function to be called when the controllable moves over the waypoint. The waypoint function takes variable parameters. +-- @return #CONTROLLABLE +function CONTROLLABLE:WayPointFunction( WayPoint, WayPointIndex, WayPointFunction, ... ) + self:F2( { WayPoint, WayPointIndex, WayPointFunction } ) + + table.insert( self.WayPoints[WayPoint].task.params.tasks, WayPointIndex ) + self.WayPoints[WayPoint].task.params.tasks[WayPointIndex] = self:TaskFunction( WayPoint, WayPointIndex, WayPointFunction, arg ) + return self +end + + +function CONTROLLABLE:TaskFunction( WayPoint, WayPointIndex, FunctionString, FunctionArguments ) + self:F2( { WayPoint, WayPointIndex, FunctionString, FunctionArguments } ) + + local DCSTask + + local DCSScript = {} + DCSScript[#DCSScript+1] = "local MissionControllable = CONTROLLABLE:Find( ... ) " + + if FunctionArguments and #FunctionArguments > 0 then + DCSScript[#DCSScript+1] = FunctionString .. "( MissionControllable, " .. table.concat( FunctionArguments, "," ) .. ")" + else + DCSScript[#DCSScript+1] = FunctionString .. "( MissionControllable )" + end + + DCSTask = self:TaskWrappedAction( + self:CommandDoScript( + table.concat( DCSScript ) + ), WayPointIndex + ) + + self:T3( DCSTask ) + + return DCSTask + +end + +--- Executes the WayPoint plan. +-- The function gets a WayPoint parameter, that you can use to restart the mission at a specific WayPoint. +-- Note that when the WayPoint parameter is used, the new start mission waypoint of the controllable will be 1! +-- @param #CONTROLLABLE self +-- @param #number WayPoint The WayPoint from where to execute the mission. +-- @param #number WaitTime The amount seconds to wait before initiating the mission. +-- @return #CONTROLLABLE +function CONTROLLABLE:WayPointExecute( WayPoint, WaitTime ) + + if not WayPoint then + WayPoint = 1 + end + + -- When starting the mission from a certain point, the TaskPoints need to be deleted before the given WayPoint. + for TaskPointID = 1, WayPoint - 1 do + table.remove( self.WayPoints, 1 ) + end + + self:T3( self.WayPoints ) + + self:SetTask( self:TaskRoute( self.WayPoints ), WaitTime ) + + return self +end + + +--- This module contains the SCHEDULER class. +-- +-- 1) @{Scheduler#SCHEDULER} class, extends @{Base#BASE} +-- ===================================================== +-- The @{Scheduler#SCHEDULER} class models time events calling given event handling functions. +-- +-- 1.1) SCHEDULER constructor +-- -------------------------- +-- The SCHEDULER class is quite easy to use: +-- +-- * @{Scheduler#SCHEDULER.New}: Setup a new scheduler and start it with the specified parameters. +-- +-- 1.2) SCHEDULER timer stop and start +-- ----------------------------------- +-- The SCHEDULER can be stopped and restarted with the following methods: +-- +-- * @{Scheduler#SCHEDULER.Start}: (Re-)Start the scheduler. +-- * @{Scheduler#SCHEDULER.Stop}: Stop the scheduler. +-- +-- @module Scheduler +-- @author FlightControl + + +--- The SCHEDULER class +-- @type SCHEDULER +-- @field #number ScheduleID the ID of the scheduler. +-- @extends Base#BASE +SCHEDULER = { + ClassName = "SCHEDULER", +} + +--- SCHEDULER constructor. +-- @param #SCHEDULER self +-- @param #table TimeEventObject Specified for which Moose object the timer is setup. If a value of nil is provided, a scheduler will be setup without an object reference. +-- @param #function TimeEventFunction The event function to be called when a timer event occurs. The event function needs to accept the parameters specified in TimeEventFunctionArguments. +-- @param #table TimeEventFunctionArguments Optional arguments that can be given as part of scheduler. The arguments need to be given as a table { param1, param 2, ... }. +-- @param #number StartSeconds Specifies the amount of seconds that will be waited before the scheduling is started, and the event function is called. +-- @param #number RepeatSecondsInterval Specifies the interval in seconds when the scheduler will call the event function. +-- @param #number RandomizationFactor Specifies a randomization factor between 0 and 1 to randomize the RepeatSecondsInterval. +-- @param #number StopSeconds Specifies the amount of seconds when the scheduler will be stopped. +-- @return #SCHEDULER self +function SCHEDULER:New( TimeEventObject, TimeEventFunction, TimeEventFunctionArguments, StartSeconds, RepeatSecondsInterval, RandomizationFactor, StopSeconds ) + local self = BASE:Inherit( self, BASE:New() ) + self:F2( { TimeEventObject, TimeEventFunction, TimeEventFunctionArguments, StartSeconds, RepeatSecondsInterval, RandomizationFactor, StopSeconds } ) + + self.TimeEventObject = TimeEventObject + self.TimeEventFunction = TimeEventFunction + self.TimeEventFunctionArguments = TimeEventFunctionArguments + self.StartSeconds = StartSeconds + self.Repeat = false + + if RepeatSecondsInterval then + self.RepeatSecondsInterval = RepeatSecondsInterval + else + self.RepeatSecondsInterval = 0 + end + + if RandomizationFactor then + self.RandomizationFactor = RandomizationFactor + else + self.RandomizationFactor = 0 + end + + if StopSeconds then + self.StopSeconds = StopSeconds + end + + + self.StartTime = timer.getTime() + + self:Start() + + return self +end + +--- (Re-)Starts the scheduler. +-- @param #SCHEDULER self +-- @return #SCHEDULER self +function SCHEDULER:Start() + self:F2( self.TimeEventObject ) + + if self.RepeatSecondsInterval ~= 0 then + self.Repeat = true + end + self.ScheduleID = timer.scheduleFunction( self._Scheduler, self, timer.getTime() + self.StartSeconds + .01 ) + + return self +end + +--- Stops the scheduler. +-- @param #SCHEDULER self +-- @return #SCHEDULER self +function SCHEDULER:Stop() + self:F2( self.TimeEventObject ) + + self.Repeat = false + if self.ScheduleID then + timer.removeFunction( self.ScheduleID ) + end + self.ScheduleID = nil + + return self +end + +-- Private Functions + +--- @param #SCHEDULER self +function SCHEDULER:_Scheduler() + self:F2( self.TimeEventFunctionArguments ) + + local ErrorHandler = function( errmsg ) + + env.info( "Error in SCHEDULER function:" .. errmsg ) + if debug ~= nil then + env.info( debug.traceback() ) + end + + return errmsg + end + + local Status, Result + if self.TimeEventObject then + Status, Result = xpcall( function() return self.TimeEventFunction( self.TimeEventObject, unpack( self.TimeEventFunctionArguments ) ) end, ErrorHandler ) + else + Status, Result = xpcall( function() return self.TimeEventFunction( unpack( self.TimeEventFunctionArguments ) ) end, ErrorHandler ) + end + + self:T( { self.TimeEventFunctionArguments, Status, Result, self.StartTime, self.RepeatSecondsInterval, self.RandomizationFactor, self.StopSeconds } ) + + if Status and ( ( Result == nil ) or ( Result and Result ~= false ) ) then + if self.Repeat and ( not self.StopSeconds or ( self.StopSeconds and timer.getTime() <= self.StartTime + self.StopSeconds ) ) then + local ScheduleTime = + timer.getTime() + + self.RepeatSecondsInterval + + math.random( + - ( self.RandomizationFactor * self.RepeatSecondsInterval / 2 ), + ( self.RandomizationFactor * self.RepeatSecondsInterval / 2 ) + ) + + 0.01 + self:T( { self.TimeEventFunctionArguments, "Repeat:", timer.getTime(), ScheduleTime } ) + return ScheduleTime -- returns the next time the function needs to be called. + else + timer.removeFunction( self.ScheduleID ) + self.ScheduleID = nil + end + else + timer.removeFunction( self.ScheduleID ) + self.ScheduleID = nil + end + + return nil +end + + + + + + + + + + + + + + + + +--- The EVENT class models an efficient event handling process between other classes and its units, weapons. +-- @module Event +-- @author FlightControl + +--- The EVENT structure +-- @type EVENT +-- @field #EVENT.Events Events +EVENT = { + ClassName = "EVENT", + ClassID = 0, +} + +local _EVENTCODES = { + "S_EVENT_SHOT", + "S_EVENT_HIT", + "S_EVENT_TAKEOFF", + "S_EVENT_LAND", + "S_EVENT_CRASH", + "S_EVENT_EJECTION", + "S_EVENT_REFUELING", + "S_EVENT_DEAD", + "S_EVENT_PILOT_DEAD", + "S_EVENT_BASE_CAPTURED", + "S_EVENT_MISSION_START", + "S_EVENT_MISSION_END", + "S_EVENT_TOOK_CONTROL", + "S_EVENT_REFUELING_STOP", + "S_EVENT_BIRTH", + "S_EVENT_HUMAN_FAILURE", + "S_EVENT_ENGINE_STARTUP", + "S_EVENT_ENGINE_SHUTDOWN", + "S_EVENT_PLAYER_ENTER_UNIT", + "S_EVENT_PLAYER_LEAVE_UNIT", + "S_EVENT_PLAYER_COMMENT", + "S_EVENT_SHOOTING_START", + "S_EVENT_SHOOTING_END", + "S_EVENT_MAX", +} + +--- The Event structure +-- @type EVENTDATA +-- @field id +-- @field initiator +-- @field target +-- @field weapon +-- @field IniDCSUnit +-- @field IniDCSUnitName +-- @field Unit#UNIT IniUnit +-- @field #string IniUnitName +-- @field IniDCSGroup +-- @field IniDCSGroupName +-- @field TgtDCSUnit +-- @field TgtDCSUnitName +-- @field Unit#UNIT TgtUnit +-- @field #string TgtUnitName +-- @field TgtDCSGroup +-- @field TgtDCSGroupName +-- @field Weapon +-- @field WeaponName +-- @field WeaponTgtDCSUnit + +--- The Events structure +-- @type EVENT.Events +-- @field #number IniUnit + +function EVENT:New() + local self = BASE:Inherit( self, BASE:New() ) + self:F2() + self.EventHandler = world.addEventHandler( self ) + return self +end + +function EVENT:EventText( EventID ) + + local EventText = _EVENTCODES[EventID] + + return EventText +end + + +--- Initializes the Events structure for the event +-- @param #EVENT self +-- @param DCSWorld#world.event EventID +-- @param #string EventClass +-- @return #EVENT.Events +function EVENT:Init( EventID, EventClass ) + self:F3( { _EVENTCODES[EventID], EventClass } ) + if not self.Events[EventID] then + self.Events[EventID] = {} + end + if not self.Events[EventID][EventClass] then + self.Events[EventID][EventClass] = {} + end + return self.Events[EventID][EventClass] +end + + +--- Create an OnDead event handler for a group +-- @param #EVENT self +-- @param #table EventTemplate +-- @param #function EventFunction The function to be called when the event occurs for the unit. +-- @param EventSelf The self instance of the class for which the event is. +-- @param #function OnEventFunction +-- @return #EVENT +function EVENT:OnEventForTemplate( EventTemplate, EventFunction, EventSelf, OnEventFunction ) + self:F2( EventTemplate.name ) + + for EventUnitID, EventUnit in pairs( EventTemplate.units ) do + OnEventFunction( self, EventUnit.name, EventFunction, EventSelf ) + end + return self +end + +--- Set a new listener for an S_EVENT_X event independent from a unit or a weapon. +-- @param #EVENT self +-- @param #function EventFunction The function to be called when the event occurs for the unit. +-- @param Base#BASE EventSelf The self instance of the class for which the event is. +-- @param EventID +-- @return #EVENT +function EVENT:OnEventGeneric( EventFunction, EventSelf, EventID ) + self:F2( { EventID } ) + + local Event = self:Init( EventID, EventSelf:GetClassNameAndID() ) + Event.EventFunction = EventFunction + Event.EventSelf = EventSelf + return self +end + + +--- Set a new listener for an S_EVENT_X event +-- @param #EVENT self +-- @param #string EventDCSUnitName +-- @param #function EventFunction The function to be called when the event occurs for the unit. +-- @param Base#BASE EventSelf The self instance of the class for which the event is. +-- @param EventID +-- @return #EVENT +function EVENT:OnEventForUnit( EventDCSUnitName, EventFunction, EventSelf, EventID ) + self:F2( EventDCSUnitName ) + + local Event = self:Init( EventID, EventSelf:GetClassNameAndID() ) + if not Event.IniUnit then + Event.IniUnit = {} + end + Event.IniUnit[EventDCSUnitName] = {} + Event.IniUnit[EventDCSUnitName].EventFunction = EventFunction + Event.IniUnit[EventDCSUnitName].EventSelf = EventSelf + return self +end + + +--- Create an OnBirth event handler for a group +-- @param #EVENT self +-- @param Group#GROUP EventGroup +-- @param #function EventFunction The function to be called when the event occurs for the unit. +-- @param EventSelf The self instance of the class for which the event is. +-- @return #EVENT +function EVENT:OnBirthForTemplate( EventTemplate, EventFunction, EventSelf ) + self:F2( EventTemplate.name ) + + self:OnEventForTemplate( EventTemplate, EventFunction, EventSelf, self.OnBirthForUnit ) + + return self +end + +--- Set a new listener for an S_EVENT_BIRTH event, and registers the unit born. +-- @param #EVENT self +-- @param #function EventFunction The function to be called when the event occurs for the unit. +-- @param Base#BASE EventSelf +-- @return #EVENT +function EVENT:OnBirth( EventFunction, EventSelf ) + self:F2() + + self:OnEventGeneric( EventFunction, EventSelf, world.event.S_EVENT_BIRTH ) + + return self +end + +--- Set a new listener for an S_EVENT_BIRTH event. +-- @param #EVENT self +-- @param #string EventDCSUnitName The id of the unit for the event to be handled. +-- @param #function EventFunction The function to be called when the event occurs for the unit. +-- @param Base#BASE EventSelf +-- @return #EVENT +function EVENT:OnBirthForUnit( EventDCSUnitName, EventFunction, EventSelf ) + self:F2( EventDCSUnitName ) + + self:OnEventForUnit( EventDCSUnitName, EventFunction, EventSelf, world.event.S_EVENT_BIRTH ) + + return self +end + +--- Create an OnCrash event handler for a group +-- @param #EVENT self +-- @param Group#GROUP EventGroup +-- @param #function EventFunction The function to be called when the event occurs for the unit. +-- @param EventSelf The self instance of the class for which the event is. +-- @return #EVENT +function EVENT:OnCrashForTemplate( EventTemplate, EventFunction, EventSelf ) + self:F2( EventTemplate.name ) + + self:OnEventForTemplate( EventTemplate, EventFunction, EventSelf, self.OnCrashForUnit ) + + return self +end + +--- Set a new listener for an S_EVENT_CRASH event. +-- @param #EVENT self +-- @param #function EventFunction The function to be called when the event occurs for the unit. +-- @param Base#BASE EventSelf +-- @return #EVENT +function EVENT:OnCrash( EventFunction, EventSelf ) + self:F2() + + self:OnEventGeneric( EventFunction, EventSelf, world.event.S_EVENT_CRASH ) + + return self +end + +--- Set a new listener for an S_EVENT_CRASH event. +-- @param #EVENT self +-- @param #string EventDCSUnitName +-- @param #function EventFunction The function to be called when the event occurs for the unit. +-- @param Base#BASE EventSelf The self instance of the class for which the event is. +-- @return #EVENT +function EVENT:OnCrashForUnit( EventDCSUnitName, EventFunction, EventSelf ) + self:F2( EventDCSUnitName ) + + self:OnEventForUnit( EventDCSUnitName, EventFunction, EventSelf, world.event.S_EVENT_CRASH ) + + return self +end + +--- Create an OnDead event handler for a group +-- @param #EVENT self +-- @param Group#GROUP EventGroup +-- @param #function EventFunction The function to be called when the event occurs for the unit. +-- @param EventSelf The self instance of the class for which the event is. +-- @return #EVENT +function EVENT:OnDeadForTemplate( EventTemplate, EventFunction, EventSelf ) + self:F2( EventTemplate.name ) + + self:OnEventForTemplate( EventTemplate, EventFunction, EventSelf, self.OnDeadForUnit ) + + return self +end + +--- Set a new listener for an S_EVENT_DEAD event. +-- @param #EVENT self +-- @param #function EventFunction The function to be called when the event occurs for the unit. +-- @param Base#BASE EventSelf +-- @return #EVENT +function EVENT:OnDead( EventFunction, EventSelf ) + self:F2() + + self:OnEventGeneric( EventFunction, EventSelf, world.event.S_EVENT_DEAD ) + + return self +end + + +--- Set a new listener for an S_EVENT_DEAD event. +-- @param #EVENT self +-- @param #string EventDCSUnitName +-- @param #function EventFunction The function to be called when the event occurs for the unit. +-- @param Base#BASE EventSelf The self instance of the class for which the event is. +-- @return #EVENT +function EVENT:OnDeadForUnit( EventDCSUnitName, EventFunction, EventSelf ) + self:F2( EventDCSUnitName ) + + self:OnEventForUnit( EventDCSUnitName, EventFunction, EventSelf, world.event.S_EVENT_DEAD ) + + return self +end + +--- Set a new listener for an S_EVENT_PILOT_DEAD event. +-- @param #EVENT self +-- @param #string EventDCSUnitName +-- @param #function EventFunction The function to be called when the event occurs for the unit. +-- @param Base#BASE EventSelf The self instance of the class for which the event is. +-- @return #EVENT +function EVENT:OnPilotDeadForUnit( EventDCSUnitName, EventFunction, EventSelf ) + self:F2( EventDCSUnitName ) + + self:OnEventForUnit( EventDCSUnitName, EventFunction, EventSelf, world.event.S_EVENT_PILOT_DEAD ) + + return self +end + +--- Create an OnDead event handler for a group +-- @param #EVENT self +-- @param #table EventTemplate +-- @param #function EventFunction The function to be called when the event occurs for the unit. +-- @param EventSelf The self instance of the class for which the event is. +-- @return #EVENT +function EVENT:OnLandForTemplate( EventTemplate, EventFunction, EventSelf ) + self:F2( EventTemplate.name ) + + self:OnEventForTemplate( EventTemplate, EventFunction, EventSelf, self.OnLandForUnit ) + + return self +end + +--- Set a new listener for an S_EVENT_LAND event. +-- @param #EVENT self +-- @param #string EventDCSUnitName +-- @param #function EventFunction The function to be called when the event occurs for the unit. +-- @param Base#BASE EventSelf The self instance of the class for which the event is. +-- @return #EVENT +function EVENT:OnLandForUnit( EventDCSUnitName, EventFunction, EventSelf ) + self:F2( EventDCSUnitName ) + + self:OnEventForUnit( EventDCSUnitName, EventFunction, EventSelf, world.event.S_EVENT_LAND ) + + return self +end + +--- Create an OnDead event handler for a group +-- @param #EVENT self +-- @param #table EventTemplate +-- @param #function EventFunction The function to be called when the event occurs for the unit. +-- @param EventSelf The self instance of the class for which the event is. +-- @return #EVENT +function EVENT:OnTakeOffForTemplate( EventTemplate, EventFunction, EventSelf ) + self:F2( EventTemplate.name ) + + self:OnEventForTemplate( EventTemplate, EventFunction, EventSelf, self.OnTakeOffForUnit ) + + return self +end + +--- Set a new listener for an S_EVENT_TAKEOFF event. +-- @param #EVENT self +-- @param #string EventDCSUnitName +-- @param #function EventFunction The function to be called when the event occurs for the unit. +-- @param Base#BASE EventSelf The self instance of the class for which the event is. +-- @return #EVENT +function EVENT:OnTakeOffForUnit( EventDCSUnitName, EventFunction, EventSelf ) + self:F2( EventDCSUnitName ) + + self:OnEventForUnit( EventDCSUnitName, EventFunction, EventSelf, world.event.S_EVENT_TAKEOFF ) + + return self +end + +--- Create an OnDead event handler for a group +-- @param #EVENT self +-- @param #table EventTemplate +-- @param #function EventFunction The function to be called when the event occurs for the unit. +-- @param EventSelf The self instance of the class for which the event is. +-- @return #EVENT +function EVENT:OnEngineShutDownForTemplate( EventTemplate, EventFunction, EventSelf ) + self:F2( EventTemplate.name ) + + self:OnEventForTemplate( EventTemplate, EventFunction, EventSelf, self.OnEngineShutDownForUnit ) + + return self +end + +--- Set a new listener for an S_EVENT_ENGINE_SHUTDOWN event. +-- @param #EVENT self +-- @param #string EventDCSUnitName +-- @param #function EventFunction The function to be called when the event occurs for the unit. +-- @param Base#BASE EventSelf The self instance of the class for which the event is. +-- @return #EVENT +function EVENT:OnEngineShutDownForUnit( EventDCSUnitName, EventFunction, EventSelf ) + self:F2( EventDCSUnitName ) + + self:OnEventForUnit( EventDCSUnitName, EventFunction, EventSelf, world.event.S_EVENT_ENGINE_SHUTDOWN ) + + return self +end + +--- Set a new listener for an S_EVENT_ENGINE_STARTUP event. +-- @param #EVENT self +-- @param #string EventDCSUnitName +-- @param #function EventFunction The function to be called when the event occurs for the unit. +-- @param Base#BASE EventSelf The self instance of the class for which the event is. +-- @return #EVENT +function EVENT:OnEngineStartUpForUnit( EventDCSUnitName, EventFunction, EventSelf ) + self:F2( EventDCSUnitName ) + + self:OnEventForUnit( EventDCSUnitName, EventFunction, EventSelf, world.event.S_EVENT_ENGINE_STARTUP ) + + return self +end + +--- Set a new listener for an S_EVENT_SHOT event. +-- @param #EVENT self +-- @param #function EventFunction The function to be called when the event occurs for the unit. +-- @param Base#BASE EventSelf The self instance of the class for which the event is. +-- @return #EVENT +function EVENT:OnShot( EventFunction, EventSelf ) + self:F2() + + self:OnEventGeneric( EventFunction, EventSelf, world.event.S_EVENT_SHOT ) + + return self +end + +--- Set a new listener for an S_EVENT_SHOT event for a unit. +-- @param #EVENT self +-- @param #string EventDCSUnitName +-- @param #function EventFunction The function to be called when the event occurs for the unit. +-- @param Base#BASE EventSelf The self instance of the class for which the event is. +-- @return #EVENT +function EVENT:OnShotForUnit( EventDCSUnitName, EventFunction, EventSelf ) + self:F2( EventDCSUnitName ) + + self:OnEventForUnit( EventDCSUnitName, EventFunction, EventSelf, world.event.S_EVENT_SHOT ) + + return self +end + +--- Set a new listener for an S_EVENT_HIT event. +-- @param #EVENT self +-- @param #function EventFunction The function to be called when the event occurs for the unit. +-- @param Base#BASE EventSelf The self instance of the class for which the event is. +-- @return #EVENT +function EVENT:OnHit( EventFunction, EventSelf ) + self:F2() + + self:OnEventGeneric( EventFunction, EventSelf, world.event.S_EVENT_HIT ) + + return self +end + +--- Set a new listener for an S_EVENT_HIT event. +-- @param #EVENT self +-- @param #string EventDCSUnitName +-- @param #function EventFunction The function to be called when the event occurs for the unit. +-- @param Base#BASE EventSelf The self instance of the class for which the event is. +-- @return #EVENT +function EVENT:OnHitForUnit( EventDCSUnitName, EventFunction, EventSelf ) + self:F2( EventDCSUnitName ) + + self:OnEventForUnit( EventDCSUnitName, EventFunction, EventSelf, world.event.S_EVENT_HIT ) + + return self +end + +--- Set a new listener for an S_EVENT_PLAYER_ENTER_UNIT event. +-- @param #EVENT self +-- @param #function EventFunction The function to be called when the event occurs for the unit. +-- @param Base#BASE EventSelf The self instance of the class for which the event is. +-- @return #EVENT +function EVENT:OnPlayerEnterUnit( EventFunction, EventSelf ) + self:F2() + + self:OnEventGeneric( EventFunction, EventSelf, world.event.S_EVENT_PLAYER_ENTER_UNIT ) + + return self +end + +--- Set a new listener for an S_EVENT_PLAYER_LEAVE_UNIT event. +-- @param #EVENT self +-- @param #function EventFunction The function to be called when the event occurs for the unit. +-- @param Base#BASE EventSelf The self instance of the class for which the event is. +-- @return #EVENT +function EVENT:OnPlayerLeaveUnit( EventFunction, EventSelf ) + self:F2() + + self:OnEventGeneric( EventFunction, EventSelf, world.event.S_EVENT_PLAYER_LEAVE_UNIT ) + + return self +end + + +--- @param #EVENT self +-- @param #EVENTDATA Event +function EVENT:onEvent( Event ) + self:F2( { _EVENTCODES[Event.id], Event } ) + + if self and self.Events and self.Events[Event.id] then + if Event.initiator and Event.initiator:getCategory() == Object.Category.UNIT then + Event.IniDCSUnit = Event.initiator + Event.IniDCSGroup = Event.IniDCSUnit:getGroup() + Event.IniDCSUnitName = Event.IniDCSUnit:getName() + Event.IniUnitName = Event.IniDCSUnitName + Event.IniUnit = UNIT:FindByName( Event.IniDCSUnitName ) + Event.IniDCSGroupName = "" + if Event.IniDCSGroup and Event.IniDCSGroup:isExist() then + Event.IniDCSGroupName = Event.IniDCSGroup:getName() + end + end + if Event.target then + if Event.target and Event.target:getCategory() == Object.Category.UNIT then + Event.TgtDCSUnit = Event.target + Event.TgtDCSGroup = Event.TgtDCSUnit:getGroup() + Event.TgtDCSUnitName = Event.TgtDCSUnit:getName() + Event.TgtUnitName = Event.TgtDCSUnitName + Event.TgtUnit = UNIT:FindByName( Event.TgtDCSUnitName ) + Event.TgtDCSGroupName = "" + if Event.TgtDCSGroup and Event.TgtDCSGroup:isExist() then + Event.TgtDCSGroupName = Event.TgtDCSGroup:getName() + end + end + end + if Event.weapon then + Event.Weapon = Event.weapon + Event.WeaponName = Event.Weapon:getTypeName() + --Event.WeaponTgtDCSUnit = Event.Weapon:getTarget() + end + self:E( { _EVENTCODES[Event.id], Event.IniUnitName, Event.TgtUnitName, Event.WeaponName } ) + for ClassName, EventData in pairs( self.Events[Event.id] ) do + if Event.IniDCSUnitName and EventData.IniUnit and EventData.IniUnit[Event.IniDCSUnitName] then + self:E( { "Calling event function for class ", ClassName, " unit ", Event.IniDCSUnitName } ) + EventData.IniUnit[Event.IniDCSUnitName].EventFunction( EventData.IniUnit[Event.IniDCSUnitName].EventSelf, Event ) + else + if Event.IniDCSUnit and not EventData.IniUnit then + self:E( { "Calling event function for class ", ClassName } ) + EventData.EventFunction( EventData.EventSelf, Event ) + end + end + end + end +end + +--- Encapsulation of DCS World Menu system in a set of MENU classes. +-- @module Menu + +--- The MENU class +-- @type MENU +-- @extends Base#BASE +MENU = { + ClassName = "MENU", + MenuPath = nil, + MenuText = "", + MenuParentPath = nil +} + +--- +function MENU:New( MenuText, MenuParentPath ) + + -- Arrange meta tables + local Child = BASE:Inherit( self, BASE:New() ) + + Child.MenuPath = nil + Child.MenuText = MenuText + Child.MenuParentPath = MenuParentPath + return Child +end + +--- The COMMANDMENU class +-- @type COMMANDMENU +-- @extends Menu#MENU +COMMANDMENU = { + ClassName = "COMMANDMENU", + CommandMenuFunction = nil, + CommandMenuArgument = nil +} + +function COMMANDMENU:New( MenuText, ParentMenu, CommandMenuFunction, CommandMenuArgument ) + + -- Arrange meta tables + + local MenuParentPath = nil + if ParentMenu ~= nil then + MenuParentPath = ParentMenu.MenuPath + end + + local Child = BASE:Inherit( self, MENU:New( MenuText, MenuParentPath ) ) + + Child.MenuPath = missionCommands.addCommand( MenuText, MenuParentPath, CommandMenuFunction, CommandMenuArgument ) + Child.CommandMenuFunction = CommandMenuFunction + Child.CommandMenuArgument = CommandMenuArgument + return Child +end + +--- The SUBMENU class +-- @type SUBMENU +-- @extends Menu#MENU +SUBMENU = { + ClassName = "SUBMENU" +} + +function SUBMENU:New( MenuText, ParentMenu ) + + -- Arrange meta tables + local MenuParentPath = nil + if ParentMenu ~= nil then + MenuParentPath = ParentMenu.MenuPath + end + + local Child = BASE:Inherit( self, MENU:New( MenuText, MenuParentPath ) ) + + Child.MenuPath = missionCommands.addSubMenu( MenuText, MenuParentPath ) + return Child +end + +-- This local variable is used to cache the menus registered under clients. +-- Menus don't dissapear when clients are destroyed and restarted. +-- So every menu for a client created must be tracked so that program logic accidentally does not create +-- the same menus twice during initialization logic. +-- These menu classes are handling this logic with this variable. +local _MENUCLIENTS = {} + +--- The MENU_CLIENT class +-- @type MENU_CLIENT +-- @extends Menu#MENU +MENU_CLIENT = { + ClassName = "MENU_CLIENT" +} + +--- Creates a new menu item for a group +-- @param self +-- @param Client#CLIENT MenuClient The Client owning the menu. +-- @param #string MenuText The text for the menu. +-- @param #table ParentMenu The parent menu. +-- @return #MENU_CLIENT self +function MENU_CLIENT:New( MenuClient, MenuText, ParentMenu ) + + -- Arrange meta tables + local MenuParentPath = {} + if ParentMenu ~= nil then + MenuParentPath = ParentMenu.MenuPath + end + + local self = BASE:Inherit( self, MENU:New( MenuText, MenuParentPath ) ) + self:F( { MenuClient, MenuText, ParentMenu } ) + + self.MenuClient = MenuClient + self.MenuClientGroupID = MenuClient:GetClientGroupID() + self.MenuParentPath = MenuParentPath + self.MenuText = MenuText + self.ParentMenu = ParentMenu + + self.Menus = {} + + if not _MENUCLIENTS[self.MenuClientGroupID] then + _MENUCLIENTS[self.MenuClientGroupID] = {} + end + + local MenuPath = _MENUCLIENTS[self.MenuClientGroupID] + + self:T( { MenuClient:GetClientGroupName(), MenuPath[table.concat(MenuParentPath)], MenuParentPath, MenuText } ) + + local MenuPathID = table.concat(MenuParentPath) .. "/" .. MenuText + if MenuPath[MenuPathID] then + missionCommands.removeItemForGroup( self.MenuClient:GetClientGroupID(), MenuPath[MenuPathID] ) + end + + self.MenuPath = missionCommands.addSubMenuForGroup( self.MenuClient:GetClientGroupID(), MenuText, MenuParentPath ) + MenuPath[MenuPathID] = self.MenuPath + + self:T( { MenuClient:GetClientGroupName(), self.MenuPath } ) + + if ParentMenu and ParentMenu.Menus then + ParentMenu.Menus[self.MenuPath] = self + end + return self +end + +--- Removes the sub menus recursively of this MENU_CLIENT. +-- @param #MENU_CLIENT self +-- @return #MENU_CLIENT self +function MENU_CLIENT:RemoveSubMenus() + self:F( self.MenuPath ) + + for MenuID, Menu in pairs( self.Menus ) do + Menu:Remove() + end + +end + +--- Removes the sub menus recursively of this MENU_CLIENT. +-- @param #MENU_CLIENT self +-- @return #MENU_CLIENT self +function MENU_CLIENT:Remove() + self:F( self.MenuPath ) + + self:RemoveSubMenus() + + if not _MENUCLIENTS[self.MenuClientGroupID] then + _MENUCLIENTS[self.MenuClientGroupID] = {} + end + + local MenuPath = _MENUCLIENTS[self.MenuClientGroupID] + + if MenuPath[table.concat(self.MenuParentPath) .. "/" .. self.MenuText] then + MenuPath[table.concat(self.MenuParentPath) .. "/" .. self.MenuText] = nil + end + + missionCommands.removeItemForGroup( self.MenuClient:GetClientGroupID(), self.MenuPath ) + self.ParentMenu.Menus[self.MenuPath] = nil + return nil +end + + +--- The MENU_CLIENT_COMMAND class +-- @type MENU_CLIENT_COMMAND +-- @extends Menu#MENU +MENU_CLIENT_COMMAND = { + ClassName = "MENU_CLIENT_COMMAND" +} + +--- Creates a new radio command item for a group +-- @param self +-- @param Client#CLIENT MenuClient The Client owning the menu. +-- @param MenuText The text for the menu. +-- @param ParentMenu The parent menu. +-- @param CommandMenuFunction A function that is called when the menu key is pressed. +-- @param CommandMenuArgument An argument for the function. +-- @return Menu#MENU_CLIENT_COMMAND self +function MENU_CLIENT_COMMAND:New( MenuClient, MenuText, ParentMenu, CommandMenuFunction, CommandMenuArgument ) + + -- Arrange meta tables + + local MenuParentPath = {} + if ParentMenu ~= nil then + MenuParentPath = ParentMenu.MenuPath + end + + local self = BASE:Inherit( self, MENU:New( MenuText, MenuParentPath ) ) + + self.MenuClient = MenuClient + self.MenuClientGroupID = MenuClient:GetClientGroupID() + self.MenuParentPath = MenuParentPath + self.MenuText = MenuText + self.ParentMenu = ParentMenu + + if not _MENUCLIENTS[self.MenuClientGroupID] then + _MENUCLIENTS[self.MenuClientGroupID] = {} + end + + local MenuPath = _MENUCLIENTS[self.MenuClientGroupID] + + self:T( { MenuClient:GetClientGroupName(), MenuPath[table.concat(MenuParentPath)], MenuParentPath, MenuText, CommandMenuFunction, CommandMenuArgument } ) + + local MenuPathID = table.concat(MenuParentPath) .. "/" .. MenuText + if MenuPath[MenuPathID] then + missionCommands.removeItemForGroup( self.MenuClient:GetClientGroupID(), MenuPath[MenuPathID] ) + end + + self.MenuPath = missionCommands.addCommandForGroup( self.MenuClient:GetClientGroupID(), MenuText, MenuParentPath, CommandMenuFunction, CommandMenuArgument ) + MenuPath[MenuPathID] = self.MenuPath + + self.CommandMenuFunction = CommandMenuFunction + self.CommandMenuArgument = CommandMenuArgument + + ParentMenu.Menus[self.MenuPath] = self + + return self +end + +function MENU_CLIENT_COMMAND:Remove() + self:F( self.MenuPath ) + + if not _MENUCLIENTS[self.MenuClientGroupID] then + _MENUCLIENTS[self.MenuClientGroupID] = {} + end + + local MenuPath = _MENUCLIENTS[self.MenuClientGroupID] + + if MenuPath[table.concat(self.MenuParentPath) .. "/" .. self.MenuText] then + MenuPath[table.concat(self.MenuParentPath) .. "/" .. self.MenuText] = nil + end + + missionCommands.removeItemForGroup( self.MenuClient:GetClientGroupID(), self.MenuPath ) + self.ParentMenu.Menus[self.MenuPath] = nil + return nil +end + + +--- The MENU_COALITION class +-- @type MENU_COALITION +-- @extends Menu#MENU +MENU_COALITION = { + ClassName = "MENU_COALITION" +} + +--- Creates a new coalition menu item +-- @param #MENU_COALITION self +-- @param DCSCoalition#coalition.side MenuCoalition The coalition owning the menu. +-- @param #string MenuText The text for the menu. +-- @param #table ParentMenu The parent menu. +-- @return #MENU_COALITION self +function MENU_COALITION:New( MenuCoalition, MenuText, ParentMenu ) + + -- Arrange meta tables + local MenuParentPath = {} + if ParentMenu ~= nil then + MenuParentPath = ParentMenu.MenuPath + end + + local self = BASE:Inherit( self, MENU:New( MenuText, MenuParentPath ) ) + self:F( { MenuCoalition, MenuText, ParentMenu } ) + + self.MenuCoalition = MenuCoalition + self.MenuParentPath = MenuParentPath + self.MenuText = MenuText + self.ParentMenu = ParentMenu + + self.Menus = {} + + self:T( { MenuParentPath, MenuText } ) + + self.MenuPath = missionCommands.addSubMenuForCoalition( self.MenuCoalition, MenuText, MenuParentPath ) + + self:T( { self.MenuPath } ) + + if ParentMenu and ParentMenu.Menus then + ParentMenu.Menus[self.MenuPath] = self + end + return self +end + +--- Removes the sub menus recursively of this MENU_COALITION. +-- @param #MENU_COALITION self +-- @return #MENU_COALITION self +function MENU_COALITION:RemoveSubMenus() + self:F( self.MenuPath ) + + for MenuID, Menu in pairs( self.Menus ) do + Menu:Remove() + end + +end + +--- Removes the sub menus recursively of this MENU_COALITION. +-- @param #MENU_COALITION self +-- @return #MENU_COALITION self +function MENU_COALITION:Remove() + self:F( self.MenuPath ) + + self:RemoveSubMenus() + missionCommands.removeItemForCoalition( self.MenuCoalition, self.MenuPath ) + self.ParentMenu.Menus[self.MenuPath] = nil + + return nil +end + + +--- The MENU_COALITION_COMMAND class +-- @type MENU_COALITION_COMMAND +-- @extends Menu#MENU +MENU_COALITION_COMMAND = { + ClassName = "MENU_COALITION_COMMAND" +} + +--- Creates a new radio command item for a group +-- @param #MENU_COALITION_COMMAND self +-- @param DCSCoalition#coalition.side MenuCoalition The coalition owning the menu. +-- @param MenuText The text for the menu. +-- @param ParentMenu The parent menu. +-- @param CommandMenuFunction A function that is called when the menu key is pressed. +-- @param CommandMenuArgument An argument for the function. +-- @return #MENU_COALITION_COMMAND self +function MENU_COALITION_COMMAND:New( MenuCoalition, MenuText, ParentMenu, CommandMenuFunction, CommandMenuArgument ) + + -- Arrange meta tables + + local MenuParentPath = {} + if ParentMenu ~= nil then + MenuParentPath = ParentMenu.MenuPath + end + + local self = BASE:Inherit( self, MENU:New( MenuText, MenuParentPath ) ) + + self.MenuCoalition = MenuCoalition + self.MenuParentPath = MenuParentPath + self.MenuText = MenuText + self.ParentMenu = ParentMenu + + self:T( { MenuParentPath, MenuText, CommandMenuFunction, CommandMenuArgument } ) + + self.MenuPath = missionCommands.addCommandForCoalition( self.MenuCoalition, MenuText, MenuParentPath, CommandMenuFunction, CommandMenuArgument ) + + self.CommandMenuFunction = CommandMenuFunction + self.CommandMenuArgument = CommandMenuArgument + + ParentMenu.Menus[self.MenuPath] = self + + return self +end + +--- Removes a radio command item for a coalition +-- @param #MENU_COALITION_COMMAND self +-- @return #MENU_COALITION_COMMAND self +function MENU_COALITION_COMMAND:Remove() + self:F( self.MenuPath ) + + missionCommands.removeItemForCoalition( self.MenuCoalition, self.MenuPath ) + self.ParentMenu.Menus[self.MenuPath] = nil + return nil +end +--- This module contains the GROUP class. +-- +-- 1) @{Group#GROUP} class, extends @{Controllable#CONTROLLABLE} +-- ============================================================= +-- The @{Group#GROUP} class is a wrapper class to handle the DCS Group objects: +-- +-- * Support all DCS Group APIs. +-- * Enhance with Group specific APIs not in the DCS Group API set. +-- * Handle local Group Controller. +-- * Manage the "state" of the DCS Group. +-- +-- **IMPORTANT: ONE SHOULD NEVER SANATIZE these GROUP OBJECT REFERENCES! (make the GROUP object references nil).** +-- +-- 1.1) GROUP reference methods +-- ----------------------- +-- For each DCS Group object alive within a running mission, a GROUP wrapper object (instance) will be created within the _@{DATABASE} object. +-- This is done at the beginning of the mission (when the mission starts), and dynamically when new DCS Group objects are spawned (using the @{SPAWN} class). +-- +-- The GROUP class does not contain a :New() method, rather it provides :Find() methods to retrieve the object reference +-- using the DCS Group or the DCS GroupName. +-- +-- Another thing to know is that GROUP objects do not "contain" the DCS Group object. +-- The GROUP methods will reference the DCS Group object by name when it is needed during API execution. +-- If the DCS Group object does not exist or is nil, the GROUP methods will return nil and log an exception in the DCS.log file. +-- +-- The GROUP class provides the following functions to retrieve quickly the relevant GROUP instance: +-- +-- * @{#GROUP.Find}(): Find a GROUP instance from the _DATABASE object using a DCS Group object. +-- * @{#GROUP.FindByName}(): Find a GROUP instance from the _DATABASE object using a DCS Group name. +-- +-- 1.2) GROUP task methods +-- ----------------------- +-- Several group task methods are available that help you to prepare tasks. +-- These methods return a string consisting of the task description, which can then be given to either a +-- @{Controllable#CONTROLLABLE.PushTask} or @{Controllable#CONTROLLABLE.SetTask} method to assign the task to the GROUP. +-- Tasks are specific for the category of the GROUP, more specific, for AIR, GROUND or AIR and GROUND. +-- Each task description where applicable indicates for which group category the task is valid. +-- There are 2 main subdivisions of tasks: Assigned tasks and EnRoute tasks. +-- +-- ### 1.2.1) Assigned task methods +-- +-- Assigned task methods make the group execute the task where the location of the (possible) targets of the task are known before being detected. +-- This is different from the EnRoute tasks, where the targets of the task need to be detected before the task can be executed. +-- +-- Find below a list of the **assigned task** methods: +-- +-- * @{Controllable#CONTROLLABLE.TaskAttackGroup}: (AIR) Attack a Group. +-- * @{Controllable#CONTROLLABLE.TaskAttackMapObject}: (AIR) Attacking the map object (building, structure, e.t.c). +-- * @{Controllable#CONTROLLABLE.TaskAttackUnit}: (AIR) Attack the Unit. +-- * @{Controllable#CONTROLLABLE.TaskBombing}: (Controllable#CONTROLLABLEDelivering weapon at the point on the ground. +-- * @{Controllable#CONTROLLABLE.TaskBombingRunway}: (AIR) Delivering weapon on the runway. +-- * @{Controllable#CONTROLLABLE.TaskEmbarking}: (AIR) Move the group to a Vec2 Point, wait for a defined duration and embark a group. +-- * @{Controllable#CONTROLLABLE.TaskEmbarkToTransport}: (GROUND) Embark to a Transport landed at a location. +-- * @{Controllable#CONTROLLABLE.TaskEscort}: (AIR) Escort another airborne group. +-- * @{Controllable#CONTROLLABLE.TaskFAC_AttackGroup}: (AIR + GROUND) The task makes the group/unit a FAC and orders the FAC to control the target (enemy ground group) destruction. +-- * @{Controllable#CONTROLLABLE.TaskFireAtPoint}: (GROUND) Fire at a VEC2 point until ammunition is finished. +-- * @{Controllable#CONTROLLABLE.TaskFollow}: (AIR) Following another airborne group. +-- * @{Controllable#CONTROLLABLE.TaskHold}: (GROUND) Hold ground group from moving. +-- * @{Controllable#CONTROLLABLE.TaskHoldPosition}: (AIR) Hold position at the current position of the first unit of the group. +-- * @{Controllable#CONTROLLABLE.TaskLand}: (AIR HELICOPTER) Landing at the ground. For helicopters only. +-- * @{Controllable#CONTROLLABLE.TaskLandAtZone}: (AIR) Land the group at a @{Zone#ZONE_RADIUS). +-- * @{Controllable#CONTROLLABLE.TaskOrbitCircle}: (AIR) Orbit at the current position of the first unit of the group at a specified alititude. +-- * @{Controllable#CONTROLLABLE.TaskOrbitCircleAtVec2}: (AIR) Orbit at a specified position at a specified alititude during a specified duration with a specified speed. +-- * @{Controllable#CONTROLLABLE.TaskRefueling}: (AIR) Refueling from the nearest tanker. No parameters. +-- * @{Controllable#CONTROLLABLE.TaskRoute}: (AIR + GROUND) Return a Misson task to follow a given route defined by Points. +-- * @{Controllable#CONTROLLABLE.TaskRouteToVec2}: (AIR + GROUND) Make the Group move to a given point. +-- * @{Controllable#CONTROLLABLE.TaskRouteToVec3}: (AIR + GROUND) Make the Group move to a given point. +-- * @{Controllable#CONTROLLABLE.TaskRouteToZone}: (AIR + GROUND) Route the group to a given zone. +-- * @{Controllable#CONTROLLABLE.TaskReturnToBase}: (AIR) Route the group to an airbase. +-- +-- ### 1.2.2) EnRoute task methods +-- +-- EnRoute tasks require the targets of the task need to be detected by the group (using its sensors) before the task can be executed: +-- +-- * @{Controllable#CONTROLLABLE.EnRouteTaskAWACS}: (AIR) Aircraft will act as an AWACS for friendly units (will provide them with information about contacts). No parameters. +-- * @{Controllable#CONTROLLABLE.EnRouteTaskEngageGroup}: (AIR) Engaging a group. The task does not assign the target group to the unit/group to attack now; it just allows the unit/group to engage the target group as well as other assigned targets. +-- * @{Controllable#CONTROLLABLE.EnRouteTaskEngageTargets}: (AIR) Engaging targets of defined types. +-- * @{Controllable#CONTROLLABLE.EnRouteTaskEWR}: (AIR) Attack the Unit. +-- * @{Controllable#CONTROLLABLE.EnRouteTaskFAC}: (AIR + GROUND) The task makes the group/unit a FAC and lets the FAC to choose a targets (enemy ground group) around as well as other assigned targets. +-- * @{Controllable#CONTROLLABLE.EnRouteTaskFAC_EngageGroup}: (AIR + GROUND) The task makes the group/unit a FAC and lets the FAC to choose the target (enemy ground group) as well as other assigned targets. +-- * @{Controllable#CONTROLLABLE.EnRouteTaskTanker}: (AIR) Aircraft will act as a tanker for friendly units. No parameters. +-- +-- ### 1.2.3) Preparation task methods +-- +-- There are certain task methods that allow to tailor the task behaviour: +-- +-- * @{Controllable#CONTROLLABLE.TaskWrappedAction}: Return a WrappedAction Task taking a Command. +-- * @{Controllable#CONTROLLABLE.TaskCombo}: Return a Combo Task taking an array of Tasks. +-- * @{Controllable#CONTROLLABLE.TaskCondition}: Return a condition section for a controlled task. +-- * @{Controllable#CONTROLLABLE.TaskControlled}: Return a Controlled Task taking a Task and a TaskCondition. +-- +-- ### 1.2.4) Obtain the mission from group templates +-- +-- Group templates contain complete mission descriptions. Sometimes you want to copy a complete mission from a group and assign it to another: +-- +-- * @{Controllable#CONTROLLABLE.TaskMission}: (AIR + GROUND) Return a mission task from a mission template. +-- +-- 1.3) GROUP Command methods +-- -------------------------- +-- Group **command methods** prepare the execution of commands using the @{Controllable#CONTROLLABLE.SetCommand} method: +-- +-- * @{Controllable#CONTROLLABLE.CommandDoScript}: Do Script command. +-- * @{Controllable#CONTROLLABLE.CommandSwitchWayPoint}: Perform a switch waypoint command. +-- +-- 1.4) GROUP Option methods +-- ------------------------- +-- Group **Option methods** change the behaviour of the Group while being alive. +-- +-- ### 1.4.1) Rule of Engagement: +-- +-- * @{Controllable#CONTROLLABLE.OptionROEWeaponFree} +-- * @{Controllable#CONTROLLABLE.OptionROEOpenFire} +-- * @{Controllable#CONTROLLABLE.OptionROEReturnFire} +-- * @{Controllable#CONTROLLABLE.OptionROEEvadeFire} +-- +-- To check whether an ROE option is valid for a specific group, use: +-- +-- * @{Controllable#CONTROLLABLE.OptionROEWeaponFreePossible} +-- * @{Controllable#CONTROLLABLE.OptionROEOpenFirePossible} +-- * @{Controllable#CONTROLLABLE.OptionROEReturnFirePossible} +-- * @{Controllable#CONTROLLABLE.OptionROEEvadeFirePossible} +-- +-- ### 1.4.2) Rule on thread: +-- +-- * @{Controllable#CONTROLLABLE.OptionROTNoReaction} +-- * @{Controllable#CONTROLLABLE.OptionROTPassiveDefense} +-- * @{Controllable#CONTROLLABLE.OptionROTEvadeFire} +-- * @{Controllable#CONTROLLABLE.OptionROTVertical} +-- +-- To test whether an ROT option is valid for a specific group, use: +-- +-- * @{Controllable#CONTROLLABLE.OptionROTNoReactionPossible} +-- * @{Controllable#CONTROLLABLE.OptionROTPassiveDefensePossible} +-- * @{Controllable#CONTROLLABLE.OptionROTEvadeFirePossible} +-- * @{Controllable#CONTROLLABLE.OptionROTVerticalPossible} +-- +-- 1.5) GROUP Zone validation methods +-- ---------------------------------- +-- The group can be validated whether it is completely, partly or not within a @{Zone}. +-- Use the following Zone validation methods on the group: +-- +-- * @{#GROUP.IsCompletelyInZone}: Returns true if all units of the group are within a @{Zone}. +-- * @{#GROUP.IsPartlyInZone}: Returns true if some units of the group are within a @{Zone}. +-- * @{#GROUP.IsNotInZone}: Returns true if none of the group units of the group are within a @{Zone}. +-- +-- The zone can be of any @{Zone} class derived from @{Zone#ZONE_BASE}. So, these methods are polymorphic to the zones tested on. +-- +-- @module Group +-- @author FlightControl + +--- The GROUP class +-- @type GROUP +-- @extends Controllable#CONTROLLABLE +-- @field #string GroupName The name of the group. +GROUP = { + ClassName = "GROUP", +} + +--- Create a new GROUP from a DCSGroup +-- @param #GROUP self +-- @param DCSGroup#Group GroupName The DCS Group name +-- @return #GROUP self +function GROUP:Register( GroupName ) + local self = BASE:Inherit( self, CONTROLLABLE:New( GroupName ) ) + self:F2( GroupName ) + self.GroupName = GroupName + return self +end + +-- Reference methods. + +--- Find the GROUP wrapper class instance using the DCS Group. +-- @param #GROUP self +-- @param DCSGroup#Group DCSGroup The DCS Group. +-- @return #GROUP The GROUP. +function GROUP:Find( DCSGroup ) + + local GroupName = DCSGroup:getName() -- Group#GROUP + local GroupFound = _DATABASE:FindGroup( GroupName ) + GroupFound:E( { GroupName, GroupFound:GetClassNameAndID() } ) + return GroupFound +end + +--- Find the created GROUP using the DCS Group Name. +-- @param #GROUP self +-- @param #string GroupName The DCS Group Name. +-- @return #GROUP The GROUP. +function GROUP:FindByName( GroupName ) + + local GroupFound = _DATABASE:FindGroup( GroupName ) + return GroupFound +end + +-- DCS Group methods support. + +--- Returns the DCS Group. +-- @param #GROUP self +-- @return DCSGroup#Group The DCS Group. +function GROUP:GetDCSObject() + local DCSGroup = Group.getByName( self.GroupName ) + + if DCSGroup then + return DCSGroup + end + + return nil +end + + +--- Returns if the DCS Group is alive. +-- When the group exists at run-time, this method will return true, otherwise false. +-- @param #GROUP self +-- @return #boolean true if the DCS Group is alive. +function GROUP:IsAlive() + self:F2( self.GroupName ) + + local DCSGroup = self:GetDCSObject() + + if DCSGroup then + local GroupIsAlive = DCSGroup:isExist() + self:T3( GroupIsAlive ) + return GroupIsAlive + end + + return nil +end + +--- Destroys the DCS Group and all of its DCS Units. +-- Note that this destroy method also raises a destroy event at run-time. +-- So all event listeners will catch the destroy event of this DCS Group. +-- @param #GROUP self +function GROUP:Destroy() + self:F2( self.GroupName ) + + local DCSGroup = self:GetDCSObject() + + if DCSGroup then + for Index, UnitData in pairs( DCSGroup:getUnits() ) do + self:CreateEventCrash( timer.getTime(), UnitData ) + end + DCSGroup:destroy() + DCSGroup = nil + end + + return nil +end + +--- Returns category of the DCS Group. +-- @param #GROUP self +-- @return DCSGroup#Group.Category The category ID +function GROUP:GetCategory() + self:F2( self.GroupName ) + + local DCSGroup = self:GetDCSObject() + if DCSGroup then + local GroupCategory = DCSGroup:getCategory() + self:T3( GroupCategory ) + return GroupCategory + end + + return nil +end + +--- Returns the category name of the DCS Group. +-- @param #GROUP self +-- @return #string Category name = Helicopter, Airplane, Ground Unit, Ship +function GROUP:GetCategoryName() + self:F2( self.GroupName ) + + local DCSGroup = self:GetDCSObject() + if DCSGroup then + local CategoryNames = { + [Group.Category.AIRPLANE] = "Airplane", + [Group.Category.HELICOPTER] = "Helicopter", + [Group.Category.GROUND] = "Ground Unit", + [Group.Category.SHIP] = "Ship", + } + local GroupCategory = DCSGroup:getCategory() + self:T3( GroupCategory ) + + return CategoryNames[GroupCategory] + end + + return nil +end + + +--- Returns the coalition of the DCS Group. +-- @param #GROUP self +-- @return DCSCoalitionObject#coalition.side The coalition side of the DCS Group. +function GROUP:GetCoalition() + self:F2( self.GroupName ) + + local DCSGroup = self:GetDCSObject() + if DCSGroup then + local GroupCoalition = DCSGroup:getCoalition() + self:T3( GroupCoalition ) + return GroupCoalition + end + + return nil +end + +--- Returns the country of the DCS Group. +-- @param #GROUP self +-- @return DCScountry#country.id The country identifier. +-- @return #nil The DCS Group is not existing or alive. +function GROUP:GetCountry() + self:F2( self.GroupName ) + + local DCSGroup = self:GetDCSObject() + if DCSGroup then + local GroupCountry = DCSGroup:getUnit(1):getCountry() + self:T3( GroupCountry ) + return GroupCountry + end + + return nil +end + +--- Returns the UNIT wrapper class with number UnitNumber. +-- If the underlying DCS Unit does not exist, the method will return nil. . +-- @param #GROUP self +-- @param #number UnitNumber The number of the UNIT wrapper class to be returned. +-- @return Unit#UNIT The UNIT wrapper class. +function GROUP:GetUnit( UnitNumber ) + self:F2( { self.GroupName, UnitNumber } ) + + local DCSGroup = self:GetDCSObject() + + if DCSGroup then + local UnitFound = UNIT:Find( DCSGroup:getUnit( UnitNumber ) ) + self:T3( UnitFound.UnitName ) + self:T2( UnitFound ) + return UnitFound + end + + return nil +end + +--- Returns the DCS Unit with number UnitNumber. +-- If the underlying DCS Unit does not exist, the method will return nil. . +-- @param #GROUP self +-- @param #number UnitNumber The number of the DCS Unit to be returned. +-- @return DCSUnit#Unit The DCS Unit. +function GROUP:GetDCSUnit( UnitNumber ) + self:F2( { self.GroupName, UnitNumber } ) + + local DCSGroup = self:GetDCSObject() + + if DCSGroup then + local DCSUnitFound = DCSGroup:getUnit( UnitNumber ) + self:T3( DCSUnitFound ) + return DCSUnitFound + end + + return nil +end + +--- Returns current size of the DCS Group. +-- If some of the DCS Units of the DCS Group are destroyed the size of the DCS Group is changed. +-- @param #GROUP self +-- @return #number The DCS Group size. +function GROUP:GetSize() + self:F2( { self.GroupName } ) + local DCSGroup = self:GetDCSObject() + + if DCSGroup then + local GroupSize = DCSGroup:getSize() + self:T3( GroupSize ) + return GroupSize + end + + return nil +end + +--- +--- Returns the initial size of the DCS Group. +-- If some of the DCS Units of the DCS Group are destroyed, the initial size of the DCS Group is unchanged. +-- @param #GROUP self +-- @return #number The DCS Group initial size. +function GROUP:GetInitialSize() + self:F2( { self.GroupName } ) + local DCSGroup = self:GetDCSObject() + + if DCSGroup then + local GroupInitialSize = DCSGroup:getInitialSize() + self:T3( GroupInitialSize ) + return GroupInitialSize + end + + return nil +end + +--- Returns the UNITs wrappers of the DCS Units of the DCS Group. +-- @param #GROUP self +-- @return #table The UNITs wrappers. +function GROUP:GetUnits() + self:F2( { self.GroupName } ) + local DCSGroup = self:GetDCSObject() + + if DCSGroup then + local DCSUnits = DCSGroup:getUnits() + local Units = {} + for Index, UnitData in pairs( DCSUnits ) do + Units[#Units+1] = UNIT:Find( UnitData ) + end + self:T3( Units ) + return Units + end + + return nil +end + + +--- Returns the DCS Units of the DCS Group. +-- @param #GROUP self +-- @return #table The DCS Units. +function GROUP:GetDCSUnits() + self:F2( { self.GroupName } ) + local DCSGroup = self:GetDCSObject() + + if DCSGroup then + local DCSUnits = DCSGroup:getUnits() + self:T3( DCSUnits ) + return DCSUnits + end + + return nil +end + + +--- Activates a GROUP. +-- @param #GROUP self +function GROUP:Activate() + self:F2( { self.GroupName } ) + trigger.action.activateGroup( self:GetDCSObject() ) + return self:GetDCSObject() +end + + +--- Gets the type name of the group. +-- @param #GROUP self +-- @return #string The type name of the group. +function GROUP:GetTypeName() + self:F2( self.GroupName ) + + local DCSGroup = self:GetDCSObject() + + if DCSGroup then + local GroupTypeName = DCSGroup:getUnit(1):getTypeName() + self:T3( GroupTypeName ) + return( GroupTypeName ) + end + + return nil +end + +--- Gets the CallSign of the first DCS Unit of the DCS Group. +-- @param #GROUP self +-- @return #string The CallSign of the first DCS Unit of the DCS Group. +function GROUP:GetCallsign() + self:F2( self.GroupName ) + + local DCSGroup = self:GetDCSObject() + + if DCSGroup then + local GroupCallSign = DCSGroup:getUnit(1):getCallsign() + self:T3( GroupCallSign ) + return GroupCallSign + end + + return nil +end + +--- Returns the current point (Vec2 vector) of the first DCS Unit in the DCS Group. +-- @param #GROUP self +-- @return DCSTypes#Vec2 Current Vec2 point of the first DCS Unit of the DCS Group. +function GROUP:GetPointVec2() + self:F2( self.GroupName ) + + local UnitPoint = self:GetUnit(1) + UnitPoint:GetPointVec2() + local GroupPointVec2 = UnitPoint:GetPointVec2() + self:T3( GroupPointVec2 ) + return GroupPointVec2 +end + +--- Returns the current point (Vec3 vector) of the first DCS Unit in the DCS Group. +-- @return DCSTypes#Vec3 Current Vec3 point of the first DCS Unit of the DCS Group. +function GROUP:GetPointVec3() + self:F2( self.GroupName ) + + local GroupPointVec3 = self:GetUnit(1):GetPointVec3() + self:T3( GroupPointVec3 ) + return GroupPointVec3 +end + + + +-- Is Zone Functions + +--- Returns true if all units of the group are within a @{Zone}. +-- @param #GROUP self +-- @param Zone#ZONE_BASE Zone The zone to test. +-- @return #boolean Returns true if the Group is completely within the @{Zone#ZONE_BASE} +function GROUP:IsCompletelyInZone( Zone ) + self:F2( { self.GroupName, Zone } ) + + for UnitID, UnitData in pairs( self:GetUnits() ) do + local Unit = UnitData -- Unit#UNIT + if Zone:IsPointVec3InZone( Unit:GetPointVec3() ) then + else + return false + end + end + + return true +end + +--- Returns true if some units of the group are within a @{Zone}. +-- @param #GROUP self +-- @param Zone#ZONE_BASE Zone The zone to test. +-- @return #boolean Returns true if the Group is completely within the @{Zone#ZONE_BASE} +function GROUP:IsPartlyInZone( Zone ) + self:F2( { self.GroupName, Zone } ) + + for UnitID, UnitData in pairs( self:GetUnits() ) do + local Unit = UnitData -- Unit#UNIT + if Zone:IsPointVec3InZone( Unit:GetPointVec3() ) then + return true + end + end + + return false +end + +--- Returns true if none of the group units of the group are within a @{Zone}. +-- @param #GROUP self +-- @param Zone#ZONE_BASE Zone The zone to test. +-- @return #boolean Returns true if the Group is completely within the @{Zone#ZONE_BASE} +function GROUP:IsNotInZone( Zone ) + self:F2( { self.GroupName, Zone } ) + + for UnitID, UnitData in pairs( self:GetUnits() ) do + local Unit = UnitData -- Unit#UNIT + if Zone:IsPointVec3InZone( Unit:GetPointVec3() ) then + return false + end + end + + return true +end + +--- Returns if the group is of an air category. +-- If the group is a helicopter or a plane, then this method will return true, otherwise false. +-- @param #GROUP self +-- @return #boolean Air category evaluation result. +function GROUP:IsAir() + self:F2( self.GroupName ) + + local DCSGroup = self:GetDCSObject() + + if DCSGroup then + local IsAirResult = DCSGroup:getCategory() == Group.Category.AIRPLANE or DCSGroup:getCategory() == Group.Category.HELICOPTER + self:T3( IsAirResult ) + return IsAirResult + end + + return nil +end + +--- Returns if the DCS Group contains Helicopters. +-- @param #GROUP self +-- @return #boolean true if DCS Group contains Helicopters. +function GROUP:IsHelicopter() + self:F2( self.GroupName ) + + local DCSGroup = self:GetDCSObject() + + if DCSGroup then + local GroupCategory = DCSGroup:getCategory() + self:T2( GroupCategory ) + return GroupCategory == Group.Category.HELICOPTER + end + + return nil +end + +--- Returns if the DCS Group contains AirPlanes. +-- @param #GROUP self +-- @return #boolean true if DCS Group contains AirPlanes. +function GROUP:IsAirPlane() + self:F2() + + local DCSGroup = self:GetDCSObject() + + if DCSGroup then + local GroupCategory = DCSGroup:getCategory() + self:T2( GroupCategory ) + return GroupCategory == Group.Category.AIRPLANE + end + + return nil +end + +--- Returns if the DCS Group contains Ground troops. +-- @param #GROUP self +-- @return #boolean true if DCS Group contains Ground troops. +function GROUP:IsGround() + self:F2() + + local DCSGroup = self:GetDCSObject() + + if DCSGroup then + local GroupCategory = DCSGroup:getCategory() + self:T2( GroupCategory ) + return GroupCategory == Group.Category.GROUND + end + + return nil +end + +--- Returns if the DCS Group contains Ships. +-- @param #GROUP self +-- @return #boolean true if DCS Group contains Ships. +function GROUP:IsShip() + self:F2() + + local DCSGroup = self:GetDCSObject() + + if DCSGroup then + local GroupCategory = DCSGroup:getCategory() + self:T2( GroupCategory ) + return GroupCategory == Group.Category.SHIP + end + + return nil +end + +--- Returns if all units of the group are on the ground or landed. +-- If all units of this group are on the ground, this function will return true, otherwise false. +-- @param #GROUP self +-- @return #boolean All units on the ground result. +function GROUP:AllOnGround() + self:F2() + + local DCSGroup = self:GetDCSObject() + + if DCSGroup then + local AllOnGroundResult = true + + for Index, UnitData in pairs( DCSGroup:getUnits() ) do + if UnitData:inAir() then + AllOnGroundResult = false + end + end + + self:T3( AllOnGroundResult ) + return AllOnGroundResult + end + + return nil +end + +--- Returns the current maximum velocity of the group. +-- Each unit within the group gets evaluated, and the maximum velocity (= the unit which is going the fastest) is returned. +-- @param #GROUP self +-- @return #number Maximum velocity found. +function GROUP:GetMaxVelocity() + self:F2() + + local DCSGroup = self:GetDCSObject() + + if DCSGroup then + local MaxVelocity = 0 + + for Index, UnitData in pairs( DCSGroup:getUnits() ) do + + local Velocity = UnitData:getVelocity() + local VelocityTotal = math.abs( Velocity.x ) + math.abs( Velocity.y ) + math.abs( Velocity.z ) + + if VelocityTotal < MaxVelocity then + MaxVelocity = VelocityTotal + end + end + + return MaxVelocity + end + + return nil +end + +--- Returns the current minimum height of the group. +-- Each unit within the group gets evaluated, and the minimum height (= the unit which is the lowest elevated) is returned. +-- @param #GROUP self +-- @return #number Minimum height found. +function GROUP:GetMinHeight() + self:F2() + +end + +--- Returns the current maximum height of the group. +-- Each unit within the group gets evaluated, and the maximum height (= the unit which is the highest elevated) is returned. +-- @param #GROUP self +-- @return #number Maximum height found. +function GROUP:GetMaxHeight() + self:F2() + +end + +-- SPAWNING + +--- Respawn the @{GROUP} using a (tweaked) template of the Group. +-- The template must be retrieved with the @{Group#GROUP.GetTemplate}() function. +-- The template contains all the definitions as declared within the mission file. +-- To understand templates, do the following: +-- +-- * unpack your .miz file into a directory using 7-zip. +-- * browse in the directory created to the file **mission**. +-- * open the file and search for the country group definitions. +-- +-- Your group template will contain the fields as described within the mission file. +-- +-- This function will: +-- +-- * Get the current position and heading of the group. +-- * When the group is alive, it will tweak the template x, y and heading coordinates of the group and the embedded units to the current units positions. +-- * Then it will destroy the current alive group. +-- * And it will respawn the group using your new template definition. +-- @param Group#GROUP self +-- @param #table Template The template of the Group retrieved with GROUP:GetTemplate() +function GROUP:Respawn( Template ) + + local Vec3 = self:GetPointVec3() + Template.x = Vec3.x + Template.y = Vec3.z + --Template.x = nil + --Template.y = nil + + self:E( #Template.units ) + for UnitID, UnitData in pairs( self:GetUnits() ) do + local GroupUnit = UnitData -- Unit#UNIT + self:E( GroupUnit:GetName() ) + if GroupUnit:IsAlive() then + local GroupUnitVec3 = GroupUnit:GetPointVec3() + local GroupUnitHeading = GroupUnit:GetHeading() + Template.units[UnitID].alt = GroupUnitVec3.y + Template.units[UnitID].x = GroupUnitVec3.x + Template.units[UnitID].y = GroupUnitVec3.z + Template.units[UnitID].heading = GroupUnitHeading + self:E( { UnitID, Template.units[UnitID], Template.units[UnitID] } ) + end + end + + self:Destroy() + _DATABASE:Spawn( Template ) +end + +--- Returns the group template from the @{DATABASE} (_DATABASE object). +-- @param #GROUP self +-- @return #table +function GROUP:GetTemplate() + local GroupName = self:GetName() + self:E( GroupName ) + return _DATABASE:GetGroupTemplate( GroupName ) +end + +--- Sets the controlled status in a Template. +-- @param #GROUP self +-- @param #boolean Controlled true is controlled, false is uncontrolled. +-- @return #table +function GROUP:SetTemplateControlled( Template, Controlled ) + Template.uncontrolled = not Controlled + return Template +end + +--- Sets the CountryID of the group in a Template. +-- @param #GROUP self +-- @param DCScountry#country.id CountryID The country ID. +-- @return #table +function GROUP:SetTemplateCountry( Template, CountryID ) + Template.CountryID = CountryID + return Template +end + +--- Sets the CoalitionID of the group in a Template. +-- @param #GROUP self +-- @param DCSCoalitionObject#coalition.side CoalitionID The coalition ID. +-- @return #table +function GROUP:SetTemplateCoalition( Template, CoalitionID ) + Template.CoalitionID = CoalitionID + return Template +end + + + + +--- Return the mission template of the group. +-- @param #GROUP self +-- @return #table The MissionTemplate +function GROUP:GetTaskMission() + self:F2( self.GroupName ) + + return routines.utils.deepCopy( _DATABASE.Templates.Groups[self.GroupName].Template ) +end + +--- Return the mission route of the group. +-- @param #GROUP self +-- @return #table The mission route defined by points. +function GROUP:GetTaskRoute() + self:F2( self.GroupName ) + + return routines.utils.deepCopy( _DATABASE.Templates.Groups[self.GroupName].Template.route.points ) +end + +--- Return the route of a group by using the @{Database#DATABASE} class. +-- @param #GROUP self +-- @param #number Begin The route point from where the copy will start. The base route point is 0. +-- @param #number End The route point where the copy will end. The End point is the last point - the End point. The last point has base 0. +-- @param #boolean Randomize Randomization of the route, when true. +-- @param #number Radius When randomization is on, the randomization is within the radius. +function GROUP:CopyRoute( Begin, End, Randomize, Radius ) + self:F2( { Begin, End } ) + + local Points = {} + + -- Could be a Spawned Group + local GroupName = string.match( self:GetName(), ".*#" ) + if GroupName then + GroupName = GroupName:sub( 1, -2 ) + else + GroupName = self:GetName() + end + + self:T3( { GroupName } ) + + local Template = _DATABASE.Templates.Groups[GroupName].Template + + if Template then + if not Begin then + Begin = 0 + end + if not End then + End = 0 + end + + for TPointID = Begin + 1, #Template.route.points - End do + if Template.route.points[TPointID] then + Points[#Points+1] = routines.utils.deepCopy( Template.route.points[TPointID] ) + if Randomize then + if not Radius then + Radius = 500 + end + Points[#Points].x = Points[#Points].x + math.random( Radius * -1, Radius ) + Points[#Points].y = Points[#Points].y + math.random( Radius * -1, Radius ) + end + end + end + return Points + else + error( "Template not found for Group : " .. GroupName ) + end + + return nil +end + + +-- Message APIs + +--- Returns a message for a coalition or a client. +-- @param #GROUP self +-- @param #string Message The message text +-- @param DCSTypes#Duration Duration The duration of the message. +-- @return Message#MESSAGE +function GROUP:Message( Message, Duration ) + self:F2( { Message, Duration } ) + + local DCSGroup = self:GetDCSObject() + if DCSGroup then + return MESSAGE:New( Message, Duration, self:GetCallsign() .. " (" .. self:GetTypeName() .. ")" ) + end + + return nil +end + +--- Send a message to all coalitions. +-- The message will appear in the message area. The message will begin with the callsign of the group and the type of the first unit sending the message. +-- @param #GROUP self +-- @param #string Message The message text +-- @param DCSTypes#Duration Duration The duration of the message. +function GROUP:MessageToAll( Message, Duration ) + self:F2( { Message, Duration } ) + + local DCSGroup = self:GetDCSObject() + if DCSGroup then + self:Message( Message, Duration ):ToAll() + end + + return nil +end + +--- Send a message to the red coalition. +-- The message will appear in the message area. The message will begin with the callsign of the group and the type of the first unit sending the message. +-- @param #GROUP self +-- @param #string Message The message text +-- @param DCSTYpes#Duration Duration The duration of the message. +function GROUP:MessageToRed( Message, Duration ) + self:F2( { Message, Duration } ) + + local DCSGroup = self:GetDCSObject() + if DCSGroup then + self:Message( Message, Duration ):ToRed() + end + + return nil +end + +--- Send a message to the blue coalition. +-- The message will appear in the message area. The message will begin with the callsign of the group and the type of the first unit sending the message. +-- @param #GROUP self +-- @param #string Message The message text +-- @param DCSTypes#Duration Duration The duration of the message. +function GROUP:MessageToBlue( Message, Duration ) + self:F2( { Message, Duration } ) + + local DCSGroup = self:GetDCSObject() + if DCSGroup then + self:Message( Message, Duration ):ToBlue() + end + + return nil +end + +--- Send a message to a client. +-- The message will appear in the message area. The message will begin with the callsign of the group and the type of the first unit sending the message. +-- @param #GROUP self +-- @param #string Message The message text +-- @param DCSTypes#Duration Duration The duration of the message. +-- @param Client#CLIENT Client The client object receiving the message. +function GROUP:MessageToClient( Message, Duration, Client ) + self:F2( { Message, Duration } ) + + local DCSGroup = self:GetDCSObject() + if DCSGroup then + self:Message( Message, Duration ):ToClient( Client ) + end + + return nil +end +--- This module contains the UNIT class. +-- +-- 1) @{Unit#UNIT} class, extends @{Controllable#CONTROLLABLE} +-- =========================================================== +-- The @{Unit#UNIT} class is a wrapper class to handle the DCS Unit objects: +-- +-- * Support all DCS Unit APIs. +-- * Enhance with Unit specific APIs not in the DCS Unit API set. +-- * Handle local Unit Controller. +-- * Manage the "state" of the DCS Unit. +-- +-- +-- 1.1) UNIT reference methods +-- ---------------------- +-- For each DCS Unit object alive within a running mission, a UNIT wrapper object (instance) will be created within the _@{DATABASE} object. +-- This is done at the beginning of the mission (when the mission starts), and dynamically when new DCS Unit objects are spawned (using the @{SPAWN} class). +-- +-- The UNIT class **does not contain a :New()** method, rather it provides **:Find()** methods to retrieve the object reference +-- using the DCS Unit or the DCS UnitName. +-- +-- Another thing to know is that UNIT objects do not "contain" the DCS Unit object. +-- The UNIT methods will reference the DCS Unit object by name when it is needed during API execution. +-- If the DCS Unit object does not exist or is nil, the UNIT methods will return nil and log an exception in the DCS.log file. +-- +-- The UNIT class provides the following functions to retrieve quickly the relevant UNIT instance: +-- +-- * @{#UNIT.Find}(): Find a UNIT instance from the _DATABASE object using a DCS Unit object. +-- * @{#UNIT.FindByName}(): Find a UNIT instance from the _DATABASE object using a DCS Unit name. +-- +-- IMPORTANT: ONE SHOULD NEVER SANATIZE these UNIT OBJECT REFERENCES! (make the UNIT object references nil). +-- +-- 1.2) DCS UNIT APIs +-- ------------------ +-- The DCS Unit APIs are used extensively within MOOSE. The UNIT class has for each DCS Unit API a corresponding method. +-- To be able to distinguish easily in your code the difference between a UNIT API call and a DCS Unit API call, +-- the first letter of the method is also capitalized. So, by example, the DCS Unit method @{DCSUnit#Unit.getName}() +-- is implemented in the UNIT class as @{#UNIT.GetName}(). +-- +-- 1.3) Smoke, Flare Units +-- ----------------------- +-- The UNIT class provides methods to smoke or flare units easily. +-- The @{#UNIT.SmokeBlue}(), @{#UNIT.SmokeGreen}(),@{#UNIT.SmokeOrange}(), @{#UNIT.SmokeRed}(), @{#UNIT.SmokeRed}() methods +-- will smoke the unit in the corresponding color. Note that smoking a unit is done at the current position of the DCS Unit. +-- When the DCS Unit moves for whatever reason, the smoking will still continue! +-- The @{#UNIT.FlareGreen}(), @{#UNIT.FlareRed}(), @{#UNIT.FlareWhite}(), @{#UNIT.FlareYellow}() +-- methods will fire off a flare in the air with the corresponding color. Note that a flare is a one-off shot and its effect is of very short duration. +-- +-- 1.4) Location Position, Point +-- ----------------------------- +-- The UNIT class provides methods to obtain the current point or position of the DCS Unit. +-- The @{#UNIT.GetPointVec2}(), @{#UNIT.GetPointVec3}() will obtain the current **location** of the DCS Unit in a Vec2 (2D) or a **point** in a Vec3 (3D) vector respectively. +-- If you want to obtain the complete **3D position** including oriëntation and direction vectors, consult the @{#UNIT.GetPositionVec3}() method respectively. +-- +-- 1.5) Test if alive +-- ------------------ +-- The @{#UNIT.IsAlive}(), @{#UNIT.IsActive}() methods determines if the DCS Unit is alive, meaning, it is existing and active. +-- +-- 1.6) Test for proximity +-- ----------------------- +-- The UNIT class contains methods to test the location or proximity against zones or other objects. +-- +-- ### 1.6.1) Zones +-- To test whether the Unit is within a **zone**, use the @{#UNIT.IsInZone}() or the @{#UNIT.IsNotInZone}() methods. Any zone can be tested on, but the zone must be derived from @{Zone#ZONE_BASE}. +-- +-- ### 1.6.2) Units +-- Test if another DCS Unit is within a given radius of the current DCS Unit, use the @{#UNIT.OtherUnitInRadius}() method. +-- +-- @module Unit +-- @author FlightControl + + + + + +--- The UNIT class +-- @type UNIT +-- @extends Controllable#CONTROLLABLE +-- @field #UNIT.FlareColor FlareColor +-- @field #UNIT.SmokeColor SmokeColor +UNIT = { + ClassName="UNIT", + FlareColor = { + Green = trigger.flareColor.Green, + Red = trigger.flareColor.Red, + White = trigger.flareColor.White, + Yellow = trigger.flareColor.Yellow + }, + SmokeColor = { + Green = trigger.smokeColor.Green, + Red = trigger.smokeColor.Red, + White = trigger.smokeColor.White, + Orange = trigger.smokeColor.Orange, + Blue = trigger.smokeColor.Blue + }, + } + +--- FlareColor +-- @type UNIT.FlareColor +-- @field Green +-- @field Red +-- @field White +-- @field Yellow + +--- SmokeColor +-- @type UNIT.SmokeColor +-- @field Green +-- @field Red +-- @field White +-- @field Orange +-- @field Blue + +-- Registration. + +--- Create a new UNIT from DCSUnit. +-- @param #UNIT self +-- @param #string UnitName The name of the DCS unit. +-- @return Unit#UNIT +function UNIT:Register( UnitName ) + local self = BASE:Inherit( self, CONTROLLABLE:New( UnitName ) ) + self.UnitName = UnitName + return self +end + +-- Reference methods. + +--- Finds a UNIT from the _DATABASE using a DCSUnit object. +-- @param #UNIT self +-- @param DCSUnit#Unit DCSUnit An existing DCS Unit object reference. +-- @return Unit#UNIT self +function UNIT:Find( DCSUnit ) + + local UnitName = DCSUnit:getName() + local UnitFound = _DATABASE:FindUnit( UnitName ) + return UnitFound +end + +--- Find a UNIT in the _DATABASE using the name of an existing DCS Unit. +-- @param #UNIT self +-- @param #string UnitName The Unit Name. +-- @return Unit#UNIT self +function UNIT:FindByName( UnitName ) + + local UnitFound = _DATABASE:FindUnit( UnitName ) + return UnitFound +end + + +--- @param #UNIT self +-- @return DCSUnit#Unit +function UNIT:GetDCSObject() + + local DCSUnit = Unit.getByName( self.UnitName ) + + if DCSUnit then + return DCSUnit + end + + return nil +end + + + + +--- Returns if the unit is activated. +-- @param Unit#UNIT self +-- @return #boolean true if Unit is activated. +-- @return #nil The DCS Unit is not existing or alive. +function UNIT:IsActive() + self:F2( self.UnitName ) + + local DCSUnit = self:GetDCSObject() + + if DCSUnit then + + local UnitIsActive = DCSUnit:isActive() + return UnitIsActive + end + + return nil +end + +--- Returns the Unit's callsign - the localized string. +-- @param Unit#UNIT self +-- @return #string The Callsign of the Unit. +-- @return #nil The DCS Unit is not existing or alive. +function UNIT:GetCallSign() + self:F2( self.UnitName ) + + local DCSUnit = self:GetDCSObject() + + if DCSUnit then + local UnitCallSign = DCSUnit:getCallsign() + return UnitCallSign + end + + self:E( self.ClassName .. " " .. self.UnitName .. " not found!" ) + return nil +end + + +--- Returns name of the player that control the unit or nil if the unit is controlled by A.I. +-- @param Unit#UNIT self +-- @return #string Player Name +-- @return #nil The DCS Unit is not existing or alive. +function UNIT:GetPlayerName() + self:F2( self.UnitName ) + + local DCSUnit = self:GetDCSObject() + + if DCSUnit then + + local PlayerName = DCSUnit:getPlayerName() + if PlayerName == nil then + PlayerName = "" + end + return PlayerName + end + + return nil +end + +--- Returns the unit's number in the group. +-- The number is the same number the unit has in ME. +-- It may not be changed during the mission. +-- If any unit in the group is destroyed, the numbers of another units will not be changed. +-- @param Unit#UNIT self +-- @return #number The Unit number. +-- @return #nil The DCS Unit is not existing or alive. +function UNIT:GetNumber() + self:F2( self.UnitName ) + + local DCSUnit = self:GetDCSObject() + + if DCSUnit then + local UnitNumber = DCSUnit:getNumber() + return UnitNumber + end + + return nil +end + +--- Returns the unit's group if it exist and nil otherwise. +-- @param Unit#UNIT self +-- @return Group#GROUP The Group of the Unit. +-- @return #nil The DCS Unit is not existing or alive. +function UNIT:GetGroup() + self:F2( self.UnitName ) + + local DCSUnit = self:GetDCSObject() + + if DCSUnit then + local UnitGroup = GROUP:Find( DCSUnit:getGroup() ) + return UnitGroup + end + + return nil +end + + +-- Need to add here functions to check if radar is on and which object etc. + +--- Returns the prefix name of the DCS Unit. A prefix name is a part of the name before a '#'-sign. +-- DCS Units spawned with the @{SPAWN} class contain a '#'-sign to indicate the end of the (base) DCS Unit name. +-- The spawn sequence number and unit number are contained within the name after the '#' sign. +-- @param Unit#UNIT self +-- @return #string The name of the DCS Unit. +-- @return #nil The DCS Unit is not existing or alive. +function UNIT:GetPrefix() + self:F2( self.UnitName ) + + local DCSUnit = self:GetDCSObject() + + if DCSUnit then + local UnitPrefix = string.match( self.UnitName, ".*#" ):sub( 1, -2 ) + self:T3( UnitPrefix ) + return UnitPrefix + end + + return nil +end + +--- Returns the Unit's ammunition. +-- @param Unit#UNIT self +-- @return DCSUnit#Unit.Ammo +-- @return #nil The DCS Unit is not existing or alive. +function UNIT:GetAmmo() + self:F2( self.UnitName ) + + local DCSUnit = self:GetDCSObject() + + if DCSUnit then + local UnitAmmo = DCSUnit:getAmmo() + return UnitAmmo + end + + return nil +end + +--- Returns the unit sensors. +-- @param Unit#UNIT self +-- @return DCSUnit#Unit.Sensors +-- @return #nil The DCS Unit is not existing or alive. +function UNIT:GetSensors() + self:F2( self.UnitName ) + + local DCSUnit = self:GetDCSObject() + + if DCSUnit then + local UnitSensors = DCSUnit:getSensors() + return UnitSensors + end + + return nil +end + +-- Need to add here a function per sensortype +-- unit:hasSensors(Unit.SensorType.RADAR, Unit.RadarType.AS) + +--- Returns two values: +-- +-- * First value indicates if at least one of the unit's radar(s) is on. +-- * Second value is the object of the radar's interest. Not nil only if at least one radar of the unit is tracking a target. +-- @param Unit#UNIT self +-- @return #boolean Indicates if at least one of the unit's radar(s) is on. +-- @return DCSObject#Object The object of the radar's interest. Not nil only if at least one radar of the unit is tracking a target. +-- @return #nil The DCS Unit is not existing or alive. +function UNIT:GetRadar() + self:F2( self.UnitName ) + + local DCSUnit = self:GetDCSObject() + + if DCSUnit then + local UnitRadarOn, UnitRadarObject = DCSUnit:getRadar() + return UnitRadarOn, UnitRadarObject + end + + return nil, nil +end + +--- Returns relative amount of fuel (from 0.0 to 1.0) the unit has in its internal tanks. If there are additional fuel tanks the value may be greater than 1.0. +-- @param Unit#UNIT self +-- @return #number The relative amount of fuel (from 0.0 to 1.0). +-- @return #nil The DCS Unit is not existing or alive. +function UNIT:GetFuel() + self:F2( self.UnitName ) + + local DCSUnit = self:GetDCSObject() + + if DCSUnit then + local UnitFuel = DCSUnit:getFuel() + return UnitFuel + end + + return nil +end + +--- Returns the unit's health. Dead units has health <= 1.0. +-- @param Unit#UNIT self +-- @return #number The Unit's health value. +-- @return #nil The DCS Unit is not existing or alive. +function UNIT:GetLife() + self:F2( self.UnitName ) + + local DCSUnit = self:GetDCSObject() + + if DCSUnit then + local UnitLife = DCSUnit:getLife() + return UnitLife + end + + return nil +end + +--- Returns the Unit's initial health. +-- @param Unit#UNIT self +-- @return #number The Unit's initial health value. +-- @return #nil The DCS Unit is not existing or alive. +function UNIT:GetLife0() + self:F2( self.UnitName ) + + local DCSUnit = self:GetDCSObject() + + if DCSUnit then + local UnitLife0 = DCSUnit:getLife0() + return UnitLife0 + end + + return nil +end + + + + +-- Is functions + +--- Returns true if the unit is within a @{Zone}. +-- @param #UNIT self +-- @param Zone#ZONE_BASE Zone The zone to test. +-- @return #boolean Returns true if the unit is within the @{Zone#ZONE_BASE} +function UNIT:IsInZone( Zone ) + self:F2( { self.UnitName, Zone } ) + + if self:IsAlive() then + local IsInZone = Zone:IsPointVec3InZone( self:GetPointVec3() ) + + self:T( { IsInZone } ) + return IsInZone + else + return false + end +end + +--- Returns true if the unit is not within a @{Zone}. +-- @param #UNIT self +-- @param Zone#ZONE_BASE Zone The zone to test. +-- @return #boolean Returns true if the unit is not within the @{Zone#ZONE_BASE} +function UNIT:IsNotInZone( Zone ) + self:F2( { self.UnitName, Zone } ) + + if self:IsAlive() then + local IsInZone = not Zone:IsPointVec3InZone( self:GetPointVec3() ) + + self:T( { IsInZone } ) + return IsInZone + else + return false + end +end + + +--- Returns true if there is an **other** DCS Unit within a radius of the current 2D point of the DCS Unit. +-- @param Unit#UNIT self +-- @param Unit#UNIT AwaitUnit The other UNIT wrapper object. +-- @param Radius The radius in meters with the DCS Unit in the centre. +-- @return true If the other DCS Unit is within the radius of the 2D point of the DCS Unit. +-- @return #nil The DCS Unit is not existing or alive. +function UNIT:OtherUnitInRadius( AwaitUnit, Radius ) + self:F2( { self.UnitName, AwaitUnit.UnitName, Radius } ) + + local DCSUnit = self:GetDCSObject() + + if DCSUnit then + local UnitPos = self:GetPointVec3() + local AwaitUnitPos = AwaitUnit:GetPointVec3() + + if (((UnitPos.x - AwaitUnitPos.x)^2 + (UnitPos.z - AwaitUnitPos.z)^2)^0.5 <= Radius) then + self:T3( "true" ) + return true + else + self:T3( "false" ) + return false + end + end + + return nil +end + + + +--- Signal a flare at the position of the UNIT. +-- @param #UNIT self +function UNIT:Flare( FlareColor ) + self:F2() + trigger.action.signalFlare( self:GetPointVec3(), FlareColor , 0 ) +end + +--- Signal a white flare at the position of the UNIT. +-- @param #UNIT self +function UNIT:FlareWhite() + self:F2() + trigger.action.signalFlare( self:GetPointVec3(), trigger.flareColor.White , 0 ) +end + +--- Signal a yellow flare at the position of the UNIT. +-- @param #UNIT self +function UNIT:FlareYellow() + self:F2() + trigger.action.signalFlare( self:GetPointVec3(), trigger.flareColor.Yellow , 0 ) +end + +--- Signal a green flare at the position of the UNIT. +-- @param #UNIT self +function UNIT:FlareGreen() + self:F2() + trigger.action.signalFlare( self:GetPointVec3(), trigger.flareColor.Green , 0 ) +end + +--- Signal a red flare at the position of the UNIT. +-- @param #UNIT self +function UNIT:FlareRed() + self:F2() + trigger.action.signalFlare( self:GetPointVec3(), trigger.flareColor.Red, 0 ) +end + +--- Smoke the UNIT. +-- @param #UNIT self +function UNIT:Smoke( SmokeColor ) + self:F2() + trigger.action.smoke( self:GetPointVec3(), SmokeColor ) +end + +--- Smoke the UNIT Green. +-- @param #UNIT self +function UNIT:SmokeGreen() + self:F2() + trigger.action.smoke( self:GetPointVec3(), trigger.smokeColor.Green ) +end + +--- Smoke the UNIT Red. +-- @param #UNIT self +function UNIT:SmokeRed() + self:F2() + trigger.action.smoke( self:GetPointVec3(), trigger.smokeColor.Red ) +end + +--- Smoke the UNIT White. +-- @param #UNIT self +function UNIT:SmokeWhite() + self:F2() + trigger.action.smoke( self:GetPointVec3(), trigger.smokeColor.White ) +end + +--- Smoke the UNIT Orange. +-- @param #UNIT self +function UNIT:SmokeOrange() + self:F2() + trigger.action.smoke( self:GetPointVec3(), trigger.smokeColor.Orange ) +end + +--- Smoke the UNIT Blue. +-- @param #UNIT self +function UNIT:SmokeBlue() + self:F2() + trigger.action.smoke( self:GetPointVec3(), trigger.smokeColor.Blue ) +end + +-- Is methods + +--- Returns if the unit is of an air category. +-- If the unit is a helicopter or a plane, then this method will return true, otherwise false. +-- @param #UNIT self +-- @return #boolean Air category evaluation result. +function UNIT:IsAir() + self:F2() + + local UnitDescriptor = self.DCSUnit:getDesc() + self:T3( { UnitDescriptor.category, Unit.Category.AIRPLANE, Unit.Category.HELICOPTER } ) + + local IsAirResult = ( UnitDescriptor.category == Unit.Category.AIRPLANE ) or ( UnitDescriptor.category == Unit.Category.HELICOPTER ) + + self:T3( IsAirResult ) + return IsAirResult +end + +--- This module contains the ZONE classes, inherited from @{Zone#ZONE_BASE}. +-- There are essentially two core functions that zones accomodate: +-- +-- * Test if an object is within the zone boundaries. +-- * Provide the zone behaviour. Some zones are static, while others are moveable. +-- +-- The object classes are using the zone classes to test the zone boundaries, which can take various forms: +-- +-- * Test if completely within the zone. +-- * Test if partly within the zone (for @{Group#GROUP} objects). +-- * Test if not in the zone. +-- * Distance to the nearest intersecting point of the zone. +-- * Distance to the center of the zone. +-- * ... +-- +-- Each of these ZONE classes have a zone name, and specific parameters defining the zone type: +-- +-- * @{Zone#ZONE_BASE}: The ZONE_BASE class defining the base for all other zone classes. +-- * @{Zone#ZONE_RADIUS}: The ZONE_RADIUS class defined by a zone name, a location and a radius. +-- * @{Zone#ZONE}: The ZONE class, defined by the zone name as defined within the Mission Editor. +-- * @{Zone#ZONE_UNIT}: The ZONE_UNIT class defines by a zone around a @{Unit#UNIT} with a radius. +-- * @{Zone#ZONE_GROUP}: The ZONE_GROUP class defines by a zone around a @{Group#GROUP} with a radius. +-- * @{Zone#ZONE_POLYGON}: The ZONE_POLYGON class defines by a sequence of @{Group#GROUP} waypoints within the Mission Editor, forming a polygon. +-- +-- Each zone implements two polymorphic functions defined in @{Zone#ZONE_BASE}: +-- +-- * @{#ZONE_BASE.IsPointVec2InZone}: Returns if a location is within the zone. +-- * @{#ZONE_BASE.IsPointVec3InZone}: Returns if a point is within the zone. +-- +-- === +-- +-- 1) @{Zone#ZONE_BASE} class, extends @{Base#BASE} +-- ================================================ +-- The ZONE_BASE class defining the base for all other zone classes. +-- +-- === +-- +-- 2) @{Zone#ZONE_RADIUS} class, extends @{Zone#ZONE_BASE} +-- ======================================================= +-- The ZONE_RADIUS class defined by a zone name, a location and a radius. +-- +-- === +-- +-- 3) @{Zone#ZONE} class, extends @{Zone#ZONE_RADIUS} +-- ========================================== +-- The ZONE class, defined by the zone name as defined within the Mission Editor. +-- +-- === +-- +-- 4) @{Zone#ZONE_UNIT} class, extends @{Zone#ZONE_RADIUS} +-- ======================================================= +-- The ZONE_UNIT class defined by a zone around a @{Unit#UNIT} with a radius. +-- +-- === +-- +-- 5) @{Zone#ZONE_GROUP} class, extends @{Zone#ZONE_RADIUS} +-- ======================================================= +-- The ZONE_GROUP class defines by a zone around a @{Group#GROUP} with a radius. The current leader of the group defines the center of the zone. +-- +-- === +-- +-- 6) @{Zone#ZONE_POLYGON} class, extends @{Zone#ZONE_BASE} +-- ======================================================== +-- The ZONE_POLYGON class defined by a sequence of @{Group#GROUP} waypoints within the Mission Editor, forming a polygon. +-- +-- === +-- +-- @module Zone +-- @author FlightControl + + +--- The ZONE_BASE class +-- @type ZONE_BASE +-- @field #string ZoneName Name of the zone. +-- @extends Base#BASE +ZONE_BASE = { + ClassName = "ZONE_BASE", + } + + +--- The ZONE_BASE.BoundingSquare +-- @type ZONE_BASE.BoundingSquare +-- @field DCSTypes#Distance x1 The lower x coordinate (left down) +-- @field DCSTypes#Distance y1 The lower y coordinate (left down) +-- @field DCSTypes#Distance x2 The higher x coordinate (right up) +-- @field DCSTypes#Distance y2 The higher y coordinate (right up) + + +--- ZONE_BASE constructor +-- @param #ZONE_BASE self +-- @param #string ZoneName Name of the zone. +-- @return #ZONE_BASE self +function ZONE_BASE:New( ZoneName ) + local self = BASE:Inherit( self, BASE:New() ) + self:F( ZoneName ) + + self.ZoneName = ZoneName + + return self +end + +--- Returns if a location is within the zone. +-- @param #ZONE_BASE self +-- @param DCSTypes#Vec2 PointVec2 The location to test. +-- @return #boolean true if the location is within the zone. +function ZONE_BASE:IsPointVec2InZone( PointVec2 ) + self:F2( PointVec2 ) + + return false +end + +--- Returns if a point is within the zone. +-- @param #ZONE_BASE self +-- @param DCSTypes#Vec3 PointVec3 The point to test. +-- @return #boolean true if the point is within the zone. +function ZONE_BASE:IsPointVec3InZone( PointVec3 ) + self:F2( PointVec3 ) + + local InZone = self:IsPointVec2InZone( { x = PointVec3.x, y = PointVec3.z } ) + + return InZone +end + +--- Define a random @{DCSTypes#Vec2} within the zone. +-- @param #ZONE_BASE self +-- @return DCSTypes#Vec2 The Vec2 coordinates. +function ZONE_BASE:GetRandomVec2() + return { x = 0, y = 0 } +end + +--- Get the bounding square the zone. +-- @param #ZONE_BASE self +-- @return #ZONE_BASE.BoundingSquare The bounding square. +function ZONE_BASE:GetBoundingSquare() + return { x1 = 0, y1 = 0, x2 = 0, y2 = 0 } +end + + +--- Smokes the zone boundaries in a color. +-- @param #ZONE_BASE self +-- @param SmokeColor The smoke color. +function ZONE_BASE:SmokeZone( SmokeColor ) + self:F2( SmokeColor ) + +end + + +--- The ZONE_RADIUS class, defined by a zone name, a location and a radius. +-- @type ZONE_RADIUS +-- @field DCSTypes#Vec2 PointVec2 The current location of the zone. +-- @field DCSTypes#Distance Radius The radius of the zone. +-- @extends Zone#ZONE_BASE +ZONE_RADIUS = { + ClassName="ZONE_RADIUS", + } + +--- Constructor of ZONE_RADIUS, taking the zone name, the zone location and a radius. +-- @param #ZONE_RADIUS self +-- @param #string ZoneName Name of the zone. +-- @param DCSTypes#Vec2 PointVec2 The location of the zone. +-- @param DCSTypes#Distance Radius The radius of the zone. +-- @return #ZONE_RADIUS self +function ZONE_RADIUS:New( ZoneName, PointVec2, Radius ) + local self = BASE:Inherit( self, ZONE_BASE:New( ZoneName ) ) + self:F( { ZoneName, PointVec2, Radius } ) + + self.Radius = Radius + self.PointVec2 = PointVec2 + + return self +end + +--- Smokes the zone boundaries in a color. +-- @param #ZONE_RADIUS self +-- @param #POINT_VEC3.SmokeColor SmokeColor The smoke color. +-- @param #number Points (optional) The amount of points in the circle. +-- @return #ZONE_RADIUS self +function ZONE_RADIUS:SmokeZone( SmokeColor, Points ) + self:F2( SmokeColor ) + + local Point = {} + local PointVec2 = self:GetPointVec2() + + Points = Points and Points or 360 + + local Angle + local RadialBase = math.pi*2 + + for Angle = 0, 360, 360 / Points do + local Radial = Angle * RadialBase / 360 + Point.x = PointVec2.x + math.cos( Radial ) * self:GetRadius() + Point.y = PointVec2.y + math.sin( Radial ) * self:GetRadius() + POINT_VEC2:New( Point.x, Point.y ):Smoke( SmokeColor ) + end + + return self +end + + +--- Flares the zone boundaries in a color. +-- @param #ZONE_RADIUS self +-- @param #POINT_VEC3.FlareColor FlareColor The flare color. +-- @param #number Points (optional) The amount of points in the circle. +-- @param DCSTypes#Azimuth Azimuth (optional) Azimuth The azimuth of the flare. +-- @return #ZONE_RADIUS self +function ZONE_RADIUS:FlareZone( FlareColor, Points, Azimuth ) + self:F2( { FlareColor, Azimuth } ) + + local Point = {} + local PointVec2 = self:GetPointVec2() + + Points = Points and Points or 360 + + local Angle + local RadialBase = math.pi*2 + + for Angle = 0, 360, 360 / Points do + local Radial = Angle * RadialBase / 360 + Point.x = PointVec2.x + math.cos( Radial ) * self:GetRadius() + Point.y = PointVec2.y + math.sin( Radial ) * self:GetRadius() + POINT_VEC2:New( Point.x, Point.y ):Flare( FlareColor, Azimuth ) + end + + return self +end + +--- Returns the radius of the zone. +-- @param #ZONE_RADIUS self +-- @return DCSTypes#Distance The radius of the zone. +function ZONE_RADIUS:GetRadius() + self:F2( self.ZoneName ) + + self:T2( { self.Radius } ) + + return self.Radius +end + +--- Sets the radius of the zone. +-- @param #ZONE_RADIUS self +-- @param DCSTypes#Distance Radius The radius of the zone. +-- @return DCSTypes#Distance The radius of the zone. +function ZONE_RADIUS:SetRadius( Radius ) + self:F2( self.ZoneName ) + + self.Radius = Radius + self:T2( { self.Radius } ) + + return self.Radius +end + +--- Returns the location of the zone. +-- @param #ZONE_RADIUS self +-- @return DCSTypes#Vec2 The location of the zone. +function ZONE_RADIUS:GetPointVec2() + self:F2( self.ZoneName ) + + self:T2( { self.PointVec2 } ) + + return self.PointVec2 +end + +--- Sets the location of the zone. +-- @param #ZONE_RADIUS self +-- @param DCSTypes#Vec2 PointVec2 The new location of the zone. +-- @return DCSTypes#Vec2 The new location of the zone. +function ZONE_RADIUS:SetPointVec2( PointVec2 ) + self:F2( self.ZoneName ) + + self.PointVec2 = PointVec2 + + self:T2( { self.PointVec2 } ) + + return self.PointVec2 +end + +--- Returns the point of the zone. +-- @param #ZONE_RADIUS self +-- @param DCSTypes#Distance Height The height to add to the land height where the center of the zone is located. +-- @return DCSTypes#Vec3 The point of the zone. +function ZONE_RADIUS:GetPointVec3( Height ) + self:F2( self.ZoneName ) + + local PointVec2 = self:GetPointVec2() + + local PointVec3 = { x = PointVec2.x, y = land.getHeight( self:GetPointVec2() ) + Height, z = PointVec2.y } + + self:T2( { PointVec3 } ) + + return PointVec3 +end + + +--- Returns if a location is within the zone. +-- @param #ZONE_RADIUS self +-- @param DCSTypes#Vec2 PointVec2 The location to test. +-- @return #boolean true if the location is within the zone. +function ZONE_RADIUS:IsPointVec2InZone( PointVec2 ) + self:F2( PointVec2 ) + + local ZonePointVec2 = self:GetPointVec2() + + if (( PointVec2.x - ZonePointVec2.x )^2 + ( PointVec2.y - ZonePointVec2.y ) ^2 ) ^ 0.5 <= self:GetRadius() then + return true + end + + return false +end + +--- Returns if a point is within the zone. +-- @param #ZONE_RADIUS self +-- @param DCSTypes#Vec3 PointVec3 The point to test. +-- @return #boolean true if the point is within the zone. +function ZONE_RADIUS:IsPointVec3InZone( PointVec3 ) + self:F2( PointVec3 ) + + local InZone = self:IsPointVec2InZone( { x = PointVec3.x, y = PointVec3.z } ) + + return InZone +end + +--- Returns a random location within the zone. +-- @param #ZONE_RADIUS self +-- @return DCSTypes#Vec2 The random location within the zone. +function ZONE_RADIUS:GetRandomVec2() + self:F( self.ZoneName ) + + local Point = {} + local PointVec2 = self:GetPointVec2() + + local angle = math.random() * math.pi*2; + Point.x = PointVec2.x + math.cos( angle ) * math.random() * self:GetRadius(); + Point.y = PointVec2.y + math.sin( angle ) * math.random() * self:GetRadius(); + + self:T( { Point } ) + + return Point +end + + + +--- The ZONE class, defined by the zone name as defined within the Mission Editor. The location and the radius are automatically collected from the mission settings. +-- @type ZONE +-- @extends Zone#ZONE_RADIUS +ZONE = { + ClassName="ZONE", + } + + +--- Constructor of ZONE, taking the zone name. +-- @param #ZONE self +-- @param #string ZoneName The name of the zone as defined within the mission editor. +-- @return #ZONE +function ZONE:New( ZoneName ) + + local Zone = trigger.misc.getZone( ZoneName ) + + if not Zone then + error( "Zone " .. ZoneName .. " does not exist." ) + return nil + end + + local self = BASE:Inherit( self, ZONE_RADIUS:New( ZoneName, { x = Zone.point.x, y = Zone.point.z }, Zone.radius ) ) + self:F( ZoneName ) + + self.Zone = Zone + + return self +end + + +--- The ZONE_UNIT class defined by a zone around a @{Unit#UNIT} with a radius. +-- @type ZONE_UNIT +-- @field Unit#UNIT ZoneUNIT +-- @extends Zone#ZONE_RADIUS +ZONE_UNIT = { + ClassName="ZONE_UNIT", + } + +--- Constructor to create a ZONE_UNIT instance, taking the zone name, a zone unit and a radius. +-- @param #ZONE_UNIT self +-- @param #string ZoneName Name of the zone. +-- @param Unit#UNIT ZoneUNIT The unit as the center of the zone. +-- @param DCSTypes#Distance Radius The radius of the zone. +-- @return #ZONE_UNIT self +function ZONE_UNIT:New( ZoneName, ZoneUNIT, Radius ) + local self = BASE:Inherit( self, ZONE_RADIUS:New( ZoneName, ZoneUNIT:GetPointVec2(), Radius ) ) + self:F( { ZoneName, ZoneUNIT:GetPointVec2(), Radius } ) + + self.ZoneUNIT = ZoneUNIT + + return self +end + + +--- Returns the current location of the @{Unit#UNIT}. +-- @param #ZONE_UNIT self +-- @return DCSTypes#Vec2 The location of the zone based on the @{Unit#UNIT}location. +function ZONE_UNIT:GetPointVec2() + self:F( self.ZoneName ) + + local ZonePointVec2 = self.ZoneUNIT:GetPointVec2() + + self:T( { ZonePointVec2 } ) + + return ZonePointVec2 +end + +--- Returns a random location within the zone. +-- @param #ZONE_UNIT self +-- @return DCSTypes#Vec2 The random location within the zone. +function ZONE_UNIT:GetRandomVec2() + self:F( self.ZoneName ) + + local Point = {} + local PointVec2 = self.ZoneUNIT:GetPointVec2() + + local angle = math.random() * math.pi*2; + Point.x = PointVec2.x + math.cos( angle ) * math.random() * self:GetRadius(); + Point.y = PointVec2.y + math.sin( angle ) * math.random() * self:GetRadius(); + + self:T( { Point } ) + + return Point +end + +--- The ZONE_GROUP class defined by a zone around a @{Group}, taking the average center point of all the units within the Group, with a radius. +-- @type ZONE_GROUP +-- @field Group#GROUP ZoneGROUP +-- @extends Zone#ZONE_RADIUS +ZONE_GROUP = { + ClassName="ZONE_GROUP", + } + +--- Constructor to create a ZONE_GROUP instance, taking the zone name, a zone @{Group#GROUP} and a radius. +-- @param #ZONE_GROUP self +-- @param #string ZoneName Name of the zone. +-- @param Group#GROUP ZoneGROUP The @{Group} as the center of the zone. +-- @param DCSTypes#Distance Radius The radius of the zone. +-- @return #ZONE_GROUP self +function ZONE_GROUP:New( ZoneName, ZoneGROUP, Radius ) + local self = BASE:Inherit( self, ZONE_RADIUS:New( ZoneName, ZoneGROUP:GetPointVec2(), Radius ) ) + self:F( { ZoneName, ZoneGROUP:GetPointVec2(), Radius } ) + + self.ZoneGROUP = ZoneGROUP + + return self +end + + +--- Returns the current location of the @{Group}. +-- @param #ZONE_GROUP self +-- @return DCSTypes#Vec2 The location of the zone based on the @{Group} location. +function ZONE_GROUP:GetPointVec2() + self:F( self.ZoneName ) + + local ZonePointVec2 = self.ZoneGROUP:GetPointVec2() + + self:T( { ZonePointVec2 } ) + + return ZonePointVec2 +end + +--- Returns a random location within the zone of the @{Group}. +-- @param #ZONE_GROUP self +-- @return DCSTypes#Vec2 The random location of the zone based on the @{Group} location. +function ZONE_GROUP:GetRandomVec2() + self:F( self.ZoneName ) + + local Point = {} + local PointVec2 = self.ZoneGROUP:GetPointVec2() + + local angle = math.random() * math.pi*2; + Point.x = PointVec2.x + math.cos( angle ) * math.random() * self:GetRadius(); + Point.y = PointVec2.y + math.sin( angle ) * math.random() * self:GetRadius(); + + self:T( { Point } ) + + return Point +end + + + +-- Polygons + +--- The ZONE_POLYGON_BASE class defined by an array of @{DCSTypes#Vec2}, forming a polygon. +-- @type ZONE_POLYGON_BASE +-- @field #ZONE_POLYGON_BASE.ListVec2 Polygon The polygon defined by an array of @{DCSTypes#Vec2}. +-- @extends Zone#ZONE_BASE +ZONE_POLYGON_BASE = { + ClassName="ZONE_POLYGON_BASE", + } + +--- A points array. +-- @type ZONE_POLYGON_BASE.ListVec2 +-- @list + +--- Constructor to create a ZONE_POLYGON_BASE instance, taking the zone name and an array of @{DCSTypes#Vec2}, forming a polygon. +-- The @{Group#GROUP} waypoints define the polygon corners. The first and the last point are automatically connected. +-- @param #ZONE_POLYGON_BASE self +-- @param #string ZoneName Name of the zone. +-- @param #ZONE_POLYGON_BASE.ListVec2 PointsArray An array of @{DCSTypes#Vec2}, forming a polygon.. +-- @return #ZONE_POLYGON_BASE self +function ZONE_POLYGON_BASE:New( ZoneName, PointsArray ) + local self = BASE:Inherit( self, ZONE_BASE:New( ZoneName ) ) + self:F( { ZoneName, PointsArray } ) + + local i = 0 + + self.Polygon = {} + + for i = 1, #PointsArray do + self.Polygon[i] = {} + self.Polygon[i].x = PointsArray[i].x + self.Polygon[i].y = PointsArray[i].y + end + + return self +end + +--- Flush polygon coordinates as a table in DCS.log. +-- @param #ZONE_POLYGON_BASE self +-- @return #ZONE_POLYGON_BASE self +function ZONE_POLYGON_BASE:Flush() + self:F2() + + self:E( { Polygon = self.ZoneName, Coordinates = self.Polygon } ) + + return self +end + + +--- Smokes the zone boundaries in a color. +-- @param #ZONE_POLYGON_BASE self +-- @param #POINT_VEC3.SmokeColor SmokeColor The smoke color. +-- @return #ZONE_POLYGON_BASE self +function ZONE_POLYGON_BASE:SmokeZone( SmokeColor ) + self:F2( SmokeColor ) + + local i + local j + local Segments = 10 + + i = 1 + j = #self.Polygon + + while i <= #self.Polygon do + self:T( { i, j, self.Polygon[i], self.Polygon[j] } ) + + local DeltaX = self.Polygon[j].x - self.Polygon[i].x + local DeltaY = self.Polygon[j].y - self.Polygon[i].y + + for Segment = 0, Segments do -- We divide each line in 5 segments and smoke a point on the line. + local PointX = self.Polygon[i].x + ( Segment * DeltaX / Segments ) + local PointY = self.Polygon[i].y + ( Segment * DeltaY / Segments ) + POINT_VEC2:New( PointX, PointY ):Smoke( SmokeColor ) + end + j = i + i = i + 1 + end + + return self +end + + + + +--- Returns if a location is within the zone. +-- Source learned and taken from: https://www.ecse.rpi.edu/Homepages/wrf/Research/Short_Notes/pnpoly.html +-- @param #ZONE_POLYGON_BASE self +-- @param DCSTypes#Vec2 PointVec2 The location to test. +-- @return #boolean true if the location is within the zone. +function ZONE_POLYGON_BASE:IsPointVec2InZone( PointVec2 ) + self:F2( PointVec2 ) + + local Next + local Prev + local InPolygon = false + + Next = 1 + Prev = #self.Polygon + + while Next <= #self.Polygon do + self:T( { Next, Prev, self.Polygon[Next], self.Polygon[Prev] } ) + if ( ( ( self.Polygon[Next].y > PointVec2.y ) ~= ( self.Polygon[Prev].y > PointVec2.y ) ) and + ( PointVec2.x < ( self.Polygon[Prev].x - self.Polygon[Next].x ) * ( PointVec2.y - self.Polygon[Next].y ) / ( self.Polygon[Prev].y - self.Polygon[Next].y ) + self.Polygon[Next].x ) + ) then + InPolygon = not InPolygon + end + self:T2( { InPolygon = InPolygon } ) + Prev = Next + Next = Next + 1 + end + + self:T( { InPolygon = InPolygon } ) + return InPolygon +end + +--- Define a random @{DCSTypes#Vec2} within the zone. +-- @param #ZONE_POLYGON_BASE self +-- @return DCSTypes#Vec2 The Vec2 coordinate. +function ZONE_POLYGON_BASE:GetRandomVec2() + self:F2() + + --- It is a bit tricky to find a random point within a polygon. Right now i am doing it the dirty and inefficient way... + local Vec2Found = false + local Vec2 + local BS = self:GetBoundingSquare() + + self:T2( BS ) + + while Vec2Found == false do + Vec2 = { x = math.random( BS.x1, BS.x2 ), y = math.random( BS.y1, BS.y2 ) } + self:T2( Vec2 ) + if self:IsPointVec2InZone( Vec2 ) then + Vec2Found = true + end + end + + self:T2( Vec2 ) + + return Vec2 +end + +--- Get the bounding square the zone. +-- @param #ZONE_POLYGON_BASE self +-- @return #ZONE_POLYGON_BASE.BoundingSquare The bounding square. +function ZONE_POLYGON_BASE:GetBoundingSquare() + + local x1 = self.Polygon[1].x + local y1 = self.Polygon[1].y + local x2 = self.Polygon[1].x + local y2 = self.Polygon[1].y + + for i = 2, #self.Polygon do + self:T2( { self.Polygon[i], x1, y1, x2, y2 } ) + x1 = ( x1 > self.Polygon[i].x ) and self.Polygon[i].x or x1 + x2 = ( x2 < self.Polygon[i].x ) and self.Polygon[i].x or x2 + y1 = ( y1 > self.Polygon[i].y ) and self.Polygon[i].y or y1 + y2 = ( y2 < self.Polygon[i].y ) and self.Polygon[i].y or y2 + + end + + return { x1 = x1, y1 = y1, x2 = x2, y2 = y2 } +end + + + + + +--- The ZONE_POLYGON class defined by a sequence of @{Group#GROUP} waypoints within the Mission Editor, forming a polygon. +-- @type ZONE_POLYGON +-- @extends Zone#ZONE_POLYGON_BASE +ZONE_POLYGON = { + ClassName="ZONE_POLYGON", + } + +--- Constructor to create a ZONE_POLYGON instance, taking the zone name and the name of the @{Group#GROUP} defined within the Mission Editor. +-- The @{Group#GROUP} waypoints define the polygon corners. The first and the last point are automatically connected by ZONE_POLYGON. +-- @param #ZONE_POLYGON self +-- @param #string ZoneName Name of the zone. +-- @param Group#GROUP ZoneGroup The GROUP waypoints as defined within the Mission Editor define the polygon shape. +-- @return #ZONE_POLYGON self +function ZONE_POLYGON:New( ZoneName, ZoneGroup ) + + local GroupPoints = ZoneGroup:GetTaskRoute() + + local self = BASE:Inherit( self, ZONE_POLYGON_BASE:New( ZoneName, GroupPoints ) ) + self:F( { ZoneName, ZoneGroup, self.Polygon } ) + + return self +end + +--- This module contains the CLIENT class. +-- +-- 1) @{Client#CLIENT} class, extends @{Unit#UNIT} +-- =============================================== +-- Clients are those **Units** defined within the Mission Editor that have the skillset defined as __Client__ or __Player__. +-- Note that clients are NOT the same as Units, they are NOT necessarily alive. +-- The @{Client#CLIENT} class is a wrapper class to handle the DCS Unit objects that have the skillset defined as __Client__ or __Player__: +-- +-- * Wraps the DCS Unit objects with skill level set to Player or Client. +-- * Support all DCS Unit APIs. +-- * Enhance with Unit specific APIs not in the DCS Group API set. +-- * When player joins Unit, execute alive init logic. +-- * Handles messages to players. +-- * Manage the "state" of the DCS Unit. +-- +-- Clients are being used by the @{MISSION} class to follow players and register their successes. +-- +-- 1.1) CLIENT reference methods +-- ----------------------------- +-- For each DCS Unit having skill level Player or Client, a CLIENT wrapper object (instance) will be created within the _@{DATABASE} object. +-- This is done at the beginning of the mission (when the mission starts). +-- +-- The CLIENT class does not contain a :New() method, rather it provides :Find() methods to retrieve the object reference +-- using the DCS Unit or the DCS UnitName. +-- +-- Another thing to know is that CLIENT objects do not "contain" the DCS Unit object. +-- The CLIENT methods will reference the DCS Unit object by name when it is needed during API execution. +-- If the DCS Unit object does not exist or is nil, the CLIENT methods will return nil and log an exception in the DCS.log file. +-- +-- The CLIENT class provides the following functions to retrieve quickly the relevant CLIENT instance: +-- +-- * @{#CLIENT.Find}(): Find a CLIENT instance from the _DATABASE object using a DCS Unit object. +-- * @{#CLIENT.FindByName}(): Find a CLIENT instance from the _DATABASE object using a DCS Unit name. +-- +-- IMPORTANT: ONE SHOULD NEVER SANATIZE these CLIENT OBJECT REFERENCES! (make the CLIENT object references nil). +-- +-- @module Client +-- @author FlightControl + +--- The CLIENT class +-- @type CLIENT +-- @extends Unit#UNIT +CLIENT = { + ONBOARDSIDE = { + NONE = 0, + LEFT = 1, + RIGHT = 2, + BACK = 3, + FRONT = 4 + }, + ClassName = "CLIENT", + ClientName = nil, + ClientAlive = false, + ClientTransport = false, + ClientBriefingShown = false, + _Menus = {}, + _Tasks = {}, + Messages = { + } +} + + +--- Finds a CLIENT from the _DATABASE using the relevant DCS Unit. +-- @param #CLIENT self +-- @param #string ClientName Name of the DCS **Unit** as defined within the Mission Editor. +-- @param #string ClientBriefing Text that describes the briefing of the mission when a Player logs into the Client. +-- @return #CLIENT +-- @usage +-- -- Create new Clients. +-- local Mission = MISSIONSCHEDULER.AddMission( 'Russia Transport Troops SA-6', 'Operational', 'Transport troops from the control center to one of the SA-6 SAM sites to activate their operation.', 'Russia' ) +-- Mission:AddGoal( DeploySA6TroopsGoal ) +-- +-- Mission:AddClient( CLIENT:FindByName( 'RU MI-8MTV2*HOT-Deploy Troops 1' ):Transport() ) +-- Mission:AddClient( CLIENT:FindByName( 'RU MI-8MTV2*RAMP-Deploy Troops 3' ):Transport() ) +-- Mission:AddClient( CLIENT:FindByName( 'RU MI-8MTV2*HOT-Deploy Troops 2' ):Transport() ) +-- Mission:AddClient( CLIENT:FindByName( 'RU MI-8MTV2*RAMP-Deploy Troops 4' ):Transport() ) +function CLIENT:Find( DCSUnit ) + local ClientName = DCSUnit:getName() + local ClientFound = _DATABASE:FindClient( ClientName ) + + if ClientFound then + ClientFound:F( ClientName ) + return ClientFound + end + + error( "CLIENT not found for: " .. ClientName ) +end + + +--- Finds a CLIENT from the _DATABASE using the relevant Client Unit Name. +-- As an optional parameter, a briefing text can be given also. +-- @param #CLIENT self +-- @param #string ClientName Name of the DCS **Unit** as defined within the Mission Editor. +-- @param #string ClientBriefing Text that describes the briefing of the mission when a Player logs into the Client. +-- @return #CLIENT +-- @usage +-- -- Create new Clients. +-- local Mission = MISSIONSCHEDULER.AddMission( 'Russia Transport Troops SA-6', 'Operational', 'Transport troops from the control center to one of the SA-6 SAM sites to activate their operation.', 'Russia' ) +-- Mission:AddGoal( DeploySA6TroopsGoal ) +-- +-- Mission:AddClient( CLIENT:FindByName( 'RU MI-8MTV2*HOT-Deploy Troops 1' ):Transport() ) +-- Mission:AddClient( CLIENT:FindByName( 'RU MI-8MTV2*RAMP-Deploy Troops 3' ):Transport() ) +-- Mission:AddClient( CLIENT:FindByName( 'RU MI-8MTV2*HOT-Deploy Troops 2' ):Transport() ) +-- Mission:AddClient( CLIENT:FindByName( 'RU MI-8MTV2*RAMP-Deploy Troops 4' ):Transport() ) +function CLIENT:FindByName( ClientName, ClientBriefing ) + local ClientFound = _DATABASE:FindClient( ClientName ) + + if ClientFound then + ClientFound:F( { ClientName, ClientBriefing } ) + ClientFound:AddBriefing( ClientBriefing ) + ClientFound.MessageSwitch = true + + return ClientFound + end + + error( "CLIENT not found for: " .. ClientName ) +end + +function CLIENT:Register( ClientName ) + local self = BASE:Inherit( self, UNIT:Register( ClientName ) ) + + self:F( ClientName ) + self.ClientName = ClientName + self.MessageSwitch = true + self.ClientAlive2 = false + + --self.AliveCheckScheduler = routines.scheduleFunction( self._AliveCheckScheduler, { self }, timer.getTime() + 1, 5 ) + self.AliveCheckScheduler = SCHEDULER:New( self, self._AliveCheckScheduler, { "Client Alive " .. ClientName }, 1, 5 ) + + self:E( self ) + return self +end + + +--- Transport defines that the Client is a Transport. Transports show cargo. +-- @param #CLIENT self +-- @return #CLIENT +function CLIENT:Transport() + self:F() + + self.ClientTransport = true + return self +end + +--- AddBriefing adds a briefing to a CLIENT when a player joins a mission. +-- @param #CLIENT self +-- @param #string ClientBriefing is the text defining the Mission briefing. +-- @return #CLIENT self +function CLIENT:AddBriefing( ClientBriefing ) + self:F( ClientBriefing ) + self.ClientBriefing = ClientBriefing + self.ClientBriefingShown = false + + return self +end + +--- Show the briefing of a CLIENT. +-- @param #CLIENT self +-- @return #CLIENT self +function CLIENT:ShowBriefing() + self:F( { self.ClientName, self.ClientBriefingShown } ) + + if not self.ClientBriefingShown then + self.ClientBriefingShown = true + local Briefing = "" + if self.ClientBriefing then + Briefing = Briefing .. self.ClientBriefing + end + Briefing = Briefing .. " Press [LEFT ALT]+[B] to view the complete mission briefing." + self:Message( Briefing, 60, "Briefing" ) + end + + return self +end + +--- Show the mission briefing of a MISSION to the CLIENT. +-- @param #CLIENT self +-- @param #string MissionBriefing +-- @return #CLIENT self +function CLIENT:ShowMissionBriefing( MissionBriefing ) + self:F( { self.ClientName } ) + + if MissionBriefing then + self:Message( MissionBriefing, 60, "Mission Briefing" ) + end + + return self +end + + + +--- Resets a CLIENT. +-- @param #CLIENT self +-- @param #string ClientName Name of the Group as defined within the Mission Editor. The Group must have a Unit with the type Client. +function CLIENT:Reset( ClientName ) + self:F() + self._Menus = {} +end + +-- Is Functions + +--- Checks if the CLIENT is a multi-seated UNIT. +-- @param #CLIENT self +-- @return #boolean true if multi-seated. +function CLIENT:IsMultiSeated() + self:F( self.ClientName ) + + local ClientMultiSeatedTypes = { + ["Mi-8MT"] = "Mi-8MT", + ["UH-1H"] = "UH-1H", + ["P-51B"] = "P-51B" + } + + if self:IsAlive() then + local ClientTypeName = self:GetClientGroupUnit():GetTypeName() + if ClientMultiSeatedTypes[ClientTypeName] then + return true + end + end + + return false +end + +--- Checks for a client alive event and calls a function on a continuous basis. +-- @param #CLIENT self +-- @param #function CallBack Function. +-- @return #CLIENT +function CLIENT:Alive( CallBackFunction, ... ) + self:F() + + self.ClientCallBack = CallBackFunction + self.ClientParameters = arg + + return self +end + +--- @param #CLIENT self +function CLIENT:_AliveCheckScheduler( SchedulerName ) + self:F( { SchedulerName, self.ClientName, self.ClientAlive2, self.ClientBriefingShown, self.ClientCallBack } ) + + if self:IsAlive() then + if self.ClientAlive2 == false then + self:ShowBriefing() + if self.ClientCallBack then + self:T("Calling Callback function") + self.ClientCallBack( self, unpack( self.ClientParameters ) ) + end + self.ClientAlive2 = true + end + else + if self.ClientAlive2 == true then + self.ClientAlive2 = false + end + end + + return true +end + +--- Return the DCSGroup of a Client. +-- This function is modified to deal with a couple of bugs in DCS 1.5.3 +-- @param #CLIENT self +-- @return DCSGroup#Group +function CLIENT:GetDCSGroup() + self:F3() + +-- local ClientData = Group.getByName( self.ClientName ) +-- if ClientData and ClientData:isExist() then +-- self:T( self.ClientName .. " : group found!" ) +-- return ClientData +-- else +-- return nil +-- end + + local ClientUnit = Unit.getByName( self.ClientName ) + + local CoalitionsData = { AlivePlayersRed = coalition.getPlayers( coalition.side.RED ), AlivePlayersBlue = coalition.getPlayers( coalition.side.BLUE ) } + for CoalitionId, CoalitionData in pairs( CoalitionsData ) do + self:T3( { "CoalitionData:", CoalitionData } ) + for UnitId, UnitData in pairs( CoalitionData ) do + self:T3( { "UnitData:", UnitData } ) + if UnitData and UnitData:isExist() then + + --self:E(self.ClientName) + if ClientUnit then + local ClientGroup = ClientUnit:getGroup() + if ClientGroup then + self:T3( "ClientGroup = " .. self.ClientName ) + if ClientGroup:isExist() and UnitData:getGroup():isExist() then + if ClientGroup:getID() == UnitData:getGroup():getID() then + self:T3( "Normal logic" ) + self:T3( self.ClientName .. " : group found!" ) + self.ClientGroupID = ClientGroup:getID() + self.ClientGroupName = ClientGroup:getName() + return ClientGroup + end + else + -- Now we need to resolve the bugs in DCS 1.5 ... + -- Consult the database for the units of the Client Group. (ClientGroup:getUnits() returns nil) + self:T3( "Bug 1.5 logic" ) + local ClientGroupTemplate = _DATABASE.Templates.Units[self.ClientName].GroupTemplate + self.ClientGroupID = ClientGroupTemplate.groupId + self.ClientGroupName = _DATABASE.Templates.Units[self.ClientName].GroupName + self:T3( self.ClientName .. " : group found in bug 1.5 resolvement logic!" ) + return ClientGroup + end + -- else + -- error( "Client " .. self.ClientName .. " not found!" ) + end + else + --self:E( { "Client not found!", self.ClientName } ) + end + end + end + end + + -- For non player clients + if ClientUnit then + local ClientGroup = ClientUnit:getGroup() + if ClientGroup then + self:T3( "ClientGroup = " .. self.ClientName ) + if ClientGroup:isExist() then + self:T3( "Normal logic" ) + self:T3( self.ClientName .. " : group found!" ) + return ClientGroup + end + end + end + + self.ClientGroupID = nil + self.ClientGroupUnit = nil + + return nil +end + + +-- TODO: Check DCSTypes#Group.ID +--- Get the group ID of the client. +-- @param #CLIENT self +-- @return DCSTypes#Group.ID +function CLIENT:GetClientGroupID() + + local ClientGroup = self:GetDCSGroup() + + --self:E( self.ClientGroupID ) -- Determined in GetDCSGroup() + return self.ClientGroupID +end + + +--- Get the name of the group of the client. +-- @param #CLIENT self +-- @return #string +function CLIENT:GetClientGroupName() + + local ClientGroup = self:GetDCSGroup() + + self:T( self.ClientGroupName ) -- Determined in GetDCSGroup() + return self.ClientGroupName +end + +--- Returns the UNIT of the CLIENT. +-- @param #CLIENT self +-- @return Unit#UNIT +function CLIENT:GetClientGroupUnit() + self:F2() + + local ClientDCSUnit = Unit.getByName( self.ClientName ) + + self:T( self.ClientDCSUnit ) + if ClientDCSUnit and ClientDCSUnit:isExist() then + local ClientUnit = _DATABASE:FindUnit( self.ClientName ) + self:T2( ClientUnit ) + return ClientUnit + end +end + +--- Returns the DCSUnit of the CLIENT. +-- @param #CLIENT self +-- @return DCSTypes#Unit +function CLIENT:GetClientGroupDCSUnit() + self:F2() + + local ClientDCSUnit = Unit.getByName( self.ClientName ) + + if ClientDCSUnit and ClientDCSUnit:isExist() then + self:T2( ClientDCSUnit ) + return ClientDCSUnit + end +end + + +--- Evaluates if the CLIENT is a transport. +-- @param #CLIENT self +-- @return #boolean true is a transport. +function CLIENT:IsTransport() + self:F() + return self.ClientTransport +end + +--- Shows the @{Cargo#CARGO} contained within the CLIENT to the player as a message. +-- The @{Cargo#CARGO} is shown using the @{Message#MESSAGE} distribution system. +-- @param #CLIENT self +function CLIENT:ShowCargo() + self:F() + + local CargoMsg = "" + + for CargoName, Cargo in pairs( CARGOS ) do + if self == Cargo:IsLoadedInClient() then + CargoMsg = CargoMsg .. Cargo.CargoName .. " Type:" .. Cargo.CargoType .. " Weight: " .. Cargo.CargoWeight .. "\n" + end + end + + if CargoMsg == "" then + CargoMsg = "empty" + end + + self:Message( CargoMsg, 15, "Co-Pilot: Cargo Status", 30 ) + +end + +-- TODO (1) I urgently need to revise this. +--- A local function called by the DCS World Menu system to switch off messages. +function CLIENT.SwitchMessages( PrmTable ) + PrmTable[1].MessageSwitch = PrmTable[2] +end + +--- The main message driver for the CLIENT. +-- This function displays various messages to the Player logged into the CLIENT through the DCS World Messaging system. +-- @param #CLIENT self +-- @param #string Message is the text describing the message. +-- @param #number MessageDuration is the duration in seconds that the Message should be displayed. +-- @param #string MessageCategory is the category of the message (the title). +-- @param #number MessageInterval is the interval in seconds between the display of the @{Message#MESSAGE} when the CLIENT is in the air. +-- @param #string MessageID is the identifier of the message when displayed with intervals. +function CLIENT:Message( Message, MessageDuration, MessageCategory, MessageInterval, MessageID ) + self:F( { Message, MessageDuration, MessageCategory, MessageInterval } ) + + if not self.MenuMessages then + if self:GetClientGroupID() then + self.MenuMessages = MENU_CLIENT:New( self, 'Messages' ) + self.MenuRouteMessageOn = MENU_CLIENT_COMMAND:New( self, 'Messages On', self.MenuMessages, CLIENT.SwitchMessages, { self, true } ) + self.MenuRouteMessageOff = MENU_CLIENT_COMMAND:New( self,'Messages Off', self.MenuMessages, CLIENT.SwitchMessages, { self, false } ) + end + end + + if self.MessageSwitch == true then + if MessageCategory == nil then + MessageCategory = "Messages" + end + if MessageID ~= nil then + if self.Messages[MessageID] == nil then + self.Messages[MessageID] = {} + self.Messages[MessageID].MessageId = MessageID + self.Messages[MessageID].MessageTime = timer.getTime() + self.Messages[MessageID].MessageDuration = MessageDuration + if MessageInterval == nil then + self.Messages[MessageID].MessageInterval = 600 + else + self.Messages[MessageID].MessageInterval = MessageInterval + end + MESSAGE:New( Message, MessageDuration, MessageCategory ):ToClient( self ) + else + if self:GetClientGroupDCSUnit() and not self:GetClientGroupDCSUnit():inAir() then + if timer.getTime() - self.Messages[MessageID].MessageTime >= self.Messages[MessageID].MessageDuration + 10 then + MESSAGE:New( Message, MessageDuration , MessageCategory):ToClient( self ) + self.Messages[MessageID].MessageTime = timer.getTime() + end + else + if timer.getTime() - self.Messages[MessageID].MessageTime >= self.Messages[MessageID].MessageDuration + self.Messages[MessageID].MessageInterval then + MESSAGE:New( Message, MessageDuration, MessageCategory ):ToClient( self ) + self.Messages[MessageID].MessageTime = timer.getTime() + end + end + end + else + MESSAGE:New( Message, MessageDuration, MessageCategory ):ToClient( self ) + end + end +end +--- This module contains the STATIC class. +-- +-- 1) @{Static#STATIC} class, extends @{Positionable#POSITIONABLE} +-- =============================================================== +-- Statics are **Static Units** defined within the Mission Editor. +-- Note that Statics are almost the same as Units, but they don't have a controller. +-- The @{Static#STATIC} class is a wrapper class to handle the DCS Static objects: +-- +-- * Wraps the DCS Static objects. +-- * Support all DCS Static APIs. +-- * Enhance with Static specific APIs not in the DCS API set. +-- +-- 1.1) STATIC reference methods +-- ----------------------------- +-- For each DCS Static will have a STATIC wrapper object (instance) within the _@{DATABASE} object. +-- This is done at the beginning of the mission (when the mission starts). +-- +-- The STATIC class does not contain a :New() method, rather it provides :Find() methods to retrieve the object reference +-- using the Static Name. +-- +-- Another thing to know is that STATIC objects do not "contain" the DCS Static object. +-- The STATIc methods will reference the DCS Static object by name when it is needed during API execution. +-- If the DCS Static object does not exist or is nil, the STATIC methods will return nil and log an exception in the DCS.log file. +-- +-- The STATIc class provides the following functions to retrieve quickly the relevant STATIC instance: +-- +-- * @{#STATIC.FindByName}(): Find a STATIC instance from the _DATABASE object using a DCS Static name. +-- +-- IMPORTANT: ONE SHOULD NEVER SANATIZE these STATIC OBJECT REFERENCES! (make the STATIC object references nil). +-- +-- @module Static +-- @author FlightControl + + + + + + +--- The STATIC class +-- @type STATIC +-- @extends Positionable#POSITIONABLE +STATIC = { + ClassName = "STATIC", +} + + +--- Finds a STATIC from the _DATABASE using the relevant Static Name. +-- As an optional parameter, a briefing text can be given also. +-- @param #STATIC self +-- @param #string StaticName Name of the DCS **Static** as defined within the Mission Editor. +-- @return #STATIC +function STATIC:FindByName( StaticName ) + local StaticFound = _DATABASE:FindStatic( StaticName ) + + if StaticFound then + StaticFound:F( { StaticName } ) + + return StaticFound + end + + error( "STATIC not found for: " .. StaticName ) +end + +function STATIC:Register( StaticName ) + local self = BASE:Inherit( self, POSITIONABLE:New( StaticName ) ) + return self +end + + +function STATIC:GetDCSUnit() + local DCSStatic = StaticObject.getByName( self.UnitName ) + + if DCSStatic then + return DCSStatic + end + + return nil +end +--- This module contains the AIRBASE classes. +-- +-- === +-- +-- 1) @{Airbase#AIRBASE} class, extends @{Positionable#POSITIONABLE} +-- ================================================================= +-- The @{AIRBASE} class is a wrapper class to handle the DCS Airbase objects: +-- +-- * Support all DCS Airbase APIs. +-- * Enhance with Airbase specific APIs not in the DCS Airbase API set. +-- +-- +-- 1.1) AIRBASE reference methods +-- ------------------------------ +-- For each DCS Airbase object alive within a running mission, a AIRBASE wrapper object (instance) will be created within the _@{DATABASE} object. +-- This is done at the beginning of the mission (when the mission starts). +-- +-- The AIRBASE class **does not contain a :New()** method, rather it provides **:Find()** methods to retrieve the object reference +-- using the DCS Airbase or the DCS AirbaseName. +-- +-- Another thing to know is that AIRBASE objects do not "contain" the DCS Airbase object. +-- The AIRBASE methods will reference the DCS Airbase object by name when it is needed during API execution. +-- If the DCS Airbase object does not exist or is nil, the AIRBASE methods will return nil and log an exception in the DCS.log file. +-- +-- The AIRBASE class provides the following functions to retrieve quickly the relevant AIRBASE instance: +-- +-- * @{#AIRBASE.Find}(): Find a AIRBASE instance from the _DATABASE object using a DCS Airbase object. +-- * @{#AIRBASE.FindByName}(): Find a AIRBASE instance from the _DATABASE object using a DCS Airbase name. +-- +-- IMPORTANT: ONE SHOULD NEVER SANATIZE these AIRBASE OBJECT REFERENCES! (make the AIRBASE object references nil). +-- +-- 1.2) DCS AIRBASE APIs +-- --------------------- +-- The DCS Airbase APIs are used extensively within MOOSE. The AIRBASE class has for each DCS Airbase API a corresponding method. +-- To be able to distinguish easily in your code the difference between a AIRBASE API call and a DCS Airbase API call, +-- the first letter of the method is also capitalized. So, by example, the DCS Airbase method @{DCSAirbase#Airbase.getName}() +-- is implemented in the AIRBASE class as @{#AIRBASE.GetName}(). +-- +-- More functions will be added +-- ---------------------------- +-- During the MOOSE development, more functions will be added. +-- +-- @module Airbase +-- @author FlightControl + + + + + +--- The AIRBASE class +-- @type AIRBASE +-- @extends Positionable#POSITIONABLE +AIRBASE = { + ClassName="AIRBASE", + CategoryName = { + [Airbase.Category.AIRDROME] = "Airdrome", + [Airbase.Category.HELIPAD] = "Helipad", + [Airbase.Category.SHIP] = "Ship", + }, + } + +-- Registration. + +--- Create a new AIRBASE from DCSAirbase. +-- @param #AIRBASE self +-- @param #string AirbaseName The name of the airbase. +-- @return Airbase#AIRBASE +function AIRBASE:Register( AirbaseName ) + + local self = BASE:Inherit( self, POSITIONABLE:New( AirbaseName ) ) + self.AirbaseName = AirbaseName + return self +end + +-- Reference methods. + +--- Finds a AIRBASE from the _DATABASE using a DCSAirbase object. +-- @param #AIRBASE self +-- @param DCSAirbase#Airbase DCSAirbase An existing DCS Airbase object reference. +-- @return Airbase#AIRBASE self +function AIRBASE:Find( DCSAirbase ) + + local AirbaseName = DCSAirbase:getName() + local AirbaseFound = _DATABASE:FindAirbase( AirbaseName ) + return AirbaseFound +end + +--- Find a AIRBASE in the _DATABASE using the name of an existing DCS Airbase. +-- @param #AIRBASE self +-- @param #string AirbaseName The Airbase Name. +-- @return Airbase#AIRBASE self +function AIRBASE:FindByName( AirbaseName ) + + local AirbaseFound = _DATABASE:FindAirbase( AirbaseName ) + return AirbaseFound +end + +function AIRBASE:GetDCSObject() + local DCSAirbase = Airbase.getByName( self.AirbaseName ) + + if DCSAirbase then + return DCSAirbase + end + + return nil +end + + + +--- This module contains the DATABASE class, managing the database of mission objects. +-- +-- ==== +-- +-- 1) @{Database#DATABASE} class, extends @{Base#BASE} +-- =================================================== +-- Mission designers can use the DATABASE class to refer to: +-- +-- * UNITS +-- * GROUPS +-- * CLIENTS +-- * AIRPORTS +-- * PLAYERSJOINED +-- * PLAYERS +-- +-- On top, for internal MOOSE administration purposes, the DATBASE administers the Unit and Group TEMPLATES as defined within the Mission Editor. +-- +-- Moose will automatically create one instance of the DATABASE class into the **global** object _DATABASE. +-- Moose refers to _DATABASE within the framework extensively, but you can also refer to the _DATABASE object within your missions if required. +-- +-- 1.1) DATABASE iterators +-- ----------------------- +-- You can iterate the database with the available iterator methods. +-- The iterator methods will walk the DATABASE set, and call for each element within the set a function that you provide. +-- The following iterator methods are currently available within the DATABASE: +-- +-- * @{#DATABASE.ForEachUnit}: Calls a function for each @{UNIT} it finds within the DATABASE. +-- * @{#DATABASE.ForEachGroup}: Calls a function for each @{GROUP} it finds within the DATABASE. +-- * @{#DATABASE.ForEachPlayer}: Calls a function for each alive player it finds within the DATABASE. +-- * @{#DATABASE.ForEachPlayerJoined}: Calls a function for each joined player it finds within the DATABASE. +-- * @{#DATABASE.ForEachClient}: Calls a function for each @{CLIENT} it finds within the DATABASE. +-- * @{#DATABASE.ForEachClientAlive}: Calls a function for each alive @{CLIENT} it finds within the DATABASE. +-- +-- === +-- +-- @module Database +-- @author FlightControl + +--- DATABASE class +-- @type DATABASE +-- @extends Base#BASE +DATABASE = { + ClassName = "DATABASE", + Templates = { + Units = {}, + Groups = {}, + ClientsByName = {}, + ClientsByID = {}, + }, + UNITS = {}, + STATICS = {}, + GROUPS = {}, + PLAYERS = {}, + PLAYERSJOINED = {}, + CLIENTS = {}, + AIRBASES = {}, + NavPoints = {}, +} + +local _DATABASECoalition = + { + [1] = "Red", + [2] = "Blue", + } + +local _DATABASECategory = + { + ["plane"] = Unit.Category.AIRPLANE, + ["helicopter"] = Unit.Category.HELICOPTER, + ["vehicle"] = Unit.Category.GROUND_UNIT, + ["ship"] = Unit.Category.SHIP, + ["static"] = Unit.Category.STRUCTURE, + } + + +--- Creates a new DATABASE object, building a set of units belonging to a coalitions, categories, countries, types or with defined prefix names. +-- @param #DATABASE self +-- @return #DATABASE +-- @usage +-- -- Define a new DATABASE Object. This DBObject will contain a reference to all Group and Unit Templates defined within the ME and the DCSRTE. +-- DBObject = DATABASE:New() +function DATABASE:New() + + -- Inherits from BASE + local self = BASE:Inherit( self, BASE:New() ) + + _EVENTDISPATCHER:OnBirth( self._EventOnBirth, self ) + _EVENTDISPATCHER:OnDead( self._EventOnDeadOrCrash, self ) + _EVENTDISPATCHER:OnCrash( self._EventOnDeadOrCrash, self ) + + + -- Follow alive players and clients + _EVENTDISPATCHER:OnPlayerEnterUnit( self._EventOnPlayerEnterUnit, self ) + _EVENTDISPATCHER:OnPlayerLeaveUnit( self._EventOnPlayerLeaveUnit, self ) + + self:_RegisterTemplates() + self:_RegisterGroupsAndUnits() + self:_RegisterClients() + self:_RegisterStatics() + self:_RegisterPlayers() + self:_RegisterAirbases() + + return self +end + +--- Finds a Unit based on the Unit Name. +-- @param #DATABASE self +-- @param #string UnitName +-- @return Unit#UNIT The found Unit. +function DATABASE:FindUnit( UnitName ) + + local UnitFound = self.UNITS[UnitName] + return UnitFound +end + + +--- Adds a Unit based on the Unit Name in the DATABASE. +-- @param #DATABASE self +function DATABASE:AddUnit( DCSUnitName ) + + if not self.UNITS[DCSUnitName] then + local UnitRegister = UNIT:Register( DCSUnitName ) + self:E( UnitRegister.UnitName ) + self.UNITS[DCSUnitName] = UNIT:Register( DCSUnitName ) + end + + return self.UNITS[DCSUnitName] +end + + +--- Deletes a Unit from the DATABASE based on the Unit Name. +-- @param #DATABASE self +function DATABASE:DeleteUnit( DCSUnitName ) + + --self.UNITS[DCSUnitName] = nil +end + +--- Adds a Static based on the Static Name in the DATABASE. +-- @param #DATABASE self +function DATABASE:AddStatic( DCSStaticName ) + + if not self.STATICS[DCSStaticName] then + self.STATICS[DCSStaticName] = STATIC:Register( DCSStaticName ) + end +end + + +--- Deletes a Static from the DATABASE based on the Static Name. +-- @param #DATABASE self +function DATABASE:DeleteStatic( DCSStaticName ) + + --self.STATICS[DCSStaticName] = nil +end + +--- Finds a STATIC based on the StaticName. +-- @param #DATABASE self +-- @param #string StaticName +-- @return Static#STATIC The found STATIC. +function DATABASE:FindStatic( StaticName ) + + local StaticFound = self.STATICS[StaticName] + return StaticFound +end + +--- Adds a Airbase based on the Airbase Name in the DATABASE. +-- @param #DATABASE self +function DATABASE:AddAirbase( DCSAirbaseName ) + + if not self.AIRBASES[DCSAirbaseName] then + self.AIRBASES[DCSAirbaseName] = AIRBASE:Register( DCSAirbaseName ) + end +end + + +--- Deletes a Airbase from the DATABASE based on the Airbase Name. +-- @param #DATABASE self +function DATABASE:DeleteAirbase( DCSAirbaseName ) + + --self.AIRBASES[DCSAirbaseName] = nil +end + +--- Finds a AIRBASE based on the AirbaseName. +-- @param #DATABASE self +-- @param #string AirbaseName +-- @return Airbase#AIRBASE The found AIRBASE. +function DATABASE:FindAirbase( AirbaseName ) + + local AirbaseFound = self.AIRBASES[AirbaseName] + return AirbaseFound +end + + +--- Finds a CLIENT based on the ClientName. +-- @param #DATABASE self +-- @param #string ClientName +-- @return Client#CLIENT The found CLIENT. +function DATABASE:FindClient( ClientName ) + + local ClientFound = self.CLIENTS[ClientName] + return ClientFound +end + + +--- Adds a CLIENT based on the ClientName in the DATABASE. +-- @param #DATABASE self +function DATABASE:AddClient( ClientName ) + + if not self.CLIENTS[ClientName] then + self.CLIENTS[ClientName] = CLIENT:Register( ClientName ) + end + + return self.CLIENTS[ClientName] +end + + +--- Finds a GROUP based on the GroupName. +-- @param #DATABASE self +-- @param #string GroupName +-- @return Group#GROUP The found GROUP. +function DATABASE:FindGroup( GroupName ) + + local GroupFound = self.GROUPS[GroupName] + return GroupFound +end + + +--- Adds a GROUP based on the GroupName in the DATABASE. +-- @param #DATABASE self +function DATABASE:AddGroup( GroupName ) + + if not self.GROUPS[GroupName] then + self.GROUPS[GroupName] = GROUP:Register( GroupName ) + end + + return self.GROUPS[GroupName] +end + +--- Adds a player based on the Player Name in the DATABASE. +-- @param #DATABASE self +function DATABASE:AddPlayer( UnitName, PlayerName ) + + if PlayerName then + self:E( { "Add player for unit:", UnitName, PlayerName } ) + self.PLAYERS[PlayerName] = self:FindUnit( UnitName ) + self.PLAYERSJOINED[PlayerName] = PlayerName + end +end + +--- Deletes a player from the DATABASE based on the Player Name. +-- @param #DATABASE self +function DATABASE:DeletePlayer( PlayerName ) + + if PlayerName then + self:E( { "Clean player:", PlayerName } ) + self.PLAYERS[PlayerName] = nil + end +end + + +--- Instantiate new Groups within the DCSRTE. +-- This method expects EXACTLY the same structure as a structure within the ME, and needs 2 additional fields defined: +-- SpawnCountryID, SpawnCategoryID +-- This method is used by the SPAWN class. +-- @param #DATABASE self +-- @param #table SpawnTemplate +-- @return #DATABASE self +function DATABASE:Spawn( SpawnTemplate ) + self:F2( SpawnTemplate.name ) + + self:T2( { SpawnTemplate.SpawnCountryID, SpawnTemplate.SpawnCategoryID } ) + + -- Copy the spawn variables of the template in temporary storage, nullify, and restore the spawn variables. + local SpawnCoalitionID = SpawnTemplate.SpawnCoalitionID + local SpawnCountryID = SpawnTemplate.SpawnCountryID + local SpawnCategoryID = SpawnTemplate.SpawnCategoryID + + -- Nullify + SpawnTemplate.SpawnCoalitionID = nil + SpawnTemplate.SpawnCountryID = nil + SpawnTemplate.SpawnCategoryID = nil + + self:_RegisterTemplate( SpawnTemplate, SpawnCoalitionID, SpawnCategoryID, SpawnCountryID ) + + self:T3( SpawnTemplate ) + coalition.addGroup( SpawnCountryID, SpawnCategoryID, SpawnTemplate ) + + -- Restore + SpawnTemplate.SpawnCoalitionID = SpawnCoalitionID + SpawnTemplate.SpawnCountryID = SpawnCountryID + SpawnTemplate.SpawnCategoryID = SpawnCategoryID + + local SpawnGroup = self:AddGroup( SpawnTemplate.name ) + return SpawnGroup +end + +--- Set a status to a Group within the Database, this to check crossing events for example. +function DATABASE:SetStatusGroup( GroupName, Status ) + self:F2( Status ) + + self.Templates.Groups[GroupName].Status = Status +end + +--- Get a status to a Group within the Database, this to check crossing events for example. +function DATABASE:GetStatusGroup( GroupName ) + self:F2( Status ) + + if self.Templates.Groups[GroupName] then + return self.Templates.Groups[GroupName].Status + else + return "" + end +end + +--- Private method that registers new Group Templates within the DATABASE Object. +-- @param #DATABASE self +-- @param #table GroupTemplate +-- @return #DATABASE self +function DATABASE:_RegisterTemplate( GroupTemplate, CoalitionID, CategoryID, CountryID ) + + local GroupTemplateName = env.getValueDictByKey(GroupTemplate.name) + + local TraceTable = {} + + if not self.Templates.Groups[GroupTemplateName] then + self.Templates.Groups[GroupTemplateName] = {} + self.Templates.Groups[GroupTemplateName].Status = nil + end + + -- Delete the spans from the route, it is not needed and takes memory. + if GroupTemplate.route and GroupTemplate.route.spans then + GroupTemplate.route.spans = nil + end + + self.Templates.Groups[GroupTemplateName].GroupName = GroupTemplateName + self.Templates.Groups[GroupTemplateName].Template = GroupTemplate + self.Templates.Groups[GroupTemplateName].groupId = GroupTemplate.groupId + self.Templates.Groups[GroupTemplateName].UnitCount = #GroupTemplate.units + self.Templates.Groups[GroupTemplateName].Units = GroupTemplate.units + self.Templates.Groups[GroupTemplateName].CategoryID = CategoryID + self.Templates.Groups[GroupTemplateName].CoalitionID = CoalitionID + self.Templates.Groups[GroupTemplateName].CountryID = CountryID + + + TraceTable[#TraceTable+1] = "Group" + TraceTable[#TraceTable+1] = self.Templates.Groups[GroupTemplateName].GroupName + + TraceTable[#TraceTable+1] = "Coalition" + TraceTable[#TraceTable+1] = self.Templates.Groups[GroupTemplateName].CoalitionID + TraceTable[#TraceTable+1] = "Category" + TraceTable[#TraceTable+1] = self.Templates.Groups[GroupTemplateName].CategoryID + TraceTable[#TraceTable+1] = "Country" + TraceTable[#TraceTable+1] = self.Templates.Groups[GroupTemplateName].CountryID + + TraceTable[#TraceTable+1] = "Units" + + for unit_num, UnitTemplate in pairs( GroupTemplate.units ) do + + local UnitTemplateName = env.getValueDictByKey(UnitTemplate.name) + self.Templates.Units[UnitTemplateName] = {} + self.Templates.Units[UnitTemplateName].UnitName = UnitTemplateName + self.Templates.Units[UnitTemplateName].Template = UnitTemplate + self.Templates.Units[UnitTemplateName].GroupName = GroupTemplateName + self.Templates.Units[UnitTemplateName].GroupTemplate = GroupTemplate + self.Templates.Units[UnitTemplateName].GroupId = GroupTemplate.groupId + self.Templates.Units[UnitTemplateName].CategoryID = CategoryID + self.Templates.Units[UnitTemplateName].CoalitionID = CoalitionID + self.Templates.Units[UnitTemplateName].CountryID = CountryID + + if UnitTemplate.skill and (UnitTemplate.skill == "Client" or UnitTemplate.skill == "Player") then + self.Templates.ClientsByName[UnitTemplateName] = UnitTemplate + self.Templates.ClientsByName[UnitTemplateName].CategoryID = CategoryID + self.Templates.ClientsByName[UnitTemplateName].CoalitionID = CoalitionID + self.Templates.ClientsByName[UnitTemplateName].CountryID = CountryID + self.Templates.ClientsByID[UnitTemplate.unitId] = UnitTemplate + end + + TraceTable[#TraceTable+1] = self.Templates.Units[UnitTemplateName].UnitName + end + + self:E( TraceTable ) +end + +function DATABASE:GetGroupTemplate( GroupName ) + local GroupTemplate = self.Templates.Groups[GroupName].Template + GroupTemplate.SpawnCoalitionID = self.Templates.Groups[GroupName].CoalitionID + GroupTemplate.SpawnCategoryID = self.Templates.Groups[GroupName].CategoryID + GroupTemplate.SpawnCountryID = self.Templates.Groups[GroupName].CountryID + return GroupTemplate +end + +function DATABASE:GetCoalitionFromClientTemplate( ClientName ) + return self.Templates.ClientsByName[ClientName].CoalitionID +end + +function DATABASE:GetCategoryFromClientTemplate( ClientName ) + return self.Templates.ClientsByName[ClientName].CategoryID +end + +function DATABASE:GetCountryFromClientTemplate( ClientName ) + return self.Templates.ClientsByName[ClientName].CountryID +end + +--- Airbase + +function DATABASE:GetCoalitionFromAirbase( AirbaseName ) + return self.AIRBASES[AirbaseName]:GetCoalition() +end + +function DATABASE:GetCategoryFromAirbase( AirbaseName ) + return self.AIRBASES[AirbaseName]:GetCategory() +end + + + +--- Private method that registers all alive players in the mission. +-- @param #DATABASE self +-- @return #DATABASE self +function DATABASE:_RegisterPlayers() + + local CoalitionsData = { AlivePlayersRed = coalition.getPlayers( coalition.side.RED ), AlivePlayersBlue = coalition.getPlayers( coalition.side.BLUE ) } + for CoalitionId, CoalitionData in pairs( CoalitionsData ) do + for UnitId, UnitData in pairs( CoalitionData ) do + self:T3( { "UnitData:", UnitData } ) + if UnitData and UnitData:isExist() then + local UnitName = UnitData:getName() + local PlayerName = UnitData:getPlayerName() + if not self.PLAYERS[PlayerName] then + self:E( { "Add player for unit:", UnitName, PlayerName } ) + self:AddPlayer( UnitName, PlayerName ) + end + end + end + end + + return self +end + + +--- Private method that registers all Groups and Units within in the mission. +-- @param #DATABASE self +-- @return #DATABASE self +function DATABASE:_RegisterGroupsAndUnits() + + local CoalitionsData = { GroupsRed = coalition.getGroups( coalition.side.RED ), GroupsBlue = coalition.getGroups( coalition.side.BLUE ) } + for CoalitionId, CoalitionData in pairs( CoalitionsData ) do + for DCSGroupId, DCSGroup in pairs( CoalitionData ) do + + if DCSGroup:isExist() then + local DCSGroupName = DCSGroup:getName() + + self:E( { "Register Group:", DCSGroupName } ) + self:AddGroup( DCSGroupName ) + + for DCSUnitId, DCSUnit in pairs( DCSGroup:getUnits() ) do + + local DCSUnitName = DCSUnit:getName() + self:E( { "Register Unit:", DCSUnitName } ) + self:AddUnit( DCSUnitName ) + end + else + self:E( { "Group does not exist: ", DCSGroup } ) + end + + end + end + + return self +end + +--- Private method that registers all Units of skill Client or Player within in the mission. +-- @param #DATABASE self +-- @return #DATABASE self +function DATABASE:_RegisterClients() + + for ClientName, ClientTemplate in pairs( self.Templates.ClientsByName ) do + self:E( { "Register Client:", ClientName } ) + self:AddClient( ClientName ) + end + + return self +end + +--- @param #DATABASE self +function DATABASE:_RegisterStatics() + + local CoalitionsData = { GroupsRed = coalition.getStaticObjects( coalition.side.RED ), GroupsBlue = coalition.getStaticObjects( coalition.side.BLUE ) } + for CoalitionId, CoalitionData in pairs( CoalitionsData ) do + for DCSStaticId, DCSStatic in pairs( CoalitionData ) do + + if DCSStatic:isExist() then + local DCSStaticName = DCSStatic:getName() + + self:E( { "Register Static:", DCSStaticName } ) + self:AddStatic( DCSStaticName ) + else + self:E( { "Static does not exist: ", DCSStatic } ) + end + end + end + + return self +end + +--- @param #DATABASE self +function DATABASE:_RegisterAirbases() + + local CoalitionsData = { AirbasesRed = coalition.getAirbases( coalition.side.RED ), AirbasesBlue = coalition.getAirbases( coalition.side.BLUE ), AirbasesNeutral = coalition.getAirbases( coalition.side.NEUTRAL ) } + for CoalitionId, CoalitionData in pairs( CoalitionsData ) do + for DCSAirbaseId, DCSAirbase in pairs( CoalitionData ) do + + local DCSAirbaseName = DCSAirbase:getName() + + self:E( { "Register Airbase:", DCSAirbaseName } ) + self:AddAirbase( DCSAirbaseName ) + end + end + + return self +end + + +--- Events + +--- Handles the OnBirth event for the alive units set. +-- @param #DATABASE self +-- @param Event#EVENTDATA Event +function DATABASE:_EventOnBirth( Event ) + self:F2( { Event } ) + + if Event.IniDCSUnit then + self:AddUnit( Event.IniDCSUnitName ) + self:AddGroup( Event.IniDCSGroupName ) + self:_EventOnPlayerEnterUnit( Event ) + end +end + + +--- Handles the OnDead or OnCrash event for alive units set. +-- @param #DATABASE self +-- @param Event#EVENTDATA Event +function DATABASE:_EventOnDeadOrCrash( Event ) + self:F2( { Event } ) + + if Event.IniDCSUnit then + if self.UNITS[Event.IniDCSUnitName] then + self:DeleteUnit( Event.IniDCSUnitName ) + -- add logic to correctly remove a group once all units are destroyed... + end + end +end + + +--- Handles the OnPlayerEnterUnit event to fill the active players table (with the unit filter applied). +-- @param #DATABASE self +-- @param Event#EVENTDATA Event +function DATABASE:_EventOnPlayerEnterUnit( Event ) + self:F2( { Event } ) + + if Event.IniUnit then + local PlayerName = Event.IniUnit:GetPlayerName() + if not self.PLAYERS[PlayerName] then + self:AddPlayer( Event.IniUnitName, PlayerName ) + end + end +end + + +--- Handles the OnPlayerLeaveUnit event to clean the active players table. +-- @param #DATABASE self +-- @param Event#EVENTDATA Event +function DATABASE:_EventOnPlayerLeaveUnit( Event ) + self:F2( { Event } ) + + if Event.IniUnit then + local PlayerName = Event.IniUnit:GetPlayerName() + if self.PLAYERS[PlayerName] then + self:DeletePlayer( PlayerName ) + end + end +end + +--- Iterators + +--- Iterate the DATABASE and call an iterator function for the given set, providing the Object for each element within the set and optional parameters. +-- @param #DATABASE self +-- @param #function IteratorFunction The function that will be called when there is an alive player in the database. +-- @return #DATABASE self +function DATABASE:ForEach( IteratorFunction, FinalizeFunction, arg, Set ) + self:F2( arg ) + + local function CoRoutine() + local Count = 0 + for ObjectID, Object in pairs( Set ) do + self:T2( Object ) + IteratorFunction( Object, unpack( arg ) ) + Count = Count + 1 +-- if Count % 100 == 0 then +-- coroutine.yield( false ) +-- end + end + return true + end + +-- local co = coroutine.create( CoRoutine ) + local co = CoRoutine + + local function Schedule() + +-- local status, res = coroutine.resume( co ) + local status, res = co() + self:T3( { status, res } ) + + if status == false then + error( res ) + end + if res == false then + return true -- resume next time the loop + end + if FinalizeFunction then + FinalizeFunction( unpack( arg ) ) + end + return false + end + + local Scheduler = SCHEDULER:New( self, Schedule, {}, 0.001, 0.001, 0 ) + + return self +end + + +--- Iterate the DATABASE and call an iterator function for each **alive** UNIT, providing the UNIT and optional parameters. +-- @param #DATABASE self +-- @param #function IteratorFunction The function that will be called when there is an alive UNIT in the database. The function needs to accept a UNIT parameter. +-- @return #DATABASE self +function DATABASE:ForEachUnit( IteratorFunction, FinalizeFunction, ... ) + self:F2( arg ) + + self:ForEach( IteratorFunction, FinalizeFunction, arg, self.UNITS ) + + return self +end + +--- Iterate the DATABASE and call an iterator function for each **alive** GROUP, providing the GROUP and optional parameters. +-- @param #DATABASE self +-- @param #function IteratorFunction The function that will be called when there is an alive GROUP in the database. The function needs to accept a GROUP parameter. +-- @return #DATABASE self +function DATABASE:ForEachGroup( IteratorFunction, ... ) + self:F2( arg ) + + self:ForEach( IteratorFunction, arg, self.GROUPS ) + + return self +end + + +--- Iterate the DATABASE and call an iterator function for each **ALIVE** player, providing the player name and optional parameters. +-- @param #DATABASE self +-- @param #function IteratorFunction The function that will be called when there is an player in the database. The function needs to accept the player name. +-- @return #DATABASE self +function DATABASE:ForEachPlayer( IteratorFunction, ... ) + self:F2( arg ) + + self:ForEach( IteratorFunction, arg, self.PLAYERS ) + + return self +end + + +--- Iterate the DATABASE and call an iterator function for each player who has joined the mission, providing the Unit of the player and optional parameters. +-- @param #DATABASE self +-- @param #function IteratorFunction The function that will be called when there is was a player in the database. The function needs to accept a UNIT parameter. +-- @return #DATABASE self +function DATABASE:ForEachPlayerJoined( IteratorFunction, ... ) + self:F2( arg ) + + self:ForEach( IteratorFunction, arg, self.PLAYERSJOINED ) + + return self +end + +--- Iterate the DATABASE and call an iterator function for each CLIENT, providing the CLIENT to the function and optional parameters. +-- @param #DATABASE self +-- @param #function IteratorFunction The function that will be called when there is an alive player in the database. The function needs to accept a CLIENT parameter. +-- @return #DATABASE self +function DATABASE:ForEachClient( IteratorFunction, ... ) + self:F2( arg ) + + self:ForEach( IteratorFunction, arg, self.CLIENTS ) + + return self +end + + +function DATABASE:_RegisterTemplates() + self:F2() + + self.Navpoints = {} + self.UNITS = {} + --Build routines.db.units and self.Navpoints + for CoalitionName, coa_data in pairs(env.mission.coalition) do + + if (CoalitionName == 'red' or CoalitionName == 'blue') and type(coa_data) == 'table' then + --self.Units[coa_name] = {} + + ---------------------------------------------- + -- build nav points DB + self.Navpoints[CoalitionName] = {} + if coa_data.nav_points then --navpoints + for nav_ind, nav_data in pairs(coa_data.nav_points) do + + if type(nav_data) == 'table' then + self.Navpoints[CoalitionName][nav_ind] = routines.utils.deepCopy(nav_data) + + self.Navpoints[CoalitionName][nav_ind]['name'] = nav_data.callsignStr -- name is a little bit more self-explanatory. + self.Navpoints[CoalitionName][nav_ind]['point'] = {} -- point is used by SSE, support it. + self.Navpoints[CoalitionName][nav_ind]['point']['x'] = nav_data.x + self.Navpoints[CoalitionName][nav_ind]['point']['y'] = 0 + self.Navpoints[CoalitionName][nav_ind]['point']['z'] = nav_data.y + end + end + end + ------------------------------------------------- + if coa_data.country then --there is a country table + for cntry_id, cntry_data in pairs(coa_data.country) do + + local CountryName = string.upper(cntry_data.name) + --self.Units[coa_name][countryName] = {} + --self.Units[coa_name][countryName]["countryId"] = cntry_data.id + + if type(cntry_data) == 'table' then --just making sure + + for obj_type_name, obj_type_data in pairs(cntry_data) do + + if obj_type_name == "helicopter" or obj_type_name == "ship" or obj_type_name == "plane" or obj_type_name == "vehicle" or obj_type_name == "static" then --should be an unncessary check + + local CategoryName = obj_type_name + + if ((type(obj_type_data) == 'table') and obj_type_data.group and (type(obj_type_data.group) == 'table') and (#obj_type_data.group > 0)) then --there's a group! + + --self.Units[coa_name][countryName][category] = {} + + for group_num, GroupTemplate in pairs(obj_type_data.group) do + + if GroupTemplate and GroupTemplate.units and type(GroupTemplate.units) == 'table' then --making sure again- this is a valid group + self:_RegisterTemplate( + GroupTemplate, + coalition.side[string.upper(CoalitionName)], + _DATABASECategory[string.lower(CategoryName)], + country.id[string.upper(CountryName)] + ) + end --if GroupTemplate and GroupTemplate.units then + end --for group_num, GroupTemplate in pairs(obj_type_data.group) do + end --if ((type(obj_type_data) == 'table') and obj_type_data.group and (type(obj_type_data.group) == 'table') and (#obj_type_data.group > 0)) then + end --if obj_type_name == "helicopter" or obj_type_name == "ship" or obj_type_name == "plane" or obj_type_name == "vehicle" or obj_type_name == "static" then + end --for obj_type_name, obj_type_data in pairs(cntry_data) do + end --if type(cntry_data) == 'table' then + end --for cntry_id, cntry_data in pairs(coa_data.country) do + end --if coa_data.country then --there is a country table + end --if coa_name == 'red' or coa_name == 'blue' and type(coa_data) == 'table' then + end --for coa_name, coa_data in pairs(mission.coalition) do + + return self +end + + + + +--- This module contains the SET classes. +-- +-- === +-- +-- 1) @{Set#SET_BASE} class, extends @{Base#BASE} +-- ============================================== +-- The @{Set#SET_BASE} class defines the core functions that define a collection of objects. +-- A SET provides iterators to iterate the SET, but will **temporarily** yield the ForEach interator loop at defined **"intervals"** to the mail simulator loop. +-- In this way, large loops can be done while not blocking the simulator main processing loop. +-- The default **"yield interval"** is after 10 objects processed. +-- The default **"time interval"** is after 0.001 seconds. +-- +-- 1.1) Add or remove objects from the SET +-- --------------------------------------- +-- Some key core functions are @{Set#SET_BASE.Add} and @{Set#SET_BASE.Remove} to add or remove objects from the SET in your logic. +-- +-- 1.2) Define the SET iterator **"yield interval"** and the **"time interval"** +-- ----------------------------------------------------------------------------- +-- Modify the iterator intervals with the @{Set#SET_BASE.SetInteratorIntervals} method. +-- You can set the **"yield interval"**, and the **"time interval"**. (See above). +-- +-- === +-- +-- 2) @{Set#SET_GROUP} class, extends @{Set#SET_BASE} +-- ================================================== +-- Mission designers can use the @{Set#SET_GROUP} class to build sets of groups belonging to certain: +-- +-- * Coalitions +-- * Categories +-- * Countries +-- * Starting with certain prefix strings. +-- +-- 2.1) SET_GROUP construction method: +-- ----------------------------------- +-- Create a new SET_GROUP object with the @{#SET_GROUP.New} method: +-- +-- * @{#SET_GROUP.New}: Creates a new SET_GROUP object. +-- +-- 2.2) Add or Remove GROUP(s) from SET_GROUP: +-- ------------------------------------------- +-- GROUPS can be added and removed using the @{Set#SET_GROUP.AddGroupsByName} and @{Set#SET_GROUP.RemoveGroupsByName} respectively. +-- These methods take a single GROUP name or an array of GROUP names to be added or removed from SET_GROUP. +-- +-- 2.3) SET_GROUP filter criteria: +-- ------------------------------- +-- You can set filter criteria to define the set of groups within the SET_GROUP. +-- Filter criteria are defined by: +-- +-- * @{#SET_GROUP.FilterCoalitions}: Builds the SET_GROUP with the groups belonging to the coalition(s). +-- * @{#SET_GROUP.FilterCategories}: Builds the SET_GROUP with the groups belonging to the category(ies). +-- * @{#SET_GROUP.FilterCountries}: Builds the SET_GROUP with the gruops belonging to the country(ies). +-- * @{#SET_GROUP.FilterPrefixes}: Builds the SET_GROUP with the groups starting with the same prefix string(s). +-- +-- Once the filter criteria have been set for the SET_GROUP, you can start filtering using: +-- +-- * @{#SET_GROUP.FilterStart}: Starts the filtering of the groups within the SET_GROUP and add or remove GROUP objects **dynamically**. +-- +-- Planned filter criteria within development are (so these are not yet available): +-- +-- * @{#SET_GROUP.FilterZones}: Builds the SET_GROUP with the groups within a @{Zone#ZONE}. +-- +-- 2.4) SET_GROUP iterators: +-- ------------------------- +-- Once the filters have been defined and the SET_GROUP has been built, you can iterate the SET_GROUP with the available iterator methods. +-- The iterator methods will walk the SET_GROUP set, and call for each element within the set a function that you provide. +-- The following iterator methods are currently available within the SET_GROUP: +-- +-- * @{#SET_GROUP.ForEachGroup}: Calls a function for each alive group it finds within the SET_GROUP. +-- * @{#SET_GROUP.ForEachGroupCompletelyInZone}: Iterate the SET_GROUP and call an iterator function for each **alive** GROUP presence completely in a @{Zone}, providing the GROUP and optional parameters to the called function. +-- * @{#SET_GROUP.ForEachGroupPartlyInZone}: Iterate the SET_GROUP and call an iterator function for each **alive** GROUP presence partly in a @{Zone}, providing the GROUP and optional parameters to the called function. +-- * @{#SET_GROUP.ForEachGroupNotInZone}: Iterate the SET_GROUP and call an iterator function for each **alive** GROUP presence not in a @{Zone}, providing the GROUP and optional parameters to the called function. +-- +-- ==== +-- +-- 3) @{Set#SET_UNIT} class, extends @{Set#SET_BASE} +-- =================================================== +-- Mission designers can use the @{Set#SET_UNIT} class to build sets of units belonging to certain: +-- +-- * Coalitions +-- * Categories +-- * Countries +-- * Unit types +-- * Starting with certain prefix strings. +-- +-- 3.1) SET_UNIT construction method: +-- ---------------------------------- +-- Create a new SET_UNIT object with the @{#SET_UNIT.New} method: +-- +-- * @{#SET_UNIT.New}: Creates a new SET_UNIT object. +-- +-- 3.2) Add or Remove UNIT(s) from SET_UNIT: +-- ----------------------------------------- +-- UNITs can be added and removed using the @{Set#SET_UNIT.AddUnitsByName} and @{Set#SET_UNIT.RemoveUnitsByName} respectively. +-- These methods take a single UNIT name or an array of UNIT names to be added or removed from SET_UNIT. +-- +-- 3.3) SET_UNIT filter criteria: +-- ------------------------------ +-- You can set filter criteria to define the set of units within the SET_UNIT. +-- Filter criteria are defined by: +-- +-- * @{#SET_UNIT.FilterCoalitions}: Builds the SET_UNIT with the units belonging to the coalition(s). +-- * @{#SET_UNIT.FilterCategories}: Builds the SET_UNIT with the units belonging to the category(ies). +-- * @{#SET_UNIT.FilterTypes}: Builds the SET_UNIT with the units belonging to the unit type(s). +-- * @{#SET_UNIT.FilterCountries}: Builds the SET_UNIT with the units belonging to the country(ies). +-- * @{#SET_UNIT.FilterPrefixes}: Builds the SET_UNIT with the units starting with the same prefix string(s). +-- +-- Once the filter criteria have been set for the SET_UNIT, you can start filtering using: +-- +-- * @{#SET_UNIT.FilterStart}: Starts the filtering of the units within the SET_UNIT. +-- +-- Planned filter criteria within development are (so these are not yet available): +-- +-- * @{#SET_UNIT.FilterZones}: Builds the SET_UNIT with the units within a @{Zone#ZONE}. +-- +-- 3.4) SET_UNIT iterators: +-- ------------------------ +-- Once the filters have been defined and the SET_UNIT has been built, you can iterate the SET_UNIT with the available iterator methods. +-- The iterator methods will walk the SET_UNIT set, and call for each element within the set a function that you provide. +-- The following iterator methods are currently available within the SET_UNIT: +-- +-- * @{#SET_UNIT.ForEachUnit}: Calls a function for each alive unit it finds within the SET_UNIT. +-- * @{#SET_GROUP.ForEachGroupCompletelyInZone}: Iterate the SET_GROUP and call an iterator function for each **alive** GROUP presence completely in a @{Zone}, providing the GROUP and optional parameters to the called function. +-- * @{#SET_GROUP.ForEachGroupNotInZone}: Iterate the SET_GROUP and call an iterator function for each **alive** GROUP presence not in a @{Zone}, providing the GROUP and optional parameters to the called function. +-- +-- Planned iterators methods in development are (so these are not yet available): +-- +-- * @{#SET_UNIT.ForEachUnitInUnit}: Calls a function for each unit contained within the SET_UNIT. +-- * @{#SET_UNIT.ForEachUnitCompletelyInZone}: Iterate and call an iterator function for each **alive** UNIT presence completely in a @{Zone}, providing the UNIT and optional parameters to the called function. +-- * @{#SET_UNIT.ForEachUnitNotInZone}: Iterate and call an iterator function for each **alive** UNIT presence not in a @{Zone}, providing the UNIT and optional parameters to the called function. +-- +-- === +-- +-- 4) @{Set#SET_CLIENT} class, extends @{Set#SET_BASE} +-- =================================================== +-- Mission designers can use the @{Set#SET_CLIENT} class to build sets of units belonging to certain: +-- +-- * Coalitions +-- * Categories +-- * Countries +-- * Client types +-- * Starting with certain prefix strings. +-- +-- 4.1) SET_CLIENT construction method: +-- ---------------------------------- +-- Create a new SET_CLIENT object with the @{#SET_CLIENT.New} method: +-- +-- * @{#SET_CLIENT.New}: Creates a new SET_CLIENT object. +-- +-- 4.2) Add or Remove CLIENT(s) from SET_CLIENT: +-- ----------------------------------------- +-- CLIENTs can be added and removed using the @{Set#SET_CLIENT.AddClientsByName} and @{Set#SET_CLIENT.RemoveClientsByName} respectively. +-- These methods take a single CLIENT name or an array of CLIENT names to be added or removed from SET_CLIENT. +-- +-- 4.3) SET_CLIENT filter criteria: +-- ------------------------------ +-- You can set filter criteria to define the set of clients within the SET_CLIENT. +-- Filter criteria are defined by: +-- +-- * @{#SET_CLIENT.FilterCoalitions}: Builds the SET_CLIENT with the clients belonging to the coalition(s). +-- * @{#SET_CLIENT.FilterCategories}: Builds the SET_CLIENT with the clients belonging to the category(ies). +-- * @{#SET_CLIENT.FilterTypes}: Builds the SET_CLIENT with the clients belonging to the client type(s). +-- * @{#SET_CLIENT.FilterCountries}: Builds the SET_CLIENT with the clients belonging to the country(ies). +-- * @{#SET_CLIENT.FilterPrefixes}: Builds the SET_CLIENT with the clients starting with the same prefix string(s). +-- +-- Once the filter criteria have been set for the SET_CLIENT, you can start filtering using: +-- +-- * @{#SET_CLIENT.FilterStart}: Starts the filtering of the clients within the SET_CLIENT. +-- +-- Planned filter criteria within development are (so these are not yet available): +-- +-- * @{#SET_CLIENT.FilterZones}: Builds the SET_CLIENT with the clients within a @{Zone#ZONE}. +-- +-- 4.4) SET_CLIENT iterators: +-- ------------------------ +-- Once the filters have been defined and the SET_CLIENT has been built, you can iterate the SET_CLIENT with the available iterator methods. +-- The iterator methods will walk the SET_CLIENT set, and call for each element within the set a function that you provide. +-- The following iterator methods are currently available within the SET_CLIENT: +-- +-- * @{#SET_CLIENT.ForEachClient}: Calls a function for each alive client it finds within the SET_CLIENT. +-- +-- ==== +-- +-- 5) @{Set#SET_AIRBASE} class, extends @{Set#SET_BASE} +-- ==================================================== +-- Mission designers can use the @{Set#SET_AIRBASE} class to build sets of airbases optionally belonging to certain: +-- +-- * Coalitions +-- +-- 5.1) SET_AIRBASE construction +-- ----------------------------- +-- Create a new SET_AIRBASE object with the @{#SET_AIRBASE.New} method: +-- +-- * @{#SET_AIRBASE.New}: Creates a new SET_AIRBASE object. +-- +-- 5.2) Add or Remove AIRBASEs from SET_AIRBASE +-- -------------------------------------------- +-- AIRBASEs can be added and removed using the @{Set#SET_AIRBASE.AddAirbasesByName} and @{Set#SET_AIRBASE.RemoveAirbasesByName} respectively. +-- These methods take a single AIRBASE name or an array of AIRBASE names to be added or removed from SET_AIRBASE. +-- +-- 5.3) SET_AIRBASE filter criteria +-- -------------------------------- +-- You can set filter criteria to define the set of clients within the SET_AIRBASE. +-- Filter criteria are defined by: +-- +-- * @{#SET_AIRBASE.FilterCoalitions}: Builds the SET_AIRBASE with the airbases belonging to the coalition(s). +-- +-- Once the filter criteria have been set for the SET_AIRBASE, you can start filtering using: +-- +-- * @{#SET_AIRBASE.FilterStart}: Starts the filtering of the airbases within the SET_AIRBASE. +-- +-- 5.4) SET_AIRBASE iterators: +-- --------------------------- +-- Once the filters have been defined and the SET_AIRBASE has been built, you can iterate the SET_AIRBASE with the available iterator methods. +-- The iterator methods will walk the SET_AIRBASE set, and call for each airbase within the set a function that you provide. +-- The following iterator methods are currently available within the SET_AIRBASE: +-- +-- * @{#SET_AIRBASE.ForEachAirbase}: Calls a function for each airbase it finds within the SET_AIRBASE. +-- +-- ==== +-- +-- @module Set +-- @author FlightControl + + +--- SET_BASE class +-- @type SET_BASE +-- @extends Base#BASE +SET_BASE = { + ClassName = "SET_BASE", + Set = {}, +} + +--- Creates a new SET_BASE object, building a set of units belonging to a coalitions, categories, countries, types or with defined prefix names. +-- @param #SET_BASE self +-- @return #SET_BASE +-- @usage +-- -- Define a new SET_BASE Object. This DBObject will contain a reference to all Group and Unit Templates defined within the ME and the DCSRTE. +-- DBObject = SET_BASE:New() +function SET_BASE:New( Database ) + + -- Inherits from BASE + local self = BASE:Inherit( self, BASE:New() ) + + self.Database = Database + + self.YieldInterval = 10 + self.TimeInterval = 0.001 + + return self +end + +--- Finds an @{Base#BASE} object based on the object Name. +-- @param #SET_BASE self +-- @param #string ObjectName +-- @return Base#BASE The Object found. +function SET_BASE:_Find( ObjectName ) + + local ObjectFound = self.Set[ObjectName] + return ObjectFound +end + + +--- Gets the Set. +-- @param #SET_BASE self +-- @return #SET_BASE self +function SET_BASE:GetSet() + self:F2() + + return self.Set +end + +--- Adds a @{Base#BASE} object in the @{Set#SET_BASE}, using the Object Name as the index. +-- @param #SET_BASE self +-- @param #string ObjectName +-- @param Base#BASE Object +-- @return Base#BASE The added BASE Object. +function SET_BASE:Add( ObjectName, Object ) + + self.Set[ObjectName] = Object +end + +--- Removes a @{Base#BASE} object from the @{Set#SET_BASE} and derived classes, based on the Object Name. +-- @param #SET_BASE self +-- @param #string ObjectName +function SET_BASE:Remove( ObjectName ) + + self.Set[ObjectName] = nil +end + +--- Define the SET iterator **"yield interval"** and the **"time interval"**. +-- @param #SET_BASE self +-- @param #number YieldInterval Sets the frequency when the iterator loop will yield after the number of objects processed. The default frequency is 10 objects processed. +-- @param #number TimeInterval Sets the time in seconds when the main logic will resume the iterator loop. The default time is 0.001 seconds. +-- @return #SET_BASE self +function SET_BASE:SetIteratorIntervals( YieldInterval, TimeInterval ) + + self.YieldInterval = YieldInterval + self.TimeInterval = TimeInterval + + return self +end + + + +--- Starts the filtering for the defined collection. +-- @param #SET_BASE self +-- @return #SET_BASE self +function SET_BASE:_FilterStart() + + for ObjectName, Object in pairs( self.Database ) do + + if self:IsIncludeObject( Object ) then + self:E( { "Adding Object:", ObjectName } ) + self:Add( ObjectName, Object ) + end + end + + _EVENTDISPATCHER:OnBirth( self._EventOnBirth, self ) + _EVENTDISPATCHER:OnDead( self._EventOnDeadOrCrash, self ) + _EVENTDISPATCHER:OnCrash( self._EventOnDeadOrCrash, self ) + + -- Follow alive players and clients +-- _EVENTDISPATCHER:OnPlayerEnterUnit( self._EventOnPlayerEnterUnit, self ) +-- _EVENTDISPATCHER:OnPlayerLeaveUnit( self._EventOnPlayerLeaveUnit, self ) + + + return self +end + +--- Iterate the SET_BASE while identifying the nearest object from a @{Point#POINT_VEC2}. +-- @param #SET_BASE self +-- @param Point#POINT_VEC2 PointVec2 A @{Point#POINT_VEC2} object from where to evaluate the closest object in the set. +-- @return Base#BASE The closest object. +function SET_BASE:FindNearestObjectFromPointVec2( PointVec2 ) + self:F2( PointVec2 ) + + local NearestObject = nil + local ClosestDistance = nil + + for ObjectID, ObjectData in pairs( self.Set ) do + if NearestObject == nil then + NearestObject = ObjectData + ClosestDistance = PointVec2:DistanceFromVec2( ObjectData:GetPointVec2() ) + else + local Distance = PointVec2:DistanceFromVec2( ObjectData:GetPointVec2() ) + if Distance < ClosestDistance then + NearestObject = ObjectData + ClosestDistance = Distance + end + end + end + + return NearestObject +end + + + +----- Private method that registers all alive players in the mission. +---- @param #SET_BASE self +---- @return #SET_BASE self +--function SET_BASE:_RegisterPlayers() +-- +-- local CoalitionsData = { AlivePlayersRed = coalition.getPlayers( coalition.side.RED ), AlivePlayersBlue = coalition.getPlayers( coalition.side.BLUE ) } +-- for CoalitionId, CoalitionData in pairs( CoalitionsData ) do +-- for UnitId, UnitData in pairs( CoalitionData ) do +-- self:T3( { "UnitData:", UnitData } ) +-- if UnitData and UnitData:isExist() then +-- local UnitName = UnitData:getName() +-- if not self.PlayersAlive[UnitName] then +-- self:E( { "Add player for unit:", UnitName, UnitData:getPlayerName() } ) +-- self.PlayersAlive[UnitName] = UnitData:getPlayerName() +-- end +-- end +-- end +-- end +-- +-- return self +--end + +--- Events + +--- Handles the OnBirth event for the Set. +-- @param #SET_BASE self +-- @param Event#EVENTDATA Event +function SET_BASE:_EventOnBirth( Event ) + self:F3( { Event } ) + + if Event.IniDCSUnit then + local ObjectName, Object = self:AddInDatabase( Event ) + self:T3( ObjectName, Object ) + if self:IsIncludeObject( Object ) then + self:Add( ObjectName, Object ) + --self:_EventOnPlayerEnterUnit( Event ) + end + end +end + +--- Handles the OnDead or OnCrash event for alive units set. +-- @param #SET_BASE self +-- @param Event#EVENTDATA Event +function SET_BASE:_EventOnDeadOrCrash( Event ) + self:F3( { Event } ) + + if Event.IniDCSUnit then + local ObjectName, Object = self:FindInDatabase( Event ) + if ObjectName and Object then + self:Remove( ObjectName ) + end + end +end + +----- Handles the OnPlayerEnterUnit event to fill the active players table (with the unit filter applied). +---- @param #SET_BASE self +---- @param Event#EVENTDATA Event +--function SET_BASE:_EventOnPlayerEnterUnit( Event ) +-- self:F3( { Event } ) +-- +-- if Event.IniDCSUnit then +-- if self:IsIncludeObject( Event.IniDCSUnit ) then +-- if not self.PlayersAlive[Event.IniDCSUnitName] then +-- self:E( { "Add player for unit:", Event.IniDCSUnitName, Event.IniDCSUnit:getPlayerName() } ) +-- self.PlayersAlive[Event.IniDCSUnitName] = Event.IniDCSUnit:getPlayerName() +-- self.ClientsAlive[Event.IniDCSUnitName] = _DATABASE.Clients[ Event.IniDCSUnitName ] +-- end +-- end +-- end +--end +-- +----- Handles the OnPlayerLeaveUnit event to clean the active players table. +---- @param #SET_BASE self +---- @param Event#EVENTDATA Event +--function SET_BASE:_EventOnPlayerLeaveUnit( Event ) +-- self:F3( { Event } ) +-- +-- if Event.IniDCSUnit then +-- if self:IsIncludeObject( Event.IniDCSUnit ) then +-- if self.PlayersAlive[Event.IniDCSUnitName] then +-- self:E( { "Cleaning player for unit:", Event.IniDCSUnitName, Event.IniDCSUnit:getPlayerName() } ) +-- self.PlayersAlive[Event.IniDCSUnitName] = nil +-- self.ClientsAlive[Event.IniDCSUnitName] = nil +-- end +-- end +-- end +--end + +-- Iterators + +--- Iterate the SET_BASE and derived classes and call an iterator function for the given SET_BASE, providing the Object for each element within the set and optional parameters. +-- @param #SET_BASE self +-- @param #function IteratorFunction The function that will be called. +-- @return #SET_BASE self +function SET_BASE:ForEach( IteratorFunction, arg, Set, Function, FunctionArguments ) + self:F3( arg ) + + local function CoRoutine() + local Count = 0 + for ObjectID, Object in pairs( Set ) do + self:T3( Object ) + if Function then + if Function( unpack( FunctionArguments ), Object ) == true then + IteratorFunction( Object, unpack( arg ) ) + end + else + IteratorFunction( Object, unpack( arg ) ) + end + Count = Count + 1 +-- if Count % self.YieldInterval == 0 then +-- coroutine.yield( false ) +-- end + end + return true + end + +-- local co = coroutine.create( CoRoutine ) + local co = CoRoutine + + local function Schedule() + +-- local status, res = coroutine.resume( co ) + local status, res = co() + self:T3( { status, res } ) + + if status == false then + error( res ) + end + if res == false then + return true -- resume next time the loop + end + + return false + end + + local Scheduler = SCHEDULER:New( self, Schedule, {}, self.TimeInterval, self.TimeInterval, 0 ) + + return self +end + + +----- Iterate the SET_BASE and call an interator function for each **alive** unit, providing the Unit and optional parameters. +---- @param #SET_BASE self +---- @param #function IteratorFunction The function that will be called when there is an alive unit in the SET_BASE. The function needs to accept a UNIT parameter. +---- @return #SET_BASE self +--function SET_BASE:ForEachDCSUnitAlive( IteratorFunction, ... ) +-- self:F3( arg ) +-- +-- self:ForEach( IteratorFunction, arg, self.DCSUnitsAlive ) +-- +-- return self +--end +-- +----- Iterate the SET_BASE and call an interator function for each **alive** player, providing the Unit of the player and optional parameters. +---- @param #SET_BASE self +---- @param #function IteratorFunction The function that will be called when there is an alive player in the SET_BASE. The function needs to accept a UNIT parameter. +---- @return #SET_BASE self +--function SET_BASE:ForEachPlayer( IteratorFunction, ... ) +-- self:F3( arg ) +-- +-- self:ForEach( IteratorFunction, arg, self.PlayersAlive ) +-- +-- return self +--end +-- +-- +----- Iterate the SET_BASE and call an interator function for each client, providing the Client to the function and optional parameters. +---- @param #SET_BASE self +---- @param #function IteratorFunction The function that will be called when there is an alive player in the SET_BASE. The function needs to accept a CLIENT parameter. +---- @return #SET_BASE self +--function SET_BASE:ForEachClient( IteratorFunction, ... ) +-- self:F3( arg ) +-- +-- self:ForEach( IteratorFunction, arg, self.Clients ) +-- +-- return self +--end + + +--- Decides whether to include the Object +-- @param #SET_BASE self +-- @param #table Object +-- @return #SET_BASE self +function SET_BASE:IsIncludeObject( Object ) + self:F3( Object ) + + return true +end + +--- Flushes the current SET_BASE contents in the log ... (for debugging reasons). +-- @param #SET_BASE self +-- @return #string A string with the names of the objects. +function SET_BASE:Flush() + self:F3() + + local ObjectNames = "" + for ObjectName, Object in pairs( self.Set ) do + ObjectNames = ObjectNames .. ObjectName .. ", " + end + self:T( { "Objects in Set:", ObjectNames } ) + + return ObjectNames +end + +-- SET_GROUP + +--- SET_GROUP class +-- @type SET_GROUP +-- @extends Set#SET_BASE +SET_GROUP = { + ClassName = "SET_GROUP", + Filter = { + Coalitions = nil, + Categories = nil, + Countries = nil, + GroupPrefixes = nil, + }, + FilterMeta = { + Coalitions = { + red = coalition.side.RED, + blue = coalition.side.BLUE, + neutral = coalition.side.NEUTRAL, + }, + Categories = { + plane = Group.Category.AIRPLANE, + helicopter = Group.Category.HELICOPTER, + ground = Group.Category.GROUND_UNIT, + ship = Group.Category.SHIP, + structure = Group.Category.STRUCTURE, + }, + }, +} + + +--- Creates a new SET_GROUP object, building a set of groups belonging to a coalitions, categories, countries, types or with defined prefix names. +-- @param #SET_GROUP self +-- @return #SET_GROUP +-- @usage +-- -- Define a new SET_GROUP Object. This DBObject will contain a reference to all alive GROUPS. +-- DBObject = SET_GROUP:New() +function SET_GROUP:New() + + -- Inherits from BASE + local self = BASE:Inherit( self, SET_BASE:New( _DATABASE.GROUPS ) ) + + return self +end + +--- Add GROUP(s) to SET_GROUP. +-- @param Set#SET_GROUP self +-- @param #string AddGroupNames A single name or an array of GROUP names. +-- @return self +function SET_GROUP:AddGroupsByName( AddGroupNames ) + + local AddGroupNamesArray = ( type( AddGroupNames ) == "table" ) and AddGroupNames or { AddGroupNames } + + for AddGroupID, AddGroupName in pairs( AddGroupNamesArray ) do + self:Add( AddGroupName, GROUP:FindByName( AddGroupName ) ) + end + + return self +end + +--- Remove GROUP(s) from SET_GROUP. +-- @param Set#SET_GROUP self +-- @param Group#GROUP RemoveGroupNames A single name or an array of GROUP names. +-- @return self +function SET_GROUP:RemoveGroupsByName( RemoveGroupNames ) + + local RemoveGroupNamesArray = ( type( RemoveGroupNames ) == "table" ) and RemoveGroupNames or { RemoveGroupNames } + + for RemoveGroupID, RemoveGroupName in pairs( RemoveGroupNamesArray ) do + self:Remove( RemoveGroupName.GroupName ) + end + + return self +end + + + + +--- Finds a Group based on the Group Name. +-- @param #SET_GROUP self +-- @param #string GroupName +-- @return Group#GROUP The found Group. +function SET_GROUP:FindGroup( GroupName ) + + local GroupFound = self.Set[GroupName] + return GroupFound +end + + + +--- Builds a set of groups of coalitions. +-- Possible current coalitions are red, blue and neutral. +-- @param #SET_GROUP self +-- @param #string Coalitions Can take the following values: "red", "blue", "neutral". +-- @return #SET_GROUP self +function SET_GROUP:FilterCoalitions( Coalitions ) + if not self.Filter.Coalitions then + self.Filter.Coalitions = {} + end + if type( Coalitions ) ~= "table" then + Coalitions = { Coalitions } + end + for CoalitionID, Coalition in pairs( Coalitions ) do + self.Filter.Coalitions[Coalition] = Coalition + end + return self +end + + +--- Builds a set of groups out of categories. +-- Possible current categories are plane, helicopter, ground, ship. +-- @param #SET_GROUP self +-- @param #string Categories Can take the following values: "plane", "helicopter", "ground", "ship". +-- @return #SET_GROUP self +function SET_GROUP:FilterCategories( Categories ) + if not self.Filter.Categories then + self.Filter.Categories = {} + end + if type( Categories ) ~= "table" then + Categories = { Categories } + end + for CategoryID, Category in pairs( Categories ) do + self.Filter.Categories[Category] = Category + end + return self +end + +--- Builds a set of groups of defined countries. +-- Possible current countries are those known within DCS world. +-- @param #SET_GROUP self +-- @param #string Countries Can take those country strings known within DCS world. +-- @return #SET_GROUP self +function SET_GROUP:FilterCountries( Countries ) + if not self.Filter.Countries then + self.Filter.Countries = {} + end + if type( Countries ) ~= "table" then + Countries = { Countries } + end + for CountryID, Country in pairs( Countries ) do + self.Filter.Countries[Country] = Country + end + return self +end + + +--- Builds a set of groups of defined GROUP prefixes. +-- All the groups starting with the given prefixes will be included within the set. +-- @param #SET_GROUP self +-- @param #string Prefixes The prefix of which the group name starts with. +-- @return #SET_GROUP self +function SET_GROUP:FilterPrefixes( Prefixes ) + if not self.Filter.GroupPrefixes then + self.Filter.GroupPrefixes = {} + end + if type( Prefixes ) ~= "table" then + Prefixes = { Prefixes } + end + for PrefixID, Prefix in pairs( Prefixes ) do + self.Filter.GroupPrefixes[Prefix] = Prefix + end + return self +end + + +--- Starts the filtering. +-- @param #SET_GROUP self +-- @return #SET_GROUP self +function SET_GROUP:FilterStart() + + if _DATABASE then + self:_FilterStart() + end + + return self +end + +--- Handles the Database to check on an event (birth) that the Object was added in the Database. +-- This is required, because sometimes the _DATABASE birth event gets called later than the SET_BASE birth event! +-- @param #SET_GROUP self +-- @param Event#EVENTDATA Event +-- @return #string The name of the GROUP +-- @return #table The GROUP +function SET_GROUP:AddInDatabase( Event ) + self:F3( { Event } ) + + if not self.Database[Event.IniDCSGroupName] then + self.Database[Event.IniDCSGroupName] = GROUP:Register( Event.IniDCSGroupName ) + self:T3( self.Database[Event.IniDCSGroupName] ) + end + + return Event.IniDCSGroupName, self.Database[Event.IniDCSGroupName] +end + +--- Handles the Database to check on any event that Object exists in the Database. +-- This is required, because sometimes the _DATABASE event gets called later than the SET_BASE event or vise versa! +-- @param #SET_GROUP self +-- @param Event#EVENTDATA Event +-- @return #string The name of the GROUP +-- @return #table The GROUP +function SET_GROUP:FindInDatabase( Event ) + self:F3( { Event } ) + + return Event.IniDCSGroupName, self.Database[Event.IniDCSGroupName] +end + +--- Iterate the SET_GROUP and call an iterator function for each **alive** GROUP, providing the GROUP and optional parameters. +-- @param #SET_GROUP self +-- @param #function IteratorFunction The function that will be called when there is an alive GROUP in the SET_GROUP. The function needs to accept a GROUP parameter. +-- @return #SET_GROUP self +function SET_GROUP:ForEachGroup( IteratorFunction, ... ) + self:F2( arg ) + + self:ForEach( IteratorFunction, arg, self.Set ) + + return self +end + +--- Iterate the SET_GROUP and call an iterator function for each **alive** GROUP presence completely in a @{Zone}, providing the GROUP and optional parameters to the called function. +-- @param #SET_GROUP self +-- @param Zone#ZONE ZoneObject The Zone to be tested for. +-- @param #function IteratorFunction The function that will be called when there is an alive GROUP in the SET_GROUP. The function needs to accept a GROUP parameter. +-- @return #SET_GROUP self +function SET_GROUP:ForEachGroupCompletelyInZone( ZoneObject, IteratorFunction, ... ) + self:F2( arg ) + + self:ForEach( IteratorFunction, arg, self.Set, + --- @param Zone#ZONE_BASE ZoneObject + -- @param Group#GROUP GroupObject + function( ZoneObject, GroupObject ) + if GroupObject:IsCompletelyInZone( ZoneObject ) then + return true + else + return false + end + end, { ZoneObject } ) + + return self +end + +--- Iterate the SET_GROUP and call an iterator function for each **alive** GROUP presence partly in a @{Zone}, providing the GROUP and optional parameters to the called function. +-- @param #SET_GROUP self +-- @param Zone#ZONE ZoneObject The Zone to be tested for. +-- @param #function IteratorFunction The function that will be called when there is an alive GROUP in the SET_GROUP. The function needs to accept a GROUP parameter. +-- @return #SET_GROUP self +function SET_GROUP:ForEachGroupPartlyInZone( ZoneObject, IteratorFunction, ... ) + self:F2( arg ) + + self:ForEach( IteratorFunction, arg, self.Set, + --- @param Zone#ZONE_BASE ZoneObject + -- @param Group#GROUP GroupObject + function( ZoneObject, GroupObject ) + if GroupObject:IsPartlyInZone( ZoneObject ) then + return true + else + return false + end + end, { ZoneObject } ) + + return self +end + +--- Iterate the SET_GROUP and call an iterator function for each **alive** GROUP presence not in a @{Zone}, providing the GROUP and optional parameters to the called function. +-- @param #SET_GROUP self +-- @param Zone#ZONE ZoneObject The Zone to be tested for. +-- @param #function IteratorFunction The function that will be called when there is an alive GROUP in the SET_GROUP. The function needs to accept a GROUP parameter. +-- @return #SET_GROUP self +function SET_GROUP:ForEachGroupNotInZone( ZoneObject, IteratorFunction, ... ) + self:F2( arg ) + + self:ForEach( IteratorFunction, arg, self.Set, + --- @param Zone#ZONE_BASE ZoneObject + -- @param Group#GROUP GroupObject + function( ZoneObject, GroupObject ) + if GroupObject:IsNotInZone( ZoneObject ) then + return true + else + return false + end + end, { ZoneObject } ) + + return self +end + + +----- Iterate the SET_GROUP and call an interator function for each **alive** player, providing the Group of the player and optional parameters. +---- @param #SET_GROUP self +---- @param #function IteratorFunction The function that will be called when there is an alive player in the SET_GROUP. The function needs to accept a GROUP parameter. +---- @return #SET_GROUP self +--function SET_GROUP:ForEachPlayer( IteratorFunction, ... ) +-- self:F2( arg ) +-- +-- self:ForEach( IteratorFunction, arg, self.PlayersAlive ) +-- +-- return self +--end +-- +-- +----- Iterate the SET_GROUP and call an interator function for each client, providing the Client to the function and optional parameters. +---- @param #SET_GROUP self +---- @param #function IteratorFunction The function that will be called when there is an alive player in the SET_GROUP. The function needs to accept a CLIENT parameter. +---- @return #SET_GROUP self +--function SET_GROUP:ForEachClient( IteratorFunction, ... ) +-- self:F2( arg ) +-- +-- self:ForEach( IteratorFunction, arg, self.Clients ) +-- +-- return self +--end + + +--- +-- @param #SET_GROUP self +-- @param Group#GROUP MooseGroup +-- @return #SET_GROUP self +function SET_GROUP:IsIncludeObject( MooseGroup ) + self:F2( MooseGroup ) + local MooseGroupInclude = true + + if self.Filter.Coalitions then + local MooseGroupCoalition = false + for CoalitionID, CoalitionName in pairs( self.Filter.Coalitions ) do + self:T3( { "Coalition:", MooseGroup:GetCoalition(), self.FilterMeta.Coalitions[CoalitionName], CoalitionName } ) + if self.FilterMeta.Coalitions[CoalitionName] and self.FilterMeta.Coalitions[CoalitionName] == MooseGroup:GetCoalition() then + MooseGroupCoalition = true + end + end + MooseGroupInclude = MooseGroupInclude and MooseGroupCoalition + end + + if self.Filter.Categories then + local MooseGroupCategory = false + for CategoryID, CategoryName in pairs( self.Filter.Categories ) do + self:T3( { "Category:", MooseGroup:GetCategory(), self.FilterMeta.Categories[CategoryName], CategoryName } ) + if self.FilterMeta.Categories[CategoryName] and self.FilterMeta.Categories[CategoryName] == MooseGroup:GetCategory() then + MooseGroupCategory = true + end + end + MooseGroupInclude = MooseGroupInclude and MooseGroupCategory + end + + if self.Filter.Countries then + local MooseGroupCountry = false + for CountryID, CountryName in pairs( self.Filter.Countries ) do + self:T3( { "Country:", MooseGroup:GetCountry(), CountryName } ) + if country.id[CountryName] == MooseGroup:GetCountry() then + MooseGroupCountry = true + end + end + MooseGroupInclude = MooseGroupInclude and MooseGroupCountry + end + + if self.Filter.GroupPrefixes then + local MooseGroupPrefix = false + for GroupPrefixId, GroupPrefix in pairs( self.Filter.GroupPrefixes ) do + self:T3( { "Prefix:", string.find( MooseGroup:GetName(), GroupPrefix, 1 ), GroupPrefix } ) + if string.find( MooseGroup:GetName(), GroupPrefix, 1 ) then + MooseGroupPrefix = true + end + end + MooseGroupInclude = MooseGroupInclude and MooseGroupPrefix + end + + self:T2( MooseGroupInclude ) + return MooseGroupInclude +end + +--- SET_UNIT class +-- @type SET_UNIT +-- @extends Set#SET_BASE +SET_UNIT = { + ClassName = "SET_UNIT", + Units = {}, + Filter = { + Coalitions = nil, + Categories = nil, + Types = nil, + Countries = nil, + UnitPrefixes = nil, + }, + FilterMeta = { + Coalitions = { + red = coalition.side.RED, + blue = coalition.side.BLUE, + neutral = coalition.side.NEUTRAL, + }, + Categories = { + plane = Unit.Category.AIRPLANE, + helicopter = Unit.Category.HELICOPTER, + ground = Unit.Category.GROUND_UNIT, + ship = Unit.Category.SHIP, + structure = Unit.Category.STRUCTURE, + }, + }, +} + + +--- Creates a new SET_UNIT object, building a set of units belonging to a coalitions, categories, countries, types or with defined prefix names. +-- @param #SET_UNIT self +-- @return #SET_UNIT +-- @usage +-- -- Define a new SET_UNIT Object. This DBObject will contain a reference to all alive Units. +-- DBObject = SET_UNIT:New() +function SET_UNIT:New() + + -- Inherits from BASE + local self = BASE:Inherit( self, SET_BASE:New( _DATABASE.UNITS ) ) + + _EVENTDISPATCHER:OnBirth( self._EventOnBirth, self ) + _EVENTDISPATCHER:OnDead( self._EventOnDeadOrCrash, self ) + _EVENTDISPATCHER:OnCrash( self._EventOnDeadOrCrash, self ) + + return self +end + +--- Add UNIT(s) to SET_UNIT. +-- @param #SET_UNIT self +-- @param #string AddUnit A single UNIT. +-- @return #SET_UNIT self +function SET_UNIT:AddUnit( AddUnit ) + self:F2( AddUnit:GetName() ) + + self:Add( AddUnit:GetName(), AddUnit ) + + return self +end + + +--- Add UNIT(s) to SET_UNIT. +-- @param #SET_UNIT self +-- @param #string AddUnitNames A single name or an array of UNIT names. +-- @return #SET_UNIT self +function SET_UNIT:AddUnitsByName( AddUnitNames ) + + local AddUnitNamesArray = ( type( AddUnitNames ) == "table" ) and AddUnitNames or { AddUnitNames } + + self:T( AddUnitNamesArray ) + for AddUnitID, AddUnitName in pairs( AddUnitNamesArray ) do + self:Add( AddUnitName, UNIT:FindByName( AddUnitName ) ) + end + + return self +end + +--- Remove UNIT(s) from SET_UNIT. +-- @param Set#SET_UNIT self +-- @param Unit#UNIT RemoveUnitNames A single name or an array of UNIT names. +-- @return self +function SET_UNIT:RemoveUnitsByName( RemoveUnitNames ) + + local RemoveUnitNamesArray = ( type( RemoveUnitNames ) == "table" ) and RemoveUnitNames or { RemoveUnitNames } + + for RemoveUnitID, RemoveUnitName in pairs( RemoveUnitNamesArray ) do + self:Remove( RemoveUnitName.UnitName ) + end + + return self +end + + +--- Finds a Unit based on the Unit Name. +-- @param #SET_UNIT self +-- @param #string UnitName +-- @return Unit#UNIT The found Unit. +function SET_UNIT:FindUnit( UnitName ) + + local UnitFound = self.Set[UnitName] + return UnitFound +end + + + +--- Builds a set of units of coalitions. +-- Possible current coalitions are red, blue and neutral. +-- @param #SET_UNIT self +-- @param #string Coalitions Can take the following values: "red", "blue", "neutral". +-- @return #SET_UNIT self +function SET_UNIT:FilterCoalitions( Coalitions ) + if not self.Filter.Coalitions then + self.Filter.Coalitions = {} + end + if type( Coalitions ) ~= "table" then + Coalitions = { Coalitions } + end + for CoalitionID, Coalition in pairs( Coalitions ) do + self.Filter.Coalitions[Coalition] = Coalition + end + return self +end + + +--- Builds a set of units out of categories. +-- Possible current categories are plane, helicopter, ground, ship. +-- @param #SET_UNIT self +-- @param #string Categories Can take the following values: "plane", "helicopter", "ground", "ship". +-- @return #SET_UNIT self +function SET_UNIT:FilterCategories( Categories ) + if not self.Filter.Categories then + self.Filter.Categories = {} + end + if type( Categories ) ~= "table" then + Categories = { Categories } + end + for CategoryID, Category in pairs( Categories ) do + self.Filter.Categories[Category] = Category + end + return self +end + + +--- Builds a set of units of defined unit types. +-- Possible current types are those types known within DCS world. +-- @param #SET_UNIT self +-- @param #string Types Can take those type strings known within DCS world. +-- @return #SET_UNIT self +function SET_UNIT:FilterTypes( Types ) + if not self.Filter.Types then + self.Filter.Types = {} + end + if type( Types ) ~= "table" then + Types = { Types } + end + for TypeID, Type in pairs( Types ) do + self.Filter.Types[Type] = Type + end + return self +end + + +--- Builds a set of units of defined countries. +-- Possible current countries are those known within DCS world. +-- @param #SET_UNIT self +-- @param #string Countries Can take those country strings known within DCS world. +-- @return #SET_UNIT self +function SET_UNIT:FilterCountries( Countries ) + if not self.Filter.Countries then + self.Filter.Countries = {} + end + if type( Countries ) ~= "table" then + Countries = { Countries } + end + for CountryID, Country in pairs( Countries ) do + self.Filter.Countries[Country] = Country + end + return self +end + + +--- Builds a set of units of defined unit prefixes. +-- All the units starting with the given prefixes will be included within the set. +-- @param #SET_UNIT self +-- @param #string Prefixes The prefix of which the unit name starts with. +-- @return #SET_UNIT self +function SET_UNIT:FilterPrefixes( Prefixes ) + if not self.Filter.UnitPrefixes then + self.Filter.UnitPrefixes = {} + end + if type( Prefixes ) ~= "table" then + Prefixes = { Prefixes } + end + for PrefixID, Prefix in pairs( Prefixes ) do + self.Filter.UnitPrefixes[Prefix] = Prefix + end + return self +end + + + + +--- Starts the filtering. +-- @param #SET_UNIT self +-- @return #SET_UNIT self +function SET_UNIT:FilterStart() + + if _DATABASE then + self:_FilterStart() + end + + return self +end + +--- Handles the Database to check on an event (birth) that the Object was added in the Database. +-- This is required, because sometimes the _DATABASE birth event gets called later than the SET_BASE birth event! +-- @param #SET_UNIT self +-- @param Event#EVENTDATA Event +-- @return #string The name of the UNIT +-- @return #table The UNIT +function SET_UNIT:AddInDatabase( Event ) + self:F3( { Event } ) + + if not self.Database[Event.IniDCSUnitName] then + self.Database[Event.IniDCSUnitName] = UNIT:Register( Event.IniDCSUnitName ) + self:T3( self.Database[Event.IniDCSUnitName] ) + end + + return Event.IniDCSUnitName, self.Database[Event.IniDCSUnitName] +end + +--- Handles the Database to check on any event that Object exists in the Database. +-- This is required, because sometimes the _DATABASE event gets called later than the SET_BASE event or vise versa! +-- @param #SET_UNIT self +-- @param Event#EVENTDATA Event +-- @return #string The name of the UNIT +-- @return #table The UNIT +function SET_UNIT:FindInDatabase( Event ) + self:F3( { Event } ) + + return Event.IniDCSUnitName, self.Database[Event.IniDCSUnitName] +end + +--- Iterate the SET_UNIT and call an interator function for each **alive** UNIT, providing the UNIT and optional parameters. +-- @param #SET_UNIT self +-- @param #function IteratorFunction The function that will be called when there is an alive UNIT in the SET_UNIT. The function needs to accept a UNIT parameter. +-- @return #SET_UNIT self +function SET_UNIT:ForEachUnit( IteratorFunction, ... ) + self:F2( arg ) + + self:ForEach( IteratorFunction, arg, self.Set ) + + return self +end + +--- Iterate the SET_UNIT and call an iterator function for each **alive** UNIT presence completely in a @{Zone}, providing the UNIT and optional parameters to the called function. +-- @param #SET_UNIT self +-- @param Zone#ZONE ZoneObject The Zone to be tested for. +-- @param #function IteratorFunction The function that will be called when there is an alive UNIT in the SET_UNIT. The function needs to accept a UNIT parameter. +-- @return #SET_UNIT self +function SET_UNIT:ForEachUnitCompletelyInZone( ZoneObject, IteratorFunction, ... ) + self:F2( arg ) + + self:ForEach( IteratorFunction, arg, self.Set, + --- @param Zone#ZONE_BASE ZoneObject + -- @param Unit#UNIT UnitObject + function( ZoneObject, UnitObject ) + if UnitObject:IsCompletelyInZone( ZoneObject ) then + return true + else + return false + end + end, { ZoneObject } ) + + return self +end + +--- Iterate the SET_UNIT and call an iterator function for each **alive** UNIT presence not in a @{Zone}, providing the UNIT and optional parameters to the called function. +-- @param #SET_UNIT self +-- @param Zone#ZONE ZoneObject The Zone to be tested for. +-- @param #function IteratorFunction The function that will be called when there is an alive UNIT in the SET_UNIT. The function needs to accept a UNIT parameter. +-- @return #SET_UNIT self +function SET_UNIT:ForEachUnitNotInZone( ZoneObject, IteratorFunction, ... ) + self:F2( arg ) + + self:ForEach( IteratorFunction, arg, self.Set, + --- @param Zone#ZONE_BASE ZoneObject + -- @param Unit#UNIT UnitObject + function( ZoneObject, UnitObject ) + if UnitObject:IsNotInZone( ZoneObject ) then + return true + else + return false + end + end, { ZoneObject } ) + + return self +end + + + +----- Iterate the SET_UNIT and call an interator function for each **alive** player, providing the Unit of the player and optional parameters. +---- @param #SET_UNIT self +---- @param #function IteratorFunction The function that will be called when there is an alive player in the SET_UNIT. The function needs to accept a UNIT parameter. +---- @return #SET_UNIT self +--function SET_UNIT:ForEachPlayer( IteratorFunction, ... ) +-- self:F2( arg ) +-- +-- self:ForEach( IteratorFunction, arg, self.PlayersAlive ) +-- +-- return self +--end +-- +-- +----- Iterate the SET_UNIT and call an interator function for each client, providing the Client to the function and optional parameters. +---- @param #SET_UNIT self +---- @param #function IteratorFunction The function that will be called when there is an alive player in the SET_UNIT. The function needs to accept a CLIENT parameter. +---- @return #SET_UNIT self +--function SET_UNIT:ForEachClient( IteratorFunction, ... ) +-- self:F2( arg ) +-- +-- self:ForEach( IteratorFunction, arg, self.Clients ) +-- +-- return self +--end + + +--- +-- @param #SET_UNIT self +-- @param Unit#UNIT MUnit +-- @return #SET_UNIT self +function SET_UNIT:IsIncludeObject( MUnit ) + self:F2( MUnit ) + local MUnitInclude = true + + if self.Filter.Coalitions then + local MUnitCoalition = false + for CoalitionID, CoalitionName in pairs( self.Filter.Coalitions ) do + self:T3( { "Coalition:", MUnit:GetCoalition(), self.FilterMeta.Coalitions[CoalitionName], CoalitionName } ) + if self.FilterMeta.Coalitions[CoalitionName] and self.FilterMeta.Coalitions[CoalitionName] == MUnit:GetCoalition() then + MUnitCoalition = true + end + end + MUnitInclude = MUnitInclude and MUnitCoalition + end + + if self.Filter.Categories then + local MUnitCategory = false + for CategoryID, CategoryName in pairs( self.Filter.Categories ) do + self:T3( { "Category:", MUnit:GetDesc().category, self.FilterMeta.Categories[CategoryName], CategoryName } ) + if self.FilterMeta.Categories[CategoryName] and self.FilterMeta.Categories[CategoryName] == MUnit:GetDesc().category then + MUnitCategory = true + end + end + MUnitInclude = MUnitInclude and MUnitCategory + end + + if self.Filter.Types then + local MUnitType = false + for TypeID, TypeName in pairs( self.Filter.Types ) do + self:T3( { "Type:", MUnit:GetTypeName(), TypeName } ) + if TypeName == MUnit:GetTypeName() then + MUnitType = true + end + end + MUnitInclude = MUnitInclude and MUnitType + end + + if self.Filter.Countries then + local MUnitCountry = false + for CountryID, CountryName in pairs( self.Filter.Countries ) do + self:T3( { "Country:", MUnit:GetCountry(), CountryName } ) + if country.id[CountryName] == MUnit:GetCountry() then + MUnitCountry = true + end + end + MUnitInclude = MUnitInclude and MUnitCountry + end + + if self.Filter.UnitPrefixes then + local MUnitPrefix = false + for UnitPrefixId, UnitPrefix in pairs( self.Filter.UnitPrefixes ) do + self:T3( { "Prefix:", string.find( MUnit:GetName(), UnitPrefix, 1 ), UnitPrefix } ) + if string.find( MUnit:GetName(), UnitPrefix, 1 ) then + MUnitPrefix = true + end + end + MUnitInclude = MUnitInclude and MUnitPrefix + end + + self:T2( MUnitInclude ) + return MUnitInclude +end + + +--- SET_CLIENT + +--- SET_CLIENT class +-- @type SET_CLIENT +-- @extends Set#SET_BASE +SET_CLIENT = { + ClassName = "SET_CLIENT", + Clients = {}, + Filter = { + Coalitions = nil, + Categories = nil, + Types = nil, + Countries = nil, + ClientPrefixes = nil, + }, + FilterMeta = { + Coalitions = { + red = coalition.side.RED, + blue = coalition.side.BLUE, + neutral = coalition.side.NEUTRAL, + }, + Categories = { + plane = Unit.Category.AIRPLANE, + helicopter = Unit.Category.HELICOPTER, + ground = Unit.Category.GROUND_UNIT, + ship = Unit.Category.SHIP, + structure = Unit.Category.STRUCTURE, + }, + }, +} + + +--- Creates a new SET_CLIENT object, building a set of clients belonging to a coalitions, categories, countries, types or with defined prefix names. +-- @param #SET_CLIENT self +-- @return #SET_CLIENT +-- @usage +-- -- Define a new SET_CLIENT Object. This DBObject will contain a reference to all Clients. +-- DBObject = SET_CLIENT:New() +function SET_CLIENT:New() + -- Inherits from BASE + local self = BASE:Inherit( self, SET_BASE:New( _DATABASE.CLIENTS ) ) + + return self +end + +--- Add CLIENT(s) to SET_CLIENT. +-- @param Set#SET_CLIENT self +-- @param #string AddClientNames A single name or an array of CLIENT names. +-- @return self +function SET_CLIENT:AddClientsByName( AddClientNames ) + + local AddClientNamesArray = ( type( AddClientNames ) == "table" ) and AddClientNames or { AddClientNames } + + for AddClientID, AddClientName in pairs( AddClientNamesArray ) do + self:Add( AddClientName, CLIENT:FindByName( AddClientName ) ) + end + + return self +end + +--- Remove CLIENT(s) from SET_CLIENT. +-- @param Set#SET_CLIENT self +-- @param Client#CLIENT RemoveClientNames A single name or an array of CLIENT names. +-- @return self +function SET_CLIENT:RemoveClientsByName( RemoveClientNames ) + + local RemoveClientNamesArray = ( type( RemoveClientNames ) == "table" ) and RemoveClientNames or { RemoveClientNames } + + for RemoveClientID, RemoveClientName in pairs( RemoveClientNamesArray ) do + self:Remove( RemoveClientName.ClientName ) + end + + return self +end + + +--- Finds a Client based on the Client Name. +-- @param #SET_CLIENT self +-- @param #string ClientName +-- @return Client#CLIENT The found Client. +function SET_CLIENT:FindClient( ClientName ) + + local ClientFound = self.Set[ClientName] + return ClientFound +end + + + +--- Builds a set of clients of coalitions. +-- Possible current coalitions are red, blue and neutral. +-- @param #SET_CLIENT self +-- @param #string Coalitions Can take the following values: "red", "blue", "neutral". +-- @return #SET_CLIENT self +function SET_CLIENT:FilterCoalitions( Coalitions ) + if not self.Filter.Coalitions then + self.Filter.Coalitions = {} + end + if type( Coalitions ) ~= "table" then + Coalitions = { Coalitions } + end + for CoalitionID, Coalition in pairs( Coalitions ) do + self.Filter.Coalitions[Coalition] = Coalition + end + return self +end + + +--- Builds a set of clients out of categories. +-- Possible current categories are plane, helicopter, ground, ship. +-- @param #SET_CLIENT self +-- @param #string Categories Can take the following values: "plane", "helicopter", "ground", "ship". +-- @return #SET_CLIENT self +function SET_CLIENT:FilterCategories( Categories ) + if not self.Filter.Categories then + self.Filter.Categories = {} + end + if type( Categories ) ~= "table" then + Categories = { Categories } + end + for CategoryID, Category in pairs( Categories ) do + self.Filter.Categories[Category] = Category + end + return self +end + + +--- Builds a set of clients of defined client types. +-- Possible current types are those types known within DCS world. +-- @param #SET_CLIENT self +-- @param #string Types Can take those type strings known within DCS world. +-- @return #SET_CLIENT self +function SET_CLIENT:FilterTypes( Types ) + if not self.Filter.Types then + self.Filter.Types = {} + end + if type( Types ) ~= "table" then + Types = { Types } + end + for TypeID, Type in pairs( Types ) do + self.Filter.Types[Type] = Type + end + return self +end + + +--- Builds a set of clients of defined countries. +-- Possible current countries are those known within DCS world. +-- @param #SET_CLIENT self +-- @param #string Countries Can take those country strings known within DCS world. +-- @return #SET_CLIENT self +function SET_CLIENT:FilterCountries( Countries ) + if not self.Filter.Countries then + self.Filter.Countries = {} + end + if type( Countries ) ~= "table" then + Countries = { Countries } + end + for CountryID, Country in pairs( Countries ) do + self.Filter.Countries[Country] = Country + end + return self +end + + +--- Builds a set of clients of defined client prefixes. +-- All the clients starting with the given prefixes will be included within the set. +-- @param #SET_CLIENT self +-- @param #string Prefixes The prefix of which the client name starts with. +-- @return #SET_CLIENT self +function SET_CLIENT:FilterPrefixes( Prefixes ) + if not self.Filter.ClientPrefixes then + self.Filter.ClientPrefixes = {} + end + if type( Prefixes ) ~= "table" then + Prefixes = { Prefixes } + end + for PrefixID, Prefix in pairs( Prefixes ) do + self.Filter.ClientPrefixes[Prefix] = Prefix + end + return self +end + + + + +--- Starts the filtering. +-- @param #SET_CLIENT self +-- @return #SET_CLIENT self +function SET_CLIENT:FilterStart() + + if _DATABASE then + self:_FilterStart() + end + + return self +end + +--- Handles the Database to check on an event (birth) that the Object was added in the Database. +-- This is required, because sometimes the _DATABASE birth event gets called later than the SET_BASE birth event! +-- @param #SET_CLIENT self +-- @param Event#EVENTDATA Event +-- @return #string The name of the CLIENT +-- @return #table The CLIENT +function SET_CLIENT:AddInDatabase( Event ) + self:F3( { Event } ) + + return Event.IniDCSUnitName, self.Database[Event.IniDCSUnitName] +end + +--- Handles the Database to check on any event that Object exists in the Database. +-- This is required, because sometimes the _DATABASE event gets called later than the SET_BASE event or vise versa! +-- @param #SET_CLIENT self +-- @param Event#EVENTDATA Event +-- @return #string The name of the CLIENT +-- @return #table The CLIENT +function SET_CLIENT:FindInDatabase( Event ) + self:F3( { Event } ) + + return Event.IniDCSUnitName, self.Database[Event.IniDCSUnitName] +end + +--- Iterate the SET_CLIENT and call an interator function for each **alive** CLIENT, providing the CLIENT and optional parameters. +-- @param #SET_CLIENT self +-- @param #function IteratorFunction The function that will be called when there is an alive CLIENT in the SET_CLIENT. The function needs to accept a CLIENT parameter. +-- @return #SET_CLIENT self +function SET_CLIENT:ForEachClient( IteratorFunction, ... ) + self:F2( arg ) + + self:ForEach( IteratorFunction, arg, self.Set ) + + return self +end + +--- Iterate the SET_CLIENT and call an iterator function for each **alive** CLIENT presence completely in a @{Zone}, providing the CLIENT and optional parameters to the called function. +-- @param #SET_CLIENT self +-- @param Zone#ZONE ZoneObject The Zone to be tested for. +-- @param #function IteratorFunction The function that will be called when there is an alive CLIENT in the SET_CLIENT. The function needs to accept a CLIENT parameter. +-- @return #SET_CLIENT self +function SET_CLIENT:ForEachClientInZone( ZoneObject, IteratorFunction, ... ) + self:F2( arg ) + + self:ForEach( IteratorFunction, arg, self.Set, + --- @param Zone#ZONE_BASE ZoneObject + -- @param Client#CLIENT ClientObject + function( ZoneObject, ClientObject ) + if ClientObject:IsInZone( ZoneObject ) then + return true + else + return false + end + end, { ZoneObject } ) + + return self +end + +--- Iterate the SET_CLIENT and call an iterator function for each **alive** CLIENT presence not in a @{Zone}, providing the CLIENT and optional parameters to the called function. +-- @param #SET_CLIENT self +-- @param Zone#ZONE ZoneObject The Zone to be tested for. +-- @param #function IteratorFunction The function that will be called when there is an alive CLIENT in the SET_CLIENT. The function needs to accept a CLIENT parameter. +-- @return #SET_CLIENT self +function SET_CLIENT:ForEachClientNotInZone( ZoneObject, IteratorFunction, ... ) + self:F2( arg ) + + self:ForEach( IteratorFunction, arg, self.Set, + --- @param Zone#ZONE_BASE ZoneObject + -- @param Client#CLIENT ClientObject + function( ZoneObject, ClientObject ) + if ClientObject:IsNotInZone( ZoneObject ) then + return true + else + return false + end + end, { ZoneObject } ) + + return self +end + +--- +-- @param #SET_CLIENT self +-- @param Client#CLIENT MClient +-- @return #SET_CLIENT self +function SET_CLIENT:IsIncludeObject( MClient ) + self:F2( MClient ) + + local MClientInclude = true + + if MClient then + local MClientName = MClient.UnitName + + if self.Filter.Coalitions then + local MClientCoalition = false + for CoalitionID, CoalitionName in pairs( self.Filter.Coalitions ) do + local ClientCoalitionID = _DATABASE:GetCoalitionFromClientTemplate( MClientName ) + self:T3( { "Coalition:", ClientCoalitionID, self.FilterMeta.Coalitions[CoalitionName], CoalitionName } ) + if self.FilterMeta.Coalitions[CoalitionName] and self.FilterMeta.Coalitions[CoalitionName] == ClientCoalitionID then + MClientCoalition = true + end + end + self:T( { "Evaluated Coalition", MClientCoalition } ) + MClientInclude = MClientInclude and MClientCoalition + end + + if self.Filter.Categories then + local MClientCategory = false + for CategoryID, CategoryName in pairs( self.Filter.Categories ) do + local ClientCategoryID = _DATABASE:GetCategoryFromClientTemplate( MClientName ) + self:T3( { "Category:", ClientCategoryID, self.FilterMeta.Categories[CategoryName], CategoryName } ) + if self.FilterMeta.Categories[CategoryName] and self.FilterMeta.Categories[CategoryName] == ClientCategoryID then + MClientCategory = true + end + end + self:T( { "Evaluated Category", MClientCategory } ) + MClientInclude = MClientInclude and MClientCategory + end + + if self.Filter.Types then + local MClientType = false + for TypeID, TypeName in pairs( self.Filter.Types ) do + self:T3( { "Type:", MClient:GetTypeName(), TypeName } ) + if TypeName == MClient:GetTypeName() then + MClientType = true + end + end + self:T( { "Evaluated Type", MClientType } ) + MClientInclude = MClientInclude and MClientType + end + + if self.Filter.Countries then + local MClientCountry = false + for CountryID, CountryName in pairs( self.Filter.Countries ) do + local ClientCountryID = _DATABASE:GetCountryFromClientTemplate(MClientName) + self:T3( { "Country:", ClientCountryID, country.id[CountryName], CountryName } ) + if country.id[CountryName] and country.id[CountryName] == ClientCountryID then + MClientCountry = true + end + end + self:T( { "Evaluated Country", MClientCountry } ) + MClientInclude = MClientInclude and MClientCountry + end + + if self.Filter.ClientPrefixes then + local MClientPrefix = false + for ClientPrefixId, ClientPrefix in pairs( self.Filter.ClientPrefixes ) do + self:T3( { "Prefix:", string.find( MClient.UnitName, ClientPrefix, 1 ), ClientPrefix } ) + if string.find( MClient.UnitName, ClientPrefix, 1 ) then + MClientPrefix = true + end + end + self:T( { "Evaluated Prefix", MClientPrefix } ) + MClientInclude = MClientInclude and MClientPrefix + end + end + + self:T2( MClientInclude ) + return MClientInclude +end + +--- SET_AIRBASE + +--- SET_AIRBASE class +-- @type SET_AIRBASE +-- @extends Set#SET_BASE +SET_AIRBASE = { + ClassName = "SET_AIRBASE", + Airbases = {}, + Filter = { + Coalitions = nil, + }, + FilterMeta = { + Coalitions = { + red = coalition.side.RED, + blue = coalition.side.BLUE, + neutral = coalition.side.NEUTRAL, + }, + Categories = { + airdrome = Airbase.Category.AIRDROME, + helipad = Airbase.Category.HELIPAD, + ship = Airbase.Category.SHIP, + }, + }, +} + + +--- Creates a new SET_AIRBASE object, building a set of airbases belonging to a coalitions and categories. +-- @param #SET_AIRBASE self +-- @return #SET_AIRBASE self +-- @usage +-- -- Define a new SET_AIRBASE Object. The DatabaseSet will contain a reference to all Airbases. +-- DatabaseSet = SET_AIRBASE:New() +function SET_AIRBASE:New() + -- Inherits from BASE + local self = BASE:Inherit( self, SET_BASE:New( _DATABASE.AIRBASES ) ) + + return self +end + +--- Add AIRBASEs to SET_AIRBASE. +-- @param Set#SET_AIRBASE self +-- @param #string AddAirbaseNames A single name or an array of AIRBASE names. +-- @return self +function SET_AIRBASE:AddAirbasesByName( AddAirbaseNames ) + + local AddAirbaseNamesArray = ( type( AddAirbaseNames ) == "table" ) and AddAirbaseNames or { AddAirbaseNames } + + for AddAirbaseID, AddAirbaseName in pairs( AddAirbaseNamesArray ) do + self:Add( AddAirbaseName, AIRBASE:FindByName( AddAirbaseName ) ) + end + + return self +end + +--- Remove AIRBASEs from SET_AIRBASE. +-- @param Set#SET_AIRBASE self +-- @param Airbase#AIRBASE RemoveAirbaseNames A single name or an array of AIRBASE names. +-- @return self +function SET_AIRBASE:RemoveAirbasesByName( RemoveAirbaseNames ) + + local RemoveAirbaseNamesArray = ( type( RemoveAirbaseNames ) == "table" ) and RemoveAirbaseNames or { RemoveAirbaseNames } + + for RemoveAirbaseID, RemoveAirbaseName in pairs( RemoveAirbaseNamesArray ) do + self:Remove( RemoveAirbaseName.AirbaseName ) + end + + return self +end + + +--- Finds a Airbase based on the Airbase Name. +-- @param #SET_AIRBASE self +-- @param #string AirbaseName +-- @return Airbase#AIRBASE The found Airbase. +function SET_AIRBASE:FindAirbase( AirbaseName ) + + local AirbaseFound = self.Set[AirbaseName] + return AirbaseFound +end + + + +--- Builds a set of airbases of coalitions. +-- Possible current coalitions are red, blue and neutral. +-- @param #SET_AIRBASE self +-- @param #string Coalitions Can take the following values: "red", "blue", "neutral". +-- @return #SET_AIRBASE self +function SET_AIRBASE:FilterCoalitions( Coalitions ) + if not self.Filter.Coalitions then + self.Filter.Coalitions = {} + end + if type( Coalitions ) ~= "table" then + Coalitions = { Coalitions } + end + for CoalitionID, Coalition in pairs( Coalitions ) do + self.Filter.Coalitions[Coalition] = Coalition + end + return self +end + + +--- Builds a set of airbases out of categories. +-- Possible current categories are plane, helicopter, ground, ship. +-- @param #SET_AIRBASE self +-- @param #string Categories Can take the following values: "airdrome", "helipad", "ship". +-- @return #SET_AIRBASE self +function SET_AIRBASE:FilterCategories( Categories ) + if not self.Filter.Categories then + self.Filter.Categories = {} + end + if type( Categories ) ~= "table" then + Categories = { Categories } + end + for CategoryID, Category in pairs( Categories ) do + self.Filter.Categories[Category] = Category + end + return self +end + +--- Starts the filtering. +-- @param #SET_AIRBASE self +-- @return #SET_AIRBASE self +function SET_AIRBASE:FilterStart() + + if _DATABASE then + self:_FilterStart() + end + + return self +end + + +--- Handles the Database to check on an event (birth) that the Object was added in the Database. +-- This is required, because sometimes the _DATABASE birth event gets called later than the SET_BASE birth event! +-- @param #SET_AIRBASE self +-- @param Event#EVENTDATA Event +-- @return #string The name of the AIRBASE +-- @return #table The AIRBASE +function SET_AIRBASE:AddInDatabase( Event ) + self:F3( { Event } ) + + return Event.IniDCSUnitName, self.Database[Event.IniDCSUnitName] +end + +--- Handles the Database to check on any event that Object exists in the Database. +-- This is required, because sometimes the _DATABASE event gets called later than the SET_BASE event or vise versa! +-- @param #SET_AIRBASE self +-- @param Event#EVENTDATA Event +-- @return #string The name of the AIRBASE +-- @return #table The AIRBASE +function SET_AIRBASE:FindInDatabase( Event ) + self:F3( { Event } ) + + return Event.IniDCSUnitName, self.Database[Event.IniDCSUnitName] +end + +--- Iterate the SET_AIRBASE and call an interator function for each AIRBASE, providing the AIRBASE and optional parameters. +-- @param #SET_AIRBASE self +-- @param #function IteratorFunction The function that will be called when there is an alive AIRBASE in the SET_AIRBASE. The function needs to accept a AIRBASE parameter. +-- @return #SET_AIRBASE self +function SET_AIRBASE:ForEachAirbase( IteratorFunction, ... ) + self:F2( arg ) + + self:ForEach( IteratorFunction, arg, self.Set ) + + return self +end + +--- Iterate the SET_AIRBASE while identifying the nearest @{Airbase#AIRBASE} from a @{Point#POINT_VEC2}. +-- @param #SET_AIRBASE self +-- @param Point#POINT_VEC2 PointVec2 A @{Point#POINT_VEC2} object from where to evaluate the closest @{Airbase#AIRBASE}. +-- @return Airbase#AIRBASE The closest @{Airbase#AIRBASE}. +function SET_AIRBASE:FindNearestAirbaseFromPointVec2( PointVec2 ) + self:F2( PointVec2 ) + + local NearestAirbase = self:FindNearestObjectFromPointVec2( PointVec2 ) + return NearestAirbase +end + + + +--- +-- @param #SET_AIRBASE self +-- @param Airbase#AIRBASE MAirbase +-- @return #SET_AIRBASE self +function SET_AIRBASE:IsIncludeObject( MAirbase ) + self:F2( MAirbase ) + + local MAirbaseInclude = true + + if MAirbase then + local MAirbaseName = MAirbase:GetName() + + if self.Filter.Coalitions then + local MAirbaseCoalition = false + for CoalitionID, CoalitionName in pairs( self.Filter.Coalitions ) do + local AirbaseCoalitionID = _DATABASE:GetCoalitionFromAirbase( MAirbaseName ) + self:T3( { "Coalition:", AirbaseCoalitionID, self.FilterMeta.Coalitions[CoalitionName], CoalitionName } ) + if self.FilterMeta.Coalitions[CoalitionName] and self.FilterMeta.Coalitions[CoalitionName] == AirbaseCoalitionID then + MAirbaseCoalition = true + end + end + self:T( { "Evaluated Coalition", MAirbaseCoalition } ) + MAirbaseInclude = MAirbaseInclude and MAirbaseCoalition + end + + if self.Filter.Categories then + local MAirbaseCategory = false + for CategoryID, CategoryName in pairs( self.Filter.Categories ) do + local AirbaseCategoryID = _DATABASE:GetCategoryFromAirbase( MAirbaseName ) + self:T3( { "Category:", AirbaseCategoryID, self.FilterMeta.Categories[CategoryName], CategoryName } ) + if self.FilterMeta.Categories[CategoryName] and self.FilterMeta.Categories[CategoryName] == AirbaseCategoryID then + MAirbaseCategory = true + end + end + self:T( { "Evaluated Category", MAirbaseCategory } ) + MAirbaseInclude = MAirbaseInclude and MAirbaseCategory + end + end + + self:T2( MAirbaseInclude ) + return MAirbaseInclude +end +--- This module contains the POINT classes. +-- +-- 1) @{Point#POINT_VEC3} class, extends @{Base#BASE} +-- =============================================== +-- The @{Point#POINT_VEC3} class defines a 3D point in the simulator. +-- +-- 1.1) POINT_VEC3 constructor +-- --------------------------- +-- +-- A new POINT instance can be created with: +-- +-- * @{#POINT_VEC3.New}(): a 3D point. +-- +-- 2) @{Point#POINT_VEC2} class, extends @{Point#POINT_VEC3} +-- ========================================================= +-- The @{Point#POINT_VEC2} class defines a 2D point in the simulator. The height coordinate (if needed) will be the land height + an optional added height specified. +-- +-- 2.1) POINT_VEC2 constructor +-- --------------------------- +-- +-- A new POINT instance can be created with: +-- +-- * @{#POINT_VEC2.New}(): a 2D point. +-- +-- @module Point +-- @author FlightControl + +--- The POINT_VEC3 class +-- @type POINT_VEC3 +-- @extends Base#BASE +-- @field #POINT_VEC3.SmokeColor SmokeColor +-- @field #POINT_VEC3.FlareColor FlareColor +-- @field #POINT_VEC3.RoutePointAltType RoutePointAltType +-- @field #POINT_VEC3.RoutePointType RoutePointType +-- @field #POINT_VEC3.RoutePointAction RoutePointAction +POINT_VEC3 = { + ClassName = "POINT_VEC3", + SmokeColor = { + Green = trigger.smokeColor.Green, + Red = trigger.smokeColor.Red, + White = trigger.smokeColor.White, + Orange = trigger.smokeColor.Orange, + Blue = trigger.smokeColor.Blue + }, + FlareColor = { + Green = trigger.flareColor.Green, + Red = trigger.flareColor.Red, + White = trigger.flareColor.White, + Yellow = trigger.flareColor.Yellow + }, + RoutePointAltType = { + BARO = "BARO", + }, + RoutePointType = { + TurningPoint = "Turning Point", + }, + RoutePointAction = { + TurningPoint = "Turning Point", + }, +} + + +--- SmokeColor +-- @type POINT_VEC3.SmokeColor +-- @field Green +-- @field Red +-- @field White +-- @field Orange +-- @field Blue + + + +--- FlareColor +-- @type POINT_VEC3.FlareColor +-- @field Green +-- @field Red +-- @field White +-- @field Yellow + + + +--- RoutePoint AltTypes +-- @type POINT_VEC3.RoutePointAltType +-- @field BARO "BARO" + + + +--- RoutePoint Types +-- @type POINT_VEC3.RoutePointType +-- @field TurningPoint "Turning Point" + + + +--- RoutePoint Actions +-- @type POINT_VEC3.RoutePointAction +-- @field TurningPoint "Turning Point" + + + +-- Constructor. + +--- Create a new POINT_VEC3 object. +-- @param #POINT_VEC3 self +-- @param DCSTypes#Distance x The x coordinate of the Vec3 point, pointing to the North. +-- @param DCSTypes#Distance y The y coordinate of the Vec3 point, pointing Upwards. +-- @param DCSTypes#Distance z The z coordinate of the Vec3 point, pointing to the Right. +-- @return Point#POINT_VEC3 self +function POINT_VEC3:New( x, y, z ) + + local self = BASE:Inherit( self, BASE:New() ) + self.PointVec3 = { x = x, y = y, z = z } + self:F2( self.PointVec3 ) + return self +end + + +--- Build an air type route point. +-- @param #POINT_VEC3 self +-- @param #POINT_VEC3.RoutePointAltType AltType The altitude type. +-- @param #POINT_VEC3.RoutePointType Type The route point type. +-- @param #POINT_VEC3.RoutePointAction Action The route point action. +-- @param DCSTypes#Speed Speed Airspeed in km/h. +-- @param #boolean SpeedLocked true means the speed is locked. +-- @return #table The route point. +function POINT_VEC3:RoutePointAir( AltType, Type, Action, Speed, SpeedLocked ) + self:F2( { AltType, Type, Action, Speed, SpeedLocked } ) + + local RoutePoint = {} + RoutePoint.x = self.PointVec3.x + RoutePoint.y = self.PointVec3.z + RoutePoint.alt = self.PointVec3.y + RoutePoint.alt_type = AltType + + RoutePoint.type = Type + RoutePoint.action = Action + + RoutePoint.speed = Speed / 3.6 + RoutePoint.speed_locked = true + +-- ["task"] = +-- { +-- ["id"] = "ComboTask", +-- ["params"] = +-- { +-- ["tasks"] = +-- { +-- }, -- end of ["tasks"] +-- }, -- end of ["params"] +-- }, -- end of ["task"] + + + RoutePoint.task = {} + RoutePoint.task.id = "ComboTask" + RoutePoint.task.params = {} + RoutePoint.task.params.tasks = {} + + + return RoutePoint +end + + +--- Smokes the point in a color. +-- @param #POINT_VEC3 self +-- @param Point#POINT_VEC3.SmokeColor SmokeColor +function POINT_VEC3:Smoke( SmokeColor ) + self:F2( { SmokeColor, self.PointVec3 } ) + trigger.action.smoke( self.PointVec3, SmokeColor ) +end + +--- Smoke the POINT_VEC3 Green. +-- @param #POINT_VEC3 self +function POINT_VEC3:SmokeGreen() + self:F2() + self:Smoke( POINT_VEC3.SmokeColor.Green ) +end + +--- Smoke the POINT_VEC3 Red. +-- @param #POINT_VEC3 self +function POINT_VEC3:SmokeRed() + self:F2() + self:Smoke( POINT_VEC3.SmokeColor.Red ) +end + +--- Smoke the POINT_VEC3 White. +-- @param #POINT_VEC3 self +function POINT_VEC3:SmokeWhite() + self:F2() + self:Smoke( POINT_VEC3.SmokeColor.White ) +end + +--- Smoke the POINT_VEC3 Orange. +-- @param #POINT_VEC3 self +function POINT_VEC3:SmokeOrange() + self:F2() + self:Smoke( POINT_VEC3.SmokeColor.Orange ) +end + +--- Smoke the POINT_VEC3 Blue. +-- @param #POINT_VEC3 self +function POINT_VEC3:SmokeBlue() + self:F2() + self:Smoke( POINT_VEC3.SmokeColor.Blue ) +end + +--- Flares the point in a color. +-- @param #POINT_VEC3 self +-- @param Point#POINT_VEC3.FlareColor +-- @param DCSTypes#Azimuth (optional) Azimuth The azimuth of the flare direction. The default azimuth is 0. +function POINT_VEC3:Flare( FlareColor, Azimuth ) + self:F2( { FlareColor, self.PointVec3 } ) + trigger.action.signalFlare( self.PointVec3, FlareColor, Azimuth and Azimuth or 0 ) +end + +--- Flare the POINT_VEC3 White. +-- @param #POINT_VEC3 self +-- @param DCSTypes#Azimuth (optional) Azimuth The azimuth of the flare direction. The default azimuth is 0. +function POINT_VEC3:FlareWhite( Azimuth ) + self:F2( Azimuth ) + self:Flare( POINT_VEC3.FlareColor.White, Azimuth ) +end + +--- Flare the POINT_VEC3 Yellow. +-- @param #POINT_VEC3 self +-- @param DCSTypes#Azimuth (optional) Azimuth The azimuth of the flare direction. The default azimuth is 0. +function POINT_VEC3:FlareYellow( Azimuth ) + self:F2( Azimuth ) + self:Flare( POINT_VEC3.FlareColor.Yellow, Azimuth ) +end + +--- Flare the POINT_VEC3 Green. +-- @param #POINT_VEC3 self +-- @param DCSTypes#Azimuth (optional) Azimuth The azimuth of the flare direction. The default azimuth is 0. +function POINT_VEC3:FlareGreen( Azimuth ) + self:F2( Azimuth ) + self:Flare( POINT_VEC3.FlareColor.Green, Azimuth ) +end + +--- Flare the POINT_VEC3 Red. +-- @param #POINT_VEC3 self +function POINT_VEC3:FlareRed( Azimuth ) + self:F2( Azimuth ) + self:Flare( POINT_VEC3.FlareColor.Red, Azimuth ) +end + + +--- The POINT_VEC2 class +-- @type POINT_VEC2 +-- @field DCSTypes#Vec2 PointVec2 +-- @extends Point#POINT_VEC3 +POINT_VEC2 = { + ClassName = "POINT_VEC2", + } + +--- Create a new POINT_VEC2 object. +-- @param #POINT_VEC2 self +-- @param DCSTypes#Distance x The x coordinate of the Vec3 point, pointing to the North. +-- @param DCSTypes#Distance y The y coordinate of the Vec3 point, pointing to the Right. +-- @param DCSTypes#Distance LandHeightAdd (optional) The default height if required to be evaluated will be the land height of the x, y coordinate. You can specify an extra height to be added to the land height. +-- @return Point#POINT_VEC2 +function POINT_VEC2:New( x, y, LandHeightAdd ) + + local LandHeight = land.getHeight( { ["x"] = x, ["y"] = y } ) + if LandHeightAdd then + LandHeight = LandHeight + LandHeightAdd + end + + local self = BASE:Inherit( self, POINT_VEC3:New( x, LandHeight, y ) ) + self:F2( { x, y, LandHeightAdd } ) + + self.PointVec2 = { x = x, y = y } + + return self +end + +--- Calculate the distance from a reference @{Point#POINT_VEC2}. +-- @param #POINT_VEC2 self +-- @param #POINT_VEC2 PointVec2Reference The reference @{Point#POINT_VEC2}. +-- @return DCSTypes#Distance The distance from the reference @{Point#POINT_VEC2} in meters. +function POINT_VEC2:DistanceFromPointVec2( PointVec2Reference ) + self:F2( PointVec2Reference ) + + local Distance = ( ( PointVec2Reference.PointVec2.x - self.PointVec2.x ) ^ 2 + ( PointVec2Reference.PointVec2.y - self.PointVec2.y ) ^2 ) ^0.5 + + self:T2( Distance ) + return Distance +end + +--- Calculate the distance from a reference @{DCSTypes#Vec2}. +-- @param #POINT_VEC2 self +-- @param DCSTypes#Vec2 Vec2Reference The reference @{DCSTypes#Vec2}. +-- @return DCSTypes#Distance The distance from the reference @{DCSTypes#Vec2} in meters. +function POINT_VEC2:DistanceFromVec2( Vec2Reference ) + self:F2( Vec2Reference ) + + local Distance = ( ( Vec2Reference.x - self.PointVec2.x ) ^ 2 + ( Vec2Reference.y - self.PointVec2.y ) ^2 ) ^0.5 + + self:T2( Distance ) + return Distance +end + + +--- The main include file for the MOOSE system. + +Include.File( "Routines" ) +Include.File( "Base" ) +Include.File( "Object" ) +Include.File( "Identifiable" ) +Include.File( "Positionable" ) +Include.File( "Controllable" ) +Include.File( "Scheduler" ) +Include.File( "Event" ) +Include.File( "Menu" ) +Include.File( "Group" ) +Include.File( "Unit" ) +Include.File( "Zone" ) +Include.File( "Client" ) +Include.File( "Static" ) +Include.File( "Airbase" ) +Include.File( "Database" ) +Include.File( "Set" ) +Include.File( "Point" ) Include.File( "Moose" ) +Include.File( "Scoring" ) +Include.File( "Cargo" ) +Include.File( "Message" ) +Include.File( "Stage" ) +Include.File( "Task" ) +Include.File( "GoHomeTask" ) +Include.File( "DestroyBaseTask" ) +Include.File( "DestroyGroupsTask" ) +Include.File( "DestroyRadarsTask" ) +Include.File( "DestroyUnitTypesTask" ) +Include.File( "PickupTask" ) +Include.File( "DeployTask" ) +Include.File( "NoTask" ) +Include.File( "RouteTask" ) +Include.File( "Mission" ) +Include.File( "CleanUp" ) +Include.File( "Spawn" ) +Include.File( "Movement" ) +Include.File( "Sead" ) +Include.File( "Escort" ) +Include.File( "MissileTrainer" ) +Include.File( "PatrolZone" ) +Include.File( "AIBalancer" ) +Include.File( "AirbasePolice" ) +Include.File( "Detection" ) +Include.File( "FAC" ) -BASE:TraceOnOff( true ) +-- The order of the declarations is important here. Don't touch it. + +--- Declare the event dispatcher based on the EVENT class +_EVENTDISPATCHER = EVENT:New() -- #EVENT + +--- Declare the main database object, which is used internally by the MOOSE classes. +_DATABASE = DATABASE:New() -- Database#DATABASE + +--- Scoring system for MOOSE. +-- This scoring class calculates the hits and kills that players make within a simulation session. +-- Scoring is calculated using a defined algorithm. +-- With a small change in MissionScripting.lua, the scoring can also be logged in a CSV file, that can then be uploaded +-- to a database or a BI tool to publish the scoring results to the player community. +-- @module Scoring +-- @author FlightControl + + +--- The Scoring class +-- @type SCORING +-- @field Players A collection of the current players that have joined the game. +-- @extends Base#BASE +SCORING = { + ClassName = "SCORING", + ClassID = 0, + Players = {}, +} + +local _SCORINGCoalition = + { + [1] = "Red", + [2] = "Blue", + } + +local _SCORINGCategory = + { + [Unit.Category.AIRPLANE] = "Plane", + [Unit.Category.HELICOPTER] = "Helicopter", + [Unit.Category.GROUND_UNIT] = "Vehicle", + [Unit.Category.SHIP] = "Ship", + [Unit.Category.STRUCTURE] = "Structure", + } + +--- Creates a new SCORING object to administer the scoring achieved by players. +-- @param #SCORING self +-- @param #string GameName The name of the game. This name is also logged in the CSV score file. +-- @return #SCORING self +-- @usage +-- -- Define a new scoring object for the mission Gori Valley. +-- ScoringObject = SCORING:New( "Gori Valley" ) +function SCORING:New( GameName ) + + -- Inherits from BASE + local self = BASE:Inherit( self, BASE:New() ) + + if GameName then + self.GameName = GameName + else + error( "A game name must be given to register the scoring results" ) + end + + + _EVENTDISPATCHER:OnDead( self._EventOnDeadOrCrash, self ) + _EVENTDISPATCHER:OnCrash( self._EventOnDeadOrCrash, self ) + _EVENTDISPATCHER:OnHit( self._EventOnHit, self ) + + --self.SchedulerId = routines.scheduleFunction( SCORING._FollowPlayersScheduled, { self }, 0, 5 ) + self.SchedulerId = SCHEDULER:New( self, self._FollowPlayersScheduled, {}, 0, 5 ) + + self:ScoreMenu() + + return self + +end + +--- Creates a score radio menu. Can be accessed using Radio -> F10. +-- @param #SCORING self +-- @return #SCORING self +function SCORING:ScoreMenu() + self.Menu = SUBMENU:New( 'Scoring' ) + self.AllScoresMenu = COMMANDMENU:New( 'Score All Active Players', self.Menu, SCORING.ReportScoreAll, self ) + --- = COMMANDMENU:New('Your Current Score', ReportScore, SCORING.ReportScorePlayer, self ) + return self +end + +--- Follows new players entering Clients within the DCSRTE. +-- TODO: Need to see if i can catch this also with an event. It will eliminate the schedule ... +function SCORING:_FollowPlayersScheduled() + self:F3( "_FollowPlayersScheduled" ) + + local ClientUnit = 0 + local CoalitionsData = { AlivePlayersRed = coalition.getPlayers(coalition.side.RED), AlivePlayersBlue = coalition.getPlayers(coalition.side.BLUE) } + local unitId + local unitData + local AlivePlayerUnits = {} + + for CoalitionId, CoalitionData in pairs( CoalitionsData ) do + self:T3( { "_FollowPlayersScheduled", CoalitionData } ) + for UnitId, UnitData in pairs( CoalitionData ) do + self:_AddPlayerFromUnit( UnitData ) + end + end + + return true +end + + +--- Track DEAD or CRASH events for the scoring. +-- @param #SCORING self +-- @param Event#EVENTDATA Event +function SCORING:_EventOnDeadOrCrash( Event ) + self:F( { Event } ) + + local TargetUnit = nil + local TargetGroup = nil + local TargetUnitName = "" + local TargetGroupName = "" + local TargetPlayerName = "" + local TargetCoalition = nil + local TargetCategory = nil + local TargetType = nil + local TargetUnitCoalition = nil + local TargetUnitCategory = nil + local TargetUnitType = nil + + if Event.IniDCSUnit then + + TargetUnit = Event.IniDCSUnit + TargetUnitName = Event.IniDCSUnitName + TargetGroup = Event.IniDCSGroup + TargetGroupName = Event.IniDCSGroupName + TargetPlayerName = TargetUnit:getPlayerName() + + TargetCoalition = TargetUnit:getCoalition() + --TargetCategory = TargetUnit:getCategory() + TargetCategory = TargetUnit:getDesc().category -- Workaround + TargetType = TargetUnit:getTypeName() + + TargetUnitCoalition = _SCORINGCoalition[TargetCoalition] + TargetUnitCategory = _SCORINGCategory[TargetCategory] + TargetUnitType = TargetType + + self:T( { TargetUnitName, TargetGroupName, TargetPlayerName, TargetCoalition, TargetCategory, TargetType } ) + end + + for PlayerName, PlayerData in pairs( self.Players ) do + if PlayerData then -- This should normally not happen, but i'll test it anyway. + self:T( "Something got killed" ) + + -- Some variables + local InitUnitName = PlayerData.UnitName + local InitUnitType = PlayerData.UnitType + local InitCoalition = PlayerData.UnitCoalition + local InitCategory = PlayerData.UnitCategory + local InitUnitCoalition = _SCORINGCoalition[InitCoalition] + local InitUnitCategory = _SCORINGCategory[InitCategory] + + self:T( { InitUnitName, InitUnitType, InitUnitCoalition, InitCoalition, InitUnitCategory, InitCategory } ) + + -- What is he hitting? + if TargetCategory then + if PlayerData and PlayerData.Hit and PlayerData.Hit[TargetCategory] and PlayerData.Hit[TargetCategory][TargetUnitName] then -- Was there a hit for this unit for this player before registered??? + if not PlayerData.Kill[TargetCategory] then + PlayerData.Kill[TargetCategory] = {} + end + if not PlayerData.Kill[TargetCategory][TargetType] then + PlayerData.Kill[TargetCategory][TargetType] = {} + PlayerData.Kill[TargetCategory][TargetType].Score = 0 + PlayerData.Kill[TargetCategory][TargetType].ScoreKill = 0 + PlayerData.Kill[TargetCategory][TargetType].Penalty = 0 + PlayerData.Kill[TargetCategory][TargetType].PenaltyKill = 0 + end + + if InitCoalition == TargetCoalition then + PlayerData.Penalty = PlayerData.Penalty + 25 + PlayerData.Kill[TargetCategory][TargetType].Penalty = PlayerData.Kill[TargetCategory][TargetType].Penalty + 25 + PlayerData.Kill[TargetCategory][TargetType].PenaltyKill = PlayerData.Kill[TargetCategory][TargetType].PenaltyKill + 1 + MESSAGE:New( "Player '" .. PlayerName .. "' killed a friendly " .. TargetUnitCategory .. " ( " .. TargetType .. " ) " .. + PlayerData.Kill[TargetCategory][TargetType].PenaltyKill .. " times. Penalty: -" .. PlayerData.Kill[TargetCategory][TargetType].Penalty .. + ". Score Total:" .. PlayerData.Score - PlayerData.Penalty, + 5 ):ToAll() + self:ScoreCSV( PlayerName, "KILL_PENALTY", 1, -125, InitUnitName, InitUnitCoalition, InitUnitCategory, InitUnitType, TargetUnitName, TargetUnitCoalition, TargetUnitCategory, TargetUnitType ) + else + PlayerData.Score = PlayerData.Score + 10 + PlayerData.Kill[TargetCategory][TargetType].Score = PlayerData.Kill[TargetCategory][TargetType].Score + 10 + PlayerData.Kill[TargetCategory][TargetType].ScoreKill = PlayerData.Kill[TargetCategory][TargetType].ScoreKill + 1 + MESSAGE:New( "Player '" .. PlayerName .. "' killed an enemy " .. TargetUnitCategory .. " ( " .. TargetType .. " ) " .. + PlayerData.Kill[TargetCategory][TargetType].ScoreKill .. " times. Score: " .. PlayerData.Kill[TargetCategory][TargetType].Score .. + ". Score Total:" .. PlayerData.Score - PlayerData.Penalty, + 5 ):ToAll() + self:ScoreCSV( PlayerName, "KILL_SCORE", 1, 10, InitUnitName, InitUnitCoalition, InitUnitCategory, InitUnitType, TargetUnitName, TargetUnitCoalition, TargetUnitCategory, TargetUnitType ) + end + end + end + end + end +end + + + +--- Add a new player entering a Unit. +function SCORING:_AddPlayerFromUnit( UnitData ) + self:F( UnitData ) + + if UnitData and UnitData:isExist() then + local UnitName = UnitData:getName() + local PlayerName = UnitData:getPlayerName() + local UnitDesc = UnitData:getDesc() + local UnitCategory = UnitDesc.category + local UnitCoalition = UnitData:getCoalition() + local UnitTypeName = UnitData:getTypeName() + + self:T( { PlayerName, UnitName, UnitCategory, UnitCoalition, UnitTypeName } ) + + if self.Players[PlayerName] == nil then -- I believe this is the place where a Player gets a life in a mission when he enters a unit ... + self.Players[PlayerName] = {} + self.Players[PlayerName].Hit = {} + self.Players[PlayerName].Kill = {} + self.Players[PlayerName].Mission = {} + + -- for CategoryID, CategoryName in pairs( SCORINGCategory ) do + -- self.Players[PlayerName].Hit[CategoryID] = {} + -- self.Players[PlayerName].Kill[CategoryID] = {} + -- end + self.Players[PlayerName].HitPlayers = {} + self.Players[PlayerName].HitUnits = {} + self.Players[PlayerName].Score = 0 + self.Players[PlayerName].Penalty = 0 + self.Players[PlayerName].PenaltyCoalition = 0 + self.Players[PlayerName].PenaltyWarning = 0 + end + + if not self.Players[PlayerName].UnitCoalition then + self.Players[PlayerName].UnitCoalition = UnitCoalition + else + if self.Players[PlayerName].UnitCoalition ~= UnitCoalition then + self.Players[PlayerName].Penalty = self.Players[PlayerName].Penalty + 50 + self.Players[PlayerName].PenaltyCoalition = self.Players[PlayerName].PenaltyCoalition + 1 + MESSAGE:New( "Player '" .. PlayerName .. "' changed coalition from " .. _SCORINGCoalition[self.Players[PlayerName].UnitCoalition] .. " to " .. _SCORINGCoalition[UnitCoalition] .. + "(changed " .. self.Players[PlayerName].PenaltyCoalition .. " times the coalition). 50 Penalty points added.", + 2 + ):ToAll() + self:ScoreCSV( PlayerName, "COALITION_PENALTY", 1, -50, self.Players[PlayerName].UnitName, _SCORINGCoalition[self.Players[PlayerName].UnitCoalition], _SCORINGCategory[self.Players[PlayerName].UnitCategory], self.Players[PlayerName].UnitType, + UnitName, _SCORINGCoalition[UnitCoalition], _SCORINGCategory[UnitCategory], UnitData:getTypeName() ) + end + end + self.Players[PlayerName].UnitName = UnitName + self.Players[PlayerName].UnitCoalition = UnitCoalition + self.Players[PlayerName].UnitCategory = UnitCategory + self.Players[PlayerName].UnitType = UnitTypeName + + if self.Players[PlayerName].Penalty > 100 then + if self.Players[PlayerName].PenaltyWarning < 1 then + MESSAGE:New( "Player '" .. PlayerName .. "': WARNING! If you continue to commit FRATRICIDE and have a PENALTY score higher than 150, you will be COURT MARTIALED and DISMISSED from this mission! \nYour total penalty is: " .. self.Players[PlayerName].Penalty, + 30 + ):ToAll() + self.Players[PlayerName].PenaltyWarning = self.Players[PlayerName].PenaltyWarning + 1 + end + end + + if self.Players[PlayerName].Penalty > 150 then + ClientGroup = GROUP:NewFromDCSUnit( UnitData ) + ClientGroup:Destroy() + MESSAGE:New( "Player '" .. PlayerName .. "' committed FRATRICIDE, he will be COURT MARTIALED and is DISMISSED from this mission!", + 10 + ):ToAll() + end + + end +end + + +--- Registers Scores the players completing a Mission Task. +function SCORING:_AddMissionTaskScore( PlayerUnit, MissionName, Score ) + self:F( { PlayerUnit, MissionName, Score } ) + + local PlayerName = PlayerUnit:getPlayerName() + + if not self.Players[PlayerName].Mission[MissionName] then + self.Players[PlayerName].Mission[MissionName] = {} + self.Players[PlayerName].Mission[MissionName].ScoreTask = 0 + self.Players[PlayerName].Mission[MissionName].ScoreMission = 0 + end + + self:T( PlayerName ) + self:T( self.Players[PlayerName].Mission[MissionName] ) + + self.Players[PlayerName].Score = self.Players[PlayerName].Score + Score + self.Players[PlayerName].Mission[MissionName].ScoreTask = self.Players[PlayerName].Mission[MissionName].ScoreTask + Score + + MESSAGE:New( "Player '" .. PlayerName .. "' has finished another Task in Mission '" .. MissionName .. "'. " .. + Score .. " Score points added.", + 20 ):ToAll() + + self:ScoreCSV( PlayerName, "TASK_" .. MissionName:gsub( ' ', '_' ), 1, Score, PlayerUnit:getName() ) +end + + +--- Registers Mission Scores for possible multiple players that contributed in the Mission. +function SCORING:_AddMissionScore( MissionName, Score ) + self:F( { MissionName, Score } ) + + for PlayerName, PlayerData in pairs( self.Players ) do + + if PlayerData.Mission[MissionName] then + PlayerData.Score = PlayerData.Score + Score + PlayerData.Mission[MissionName].ScoreMission = PlayerData.Mission[MissionName].ScoreMission + Score + MESSAGE:New( "Player '" .. PlayerName .. "' has finished Mission '" .. MissionName .. "'. " .. + Score .. " Score points added.", + 20 ):ToAll() + self:ScoreCSV( PlayerName, "MISSION_" .. MissionName:gsub( ' ', '_' ), 1, Score ) + end + end +end + +--- Handles the OnHit event for the scoring. +-- @param #SCORING self +-- @param Event#EVENTDATA Event +function SCORING:_EventOnHit( Event ) + self:F( { Event } ) + + local InitUnit = nil + local InitUnitName = "" + local InitGroup = nil + local InitGroupName = "" + local InitPlayerName = nil + + local InitCoalition = nil + local InitCategory = nil + local InitType = nil + local InitUnitCoalition = nil + local InitUnitCategory = nil + local InitUnitType = nil + + local TargetUnit = nil + local TargetUnitName = "" + local TargetGroup = nil + local TargetGroupName = "" + local TargetPlayerName = "" + + local TargetCoalition = nil + local TargetCategory = nil + local TargetType = nil + local TargetUnitCoalition = nil + local TargetUnitCategory = nil + local TargetUnitType = nil + + if Event.IniDCSUnit then + + InitUnit = Event.IniDCSUnit + InitUnitName = Event.IniDCSUnitName + InitGroup = Event.IniDCSGroup + InitGroupName = Event.IniDCSGroupName + InitPlayerName = InitUnit:getPlayerName() + + InitCoalition = InitUnit:getCoalition() + --TODO: Workaround Client DCS Bug + --InitCategory = InitUnit:getCategory() + InitCategory = InitUnit:getDesc().category + InitType = InitUnit:getTypeName() + + InitUnitCoalition = _SCORINGCoalition[InitCoalition] + InitUnitCategory = _SCORINGCategory[InitCategory] + InitUnitType = InitType + + self:T( { InitUnitName, InitGroupName, InitPlayerName, InitCoalition, InitCategory, InitType , InitUnitCoalition, InitUnitCategory, InitUnitType } ) + end + + + if Event.TgtDCSUnit then + + TargetUnit = Event.TgtDCSUnit + TargetUnitName = Event.TgtDCSUnitName + TargetGroup = Event.TgtDCSGroup + TargetGroupName = Event.TgtDCSGroupName + TargetPlayerName = TargetUnit:getPlayerName() + + TargetCoalition = TargetUnit:getCoalition() + --TODO: Workaround Client DCS Bug + --TargetCategory = TargetUnit:getCategory() + TargetCategory = TargetUnit:getDesc().category + TargetType = TargetUnit:getTypeName() + + TargetUnitCoalition = _SCORINGCoalition[TargetCoalition] + TargetUnitCategory = _SCORINGCategory[TargetCategory] + TargetUnitType = TargetType + + self:T( { TargetUnitName, TargetGroupName, TargetPlayerName, TargetCoalition, TargetCategory, TargetType, TargetUnitCoalition, TargetUnitCategory, TargetUnitType } ) + end + + if InitPlayerName ~= nil then -- It is a player that is hitting something + self:_AddPlayerFromUnit( InitUnit ) + if self.Players[InitPlayerName] then -- This should normally not happen, but i'll test it anyway. + if TargetPlayerName ~= nil then -- It is a player hitting another player ... + self:_AddPlayerFromUnit( TargetUnit ) + self.Players[InitPlayerName].HitPlayers = self.Players[InitPlayerName].HitPlayers + 1 + end + + self:T( "Hitting Something" ) + -- What is he hitting? + if TargetCategory then + if not self.Players[InitPlayerName].Hit[TargetCategory] then + self.Players[InitPlayerName].Hit[TargetCategory] = {} + end + if not self.Players[InitPlayerName].Hit[TargetCategory][TargetUnitName] then + self.Players[InitPlayerName].Hit[TargetCategory][TargetUnitName] = {} + self.Players[InitPlayerName].Hit[TargetCategory][TargetUnitName].Score = 0 + self.Players[InitPlayerName].Hit[TargetCategory][TargetUnitName].Penalty = 0 + self.Players[InitPlayerName].Hit[TargetCategory][TargetUnitName].ScoreHit = 0 + self.Players[InitPlayerName].Hit[TargetCategory][TargetUnitName].PenaltyHit = 0 + end + local Score = 0 + if InitCoalition == TargetCoalition then + self.Players[InitPlayerName].Penalty = self.Players[InitPlayerName].Penalty + 10 + self.Players[InitPlayerName].Hit[TargetCategory][TargetUnitName].Penalty = self.Players[InitPlayerName].Hit[TargetCategory][TargetUnitName].Penalty + 10 + self.Players[InitPlayerName].Hit[TargetCategory][TargetUnitName].PenaltyHit = self.Players[InitPlayerName].Hit[TargetCategory][TargetUnitName].PenaltyHit + 1 + MESSAGE:New( "Player '" .. InitPlayerName .. "' hit a friendly " .. TargetUnitCategory .. " ( " .. TargetType .. " ) " .. + self.Players[InitPlayerName].Hit[TargetCategory][TargetUnitName].PenaltyHit .. " times. Penalty: -" .. self.Players[InitPlayerName].Hit[TargetCategory][TargetUnitName].Penalty .. + ". Score Total:" .. self.Players[InitPlayerName].Score - self.Players[InitPlayerName].Penalty, + 2 + ):ToAll() + self:ScoreCSV( InitPlayerName, "HIT_PENALTY", 1, -25, InitUnitName, InitUnitCoalition, InitUnitCategory, InitUnitType, TargetUnitName, TargetUnitCoalition, TargetUnitCategory, TargetUnitType ) + else + self.Players[InitPlayerName].Score = self.Players[InitPlayerName].Score + 10 + self.Players[InitPlayerName].Hit[TargetCategory][TargetUnitName].Score = self.Players[InitPlayerName].Hit[TargetCategory][TargetUnitName].Score + 1 + self.Players[InitPlayerName].Hit[TargetCategory][TargetUnitName].ScoreHit = self.Players[InitPlayerName].Hit[TargetCategory][TargetUnitName].ScoreHit + 1 + MESSAGE:New( "Player '" .. InitPlayerName .. "' hit a target " .. TargetUnitCategory .. " ( " .. TargetType .. " ) " .. + self.Players[InitPlayerName].Hit[TargetCategory][TargetUnitName].ScoreHit .. " times. Score: " .. self.Players[InitPlayerName].Hit[TargetCategory][TargetUnitName].Score .. + ". Score Total:" .. self.Players[InitPlayerName].Score - self.Players[InitPlayerName].Penalty, + 2 + ):ToAll() + self:ScoreCSV( InitPlayerName, "HIT_SCORE", 1, 1, InitUnitName, InitUnitCoalition, InitUnitCategory, InitUnitType, TargetUnitName, TargetUnitCoalition, TargetUnitCategory, TargetUnitType ) + end + end + end + elseif InitPlayerName == nil then -- It is an AI hitting a player??? + + end +end + + +function SCORING:ReportScoreAll() + + env.info( "Hello World " ) + + local ScoreMessage = "" + local PlayerMessage = "" + + self:T( "Score Report" ) + + for PlayerName, PlayerData in pairs( self.Players ) do + if PlayerData then -- This should normally not happen, but i'll test it anyway. + self:T( "Score Player: " .. PlayerName ) + + -- Some variables + local InitUnitCoalition = _SCORINGCoalition[PlayerData.UnitCoalition] + local InitUnitCategory = _SCORINGCategory[PlayerData.UnitCategory] + local InitUnitType = PlayerData.UnitType + local InitUnitName = PlayerData.UnitName + + local PlayerScore = 0 + local PlayerPenalty = 0 + + ScoreMessage = ":\n" + + local ScoreMessageHits = "" + + for CategoryID, CategoryName in pairs( _SCORINGCategory ) do + self:T( CategoryName ) + if PlayerData.Hit[CategoryID] then + local Score = 0 + local ScoreHit = 0 + local Penalty = 0 + local PenaltyHit = 0 + self:T( "Hit scores exist for player " .. PlayerName ) + for UnitName, UnitData in pairs( PlayerData.Hit[CategoryID] ) do + Score = Score + UnitData.Score + ScoreHit = ScoreHit + UnitData.ScoreHit + Penalty = Penalty + UnitData.Penalty + PenaltyHit = UnitData.PenaltyHit + end + local ScoreMessageHit = string.format( "%s:%d ", CategoryName, Score - Penalty ) + self:T( ScoreMessageHit ) + ScoreMessageHits = ScoreMessageHits .. ScoreMessageHit + PlayerScore = PlayerScore + Score + PlayerPenalty = PlayerPenalty + Penalty + else + --ScoreMessageHits = ScoreMessageHits .. string.format( "%s:%d ", string.format(CategoryName, 1, 1), 0 ) + end + end + if ScoreMessageHits ~= "" then + ScoreMessage = ScoreMessage .. " Hits: " .. ScoreMessageHits .. "\n" + end + + local ScoreMessageKills = "" + for CategoryID, CategoryName in pairs( _SCORINGCategory ) do + self:T( "Kill scores exist for player " .. PlayerName ) + if PlayerData.Kill[CategoryID] then + local Score = 0 + local ScoreKill = 0 + local Penalty = 0 + local PenaltyKill = 0 + + for UnitName, UnitData in pairs( PlayerData.Kill[CategoryID] ) do + Score = Score + UnitData.Score + ScoreKill = ScoreKill + UnitData.ScoreKill + Penalty = Penalty + UnitData.Penalty + PenaltyKill = PenaltyKill + UnitData.PenaltyKill + end + + local ScoreMessageKill = string.format( " %s:%d ", CategoryName, Score - Penalty ) + self:T( ScoreMessageKill ) + ScoreMessageKills = ScoreMessageKills .. ScoreMessageKill + + PlayerScore = PlayerScore + Score + PlayerPenalty = PlayerPenalty + Penalty + else + --ScoreMessageKills = ScoreMessageKills .. string.format( "%s:%d ", string.format(CategoryName, 1, 1), 0 ) + end + end + if ScoreMessageKills ~= "" then + ScoreMessage = ScoreMessage .. " Kills: " .. ScoreMessageKills .. "\n" + end + + local ScoreMessageCoalitionChangePenalties = "" + if PlayerData.PenaltyCoalition ~= 0 then + ScoreMessageCoalitionChangePenalties = ScoreMessageCoalitionChangePenalties .. string.format( " -%d (%d changed)", PlayerData.Penalty, PlayerData.PenaltyCoalition ) + PlayerPenalty = PlayerPenalty + PlayerData.Penalty + end + if ScoreMessageCoalitionChangePenalties ~= "" then + ScoreMessage = ScoreMessage .. " Coalition Penalties: " .. ScoreMessageCoalitionChangePenalties .. "\n" + end + + local ScoreMessageMission = "" + local ScoreMission = 0 + local ScoreTask = 0 + for MissionName, MissionData in pairs( PlayerData.Mission ) do + ScoreMission = ScoreMission + MissionData.ScoreMission + ScoreTask = ScoreTask + MissionData.ScoreTask + ScoreMessageMission = ScoreMessageMission .. "'" .. MissionName .. "'; " + end + PlayerScore = PlayerScore + ScoreMission + ScoreTask + + if ScoreMessageMission ~= "" then + ScoreMessage = ScoreMessage .. " Tasks: " .. ScoreTask .. " Mission: " .. ScoreMission .. " ( " .. ScoreMessageMission .. ")\n" + end + + PlayerMessage = PlayerMessage .. string.format( "Player '%s' Score:%d (%d Score -%d Penalties)%s", PlayerName, PlayerScore - PlayerPenalty, PlayerScore, PlayerPenalty, ScoreMessage ) + end + end + MESSAGE:New( PlayerMessage, 30, "Player Scores" ):ToAll() +end + + +function SCORING:ReportScorePlayer() + + env.info( "Hello World " ) + + local ScoreMessage = "" + local PlayerMessage = "" + + self:T( "Score Report" ) + + for PlayerName, PlayerData in pairs( self.Players ) do + if PlayerData then -- This should normally not happen, but i'll test it anyway. + self:T( "Score Player: " .. PlayerName ) + + -- Some variables + local InitUnitCoalition = _SCORINGCoalition[PlayerData.UnitCoalition] + local InitUnitCategory = _SCORINGCategory[PlayerData.UnitCategory] + local InitUnitType = PlayerData.UnitType + local InitUnitName = PlayerData.UnitName + + local PlayerScore = 0 + local PlayerPenalty = 0 + + ScoreMessage = "" + + local ScoreMessageHits = "" + + for CategoryID, CategoryName in pairs( _SCORINGCategory ) do + self:T( CategoryName ) + if PlayerData.Hit[CategoryID] then + local Score = 0 + local ScoreHit = 0 + local Penalty = 0 + local PenaltyHit = 0 + self:T( "Hit scores exist for player " .. PlayerName ) + for UnitName, UnitData in pairs( PlayerData.Hit[CategoryID] ) do + Score = Score + UnitData.Score + ScoreHit = ScoreHit + UnitData.ScoreHit + Penalty = Penalty + UnitData.Penalty + PenaltyHit = UnitData.PenaltyHit + end + local ScoreMessageHit = string.format( "\n %s = %d score(%d;-%d) hits(#%d;#-%d)", CategoryName, Score - Penalty, Score, Penalty, ScoreHit, PenaltyHit ) + self:T( ScoreMessageHit ) + ScoreMessageHits = ScoreMessageHits .. ScoreMessageHit + PlayerScore = PlayerScore + Score + PlayerPenalty = PlayerPenalty + Penalty + else + --ScoreMessageHits = ScoreMessageHits .. string.format( "%s:%d ", string.format(CategoryName, 1, 1), 0 ) + end + end + if ScoreMessageHits ~= "" then + ScoreMessage = ScoreMessage .. "\n Hits: " .. ScoreMessageHits .. " " + end + + local ScoreMessageKills = "" + for CategoryID, CategoryName in pairs( _SCORINGCategory ) do + self:T( "Kill scores exist for player " .. PlayerName ) + if PlayerData.Kill[CategoryID] then + local Score = 0 + local ScoreKill = 0 + local Penalty = 0 + local PenaltyKill = 0 + + for UnitName, UnitData in pairs( PlayerData.Kill[CategoryID] ) do + Score = Score + UnitData.Score + ScoreKill = ScoreKill + UnitData.ScoreKill + Penalty = Penalty + UnitData.Penalty + PenaltyKill = PenaltyKill + UnitData.PenaltyKill + end + + local ScoreMessageKill = string.format( "\n %s = %d score(%d;-%d) hits(#%d;#-%d)", CategoryName, Score - Penalty, Score, Penalty, ScoreKill, PenaltyKill ) + self:T( ScoreMessageKill ) + ScoreMessageKills = ScoreMessageKills .. ScoreMessageKill + + PlayerScore = PlayerScore + Score + PlayerPenalty = PlayerPenalty + Penalty + else + --ScoreMessageKills = ScoreMessageKills .. string.format( "%s:%d ", string.format(CategoryName, 1, 1), 0 ) + end + end + if ScoreMessageKills ~= "" then + ScoreMessage = ScoreMessage .. "\n Kills: " .. ScoreMessageKills .. " " + end + + local ScoreMessageCoalitionChangePenalties = "" + if PlayerData.PenaltyCoalition ~= 0 then + ScoreMessageCoalitionChangePenalties = ScoreMessageCoalitionChangePenalties .. string.format( " -%d (%d changed)", PlayerData.Penalty, PlayerData.PenaltyCoalition ) + PlayerPenalty = PlayerPenalty + PlayerData.Penalty + end + if ScoreMessageCoalitionChangePenalties ~= "" then + ScoreMessage = ScoreMessage .. "\n Coalition: " .. ScoreMessageCoalitionChangePenalties .. " " + end + + local ScoreMessageMission = "" + local ScoreMission = 0 + local ScoreTask = 0 + for MissionName, MissionData in pairs( PlayerData.Mission ) do + ScoreMission = ScoreMission + MissionData.ScoreMission + ScoreTask = ScoreTask + MissionData.ScoreTask + ScoreMessageMission = ScoreMessageMission .. "'" .. MissionName .. "'; " + end + PlayerScore = PlayerScore + ScoreMission + ScoreTask + + if ScoreMessageMission ~= "" then + ScoreMessage = ScoreMessage .. "\n Tasks: " .. ScoreTask .. " Mission: " .. ScoreMission .. " ( " .. ScoreMessageMission .. ") " + end + + PlayerMessage = PlayerMessage .. string.format( "Player '%s' Score = %d ( %d Score, -%d Penalties ):%s", PlayerName, PlayerScore - PlayerPenalty, PlayerScore, PlayerPenalty, ScoreMessage ) + end + end + MESSAGE:New( PlayerMessage, 30, "Player Scores" ):ToAll() + +end + + +function SCORING:SecondsToClock(sSeconds) + local nSeconds = sSeconds + if nSeconds == 0 then + --return nil; + return "00:00:00"; + else + nHours = string.format("%02.f", math.floor(nSeconds/3600)); + nMins = string.format("%02.f", math.floor(nSeconds/60 - (nHours*60))); + nSecs = string.format("%02.f", math.floor(nSeconds - nHours*3600 - nMins *60)); + return nHours..":"..nMins..":"..nSecs + end +end + +--- Opens a score CSV file to log the scores. +-- @param #SCORING self +-- @param #string ScoringCSV +-- @return #SCORING self +-- @usage +-- -- Open a new CSV file to log the scores of the game Gori Valley. Let the name of the CSV file begin with "Player Scores". +-- ScoringObject = SCORING:New( "Gori Valley" ) +-- ScoringObject:OpenCSV( "Player Scores" ) +function SCORING:OpenCSV( ScoringCSV ) + self:F( ScoringCSV ) + + if lfs and io and os then + if ScoringCSV then + self.ScoringCSV = ScoringCSV + local fdir = lfs.writedir() .. [[Logs\]] .. self.ScoringCSV .. " " .. os.date( "%Y-%m-%d %H-%M-%S" ) .. ".csv" + + self.CSVFile, self.err = io.open( fdir, "w+" ) + if not self.CSVFile then + error( "Error: Cannot open CSV file in " .. lfs.writedir() ) + end + + self.CSVFile:write( '"GameName","RunTime","Time","PlayerName","ScoreType","PlayerUnitCoaltion","PlayerUnitCategory","PlayerUnitType","PlayerUnitName","TargetUnitCoalition","TargetUnitCategory","TargetUnitType","TargetUnitName","Times","Score"\n' ) + + self.RunTime = os.date("%y-%m-%d_%H-%M-%S") + else + error( "A string containing the CSV file name must be given." ) + end + else + self:E( "The MissionScripting.lua file has not been changed to allow lfs, io and os modules to be used..." ) + end + return self +end + + +--- Registers a score for a player. +-- @param #SCORING self +-- @param #string PlayerName The name of the player. +-- @param #string ScoreType The type of the score. +-- @param #string ScoreTimes The amount of scores achieved. +-- @param #string ScoreAmount The score given. +-- @param #string PlayerUnitName The unit name of the player. +-- @param #string PlayerUnitCoalition The coalition of the player unit. +-- @param #string PlayerUnitCategory The category of the player unit. +-- @param #string PlayerUnitType The type of the player unit. +-- @param #string TargetUnitName The name of the target unit. +-- @param #string TargetUnitCoalition The coalition of the target unit. +-- @param #string TargetUnitCategory The category of the target unit. +-- @param #string TargetUnitType The type of the target unit. +-- @return #SCORING self +function SCORING:ScoreCSV( PlayerName, ScoreType, ScoreTimes, ScoreAmount, PlayerUnitName, PlayerUnitCoalition, PlayerUnitCategory, PlayerUnitType, TargetUnitName, TargetUnitCoalition, TargetUnitCategory, TargetUnitType ) + --write statistic information to file + local ScoreTime = self:SecondsToClock( timer.getTime() ) + PlayerName = PlayerName:gsub( '"', '_' ) + + if PlayerUnitName and PlayerUnitName ~= '' then + local PlayerUnit = Unit.getByName( PlayerUnitName ) + + if PlayerUnit then + if not PlayerUnitCategory then + --PlayerUnitCategory = SCORINGCategory[PlayerUnit:getCategory()] + PlayerUnitCategory = _SCORINGCategory[PlayerUnit:getDesc().category] + end + + if not PlayerUnitCoalition then + PlayerUnitCoalition = _SCORINGCoalition[PlayerUnit:getCoalition()] + end + + if not PlayerUnitType then + PlayerUnitType = PlayerUnit:getTypeName() + end + else + PlayerUnitName = '' + PlayerUnitCategory = '' + PlayerUnitCoalition = '' + PlayerUnitType = '' + end + else + PlayerUnitName = '' + PlayerUnitCategory = '' + PlayerUnitCoalition = '' + PlayerUnitType = '' + end + + if not TargetUnitCoalition then + TargetUnitCoalition = '' + end + + if not TargetUnitCategory then + TargetUnitCategory = '' + end + + if not TargetUnitType then + TargetUnitType = '' + end + + if not TargetUnitName then + TargetUnitName = '' + end + + if lfs and io and os then + self.CSVFile:write( + '"' .. self.GameName .. '"' .. ',' .. + '"' .. self.RunTime .. '"' .. ',' .. + '' .. ScoreTime .. '' .. ',' .. + '"' .. PlayerName .. '"' .. ',' .. + '"' .. ScoreType .. '"' .. ',' .. + '"' .. PlayerUnitCoalition .. '"' .. ',' .. + '"' .. PlayerUnitCategory .. '"' .. ',' .. + '"' .. PlayerUnitType .. '"' .. ',' .. + '"' .. PlayerUnitName .. '"' .. ',' .. + '"' .. TargetUnitCoalition .. '"' .. ',' .. + '"' .. TargetUnitCategory .. '"' .. ',' .. + '"' .. TargetUnitType .. '"' .. ',' .. + '"' .. TargetUnitName .. '"' .. ',' .. + '' .. ScoreTimes .. '' .. ',' .. + '' .. ScoreAmount + ) + + self.CSVFile:write( "\n" ) + end +end + + +function SCORING:CloseCSV() + if lfs and io and os then + self.CSVFile:close() + end +end + +--- CARGO Classes +-- @module CARGO + + + + + + + +--- Clients are those Groups defined within the Mission Editor that have the skillset defined as "Client" or "Player". +-- These clients are defined within the Mission Orchestration Framework (MOF) + +CARGOS = {} + + +CARGO_ZONE = { + ClassName="CARGO_ZONE", + CargoZoneName = '', + CargoHostUnitName = '', + SIGNAL = { + TYPE = { + SMOKE = { ID = 1, TEXT = "smoke" }, + FLARE = { ID = 2, TEXT = "flare" } + }, + COLOR = { + GREEN = { ID = 1, TRIGGERCOLOR = trigger.smokeColor.Green, TEXT = "A green" }, + RED = { ID = 2, TRIGGERCOLOR = trigger.smokeColor.Red, TEXT = "A red" }, + WHITE = { ID = 3, TRIGGERCOLOR = trigger.smokeColor.White, TEXT = "A white" }, + ORANGE = { ID = 4, TRIGGERCOLOR = trigger.smokeColor.Orange, TEXT = "An orange" }, + BLUE = { ID = 5, TRIGGERCOLOR = trigger.smokeColor.Blue, TEXT = "A blue" }, + YELLOW = { ID = 6, TRIGGERCOLOR = trigger.flareColor.Yellow, TEXT = "A yellow" } + } + } +} + +--- Creates a new zone where cargo can be collected or deployed. +-- The zone functionality is useful to smoke or indicate routes for cargo pickups or deployments. +-- Provide the zone name as declared in the mission file into the CargoZoneName in the :New method. +-- An optional parameter is the CargoHostName, which is a Group declared with Late Activation switched on in the mission file. +-- The CargoHostName is the "host" of the cargo zone: +-- +-- * It will smoke the zone position when a client is approaching the zone. +-- * Depending on the cargo type, it will assist in the delivery of the cargo by driving to and from the client. +-- +-- @param #CARGO_ZONE self +-- @param #string CargoZoneName The name of the zone as declared within the mission editor. +-- @param #string CargoHostName The name of the Group "hosting" the zone. The Group MUST NOT be a static, and must be a "mobile" unit. +function CARGO_ZONE:New( CargoZoneName, CargoHostName ) local self = BASE:Inherit( self, ZONE:New( CargoZoneName ) ) + self:F( { CargoZoneName, CargoHostName } ) + + self.CargoZoneName = CargoZoneName + self.SignalHeight = 2 + --self.CargoZone = trigger.misc.getZone( CargoZoneName ) + + + if CargoHostName then + self.CargoHostName = CargoHostName + end + + self:T( self.CargoZoneName ) + + return self +end + +function CARGO_ZONE:Spawn() + self:F( self.CargoHostName ) + + if self.CargoHostName then -- Only spawn a host in the zone when there is one given as a parameter in the New function. + if self.CargoHostSpawn then + local CargoHostGroup = self.CargoHostSpawn:GetGroupFromIndex() + if CargoHostGroup and CargoHostGroup:IsAlive() then + else + self.CargoHostSpawn:ReSpawn( 1 ) + end + else + self:T( "Initialize CargoHostSpawn" ) + self.CargoHostSpawn = SPAWN:New( self.CargoHostName ):Limit( 1, 1 ) + self.CargoHostSpawn:ReSpawn( 1 ) + end + end + + return self +end + +function CARGO_ZONE:GetHostUnit() + self:F( self ) + + if self.CargoHostName then + + -- A Host has been given, signal the host + local CargoHostGroup = self.CargoHostSpawn:GetGroupFromIndex() + local CargoHostUnit + if CargoHostGroup and CargoHostGroup:IsAlive() then + CargoHostUnit = CargoHostGroup:GetUnit(1) + else + CargoHostUnit = StaticObject.getByName( self.CargoHostName ) + end + + return CargoHostUnit + end + + return nil +end + +function CARGO_ZONE:ReportCargosToClient( Client, CargoType ) + self:F() + + local SignalUnit = self:GetHostUnit() + + if SignalUnit then + + local SignalUnitTypeName = SignalUnit:getTypeName() + + local HostMessage = "" + + local IsCargo = false + for CargoID, Cargo in pairs( CARGOS ) do + if Cargo.CargoType == Task.CargoType then + if Cargo:IsStatusNone() then + HostMessage = HostMessage .. " - " .. Cargo.CargoName .. " - " .. Cargo.CargoType .. " (" .. Cargo.Weight .. "kg)" .. "\n" + IsCargo = true + end + end + end + + if not IsCargo then + HostMessage = "No Cargo Available." + end + + Client:Message( HostMessage, 20, SignalUnitTypeName .. ": Reporting Cargo", 10 ) + end +end + + +function CARGO_ZONE:Signal() + self:F() + + local Signalled = false + + if self.SignalType then + + if self.CargoHostName then + + -- A Host has been given, signal the host + + local SignalUnit = self:GetHostUnit() + + if SignalUnit then + + self:T( 'Signalling Unit' ) + local SignalVehiclePos = SignalUnit:GetPointVec3() + SignalVehiclePos.y = SignalVehiclePos.y + 2 + + if self.SignalType.ID == CARGO_ZONE.SIGNAL.TYPE.SMOKE.ID then + + trigger.action.smoke( SignalVehiclePos, self.SignalColor.TRIGGERCOLOR ) + Signalled = true + + elseif self.SignalType.ID == CARGO_ZONE.SIGNAL.TYPE.FLARE.ID then + + trigger.action.signalFlare( SignalVehiclePos, self.SignalColor.TRIGGERCOLOR , 0 ) + Signalled = false + + end + end + + else + + local ZonePointVec3 = self:GetPointVec3( self.SignalHeight ) -- Get the zone position + the landheight + 2 meters + + if self.SignalType.ID == CARGO_ZONE.SIGNAL.TYPE.SMOKE.ID then + + trigger.action.smoke( ZonePointVec3, self.SignalColor.TRIGGERCOLOR ) + Signalled = true + + elseif self.SignalType.ID == CARGO_ZONE.SIGNAL.TYPE.FLARE.ID then + trigger.action.signalFlare( ZonePointVec3, self.SignalColor.TRIGGERCOLOR, 0 ) + Signalled = false + + end + end + end + + return Signalled + +end + +function CARGO_ZONE:WhiteSmoke( SignalHeight ) + self:F() + + self.SignalType = CARGO_ZONE.SIGNAL.TYPE.SMOKE + self.SignalColor = CARGO_ZONE.SIGNAL.COLOR.WHITE + + if SignalHeight then + self.SignalHeight = SignalHeight + end + + return self +end + +function CARGO_ZONE:BlueSmoke( SignalHeight ) + self:F() + + self.SignalType = CARGO_ZONE.SIGNAL.TYPE.SMOKE + self.SignalColor = CARGO_ZONE.SIGNAL.COLOR.BLUE + + if SignalHeight then + self.SignalHeight = SignalHeight + end + + return self +end + +function CARGO_ZONE:RedSmoke( SignalHeight ) + self:F() + + self.SignalType = CARGO_ZONE.SIGNAL.TYPE.SMOKE + self.SignalColor = CARGO_ZONE.SIGNAL.COLOR.RED + + if SignalHeight then + self.SignalHeight = SignalHeight + end + + return self +end + +function CARGO_ZONE:OrangeSmoke( SignalHeight ) + self:F() + + self.SignalType = CARGO_ZONE.SIGNAL.TYPE.SMOKE + self.SignalColor = CARGO_ZONE.SIGNAL.COLOR.ORANGE + + if SignalHeight then + self.SignalHeight = SignalHeight + end + + return self +end + +function CARGO_ZONE:GreenSmoke( SignalHeight ) + self:F() + + self.SignalType = CARGO_ZONE.SIGNAL.TYPE.SMOKE + self.SignalColor = CARGO_ZONE.SIGNAL.COLOR.GREEN + + if SignalHeight then + self.SignalHeight = SignalHeight + end + + return self +end + + +function CARGO_ZONE:WhiteFlare( SignalHeight ) + self:F() + + self.SignalType = CARGO_ZONE.SIGNAL.TYPE.FLARE + self.SignalColor = CARGO_ZONE.SIGNAL.COLOR.WHITE + + if SignalHeight then + self.SignalHeight = SignalHeight + end + + return self +end + +function CARGO_ZONE:RedFlare( SignalHeight ) + self:F() + + self.SignalType = CARGO_ZONE.SIGNAL.TYPE.FLARE + self.SignalColor = CARGO_ZONE.SIGNAL.COLOR.RED + + if SignalHeight then + self.SignalHeight = SignalHeight + end + + return self +end + +function CARGO_ZONE:GreenFlare( SignalHeight ) + self:F() + + self.SignalType = CARGO_ZONE.SIGNAL.TYPE.FLARE + self.SignalColor = CARGO_ZONE.SIGNAL.COLOR.GREEN + + if SignalHeight then + self.SignalHeight = SignalHeight + end + + return self +end + +function CARGO_ZONE:YellowFlare( SignalHeight ) + self:F() + + self.SignalType = CARGO_ZONE.SIGNAL.TYPE.FLARE + self.SignalColor = CARGO_ZONE.SIGNAL.COLOR.YELLOW + + if SignalHeight then + self.SignalHeight = SignalHeight + end + + return self +end + + +function CARGO_ZONE:GetCargoHostUnit() + self:F( self ) + + if self.CargoHostSpawn then + local CargoHostGroup = self.CargoHostSpawn:GetGroupFromIndex(1) + if CargoHostGroup and CargoHostGroup:IsAlive() then + local CargoHostUnit = CargoHostGroup:GetUnit(1) + if CargoHostUnit and CargoHostUnit:IsAlive() then + return CargoHostUnit + end + end + end + + return nil +end + +function CARGO_ZONE:GetCargoZoneName() + self:F() + + return self.CargoZoneName +end + +CARGO = { + ClassName = "CARGO", + STATUS = { + NONE = 0, + LOADED = 1, + UNLOADED = 2, + LOADING = 3 + }, + CargoClient = nil +} + +--- Add Cargo to the mission... Cargo functionality needs to be reworked a bit, so this is still under construction. I need to make a CARGO Class... +function CARGO:New( CargoType, CargoName, CargoWeight ) local self = BASE:Inherit( self, BASE:New() ) + self:F( { CargoType, CargoName, CargoWeight } ) + + + self.CargoType = CargoType + self.CargoName = CargoName + self.CargoWeight = CargoWeight + + self:StatusNone() + + return self +end + +function CARGO:Spawn( Client ) + self:F() + + return self + +end + +function CARGO:IsNear( Client, LandingZone ) + self:F() + + local Near = true + + return Near + +end + + +function CARGO:IsLoadingToClient() + self:F() + + if self:IsStatusLoading() then + return self.CargoClient + end + + return nil + +end + + +function CARGO:IsLoadedInClient() + self:F() + + if self:IsStatusLoaded() then + return self.CargoClient + end + + return nil + +end + + +function CARGO:UnLoad( Client, TargetZoneName ) + self:F() + + self:StatusUnLoaded() + + return self +end + +function CARGO:OnBoard( Client, LandingZone ) + self:F() + + local Valid = true + + self.CargoClient = Client + local ClientUnit = Client:GetClientGroupDCSUnit() + + return Valid +end + +function CARGO:OnBoarded( Client, LandingZone ) + self:F() + + local OnBoarded = true + + return OnBoarded +end + +function CARGO:Load( Client ) + self:F() + + self:StatusLoaded( Client ) + + return self +end + +function CARGO:IsLandingRequired() + self:F() + return true +end + +function CARGO:IsSlingLoad() + self:F() + return false +end + + +function CARGO:StatusNone() + self:F() + + self.CargoClient = nil + self.CargoStatus = CARGO.STATUS.NONE + + return self +end + +function CARGO:StatusLoading( Client ) + self:F() + + self.CargoClient = Client + self.CargoStatus = CARGO.STATUS.LOADING + self:T( "Cargo " .. self.CargoName .. " loading to Client: " .. self.CargoClient:GetClientGroupName() ) + + return self +end + +function CARGO:StatusLoaded( Client ) + self:F() + + self.CargoClient = Client + self.CargoStatus = CARGO.STATUS.LOADED + self:T( "Cargo " .. self.CargoName .. " loaded in Client: " .. self.CargoClient:GetClientGroupName() ) + + return self +end + +function CARGO:StatusUnLoaded() + self:F() + + self.CargoClient = nil + self.CargoStatus = CARGO.STATUS.UNLOADED + + return self +end + + +function CARGO:IsStatusNone() + self:F() + + return self.CargoStatus == CARGO.STATUS.NONE +end + +function CARGO:IsStatusLoading() + self:F() + + return self.CargoStatus == CARGO.STATUS.LOADING +end + +function CARGO:IsStatusLoaded() + self:F() + + return self.CargoStatus == CARGO.STATUS.LOADED +end + +function CARGO:IsStatusUnLoaded() + self:F() + + return self.CargoStatus == CARGO.STATUS.UNLOADED +end + + +CARGO_GROUP = { + ClassName = "CARGO_GROUP" +} + + +function CARGO_GROUP:New( CargoType, CargoName, CargoWeight, CargoGroupTemplate, CargoZone ) local self = BASE:Inherit( self, CARGO:New( CargoType, CargoName, CargoWeight ) ) + self:F( { CargoType, CargoName, CargoWeight, CargoGroupTemplate, CargoZone } ) + + self.CargoSpawn = SPAWN:NewWithAlias( CargoGroupTemplate, CargoName ) + self.CargoZone = CargoZone + + CARGOS[self.CargoName] = self + + return self + +end + +function CARGO_GROUP:Spawn( Client ) + self:F( { Client } ) + + local SpawnCargo = true + + if self:IsStatusNone() then + local CargoGroup = Group.getByName( self.CargoName ) + if CargoGroup and CargoGroup:isExist() then + SpawnCargo = false + end + + elseif self:IsStatusLoading() then + + local Client = self:IsLoadingToClient() + if Client and Client:GetDCSGroup() then + SpawnCargo = false + else + local CargoGroup = Group.getByName( self.CargoName ) + if CargoGroup and CargoGroup:isExist() then + SpawnCargo = false + end + end + + elseif self:IsStatusLoaded() then + + local ClientLoaded = self:IsLoadedInClient() + -- Now test if another Client is alive (not this one), and it has the CARGO, then this cargo does not need to be initialized and spawned. + if ClientLoaded and ClientLoaded ~= Client then + local ClientGroup = Client:GetDCSGroup() + if ClientLoaded:GetClientGroupDCSUnit() and ClientLoaded:GetClientGroupDCSUnit():isExist() then + SpawnCargo = false + else + self:StatusNone() + end + else + -- Same Client, but now in initialize, so set back the status to None. + self:StatusNone() + end + + elseif self:IsStatusUnLoaded() then + + SpawnCargo = false + + end + + if SpawnCargo then + if self.CargoZone:GetCargoHostUnit() then + --- ReSpawn the Cargo from the CargoHost + self.CargoGroupName = self.CargoSpawn:SpawnFromUnit( self.CargoZone:GetCargoHostUnit(), 60, 30, 1 ):GetName() + else + --- ReSpawn the Cargo in the CargoZone without a host ... + self:T( self.CargoZone ) + self.CargoGroupName = self.CargoSpawn:SpawnInZone( self.CargoZone, true, 1 ):GetName() + end + self:StatusNone() + end + + self:T( { self.CargoGroupName, CARGOS[self.CargoName].CargoGroupName } ) + + return self +end + +function CARGO_GROUP:IsNear( Client, LandingZone ) + self:F() + + local Near = false + + if self.CargoGroupName then + local CargoGroup = Group.getByName( self.CargoGroupName ) + if routines.IsPartOfGroupInRadius( CargoGroup, Client:GetPositionVec3(), 250 ) then + Near = true + end + end + + return Near + +end + + +function CARGO_GROUP:OnBoard( Client, LandingZone, OnBoardSide ) + self:F() + + local Valid = true + + local ClientUnit = Client:GetClientGroupDCSUnit() + + local CarrierPos = ClientUnit:getPoint() + local CarrierPosMove = ClientUnit:getPoint() + local CarrierPosOnBoard = ClientUnit:getPoint() + + local CargoGroup = Group.getByName( self.CargoGroupName ) + + local CargoUnit = CargoGroup:getUnit(1) + local CargoPos = CargoUnit:getPoint() + + self.CargoInAir = CargoUnit:inAir() + + self:T( self.CargoInAir ) + + -- Only move the group to the carrier when the cargo is not in the air + -- (eg. cargo can be on a oil derrick, moving the cargo on the oil derrick will drop the cargo on the sea). + if not self.CargoInAir then + + local Points = {} + + self:T( 'CargoPos x = ' .. CargoPos.x .. " z = " .. CargoPos.z ) + self:T( 'CarrierPosMove x = ' .. CarrierPosMove.x .. " z = " .. CarrierPosMove.z ) + + Points[#Points+1] = routines.ground.buildWP( CargoPos, "Cone", 10 ) + + self:T( 'Points[1] x = ' .. Points[1].x .. " y = " .. Points[1].y ) + + if OnBoardSide == nil then + OnBoardSide = CLIENT.ONBOARDSIDE.NONE + end + + if OnBoardSide == CLIENT.ONBOARDSIDE.LEFT then + + self:T( "TransportCargoOnBoard: Onboarding LEFT" ) + CarrierPosMove.z = CarrierPosMove.z - 25 + CarrierPosOnBoard.z = CarrierPosOnBoard.z - 5 + Points[#Points+1] = routines.ground.buildWP( CarrierPosMove, "Cone", 10 ) + Points[#Points+1] = routines.ground.buildWP( CarrierPosOnBoard, "Cone", 10 ) + + elseif OnBoardSide == CLIENT.ONBOARDSIDE.RIGHT then + + self:T( "TransportCargoOnBoard: Onboarding RIGHT" ) + CarrierPosMove.z = CarrierPosMove.z + 25 + CarrierPosOnBoard.z = CarrierPosOnBoard.z + 5 + Points[#Points+1] = routines.ground.buildWP( CarrierPosMove, "Cone", 10 ) + Points[#Points+1] = routines.ground.buildWP( CarrierPosOnBoard, "Cone", 10 ) + + elseif OnBoardSide == CLIENT.ONBOARDSIDE.BACK then + + self:T( "TransportCargoOnBoard: Onboarding BACK" ) + CarrierPosMove.x = CarrierPosMove.x - 25 + CarrierPosOnBoard.x = CarrierPosOnBoard.x - 5 + Points[#Points+1] = routines.ground.buildWP( CarrierPosMove, "Cone", 10 ) + Points[#Points+1] = routines.ground.buildWP( CarrierPosOnBoard, "Cone", 10 ) + + elseif OnBoardSide == CLIENT.ONBOARDSIDE.FRONT then + + self:T( "TransportCargoOnBoard: Onboarding FRONT" ) + CarrierPosMove.x = CarrierPosMove.x + 25 + CarrierPosOnBoard.x = CarrierPosOnBoard.x + 5 + Points[#Points+1] = routines.ground.buildWP( CarrierPosMove, "Cone", 10 ) + Points[#Points+1] = routines.ground.buildWP( CarrierPosOnBoard, "Cone", 10 ) + + elseif OnBoardSide == CLIENT.ONBOARDSIDE.NONE then + + self:T( "TransportCargoOnBoard: Onboarding CENTRAL" ) + Points[#Points+1] = routines.ground.buildWP( CarrierPos, "Cone", 10 ) + + end + self:T( "TransportCargoOnBoard: Routing " .. self.CargoGroupName ) + + --routines.scheduleFunction( routines.goRoute, { self.CargoGroupName, Points}, timer.getTime() + 4 ) + SCHEDULER:New( self, routines.goRoute, { self.CargoGroupName, Points}, 4 ) + end + + self:StatusLoading( Client ) + + return Valid + +end + + +function CARGO_GROUP:OnBoarded( Client, LandingZone ) + self:F() + + local OnBoarded = false + + local CargoGroup = Group.getByName( self.CargoGroupName ) + + if not self.CargoInAir then + if routines.IsPartOfGroupInRadius( CargoGroup, Client:GetPositionVec3(), 25 ) then + CargoGroup:destroy() + self:StatusLoaded( Client ) + OnBoarded = true + end + else + CargoGroup:destroy() + self:StatusLoaded( Client ) + OnBoarded = true + end + + return OnBoarded +end + + +function CARGO_GROUP:UnLoad( Client, TargetZoneName ) + self:F() + + self:T( 'self.CargoName = ' .. self.CargoName ) + + local CargoGroup = self.CargoSpawn:SpawnFromUnit( Client:GetClientGroupUnit(), 60, 30 ) + + self.CargoGroupName = CargoGroup:GetName() + self:T( 'self.CargoGroupName = ' .. self.CargoGroupName ) + + CargoGroup:TaskRouteToZone( ZONE:New( TargetZoneName ), true ) + + self:StatusUnLoaded() + + return self +end + + +CARGO_PACKAGE = { + ClassName = "CARGO_PACKAGE" +} + + +function CARGO_PACKAGE:New( CargoType, CargoName, CargoWeight, CargoClient ) local self = BASE:Inherit( self, CARGO:New( CargoType, CargoName, CargoWeight ) ) + self:F( { CargoType, CargoName, CargoWeight, CargoClient } ) + + self.CargoClient = CargoClient + + CARGOS[self.CargoName] = self + + return self + +end + + +function CARGO_PACKAGE:Spawn( Client ) + self:F( { self, Client } ) + + -- this needs to be checked thoroughly + + local CargoClientGroup = self.CargoClient:GetDCSGroup() + if not CargoClientGroup then + if not self.CargoClientSpawn then + self.CargoClientSpawn = SPAWN:New( self.CargoClient:GetClientGroupName() ):Limit( 1, 1 ) + end + self.CargoClientSpawn:ReSpawn( 1 ) + end + + local SpawnCargo = true + + if self:IsStatusNone() then + + elseif self:IsStatusLoading() or self:IsStatusLoaded() then + + local CargoClientLoaded = self:IsLoadedInClient() + if CargoClientLoaded and CargoClientLoaded:GetDCSGroup() then + SpawnCargo = false + end + + elseif self:IsStatusUnLoaded() then + + SpawnCargo = false + + else + + end + + if SpawnCargo then + self:StatusLoaded( self.CargoClient ) + end + + return self +end + + +function CARGO_PACKAGE:IsNear( Client, LandingZone ) + self:F() + + local Near = false + + if self.CargoClient and self.CargoClient:GetDCSGroup() then + self:T( self.CargoClient.ClientName ) + self:T( 'Client Exists.' ) + + if routines.IsUnitInRadius( self.CargoClient:GetClientGroupDCSUnit(), Client:GetPositionVec3(), 150 ) then + Near = true + end + end + + return Near + +end + + +function CARGO_PACKAGE:OnBoard( Client, LandingZone, OnBoardSide ) + self:F() + + local Valid = true + + local ClientUnit = Client:GetClientGroupDCSUnit() + + local CarrierPos = ClientUnit:getPoint() + local CarrierPosMove = ClientUnit:getPoint() + local CarrierPosOnBoard = ClientUnit:getPoint() + local CarrierPosMoveAway = ClientUnit:getPoint() + + local CargoHostGroup = self.CargoClient:GetDCSGroup() + local CargoHostName = self.CargoClient:GetDCSGroup():getName() + + local CargoHostUnits = CargoHostGroup:getUnits() + local CargoPos = CargoHostUnits[1]:getPoint() + + local Points = {} + + self:T( 'CargoPos x = ' .. CargoPos.x .. " z = " .. CargoPos.z ) + self:T( 'CarrierPosMove x = ' .. CarrierPosMove.x .. " z = " .. CarrierPosMove.z ) + + Points[#Points+1] = routines.ground.buildWP( CargoPos, "Cone", 10 ) + + self:T( 'Points[1] x = ' .. Points[1].x .. " y = " .. Points[1].y ) + + if OnBoardSide == nil then + OnBoardSide = CLIENT.ONBOARDSIDE.NONE + end + + if OnBoardSide == CLIENT.ONBOARDSIDE.LEFT then + + self:T( "TransportCargoOnBoard: Onboarding LEFT" ) + CarrierPosMove.z = CarrierPosMove.z - 25 + CarrierPosOnBoard.z = CarrierPosOnBoard.z - 5 + CarrierPosMoveAway.z = CarrierPosMoveAway.z - 20 + Points[#Points+1] = routines.ground.buildWP( CarrierPosMove, "Cone", 10 ) + Points[#Points+1] = routines.ground.buildWP( CarrierPosOnBoard, "Cone", 10 ) + Points[#Points+1] = routines.ground.buildWP( CarrierPosMoveAway, "Cone", 10 ) + + elseif OnBoardSide == CLIENT.ONBOARDSIDE.RIGHT then + + self:T( "TransportCargoOnBoard: Onboarding RIGHT" ) + CarrierPosMove.z = CarrierPosMove.z + 25 + CarrierPosOnBoard.z = CarrierPosOnBoard.z + 5 + CarrierPosMoveAway.z = CarrierPosMoveAway.z + 20 + Points[#Points+1] = routines.ground.buildWP( CarrierPosMove, "Cone", 10 ) + Points[#Points+1] = routines.ground.buildWP( CarrierPosOnBoard, "Cone", 10 ) + Points[#Points+1] = routines.ground.buildWP( CarrierPosMoveAway, "Cone", 10 ) + + elseif OnBoardSide == CLIENT.ONBOARDSIDE.BACK then + + self:T( "TransportCargoOnBoard: Onboarding BACK" ) + CarrierPosMove.x = CarrierPosMove.x - 25 + CarrierPosOnBoard.x = CarrierPosOnBoard.x - 5 + CarrierPosMoveAway.x = CarrierPosMoveAway.x - 20 + Points[#Points+1] = routines.ground.buildWP( CarrierPosMove, "Cone", 10 ) + Points[#Points+1] = routines.ground.buildWP( CarrierPosOnBoard, "Cone", 10 ) + Points[#Points+1] = routines.ground.buildWP( CarrierPosMoveAway, "Cone", 10 ) + + elseif OnBoardSide == CLIENT.ONBOARDSIDE.FRONT then + + self:T( "TransportCargoOnBoard: Onboarding FRONT" ) + CarrierPosMove.x = CarrierPosMove.x + 25 + CarrierPosOnBoard.x = CarrierPosOnBoard.x + 5 + CarrierPosMoveAway.x = CarrierPosMoveAway.x + 20 + Points[#Points+1] = routines.ground.buildWP( CarrierPosMove, "Cone", 10 ) + Points[#Points+1] = routines.ground.buildWP( CarrierPosOnBoard, "Cone", 10 ) + Points[#Points+1] = routines.ground.buildWP( CarrierPosMoveAway, "Cone", 10 ) + + elseif OnBoardSide == CLIENT.ONBOARDSIDE.NONE then + + self:T( "TransportCargoOnBoard: Onboarding FRONT" ) + CarrierPosMove.x = CarrierPosMove.x + 25 + CarrierPosOnBoard.x = CarrierPosOnBoard.x + 5 + CarrierPosMoveAway.x = CarrierPosMoveAway.x + 20 + Points[#Points+1] = routines.ground.buildWP( CarrierPosMove, "Cone", 10 ) + Points[#Points+1] = routines.ground.buildWP( CarrierPosOnBoard, "Cone", 10 ) + Points[#Points+1] = routines.ground.buildWP( CarrierPosMoveAway, "Cone", 10 ) + + end + self:T( "Routing " .. CargoHostName ) + + SCHEDULER:New( self, routines.goRoute, { CargoHostName, Points }, 4 ) + + return Valid + +end + + +function CARGO_PACKAGE:OnBoarded( Client, LandingZone ) + self:F() + + local OnBoarded = false + + if self.CargoClient and self.CargoClient:GetDCSGroup() then + if routines.IsUnitInRadius( self.CargoClient:GetClientGroupDCSUnit(), self.CargoClient:GetPositionVec3(), 10 ) then + + -- Switch Cargo from self.CargoClient to Client ... Each cargo can have only one client. So assigning the new client for the cargo is enough. + self:StatusLoaded( Client ) + + -- All done, onboarded the Cargo to the new Client. + OnBoarded = true + end + end + + return OnBoarded +end + + +function CARGO_PACKAGE:UnLoad( Client, TargetZoneName ) + self:F() + + self:T( 'self.CargoName = ' .. self.CargoName ) + --self:T( 'self.CargoHostName = ' .. self.CargoHostName ) + + --self.CargoSpawn:FromCarrier( Client:GetDCSGroup(), TargetZoneName, self.CargoHostName ) + self:StatusUnLoaded() + + return Cargo +end + + +CARGO_SLINGLOAD = { + ClassName = "CARGO_SLINGLOAD" +} + + +function CARGO_SLINGLOAD:New( CargoType, CargoName, CargoWeight, CargoZone, CargoHostName, CargoCountryID ) + local self = BASE:Inherit( self, CARGO:New( CargoType, CargoName, CargoWeight ) ) + self:F( { CargoType, CargoName, CargoWeight, CargoZone, CargoHostName, CargoCountryID } ) + + self.CargoHostName = CargoHostName + + -- Cargo will be initialized around the CargoZone position. + self.CargoZone = CargoZone + + self.CargoCount = 0 + self.CargoStaticName = string.format( "%s#%03d", self.CargoName, self.CargoCount ) + + -- The country ID needs to be correctly set. + self.CargoCountryID = CargoCountryID + + CARGOS[self.CargoName] = self + + return self + +end + + +function CARGO_SLINGLOAD:IsLandingRequired() + self:F() + return false +end + + +function CARGO_SLINGLOAD:IsSlingLoad() + self:F() + return true +end + + +function CARGO_SLINGLOAD:Spawn( Client ) + self:F( { self, Client } ) + + local Zone = trigger.misc.getZone( self.CargoZone ) + + local ZonePos = {} + ZonePos.x = Zone.point.x + math.random( Zone.radius / 2 * -1, Zone.radius / 2 ) + ZonePos.y = Zone.point.z + math.random( Zone.radius / 2 * -1, Zone.radius / 2 ) + + self:T( "Cargo Location = " .. ZonePos.x .. ", " .. ZonePos.y ) + + --[[ + -- This does not work in 1.5.2. + CargoStatic = StaticObject.getByName( self.CargoName ) + if CargoStatic then + CargoStatic:destroy() + end + --]] + + CargoStatic = StaticObject.getByName( self.CargoStaticName ) + + if CargoStatic and CargoStatic:isExist() then + CargoStatic:destroy() + end + + -- I need to make every time a new cargo due to bugs in 1.5.2. + + self.CargoCount = self.CargoCount + 1 + self.CargoStaticName = string.format( "%s#%03d", self.CargoName, self.CargoCount ) + + local CargoTemplate = { + ["category"] = "Cargo", + ["shape_name"] = "ab-212_cargo", + ["type"] = "Cargo1", + ["x"] = ZonePos.x, + ["y"] = ZonePos.y, + ["mass"] = self.CargoWeight, + ["name"] = self.CargoStaticName, + ["canCargo"] = true, + ["heading"] = 0, + } + + coalition.addStaticObject( self.CargoCountryID, CargoTemplate ) + +-- end + + return self +end + + +function CARGO_SLINGLOAD:IsNear( Client, LandingZone ) + self:F() + + local Near = false + + return Near +end + + +function CARGO_SLINGLOAD:IsInLandingZone( Client, LandingZone ) + self:F() + + local Near = false + + local CargoStaticUnit = StaticObject.getByName( self.CargoName ) + if CargoStaticUnit then + if routines.IsStaticInZones( CargoStaticUnit, LandingZone ) then + Near = true + end + end + + return Near +end + + +function CARGO_SLINGLOAD:OnBoard( Client, LandingZone, OnBoardSide ) + self:F() + + local Valid = true + + + return Valid +end + + +function CARGO_SLINGLOAD:OnBoarded( Client, LandingZone ) + self:F() + + local OnBoarded = false + + local CargoStaticUnit = StaticObject.getByName( self.CargoName ) + if CargoStaticUnit then + if not routines.IsStaticInZones( CargoStaticUnit, LandingZone ) then + OnBoarded = true + end + end + + return OnBoarded +end + + +function CARGO_SLINGLOAD:UnLoad( Client, TargetZoneName ) + self:F() + + self:T( 'self.CargoName = ' .. self.CargoName ) + self:T( 'self.CargoGroupName = ' .. self.CargoGroupName ) + + self:StatusUnLoaded() + + return Cargo +end +--- This module contains the MESSAGE class. +-- +-- 1) @{Message#MESSAGE} class, extends @{Base#BASE} +-- ================================================= +-- Message System to display Messages to Clients, Coalitions or All. +-- Messages are shown on the display panel for an amount of seconds, and will then disappear. +-- Messages can contain a category which is indicating the category of the message. +-- +-- 1.1) MESSAGE construction methods +-- --------------------------------- +-- Messages are created with @{Message#MESSAGE.New}. Note that when the MESSAGE object is created, no message is sent yet. +-- To send messages, you need to use the To functions. +-- +-- 1.2) Send messages with MESSAGE To methods +-- ------------------------------------------ +-- Messages are sent to: +-- +-- * Clients with @{Message#MESSAGE.ToClient}. +-- * Coalitions with @{Message#MESSAGE.ToCoalition}. +-- * All Players with @{Message#MESSAGE.ToAll}. +-- +-- @module Message +-- @author FlightControl + +--- The MESSAGE class +-- @type MESSAGE +-- @extends Base#BASE +MESSAGE = { + ClassName = "MESSAGE", + MessageCategory = 0, + MessageID = 0, +} + + +--- Creates a new MESSAGE object. Note that these MESSAGE objects are not yet displayed on the display panel. You must use the functions @{ToClient} or @{ToCoalition} or @{ToAll} to send these Messages to the respective recipients. +-- @param self +-- @param #string MessageText is the text of the Message. +-- @param #number MessageDuration is a number in seconds of how long the MESSAGE should be shown on the display panel. +-- @param #string MessageCategory (optional) is a string expressing the "category" of the Message. The category will be shown as the first text in the message followed by a ": ". +-- @return #MESSAGE +-- @usage +-- -- Create a series of new Messages. +-- -- MessageAll is meant to be sent to all players, for 25 seconds, and is classified as "Score". +-- -- MessageRED is meant to be sent to the RED players only, for 10 seconds, and is classified as "End of Mission", with ID "Win". +-- -- MessageClient1 is meant to be sent to a Client, for 25 seconds, and is classified as "Score", with ID "Score". +-- -- MessageClient1 is meant to be sent to a Client, for 25 seconds, and is classified as "Score", with ID "Score". +-- MessageAll = MESSAGE:New( "To all Players: BLUE has won! Each player of BLUE wins 50 points!", 25, "End of Mission" ) +-- MessageRED = MESSAGE:New( "To the RED Players: You receive a penalty because you've killed one of your own units", 25, "Penalty" ) +-- MessageClient1 = MESSAGE:New( "Congratulations, you've just hit a target", 25, "Score" ) +-- MessageClient2 = MESSAGE:New( "Congratulations, you've just killed a target", 25, "Score") +function MESSAGE:New( MessageText, MessageDuration, MessageCategory ) + local self = BASE:Inherit( self, BASE:New() ) + self:F( { MessageText, MessageDuration, MessageCategory } ) + + -- When no MessageCategory is given, we don't show it as a title... + if MessageCategory and MessageCategory ~= "" then + self.MessageCategory = MessageCategory .. ": " + else + self.MessageCategory = "" + end + + self.MessageDuration = MessageDuration + self.MessageTime = timer.getTime() + self.MessageText = MessageText + + self.MessageSent = false + self.MessageGroup = false + self.MessageCoalition = false + + return self +end + +--- Sends a MESSAGE to a Client Group. Note that the Group needs to be defined within the ME with the skillset "Client" or "Player". +-- @param #MESSAGE self +-- @param Client#CLIENT Client is the Group of the Client. +-- @return #MESSAGE +-- @usage +-- -- Send the 2 messages created with the @{New} method to the Client Group. +-- -- Note that the Message of MessageClient2 is overwriting the Message of MessageClient1. +-- ClientGroup = Group.getByName( "ClientGroup" ) +-- +-- MessageClient1 = MESSAGE:New( "Congratulations, you've just hit a target", "Score", 25, "Score" ):ToClient( ClientGroup ) +-- MessageClient2 = MESSAGE:New( "Congratulations, you've just killed a target", "Score", 25, "Score" ):ToClient( ClientGroup ) +-- or +-- MESSAGE:New( "Congratulations, you've just hit a target", "Score", 25, "Score" ):ToClient( ClientGroup ) +-- MESSAGE:New( "Congratulations, you've just killed a target", "Score", 25, "Score" ):ToClient( ClientGroup ) +-- or +-- MessageClient1 = MESSAGE:New( "Congratulations, you've just hit a target", "Score", 25, "Score" ) +-- MessageClient2 = MESSAGE:New( "Congratulations, you've just killed a target", "Score", 25, "Score" ) +-- MessageClient1:ToClient( ClientGroup ) +-- MessageClient2:ToClient( ClientGroup ) +function MESSAGE:ToClient( Client ) + self:F( Client ) + + if Client and Client:GetClientGroupID() then + + local ClientGroupID = Client:GetClientGroupID() + self:T( self.MessageCategory .. self.MessageText:gsub("\n$",""):gsub("\n$","") .. " / " .. self.MessageDuration ) + trigger.action.outTextForGroup( ClientGroupID, self.MessageCategory .. self.MessageText:gsub("\n$",""):gsub("\n$",""), self.MessageDuration ) + end + + return self +end + +--- Sends a MESSAGE to the Blue coalition. +-- @param #MESSAGE self +-- @return #MESSAGE +-- @usage +-- -- Send a message created with the @{New} method to the BLUE coalition. +-- MessageBLUE = MESSAGE:New( "To the BLUE Players: You receive a penalty because you've killed one of your own units", "Penalty", 25, "Score" ):ToBlue() +-- or +-- MESSAGE:New( "To the BLUE Players: You receive a penalty because you've killed one of your own units", "Penalty", 25, "Score" ):ToBlue() +-- or +-- MessageBLUE = MESSAGE:New( "To the BLUE Players: You receive a penalty because you've killed one of your own units", "Penalty", 25, "Score" ) +-- MessageBLUE:ToBlue() +function MESSAGE:ToBlue() + self:F() + + self:ToCoalition( coalition.side.BLUE ) + + return self +end + +--- Sends a MESSAGE to the Red Coalition. +-- @param #MESSAGE self +-- @return #MESSAGE +-- @usage +-- -- Send a message created with the @{New} method to the RED coalition. +-- MessageRED = MESSAGE:New( "To the RED Players: You receive a penalty because you've killed one of your own units", "Penalty", 25, "Score" ):ToRed() +-- or +-- MESSAGE:New( "To the RED Players: You receive a penalty because you've killed one of your own units", "Penalty", 25, "Score" ):ToRed() +-- or +-- MessageRED = MESSAGE:New( "To the RED Players: You receive a penalty because you've killed one of your own units", "Penalty", 25, "Score" ) +-- MessageRED:ToRed() +function MESSAGE:ToRed( ) + self:F() + + self:ToCoalition( coalition.side.RED ) + + return self +end + +--- Sends a MESSAGE to a Coalition. +-- @param #MESSAGE self +-- @param CoalitionSide needs to be filled out by the defined structure of the standard scripting engine @{coalition.side}. +-- @return #MESSAGE +-- @usage +-- -- Send a message created with the @{New} method to the RED coalition. +-- MessageRED = MESSAGE:New( "To the RED Players: You receive a penalty because you've killed one of your own units", "Penalty", 25, "Score" ):ToCoalition( coalition.side.RED ) +-- or +-- MESSAGE:New( "To the RED Players: You receive a penalty because you've killed one of your own units", "Penalty", 25, "Score" ):ToCoalition( coalition.side.RED ) +-- or +-- MessageRED = MESSAGE:New( "To the RED Players: You receive a penalty because you've killed one of your own units", "Penalty", 25, "Score" ) +-- MessageRED:ToCoalition( coalition.side.RED ) +function MESSAGE:ToCoalition( CoalitionSide ) + self:F( CoalitionSide ) + + if CoalitionSide then + self:T( self.MessageCategory .. self.MessageText:gsub("\n$",""):gsub("\n$","") .. " / " .. self.MessageDuration ) + trigger.action.outTextForCoalition( CoalitionSide, self.MessageCategory .. self.MessageText:gsub("\n$",""):gsub("\n$",""), self.MessageDuration ) + end + + return self +end + +--- Sends a MESSAGE to all players. +-- @param #MESSAGE self +-- @return #MESSAGE +-- @usage +-- -- Send a message created to all players. +-- MessageAll = MESSAGE:New( "To all Players: BLUE has won! Each player of BLUE wins 50 points!", "End of Mission", 25, "Win" ):ToAll() +-- or +-- MESSAGE:New( "To all Players: BLUE has won! Each player of BLUE wins 50 points!", "End of Mission", 25, "Win" ):ToAll() +-- or +-- MessageAll = MESSAGE:New( "To all Players: BLUE has won! Each player of BLUE wins 50 points!", "End of Mission", 25, "Win" ) +-- MessageAll:ToAll() +function MESSAGE:ToAll() + self:F() + + self:ToCoalition( coalition.side.RED ) + self:ToCoalition( coalition.side.BLUE ) + + return self +end + + + +----- The MESSAGEQUEUE class +---- @type MESSAGEQUEUE +--MESSAGEQUEUE = { +-- ClientGroups = {}, +-- CoalitionSides = {} +--} +-- +--function MESSAGEQUEUE:New( RefreshInterval ) +-- local self = BASE:Inherit( self, BASE:New() ) +-- self:F( { RefreshInterval } ) +-- +-- self.RefreshInterval = RefreshInterval +-- +-- --self.DisplayFunction = routines.scheduleFunction( self._DisplayMessages, { self }, 0, RefreshInterval ) +-- self.DisplayFunction = SCHEDULER:New( self, self._DisplayMessages, {}, 0, RefreshInterval ) +-- +-- return self +--end +-- +----- This function is called automatically by the MESSAGEQUEUE scheduler. +--function MESSAGEQUEUE:_DisplayMessages() +-- +-- -- First we display all messages that a coalition needs to receive... Also those who are not in a client (CA module clients...). +-- for CoalitionSideID, CoalitionSideData in pairs( self.CoalitionSides ) do +-- for MessageID, MessageData in pairs( CoalitionSideData.Messages ) do +-- if MessageData.MessageSent == false then +-- --trigger.action.outTextForCoalition( CoalitionSideID, MessageData.MessageCategory .. '\n' .. MessageData.MessageText:gsub("\n$",""):gsub("\n$",""), MessageData.MessageDuration ) +-- MessageData.MessageSent = true +-- end +-- local MessageTimeLeft = ( MessageData.MessageTime + MessageData.MessageDuration ) - timer.getTime() +-- if MessageTimeLeft <= 0 then +-- MessageData = nil +-- end +-- end +-- end +-- +-- -- Then we send the messages for each individual client, but also to be included are those Coalition messages for the Clients who belong to a coalition. +-- -- Because the Client messages will overwrite the Coalition messages (for that Client). +-- for ClientGroupName, ClientGroupData in pairs( self.ClientGroups ) do +-- for MessageID, MessageData in pairs( ClientGroupData.Messages ) do +-- if MessageData.MessageGroup == false then +-- trigger.action.outTextForGroup( Group.getByName(ClientGroupName):getID(), MessageData.MessageCategory .. '\n' .. MessageData.MessageText:gsub("\n$",""):gsub("\n$",""), MessageData.MessageDuration ) +-- MessageData.MessageGroup = true +-- end +-- local MessageTimeLeft = ( MessageData.MessageTime + MessageData.MessageDuration ) - timer.getTime() +-- if MessageTimeLeft <= 0 then +-- MessageData = nil +-- end +-- end +-- +-- -- Now check if the Client also has messages that belong to the Coalition of the Client... +-- for CoalitionSideID, CoalitionSideData in pairs( self.CoalitionSides ) do +-- for MessageID, MessageData in pairs( CoalitionSideData.Messages ) do +-- local CoalitionGroup = Group.getByName( ClientGroupName ) +-- if CoalitionGroup and CoalitionGroup:getCoalition() == CoalitionSideID then +-- if MessageData.MessageCoalition == false then +-- trigger.action.outTextForGroup( Group.getByName(ClientGroupName):getID(), MessageData.MessageCategory .. '\n' .. MessageData.MessageText:gsub("\n$",""):gsub("\n$",""), MessageData.MessageDuration ) +-- MessageData.MessageCoalition = true +-- end +-- end +-- local MessageTimeLeft = ( MessageData.MessageTime + MessageData.MessageDuration ) - timer.getTime() +-- if MessageTimeLeft <= 0 then +-- MessageData = nil +-- end +-- end +-- end +-- end +-- +-- return true +--end +-- +----- The _MessageQueue object is created when the MESSAGE class module is loaded. +----_MessageQueue = MESSAGEQUEUE:New( 0.5 ) +-- +--- Stages within a @{TASK} within a @{MISSION}. All of the STAGE functionality is considered internally administered and not to be used by any Mission designer. +-- @module STAGE +-- @author Flightcontrol + + + + + + + +--- The STAGE class +-- @type +STAGE = { + ClassName = "STAGE", + MSG = { ID = "None", TIME = 10 }, + FREQUENCY = { NONE = 0, ONCE = 1, REPEAT = -1 }, + + Name = "NoStage", + StageType = '', + WaitTime = 1, + Frequency = 1, + MessageCount = 0, + MessageInterval = 15, + MessageShown = {}, + MessageShow = false, + MessageFlash = false +} + + +function STAGE:New() + local self = BASE:Inherit( self, BASE:New() ) + self:F() + return self +end + +function STAGE:Execute( Mission, Client, Task ) + + local Valid = true + + return Valid +end + +function STAGE:Executing( Mission, Client, Task ) + +end + +function STAGE:Validate( Mission, Client, Task ) + local Valid = true + + return Valid +end + + +STAGEBRIEF = { + ClassName = "BRIEF", + MSG = { ID = "Brief", TIME = 1 }, + Name = "Brief", + StageBriefingTime = 0, + StageBriefingDuration = 1 +} + +function STAGEBRIEF:New() + local self = BASE:Inherit( self, STAGE:New() ) + self:F() + self.StageType = 'CLIENT' + return self +end + +--- Execute +-- @param #STAGEBRIEF self +-- @param Mission#MISSION Mission +-- @param Client#CLIENT Client +-- @param Task#TASK Task +-- @return #boolean +function STAGEBRIEF:Execute( Mission, Client, Task ) + local Valid = BASE:Inherited(self):Execute( Mission, Client, Task ) + self:F() + Client:ShowMissionBriefing( Mission.MissionBriefing ) + self.StageBriefingTime = timer.getTime() + return Valid +end + +function STAGEBRIEF:Validate( Mission, Client, Task ) + local Valid = STAGE:Validate( Mission, Client, Task ) + self:T() + + if timer.getTime() - self.StageBriefingTime <= self.StageBriefingDuration then + return 0 + else + self.StageBriefingTime = timer.getTime() + return 1 + end + +end + + +STAGESTART = { + ClassName = "START", + MSG = { ID = "Start", TIME = 1 }, + Name = "Start", + StageStartTime = 0, + StageStartDuration = 1 +} + +function STAGESTART:New() + local self = BASE:Inherit( self, STAGE:New() ) + self:F() + self.StageType = 'CLIENT' + return self +end + +function STAGESTART:Execute( Mission, Client, Task ) + self:F() + local Valid = BASE:Inherited(self):Execute( Mission, Client, Task ) + if Task.TaskBriefing then + Client:Message( Task.TaskBriefing, 30, "Command" ) + else + Client:Message( 'Task ' .. Task.TaskNumber .. '.', 30, "Command" ) + end + self.StageStartTime = timer.getTime() + return Valid +end + +function STAGESTART:Validate( Mission, Client, Task ) + self:F() + local Valid = STAGE:Validate( Mission, Client, Task ) + + if timer.getTime() - self.StageStartTime <= self.StageStartDuration then + return 0 + else + self.StageStartTime = timer.getTime() + return 1 + end + + return 1 + +end + +STAGE_CARGO_LOAD = { + ClassName = "STAGE_CARGO_LOAD" +} + +function STAGE_CARGO_LOAD:New() + local self = BASE:Inherit( self, STAGE:New() ) + self:F() + self.StageType = 'CLIENT' + return self +end + +function STAGE_CARGO_LOAD:Execute( Mission, Client, Task ) + self:F() + local Valid = BASE:Inherited(self):Execute( Mission, Client, Task ) + + for LoadCargoID, LoadCargo in pairs( Task.Cargos.LoadCargos ) do + LoadCargo:Load( Client ) + end + + if Mission.MissionReportFlash and Client:IsTransport() then + Client:ShowCargo() + end + + return Valid +end + +function STAGE_CARGO_LOAD:Validate( Mission, Client, Task ) + self:F() + local Valid = STAGE:Validate( Mission, Client, Task ) + + return 1 +end + + +STAGE_CARGO_INIT = { + ClassName = "STAGE_CARGO_INIT" +} + +function STAGE_CARGO_INIT:New() + local self = BASE:Inherit( self, STAGE:New() ) + self:F() + self.StageType = 'CLIENT' + return self +end + +function STAGE_CARGO_INIT:Execute( Mission, Client, Task ) + self:F() + local Valid = BASE:Inherited(self):Execute( Mission, Client, Task ) + + for InitLandingZoneID, InitLandingZone in pairs( Task.LandingZones.LandingZones ) do + self:T( InitLandingZone ) + InitLandingZone:Spawn() + end + + + self:T( Task.Cargos.InitCargos ) + for InitCargoID, InitCargoData in pairs( Task.Cargos.InitCargos ) do + self:T( { InitCargoData } ) + InitCargoData:Spawn( Client ) + end + + return Valid +end + + +function STAGE_CARGO_INIT:Validate( Mission, Client, Task ) + self:F() + local Valid = STAGE:Validate( Mission, Client, Task ) + + return 1 +end + + + +STAGEROUTE = { + ClassName = "STAGEROUTE", + MSG = { ID = "Route", TIME = 5 }, + Frequency = STAGE.FREQUENCY.REPEAT, + Name = "Route" +} + +function STAGEROUTE:New() + local self = BASE:Inherit( self, STAGE:New() ) + self:F() + self.StageType = 'CLIENT' + self.MessageSwitch = true + return self +end + + +--- Execute the routing. +-- @param #STAGEROUTE self +-- @param Mission#MISSION Mission +-- @param Client#CLIENT Client +-- @param Task#TASK Task +function STAGEROUTE:Execute( Mission, Client, Task ) + self:F() + local Valid = BASE:Inherited(self):Execute( Mission, Client, Task ) + + local RouteMessage = "Fly to: " + self:T( Task.LandingZones ) + for LandingZoneID, LandingZoneName in pairs( Task.LandingZones.LandingZoneNames ) do + RouteMessage = RouteMessage .. "\n " .. LandingZoneName .. ' at ' .. routines.getBRStringZone( { zone = LandingZoneName, ref = Client:GetClientGroupDCSUnit():getPoint(), true, true } ) .. ' km.' + end + + if Client:IsMultiSeated() then + Client:Message( RouteMessage, self.MSG.TIME, "Co-Pilot", 20, "Route" ) + else + Client:Message( RouteMessage, self.MSG.TIME, "Command", 20, "Route" ) + end + + + if Mission.MissionReportFlash and Client:IsTransport() then + Client:ShowCargo() + end + + return Valid +end + +function STAGEROUTE:Validate( Mission, Client, Task ) + self:F() + local Valid = STAGE:Validate( Mission, Client, Task ) + + -- check if the Client is in the landing zone + self:T( Task.LandingZones.LandingZoneNames ) + Task.CurrentLandingZoneName = routines.IsUnitNearZonesRadius( Client:GetClientGroupDCSUnit(), Task.LandingZones.LandingZoneNames, 500 ) + + if Task.CurrentLandingZoneName then + + Task.CurrentLandingZone = Task.LandingZones.LandingZones[Task.CurrentLandingZoneName].CargoZone + Task.CurrentCargoZone = Task.LandingZones.LandingZones[Task.CurrentLandingZoneName] + + if Task.CurrentCargoZone then + if not Task.Signalled then + Task.Signalled = Task.CurrentCargoZone:Signal() + end + end + + self:T( 1 ) + return 1 + end + + self:T( 0 ) + return 0 +end + + + +STAGELANDING = { + ClassName = "STAGELANDING", + MSG = { ID = "Landing", TIME = 10 }, + Name = "Landing", + Signalled = false +} + +function STAGELANDING:New() + local self = BASE:Inherit( self, STAGE:New() ) + self:F() + self.StageType = 'CLIENT' + return self +end + +--- Execute the landing coordination. +-- @param #STAGELANDING self +-- @param Mission#MISSION Mission +-- @param Client#CLIENT Client +-- @param Task#TASK Task +function STAGELANDING:Execute( Mission, Client, Task ) + self:F() + + if Client:IsMultiSeated() then + Client:Message( "We have arrived at the landing zone.", self.MSG.TIME, "Co-Pilot" ) + else + Client:Message( "You have arrived at the landing zone.", self.MSG.TIME, "Command" ) + end + + Task.HostUnit = Task.CurrentCargoZone:GetHostUnit() + + self:T( { Task.HostUnit } ) + + if Task.HostUnit then + + Task.HostUnitName = Task.HostUnit:GetPrefix() + Task.HostUnitTypeName = Task.HostUnit:GetTypeName() + + local HostMessage = "" + Task.CargoNames = "" + + local IsFirst = true + + for CargoID, Cargo in pairs( CARGOS ) do + if Cargo.CargoType == Task.CargoType then + + if Cargo:IsLandingRequired() then + self:T( "Task for cargo " .. Cargo.CargoType .. " requires landing.") + Task.IsLandingRequired = true + end + + if Cargo:IsSlingLoad() then + self:T( "Task for cargo " .. Cargo.CargoType .. " is a slingload.") + Task.IsSlingLoad = true + end + + if IsFirst then + IsFirst = false + Task.CargoNames = Task.CargoNames .. Cargo.CargoName .. "( " .. Cargo.CargoWeight .. " )" + else + Task.CargoNames = Task.CargoNames .. "; " .. Cargo.CargoName .. "( " .. Cargo.CargoWeight .. " )" + end + end + end + + if Task.IsLandingRequired then + HostMessage = "Land the helicopter to " .. Task.TEXT[1] .. " " .. Task.CargoNames .. "." + else + HostMessage = "Use the Radio menu and F6 to find the cargo, then fly or land near the cargo and " .. Task.TEXT[1] .. " " .. Task.CargoNames .. "." + end + + local Host = "Command" + if Task.HostUnitName then + Host = Task.HostUnitName .. " (" .. Task.HostUnitTypeName .. ")" + else + if Client:IsMultiSeated() then + Host = "Co-Pilot" + end + end + + Client:Message( HostMessage, self.MSG.TIME, Host ) + + end +end + +function STAGELANDING:Validate( Mission, Client, Task ) + self:F() + + Task.CurrentLandingZoneName = routines.IsUnitNearZonesRadius( Client:GetClientGroupDCSUnit(), Task.LandingZones.LandingZoneNames, 500 ) + if Task.CurrentLandingZoneName then + + -- Client is in de landing zone. + self:T( Task.CurrentLandingZoneName ) + + Task.CurrentLandingZone = Task.LandingZones.LandingZones[Task.CurrentLandingZoneName].CargoZone + Task.CurrentCargoZone = Task.LandingZones.LandingZones[Task.CurrentLandingZoneName] + + if Task.CurrentCargoZone then + if not Task.Signalled then + Task.Signalled = Task.CurrentCargoZone:Signal() + end + end + else + if Task.CurrentLandingZone then + Task.CurrentLandingZone = nil + end + if Task.CurrentCargoZone then + Task.CurrentCargoZone = nil + end + Task.Signalled = false + Task:RemoveCargoMenus( Client ) + self:T( -1 ) + return -1 + end + + + local DCSUnitVelocityVec3 = Client:GetClientGroupDCSUnit():getVelocity() + local DCSUnitVelocity = ( DCSUnitVelocityVec3.x ^2 + DCSUnitVelocityVec3.y ^2 + DCSUnitVelocityVec3.z ^2 ) ^ 0.5 + + local DCSUnitPointVec3 = Client:GetClientGroupDCSUnit():getPoint() + local LandHeight = land.getHeight( { x = DCSUnitPointVec3.x, y = DCSUnitPointVec3.z } ) + local DCSUnitHeight = DCSUnitPointVec3.y - LandHeight + + self:T( { Task.IsLandingRequired, Client:GetClientGroupDCSUnit():inAir() } ) + if Task.IsLandingRequired and not Client:GetClientGroupDCSUnit():inAir() then + self:T( 1 ) + Task.IsInAirTestRequired = true + return 1 + end + + self:T( { DCSUnitVelocity, DCSUnitHeight, LandHeight, Task.CurrentCargoZone.SignalHeight } ) + if Task.IsLandingRequired and DCSUnitVelocity <= 0.05 and DCSUnitHeight <= Task.CurrentCargoZone.SignalHeight then + self:T( 1 ) + Task.IsInAirTestRequired = false + return 1 + end + + self:T( 0 ) + return 0 +end + +STAGELANDED = { + ClassName = "STAGELANDED", + MSG = { ID = "Land", TIME = 10 }, + Name = "Landed", + MenusAdded = false +} + +function STAGELANDED:New() + local self = BASE:Inherit( self, STAGE:New() ) + self:F() + self.StageType = 'CLIENT' + return self +end + +function STAGELANDED:Execute( Mission, Client, Task ) + self:F() + + if Task.IsLandingRequired then + + local Host = "Command" + if Task.HostUnitName then + Host = Task.HostUnitName .. " (" .. Task.HostUnitTypeName .. ")" + else + if Client:IsMultiSeated() then + Host = "Co-Pilot" + end + end + + Client:Message( 'You have landed within the landing zone. Use the radio menu (F10) to ' .. Task.TEXT[1] .. ' the ' .. Task.CargoType .. '.', + self.MSG.TIME, Host ) + + if not self.MenusAdded then + Task.Cargo = nil + Task:RemoveCargoMenus( Client ) + Task:AddCargoMenus( Client, CARGOS, 250 ) + end + end +end + + + +function STAGELANDED:Validate( Mission, Client, Task ) + self:F() + + if not routines.IsUnitNearZonesRadius( Client:GetClientGroupDCSUnit(), Task.CurrentLandingZoneName, 500 ) then + self:T( "Client is not anymore in the landing zone, go back to stage Route, and remove cargo menus." ) + Task.Signalled = false + Task:RemoveCargoMenus( Client ) + self:T( -2 ) + return -2 + end + + local DCSUnitVelocityVec3 = Client:GetClientGroupDCSUnit():getVelocity() + local DCSUnitVelocity = ( DCSUnitVelocityVec3.x ^2 + DCSUnitVelocityVec3.y ^2 + DCSUnitVelocityVec3.z ^2 ) ^ 0.5 + + local DCSUnitPointVec3 = Client:GetClientGroupDCSUnit():getPoint() + local LandHeight = land.getHeight( { x = DCSUnitPointVec3.x, y = DCSUnitPointVec3.z } ) + local DCSUnitHeight = DCSUnitPointVec3.y - LandHeight + + self:T( { Task.IsLandingRequired, Client:GetClientGroupDCSUnit():inAir() } ) + if Task.IsLandingRequired and Task.IsInAirTestRequired == true and Client:GetClientGroupDCSUnit():inAir() then + self:T( "Client went back in the air. Go back to stage Landing." ) + self:T( -1 ) + return -1 + end + + self:T( { DCSUnitVelocity, DCSUnitHeight, LandHeight, Task.CurrentCargoZone.SignalHeight } ) + if Task.IsLandingRequired and Task.IsInAirTestRequired == false and DCSUnitVelocity >= 2 and DCSUnitHeight >= Task.CurrentCargoZone.SignalHeight then + self:T( "It seems the Client went back in the air and over the boundary limits. Go back to stage Landing." ) + self:T( -1 ) + return -1 + end + + -- Wait until cargo is selected from the menu. + if Task.IsLandingRequired then + if not Task.Cargo then + self:T( 0 ) + return 0 + end + end + + self:T( 1 ) + return 1 +end + +STAGEUNLOAD = { + ClassName = "STAGEUNLOAD", + MSG = { ID = "Unload", TIME = 10 }, + Name = "Unload" +} + +function STAGEUNLOAD:New() + local self = BASE:Inherit( self, STAGE:New() ) + self:F() + self.StageType = 'CLIENT' + return self +end + +--- Coordinate UnLoading +-- @param #STAGEUNLOAD self +-- @param Mission#MISSION Mission +-- @param Client#CLIENT Client +-- @param Task#TASK Task +function STAGEUNLOAD:Execute( Mission, Client, Task ) + self:F() + + if Client:IsMultiSeated() then + Client:Message( 'The ' .. Task.CargoType .. ' are being ' .. Task.TEXT[2] .. ' within the landing zone. Wait until the helicopter is ' .. Task.TEXT[3] .. '.', + "Co-Pilot" ) + else + Client:Message( 'You are unloading the ' .. Task.CargoType .. ' ' .. Task.TEXT[2] .. ' within the landing zone. Wait until the helicopter is ' .. Task.TEXT[3] .. '.', + "Command" ) + end + Task:RemoveCargoMenus( Client ) +end + +function STAGEUNLOAD:Executing( Mission, Client, Task ) + self:F() + env.info( 'STAGEUNLOAD:Executing() Task.Cargo.CargoName = ' .. Task.Cargo.CargoName ) + + local TargetZoneName + + if Task.TargetZoneName then + TargetZoneName = Task.TargetZoneName + else + TargetZoneName = Task.CurrentLandingZoneName + end + + if Task.Cargo:UnLoad( Client, TargetZoneName ) then + Task.ExecuteStage = _TransportExecuteStage.SUCCESS + if Mission.MissionReportFlash then + Client:ShowCargo() + end + end +end + +--- Validate UnLoading +-- @param #STAGEUNLOAD self +-- @param Mission#MISSION Mission +-- @param Client#CLIENT Client +-- @param Task#TASK Task +function STAGEUNLOAD:Validate( Mission, Client, Task ) + self:F() + env.info( 'STAGEUNLOAD:Validate()' ) + + if routines.IsUnitNearZonesRadius( Client:GetClientGroupDCSUnit(), Task.CurrentLandingZoneName, 500 ) then + else + Task.ExecuteStage = _TransportExecuteStage.FAILED + Task:RemoveCargoMenus( Client ) + if Client:IsMultiSeated() then + Client:Message( 'The ' .. Task.CargoType .. " haven't been successfully " .. Task.TEXT[3] .. ' within the landing zone. Task and mission has failed.', + _TransportStageMsgTime.DONE, "Co-Pilot" ) + else + Client:Message( 'The ' .. Task.CargoType .. " haven't been successfully " .. Task.TEXT[3] .. ' within the landing zone. Task and mission has failed.', + _TransportStageMsgTime.DONE, "Command" ) + end + return 1 + end + + if not Client:GetClientGroupDCSUnit():inAir() then + else + Task.ExecuteStage = _TransportExecuteStage.FAILED + Task:RemoveCargoMenus( Client ) + if Client:IsMultiSeated() then + Client:Message( 'The ' .. Task.CargoType .. " haven't been successfully " .. Task.TEXT[3] .. ' within the landing zone. Task and mission has failed.', + _TransportStageMsgTime.DONE, "Co-Pilot" ) + else + Client:Message( 'The ' .. Task.CargoType .. " haven't been successfully " .. Task.TEXT[3] .. ' within the landing zone. Task and mission has failed.', + _TransportStageMsgTime.DONE, "Command" ) + end + return 1 + end + + if Task.ExecuteStage == _TransportExecuteStage.SUCCESS then + if Client:IsMultiSeated() then + Client:Message( 'The ' .. Task.CargoType .. ' have been sucessfully ' .. Task.TEXT[3] .. ' within the landing zone.', _TransportStageMsgTime.DONE, "Co-Pilot" ) + else + Client:Message( 'The ' .. Task.CargoType .. ' have been sucessfully ' .. Task.TEXT[3] .. ' within the landing zone.', _TransportStageMsgTime.DONE, "Command" ) + end + Task:RemoveCargoMenus( Client ) + Task.MissionTask:AddGoalCompletion( Task.MissionTask.GoalVerb, Task.CargoName, 1 ) -- We set the cargo as one more goal completed in the mission. + return 1 + end + + return 1 +end + +STAGELOAD = { + ClassName = "STAGELOAD", + MSG = { ID = "Load", TIME = 10 }, + Name = "Load" +} + +function STAGELOAD:New() + local self = BASE:Inherit( self, STAGE:New() ) + self:F() + self.StageType = 'CLIENT' + return self +end + +function STAGELOAD:Execute( Mission, Client, Task ) + self:F() + + if not Task.IsSlingLoad then + + local Host = "Command" + if Task.HostUnitName then + Host = Task.HostUnitName .. " (" .. Task.HostUnitTypeName .. ")" + else + if Client:IsMultiSeated() then + Host = "Co-Pilot" + end + end + + Client:Message( 'The ' .. Task.CargoType .. ' are being ' .. Task.TEXT[2] .. ' within the landing zone. Wait until the helicopter is ' .. Task.TEXT[3] .. '.', + _TransportStageMsgTime.EXECUTING, Host ) + + -- Route the cargo to the Carrier + + Task.Cargo:OnBoard( Client, Task.CurrentCargoZone, Task.OnBoardSide ) + Task.ExecuteStage = _TransportExecuteStage.EXECUTING + else + Task.ExecuteStage = _TransportExecuteStage.EXECUTING + end +end + +function STAGELOAD:Executing( Mission, Client, Task ) + self:F() + + -- If the Cargo is ready to be loaded, load it into the Client. + + local Host = "Command" + if Task.HostUnitName then + Host = Task.HostUnitName .. " (" .. Task.HostUnitTypeName .. ")" + else + if Client:IsMultiSeated() then + Host = "Co-Pilot" + end + end + + if not Task.IsSlingLoad then + self:T( Task.Cargo.CargoName) + + if Task.Cargo:OnBoarded( Client, Task.CurrentCargoZone ) then + + -- Load the Cargo onto the Client + Task.Cargo:Load( Client ) + + -- Message to the pilot that cargo has been loaded. + Client:Message( "The cargo " .. Task.Cargo.CargoName .. " has been loaded in our helicopter.", + 20, Host ) + Task.ExecuteStage = _TransportExecuteStage.SUCCESS + + Client:ShowCargo() + end + else + Client:Message( "Hook the " .. Task.CargoNames .. " onto the helicopter " .. Task.TEXT[3] .. " within the landing zone.", + _TransportStageMsgTime.EXECUTING, Host ) + for CargoID, Cargo in pairs( CARGOS ) do + self:T( "Cargo.CargoName = " .. Cargo.CargoName ) + + if Cargo:IsSlingLoad() then + local CargoStatic = StaticObject.getByName( Cargo.CargoStaticName ) + if CargoStatic then + self:T( "Cargo is found in the DCS simulator.") + local CargoStaticPosition = CargoStatic:getPosition().p + self:T( "Cargo Position x = " .. CargoStaticPosition.x .. ", y = " .. CargoStaticPosition.y .. ", z = " .. CargoStaticPosition.z ) + local CargoStaticHeight = routines.GetUnitHeight( CargoStatic ) + if CargoStaticHeight > 5 then + self:T( "Cargo is airborne.") + Cargo:StatusLoaded() + Task.Cargo = Cargo + Client:Message( 'The Cargo has been successfully hooked onto the helicopter and is now being sling loaded. Fly outside the landing zone.', + self.MSG.TIME, Host ) + Task.ExecuteStage = _TransportExecuteStage.SUCCESS + break + end + else + self:T( "Cargo not found in the DCS simulator." ) + end + end + end + end + +end + +function STAGELOAD:Validate( Mission, Client, Task ) + self:F() + + self:T( "Task.CurrentLandingZoneName = " .. Task.CurrentLandingZoneName ) + + local Host = "Command" + if Task.HostUnitName then + Host = Task.HostUnitName .. " (" .. Task.HostUnitTypeName .. ")" + else + if Client:IsMultiSeated() then + Host = "Co-Pilot" + end + end + + if not Task.IsSlingLoad then + if not routines.IsUnitNearZonesRadius( Client:GetClientGroupDCSUnit(), Task.CurrentLandingZoneName, 500 ) then + Task:RemoveCargoMenus( Client ) + Task.ExecuteStage = _TransportExecuteStage.FAILED + Task.CargoName = nil + Client:Message( "The " .. Task.CargoType .. " loading has been aborted. You flew outside the pick-up zone while loading. ", + self.MSG.TIME, Host ) + self:T( -1 ) + return -1 + end + + local DCSUnitVelocityVec3 = Client:GetClientGroupDCSUnit():getVelocity() + local DCSUnitVelocity = ( DCSUnitVelocityVec3.x ^2 + DCSUnitVelocityVec3.y ^2 + DCSUnitVelocityVec3.z ^2 ) ^ 0.5 + + local DCSUnitPointVec3 = Client:GetClientGroupDCSUnit():getPoint() + local LandHeight = land.getHeight( { x = DCSUnitPointVec3.x, y = DCSUnitPointVec3.z } ) + local DCSUnitHeight = DCSUnitPointVec3.y - LandHeight + + self:T( { Task.IsLandingRequired, Client:GetClientGroupDCSUnit():inAir() } ) + if Task.IsLandingRequired and Task.IsInAirTestRequired == true and Client:GetClientGroupDCSUnit():inAir() then + Task:RemoveCargoMenus( Client ) + Task.ExecuteStage = _TransportExecuteStage.FAILED + Task.CargoName = nil + Client:Message( "The " .. Task.CargoType .. " loading has been aborted. Re-start the " .. Task.TEXT[3] .. " process. Don't fly outside the pick-up zone.", + self.MSG.TIME, Host ) + self:T( -1 ) + return -1 + end + + self:T( { DCSUnitVelocity, DCSUnitHeight, LandHeight, Task.CurrentCargoZone.SignalHeight } ) + if Task.IsLandingRequired and Task.IsInAirTestRequired == false and DCSUnitVelocity >= 2 and DCSUnitHeight >= Task.CurrentCargoZone.SignalHeight then + Task:RemoveCargoMenus( Client ) + Task.ExecuteStage = _TransportExecuteStage.FAILED + Task.CargoName = nil + Client:Message( "The " .. Task.CargoType .. " loading has been aborted. Re-start the " .. Task.TEXT[3] .. " process. Don't fly outside the pick-up zone.", + self.MSG.TIME, Host ) + self:T( -1 ) + return -1 + end + + if Task.ExecuteStage == _TransportExecuteStage.SUCCESS then + Task:RemoveCargoMenus( Client ) + Client:Message( "Good Job. The " .. Task.CargoType .. " has been sucessfully " .. Task.TEXT[3] .. " within the landing zone.", + self.MSG.TIME, Host ) + Task.MissionTask:AddGoalCompletion( Task.MissionTask.GoalVerb, Task.CargoName, 1 ) + self:T( 1 ) + return 1 + end + + else + if Task.ExecuteStage == _TransportExecuteStage.SUCCESS then + CargoStatic = StaticObject.getByName( Task.Cargo.CargoStaticName ) + if CargoStatic and not routines.IsStaticInZones( CargoStatic, Task.CurrentLandingZoneName ) then + Client:Message( "Good Job. The " .. Task.CargoType .. " has been sucessfully " .. Task.TEXT[3] .. " and flown outside of the landing zone.", + self.MSG.TIME, Host ) + Task.MissionTask:AddGoalCompletion( Task.MissionTask.GoalVerb, Task.Cargo.CargoName, 1 ) + self:T( 1 ) + return 1 + end + end + + end + + + self:T( 0 ) + return 0 +end + + +STAGEDONE = { + ClassName = "STAGEDONE", + MSG = { ID = "Done", TIME = 10 }, + Name = "Done" +} + +function STAGEDONE:New() + local self = BASE:Inherit( self, STAGE:New() ) + self:F() + self.StageType = 'AI' + return self +end + +function STAGEDONE:Execute( Mission, Client, Task ) + self:F() + +end + +function STAGEDONE:Validate( Mission, Client, Task ) + self:F() + + Task:Done() + + return 0 +end + +STAGEARRIVE = { + ClassName = "STAGEARRIVE", + MSG = { ID = "Arrive", TIME = 10 }, + Name = "Arrive" +} + +function STAGEARRIVE:New() + local self = BASE:Inherit( self, STAGE:New() ) + self:F() + self.StageType = 'CLIENT' + return self +end + + +--- Execute Arrival +-- @param #STAGEARRIVE self +-- @param Mission#MISSION Mission +-- @param Client#CLIENT Client +-- @param Task#TASK Task +function STAGEARRIVE:Execute( Mission, Client, Task ) + self:F() + + if Client:IsMultiSeated() then + Client:Message( 'We have arrived at ' .. Task.CurrentLandingZoneName .. ".", self.MSG.TIME, "Co-Pilot" ) + else + Client:Message( 'We have arrived at ' .. Task.CurrentLandingZoneName .. ".", self.MSG.TIME, "Command" ) + end + +end + +function STAGEARRIVE:Validate( Mission, Client, Task ) + self:F() + + Task.CurrentLandingZoneID = routines.IsUnitInZones( Client:GetClientGroupDCSUnit(), Task.LandingZones ) + if ( Task.CurrentLandingZoneID ) then + else + return -1 + end + + return 1 +end + +STAGEGROUPSDESTROYED = { + ClassName = "STAGEGROUPSDESTROYED", + DestroyGroupSize = -1, + Frequency = STAGE.FREQUENCY.REPEAT, + MSG = { ID = "DestroyGroup", TIME = 10 }, + Name = "GroupsDestroyed" +} + +function STAGEGROUPSDESTROYED:New() + local self = BASE:Inherit( self, STAGE:New() ) + self:F() + self.StageType = 'AI' + return self +end + +--function STAGEGROUPSDESTROYED:Execute( Mission, Client, Task ) +-- +-- Client:Message( 'Task: Still ' .. DestroyGroupSize .. " of " .. Task.DestroyGroupCount .. " " .. Task.DestroyGroupType .. " to be destroyed!", self.MSG.TIME, Mission.Name .. "/Stage" ) +-- +--end + +function STAGEGROUPSDESTROYED:Validate( Mission, Client, Task ) + self:F() + + if Task.MissionTask:IsGoalReached() then + return 1 + else + return 0 + end +end + +function STAGEGROUPSDESTROYED:Execute( Mission, Client, Task ) + self:F() + self:T( { Task.ClassName, Task.Destroyed } ) + --env.info( 'Event Table Task = ' .. tostring(Task) ) + +end + + + + + + + + + + + + + +--[[ + _TransportStage: Defines the different stages of which of transport missions can be in. This table is internal and is used to control the sequence of messages, actions and flow. + + - _TransportStage.START + - _TransportStage.ROUTE + - _TransportStage.LAND + - _TransportStage.EXECUTE + - _TransportStage.DONE + - _TransportStage.REMOVE +--]] +_TransportStage = { + HOLD = "HOLD", + START = "START", + ROUTE = "ROUTE", + LANDING = "LANDING", + LANDED = "LANDED", + EXECUTING = "EXECUTING", + LOAD = "LOAD", + UNLOAD = "UNLOAD", + DONE = "DONE", + NEXT = "NEXT" +} + +_TransportStageMsgTime = { + HOLD = 10, + START = 60, + ROUTE = 5, + LANDING = 10, + LANDED = 30, + EXECUTING = 30, + LOAD = 30, + UNLOAD = 30, + DONE = 30, + NEXT = 0 +} + +_TransportStageTime = { + HOLD = 10, + START = 5, + ROUTE = 5, + LANDING = 1, + LANDED = 1, + EXECUTING = 5, + LOAD = 5, + UNLOAD = 5, + DONE = 1, + NEXT = 0 +} + +_TransportStageAction = { + REPEAT = -1, + NONE = 0, + ONCE = 1 +} +--- The TASK Classes define major end-to-end activities within a MISSION. The TASK Class is the Master Class to orchestrate these activities. From this class, many concrete TASK classes are inherited. +-- @module TASK + + + + + + + +--- The TASK class +-- @type TASK +-- @extends Base#BASE +TASK = { + + -- Defines the different signal types with a Task. + SIGNAL = { + COLOR = { + RED = { ID = 1, COLOR = trigger.smokeColor.Red, TEXT = "A red" }, + GREEN = { ID = 2, COLOR = trigger.smokeColor.Green, TEXT = "A green" }, + BLUE = { ID = 3, COLOR = trigger.smokeColor.Blue, TEXT = "A blue" }, + WHITE = { ID = 4, COLOR = trigger.smokeColor.White, TEXT = "A white" }, + ORANGE = { ID = 5, COLOR = trigger.smokeColor.Orange, TEXT = "An orange" } + }, + TYPE = { + SMOKE = { ID = 1, TEXT = "smoke" }, + FLARE = { ID = 2, TEXT = "flare" } + } + }, + ClassName = "TASK", + Mission = {}, -- Owning mission of the Task + Name = '', + Stages = {}, + Stage = {}, + Cargos = { + InitCargos = {}, + LoadCargos = {} + }, + LandingZones = { + LandingZoneNames = {}, + LandingZones = {} + }, + ActiveStage = 0, + TaskDone = false, + TaskFailed = false, + GoalTasks = {} +} + +--- Instantiates a new TASK Base. Should never be used. Interface Class. +-- @return TASK +function TASK:New() + local self = BASE:Inherit( self, BASE:New() ) + self:F() + + -- assign Task default values during construction + self.TaskBriefing = "Task: No Task." + self.Time = timer.getTime() + self.ExecuteStage = _TransportExecuteStage.NONE + + return self +end + +function TASK:SetStage( StageSequenceIncrement ) + self:F( { StageSequenceIncrement } ) + + local Valid = false + if StageSequenceIncrement ~= 0 then + self.ActiveStage = self.ActiveStage + StageSequenceIncrement + if 1 <= self.ActiveStage and self.ActiveStage <= #self.Stages then + self.Stage = self.Stages[self.ActiveStage] + self:T( { self.Stage.Name } ) + self.Frequency = self.Stage.Frequency + Valid = true + else + Valid = false + env.info( "TASK:SetStage() self.ActiveStage is smaller or larger than self.Stages array. self.ActiveStage = " .. self.ActiveStage ) + end + end + self.Time = timer.getTime() + return Valid +end + +function TASK:Init() + self:F() + self.ActiveStage = 0 + self:SetStage(1) + self.TaskDone = false + self.TaskFailed = false +end + + +--- Get progress of a TASK. +-- @return string GoalsText +function TASK:GetGoalProgress() + self:F2() + + local GoalsText = "" + for GoalVerb, GoalVerbData in pairs( self.GoalTasks ) do + local Goals = self:GetGoalCompletion( GoalVerb ) + if Goals and Goals ~= "" then + Goals = '(' .. Goals .. ')' + else + Goals = '( - )' + end + GoalsText = GoalsText .. GoalVerb .. ': ' .. self:GetGoalCount(GoalVerb) .. ' goals ' .. Goals .. ' of ' .. self:GetGoalTotal(GoalVerb) .. ' goals completed (' .. self:GetGoalPercentage(GoalVerb) .. '%); ' + end + + if GoalsText == "" then + GoalsText = "( - )" + end + + return GoalsText +end + +--- Show progress of a TASK. +-- @param MISSION Mission Group structure describing the Mission. +-- @param CLIENT Client Group structure describing the Client. +function TASK:ShowGoalProgress( Mission, Client ) + self:F2() + + local GoalsText = "" + for GoalVerb, GoalVerbData in pairs( self.GoalTasks ) do + if Mission:IsCompleted() then + else + local Goals = self:GetGoalCompletion( GoalVerb ) + if Goals and Goals ~= "" then + else + Goals = "-" + end + GoalsText = GoalsText .. self:GetGoalProgress() + end + end + + if Mission.MissionReportFlash or Mission.MissionReportShow then + Client:Message( GoalsText, 10, "Mission Command: Task Status", 30, "Task status" ) + end +end + +--- Sets a TASK to status Done. +function TASK:Done() + self:F2() + self.TaskDone = true +end + +--- Returns if a TASK is done. +-- @return bool +function TASK:IsDone() + self:F2( self.TaskDone ) + return self.TaskDone +end + +--- Sets a TASK to status failed. +function TASK:Failed() + self:F() + self.TaskFailed = true +end + +--- Returns if a TASk has failed. +-- @return bool +function TASK:IsFailed() + self:F2( self.TaskFailed ) + return self.TaskFailed +end + +function TASK:Reset( Mission, Client ) + self:F2() + self.ExecuteStage = _TransportExecuteStage.NONE +end + +--- Returns the Goals of a TASK +-- @return @table Goals +function TASK:GetGoals() + return self.GoalTasks +end + +--- Returns if a TASK has Goal(s). +-- @param #TASK self +-- @param #string GoalVerb is the name of the Goal of the TASK. +-- @return bool +function TASK:Goal( GoalVerb ) + self:F2( { GoalVerb } ) + if not GoalVerb then + GoalVerb = self.GoalVerb + end + self:T2( {self.GoalTasks[GoalVerb] } ) + if self.GoalTasks[GoalVerb] and self.GoalTasks[GoalVerb].GoalTotal > 0 then + return true + else + return false + end +end + +--- Sets the total Goals to be achieved of the Goal Name +-- @param number GoalTotal is the number of times the GoalVerb needs to be achieved. +-- @param ?string GoalVerb is the name of the Goal of the TASK. If the GoalVerb is not given, then the default TASK Goals will be used. +function TASK:SetGoalTotal( GoalTotal, GoalVerb ) + self:F2( { GoalTotal, GoalVerb } ) + + if not GoalVerb then + GoalVerb = self.GoalVerb + end + self.GoalTasks[GoalVerb] = {} + self.GoalTasks[GoalVerb].Goals = {} + self.GoalTasks[GoalVerb].GoalTotal = GoalTotal + self.GoalTasks[GoalVerb].GoalCount = 0 + return self +end + +--- Gets the total of Goals to be achieved within the TASK of the GoalVerb. +-- @param ?string GoalVerb is the name of the Goal of the TASK. If the GoalVerb is not given, then the default TASK Goals will be used. +function TASK:GetGoalTotal( GoalVerb ) + self:F2( { GoalVerb } ) + if not GoalVerb then + GoalVerb = self.GoalVerb + end + if self:Goal( GoalVerb ) then + return self.GoalTasks[GoalVerb].GoalTotal + else + return 0 + end +end + +--- Sets the total of Goals currently achieved within the TASK of the GoalVerb. +-- @param number GoalCount is the total number of Goals achieved within the TASK. +-- @param ?string GoalVerb is the name of the Goal of the TASK. If the GoalVerb is not given, then the default TASK Goals will be used. +-- @return TASK +function TASK:SetGoalCount( GoalCount, GoalVerb ) + self:F2() + if not GoalVerb then + GoalVerb = self.GoalVerb + end + if self:Goal( GoalVerb) then + self.GoalTasks[GoalVerb].GoalCount = GoalCount + end + return self +end + +--- Increments the total of Goals currently achieved within the TASK of the GoalVerb, with the given GoalCountIncrease. +-- @param number GoalCountIncrease is the number of new Goals achieved within the TASK. +-- @param ?string GoalVerb is the name of the Goal of the TASK. If the GoalVerb is not given, then the default TASK Goals will be used. +-- @return TASK +function TASK:IncreaseGoalCount( GoalCountIncrease, GoalVerb ) + self:F2( { GoalCountIncrease, GoalVerb } ) + if not GoalVerb then + GoalVerb = self.GoalVerb + end + if self:Goal( GoalVerb) then + self.GoalTasks[GoalVerb].GoalCount = self.GoalTasks[GoalVerb].GoalCount + GoalCountIncrease + end + return self +end + +--- Gets the total of Goals currently achieved within the TASK of the GoalVerb. +-- @param ?string GoalVerb is the name of the Goal of the TASK. If the GoalVerb is not given, then the default TASK Goals will be used. +-- @return TASK +function TASK:GetGoalCount( GoalVerb ) + self:F2() + if not GoalVerb then + GoalVerb = self.GoalVerb + end + if self:Goal( GoalVerb ) then + return self.GoalTasks[GoalVerb].GoalCount + else + return 0 + end +end + +--- Gets the percentage of Goals currently achieved within the TASK of the GoalVerb. +-- @param ?string GoalVerb is the name of the Goal of the TASK. If the GoalVerb is not given, then the default TASK Goals will be used. +-- @return TASK +function TASK:GetGoalPercentage( GoalVerb ) + self:F2() + if not GoalVerb then + GoalVerb = self.GoalVerb + end + if self:Goal( GoalVerb ) then + return math.floor( self:GetGoalCount( GoalVerb ) / self:GetGoalTotal( GoalVerb ) * 100 + .5 ) + else + return 100 + end +end + +--- Returns if all the Goals of the TASK were achieved. +-- @return bool +function TASK:IsGoalReached() + self:F2() + + local GoalReached = true + + for GoalVerb, Goals in pairs( self.GoalTasks ) do + self:T2( { "GoalVerb", GoalVerb } ) + if self:Goal( GoalVerb ) then + local GoalToDo = self:GetGoalTotal( GoalVerb ) - self:GetGoalCount( GoalVerb ) + self:T2( "GoalToDo = " .. GoalToDo ) + if GoalToDo <= 0 then + else + GoalReached = false + break + end + else + break + end + end + + self:T( { GoalReached, self.GoalTasks } ) + return GoalReached +end + +--- Adds an Additional Goal for the TASK to be achieved. +-- @param string GoalVerb is the name of the Goal of the TASK. +-- @param string GoalTask is a text describing the Goal of the TASK to be achieved. +-- @param number GoalIncrease is a number by which the Goal achievement is increasing. +function TASK:AddGoalCompletion( GoalVerb, GoalTask, GoalIncrease ) + self:F2( { GoalVerb, GoalTask, GoalIncrease } ) + + if self:Goal( GoalVerb ) then + self.GoalTasks[GoalVerb].Goals[#self.GoalTasks[GoalVerb].Goals+1] = GoalTask + self.GoalTasks[GoalVerb].GoalCount = self.GoalTasks[GoalVerb].GoalCount + GoalIncrease + end + return self +end + +--- Returns if the additional Goal for the TASK was completed. +-- @param ?string GoalVerb is the name of the Goal of the TASK. If the GoalVerb is not given, then the default TASK Goals will be used. +-- @return string Goals +function TASK:GetGoalCompletion( GoalVerb ) + self:F2( { GoalVerb } ) + + if self:Goal( GoalVerb ) then + local Goals = "" + for GoalID, GoalName in pairs( self.GoalTasks[GoalVerb].Goals ) do Goals = Goals .. GoalName .. " + " end + return Goals:gsub(" + $", ""), self.GoalTasks[GoalVerb].GoalCount + end +end + +function TASK.MenuAction( Parameter ) + Parameter.ReferenceTask.ExecuteStage = _TransportExecuteStage.EXECUTING + Parameter.ReferenceTask.Cargo = Parameter.CargoTask +end + +function TASK:StageExecute() + self:F() + + local Execute = false + + if self.Frequency == STAGE.FREQUENCY.REPEAT then + Execute = true + elseif self.Frequency == STAGE.FREQUENCY.NONE then + Execute = false + elseif self.Frequency >= 0 then + Execute = true + self.Frequency = self.Frequency - 1 + end + + return Execute + +end + +--- Work function to set signal events within a TASK. +function TASK:AddSignal( SignalUnitNames, SignalType, SignalColor, SignalHeight ) + self:F() + + local Valid = true + + if Valid then + if type( SignalUnitNames ) == "table" then + self.LandingZoneSignalUnitNames = SignalUnitNames + else + self.LandingZoneSignalUnitNames = { SignalUnitNames } + end + self.LandingZoneSignalType = SignalType + self.LandingZoneSignalColor = SignalColor + self.Signalled = false + if SignalHeight ~= nil then + self.LandingZoneSignalHeight = SignalHeight + else + self.LandingZoneSignalHeight = 0 + end + + if self.TaskBriefing then + self.TaskBriefing = self.TaskBriefing .. " " .. SignalColor.TEXT .. " " .. SignalType.TEXT .. " will be fired when entering the landing zone." + end + end + + return Valid +end + +--- When the CLIENT is approaching the landing zone, a RED SMOKE will be fired by an optional SignalUnitNames. +-- @param table|string SignalUnitNames Name of the Group that will fire the signal. If this parameter is NIL, the signal will be fired from the center of the landing zone. +-- @param number SignalHeight Altitude that the Signal should be fired... +function TASK:AddSmokeRed( SignalUnitNames, SignalHeight ) + self:F() + self:AddSignal( SignalUnitNames, TASK.SIGNAL.TYPE.SMOKE, TASK.SIGNAL.COLOR.RED, SignalHeight ) +end + +--- When the CLIENT is approaching the landing zone, a GREEN SMOKE will be fired by an optional SignalUnitNames. +-- @param table|string SignalUnitNames Name of the Group that will fire the signal. If this parameter is NIL, the signal will be fired from the center of the landing zone. +-- @param number SignalHeight Altitude that the Signal should be fired... +function TASK:AddSmokeGreen( SignalUnitNames, SignalHeight ) + self:F() + self:AddSignal( SignalUnitNames, TASK.SIGNAL.TYPE.SMOKE, TASK.SIGNAL.COLOR.GREEN, SignalHeight ) +end + +--- When the CLIENT is approaching the landing zone, a BLUE SMOKE will be fired by an optional SignalUnitNames. +-- @param table|string SignalUnitNames Name of the Group that will fire the signal. If this parameter is NIL, the signal will be fired from the center of the landing zone. +-- @param number SignalHeight Altitude that the Signal should be fired... +function TASK:AddSmokeBlue( SignalUnitNames, SignalHeight ) + self:F() + self:AddSignal( SignalUnitNames, TASK.SIGNAL.TYPE.SMOKE, TASK.SIGNAL.COLOR.BLUE, SignalHeight ) +end + +--- When the CLIENT is approaching the landing zone, a WHITE SMOKE will be fired by an optional SignalUnitNames. +-- @param table|string SignalUnitNames Name of the Group that will fire the signal. If this parameter is NIL, the signal will be fired from the center of the landing zone. +-- @param number SignalHeight Altitude that the Signal should be fired... +function TASK:AddSmokeWhite( SignalUnitNames, SignalHeight ) + self:F() + self:AddSignal( SignalUnitNames, TASK.SIGNAL.TYPE.SMOKE, TASK.SIGNAL.COLOR.WHITE, SignalHeight ) +end + +--- When the CLIENT is approaching the landing zone, an ORANGE SMOKE will be fired by an optional SignalUnitNames. +-- @param table|string SignalUnitNames Name of the Group that will fire the signal. If this parameter is NIL, the signal will be fired from the center of the landing zone. +-- @param number SignalHeight Altitude that the Signal should be fired... +function TASK:AddSmokeOrange( SignalUnitNames, SignalHeight ) + self:F() + self:AddSignal( SignalUnitNames, TASK.SIGNAL.TYPE.SMOKE, TASK.SIGNAL.COLOR.ORANGE, SignalHeight ) +end + +--- When the CLIENT is approaching the landing zone, a RED FLARE will be fired by an optional SignalUnitNames. +-- @param table|string SignalUnitNames Name of the Group that will fire the signal. If this parameter is NIL, the signal will be fired from the center of the landing zone. +-- @param number SignalHeight Altitude that the Signal should be fired... +function TASK:AddFlareRed( SignalUnitNames, SignalHeight ) + self:F() + self:AddSignal( SignalUnitNames, TASK.SIGNAL.TYPE.FLARE, TASK.SIGNAL.COLOR.RED, SignalHeight ) +end + +--- When the CLIENT is approaching the landing zone, a GREEN FLARE will be fired by an optional SignalUnitNames. +-- @param table|string SignalUnitNames Name of the Group that will fire the signal. If this parameter is NIL, the signal will be fired from the center of the landing zone. +-- @param number SignalHeight Altitude that the Signal should be fired... +function TASK:AddFlareGreen( SignalUnitNames, SignalHeight ) + self:F() + self:AddSignal( SignalUnitNames, TASK.SIGNAL.TYPE.FLARE, TASK.SIGNAL.COLOR.GREEN, SignalHeight ) +end + +--- When the CLIENT is approaching the landing zone, a BLUE FLARE will be fired by an optional SignalUnitNames. +-- @param table|string SignalUnitNames Name of the Group that will fire the signal. If this parameter is NIL, the signal will be fired from the center of the landing zone. +-- @param number SignalHeight Altitude that the Signal should be fired... +function TASK:AddFlareBlue( SignalUnitNames, SignalHeight ) + self:F() + self:AddSignal( SignalUnitNames, TASK.SIGNAL.TYPE.FLARE, TASK.SIGNAL.COLOR.BLUE, SignalHeight ) +end + +--- When the CLIENT is approaching the landing zone, a WHITE FLARE will be fired by an optional SignalUnitNames. +-- @param table|string SignalUnitNames Name of the Group that will fire the signal. If this parameter is NIL, the signal will be fired from the center of the landing zone. +-- @param number SignalHeight Altitude that the Signal should be fired... +function TASK:AddFlareWhite( SignalUnitNames, SignalHeight ) + self:F() + self:AddSignal( SignalUnitNames, TASK.SIGNAL.TYPE.FLARE, TASK.SIGNAL.COLOR.WHITE, SignalHeight ) +end + +--- When the CLIENT is approaching the landing zone, an ORANGE FLARE will be fired by an optional SignalUnitNames. +-- @param table|string SignalUnitNames Name of the Group that will fire the signal. If this parameter is NIL, the signal will be fired from the center of the landing zone. +-- @param number SignalHeight Altitude that the Signal should be fired... +function TASK:AddFlareOrange( SignalUnitNames, SignalHeight ) + self:F() + self:AddSignal( SignalUnitNames, TASK.SIGNAL.TYPE.FLARE, TASK.SIGNAL.COLOR.ORANGE, SignalHeight ) +end +--- A GOHOMETASK orchestrates the travel back to the home base, which is a specific zone defined within the ME. +-- @module GOHOMETASK + +--- The GOHOMETASK class +-- @type +GOHOMETASK = { + ClassName = "GOHOMETASK", +} + +--- Creates a new GOHOMETASK. +-- @param table{string,...}|string LandingZones Table of Landing Zone names where Home(s) are located. +-- @return GOHOMETASK +function GOHOMETASK:New( LandingZones ) + local self = BASE:Inherit( self, TASK:New() ) + self:F( { LandingZones } ) + local Valid = true + + Valid = routines.ValidateZone( LandingZones, "LandingZones", Valid ) + + if Valid then + self.Name = 'Fly Home' + self.TaskBriefing = "Task: Fly back to your home base. Your co-pilot will provide you with the directions (required flight angle in degrees) and the distance (in km) to your home base." + if type( LandingZones ) == "table" then + self.LandingZones = LandingZones + else + self.LandingZones = { LandingZones } + end + self.Stages = { STAGEBRIEF:New(), STAGESTART:New(), STAGEROUTE:New(), STAGEARRIVE:New(), STAGEDONE:New() } + self.SetStage( self, 1 ) + end + + return self +end +--- A DESTROYBASETASK will monitor the destruction of Groups and Units. This is a BASE class, other classes are derived from this class. +-- @module DESTROYBASETASK +-- @see DESTROYGROUPSTASK +-- @see DESTROYUNITTYPESTASK +-- @see DESTROY_RADARS_TASK + + + +--- The DESTROYBASETASK class +-- @type DESTROYBASETASK +DESTROYBASETASK = { + ClassName = "DESTROYBASETASK", + Destroyed = 0, + GoalVerb = "Destroy", + DestroyPercentage = 100, +} + +--- Creates a new DESTROYBASETASK. +-- @param #DESTROYBASETASK self +-- @param #string DestroyGroupType Text describing the group to be destroyed. f.e. "Radar Installations", "Ships", "Vehicles", "Command Centers". +-- @param #string DestroyUnitType Text describing the unit types to be destroyed. f.e. "SA-6", "Row Boats", "Tanks", "Tents". +-- @param #list<#string> DestroyGroupPrefixes Table of Prefixes of the Groups to be destroyed before task is completed. +-- @param #number DestroyPercentage defines the %-tage that needs to be destroyed to achieve mission success. eg. If in the Group there are 10 units, then a value of 75 would require 8 units to be destroyed from the Group to complete the @{TASK}. +-- @return DESTROYBASETASK +function DESTROYBASETASK:New( DestroyGroupType, DestroyUnitType, DestroyGroupPrefixes, DestroyPercentage ) + local self = BASE:Inherit( self, TASK:New() ) + self:F() + + self.Name = 'Destroy' + self.Destroyed = 0 + self.DestroyGroupPrefixes = DestroyGroupPrefixes + self.DestroyGroupType = DestroyGroupType + self.DestroyUnitType = DestroyUnitType + if DestroyPercentage then + self.DestroyPercentage = DestroyPercentage + end + self.TaskBriefing = "Task: Destroy " .. DestroyGroupType .. "." + self.Stages = { STAGEBRIEF:New(), STAGESTART:New(), STAGEGROUPSDESTROYED:New(), STAGEDONE:New() } + self.SetStage( self, 1 ) + + return self +end + +--- Handle the S_EVENT_DEAD events to validate the destruction of units for the task monitoring. +-- @param #DESTROYBASETASK self +-- @param Event#EVENTDATA Event structure of MOOSE. +function DESTROYBASETASK:EventDead( Event ) + self:F( { Event } ) + + if Event.IniDCSUnit then + local DestroyUnit = Event.IniDCSUnit + local DestroyUnitName = Event.IniDCSUnitName + local DestroyGroup = Event.IniDCSGroup + local DestroyGroupName = Event.IniDCSGroupName + + --TODO: I need to fix here if 2 groups in the mission have a similar name with GroupPrefix equal, then i should differentiate for which group the goal was reached! + --I may need to test if for the goalverb that group goal was reached or something. Need to think about it a bit more ... + local UnitsDestroyed = 0 + for DestroyGroupPrefixID, DestroyGroupPrefix in pairs( self.DestroyGroupPrefixes ) do + self:T( DestroyGroupPrefix ) + if string.find( DestroyGroupName, DestroyGroupPrefix, 1, true ) then + self:T( BASE:Inherited(self).ClassName ) + UnitsDestroyed = self:ReportGoalProgress( DestroyGroup, DestroyUnit ) + self:T( UnitsDestroyed ) + end + end + + self:T( { UnitsDestroyed } ) + self:IncreaseGoalCount( UnitsDestroyed, self.GoalVerb ) + end + +end + +--- Validate task completeness of DESTROYBASETASK. +-- @param DestroyGroup Group structure describing the group to be evaluated. +-- @param DestroyUnit Unit structure describing the Unit to be evaluated. +function DESTROYBASETASK:ReportGoalProgress( DestroyGroup, DestroyUnit ) + self:F() + + return 0 +end +--- DESTROYGROUPSTASK +-- @module DESTROYGROUPSTASK + + + +--- The DESTROYGROUPSTASK class +-- @type +DESTROYGROUPSTASK = { + ClassName = "DESTROYGROUPSTASK", + GoalVerb = "Destroy Groups", +} + +--- Creates a new DESTROYGROUPSTASK. +-- @param #DESTROYGROUPSTASK self +-- @param #string DestroyGroupType String describing the group to be destroyed. +-- @param #string DestroyUnitType String describing the unit to be destroyed. +-- @param #list<#string> DestroyGroupNames Table of string containing the name of the groups to be destroyed before task is completed. +-- @param #number DestroyPercentage defines the %-tage that needs to be destroyed to achieve mission success. eg. If in the Group there are 10 units, then a value of 75 would require 8 units to be destroyed from the Group to complete the @{TASK}. +---@return DESTROYGROUPSTASK +function DESTROYGROUPSTASK:New( DestroyGroupType, DestroyUnitType, DestroyGroupNames, DestroyPercentage ) + local self = BASE:Inherit( self, DESTROYBASETASK:New( DestroyGroupType, DestroyUnitType, DestroyGroupNames, DestroyPercentage ) ) + self:F() + + self.Name = 'Destroy Groups' + self.GoalVerb = "Destroy " .. DestroyGroupType + + _EVENTDISPATCHER:OnDead( self.EventDead , self ) + _EVENTDISPATCHER:OnCrash( self.EventDead , self ) + + return self +end + +--- Report Goal Progress. +-- @param #DESTROYGROUPSTASK self +-- @param DCSGroup#Group DestroyGroup Group structure describing the group to be evaluated. +-- @param DCSUnit#Unit DestroyUnit Unit structure describing the Unit to be evaluated. +-- @return #number The DestroyCount reflecting the amount of units destroyed within the group. +function DESTROYGROUPSTASK:ReportGoalProgress( DestroyGroup, DestroyUnit ) + self:F( { DestroyGroup, DestroyUnit, self.DestroyPercentage } ) + + local DestroyGroupSize = DestroyGroup:getSize() - 1 -- When a DEAD event occurs, the getSize is still one larger than the destroyed unit. + local DestroyGroupInitialSize = DestroyGroup:getInitialSize() + self:T( { DestroyGroupSize, DestroyGroupInitialSize - ( DestroyGroupInitialSize * self.DestroyPercentage / 100 ) } ) + + local DestroyCount = 0 + if DestroyGroup then + if DestroyGroupSize <= DestroyGroupInitialSize - ( DestroyGroupInitialSize * self.DestroyPercentage / 100 ) then + DestroyCount = 1 + end + else + DestroyCount = 1 + end + + self:T( DestroyCount ) + + return DestroyCount +end +--- Task class to destroy radar installations. +-- @module DESTROYRADARSTASK + + + +--- The DESTROYRADARS class +-- @type +DESTROYRADARSTASK = { + ClassName = "DESTROYRADARSTASK", + GoalVerb = "Destroy Radars" +} + +--- Creates a new DESTROYRADARSTASK. +-- @param table{string,...} DestroyGroupNames Table of string containing the group names of which the radars are be destroyed. +-- @return DESTROYRADARSTASK +function DESTROYRADARSTASK:New( DestroyGroupNames ) + local self = BASE:Inherit( self, DESTROYGROUPSTASK:New( 'radar installations', 'radars', DestroyGroupNames ) ) + self:F() + + self.Name = 'Destroy Radars' + + _EVENTDISPATCHER:OnDead( self.EventDead , self ) + + return self +end + +--- Report Goal Progress. +-- @param Group DestroyGroup Group structure describing the group to be evaluated. +-- @param Unit DestroyUnit Unit structure describing the Unit to be evaluated. +function DESTROYRADARSTASK:ReportGoalProgress( DestroyGroup, DestroyUnit ) + self:F( { DestroyGroup, DestroyUnit } ) + + local DestroyCount = 0 + if DestroyUnit and DestroyUnit:hasSensors( Unit.SensorType.RADAR, Unit.RadarType.AS ) then + if DestroyUnit and DestroyUnit:getLife() <= 1.0 then + self:T( 'Destroyed a radar' ) + DestroyCount = 1 + end + end + return DestroyCount +end +--- Set TASK to destroy certain unit types. +-- @module DESTROYUNITTYPESTASK + + + +--- The DESTROYUNITTYPESTASK class +-- @type +DESTROYUNITTYPESTASK = { + ClassName = "DESTROYUNITTYPESTASK", + GoalVerb = "Destroy", +} + +--- Creates a new DESTROYUNITTYPESTASK. +-- @param string DestroyGroupType String describing the group to be destroyed. f.e. "Radar Installations", "Fleet", "Batallion", "Command Centers". +-- @param string DestroyUnitType String describing the unit to be destroyed. f.e. "radars", "ships", "tanks", "centers". +-- @param table{string,...} DestroyGroupNames Table of string containing the group names of which the radars are be destroyed. +-- @param string DestroyUnitTypes Table of string containing the type names of the units to achieve mission success. +-- @return DESTROYUNITTYPESTASK +function DESTROYUNITTYPESTASK:New( DestroyGroupType, DestroyUnitType, DestroyGroupNames, DestroyUnitTypes ) + local self = BASE:Inherit( self, DESTROYBASETASK:New( DestroyGroupType, DestroyUnitType, DestroyGroupNames ) ) + self:F( { DestroyGroupType, DestroyUnitType, DestroyGroupNames, DestroyUnitTypes } ) + + if type(DestroyUnitTypes) == 'table' then + self.DestroyUnitTypes = DestroyUnitTypes + else + self.DestroyUnitTypes = { DestroyUnitTypes } + end + + self.Name = 'Destroy Unit Types' + self.GoalVerb = "Destroy " .. DestroyGroupType + + _EVENTDISPATCHER:OnDead( self.EventDead , self ) + + return self +end + +--- Report Goal Progress. +-- @param Group DestroyGroup Group structure describing the group to be evaluated. +-- @param Unit DestroyUnit Unit structure describing the Unit to be evaluated. +function DESTROYUNITTYPESTASK:ReportGoalProgress( DestroyGroup, DestroyUnit ) + self:F( { DestroyGroup, DestroyUnit } ) + + local DestroyCount = 0 + for UnitTypeID, UnitType in pairs( self.DestroyUnitTypes ) do + if DestroyUnit and DestroyUnit:getTypeName() == UnitType then + if DestroyUnit and DestroyUnit:getLife() <= 1.0 then + DestroyCount = DestroyCount + 1 + end + end + end + return DestroyCount +end +--- A PICKUPTASK orchestrates the loading of CARGO at a specific landing zone. +-- @module PICKUPTASK +-- @parent TASK + +--- The PICKUPTASK class +-- @type +PICKUPTASK = { + ClassName = "PICKUPTASK", + TEXT = { "Pick-Up", "picked-up", "loaded" }, + GoalVerb = "Pick-Up" +} + +--- Creates a new PICKUPTASK. +-- @param table{string,...}|string LandingZones Table of Zone names where Cargo is to be loaded. +-- @param CARGO_TYPE CargoType Type of the Cargo. The type must be of the following Enumeration:.. +-- @param number OnBoardSide Reflects from which side the cargo Group will be on-boarded on the Carrier. +function PICKUPTASK:New( CargoType, OnBoardSide ) + local self = BASE:Inherit( self, TASK:New() ) + self:F() + + -- self holds the inherited instance of the PICKUPTASK Class to the BASE class. + + local Valid = true + + if Valid then + self.Name = 'Pickup Cargo' + self.TaskBriefing = "Task: Fly to the indicated landing zones and pickup " .. CargoType .. ". Your co-pilot will provide you with the directions (required flight angle in degrees) and the distance (in km) to the pickup zone." + self.CargoType = CargoType + self.GoalVerb = CargoType .. " " .. self.GoalVerb + self.OnBoardSide = OnBoardSide + self.IsLandingRequired = true -- required to decide whether the client needs to land or not + self.IsSlingLoad = false -- Indicates whether the cargo is a sling load cargo + self.Stages = { STAGE_CARGO_INIT:New(), STAGE_CARGO_LOAD:New(), STAGEBRIEF:New(), STAGESTART:New(), STAGEROUTE:New(), STAGELANDING:New(), STAGELANDED:New(), STAGELOAD:New(), STAGEDONE:New() } + self.SetStage( self, 1 ) + end + + return self +end + +function PICKUPTASK:FromZone( LandingZone ) + self:F() + + self.LandingZones.LandingZoneNames[LandingZone.CargoZoneName] = LandingZone.CargoZoneName + self.LandingZones.LandingZones[LandingZone.CargoZoneName] = LandingZone + + return self +end + +function PICKUPTASK:InitCargo( InitCargos ) + self:F( { InitCargos } ) + + if type( InitCargos ) == "table" then + self.Cargos.InitCargos = InitCargos + else + self.Cargos.InitCargos = { InitCargos } + end + + return self +end + +function PICKUPTASK:LoadCargo( LoadCargos ) + self:F( { LoadCargos } ) + + if type( LoadCargos ) == "table" then + self.Cargos.LoadCargos = LoadCargos + else + self.Cargos.LoadCargos = { LoadCargos } + end + + return self +end + +function PICKUPTASK:AddCargoMenus( Client, Cargos, TransportRadius ) + self:F() + + for CargoID, Cargo in pairs( Cargos ) do + + self:T( { Cargo.ClassName, Cargo.CargoName, Cargo.CargoType, Cargo:IsStatusNone(), Cargo:IsStatusLoaded(), Cargo:IsStatusLoading(), Cargo:IsStatusUnLoaded() } ) + + -- If the Cargo has no status, allow the menu option. + if Cargo:IsStatusNone() or ( Cargo:IsStatusLoading() and Client == Cargo:IsLoadingToClient() ) then + + local MenuAdd = false + if Cargo:IsNear( Client, self.CurrentCargoZone ) then + MenuAdd = true + end + + if MenuAdd then + if Client._Menus[Cargo.CargoType] == nil then + Client._Menus[Cargo.CargoType] = {} + end + + if not Client._Menus[Cargo.CargoType].PickupMenu then + Client._Menus[Cargo.CargoType].PickupMenu = missionCommands.addSubMenuForGroup( + Client:GetClientGroupID(), + self.TEXT[1] .. " " .. Cargo.CargoType, + nil + ) + self:T( 'Added PickupMenu: ' .. self.TEXT[1] .. " " .. Cargo.CargoType ) + end + + if Client._Menus[Cargo.CargoType].PickupSubMenus == nil then + Client._Menus[Cargo.CargoType].PickupSubMenus = {} + end + + Client._Menus[Cargo.CargoType].PickupSubMenus[ #Client._Menus[Cargo.CargoType].PickupSubMenus + 1 ] = missionCommands.addCommandForGroup( + Client:GetClientGroupID(), + Cargo.CargoName .. " ( " .. Cargo.CargoWeight .. "kg )", + Client._Menus[Cargo.CargoType].PickupMenu, + self.MenuAction, + { ReferenceTask = self, CargoTask = Cargo } + ) + self:T( 'Added PickupSubMenu' .. Cargo.CargoType .. ":" .. Cargo.CargoName .. " ( " .. Cargo.CargoWeight .. "kg )" ) + end + end + end + +end + +function PICKUPTASK:RemoveCargoMenus( Client ) + self:F() + + for MenuID, MenuData in pairs( Client._Menus ) do + for SubMenuID, SubMenuData in pairs( MenuData.PickupSubMenus ) do + missionCommands.removeItemForGroup( Client:GetClientGroupID(), SubMenuData ) + self:T( "Removed PickupSubMenu " ) + SubMenuData = nil + end + if MenuData.PickupMenu then + missionCommands.removeItemForGroup( Client:GetClientGroupID(), MenuData.PickupMenu ) + self:T( "Removed PickupMenu " ) + MenuData.PickupMenu = nil + end + end + + for CargoID, Cargo in pairs( CARGOS ) do + self:T( { Cargo.ClassName, Cargo.CargoName, Cargo.CargoType, Cargo:IsStatusNone(), Cargo:IsStatusLoaded(), Cargo:IsStatusLoading(), Cargo:IsStatusUnLoaded() } ) + if Cargo:IsStatusLoading() and Client == Cargo:IsLoadingToClient() then + Cargo:StatusNone() + end + end + +end + + + +function PICKUPTASK:HasFailed( ClientDead ) + self:F() + + local TaskHasFailed = self.TaskFailed + return TaskHasFailed +end + +--- A DEPLOYTASK orchestrates the deployment of CARGO within a specific landing zone. +-- @module DEPLOYTASK + + + +--- A DeployTask +-- @type DEPLOYTASK +DEPLOYTASK = { + ClassName = "DEPLOYTASK", + TEXT = { "Deploy", "deployed", "unloaded" }, + GoalVerb = "Deployment" +} + + +--- Creates a new DEPLOYTASK object, which models the sequence of STAGEs to unload a cargo. +-- @function [parent=#DEPLOYTASK] New +-- @param #string CargoType Type of the Cargo. +-- @return #DEPLOYTASK The created DeployTask +function DEPLOYTASK:New( CargoType ) + local self = BASE:Inherit( self, TASK:New() ) + self:F() + + local Valid = true + + if Valid then + self.Name = 'Deploy Cargo' + self.TaskBriefing = "Fly to one of the indicated landing zones and deploy " .. CargoType .. ". Your co-pilot will provide you with the directions (required flight angle in degrees) and the distance (in km) to the deployment zone." + self.CargoType = CargoType + self.GoalVerb = CargoType .. " " .. self.GoalVerb + self.Stages = { STAGE_CARGO_INIT:New(), STAGE_CARGO_LOAD:New(), STAGEBRIEF:New(), STAGESTART:New(), STAGEROUTE:New(), STAGELANDING:New(), STAGELANDED:New(), STAGEUNLOAD:New(), STAGEDONE:New() } + self.SetStage( self, 1 ) + end + + return self +end + +function DEPLOYTASK:ToZone( LandingZone ) + self:F() + + self.LandingZones.LandingZoneNames[LandingZone.CargoZoneName] = LandingZone.CargoZoneName + self.LandingZones.LandingZones[LandingZone.CargoZoneName] = LandingZone + + return self +end + + +function DEPLOYTASK:InitCargo( InitCargos ) + self:F( { InitCargos } ) + + if type( InitCargos ) == "table" then + self.Cargos.InitCargos = InitCargos + else + self.Cargos.InitCargos = { InitCargos } + end + + return self +end + + +function DEPLOYTASK:LoadCargo( LoadCargos ) + self:F( { LoadCargos } ) + + if type( LoadCargos ) == "table" then + self.Cargos.LoadCargos = LoadCargos + else + self.Cargos.LoadCargos = { LoadCargos } + end + + return self +end + + +--- When the cargo is unloaded, it will move to the target zone name. +-- @param string TargetZoneName Name of the Zone to where the Cargo should move after unloading. +function DEPLOYTASK:SetCargoTargetZoneName( TargetZoneName ) + self:F() + + local Valid = true + + Valid = routines.ValidateString( TargetZoneName, "TargetZoneName", Valid ) + + if Valid then + self.TargetZoneName = TargetZoneName + end + + return Valid + +end + +function DEPLOYTASK:AddCargoMenus( Client, Cargos, TransportRadius ) + self:F() + + local ClientGroupID = Client:GetClientGroupID() + + self:T( ClientGroupID ) + + for CargoID, Cargo in pairs( Cargos ) do + + self:T( { Cargo.ClassName, Cargo.CargoName, Cargo.CargoType, Cargo.CargoWeight } ) + + if Cargo:IsStatusLoaded() and Client == Cargo:IsLoadedInClient() then + + if Client._Menus[Cargo.CargoType] == nil then + Client._Menus[Cargo.CargoType] = {} + end + + if not Client._Menus[Cargo.CargoType].DeployMenu then + Client._Menus[Cargo.CargoType].DeployMenu = missionCommands.addSubMenuForGroup( + ClientGroupID, + self.TEXT[1] .. " " .. Cargo.CargoType, + nil + ) + self:T( 'Added DeployMenu ' .. self.TEXT[1] ) + end + + if Client._Menus[Cargo.CargoType].DeploySubMenus == nil then + Client._Menus[Cargo.CargoType].DeploySubMenus = {} + end + + if Client._Menus[Cargo.CargoType].DeployMenu == nil then + self:T( 'deploymenu is nil' ) + end + + Client._Menus[Cargo.CargoType].DeploySubMenus[ #Client._Menus[Cargo.CargoType].DeploySubMenus + 1 ] = missionCommands.addCommandForGroup( + ClientGroupID, + Cargo.CargoName .. " ( " .. Cargo.CargoWeight .. "kg )", + Client._Menus[Cargo.CargoType].DeployMenu, + self.MenuAction, + { ReferenceTask = self, CargoTask = Cargo } + ) + self:T( 'Added DeploySubMenu ' .. Cargo.CargoType .. ":" .. Cargo.CargoName .. " ( " .. Cargo.CargoWeight .. "kg )" ) + end + end + +end + +function DEPLOYTASK:RemoveCargoMenus( Client ) + self:F() + + local ClientGroupID = Client:GetClientGroupID() + self:T( ClientGroupID ) + + for MenuID, MenuData in pairs( Client._Menus ) do + if MenuData.DeploySubMenus ~= nil then + for SubMenuID, SubMenuData in pairs( MenuData.DeploySubMenus ) do + missionCommands.removeItemForGroup( ClientGroupID, SubMenuData ) + self:T( "Removed DeploySubMenu " ) + SubMenuData = nil + end + end + if MenuData.DeployMenu then + missionCommands.removeItemForGroup( ClientGroupID, MenuData.DeployMenu ) + self:T( "Removed DeployMenu " ) + MenuData.DeployMenu = nil + end + end + +end +--- A NOTASK is a dummy activity... But it will show a Mission Briefing... +-- @module NOTASK + +--- The NOTASK class +-- @type +NOTASK = { + ClassName = "NOTASK", +} + +--- Creates a new NOTASK. +function NOTASK:New() + local self = BASE:Inherit( self, TASK:New() ) + self:F() + + local Valid = true + + if Valid then + self.Name = 'Nothing' + self.TaskBriefing = "Task: Execute your mission." + self.Stages = { STAGEBRIEF:New(), STAGESTART:New(), STAGEDONE:New() } + self.SetStage( self, 1 ) + end + + return self +end +--- A ROUTETASK orchestrates the travel to a specific zone defined within the ME. +-- @module ROUTETASK + +--- The ROUTETASK class +-- @type +ROUTETASK = { + ClassName = "ROUTETASK", + GoalVerb = "Route", +} + +--- Creates a new ROUTETASK. +-- @param table{sring,...}|string LandingZones Table of Zone Names where the target is located. +-- @param string TaskBriefing (optional) Defines a text describing the briefing of the task. +-- @return ROUTETASK +function ROUTETASK:New( LandingZones, TaskBriefing ) + local self = BASE:Inherit( self, TASK:New() ) + self:F( { LandingZones, TaskBriefing } ) + + local Valid = true + + Valid = routines.ValidateZone( LandingZones, "LandingZones", Valid ) + + if Valid then + self.Name = 'Route To Zone' + if TaskBriefing then + self.TaskBriefing = TaskBriefing .. " Your co-pilot will provide you with the directions (required flight angle in degrees) and the distance (in km) to the target objective." + else + self.TaskBriefing = "Task: Fly to specified zone(s). Your co-pilot will provide you with the directions (required flight angle in degrees) and the distance (in km) to the target objective." + end + if type( LandingZones ) == "table" then + self.LandingZones = LandingZones + else + self.LandingZones = { LandingZones } + end + self.Stages = { STAGEBRIEF:New(), STAGESTART:New(), STAGEROUTE:New(), STAGEARRIVE:New(), STAGEDONE:New() } + self.SetStage( self, 1 ) + end + + return self +end + +--- A MISSION is the main owner of a Mission orchestration within MOOSE . The Mission framework orchestrates @{CLIENT}s, @{TASK}s, @{STAGE}s etc. +-- A @{CLIENT} needs to be registered within the @{MISSION} through the function @{AddClient}. A @{TASK} needs to be registered within the @{MISSION} through the function @{AddTask}. +-- @module Mission + +--- The MISSION class +-- @type MISSION +-- @extends Base#BASE +-- @field #MISSION.Clients _Clients +-- @field #string MissionBriefing +MISSION = { + ClassName = "MISSION", + Name = "", + MissionStatus = "PENDING", + _Clients = {}, + _Tasks = {}, + _ActiveTasks = {}, + GoalFunction = nil, + MissionReportTrigger = 0, + MissionProgressTrigger = 0, + MissionReportShow = false, + MissionReportFlash = false, + MissionTimeInterval = 0, + MissionCoalition = "", + SUCCESS = 1, + FAILED = 2, + REPEAT = 3, + _GoalTasks = {} +} + +--- @type MISSION.Clients +-- @list + +function MISSION:Meta() + + local self = BASE:Inherit( self, BASE:New() ) + self:F() + + return self +end + +--- This is the main MISSION declaration method. Each Mission is like the master or a Mission orchestration between, Clients, Tasks, Stages etc. +-- @param string MissionName is the name of the mission. This name will be used to reference the status of each mission by the players. +-- @param string MissionPriority is a string indicating the "priority" of the Mission. f.e. "Primary", "Secondary" or "First", "Second". It is free format and up to the Mission designer to choose. There are no rules behind this field. +-- @param string MissionBriefing is a string indicating the mission briefing to be shown when a player joins a @{CLIENT}. +-- @param string MissionCoalition is a string indicating the coalition or party to which this mission belongs to. It is free format and can be chosen freely by the mission designer. Note that this field is not to be confused with the coalition concept of the ME. Examples of a Mission Coalition could be "NATO", "CCCP", "Intruders", "Terrorists"... +-- @return MISSION +-- @usage +-- -- Declare a few missions. +-- local Mission = MISSIONSCHEDULER.AddMission( 'Russia Transport Troops SA-6', 'Operational', 'Transport troops from the control center to one of the SA-6 SAM sites to activate their operation.', 'Russia' ) +-- local Mission = MISSIONSCHEDULER.AddMission( 'Patriots', 'Primary', 'Our intelligence reports that 3 Patriot SAM defense batteries are located near Ruisi, Kvarhiti and Gori.', 'Russia' ) +-- local Mission = MISSIONSCHEDULER.AddMission( 'Package Delivery', 'Operational', 'In order to be in full control of the situation, we need you to deliver a very important package at a secret location. Fly undetected through the NATO defenses and deliver the secret package. The secret agent is located at waypoint 4.', 'Russia' ) +-- local Mission = MISSIONSCHEDULER.AddMission( 'Rescue General', 'Tactical', 'Our intelligence has received a remote signal behind Gori. We believe it is a very important Russian General that was captured by Georgia. Go out there and rescue him! Ensure you stay out of the battle zone, keep south. Waypoint 4 is the location of our Russian General.', 'Russia' ) +-- local Mission = MISSIONSCHEDULER.AddMission( 'NATO Transport Troops', 'Operational', 'Transport 3 groups of air defense engineers from our barracks "Gold" and "Titan" to each patriot battery control center to activate our air defenses.', 'NATO' ) +-- local Mission = MISSIONSCHEDULER.AddMission( 'SA-6 SAMs', 'Primary', 'Our intelligence reports that 3 SA-6 SAM defense batteries are located near Didmukha, Khetagurov and Berula. Eliminate the Russian SAMs.', 'NATO' ) +-- local Mission = MISSIONSCHEDULER.AddMission( 'NATO Sling Load', 'Operational', 'Fly to the cargo pickup zone at Dzegvi or Kaspi, and sling the cargo to Soganlug airbase.', 'NATO' ) +-- local Mission = MISSIONSCHEDULER.AddMission( 'Rescue secret agent', 'Tactical', 'In order to be in full control of the situation, we need you to rescue a secret agent from the woods behind enemy lines. Avoid the Russian defenses and rescue the agent. Keep south until Khasuri, and keep your eyes open for any SAM presence. The agent is located at waypoint 4 on your kneeboard.', 'NATO' ) +function MISSION:New( MissionName, MissionPriority, MissionBriefing, MissionCoalition ) + + self = MISSION:Meta() + self:T({ MissionName, MissionPriority, MissionBriefing, MissionCoalition }) + + local Valid = true + + Valid = routines.ValidateString( MissionName, "MissionName", Valid ) + Valid = routines.ValidateString( MissionPriority, "MissionPriority", Valid ) + Valid = routines.ValidateString( MissionBriefing, "MissionBriefing", Valid ) + Valid = routines.ValidateString( MissionCoalition, "MissionCoalition", Valid ) + + if Valid then + self.Name = MissionName + self.MissionPriority = MissionPriority + self.MissionBriefing = MissionBriefing + self.MissionCoalition = MissionCoalition + end + + return self +end + +--- Returns if a Mission has completed. +-- @return bool +function MISSION:IsCompleted() + self:F() + return self.MissionStatus == "ACCOMPLISHED" +end + +--- Set a Mission to completed. +function MISSION:Completed() + self:F() + self.MissionStatus = "ACCOMPLISHED" + self:StatusToClients() +end + +--- Returns if a Mission is ongoing. +-- treturn bool +function MISSION:IsOngoing() + self:F() + return self.MissionStatus == "ONGOING" +end + +--- Set a Mission to ongoing. +function MISSION:Ongoing() + self:F() + self.MissionStatus = "ONGOING" + --self:StatusToClients() +end + +--- Returns if a Mission is pending. +-- treturn bool +function MISSION:IsPending() + self:F() + return self.MissionStatus == "PENDING" +end + +--- Set a Mission to pending. +function MISSION:Pending() + self:F() + self.MissionStatus = "PENDING" + self:StatusToClients() +end + +--- Returns if a Mission has failed. +-- treturn bool +function MISSION:IsFailed() + self:F() + return self.MissionStatus == "FAILED" +end + +--- Set a Mission to failed. +function MISSION:Failed() + self:F() + self.MissionStatus = "FAILED" + self:StatusToClients() +end + +--- Send the status of the MISSION to all Clients. +function MISSION:StatusToClients() + self:F() + if self.MissionReportFlash then + for ClientID, Client in pairs( self._Clients ) do + Client:Message( self.MissionCoalition .. ' "' .. self.Name .. '": ' .. self.MissionStatus .. '! ( ' .. self.MissionPriority .. ' mission ) ', 10, "Mission Command: Mission Status") + end + end +end + +--- Handles the reporting. After certain time intervals, a MISSION report MESSAGE will be shown to All Players. +function MISSION:ReportTrigger() + self:F() + + if self.MissionReportShow == true then + self.MissionReportShow = false + return true + else + if self.MissionReportFlash == true then + if timer.getTime() >= self.MissionReportTrigger then + self.MissionReportTrigger = timer.getTime() + self.MissionTimeInterval + return true + else + return false + end + else + return false + end + end +end + +--- Report the status of all MISSIONs to all active Clients. +function MISSION:ReportToAll() + self:F() + + local AlivePlayers = '' + for ClientID, Client in pairs( self._Clients ) do + if Client:GetDCSGroup() then + if Client:GetClientGroupDCSUnit() then + if Client:GetClientGroupDCSUnit():getLife() > 0.0 then + if AlivePlayers == '' then + AlivePlayers = ' Players: ' .. Client:GetClientGroupDCSUnit():getPlayerName() + else + AlivePlayers = AlivePlayers .. ' / ' .. Client:GetClientGroupDCSUnit():getPlayerName() + end + end + end + end + end + local Tasks = self:GetTasks() + local TaskText = "" + for TaskID, TaskData in pairs( Tasks ) do + TaskText = TaskText .. " - Task " .. TaskID .. ": " .. TaskData.Name .. ": " .. TaskData:GetGoalProgress() .. "\n" + end + MESSAGE:New( self.MissionCoalition .. ' "' .. self.Name .. '": ' .. self.MissionStatus .. ' ( ' .. self.MissionPriority .. ' mission )' .. AlivePlayers .. "\n" .. TaskText:gsub("\n$",""), 10, "Mission Command: Mission Report" ):ToAll() +end + + +--- Add a goal function to a MISSION. Goal functions are called when a @{TASK} within a mission has been completed. +-- @param function GoalFunction is the function defined by the mission designer to evaluate whether a certain goal has been reached after a @{TASK} finishes within the @{MISSION}. A GoalFunction must accept 2 parameters: Mission, Client, which contains the current MISSION object and the current CLIENT object respectively. +-- @usage +-- PatriotActivation = { +-- { "US SAM Patriot Zerti", false }, +-- { "US SAM Patriot Zegduleti", false }, +-- { "US SAM Patriot Gvleti", false } +-- } +-- +-- function DeployPatriotTroopsGoal( Mission, Client ) +-- +-- +-- -- Check if the cargo is all deployed for mission success. +-- for CargoID, CargoData in pairs( Mission._Cargos ) do +-- if Group.getByName( CargoData.CargoGroupName ) then +-- CargoGroup = Group.getByName( CargoData.CargoGroupName ) +-- if CargoGroup then +-- -- Check if the cargo is ready to activate +-- CurrentLandingZoneID = routines.IsUnitInZones( CargoGroup:getUnits()[1], Mission:GetTask( 2 ).LandingZones ) -- The second task is the Deploytask to measure mission success upon +-- if CurrentLandingZoneID then +-- if PatriotActivation[CurrentLandingZoneID][2] == false then +-- -- Now check if this is a new Mission Task to be completed... +-- trigger.action.setGroupAIOn( Group.getByName( PatriotActivation[CurrentLandingZoneID][1] ) ) +-- PatriotActivation[CurrentLandingZoneID][2] = true +-- MessageToBlue( "Mission Command: Message to all airborne units! The " .. PatriotActivation[CurrentLandingZoneID][1] .. " is armed. Our air defenses are now stronger.", 60, "BLUE/PatriotDefense" ) +-- MessageToRed( "Mission Command: Our satellite systems are detecting additional NATO air defenses. To all airborne units: Take care!!!", 60, "RED/PatriotDefense" ) +-- Mission:GetTask( 2 ):AddGoalCompletion( "Patriots activated", PatriotActivation[CurrentLandingZoneID][1], 1 ) -- Register Patriot activation as part of mission goal. +-- end +-- end +-- end +-- end +-- end +-- end +-- +-- local Mission = MISSIONSCHEDULER.AddMission( 'NATO Transport Troops', 'Operational', 'Transport 3 groups of air defense engineers from our barracks "Gold" and "Titan" to each patriot battery control center to activate our air defenses.', 'NATO' ) +-- Mission:AddGoalFunction( DeployPatriotTroopsGoal ) +function MISSION:AddGoalFunction( GoalFunction ) + self:F() + self.GoalFunction = GoalFunction +end + +--- Register a new @{CLIENT} to participate within the mission. +-- @param CLIENT Client is the @{CLIENT} object. The object must have been instantiated with @{CLIENT:New}. +-- @return CLIENT +-- @usage +-- Add a number of Client objects to the Mission. +-- Mission:AddClient( CLIENT:FindByName( 'US UH-1H*HOT-Deploy Troops 1', 'Transport 3 groups of air defense engineers from our barracks "Gold" and "Titan" to each patriot battery control center to activate our air defenses.' ):Transport() ) +-- Mission:AddClient( CLIENT:FindByName( 'US UH-1H*RAMP-Deploy Troops 3', 'Transport 3 groups of air defense engineers from our barracks "Gold" and "Titan" to each patriot battery control center to activate our air defenses.' ):Transport() ) +-- Mission:AddClient( CLIENT:FindByName( 'US UH-1H*HOT-Deploy Troops 2', 'Transport 3 groups of air defense engineers from our barracks "Gold" and "Titan" to each patriot battery control center to activate our air defenses.' ):Transport() ) +-- Mission:AddClient( CLIENT:FindByName( 'US UH-1H*RAMP-Deploy Troops 4', 'Transport 3 groups of air defense engineers from our barracks "Gold" and "Titan" to each patriot battery control center to activate our air defenses.' ):Transport() ) +function MISSION:AddClient( Client ) + self:F( { Client } ) + + local Valid = true + + if Valid then + self._Clients[Client.ClientName] = Client + end + + return Client +end + +--- Find a @{CLIENT} object within the @{MISSION} by its ClientName. +-- @param CLIENT ClientName is a string defining the Client Group as defined within the ME. +-- @return CLIENT +-- @usage +-- -- Seach for Client "Bomber" within the Mission. +-- local BomberClient = Mission:FindClient( "Bomber" ) +function MISSION:FindClient( ClientName ) + self:F( { self._Clients[ClientName] } ) + return self._Clients[ClientName] +end + + +--- Register a @{TASK} to be completed within the @{MISSION}. Note that there can be multiple @{TASK}s registered to be completed. Each TASK can be set a certain Goal. The MISSION will not be completed until all Goals are reached. +-- @param TASK Task is the @{TASK} object. The object must have been instantiated with @{TASK:New} or any of its inherited @{TASK}s. +-- @param number TaskNumber is the sequence number of the TASK within the MISSION. This number does have to be chronological. +-- @return TASK +-- @usage +-- -- Define a few tasks for the Mission. +-- PickupZones = { "NATO Gold Pickup Zone", "NATO Titan Pickup Zone" } +-- PickupSignalUnits = { "NATO Gold Coordination Center", "NATO Titan Coordination Center" } +-- +-- -- Assign the Pickup Task +-- local PickupTask = PICKUPTASK:New( PickupZones, CARGO_TYPE.ENGINEERS, CLIENT.ONBOARDSIDE.LEFT ) +-- PickupTask:AddSmokeBlue( PickupSignalUnits ) +-- PickupTask:SetGoalTotal( 3 ) +-- Mission:AddTask( PickupTask, 1 ) +-- +-- -- Assign the Deploy Task +-- local PatriotActivationZones = { "US Patriot Battery 1 Activation", "US Patriot Battery 2 Activation", "US Patriot Battery 3 Activation" } +-- local PatriotActivationZonesSmokeUnits = { "US SAM Patriot - Battery 1 Control", "US SAM Patriot - Battery 2 Control", "US SAM Patriot - Battery 3 Control" } +-- local DeployTask = DEPLOYTASK:New( PatriotActivationZones, CARGO_TYPE.ENGINEERS ) +-- --DeployTask:SetCargoTargetZoneName( 'US Troops Attack ' .. math.random(2) ) +-- DeployTask:AddSmokeBlue( PatriotActivationZonesSmokeUnits ) +-- DeployTask:SetGoalTotal( 3 ) +-- DeployTask:SetGoalTotal( 3, "Patriots activated" ) +-- Mission:AddTask( DeployTask, 2 ) + +function MISSION:AddTask( Task, TaskNumber ) + self:F() + + self._Tasks[TaskNumber] = Task + self._Tasks[TaskNumber]:EnableEvents() + self._Tasks[TaskNumber].ID = TaskNumber + + return Task + end + +--- Get the TASK idenified by the TaskNumber from the Mission. This function is useful in GoalFunctions. +-- @param number TaskNumber is the number of the @{TASK} within the @{MISSION}. +-- @return TASK +-- @usage +-- -- Get Task 2 from the Mission. +-- Task2 = Mission:GetTask( 2 ) + +function MISSION:GetTask( TaskNumber ) + self:F() + + local Valid = true + + local Task = nil + + if type(TaskNumber) ~= "number" then + Valid = false + end + + if Valid then + Task = self._Tasks[TaskNumber] + end + + return Task +end + +--- Get all the TASKs from the Mission. This function is useful in GoalFunctions. +-- @return {TASK,...} Structure of TASKS with the @{TASK} number as the key. +-- @usage +-- -- Get Tasks from the Mission. +-- Tasks = Mission:GetTasks() +-- env.info( "Task 2 Completion = " .. Tasks[2]:GetGoalPercentage() .. "%" ) +function MISSION:GetTasks() + self:F() + + return self._Tasks +end + + +--[[ + _TransportExecuteStage: Defines the different stages of Transport unload/load execution. This table is internal and is used to control the validity of Transport load/unload timing. + + - _TransportExecuteStage.EXECUTING + - _TransportExecuteStage.SUCCESS + - _TransportExecuteStage.FAILED + +--]] +_TransportExecuteStage = { + NONE = 0, + EXECUTING = 1, + SUCCESS = 2, + FAILED = 3 +} + + +--- The MISSIONSCHEDULER is an OBJECT and is the main scheduler of ALL active MISSIONs registered within this scheduler. It's workings are considered internal and is automatically created when the Mission.lua file is included. +-- @type MISSIONSCHEDULER +-- @field #MISSIONSCHEDULER.MISSIONS Missions +MISSIONSCHEDULER = { + Missions = {}, + MissionCount = 0, + TimeIntervalCount = 0, + TimeIntervalShow = 150, + TimeSeconds = 14400, + TimeShow = 5 +} + +--- @type MISSIONSCHEDULER.MISSIONS +-- @list <#MISSION> Mission + +--- This is the main MISSIONSCHEDULER Scheduler function. It is considered internal and is automatically created when the Mission.lua file is included. +function MISSIONSCHEDULER.Scheduler() + + + -- loop through the missions in the TransportTasks + for MissionName, MissionData in pairs( MISSIONSCHEDULER.Missions ) do + + local Mission = MissionData -- #MISSION + + if not Mission:IsCompleted() then + + -- This flag will monitor if for this mission, there are clients alive. If this flag is still false at the end of the loop, the mission status will be set to Pending (if not Failed or Completed). + local ClientsAlive = false + + for ClientID, ClientData in pairs( Mission._Clients ) do + + local Client = ClientData -- Client#CLIENT + + if Client:IsAlive() then + + -- There is at least one Client that is alive... So the Mission status is set to Ongoing. + ClientsAlive = true + + -- If this Client was not registered as Alive before: + -- 1. We register the Client as Alive. + -- 2. We initialize the Client Tasks and make a link to the original Mission Task. + -- 3. We initialize the Cargos. + -- 4. We flag the Mission as Ongoing. + if not Client.ClientAlive then + Client.ClientAlive = true + Client.ClientBriefingShown = false + for TaskNumber, Task in pairs( Mission._Tasks ) do + -- Note that this a deepCopy. Each client must have their own Tasks with own Stages!!! + Client._Tasks[TaskNumber] = routines.utils.deepCopy( Mission._Tasks[TaskNumber] ) + -- Each MissionTask must point to the original Mission. + Client._Tasks[TaskNumber].MissionTask = Mission._Tasks[TaskNumber] + Client._Tasks[TaskNumber].Cargos = Mission._Tasks[TaskNumber].Cargos + Client._Tasks[TaskNumber].LandingZones = Mission._Tasks[TaskNumber].LandingZones + end + + Mission:Ongoing() + end + + + -- For each Client, check for each Task the state and evolve the mission. + -- This flag will indicate if the Task of the Client is Complete. + local TaskComplete = false + + for TaskNumber, Task in pairs( Client._Tasks ) do + + if not Task.Stage then + Task:SetStage( 1 ) + end + + + local TransportTime = timer.getTime() + + if not Task:IsDone() then + + if Task:Goal() then + Task:ShowGoalProgress( Mission, Client ) + end + + --env.info( 'Scheduler: Mission = ' .. Mission.Name .. ' / Client = ' .. Client.ClientName .. ' / Task = ' .. Task.Name .. ' / Stage = ' .. Task.ActiveStage .. ' - ' .. Task.Stage.Name .. ' - ' .. Task.Stage.StageType ) + + -- Action + if Task:StageExecute() then + Task.Stage:Execute( Mission, Client, Task ) + end + + -- Wait until execution is finished + if Task.ExecuteStage == _TransportExecuteStage.EXECUTING then + Task.Stage:Executing( Mission, Client, Task ) + end + + -- Validate completion or reverse to earlier stage + if Task.Time + Task.Stage.WaitTime <= TransportTime then + Task:SetStage( Task.Stage:Validate( Mission, Client, Task ) ) + end + + if Task:IsDone() then + --env.info( 'Scheduler: Mission '.. Mission.Name .. ' Task ' .. Task.Name .. ' Stage ' .. Task.Stage.Name .. ' done. TaskComplete = ' .. string.format ( "%s", TaskComplete and "true" or "false" ) ) + TaskComplete = true -- when a task is not yet completed, a mission cannot be completed + + else + -- break only if this task is not yet done, so that future task are not yet activated. + TaskComplete = false -- when a task is not yet completed, a mission cannot be completed + --env.info( 'Scheduler: Mission "'.. Mission.Name .. '" Task "' .. Task.Name .. '" Stage "' .. Task.Stage.Name .. '" break. TaskComplete = ' .. string.format ( "%s", TaskComplete and "true" or "false" ) ) + break + end + + if TaskComplete then + + if Mission.GoalFunction ~= nil then + Mission.GoalFunction( Mission, Client ) + end + if MISSIONSCHEDULER.Scoring then + MISSIONSCHEDULER.Scoring:_AddMissionTaskScore( Client:GetClientGroupDCSUnit(), Mission.Name, 25 ) + end + +-- if not Mission:IsCompleted() then +-- end + end + end + end + + local MissionComplete = true + for TaskNumber, Task in pairs( Mission._Tasks ) do + if Task:Goal() then +-- Task:ShowGoalProgress( Mission, Client ) + if Task:IsGoalReached() then + else + MissionComplete = false + end + else + MissionComplete = false -- If there is no goal, the mission should never be ended. The goal status will be set somewhere else. + end + end + + if MissionComplete then + Mission:Completed() + if MISSIONSCHEDULER.Scoring then + MISSIONSCHEDULER.Scoring:_AddMissionScore( Mission.Name, 100 ) + end + else + if TaskComplete then + -- Reset for new tasking of active client + Client.ClientAlive = false -- Reset the client tasks. + end + end + + + else + if Client.ClientAlive then + env.info( 'Scheduler: Client "' .. Client.ClientName .. '" is inactive.' ) + Client.ClientAlive = false + + -- This is tricky. If we sanitize Client._Tasks before sanitizing Client._Tasks[TaskNumber].MissionTask, then the original MissionTask will be sanitized, and will be lost within the garbage collector. + -- So first sanitize Client._Tasks[TaskNumber].MissionTask, after that, sanitize only the whole _Tasks structure... + --Client._Tasks[TaskNumber].MissionTask = nil + --Client._Tasks = nil + end + end + end + + -- If all Clients of this Mission are not activated, then the Mission status needs to be put back into Pending status. + -- But only if the Mission was Ongoing. In case the Mission is Completed or Failed, the Mission status may not be changed. In these cases, this will be the last run of this Mission in the Scheduler. + if ClientsAlive == false then + if Mission:IsOngoing() then + -- Mission status back to pending... + Mission:Pending() + end + end + end + + Mission:StatusToClients() + + if Mission:ReportTrigger() then + Mission:ReportToAll() + end + end + + return true +end + +--- Start the MISSIONSCHEDULER. +function MISSIONSCHEDULER.Start() + if MISSIONSCHEDULER ~= nil then + --MISSIONSCHEDULER.SchedulerId = routines.scheduleFunction( MISSIONSCHEDULER.Scheduler, { }, 0, 2 ) + MISSIONSCHEDULER.SchedulerId = SCHEDULER:New( nil, MISSIONSCHEDULER.Scheduler, { }, 0, 2 ) + end +end + +--- Stop the MISSIONSCHEDULER. +function MISSIONSCHEDULER.Stop() + if MISSIONSCHEDULER.SchedulerId then + routines.removeFunction(MISSIONSCHEDULER.SchedulerId) + MISSIONSCHEDULER.SchedulerId = nil + end +end + +--- This is the main MISSION declaration method. Each Mission is like the master or a Mission orchestration between, Clients, Tasks, Stages etc. +-- @param Mission is the MISSION object instantiated by @{MISSION:New}. +-- @return MISSION +-- @usage +-- -- Declare a mission. +-- Mission = MISSION:New( 'Russia Transport Troops SA-6', +-- 'Operational', +-- 'Transport troops from the control center to one of the SA-6 SAM sites to activate their operation.', +-- 'Russia' ) +-- MISSIONSCHEDULER:AddMission( Mission ) +function MISSIONSCHEDULER.AddMission( Mission ) + MISSIONSCHEDULER.Missions[Mission.Name] = Mission + MISSIONSCHEDULER.MissionCount = MISSIONSCHEDULER.MissionCount + 1 + -- Add an overall AI Client for the AI tasks... This AI Client will facilitate the Events in the background for each Task. + --MissionAdd:AddClient( CLIENT:Register( 'AI' ) ) + + return Mission +end + +--- Remove a MISSION from the MISSIONSCHEDULER. +-- @param MissionName is the name of the MISSION given at declaration using @{AddMission}. +-- @usage +-- -- Declare a mission. +-- Mission = MISSION:New( 'Russia Transport Troops SA-6', +-- 'Operational', +-- 'Transport troops from the control center to one of the SA-6 SAM sites to activate their operation.', +-- 'Russia' ) +-- MISSIONSCHEDULER:AddMission( Mission ) +-- +-- -- Now remove the Mission. +-- MISSIONSCHEDULER:RemoveMission( 'Russia Transport Troops SA-6' ) +function MISSIONSCHEDULER.RemoveMission( MissionName ) + MISSIONSCHEDULER.Missions[MissionName] = nil + MISSIONSCHEDULER.MissionCount = MISSIONSCHEDULER.MissionCount - 1 +end + +--- Find a MISSION within the MISSIONSCHEDULER. +-- @param MissionName is the name of the MISSION given at declaration using @{AddMission}. +-- @return MISSION +-- @usage +-- -- Declare a mission. +-- Mission = MISSION:New( 'Russia Transport Troops SA-6', +-- 'Operational', +-- 'Transport troops from the control center to one of the SA-6 SAM sites to activate their operation.', +-- 'Russia' ) +-- MISSIONSCHEDULER:AddMission( Mission ) +-- +-- -- Now find the Mission. +-- MissionFind = MISSIONSCHEDULER:FindMission( 'Russia Transport Troops SA-6' ) +function MISSIONSCHEDULER.FindMission( MissionName ) + return MISSIONSCHEDULER.Missions[MissionName] +end + +-- Internal function used by the MISSIONSCHEDULER menu. +function MISSIONSCHEDULER.ReportMissionsShow( ) + for MissionName, Mission in pairs( MISSIONSCHEDULER.Missions ) do + Mission.MissionReportShow = true + Mission.MissionReportFlash = false + end +end + +-- Internal function used by the MISSIONSCHEDULER menu. +function MISSIONSCHEDULER.ReportMissionsFlash( TimeInterval ) + local Count = 0 + for MissionName, Mission in pairs( MISSIONSCHEDULER.Missions ) do + Mission.MissionReportShow = false + Mission.MissionReportFlash = true + Mission.MissionReportTrigger = timer.getTime() + Count * TimeInterval + Mission.MissionTimeInterval = MISSIONSCHEDULER.MissionCount * TimeInterval + env.info( "TimeInterval = " .. Mission.MissionTimeInterval ) + Count = Count + 1 + end +end + +-- Internal function used by the MISSIONSCHEDULER menu. +function MISSIONSCHEDULER.ReportMissionsHide( Prm ) + for MissionName, Mission in pairs( MISSIONSCHEDULER.Missions ) do + Mission.MissionReportShow = false + Mission.MissionReportFlash = false + end +end + +--- Enables a MENU option in the communications menu under F10 to control the status of the active missions. +-- This function should be called only once when starting the MISSIONSCHEDULER. +function MISSIONSCHEDULER.ReportMenu() + local ReportMenu = SUBMENU:New( 'Status' ) + local ReportMenuShow = COMMANDMENU:New( 'Show Report Missions', ReportMenu, MISSIONSCHEDULER.ReportMissionsShow, 0 ) + local ReportMenuFlash = COMMANDMENU:New('Flash Report Missions', ReportMenu, MISSIONSCHEDULER.ReportMissionsFlash, 120 ) + local ReportMenuHide = COMMANDMENU:New( 'Hide Report Missions', ReportMenu, MISSIONSCHEDULER.ReportMissionsHide, 0 ) +end + +--- Show the remaining mission time. +function MISSIONSCHEDULER:TimeShow() + self.TimeIntervalCount = self.TimeIntervalCount + 1 + if self.TimeIntervalCount >= self.TimeTriggerShow then + local TimeMsg = string.format("%00d", ( self.TimeSeconds / 60 ) - ( timer.getTime() / 60 )) .. ' minutes left until mission reload.' + MESSAGE:New( TimeMsg, self.TimeShow, "Mission time" ):ToAll() + self.TimeIntervalCount = 0 + end +end + +function MISSIONSCHEDULER:Time( TimeSeconds, TimeIntervalShow, TimeShow ) + + self.TimeIntervalCount = 0 + self.TimeSeconds = TimeSeconds + self.TimeIntervalShow = TimeIntervalShow + self.TimeShow = TimeShow +end + +--- Adds a mission scoring to the game. +function MISSIONSCHEDULER:Scoring( Scoring ) + + self.Scoring = Scoring +end + +--- The CLEANUP class keeps an area clean of crashing or colliding airplanes. It also prevents airplanes from firing within this area. +-- @module CleanUp +-- @author Flightcontrol + + + + + + + +--- The CLEANUP class. +-- @type CLEANUP +-- @extends Base#BASE +CLEANUP = { + ClassName = "CLEANUP", + ZoneNames = {}, + TimeInterval = 300, + CleanUpList = {}, +} + +--- Creates the main object which is handling the cleaning of the debris within the given Zone Names. +-- @param #CLEANUP self +-- @param #table ZoneNames Is a table of zone names where the debris should be cleaned. Also a single string can be passed with one zone name. +-- @param #number TimeInterval The interval in seconds when the clean activity takes place. The default is 300 seconds, thus every 5 minutes. +-- @return #CLEANUP +-- @usage +-- -- Clean these Zones. +-- CleanUpAirports = CLEANUP:New( { 'CLEAN Tbilisi', 'CLEAN Kutaisi' }, 150 ) +-- or +-- CleanUpTbilisi = CLEANUP:New( 'CLEAN Tbilisi', 150 ) +-- CleanUpKutaisi = CLEANUP:New( 'CLEAN Kutaisi', 600 ) +function CLEANUP:New( ZoneNames, TimeInterval ) local self = BASE:Inherit( self, BASE:New() ) + self:F( { ZoneNames, TimeInterval } ) + + if type( ZoneNames ) == 'table' then + self.ZoneNames = ZoneNames + else + self.ZoneNames = { ZoneNames } + end + if TimeInterval then + self.TimeInterval = TimeInterval + end + + _EVENTDISPATCHER:OnBirth( self._OnEventBirth, self ) + + self.CleanUpScheduler = SCHEDULER:New( self, self._CleanUpScheduler, {}, 1, TimeInterval ) + + return self +end + + +--- Destroys a group from the simulator, but checks first if it is still existing! +-- @param #CLEANUP self +-- @param DCSGroup#Group GroupObject The object to be destroyed. +-- @param #string CleanUpGroupName The groupname... +function CLEANUP:_DestroyGroup( GroupObject, CleanUpGroupName ) + self:F( { GroupObject, CleanUpGroupName } ) + + if GroupObject then -- and GroupObject:isExist() then + trigger.action.deactivateGroup(GroupObject) + self:T( { "GroupObject Destroyed", GroupObject } ) + end +end + +--- Destroys a @{DCSUnit#Unit} from the simulator, but checks first if it is still existing! +-- @param #CLEANUP self +-- @param DCSUnit#Unit CleanUpUnit The object to be destroyed. +-- @param #string CleanUpUnitName The Unit name ... +function CLEANUP:_DestroyUnit( CleanUpUnit, CleanUpUnitName ) + self:F( { CleanUpUnit, CleanUpUnitName } ) + + if CleanUpUnit then + local CleanUpGroup = Unit.getGroup(CleanUpUnit) + -- TODO Client bug in 1.5.3 + if CleanUpGroup and CleanUpGroup:isExist() then + local CleanUpGroupUnits = CleanUpGroup:getUnits() + if #CleanUpGroupUnits == 1 then + local CleanUpGroupName = CleanUpGroup:getName() + --self:CreateEventCrash( timer.getTime(), CleanUpUnit ) + CleanUpGroup:destroy() + self:T( { "Destroyed Group:", CleanUpGroupName } ) + else + CleanUpUnit:destroy() + self:T( { "Destroyed Unit:", CleanUpUnitName } ) + end + self.CleanUpList[CleanUpUnitName] = nil -- Cleaning from the list + CleanUpUnit = nil + end + end +end + +-- TODO check DCSTypes#Weapon +--- Destroys a missile from the simulator, but checks first if it is still existing! +-- @param #CLEANUP self +-- @param DCSTypes#Weapon MissileObject +function CLEANUP:_DestroyMissile( MissileObject ) + self:F( { MissileObject } ) + + if MissileObject and MissileObject:isExist() then + MissileObject:destroy() + self:T( "MissileObject Destroyed") + end +end + +function CLEANUP:_OnEventBirth( Event ) + self:F( { Event } ) + + self.CleanUpList[Event.IniDCSUnitName] = {} + self.CleanUpList[Event.IniDCSUnitName].CleanUpUnit = Event.IniDCSUnit + self.CleanUpList[Event.IniDCSUnitName].CleanUpGroup = Event.IniDCSGroup + self.CleanUpList[Event.IniDCSUnitName].CleanUpGroupName = Event.IniDCSGroupName + self.CleanUpList[Event.IniDCSUnitName].CleanUpUnitName = Event.IniDCSUnitName + + _EVENTDISPATCHER:OnEngineShutDownForUnit( Event.IniDCSUnitName, self._EventAddForCleanUp, self ) + _EVENTDISPATCHER:OnEngineStartUpForUnit( Event.IniDCSUnitName, self._EventAddForCleanUp, self ) + _EVENTDISPATCHER:OnHitForUnit( Event.IniDCSUnitName, self._EventAddForCleanUp, self ) + _EVENTDISPATCHER:OnPilotDeadForUnit( Event.IniDCSUnitName, self._EventCrash, self ) + _EVENTDISPATCHER:OnDeadForUnit( Event.IniDCSUnitName, self._EventCrash, self ) + _EVENTDISPATCHER:OnCrashForUnit( Event.IniDCSUnitName, self._EventCrash, self ) + _EVENTDISPATCHER:OnShotForUnit( Event.IniDCSUnitName, self._EventShot, self ) + + --self:AddEvent( world.event.S_EVENT_ENGINE_SHUTDOWN, self._EventAddForCleanUp ) + --self:AddEvent( world.event.S_EVENT_ENGINE_STARTUP, self._EventAddForCleanUp ) +-- self:AddEvent( world.event.S_EVENT_HIT, self._EventAddForCleanUp ) -- , self._EventHitCleanUp ) +-- self:AddEvent( world.event.S_EVENT_CRASH, self._EventCrash ) -- , self._EventHitCleanUp ) +-- --self:AddEvent( world.event.S_EVENT_DEAD, self._EventCrash ) +-- self:AddEvent( world.event.S_EVENT_SHOT, self._EventShot ) +-- +-- self:EnableEvents() + + +end + +--- Detects if a crash event occurs. +-- Crashed units go into a CleanUpList for removal. +-- @param #CLEANUP self +-- @param DCSTypes#Event event +function CLEANUP:_EventCrash( Event ) + self:F( { Event } ) + + --TODO: This stuff is not working due to a DCS bug. Burning units cannot be destroyed. + -- self:T("before getGroup") + -- local _grp = Unit.getGroup(event.initiator)-- Identify the group that fired + -- self:T("after getGroup") + -- _grp:destroy() + -- self:T("after deactivateGroup") + -- event.initiator:destroy() + + self.CleanUpList[Event.IniDCSUnitName] = {} + self.CleanUpList[Event.IniDCSUnitName].CleanUpUnit = Event.IniDCSUnit + self.CleanUpList[Event.IniDCSUnitName].CleanUpGroup = Event.IniDCSGroup + self.CleanUpList[Event.IniDCSUnitName].CleanUpGroupName = Event.IniDCSGroupName + self.CleanUpList[Event.IniDCSUnitName].CleanUpUnitName = Event.IniDCSUnitName + +end + +--- Detects if a unit shoots a missile. +-- If this occurs within one of the zones, then the weapon used must be destroyed. +-- @param #CLEANUP self +-- @param DCSTypes#Event event +function CLEANUP:_EventShot( Event ) + self:F( { Event } ) + + -- Test if the missile was fired within one of the CLEANUP.ZoneNames. + local CurrentLandingZoneID = 0 + CurrentLandingZoneID = routines.IsUnitInZones( Event.IniDCSUnit, self.ZoneNames ) + if ( CurrentLandingZoneID ) then + -- Okay, the missile was fired within the CLEANUP.ZoneNames, destroy the fired weapon. + --_SEADmissile:destroy() + SCHEDULER:New( self, CLEANUP._DestroyMissile, { Event.Weapon }, 0.1 ) + end +end + + +--- Detects if the Unit has an S_EVENT_HIT within the given ZoneNames. If this is the case, destroy the unit. +-- @param #CLEANUP self +-- @param DCSTypes#Event event +function CLEANUP:_EventHitCleanUp( Event ) + self:F( { Event } ) + + if Event.IniDCSUnit then + if routines.IsUnitInZones( Event.IniDCSUnit, self.ZoneNames ) ~= nil then + self:T( { "Life: ", Event.IniDCSUnitName, ' = ', Event.IniDCSUnit:getLife(), "/", Event.IniDCSUnit:getLife0() } ) + if Event.IniDCSUnit:getLife() < Event.IniDCSUnit:getLife0() then + self:T( "CleanUp: Destroy: " .. Event.IniDCSUnitName ) + SCHEDULER:New( self, CLEANUP._DestroyUnit, { Event.IniDCSUnit }, 0.1 ) + end + end + end + + if Event.TgtDCSUnit then + if routines.IsUnitInZones( Event.TgtDCSUnit, self.ZoneNames ) ~= nil then + self:T( { "Life: ", Event.TgtDCSUnitName, ' = ', Event.TgtDCSUnit:getLife(), "/", Event.TgtDCSUnit:getLife0() } ) + if Event.TgtDCSUnit:getLife() < Event.TgtDCSUnit:getLife0() then + self:T( "CleanUp: Destroy: " .. Event.TgtDCSUnitName ) + SCHEDULER:New( self, CLEANUP._DestroyUnit, { Event.TgtDCSUnit }, 0.1 ) + end + end + end +end + +--- Add the @{DCSUnit#Unit} to the CleanUpList for CleanUp. +function CLEANUP:_AddForCleanUp( CleanUpUnit, CleanUpUnitName ) + self:F( { CleanUpUnit, CleanUpUnitName } ) + + self.CleanUpList[CleanUpUnitName] = {} + self.CleanUpList[CleanUpUnitName].CleanUpUnit = CleanUpUnit + self.CleanUpList[CleanUpUnitName].CleanUpUnitName = CleanUpUnitName + self.CleanUpList[CleanUpUnitName].CleanUpGroup = Unit.getGroup(CleanUpUnit) + self.CleanUpList[CleanUpUnitName].CleanUpGroupName = Unit.getGroup(CleanUpUnit):getName() + self.CleanUpList[CleanUpUnitName].CleanUpTime = timer.getTime() + self.CleanUpList[CleanUpUnitName].CleanUpMoved = false + + self:T( { "CleanUp: Add to CleanUpList: ", Unit.getGroup(CleanUpUnit):getName(), CleanUpUnitName } ) + +end + +--- Detects if the Unit has an S_EVENT_ENGINE_SHUTDOWN or an S_EVENT_HIT within the given ZoneNames. If this is the case, add the Group to the CLEANUP List. +-- @param #CLEANUP self +-- @param DCSTypes#Event event +function CLEANUP:_EventAddForCleanUp( Event ) + + if Event.IniDCSUnit then + if self.CleanUpList[Event.IniDCSUnitName] == nil then + if routines.IsUnitInZones( Event.IniDCSUnit, self.ZoneNames ) ~= nil then + self:_AddForCleanUp( Event.IniDCSUnit, Event.IniDCSUnitName ) + end + end + end + + if Event.TgtDCSUnit then + if self.CleanUpList[Event.TgtDCSUnitName] == nil then + if routines.IsUnitInZones( Event.TgtDCSUnit, self.ZoneNames ) ~= nil then + self:_AddForCleanUp( Event.TgtDCSUnit, Event.TgtDCSUnitName ) + end + end + end + +end + +local CleanUpSurfaceTypeText = { + "LAND", + "SHALLOW_WATER", + "WATER", + "ROAD", + "RUNWAY" + } + +--- At the defined time interval, CleanUp the Groups within the CleanUpList. +-- @param #CLEANUP self +function CLEANUP:_CleanUpScheduler() + self:F( { "CleanUp Scheduler" } ) + + local CleanUpCount = 0 + for CleanUpUnitName, UnitData in pairs( self.CleanUpList ) do + CleanUpCount = CleanUpCount + 1 + + self:T( { CleanUpUnitName, UnitData } ) + local CleanUpUnit = Unit.getByName(UnitData.CleanUpUnitName) + local CleanUpGroupName = UnitData.CleanUpGroupName + local CleanUpUnitName = UnitData.CleanUpUnitName + if CleanUpUnit then + self:T( { "CleanUp Scheduler", "Checking:", CleanUpUnitName } ) + if _DATABASE:GetStatusGroup( CleanUpGroupName ) ~= "ReSpawn" then + local CleanUpUnitVec3 = CleanUpUnit:getPoint() + --self:T( CleanUpUnitVec3 ) + local CleanUpUnitVec2 = {} + CleanUpUnitVec2.x = CleanUpUnitVec3.x + CleanUpUnitVec2.y = CleanUpUnitVec3.z + --self:T( CleanUpUnitVec2 ) + local CleanUpSurfaceType = land.getSurfaceType(CleanUpUnitVec2) + --self:T( CleanUpSurfaceType ) + + if CleanUpUnit and CleanUpUnit:getLife() <= CleanUpUnit:getLife0() * 0.95 then + if CleanUpSurfaceType == land.SurfaceType.RUNWAY then + if CleanUpUnit:inAir() then + local CleanUpLandHeight = land.getHeight(CleanUpUnitVec2) + local CleanUpUnitHeight = CleanUpUnitVec3.y - CleanUpLandHeight + self:T( { "CleanUp Scheduler", "Height = " .. CleanUpUnitHeight } ) + if CleanUpUnitHeight < 30 then + self:T( { "CleanUp Scheduler", "Destroy " .. CleanUpUnitName .. " because below safe height and damaged." } ) + self:_DestroyUnit(CleanUpUnit, CleanUpUnitName) + end + else + self:T( { "CleanUp Scheduler", "Destroy " .. CleanUpUnitName .. " because on runway and damaged." } ) + self:_DestroyUnit(CleanUpUnit, CleanUpUnitName) + end + end + end + -- Clean Units which are waiting for a very long time in the CleanUpZone. + if CleanUpUnit then + local CleanUpUnitVelocity = CleanUpUnit:getVelocity() + local CleanUpUnitVelocityTotal = math.abs(CleanUpUnitVelocity.x) + math.abs(CleanUpUnitVelocity.y) + math.abs(CleanUpUnitVelocity.z) + if CleanUpUnitVelocityTotal < 1 then + if UnitData.CleanUpMoved then + if UnitData.CleanUpTime + 180 <= timer.getTime() then + self:T( { "CleanUp Scheduler", "Destroy due to not moving anymore " .. CleanUpUnitName } ) + self:_DestroyUnit(CleanUpUnit, CleanUpUnitName) + end + end + else + UnitData.CleanUpTime = timer.getTime() + UnitData.CleanUpMoved = true + end + end + + else + -- Do nothing ... + self.CleanUpList[CleanUpUnitName] = nil -- Not anymore in the DCSRTE + end + else + self:T( "CleanUp: Group " .. CleanUpUnitName .. " cannot be found in DCS RTE, removing ..." ) + self.CleanUpList[CleanUpUnitName] = nil -- Not anymore in the DCSRTE + end + end + self:T(CleanUpCount) + + return true +end + +--- This module contains the SPAWN class. +-- +-- 1) @{Spawn#SPAWN} class, extends @{Base#BASE} +-- ============================================= +-- The @{#SPAWN} class allows to spawn dynamically new groups, based on pre-defined initialization settings, modifying the behaviour when groups are spawned. +-- For each group to be spawned, within the mission editor, a group has to be created with the "late activation flag" set. We call this group the *"Spawn Template"* of the SPAWN object. +-- A reference to this Spawn Template needs to be provided when constructing the SPAWN object, by indicating the name of the group within the mission editor in the constructor methods. +-- +-- Within the SPAWN object, there is an internal index that keeps track of which group from the internal group list was spawned. +-- When new groups get spawned by using the SPAWN functions (see below), it will be validated whether the Limits (@{#SPAWN.Limit}) of the SPAWN object are not reached. +-- When all is valid, a new group will be created by the spawning methods, and the internal index will be increased with 1. +-- +-- Regarding the name of new spawned groups, a _SpawnPrefix_ will be assigned for each new group created. +-- If you want to have the Spawn Template name to be used as the _SpawnPrefix_ name, use the @{#SPAWN.New} constructor. +-- However, when the @{#SPAWN.NewWithAlias} constructor was used, the Alias name will define the _SpawnPrefix_ name. +-- Groups will follow the following naming structure when spawned at run-time: +-- +-- 1. Spawned groups will have the name _SpawnPrefix_#ggg, where ggg is a counter from 0 to 999. +-- 2. Spawned units will have the name _SpawnPrefix_#ggg-uu, where uu is a counter from 0 to 99 for each new spawned unit belonging to the group. +-- +-- Some additional notes that need to be remembered: +-- +-- * Templates are actually groups defined within the mission editor, with the flag "Late Activation" set. As such, these groups are never used within the mission, but are used by the @{#SPAWN} module. +-- * It is important to defined BEFORE you spawn new groups, a proper initialization of the SPAWN instance is done with the options you want to use. +-- * When designing a mission, NEVER name groups using a "#" within the name of the group Spawn Template(s), or the SPAWN module logic won't work anymore. +-- +-- 1.1) SPAWN construction methods +-- ------------------------------- +-- Create a new SPAWN object with the @{#SPAWN.New} or the @{#SPAWN.NewWithAlias} methods: +-- +-- * @{#SPAWN.New}: Creates a new SPAWN object taking the name of the group that functions as the Template. +-- +-- It is important to understand how the SPAWN class works internally. The SPAWN object created will contain internally a list of groups that will be spawned and that are already spawned. +-- The initialization functions will modify this list of groups so that when a group gets spawned, ALL information is already prepared when spawning. This is done for performance reasons. +-- So in principle, the group list will contain all parameters and configurations after initialization, and when groups get actually spawned, this spawning can be done quickly and efficient. +-- +-- 1.2) SPAWN initialization methods +-- --------------------------------- +-- A spawn object will behave differently based on the usage of initialization methods: +-- +-- * @{#SPAWN.Limit}: Limits the amount of groups that can be alive at the same time and that can be dynamically spawned. +-- * @{#SPAWN.RandomizeRoute}: Randomize the routes of spawned groups. +-- * @{#SPAWN.RandomizeTemplate}: Randomize the group templates so that when a new group is spawned, a random group template is selected from one of the templates defined. +-- * @{#SPAWN.Uncontrolled}: Spawn plane groups uncontrolled. +-- * @{#SPAWN.Array}: Make groups visible before they are actually activated, and order these groups like a batallion in an array. +-- * @{#SPAWN.InitRepeat}: Re-spawn groups when they land at the home base. Similar functions are @{#SPAWN.InitRepeatOnLanding} and @{#SPAWN.InitRepeatOnEngineShutDown}. +-- +-- 1.3) SPAWN spawning methods +-- --------------------------- +-- Groups can be spawned at different times and methods: +-- +-- * @{#SPAWN.Spawn}: Spawn one new group based on the last spawned index. +-- * @{#SPAWN.ReSpawn}: Re-spawn a group based on a given index. +-- * @{#SPAWN.SpawnScheduled}: Spawn groups at scheduled but randomized intervals. You can use @{#SPAWN.SpawnScheduleStart} and @{#SPAWN.SpawnScheduleStop} to start and stop the schedule respectively. +-- * @{#SPAWN.SpawnFromUnit}: Spawn a new group taking the position of a @{UNIT}. +-- * @{#SPAWN.SpawnInZone}: Spawn a new group in a @{ZONE}. +-- +-- Note that @{#SPAWN.Spawn} and @{#SPAWN.ReSpawn} return a @{GROUP#GROUP.New} object, that contains a reference to the DCSGroup object. +-- You can use the @{GROUP} object to do further actions with the DCSGroup. +-- +-- 1.4) SPAWN object cleaning +-- -------------------------- +-- Sometimes, it will occur during a mission run-time, that ground or especially air objects get damaged, and will while being damged stop their activities, while remaining alive. +-- In such cases, the SPAWN object will just sit there and wait until that group gets destroyed, but most of the time it won't, +-- and it may occur that no new groups are or can be spawned as limits are reached. +-- To prevent this, a @{#SPAWN.CleanUp} initialization method has been defined that will silently monitor the status of each spawned group. +-- Once a group has a velocity = 0, and has been waiting for a defined interval, that group will be cleaned or removed from run-time. +-- There is a catch however :-) If a damaged group has returned to an airbase within the coalition, that group will not be considered as "lost"... +-- In such a case, when the inactive group is cleaned, a new group will Re-spawned automatically. +-- This models AI that has succesfully returned to their airbase, to restart their combat activities. +-- Check the @{#SPAWN.CleanUp} for further info. +-- +-- +-- @module Spawn +-- @author FlightControl + +--- SPAWN Class +-- @type SPAWN +-- @extends Base#BASE +-- @field ClassName +-- @field #string SpawnTemplatePrefix +-- @field #string SpawnAliasPrefix +SPAWN = { + ClassName = "SPAWN", + SpawnTemplatePrefix = nil, + SpawnAliasPrefix = nil, +} + + + +--- Creates the main object to spawn a GROUP defined in the DCS ME. +-- @param #SPAWN self +-- @param #string SpawnTemplatePrefix is the name of the Group in the ME that defines the Template. Each new group will have the name starting with SpawnTemplatePrefix. +-- @return #SPAWN +-- @usage +-- -- NATO helicopters engaging in the battle field. +-- Spawn_BE_KA50 = SPAWN:New( 'BE KA-50@RAMP-Ground Defense' ) +-- @usage local Plane = SPAWN:New( "Plane" ) -- Creates a new local variable that can initiate new planes with the name "Plane#ddd" using the template "Plane" as defined within the ME. +function SPAWN:New( SpawnTemplatePrefix ) + local self = BASE:Inherit( self, BASE:New() ) + self:F( { SpawnTemplatePrefix } ) + + local TemplateGroup = Group.getByName( SpawnTemplatePrefix ) + if TemplateGroup then + self.SpawnTemplatePrefix = SpawnTemplatePrefix + self.SpawnIndex = 0 + self.SpawnCount = 0 -- The internal counter of the amount of spawning the has happened since SpawnStart. + self.AliveUnits = 0 -- Contains the counter how many units are currently alive + self.SpawnIsScheduled = false -- Reflects if the spawning for this SpawnTemplatePrefix is going to be scheduled or not. + self.SpawnTemplate = self._GetTemplate( self, SpawnTemplatePrefix ) -- Contains the template structure for a Group Spawn from the Mission Editor. Note that this group must have lateActivation always on!!! + self.Repeat = false -- Don't repeat the group from Take-Off till Landing and back Take-Off by ReSpawning. + self.UnControlled = false -- When working in UnControlled mode, all planes are Spawned in UnControlled mode before the scheduler starts. + self.SpawnMaxUnitsAlive = 0 -- The maximum amount of groups that can be alive of SpawnTemplatePrefix at the same time. + self.SpawnMaxGroups = 0 -- The maximum amount of groups that can be spawned. + self.SpawnRandomize = false -- Sets the randomization flag of new Spawned units to false. + self.SpawnVisible = false -- Flag that indicates if all the Groups of the SpawnGroup need to be visible when Spawned. + + self.SpawnGroups = {} -- Array containing the descriptions of each Group to be Spawned. + else + error( "SPAWN:New: There is no group declared in the mission editor with SpawnTemplatePrefix = '" .. SpawnTemplatePrefix .. "'" ) + end + + return self +end + +--- Creates a new SPAWN instance to create new groups based on the defined template and using a new alias for each new group. +-- @param #SPAWN self +-- @param #string SpawnTemplatePrefix is the name of the Group in the ME that defines the Template. +-- @param #string SpawnAliasPrefix is the name that will be given to the Group at runtime. +-- @return #SPAWN +-- @usage +-- -- NATO helicopters engaging in the battle field. +-- Spawn_BE_KA50 = SPAWN:NewWithAlias( 'BE KA-50@RAMP-Ground Defense', 'Helicopter Attacking a City' ) +-- @usage local PlaneWithAlias = SPAWN:NewWithAlias( "Plane", "Bomber" ) -- Creates a new local variable that can instantiate new planes with the name "Bomber#ddd" using the template "Plane" as defined within the ME. +function SPAWN:NewWithAlias( SpawnTemplatePrefix, SpawnAliasPrefix ) + local self = BASE:Inherit( self, BASE:New() ) + self:F( { SpawnTemplatePrefix, SpawnAliasPrefix } ) + + local TemplateGroup = Group.getByName( SpawnTemplatePrefix ) + if TemplateGroup then + self.SpawnTemplatePrefix = SpawnTemplatePrefix + self.SpawnAliasPrefix = SpawnAliasPrefix + self.SpawnIndex = 0 + self.SpawnCount = 0 -- The internal counter of the amount of spawning the has happened since SpawnStart. + self.AliveUnits = 0 -- Contains the counter how many units are currently alive + self.SpawnIsScheduled = false -- Reflects if the spawning for this SpawnTemplatePrefix is going to be scheduled or not. + self.SpawnTemplate = self._GetTemplate( self, SpawnTemplatePrefix ) -- Contains the template structure for a Group Spawn from the Mission Editor. Note that this group must have lateActivation always on!!! + self.Repeat = false -- Don't repeat the group from Take-Off till Landing and back Take-Off by ReSpawning. + self.UnControlled = false -- When working in UnControlled mode, all planes are Spawned in UnControlled mode before the scheduler starts. + self.SpawnMaxUnitsAlive = 0 -- The maximum amount of groups that can be alive of SpawnTemplatePrefix at the same time. + self.SpawnMaxGroups = 0 -- The maximum amount of groups that can be spawned. + self.SpawnRandomize = false -- Sets the randomization flag of new Spawned units to false. + self.SpawnVisible = false -- Flag that indicates if all the Groups of the SpawnGroup need to be visible when Spawned. + + self.SpawnGroups = {} -- Array containing the descriptions of each Group to be Spawned. + else + error( "SPAWN:New: There is no group declared in the mission editor with SpawnTemplatePrefix = '" .. SpawnTemplatePrefix .. "'" ) + end + + return self +end + + +--- Limits the Maximum amount of Units that can be alive at the same time, and the maximum amount of groups that can be spawned. +-- Note that this method is exceptionally important to balance the performance of the mission. Depending on the machine etc, a mission can only process a maximum amount of units. +-- If the time interval must be short, but there should not be more Units or Groups alive than a maximum amount of units, then this function should be used... +-- When a @{#SPAWN.New} is executed and the limit of the amount of units alive is reached, then no new spawn will happen of the group, until some of these units of the spawn object will be destroyed. +-- @param #SPAWN self +-- @param #number SpawnMaxUnitsAlive The maximum amount of units that can be alive at runtime. +-- @param #number SpawnMaxGroups The maximum amount of groups that can be spawned. When the limit is reached, then no more actual spawns will happen of the group. +-- This parameter is useful to define a maximum amount of airplanes, ground troops, helicopters, ships etc within a supply area. +-- This parameter accepts the value 0, which defines that there are no maximum group limits, but there are limits on the maximum of units that can be alive at the same time. +-- @return #SPAWN self +-- @usage +-- -- NATO helicopters engaging in the battle field. +-- -- This helicopter group consists of one Unit. So, this group will SPAWN maximum 2 groups simultaneously within the DCSRTE. +-- -- There will be maximum 24 groups spawned during the whole mission lifetime. +-- Spawn_BE_KA50 = SPAWN:New( 'BE KA-50@RAMP-Ground Defense' ):Limit( 2, 24 ) +function SPAWN:Limit( SpawnMaxUnitsAlive, SpawnMaxGroups ) + self:F( { self.SpawnTemplatePrefix, SpawnMaxUnitsAlive, SpawnMaxGroups } ) + + self.SpawnMaxUnitsAlive = SpawnMaxUnitsAlive -- The maximum amount of groups that can be alive of SpawnTemplatePrefix at the same time. + self.SpawnMaxGroups = SpawnMaxGroups -- The maximum amount of groups that can be spawned. + + for SpawnGroupID = 1, self.SpawnMaxGroups do + self:_InitializeSpawnGroups( SpawnGroupID ) + end + + return self +end + + +--- Randomizes the defined route of the SpawnTemplatePrefix group in the ME. This is very useful to define extra variation of the behaviour of groups. +-- @param #SPAWN self +-- @param #number SpawnStartPoint is the waypoint where the randomization begins. +-- Note that the StartPoint = 0 equaling the point where the group is spawned. +-- @param #number SpawnEndPoint is the waypoint where the randomization ends counting backwards. +-- This parameter is useful to avoid randomization to end at a waypoint earlier than the last waypoint on the route. +-- @param #number SpawnRadius is the radius in meters in which the randomization of the new waypoints, with the original waypoint of the original template located in the middle ... +-- @return #SPAWN +-- @usage +-- -- NATO helicopters engaging in the battle field. +-- -- The KA-50 has waypoints Start point ( =0 or SP ), 1, 2, 3, 4, End point (= 5 or DP). +-- -- Waypoints 2 and 3 will only be randomized. The others will remain on their original position with each new spawn of the helicopter. +-- -- The randomization of waypoint 2 and 3 will take place within a radius of 2000 meters. +-- Spawn_BE_KA50 = SPAWN:New( 'BE KA-50@RAMP-Ground Defense' ):RandomizeRoute( 2, 2, 2000 ) +function SPAWN:RandomizeRoute( SpawnStartPoint, SpawnEndPoint, SpawnRadius ) + self:F( { self.SpawnTemplatePrefix, SpawnStartPoint, SpawnEndPoint, SpawnRadius } ) + + self.SpawnRandomizeRoute = true + self.SpawnRandomizeRouteStartPoint = SpawnStartPoint + self.SpawnRandomizeRouteEndPoint = SpawnEndPoint + self.SpawnRandomizeRouteRadius = SpawnRadius + + for GroupID = 1, self.SpawnMaxGroups do + self:_RandomizeRoute( GroupID ) + end + + return self +end + + +--- This function is rather complicated to understand. But I'll try to explain. +-- This function becomes useful when you need to spawn groups with random templates of groups defined within the mission editor, +-- but they will all follow the same Template route and have the same prefix name. +-- In other words, this method randomizes between a defined set of groups the template to be used for each new spawn of a group. +-- @param #SPAWN self +-- @param #string SpawnTemplatePrefixTable A table with the names of the groups defined within the mission editor, from which one will be choosen when a new group will be spawned. +-- @return #SPAWN +-- @usage +-- -- NATO Tank Platoons invading Gori. +-- -- Choose between 13 different 'US Tank Platoon' configurations for each new SPAWN the Group to be spawned for the +-- -- 'US Tank Platoon Left', 'US Tank Platoon Middle' and 'US Tank Platoon Right' SpawnTemplatePrefixes. +-- -- Each new SPAWN will randomize the route, with a defined time interval of 200 seconds with 40% time variation (randomization) and +-- -- with a limit set of maximum 12 Units alive simulteneously and 150 Groups to be spawned during the whole mission. +-- Spawn_US_Platoon = { 'US Tank Platoon 1', 'US Tank Platoon 2', 'US Tank Platoon 3', 'US Tank Platoon 4', 'US Tank Platoon 5', +-- 'US Tank Platoon 6', 'US Tank Platoon 7', 'US Tank Platoon 8', 'US Tank Platoon 9', 'US Tank Platoon 10', +-- 'US Tank Platoon 11', 'US Tank Platoon 12', 'US Tank Platoon 13' } +-- Spawn_US_Platoon_Left = SPAWN:New( 'US Tank Platoon Left' ):Limit( 12, 150 ):Schedule( 200, 0.4 ):RandomizeTemplate( Spawn_US_Platoon ):RandomizeRoute( 3, 3, 2000 ) +-- Spawn_US_Platoon_Middle = SPAWN:New( 'US Tank Platoon Middle' ):Limit( 12, 150 ):Schedule( 200, 0.4 ):RandomizeTemplate( Spawn_US_Platoon ):RandomizeRoute( 3, 3, 2000 ) +-- Spawn_US_Platoon_Right = SPAWN:New( 'US Tank Platoon Right' ):Limit( 12, 150 ):Schedule( 200, 0.4 ):RandomizeTemplate( Spawn_US_Platoon ):RandomizeRoute( 3, 3, 2000 ) +function SPAWN:RandomizeTemplate( SpawnTemplatePrefixTable ) + self:F( { self.SpawnTemplatePrefix, SpawnTemplatePrefixTable } ) + + self.SpawnTemplatePrefixTable = SpawnTemplatePrefixTable + self.SpawnRandomizeTemplate = true + + for SpawnGroupID = 1, self.SpawnMaxGroups do + self:_RandomizeTemplate( SpawnGroupID ) + end + + return self +end + + + + + +--- For planes and helicopters, when these groups go home and land on their home airbases and farps, they normally would taxi to the parking spot, shut-down their engines and wait forever until the Group is removed by the runtime environment. +-- This function is used to re-spawn automatically (so no extra call is needed anymore) the same group after it has landed. +-- This will enable a spawned group to be re-spawned after it lands, until it is destroyed... +-- Note: When the group is respawned, it will re-spawn from the original airbase where it took off. +-- So ensure that the routes for groups that respawn, always return to the original airbase, or players may get confused ... +-- @param #SPAWN self +-- @return #SPAWN self +-- @usage +-- -- RU Su-34 - AI Ship Attack +-- -- Re-SPAWN the Group(s) after each landing and Engine Shut-Down automatically. +-- SpawnRU_SU34 = SPAWN:New( 'TF1 RU Su-34 Krymsk@AI - Attack Ships' ):Schedule( 2, 3, 1800, 0.4 ):SpawnUncontrolled():RandomizeRoute( 1, 1, 3000 ):RepeatOnEngineShutDown() +function SPAWN:InitRepeat() + self:F( { self.SpawnTemplatePrefix, self.SpawnIndex } ) + + self.Repeat = true + self.RepeatOnEngineShutDown = false + self.RepeatOnLanding = true + + return self +end + +--- Respawn group after landing. +-- @param #SPAWN self +-- @return #SPAWN self +function SPAWN:InitRepeatOnLanding() + self:F( { self.SpawnTemplatePrefix } ) + + self:InitRepeat() + self.RepeatOnEngineShutDown = false + self.RepeatOnLanding = true + + return self +end + + +--- Respawn after landing when its engines have shut down. +-- @param #SPAWN self +-- @return #SPAWN self +function SPAWN:InitRepeatOnEngineShutDown() + self:F( { self.SpawnTemplatePrefix } ) + + self:InitRepeat() + self.RepeatOnEngineShutDown = true + self.RepeatOnLanding = false + + return self +end + + +--- CleanUp groups when they are still alive, but inactive. +-- When groups are still alive and have become inactive due to damage and are unable to contribute anything, then this group will be removed at defined intervals in seconds. +-- @param #SPAWN self +-- @param #string SpawnCleanUpInterval The interval to check for inactive groups within seconds. +-- @return #SPAWN self +-- @usage Spawn_Helicopter:CleanUp( 20 ) -- CleanUp the spawning of the helicopters every 20 seconds when they become inactive. +function SPAWN:CleanUp( SpawnCleanUpInterval ) + self:F( { self.SpawnTemplatePrefix, SpawnCleanUpInterval } ) + + self.SpawnCleanUpInterval = SpawnCleanUpInterval + self.SpawnCleanUpTimeStamps = {} + --self.CleanUpFunction = routines.scheduleFunction( self._SpawnCleanUpScheduler, { self }, timer.getTime() + 1, SpawnCleanUpInterval ) + self.CleanUpScheduler = SCHEDULER:New( self, self._SpawnCleanUpScheduler, {}, 1, SpawnCleanUpInterval, 0.2 ) + return self +end + + + +--- Makes the groups visible before start (like a batallion). +-- The method will take the position of the group as the first position in the array. +-- @param #SPAWN self +-- @param #number SpawnAngle The angle in degrees how the groups and each unit of the group will be positioned. +-- @param #number SpawnWidth The amount of Groups that will be positioned on the X axis. +-- @param #number SpawnDeltaX The space between each Group on the X-axis. +-- @param #number SpawnDeltaY The space between each Group on the Y-axis. +-- @return #SPAWN self +-- @usage +-- -- Define an array of Groups. +-- Spawn_BE_Ground = SPAWN:New( 'BE Ground' ):Limit( 2, 24 ):Visible( 90, "Diamond", 10, 100, 50 ) +function SPAWN:Array( SpawnAngle, SpawnWidth, SpawnDeltaX, SpawnDeltaY ) + self:F( { self.SpawnTemplatePrefix, SpawnAngle, SpawnWidth, SpawnDeltaX, SpawnDeltaY } ) + + self.SpawnVisible = true -- When the first Spawn executes, all the Groups need to be made visible before start. + + local SpawnX = 0 + local SpawnY = 0 + local SpawnXIndex = 0 + local SpawnYIndex = 0 + + for SpawnGroupID = 1, self.SpawnMaxGroups do + self:T( { SpawnX, SpawnY, SpawnXIndex, SpawnYIndex } ) + + self.SpawnGroups[SpawnGroupID].Visible = true + self.SpawnGroups[SpawnGroupID].Spawned = false + + SpawnXIndex = SpawnXIndex + 1 + if SpawnWidth and SpawnWidth ~= 0 then + if SpawnXIndex >= SpawnWidth then + SpawnXIndex = 0 + SpawnYIndex = SpawnYIndex + 1 + end + end + + local SpawnRootX = self.SpawnGroups[SpawnGroupID].SpawnTemplate.x + local SpawnRootY = self.SpawnGroups[SpawnGroupID].SpawnTemplate.y + + self:_TranslateRotate( SpawnGroupID, SpawnRootX, SpawnRootY, SpawnX, SpawnY, SpawnAngle ) + + self.SpawnGroups[SpawnGroupID].SpawnTemplate.lateActivation = true + self.SpawnGroups[SpawnGroupID].SpawnTemplate.visible = true + + self.SpawnGroups[SpawnGroupID].Visible = true + + _EVENTDISPATCHER:OnBirthForTemplate( self.SpawnGroups[SpawnGroupID].SpawnTemplate, self._OnBirth, self ) + _EVENTDISPATCHER:OnCrashForTemplate( self.SpawnGroups[SpawnGroupID].SpawnTemplate, self._OnDeadOrCrash, self ) + _EVENTDISPATCHER:OnDeadForTemplate( self.SpawnGroups[SpawnGroupID].SpawnTemplate, self._OnDeadOrCrash, self ) + + if self.Repeat then + _EVENTDISPATCHER:OnTakeOffForTemplate( self.SpawnGroups[SpawnGroupID].SpawnTemplate, self._OnTakeOff, self ) + _EVENTDISPATCHER:OnLandForTemplate( self.SpawnGroups[SpawnGroupID].SpawnTemplate, self._OnLand, self ) + end + if self.RepeatOnEngineShutDown then + _EVENTDISPATCHER:OnEngineShutDownForTemplate( self.SpawnGroups[SpawnGroupID].SpawnTemplate, self._OnEngineShutDown, self ) + end + + self.SpawnGroups[SpawnGroupID].Group = _DATABASE:Spawn( self.SpawnGroups[SpawnGroupID].SpawnTemplate ) + + SpawnX = SpawnXIndex * SpawnDeltaX + SpawnY = SpawnYIndex * SpawnDeltaY + end + + return self +end + + + +--- Will spawn a group based on the internal index. +-- Note: Uses @{DATABASE} module defined in MOOSE. +-- @param #SPAWN self +-- @return Group#GROUP The group that was spawned. You can use this group for further actions. +function SPAWN:Spawn() + self:F( { self.SpawnTemplatePrefix, self.SpawnIndex } ) + + return self:SpawnWithIndex( self.SpawnIndex + 1 ) +end + +--- Will re-spawn a group based on a given index. +-- Note: Uses @{DATABASE} module defined in MOOSE. +-- @param #SPAWN self +-- @param #string SpawnIndex The index of the group to be spawned. +-- @return Group#GROUP The group that was spawned. You can use this group for further actions. +function SPAWN:ReSpawn( SpawnIndex ) + self:F( { self.SpawnTemplatePrefix, SpawnIndex } ) + + if not SpawnIndex then + SpawnIndex = 1 + end + +-- TODO: This logic makes DCS crash and i don't know why (yet). + local SpawnGroup = self:GetGroupFromIndex( SpawnIndex ) + if SpawnGroup then + local SpawnDCSGroup = SpawnGroup:GetDCSObject() + if SpawnDCSGroup then + SpawnGroup:Destroy() + end + end + + return self:SpawnWithIndex( SpawnIndex ) +end + +--- Will spawn a group with a specified index number. +-- Uses @{DATABASE} global object defined in MOOSE. +-- @param #SPAWN self +-- @return Group#GROUP The group that was spawned. You can use this group for further actions. +function SPAWN:SpawnWithIndex( SpawnIndex ) + self:F( { self.SpawnTemplatePrefix, SpawnIndex, self.SpawnMaxGroups } ) + + if self:_GetSpawnIndex( SpawnIndex ) then + + if self.SpawnGroups[self.SpawnIndex].Visible then + self.SpawnGroups[self.SpawnIndex].Group:Activate() + else + self:T( self.SpawnGroups[self.SpawnIndex].SpawnTemplate ) + _EVENTDISPATCHER:OnBirthForTemplate( self.SpawnGroups[self.SpawnIndex].SpawnTemplate, self._OnBirth, self ) + _EVENTDISPATCHER:OnCrashForTemplate( self.SpawnGroups[self.SpawnIndex].SpawnTemplate, self._OnDeadOrCrash, self ) + _EVENTDISPATCHER:OnDeadForTemplate( self.SpawnGroups[self.SpawnIndex].SpawnTemplate, self._OnDeadOrCrash, self ) + + if self.Repeat then + _EVENTDISPATCHER:OnTakeOffForTemplate( self.SpawnGroups[self.SpawnIndex].SpawnTemplate, self._OnTakeOff, self ) + _EVENTDISPATCHER:OnLandForTemplate( self.SpawnGroups[self.SpawnIndex].SpawnTemplate, self._OnLand, self ) + end + if self.RepeatOnEngineShutDown then + _EVENTDISPATCHER:OnEngineShutDownForTemplate( self.SpawnGroups[self.SpawnIndex].SpawnTemplate, self._OnEngineShutDown, self ) + end + + self:T( self.SpawnGroups[self.SpawnIndex].SpawnTemplate ) + + self.SpawnGroups[self.SpawnIndex].Group = _DATABASE:Spawn( self.SpawnGroups[self.SpawnIndex].SpawnTemplate ) + + -- If there is a SpawnFunction hook defined, call it. + if self.SpawnFunctionHook then + self.SpawnFunctionHook( self.SpawnGroups[self.SpawnIndex].Group, unpack( self.SpawnFunctionArguments ) ) + end + -- TODO: Need to fix this by putting an "R" in the name of the group when the group repeats. + --if self.Repeat then + -- _DATABASE:SetStatusGroup( SpawnTemplate.name, "ReSpawn" ) + --end + end + + self.SpawnGroups[self.SpawnIndex].Spawned = true + return self.SpawnGroups[self.SpawnIndex].Group + else + --self:E( { self.SpawnTemplatePrefix, "No more Groups to Spawn:", SpawnIndex, self.SpawnMaxGroups } ) + end + + return nil +end + +--- Spawns new groups at varying time intervals. +-- This is useful if you want to have continuity within your missions of certain (AI) groups to be present (alive) within your missions. +-- @param #SPAWN self +-- @param #number SpawnTime The time interval defined in seconds between each new spawn of new groups. +-- @param #number SpawnTimeVariation The variation to be applied on the defined time interval between each new spawn. +-- The variation is a number between 0 and 1, representing the %-tage of variation to be applied on the time interval. +-- @return #SPAWN self +-- @usage +-- -- NATO helicopters engaging in the battle field. +-- -- The time interval is set to SPAWN new helicopters between each 600 seconds, with a time variation of 50%. +-- -- The time variation in this case will be between 450 seconds and 750 seconds. +-- -- This is calculated as follows: +-- -- Low limit: 600 * ( 1 - 0.5 / 2 ) = 450 +-- -- High limit: 600 * ( 1 + 0.5 / 2 ) = 750 +-- -- Between these two values, a random amount of seconds will be choosen for each new spawn of the helicopters. +-- Spawn_BE_KA50 = SPAWN:New( 'BE KA-50@RAMP-Ground Defense' ):Schedule( 600, 0.5 ) +function SPAWN:SpawnScheduled( SpawnTime, SpawnTimeVariation ) + self:F( { SpawnTime, SpawnTimeVariation } ) + + if SpawnTime ~= nil and SpawnTimeVariation ~= nil then + self.SpawnScheduler = SCHEDULER:New( self, self._Scheduler, {}, 1, SpawnTime, SpawnTimeVariation ) + end + + return self +end + +--- Will re-start the spawning scheduler. +-- Note: This function is only required to be called when the schedule was stopped. +function SPAWN:SpawnScheduleStart() + self:F( { self.SpawnTemplatePrefix } ) + + self.SpawnScheduler:Start() +end + +--- Will stop the scheduled spawning scheduler. +function SPAWN:SpawnScheduleStop() + self:F( { self.SpawnTemplatePrefix } ) + + self.SpawnScheduler:Stop() +end + + +--- Allows to place a CallFunction hook when a new group spawns. +-- The provided function will be called when a new group is spawned, including its given parameters. +-- The first parameter of the SpawnFunction is the @{Group#GROUP} that was spawned. +-- @param #SPAWN self +-- @param #function SpawnFunctionHook The function to be called when a group spawns. +-- @param SpawnFunctionArguments A random amount of arguments to be provided to the function when the group spawns. +-- @return #SPAWN +function SPAWN:SpawnFunction( SpawnFunctionHook, ... ) + self:F( SpawnFunction ) + + self.SpawnFunctionHook = SpawnFunctionHook + self.SpawnFunctionArguments = {} + if arg then + self.SpawnFunctionArguments = arg + end + + return self +end + + + + +--- Will spawn a group from a hosting unit. This function is mostly advisable to be used if you want to simulate spawning from air units, like helicopters, which are dropping infantry into a defined Landing Zone. +-- Note that each point in the route assigned to the spawning group is reset to the point of the spawn. +-- You can use the returned group to further define the route to be followed. +-- @param #SPAWN self +-- @param Unit#UNIT HostUnit The air or ground unit dropping or unloading the group. +-- @param #number OuterRadius The outer radius in meters where the new group will be spawned. +-- @param #number InnerRadius The inner radius in meters where the new group will NOT be spawned. +-- @param #number SpawnIndex (Optional) The index which group to spawn within the given zone. +-- @return Group#GROUP that was spawned. +-- @return #nil Nothing was spawned. +function SPAWN:SpawnFromUnit( HostUnit, OuterRadius, InnerRadius, SpawnIndex ) + self:F( { self.SpawnTemplatePrefix, HostUnit, OuterRadius, InnerRadius, SpawnIndex } ) + + if HostUnit and HostUnit:IsAlive() then -- and HostUnit:getUnit(1):inAir() == false then + + if SpawnIndex then + else + SpawnIndex = self.SpawnIndex + 1 + end + + if self:_GetSpawnIndex( SpawnIndex ) then + + local SpawnTemplate = self.SpawnGroups[self.SpawnIndex].SpawnTemplate + + if SpawnTemplate then + + local UnitPoint = HostUnit:GetPointVec2() + + self:T( { "Current point of ", self.SpawnTemplatePrefix, UnitPoint } ) + + --for PointID, Point in pairs( SpawnTemplate.route.points ) do + --Point.x = UnitPoint.x + --Point.y = UnitPoint.y + --Point.alt = nil + --Point.alt_type = nil + --end + + SpawnTemplate.route.points[1].x = UnitPoint.x + SpawnTemplate.route.points[1].y = UnitPoint.y + + if not InnerRadius then + InnerRadius = 10 + end + + if not OuterRadius then + OuterRadius = 50 + end + + -- Apply SpawnFormation + for UnitID = 1, #SpawnTemplate.units do + if InnerRadius == 0 then + SpawnTemplate.units[UnitID].x = UnitPoint.x + SpawnTemplate.units[UnitID].y = UnitPoint.y + else + local CirclePos = routines.getRandPointInCircle( UnitPoint, OuterRadius, InnerRadius ) + SpawnTemplate.units[UnitID].x = CirclePos.x + SpawnTemplate.units[UnitID].y = CirclePos.y + end + self:T( 'SpawnTemplate.units['..UnitID..'].x = ' .. SpawnTemplate.units[UnitID].x .. ', SpawnTemplate.units['..UnitID..'].y = ' .. SpawnTemplate.units[UnitID].y ) + end + + local SpawnPos = routines.getRandPointInCircle( UnitPoint, OuterRadius, InnerRadius ) + local Point = {} + Point.type = "Turning Point" + Point.x = SpawnPos.x + Point.y = SpawnPos.y + Point.action = "Cone" + Point.speed = 5 + + table.insert( SpawnTemplate.route.points, 2, Point ) + + return self:SpawnWithIndex( self.SpawnIndex ) + end + end + end + + return nil +end + +--- Will spawn a Group within a given @{Zone#ZONE}. +-- Once the group is spawned within the zone, it will continue on its route. +-- The first waypoint (where the group is spawned) is replaced with the zone coordinates. +-- @param #SPAWN self +-- @param Zone#ZONE Zone The zone where the group is to be spawned. +-- @param #number ZoneRandomize (Optional) Set to true if you want to randomize the starting point in the zone. +-- @param #number SpawnIndex (Optional) The index which group to spawn within the given zone. +-- @return Group#GROUP that was spawned. +-- @return #nil when nothing was spawned. +function SPAWN:SpawnInZone( Zone, ZoneRandomize, SpawnIndex ) + self:F( { self.SpawnTemplatePrefix, Zone, ZoneRandomize, SpawnIndex } ) + + if Zone then + + if SpawnIndex then + else + SpawnIndex = self.SpawnIndex + 1 + end + + if self:_GetSpawnIndex( SpawnIndex ) then + + local SpawnTemplate = self.SpawnGroups[self.SpawnIndex].SpawnTemplate + + if SpawnTemplate then + + local ZonePoint + + if ZoneRandomize == true then + ZonePoint = Zone:GetRandomVec2() + else + ZonePoint = Zone:GetPointVec2() + end + + SpawnTemplate.route.points[1].x = ZonePoint.x + SpawnTemplate.route.points[1].y = ZonePoint.y + + -- Apply SpawnFormation + for UnitID = 1, #SpawnTemplate.units do + local ZonePointUnit = Zone:GetRandomVec2() + SpawnTemplate.units[UnitID].x = ZonePointUnit.x + SpawnTemplate.units[UnitID].y = ZonePointUnit.y + self:T( 'SpawnTemplate.units['..UnitID..'].x = ' .. SpawnTemplate.units[UnitID].x .. ', SpawnTemplate.units['..UnitID..'].y = ' .. SpawnTemplate.units[UnitID].y ) + end + + return self:SpawnWithIndex( self.SpawnIndex ) + end + end + end + + return nil +end + + + + +--- Will spawn a plane group in uncontrolled mode... +-- This will be similar to the uncontrolled flag setting in the ME. +-- @return #SPAWN self +function SPAWN:UnControlled() + self:F( { self.SpawnTemplatePrefix } ) + + self.SpawnUnControlled = true + + for SpawnGroupID = 1, self.SpawnMaxGroups do + self.SpawnGroups[SpawnGroupID].UnControlled = true + end + + return self +end + + + +--- Will return the SpawnGroupName either with with a specific count number or without any count. +-- @param #SPAWN self +-- @param #number SpawnIndex Is the number of the Group that is to be spawned. +-- @return #string SpawnGroupName +function SPAWN:SpawnGroupName( SpawnIndex ) + self:F( { self.SpawnTemplatePrefix, SpawnIndex } ) + + local SpawnPrefix = self.SpawnTemplatePrefix + if self.SpawnAliasPrefix then + SpawnPrefix = self.SpawnAliasPrefix + end + + if SpawnIndex then + local SpawnName = string.format( '%s#%03d', SpawnPrefix, SpawnIndex ) + self:T( SpawnName ) + return SpawnName + else + self:T( SpawnPrefix ) + return SpawnPrefix + end + +end + +--- Find the first alive group. +-- @param #SPAWN self +-- @param #number SpawnCursor A number holding the index from where to find the first group from. +-- @return Group#GROUP, #number The group found, the new index where the group was found. +-- @return #nil, #nil When no group is found, #nil is returned. +function SPAWN:GetFirstAliveGroup( SpawnCursor ) + self:F( { self.SpawnTemplatePrefix, self.SpawnAliasPrefix, SpawnCursor } ) + + for SpawnIndex = 1, self.SpawnCount do + local SpawnGroup = self:GetGroupFromIndex( SpawnIndex ) + if SpawnGroup and SpawnGroup:IsAlive() then + SpawnCursor = SpawnIndex + return SpawnGroup, SpawnCursor + end + end + + return nil, nil +end + + +--- Find the next alive group. +-- @param #SPAWN self +-- @param #number SpawnCursor A number holding the last found previous index. +-- @return Group#GROUP, #number The group found, the new index where the group was found. +-- @return #nil, #nil When no group is found, #nil is returned. +function SPAWN:GetNextAliveGroup( SpawnCursor ) + self:F( { self.SpawnTemplatePrefix, self.SpawnAliasPrefix, SpawnCursor } ) + + SpawnCursor = SpawnCursor + 1 + for SpawnIndex = SpawnCursor, self.SpawnCount do + local SpawnGroup = self:GetGroupFromIndex( SpawnIndex ) + if SpawnGroup and SpawnGroup:IsAlive() then + SpawnCursor = SpawnIndex + return SpawnGroup, SpawnCursor + end + end + + return nil, nil +end + +--- Find the last alive group during runtime. +function SPAWN:GetLastAliveGroup() + self:F( { self.SpawnTemplatePrefixself.SpawnAliasPrefix } ) + + self.SpawnIndex = self:_GetLastIndex() + for SpawnIndex = self.SpawnIndex, 1, -1 do + local SpawnGroup = self:GetGroupFromIndex( SpawnIndex ) + if SpawnGroup and SpawnGroup:IsAlive() then + self.SpawnIndex = SpawnIndex + return SpawnGroup + end + end + + self.SpawnIndex = nil + return nil +end + + + +--- Get the group from an index. +-- Returns the group from the SpawnGroups list. +-- If no index is given, it will return the first group in the list. +-- @param #SPAWN self +-- @param #number SpawnIndex The index of the group to return. +-- @return Group#GROUP self +function SPAWN:GetGroupFromIndex( SpawnIndex ) + self:F( { self.SpawnTemplatePrefix, self.SpawnAliasPrefix, SpawnIndex } ) + + if not SpawnIndex then + SpawnIndex = 1 + end + + if self.SpawnGroups and self.SpawnGroups[SpawnIndex] then + local SpawnGroup = self.SpawnGroups[SpawnIndex].Group + return SpawnGroup + else + return nil + end +end + +--- Get the group index from a DCSUnit. +-- The method will search for a #-mark, and will return the index behind the #-mark of the DCSUnit. +-- It will return nil of no prefix was found. +-- @param #SPAWN self +-- @param DCSUnit The DCS unit to be searched. +-- @return #string The prefix +-- @return #nil Nothing found +function SPAWN:_GetGroupIndexFromDCSUnit( DCSUnit ) + self:F( { self.SpawnTemplatePrefix, self.SpawnAliasPrefix, DCSUnit } ) + + if DCSUnit and DCSUnit:getName() then + local IndexString = string.match( DCSUnit:getName(), "#.*-" ):sub( 2, -2 ) + self:T( IndexString ) + + if IndexString then + local Index = tonumber( IndexString ) + self:T( { "Index:", IndexString, Index } ) + return Index + end + end + + return nil +end + +--- Return the prefix of a DCSUnit. +-- The method will search for a #-mark, and will return the text before the #-mark. +-- It will return nil of no prefix was found. +-- @param #SPAWN self +-- @param DCSUnit The DCS unit to be searched. +-- @return #string The prefix +-- @return #nil Nothing found +function SPAWN:_GetPrefixFromDCSUnit( DCSUnit ) + self:F( { self.SpawnTemplatePrefix, self.SpawnAliasPrefix, DCSUnit } ) + + if DCSUnit and DCSUnit:getName() then + local SpawnPrefix = string.match( DCSUnit:getName(), ".*#" ) + if SpawnPrefix then + SpawnPrefix = SpawnPrefix:sub( 1, -2 ) + end + self:T( SpawnPrefix ) + return SpawnPrefix + end + + return nil +end + +--- Return the group within the SpawnGroups collection with input a DCSUnit. +function SPAWN:_GetGroupFromDCSUnit( DCSUnit ) + self:F( { self.SpawnTemplatePrefix, self.SpawnAliasPrefix, DCSUnit } ) + + if DCSUnit then + local SpawnPrefix = self:_GetPrefixFromDCSUnit( DCSUnit ) + + if self.SpawnTemplatePrefix == SpawnPrefix or ( self.SpawnAliasPrefix and self.SpawnAliasPrefix == SpawnPrefix ) then + local SpawnGroupIndex = self:_GetGroupIndexFromDCSUnit( DCSUnit ) + local SpawnGroup = self.SpawnGroups[SpawnGroupIndex].Group + self:T( SpawnGroup ) + return SpawnGroup + end + end + + return nil +end + + +--- Get the index from a given group. +-- The function will search the name of the group for a #, and will return the number behind the #-mark. +function SPAWN:GetSpawnIndexFromGroup( SpawnGroup ) + self:F( { self.SpawnTemplatePrefix, self.SpawnAliasPrefix, SpawnGroup } ) + + local IndexString = string.match( SpawnGroup:GetName(), "#.*$" ):sub( 2 ) + local Index = tonumber( IndexString ) + + self:T( IndexString, Index ) + return Index + +end + +--- Return the last maximum index that can be used. +function SPAWN:_GetLastIndex() + self:F( { self.SpawnTemplatePrefix, self.SpawnAliasPrefix } ) + + return self.SpawnMaxGroups +end + +--- Initalize the SpawnGroups collection. +function SPAWN:_InitializeSpawnGroups( SpawnIndex ) + self:F( { self.SpawnTemplatePrefix, self.SpawnAliasPrefix, SpawnIndex } ) + + if not self.SpawnGroups[SpawnIndex] then + self.SpawnGroups[SpawnIndex] = {} + self.SpawnGroups[SpawnIndex].Visible = false + self.SpawnGroups[SpawnIndex].Spawned = false + self.SpawnGroups[SpawnIndex].UnControlled = false + self.SpawnGroups[SpawnIndex].SpawnTime = 0 + + self.SpawnGroups[SpawnIndex].SpawnTemplatePrefix = self.SpawnTemplatePrefix + self.SpawnGroups[SpawnIndex].SpawnTemplate = self:_Prepare( self.SpawnGroups[SpawnIndex].SpawnTemplatePrefix, SpawnIndex ) + end + + self:_RandomizeTemplate( SpawnIndex ) + self:_RandomizeRoute( SpawnIndex ) + --self:_TranslateRotate( SpawnIndex ) + + return self.SpawnGroups[SpawnIndex] +end + + + +--- Gets the CategoryID of the Group with the given SpawnPrefix +function SPAWN:_GetGroupCategoryID( SpawnPrefix ) + local TemplateGroup = Group.getByName( SpawnPrefix ) + + if TemplateGroup then + return TemplateGroup:getCategory() + else + return nil + end +end + +--- Gets the CoalitionID of the Group with the given SpawnPrefix +function SPAWN:_GetGroupCoalitionID( SpawnPrefix ) + local TemplateGroup = Group.getByName( SpawnPrefix ) + + if TemplateGroup then + return TemplateGroup:getCoalition() + else + return nil + end +end + +--- Gets the CountryID of the Group with the given SpawnPrefix +function SPAWN:_GetGroupCountryID( SpawnPrefix ) + self:F( { self.SpawnTemplatePrefix, self.SpawnAliasPrefix, SpawnPrefix } ) + + local TemplateGroup = Group.getByName( SpawnPrefix ) + + if TemplateGroup then + local TemplateUnits = TemplateGroup:getUnits() + return TemplateUnits[1]:getCountry() + else + return nil + end +end + +--- Gets the Group Template from the ME environment definition. +-- This method used the @{DATABASE} object, which contains ALL initial and new spawned object in MOOSE. +-- @param #SPAWN self +-- @param #string SpawnTemplatePrefix +-- @return @SPAWN self +function SPAWN:_GetTemplate( SpawnTemplatePrefix ) + self:F( { self.SpawnTemplatePrefix, self.SpawnAliasPrefix, SpawnTemplatePrefix } ) + + local SpawnTemplate = nil + + SpawnTemplate = routines.utils.deepCopy( _DATABASE.Templates.Groups[SpawnTemplatePrefix].Template ) + + if SpawnTemplate == nil then + error( 'No Template returned for SpawnTemplatePrefix = ' .. SpawnTemplatePrefix ) + end + + SpawnTemplate.SpawnCoalitionID = self:_GetGroupCoalitionID( SpawnTemplatePrefix ) + SpawnTemplate.SpawnCategoryID = self:_GetGroupCategoryID( SpawnTemplatePrefix ) + SpawnTemplate.SpawnCountryID = self:_GetGroupCountryID( SpawnTemplatePrefix ) + + self:T( { SpawnTemplate } ) + return SpawnTemplate +end + +--- Prepares the new Group Template. +-- @param #SPAWN self +-- @param #string SpawnTemplatePrefix +-- @param #number SpawnIndex +-- @return #SPAWN self +function SPAWN:_Prepare( SpawnTemplatePrefix, SpawnIndex ) + self:F( { self.SpawnTemplatePrefix, self.SpawnAliasPrefix } ) + + local SpawnTemplate = self:_GetTemplate( SpawnTemplatePrefix ) + SpawnTemplate.name = self:SpawnGroupName( SpawnIndex ) + + SpawnTemplate.groupId = nil + --SpawnTemplate.lateActivation = false + SpawnTemplate.lateActivation = false -- TODO BUGFIX + + if SpawnTemplate.SpawnCategoryID == Group.Category.GROUND then + self:T( "For ground units, visible needs to be false..." ) + SpawnTemplate.visible = false -- TODO BUGFIX + end + + if SpawnTemplate.SpawnCategoryID == Group.Category.HELICOPTER or SpawnTemplate.SpawnCategoryID == Group.Category.AIRPLANE then + SpawnTemplate.uncontrolled = false + end + + for UnitID = 1, #SpawnTemplate.units do + SpawnTemplate.units[UnitID].name = string.format( SpawnTemplate.name .. '-%02d', UnitID ) + SpawnTemplate.units[UnitID].unitId = nil + SpawnTemplate.units[UnitID].x = SpawnTemplate.route.points[1].x + SpawnTemplate.units[UnitID].y = SpawnTemplate.route.points[1].y + end + + self:T( { "Template:", SpawnTemplate } ) + return SpawnTemplate + +end + +--- Private method randomizing the routes. +-- @param #SPAWN self +-- @param #number SpawnIndex The index of the group to be spawned. +-- @return #SPAWN +function SPAWN:_RandomizeRoute( SpawnIndex ) + self:F( { self.SpawnTemplatePrefix, SpawnIndex, self.SpawnRandomizeRoute, self.SpawnRandomizeRouteStartPoint, self.SpawnRandomizeRouteEndPoint, self.SpawnRandomizeRouteRadius } ) + + if self.SpawnRandomizeRoute then + local SpawnTemplate = self.SpawnGroups[SpawnIndex].SpawnTemplate + local RouteCount = #SpawnTemplate.route.points + + for t = self.SpawnRandomizeRouteStartPoint + 1, ( RouteCount - self.SpawnRandomizeRouteEndPoint ) do + SpawnTemplate.route.points[t].x = SpawnTemplate.route.points[t].x + math.random( self.SpawnRandomizeRouteRadius * -1, self.SpawnRandomizeRouteRadius ) + SpawnTemplate.route.points[t].y = SpawnTemplate.route.points[t].y + math.random( self.SpawnRandomizeRouteRadius * -1, self.SpawnRandomizeRouteRadius ) + -- TODO: manage altitude for airborne units ... + SpawnTemplate.route.points[t].alt = nil + --SpawnGroup.route.points[t].alt_type = nil + self:T( 'SpawnTemplate.route.points[' .. t .. '].x = ' .. SpawnTemplate.route.points[t].x .. ', SpawnTemplate.route.points[' .. t .. '].y = ' .. SpawnTemplate.route.points[t].y ) + end + end + + return self +end + +--- Private method that randomizes the template of the group. +-- @param #SPAWN self +-- @param #number SpawnIndex +-- @return #SPAWN self +function SPAWN:_RandomizeTemplate( SpawnIndex ) + self:F( { self.SpawnTemplatePrefix, SpawnIndex, self.SpawnRandomizeTemplate } ) + + if self.SpawnRandomizeTemplate then + self.SpawnGroups[SpawnIndex].SpawnTemplatePrefix = self.SpawnTemplatePrefixTable[ math.random( 1, #self.SpawnTemplatePrefixTable ) ] + self.SpawnGroups[SpawnIndex].SpawnTemplate = self:_Prepare( self.SpawnGroups[SpawnIndex].SpawnTemplatePrefix, SpawnIndex ) + self.SpawnGroups[SpawnIndex].SpawnTemplate.route = routines.utils.deepCopy( self.SpawnTemplate.route ) + self.SpawnGroups[SpawnIndex].SpawnTemplate.x = self.SpawnTemplate.x + self.SpawnGroups[SpawnIndex].SpawnTemplate.y = self.SpawnTemplate.y + self.SpawnGroups[SpawnIndex].SpawnTemplate.start_time = self.SpawnTemplate.start_time + for UnitID = 1, #self.SpawnGroups[SpawnIndex].SpawnTemplate.units do + self.SpawnGroups[SpawnIndex].SpawnTemplate.units[UnitID].heading = self.SpawnTemplate.units[1].heading + end + end + + self:_RandomizeRoute( SpawnIndex ) + + return self +end + +function SPAWN:_TranslateRotate( SpawnIndex, SpawnRootX, SpawnRootY, SpawnX, SpawnY, SpawnAngle ) + self:F( { self.SpawnTemplatePrefix, SpawnIndex, SpawnRootX, SpawnRootY, SpawnX, SpawnY, SpawnAngle } ) + + -- Translate + local TranslatedX = SpawnX + local TranslatedY = SpawnY + + -- Rotate + -- From Wikipedia: https://en.wikipedia.org/wiki/Rotation_matrix#Common_rotations + -- x' = x \cos \theta - y \sin \theta\ + -- y' = x \sin \theta + y \cos \theta\ + local RotatedX = - TranslatedX * math.cos( math.rad( SpawnAngle ) ) + + TranslatedY * math.sin( math.rad( SpawnAngle ) ) + local RotatedY = TranslatedX * math.sin( math.rad( SpawnAngle ) ) + + TranslatedY * math.cos( math.rad( SpawnAngle ) ) + + -- Assign + self.SpawnGroups[SpawnIndex].SpawnTemplate.x = SpawnRootX - RotatedX + self.SpawnGroups[SpawnIndex].SpawnTemplate.y = SpawnRootY + RotatedY + + + local SpawnUnitCount = table.getn( self.SpawnGroups[SpawnIndex].SpawnTemplate.units ) + for u = 1, SpawnUnitCount do + + -- Translate + local TranslatedX = SpawnX + local TranslatedY = SpawnY - 10 * ( u - 1 ) + + -- Rotate + local RotatedX = - TranslatedX * math.cos( math.rad( SpawnAngle ) ) + + TranslatedY * math.sin( math.rad( SpawnAngle ) ) + local RotatedY = TranslatedX * math.sin( math.rad( SpawnAngle ) ) + + TranslatedY * math.cos( math.rad( SpawnAngle ) ) + + -- Assign + self.SpawnGroups[SpawnIndex].SpawnTemplate.units[u].x = SpawnRootX - RotatedX + self.SpawnGroups[SpawnIndex].SpawnTemplate.units[u].y = SpawnRootY + RotatedY + self.SpawnGroups[SpawnIndex].SpawnTemplate.units[u].heading = self.SpawnGroups[SpawnIndex].SpawnTemplate.units[u].heading + math.rad( SpawnAngle ) + end + + return self +end + +--- Get the next index of the groups to be spawned. This function is complicated, as it is used at several spaces. +function SPAWN:_GetSpawnIndex( SpawnIndex ) + self:F( { self.SpawnTemplatePrefix, SpawnIndex, self.SpawnMaxGroups, self.SpawnMaxUnitsAlive, self.AliveUnits, #self.SpawnTemplate.units } ) + + + if ( self.SpawnMaxGroups == 0 ) or ( SpawnIndex <= self.SpawnMaxGroups ) then + if ( self.SpawnMaxUnitsAlive == 0 ) or ( self.AliveUnits < self.SpawnMaxUnitsAlive * #self.SpawnTemplate.units ) or self.UnControlled then + if SpawnIndex and SpawnIndex >= self.SpawnCount + 1 then + self.SpawnCount = self.SpawnCount + 1 + SpawnIndex = self.SpawnCount + end + self.SpawnIndex = SpawnIndex + if not self.SpawnGroups[self.SpawnIndex] then + self:_InitializeSpawnGroups( self.SpawnIndex ) + end + else + return nil + end + else + return nil + end + + return self.SpawnIndex +end + + +-- TODO Need to delete this... _DATABASE does this now ... +function SPAWN:_OnBirth( event ) + + if timer.getTime0() < timer.getAbsTime() then -- dont need to add units spawned in at the start of the mission if mist is loaded in init line + if event.initiator and event.initiator:getName() then + local EventPrefix = self:_GetPrefixFromDCSUnit( event.initiator ) + if EventPrefix == self.SpawnTemplatePrefix or ( self.SpawnAliasPrefix and EventPrefix == self.SpawnAliasPrefix ) then + self:T( { "Birth event: " .. event.initiator:getName(), event } ) + --MessageToAll( "Mission command: unit " .. SpawnTemplatePrefix .. " spawned." , 5, EventPrefix .. '/Event') + self.AliveUnits = self.AliveUnits + 1 + self:T( "Alive Units: " .. self.AliveUnits ) + end + end + end + +end + +--- Obscolete +-- @todo Need to delete this... _DATABASE does this now ... +function SPAWN:_OnDeadOrCrash( event ) + self:F( self.SpawnTemplatePrefix, event ) + + if event.initiator and event.initiator:getName() then + local EventPrefix = self:_GetPrefixFromDCSUnit( event.initiator ) + if EventPrefix == self.SpawnTemplatePrefix or ( self.SpawnAliasPrefix and EventPrefix == self.SpawnAliasPrefix ) then + self:T( { "Dead event: " .. event.initiator:getName(), event } ) +-- local DestroyedUnit = Unit.getByName( EventPrefix ) +-- if DestroyedUnit and DestroyedUnit.getLife() <= 1.0 then + --MessageToAll( "Mission command: unit " .. SpawnTemplatePrefix .. " crashed." , 5, EventPrefix .. '/Event') + self.AliveUnits = self.AliveUnits - 1 + self:T( "Alive Units: " .. self.AliveUnits ) +-- end + end + end +end + +--- Will detect AIR Units taking off... When the event takes place, the spawned Group is registered as airborne... +-- This is needed to ensure that Re-SPAWNing only is done for landed AIR Groups. +-- @todo Need to test for AIR Groups only... +function SPAWN:_OnTakeOff( event ) + self:F( self.SpawnTemplatePrefix, event ) + + if event.initiator and event.initiator:getName() then + local SpawnGroup = self:_GetGroupFromDCSUnit( event.initiator ) + if SpawnGroup then + self:T( { "TakeOff event: " .. event.initiator:getName(), event } ) + self:T( "self.Landed = false" ) + self.Landed = false + end + end +end + +--- Will detect AIR Units landing... When the event takes place, the spawned Group is registered as landed. +-- This is needed to ensure that Re-SPAWNing is only done for landed AIR Groups. +-- @todo Need to test for AIR Groups only... +function SPAWN:_OnLand( event ) + self:F( self.SpawnTemplatePrefix, event ) + + local SpawnUnit = event.initiator + if SpawnUnit and SpawnUnit:isExist() and Object.getCategory(SpawnUnit) == Object.Category.UNIT then + local SpawnGroup = self:_GetGroupFromDCSUnit( SpawnUnit ) + if SpawnGroup then + self:T( { "Landed event:" .. SpawnUnit:getName(), event } ) + self.Landed = true + self:T( "self.Landed = true" ) + if self.Landed and self.RepeatOnLanding then + local SpawnGroupIndex = self:GetSpawnIndexFromGroup( SpawnGroup ) + self:T( { "Landed:", "ReSpawn:", SpawnGroup:GetName(), SpawnGroupIndex } ) + self:ReSpawn( SpawnGroupIndex ) + end + end + end +end + +--- Will detect AIR Units shutting down their engines ... +-- When the event takes place, and the method @{RepeatOnEngineShutDown} was called, the spawned Group will Re-SPAWN. +-- But only when the Unit was registered to have landed. +-- @param #SPAWN self +-- @see _OnTakeOff +-- @see _OnLand +-- @todo Need to test for AIR Groups only... +function SPAWN:_OnEngineShutDown( event ) + self:F( self.SpawnTemplatePrefix, event ) + + local SpawnUnit = event.initiator + if SpawnUnit and SpawnUnit:isExist() and Object.getCategory(SpawnUnit) == Object.Category.UNIT then + local SpawnGroup = self:_GetGroupFromDCSUnit( SpawnUnit ) + if SpawnGroup then + self:T( { "EngineShutDown event: " .. SpawnUnit:getName(), event } ) + if self.Landed and self.RepeatOnEngineShutDown then + local SpawnGroupIndex = self:GetSpawnIndexFromGroup( SpawnGroup ) + self:T( { "EngineShutDown: ", "ReSpawn:", SpawnGroup:GetName(), SpawnGroupIndex } ) + self:ReSpawn( SpawnGroupIndex ) + end + end + end +end + +--- This function is called automatically by the Spawning scheduler. +-- It is the internal worker method SPAWNing new Groups on the defined time intervals. +function SPAWN:_Scheduler() + self:F( { "_Scheduler", self.SpawnTemplatePrefix, self.SpawnAliasPrefix, self.SpawnIndex, self.SpawnMaxGroups, self.SpawnMaxUnitsAlive } ) + + -- Validate if there are still groups left in the batch... + self:Spawn() + + return true +end + +function SPAWN:_SpawnCleanUpScheduler() + self:F( { "CleanUp Scheduler:", self.SpawnTemplatePrefix } ) + + local SpawnCursor + local SpawnGroup, SpawnCursor = self:GetFirstAliveGroup( SpawnCursor ) + + self:T( { "CleanUp Scheduler:", SpawnGroup } ) + + while SpawnGroup do + + if SpawnGroup:AllOnGround() and SpawnGroup:GetMaxVelocity() < 1 then + if not self.SpawnCleanUpTimeStamps[SpawnGroup:GetName()] then + self.SpawnCleanUpTimeStamps[SpawnGroup:GetName()] = timer.getTime() + else + if self.SpawnCleanUpTimeStamps[SpawnGroup:GetName()] + self.SpawnCleanUpInterval < timer.getTime() then + self:T( { "CleanUp Scheduler:", "Cleaning:", SpawnGroup } ) + SpawnGroup:Destroy() + end + end + else + self.SpawnCleanUpTimeStamps[SpawnGroup:GetName()] = nil + end + + SpawnGroup, SpawnCursor = self:GetNextAliveGroup( SpawnCursor ) + + self:T( { "CleanUp Scheduler:", SpawnGroup } ) + + end + + return true -- Repeat + +end +--- Limit the simultaneous movement of Groups within a running Mission. +-- This module is defined to improve the performance in missions, and to bring additional realism for GROUND vehicles. +-- Performance: If in a DCSRTE there are a lot of moving GROUND units, then in a multi player mission, this WILL create lag if +-- the main DCS execution core of your CPU is fully utilized. So, this class will limit the amount of simultaneous moving GROUND units +-- on defined intervals (currently every minute). +-- @module MOVEMENT + +--- the MOVEMENT class +-- @type +MOVEMENT = { + ClassName = "MOVEMENT", +} + +--- Creates the main object which is handling the GROUND forces movement. +-- @param table{string,...}|string MovePrefixes is a table of the Prefixes (names) of the GROUND Groups that need to be controlled by the MOVEMENT Object. +-- @param number MoveMaximum is a number that defines the maximum amount of GROUND Units to be moving during one minute. +-- @return MOVEMENT +-- @usage +-- -- Limit the amount of simultaneous moving units on the ground to prevent lag. +-- Movement_US_Platoons = MOVEMENT:New( { 'US Tank Platoon Left', 'US Tank Platoon Middle', 'US Tank Platoon Right', 'US CH-47D Troops' }, 15 ) + +function MOVEMENT:New( MovePrefixes, MoveMaximum ) + local self = BASE:Inherit( self, BASE:New() ) + self:F( { MovePrefixes, MoveMaximum } ) + + if type( MovePrefixes ) == 'table' then + self.MovePrefixes = MovePrefixes + else + self.MovePrefixes = { MovePrefixes } + end + self.MoveCount = 0 -- The internal counter of the amount of Moveing the has happened since MoveStart. + self.MoveMaximum = MoveMaximum -- Contains the Maximum amount of units that are allowed to move... + self.AliveUnits = 0 -- Contains the counter how many units are currently alive + self.MoveUnits = {} -- Reflects if the Moving for this MovePrefixes is going to be scheduled or not. + + _EVENTDISPATCHER:OnBirth( self.OnBirth, self ) + +-- self:AddEvent( world.event.S_EVENT_BIRTH, self.OnBirth ) +-- +-- self:EnableEvents() + + self:ScheduleStart() + + return self +end + +--- Call this function to start the MOVEMENT scheduling. +function MOVEMENT:ScheduleStart() + self:F() + --self.MoveFunction = routines.scheduleFunction( self._Scheduler, { self }, timer.getTime() + 1, 120 ) + self.MoveFunction = SCHEDULER:New( self, self._Scheduler, {}, 1, 120 ) +end + +--- Call this function to stop the MOVEMENT scheduling. +-- @todo need to implement it ... Forgot. +function MOVEMENT:ScheduleStop() + self:F() + +end + +--- Captures the birth events when new Units were spawned. +-- @todo This method should become obsolete. The new @{DATABASE} class will handle the collection administration. +function MOVEMENT:OnBirth( Event ) + self:F( { Event } ) + + if timer.getTime0() < timer.getAbsTime() then -- dont need to add units spawned in at the start of the mission if mist is loaded in init line + if Event.IniDCSUnit then + self:T( "Birth object : " .. Event.IniDCSUnitName ) + if Event.IniDCSGroup and Event.IniDCSGroup:isExist() then + for MovePrefixID, MovePrefix in pairs( self.MovePrefixes ) do + if string.find( Event.IniDCSUnitName, MovePrefix, 1, true ) then + self.AliveUnits = self.AliveUnits + 1 + self.MoveUnits[Event.IniDCSUnitName] = Event.IniDCSGroupName + self:T( self.AliveUnits ) + end + end + end + end + _EVENTDISPATCHER:OnCrashForUnit( Event.IniDCSUnitName, self.OnDeadOrCrash, self ) + _EVENTDISPATCHER:OnDeadForUnit( Event.IniDCSUnitName, self.OnDeadOrCrash, self ) + end + +end + +--- Captures the Dead or Crash events when Units crash or are destroyed. +-- @todo This method should become obsolete. The new @{DATABASE} class will handle the collection administration. +function MOVEMENT:OnDeadOrCrash( Event ) + self:F( { Event } ) + + if Event.IniDCSUnit then + self:T( "Dead object : " .. Event.IniDCSUnitName ) + for MovePrefixID, MovePrefix in pairs( self.MovePrefixes ) do + if string.find( Event.IniDCSUnitName, MovePrefix, 1, true ) then + self.AliveUnits = self.AliveUnits - 1 + self.MoveUnits[Event.IniDCSUnitName] = nil + self:T( self.AliveUnits ) + end + end + end +end + +--- This function is called automatically by the MOVEMENT scheduler. A new function is scheduled when MoveScheduled is true. +function MOVEMENT:_Scheduler() + self:F( { self.MovePrefixes, self.MoveMaximum, self.AliveUnits, self.MovementGroups } ) + + if self.AliveUnits > 0 then + local MoveProbability = ( self.MoveMaximum * 100 ) / self.AliveUnits + self:T( 'Move Probability = ' .. MoveProbability ) + + for MovementUnitName, MovementGroupName in pairs( self.MoveUnits ) do + local MovementGroup = Group.getByName( MovementGroupName ) + if MovementGroup and MovementGroup:isExist() then + local MoveOrStop = math.random( 1, 100 ) + self:T( 'MoveOrStop = ' .. MoveOrStop ) + if MoveOrStop <= MoveProbability then + self:T( 'Group continues moving = ' .. MovementGroupName ) + trigger.action.groupContinueMoving( MovementGroup ) + else + self:T( 'Group stops moving = ' .. MovementGroupName ) + trigger.action.groupStopMoving( MovementGroup ) + end + else + self.MoveUnits[MovementUnitName] = nil + end + end + end + return true +end +--- Provides defensive behaviour to a set of SAM sites within a running Mission. +-- @module Sead +-- @author to be searched on the forum +-- @author (co) Flightcontrol (Modified and enriched with functionality) + +--- The SEAD class +-- @type SEAD +-- @extends Base#BASE +SEAD = { + ClassName = "SEAD", + TargetSkill = { + Average = { Evade = 50, DelayOff = { 10, 25 }, DelayOn = { 10, 30 } } , + Good = { Evade = 30, DelayOff = { 8, 20 }, DelayOn = { 20, 40 } } , + High = { Evade = 15, DelayOff = { 5, 17 }, DelayOn = { 30, 50 } } , + Excellent = { Evade = 10, DelayOff = { 3, 10 }, DelayOn = { 30, 60 } } + }, + SEADGroupPrefixes = {} +} + +--- Creates the main object which is handling defensive actions for SA sites or moving SA vehicles. +-- When an anti radiation missile is fired (KH-58, KH-31P, KH-31A, KH-25MPU, HARM missiles), the SA will shut down their radars and will take evasive actions... +-- Chances are big that the missile will miss. +-- @param table{string,...}|string SEADGroupPrefixes which is a table of Prefixes of the SA Groups in the DCSRTE on which evasive actions need to be taken. +-- @return SEAD +-- @usage +-- -- CCCP SEAD Defenses +-- -- Defends the Russian SA installations from SEAD attacks. +-- SEAD_RU_SAM_Defenses = SEAD:New( { 'RU SA-6 Kub', 'RU SA-6 Defenses', 'RU MI-26 Troops', 'RU Attack Gori' } ) +function SEAD:New( SEADGroupPrefixes ) + local self = BASE:Inherit( self, BASE:New() ) + self:F( SEADGroupPrefixes ) + if type( SEADGroupPrefixes ) == 'table' then + for SEADGroupPrefixID, SEADGroupPrefix in pairs( SEADGroupPrefixes ) do + self.SEADGroupPrefixes[SEADGroupPrefix] = SEADGroupPrefix + end + else + self.SEADGroupNames[SEADGroupPrefixes] = SEADGroupPrefixes + end + _EVENTDISPATCHER:OnShot( self.EventShot, self ) + + return self +end + +--- Detects if an SA site was shot with an anti radiation missile. In this case, take evasive actions based on the skill level set within the ME. +-- @see SEAD +function SEAD:EventShot( Event ) + self:F( { Event } ) + + local SEADUnit = Event.IniDCSUnit + local SEADUnitName = Event.IniDCSUnitName + local SEADWeapon = Event.Weapon -- Identify the weapon fired + local SEADWeaponName = Event.WeaponName -- return weapon type + -- Start of the 2nd loop + self:T( "Missile Launched = " .. SEADWeaponName ) + if SEADWeaponName == "KH-58" or SEADWeaponName == "KH-25MPU" or SEADWeaponName == "AGM-88" or SEADWeaponName == "KH-31A" or SEADWeaponName == "KH-31P" then -- Check if the missile is a SEAD + local _evade = math.random (1,100) -- random number for chance of evading action + local _targetMim = Event.Weapon:getTarget() -- Identify target + local _targetMimname = Unit.getName(_targetMim) + local _targetMimgroup = Unit.getGroup(Weapon.getTarget(SEADWeapon)) + local _targetMimgroupName = _targetMimgroup:getName() + local _targetMimcont= _targetMimgroup:getController() + local _targetskill = _DATABASE.Templates.Units[_targetMimname].Template.skill + self:T( self.SEADGroupPrefixes ) + self:T( _targetMimgroupName ) + local SEADGroupFound = false + for SEADGroupPrefixID, SEADGroupPrefix in pairs( self.SEADGroupPrefixes ) do + if string.find( _targetMimgroupName, SEADGroupPrefix, 1, true ) then + SEADGroupFound = true + self:T( 'Group Found' ) + break + end + end + if SEADGroupFound == true then + if _targetskill == "Random" then -- when skill is random, choose a skill + local Skills = { "Average", "Good", "High", "Excellent" } + _targetskill = Skills[ math.random(1,4) ] + end + self:T( _targetskill ) + if self.TargetSkill[_targetskill] then + if (_evade > self.TargetSkill[_targetskill].Evade) then + self:T( string.format("Evading, target skill " ..string.format(_targetskill)) ) + local _targetMim = Weapon.getTarget(SEADWeapon) + local _targetMimname = Unit.getName(_targetMim) + local _targetMimgroup = Unit.getGroup(Weapon.getTarget(SEADWeapon)) + local _targetMimcont= _targetMimgroup:getController() + routines.groupRandomDistSelf(_targetMimgroup,300,'Diamond',250,20) -- move randomly + local SuppressedGroups1 = {} -- unit suppressed radar off for a random time + local function SuppressionEnd1(id) + id.ctrl:setOption(AI.Option.Ground.id.ALARM_STATE,AI.Option.Ground.val.ALARM_STATE.GREEN) + SuppressedGroups1[id.groupName] = nil + end + local id = { + groupName = _targetMimgroup, + ctrl = _targetMimcont + } + local delay1 = math.random(self.TargetSkill[_targetskill].DelayOff[1], self.TargetSkill[_targetskill].DelayOff[2]) + if SuppressedGroups1[id.groupName] == nil then + SuppressedGroups1[id.groupName] = { + SuppressionEndTime1 = timer.getTime() + delay1, + SuppressionEndN1 = SuppressionEndCounter1 --Store instance of SuppressionEnd() scheduled function + } + Controller.setOption(_targetMimcont, AI.Option.Ground.id.ALARM_STATE,AI.Option.Ground.val.ALARM_STATE.GREEN) + timer.scheduleFunction(SuppressionEnd1, id, SuppressedGroups1[id.groupName].SuppressionEndTime1) --Schedule the SuppressionEnd() function + --trigger.action.outText( string.format("Radar Off " ..string.format(delay1)), 20) + end + + local SuppressedGroups = {} + local function SuppressionEnd(id) + id.ctrl:setOption(AI.Option.Ground.id.ALARM_STATE,AI.Option.Ground.val.ALARM_STATE.RED) + SuppressedGroups[id.groupName] = nil + end + local id = { + groupName = _targetMimgroup, + ctrl = _targetMimcont + } + local delay = math.random(self.TargetSkill[_targetskill].DelayOn[1], self.TargetSkill[_targetskill].DelayOn[2]) + if SuppressedGroups[id.groupName] == nil then + SuppressedGroups[id.groupName] = { + SuppressionEndTime = timer.getTime() + delay, + SuppressionEndN = SuppressionEndCounter --Store instance of SuppressionEnd() scheduled function + } + timer.scheduleFunction(SuppressionEnd, id, SuppressedGroups[id.groupName].SuppressionEndTime) --Schedule the SuppressionEnd() function + --trigger.action.outText( string.format("Radar On " ..string.format(delay)), 20) + end + end + end + end + end +end +--- Taking the lead of AI escorting your flight. +-- +-- @{#ESCORT} class +-- ================ +-- The @{#ESCORT} class allows you to interact with escorting AI on your flight and take the lead. +-- Each escorting group can be commanded with a whole set of radio commands (radio menu in your flight, and then F10). +-- +-- The radio commands will vary according the category of the group. The richest set of commands are with Helicopters and AirPlanes. +-- Ships and Ground troops will have a more limited set, but they can provide support through the bombing of targets designated by the other escorts. +-- +-- RADIO MENUs that can be created: +-- ================================ +-- Find a summary below of the current available commands: +-- +-- Navigation ...: +-- --------------- +-- Escort group navigation functions: +-- +-- * **"Join-Up and Follow at x meters":** The escort group fill follow you at about x meters, and they will follow you. +-- * **"Flare":** Provides menu commands to let the escort group shoot a flare in the air in a color. +-- * **"Smoke":** Provides menu commands to let the escort group smoke the air in a color. Note that smoking is only available for ground and naval troops. +-- +-- Hold position ...: +-- ------------------ +-- Escort group navigation functions: +-- +-- * **"At current location":** Stops the escort group and they will hover 30 meters above the ground at the position they stopped. +-- * **"At client location":** Stops the escort group and they will hover 30 meters above the ground at the position they stopped. +-- +-- Report targets ...: +-- ------------------- +-- Report targets will make the escort group to report any target that it identifies within a 8km range. Any detected target can be attacked using the 4. Attack nearby targets function. (see below). +-- +-- * **"Report now":** Will report the current detected targets. +-- * **"Report targets on":** Will make the escort group to report detected targets and will fill the "Attack nearby targets" menu list. +-- * **"Report targets off":** Will stop detecting targets. +-- +-- Scan targets ...: +-- ----------------- +-- Menu items to pop-up the escort group for target scanning. After scanning, the escort group will resume with the mission or defined task. +-- +-- * **"Scan targets 30 seconds":** Scan 30 seconds for targets. +-- * **"Scan targets 60 seconds":** Scan 60 seconds for targets. +-- +-- Attack targets ...: +-- ------------------- +-- This menu item will list all detected targets within a 15km range. Depending on the level of detection (known/unknown) and visuality, the targets type will also be listed. +-- +-- Request assistance from ...: +-- ---------------------------- +-- This menu item will list all detected targets within a 15km range, as with the menu item **Attack Targets**. +-- This menu item allows to request attack support from other escorts supporting the current client group. +-- eg. the function allows a player to request support from the Ship escort to attack a target identified by the Plane escort with its Tomahawk missiles. +-- eg. the function allows a player to request support from other Planes escorting to bomb the unit with illumination missiles or bombs, so that the main plane escort can attack the area. +-- +-- ROE ...: +-- -------- +-- Sets the Rules of Engagement (ROE) of the escort group when in flight. +-- +-- * **"Hold Fire":** The escort group will hold fire. +-- * **"Return Fire":** The escort group will return fire. +-- * **"Open Fire":** The escort group will open fire on designated targets. +-- * **"Weapon Free":** The escort group will engage with any target. +-- +-- Evasion ...: +-- ------------ +-- Will define the evasion techniques that the escort group will perform during flight or combat. +-- +-- * **"Fight until death":** The escort group will have no reaction to threats. +-- * **"Use flares, chaff and jammers":** The escort group will use passive defense using flares and jammers. No evasive manoeuvres are executed. +-- * **"Evade enemy fire":** The rescort group will evade enemy fire before firing. +-- * **"Go below radar and evade fire":** The escort group will perform evasive vertical manoeuvres. +-- +-- Resume Mission ...: +-- ------------------- +-- Escort groups can have their own mission. This menu item will allow the escort group to resume their Mission from a given waypoint. +-- Note that this is really fantastic, as you now have the dynamic of taking control of the escort groups, and allowing them to resume their path or mission. +-- +-- ESCORT construction methods. +-- ============================ +-- Create a new SPAWN object with the @{#ESCORT.New} method: +-- +-- * @{#ESCORT.New}: Creates a new ESCORT object from a @{Group#GROUP} for a @{Client#CLIENT}, with an optional briefing text. +-- +-- ESCORT initialization methods. +-- ============================== +-- The following menus are created within the RADIO MENU of an active unit hosted by a player: +-- +-- * @{#ESCORT.MenuFollowAt}: Creates a menu to make the escort follow the client. +-- * @{#ESCORT.MenuHoldAtEscortPosition}: Creates a menu to hold the escort at its current position. +-- * @{#ESCORT.MenuHoldAtLeaderPosition}: Creates a menu to hold the escort at the client position. +-- * @{#ESCORT.MenuScanForTargets}: Creates a menu so that the escort scans targets. +-- * @{#ESCORT.MenuFlare}: Creates a menu to disperse flares. +-- * @{#ESCORT.MenuSmoke}: Creates a menu to disparse smoke. +-- * @{#ESCORT.MenuReportTargets}: Creates a menu so that the escort reports targets. +-- * @{#ESCORT.MenuReportPosition}: Creates a menu so that the escort reports its current position from bullseye. +-- * @{#ESCORT.MenuAssistedAttack: Creates a menu so that the escort supportes assisted attack from other escorts with the client. +-- * @{#ESCORT.MenuROE: Creates a menu structure to set the rules of engagement of the escort. +-- * @{#ESCORT.MenuEvasion: Creates a menu structure to set the evasion techniques when the escort is under threat. +-- * @{#ESCORT.MenuResumeMission}: Creates a menu structure so that the escort can resume from a waypoint. +-- +-- +-- @usage +-- -- Declare a new EscortPlanes object as follows: +-- +-- -- First find the GROUP object and the CLIENT object. +-- local EscortClient = CLIENT:FindByName( "Unit Name" ) -- The Unit Name is the name of the unit flagged with the skill Client in the mission editor. +-- local EscortGroup = GROUP:FindByName( "Group Name" ) -- The Group Name is the name of the group that will escort the Escort Client. +-- +-- -- Now use these 2 objects to construct the new EscortPlanes object. +-- EscortPlanes = ESCORT:New( EscortClient, EscortGroup, "Desert", "Welcome to the mission. You are escorted by a plane with code name 'Desert', which can be instructed through the F10 radio menu." ) +-- +-- +-- +-- @module Escort +-- @author FlightControl + +--- ESCORT class +-- @type ESCORT +-- @extends Base#BASE +-- @field Client#CLIENT EscortClient +-- @field Group#GROUP EscortGroup +-- @field #string EscortName +-- @field #ESCORT.MODE EscortMode The mode the escort is in. +-- @field Scheduler#SCHEDULER FollowScheduler The instance of the SCHEDULER class. +-- @field #number FollowDistance The current follow distance. +-- @field #boolean ReportTargets If true, nearby targets are reported. +-- @Field DCSTypes#AI.Option.Air.val.ROE OptionROE Which ROE is set to the EscortGroup. +-- @field DCSTypes#AI.Option.Air.val.REACTION_ON_THREAT OptionReactionOnThreat Which REACTION_ON_THREAT is set to the EscortGroup. +-- @field Menu#MENU_CLIENT EscortMenuResumeMission +ESCORT = { + ClassName = "ESCORT", + EscortName = nil, -- The Escort Name + EscortClient = nil, + EscortGroup = nil, + EscortMode = 1, + MODE = { + FOLLOW = 1, + MISSION = 2, + }, + Targets = {}, -- The identified targets + FollowScheduler = nil, + ReportTargets = true, + OptionROE = AI.Option.Air.val.ROE.OPEN_FIRE, + OptionReactionOnThreat = AI.Option.Air.val.REACTION_ON_THREAT.ALLOW_ABORT_MISSION, + SmokeDirectionVector = false, + TaskPoints = {} +} + +--- ESCORT.Mode class +-- @type ESCORT.MODE +-- @field #number FOLLOW +-- @field #number MISSION + +--- MENUPARAM type +-- @type MENUPARAM +-- @field #ESCORT ParamSelf +-- @field #Distance ParamDistance +-- @field #function ParamFunction +-- @field #string ParamMessage + +--- ESCORT class constructor for an AI group +-- @param #ESCORT self +-- @param Client#CLIENT EscortClient The client escorted by the EscortGroup. +-- @param Group#GROUP EscortGroup The group AI escorting the EscortClient. +-- @param #string EscortName Name of the escort. +-- @return #ESCORT self +-- @usage +-- -- Declare a new EscortPlanes object as follows: +-- +-- -- First find the GROUP object and the CLIENT object. +-- local EscortClient = CLIENT:FindByName( "Unit Name" ) -- The Unit Name is the name of the unit flagged with the skill Client in the mission editor. +-- local EscortGroup = GROUP:FindByName( "Group Name" ) -- The Group Name is the name of the group that will escort the Escort Client. +-- +-- -- Now use these 2 objects to construct the new EscortPlanes object. +-- EscortPlanes = ESCORT:New( EscortClient, EscortGroup, "Desert", "Welcome to the mission. You are escorted by a plane with code name 'Desert', which can be instructed through the F10 radio menu." ) +function ESCORT:New( EscortClient, EscortGroup, EscortName, EscortBriefing ) + local self = BASE:Inherit( self, BASE:New() ) + self:F( { EscortClient, EscortGroup, EscortName } ) + + self.EscortClient = EscortClient -- Client#CLIENT + self.EscortGroup = EscortGroup -- Group#GROUP + self.EscortName = EscortName + self.EscortBriefing = EscortBriefing + + -- Set EscortGroup known at EscortClient. + if not self.EscortClient._EscortGroups then + self.EscortClient._EscortGroups = {} + end + + if not self.EscortClient._EscortGroups[EscortGroup:GetName()] then + self.EscortClient._EscortGroups[EscortGroup:GetName()] = {} + self.EscortClient._EscortGroups[EscortGroup:GetName()].EscortGroup = self.EscortGroup + self.EscortClient._EscortGroups[EscortGroup:GetName()].EscortName = self.EscortName + self.EscortClient._EscortGroups[EscortGroup:GetName()].Targets = {} + end + + self.EscortMenu = MENU_CLIENT:New( self.EscortClient, self.EscortName ) + + self.EscortGroup:WayPointInitialize(1) + + self.EscortGroup:OptionROTVertical() + self.EscortGroup:OptionROEOpenFire() + + EscortGroup:MessageToClient( EscortGroup:GetCategoryName() .. " '" .. EscortName .. "' (" .. EscortGroup:GetCallsign() .. ") reporting! " .. + "We're escorting your flight. " .. + "Use the Radio Menu and F10 and use the options under + " .. EscortName .. "\n", + 60, EscortClient + ) + + self.FollowDistance = 100 + self.CT1 = 0 + self.GT1 = 0 + self.FollowScheduler = SCHEDULER:New( self, self._FollowScheduler, {}, 1, .5, .01 ) + self.EscortMode = ESCORT.MODE.MISSION + self.FollowScheduler:Stop() + + return self +end + +--- This function is for test, it will put on the frequency of the FollowScheduler a red smoke at the direction vector calculated for the escort to fly to. +-- This allows to visualize where the escort is flying to. +-- @param #ESCORT self +-- @param #boolean SmokeDirection If true, then the direction vector will be smoked. +function ESCORT:TestSmokeDirectionVector( SmokeDirection ) + self.SmokeDirectionVector = ( SmokeDirection == true ) and true or false +end + + +--- Defines the default menus +-- @param #ESCORT self +-- @return #ESCORT +function ESCORT:Menus() + self:F() + + self:MenuFollowAt( 100 ) + self:MenuFollowAt( 200 ) + self:MenuFollowAt( 300 ) + self:MenuFollowAt( 400 ) + + self:MenuScanForTargets( 100, 60 ) + + self:MenuHoldAtEscortPosition( 30 ) + self:MenuHoldAtLeaderPosition( 30 ) + + self:MenuFlare() + self:MenuSmoke() + + self:MenuReportTargets( 60 ) + self:MenuAssistedAttack() + self:MenuROE() + self:MenuEvasion() + self:MenuResumeMission() + + + return self +end + + + +--- Defines a menu slot to let the escort Join and Follow you at a certain distance. +-- This menu will appear under **Navigation**. +-- @param #ESCORT self +-- @param DCSTypes#Distance Distance The distance in meters that the escort needs to follow the client. +-- @return #ESCORT +function ESCORT:MenuFollowAt( Distance ) + self:F(Distance) + + if self.EscortGroup:IsAir() then + if not self.EscortMenuReportNavigation then + self.EscortMenuReportNavigation = MENU_CLIENT:New( self.EscortClient, "Navigation", self.EscortMenu ) + end + + if not self.EscortMenuJoinUpAndFollow then + self.EscortMenuJoinUpAndFollow = {} + end + + self.EscortMenuJoinUpAndFollow[#self.EscortMenuJoinUpAndFollow+1] = MENU_CLIENT_COMMAND:New( self.EscortClient, "Join-Up and Follow at " .. Distance, self.EscortMenuReportNavigation, ESCORT._JoinUpAndFollow, { ParamSelf = self, ParamDistance = Distance } ) + + self.EscortMode = ESCORT.MODE.FOLLOW + end + + return self +end + +--- Defines a menu slot to let the escort hold at their current position and stay low with a specified height during a specified time in seconds. +-- This menu will appear under **Hold position**. +-- @param #ESCORT self +-- @param DCSTypes#Distance Height Optional parameter that sets the height in meters to let the escort orbit at the current location. The default value is 30 meters. +-- @param DCSTypes#Time Seconds Optional parameter that lets the escort orbit at the current position for a specified time. (not implemented yet). The default value is 0 seconds, meaning, that the escort will orbit forever until a sequent command is given. +-- @param #string MenuTextFormat Optional parameter that shows the menu option text. The text string is formatted, and should contain two %d tokens in the string. The first for the Height, the second for the Time (if given). If no text is given, the default text will be displayed. +-- @return #ESCORT +-- TODO: Implement Seconds parameter. Challenge is to first develop the "continue from last activity" function. +function ESCORT:MenuHoldAtEscortPosition( Height, Seconds, MenuTextFormat ) + self:F( { Height, Seconds, MenuTextFormat } ) + + if self.EscortGroup:IsAir() then + + if not self.EscortMenuHold then + self.EscortMenuHold = MENU_CLIENT:New( self.EscortClient, "Hold position", self.EscortMenu ) + end + + if not Height then + Height = 30 + end + + if not Seconds then + Seconds = 0 + end + + local MenuText = "" + if not MenuTextFormat then + if Seconds == 0 then + MenuText = string.format( "Hold at %d meter", Height ) + else + MenuText = string.format( "Hold at %d meter for %d seconds", Height, Seconds ) + end + else + if Seconds == 0 then + MenuText = string.format( MenuTextFormat, Height ) + else + MenuText = string.format( MenuTextFormat, Height, Seconds ) + end + end + + if not self.EscortMenuHoldPosition then + self.EscortMenuHoldPosition = {} + end + + self.EscortMenuHoldPosition[#self.EscortMenuHoldPosition+1] = MENU_CLIENT_COMMAND + :New( + self.EscortClient, + MenuText, + self.EscortMenuHold, + ESCORT._HoldPosition, + { ParamSelf = self, + ParamOrbitGroup = self.EscortGroup, + ParamHeight = Height, + ParamSeconds = Seconds + } + ) + end + + return self +end + + +--- Defines a menu slot to let the escort hold at the client position and stay low with a specified height during a specified time in seconds. +-- This menu will appear under **Navigation**. +-- @param #ESCORT self +-- @param DCSTypes#Distance Height Optional parameter that sets the height in meters to let the escort orbit at the current location. The default value is 30 meters. +-- @param DCSTypes#Time Seconds Optional parameter that lets the escort orbit at the current position for a specified time. (not implemented yet). The default value is 0 seconds, meaning, that the escort will orbit forever until a sequent command is given. +-- @param #string MenuTextFormat Optional parameter that shows the menu option text. The text string is formatted, and should contain one or two %d tokens in the string. The first for the Height, the second for the Time (if given). If no text is given, the default text will be displayed. +-- @return #ESCORT +-- TODO: Implement Seconds parameter. Challenge is to first develop the "continue from last activity" function. +function ESCORT:MenuHoldAtLeaderPosition( Height, Seconds, MenuTextFormat ) + self:F( { Height, Seconds, MenuTextFormat } ) + + if self.EscortGroup:IsAir() then + + if not self.EscortMenuHold then + self.EscortMenuHold = MENU_CLIENT:New( self.EscortClient, "Hold position", self.EscortMenu ) + end + + if not Height then + Height = 30 + end + + if not Seconds then + Seconds = 0 + end + + local MenuText = "" + if not MenuTextFormat then + if Seconds == 0 then + MenuText = string.format( "Rejoin and hold at %d meter", Height ) + else + MenuText = string.format( "Rejoin and hold at %d meter for %d seconds", Height, Seconds ) + end + else + if Seconds == 0 then + MenuText = string.format( MenuTextFormat, Height ) + else + MenuText = string.format( MenuTextFormat, Height, Seconds ) + end + end + + if not self.EscortMenuHoldAtLeaderPosition then + self.EscortMenuHoldAtLeaderPosition = {} + end + + self.EscortMenuHoldAtLeaderPosition[#self.EscortMenuHoldAtLeaderPosition+1] = MENU_CLIENT_COMMAND + :New( + self.EscortClient, + MenuText, + self.EscortMenuHold, + ESCORT._HoldPosition, + { ParamSelf = self, + ParamOrbitGroup = self.EscortClient, + ParamHeight = Height, + ParamSeconds = Seconds + } + ) + end + + return self +end + +--- Defines a menu slot to let the escort scan for targets at a certain height for a certain time in seconds. +-- This menu will appear under **Scan targets**. +-- @param #ESCORT self +-- @param DCSTypes#Distance Height Optional parameter that sets the height in meters to let the escort orbit at the current location. The default value is 30 meters. +-- @param DCSTypes#Time Seconds Optional parameter that lets the escort orbit at the current position for a specified time. (not implemented yet). The default value is 0 seconds, meaning, that the escort will orbit forever until a sequent command is given. +-- @param #string MenuTextFormat Optional parameter that shows the menu option text. The text string is formatted, and should contain one or two %d tokens in the string. The first for the Height, the second for the Time (if given). If no text is given, the default text will be displayed. +-- @return #ESCORT +function ESCORT:MenuScanForTargets( Height, Seconds, MenuTextFormat ) + self:F( { Height, Seconds, MenuTextFormat } ) + + if self.EscortGroup:IsAir() then + if not self.EscortMenuScan then + self.EscortMenuScan = MENU_CLIENT:New( self.EscortClient, "Scan for targets", self.EscortMenu ) + end + + if not Height then + Height = 100 + end + + if not Seconds then + Seconds = 30 + end + + local MenuText = "" + if not MenuTextFormat then + if Seconds == 0 then + MenuText = string.format( "At %d meter", Height ) + else + MenuText = string.format( "At %d meter for %d seconds", Height, Seconds ) + end + else + if Seconds == 0 then + MenuText = string.format( MenuTextFormat, Height ) + else + MenuText = string.format( MenuTextFormat, Height, Seconds ) + end + end + + if not self.EscortMenuScanForTargets then + self.EscortMenuScanForTargets = {} + end + + self.EscortMenuScanForTargets[#self.EscortMenuScanForTargets+1] = MENU_CLIENT_COMMAND + :New( + self.EscortClient, + MenuText, + self.EscortMenuScan, + ESCORT._ScanTargets, + { ParamSelf = self, + ParamScanDuration = 30 + } + ) + end + + return self +end + + + +--- Defines a menu slot to let the escort disperse a flare in a certain color. +-- This menu will appear under **Navigation**. +-- The flare will be fired from the first unit in the group. +-- @param #ESCORT self +-- @param #string MenuTextFormat Optional parameter that shows the menu option text. If no text is given, the default text will be displayed. +-- @return #ESCORT +function ESCORT:MenuFlare( MenuTextFormat ) + self:F() + + if not self.EscortMenuReportNavigation then + self.EscortMenuReportNavigation = MENU_CLIENT:New( self.EscortClient, "Navigation", self.EscortMenu ) + end + + local MenuText = "" + if not MenuTextFormat then + MenuText = "Flare" + else + MenuText = MenuTextFormat + end + + if not self.EscortMenuFlare then + self.EscortMenuFlare = MENU_CLIENT:New( self.EscortClient, MenuText, self.EscortMenuReportNavigation, ESCORT._Flare, { ParamSelf = self } ) + self.EscortMenuFlareGreen = MENU_CLIENT_COMMAND:New( self.EscortClient, "Release green flare", self.EscortMenuFlare, ESCORT._Flare, { ParamSelf = self, ParamColor = UNIT.FlareColor.Green, ParamMessage = "Released a green flare!" } ) + self.EscortMenuFlareRed = MENU_CLIENT_COMMAND:New( self.EscortClient, "Release red flare", self.EscortMenuFlare, ESCORT._Flare, { ParamSelf = self, ParamColor = UNIT.FlareColor.Red, ParamMessage = "Released a red flare!" } ) + self.EscortMenuFlareWhite = MENU_CLIENT_COMMAND:New( self.EscortClient, "Release white flare", self.EscortMenuFlare, ESCORT._Flare, { ParamSelf = self, ParamColor = UNIT.FlareColor.White, ParamMessage = "Released a white flare!" } ) + self.EscortMenuFlareYellow = MENU_CLIENT_COMMAND:New( self.EscortClient, "Release yellow flare", self.EscortMenuFlare, ESCORT._Flare, { ParamSelf = self, ParamColor = UNIT.FlareColor.Yellow, ParamMessage = "Released a yellow flare!" } ) + end + + return self +end + +--- Defines a menu slot to let the escort disperse a smoke in a certain color. +-- This menu will appear under **Navigation**. +-- Note that smoke menu options will only be displayed for ships and ground units. Not for air units. +-- The smoke will be fired from the first unit in the group. +-- @param #ESCORT self +-- @param #string MenuTextFormat Optional parameter that shows the menu option text. If no text is given, the default text will be displayed. +-- @return #ESCORT +function ESCORT:MenuSmoke( MenuTextFormat ) + self:F() + + if not self.EscortGroup:IsAir() then + if not self.EscortMenuReportNavigation then + self.EscortMenuReportNavigation = MENU_CLIENT:New( self.EscortClient, "Navigation", self.EscortMenu ) + end + + local MenuText = "" + if not MenuTextFormat then + MenuText = "Smoke" + else + MenuText = MenuTextFormat + end + + if not self.EscortMenuSmoke then + self.EscortMenuSmoke = MENU_CLIENT:New( self.EscortClient, "Smoke", self.EscortMenuReportNavigation, ESCORT._Smoke, { ParamSelf = self } ) + self.EscortMenuSmokeGreen = MENU_CLIENT_COMMAND:New( self.EscortClient, "Release green smoke", self.EscortMenuSmoke, ESCORT._Smoke, { ParamSelf = self, ParamColor = UNIT.SmokeColor.Green, ParamMessage = "Releasing green smoke!" } ) + self.EscortMenuSmokeRed = MENU_CLIENT_COMMAND:New( self.EscortClient, "Release red smoke", self.EscortMenuSmoke, ESCORT._Smoke, { ParamSelf = self, ParamColor = UNIT.SmokeColor.Red, ParamMessage = "Releasing red smoke!" } ) + self.EscortMenuSmokeWhite = MENU_CLIENT_COMMAND:New( self.EscortClient, "Release white smoke", self.EscortMenuSmoke, ESCORT._Smoke, { ParamSelf = self, ParamColor = UNIT.SmokeColor.White, ParamMessage = "Releasing white smoke!" } ) + self.EscortMenuSmokeOrange = MENU_CLIENT_COMMAND:New( self.EscortClient, "Release orange smoke", self.EscortMenuSmoke, ESCORT._Smoke, { ParamSelf = self, ParamColor = UNIT.SmokeColor.Orange, ParamMessage = "Releasing orange smoke!" } ) + self.EscortMenuSmokeBlue = MENU_CLIENT_COMMAND:New( self.EscortClient, "Release blue smoke", self.EscortMenuSmoke, ESCORT._Smoke, { ParamSelf = self, ParamColor = UNIT.SmokeColor.Blue, ParamMessage = "Releasing blue smoke!" } ) + end + end + + return self +end + +--- Defines a menu slot to let the escort report their current detected targets with a specified time interval in seconds. +-- This menu will appear under **Report targets**. +-- Note that if a report targets menu is not specified, no targets will be detected by the escort, and the attack and assisted attack menus will not be displayed. +-- @param #ESCORT self +-- @param DCSTypes#Time Seconds Optional parameter that lets the escort report their current detected targets after specified time interval in seconds. The default time is 30 seconds. +-- @return #ESCORT +function ESCORT:MenuReportTargets( Seconds ) + self:F( { Seconds } ) + + if not self.EscortMenuReportNearbyTargets then + self.EscortMenuReportNearbyTargets = MENU_CLIENT:New( self.EscortClient, "Report targets", self.EscortMenu ) + end + + if not Seconds then + Seconds = 30 + end + + -- Report Targets + self.EscortMenuReportNearbyTargetsNow = MENU_CLIENT_COMMAND:New( self.EscortClient, "Report targets now!", self.EscortMenuReportNearbyTargets, ESCORT._ReportNearbyTargetsNow, { ParamSelf = self } ) + self.EscortMenuReportNearbyTargetsOn = MENU_CLIENT_COMMAND:New( self.EscortClient, "Report targets on", self.EscortMenuReportNearbyTargets, ESCORT._SwitchReportNearbyTargets, { ParamSelf = self, ParamReportTargets = true } ) + self.EscortMenuReportNearbyTargetsOff = MENU_CLIENT_COMMAND:New( self.EscortClient, "Report targets off", self.EscortMenuReportNearbyTargets, ESCORT._SwitchReportNearbyTargets, { ParamSelf = self, ParamReportTargets = false, } ) + + -- Attack Targets + self.EscortMenuAttackNearbyTargets = MENU_CLIENT:New( self.EscortClient, "Attack targets", self.EscortMenu ) + + + self.ReportTargetsScheduler = SCHEDULER:New( self, self._ReportTargetsScheduler, {}, 1, Seconds ) + + return self +end + +--- Defines a menu slot to let the escort attack its detected targets using assisted attack from another escort joined also with the client. +-- This menu will appear under **Request assistance from**. +-- Note that this method needs to be preceded with the method MenuReportTargets. +-- @param #ESCORT self +-- @return #ESCORT +function ESCORT:MenuAssistedAttack() + self:F() + + -- Request assistance from other escorts. + -- This is very useful to let f.e. an escorting ship attack a target detected by an escorting plane... + self.EscortMenuTargetAssistance = MENU_CLIENT:New( self.EscortClient, "Request assistance from", self.EscortMenu ) + + return self +end + +--- Defines a menu to let the escort set its rules of engagement. +-- All rules of engagement will appear under the menu **ROE**. +-- @param #ESCORT self +-- @return #ESCORT +function ESCORT:MenuROE( MenuTextFormat ) + self:F( MenuTextFormat ) + + if not self.EscortMenuROE then + -- Rules of Engagement + self.EscortMenuROE = MENU_CLIENT:New( self.EscortClient, "ROE", self.EscortMenu ) + if self.EscortGroup:OptionROEHoldFirePossible() then + self.EscortMenuROEHoldFire = MENU_CLIENT_COMMAND:New( self.EscortClient, "Hold Fire", self.EscortMenuROE, ESCORT._ROE, { ParamSelf = self, ParamFunction = self.EscortGroup:OptionROEHoldFire(), ParamMessage = "Holding weapons!" } ) + end + if self.EscortGroup:OptionROEReturnFirePossible() then + self.EscortMenuROEReturnFire = MENU_CLIENT_COMMAND:New( self.EscortClient, "Return Fire", self.EscortMenuROE, ESCORT._ROE, { ParamSelf = self, ParamFunction = self.EscortGroup:OptionROEReturnFire(), ParamMessage = "Returning fire!" } ) + end + if self.EscortGroup:OptionROEOpenFirePossible() then + self.EscortMenuROEOpenFire = MENU_CLIENT_COMMAND:New( self.EscortClient, "Open Fire", self.EscortMenuROE, ESCORT._ROE, { ParamSelf = self, ParamFunction = self.EscortGroup:OptionROEOpenFire(), ParamMessage = "Opening fire on designated targets!!" } ) + end + if self.EscortGroup:OptionROEWeaponFreePossible() then + self.EscortMenuROEWeaponFree = MENU_CLIENT_COMMAND:New( self.EscortClient, "Weapon Free", self.EscortMenuROE, ESCORT._ROE, { ParamSelf = self, ParamFunction = self.EscortGroup:OptionROEWeaponFree(), ParamMessage = "Opening fire on targets of opportunity!" } ) + end + end + + return self +end + + +--- Defines a menu to let the escort set its evasion when under threat. +-- All rules of engagement will appear under the menu **Evasion**. +-- @param #ESCORT self +-- @return #ESCORT +function ESCORT:MenuEvasion( MenuTextFormat ) + self:F( MenuTextFormat ) + + if self.EscortGroup:IsAir() then + if not self.EscortMenuEvasion then + -- Reaction to Threats + self.EscortMenuEvasion = MENU_CLIENT:New( self.EscortClient, "Evasion", self.EscortMenu ) + if self.EscortGroup:OptionROTNoReactionPossible() then + self.EscortMenuEvasionNoReaction = MENU_CLIENT_COMMAND:New( self.EscortClient, "Fight until death", self.EscortMenuEvasion, ESCORT._ROT, { ParamSelf = self, ParamFunction = self.EscortGroup:OptionROTNoReaction(), ParamMessage = "Fighting until death!" } ) + end + if self.EscortGroup:OptionROTPassiveDefensePossible() then + self.EscortMenuEvasionPassiveDefense = MENU_CLIENT_COMMAND:New( self.EscortClient, "Use flares, chaff and jammers", self.EscortMenuEvasion, ESCORT._ROT, { ParamSelf = self, ParamFunction = self.EscortGroup:OptionROTPassiveDefense(), ParamMessage = "Defending using jammers, chaff and flares!" } ) + end + if self.EscortGroup:OptionROTEvadeFirePossible() then + self.EscortMenuEvasionEvadeFire = MENU_CLIENT_COMMAND:New( self.EscortClient, "Evade enemy fire", self.EscortMenuEvasion, ESCORT._ROT, { ParamSelf = self, ParamFunction = self.EscortGroup:OptionROTEvadeFire(), ParamMessage = "Evading on enemy fire!" } ) + end + if self.EscortGroup:OptionROTVerticalPossible() then + self.EscortMenuOptionEvasionVertical = MENU_CLIENT_COMMAND:New( self.EscortClient, "Go below radar and evade fire", self.EscortMenuEvasion, ESCORT._ROT, { ParamSelf = self, ParamFunction = self.EscortGroup:OptionROTVertical(), ParamMessage = "Evading on enemy fire with vertical manoeuvres!" } ) + end + end + end + + return self +end + +--- Defines a menu to let the escort resume its mission from a waypoint on its route. +-- All rules of engagement will appear under the menu **Resume mission from**. +-- @param #ESCORT self +-- @return #ESCORT +function ESCORT:MenuResumeMission() + self:F() + + if not self.EscortMenuResumeMission then + -- Mission Resume Menu Root + self.EscortMenuResumeMission = MENU_CLIENT:New( self.EscortClient, "Resume mission from", self.EscortMenu ) + end + + return self +end + + +--- @param #MENUPARAM MenuParam +function ESCORT._HoldPosition( MenuParam ) + + local self = MenuParam.ParamSelf + local EscortGroup = self.EscortGroup + local EscortClient = self.EscortClient + + local OrbitGroup = MenuParam.ParamOrbitGroup -- Group#GROUP + local OrbitUnit = OrbitGroup:GetUnit(1) -- Unit#UNIT + local OrbitHeight = MenuParam.ParamHeight + local OrbitSeconds = MenuParam.ParamSeconds -- Not implemented yet + + self.FollowScheduler:Stop() + + local PointFrom = {} + local GroupPoint = EscortGroup:GetUnit(1):GetPointVec3() + PointFrom = {} + PointFrom.x = GroupPoint.x + PointFrom.y = GroupPoint.z + PointFrom.speed = 250 + PointFrom.type = AI.Task.WaypointType.TURNING_POINT + PointFrom.alt = GroupPoint.y + PointFrom.alt_type = AI.Task.AltitudeType.BARO + + local OrbitPoint = OrbitUnit:GetPointVec2() + local PointTo = {} + PointTo.x = OrbitPoint.x + PointTo.y = OrbitPoint.y + PointTo.speed = 250 + PointTo.type = AI.Task.WaypointType.TURNING_POINT + PointTo.alt = OrbitHeight + PointTo.alt_type = AI.Task.AltitudeType.BARO + PointTo.task = EscortGroup:TaskOrbitCircleAtVec2( OrbitPoint, OrbitHeight, 0 ) + + local Points = { PointFrom, PointTo } + + EscortGroup:OptionROEHoldFire() + EscortGroup:OptionROTPassiveDefense() + + EscortGroup:SetTask( EscortGroup:TaskRoute( Points ) ) + EscortGroup:MessageToClient( "Orbiting at location.", 10, EscortClient ) + +end + +--- @param #MENUPARAM MenuParam +function ESCORT._JoinUpAndFollow( MenuParam ) + + local self = MenuParam.ParamSelf + local EscortGroup = self.EscortGroup + local EscortClient = self.EscortClient + + self.Distance = MenuParam.ParamDistance + + self:JoinUpAndFollow( EscortGroup, EscortClient, self.Distance ) +end + +--- JoinsUp and Follows a CLIENT. +-- @param Escort#ESCORT self +-- @param Group#GROUP EscortGroup +-- @param Client#CLIENT EscortClient +-- @param DCSTypes#Distance Distance +function ESCORT:JoinUpAndFollow( EscortGroup, EscortClient, Distance ) + self:F( { EscortGroup, EscortClient, Distance } ) + + self.FollowScheduler:Stop() + + EscortGroup:OptionROEHoldFire() + EscortGroup:OptionROTPassiveDefense() + + self.EscortMode = ESCORT.MODE.FOLLOW + + self.CT1 = 0 + self.GT1 = 0 + self.FollowScheduler:Start() + + EscortGroup:MessageToClient( "Rejoining and Following at " .. Distance .. "!", 30, EscortClient ) +end + +--- @param #MENUPARAM MenuParam +function ESCORT._Flare( MenuParam ) + + local self = MenuParam.ParamSelf + local EscortGroup = self.EscortGroup + local EscortClient = self.EscortClient + + local Color = MenuParam.ParamColor + local Message = MenuParam.ParamMessage + + EscortGroup:GetUnit(1):Flare( Color ) + EscortGroup:MessageToClient( Message, 10, EscortClient ) +end + +--- @param #MENUPARAM MenuParam +function ESCORT._Smoke( MenuParam ) + + local self = MenuParam.ParamSelf + local EscortGroup = self.EscortGroup + local EscortClient = self.EscortClient + + local Color = MenuParam.ParamColor + local Message = MenuParam.ParamMessage + + EscortGroup:GetUnit(1):Smoke( Color ) + EscortGroup:MessageToClient( Message, 10, EscortClient ) +end + + +--- @param #MENUPARAM MenuParam +function ESCORT._ReportNearbyTargetsNow( MenuParam ) + + local self = MenuParam.ParamSelf + local EscortGroup = self.EscortGroup + local EscortClient = self.EscortClient + + self:_ReportTargetsScheduler() + +end + +function ESCORT._SwitchReportNearbyTargets( MenuParam ) + + local self = MenuParam.ParamSelf + local EscortGroup = self.EscortGroup + local EscortClient = self.EscortClient + + self.ReportTargets = MenuParam.ParamReportTargets + + if self.ReportTargets then + if not self.ReportTargetsScheduler then + self.ReportTargetsScheduler = SCHEDULER:New( self, self._ReportTargetsScheduler, {}, 1, 30 ) + end + else + routines.removeFunction( self.ReportTargetsScheduler ) + self.ReportTargetsScheduler = nil + end +end + +--- @param #MENUPARAM MenuParam +function ESCORT._ScanTargets( MenuParam ) + + local self = MenuParam.ParamSelf + local EscortGroup = self.EscortGroup + local EscortClient = self.EscortClient + + local ScanDuration = MenuParam.ParamScanDuration + + self.FollowScheduler:Stop() + + if EscortGroup:IsHelicopter() then + SCHEDULER:New( EscortGroup, EscortGroup.PushTask, + { EscortGroup:TaskControlled( + EscortGroup:TaskOrbitCircle( 200, 20 ), + EscortGroup:TaskCondition( nil, nil, nil, nil, ScanDuration, nil ) + ) + }, + 1 + ) + elseif EscortGroup:IsAirPlane() then + SCHEDULER:New( EscortGroup, EscortGroup.PushTask, + { EscortGroup:TaskControlled( + EscortGroup:TaskOrbitCircle( 1000, 500 ), + EscortGroup:TaskCondition( nil, nil, nil, nil, ScanDuration, nil ) + ) + }, + 1 + ) + end + + EscortGroup:MessageToClient( "Scanning targets for " .. ScanDuration .. " seconds.", ScanDuration, EscortClient ) + + if self.EscortMode == ESCORT.MODE.FOLLOW then + self.FollowScheduler:Start() + end + +end + +--- @param Group#GROUP EscortGroup +function _Resume( EscortGroup ) + env.info( '_Resume' ) + + local Escort = EscortGroup:GetState( EscortGroup, "Escort" ) + env.info( "EscortMode = " .. Escort.EscortMode ) + if Escort.EscortMode == ESCORT.MODE.FOLLOW then + Escort:JoinUpAndFollow( EscortGroup, Escort.EscortClient, Escort.Distance ) + end + +end + +--- @param #MENUPARAM MenuParam +function ESCORT._AttackTarget( MenuParam ) + + local self = MenuParam.ParamSelf + local EscortGroup = self.EscortGroup + + local EscortClient = self.EscortClient + local AttackUnit = MenuParam.ParamUnit -- Unit#UNIT + + self.FollowScheduler:Stop() + + self:T( AttackUnit ) + + if EscortGroup:IsAir() then + EscortGroup:OptionROEOpenFire() + EscortGroup:OptionROTPassiveDefense() + EscortGroup:SetState( EscortGroup, "Escort", self ) + SCHEDULER:New( EscortGroup, + EscortGroup.PushTask, + { EscortGroup:TaskCombo( + { EscortGroup:TaskAttackUnit( AttackUnit ), + EscortGroup:TaskFunction( 1, 2, "_Resume", { "''" } ) + } + ) + }, 10 + ) + else + SCHEDULER:New( EscortGroup, + EscortGroup.PushTask, + { EscortGroup:TaskCombo( + { EscortGroup:TaskFireAtPoint( AttackUnit:GetPointVec2(), 50 ) + } + ) + }, 10 + ) + end + + EscortGroup:MessageToClient( "Engaging Designated Unit!", 10, EscortClient ) + +end + +--- @param #MENUPARAM MenuParam +function ESCORT._AssistTarget( MenuParam ) + + local self = MenuParam.ParamSelf + local EscortGroup = self.EscortGroup + local EscortClient = self.EscortClient + local EscortGroupAttack = MenuParam.ParamEscortGroup + local AttackUnit = MenuParam.ParamUnit -- Unit#UNIT + + self.FollowScheduler:Stop() + + self:T( AttackUnit ) + + if EscortGroupAttack:IsAir() then + EscortGroupAttack:OptionROEOpenFire() + EscortGroupAttack:OptionROTVertical() + SCHDULER:New( EscortGroupAttack, + EscortGroupAttack.PushTask, + { EscortGroupAttack:TaskCombo( + { EscortGroupAttack:TaskAttackUnit( AttackUnit ), + EscortGroupAttack:TaskOrbitCircle( 500, 350 ) + } + ) + }, 10 + ) + else + SCHEDULER:New( EscortGroupAttack, + EscortGroupAttack.PushTask, + { EscortGroupAttack:TaskCombo( + { EscortGroupAttack:TaskFireAtPoint( AttackUnit:GetPointVec2(), 50 ) + } + ) + }, 10 + ) + end + EscortGroupAttack:MessageToClient( "Assisting with the destroying the enemy unit!", 10, EscortClient ) + +end + +--- @param #MENUPARAM MenuParam +function ESCORT._ROE( MenuParam ) + + local self = MenuParam.ParamSelf + local EscortGroup = self.EscortGroup + local EscortClient = self.EscortClient + + local EscortROEFunction = MenuParam.ParamFunction + local EscortROEMessage = MenuParam.ParamMessage + + pcall( function() EscortROEFunction() end ) + EscortGroup:MessageToClient( EscortROEMessage, 10, EscortClient ) +end + +--- @param #MENUPARAM MenuParam +function ESCORT._ROT( MenuParam ) + + local self = MenuParam.ParamSelf + local EscortGroup = self.EscortGroup + local EscortClient = self.EscortClient + + local EscortROTFunction = MenuParam.ParamFunction + local EscortROTMessage = MenuParam.ParamMessage + + pcall( function() EscortROTFunction() end ) + EscortGroup:MessageToClient( EscortROTMessage, 10, EscortClient ) +end + +--- @param #MENUPARAM MenuParam +function ESCORT._ResumeMission( MenuParam ) + + local self = MenuParam.ParamSelf + local EscortGroup = self.EscortGroup + local EscortClient = self.EscortClient + + local WayPoint = MenuParam.ParamWayPoint + + self.FollowScheduler:Stop() + + local WayPoints = EscortGroup:GetTaskRoute() + self:T( WayPoint, WayPoints ) + + for WayPointIgnore = 1, WayPoint do + table.remove( WayPoints, 1 ) + end + + SCHEDULER:New( EscortGroup, EscortGroup.SetTask, { EscortGroup:TaskRoute( WayPoints ) }, 1 ) + + EscortGroup:MessageToClient( "Resuming mission from waypoint " .. WayPoint .. ".", 10, EscortClient ) +end + +--- Registers the waypoints +-- @param #ESCORT self +-- @return #table +function ESCORT:RegisterRoute() + self:F() + + local EscortGroup = self.EscortGroup -- Group#GROUP + + local TaskPoints = EscortGroup:GetTaskRoute() + + self:T( TaskPoints ) + + return TaskPoints +end + +--- @param Escort#ESCORT self +function ESCORT:_FollowScheduler() + self:F( { self.FollowDistance } ) + + self:T( {self.EscortClient.UnitName, self.EscortGroup.GroupName } ) + if self.EscortGroup:IsAlive() and self.EscortClient:IsAlive() then + + local ClientUnit = self.EscortClient:GetClientGroupUnit() + local GroupUnit = self.EscortGroup:GetUnit( 1 ) + local FollowDistance = self.FollowDistance + + self:T( {ClientUnit.UnitName, GroupUnit.UnitName } ) + + if self.CT1 == 0 and self.GT1 == 0 then + self.CV1 = ClientUnit:GetPointVec3() + self:T( { "self.CV1", self.CV1 } ) + self.CT1 = timer.getTime() + self.GV1 = GroupUnit:GetPointVec3() + self.GT1 = timer.getTime() + else + local CT1 = self.CT1 + local CT2 = timer.getTime() + local CV1 = self.CV1 + local CV2 = ClientUnit:GetPointVec3() + self.CT1 = CT2 + self.CV1 = CV2 + + local CD = ( ( CV2.x - CV1.x )^2 + ( CV2.y - CV1.y )^2 + ( CV2.z - CV1.z )^2 ) ^ 0.5 + local CT = CT2 - CT1 + + local CS = ( 3600 / CT ) * ( CD / 1000 ) + + self:T2( { "Client:", CS, CD, CT, CV2, CV1, CT2, CT1 } ) + + local GT1 = self.GT1 + local GT2 = timer.getTime() + local GV1 = self.GV1 + local GV2 = GroupUnit:GetPointVec3() + self.GT1 = GT2 + self.GV1 = GV2 + + local GD = ( ( GV2.x - GV1.x )^2 + ( GV2.y - GV1.y )^2 + ( GV2.z - GV1.z )^2 ) ^ 0.5 + local GT = GT2 - GT1 + + local GS = ( 3600 / GT ) * ( GD / 1000 ) + + self:T2( { "Group:", GS, GD, GT, GV2, GV1, GT2, GT1 } ) + + -- Calculate the group direction vector + local GV = { x = GV2.x - CV2.x, y = GV2.y - CV2.y, z = GV2.z - CV2.z } + + -- Calculate GH2, GH2 with the same height as CV2. + local GH2 = { x = GV2.x, y = CV2.y, z = GV2.z } + + -- Calculate the angle of GV to the orthonormal plane + local alpha = math.atan2( GV.z, GV.x ) + + -- Now we calculate the intersecting vector between the circle around CV2 with radius FollowDistance and GH2. + -- From the GeoGebra model: CVI = (x(CV2) + FollowDistance cos(alpha), y(GH2) + FollowDistance sin(alpha), z(CV2)) + local CVI = { x = CV2.x + FollowDistance * math.cos(alpha), + y = GH2.y, + z = CV2.z + FollowDistance * math.sin(alpha), + } + + -- Calculate the direction vector DV of the escort group. We use CVI as the base and CV2 as the direction. + local DV = { x = CV2.x - CVI.x, y = CV2.y - CVI.y, z = CV2.z - CVI.z } + + -- We now calculate the unary direction vector DVu, so that we can multiply DVu with the speed, which is expressed in meters / s. + -- We need to calculate this vector to predict the point the escort group needs to fly to according its speed. + -- The distance of the destination point should be far enough not to have the aircraft starting to swipe left to right... + local DVu = { x = DV.x / FollowDistance, y = DV.y / FollowDistance, z = DV.z / FollowDistance } + + -- Now we can calculate the group destination vector GDV. + local GDV = { x = DVu.x * CS * 8 + CVI.x, y = CVI.y, z = DVu.z * CS * 8 + CVI.z } + + if self.SmokeDirectionVector == true then + trigger.action.smoke( GDV, trigger.smokeColor.Red ) + end + + self:T2( { "CV2:", CV2 } ) + self:T2( { "CVI:", CVI } ) + self:T2( { "GDV:", GDV } ) + + -- Measure distance between client and group + local CatchUpDistance = ( ( GDV.x - GV2.x )^2 + ( GDV.y - GV2.y )^2 + ( GDV.z - GV2.z )^2 ) ^ 0.5 + + -- The calculation of the Speed would simulate that the group would take 30 seconds to overcome + -- the requested Distance). + local Time = 10 + local CatchUpSpeed = ( CatchUpDistance - ( CS * 8.4 ) ) / Time + + local Speed = CS + CatchUpSpeed + if Speed < 0 then + Speed = 0 + end + + self:T( { "Client Speed, Escort Speed, Speed, FollowDistance, Time:", CS, GS, Speed, FollowDistance, Time } ) + + -- Now route the escort to the desired point with the desired speed. + self.EscortGroup:TaskRouteToVec3( GDV, Speed / 3.6 ) -- DCS models speed in Mps (Miles per second) + end + + return true + end + + return false +end + + +--- Report Targets Scheduler. +-- @param #ESCORT self +function ESCORT:_ReportTargetsScheduler() + self:F( self.EscortGroup:GetName() ) + + if self.EscortGroup:IsAlive() and self.EscortClient:IsAlive() then + local EscortGroupName = self.EscortGroup:GetName() + local EscortTargets = self.EscortGroup:GetDetectedTargets() + + local ClientEscortTargets = self.EscortClient._EscortGroups[EscortGroupName].Targets + + local EscortTargetMessages = "" + for EscortTargetID, EscortTarget in pairs( EscortTargets ) do + local EscortObject = EscortTarget.object + self:T( EscortObject ) + if EscortObject and EscortObject:isExist() and EscortObject.id_ < 50000000 then + + local EscortTargetUnit = UNIT:Find( EscortObject ) + local EscortTargetUnitName = EscortTargetUnit:GetName() + + + + -- local EscortTargetIsDetected, + -- EscortTargetIsVisible, + -- EscortTargetLastTime, + -- EscortTargetKnowType, + -- EscortTargetKnowDistance, + -- EscortTargetLastPos, + -- EscortTargetLastVelocity + -- = self.EscortGroup:IsTargetDetected( EscortObject ) + -- + -- self:T( { EscortTargetIsDetected, + -- EscortTargetIsVisible, + -- EscortTargetLastTime, + -- EscortTargetKnowType, + -- EscortTargetKnowDistance, + -- EscortTargetLastPos, + -- EscortTargetLastVelocity } ) + + + local EscortTargetUnitPositionVec3 = EscortTargetUnit:GetPointVec3() + local EscortPositionVec3 = self.EscortGroup:GetPointVec3() + local Distance = ( ( EscortTargetUnitPositionVec3.x - EscortPositionVec3.x )^2 + + ( EscortTargetUnitPositionVec3.y - EscortPositionVec3.y )^2 + + ( EscortTargetUnitPositionVec3.z - EscortPositionVec3.z )^2 + ) ^ 0.5 / 1000 + + self:T( { self.EscortGroup:GetName(), EscortTargetUnit:GetName(), Distance, EscortTarget } ) + + if Distance <= 15 then + + if not ClientEscortTargets[EscortTargetUnitName] then + ClientEscortTargets[EscortTargetUnitName] = {} + end + ClientEscortTargets[EscortTargetUnitName].AttackUnit = EscortTargetUnit + ClientEscortTargets[EscortTargetUnitName].visible = EscortTarget.visible + ClientEscortTargets[EscortTargetUnitName].type = EscortTarget.type + ClientEscortTargets[EscortTargetUnitName].distance = EscortTarget.distance + else + if ClientEscortTargets[EscortTargetUnitName] then + ClientEscortTargets[EscortTargetUnitName] = nil + end + end + end + end + + self:T( { "Sorting Targets Table:", ClientEscortTargets } ) + table.sort( ClientEscortTargets, function( a, b ) return a.Distance < b.Distance end ) + self:T( { "Sorted Targets Table:", ClientEscortTargets } ) + + -- Remove the sub menus of the Attack menu of the Escort for the EscortGroup. + self.EscortMenuAttackNearbyTargets:RemoveSubMenus() + + if self.EscortMenuTargetAssistance then + self.EscortMenuTargetAssistance:RemoveSubMenus() + end + + --for MenuIndex = 1, #self.EscortMenuAttackTargets do + -- self:T( { "Remove Menu:", self.EscortMenuAttackTargets[MenuIndex] } ) + -- self.EscortMenuAttackTargets[MenuIndex] = self.EscortMenuAttackTargets[MenuIndex]:Remove() + --end + + + if ClientEscortTargets then + for ClientEscortTargetUnitName, ClientEscortTargetData in pairs( ClientEscortTargets ) do + + for ClientEscortGroupName, EscortGroupData in pairs( self.EscortClient._EscortGroups ) do + + if ClientEscortTargetData and ClientEscortTargetData.AttackUnit:IsAlive() then + + local EscortTargetMessage = "" + local EscortTargetCategoryName = ClientEscortTargetData.AttackUnit:GetCategoryName() + local EscortTargetCategoryType = ClientEscortTargetData.AttackUnit:GetTypeName() + if ClientEscortTargetData.type then + EscortTargetMessage = EscortTargetMessage .. EscortTargetCategoryName .. " (" .. EscortTargetCategoryType .. ") at " + else + EscortTargetMessage = EscortTargetMessage .. "Unknown target at " + end + + local EscortTargetUnitPositionVec3 = ClientEscortTargetData.AttackUnit:GetPointVec3() + local EscortPositionVec3 = self.EscortGroup:GetPointVec3() + local Distance = ( ( EscortTargetUnitPositionVec3.x - EscortPositionVec3.x )^2 + + ( EscortTargetUnitPositionVec3.y - EscortPositionVec3.y )^2 + + ( EscortTargetUnitPositionVec3.z - EscortPositionVec3.z )^2 + ) ^ 0.5 / 1000 + + self:T( { self.EscortGroup:GetName(), ClientEscortTargetData.AttackUnit:GetName(), Distance, ClientEscortTargetData.AttackUnit } ) + if ClientEscortTargetData.visible == false then + EscortTargetMessage = EscortTargetMessage .. string.format( "%.2f", Distance ) .. " estimated km" + else + EscortTargetMessage = EscortTargetMessage .. string.format( "%.2f", Distance ) .. " km" + end + + if ClientEscortTargetData.visible then + EscortTargetMessage = EscortTargetMessage .. ", visual" + end + + if ClientEscortGroupName == EscortGroupName then + + MENU_CLIENT_COMMAND:New( self.EscortClient, + EscortTargetMessage, + self.EscortMenuAttackNearbyTargets, + ESCORT._AttackTarget, + { ParamSelf = self, + ParamUnit = ClientEscortTargetData.AttackUnit + } + ) + EscortTargetMessages = EscortTargetMessages .. "\n - " .. EscortTargetMessage + else + if self.EscortMenuTargetAssistance then + local MenuTargetAssistance = MENU_CLIENT:New( self.EscortClient, EscortGroupData.EscortName, self.EscortMenuTargetAssistance ) + MENU_CLIENT_COMMAND:New( self.EscortClient, + EscortTargetMessage, + MenuTargetAssistance, + ESCORT._AssistTarget, + { ParamSelf = self, + ParamEscortGroup = EscortGroupData.EscortGroup, + ParamUnit = ClientEscortTargetData.AttackUnit + } + ) + end + end + else + ClientEscortTargetData = nil + end + end + end + + if EscortTargetMessages ~= "" and self.ReportTargets == true then + self.EscortGroup:MessageToClient( "Detected targets within 15 km range:" .. EscortTargetMessages:gsub("\n$",""), 20, self.EscortClient ) + else + self.EscortGroup:MessageToClient( "No targets detected!", 20, self.EscortClient ) + end + end + + if self.EscortMenuResumeMission then + self.EscortMenuResumeMission:RemoveSubMenus() + + -- if self.EscortMenuResumeWayPoints then + -- for MenuIndex = 1, #self.EscortMenuResumeWayPoints do + -- self:T( { "Remove Menu:", self.EscortMenuResumeWayPoints[MenuIndex] } ) + -- self.EscortMenuResumeWayPoints[MenuIndex] = self.EscortMenuResumeWayPoints[MenuIndex]:Remove() + -- end + -- end + + local TaskPoints = self:RegisterRoute() + for WayPointID, WayPoint in pairs( TaskPoints ) do + local EscortPositionVec3 = self.EscortGroup:GetPointVec3() + local Distance = ( ( WayPoint.x - EscortPositionVec3.x )^2 + + ( WayPoint.y - EscortPositionVec3.z )^2 + ) ^ 0.5 / 1000 + MENU_CLIENT_COMMAND:New( self.EscortClient, "Waypoint " .. WayPointID .. " at " .. string.format( "%.2f", Distance ).. "km", self.EscortMenuResumeMission, ESCORT._ResumeMission, { ParamSelf = self, ParamWayPoint = WayPointID } ) + end + end + + return true + end + + return false +end +--- This module contains the MISSILETRAINER class. +-- +-- === +-- +-- 1) @{MissileTrainer#MISSILETRAINER} class, extends @{Base#BASE} +-- =============================================================== +-- The @{#MISSILETRAINER} class uses the DCS world messaging system to be alerted of any missiles fired, and when a missile would hit your aircraft, +-- the class will destroy the missile within a certain range, to avoid damage to your aircraft. +-- It suports the following functionality: +-- +-- * Track the missiles fired at you and other players, providing bearing and range information of the missiles towards the airplanes. +-- * Provide alerts of missile launches, including detailed information of the units launching, including bearing, range … +-- * Provide alerts when a missile would have killed your aircraft. +-- * Provide alerts when the missile self destructs. +-- * Enable / Disable and Configure the Missile Trainer using the various menu options. +-- +-- When running a mission where MISSILETRAINER is used, the following radio menu structure ( 'Radio Menu' -> 'Other (F10)' -> 'MissileTrainer' ) options are available for the players: +-- +-- * **Messages**: Menu to configure all messages. +-- * **Messages On**: Show all messages. +-- * **Messages Off**: Disable all messages. +-- * **Tracking**: Menu to configure missile tracking messages. +-- * **To All**: Shows missile tracking messages to all players. +-- * **To Target**: Shows missile tracking messages only to the player where the missile is targetted at. +-- * **Tracking On**: Show missile tracking messages. +-- * **Tracking Off**: Disable missile tracking messages. +-- * **Frequency Increase**: Increases the missile tracking message frequency with one second. +-- * **Frequency Decrease**: Decreases the missile tracking message frequency with one second. +-- * **Alerts**: Menu to configure alert messages. +-- * **To All**: Shows alert messages to all players. +-- * **To Target**: Shows alert messages only to the player where the missile is (was) targetted at. +-- * **Hits On**: Show missile hit alert messages. +-- * **Hits Off**: Disable missile hit alert messages. +-- * **Launches On**: Show missile launch messages. +-- * **Launches Off**: Disable missile launch messages. +-- * **Details**: Menu to configure message details. +-- * **Range On**: Shows range information when a missile is fired to a target. +-- * **Range Off**: Disable range information when a missile is fired to a target. +-- * **Bearing On**: Shows bearing information when a missile is fired to a target. +-- * **Bearing Off**: Disable bearing information when a missile is fired to a target. +-- * **Distance**: Menu to configure the distance when a missile needs to be destroyed when near to a player, during tracking. This will improve/influence hit calculation accuracy, but has the risk of damaging the aircraft when the missile reaches the aircraft before the distance is measured. +-- * **50 meter**: Destroys the missile when the distance to the aircraft is below or equal to 50 meter. +-- * **100 meter**: Destroys the missile when the distance to the aircraft is below or equal to 100 meter. +-- * **150 meter**: Destroys the missile when the distance to the aircraft is below or equal to 150 meter. +-- * **200 meter**: Destroys the missile when the distance to the aircraft is below or equal to 200 meter. +-- +-- +-- 1.1) MISSILETRAINER construction methods: +-- ----------------------------------------- +-- Create a new MISSILETRAINER object with the @{#MISSILETRAINER.New} method: +-- +-- * @{#MISSILETRAINER.New}: Creates a new MISSILETRAINER object taking the maximum distance to your aircraft to evaluate when a missile needs to be destroyed. +-- +-- MISSILETRAINER will collect each unit declared in the mission with a skill level "Client" and "Player", and will monitor the missiles shot at those. +-- +-- 1.2) MISSILETRAINER initialization methods: +-- ------------------------------------------- +-- A MISSILETRAINER object will behave differently based on the usage of initialization methods: +-- +-- * @{#MISSILETRAINER.InitMessagesOnOff}: Sets by default the display of any message to be ON or OFF. +-- * @{#MISSILETRAINER.InitTrackingToAll}: Sets by default the missile tracking report for all players or only for those missiles targetted to you. +-- * @{#MISSILETRAINER.InitTrackingOnOff}: Sets by default the display of missile tracking report to be ON or OFF. +-- * @{#MISSILETRAINER.InitTrackingFrequency}: Increases, decreases the missile tracking message display frequency with the provided time interval in seconds. +-- * @{#MISSILETRAINER.InitAlertsToAll}: Sets by default the display of alerts to be shown to all players or only to you. +-- * @{#MISSILETRAINER.InitAlertsHitsOnOff}: Sets by default the display of hit alerts ON or OFF. +-- * @{#MISSILETRAINER.InitAlertsLaunchesOnOff}: Sets by default the display of launch alerts ON or OFF. +-- * @{#MISSILETRAINER.InitRangeOnOff}: Sets by default the display of range information of missiles ON of OFF. +-- * @{#MISSILETRAINER.InitBearingOnOff}: Sets by default the display of bearing information of missiles ON of OFF. +-- * @{#MISSILETRAINER.InitMenusOnOff}: Allows to configure the options through the radio menu. +-- +-- === +-- +-- CREDITS +-- ======= +-- **Stuka (Danny)** Who you can search on the Eagle Dynamics Forums. +-- Working together with Danny has resulted in the MISSILETRAINER class. +-- Danny has shared his ideas and together we made a design. +-- Together with the **476 virtual team**, we tested the MISSILETRAINER class, and got much positive feedback! +-- +-- @module MissileTrainer +-- @author FlightControl + + +--- The MISSILETRAINER class +-- @type MISSILETRAINER +-- @field Set#SET_CLIENT DBClients +-- @extends Base#BASE +MISSILETRAINER = { + ClassName = "MISSILETRAINER", + TrackingMissiles = {}, +} + +function MISSILETRAINER._Alive( Client, self ) + + if self.Briefing then + Client:Message( self.Briefing, 15, "Trainer" ) + end + + if self.MenusOnOff == true then + Client:Message( "Use the 'Radio Menu' -> 'Other (F10)' -> 'Missile Trainer' menu options to change the Missile Trainer settings (for all players).", 15, "Trainer" ) + + Client.MainMenu = MENU_CLIENT:New( Client, "Missile Trainer", nil ) -- Menu#MENU_CLIENT + + Client.MenuMessages = MENU_CLIENT:New( Client, "Messages", Client.MainMenu ) + Client.MenuOn = MENU_CLIENT_COMMAND:New( Client, "Messages On", Client.MenuMessages, self._MenuMessages, { MenuSelf = self, MessagesOnOff = true } ) + Client.MenuOff = MENU_CLIENT_COMMAND:New( Client, "Messages Off", Client.MenuMessages, self._MenuMessages, { MenuSelf = self, MessagesOnOff = false } ) + + Client.MenuTracking = MENU_CLIENT:New( Client, "Tracking", Client.MainMenu ) + Client.MenuTrackingToAll = MENU_CLIENT_COMMAND:New( Client, "To All", Client.MenuTracking, self._MenuMessages, { MenuSelf = self, TrackingToAll = true } ) + Client.MenuTrackingToTarget = MENU_CLIENT_COMMAND:New( Client, "To Target", Client.MenuTracking, self._MenuMessages, { MenuSelf = self, TrackingToAll = false } ) + Client.MenuTrackOn = MENU_CLIENT_COMMAND:New( Client, "Tracking On", Client.MenuTracking, self._MenuMessages, { MenuSelf = self, TrackingOnOff = true } ) + Client.MenuTrackOff = MENU_CLIENT_COMMAND:New( Client, "Tracking Off", Client.MenuTracking, self._MenuMessages, { MenuSelf = self, TrackingOnOff = false } ) + Client.MenuTrackIncrease = MENU_CLIENT_COMMAND:New( Client, "Frequency Increase", Client.MenuTracking, self._MenuMessages, { MenuSelf = self, TrackingFrequency = -1 } ) + Client.MenuTrackDecrease = MENU_CLIENT_COMMAND:New( Client, "Frequency Decrease", Client.MenuTracking, self._MenuMessages, { MenuSelf = self, TrackingFrequency = 1 } ) + + Client.MenuAlerts = MENU_CLIENT:New( Client, "Alerts", Client.MainMenu ) + Client.MenuAlertsToAll = MENU_CLIENT_COMMAND:New( Client, "To All", Client.MenuAlerts, self._MenuMessages, { MenuSelf = self, AlertsToAll = true } ) + Client.MenuAlertsToTarget = MENU_CLIENT_COMMAND:New( Client, "To Target", Client.MenuAlerts, self._MenuMessages, { MenuSelf = self, AlertsToAll = false } ) + Client.MenuHitsOn = MENU_CLIENT_COMMAND:New( Client, "Hits On", Client.MenuAlerts, self._MenuMessages, { MenuSelf = self, AlertsHitsOnOff = true } ) + Client.MenuHitsOff = MENU_CLIENT_COMMAND:New( Client, "Hits Off", Client.MenuAlerts, self._MenuMessages, { MenuSelf = self, AlertsHitsOnOff = false } ) + Client.MenuLaunchesOn = MENU_CLIENT_COMMAND:New( Client, "Launches On", Client.MenuAlerts, self._MenuMessages, { MenuSelf = self, AlertsLaunchesOnOff = true } ) + Client.MenuLaunchesOff = MENU_CLIENT_COMMAND:New( Client, "Launches Off", Client.MenuAlerts, self._MenuMessages, { MenuSelf = self, AlertsLaunchesOnOff = false } ) + + Client.MenuDetails = MENU_CLIENT:New( Client, "Details", Client.MainMenu ) + Client.MenuDetailsDistanceOn = MENU_CLIENT_COMMAND:New( Client, "Range On", Client.MenuDetails, self._MenuMessages, { MenuSelf = self, DetailsRangeOnOff = true } ) + Client.MenuDetailsDistanceOff = MENU_CLIENT_COMMAND:New( Client, "Range Off", Client.MenuDetails, self._MenuMessages, { MenuSelf = self, DetailsRangeOnOff = false } ) + Client.MenuDetailsBearingOn = MENU_CLIENT_COMMAND:New( Client, "Bearing On", Client.MenuDetails, self._MenuMessages, { MenuSelf = self, DetailsBearingOnOff = true } ) + Client.MenuDetailsBearingOff = MENU_CLIENT_COMMAND:New( Client, "Bearing Off", Client.MenuDetails, self._MenuMessages, { MenuSelf = self, DetailsBearingOnOff = false } ) + + Client.MenuDistance = MENU_CLIENT:New( Client, "Set distance to plane", Client.MainMenu ) + Client.MenuDistance50 = MENU_CLIENT_COMMAND:New( Client, "50 meter", Client.MenuDistance, self._MenuMessages, { MenuSelf = self, Distance = 50 / 1000 } ) + Client.MenuDistance100 = MENU_CLIENT_COMMAND:New( Client, "100 meter", Client.MenuDistance, self._MenuMessages, { MenuSelf = self, Distance = 100 / 1000 } ) + Client.MenuDistance150 = MENU_CLIENT_COMMAND:New( Client, "150 meter", Client.MenuDistance, self._MenuMessages, { MenuSelf = self, Distance = 150 / 1000 } ) + Client.MenuDistance200 = MENU_CLIENT_COMMAND:New( Client, "200 meter", Client.MenuDistance, self._MenuMessages, { MenuSelf = self, Distance = 200 / 1000 } ) + else + if Client.MainMenu then + Client.MainMenu:Remove() + end + end + + local ClientID = Client:GetID() + self:T( ClientID ) + if not self.TrackingMissiles[ClientID] then + self.TrackingMissiles[ClientID] = {} + end + self.TrackingMissiles[ClientID].Client = Client + if not self.TrackingMissiles[ClientID].MissileData then + self.TrackingMissiles[ClientID].MissileData = {} + end +end + +--- Creates the main object which is handling missile tracking. +-- When a missile is fired a SCHEDULER is set off that follows the missile. When near a certain a client player, the missile will be destroyed. +-- @param #MISSILETRAINER self +-- @param #number Distance The distance in meters when a tracked missile needs to be destroyed when close to a player. +-- @param #string Briefing (Optional) Will show a text to the players when starting their mission. Can be used for briefing purposes. +-- @return #MISSILETRAINER +function MISSILETRAINER:New( Distance, Briefing ) + local self = BASE:Inherit( self, BASE:New() ) + self:F( Distance ) + + if Briefing then + self.Briefing = Briefing + end + + self.Schedulers = {} + self.SchedulerID = 0 + + self.MessageInterval = 2 + self.MessageLastTime = timer.getTime() + + self.Distance = Distance / 1000 + + _EVENTDISPATCHER:OnShot( self._EventShot, self ) + + self.DBClients = SET_CLIENT:New():FilterStart() + + +-- for ClientID, Client in pairs( self.DBClients.Database ) do +-- self:E( "ForEach:" .. Client.UnitName ) +-- Client:Alive( self._Alive, self ) +-- end +-- + self.DBClients:ForEachClient( + function( Client ) + self:E( "ForEach:" .. Client.UnitName ) + Client:Alive( self._Alive, self ) + end + ) + + + +-- self.DB:ForEachClient( +-- --- @param Client#CLIENT Client +-- function( Client ) +-- +-- ... actions ... +-- +-- end +-- ) + + self.MessagesOnOff = true + + self.TrackingToAll = false + self.TrackingOnOff = true + self.TrackingFrequency = 3 + + self.AlertsToAll = true + self.AlertsHitsOnOff = true + self.AlertsLaunchesOnOff = true + + self.DetailsRangeOnOff = true + self.DetailsBearingOnOff = true + + self.MenusOnOff = true + + self.TrackingMissiles = {} + + self.TrackingScheduler = SCHEDULER:New( self, self._TrackMissiles, {}, 0.5, 0.05, 0 ) + + return self +end + +-- Initialization methods. + + + +--- Sets by default the display of any message to be ON or OFF. +-- @param #MISSILETRAINER self +-- @param #boolean MessagesOnOff true or false +-- @return #MISSILETRAINER self +function MISSILETRAINER:InitMessagesOnOff( MessagesOnOff ) + self:F( MessagesOnOff ) + + self.MessagesOnOff = MessagesOnOff + if self.MessagesOnOff == true then + MESSAGE:New( "Messages ON", 15, "Menu" ):ToAll() + else + MESSAGE:New( "Messages OFF", 15, "Menu" ):ToAll() + end + + return self +end + +--- Sets by default the missile tracking report for all players or only for those missiles targetted to you. +-- @param #MISSILETRAINER self +-- @param #boolean TrackingToAll true or false +-- @return #MISSILETRAINER self +function MISSILETRAINER:InitTrackingToAll( TrackingToAll ) + self:F( TrackingToAll ) + + self.TrackingToAll = TrackingToAll + if self.TrackingToAll == true then + MESSAGE:New( "Missile tracking to all players ON", 15, "Menu" ):ToAll() + else + MESSAGE:New( "Missile tracking to all players OFF", 15, "Menu" ):ToAll() + end + + return self +end + +--- Sets by default the display of missile tracking report to be ON or OFF. +-- @param #MISSILETRAINER self +-- @param #boolean TrackingOnOff true or false +-- @return #MISSILETRAINER self +function MISSILETRAINER:InitTrackingOnOff( TrackingOnOff ) + self:F( TrackingOnOff ) + + self.TrackingOnOff = TrackingOnOff + if self.TrackingOnOff == true then + MESSAGE:New( "Missile tracking ON", 15, "Menu" ):ToAll() + else + MESSAGE:New( "Missile tracking OFF", 15, "Menu" ):ToAll() + end + + return self +end + +--- Increases, decreases the missile tracking message display frequency with the provided time interval in seconds. +-- The default frequency is a 3 second interval, so the Tracking Frequency parameter specifies the increase or decrease from the default 3 seconds or the last frequency update. +-- @param #MISSILETRAINER self +-- @param #number TrackingFrequency Provide a negative or positive value in seconds to incraese or decrease the display frequency. +-- @return #MISSILETRAINER self +function MISSILETRAINER:InitTrackingFrequency( TrackingFrequency ) + self:F( TrackingFrequency ) + + self.TrackingFrequency = self.TrackingFrequency + TrackingFrequency + if self.TrackingFrequency < 0.5 then + self.TrackingFrequency = 0.5 + end + if self.TrackingFrequency then + MESSAGE:New( "Missile tracking frequency is " .. self.TrackingFrequency .. " seconds.", 15, "Menu" ):ToAll() + end + + return self +end + +--- Sets by default the display of alerts to be shown to all players or only to you. +-- @param #MISSILETRAINER self +-- @param #boolean AlertsToAll true or false +-- @return #MISSILETRAINER self +function MISSILETRAINER:InitAlertsToAll( AlertsToAll ) + self:F( AlertsToAll ) + + self.AlertsToAll = AlertsToAll + if self.AlertsToAll == true then + MESSAGE:New( "Alerts to all players ON", 15, "Menu" ):ToAll() + else + MESSAGE:New( "Alerts to all players OFF", 15, "Menu" ):ToAll() + end + + return self +end + +--- Sets by default the display of hit alerts ON or OFF. +-- @param #MISSILETRAINER self +-- @param #boolean AlertsHitsOnOff true or false +-- @return #MISSILETRAINER self +function MISSILETRAINER:InitAlertsHitsOnOff( AlertsHitsOnOff ) + self:F( AlertsHitsOnOff ) + + self.AlertsHitsOnOff = AlertsHitsOnOff + if self.AlertsHitsOnOff == true then + MESSAGE:New( "Alerts Hits ON", 15, "Menu" ):ToAll() + else + MESSAGE:New( "Alerts Hits OFF", 15, "Menu" ):ToAll() + end + + return self +end + +--- Sets by default the display of launch alerts ON or OFF. +-- @param #MISSILETRAINER self +-- @param #boolean AlertsLaunchesOnOff true or false +-- @return #MISSILETRAINER self +function MISSILETRAINER:InitAlertsLaunchesOnOff( AlertsLaunchesOnOff ) + self:F( AlertsLaunchesOnOff ) + + self.AlertsLaunchesOnOff = AlertsLaunchesOnOff + if self.AlertsLaunchesOnOff == true then + MESSAGE:New( "Alerts Launches ON", 15, "Menu" ):ToAll() + else + MESSAGE:New( "Alerts Launches OFF", 15, "Menu" ):ToAll() + end + + return self +end + +--- Sets by default the display of range information of missiles ON of OFF. +-- @param #MISSILETRAINER self +-- @param #boolean DetailsRangeOnOff true or false +-- @return #MISSILETRAINER self +function MISSILETRAINER:InitRangeOnOff( DetailsRangeOnOff ) + self:F( DetailsRangeOnOff ) + + self.DetailsRangeOnOff = DetailsRangeOnOff + if self.DetailsRangeOnOff == true then + MESSAGE:New( "Range display ON", 15, "Menu" ):ToAll() + else + MESSAGE:New( "Range display OFF", 15, "Menu" ):ToAll() + end + + return self +end + +--- Sets by default the display of bearing information of missiles ON of OFF. +-- @param #MISSILETRAINER self +-- @param #boolean DetailsBearingOnOff true or false +-- @return #MISSILETRAINER self +function MISSILETRAINER:InitBearingOnOff( DetailsBearingOnOff ) + self:F( DetailsBearingOnOff ) + + self.DetailsBearingOnOff = DetailsBearingOnOff + if self.DetailsBearingOnOff == true then + MESSAGE:New( "Bearing display OFF", 15, "Menu" ):ToAll() + else + MESSAGE:New( "Bearing display OFF", 15, "Menu" ):ToAll() + end + + return self +end + +--- Enables / Disables the menus. +-- @param #MISSILETRAINER self +-- @param #boolean MenusOnOff true or false +-- @return #MISSILETRAINER self +function MISSILETRAINER:InitMenusOnOff( MenusOnOff ) + self:F( MenusOnOff ) + + self.MenusOnOff = MenusOnOff + if self.MenusOnOff == true then + MESSAGE:New( "Menus are ENABLED (only when a player rejoins a slot)", 15, "Menu" ):ToAll() + else + MESSAGE:New( "Menus are DISABLED", 15, "Menu" ):ToAll() + end + + return self +end + + +-- Menu functions + +function MISSILETRAINER._MenuMessages( MenuParameters ) + + local self = MenuParameters.MenuSelf + + if MenuParameters.MessagesOnOff ~= nil then + self:InitMessagesOnOff( MenuParameters.MessagesOnOff ) + end + + if MenuParameters.TrackingToAll ~= nil then + self:InitTrackingToAll( MenuParameters.TrackingToAll ) + end + + if MenuParameters.TrackingOnOff ~= nil then + self:InitTrackingOnOff( MenuParameters.TrackingOnOff ) + end + + if MenuParameters.TrackingFrequency ~= nil then + self:InitTrackingFrequency( MenuParameters.TrackingFrequency ) + end + + if MenuParameters.AlertsToAll ~= nil then + self:InitAlertsToAll( MenuParameters.AlertsToAll ) + end + + if MenuParameters.AlertsHitsOnOff ~= nil then + self:InitAlertsHitsOnOff( MenuParameters.AlertsHitsOnOff ) + end + + if MenuParameters.AlertsLaunchesOnOff ~= nil then + self:InitAlertsLaunchesOnOff( MenuParameters.AlertsLaunchesOnOff ) + end + + if MenuParameters.DetailsRangeOnOff ~= nil then + self:InitRangeOnOff( MenuParameters.DetailsRangeOnOff ) + end + + if MenuParameters.DetailsBearingOnOff ~= nil then + self:InitBearingOnOff( MenuParameters.DetailsBearingOnOff ) + end + + if MenuParameters.Distance ~= nil then + self.Distance = MenuParameters.Distance + MESSAGE:New( "Hit detection distance set to " .. self.Distance .. " meters", 15, "Menu" ):ToAll() + end + +end + +--- Detects if an SA site was shot with an anti radiation missile. In this case, take evasive actions based on the skill level set within the ME. +-- @param #MISSILETRAINER self +-- @param Event#EVENTDATA Event +function MISSILETRAINER:_EventShot( Event ) + self:F( { Event } ) + + local TrainerSourceDCSUnit = Event.IniDCSUnit + local TrainerSourceDCSUnitName = Event.IniDCSUnitName + local TrainerWeapon = Event.Weapon -- Identify the weapon fired + local TrainerWeaponName = Event.WeaponName -- return weapon type + + self:T( "Missile Launched = " .. TrainerWeaponName ) + + local TrainerTargetDCSUnit = TrainerWeapon:getTarget() -- Identify target + local TrainerTargetDCSUnitName = Unit.getName( TrainerTargetDCSUnit ) + local TrainerTargetSkill = _DATABASE.Templates.Units[TrainerTargetDCSUnitName].Template.skill + + self:T(TrainerTargetDCSUnitName ) + + local Client = self.DBClients:FindClient( TrainerTargetDCSUnitName ) + if Client then + + local TrainerSourceUnit = UNIT:Find( TrainerSourceDCSUnit ) + local TrainerTargetUnit = UNIT:Find( TrainerTargetDCSUnit ) + + if self.MessagesOnOff == true and self.AlertsLaunchesOnOff == true then + + local Message = MESSAGE:New( + string.format( "%s launched a %s", + TrainerSourceUnit:GetTypeName(), + TrainerWeaponName + ) .. self:_AddRange( Client, TrainerWeapon ) .. self:_AddBearing( Client, TrainerWeapon ), 5, "Launch Alert" ) + + if self.AlertsToAll then + Message:ToAll() + else + Message:ToClient( Client ) + end + end + + local ClientID = Client:GetID() + self:T( ClientID ) + local MissileData = {} + MissileData.TrainerSourceUnit = TrainerSourceUnit + MissileData.TrainerWeapon = TrainerWeapon + MissileData.TrainerTargetUnit = TrainerTargetUnit + MissileData.TrainerWeaponTypeName = TrainerWeapon:getTypeName() + MissileData.TrainerWeaponLaunched = true + table.insert( self.TrackingMissiles[ClientID].MissileData, MissileData ) + --self:T( self.TrackingMissiles ) + end +end + +function MISSILETRAINER:_AddRange( Client, TrainerWeapon ) + + local RangeText = "" + + if self.DetailsRangeOnOff then + + local PositionMissile = TrainerWeapon:getPoint() + local PositionTarget = Client:GetPointVec3() + + local Range = ( ( PositionMissile.x - PositionTarget.x )^2 + + ( PositionMissile.y - PositionTarget.y )^2 + + ( PositionMissile.z - PositionTarget.z )^2 + ) ^ 0.5 / 1000 + + RangeText = string.format( ", at %4.2fkm", Range ) + end + + return RangeText +end + +function MISSILETRAINER:_AddBearing( Client, TrainerWeapon ) + + local BearingText = "" + + if self.DetailsBearingOnOff then + + local PositionMissile = TrainerWeapon:getPoint() + local PositionTarget = Client:GetPointVec3() + + self:T2( { PositionTarget, PositionMissile }) + + local DirectionVector = { x = PositionMissile.x - PositionTarget.x, y = PositionMissile.y - PositionTarget.y, z = PositionMissile.z - PositionTarget.z } + local DirectionRadians = math.atan2( DirectionVector.z, DirectionVector.x ) + --DirectionRadians = DirectionRadians + routines.getNorthCorrection( PositionTarget ) + if DirectionRadians < 0 then + DirectionRadians = DirectionRadians + 2 * math.pi + end + local DirectionDegrees = DirectionRadians * 180 / math.pi + + BearingText = string.format( ", %d degrees", DirectionDegrees ) + end + + return BearingText +end + + +function MISSILETRAINER:_TrackMissiles() + self:F2() + + + local ShowMessages = false + if self.MessagesOnOff and self.MessageLastTime + self.TrackingFrequency <= timer.getTime() then + self.MessageLastTime = timer.getTime() + ShowMessages = true + end + + -- ALERTS PART + + -- Loop for all Player Clients to check the alerts and deletion of missiles. + for ClientDataID, ClientData in pairs( self.TrackingMissiles ) do + + local Client = ClientData.Client + self:T2( { Client:GetName() } ) + + for MissileDataID, MissileData in pairs( ClientData.MissileData ) do + self:T3( MissileDataID ) + + local TrainerSourceUnit = MissileData.TrainerSourceUnit + local TrainerWeapon = MissileData.TrainerWeapon + local TrainerTargetUnit = MissileData.TrainerTargetUnit + local TrainerWeaponTypeName = MissileData.TrainerWeaponTypeName + local TrainerWeaponLaunched = MissileData.TrainerWeaponLaunched + + if Client and Client:IsAlive() and TrainerSourceUnit and TrainerSourceUnit:IsAlive() and TrainerWeapon and TrainerWeapon:isExist() and TrainerTargetUnit and TrainerTargetUnit:IsAlive() then + local PositionMissile = TrainerWeapon:getPosition().p + local PositionTarget = Client:GetPointVec3() + + local Distance = ( ( PositionMissile.x - PositionTarget.x )^2 + + ( PositionMissile.y - PositionTarget.y )^2 + + ( PositionMissile.z - PositionTarget.z )^2 + ) ^ 0.5 / 1000 + + if Distance <= self.Distance then + -- Hit alert + TrainerWeapon:destroy() + if self.MessagesOnOff == true and self.AlertsHitsOnOff == true then + + self:T( "killed" ) + + local Message = MESSAGE:New( + string.format( "%s launched by %s killed %s", + TrainerWeapon:getTypeName(), + TrainerSourceUnit:GetTypeName(), + TrainerTargetUnit:GetPlayerName() + ), 15, "Hit Alert" ) + + if self.AlertsToAll == true then + Message:ToAll() + else + Message:ToClient( Client ) + end + + MissileData = nil + table.remove( ClientData.MissileData, MissileDataID ) + self:T(ClientData.MissileData) + end + end + else + if not ( TrainerWeapon and TrainerWeapon:isExist() ) then + if self.MessagesOnOff == true and self.AlertsLaunchesOnOff == true then + -- Weapon does not exist anymore. Delete from Table + local Message = MESSAGE:New( + string.format( "%s launched by %s self destructed!", + TrainerWeaponTypeName, + TrainerSourceUnit:GetTypeName() + ), 5, "Tracking" ) + + if self.AlertsToAll == true then + Message:ToAll() + else + Message:ToClient( Client ) + end + end + MissileData = nil + table.remove( ClientData.MissileData, MissileDataID ) + self:T( ClientData.MissileData ) + end + end + end + end + + if ShowMessages == true and self.MessagesOnOff == true and self.TrackingOnOff == true then -- Only do this when tracking information needs to be displayed. + + -- TRACKING PART + + -- For the current client, the missile range and bearing details are displayed To the Player Client. + -- For the other clients, the missile range and bearing details are displayed To the other Player Clients. + -- To achieve this, a cross loop is done for each Player Client <-> Other Player Client missile information. + + -- Main Player Client loop + for ClientDataID, ClientData in pairs( self.TrackingMissiles ) do + + local Client = ClientData.Client + self:T2( { Client:GetName() } ) + + + ClientData.MessageToClient = "" + ClientData.MessageToAll = "" + + -- Other Players Client loop + for TrackingDataID, TrackingData in pairs( self.TrackingMissiles ) do + + for MissileDataID, MissileData in pairs( TrackingData.MissileData ) do + self:T3( MissileDataID ) + + local TrainerSourceUnit = MissileData.TrainerSourceUnit + local TrainerWeapon = MissileData.TrainerWeapon + local TrainerTargetUnit = MissileData.TrainerTargetUnit + local TrainerWeaponTypeName = MissileData.TrainerWeaponTypeName + local TrainerWeaponLaunched = MissileData.TrainerWeaponLaunched + + if Client and Client:IsAlive() and TrainerSourceUnit and TrainerSourceUnit:IsAlive() and TrainerWeapon and TrainerWeapon:isExist() and TrainerTargetUnit and TrainerTargetUnit:IsAlive() then + + if ShowMessages == true then + local TrackingTo + TrackingTo = string.format( " -> %s", + TrainerWeaponTypeName + ) + + if ClientDataID == TrackingDataID then + if ClientData.MessageToClient == "" then + ClientData.MessageToClient = "Missiles to You:\n" + end + ClientData.MessageToClient = ClientData.MessageToClient .. TrackingTo .. self:_AddRange( ClientData.Client, TrainerWeapon ) .. self:_AddBearing( ClientData.Client, TrainerWeapon ) .. "\n" + else + if self.TrackingToAll == true then + if ClientData.MessageToAll == "" then + ClientData.MessageToAll = "Missiles to other Players:\n" + end + ClientData.MessageToAll = ClientData.MessageToAll .. TrackingTo .. self:_AddRange( ClientData.Client, TrainerWeapon ) .. self:_AddBearing( ClientData.Client, TrainerWeapon ) .. " ( " .. TrainerTargetUnit:GetPlayerName() .. " )\n" + end + end + end + end + end + end + + -- Once the Player Client and the Other Player Client tracking messages are prepared, show them. + if ClientData.MessageToClient ~= "" or ClientData.MessageToAll ~= "" then + local Message = MESSAGE:New( ClientData.MessageToClient .. ClientData.MessageToAll, 1, "Tracking" ):ToClient( Client ) + end + end + end + + return true +end +--- This module contains the PATROLZONE class. +-- +-- === +-- +-- 1) @{Patrol#PATROLZONE} class, extends @{Base#BASE} +-- =================================================== +-- The @{Patrol#PATROLZONE} class implements the core functions to patrol a @{Zone}. +-- +-- 1.1) PATROLZONE constructor: +-- ---------------------------- +-- @{PatrolZone#PATROLZONE.New}(): Creates a new PATROLZONE object. +-- +-- 1.2) Modify the PATROLZONE parameters: +-- -------------------------------------- +-- The following methods are available to modify the parameters of a PATROLZONE object: +-- +-- * @{PatrolZone#PATROLZONE.SetGroup}(): Set the AI Patrol Group. +-- * @{PatrolZone#PATROLZONE.SetSpeed}(): Set the patrol speed of the AI, for the next patrol. +-- * @{PatrolZone#PATROLZONE.SetAltitude}(): Set altitude of the AI, for the next patrol. +-- +-- 1.3) Manage the out of fuel in the PATROLZONE: +-- ---------------------------------------------- +-- When the PatrolGroup is out of fuel, it is required that a new PatrolGroup is started, before the old PatrolGroup can return to the home base. +-- Therefore, with a parameter and a calculation of the distance to the home base, the fuel treshold is calculated. +-- When the fuel treshold is reached, the PatrolGroup will continue for a given time its patrol task in orbit, while a new PatrolGroup is targetted to the PATROLZONE. +-- Once the time is finished, the old PatrolGroup will return to the base. +-- Use the method @{PatrolZone#PATROLZONE.ManageFuel}() to have this proces in place. +-- +-- === +-- +-- @module PatrolZone +-- @author FlightControl + + +--- PATROLZONE class +-- @type PATROLZONE +-- @field Group#GROUP PatrolGroup The @{Group} patrolling. +-- @field Zone#ZONE_BASE PatrolZone The @{Zone} where the patrol needs to be executed. +-- @field DCSTypes#Altitude PatrolFloorAltitude The lowest altitude in meters where to execute the patrol. +-- @field DCSTypes#Altitude PatrolCeilingAltitude The highest altitude in meters where to execute the patrol. +-- @field DCSTypes#Speed PatrolMinSpeed The minimum speed of the @{Group} in km/h. +-- @field DCSTypes#Speed PatrolMaxSpeed The maximum speed of the @{Group} in km/h. +-- @extends Base#BASE +PATROLZONE = { + ClassName = "PATROLZONE", +} + +--- Creates a new PATROLZONE object, taking a @{Group} object as a parameter. The GROUP needs to be alive. +-- @param #PATROLZONE self +-- @param Zone#ZONE_BASE PatrolZone The @{Zone} where the patrol needs to be executed. +-- @param DCSTypes#Altitude PatrolFloorAltitude The lowest altitude in meters where to execute the patrol. +-- @param DCSTypes#Altitude PatrolCeilingAltitude The highest altitude in meters where to execute the patrol. +-- @param DCSTypes#Speed PatrolMinSpeed The minimum speed of the @{Group} in km/h. +-- @param DCSTypes#Speed PatrolMaxSpeed The maximum speed of the @{Group} in km/h. +-- @return #PATROLZONE self +-- @usage +-- -- Define a new PATROLZONE Object. This PatrolArea will patrol a group within PatrolZone between 3000 and 6000 meters, with a variying speed between 600 and 900 km/h. +-- PatrolZone = ZONE:New( 'PatrolZone' ) +-- PatrolGroup = GROUP:FindByName( "Patrol Group" ) +-- PatrolArea = PATROLZONE:New( PatrolGroup, PatrolZone, 3000, 6000, 600, 900 ) +function PATROLZONE:New( PatrolZone, PatrolFloorAltitude, PatrolCeilingAltitude, PatrolMinSpeed, PatrolMaxSpeed ) + + -- Inherits from BASE + local self = BASE:Inherit( self, BASE:New() ) + + self.PatrolZone = PatrolZone + self.PatrolFloorAltitude = PatrolFloorAltitude + self.PatrolCeilingAltitude = PatrolCeilingAltitude + self.PatrolMinSpeed = PatrolMinSpeed + self.PatrolMaxSpeed = PatrolMaxSpeed + + return self +end + +--- Set the @{Group} to act as the Patroller. +-- @param #PATROLZONE self +-- @param Group#GROUP PatrolGroup The @{Group} patrolling. +-- @return #PATROLZONE self +function PATROLZONE:SetGroup( PatrolGroup ) + + self.PatrolGroup = PatrolGroup + self.PatrolGroupTemplateName = PatrolGroup:GetName() + self:NewPatrolRoute() + + if not self.PatrolOutOfFuelMonitor then + self.PatrolOutOfFuelMonitor = SCHEDULER:New( nil, _MonitorOutOfFuelScheduled, { self }, 1, 120, 0 ) + self.SpawnPatrolGroup = SPAWN:New( self.PatrolGroupTemplateName ) + end + + return self +end + +--- Sets (modifies) the minimum and maximum speed of the patrol. +-- @param #PATROLZONE self +-- @param DCSTypes#Speed PatrolMinSpeed The minimum speed of the @{Group} in km/h. +-- @param DCSTypes#Speed PatrolMaxSpeed The maximum speed of the @{Group} in km/h. +-- @return #PATROLZONE self +function PATROLZONE:SetSpeed( PatrolMinSpeed, PatrolMaxSpeed ) + self:F2( { PatrolMinSpeed, PatrolMaxSpeed } ) + + self.PatrolMinSpeed = PatrolMinSpeed + self.PatrolMaxSpeed = PatrolMaxSpeed +end + +--- Sets the floor and ceiling altitude of the patrol. +-- @param #PATROLZONE self +-- @param DCSTypes#Altitude PatrolFloorAltitude The lowest altitude in meters where to execute the patrol. +-- @param DCSTypes#Altitude PatrolCeilingAltitude The highest altitude in meters where to execute the patrol. +-- @return #PATROLZONE self +function PATROLZONE:SetAltitude( PatrolFloorAltitude, PatrolCeilingAltitude ) + self:F2( { PatrolFloorAltitude, PatrolCeilingAltitude } ) + + self.PatrolFloorAltitude = PatrolFloorAltitude + self.PatrolCeilingAltitude = PatrolCeilingAltitude +end + + + +--- @param Group#GROUP PatrolGroup +function _NewPatrolRoute( PatrolGroup ) + + PatrolGroup:T( "NewPatrolRoute" ) + local PatrolZone = PatrolGroup:GetState( PatrolGroup, "PatrolZone" ) -- PatrolZone#PATROLZONE + PatrolZone:NewPatrolRoute() +end + +--- Defines a new patrol route using the @{PatrolZone} parameters and settings. +-- @param #PATROLZONE self +-- @return #PATROLZONE self +function PATROLZONE:NewPatrolRoute() + + self:F2() + + local PatrolRoute = {} + + if self.PatrolGroup:IsAlive() then + --- Determine if the PatrolGroup is within the PatrolZone. + -- If not, make a waypoint within the to that the PatrolGroup will fly at maximum speed to that point. + +-- --- Calculate the current route point. +-- local CurrentVec2 = self.PatrolGroup:GetPointVec2() +-- local CurrentAltitude = self.PatrolGroup:GetUnit(1):GetAltitude() +-- local CurrentPointVec3 = POINT_VEC3:New( CurrentVec2.x, CurrentAltitude, CurrentVec2.y ) +-- local CurrentRoutePoint = CurrentPointVec3:RoutePointAir( +-- POINT_VEC3.RoutePointAltType.BARO, +-- POINT_VEC3.RoutePointType.TurningPoint, +-- POINT_VEC3.RoutePointAction.TurningPoint, +-- ToPatrolZoneSpeed, +-- true +-- ) +-- +-- PatrolRoute[#PatrolRoute+1] = CurrentRoutePoint + + self:T2( PatrolRoute ) + + if self.PatrolGroup:IsNotInZone( self.PatrolZone ) then + --- Find a random 2D point in PatrolZone. + local ToPatrolZoneVec2 = self.PatrolZone:GetRandomVec2() + self:T2( ToPatrolZoneVec2 ) + + --- Define Speed and Altitude. + local ToPatrolZoneAltitude = math.random( self.PatrolFloorAltitude, self.PatrolCeilingAltitude ) + local ToPatrolZoneSpeed = self.PatrolMaxSpeed + self:T2( ToPatrolZoneSpeed ) + + --- Obtain a 3D @{Point} from the 2D point + altitude. + local ToPatrolZonePointVec3 = POINT_VEC3:New( ToPatrolZoneVec2.x, ToPatrolZoneAltitude, ToPatrolZoneVec2.y ) + + --- Create a route point of type air. + local ToPatrolZoneRoutePoint = ToPatrolZonePointVec3:RoutePointAir( + POINT_VEC3.RoutePointAltType.BARO, + POINT_VEC3.RoutePointType.TurningPoint, + POINT_VEC3.RoutePointAction.TurningPoint, + ToPatrolZoneSpeed, + true + ) + + PatrolRoute[#PatrolRoute+1] = ToPatrolZoneRoutePoint + + end + + --- Define a random point in the @{Zone}. The AI will fly to that point within the zone. + + --- Find a random 2D point in PatrolZone. + local ToTargetVec2 = self.PatrolZone:GetRandomVec2() + self:T2( ToTargetVec2 ) + + --- Define Speed and Altitude. + local ToTargetAltitude = math.random( self.PatrolFloorAltitude, self.PatrolCeilingAltitude ) + local ToTargetSpeed = math.random( self.PatrolMinSpeed, self.PatrolMaxSpeed ) + self:T2( { self.PatrolMinSpeed, self.PatrolMaxSpeed, ToTargetSpeed } ) + + --- Obtain a 3D @{Point} from the 2D point + altitude. + local ToTargetPointVec3 = POINT_VEC3:New( ToTargetVec2.x, ToTargetAltitude, ToTargetVec2.y ) + + --- Create a route point of type air. + local ToTargetRoutePoint = ToTargetPointVec3:RoutePointAir( + POINT_VEC3.RoutePointAltType.BARO, + POINT_VEC3.RoutePointType.TurningPoint, + POINT_VEC3.RoutePointAction.TurningPoint, + ToTargetSpeed, + true + ) + + --ToTargetPointVec3:SmokeRed() + + PatrolRoute[#PatrolRoute+1] = ToTargetRoutePoint + + --- Now we're going to do something special, we're going to call a function from a waypoint action at the PatrolGroup... + self.PatrolGroup:WayPointInitialize( PatrolRoute ) + + --- Do a trick, link the NewPatrolRoute function of the PATROLGROUP object to the PatrolGroup in a temporary variable ... + self.PatrolGroup:SetState( self.PatrolGroup, "PatrolZone", self ) + self.PatrolGroup:WayPointFunction( #PatrolRoute, 1, "_NewPatrolRoute" ) + + --- NOW ROUTE THE GROUP! + self.PatrolGroup:WayPointExecute( 1, 2 ) + end + +end + +--- When the PatrolGroup is out of fuel, it is required that a new PatrolGroup is started, before the old PatrolGroup can return to the home base. +-- Therefore, with a parameter and a calculation of the distance to the home base, the fuel treshold is calculated. +-- When the fuel treshold is reached, the PatrolGroup will continue for a given time its patrol task in orbit, while a new PatrolGroup is targetted to the PATROLZONE. +-- Once the time is finished, the old PatrolGroup will return to the base. +-- @param #PATROLZONE self +-- @param #number PatrolFuelTresholdPercentage The treshold in percentage (between 0 and 1) when the PatrolGroup is considered to get out of fuel. +-- @param #number PatrolOutOfFuelOrbitTime The amount of seconds the out of fuel PatrolGroup will orbit before returning to the base. +-- @return #PATROLZONE self +function PATROLZONE:ManageFuel( PatrolFuelTresholdPercentage, PatrolOutOfFuelOrbitTime ) + + self.PatrolManageFuel = true + self.PatrolFuelTresholdPercentage = PatrolFuelTresholdPercentage + self.PatrolOutOfFuelOrbitTime = PatrolOutOfFuelOrbitTime + + if self.PatrolGroup then + self.PatrolOutOfFuelMonitor = SCHEDULER:New( self, self._MonitorOutOfFuelScheduled, {}, 1, 120, 0 ) + self.SpawnPatrolGroup = SPAWN:New( self.PatrolGroupTemplateName ) + end + return self +end + +--- @param #PATROLZONE self +function _MonitorOutOfFuelScheduled( self ) + self:F2( "_MonitorOutOfFuelScheduled" ) + + if self.PatrolGroup and self.PatrolGroup:IsAlive() then + + local Fuel = self.PatrolGroup:GetUnit(1):GetFuel() + if Fuel < self.PatrolFuelTresholdPercentage then + local OldPatrolGroup = self.PatrolGroup + local PatrolGroupTemplate = self.PatrolGroup:GetTemplate() + + local OrbitTask = OldPatrolGroup:TaskOrbitCircle( math.random( self.PatrolFloorAltitude, self.PatrolCeilingAltitude ), self.PatrolMinSpeed ) + local TimedOrbitTask = OldPatrolGroup:TaskControlled( OrbitTask, OldPatrolGroup:TaskCondition(nil,nil,nil,nil,self.PatrolOutOfFuelOrbitTime,nil ) ) + OldPatrolGroup:SetTask( TimedOrbitTask, 10 ) + + local NewPatrolGroup = self.SpawnPatrolGroup:Spawn() + self.PatrolGroup = NewPatrolGroup + self:NewPatrolRoute() + end + else + self.PatrolOutOfFuelMonitor:Stop() + end +end--- This module contains the AIBALANCER class. +-- +-- === +-- +-- 1) @{AIBalancer#AIBALANCER} class, extends @{Base#BASE} +-- ================================================ +-- The @{AIBalancer#AIBALANCER} class controls the dynamic spawning of AI GROUPS depending on a SET_CLIENT. +-- There will be as many AI GROUPS spawned as there at CLIENTS in SET_CLIENT not spawned. +-- +-- 1.1) AIBALANCER construction method: +-- ------------------------------------ +-- Create a new AIBALANCER object with the @{#AIBALANCER.New} method: +-- +-- * @{#AIBALANCER.New}: Creates a new AIBALANCER object. +-- +-- 1.2) AIBALANCER returns AI to Airbases: +-- --------------------------------------- +-- You can configure to have the AI to return to: +-- +-- * @{#AIBALANCER.ReturnToHomeAirbase}: Returns the AI to the home @{Airbase#AIRBASE}. +-- * @{#AIBALANCER.ReturnToNearestAirbases}: Returns the AI to the nearest friendly @{Airbase#AIRBASE}. +-- +-- 1.3) AIBALANCER allows AI to patrol specific zones: +-- --------------------------------------------------- +-- Use @{AIBalancer#AIBALANCER.SetPatrolZone}() to specify a zone where the AI needs to patrol. +-- +-- +-- === +-- +-- CREDITS +-- ======= +-- **Dutch_Baron (James)** Who you can search on the Eagle Dynamics Forums. +-- Working together with James has resulted in the creation of the AIBALANCER class. +-- James has shared his ideas on balancing AI with air units, and together we made a first design which you can use now :-) +-- +-- **SNAFU** +-- Had a couple of mails with the guys to validate, if the same concept in the GCI/CAP script could be reworked within MOOSE. +-- None of the script code has been used however within the new AIBALANCER moose class. +-- +-- @module AIBalancer +-- @author FlightControl + +--- AIBALANCER class +-- @type AIBALANCER +-- @field Set#SET_CLIENT SetClient +-- @field Spawn#SPAWN SpawnAI +-- @field #boolean ToNearestAirbase +-- @field Set#SET_AIRBASE ReturnAirbaseSet +-- @field DCSTypes#Distance ReturnTresholdRange +-- @field #boolean ToHomeAirbase +-- @field PatrolZone#PATROLZONE PatrolZone +-- @extends Base#BASE +AIBALANCER = { + ClassName = "AIBALANCER", + PatrolZones = {}, + AIGroups = {}, +} + +--- Creates a new AIBALANCER object, building a set of units belonging to a coalitions, categories, countries, types or with defined prefix names. +-- @param #AIBALANCER self +-- @param SetClient A SET_CLIENT object that will contain the CLIENT objects to be monitored if they are alive or not (joined by a player). +-- @param SpawnAI A SPAWN object that will spawn the AI units required, balancing the SetClient. +-- @return #AIBALANCER self +function AIBALANCER:New( SetClient, SpawnAI ) + + -- Inherits from BASE + local self = BASE:Inherit( self, BASE:New() ) + + self.SetClient = SetClient + if type( SpawnAI ) == "table" then + if SpawnAI.ClassName and SpawnAI.ClassName == "SPAWN" then + self.SpawnAI = { SpawnAI } + else + local SpawnObjects = true + for SpawnObjectID, SpawnObject in pairs( SpawnAI ) do + if SpawnObject.ClassName and SpawnObject.ClassName == "SPAWN" then + self:E( SpawnObject.ClassName ) + else + self:E( "other object" ) + SpawnObjects = false + end + end + if SpawnObjects == true then + self.SpawnAI = SpawnAI + else + error( "No SPAWN object given in parameter SpawnAI, either as a single object or as a table of objects!" ) + end + end + end + + self.ToNearestAirbase = false + self.ReturnHomeAirbase = false + + self.AIMonitorSchedule = SCHEDULER:New( self, self._ClientAliveMonitorScheduler, {}, 1, 10, 0 ) + + return self +end + +--- Returns the AI to the nearest friendly @{Airbase#AIRBASE}. +-- @param #AIBALANCER self +-- @param DCSTypes#Distance ReturnTresholdRange If there is an enemy @{Client#CLIENT} within the ReturnTresholdRange given in meters, the AI will not return to the nearest @{Airbase#AIRBASE}. +-- @param Set#SET_AIRBASE ReturnAirbaseSet The SET of @{Set#SET_AIRBASE}s to evaluate where to return to. +function AIBALANCER:ReturnToNearestAirbases( ReturnTresholdRange, ReturnAirbaseSet ) + + self.ToNearestAirbase = true + self.ReturnTresholdRange = ReturnTresholdRange + self.ReturnAirbaseSet = ReturnAirbaseSet +end + +--- Returns the AI to the home @{Airbase#AIRBASE}. +-- @param #AIBALANCER self +-- @param DCSTypes#Distance ReturnTresholdRange If there is an enemy @{Client#CLIENT} within the ReturnTresholdRange given in meters, the AI will not return to the nearest @{Airbase#AIRBASE}. +function AIBALANCER:ReturnToHomeAirbase( ReturnTresholdRange ) + + self.ToHomeAirbase = true + self.ReturnTresholdRange = ReturnTresholdRange +end + +--- Let the AI patrol a @{Zone} with a given Speed range and Altitude range. +-- @param #AIBALANCER self +-- @param PatrolZone#PATROLZONE PatrolZone The @{PatrolZone} where the AI needs to patrol. +-- @return PatrolZone#PATROLZONE self +function AIBALANCER:SetPatrolZone( PatrolZone ) + + self.PatrolZone = PatrolZone +end + +--- @param #AIBALANCER self +function AIBALANCER:_ClientAliveMonitorScheduler() + + self.SetClient:ForEachClient( + --- @param Client#CLIENT Client + function( Client ) + local ClientAIAliveState = Client:GetState( self, 'AIAlive' ) + self:T( ClientAIAliveState ) + if Client:IsAlive() then + if ClientAIAliveState == true then + Client:SetState( self, 'AIAlive', false ) + + local AIGroup = self.AIGroups[Client.UnitName] -- Group#GROUP + +-- local PatrolZone = Client:GetState( self, "PatrolZone" ) +-- if PatrolZone then +-- PatrolZone = nil +-- Client:ClearState( self, "PatrolZone" ) +-- end + + if self.ToNearestAirbase == false and self.ToHomeAirbase == false then + AIGroup:Destroy() + else + -- We test if there is no other CLIENT within the self.ReturnTresholdRange of the first unit of the AI group. + -- If there is a CLIENT, the AI stays engaged and will not return. + -- If there is no CLIENT within the self.ReturnTresholdRange, then the unit will return to the Airbase return method selected. + + local PlayerInRange = { Value = false } + local RangeZone = ZONE_RADIUS:New( 'RangeZone', AIGroup:GetPointVec2(), self.ReturnTresholdRange ) + + self:E( RangeZone ) + + _DATABASE:ForEachPlayer( + --- @param Unit#UNIT RangeTestUnit + function( RangeTestUnit, RangeZone, AIGroup, PlayerInRange ) + self:E( { PlayerInRange, RangeTestUnit.UnitName, RangeZone.ZoneName } ) + if RangeTestUnit:IsInZone( RangeZone ) == true then + self:E( "in zone" ) + if RangeTestUnit:GetCoalition() ~= AIGroup:GetCoalition() then + self:E( "in range" ) + PlayerInRange.Value = true + end + end + end, + + --- @param Zone#ZONE_RADIUS RangeZone + -- @param Group#GROUP AIGroup + function( RangeZone, AIGroup, PlayerInRange ) + local AIGroupTemplate = AIGroup:GetTemplate() + if PlayerInRange.Value == false then + if self.ToHomeAirbase == true then + local WayPointCount = #AIGroupTemplate.route.points + local SwitchWayPointCommand = AIGroup:CommandSwitchWayPoint( 1, WayPointCount, 1 ) + AIGroup:SetCommand( SwitchWayPointCommand ) + AIGroup:MessageToRed( "Returning to home base ...", 30 ) + else + -- Okay, we need to send this Group back to the nearest base of the Coalition of the AI. + --TODO: i need to rework the POINT_VEC2 thing. + local PointVec2 = POINT_VEC2:New( AIGroup:GetPointVec2().x, AIGroup:GetPointVec2().y ) + local ClosestAirbase = self.ReturnAirbaseSet:FindNearestAirbaseFromPointVec2( PointVec2 ) + self:T( ClosestAirbase.AirbaseName ) + AIGroup:MessageToRed( "Returning to " .. ClosestAirbase:GetName().. " ...", 30 ) + local RTBRoute = AIGroup:RouteReturnToAirbase( ClosestAirbase ) + AIGroupTemplate.route = RTBRoute + AIGroup:Respawn( AIGroupTemplate ) + end + end + end + , RangeZone, AIGroup, PlayerInRange + ) + + end + end + else + if not ClientAIAliveState or ClientAIAliveState == false then + Client:SetState( self, 'AIAlive', true ) + + + -- OK, spawn a new group from the SpawnAI objects provided. + local SpawnAICount = #self.SpawnAI + local SpawnAIIndex = math.random( 1, SpawnAICount ) + local AIGroup = self.SpawnAI[SpawnAIIndex]:Spawn() + AIGroup:E( "spawning new AIGroup" ) + --TODO: need to rework UnitName thing ... + self.AIGroups[Client.UnitName] = AIGroup + + --- Now test if the AIGroup needs to patrol a zone, otherwise let it follow its route... + if self.PatrolZone then + self.PatrolZones[#self.PatrolZones+1] = PATROLZONE:New( + self.PatrolZone.PatrolZone, + self.PatrolZone.PatrolFloorAltitude, + self.PatrolZone.PatrolCeilingAltitude, + self.PatrolZone.PatrolMinSpeed, + self.PatrolZone.PatrolMaxSpeed + ) + + if self.PatrolZone.PatrolManageFuel == true then + self.PatrolZones[#self.PatrolZones]:ManageFuel( self.PatrolZone.PatrolFuelTresholdPercentage, self.PatrolZone.PatrolOutOfFuelOrbitTime ) + end + self.PatrolZones[#self.PatrolZones]:SetGroup( AIGroup ) + + --self.PatrolZones[#self.PatrolZones+1] = PatrolZone + + --Client:SetState( self, "PatrolZone", PatrolZone ) + end + end + end + end + ) + return true +end + + + +--- This module contains the AIRBASEPOLICE classes. +-- +-- === +-- +-- 1) @{AirbasePolice#AIRBASEPOLICE_BASE} class, extends @{Base#BASE} +-- ================================================================== +-- The @{AirbasePolice#AIRBASEPOLICE_BASE} class provides the main methods to monitor CLIENT behaviour at airbases. +-- CLIENTS should not be allowed to: +-- +-- * Don't taxi faster than 40 km/h. +-- * Don't take-off on taxiways. +-- * Avoid to hit other planes on the airbase. +-- * Obey ground control orders. +-- +-- 2) @{AirbasePolice#AIRBASEPOLICE_CAUCASUS} class, extends @{AirbasePolice#AIRBASEPOLICE_BASE} +-- ============================================================================================= +-- All the airbases on the caucasus map can be monitored using this class. +-- If you want to monitor specific airbases, you need to use the @{#AIRBASEPOLICE_BASE.Monitor}() method, which takes a table or airbase names. +-- The following names can be given: +-- * AnapaVityazevo +-- * Batumi +-- * Beslan +-- * Gelendzhik +-- * Gudauta +-- * Kobuleti +-- * KrasnodarCenter +-- * KrasnodarPashkovsky +-- * Krymsk +-- * Kutaisi +-- * MaykopKhanskaya +-- * MineralnyeVody +-- * Mozdok +-- * Nalchik +-- * Novorossiysk +-- * SenakiKolkhi +-- * SochiAdler +-- * Soganlug +-- * SukhumiBabushara +-- * TbilisiLochini +-- * Vaziani +-- +-- 3) @{AirbasePolice#AIRBASEPOLICE_NEVADA} class, extends @{AirbasePolice#AIRBASEPOLICE_BASE} +-- ============================================================================================= +-- All the airbases on the NEVADA map can be monitored using this class. +-- If you want to monitor specific airbases, you need to use the @{#AIRBASEPOLICE_BASE.Monitor}() method, which takes a table or airbase names. +-- The following names can be given: +-- * Nellis +-- * McCarran +-- * Creech +-- * Groom Lake +-- +-- @module AirbasePolice +-- @author Flight Control & DUTCH BARON + + + + + +--- @type AIRBASEPOLICE_BASE +-- @field Set#SET_CLIENT SetClient +-- @extends Base#BASE + +AIRBASEPOLICE_BASE = { + ClassName = "AIRBASEPOLICE_BASE", + SetClient = nil, + Airbases = nil, + AirbaseNames = nil, +} + + +--- Creates a new AIRBASEPOLICE_BASE object. +-- @param #AIRBASEPOLICE_BASE self +-- @param SetClient A SET_CLIENT object that will contain the CLIENT objects to be monitored if they follow the rules of the airbase. +-- @param Airbases A table of Airbase Names. +-- @return #AIRBASEPOLICE_BASE self +function AIRBASEPOLICE_BASE:New( SetClient, Airbases ) + + -- Inherits from BASE + local self = BASE:Inherit( self, BASE:New() ) + self:E( { self.ClassName, SetClient, Airbases } ) + + self.SetClient = SetClient + self.Airbases = Airbases + + for AirbaseID, Airbase in pairs( self.Airbases ) do + Airbase.ZoneBoundary = ZONE_POLYGON_BASE:New( "Boundary", Airbase.PointsBoundary ):SmokeZone(POINT_VEC3.SmokeColor.White):Flush() + for PointsRunwayID, PointsRunway in pairs( Airbase.PointsRunways ) do + Airbase.ZoneRunways[PointsRunwayID] = ZONE_POLYGON_BASE:New( "Runway " .. PointsRunwayID, PointsRunway ):SmokeZone(POINT_VEC3.SmokeColor.Red):Flush() + end + end + + -- -- Template + -- local TemplateBoundary = GROUP:FindByName( "Template Boundary" ) + -- self.Airbases.Template.ZoneBoundary = ZONE_POLYGON:New( "Template Boundary", TemplateBoundary ):SmokeZone(POINT_VEC3.SmokeColor.White):Flush() + -- + -- local TemplateRunway1 = GROUP:FindByName( "Template Runway 1" ) + -- self.Airbases.Template.ZoneRunways[1] = ZONE_POLYGON:New( "Template Runway 1", TemplateRunway1 ):SmokeZone(POINT_VEC3.SmokeColor.Red):Flush() + + self.SetClient:ForEachClient( + --- @param Client#CLIENT Client + function( Client ) + Client:SetState( self, "Speeding", false ) + Client:SetState( self, "Warnings", 0) + Client:SetState( self, "Taxi", false ) + end + ) + + self.AirbaseMonitor = SCHEDULER:New( self, self._AirbaseMonitor, {}, 0, 2, 0.05 ) + + return self +end + +--- @type AIRBASEPOLICE_BASE.AirbaseNames +-- @list <#string> + +--- Monitor a table of airbase names. +-- @param #AIRBASEPOLICE_BASE self +-- @param #AIRBASEPOLICE_BASE.AirbaseNames AirbaseNames A list of AirbaseNames to monitor. If this parameters is nil, then all airbases will be monitored. +-- @return #AIRBASEPOLICE_BASE self +function AIRBASEPOLICE_BASE:Monitor( AirbaseNames ) + + if AirbaseNames then + if type( AirbaseNames ) == "table" then + self.AirbaseNames = AirbaseNames + else + self.AirbaseNames = { AirbaseNames } + end + end +end + +--- @param #AIRBASEPOLICE_BASE self +function AIRBASEPOLICE_BASE:_AirbaseMonitor() + + for AirbaseID, Airbase in pairs( self.Airbases ) do + + if not self.AirbaseNames or self.AirbaseNames[AirbaseID] then + + self:E( AirbaseID ) + + self.SetClient:ForEachClientInZone( Airbase.ZoneBoundary, + + --- @param Client#CLIENT Client + function( Client ) + + self:E( Client.UnitName ) + if Client:IsAlive() then + local NotInRunwayZone = true + for ZoneRunwayID, ZoneRunway in pairs( Airbase.ZoneRunways ) do + NotInRunwayZone = ( Client:IsNotInZone( ZoneRunway ) == true ) and NotInRunwayZone or false + end + + if NotInRunwayZone then + local Taxi = self:GetState( self, "Taxi" ) + self:E( Taxi ) + if Taxi == false then + Client:Message( "Welcome at " .. AirbaseID .. ". The maximum taxiing speed is " .. Airbase.MaximumSpeed " km/h.", 20, "ATC" ) + self:SetState( self, "Taxi", true ) + end + + local VelocityVec3 = Client:GetVelocity() + local Velocity = math.abs(VelocityVec3.x) + math.abs(VelocityVec3.y) + math.abs(VelocityVec3.z) + local IsAboveRunway = Client:IsAboveRunway() + local IsOnGround = Client:InAir() == false + self:T( IsAboveRunway, IsOnGround ) + + if IsAboveRunway and IsOnGround then + + if Velocity > Airbase.MaximumSpeed then + local IsSpeeding = Client:GetState( self, "Speeding" ) + + if IsSpeeding == true then + local SpeedingWarnings = Client:GetState( self, "Warnings" ) + self:T( SpeedingWarnings ) + + if SpeedingWarnings <= 5 then + Client:Message( "You are speeding on the taxiway! Slow down or you will be removed from this airbase! Your current velocity is " .. string.format( "%2.0f km/h", Velocity ), 5, "Warning " .. SpeedingWarnings .. " / 5" ) + Client:SetState( self, "Warnings", SpeedingWarnings + 1 ) + else + MESSAGE:New( "Player " .. Client:GetPlayerName() .. " has been removed from the airbase, due to a speeding violation ...", 10, "Airbase Police" ):ToAll() + Client:GetGroup():Destroy() + Client:SetState( self, "Speeding", false ) + Client:SetState( self, "Warnings", 0 ) + end + + else + Client:Message( "You are speeding on the taxiway! Slow down please ...! Your current velocity is " .. string.format( "%2.0f km/h", Velocity ), 5, "Attention! " ) + Client:SetState( self, "Speeding", true ) + Client:SetState( self, "Warnings", 1 ) + end + + else + Client:SetState( self, "Speeding", false ) + Client:SetState( self, "Warnings", 0 ) + end + end + + else + Client:SetState( self, "Speeding", false ) + Client:SetState( self, "Warnings", 0 ) + local Taxi = self:GetState( self, "Taxi" ) + if Taxi == true then + Client:Message( "You have progressed to the runway ... Await take-off clearance ...", 20, "ATC" ) + self:SetState( self, "Taxi", false ) + end + end + end + end + ) + end + end + + return true +end + + +--- @type AIRBASEPOLICE_CAUCASUS +-- @field Set#SET_CLIENT SetClient +-- @extends #AIRBASEPOLICE_BASE + +AIRBASEPOLICE_CAUCASUS = { + ClassName = "AIRBASEPOLICE_CAUCASUS", + Airbases = { + AnapaVityazevo = { + PointsBoundary = { + [1]={["y"]=242234.85714287,["x"]=-6616.5714285726,}, + [2]={["y"]=241060.57142858,["x"]=-5585.142857144,}, + [3]={["y"]=243806.2857143,["x"]=-3962.2857142868,}, + [4]={["y"]=245240.57142858,["x"]=-4816.5714285726,}, + [5]={["y"]=244783.42857144,["x"]=-5630.8571428583,}, + [6]={["y"]=243800.57142858,["x"]=-5065.142857144,}, + [7]={["y"]=242232.00000001,["x"]=-6622.2857142868,}, + }, + PointsRunways = { + [1] = { + }, + }, + ZoneBoundary = {}, + ZoneRunways = {}, + MaximumSpeed = 50, + }, + Batumi = { + PointsBoundary = { + [1]={["y"]=617567.14285714,["x"]=-355313.14285715,}, + [2]={["y"]=616181.42857142,["x"]=-354800.28571429,}, + [3]={["y"]=616007.14285714,["x"]=-355128.85714286,}, + [4]={["y"]=618230,["x"]=-356914.57142858,}, + [5]={["y"]=618727.14285714,["x"]=-356166,}, + [6]={["y"]=617572.85714285,["x"]=-355308.85714286,}, + }, + PointsRunways = { + [1] = { + [1]={["y"]=616442.28571429,["x"]=-355090.28571429,}, + [2]={["y"]=618450.57142857,["x"]=-356522,}, + [3]={["y"]=618407.71428571,["x"]=-356584.85714286,}, + [4]={["y"]=618361.99999999,["x"]=-356554.85714286,}, + [5]={["y"]=618324.85714285,["x"]=-356599.14285715,}, + [6]={["y"]=618250.57142856,["x"]=-356543.42857143,}, + [7]={["y"]=618257.7142857,["x"]=-356496.28571429,}, + [8]={["y"]=618237.7142857,["x"]=-356459.14285715,}, + [9]={["y"]=616555.71428571,["x"]=-355258.85714286,}, + [10]={["y"]=616486.28571428,["x"]=-355280.57142858,}, + [11]={["y"]=616410.57142856,["x"]=-355227.71428572,}, + [12]={["y"]=616441.99999999,["x"]=-355179.14285715,}, + [13]={["y"]=616401.99999999,["x"]=-355147.71428572,}, + [14]={["y"]=616441.42857142,["x"]=-355092.57142858,}, + }, + }, + ZoneBoundary = {}, + ZoneRunways = {}, + MaximumSpeed = 50, + }, + Beslan = { + PointsBoundary = { + [1]={["y"]=842082.57142857,["x"]=-148445.14285715,}, + [2]={["y"]=845237.71428572,["x"]=-148639.71428572,}, + [3]={["y"]=845232,["x"]=-148765.42857143,}, + [4]={["y"]=844220.57142857,["x"]=-149168.28571429,}, + [5]={["y"]=843274.85714286,["x"]=-149125.42857143,}, + [6]={["y"]=842077.71428572,["x"]=-148554,}, + [7]={["y"]=842083.42857143,["x"]=-148445.42857143,}, + }, + PointsRunways = { + [1] = { + [1]={["y"]=842104.57142857,["x"]=-148460.57142857,}, + [2]={["y"]=845225.71428572,["x"]=-148656,}, + [3]={["y"]=845220.57142858,["x"]=-148750,}, + [4]={["y"]=842098.85714286,["x"]=-148556.28571429,}, + [5]={["y"]=842104,["x"]=-148460.28571429,}, + }, + }, + ZoneBoundary = {}, + ZoneRunways = {}, + MaximumSpeed = 50, + }, + Gelendzhik = { + PointsBoundary = { + [1]={["y"]=297856.00000001,["x"]=-51151.428571429,}, + [2]={["y"]=299044.57142858,["x"]=-49720.000000001,}, + [3]={["y"]=298861.71428572,["x"]=-49580.000000001,}, + [4]={["y"]=298198.85714286,["x"]=-49842.857142858,}, + [5]={["y"]=297990.28571429,["x"]=-50151.428571429,}, + [6]={["y"]=297696.00000001,["x"]=-51054.285714286,}, + [7]={["y"]=297850.28571429,["x"]=-51160.000000001,}, + }, + PointsRunways = { + [1] = { + [1]={["y"]=297834.00000001,["x"]=-51107.428571429,}, + [2]={["y"]=297786.57142858,["x"]=-51068.857142858,}, + [3]={["y"]=298946.57142858,["x"]=-49686.000000001,}, + [4]={["y"]=298993.14285715,["x"]=-49725.714285715,}, + [5]={["y"]=297835.14285715,["x"]=-51107.714285715,}, + }, + }, + ZoneBoundary = {}, + ZoneRunways = {}, + MaximumSpeed = 50, + }, + Gudauta = { + PointsBoundary = { + [1]={["y"]=517246.57142857,["x"]=-197850.28571429,}, + [2]={["y"]=516749.42857142,["x"]=-198070.28571429,}, + [3]={["y"]=515755.14285714,["x"]=-197598.85714286,}, + [4]={["y"]=515369.42857142,["x"]=-196538.85714286,}, + [5]={["y"]=515623.71428571,["x"]=-195618.85714286,}, + [6]={["y"]=515946.57142857,["x"]=-195510.28571429,}, + [7]={["y"]=517243.71428571,["x"]=-197858.85714286,}, + }, + PointsRunways = { + [1] = { + [1]={["y"]=517096.57142857,["x"]=-197804.57142857,}, + [2]={["y"]=515880.85714285,["x"]=-195590.28571429,}, + [3]={["y"]=515812.28571428,["x"]=-195628.85714286,}, + [4]={["y"]=517036.57142857,["x"]=-197834.57142857,}, + [5]={["y"]=517097.99999999,["x"]=-197807.42857143,}, + }, + }, + ZoneBoundary = {}, + ZoneRunways = {}, + MaximumSpeed = 50, + }, + Kobuleti = { + PointsBoundary = { + [1]={["y"]=634427.71428571,["x"]=-318290.28571429,}, + [2]={["y"]=635033.42857143,["x"]=-317550.2857143,}, + [3]={["y"]=635864.85714286,["x"]=-317333.14285715,}, + [4]={["y"]=636967.71428571,["x"]=-317261.71428572,}, + [5]={["y"]=637144.85714286,["x"]=-317913.14285715,}, + [6]={["y"]=634630.57142857,["x"]=-318687.42857144,}, + [7]={["y"]=634424.85714286,["x"]=-318290.2857143,}, + }, + PointsRunways = { + [1] = { + [1]={["y"]=634509.71428571,["x"]=-318339.42857144,}, + [2]={["y"]=636767.42857143,["x"]=-317516.57142858,}, + [3]={["y"]=636790,["x"]=-317575.71428572,}, + [4]={["y"]=634531.42857143,["x"]=-318398.00000001,}, + [5]={["y"]=634510.28571429,["x"]=-318339.71428572,}, + }, + }, + ZoneBoundary = {}, + ZoneRunways = {}, + MaximumSpeed = 50, + }, + KrasnodarCenter = { + PointsBoundary = { + [1]={["y"]=366680.28571429,["x"]=11699.142857142,}, + [2]={["y"]=366654.28571429,["x"]=11225.142857142,}, + [3]={["y"]=367497.14285715,["x"]=11082.285714285,}, + [4]={["y"]=368025.71428572,["x"]=10396.57142857,}, + [5]={["y"]=369854.28571429,["x"]=11367.999999999,}, + [6]={["y"]=369840.00000001,["x"]=11910.857142856,}, + [7]={["y"]=366682.57142858,["x"]=11697.999999999,}, + }, + PointsRunways = { + [1] = { + [1]={["y"]=369205.42857144,["x"]=11789.142857142,}, + [2]={["y"]=369209.71428572,["x"]=11714.857142856,}, + [3]={["y"]=366699.71428572,["x"]=11581.714285713,}, + [4]={["y"]=366698.28571429,["x"]=11659.142857142,}, + [5]={["y"]=369208.85714286,["x"]=11788.57142857,}, + }, + }, + ZoneBoundary = {}, + ZoneRunways = {}, + MaximumSpeed = 50, + }, + KrasnodarPashkovsky = { + PointsBoundary = { + [1]={["y"]=386754,["x"]=6476.5714285703,}, + [2]={["y"]=389182.57142858,["x"]=8722.2857142846,}, + [3]={["y"]=388832.57142858,["x"]=9086.5714285703,}, + [4]={["y"]=386961.14285715,["x"]=7707.9999999989,}, + [5]={["y"]=385404,["x"]=9179.4285714274,}, + [6]={["y"]=383239.71428572,["x"]=7386.5714285703,}, + [7]={["y"]=383954,["x"]=6486.5714285703,}, + [8]={["y"]=385775.42857143,["x"]=8097.9999999989,}, + [9]={["y"]=386804,["x"]=7319.4285714274,}, + [10]={["y"]=386375.42857143,["x"]=6797.9999999989,}, + [11]={["y"]=386746.85714286,["x"]=6472.2857142846,}, + }, + PointsRunways = { + [1] = { + [1]={["y"]=385891.14285715,["x"]=8416.5714285703,}, + [2]={["y"]=385842.28571429,["x"]=8467.9999999989,}, + [3]={["y"]=384180.85714286,["x"]=6917.1428571417,}, + [4]={["y"]=384228.57142858,["x"]=6867.7142857132,}, + [5]={["y"]=385891.14285715,["x"]=8416.5714285703,}, + }, + [2] = { + [1]={["y"]=386714.85714286,["x"]=6674.857142856,}, + [2]={["y"]=386757.71428572,["x"]=6627.7142857132,}, + [3]={["y"]=389028.57142858,["x"]=8741.4285714275,}, + [4]={["y"]=388981.71428572,["x"]=8790.5714285703,}, + [5]={["y"]=386714.57142858,["x"]=6674.5714285703,}, + }, + }, + ZoneBoundary = {}, + ZoneRunways = {}, + MaximumSpeed = 50, + }, + Krymsk = { + PointsBoundary = { + [1]={["y"]=293338.00000001,["x"]=-7575.4285714297,}, + [2]={["y"]=295199.42857144,["x"]=-5434.0000000011,}, + [3]={["y"]=295595.14285715,["x"]=-6239.7142857154,}, + [4]={["y"]=294152.2857143,["x"]=-8325.4285714297,}, + [5]={["y"]=293345.14285715,["x"]=-7596.8571428582,}, + }, + PointsRunways = { + [1] = { + [1]={["y"]=293522.00000001,["x"]=-7567.4285714297,}, + [2]={["y"]=293578.57142858,["x"]=-7616.0000000011,}, + [3]={["y"]=295246.00000001,["x"]=-5591.142857144,}, + [4]={["y"]=295187.71428573,["x"]=-5546.0000000011,}, + [5]={["y"]=293523.14285715,["x"]=-7568.2857142868,}, + }, + }, + ZoneBoundary = {}, + ZoneRunways = {}, + MaximumSpeed = 50, + }, + Kutaisi = { + PointsBoundary = { + [1]={["y"]=682087.42857143,["x"]=-284512.85714286,}, + [2]={["y"]=685387.42857143,["x"]=-283662.85714286,}, + [3]={["y"]=685294.57142857,["x"]=-284977.14285715,}, + [4]={["y"]=682744.57142857,["x"]=-286505.71428572,}, + [5]={["y"]=682094.57142857,["x"]=-284527.14285715,}, + }, + PointsRunways = { + [1] = { + [1]={["y"]=682638,["x"]=-285202.28571429,}, + [2]={["y"]=685050.28571429,["x"]=-284507.42857144,}, + [3]={["y"]=685068.85714286,["x"]=-284578.85714286,}, + [4]={["y"]=682657.42857143,["x"]=-285264.28571429,}, + [5]={["y"]=682638.28571429,["x"]=-285202.85714286,}, + }, + }, + ZoneBoundary = {}, + ZoneRunways = {}, + MaximumSpeed = 50, + }, + MaykopKhanskaya = { + PointsBoundary = { + [1]={["y"]=456876.28571429,["x"]=-27665.42857143,}, + [2]={["y"]=457800,["x"]=-28392.857142858,}, + [3]={["y"]=459368.57142857,["x"]=-26378.571428573,}, + [4]={["y"]=459425.71428572,["x"]=-25242.857142858,}, + [5]={["y"]=458961.42857143,["x"]=-24964.285714287,}, + [6]={["y"]=456878.57142857,["x"]=-27667.714285715,}, + }, + PointsRunways = { + [1] = { + [1]={["y"]=457005.42857143,["x"]=-27668.000000001,}, + [2]={["y"]=459028.85714286,["x"]=-25168.857142858,}, + [3]={["y"]=459082.57142857,["x"]=-25216.857142858,}, + [4]={["y"]=457060,["x"]=-27714.285714287,}, + [5]={["y"]=457004.57142857,["x"]=-27669.714285715,}, + }, + }, + ZoneBoundary = {}, + ZoneRunways = {}, + MaximumSpeed = 50, + }, + MineralnyeVody = { + PointsBoundary = { + [1]={["y"]=703857.14285714,["x"]=-50226.000000002,}, + [2]={["y"]=707385.71428571,["x"]=-51911.714285716,}, + [3]={["y"]=707595.71428571,["x"]=-51434.857142859,}, + [4]={["y"]=707900,["x"]=-51568.857142859,}, + [5]={["y"]=707542.85714286,["x"]=-52326.000000002,}, + [6]={["y"]=706628.57142857,["x"]=-52568.857142859,}, + [7]={["y"]=705142.85714286,["x"]=-51790.285714288,}, + [8]={["y"]=703678.57142857,["x"]=-50611.714285716,}, + [9]={["y"]=703857.42857143,["x"]=-50226.857142859,}, + }, + PointsRunways = { + [1] = { + [1]={["y"]=703904,["x"]=-50352.571428573,}, + [2]={["y"]=707596.28571429,["x"]=-52094.571428573,}, + [3]={["y"]=707560.57142858,["x"]=-52161.714285716,}, + [4]={["y"]=703871.71428572,["x"]=-50420.571428573,}, + [5]={["y"]=703902,["x"]=-50352.000000002,}, + }, + }, + ZoneBoundary = {}, + ZoneRunways = {}, + MaximumSpeed = 50, + }, + Mozdok = { + PointsBoundary = { + [1]={["y"]=832123.42857143,["x"]=-83608.571428573,}, + [2]={["y"]=835916.28571429,["x"]=-83144.285714288,}, + [3]={["y"]=835474.28571429,["x"]=-84170.571428573,}, + [4]={["y"]=832911.42857143,["x"]=-84470.571428573,}, + [5]={["y"]=832487.71428572,["x"]=-85565.714285716,}, + [6]={["y"]=831573.42857143,["x"]=-85351.42857143,}, + [7]={["y"]=832123.71428572,["x"]=-83610.285714288,}, + }, + PointsRunways = { + [1] = { + [1]={["y"]=832201.14285715,["x"]=-83699.428571431,}, + [2]={["y"]=832212.57142857,["x"]=-83780.571428574,}, + [3]={["y"]=835730.28571429,["x"]=-83335.714285717,}, + [4]={["y"]=835718.85714286,["x"]=-83246.571428574,}, + [5]={["y"]=832200.57142857,["x"]=-83700.000000002,}, + }, + }, + ZoneBoundary = {}, + ZoneRunways = {}, + MaximumSpeed = 50, + }, + Nalchik = { + PointsBoundary = { + [1]={["y"]=759370,["x"]=-125502.85714286,}, + [2]={["y"]=761384.28571429,["x"]=-124177.14285714,}, + [3]={["y"]=761472.85714286,["x"]=-124325.71428572,}, + [4]={["y"]=761092.85714286,["x"]=-125048.57142857,}, + [5]={["y"]=760295.71428572,["x"]=-125685.71428572,}, + [6]={["y"]=759444.28571429,["x"]=-125734.28571429,}, + [7]={["y"]=759375.71428572,["x"]=-125511.42857143,}, + }, + PointsRunways = { + [1] = { + [1]={["y"]=759454.28571429,["x"]=-125551.42857143,}, + [2]={["y"]=759492.85714286,["x"]=-125610.85714286,}, + [3]={["y"]=761406.28571429,["x"]=-124304.28571429,}, + [4]={["y"]=761361.14285714,["x"]=-124239.71428572,}, + [5]={["y"]=759456,["x"]=-125552.57142857,}, + }, + }, + ZoneBoundary = {}, + ZoneRunways = {}, + MaximumSpeed = 50, + }, + Novorossiysk = { + PointsBoundary = { + [1]={["y"]=278677.71428573,["x"]=-41656.571428572,}, + [2]={["y"]=278446.2857143,["x"]=-41453.714285715,}, + [3]={["y"]=278989.14285716,["x"]=-40188.000000001,}, + [4]={["y"]=279717.71428573,["x"]=-39968.000000001,}, + [5]={["y"]=280020.57142859,["x"]=-40208.000000001,}, + [6]={["y"]=278674.85714287,["x"]=-41660.857142858,}, + }, + PointsRunways = { + [1] = { + [1]={["y"]=278673.14285716,["x"]=-41615.142857144,}, + [2]={["y"]=278625.42857144,["x"]=-41570.571428572,}, + [3]={["y"]=279835.42857144,["x"]=-40226.000000001,}, + [4]={["y"]=279882.2857143,["x"]=-40270.000000001,}, + [5]={["y"]=278672.00000001,["x"]=-41614.857142858,}, + }, + }, + ZoneBoundary = {}, + ZoneRunways = {}, + MaximumSpeed = 50, + }, + SenakiKolkhi = { + PointsBoundary = { + [1]={["y"]=646036.57142857,["x"]=-281778.85714286,}, + [2]={["y"]=646045.14285714,["x"]=-281191.71428571,}, + [3]={["y"]=647032.28571429,["x"]=-280598.85714285,}, + [4]={["y"]=647669.42857143,["x"]=-281273.14285714,}, + [5]={["y"]=648323.71428571,["x"]=-281370.28571428,}, + [6]={["y"]=648520.85714286,["x"]=-281978.85714285,}, + [7]={["y"]=646039.42857143,["x"]=-281783.14285714,}, + }, + PointsRunways = { + [1] = { + [1]={["y"]=646060.85714285,["x"]=-281736,}, + [2]={["y"]=646056.57142857,["x"]=-281631.71428571,}, + [3]={["y"]=648442.28571428,["x"]=-281840.28571428,}, + [4]={["y"]=648432.28571428,["x"]=-281918.85714286,}, + [5]={["y"]=646063.71428571,["x"]=-281738.85714286,}, + }, + }, + ZoneBoundary = {}, + ZoneRunways = {}, + MaximumSpeed = 50, + }, + SochiAdler = { + PointsBoundary = { + [1]={["y"]=460642.28571428,["x"]=-164861.71428571,}, + [2]={["y"]=462820.85714285,["x"]=-163368.85714286,}, + [3]={["y"]=463649.42857142,["x"]=-163340.28571429,}, + [4]={["y"]=463835.14285714,["x"]=-164040.28571429,}, + [5]={["y"]=462535.14285714,["x"]=-165654.57142857,}, + [6]={["y"]=460678,["x"]=-165247.42857143,}, + [7]={["y"]=460635.14285714,["x"]=-164876,}, + }, + PointsRunways = { + [1] = { + [1]={["y"]=460831.42857143,["x"]=-165180,}, + [2]={["y"]=460878.57142857,["x"]=-165257.14285714,}, + [3]={["y"]=463663.71428571,["x"]=-163793.14285714,}, + [4]={["y"]=463612.28571428,["x"]=-163697.42857143,}, + [5]={["y"]=460831.42857143,["x"]=-165177.14285714,}, + }, + [2] = { + [1]={["y"]=460831.42857143,["x"]=-165180,}, + [2]={["y"]=460878.57142857,["x"]=-165257.14285714,}, + [3]={["y"]=463663.71428571,["x"]=-163793.14285714,}, + [4]={["y"]=463612.28571428,["x"]=-163697.42857143,}, + [5]={["y"]=460831.42857143,["x"]=-165177.14285714,}, + }, + }, + ZoneBoundary = {}, + ZoneRunways = {}, + MaximumSpeed = 50, + }, + Soganlug = { + PointsBoundary = { + [1]={["y"]=894530.85714286,["x"]=-316928.28571428,}, + [2]={["y"]=896422.28571428,["x"]=-318622.57142857,}, + [3]={["y"]=896090.85714286,["x"]=-318934,}, + [4]={["y"]=894019.42857143,["x"]=-317119.71428571,}, + [5]={["y"]=894533.71428571,["x"]=-316925.42857143,}, + }, + PointsRunways = { + [1] = { + [1]={["y"]=894525.71428571,["x"]=-316964,}, + [2]={["y"]=896363.14285714,["x"]=-318634.28571428,}, + [3]={["y"]=896299.14285714,["x"]=-318702.85714286,}, + [4]={["y"]=894464,["x"]=-317031.71428571,}, + [5]={["y"]=894524.57142857,["x"]=-316963.71428571,}, + }, + }, + ZoneBoundary = {}, + ZoneRunways = {}, + MaximumSpeed = 50, + }, + SukhumiBabushara = { + PointsBoundary = { + [1]={["y"]=562541.14285714,["x"]=-219852.28571429,}, + [2]={["y"]=562691.14285714,["x"]=-219395.14285714,}, + [3]={["y"]=564326.85714286,["x"]=-219523.71428571,}, + [4]={["y"]=566262.57142857,["x"]=-221166.57142857,}, + [5]={["y"]=566069.71428571,["x"]=-221580.85714286,}, + [6]={["y"]=562534,["x"]=-219873.71428571,}, + }, + PointsRunways = { + [1] = { + [1]={["y"]=562684,["x"]=-219779.71428571,}, + [2]={["y"]=562717.71428571,["x"]=-219718,}, + [3]={["y"]=566046.85714286,["x"]=-221376.57142857,}, + [4]={["y"]=566012.28571428,["x"]=-221446.57142857,}, + [5]={["y"]=562684.57142857,["x"]=-219782.57142857,}, + }, + }, + ZoneBoundary = {}, + ZoneRunways = {}, + MaximumSpeed = 50, + }, + TbilisiLochini = { + PointsBoundary = { + [1]={["y"]=895172.85714286,["x"]=-314667.42857143,}, + [2]={["y"]=895337.42857143,["x"]=-314143.14285714,}, + [3]={["y"]=895990.28571429,["x"]=-314036,}, + [4]={["y"]=897730.28571429,["x"]=-315284.57142857,}, + [5]={["y"]=897901.71428571,["x"]=-316284.57142857,}, + [6]={["y"]=897684.57142857,["x"]=-316618.85714286,}, + [7]={["y"]=895173.14285714,["x"]=-314667.42857143,}, + }, + PointsRunways = { + [1] = { + [1]={["y"]=895261.14285715,["x"]=-314652.28571428,}, + [2]={["y"]=897654.57142857,["x"]=-316523.14285714,}, + [3]={["y"]=897711.71428571,["x"]=-316450.28571429,}, + [4]={["y"]=895327.42857143,["x"]=-314568.85714286,}, + [5]={["y"]=895261.71428572,["x"]=-314656,}, + }, + }, + ZoneBoundary = {}, + ZoneRunways = {}, + MaximumSpeed = 50, + }, + Vaziani = { + PointsBoundary = { + [1]={["y"]=902122,["x"]=-318163.71428572,}, + [2]={["y"]=902678.57142857,["x"]=-317594,}, + [3]={["y"]=903275.71428571,["x"]=-317405.42857143,}, + [4]={["y"]=903418.57142857,["x"]=-317891.14285714,}, + [5]={["y"]=904292.85714286,["x"]=-318748.28571429,}, + [6]={["y"]=904542,["x"]=-319740.85714286,}, + [7]={["y"]=904042,["x"]=-320166.57142857,}, + [8]={["y"]=902121.42857143,["x"]=-318164.85714286,}, + }, + PointsRunways = { + [1] = { + [1]={["y"]=902239.14285714,["x"]=-318190.85714286,}, + [2]={["y"]=904014.28571428,["x"]=-319994.57142857,}, + [3]={["y"]=904064.85714285,["x"]=-319945.14285715,}, + [4]={["y"]=902294.57142857,["x"]=-318146,}, + [5]={["y"]=902247.71428571,["x"]=-318190.85714286,}, + }, + }, + ZoneBoundary = {}, + ZoneRunways = {}, + MaximumSpeed = 50, + }, + }, +} + +--- Creates a new AIRBASEPOLICE_CAUCASUS object. +-- @param #AIRBASEPOLICE_CAUCASUS self +-- @param SetClient A SET_CLIENT object that will contain the CLIENT objects to be monitored if they follow the rules of the airbase. +-- @return #AIRBASEPOLICE_CAUCASUS self +function AIRBASEPOLICE_CAUCASUS:New( SetClient ) + + -- Inherits from BASE + local self = BASE:Inherit( self, AIRBASEPOLICE_BASE:New( SetClient, self.Airbases ) ) + + -- -- AnapaVityazevo + -- local AnapaVityazevoBoundary = GROUP:FindByName( "AnapaVityazevo Boundary" ) + -- self.Airbases.AnapaVityazevo.ZoneBoundary = ZONE_POLYGON:New( "AnapaVityazevo Boundary", AnapaVityazevoBoundary ):SmokeZone(POINT_VEC3.SmokeColor.White):Flush() + -- + -- local AnapaVityazevoRunway1 = GROUP:FindByName( "AnapaVityazevo Runway 1" ) + -- self.Airbases.AnapaVityazevo.ZoneRunways[1] = ZONE_POLYGON:New( "AnapaVityazevo Runway 1", AnapaVityazevoRunway1 ):SmokeZone(POINT_VEC3.SmokeColor.Red):Flush() + -- + -- + -- + -- -- Batumi + -- local BatumiBoundary = GROUP:FindByName( "Batumi Boundary" ) + -- self.Airbases.Batumi.ZoneBoundary = ZONE_POLYGON:New( "Batumi Boundary", BatumiBoundary ):SmokeZone(POINT_VEC3.SmokeColor.White):Flush() + -- + -- local BatumiRunway1 = GROUP:FindByName( "Batumi Runway 1" ) + -- self.Airbases.Batumi.ZoneRunways[1] = ZONE_POLYGON:New( "Batumi Runway 1", BatumiRunway1 ):SmokeZone(POINT_VEC3.SmokeColor.Red):Flush() + -- + -- + -- + -- -- Beslan + -- local BeslanBoundary = GROUP:FindByName( "Beslan Boundary" ) + -- self.Airbases.Beslan.ZoneBoundary = ZONE_POLYGON:New( "Beslan Boundary", BeslanBoundary ):SmokeZone(POINT_VEC3.SmokeColor.White):Flush() + -- + -- local BeslanRunway1 = GROUP:FindByName( "Beslan Runway 1" ) + -- self.Airbases.Beslan.ZoneRunways[1] = ZONE_POLYGON:New( "Beslan Runway 1", BeslanRunway1 ):SmokeZone(POINT_VEC3.SmokeColor.Red):Flush() + -- + -- + -- + -- -- Gelendzhik + -- local GelendzhikBoundary = GROUP:FindByName( "Gelendzhik Boundary" ) + -- self.Airbases.Gelendzhik.ZoneBoundary = ZONE_POLYGON:New( "Gelendzhik Boundary", GelendzhikBoundary ):SmokeZone(POINT_VEC3.SmokeColor.White):Flush() + -- + -- local GelendzhikRunway1 = GROUP:FindByName( "Gelendzhik Runway 1" ) + -- self.Airbases.Gelendzhik.ZoneRunways[1] = ZONE_POLYGON:New( "Gelendzhik Runway 1", GelendzhikRunway1 ):SmokeZone(POINT_VEC3.SmokeColor.Red):Flush() + -- + -- + -- + -- -- Gudauta + -- local GudautaBoundary = GROUP:FindByName( "Gudauta Boundary" ) + -- self.Airbases.Gudauta.ZoneBoundary = ZONE_POLYGON:New( "Gudauta Boundary", GudautaBoundary ):SmokeZone(POINT_VEC3.SmokeColor.White):Flush() + -- + -- local GudautaRunway1 = GROUP:FindByName( "Gudauta Runway 1" ) + -- self.Airbases.Gudauta.ZoneRunways[1] = ZONE_POLYGON:New( "Gudauta Runway 1", GudautaRunway1 ):SmokeZone(POINT_VEC3.SmokeColor.Red):Flush() + -- + -- + -- + -- -- Kobuleti + -- local KobuletiBoundary = GROUP:FindByName( "Kobuleti Boundary" ) + -- self.Airbases.Kobuleti.ZoneBoundary = ZONE_POLYGON:New( "Kobuleti Boundary", KobuletiBoundary ):SmokeZone(POINT_VEC3.SmokeColor.White):Flush() + -- + -- local KobuletiRunway1 = GROUP:FindByName( "Kobuleti Runway 1" ) + -- self.Airbases.Kobuleti.ZoneRunways[1] = ZONE_POLYGON:New( "Kobuleti Runway 1", KobuletiRunway1 ):SmokeZone(POINT_VEC3.SmokeColor.Red):Flush() + -- + -- + -- + -- -- KrasnodarCenter + -- local KrasnodarCenterBoundary = GROUP:FindByName( "KrasnodarCenter Boundary" ) + -- self.Airbases.KrasnodarCenter.ZoneBoundary = ZONE_POLYGON:New( "KrasnodarCenter Boundary", KrasnodarCenterBoundary ):SmokeZone(POINT_VEC3.SmokeColor.White):Flush() + -- + -- local KrasnodarCenterRunway1 = GROUP:FindByName( "KrasnodarCenter Runway 1" ) + -- self.Airbases.KrasnodarCenter.ZoneRunways[1] = ZONE_POLYGON:New( "KrasnodarCenter Runway 1", KrasnodarCenterRunway1 ):SmokeZone(POINT_VEC3.SmokeColor.Red):Flush() + -- + -- + -- + -- -- KrasnodarPashkovsky + -- local KrasnodarPashkovskyBoundary = GROUP:FindByName( "KrasnodarPashkovsky Boundary" ) + -- self.Airbases.KrasnodarPashkovsky.ZoneBoundary = ZONE_POLYGON:New( "KrasnodarPashkovsky Boundary", KrasnodarPashkovskyBoundary ):SmokeZone(POINT_VEC3.SmokeColor.White):Flush() + -- + -- local KrasnodarPashkovskyRunway1 = GROUP:FindByName( "KrasnodarPashkovsky Runway 1" ) + -- self.Airbases.KrasnodarPashkovsky.ZoneRunways[1] = ZONE_POLYGON:New( "KrasnodarPashkovsky Runway 1", KrasnodarPashkovskyRunway1 ):SmokeZone(POINT_VEC3.SmokeColor.Red):Flush() + -- local KrasnodarPashkovskyRunway2 = GROUP:FindByName( "KrasnodarPashkovsky Runway 2" ) + -- self.Airbases.KrasnodarPashkovsky.ZoneRunways[2] = ZONE_POLYGON:New( "KrasnodarPashkovsky Runway 2", KrasnodarPashkovskyRunway2 ):SmokeZone(POINT_VEC3.SmokeColor.Red):Flush() + -- + -- + -- + -- -- Krymsk + -- local KrymskBoundary = GROUP:FindByName( "Krymsk Boundary" ) + -- self.Airbases.Krymsk.ZoneBoundary = ZONE_POLYGON:New( "Krymsk Boundary", KrymskBoundary ):SmokeZone(POINT_VEC3.SmokeColor.White):Flush() + -- + -- local KrymskRunway1 = GROUP:FindByName( "Krymsk Runway 1" ) + -- self.Airbases.Krymsk.ZoneRunways[1] = ZONE_POLYGON:New( "Krymsk Runway 1", KrymskRunway1 ):SmokeZone(POINT_VEC3.SmokeColor.Red):Flush() + -- + -- + -- + -- -- Kutaisi + -- local KutaisiBoundary = GROUP:FindByName( "Kutaisi Boundary" ) + -- self.Airbases.Kutaisi.ZoneBoundary = ZONE_POLYGON:New( "Kutaisi Boundary", KutaisiBoundary ):SmokeZone(POINT_VEC3.SmokeColor.White):Flush() + -- + -- local KutaisiRunway1 = GROUP:FindByName( "Kutaisi Runway 1" ) + -- self.Airbases.Kutaisi.ZoneRunways[1] = ZONE_POLYGON:New( "Kutaisi Runway 1", KutaisiRunway1 ):SmokeZone(POINT_VEC3.SmokeColor.Red):Flush() + -- + -- + -- + -- -- MaykopKhanskaya + -- local MaykopKhanskayaBoundary = GROUP:FindByName( "MaykopKhanskaya Boundary" ) + -- self.Airbases.MaykopKhanskaya.ZoneBoundary = ZONE_POLYGON:New( "MaykopKhanskaya Boundary", MaykopKhanskayaBoundary ):SmokeZone(POINT_VEC3.SmokeColor.White):Flush() + -- + -- local MaykopKhanskayaRunway1 = GROUP:FindByName( "MaykopKhanskaya Runway 1" ) + -- self.Airbases.MaykopKhanskaya.ZoneRunways[1] = ZONE_POLYGON:New( "MaykopKhanskaya Runway 1", MaykopKhanskayaRunway1 ):SmokeZone(POINT_VEC3.SmokeColor.Red):Flush() + -- + -- + -- + -- -- MineralnyeVody + -- local MineralnyeVodyBoundary = GROUP:FindByName( "MineralnyeVody Boundary" ) + -- self.Airbases.MineralnyeVody.ZoneBoundary = ZONE_POLYGON:New( "MineralnyeVody Boundary", MineralnyeVodyBoundary ):SmokeZone(POINT_VEC3.SmokeColor.White):Flush() + -- + -- local MineralnyeVodyRunway1 = GROUP:FindByName( "MineralnyeVody Runway 1" ) + -- self.Airbases.MineralnyeVody.ZoneRunways[1] = ZONE_POLYGON:New( "MineralnyeVody Runway 1", MineralnyeVodyRunway1 ):SmokeZone(POINT_VEC3.SmokeColor.Red):Flush() + -- + -- + -- + -- -- Mozdok + -- local MozdokBoundary = GROUP:FindByName( "Mozdok Boundary" ) + -- self.Airbases.Mozdok.ZoneBoundary = ZONE_POLYGON:New( "Mozdok Boundary", MozdokBoundary ):SmokeZone(POINT_VEC3.SmokeColor.White):Flush() + -- + -- local MozdokRunway1 = GROUP:FindByName( "Mozdok Runway 1" ) + -- self.Airbases.Mozdok.ZoneRunways[1] = ZONE_POLYGON:New( "Mozdok Runway 1", MozdokRunway1 ):SmokeZone(POINT_VEC3.SmokeColor.Red):Flush() + -- + -- + -- + -- -- Nalchik + -- local NalchikBoundary = GROUP:FindByName( "Nalchik Boundary" ) + -- self.Airbases.Nalchik.ZoneBoundary = ZONE_POLYGON:New( "Nalchik Boundary", NalchikBoundary ):SmokeZone(POINT_VEC3.SmokeColor.White):Flush() + -- + -- local NalchikRunway1 = GROUP:FindByName( "Nalchik Runway 1" ) + -- self.Airbases.Nalchik.ZoneRunways[1] = ZONE_POLYGON:New( "Nalchik Runway 1", NalchikRunway1 ):SmokeZone(POINT_VEC3.SmokeColor.Red):Flush() + -- + -- + -- + -- -- Novorossiysk + -- local NovorossiyskBoundary = GROUP:FindByName( "Novorossiysk Boundary" ) + -- self.Airbases.Novorossiysk.ZoneBoundary = ZONE_POLYGON:New( "Novorossiysk Boundary", NovorossiyskBoundary ):SmokeZone(POINT_VEC3.SmokeColor.White):Flush() + -- + -- local NovorossiyskRunway1 = GROUP:FindByName( "Novorossiysk Runway 1" ) + -- self.Airbases.Novorossiysk.ZoneRunways[1] = ZONE_POLYGON:New( "Novorossiysk Runway 1", NovorossiyskRunway1 ):SmokeZone(POINT_VEC3.SmokeColor.Red):Flush() + -- + -- + -- + -- -- SenakiKolkhi + -- local SenakiKolkhiBoundary = GROUP:FindByName( "SenakiKolkhi Boundary" ) + -- self.Airbases.SenakiKolkhi.ZoneBoundary = ZONE_POLYGON:New( "SenakiKolkhi Boundary", SenakiKolkhiBoundary ):SmokeZone(POINT_VEC3.SmokeColor.White):Flush() + -- + -- local SenakiKolkhiRunway1 = GROUP:FindByName( "SenakiKolkhi Runway 1" ) + -- self.Airbases.SenakiKolkhi.ZoneRunways[1] = ZONE_POLYGON:New( "SenakiKolkhi Runway 1", SenakiKolkhiRunway1 ):SmokeZone(POINT_VEC3.SmokeColor.Red):Flush() + -- + -- + -- + -- -- SochiAdler + -- local SochiAdlerBoundary = GROUP:FindByName( "SochiAdler Boundary" ) + -- self.Airbases.SochiAdler.ZoneBoundary = ZONE_POLYGON:New( "SochiAdler Boundary", SochiAdlerBoundary ):SmokeZone(POINT_VEC3.SmokeColor.White):Flush() + -- + -- local SochiAdlerRunway1 = GROUP:FindByName( "SochiAdler Runway 1" ) + -- self.Airbases.SochiAdler.ZoneRunways[1] = ZONE_POLYGON:New( "SochiAdler Runway 1", SochiAdlerRunway1 ):SmokeZone(POINT_VEC3.SmokeColor.Red):Flush() + -- local SochiAdlerRunway2 = GROUP:FindByName( "SochiAdler Runway 2" ) + -- self.Airbases.SochiAdler.ZoneRunways[2] = ZONE_POLYGON:New( "SochiAdler Runway 2", SochiAdlerRunway1 ):SmokeZone(POINT_VEC3.SmokeColor.Red):Flush() + -- + -- + -- + -- -- Soganlug + -- local SoganlugBoundary = GROUP:FindByName( "Soganlug Boundary" ) + -- self.Airbases.Soganlug.ZoneBoundary = ZONE_POLYGON:New( "Soganlug Boundary", SoganlugBoundary ):SmokeZone(POINT_VEC3.SmokeColor.White):Flush() + -- + -- local SoganlugRunway1 = GROUP:FindByName( "Soganlug Runway 1" ) + -- self.Airbases.Soganlug.ZoneRunways[1] = ZONE_POLYGON:New( "Soganlug Runway 1", SoganlugRunway1 ):SmokeZone(POINT_VEC3.SmokeColor.Red):Flush() + -- + -- + -- + -- -- SukhumiBabushara + -- local SukhumiBabusharaBoundary = GROUP:FindByName( "SukhumiBabushara Boundary" ) + -- self.Airbases.SukhumiBabushara.ZoneBoundary = ZONE_POLYGON:New( "SukhumiBabushara Boundary", SukhumiBabusharaBoundary ):SmokeZone(POINT_VEC3.SmokeColor.White):Flush() + -- + -- local SukhumiBabusharaRunway1 = GROUP:FindByName( "SukhumiBabushara Runway 1" ) + -- self.Airbases.SukhumiBabushara.ZoneRunways[1] = ZONE_POLYGON:New( "SukhumiBabushara Runway 1", SukhumiBabusharaRunway1 ):SmokeZone(POINT_VEC3.SmokeColor.Red):Flush() + -- + -- + -- + -- -- TbilisiLochini + -- local TbilisiLochiniBoundary = GROUP:FindByName( "TbilisiLochini Boundary" ) + -- self.Airbases.TbilisiLochini.ZoneBoundary = ZONE_POLYGON:New( "TbilisiLochini Boundary", TbilisiLochiniBoundary ):SmokeZone(POINT_VEC3.SmokeColor.White):Flush() + -- + -- local TbilisiLochiniRunway1 = GROUP:FindByName( "TbilisiLochini Runway 1" ) + -- self.Airbases.TbilisiLochini.ZoneRunways[1] = ZONE_POLYGON:New( "TbilisiLochini Runway 1", TbilisiLochiniRunway1 ):SmokeZone(POINT_VEC3.SmokeColor.Red):Flush() + -- + -- + -- + -- -- Vaziani + -- local VazianiBoundary = GROUP:FindByName( "Vaziani Boundary" ) + -- self.Airbases.Vaziani.ZoneBoundary = ZONE_POLYGON:New( "Vaziani Boundary", VazianiBoundary ):SmokeZone(POINT_VEC3.SmokeColor.White):Flush() + -- + -- local VazianiRunway1 = GROUP:FindByName( "Vaziani Runway 1" ) + -- self.Airbases.Vaziani.ZoneRunways[1] = ZONE_POLYGON:New( "Vaziani Runway 1", VazianiRunway1 ):SmokeZone(POINT_VEC3.SmokeColor.Red):Flush() + -- + -- + -- + + + -- -- Template + -- local TemplateBoundary = GROUP:FindByName( "Template Boundary" ) + -- self.Airbases.Template.ZoneBoundary = ZONE_POLYGON:New( "Template Boundary", TemplateBoundary ):SmokeZone(POINT_VEC3.SmokeColor.White):Flush() + -- + -- local TemplateRunway1 = GROUP:FindByName( "Template Runway 1" ) + -- self.Airbases.Template.ZoneRunways[1] = ZONE_POLYGON:New( "Template Runway 1", TemplateRunway1 ):SmokeZone(POINT_VEC3.SmokeColor.Red):Flush() + + return self + +end + + + + +--- @type AIRBASEPOLICE_NEVADA +-- @extends AirbasePolice#AIRBASEPOLICE_BASE +AIRBASEPOLICE_NEVADA = { + ClassName = "AIRBASEPOLICE_NEVADA", + Airbases = { + Nellis = { + PointsBoundary = { + [1]={["y"]=-17814.714285714,["x"]=-399823.14285714,}, + [2]={["y"]=-16875.857142857,["x"]=-398763.14285714,}, + [3]={["y"]=-16251.571428571,["x"]=-398988.85714286,}, + [4]={["y"]=-16163,["x"]=-398693.14285714,}, + [5]={["y"]=-16328.714285714,["x"]=-398034.57142857,}, + [6]={["y"]=-15943,["x"]=-397571.71428571,}, + [7]={["y"]=-15711.571428571,["x"]=-397551.71428571,}, + [8]={["y"]=-15748.714285714,["x"]=-396806,}, + [9]={["y"]=-16288.714285714,["x"]=-396517.42857143,}, + [10]={["y"]=-16751.571428571,["x"]=-396308.85714286,}, + [11]={["y"]=-17263,["x"]=-396234.57142857,}, + [12]={["y"]=-17577.285714286,["x"]=-396640.28571429,}, + [13]={["y"]=-17614.428571429,["x"]=-397400.28571429,}, + [14]={["y"]=-19405.857142857,["x"]=-399428.85714286,}, + [15]={["y"]=-19234.428571429,["x"]=-399683.14285714,}, + [16]={["y"]=-18708.714285714,["x"]=-399408.85714286,}, + [17]={["y"]=-18397.285714286,["x"]=-399657.42857143,}, + [18]={["y"]=-17814.428571429,["x"]=-399823.42857143,}, + }, + PointsRunways = { + [1] = { + [1]={["y"]=-18687,["x"]=-399380.28571429,}, + [2]={["y"]=-18620.714285714,["x"]=-399436.85714286,}, + [3]={["y"]=-16217.857142857,["x"]=-396596.85714286,}, + [4]={["y"]=-16300.142857143,["x"]=-396530,}, + [5]={["y"]=-18687,["x"]=-399380.85714286,}, + }, + [2] = { + [1]={["y"]=-18451.571428572,["x"]=-399580.57142857,}, + [2]={["y"]=-18392.142857143,["x"]=-399628.57142857,}, + [3]={["y"]=-16011,["x"]=-396806.85714286,}, + [4]={["y"]=-16074.714285714,["x"]=-396751.71428572,}, + [5]={["y"]=-18451.571428572,["x"]=-399580.85714285,}, + }, + }, + ZoneBoundary = {}, + ZoneRunways = {}, + MaximumSpeed = 50, + }, + McCarran = { + PointsBoundary = { + [1]={["y"]=-29455.285714286,["x"]=-416277.42857142,}, + [2]={["y"]=-28860.142857143,["x"]=-416492,}, + [3]={["y"]=-25044.428571429,["x"]=-416344.85714285,}, + [4]={["y"]=-24580.142857143,["x"]=-415959.14285714,}, + [5]={["y"]=-25073,["x"]=-415630.57142857,}, + [6]={["y"]=-25087.285714286,["x"]=-415130.57142857,}, + [7]={["y"]=-25830.142857143,["x"]=-414866.28571428,}, + [8]={["y"]=-26658.714285715,["x"]=-414880.57142857,}, + [9]={["y"]=-26973,["x"]=-415273.42857142,}, + [10]={["y"]=-27380.142857143,["x"]=-415187.71428571,}, + [11]={["y"]=-27715.857142857,["x"]=-414144.85714285,}, + [12]={["y"]=-27551.571428572,["x"]=-413473.42857142,}, + [13]={["y"]=-28630.142857143,["x"]=-413201.99999999,}, + [14]={["y"]=-29494.428571429,["x"]=-415437.71428571,}, + [15]={["y"]=-29455.571428572,["x"]=-416277.71428571,}, + }, + PointsRunways = { + [1] = { + [1]={["y"]=-29408.428571429,["x"]=-416016.28571428,}, + [2]={["y"]=-29408.142857144,["x"]=-416105.42857142,}, + [3]={["y"]=-24680.714285715,["x"]=-416003.14285713,}, + [4]={["y"]=-24681.857142858,["x"]=-415926.57142856,}, + [5]={["y"]=-29408.42857143,["x"]=-416016.57142856,}, + }, + [2] = { + [1]={["y"]=-28575.571428572,["x"]=-416303.14285713,}, + [2]={["y"]=-28575.571428572,["x"]=-416382.57142856,}, + [3]={["y"]=-25111.000000001,["x"]=-416309.7142857,}, + [4]={["y"]=-25111.000000001,["x"]=-416249.14285713,}, + [5]={["y"]=-28575.571428572,["x"]=-416303.7142857,}, + }, + [3] = { + [1]={["y"]=-29331.000000001,["x"]=-416275.42857141,}, + [2]={["y"]=-29259.000000001,["x"]=-416306.85714284,}, + [3]={["y"]=-28005.571428572,["x"]=-413449.7142857,}, + [4]={["y"]=-28068.714285715,["x"]=-413422.85714284,}, + [5]={["y"]=-29331.000000001,["x"]=-416275.7142857,}, + }, + [4] = { + [1]={["y"]=-29073.285714286,["x"]=-416386.57142856,}, + [2]={["y"]=-28997.285714286,["x"]=-416417.42857141,}, + [3]={["y"]=-27697.571428572,["x"]=-413464.57142856,}, + [4]={["y"]=-27767.857142858,["x"]=-413434.28571427,}, + [5]={["y"]=-29073.000000001,["x"]=-416386.85714284,}, + }, + }, + ZoneBoundary = {}, + ZoneRunways = {}, + MaximumSpeed = 50, + }, + Creech = { + PointsBoundary = { + [1]={["y"]=-74522.714285715,["x"]=-360887.99999998,}, + [2]={["y"]=-74197,["x"]=-360556.57142855,}, + [3]={["y"]=-74402.714285715,["x"]=-359639.42857141,}, + [4]={["y"]=-74637,["x"]=-359279.42857141,}, + [5]={["y"]=-75759.857142857,["x"]=-359005.14285712,}, + [6]={["y"]=-75834.142857143,["x"]=-359045.14285712,}, + [7]={["y"]=-75902.714285714,["x"]=-359782.28571427,}, + [8]={["y"]=-76099.857142857,["x"]=-360399.42857141,}, + [9]={["y"]=-77314.142857143,["x"]=-360219.42857141,}, + [10]={["y"]=-77728.428571429,["x"]=-360445.14285713,}, + [11]={["y"]=-77585.571428571,["x"]=-360585.14285713,}, + [12]={["y"]=-76471.285714286,["x"]=-360819.42857141,}, + [13]={["y"]=-76325.571428571,["x"]=-360942.28571427,}, + [14]={["y"]=-74671.857142857,["x"]=-360927.7142857,}, + [15]={["y"]=-74522.714285714,["x"]=-360888.85714284,}, + }, + PointsRunways = { + [1] = { + [1]={["y"]=-74237.571428571,["x"]=-360591.7142857,}, + [2]={["y"]=-74234.428571429,["x"]=-360493.71428571,}, + [3]={["y"]=-77605.285714286,["x"]=-360399.14285713,}, + [4]={["y"]=-77608.714285715,["x"]=-360498.85714285,}, + [5]={["y"]=-74237.857142857,["x"]=-360591.7142857,}, + }, + [2] = { + [1]={["y"]=-75807.571428572,["x"]=-359073.42857142,}, + [2]={["y"]=-74770.142857144,["x"]=-360581.71428571,}, + [3]={["y"]=-74641.285714287,["x"]=-360585.42857142,}, + [4]={["y"]=-75734.142857144,["x"]=-359023.14285714,}, + [5]={["y"]=-75807.285714287,["x"]=-359073.42857142,}, + }, + }, + ZoneBoundary = {}, + ZoneRunways = {}, + MaximumSpeed = 50, + }, + GroomLake = { + PointsBoundary = { + [1]={["y"]=-88916.714285714,["x"]=-289102.28571425,}, + [2]={["y"]=-87023.571428572,["x"]=-290388.57142857,}, + [3]={["y"]=-85916.428571429,["x"]=-290674.28571428,}, + [4]={["y"]=-87645.000000001,["x"]=-286567.14285714,}, + [5]={["y"]=-88380.714285715,["x"]=-286388.57142857,}, + [6]={["y"]=-89670.714285715,["x"]=-283524.28571428,}, + [7]={["y"]=-89797.857142858,["x"]=-283567.14285714,}, + [8]={["y"]=-88635.000000001,["x"]=-286749.99999999,}, + [9]={["y"]=-89177.857142858,["x"]=-287207.14285714,}, + [10]={["y"]=-89092.142857144,["x"]=-288892.85714285,}, + [11]={["y"]=-88917.000000001,["x"]=-289102.85714285,}, + }, + PointsRunways = { + [1] = { + [1]={["y"]=-86039.000000001,["x"]=-290606.28571428,}, + [2]={["y"]=-85965.285714287,["x"]=-290573.99999999,}, + [3]={["y"]=-87692.714285715,["x"]=-286634.85714285,}, + [4]={["y"]=-87756.714285715,["x"]=-286663.99999999,}, + [5]={["y"]=-86038.714285715,["x"]=-290606.85714285,}, + }, + [2] = { + [1]={["y"]=-86808.428571429,["x"]=-290375.7142857,}, + [2]={["y"]=-86732.714285715,["x"]=-290344.28571427,}, + [3]={["y"]=-89672.714285714,["x"]=-283546.57142855,}, + [4]={["y"]=-89772.142857143,["x"]=-283587.71428569,}, + [5]={["y"]=-86808.142857143,["x"]=-290375.7142857,}, + }, + }, + ZoneBoundary = {}, + ZoneRunways = {}, + MaximumSpeed = 50, + }, + }, +} + +--- Creates a new AIRBASEPOLICE_NEVADA object. +-- @param #AIRBASEPOLICE_NEVADA self +-- @param SetClient A SET_CLIENT object that will contain the CLIENT objects to be monitored if they follow the rules of the airbase. +-- @return #AIRBASEPOLICE_NEVADA self +function AIRBASEPOLICE_NEVADA:New( SetClient ) + + -- Inherits from BASE + local self = BASE:Inherit( self, AIRBASEPOLICE_BASE:New( SetClient, self.Airbases ) ) + +-- -- Nellis +-- local NellisBoundary = GROUP:FindByName( "Nellis Boundary" ) +-- self.Airbases.Nellis.ZoneBoundary = ZONE_POLYGON:New( "Nellis Boundary", NellisBoundary ):SmokeZone(POINT_VEC3.SmokeColor.White):Flush() +-- +-- local NellisRunway1 = GROUP:FindByName( "Nellis Runway 1" ) +-- self.Airbases.Nellis.ZoneRunways[1] = ZONE_POLYGON:New( "Nellis Runway 1", NellisRunway1 ):SmokeZone(POINT_VEC3.SmokeColor.Red):Flush() +-- +-- local NellisRunway2 = GROUP:FindByName( "Nellis Runway 2" ) +-- self.Airbases.Nellis.ZoneRunways[2] = ZONE_POLYGON:New( "Nellis Runway 2", NellisRunway2 ):SmokeZone(POINT_VEC3.SmokeColor.Red):Flush() +-- +-- -- McCarran +-- local McCarranBoundary = GROUP:FindByName( "McCarran Boundary" ) +-- self.Airbases.McCarran.ZoneBoundary = ZONE_POLYGON:New( "McCarran Boundary", McCarranBoundary ):SmokeZone(POINT_VEC3.SmokeColor.White):Flush() +-- +-- local McCarranRunway1 = GROUP:FindByName( "McCarran Runway 1" ) +-- self.Airbases.McCarran.ZoneRunways[1] = ZONE_POLYGON:New( "McCarran Runway 1", McCarranRunway1 ):SmokeZone(POINT_VEC3.SmokeColor.Red):Flush() +-- +-- local McCarranRunway2 = GROUP:FindByName( "McCarran Runway 2" ) +-- self.Airbases.McCarran.ZoneRunways[2] = ZONE_POLYGON:New( "McCarran Runway 2", McCarranRunway2 ):SmokeZone(POINT_VEC3.SmokeColor.Red):Flush() +-- +-- local McCarranRunway3 = GROUP:FindByName( "McCarran Runway 3" ) +-- self.Airbases.McCarran.ZoneRunways[3] = ZONE_POLYGON:New( "McCarran Runway 3", McCarranRunway3 ):SmokeZone(POINT_VEC3.SmokeColor.Red):Flush() +-- +-- local McCarranRunway4 = GROUP:FindByName( "McCarran Runway 4" ) +-- self.Airbases.McCarran.ZoneRunways[4] = ZONE_POLYGON:New( "McCarran Runway 4", McCarranRunway4 ):SmokeZone(POINT_VEC3.SmokeColor.Red):Flush() +-- +-- -- Creech +-- local CreechBoundary = GROUP:FindByName( "Creech Boundary" ) +-- self.Airbases.Creech.ZoneBoundary = ZONE_POLYGON:New( "Creech Boundary", CreechBoundary ):SmokeZone(POINT_VEC3.SmokeColor.White):Flush() +-- +-- local CreechRunway1 = GROUP:FindByName( "Creech Runway 1" ) +-- self.Airbases.Creech.ZoneRunways[1] = ZONE_POLYGON:New( "Creech Runway 1", CreechRunway1 ):SmokeZone(POINT_VEC3.SmokeColor.Red):Flush() +-- +-- local CreechRunway2 = GROUP:FindByName( "Creech Runway 2" ) +-- self.Airbases.Creech.ZoneRunways[2] = ZONE_POLYGON:New( "Creech Runway 2", CreechRunway2 ):SmokeZone(POINT_VEC3.SmokeColor.Red):Flush() +-- +-- -- Groom Lake +-- local GroomLakeBoundary = GROUP:FindByName( "GroomLake Boundary" ) +-- self.Airbases.GroomLake.ZoneBoundary = ZONE_POLYGON:New( "GroomLake Boundary", GroomLakeBoundary ):SmokeZone(POINT_VEC3.SmokeColor.White):Flush() +-- +-- local GroomLakeRunway1 = GROUP:FindByName( "GroomLake Runway 1" ) +-- self.Airbases.GroomLake.ZoneRunways[1] = ZONE_POLYGON:New( "GroomLake Runway 1", GroomLakeRunway1 ):SmokeZone(POINT_VEC3.SmokeColor.Red):Flush() +-- +-- local GroomLakeRunway2 = GROUP:FindByName( "GroomLake Runway 2" ) +-- self.Airbases.GroomLake.ZoneRunways[2] = ZONE_POLYGON:New( "GroomLake Runway 2", GroomLakeRunway2 ):SmokeZone(POINT_VEC3.SmokeColor.Red):Flush() + +end + + + + + + --- This module contains the DETECTION classes. +-- +-- === +-- +-- 1) @{Detection#DETECTION_BASE} class, extends @{Base#BASE} +-- ========================================================== +-- The @{Detection#DETECTION_BASE} class defines the core functions to administer detected objects. +-- +-- 1.1) DETECTION_BASE constructor +-- ------------------------------- +-- Construct a new DETECTION_BASE instance using the @{Detection#DETECTION_BASE.New}() method. +-- +-- 1.2) DETECTION_BASE initialization +-- ---------------------------------- +-- By default, detection will return detected objects with all the detection sensors available. +-- However, you can ask how the objects were found with specific detection methods. +-- If you use one of the below methods, the detection will work with the detection method specified. +-- You can specify to apply multiple detection methods. +-- +-- Use the following functions to report the objects it detected using the methods Visual, Optical, Radar, IRST, RWR, DLINK: +-- +-- * @{Detection#DETECTION_BASE.InitDetectVisual}(): Detected using Visual. +-- * @{Detection#DETECTION_BASE.InitDetectOptical}(): Detected using Optical. +-- * @{Detection#DETECTION_BASE.InitDetectRadar}(): Detected using Radar. +-- * @{Detection#DETECTION_BASE.InitDetectIRST}(): Detected using IRST. +-- * @{Detection#DETECTION_BASE.InitDetectRWR}(): Detected using RWR. +-- * @{Detection#DETECTION_BASE.InitDetectDLINK}(): Detected using DLINK. +-- +-- 1.3) Obtain objects detected by DETECTION_BASE +-- ---------------------------------------------- +-- DETECTION_BASE builds @{Set}s of objects detected. These @{Set#SET_BASE}s can be retrieved using the method @{Detection#DETECTION_BASE.GetDetectedSets}(). +-- The method will return a list (table) of @{Set#SET_BASE} objects. +-- +-- === +-- +-- 2) @{Detection#DETECTION_UNITGROUPS} class, extends @{Detection#DETECTION_BASE} +-- =============================================================================== +-- The @{Detection#DETECTION_UNITGROUPS} class will detect units within the battle zone for a FAC group, +-- and will build a list (table) of @{Set#SET_UNIT}s containing the @{Unit#UNIT}s detected. +-- The class is group the detected units within zones given a DetectedZoneRange parameter. +-- A set with multiple detected zones will be created as there are groups of units detected. +-- +-- 2.1) Retrieve the Detected Unit sets and Detected Zones +-- ------------------------------------------------------- +-- The DetectedUnitSets methods are implemented in @{Detection#DECTECTION_BASE} and the DetectedZones methods is implemented in @{Detection#DETECTION_UNITGROUPS}. +-- +-- Retrieve the DetectedUnitSets with the method @{Detection#DETECTION_BASE.GetDetectedSets}(). A table will be return of @{Set#SET_UNIT}s. +-- To understand the amount of sets created, use the method @{Detection#DETECTION_BASE.GetDetectedSetCount}(). +-- If you want to obtain a specific set from the DetectedSets, use the method @{Detection#DETECTION_BASE.GetDetectedSet}() with a given index. +-- +-- Retrieve the formed @{Zone@ZONE_UNIT}s as a result of the grouping the detected units within the DetectionZoneRange, use the method @{Detection#DETECTION_BASE.GetDetectionZones}(). +-- To understand the amount of zones created, use the method @{Detection#DETECTION_BASE.GetDetectionZoneCount}(). +-- If you want to obtain a specific zone from the DetectedZones, use the method @{Detection#DETECTION_BASE.GetDetectionZone}() with a given index. +-- +-- 1.4) Flare or Smoke detected units +-- ---------------------------------- +-- Use the methods @{Detection#DETECTION_UNITGROUPS.FlareDetectedUnits}() or @{Detection#DETECTION_UNITGROUPS.SmokeDetectedUnits}() to flare or smoke the detected units when a new detection has taken place. +-- +-- 1.5) Flare or Smoke detected zones +-- ---------------------------------- +-- Use the methods @{Detection#DETECTION_UNITGROUPS.FlareDetectedZones}() or @{Detection#DETECTION_UNITGROUPS.SmokeDetectedZones}() to flare or smoke the detected zones when a new detection has taken place. +-- +-- === +-- +-- @module Detection +-- @author Mechanic : Concept & Testing +-- @author FlightControl : Design & Programming + + + +--- DETECTION_BASE class +-- @type DETECTION_BASE +-- @field Group#GROUP FACGroup The GROUP in the Forward Air Controller role. +-- @field DCSTypes#Distance DetectionRange The range till which targets are accepted to be detected. +-- @field #DETECTION_BASE.DetectedSets DetectedSets A list of @{Set#SET_BASE}s containing the objects in each set that were detected. The base class will not build the detected sets, but will leave that to the derived classes. +-- @extends Base#BASE +DETECTION_BASE = { + ClassName = "DETECTION_BASE", + DetectedSets = {}, + DetectedObjects = {}, + FACGroup = nil, + DetectionRange = nil, +} + +--- @type DETECTION_BASE.DetectedSets +-- @list + + +--- @type DETECTION_BASE.DetectedZones +-- @list + + +--- DETECTION constructor. +-- @param #DETECTION_BASE self +-- @param Group#GROUP FACGroup The GROUP in the Forward Air Controller role. +-- @param DCSTypes#Distance DetectionRange The range till which targets are accepted to be detected. +-- @return #DETECTION_BASE self +function DETECTION_BASE:New( FACGroup, DetectionRange ) + + -- Inherits from BASE + local self = BASE:Inherit( self, BASE:New() ) + + self.FACGroup = FACGroup + self.DetectionRange = DetectionRange + + self:InitDetectVisual( false ) + self:InitDetectOptical( false ) + self:InitDetectRadar( false ) + self:InitDetectRWR( false ) + self:InitDetectIRST( false ) + self:InitDetectDLINK( false ) + + return self +end + +--- Detect Visual. +-- @param #DETECTION_BASE self +-- @param #boolean DetectVisual +-- @return #DETECTION_BASE self +function DETECTION_BASE:InitDetectVisual( DetectVisual ) + + self.DetectVisual = DetectVisual +end + +--- Detect Optical. +-- @param #DETECTION_BASE self +-- @param #boolean DetectOptical +-- @return #DETECTION_BASE self +function DETECTION_BASE:InitDetectOptical( DetectOptical ) + self:F2() + + self.DetectOptical = DetectOptical +end + +--- Detect Radar. +-- @param #DETECTION_BASE self +-- @param #boolean DetectRadar +-- @return #DETECTION_BASE self +function DETECTION_BASE:InitDetectRadar( DetectRadar ) + self:F2() + + self.DetectRadar = DetectRadar +end + +--- Detect IRST. +-- @param #DETECTION_BASE self +-- @param #boolean DetectIRST +-- @return #DETECTION_BASE self +function DETECTION_BASE:InitDetectIRST( DetectIRST ) + self:F2() + + self.DetectIRST = DetectIRST +end + +--- Detect RWR. +-- @param #DETECTION_BASE self +-- @param #boolean DetectRWR +-- @return #DETECTION_BASE self +function DETECTION_BASE:InitDetectRWR( DetectRWR ) + self:F2() + + self.DetectRWR = DetectRWR +end + +--- Detect DLINK. +-- @param #DETECTION_BASE self +-- @param #boolean DetectDLINK +-- @return #DETECTION_BASE self +function DETECTION_BASE:InitDetectDLINK( DetectDLINK ) + self:F2() + + self.DetectDLINK = DetectDLINK +end + +--- Gets the FAC group. +-- @param #DETECTION_BASE self +-- @return Group#GROUP self +function DETECTION_BASE:GetFACGroup() + self:F2() + + return self.FACGroup +end + +--- Get the detected @{Set#SET_BASE}s. +-- @param #DETECTION_BASE self +-- @return #DETECTION_BASE.DetectedSets DetectedSets +function DETECTION_BASE:GetDetectedSets() + + local DetectionSets = self.DetectedSets + return DetectionSets +end + +--- Get the amount of SETs with detected objects. +-- @param #DETECTION_BASE self +-- @return #number Count +function DETECTION_BASE:GetDetectedSetCount() + + local DetectionSetCount = #self.DetectedSets + return DetectionSetCount +end + +--- Get a SET of detected objects using a given numeric index. +-- @param #DETECTION_BASE self +-- @param #number Index +-- @return Set#SET_BASE +function DETECTION_BASE:GetDetectedSet( Index ) + + local DetectionSet = self.DetectedSets[Index] + if DetectionSet then + return DetectionSet + end + + return nil +end + + +--- Make a DetectionSet table. This function will be overridden in the derived clsses. +-- @param #DETECTION_BASE self +-- @return #DETECTION_BASE self +function DETECTION_BASE:CreateDetectionSets() + self:F2() + + self:E( "Error, in DETECTION_BASE class..." ) + +end + +--- Schedule the DETECTION construction. +-- @param #DETECTION_BASE self +-- @param #number DelayTime The delay in seconds to wait the reporting. +-- @param #number RepeatInterval The repeat interval in seconds for the reporting to happen repeatedly. +-- @return #DETECTION_BASE self +function DETECTION_BASE:Schedule( DelayTime, RepeatInterval ) + self:F2() + + self.ScheduleDelayTime = DelayTime + self.ScheduleRepeatInterval = RepeatInterval + + self.DetectionScheduler = SCHEDULER:New(self, self._DetectionScheduler, { self, "Detection" }, DelayTime, RepeatInterval ) + return self +end + + +--- Form @{Set}s of detected @{Unit#UNIT}s in an array of @{Set#SET_BASE}s. +-- @param #DETECTION_BASE self +function DETECTION_BASE:_DetectionScheduler( SchedulerName ) + self:F2( { SchedulerName } ) + + self.DetectedObjects = {} + self.DetectedSets = {} + self.DetectedZones = {} + + if self.FACGroup:IsAlive() then + local FACGroupName = self.FACGroup:GetName() + + local FACDetectedTargets = self.FACGroup:GetDetectedTargets( + self.DetectVisual, + self.DetectOptical, + self.DetectRadar, + self.DetectIRST, + self.DetectRWR, + self.DetectDLINK + ) + + for FACDetectedTargetID, FACDetectedTarget in pairs( FACDetectedTargets ) do + local FACObject = FACDetectedTarget.object -- DCSObject#Object + self:T2( FACObject ) + + if FACObject and FACObject:isExist() and FACObject.id_ < 50000000 then + + local FACDetectedObjectName = FACObject:getName() + + local FACDetectedObjectPositionVec3 = FACObject:getPoint() + local FACGroupPositionVec3 = self.FACGroup:GetPointVec3() + + local Distance = ( ( FACDetectedObjectPositionVec3.x - FACGroupPositionVec3.x )^2 + + ( FACDetectedObjectPositionVec3.y - FACGroupPositionVec3.y )^2 + + ( FACDetectedObjectPositionVec3.z - FACGroupPositionVec3.z )^2 + ) ^ 0.5 / 1000 + + self:T( { FACGroupName, FACDetectedObjectName, Distance } ) + + if Distance <= self.DetectionRange then + + if not self.DetectedObjects[FACDetectedObjectName] then + self.DetectedObjects[FACDetectedObjectName] = {} + end + self.DetectedObjects[FACDetectedObjectName].Name = FACDetectedObjectName + self.DetectedObjects[FACDetectedObjectName].Visible = FACDetectedTarget.visible + self.DetectedObjects[FACDetectedObjectName].Type = FACDetectedTarget.type + self.DetectedObjects[FACDetectedObjectName].Distance = FACDetectedTarget.distance + else + -- if beyond the DetectionRange then nullify... + if self.DetectedObjects[FACDetectedObjectName] then + self.DetectedObjects[FACDetectedObjectName] = nil + end + end + end + end + + self:T2( self.DetectedObjects ) + + -- okay, now we have a list of detected object names ... + -- Sort the table based on distance ... + self:T( { "Sorting DetectedObjects table:", self.DetectedObjects } ) + table.sort( self.DetectedObjects, function( a, b ) return a.Distance < b.Distance end ) + self:T( { "Sorted Targets Table:", self.DetectedObjects } ) + + -- Now group the DetectedObjects table into SET_BASEs, evaluating the DetectionZoneRange. + + if self.DetectedObjects then + self:CreateDetectionSets() + end + + + end +end + +--- @type DETECTION_UNITGROUPS.DetectedSets +-- @list +-- + + +--- @type DETECTION_UNITGROUPS.DetectedZones +-- @list +-- + + +--- DETECTION_UNITGROUPS class +-- @type DETECTION_UNITGROUPS +-- @param DCSTypes#Distance DetectionZoneRange The range till which targets are grouped upon the first detected target. +-- @field #DETECTION_UNITGROUPS.DetectedSets DetectedSets A list of @{Set#SET_UNIT}s containing the units in each set that were detected within a DetectionZoneRange. +-- @field #DETECTION_UNITGROUPS.DetectedZones DetectedZones A list of @{Zone#ZONE_UNIT}s containing the zones of the reference detected units. +-- @extends Detection#DETECTION_BASE +DETECTION_UNITGROUPS = { + ClassName = "DETECTION_UNITGROUPS", + DetectedZones = {}, +} + + + +--- DETECTION_UNITGROUPS constructor. +-- @param Detection#DETECTION_UNITGROUPS self +-- @param Group#GROUP FACGroup The GROUP in the Forward Air Controller role. +-- @param DCSTypes#Distance DetectionRange The range till which targets are accepted to be detected. +-- @param DCSTypes#Distance DetectionZoneRange The range till which targets are grouped upon the first detected target. +-- @return Detection#DETECTION_UNITGROUPS self +function DETECTION_UNITGROUPS:New( FACGroup, DetectionRange, DetectionZoneRange ) + + -- Inherits from DETECTION_BASE + local self = BASE:Inherit( self, DETECTION_BASE:New( FACGroup, DetectionRange ) ) + self.DetectionZoneRange = DetectionZoneRange + + self:Schedule( 10, 30 ) + + return self +end + +--- Get the detected @{Zone#ZONE_UNIT}s. +-- @param #DETECTION_UNITGROUPS self +-- @return #DETECTION_UNITGROUPS.DetectedZones DetectedZones +function DETECTION_UNITGROUPS:GetDetectedZones() + + local DetectedZones = self.DetectedZones + return DetectedZones +end + +--- Get the amount of @{Zone#ZONE_UNIT}s with detected units. +-- @param #DETECTION_UNITGROUPS self +-- @return #number Count +function DETECTION_UNITGROUPS:GetDetectedZoneCount() + + local DetectedZoneCount = #self.DetectedZones + return DetectedZoneCount +end + +--- Get a SET of detected objects using a given numeric index. +-- @param #DETECTION_UNITGROUPS self +-- @param #number Index +-- @return Zone#ZONE_UNIT +function DETECTION_UNITGROUPS:GetDetectedZone( Index ) + + local DetectedZone = self.DetectedZones[Index] + if DetectedZone then + return DetectedZone + end + + return nil +end + +--- Smoke the detected units +-- @param #DETECTION_UNITGROUPS self +-- @return #DETECTION_UNITGROUPS self +function DETECTION_UNITGROUPS:SmokeDetectedUnits() + self:F2() + + self._SmokeDetectedUnits = true + return self +end + +--- Flare the detected units +-- @param #DETECTION_UNITGROUPS self +-- @return #DETECTION_UNITGROUPS self +function DETECTION_UNITGROUPS:FlareDetectedUnits() + self:F2() + + self._FlareDetectedUnits = true + return self +end + +--- Smoke the detected zones +-- @param #DETECTION_UNITGROUPS self +-- @return #DETECTION_UNITGROUPS self +function DETECTION_UNITGROUPS:SmokeDetectedZones() + self:F2() + + self._SmokeDetectedZones = true + return self +end + +--- Flare the detected zones +-- @param #DETECTION_UNITGROUPS self +-- @return #DETECTION_UNITGROUPS self +function DETECTION_UNITGROUPS:FlareDetectedZones() + self:F2() + + self._FlareDetectedZones = true + return self +end + + +--- Make a DetectionSet table. This function will be overridden in the derived clsses. +-- @param #DETECTION_UNITGROUPS self +-- @return #DETECTION_UNITGROUPS self +function DETECTION_UNITGROUPS:CreateDetectionSets() + self:F2() + + for DetectedUnitName, DetectedUnitData in pairs( self.DetectedObjects ) do + self:T( DetectedUnitData.Name ) + local DetectedUnit = UNIT:FindByName( DetectedUnitData.Name ) -- Unit#UNIT + if DetectedUnit and DetectedUnit:IsAlive() then + self:T( DetectedUnit:GetName() ) + if #self.DetectedSets == 0 then + self:T( { "Adding Unit Set #", 1 } ) + self.DetectedZones[1] = ZONE_UNIT:New( DetectedUnitName, DetectedUnit, self.DetectionZoneRange ) + self.DetectedSets[1] = SET_UNIT:New() + self.DetectedSets[1]:AddUnit( DetectedUnit ) + else + local AddedToSet = false + for DetectedZoneIndex = 1, #self.DetectedZones do + self:T( "Detected Unit Set #" .. DetectedZoneIndex ) + local DetectedUnitSet = self.DetectedSets[DetectedZoneIndex] -- Set#SET_BASE + local DetectedZone = self.DetectedZones[DetectedZoneIndex] -- Zone#ZONE_UNIT + if DetectedUnit:IsInZone( DetectedZone ) then + self:T( "Adding to Unit Set #" .. DetectedZoneIndex ) + DetectedUnitSet:AddUnit( DetectedUnit ) + AddedToSet = true + end + end + if AddedToSet == false then + local DetectedZoneIndex = #self.DetectedZones + 1 + self:T( "Adding new zone #" .. DetectedZoneIndex ) + self.DetectedZones[DetectedZoneIndex] = ZONE_UNIT:New( DetectedUnitName, DetectedUnit, self.DetectionZoneRange ) + self.DetectedSets[DetectedZoneIndex] = SET_UNIT:New() + self.DetectedSets[DetectedZoneIndex]:AddUnit( DetectedUnit ) + end + end + end + end + + -- Now all the tests should have been build, now make some smoke and flares... + + for DetectedZoneIndex = 1, #self.DetectedZones do + local DetectedUnitSet = self.DetectedSets[DetectedZoneIndex] -- Set#SET_BASE + local DetectedZone = self.DetectedZones[DetectedZoneIndex] -- Zone#ZONE_UNIT + self:T( "Detected Set #" .. DetectedZoneIndex ) + DetectedUnitSet:ForEachUnit( + --- @param Unit#UNIT DetectedUnit + function( DetectedUnit ) + self:T( DetectedUnit:GetName() ) + if self._FlareDetectedUnits then + DetectedUnit:FlareRed() + end + if self._SmokeDetectedUnits then + DetectedUnit:SmokeRed() + end + end + ) + if self._FlareDetectedZones then + DetectedZone:FlareZone( POINT_VEC3.SmokeColor.White, 30, math.random( 0,90 ) ) + end + if self._SmokeDetectedZones then + DetectedZone:SmokeZone( POINT_VEC3.SmokeColor.White, 30 ) + end + end + +end + + +--- This module contains the FAC classes. +-- +-- === +-- +-- 1) @{Fac#FAC_BASE} class, extends @{Base#BASE} +-- ============================================== +-- The @{Fac#FAC_BASE} class defines the core functions to report detected objects to clients. +-- Reportings can be done in several manners, and it is up to the derived classes if FAC_BASE to model the reporting behaviour. +-- +-- 1.1) FAC_BASE constructor: +-- ---------------------------- +-- * @{Fac#FAC_BASE.New}(): Create a new FAC_BASE instance. +-- +-- 1.2) FAC_BASE reporting: +-- ------------------------ +-- Derived FAC_BASE classes will reports detected units using the method @{Fac#FAC_BASE.ReportDetected}(). This method implements polymorphic behaviour. +-- +-- The time interval in seconds of the reporting can be changed using the methods @{Fac#FAC_BASE.SetReportInterval}(). +-- To control how long a reporting message is displayed, use @{Fac#FAC_BASE.SetReportDisplayTime}(). +-- Derived classes need to implement the method @{Fac#FAC_BASE.GetReportDisplayTime}() to use the correct display time for displayed messages during a report. +-- +-- Reporting can be started and stopped using the methods @{Fac#FAC_BASE.StartReporting}() and @{Fac#FAC_BASE.StopReporting}() respectively. +-- If an ad-hoc report is requested, use the method @{Fac#FAC_BASE#ReportNow}(). +-- +-- The default reporting interval is every 60 seconds. The reporting messages are displayed 15 seconds. +-- +-- === +-- +-- 2) @{Fac#FAC_REPORTING} class, extends @{Fac#FAC_BASE} +-- ====================================================== +-- The @{Fac#FAC_REPORTING} class implements detected units reporting. Reporting can be controlled using the reporting methods available in the @{Fac#FAC_BASE} class. +-- +-- 2.1) FAC_REPORTING constructor: +-- ------------------------------- +-- The @{Fac#FAC_REPORTING.New}() method creates a new FAC_REPORTING instance. +-- +-- === +-- +-- @module Fac +-- @author Mechanic, Prof_Hilactic, FlightControl : Concept & Testing +-- @author FlightControl : Design & Programming + + + +--- FAC_BASE class. +-- @type FAC_BASE +-- @field Set#SET_CLIENT ClientSet The clients to which the FAC will report to. +-- @field Detection#DETECTION_BASE Detection The DETECTION_BASE object that is used to report the detected objects. +-- @extends Base#BASE +FAC_BASE = { + ClassName = "FAC_BASE", + ClientSet = nil, + Detection = nil, +} + +--- FAC constructor. +-- @param #FAC_BASE self +-- @param Set#SET_CLIENT ClientSet +-- @param Detection#DETECTION_BASE Detection +-- @return #FAC_BASE self +function FAC_BASE:New( ClientSet, Detection ) + + -- Inherits from BASE + local self = BASE:Inherit( self, BASE:New() ) -- Fac#FAC_BASE + + self.ClientSet = ClientSet + self.Detection = Detection + + self:SetReportInterval( 60 ) + self:SetReportDisplayTime( 15 ) + + return self +end + +--- Set the reporting time interval. +-- @param #FAC_BASE self +-- @param #number ReportInterval The interval in seconds when a report needs to be done. +-- @return #FAC_BASE self +function FAC_BASE:SetReportInterval( ReportInterval ) + self:F2() + + self._ReportInterval = ReportInterval +end + + +--- Set the reporting message display time. +-- @param #FAC_BASE self +-- @param #number ReportDisplayTime The display time in seconds when a report needs to be done. +-- @return #FAC_BASE self +function FAC_BASE:SetReportDisplayTime( ReportDisplayTime ) + self:F2() + + self._ReportDisplayTime = ReportDisplayTime +end + +--- Get the reporting message display time. +-- @param #FAC_BASE self +-- @return #number ReportDisplayTime The display time in seconds when a report needs to be done. +function FAC_BASE:GetReportDisplayTime() + self:F2() + + return self._ReportDisplayTime +end + +--- Reports the detected items to the @{Set#SET_CLIENT}. +-- @param #FAC_BASE self +-- @param Set#SET_BASE DetectedSets The detected Sets created by the @{Detection#DETECTION_BASE} object. +-- @return #FAC_BASE self +function FAC_BASE:ReportDetected( DetectedSets ) + self:F2() + + + +end + +--- Schedule the FAC reporting. +-- @param #FAC_BASE self +-- @param #number DelayTime The delay in seconds to wait the reporting. +-- @param #number ReportInterval The repeat interval in seconds for the reporting to happen repeatedly. +-- @return #FAC_BASE self +function FAC_BASE:Schedule( DelayTime, ReportInterval ) + self:F2() + + self._ScheduleDelayTime = DelayTime + + self:SetReportInterval( ReportInterval ) + + self.FacScheduler = SCHEDULER:New(self, self._FacScheduler, { self, "Fac" }, self._ScheduleDelayTime, self._ReportInterval ) + return self +end + +--- Report the detected @{Unit#UNIT}s detected within the @{DetectION#DETECTION_BASE} object to the @{Set#SET_CLIENT}s. +-- @param #FAC_BASE self +function FAC_BASE:_FacScheduler( SchedulerName ) + self:F2( { SchedulerName } ) + + self.ClientSet:ForEachClient( + --- @param Client#CLIENT Client + function( Client ) + if Client:IsAlive() then + local DetectedSets = self.Detection:GetDetectedSets() + return self:ReportDetected( Client, DetectedSets ) + end + end + ) + + return true +end + +-- FAC_REPORTING + +--- FAC_REPORTING class. +-- @type FAC_REPORTING +-- @field Set#SET_CLIENT ClientSet The clients to which the FAC will report to. +-- @field Detection#DETECTION_BASE Detection The DETECTION_BASE object that is used to report the detected objects. +-- @extends #FAC_BASE +FAC_REPORTING = { + ClassName = "FAC_REPORTING", +} + + +--- FAC_REPORTING constructor. +-- @param #FAC_REPORTING self +-- @param Set#SET_CLIENT ClientSet +-- @param Detection#DETECTION_BASE Detection +-- @return #FAC_REPORTING self +function FAC_REPORTING:New( ClientSet, Detection ) + + -- Inherits from FAC_BASE + local self = BASE:Inherit( self, FAC_BASE:New( ClientSet, Detection ) ) -- #FAC_REPORTING + + self:Schedule( 5, 60 ) + return self +end + + +--- Reports the detected items to the @{Set#SET_CLIENT}. +-- @param #FAC_REPORTING self +-- @param Client#CLIENT Client The @{Client} object to where the report needs to go. +-- @param Set#SET_BASE DetectedSets The detected Sets created by the @{Detection#DETECTION_BASE} object. +-- @return #boolean Return true if you want the reporting to continue... false will cancel the reporting loop. +function FAC_REPORTING:ReportDetected( Client, DetectedSets ) + self:F2( Client ) + + local DetectedMsg = {} + for DetectedUnitSetID, DetectedUnitSet in pairs( DetectedSets ) do + local UnitSet = DetectedUnitSet -- Set#SET_UNIT + local MT = {} -- Message Text + local UnitTypes = {} + for DetectedUnitID, DetectedUnitData in pairs( UnitSet:GetSet() ) do + local DetectedUnit = DetectedUnitData -- Unit#UNIT + local UnitType = DetectedUnit:GetTypeName() + if not UnitTypes[UnitType] then + UnitTypes[UnitType] = 1 + else + UnitTypes[UnitType] = UnitTypes[UnitType] + 1 + end + end + for UnitTypeID, UnitType in pairs( UnitTypes ) do + MT[#MT+1] = UnitType .. " of " .. UnitTypeID + end + local MessageText = table.concat( MT, ", " ) + DetectedMsg[#DetectedMsg+1] = " - Group #" .. DetectedUnitSetID .. ": " .. MessageText + end + local FACGroup = self.Detection:GetFACGroup() + FACGroup:MessageToClient( "Reporting detected target groups:\n" .. table.concat( DetectedMsg, "\n" ), self:GetReportDisplayTime(), Client ) + + return true +end + + +BASE:TraceOnOff( false ) env.info( '*** MOOSE INCLUDE END *** ' ) From 2faef0e85b964abe275a35aa72611abdfb2a2ffc Mon Sep 17 00:00:00 2001 From: HellRayzr Date: Fri, 8 Jul 2016 01:08:02 +0200 Subject: [PATCH 3/7] Added ANAPA and 2nd runway at TBLISI-LOCHINI --- Moose Development/Moose/AirbasePolice.lua | 49 ++++++++++++------ .../l10n/DEFAULT/Moose.lua | 37 +++++++------ Moose Mission Setup/Moose.lua | 37 +++++++------ .../Moose_Test_AIRBASEPOLICE-DB.miz | Bin 190629 -> 199605 bytes 4 files changed, 72 insertions(+), 51 deletions(-) diff --git a/Moose Development/Moose/AirbasePolice.lua b/Moose Development/Moose/AirbasePolice.lua index e5afa261d..867838846 100644 --- a/Moose Development/Moose/AirbasePolice.lua +++ b/Moose Development/Moose/AirbasePolice.lua @@ -86,15 +86,15 @@ function AIRBASEPOLICE_BASE:New( SetClient, Airbases ) Airbase.ZoneBoundary = ZONE_POLYGON_BASE:New( "Boundary", Airbase.PointsBoundary ):SmokeZone(POINT_VEC3.SmokeColor.White):Flush() for PointsRunwayID, PointsRunway in pairs( Airbase.PointsRunways ) do Airbase.ZoneRunways[PointsRunwayID] = ZONE_POLYGON_BASE:New( "Runway " .. PointsRunwayID, PointsRunway ):SmokeZone(POINT_VEC3.SmokeColor.Red):Flush() - end + end end - -- -- Template - -- local TemplateBoundary = GROUP:FindByName( "Template Boundary" ) - -- self.Airbases.Template.ZoneBoundary = ZONE_POLYGON:New( "Template Boundary", TemplateBoundary ):SmokeZone(POINT_VEC3.SmokeColor.White):Flush() - -- - -- local TemplateRunway1 = GROUP:FindByName( "Template Runway 1" ) - -- self.Airbases.Template.ZoneRunways[1] = ZONE_POLYGON:New( "Template Runway 1", TemplateRunway1 ):SmokeZone(POINT_VEC3.SmokeColor.Red):Flush() + -- Template + local TemplateBoundary = GROUP:FindByName( "Template Boundary" ) + self.Airbases.Template.ZoneBoundary = ZONE_POLYGON:New( "Template Boundary", TemplateBoundary ):SmokeZone(POINT_VEC3.SmokeColor.White):Flush() + + local TemplateRunway1 = GROUP:FindByName( "Template Runway 1" ) + self.Airbases.Template.ZoneRunways[1] = ZONE_POLYGON:New( "Template Runway 1", TemplateRunway1 ):SmokeZone(POINT_VEC3.SmokeColor.Red):Flush() self.SetClient:ForEachClient( --- @param Client#CLIENT Client @@ -183,7 +183,7 @@ function AIRBASEPOLICE_BASE:_AirbaseMonitor() end else - Client:Message( "You are speeding on the taxiway! Slow down please ...! Your current velocity is " .. string.format( "%2.0f km/h", Velocity ), 5, "Attention! " ) + Client:Message( "You are speeding on the taxiway, slow down now! Your current velocity is " .. string.format( "%2.0f km/h", Velocity ), 5, "Attention! " ) Client:SetState( self, "Speeding", true ) Client:SetState( self, "Warnings", 1 ) end @@ -232,6 +232,11 @@ AIRBASEPOLICE_CAUCASUS = { }, PointsRunways = { [1] = { + [1]={["y"]=242140.57142858,["x"]=-6478.8571428583,}, + [2]={["y"]=242188.57142858,["x"]=-6522.0000000011,}, + [3]={["y"]=244124.2857143,["x"]=-4344.0000000011,}, + [4]={["y"]=244068.2857143,["x"]=-4296.5714285726,}, + [5]={["y"]=242140.57142858,["x"]=-6480.0000000011,} }, }, ZoneBoundary = {}, @@ -689,6 +694,13 @@ AIRBASEPOLICE_CAUCASUS = { [4]={["y"]=895327.42857143,["x"]=-314568.85714286,}, [5]={["y"]=895261.71428572,["x"]=-314656,}, }, + [2] = { + [1]={["y"]=895605.71428572,["x"]=-314724.57142857,}, + [2]={["y"]=897639.71428572,["x"]=-316148,}, + [3]={["y"]=897683.42857143,["x"]=-316087.14285714,}, + [4]={["y"]=895650,["x"]=-314660,}, + [5]={["y"]=895606,["x"]=-314724.85714286,} + }, }, ZoneBoundary = {}, ZoneRunways = {}, @@ -733,10 +745,10 @@ function AIRBASEPOLICE_CAUCASUS:New( SetClient ) -- -- AnapaVityazevo -- local AnapaVityazevoBoundary = GROUP:FindByName( "AnapaVityazevo Boundary" ) -- self.Airbases.AnapaVityazevo.ZoneBoundary = ZONE_POLYGON:New( "AnapaVityazevo Boundary", AnapaVityazevoBoundary ):SmokeZone(POINT_VEC3.SmokeColor.White):Flush() - -- + -- -- local AnapaVityazevoRunway1 = GROUP:FindByName( "AnapaVityazevo Runway 1" ) -- self.Airbases.AnapaVityazevo.ZoneRunways[1] = ZONE_POLYGON:New( "AnapaVityazevo Runway 1", AnapaVityazevoRunway1 ):SmokeZone(POINT_VEC3.SmokeColor.Red):Flush() - -- + -- -- -- -- -- Batumi @@ -908,9 +920,12 @@ function AIRBASEPOLICE_CAUCASUS:New( SetClient ) -- -- TbilisiLochini -- local TbilisiLochiniBoundary = GROUP:FindByName( "TbilisiLochini Boundary" ) -- self.Airbases.TbilisiLochini.ZoneBoundary = ZONE_POLYGON:New( "TbilisiLochini Boundary", TbilisiLochiniBoundary ):SmokeZone(POINT_VEC3.SmokeColor.White):Flush() - -- + -- -- local TbilisiLochiniRunway1 = GROUP:FindByName( "TbilisiLochini Runway 1" ) -- self.Airbases.TbilisiLochini.ZoneRunways[1] = ZONE_POLYGON:New( "TbilisiLochini Runway 1", TbilisiLochiniRunway1 ):SmokeZone(POINT_VEC3.SmokeColor.Red):Flush() + -- + -- local TbilisiLochiniRunway2 = GROUP:FindByName( "TbilisiLochini Runway 2" ) + -- self.Airbases.TbilisiLochini.ZoneRunways[2] = ZONE_POLYGON:New( "TbilisiLochini Runway 2", TbilisiLochiniRunway2 ):SmokeZone(POINT_VEC3.SmokeColor.Red):Flush() -- -- -- @@ -925,12 +940,12 @@ function AIRBASEPOLICE_CAUCASUS:New( SetClient ) -- - -- -- Template - -- local TemplateBoundary = GROUP:FindByName( "Template Boundary" ) - -- self.Airbases.Template.ZoneBoundary = ZONE_POLYGON:New( "Template Boundary", TemplateBoundary ):SmokeZone(POINT_VEC3.SmokeColor.White):Flush() - -- - -- local TemplateRunway1 = GROUP:FindByName( "Template Runway 1" ) - -- self.Airbases.Template.ZoneRunways[1] = ZONE_POLYGON:New( "Template Runway 1", TemplateRunway1 ):SmokeZone(POINT_VEC3.SmokeColor.Red):Flush() + -- Template + -- local TemplateBoundary = GROUP:FindByName( "Template Boundary" ) + -- self.Airbases.Template.ZoneBoundary = ZONE_POLYGON:New( "Template Boundary", TemplateBoundary ):SmokeZone(POINT_VEC3.SmokeColor.White):Flush() + -- + -- local TemplateRunway1 = GROUP:FindByName( "Template Runway 1" ) + -- self.Airbases.Template.ZoneRunways[1] = ZONE_POLYGON:New( "Template Runway 1", TemplateRunway1 ):SmokeZone(POINT_VEC3.SmokeColor.Red):Flush() return self diff --git a/Moose Mission Setup/Moose Mission Update/l10n/DEFAULT/Moose.lua b/Moose Mission Setup/Moose Mission Update/l10n/DEFAULT/Moose.lua index f532c477e..f1f72fe28 100644 --- a/Moose Mission Setup/Moose Mission Update/l10n/DEFAULT/Moose.lua +++ b/Moose Mission Setup/Moose Mission Update/l10n/DEFAULT/Moose.lua @@ -1,5 +1,5 @@ env.info( '*** MOOSE STATIC INCLUDE START *** ' ) -env.info( 'Moose Generation Timestamp: 20160707_2143' ) +env.info( 'Moose Generation Timestamp: 20160707_2350' ) local base = _G Include = {} @@ -22673,11 +22673,11 @@ function AIRBASEPOLICE_CAUCASUS:New( SetClient ) local self = BASE:Inherit( self, AIRBASEPOLICE_BASE:New( SetClient, self.Airbases ) ) -- -- AnapaVityazevo - -- local AnapaVityazevoBoundary = GROUP:FindByName( "AnapaVityazevo Boundary" ) - -- self.Airbases.AnapaVityazevo.ZoneBoundary = ZONE_POLYGON:New( "AnapaVityazevo Boundary", AnapaVityazevoBoundary ):SmokeZone(POINT_VEC3.SmokeColor.White):Flush() - -- - -- local AnapaVityazevoRunway1 = GROUP:FindByName( "AnapaVityazevo Runway 1" ) - -- self.Airbases.AnapaVityazevo.ZoneRunways[1] = ZONE_POLYGON:New( "AnapaVityazevo Runway 1", AnapaVityazevoRunway1 ):SmokeZone(POINT_VEC3.SmokeColor.Red):Flush() + local AnapaVityazevoBoundary = GROUP:FindByName( "AnapaVityazevo Boundary" ) + self.Airbases.AnapaVityazevo.ZoneBoundary = ZONE_POLYGON:New( "AnapaVityazevo Boundary", AnapaVityazevoBoundary ):SmokeZone(POINT_VEC3.SmokeColor.White):Flush() + + local AnapaVityazevoRunway1 = GROUP:FindByName( "AnapaVityazevo Runway 1" ) + self.Airbases.AnapaVityazevo.ZoneRunways[1] = ZONE_POLYGON:New( "AnapaVityazevo Runway 1", AnapaVityazevoRunway1 ):SmokeZone(POINT_VEC3.SmokeColor.Red):Flush() -- -- -- @@ -22848,11 +22848,14 @@ function AIRBASEPOLICE_CAUCASUS:New( SetClient ) -- -- -- -- TbilisiLochini - -- local TbilisiLochiniBoundary = GROUP:FindByName( "TbilisiLochini Boundary" ) - -- self.Airbases.TbilisiLochini.ZoneBoundary = ZONE_POLYGON:New( "TbilisiLochini Boundary", TbilisiLochiniBoundary ):SmokeZone(POINT_VEC3.SmokeColor.White):Flush() - -- - -- local TbilisiLochiniRunway1 = GROUP:FindByName( "TbilisiLochini Runway 1" ) - -- self.Airbases.TbilisiLochini.ZoneRunways[1] = ZONE_POLYGON:New( "TbilisiLochini Runway 1", TbilisiLochiniRunway1 ):SmokeZone(POINT_VEC3.SmokeColor.Red):Flush() + local TbilisiLochiniBoundary = GROUP:FindByName( "TbilisiLochini Boundary" ) + self.Airbases.TbilisiLochini.ZoneBoundary = ZONE_POLYGON:New( "TbilisiLochini Boundary", TbilisiLochiniBoundary ):SmokeZone(POINT_VEC3.SmokeColor.White):Flush() + + local TbilisiLochiniRunway1 = GROUP:FindByName( "TbilisiLochini Runway 1" ) + self.Airbases.TbilisiLochini.ZoneRunways[1] = ZONE_POLYGON:New( "TbilisiLochini Runway 1", TbilisiLochiniRunway1 ):SmokeZone(POINT_VEC3.SmokeColor.Red):Flush() + + local TbilisiLochiniRunway2 = GROUP:FindByName( "TbilisiLochini Runway 2" ) + self.Airbases.TbilisiLochini.ZoneRunways[2] = ZONE_POLYGON:New( "TbilisiLochini Runway 2", TbilisiLochiniRunway2 ):SmokeZone(POINT_VEC3.SmokeColor.Red):Flush() -- -- -- @@ -22867,12 +22870,12 @@ function AIRBASEPOLICE_CAUCASUS:New( SetClient ) -- - -- -- Template - -- local TemplateBoundary = GROUP:FindByName( "Template Boundary" ) - -- self.Airbases.Template.ZoneBoundary = ZONE_POLYGON:New( "Template Boundary", TemplateBoundary ):SmokeZone(POINT_VEC3.SmokeColor.White):Flush() - -- - -- local TemplateRunway1 = GROUP:FindByName( "Template Runway 1" ) - -- self.Airbases.Template.ZoneRunways[1] = ZONE_POLYGON:New( "Template Runway 1", TemplateRunway1 ):SmokeZone(POINT_VEC3.SmokeColor.Red):Flush() + -- Template + local TemplateBoundary = GROUP:FindByName( "Template Boundary" ) + self.Airbases.Template.ZoneBoundary = ZONE_POLYGON:New( "Template Boundary", TemplateBoundary ):SmokeZone(POINT_VEC3.SmokeColor.White):Flush() + + local TemplateRunway1 = GROUP:FindByName( "Template Runway 1" ) + self.Airbases.Template.ZoneRunways[1] = ZONE_POLYGON:New( "Template Runway 1", TemplateRunway1 ):SmokeZone(POINT_VEC3.SmokeColor.Red):Flush() return self diff --git a/Moose Mission Setup/Moose.lua b/Moose Mission Setup/Moose.lua index f532c477e..f1f72fe28 100644 --- a/Moose Mission Setup/Moose.lua +++ b/Moose Mission Setup/Moose.lua @@ -1,5 +1,5 @@ env.info( '*** MOOSE STATIC INCLUDE START *** ' ) -env.info( 'Moose Generation Timestamp: 20160707_2143' ) +env.info( 'Moose Generation Timestamp: 20160707_2350' ) local base = _G Include = {} @@ -22673,11 +22673,11 @@ function AIRBASEPOLICE_CAUCASUS:New( SetClient ) local self = BASE:Inherit( self, AIRBASEPOLICE_BASE:New( SetClient, self.Airbases ) ) -- -- AnapaVityazevo - -- local AnapaVityazevoBoundary = GROUP:FindByName( "AnapaVityazevo Boundary" ) - -- self.Airbases.AnapaVityazevo.ZoneBoundary = ZONE_POLYGON:New( "AnapaVityazevo Boundary", AnapaVityazevoBoundary ):SmokeZone(POINT_VEC3.SmokeColor.White):Flush() - -- - -- local AnapaVityazevoRunway1 = GROUP:FindByName( "AnapaVityazevo Runway 1" ) - -- self.Airbases.AnapaVityazevo.ZoneRunways[1] = ZONE_POLYGON:New( "AnapaVityazevo Runway 1", AnapaVityazevoRunway1 ):SmokeZone(POINT_VEC3.SmokeColor.Red):Flush() + local AnapaVityazevoBoundary = GROUP:FindByName( "AnapaVityazevo Boundary" ) + self.Airbases.AnapaVityazevo.ZoneBoundary = ZONE_POLYGON:New( "AnapaVityazevo Boundary", AnapaVityazevoBoundary ):SmokeZone(POINT_VEC3.SmokeColor.White):Flush() + + local AnapaVityazevoRunway1 = GROUP:FindByName( "AnapaVityazevo Runway 1" ) + self.Airbases.AnapaVityazevo.ZoneRunways[1] = ZONE_POLYGON:New( "AnapaVityazevo Runway 1", AnapaVityazevoRunway1 ):SmokeZone(POINT_VEC3.SmokeColor.Red):Flush() -- -- -- @@ -22848,11 +22848,14 @@ function AIRBASEPOLICE_CAUCASUS:New( SetClient ) -- -- -- -- TbilisiLochini - -- local TbilisiLochiniBoundary = GROUP:FindByName( "TbilisiLochini Boundary" ) - -- self.Airbases.TbilisiLochini.ZoneBoundary = ZONE_POLYGON:New( "TbilisiLochini Boundary", TbilisiLochiniBoundary ):SmokeZone(POINT_VEC3.SmokeColor.White):Flush() - -- - -- local TbilisiLochiniRunway1 = GROUP:FindByName( "TbilisiLochini Runway 1" ) - -- self.Airbases.TbilisiLochini.ZoneRunways[1] = ZONE_POLYGON:New( "TbilisiLochini Runway 1", TbilisiLochiniRunway1 ):SmokeZone(POINT_VEC3.SmokeColor.Red):Flush() + local TbilisiLochiniBoundary = GROUP:FindByName( "TbilisiLochini Boundary" ) + self.Airbases.TbilisiLochini.ZoneBoundary = ZONE_POLYGON:New( "TbilisiLochini Boundary", TbilisiLochiniBoundary ):SmokeZone(POINT_VEC3.SmokeColor.White):Flush() + + local TbilisiLochiniRunway1 = GROUP:FindByName( "TbilisiLochini Runway 1" ) + self.Airbases.TbilisiLochini.ZoneRunways[1] = ZONE_POLYGON:New( "TbilisiLochini Runway 1", TbilisiLochiniRunway1 ):SmokeZone(POINT_VEC3.SmokeColor.Red):Flush() + + local TbilisiLochiniRunway2 = GROUP:FindByName( "TbilisiLochini Runway 2" ) + self.Airbases.TbilisiLochini.ZoneRunways[2] = ZONE_POLYGON:New( "TbilisiLochini Runway 2", TbilisiLochiniRunway2 ):SmokeZone(POINT_VEC3.SmokeColor.Red):Flush() -- -- -- @@ -22867,12 +22870,12 @@ function AIRBASEPOLICE_CAUCASUS:New( SetClient ) -- - -- -- Template - -- local TemplateBoundary = GROUP:FindByName( "Template Boundary" ) - -- self.Airbases.Template.ZoneBoundary = ZONE_POLYGON:New( "Template Boundary", TemplateBoundary ):SmokeZone(POINT_VEC3.SmokeColor.White):Flush() - -- - -- local TemplateRunway1 = GROUP:FindByName( "Template Runway 1" ) - -- self.Airbases.Template.ZoneRunways[1] = ZONE_POLYGON:New( "Template Runway 1", TemplateRunway1 ):SmokeZone(POINT_VEC3.SmokeColor.Red):Flush() + -- Template + local TemplateBoundary = GROUP:FindByName( "Template Boundary" ) + self.Airbases.Template.ZoneBoundary = ZONE_POLYGON:New( "Template Boundary", TemplateBoundary ):SmokeZone(POINT_VEC3.SmokeColor.White):Flush() + + local TemplateRunway1 = GROUP:FindByName( "Template Runway 1" ) + self.Airbases.Template.ZoneRunways[1] = ZONE_POLYGON:New( "Template Runway 1", TemplateRunway1 ):SmokeZone(POINT_VEC3.SmokeColor.Red):Flush() return self diff --git a/Moose Test Missions/Moose_Test_AIRBASEPOLICE/Moose_Test_AIRBASEPOLICE-DB.miz b/Moose Test Missions/Moose_Test_AIRBASEPOLICE/Moose_Test_AIRBASEPOLICE-DB.miz index c5fc217be88f6e8233c1d4124ae1a75136bd312f..628b4b8978d3896fad889c9c473f2cb2509b7773 100644 GIT binary patch delta 185301 zcmV(zK<2-t(F?Vg46xfO4T4XPKg>u10ACXg02Y^FYyuUN{VJe;-#%EO7-Na~Co@cpuF;33T%R!cwc{T<#(8wY#_wqc;596YU z&f;IPPkU)}I*x~b?NKx?;*PFv?^BsagHmK8akzidHzXE4r;cB9U=9@0B&Ze=9x=?) zRw)MOQF<1O@;okL3)!1Qf6MaU;=BMZZ;4Hwm85l9r?X@{lxZ6qiq^0D=l&~2#=R+% zaj_<3?_CfVy5e9Ki5Vn!MO+Sgj3tjWT6hKz;xSZvwAP`82r98@lyuNpo`@T{t1cW$X0Iewc()iLP zdnJf_%K`#_%t(rPk`CifU2zeOXR-Vc(QZ_0=lBMy1{5;WcTv*D}aYqP=SYsg-Dz!*|B#8CVSW=zJ&qCHKzsC|)SEQK~ z^~oeoODWxxNGi`V6L~xxM}t^oa=c4s5MMqNWeybUDxo1OA(;$_r6IX3B%uP8ofS@` zeQQg!5KRkZOg6<7&(iUgxXkj8g#ejAsN(m40lVK9Rf&$t=^{a0QN6OFg;f@ZrW#RQ zQF(rU4O<%00;z;|k2Q`T#WMhGeQBvGluUP}NLq2m_75}Ods5g-+1ex?4-0Ar5hu&K z#2F^a9Ax5ZI-8uvIUC;+hDyDAtcz>9-nAA$lo|CpqF;pV{gy%p3PiSMGAl}P8iU9o zl3P>bjR!gRCj%>5%aLe$U2#_SNR_kgHu6?~=8=FBZ(AK9yV1)!&9ZSErL9hfb6#P6 z_gJI%`3mJ1z_z-YFLm;TQrVMJ)*vd|s>z*Y%BUKtj8gw@^N8G5leW$8rSGu8;TEUK z*r+0@eZZWGrAZ*pqv8c*Sa2I#?A&)N?`nVKh5%Tscr zF1tyeY0IRh_w-cAJ8)hHnW=MC^m-vBe#c!#JtmP-Q`C~KHNzDSSQK_%BU28VCs%-y zxcS<`u%QF6EfJMu5>i>GVVx=gVi=!)&dz$Upo&kU!N+z-beQ^IvGf1D$@{v+4PK`c z6=+9W%?_X@4yJc&e43iWb|h;$6`N;CuB`>k$kiem#Z>jGKz3U0S4>Km-Q1uopmHgQ z1qh(jVn*^5L972G{|6dCx7$vaMcrgscvEF1$H;j#ixgNj9hO)_X{*buPGxm}V)~#k zU8KiWQ8TZ>a*h&v(pa0wPHz41_f}UB2D5bVI@Fl<9)HVhH$KZ_hqDow->hr#`^mFE zu0NHvo%g1RL03U`91W8wU5rd2dMc6DA(JZ{xi;-*uMRmnN@e&cK_dEjV-cnoaa=aR zwcguY|LKo)*j^p>vqJ>rxLzH9GCZ#ipUk6YBRMJ6e!;*yCRmHd3l z2{Lnv-?r#u{98QOXv@DgmC}Hpz0bbN`0`2Chgot-f2DtazGg~fF67mJHLh@zQd~xb zhz8|Mu4%92!Zwei;gz_MMD)A?xq#?RAbLYqq3D+EgQ_+d?JD)kY6zfby}FyAY2MH@ zUv^4}n6X@=m<}cggUk_B9v(c!C+4fR2{F|(oQbEhEqX`yf zN?i-u<0u{W&f@ZA4AugF*3^*`sl?q`mK#2{mMn;{5?x1dEycAYyEF%8NGZ;LlAc1GOHr1Tuf?z@ zE(TeiOY=rrl*0smfc)ZKDls-1XVS)z(aedY`+9@DqR$0Q~)~v0`#B6y5S|qv7zT-9L3XFiRsc* z%W+pe8$r2Dg29x3uXv^SCjl!g8zzM$dw~0(G?j|exV((z3bnkPw)t}C-;_t2&3Uw0$D^CIMrB;tjH@Q?Q*C@P|9s(pB$-Ud@o_eTLK0kN%aM2% zmC1$V$Z(3=r#WQ9njwNQ2vRtV2gyVZ5Zv^ICKd^naG^(%n=WWYuOcv4sd5R>g^FcE zgrHG4nT^3pe763-ZJ-Dy8qC#Z5R917ILmSLSBic&mQe@7P9MO^sZceyNdWNct%OZ*%3x!m>@y}H^l9V+K1EFf^Q??YT+PGvUyo0JIM3l5RzL%#p5-sFhSz;94RF0T{X;N+ zY5x$n4KW%1+D*>#XnJ1N;SCG2EPu;r9aDiYfEl*BzG;DTCAOrurx??QN%7}3XqS|Q zbv$!k5%lM7YI>zuAFRqX)8D<5na>~nPR^{mhtKWAj|REy(n*re${4&-_5tD~08+$% zgDf2a2$>Xc`ixcth=+#GaBdZ2kPcBKXK6A@22l#O@>x2Em-AVDvGR89+M1*yB#NzGEPF}v}Z1|S2<6jT6*NlNSL zQgV_Cbe{ZSony(;Di*BB0%$CfoHbRzV3CcNOr}#aSn~{V^AkJ^NLsqMWVUjl4_~wK z@Icc?gen$OlG`Sk*0Dup!U;|fL8)(B%xelW5UZ7kOMz}1HB$9Zl>$uT6lCdtA_@r2 zn!@Z;KvIV|w!|N-+^m?kt?N(DA~>Khi)@WY(cPT}Je1-`!Rx$HNcn8^e}!szO9v zCc_doQ8!`JM`8wi>(6?d&(;Nh%sNpi7XXohl6v9~U8F7k6v4tMToI~IDgg?#=cvPL8Jh45&C z%+OMJ=tp>H$@VWhv=qy3G_+WC_dB%wioV*=vK9Not8T>HX0SN5IRmCT20WWerI6DJ3CbD<~;DJr|jOM3W~20e)vC?r8w1TyzluFjqr$37iJu*96N?b17r!AbgpO z#}ec+x`KT+k;YLT%YroEvBaxGAnW6#7c|#?Id;x6t-J~tbI*gF_^x68loS`@P?#{e2wMVOnt)nq%^Nyx}*T6aR`X-2Q0h0Gd%NQ-dTJ2)z{gM+qr-hjk>z@?9cJdlt_XoCL;OJ8MN^UY5>n_z|Q zo-l0B@C>uPjOQ0-n-SfjmA~ll)oemdkZEgcxI-*gSdwY+MJ!drxg4b97`7@+heX5S z9^}2GEawQlBiWb?!5v5|k>A^C?c5X~7fM|@{i~)z1=LG_hB}9*j-WQ4kflhAvu7KR zVXqdFJIbOPk9woFO;HE4msvg@`ps!8%zQ+erswe_yNK&rpOE(yNZZHws%zS79C@k2 zm=!OKle!d1)^t#foD;wb=GzrO^iEcZF7nBkVAxLdBj(5C9!lfHP??8t+>oO;IgQ{* z07VT$BZ25H+*canTCj!EFVIEl@qd6%SVoFC(d9R;{cCFwSYVf1e< zk!6#%g_B71I!otCk?~@@Vh`|dX-H8!IAXQ= z+*UbjP7|L%%|G%azL8`KQ`sjjabX2DfrD-l72+~~mh&ojyvrF@8c(qE_q0}1c@0j7 zJD_R|vw(2E8=(PUn10eMxBH1tH03{P)k52n-hN~S%yr}N>Tob|cs@5+$}3Yub}WB7 zPE=nebd1bij(XVo8VT1f?;w*jTJRT}Wf;3Rc|JDEuzVn<5^~q#amh6KRT=3u|x$*j6;hw)$H_2$ zA&o5ibuyJ2knf*ePW7~PIqfl#)uWYgvWt)8=*n!T*ulQ>wF3|ErBLh8UoBW^&`X<17{VhJYKGU zsx?O(nTR%1)bY}~4%Q+D<^yOcu*(zF{4<;#NEX!Ie^qG1arL7plo)lAJ!bw@J) z81l6l?VwCU7}NO((|UYz7X0WUgBx5QqElFMRWn3ghDr|;a151%Y99b+YpB*-uN0DN z+ewzzwsu!#hl*arwblI=hii)mQbkCAu8-r9*KCy|YIDYQb?s69!Q2YbGd^5neOA7p z%42trrpj>i48#EeCps`c%Yw`V)PqKrL~napt}hihz@imLSJISLzns!NWp~~+x_FL$ zeft`)E2XAZ?((m`O#F)a)vk>}^`It%m1v#*i_kKQ&@N<%DS2akeZ7Jg+G8+(=xYp8cRmr`}# zY8be)FusE63OmM47B%S~C_OlT{6*`9EO-PL%?x2$78sV2h)4eVHK;r>FY|-Stf8U8 zn;JzFfNQFIxaRTo4w!oXQYz=?2aWSxYMhM+jq_DBPE&<*ZyEU{hS zgH{{nYI~Mk?lqMDL|;_4%l5?V)cGapY^CrJs8j>2M+m~u2l)}tSw=FgJu6~Z0u^>l zA);YYz?}=sGBTuL#g^IBP*THkoGnn>JrN#u(ryB7&bn>XRamCE0PYn#t_F08KeIj0 zdURqLa_e$Y~9)9;2``Hgn;BFeVH4nOc ze@08C>`^OBBxg9`x7*5`z%v*^(EHRu$JVwsEm+p)j`DOBf7YXa{)u?j+cculoZc_* zTAy0)akA6(LXl@(@vimR&G?KN*Il;5VcWM%ot8&tW8-FssJp{x^ys}UD>iCPD{75&{a6C0kJdvnYtoUX$edxsa%Gp0H*DDb=hucO#I zG6kI*gy(I%<)+)I(bl$g5i2>?5F*A)3X-n&u{Jx1*By%vPc{94PPGD3Bro?M4qTVW=D*p?u!=~N?ttUWqU8B1#K zIbh7#`B~@tc0V)gDowE0OEu?fMHZ)VZC}oj$fW4Uc^)O{Z_zk$E&>fmk(87TE4Km; z>D8Gb_G%0_sdV5h3<)+E#8diG2?yRd65~Rh+a4D75Rg0OyJg1;N#-~^zNm@wOv>i5ebyLWL!8yCi`{a4*qo+=hmT^c4KZY!EQy#a;(N?I5D<=8gto%dU4r}e?xmOU~KK1h=a+{ z;}b`%+lvmSbWfdegGMD%?=$M1!CVcdsC_vCj#KWjtFKHdD^@*8sf9skmg*Y2md{tp z-zqf2Xl)mq1&r?#QT?^G{atBvXPLRh7o!aozTv}-^u6mAr;IM)yFEDeMcCf}R0DA; zl?KIsqsHC`b{U=~=m}w*58xhN(RQw!Nb=A@3Sr+pdvBNQD$DpKpS(PJbFd38qGwqq zCGT`rg65L>c?`~EkxV)3Dy@|bW7%NImw0WOXW6I#tp=#rg%MB&a$u*%XXt!(#)F1- zktjQMkwiWtKvR3t}rs< zI4MgEk(CMXO-Zu^tgy>o4;!mvS7K@Ch1cpLRlC!h>Uz0*F%Fjz-*1tH;Of^23di$D zze72u-d(d60dfmOr4a2`M}7PT@xW-cnp*6h;yjy;hbpo#_!A>SaOwu{s4|wC!Cbk2 zUq?p#3>y-I@vKNLV(;3PLtOoin-)e(yUD_caY0=$o#fvk5>lLswPdGhCNMP$Aou#$s$vLvB` zmlG=@qdEc?U`!?=ir@lLp}RScM-l?;{!IbD)znYo0sH?D*8qhNmIm6(@c(Eb!D|I7 zGFw;BuGdhF++hsShsvac;Oa?g!ntBebBDkbK9d984aMs9zp?`gU6Q-kM z>Un>;?e_k>g{ZKcVs54Js5)Pp*d&^9;IWQs8G8#S4&@$B1~$x5Ft4c)Og$?Q@+uRMVnCsHwd5F!bWs zh-1V;7jm%wa0X1$2renAJN=Oq`RFVb=Jvlzhv2DkTIME1J;~KX5(1)s3LyHd$Akmx z&9$HiTDG)-fvX_wDV3>14`c1@Pxg@uua}c-uoagHxZatVW^l1$s1HRe296>1M#C(8 zhHFP*;5eCtJk*Bjp=9Mc9R(b12TF&RjIv$*)3G@XfW?^nfE{6K6fM9kyv)RPl3kC| zVlsKJg&Lt?838|@>-7|W+W@lFzI)6_P)9IWs=9FU*KNGypZSeim`WyDuKuD%jPNiA zut6NbaKNylNvp!~BqS~w$#!8AX(9KXqx-l~0#=xoE0@PtZS%1iXUNpN-9li2ygMufj zI&?6E?fMh1Rw`S&AU9lc0C=8StXJ0M)J1YRjcuB~hxYd0qW~v+-KrK}b&Blwc|93bz*m zx0_&!kVMfO0f(l4P6^FlfKjvERR!kC!l=3La|PzJ-lWydRX@~iz{;NNikY=3gc1<< zl**WS_sS&bYE=Txw#ISDV5;pL|MI!%b$_~BF!3z4!SZ$IAGQNP=(-ei^5=j7SZPiD z6cs)prismfqN|>7ScNxiZocUld2N75j)+|J+j9Q4Ab*Q`Sg;noUT-VC)IFDi7NxKrYg0* zoV$_?t_P=o)y3enx)Pjzon_#3@fvV?*9*X!;W43?4dKH5BXwR@#-D(K*2{Q2&cs`| z)!uq!kJ_f==n5Wr6maQAr%#Hr7a0Z-7-Zla^QD!?!`3yN<<8`yF`<_ZTW>zXp>^Eq ziq@}jmY*dNz`(e}gKUJ^UVFB_)4IOaJI(c^7dX*>eEZW8%Qaa&{G%2Tinj`Yvkqdn zj7K8=Bva(-JIk;1=qEnP{6RML4_;J*?_itVB&)tQEif5wNBa%1dpWw_8TDSgl<>LH z7fmbv+g0?*zpa;R8ejH_BSP(XgbC4ed|{D3V~xS$;^ z@;^|2`x|yE1UI;x9<*_>Vhj{a&*{LMQW%l}U}Lqsv=t+BArKK;b%zEXUSwB2p-SUD zb+-@L7v>t)Yp$Ck zC{THfFJ91X+eyq1pp1B(`1}~lzihgJlJcF)4s9}(3WYf2Iwk6<=+p= z;5N#@TMa)Ppd5x2f!g1$RRj%3y&DznTa0?wdN%H)*fALMP4)+cFB;-|7J*ZwTOHke zWj&&4_VtK5)Pi#>bA7XGDW@L~isjA}%YB9@mz==I?r4Z0JBr!q8u~rMz;y>;54aG2 zfesjDt4e$Hp+K@fw%235)}B2_D)q*J-Us#;ORrzAisTum=hE-D+*4O=2y%r1_ z91QLj&Od{k`BUt6jgWcAk+!n~U0er$8#-|0msy=n8k4f+`F}5#i~H4>bJu?MsNg$0 z@(^tunX==oBP*vL_oc)bYreG^cQbE+8{GN+KDLA^=U2WxSGj%NwLH*wr|Yf_?COnx zhwY_1GW?7ZTcBhP4!+Z4miemYKF{i^HQ%2i`}TWK-&&1*C!1aFY3%*#wug;>v%6m3 z`WF0mq{gb+WZ9GBfF^8uh+HkY_&oWZHQu-1fBR}0Z@vR{c<1geHwV9s4z1hoyAvJi zZ4WwIhh{_ZL8;!s(IksgU#KhE@P^nJaeMtC=RKZVOgMO*Ad`C0ZWh2J@d@D*gtfh$F8Yh@1a zD~+5R(L1wTPE>dsZGTs&w;E_@cI}51SdNNcb+(`& zbLIwYXjcpBSCh!$x(HOz_5vJxHvPB&^$rW1@(sAvc6-oJE5YPIye zbkz6MP2o;@R#nTDA)tT_Dy=4yw$+iKFP%cqSHWTo;psSi+zc5!dNM~Frz*e0Z!%vwRL`5U zcvUx;witSUrRWzgi%&|an+Meu5~VL(7XOnjg96PWhIsQ1B?cBfORRbBV99fv70;Xn z&v&7qg3BG#84VSbg}<96PxBSe!c7omrQUR{^PTk3ch*C57CVdgoRSO8834dsAwR zk|vEBMaTjh;W7E2-F!z_jvd+HGpq@;9H}I;`>i?|0p_m!oK0n?Z`H2y-E^)_F*RdC zRK{3~TjQ$zkkU*gJKsV^JP}#20ZvOVy8%9IxB+fwYLm547$qOjBCEz53-;)92Q@yA zfiI_jd#U)Ux|8-f2>Ds7lBOeKX>tt~Om}DwWg+3!jL-FDKHEKTt@u4=)Q?xbR%kkA zT@$=AZoOrkGPUQA=FoW7ql%7>+p+|WjIQ|wb`u*^l>rRgAiGbOP&OZ(-SWK#32I;f z!rh0!ICsqQ_h>VL@NntEse|uTF@clC(-?<;JG{;_D}TRg7oGtIYM$AI+Yz9nyy-)0 zQ+u7#4bH>_tmfW^N?FtS3cY6Tv=hk@XEiXD)N+fcXv{6D;qJNBfM04VS(aTZo*cu1 zRGVS7Tp{(pm?;sWyNJfK`1fjK*5k-rLyj?IWl8C&n%m1T#4*#q9aFyYDil4y8ZA73 zeV#Pt3NDV2H9k({4nB+kBPoUua+*6;{y6Kh;Bu@k&cSa=5rPP# z@i@D5QteMoVbz^|br*le z8R$uI1w(_5kx4~NuP2G~=tB7@7et??6MGHck7+yY#?GG+YZj8Ck}DU6@E4k_F~HuFKS+UwH*46d6LO$hP*6 z^8uVgK;j(T^f64Usg+AKuMuI?3vphh`Zg(TvQjk_y6FNbVsM|ou7PpixMqKhJ4UFK zeiDb1BKt8ZrFcy7cA$ap9w*+r~-t_|!5_55_WK#~vhY!dHVI&4y1A<${lXvoT# zl)56J_prkR>Bp7p83^;Hv;yXf7($o|<;Q{!B;kK&hKqhMGgj|^I@K3-K9qe!*m#at zO24$k^HEUeX(?3xp)^psmyu{Z)0u5fGHcCE9s* z0Fo7B3a{ER7H3=SiF=(wzDnw+%^iYVKI{ zpquc2N+vv=6qRjCwYSnicKfvc!fUp;SKNA=!`|s_gxajkuBjaTgMZVD;E){>6t!~Hjd;W#&&`O_ z`aNSlP9D`im+tfxw@A&q$S`pAyU0e|jmwLF+2^S-HkC<@D??9`ss?C4){KY;Y)k)X zV-Jr`)`kiGs}o&|gujODzjpk{d!g8qY-PDuSzJ9i_?7&0UdGAUdD#{_@aQ=DeL?lQsjQU-Z_0 zZF1@+>etqc%S~IfcA`8_;+){0yU1GlAWx-ePas=>IRdf7j;<)c!me0F7Mt>TzQmfj z#%pv2OC6LGiu2L$PG*}wf!F1XbVXr)UISlGvnU@P7H7vOQ#xBF2=rB95Zhza(V|Qy zG0#7lMwjUcMbgxx4eC6M)0xza=Ux(jfUJ9-IgqzqmU70Gj2r)!q=kMU8^#%vzKKLY zm#0ESR;`R-VSouN8`)u#Eg;n~jG1wqt5OC7l-x17ZIkX*X2}Rtx%%b=WMV87#N+k# zXGpDEZLf&SqbVK6x;b63z2Bp(-gc7rl40-oXwOf*h{llIJ9@qM>cflu<2`YI+dB5P zcl!HBuRh5C_g~7dez3|4RB!LM?cF^~g5H{AO!|NBiMmJRbXJ_h4AS;U{6e!D^*nM} z&W3CzG=~v>eV~Z;ciWvV#BPsq#*+DUZ?0O9in+Q4A!?Ni=FZhFru;^2`OQYl$*t2+N@%`r zgKnv#7B^_~D>rEKjvKT<>u%nQ)=i-$H&(kx`Dqfi;~a&HVE3bHpS!B|{xsCvz3tah zTf96v*!^B~lv~krBi}-QNwne15RzS?Ry$)~1c71?xe!w+v2mU(0{s-pzlKnx>FU3EV_&md`Uy! zCxf7(`3wcOxUsbNqmS{?XtY?~72t!!-&*2-`LEa8Cnq1aU+sQ>*gM(Te!bU3fc|(R z0fJ6jlf8Ch@pzeyhl^zcpdJL{+X%+bHxdl!G0-J6r{7$C9QS`&EFKbQwLwe%aHEzS ztH7F>_-h^&X*P`V8@FaxF4ywxDsCY12DC}b{_RFBGgV-FHkWJ<4!rGga^a7;N^>lv zKZg4;KBqf>47){t_TZvTA=uRvW7HxxbKc_soBZcVfr<9qhi&RR*ETo;=UNWS2>0@S zu^UIjcJ-D`&>Fmm^NS?DB(}Hf#K8q)e4MCVe5>mysvh2M#0cR5R#{VM|9>-aONx@9P!+iZi#2i zbAk8*e?u^2XEdzBXjtv?Ay_G~x?m%B^^x|z2obVzFNCQ3{xzFG^C{ZA7mDUCkLDBf z(;X7Dj2Szhs-N$Ws>&2Nzv@5SVb#GoYku|rc8AroiDiDJf4sv=ttqPN^a7NAlSUI@ z{nYQf^ynFXiJj>7_-U@JEEE;t%@po7{-O$1W}cPsMB|wZ!8)a#^RsIg1WbX$S&(*Nmo1dX{to$O74YQ3$?OyWq$uuaH~#h`?ZTxJdPOpf z<=Sn3S2=sFte(7ClYJDWWwHjdtQ36k4=GkP0EOj~e;jqPQroiSD61uG^##&Ft}b>6 z1ek$I%8pwJRIYw6RXLd;A=6CrrKbHX*Y`Y8SqAnV>8_Y>%Tf*Jm*0wBH1C!r7&rgF z2E|}?fv-JnsTzaOu>zYDkGr>DgY4rNLwS*Z##(|tXHwUM1p;K$sRN_H{C4Cq+zH(; zv zIFJ`Ev7ZiOaFdjF$9XT8T+SwKxPeiNJm}l#kvOLwGy!V!(eZIkyXs0)zFQnP?3F;K z^W7Vr@dCVC?Iwhmdyr*QVJ-|&o^DTFQz}RZ04Qo90hi~=ICiTb*ZoR?Ko#$>j`w;T zaYxB_F8F)LUYHB{u7%mi%hr3bCatG`KRK+khQ%^?ww9{(NA;q>ir+Q*;bXRhsq4M! zI%__M%-#9rnzfE)>gZ%|Avh2=#HcG>HY^WY9Fmm%sb1u5muP{ce>EGc%<`-Au5ZjA z*jV@(#8<6Ib#-LYaC8PfeRTLfXN5uL_L^>6co>=nV?%34)3U>9iScxo1L|vkjHvn{ z#ltt$4=Njf*lr>;8&@|PSaURhy(3pMw&qB?p?&`FqAb=y;qevXT%}GwaC3t(ws9w8 z%-g_mCnRSRyj3$2@o8ayAo7w`a%%Q6mJxvtvlDB{wFf0^zrW5BsqFYyGdjNMRY68) zEv*i}^-@J-j7n@$JTw-ex}IQv3`V$Eq3&~tw!YbcXq?b_inEoCC0B|VGHoKxgW$CZ z_ihQMvCB$}P%%;kyUOBG&#f+dn5^sft9DPnAMqPFwyI!!y-L-cP-zwC9JG_0icxS_ zl8$UH2RyfsIfM$9{zR-jbNWpO6|dHD6|Cd)t?GEhPw$D3%#BDn2SG`H&o@Zjt8yvq z8kZl~ZB(ka%l&|!t!pQs`NAQG0turU6MMx#jumarud~sha%#o{ zQA?-orDxGuJc-kCH<9bsbP&sVR%iC3T#88_192@FP7XCS1ImNB-H`H-@%CzDPMR~I zR57LB!j&>`LUc%rYvJ5~npI`pyxM}K)YUibC3{rXBMua;EVvg_HQ1z=#aIfU>NA1BKqr-s`qDXP@|C zePihIuq&(W%&TOEA>J*Q%<+?7B4<(5;5xc;m((h8btjvgW}qckyY912P5x*_x_rqm z%NKz^K>dyCyG5Pw2cxmvy!b6@hCgu%7P(#m+@PQMpJ-NQdPLk36-f}u+fBrW|DiA! zIM!~5=;kuX|J<^F$KVe{Yj`^?aXA8J#Ljt?p2fq%D4pS(_jl6=@W<**e+EIP{=01o z>6|-8s?03SkQMJw>{vClu{qD)sbVOZ>9bWehwh*`)9ltl2Y>EB@Zb-K*T(uCGzXG7htxxeYUDOJ9emG!ZivVw3a7uD&~z7VtC9j3 zV5p%fORj>$VLP~1(WWWcvi#`DI#$R8&3w%}RM*>El{NX$7vUXvJ6i1 z(0ST6)d{^)a!IBtemPmgq?nGQD`203NN81IAST7xi!8^*{!E$sUkoMe1tmE|S%+c> z4~9h<^{Ru2)wvGuG9gC8F>~8CqvLONRystBaS^9~c*N@TLM>^yJlNoKA;aZpVnA^O7BH7j*CG0f6n4r9sG{o_7AygpUD+0 zn7k+H@HifI;a@0&KX8f+2moiAgXXzHqj{mel$|iI5Y)*^;b((lY7*DQh~SRelnnDB zl!_bDffB{L0JJ$`ZwB2Xeh@2~mr@K-yl7rdaYQjgPY@8D+5y*6pf!FllZDGH2IujA za5j#0UYq3SL?!2NPwu*l(d2R%cTl-B8-K*hk>m|uw^YH3v)9rj<8nyfWHib&IGaq; zSx_9^QS9KW5lHtShd}kVJl-y2NvO$SPu`~O4?lI;r@bD>is?}EeiiDR!zQ50G>vUn z4ERcmD!8y^UaE3MkX>(a!yNB{nF*hN()HrXrHxeOzLOe26Vo@WZ9x?LYFeQz|Q!U2kN+)ro>Q8f%B!hD&lTRQF6>EqChN{m`)dJ_vMFeQf{+5^>zb%kxXjOyus9SIdv!?mC zXq1>m1QT~;r7;Z_VX&j3V)VUZ$g0Wz?<%y73LGt5^Z0A zRZlJ&VY5>EyB-Z7Qq78*zLT=itb~~)w)m9MtgH$u&6?)9H&(A#xbv5P(dw49&E_gy z@OjI%nlSTdW@2&aDT_7aT?-q~de7ZP>gK7?c5;OV$C}}W1Pdd;Ev||`Eu&ov@w%6; zEa-LZi=q1gtv>z1-aD->!}!~}xXF z`g-N_NR(oV_n3g z-uH|)MnM3^wM2E@0Mkh70gdv8)3wZnM{#etF8^u^LRVa)Cd`74Ume$rzaa(db^%vw zHHQIFs^h-2gRMurjm8*`0*wYTS9&cHpF14NMv>1qp8auOYb;lPn!&BEma&bzm2#`q z4QZDyxsP`i%@SZ7_F2Q4EvxJkAqz?SPZ#!Fe(s z>Y92^Q5Yd0aTz|k7Z1QwZ-(ca>K>(tKgEL?VpgO9)lZ)6?ws_-+1ZmPVuW_36j<3l z%3D2&E@V@FmEBqVj|BXmgY2wW1<-6Pp;)tCWo7&vg3L~T(7op>n~6(&#}jsZW^|v2 z^@^-Ta-cvsc)K+#5(23^0DxB$D)i>N>K;P{PJ8}>s(NN&y ztC%p&v$Gs}OSL!(h?Eq&NDSf}5Geud8No2myB4um2lTy?aoG*0S0auE=c@nJs7p)8 z1<^n@Q4bb!7!J<61Wwh7fixpZ-I=;))i~AtD+aQE6LjzDA){HynhaZTrg1L!LE!p+ z$+?WzJkRN!;?qc~PaGwi>Ro8bJWY#X%te%paZg1t9jNy-hSE>H7uU~~FhHwLH+=iZnZCD8##~0GlTAi5PUAdMLw1~%1)Fw%SX<061)jV>3G5pQ$H&m4Aw` zuTk-)Bk`MRM%!oBjtVUoHqipcnzTs9*`=dGVN4h`Dy2%HOX zO&KT<4`mSwbw zG3NhY@EvqWq|Z?jORE+0aaRP2pl4M!^81d%%6b4&{-b>P=Ys?4?R2P0RqzXX#xG7$ z$I|$jhaKCrMefs<^ewRp8FV>;aRa~iq*@}6vTOW?crE5c|C%$50+nHq6OU_uFOH56 zw;`gh(>}PLxeYCd#Yh*GG#X$-C|%@Sg@0Fts+3nO4W*b{+&xrNF3CvVUy@i6Jr)@qD&mFatx`X>H z3ipoPbfJZ;!W}~Nn(9#{U-Q{tuYomkZdmjJDg(iMsWI}8xm{fYyJ?Ha=Lix3&=q8L zLP0p@l(Dr4Q7J_~Xjhexdp-iL@Kp(4!6YVps^w~vaBYq9`Ml<*z~OF>f4tsoj*-Ua zecVsfy9_82bYz1>FgzV$A`~6^g2-;S|cguDyPK@ur#%kag_#cfq<4l5D z5%$cgAXFqNlwE?W_rmHTf3;P&U_Mv3M(VKF5#+L8Hpx|yG#4;c=c&*I44K1*n>1(n zM$DnVp7i~t?7HR6oc{cU0#Lpm*h;ef-#um@KR$bJe~pDO$b0%1Zje$d z7C|!qO|Nl_O759E-}Xqq&J5to?HCD!i#7OgeBMBgu)fE8zwN#1`z$8@BHxUZd_c(E z{gc<*{hgP4$IhF`nj|8hQKSW@m?Js!)(;iRumWOPn|C$mrRs605fk=zm5{K5Mh9FS zG2&q501h)&}kobwqN((9Pd>!5BE<_;B}#s{`PUDVLEfK+K~Ry(O*C89KGrvA05=v zEwLWGu8^~T+^?|U<(tFpS07$%?;l7aEBtx&>;9`fBJoWHpU!>xroVgiw!*~M2iyO( zcPyd$^6xjVf2zHw01o!Hf7_b}uyb^HC_nvNDI-UHYHNUlCO5#s!|neMlH}}xCRCQH zsp-qRXYaRscD>tpzxCzaYB4)~J&p$P>ieyqyYE)P)kXeXmp_vK*(h9BgQ zXMgzPAAkDkkL%rQ2{Ba#P43U@^3P9{nG69OaPFsxfA%n!N$?cvi?wGz@BHO>`|$PJ zc9M$|wIh58;eg->6y9fDTYt7H5nZGD&{N(QwOfEuKjL&YQJM|)Qdeb`;Jb*qm8uF2wd zs#6g8>R4&BQZA2!uZF{?x?k=aGOW3;xr(=43xd{RtSxp6NvJ$wmg5t*{ zujh;{4E>>m(AJCPm>60zAcr$^%b^Q$wM0&pf2hgTyry!CadBmZ0)-J}X80S!lbLI- zDDLD@@sA^lwZekU2n$OCakx>3>!q&bOK*ih`HTyld6W%2*PBTE@q~1#l-b(`S zMFewIreBoBT&!G?F}17d-&Rct^Xu)Of0dPbRk?YUDrxRFmS$b7!f<=(l8z8!tu@># zo8Jh)@plsA`&V&WP+eU*i&R%G;iph*aJ9wlpDj?a@SYkJQ}<4BxY04^I~P!g^)`n_ zHBhucBItlAG*Zz7aPzMZh=6XuZ3EKx;s=0>r-5Yl9he0IzHc?f5FX| zt8N`(`?ealM|aDToHKkg>^F=tS-AWTO6ATtj`Dlp*Am=nEMM3P)jT$VqZ3aNt35YN zJIKzY)kW@A?JON%iQ+uFOwo-*yFL~oOFPU2I0QG6(s4EwvjS#u?eN1rB6#`oi z4vR;gKd4vdNGg;x6T|p)c80Ice_&uc$ePAEY}m&`IN$~^Ppn*}!WQrE5%XKXcL+hd zq0pE-#sLv|TXsb|f~LjjmDlMSk0c3PTqdwz2+_Sp;L1l|LKUOW(ZQcSLZLTAd{itm5GoQl-Cw9sY=YYTid<3i|Jim$;cINkx8q0k3J0ANh zVweGQe6X{@f_FPVn@w;!$-TfO&Xqv#yvk_)AQ!o&Ojqo}?7J_Qa5_#AAZ5uf z@@#@>!kT_GW5ZIWf6WzudOoBB^|u|#caMkP13j84{RU9LKRY%A zFCPRZI3@VHYDX{YUUR$TMm?qnkS6NAL#hgum87xlyLFuze`>6HDS0eQIEaLYWL`mC z#&Cesp?Wq*#0%xQ?bR9*h6VN6EfUWoZuN&h4BPU*&eI>B70-XzSTBB9|9RN^p=ke5 zbXG-|H?wPMm!kAyb-oW>*N8>e_wbU&Fd#aKr5Qg?KF3TI$nnmCpgJ0P|luS zu67qx=A5VpyUg4L`3|~n;~%r{Htx0W7WLfb_t0~j|Cl|u`SpA5zPjK;|2C%F%7Z0$ z3rlWg#RhMwvEp#|f1VAuva+(+fHRNX{A-(TCWNkMf4I3!cFeYwmF7m<3ae;&i*25@ z)?a9?-NHtzylNfRJ!;x`1~Fn&oHf#`OT0eFu1np!y6XR9P8cCGZNB1dFkvh<)Og2j zeB+M$ColYY+vYd!vwtG<>@NEZ&%>PX40z23gEW}v3@Tj1x9!2bc^zoxxEuAC zUuto8f32`$wVPIp>>Zd~o9tMvuw&bmknyqDZm1XwYtKZ5MAuqa!dT$+-TnT~-aYT{ z80y(YhPkn|j(!0r?{IW2?OulLb%MMsg2fE zW-9cSj?tnH>UHE27FFblaSeuLHUr&$y|2SRe>@R;={a8J#tZriz#OpvBpz$nm@o{9 z?84IEIgCvT_%<&i2*WDGN>Qc9dT+Ox$Cg2I`fBOD8!DPLk>POCsQhgFJPFeH~JTc zEnv<~J|@)j4%_Vq^sDZ&_B8*x(-q9!I6anEs5Q!M>e2R~+f@%iAmUm4PrOBrA=X>DU(f5KF6 zAbks0HwET;4P?VG1DtA}Z8I(1oXdgSn{44Uy1%>ks=xnYfBTn%noyPds;6L7Jm%nm ziPfD0Z#%hq6YL^FnoYJGOQR{*DNsN0I$(3BUmxKTlQ1vpO~r0U-f%*$O2g9AvV)># za<1*k>O>tx=S|lR%)L(9NmY2Ne^YmT>wYEw=*mRSr^8AYFGjmx;43W-+N6pN#|J9B z#?->Cg&@T^t=^Jsa7@*Yz*Q+6(H)>dk1X54bixQfCv zc*Av|xfhT~KdH_H<_7R$b*wmEt8fCb1hgA19=ORG=3x)n#Xfuk>)7cZHSdJ1XE*gU00jNXf7EQrPz+C2A-Ksi+kXoylcG zyWzTfqvUyu4!7ZkVm@$k1oOu4)rNL(0q3uyE2dXXU*1YqnpSd80;BEDrb0t~asOhY z=?Z9h5?g#Litj9P)vMecY< zronEEA=cZIaVcV*?G+1c+~`cFgBuP0%J?$u!@(L=9{vax+BIvGyU-OC^rr13#0xvs zj+y%(!QSe@SxvmN^+*P_J3YhP_qAh{mv_#w?tjEO<8|?Je|h;%mV7k}bTxwASKG1s z@rT(#*V*?vJ=kaDzbm7{kQJUDJgRHv2aBYBf-o>&+Zu62ZowAHjRa0%eXRb4pbLGr zUsE|YxHk#I`o1^$A|}*G7o)gVwg|yI$wG*)D_5dA*Eu|~TWUQvb&-uajHkGJm8Ic% z@fM<3yYtZle~?9DH4^i@j?!?)NedzB^UB4)hS}my?_JIBc2VQb;&T)z#^;Pq zGk8^3VnnWN6+sU+fdap*7NODgew+yX4BZb+1vy=o#mrwfTzk5 zcr49sxK77X+oCcVsXad4ZipbuF)36mf30`?=GEKn{|ZceE+TKckLN8u5e=V-I{Z41 zF?!{V-kl-sA--2T=r>i@_tpEFs(K5_rMpHH95nS3!NHoSgas!_>glJ0`jey` zw$=HVg9lEM>JNGD@FZywLCsE*e>j##CrM6$`jaFFZ0<>tkI*?uqNmn$jCBsFKeR8x z!eb|1+BKJi3Syl?8#`&*SkFL!rw?PxBbwV#YFs_029~gFp@8NCi+pe>Q0qNj-}7 z=`;TX;vP`c4mkG$Ed_^PXHt`zi&yyGKNxQ|aMij#X0gi-g{ zBPdvj)CJ>YpiXOWBPyn6e-st-c#j(5OcSL-xscP7dRn+o80CK(^t?|oI~^t$NrAEr zErNzW7u(1vIEExfNP73u<7`%H0kDep@#DuJqc9|$QjUb;U%_li#>cpNE){=@2UweK z2k`De0^v-FFar)y@f2z&c@P%H89wwtv zjL}I(DyWFt?k=MvRGEHr{xmif=xPm&I^|U@95PnEko_yOq|T9I4^L)l+)tiFoOe&2 zxQET^w6>~iK#aG`G8%m3BjftHXiF)S{e@Yef_yc*0NY_SCBwr*rFTdt(NtgMXrIoK zF)RkU_Hv(`c6()Sf6!@C72NRh35F{0=GWZvzhskBS+6O)8-taGs!6@Mr-E+MW-2Y| z#2H>oYlNBB-*fOQlzg+L4&~nDG|E46au2hMz_C zg0B=IVu+64xQ~gJe%8;Uv;aE-Xd-ph5tK=E7y#VYfL$z@e-ichTu@0dP?)i`^eHLM zNb4v0X_lvM<9qW3{l)gqhgxBmYhB%fz8;96d5Q{)pW;)5k&x(+fmuF;cWVI*l4$-1 zXr=^2J5J-tl@cBYT?aHe3jRWtyh!qRo3^Al$03BECLo1>+hs|pA zs-R9bT}RGM@}i`7B?FER^J_nl9j^t)-gNBqGKQq;c*lPK%NKxr{NG2f_C6eM@9w`jS)e+PfAZ6$+)45QQ}&p4JEjpe%DTbu zY6)%bH>PGAw@j-vajd+9gSCNz!(L#SM(5!|hUds%i-yE;JetL0u6#|3wFA;vS`v~u z(mekt*DvB#=DwaZ4?h?XRYi2H4d%n7C}6HoCMhjDWIEZxIhr3@xu0H<=5JDEKV#fx z6(4Gof6G~%O>n}=OueXRn%1&;|Fy8u!kL(9GqE~PQVpMFxkddC9nsGq9+MS;dc-N} zNC|9LY1#^wYc*~#R*hiCoRn*(zt56o?a8YuRc(5xDv`yDI4!cg=q$237nqKUPBg^c zZtt8}8%z%5JQ|f0YcYaVFf0%RLZKxx%9A)9e~zzEj})SffNEh4yv4=zb zR8~g2JA<<5G#*`y%Dwa~I*WsLE@qL&aP0|W3JkND_BfmsB2Mjo??V}f?T$T*ct zjsK7xA^rxD-6I&uMSYnViLR|qa`rL?E=#GPx!EoQP*|4WOrJ_rnZo2wD;aPqY>4~q zfAR9xIV&$ss#{xVW1ybfXXp6jT4Y)_&pL}J@oqQ`CTOi3-gyHX+MjpRv_4LI3$%cm z90OV)IHDcRx!Dn~agT{KLRfp+{fj}I!%ncfmw>xgIOcGqM#)%h+91?vd>&mS*(_)K zb2T%~cds>4wxK4a@FbJ6l1yX)*w?&_;4xxY(M_+AIbK=ifA#F@ zWYiWoOC%+k130W2Y{eWB+Bue>t{CN2)o#*MTlv=Trnfb$M6luRaFw4=o(x}eUC}byL8*B9f0M`4Bif8@#L^H)-SU#5gYzg=lfF?&W;dCay*y9G zdcTrIreP!LC)jp9hLbT_o@O4161;%PMA7ll-do(KdXdNRbpz<5X`I4l#PwoO66l7& zdl%6#wy>n=VU~*rxbI7oRw^W@$fkO?19!Fk=Mnix?ZQQxvehsScBHoQha+%S9^uE`*b76mzb2>bo z>&ih1t8PaO`u8OUj2F#&$K%No1#7ys5sw0r5WG&s6$)i6x=vL+6{T``(}-tMvOYnt zJwGQfx{ZYK5%^&qS9e~ffAPL>Pq^$kzjsB8mknOg^7j9nc7`r#aR9ocRjEQ<(h@?? zHZROUF}Tn3`&-W4DyMFHx2oD%>TZ<-AGljp&(t7SDo6O$yH$Z2jc*IjqbpIBTAJOh zs$SBnBJu*yg=?al&DGxVlj<*NRe7Qp6$Lp{^mIr58kdeZsr63ye;|252lB8X8rx(0 zvySH#{DEkD{j}|F7&0We+6E9pD8ys$DyiFwCR;D z9=p64w8d%JHA_Kw}TC(gUvQ%xi8O3kWKU;9$R zpSTwb$ue%yHyT4b<2cIoiW^b>CypRso9RED^*xL+<%zX$h;as2d|+=q-X2EW-Hy0k zp}Un2oY3Hde}k3a05pkP;+b<jDKZECIqagT``$;7qv)nZ1j zS@Rd;=*-E}cNTQ!Z_#)bENzIctyiCyJEhev9=Qf8^?C;LnFGCS>SOq;Zm2sOzin(@ z*U;N_Deqc3yM~~yQ+-80+!|q3v7D6B_A zb!MQ%fDy-fHUMe7AhuWs2jCozYp|25S04dp>n-L}YU zdcLUbXj$CrV_-w2du8I{o-J(G7R|a0>Z<82BrMcXjSoYcZ)0Jh$NCt{Cf%q@9QxV} zTUYF-!}wFEk95`HUUD!xz2)-4?X^`WbG55Ye;u%_ARq1^szfyfZxMkiF`AVi2pCPj zw%enD9kRNas_VOR``)EIC<9)znJny)H&H>Sr^vZzP%$j-sNa`baVP}5+r9pFGrprO zmSPU|%kQ`>I{a+jQ`$g;2TmOW(aY~=ZfaY1R0X$3tkIhUa|1tA9+_U(FVrZLpYsxss0GImw1Qnfe z0kqz|;uL+HGUbnR{8~gKNdCjRTKcJ4Vcm#y6UBNpWAF400Y##qz15EF!>&3C((>JA z?dYgHBVpK&$NgVq3k}rs;AuF%ApA#*f5C$DA;T~#$QYF77e<3zX8rp*v8q!y3Tr6f z;?rfqQc=gXfSz&=*5l8dCKrXje)=3yr3gi{#Fk5l20Y7@}!pje8y{ZH|4<&x-xmFXZ5wtC?x|y~DP}8LvtkRo0qrM|A)B?*^)vQZQf0g0h zuv}sr2BN=x^4Amb;^-Lf_i^r=*iD6nx2_s>Sp6OxVW#of_nk?|i3dD+9xAmLdRcu*RZzCyC5>R zAvIk+XD~jE9QRr58t7pve^*$vrly`a0*AXTlf@ebS9^5=PS zcCNINx$jvoB&y+qvHZKRbm|Tr&TovO#y~NuwA9aGI^H{Ay;npdf7aCCTy3<*0jLI7 zb;M!>+mJ(73qm~URHjU&E>g9D(lJWLGy)4JDh5x9M;`_nqf?+Z0u872k)qwGCD!=s&Ve<>Y8dT8{-v&+hXRTa&O-50-J5y zeCqA8d9>?HQeE3`e_g9-x@P!v{eEra*wMYG%8f+^_J6fIwW)>c2r|m5KxCaEh-;wH z>cbfo`$NxRr?hbr#?HlIRK=Fi+B8Tebx8olwfc4K>|j*s$87=HurOrXf31o@0T}a_MbLR)yo?GFk46w+2!d_c;ZG5->-g>&`E7Jhuy$B zcjxF3ua{aR+#3~v)dJ4ij=j&VIml(pgYfzQCoQz%f6#((7X*t|1Pzu19D4qeV3D=o zz*P5)Q^mLtpf>6~tA4SGY?&G|jSVv`@VBvu!&Yu1`?Q9KRf)WNdv>V+Vq!TD75mbO z4J^K~yEe$Oe3+!DIh7)$%HRNz$g#9M7{=eTVXQ4NZURr`L=_ig0#`^xKVi7Ilcb^T z7nr1(f1XvAz=MT&R~F)fRa3QUlugK9KUm(DxVZ&$x0Nb`1!h^*ESycXV+75rDyP*o z>2_8%NkZx5Eey=qwaFp-gq3QvV>!njJ3Co^qb{IH)%9GRbHRbUYkgG+UzHO9^>s<8GZSgKud6D&=-Zh5@dOBB0qM7w`A z;)`I{ZFbppn`Mb@Kx!RGINg1Xw!zF)f8JL}*rnWx|1oEi_Dv^{+L`0NBQ$9D*xEgZ{Ax`5#1Ri86bf4Ih>OaddUToSbb!-@i zX7#N60Iqiz4|{Uo^Pb$pVfDjd^}|-=Kjc=V_YloL+m@u)yuj9^2l22)Irm_c@#$f! za;Y=Uz#~SD%)f1VB0-uI#}N8Ye}9{QjVgUGkseH>2NUVRM0zlh?&q|YJowsL@qSJ7 z=q{_Qp4U>t>Q8Mcf01EC6C1fjCHYXwY`j1Gm$HyNcFnhsRF`^wWB+1S(#@U+Ya9#s zR-@j~w%l$a$c$}PbxfJO;CM1p*I4KnzOcaES$Ey;1;0BuPFGLHW^~lLe{lD?X4knW zAy!rOkm-!TK!33I#f2=XScUN#z%rY!!#fdvl%e#e6m=xigk zc2IT2vCPXR;rKW;19KhKEARfljG~hUN@XBXtdZsBaR})9R-ZzzgY1e+wO%l%x=y*-$7k zB{|~9^C_fgKU@baH6(w=dK}dfozY?c(%$Ly;bw@V&ardfAITJThFa!%sPRd2)9kx# znukR6s!O%V;dVu1=YQuBQVTl8GP$~5KG=9ajM?dR4ZFqdLgRb-F8Yy z868k)Ru*JxH!dR{f5okqwj*d+4qHldHjJnb&7#$PLi(;uQmUjK5E#3IzS#}5wV}dW z8ZR?d6ayS%1!ho6pKq@;h+be#n}Q6RO_qppcc(;Ct#QMF%(Bt0_T-;{>0N2ELT~Tt zSD9jUeqCwj>b?jYRaINWax!G*2e?@6&dMz%VyEq6ogUz5f3PvZ0wLhLzeTjfOZVU3 zBs7;IX(wh7r5@fXrad+XMlF@W3j;~9PGju3*;`IY#M~xRQjCxfQ_?@$l;qN4pFGrl z&WF(_ai~rwjIR)ip6>C$i_RdE<`y-5;uh{0-qE|_`@)1o|AP#ZwWw#D)ebOoQ5t0M z)TrZm^sM)@e|Vx$YQiPKbyv5_GEYutCC+pdubLim#%vqG+JU3NmzYOU3*9Ez{yqcA zD)?a;(V_{sqdA{O;_`ETH_)eDr_J|d6fCZoSq(~wSF8p~|6Z*ImS2%S_acD?D_Qfm zYz%fs+PV+M$k#PS!o3%eUJdT{A`|Jmvu@N=#uNwDe;7RaePejzk~VdI+uPYtJ5O|C z8cilJ3E&n>owC1?o2hf1X+#7p2xE904U<`cC3E_z=5^dT!YkL)adxFWkQv6iS|~}R z+ocMV%zTR!Vaq!use=4c601WC{+bQp#&Q?MZmYSjq*)ibm=q3HHg~-G^n?a&o$n5# zg&3jbe;vjBHW&M}V58GIZ2$(0-AQ&K4e76W_yhDTf9`{=s2=%1^8C}&<&S*`XU&Pv zZMub)Cp-%CFGt6(_QbYSN=i3DK(UjjmDtSYoXEb%-q+{&6MWmtH|?LI*&2x#+dK4f zRt`%f1cM}eP#&SVlR-O9SUTiMGE?3ae`cZeF~L^@!2f0(UB&sDE`;}N#;|hQ z**;k_ZWG$-Q+^fEprnhUimsmCMy&HvsH|Y@YD2rcV4Lq|_mG9oOL)i{B1is>?7IR9(k`$uB zf2%r-8;@LCoC#sN7uIcw((BGSov>_ib$)v?|E#Yls1$1N0V&LXFx~}bwZRXoV+;m&+Hn!4K-Nkn^uZz7` zYjOhU?}g@(+G(RhmNz}&2*VJqMx$Jof85%t8l~n(cvr*q_>0sl5aamF?q?|FfJ!Yg zn-K;LQ}2@3Sso8>xfh|GHXCdQp+Rg7<^ z5VgnP8%Ym9tYIW@nW#&4NaM5cevx_@6L;*0%u93;1gX)ynbKPuaIq9FAKsznf80y) zK?&S7LGBP&i?#^vLv$^l8tThMX!ynkCqQiZYSGDFqzxz0C#adP1XymPtp$F8K~t;M z{PaG7-dsx%`i>~P&Ru&Jhc-?yh zmCCBA`k2=(7Avkza!1d4f88rRfn`+P179}x;eoI417CC3IyZU#%V+t+^Iu=V&UY+* zXBq?FOR3yoih8>(bq;9e5!~n+N;L=lP>41HPV?*{p{3-6yfwKKUvvs~gL399I^QU& z4AX?znszhYdnoDj4WK%J~1; zd)w|dZX{9ov*(=o4?XgSPzuHPC7GS8yV@tTM912(B^{BDch=Wer$x4;9#d>iHz`^1 z@&4iGPh8XsfC3ubY*LgHC(iC9Vgo1uRfR&KP*qqr{WR43@)Ga4XJa50du1b`91XrG zx%~fRt46Kfo9#Rvf5rKxzwCQ&PJTCwUd?3%rU48Dd^O&jteagBxnHGgGZN)ET98Y!@z>Y-UwgA4XVQpeqR=~uMrc!v4{yFV!`Ep*}J*>38AokH43Jv zxK9g2Q-m%zzMN0 zV_u=z&?+3{>WG2wt3lc-x-5^8B77xCZD}26VtvZxe=C+~=^lw5hm7+)y;iMY4^Afn z3`wQWxRfgskR*oUn2LmT6euA+THBUo*Ww^E=r?O}g*+tX93*c3*X?aN+zJbiKcG9T zvrzEMn)a4};(9{0<(=QWtBl^ZUzs$RiqT^~d zsbdH3f1u^`=CS}Hxo99VHANYW(oqBn1^hOonZAoWF^C6%8t;$@h?2|2(M1XlC!~q$ z^{!6&G?V2i!5Gj)P|KD;PbIu15s%8FMDE%#PGiL9rU@RemxAzrHxhVD;T8Cp%=}oT zE0*2oWAY(kx=e*sTUPKs6@nL>by7a!k`Pt`e;(_Q-KWt*!f@is)iGs!mmJ@863CqF z*5T)ZokCA)O5FL+_>zCZ<7l&#eA~9i&(A^pz~&9#&6myx&%(me)U9+ItaR&Envuz2 zW1!FkatKQ{+&Zzo39hZ>yf7XpI#ttp@A%u=3e!AON4r^?h$F|_jq6E#z413xp3c7u|!bBepB~S?pNy^8$pb8Wx?; z)k-?LhEsQ`QW%@MpaPew__u>e5?hAGZG&H5P`UCEKbOR*kYBWVR~24=1gZ7(b4snJ zpG9i@;z^|Otch?_)lT(#eAYcV@+8(*f7y3;+4qb5Ok@cN#cD!)m6)GdVw#h<7L&f& zD5Q2TuVnv}mDOwyG-*xaf?MWV)A4Z~ejPcC6K}OV_u6^=Q%U2WNJwre?pkco^H;_FJb&W-yYLe`wuy zhRBWjdoOzXuV3~~b`Fypw{{s?Ta8%4P$PY;0Xe)VVy*Z)hHNc3pwm@E&bpx_gFf0zX<2ujuOIOhOcuUW zKhYzP_VH+3KtsF*1FeFt&S|Q6f1PG0s%>b1(Elza847DEPMv4)WbpH&lULor!OnUvk-(B;FwY9JJ&;kqTM5V)9wIb9|6>4~dYo^GA zRT%{`DHZGe^U0&=yXbM}uX=;3QW5lbz(1Dh>gIhaU`i`JBU>}7expjhe^M20;b0sa zXi?&-EvBu5R#skY;jLR(g-SCu%Z74lB~8UtD^IGd)d+fs$*9g~`Gq(J=h_amLmDNaF zFEmODUac;XOr^^QzEe zlx9PF3xc%WhZ|Hj^61MD{F*)&@W^Tyg)k97v_v7_ zI*HclprVo2qdv={1%e@n50n zN^MIv4=G$ud48NH3jP(sIBOCN}qsG4$dr+S=1UFXDvzf`Byz5XqN5`>M=%D`fe=tV6334?8 zXU1zw+e;WSe_1b%_K$W{|2J7q2}!Qhi9Q?YsCWe=Pm^o(lGOw1bSh8SKap`p`v$m* zUN|<$wI5a*x=#1IgD&W{9Xf`4bKLq}y#0Euxjeyk7OE?nVFFx6(sS|rjL z=eLBy4jE{tM#hBkY4GTIRjHZJ3+;gN<415E$3u%Af7YjHIF5^@ye#-I^DMbYC-#WK zMkw^BVbc~;bb3qPy_oura+Ba0N;XQ1=uyR+f}>IoA>awTqYM?Hfq@Bi;2kgivW*{1 z4Qe3DFXMuS_GpnMPX9$mOlDpjW1HOAK&PtnDtiN!at8{&3D71;eu1#$<=PLfN-R%r z`J9gQe}R|uMvk?u!f(vh4!%oXus#8waU+_KN95bypT;+^#3ToYuN!gM>}q?VI<^fj zTSjk#!q#Rx+URUO+@R4Z4YJhSno0tY{ZBi^{H&$UaMAXY$a^3?G%jZ(&TcGxZmPm8 z^@NS&+ikG)t5?0zp$$Ac^OREP(E5|MBl?2se+>NOlnbUoZ{nJodbqjD%Je7rR}YZt z2m7i5LH!o+_%JM#wh`1Q(}2aWor-TY)OXG}SlcV!KBWJC`}kem?aLz2n-*@RrBYyp z*MnagMaDDnhewZOi9u^V%vj<+s~YWHYwfH zb)2$G3U?&}7Uh;u9UoiTaZP|FcKdT$f6UcPtr@YV?vbi9Y+CsQ!snY+JviwP8UlTD z(yZeC%Y(zem#VrN-aa!0C*H47=DeCM2X}23J8e1twwPht&Y|s$atQ@-DZ@#l3+jE% ze9Q>Dkvltdvv)r1l9eag#3FI8Ye02=KIp&hzJxq#oLsZin`R~3o&I9`Gj$ese|U5} zIM}Q2k@(T}N55@vT)w!klkR@^q^>7qXWJ3}wEa-&;%=~B-Fz?&LrW|SF&8LnFq1d6 z^C0fDeb8^)3zskMhbqdR2r=ZPo zR>+^$nn(&lg`-I)Eukz}uWd2ewhBm%;8|1)rNyF3xXc$-LUvjN=*>bf$auPr>jLv@ z(r$qP@d!6pV?W%B`3hEQAD8d~t@@hg9JOBjf6JI+%#(-VHAf>jIqJddf3xtSu$l}a zWx1zv*SoK(LTq+WbW_E>Aout;Wf*ck^)J(DYtuO}=v!a*JakS|T!t4_P4345FJP}> z+%K&%GT22`8&c=jq)Kz|w=fkYg>3zuBAL-NTabBz{_Ln0opjVuGjDreuj4U%?!4)B zkB<&dUmU&M*XtdQNVZeMe=5uLON|0ub3x83yQ%X>P~dQ; z7it2mueg$uLcqiB_ac1gocUG!lqtj~aKQXh7Wm~wjHSU>A)^=DNpJA_iJ%TjLx%T?Mn9|Uyi29SLqTU4dCT7h!&0huYyG{f3TzD-mfNB7W92@ zLZ#gAy@(WHpU$R`5do4v-QJ5>p~PX&^W--vSnf+`(5$0#HSK$r8y3G`C5NZ~KR@Z+ z*E*t??(bRU9~@>U33;3SQPvKj{4k4>>ll4v%(-fInJ00>)EX4deF~r_4s*zJ6%ts z_x?|q7R6szShE$@`?F2rUF@!3CMvpek`?w|Jhd)?zTtj7}_uTaX}puO?I&jepJfbfRtIEJj%nyi;u z_TF)E){SoBTXM`+4LEl9H9xn(PI*6mti0yjc@y7K@DBHb;kgtKfFPh-GYEQ3ggge* zq3OA3(Cd%Ee_neZlHq)oY~n))_~<*P4#ls+XMB>}nCaSC9%kt88_&p@T*Ew=q_Z?0 zgD-1ZM2h3!8D0dVGeHJiB%$g_uRrLX40`*2S;EVo9PV`A1^7kUAC5QV1pOb43w%xH zm#W2Fo?%OLW&;ZCH@jkRncIS0TM1d$c(Io1>4olve|`AOPKfcmR4>v39sr7B%cN#z zL^w`pP85e^92gc*S|8bUQbZXfJc2SkycMD`bW`+(HG`tUj^HThh8WUR%47tIqO1Y+ z_%C%m9ZW{a2a06CWd-8@YCfK&Q^7ah3WHQ0x~Pq8<3ht{L3ohKzvc;~w}+S(0^y>? zAlzT+e=Z6vT`*%dEt_WK&@ehx5b*_s>o`xbb?ITKRhEFBL`&ew!BM+3-!=q?l>#~% zH@90NF8NNX&W(^~*j+Gh^%tDDS@X9}>vwu-VygaCuo34MP6VL0 zf~(WiH0VuN>0=O!{oTzk=2uBMVO0$s7K5rve|+wIvcZ)Y?rXlheQ5rqfQk(#O_ith zIJkJ8PDU+as%XOq-}3liSASUk{2$RHA)l)Us}MiiHa|{j}uUj7zI#~GWZC7;fOTd z9)r>z+r<%WM~_YL8Lg>2ft}pn!c4Nda$KLM9Li_ z@vnKRmSz$cxBT$jj_EJj3QwtXnB08YiGLKe=Tms&2&9d!g&Q5oo>V*!#j;Ituc!I( z#Gc5B0gluObCyjlv;{M)ohn7H0lX$Irue@AF2;8wV}77Z&3KZI@mVx_@K)`r zvEXpMU1CdQAb9vzF&Tr;lXJE4sej{G#Tm?u*ExjI@~=68#XM%Jm<@+>wS+=VVavb` zGae3;DNWa|I+1eFlWPqf>cR${|5jbhH5 z`;q4Hm=nZCPv|)JDV#tK)?=U52h9_-bFgj!!_ex5G(>=+;qJ3MT96LFGJhmH=#8FP znE=M(6i#c9Op{m->|mm3qS($GV5&ch=dg_S=W*gtN7K5as7R?GvL!r^VX=vxV=tS+ zIaN4IW;coI`w`CfG3u}~Qan7P3YuiorX;DFuNCEfg0!gdT6n{X4rD82Yf`(PQz4Ra_$qP7F;%)1>nQ)TlSH*?R#g|O3JMgl2 zE84&|pncd;>UKM5VYF@el6I7w%`bqZL3fsyv=%B>>CEzYn4HDK_j*qgnN^%CRqDc# zJv1T3v$HwwS;c%jlhpQk#E!#lqtNhS3W`(9qGMB1vW(m?7k{>+`D6-nSxgf3e+lH5 za>(JOT3W*>*D)T~=3^WL7HAV<WIr7h)?kgU`tDy6NcWpG9uh=Drh zBh=wP|A&PHBB107q9q9d1#@3%2ne_I6^{a*i2e6nf1CTZ+|V6{VR2sgv^nass4T^8 zQO!mpYRM!>_J3;>ZR<&eRDi8I;NL}0qRqC1wJIb6Wg$7!d!)7|{c8!n+@P*@HcC5S z+ePvx+cU2)r&tMY`dqMu{lkoGc{6zxV2xo(1ApoIq)9K=WAlWTR;nZx#0n{j zy21WzA4Brj+s53niPxQtWeiIks~CRi^vGOG|M~Nu2tdfjg(Z}w6~7}=A8C6Rt?W~* zw0E@M>zfR&8-4nE+JAAx?d`W02c=Jg?%#Vy&!79BUv>}o{cn3G-Tn*zWA8tE=<4Ku zKj}Sx-G6&|aQKs7u;1&JARiyRJPMb+sF!#Ow^lu+>E^{ejT>GSTvOEt(6ehz;+IPB37UzgzN(ig7>`$um| zNIZVo{YURa)f%XOzdkHek1M?Fb${;FRoFXv^?%CnlfxrN1Db09gQhfq!dKn@a*VII z8gM06t_DcUC|5)}a(>Y*9N$0iM~d;2Uueb3F9(x!f3FX3=!L(+f|4ch?IEDbZZc5Y z2cQ!*N9AfhMCuEoFQ*ls{T73ZSzyfeYm+gn+D*pH)xskvjahv5Tf8Y@p1y?Z$r*Ya zQh!vlNJq=X@@;}4kvQF88!~C#$pU5_XRv>JzPZWr@u(AzM)EsBt9EtqhKEfDYL9Qx z^l8%+M=D(osY|Uuf6JBODS$|HWvY8uo7RVqvLyvP@z8S7(sohMwnK0G{dpF42TW%olGwqduoQ%wSpx6_EGE-9%?rOd z>aOZQqkS*DuC=f;fUv*nu{*Y@N<&>T#J1tw+UW0}0vn3U^~+WmDwy{7EF0KjsLFSqSyX+FEW(|^8=I{HI+ z!}XX3@KdSbm$7p%;%!9LDw}fSJs7LpY4=A3&JGnhchghcSJ+e0+Ccbfv#*(sfYAhr z&a(VByP+;Y;OhM^a8&b&)?g16hnS9w-u2R{5h*HmEu=*{(rX9F>zvw{J|r+k6`JpF zlDsSIO%1lBGAFFG2i}17`%j4p!OmD;!h^j9`rt6_E+(DLDU3BwU*CV;%a`N{e zxB)4@hTKN{)#_9CM2SD5*cP0>W~qH|GJ7$9G~*8IO7N9OYI)>19e-!DFOX3Lfj{RC z|2w%STf`Oc9Qc=UFyoP~%hm=CPhTZQ6W;iegauOdtC(0jD-7cI$>0i!g``OLp%Mcx*pWm3f*l4}Szsy`Fxdyu*ZE1M5Io$Zy+@d9TdSzszP!m_OHK{6wU$m3XXT zl<@g=;k&f{!q)q`80E#mA9<0#NPmSj4k-WZl=~wtYen5JY*nv`HA>Ndf8Zs4JdSUZ zya(alf<~WlxtEEtJ__4#&ObbbUncQ&@~cu<5Tn8M^#UT9Kz~^3yfp2MM$AJkMSPTk z;5z9@N5MJyERZOe@G>!>W&Upq!OdO4pC=rTi_N@mI~U1pFPLx|15bv$^eqRT3_ae!6IJviub+q&2hO>5docJW$NGmJNyiqVEy zMi4?`!%{<3sh%x+9%R>|b7!VEo-0ZGXFMm|U854bi;S6r4i94k2ZCNM4 zPNFd~mTqcBjiR@=Nb*YA(Ju2xyF7Z6AO?0w6D7qJ_v2YCfLhP&C6vJ3P`)C2n6lI5&o?wOljW z^~ENOWPcZlb%Iz$+?m)l2dn-{S`}3;DkL&0r&~Rt+BJ#)k?#~thVitRk11bkhVO1g zm;oSql}zSQajSIJD`3nxg2!T1jaR+H*E+S1n?na$$ixq}CRM|f5AczG1~Ncni%?=5 zD4=X4(8+N;yQFMG<`d^q*pQWSg%?}Z<}DEl7=OT}q^=rB+i#5e)dMx)Zl1@J3w)W1 z^9ieYJ>ciaE>nfFCJ8816Rg~EClWc|c{ch_uZ@_O`$5%XB^9eXlm>!8LYVI1evmGr z%q0(W@sK{t_8}^Xa!z7IuW~qb7EK<0w?nVFN=!ts9e3hRur$v3lTq(&M~lQ<{K2iJ?# zsG?C)%<}Bkf6;+p^x-A%$s{;6rrZ&4thiYtdH1X0gd93rPBSiCnP=7&9 zY?`|~u^I7Zgisg(zfh6d*V8&CmmDy`-pd1}<@Py@-rc@WsW7;Ub6MpAlkKbabS~cz zNyW&^reLEP&M*ZXq{6+%x3=sdksfltFdX_q8zB9e-Av3|Il8RZ=~{Uc(4m?L95g}QP2M~p(-&yb z3n%X;j~B$=6>S6Mc$~%LiuN1jt`ManL)b#SOVlgrZd@jYEpaKMZ8{{m^g=XQGvqRT z8=i_Z=QXPC<=BA#NnXKOHUZ=(`mIDL9n;$e{#)lsHW#6r@5)+54Sl7%Jl>F;)w9`!&8rRP~rRwkdp0?gD7cOw%fKM>5eV4q#S=gK`f zIIP{s8OzdCc4s23)M6dLzUxU9`5u5@^wt5Y$7t~Ppy~?dB%!xPai^W1865(yKGN$% z?aO$9p*Bb%eq9M)7TGHZbblHL6R?mO*;^jIM4mAC203;RVV;4A5N54H@SA&a-q-!j z;-Uc#u&|7|FG@N}5#vaxz~&;wl(VPEIjjSko2{AVxGqUoqGV|gtXk1LreNaefMR;e zrhz&IRo7{vs2X?+6joiYT5-+eQK}9ugvrmU!7ib>E>u~0M1j+N*MED2+q_w2ub5GH zf1ljaOK6EYq>QS-8WTWwVxICc!`2mtgDPtELU)YNBiN-|Nw}mlG#Zcn&4C+{|Pd3#{K@p#fI?e^X`rL4_h- zD~}s%gI~;o{;KlbgMZ3*)O~pX&rVcmd%AdmqGzB~>v+0KwR$(q;&F=nj9L!pcY#Ba z>B`sf_V@aG8p1;Zt5c*Sx<)mHID6aKZ^Clv&B|NZx>P7xdiZrFOnmD+s6M&t&{Lj# zlS1kJux9#G>4~s4Xi!#^eQbn=fHBk1ebc9sSaPV`tV!Q1)6R8tJoHnI)|^Q z9xQqGHp5!tP=8%+vFKDy1a7WlG*K|(YI!-d46}^PT+7ODyr=$(TW4V7+}55+?BJ>n z-Lp957d$END{h=5B=KL5H=`dvio~#=s75=|yXKD{`ANw!$f$?>AmPjIvzNV32x0dw z|7hQ!;2>a6h@+c4o=)}anBZJR`D<`a;QdQM1Q`Zw6n{Ga5P?QpQGY(2X89~qTaKvN zJw9Lrs4Bh5B}Rmy&k>au(`1;Qr$elW)|+(Vb*4(dyVyXXH`iE{QWcFf{Z_cD^(vmk z7c}mTVy0Av4IPMPAa~60x3&&m9Uq+xx`%_E=;*K)^sY>JM1*GdU2B8<~9RdA6g*^sBnH4)z@JN9e`CuWhmA3zDV zV}I>V=$%?X`~`IKev;h)eo?uT90v2iS#0n$HiFBwFYT?0o7?weL0wG6$g%nptTPz)KY+CXnZ;Z1GeD3$dFqz`E zVkJfg%FfeqQcZG0M$}`K%*bwF{Cbaa$$$B;c{+TrSP<&w$vC-=CmQv7tvE99$B!gZ zJHR5JTAMo&{9)Fc35ms5&~P#7rKFKVd=gg>&+mew#n#l(#9_b3ohMo}&En#HW2w{! z$5L$0_b@#KxD&cpBYibHKVfkic;V+Z3J1abzU`%m{JBwoJwDg@0lp zAzrXQMcrYZPHEq#VB=v-@ns;>E|hS@xaTCr1r|rtSIyqrIi44n0|omNuxnk#J_L?I zJsLA~qqr`;nAqXXGRx?^CSk@b%y>K0C#@mJMCu7*tF}@(MCCTt?jD@9u~_L{^b=PL zePML=V7u^f1dAFdGo6l=#6{og$$uyv;wjsPYZE=qaLjDbad@1LjC27|>VHq7D-fu~ z{A`q7rv)x8m;+38C+Z?jzsfYnrp5z+Dl6_MprxT4;{aIJnWk9^ zK0Fh{w3E@&J)g`cH}S2RNVzWtpJTn|;CokRasHmChM-?%*K&D*yo-KLhEJknn1*8O zIMtb{M#*_PA(esF87%t*A!>`=vLhK}gFK!TaPWW;k+9p0sE`I@Dt|;{)gQ!jK*|lh z)|cq87;-N-Z~CdGKw4Uy=J4zqqoLD$iT2z$z3^@<>V8sdTJE# z9WghPLIzKiN+U~$*%V(C%qHU{WCH;0&i-4S{>*IQlMoKb7k@u~genjJTOG4cPrCaD zulq{~>7)ECo$aOhaBMrlZ!4mbhQx{#$ObSM&E}(Ir6F}^AowjAvQLX$uKA(}PA_nUloM$4e zg^JI4o+gvg_!gy45w)-)n;~FmSG20riK=|XiqVouO)lb##MRF6 z8_5|~S&X7#3^dNk74-*0`5ET}`_A$LDa-0W^uNJE^iPO?jbTX_fyxPvs0>-*?j`{| zD&o_gZhwy_$P+8hoszi}<=G2X)3OGxxL4@s&B@))4FZ#4c z)u0X-)35d8AN1QY|E+Icig$hxs6VQ$!=~bi^$BXs=8>g(;fC%+ z3^*4@_$x*Ot~15}b9}G#$}^(3xI97KjioC;WgvLvC%3@db__H1MRB14BdmgoPy3nT zrhoKGH2@3kO-!#%tHZ%9qQ+~BLx{B;M_GcqM>-=-0axFWW~EmIyGDuBy(3%m5X?9I z4umjjKh;KUX3HjaZEe~nG;VDT-KJYx)^vTD*jo@_POe%+@^Y%ydd%a}2IM6W#x3`= zKGIMjZ9j|XZ#|A?49tM~N-Y^)zKL)3A%Fik$w5Vd^9L3wmbj$@z5|{y{k_KY(Ud)* z8z9=jv)fRid3cFVJanCLPfNBunkEyllzdvQ8FBpz4SUz|D6#Em1A#3x8KME4HpWS$sz%vVn}2A~ zuFsOtTuk8lZbR;syP@ouZR@L|&a__@g)0IusC3&q9QH(W7zpV+iI-W$x}(8ic9O)j z(=ONW7zFQivY(u*W6+Y*8+e@3xZTf634!~1m%(OWMsWCRaIgF&khU6mJ>;zjq=HA5 zMrMG;9(R7wausXc`DD!C$Y)f0K7b=B@Al){Ht4Q1@V(CQjA*<} z$gcN^1nz6r%-X~K2N|;6a0?ogzXym@}y#n zUKhtWtxE8PQikpX|1g_X0-peK9I#9FWT**t9!<;)@;%?`s@mlx$rXQ(NPkz7wpeuN z0j00aeope*ewvMMud;l4sa7bT{-LJ=SGa=asH!^Sqj>NkjB>{^cAgtHVSblz+SL3hAx9b&|AwTvvt`L$y`u35l0 zXI1Xe<5izUy{RkGs#0>4Xo)p1lAlvc#e5n?-paM1Z>G`A1UPtua$*@OBZ>6nQ{Mp) zJdEw3?2YyS)s8tzh<_DuEtbzG+hBKSQ*al1Qb|`p*f-l`&$~(0R&^eaiv{ebx#=v+ z#z{OeTW{qEJxm`IT_|X|LNScX5)H7vPpfLI3!dd}r5rK2+Nm?heLZl%`Q&RqC>3aPByUO0{-5#=zICOw0#5?B`XQ7LpF(e{RCjq;^Z&aO?3VQBaJkOh0NJ zq#hP6OMg3j1<5@Kqoc@Ves!k4;PWN;rxR|28PCVJfMTtmc@Z}hXA{t>)nGbNqeEP2 z2xMTPKbhA8!zcG0>di!+bLRl-A+{L=8wdG>UV#(C@LxxBS*9(kep;`#4v_T$)4b+X z*67^PMm{SUC>{UNC#v#9RPk8Nd|#H&44ZsO+<#?yuj46xqvs)39Ees`2kGAsKk;ZZ zOV#s{$3;$CmrG>PQffZ?)fVY5RodnO8_7Ki6{YIl`wCDN1dA6Bc;!24rq50+w^$$m zI!N!nDrnUcSewb#c%X+~J$l-K_?rq=4(urKy#e*gYn`8rxCb(}7sJOlJ0^FhsO%(2 z*?$A7@aqs*bnel)G^~>GMl=l>aBT4^xwNoya7k z&)&(BH&_XN$c#50gY)L+rk5Fe^%>k5S=r>p?SqC^DqGrwVj{}G)3JrIt=DQ&S%1D+ zfnq;{O;ckFFjVmnJJ{n+@dpP4uTD;M-~>=h&=a6zJ3&yU15`4_0r-NTrUdrGnkFt8 zZL885OJY z3G=IZVb$9LT=ygzgK=}3k%OUUdVkaxy#C0nld$8@CQ}=g+@S)uz`iG1iw3pGP=J*_ z+01>QVFJM*U1~tZlr(iO0qyGKC50`)im>PDtqtoM;#v8`}^MCiu7WZO7$#p!QlW%jL6!USw$b3+! z7N1e4#{N!lFqJpQ(XMt8D_xTVE*m$pm*t*fE(hVN<)UO6rM%>{WfE`N8~S27Lh7Zy z5N3&>w)pd(m6q@cc(Q~i%6~%Q-kng2?#Hl1*GDD^F|_Ki&?V8AO%lCG*FzBa3BJC0 zmQB}36d!7dFjV39L>6)YS`SgcCun`d(9lXmfP&u>3BadnNdnZITAe&>up?3yF{6oi zO_i=u(U!fL4f@xui`a2EBd*d#RQ;pLy{|vfi_t?!|7&>B;#>HgJAW6|vu?GMPEfaU zl+q~JztB;|O^o3dp}Le?yPQ}mU)8pF6@N&t=2y{mqR^JkZUcsSOx-!xZW^idoX4yl ztbW2ptWLUBg4)_;Ck}vuSv`SWGab!w9v5&d+Jvv3Lq)S|+E;#u=bXH-Z23}Ef96{E z$bO<11>(_NxlS_;0e=^e4Hv2=?zGC)2iZ*h+Evt@tQE@_E;+!7Go;H1b^=bhd)`wVIFw4#_+oa zI>&Wuc9X>KVe~pBh?6yf=7Cq5y7&sRSCL;CW&)=S_!>Gi;<#S8+~h`|l$>xM#&JLz zMGQ2C*(K+;ODXAi4Dm9B=sicV<`LG|c^2LX{Io6@BXDd16t>wxPWip9l$ zK_v2gGKHK}w||f_qjQ!1f-sfT!yIv=G{+l~TSnQxZU2&rG?Qm}c2gw!p2SwxVSyYG zj1afBc+gv07C<)TP%o?kBQKITS8Qg|T(kEqajn3N6X5(07(7)mXr-7SPH012B;yfd z6tdZzEkY@i%Gb?gF!~l;-+H%8I*p^6%w-afL=tkbG=Eh~FU(Cxn6;ynQ$`_k(#5=< zl-ihX9mvBh%hey~hTy8Gyr2`c$VQOemUKX-h#oC{)MK^}att_~KaN9(Q^|((l7u^< zF1{S2^;f&>*oKP?glqAQrjFPUYpLuA%AP11gtMHSv@hN=wSEU&8>B}mXc|Y} zvfv%f!+*P5^DfkM8?|HaV%5$E=ku-p{0n^E-gfG9fR*@qYrh(i*K0)&O@+DjV!5Lk z81c2(7OaP0ssl`pUfwk3Vq0pWBONWn>ymNm!1NFsX!U}ZfY*>e+h#7Z-V%=9bz;={ zoiTK77qt0MYVlz~i`!C*Ulz2uEKiH4q#J4)e1A0b4uh)tt}hQlrg((y#68-e=ze)! zRA?xkC^iXXaj)s?)nHX(!-G*rx4)VbZ%uITJyQn2y1IPvfaRki4zPouXjjC`&l7&7Hs>H$m3b>&F9|tiSwu=}0eb?4m0v{aD zwGNCd2%nRE5q@-_*-98PkE}@?*&ci>*^*sZuMShbSF5A8`TM_6O`7|)a#}&#b3n-0 z?1POicDNJud6vR0g!<38=!}wNx|dBAM}HY1)6u;a1cV=)GXURpY6Y)@j2!bP-vtvc zB#~`_E!TV;2 zN$QO}!f+$B@3~;cOjMWgjWf!$3_UxIlwg0<3H8yNj7mL(fG3c`A1Xov0~5_1aetxx z;kNOEsX+}y`K3BH;n2LX80QFe;K;5ZKtccIJeh-IZ1aP&Y7Yxe=tQYGYNN!1QSLy2 zOaBQ)l9UR>87@ZvW#$BqBF-ejv|*xcJLb0T+V{P%wf!(I$~rIJHdoV8@_r1@=_tnP z^W$^Kr4{N3y5@GSAZ5^Mt^7P;YOqbRBbz}MoU=c@10_P)`}jtqiyz)v_4z) zs*thN86&sI8styjNTS`kWg1wa#xiRl*!iI6&x}`&JT1@{G}AiPM{dxgldh@W!?-wE z*&25TNH*Mb20^_QI+|R>T zy?(#@Q?DdtxxA$-wrwB2TrJmFGD>zqUMe1rxv7f~A`q z%_2Jb2`20|q@bKdhRlVv0qZK1A$~ed;#?b3by1urai?4v-%qu+=YJv3BWwf2fSmGs zH$_5^{ges*>$6>$wFX&tJpNVr3oF+#`VNh8MMgm-MyU<syAU2Ve&W6EjY+k_aH~J_{t=UlpX@Hhd6t<_wt~3IN)DoEu%lp zo8H4Dy)I9uirWZKP=7VyK7Lbtr-v)YR?UIi`r4G!J(~+|zzrtw5#|*9*W=CT$B*Ww ziOntTNauF0$&F4K(05n=$E=3(04Ri@l&R=aG4|L#hfYC#^xnFAHQcA%uc-Z*ns6d8 zH>SPGC8jUNm4wA6-96O96Nv~y)BqIC?7QDDXgDI6!`R_-Q-A4IJkif;ZNPOzvf-zC z;Hu)^kKsWKBvXVb;Nx$Q(^E_{A z@nbv;gz@K8-Y&T>+w)V)5IDonL81hkh`V`h@NC`aYkBoCYK3wpe)D+! z))r-!u+`j$>tPs1W-(Q90B-JPnoaKfwi%f5UtNA&74UxneZZ5~WLQ)<#<^&8j53_b z22W)pw01fk9`xYZn?N&Qpe2}ZG26fmJ1sy)xg;6U^M9ByI9M{~^&KZv$Oq-7tO5)G zuyowEvdbHomVNXTS%yzgB_DH2U!)%C-)$$EVij4khu9-6r;`*1w%KK2tv3Lhvc0^jdnE7_Ot49K1R{ zIvI2i2Y)-!(P1y@zc_mRaz8rk{oFf=`rX6s;NZV|0J>nz9zFZd-rgWO={@hA^bYrW z{l7#l^YXjkQp;mV@J+cp!MiOuAgE3zouK?PGi0T6 zBY?5}yd*<`jlo=$gL6$r+7of3aRCF{GhE>)Mt>PmKE-)jTq-z4s`^y@q5sV=qX#C< znHML%?L)U54CHNpg{)t-}fOKY<#fdIf0?ZQ*$)g;ic-0)25|xbY{`)FJ58&8UBs zy?#u0qfj02SoMIl?9X974a4aC&q&22kohfyv+b`ctl`0iT_( zM>*ukD%V!W$f}Rdo=ulcI7YzPTx237betgE#lHk0AW`<}#fn<^H4o1O;b=W6%w}rUU3QUs-g#-Vi>h7hcga! zRXDkYVx>vy6N|&k-)}}Q`O*4FKP%oQi+3GIFUQxJeOl1XqoF8QN%RthWPT3^?|;(a z3lNXE4)nRTHRh=*{l?Guh)NP>2WdUo-z01L))o#^)z+m?qt;VZN|`^?QZmMJ;+G}3>?5TQ{#GpgB zS?e-6d~wr2kj|L@%43G*u9)mYdWB&E%Sl~xniSlL&xzrMwq6LbhbX>)1~Yz{NEMOh z%Ic{YBE8f0S2*}Ue0!m{Rp+@f+-w*R<|MPV1;Dqq@PRUiwg&~j?$p}U8h^DdvTr|G z)OVC>ee1l}WZqIzJLjAxipAO)ebLiRRBl11myAswL@DId8=+O{Wz4}0ro&-NA}NhHQZpS zn*H<7f5P!#qWK5rWu4s(_HSVSU4eIlWe3*iS_1W+F#Or7UkYK_dFr zUr2YMa&B|?@hm9usef0_NA5oD&s>IM<|v=B2dr8sz9 z0m;N2iYF*^-S7((QRJgiYsw)HS07tGiYsnqDiAAUb5Mceo`1!HOr60v3}k9Ixhr(? zL952!6!u1M+o;uOzR^yLO=;t$AC;GcV#Th5GVILLuSib1UgAi?xT#6Cr1aB~3fh$N zjk>{II9&VUD7qyXuOvGU{BAtf{<7i7km@|pa#Nm;<6At>#4{aFVwWPk;;YEvtxgg1 zadsPZI|s{h!hbRKd02YJ^p3PAxK*iy?{8_^eqH+e<3T{OG6wcJ?wJm#jg1ONMpJ3o zl|84G&92rm7+e@8btyF|U@ZK}Z~@q+!EoK35xC zG-tyb@PE1@emzUhvmDNr-#q+g8+JsZs0LD)dvcLSLEe&!`)>^aW~K0$4mo}RFr@oz zL5#|#cYSE(8wI5o$-m}!o?~GE*qB>kfERY$t?OcdGm6h=EDzOyBAimRf<6>P>3a7> zBo1)ugEesbg9>JUAku;pH-ti4OrIvQr4*_1z<)%Z2v}4imIZzHbf@NuZG3eFl=ia? z)X>biiR@loWoxAo0Q|fH33_yQ2|ETy0MT5R#WSv>BAFDKmus^riu=@dtypH5pBK^G zsf%l8Bo4aGycc7)POB+m&T%8pXpbngPu;2_yK>F#$=C~ZXN1hxtM z+JEhDmMDCaMUXTo@m$@WqZ0s@7|~1#^uRR$q6kG!XI3L{KWY`5v?Uool76B@??}Tc zq{otuC4`3GfEKC*F{EpTyH(OZCgA1Z^-B9*<{o5bc|7F%>{*;&B(tT>4Ui~o<#`Iu z=iqGm4>I}Zo9&vG7qZOfU0m4Z(WEVY5P#O3)g}h!thK7vm5Z-kDf9AV9HXTrzJh3f z!2J0<8AmNN2S4gOf_3`1^Juelf&%3Si8@hpn#Gg%MTgzea&)|g)r~uqDn^i42f@(d zfMeGg9G}2?kLUOa^t8%RsPQb;%Q(+fAD@?RphuTS>=;}Vtopp#?x)u3WfG5Pmw%mT zKZ$kXB_KL|j{bdjRWiMn;E4;?OOTi8`DZYoNP<9*E&Mwuxcn%md@5s&=rNM-hW{Tq$9JJQ97m{hGJlS@=Ok<0EugYq`B0j#!b9y zyE+U4)BkqpDMr(fri~uvSPNNUY)g~&eu-O2UUpoZL|a>E?%Ue3lFkNp1pS1b?7J^x z1ut$x^4Krw-ozv;hJT%V0v>U} z@dK3(Q#0EQPquRMYcxHV+^t#`RWfzLgK91|^~E=CSPnQ_Y3Gp!qpYaTrO5TnfT*(h z8EAp6RF6@s)#4VN57D**qVr+%|2~PnjZB4K{0hIQ3Y-7;QRfFx)M)B<@jkFtstsTS zzIS`@Krjb>(5p-~z=h_wFn_D>fy~CIXjHMSq7zYi0jC1(NX$;yz8@}n6;;Vw&zk|@ zw4{5QBkb^p_Y7%)W8j7X61F9@cJ#hza0WVxZWl zCEYm}kC>VS$LhkV931&CE;GcYoKZ8jD!0`7k)HU8%j?J4jONRY@`TcCR*w;-&oZNI zDhihyCkesYk&+wgGDD>nYac7S4%ZI$+1SrWS3gvnhhdEaMb~9HOgKE7;H_Gxxdjj6 z>1y}(9^L{|dGqJ+w11PG{~BJvv2q`ixKC&3mySxTFke8S_r&c-uT@8ni0?g04`}({ z?OSK^^~KPGdabIi!0jj8S%kqMOEeUt+4K_kl^)hJr$F(no>&Z(xf~iDc@ue73a7nfZG{GC~=b;LnDu2PGBM?AD`U$s}{geZ_IStVyiF0fN*BJ%Gt0{aqr``JYaLl&R!*1P9 zM-TvCG@)vR%b$^=FWiITG$(j$#pfh+J`I#qblRsE2PDPdrgVpUG#!^1dWgTmNe8ORgJI-r(mgCBDxU&f4(=bSrkT?hr|E1IP z;J+|ekT<7t!k}l6znSg2+sh{iGSdF;tGzsfC!3+=U!FtBK)u35g7dk%cqvcnsWYkC z+3OpG0yj_H8&%^Ez@7soTz`yA z8h(0x44wm&AAYfywA$!1AxSRqy^k9UZm5u8pR#RPw)(U@>a91c;7-6e{vqBd41Z$| zT}WXlP`xEhRy5&9G|fjK(ZxLU(~D;;tD^#i_44C>SS9!AK^7N$}5FPiIg?d4yRw2A+KpfX~#F7|m zcg(9R^oRazF=(au6O6TbP^D6=DjKTje|&UsI5_>exA!!h)F>b`L~Hht<$u?ZTG^Bw z);F=0btdNniuS5X^Wk_!`UZtlTMwXKNI7pe@zYJtH>QMtV`mDCjiK!Ozs8_>3(K;gfl?=*b(wN?TK?oilfOG5vS z27)2w_>`B_8J^fjdxlxj(tm(96$m|R_8i-kAZ{HH=7pXjoiqWVIqV6oCLUGWz}~EK zPVhrtoy9=Q0sSfNXE_8@fgxj)^T@p{2TxRXe@U;@`8(486(IE|1kHczH2dS&_gZYa zzHp|rzU-v+`f8g_eP38vSJw%>n6~Vyqt)?s-QCl=EBXC-6s}!>et)b*D>8S+ zrevXoI%Gp8TBMX#v5+Hs9@L@Zfj?_2%5dVI3TKNSgjs3TnJ?DMA*o*t^h(s#w5#GN zi@r*;PzjYb`%#rP9Dm|558EXxoTyOAY!wa)t1aFa2^vVzeoB9Gd^Wo{jA75>67fiD z>3RapO^9_rZ<%Y@8dQvb5o14X>5(=f%M!Y=TlFby^pUp%k{Jgu0jcI_9A*EwCt!?K zI~|p`qhGu|@KcE+Y^P;ruw_w2Y|9F^*%emdJzHm)(yQ8MC4aS{StE+8VYXV1hO_N9 zR$n;S!XcnvODQ6es;2%Ganyyc&xqJ5FV3PIhPXcaasw)VHVbo!zQ1uBv&OkGG8<-I z0q>Pt)MD7xx}vl<8;ee8qc5Lc9yAt>^w=^v=wST4i5>scxi)h8DIB`C0X3-7X zh)LqXZ+dlGi#+i~$vg`1?J%P?y)R|}dO(H0Fm?CD-kr&MoPWf%iA{%3_Z>Ej7DiT1 zmLF#LQ=8hp#Pz2(!Tl$isn7b5hfXIMx6t%^P*ryvJZTJHSa7>ho9(&T-9{NNNEGV5 z-kWHB7aXCu6H|ZSGp-(|`zrcfmV$=pZDqCtm+e0;(ezVkZ7@e!E?l%mB2AXMBeGMzHpQ(ea+g)xY@R9C zNuWk+TgK>IkJRQGTob$RQYu#yEAWy4T{aO~T=~%K#Rz{@dT>_kPw1og$r0`Gb&|s~ zq%1~_{Q}&lXP1e|?rXRKVYCmcn!BX&#iO8 zhFAYOae>WUb6Gu2_!WH|ftRw6v zfVi&ql)ypMPS{L|Dvcp6{l7Z{{*RDNrnF@{Bd&knxoL}Dg=k`nEk|(>`q?~86d7ju zB*{7Sg&y41hOaRsekDyRWc->;(D)S)P|if}rbpB>7)+{*DC#bWtB{@$7`7_}Wrd(O zAP;5*6$fIFRj@$LCaYY}^JD_kCA8^a%_V0g+zx&Ar1uiSrHmd*`9sc;I`s1NQ zx2{2n8B(|xbjqFeK)ZC>j{e#9dE5K&&v$<|J)(5&+E2!__`f`otJ-+2Sz1`7mj4K} zybZLxl|92sXRMI_nL*JgixdUlz!UA5$O2!2AH%+&*yslZmFr=S10=k@+GK4J>UO9X zN1ZFp5XA&s(dvP0X;ge?hqD=gRGKl0kpQHB1R({z)BdZiVORQuiZ_vfWm5VR*eHKh zoj+bEv{rQh=x6g>9c;%*oP%|0$vgL zf8~a1dHjcSJlTx?XVy46dtRp_NtvqZ`324meNP8RTot)8YGDkRInL+ahshw9S}Qzgk(3PSCAvlHDjl ztmZVzK$)k!uWA>|;T`q~q$Eks&(mQF`-3|3V0It9%3)~wy;QTxZIS);tS?+HLUDJN zs)|`u?M+t>h>o}?BLvvoL3e+`(omqlbUrAR9R8zZ7hMti6>h1*EqF71@_5$DLYW=9 zBsZy=vpytVwBwUm75)>FvMa&0C1ckL(UZ$+>Z?Rk`b=AmSpev}^Yh>9cB8Qs5+DmJd%b2GqzcoKg$^^B(~*Md8o_O71oZ%(Sl!rH;W&bp(5C(%+`*S8 z97GFP^pw1?_3bmJ*C^Yns%&Pi?amo)z1hsOm^HC&H8E?=Jl7%*DGhV$e0Dn*P*YB| zT8ORt>I^f_z_96?oo0U%r?wC-ipzK!yeV@h5R{(5t1TR%BR}zziLEk~Kbd^T;zRis^4`R#Z|Hah|FLMh^~%H66kmsgC*y2KuCA(4|_! zV;a7B(|~hM-eGp``*Uwpr$x96bRIy+>g;}<01u;wHoruzfKmq?4XZz&PSx2Qy%G$x z?(sokYV;WZzcesm8VLeYXjsBXKRKUm|rA{ZLO3~3;-E9jGg#6E4o$AbHHUkHg>dN16hoX7B@H13(snmkpfx$dA# zxd!FiA}Dj<@VuCpW8Rgpdwsk{kmW2oMEY5A_RkOULz_O08_90x(SVV|x zt8>{5@-=@cR7@%DZ4uE!!@3I6Oo`1rO?aj8>v&x}qw`5!mYQ@6MVDf)qm`ur_X2b#9f+*ca2Ygph-B1!* z(Q<<+I4?UJivDY^PU>S?u6d%CKs+(%*Zl3u%O5|o=%(JGRtiwD%D*x*E=w#469PC8kINyJ9^!nv~blCg3cM|oxhuy)! zfA@a?bYZZ3^z1)-dxPkt_q=z~JKXE_{}Q#XV$KQgaIWP#WPwe=|2kJ52^soSl`U^O zKxJ`8pwI52QPci2Y7u5KTZyQ zdNIILD*SrZ-TS-x@f3eNKRH5}-$N#vw#mmBmQ=EnuF49qut+e%w&?B_uq zPYT>bOGVEV%bvq|{xZ9n$l}vi$piz7KjK(UK?AivU+K*bOf!@@M?_fwM-`T(0-R)J zn^_>i*Qc0eD^CXk74m!lut=*@N?r5Zqe0*rL(u?il_*L_m=XSr#le}b;O#Fc_+o#( z`6)4j?~79Ssnl`IaY8cP9MH>qaI{CqMu-4r<$zZkodWb!b|Y2|`g<>W`>$X2PCDJu zh)Y}1Hz#xTR~%Vx801-|^t66=`>)@$qi>GXMjTT*3;1d4&8VKC8kE zP5tXtRHQS~hT#2$YknMF=^~l#rUQSy(4fAFC>Nrh%Z?iOPgy)}Mf=HgoZa@jf2F~~ zN2*(@PpD}z*X>v-2UCBoaI^ilSA(CQY`r)dY!g(CfXAx)9Wz}@KDZ+AlkTfy5Bk&f zK`#&e$-NH!`v7!v!WHmZ=2bD_#^H!5@fZYlU8<)Iszyd2U^8|LO9nE@rq+K#E55>M z)^BT$tfHQ0xz*87EPX)rILA)TvwVlbqg<$N4xClQAHk#j)arFzeA-VZnXy^(L4!7O zX9j`^o-Tmbht&q4q|Ug=zRJ<2a`eIPO^iNRPKrLbM_Tk&>*h`(a~Xm8v2GORYD9lFQaI8TTESsE)jO;`_LUeJUYbiZsQ2LBM6-|d6E={P z_lJe1Rg6svw|6oc1@;~^p*kC*{b9<(=y4jOqW{GAzS!QzDpy35=g~4>1(iV=Ii1Q|g z-cF%KV?e7ry$U5xx|wRA2!*Flg|u zX*_Y#uAYs22peQ(WktIy)L_PXJ+K3a#qh?4<5J<1K>AULR_0H&*aOWxzoUwV8{lSC z6wzC>xO86*-hKP_**jPO*J*OYDi^)kWt2<9mm9)KfCX^NKyQCXkce0_RU?*hS0S%1i>9Tx%4^;7!TFbh{^lil%5Unjk;SN2j}fb-#4-rBZleVx zZELvX8XbG+hNyY^6RLkTFJ}7LGxPj9iA6Li>Z3|o6HycJRfPw3U!c^)!XD?nNvZd7 z6W@ees(F-B+jW0Y($B}UR4EB~p;CUVwo*X(&Z!bkU`7YUE2z-N@<7O2Sv8evt!RrL zc5Gt=UV5uI1$6C=cM*sh{?Rt2uU~9GegTD0N(%^Jar1&wVOHV z`_=nF6uZQpu|6OKxCEj!u zDd3;dLB`%q(BSvuS*-Aa)!_)KtsQ~gV0-(4k(1aAWR(56lNLR=1UAB1)i-(2d~m1} z?(j2YXeIc|2KV6_8UQkWCI%4YnAi#mECJ=jaG&S5fa~XFlF#jBN&@44%~<(JCtb2{ z7Vv-O_^u)!R|2S9(h^^bbd+>Xdi&t`EL-EF)eW0Jd-=LYe$fwLgD~Sd7`5#W9HZi% zX`BKGZ}6MwT&oFyuR3oyO?NhYSd^m>I>8WB2-$O&mL%X=L>_Zsy1f7K*x%g#-P~qMu68*xjIfrTvnv<$E<_dd2^E{cOu;D>XAVP7V#d0qg|6e z&)z5vHS-{%ghz`wk?==xC}Drc7GJS+_e>s*dsB-O361E1ea%8N#{x%gz-KLdE2yCd zyaGYYx}|RFiNgJq>Eay(mm!Sj=F=SaPPAW%nk5e)E;I7hS?;~-cs$4KBLREr%v=?& zVn_8Ml+CElU7<7ymlvj~TDpNKIBsAME-xSMbx(de`lP+rUE4N~o9}-kcmv10F&y0B zgq%olDP53GglE%_AKB>t@Kvwh@BY;L6pd04cW3DE9Tm65EV-&dT03BKSRQ5|FmW?Li4LU&&u%xIhVH$L zuH23u|Img*{PuA=&eVtqWBpk?n-@wkeENt)roDjxEh1_?-i!{Sd48dAG`$<2(g3x{MEk zrq-YB0ykgh7Et}Er0T_G2`K;r!)q3;p1@@xPr<#bM-M!`W}Rj3J)+0W_vg9ENrLB6 z^BcsG5-TI&R-u2pRI*{NhJTi5wD>8|+#&8Md3%xNx4Ms^{;fR&8EgyZkBZeD{n7SG)%Nk)_A%2I;}gPFoeo!rX&!%El^zGMs!i;G7F7CnqI?Rl z!nWLcH+t1Oe0|DD5Y9#4=qlf^G0?Qd2wE;Znz#^7_l{n@>K^U~Aw@@%Z`$Ps7*m&lzP{Hki`} z9tN~@sj9S-PP%FCS*Ssq_dFW6D|yeM`+w{%tY?2n{B893k!u)lgsP~7t1498m080U z!aHDRN%S;k!sU_JoZr@oME#dGkD8m{C|c{NwQbOzSZk9m^atI+!CpA&0x0+C@F7(R zBwaYp3cQO01^MCeQU73YaCF#x_OiE95{6(>1{wmzyl-vMuc&cW20yiegcgslvVycx zFS~z&I)}n%NaQ;C#&~XVP{ufMa;Ah()GWUO&xOOT>(V5+H7oNUaJA|T2wb5y2ZEFR zfH(n?0Wg=WB^dw@1H-Wyw+y~6=Kt4<@t5o4SBddwbS)Lq&x2kV((iCq$D8zUQBc3r z`mSO9F0lH*exBaC1N(W_>k91WQC0@_Q+a(WKIomOav%EhpBM^--#c;hR047HfdF-G)+|D^v_jVwoXNwe zGTczd6~UQQxLkOqHb-kD8;b&ca01dq=OQ|azJ>$PsLXH4rhM7Z8tcVZc8#=cjT3*P zHhPQ7o@<@HD`$L$V#C})`LSUv~r4RHrg< zX?e(PKD+A410ogA9YizbjwcY-?tFj6O;@hg+;ok4)y;yjDqJM~jhdV$!wRY#&%jaU z+=;Rexyd=3&q?`W9Sh{2?*B{3@8qzo5~-EypOUgQ3gFfjtAM83N{OBfs&oI-Qo5m@ z)I#OZC2gmSmIdme#~OFk4?Sr03Sz|w@2nxZ3~_fAQNyd$5xGJs`;*_Wp?-hpk+hYi&AQkSJ`G}6bNCz~`fZUJ(%TJRaV`%)SW2$*~iccelIJw;j;RIiSX z6e0usav4*^O-XnH=YxSE&y!-BQQBoo}RsAOyKc65`frEbYd^IpR}F}C00NGa^!s` zl04!##NQjAhcujWvSKcwJjL3^$cH5pW~V8o%R8#o{>jm+9!Jlq@{tk^2|)=pc+q=# zaNOO8`q1D-GES%QsJedt#li7AcIt*x+hsb{l|RXp$`R@2xqflay!)v$D?@S@J$n>i zmI2*Em#$QG>Jpo7>1BWS*a65pj;GBEjh?@VbA<%nG^20%XyHJSnHa?PU0JI-%1z3%io$S4HcR}<1oJN#{C*SRtH@H(fWUYT0+9TVzD$7I$6`X z**jb7X_{42I#&nBPDg9qICQo)yTPKvwcHOXj@X9wd|bYQ?82H0Oq__~1byz&R|;a6 zGKXJ#8sF!Z5AE5jbRK^Oh(D$$Z{2Da2D?C zADHLe{33q{^HYCO9#m2D`}k$|AH9?Qe;yqi_V&GxLV-Pk$C{>XdRhW5BEif@szE%u zN+)I`il*~?niWaW))T<->q;;|bdA>TtDK&`_e%9S==GPd-La|zY0FUq@e=RTE|}rF zWURw$YoUu&<8QXLburG);;}lkvOu-LGomx30Mf#W9x;E^b1;40WchokDbp33(pZtY zs6%Q(h7T1C5OrMUU39z66LqZ0wa=I}a+vn%4054md98H=%l^Tmp%#g|WK6<__&QF< z^i(247P}&=YJLgP<0c-zckx{$knfrU?d`!JA%#~W5i+5RID9?5vgJ^(dp0-{&|-7)F6RhKkZiOyb9nn2R6I`RAx51iI%>MP~Kbe1){uv3*AG(mvASQ@V*Nw=BK&L~7 z56H>R7eZX|%$%-D1sKG|pXuMYrP+^k6(By)E@yx9o>lrlJDdH?`=R~7x{&yC7+;&W zNAMG#xJWZHlG?;&N4wC5k@5C1xZG`=B=&&!1iwHyx_A-C2WDIaC9DmF>PfQkPREGI zGpK)>-C<96v2m#mmBVbRL|~vc961_a{%1|GhScv$}sx*d=S0b6$U)(2}uHi}HHeE)@8xkM48}4g1+! zUHP4uuc_+A+jU2aW*r5Ui3%)~=b$>EDe&#O=b!+WO>*p_mdwj#=c_3Tdw`o5*6YAT zCH7iQ!%nDDsQ1Mkl+z4V!19p3pFmPXgLh-$Gss+l|H_!BUMi8#*=vInhueQVKjSGn z@Q^oyGd$s^b9YwJ&Md|~BET*{v?T3n zvBC7KoMMTFo)=bNq$>zH+t3knjsvd{b?lv2CG4twnL>V0&iuvX#d>s{m&*LCO^6OI zr0wAmUUY8l>Zw-p zx3-Lj#=8QCJNG#?hIq^5`rfpP%d70_m1cPt6%r4NjPWjJIDFDUjLiYCBwlPo2QBnj z2gh2Zn9$uYPISaYeXddmA$-VwE7A)IbchCFm8TvVcVGC`Gjei5mnVPWFZWQD-NkwJ zL)m=8I1BO$J>=?O$0Q?Jl2b$y6Tv9*4Oz=3_`8xzC{;=%lB$#*bahyS>^E;seaRrU zc9=iv5O8qUpx561^7mhN z_tj&r-+TqeSK50ul2=0Q9;Q^GfdWpK#3Ww5hE$LPyg{3#`pF=+@Je&GFg?+2EqOg9 zAExMY+54~V-r(gwZ15Sq1wPLc%Bo_2I;JhUE&{K~B6(h+aW29moql?mwZmPf82d@D8m953(*-~C}BS~m0!qSSV?qj+j2q3 zWr&ksSi%ZR46s&X;wAlV!xT4f4H6C8^+Bc zO%87(YDZ|7Qr&>+YsukZwQ7T&$0F?#N=r+j?W4}+sHZ`Ov^jHQvqvsia_ur4#^nj| zMk8E?7+?Wn%cNg~;~>!mzc~5jx-J4ri_@NQO;a})6<&XD7nn(it}zI_6sUaf2W}K8 zRvKb)E}QTu+0lnd*u%7WrCDn=={t(#Cu=K6Ey5D9L@Hh;+F6F1K@L z`P1i{K;HjN_ahv*T?EogMU}<%QjE#Whgi z9$DWsEwz7hc}ZxO+PMN^$N?v^U4tNyLcy-o@)2^4-?9FMF~)R{XI-T*?CE$Z_-3(TWQ|Jt{|y>nJXw#3iTE`5l<$< zBW4Q899N>|#jz!L85qA$K+U;=3s|1Ii!*F(9k74g?;YxDW*$_)?t+9892^P#9$+XUy zJ9K}q?HpIY236EngVV|UitGkv_1koofu+K^E&W@|MmvtIXg8b^!&7E;A8O6MP|?6% zgzlEcxD*^A7iHm6FcwPbg6ESi|WR(YNTRw75ta6rD>0lL5-0OD$S1JJrcl`#A{|ljc^bG-& z+_e~S$1eJI>9gUe#0W64*zCy&z0iO`K=8#{ClPF5!K~x`QnFzx!O@MO74GU z5CYxxm_S6{4;~DS&)`ImYDRI|68IGVZ&w@q#k5!n3UaB9!f=~7Z zL|ysVUO&0jZGmhg?K7bZDtA2pkG+34ZHwzj5`{n0&*T4ax^(?e*hMwMt^U9aJ&gfL z+?GHWkUbu?Mo&QqS2N}RCRep6k{ zff=Myvs)dv%c>--t4+)-VqOdLkvSQ3ZVqZ!-uzaG9(BpbpDm!9kUeTrP4|S2@TO?j zfbwyRR>uPurF}_T>Y=HxjcrH$+m=# zw()*Gn~pIee!celyRVNAw_Yq9rMW}KX>Iyk52^iF7Zzb7!A%?{+rw5}z18ud3GC6> zT4G&Y7qA{(i~O}NC$r(*2o5qYMmI`lh=!_t|r zP4&Fz_uu%d%*Kvix_f`4f#yg&%QnLS_!WI4Kfwjbs-DJ58_~qQ@tk3Yc5v<*g99Pl z-t1l|R{M@tT6i!nWWBXL1o<7s*86RsD0W<#%C-ofvwQtMB@IPW4+#Hu3c(r1`DKA& z(NTS$72paB3=^#&1aj!-lj*pCWJ#15*gYpDo8)aUZ<6Z$3|N0KJQiwog(`zABibea z#thxS217XKy{jw5nefR&+awYgts}v*NUu#o)w-vZ#XN+?&S!X(2f@Cv_Sq=cR(?v+IDH>BN)~- zC5cTrI=#pttcwc zX*THPT>wY*qwVLrJFj2t9?EQYxRkG`g*!Qg$dq3@}eJ7^F z-*{$4(C^>@ZGVD8D&Ki;K6CE7W_53I<8`F5TfPT)Ek0fp7)PBW<%ySp;A$Az?DpLF zq2PbS$DZ(@yqA08m54}q7udmJ=PF|x-2_9(W86mrH+8*f^-xfuN{p()2AnCiWR$JZ=9(}Q*T@YJ&mpc z^^QTIW6kR7NG>}42TKnX2cv!m|8N&Q0?d8U;7)M?b@Su`)|ky39t=#&ppW`zsE~gs z&#%B+*!JTNqb}q(%dl_D=zq?Txyw)egUK)RyDFHlo56mePyc?(!Lw_aC3_}PHj8Kf3{2vq^ zr8|R+U2O|ix_;P3GFqvt{#iL7_t8;n-T7agh22SqabG@JOi(lHrQ^)ug1 zI$hBye$J0M48r*hQ&vKB(S?25Tk;kK>k<^imbd%wqJ=CfNp+uwf6po z42%SGL)=S_?ZF&pe~e~?50T<}`~&aLe3wjQ%2l_XU{bj2c{l~H)A@f`6{opgDL~g;T>EJ;9Ofi~7iT6v5JKO=iJGLBCbbIaBV^VTRf`h5pyK1Z@1{8gMj8yS zzxyu3XGyHbS_4X;gF1g5cnizSX!@#c3k%h~Gij-|ti-wO4Tjlda5)>AR-7($M3>da z-gPG%_QvP*yhcfc6q|$DVLx6B)CPh@$BE)+-fKOPg?9;I=+!iV9fDE|AJ$imtv4G^ zVQe%NJwg~DAp9Aa#ynm#`BfQ`PEzB+z<0nX2z+2uxTsLAFY$khviSDV)`~5KbXO)C zhS~xS#9vePfG9kL8p-?o+Q$#DH*%4xt9t*8XVUwAh{O4e3aZKhnxvIz0Tm?aB!o0| zHHt)+T}S+ntY?#DXs}o>i~it@LW7y18C13Dg1q%nKlU`T@9El~om8JX4H1}n@RWl2 zcFHE)&DuvfBny94>%NjAN9&RtaT=X~9yxSm4w6(esaJd;fJ3BoQY(R80_WrhLU(21r;$hMLg z@Bo{(8(Guih4uNVkcl$pN#zK6&{?~d z-eLws!h?T;34$%{GH6f!cUTlnO<6uYRYJ#-4yP{BTN`>{A2JIKVB zXs2J3i9OYsInVQVroDX?kgDD^t*Fu2tccGHS>PIdy+VRhe_j)ZY)y4IQHO4c<-~su zbdq)-buM}zAYF9Mh{Xnrrt^-;*oVDxbLbooYz==TK_aWBhW}2)7yt-A)s~N@OStD{Ld57kv@NAyZbaDdDHl(`#`&lyp_J;9Ar^Z|YWuXqinmpWRZzB(*rvO2_NB?!Ozx&yt9DkOS!?4~JcT8-%Ct{oR3D@j|?E#+Hu?pP5Q@isX zpYMN9X94LEEz}2>AJN`>a{K+=ubaP+o_$H95le~ZQRvc+whM>_IaQb2-Utv#b-Wkd zsrd}7fSyb+BiE_vC=>Ylxse5yCBgU}u6wUB%~y(S-1-!+u#@|k-hMH?<+%YRyPb&{ z`N01AK?)g^4)j)JjAlZH7)U5%kW%%QL=1m&cYy4B^9mh5XrTjbfNmgj#6=E-nvgi4 ztcJj0s>S3D0pDRreh38)sOrcYnBc0RxPi5y;iQ?YfsIxS=%hFev53|NNSLT9N7v=m(#Srd> zv#G+cxu+4nF8x^weq{FjAVfcBD0eLUadfL2iGP3A;vXCRFI)g*xCs%E^CDIYfudqe z40L*Nh}54$L69mtq9ErJoJSa>rVYhGo{kB~l@JNJ8jahl*-$Lx6^aRlqNsmbG&Gqk z&B@flA%nR)@sM-G`y^hDa4r#%0aOc#JY$2@dO!^YMYq2aQL%o1<>I2#VM1W6-~Y9H!$+%iZ_ZQFB4~b3C+?OEU-eBL=kYYG1e2#Tf>(2SvSy6Ub31Z~@RN|w z6ym(Jy}-G@Y#QS?&ctAj!y&f zZ;V>YyHK9b8RT3{pN3G)_32q#Vy=&8ExvDFmVvvSi)U~rSBGgZb1GYC#)dz;*ihG! zWWI}6_fq%f4R>oXSFeVfxO;j1?&^l?LvR?^Tp75Md<67?n7z;@`Wj&Px{U_P7dGv!L;1Wegp4|Z2-Vd zg)Lp!>Oc_$UIQ09_2aYdIJ|MhbnzGqLp;ww&#IM-pp1^+~y4Uk(z zOO59&WguO4qehsagh9#OHJMF%=Q*D{ZSd~RhSQjm@5#=O2l{`~9uBqIRJBke$;YVV zgDL5h2_|DgW;3Pg!8=*S&5@N^%S~UKW-u5MY(>Oqa0*QFT9MXxZ*-vumA3n*iJN$B zYH<{BY|r&{yfNFE8)u?xy4W+kSt~PjMf?11=%als9)D-DU-rnEsH!n6QwuQNJ5o{C6(0fR5vQ73HshG%yN>~F=&QpCY$p4-bzJ;ESP1@yGp7N^5IZqx%)BdRyeJo< zy0aS1E>9GD=#rr$eQwUi`Tx!ok-jzofb59S?+uAM4U8PXpbEpZu6V+o%yA{N;MGNu z_CE8*>d=2hGgMvx?R#bijGl26uo_3p0WE{MxI-gwlbAzWeM$kYQ@-a^+guLuOQ~mqgMxe`^WEo+TC9N zT$6w1`t9h$Px#0)D_E|s{=mMGdLX<6EQ?94|YrLa<@_RA_p#QpQg`T zmKuW@Zd;7pjke}}w~Uk@%F z#K0eug{^CZ12Yrc&>vxCXi;o?4E}Cb%f^2=7RhWlf60O%Q<5JI?B9cdPo0Pk)f10R zUH=)xk4k3HbNcabpw)$Bsw_KqCD+pGYUE;yTx^4K+1}vaFgG2A&!HQ~ZB0 zf0{q&f1PV@byZw^O*0PF5uNKL0G~r$>ReX~u32 z=CXoS)SH?<#O7$!%4j1t$+Ah8qW46_?r5%N{KJ?d2z` zy4FfJDtft9q8m_;_=f3AFuiF+laha@C1~Z-_$0|L%VTAUWHs@Q!3n=s5%jv_+pL5f zKxGrWa;PR4oUZ;Rp0(?3tt*57DMRh~(l^~Q^2U-l-81qo0CBfrT|x4E0N9Jt*E|U7 zG^|2B{8E~%%3x1KuiGerl?HU1S*+5k*7?J)H`O~XmSD&$v-yQ0)3fXtCIFTv$#tWj|}}To4_2byID{)W=^l zZ~a~~Z#nz1pnO@u(?ax9ojh7)wA|3`QIv3du0b%h%J!pR!k3JdCdhOMm(=l!&Ex=hA3_h zmAglk%4|!ELK4Yyx-imMvJgz6C#xXG4!e~!$g%UK;Yc*k&U{!>nQLcJSi%BE6%n!a z5~mp0S1lYY8;12I!A)@XH5qhL%S3EosyXhYX3$}zbY8iwUPyJF-b4#$N#NDBweZaORswV~AefT&0 zUSMU0rDCtFH@!41*{6->W(b##Rj|Dnq~X_+dcd^R1US&LU| zfA{tA;noYT_&GLDGZ2h}uRh?!x;j%rcWdwP)r+lt+nJ5EA69>UzWZWt`{32_?xCp; zG4Rkj(W?sEv%f0h!ObSY$IjiW&=3jKr9=uv5b3F>@LTyT->>kE`>L zR^^`swYCXstY&{^hUcuf6InQE$f&~-6T#ckemxcOgI!frQ7Zex`BznOCax!1f>*_4G61e!v&pssx-uy)q(htr z;0yB;O;>+UFgV-r=mma|Q^$=8Z1M8RM%GgO0m}(J!oS>ME26-cT}GGM^%9g;JA_m6 zv6O0eMHQ=8OjOVb?HDz6E*__w?4S0;S%5AO`BMUPt&w(wHB!_P$var#fNk!>x2P)S zAEL)}3g;9)&B)`^usJE5vV0}r6f%?@!7p~08SH-`qt_U_Ec7buqLfY@Coh!xMZLpc zm=0=gWHSS4%RwcP%~nYuo5POBkxg`yKsE=6{23q{^UH{9{I^6k*;N$POocbPIbs_B zU4dxjWXl@TGZ&qtURoprM4Mg|lRSGrDn5?%Q{>L}QTDMI5Btq&n1(En48ZG5R~)*j zyt{un2pD(U79&WLFI^)=y{y2RB3`DC6zviq#IKNYQRYshTeLuuYS~`mM2pMcaND=~ z&8`xS>LQYf#D`)!?ame(8zr+W&?C5RWK@r=FY9~H-Aysf=nR0BU};c|_~XUkRHO|c zese-zC(z-%n5DaG+m2Is<*GE|xaF%o;`o1MyNaWi1Ym#o$VCN!TlAMeEzv;?vz$@B zp+5k*=&xG16?6ERLtd}i9>=dot)G!~z4Z_LfMN#Z0i~5jO2!=stdbxJY=&BVHdSh$ zfRX76Dcgmu$H(4;of#S9H5lzBPw7L!L2W=xWPaL%z$%mCGKbe#>fBE2MA*)rgHwMR zYxKc~8EjB`uI^se|6|RQmNbKhh+PV%(*=KT?;->2HVUI#`<7n(qa>&G@e{vPJxVg`;=D;V zyI@3+VRpEd1n-rl`Hrkzm12Gx~&% z3M_wQpPfssHW)m)^=of#rU&ock@2N=u1qiXOcved@EZ&{0^L&q`$&Hgd+-jBLcctR zI1zcDF2jh}d$orV3?+gPIz2}WAHsKTjSg~D71)pf5=VwqySHSqNX6eX4*kVl;u0n5?+{xZBE)|J_0Vji?koqztX(i0TR7 z#sPKT&Lex0dgJx?g)1r${ISYYFn ziv<*thXr~y>L}hfb-2JpNHttApwr)@2L{Zmt^-ty$uJ;Z{t4dS7_e=5xLf zS;Ox;sykUM$IVPjqwvH+HR@lF@egYdcd;$pRyX7ZLQL-jb=`BWgkcB-}#=(l*dsX^p?yi%Z5pHm(+Km5vLmA_Bo; z7o&#z1cHfpPt;y3=`~}2`}Cb=Oi9FNMzo5$%-C}6F=M|NcM0t+8TN(C&i*tQE^?jx@pMYxW?z|Iqa#EFpL|M1s`TTi~7pO#%VD z!npfPDH`}yg!4=U8LaP&-f*{S;5k#i?XKgDuG_WyTx*wIml>pg2#&`Leu+EGl%91x z3}@#oB3Ne`WENuE31cF%C#Ph$555L|GA4$Wn6If==_Nx<#qBxCl&;vV_{fyf%C83Rl6$DEQG8i)nWt;?}k^EzQW9WBX51CRlBjMb0 zjzN_|W6zix*o3`*wYk$24pC_weY7qijyViBjx?qz|K+0!d<8Ute+7zYm@(|YvN!O* zfE4iWVi4js{iQ0dvqig0)w;{RI!oQ$St?Fd;;vF05_{pEQl+?6=_rK*uHh$D1Em^x zNjX}_I8J$r$%pA9B?sBuMXH&bRE2J>VspOwNZrIoDtg9$=661^y3o+~gvz4on#KD^ z`C+0Bepl4q%vg^QbB=Q5>RP^07IF>OD674x0q}S481(>9b5TxF^KYzgJBEwW+}03Z za{SPq8dNQZsQ6{Pcv~^-M_7uXnsJUWo=xr%vg#s5)5G$F3b(uNZa4OWDnp0bcHU7e zd01xN_lsbEU#S0+)!M>e)kfa7mSb;WKYwwqPm4H-RlXKqkKkP#!7t6n;x^9SgLJP* z*~`z#^V~*2bLVi~vCaIvr=;YZc=q!0q~h36wxPv$|C{+v5FdGuZWG#$=u7i|n23zqH|O=&w!)a#-A(5wn(#W{ zJOxk##|Q*-Up^6f)pqj9X?vy1&(zls-X|h4?&yx!c8937;kEo9{C7#Q)%a!@Y_oh( zEZJWFh0)zvD0OyKLxUr1AiG;+KFd|L?P3ecGg!c4de5LyQkirlq2qV=J|vdV+|Yd_ z02HTxS2dkR>QSpoFOkF>mss;@ABe78?g_#GQobNmOx_@xmAhkq5bE};N5~iL z5yEJe_6a#<0lsx^j!=@S;Wb}X&H4hkTtZUf&Av@=Abh6 zCa@Jufwb5dliTt=I|@98*e-dnr}S~;SrY-+bIPPtK zP=OC&CE;<9#0pt#y$+(dkr-yF=Yg%=mDo@V7hLZHR=+v^2mCGWflxsV>~Nf&brHsT zBG7l=7eU~?R(QG7w3|%d1D^z2U3w*m%9VZz`eM61&xER#yba$3r_cDBfAvqeHU9*I zQ+MQ{P=#T4;G<9%;lBDQEZR>&5HMqZn9gr4x8|!*fp81-R;Yy0}s1~4?|4^Yv9M=Y0DBg=Bv~mrZ0m# z%-i;6sG$?8+^DZU4L9*=NSwR*O~<7sFEk$4r3qcp{o0TJ9vuT7(EdI=2LWDxoaW|o z)G#oIvfygD38e14#T!3yPr~?#^@ekqKQ$%OHO-&y#c3dh0`)PVvEx8Fiqy7SPGHW% zvRr;RNcTmVFuUqj`c-YnEbBQB^s)f$@E(>W^KG8VDi?yUhw(lRIqBt zn%3)j`_ks?J-ug1`*l_!xt3Z|tks>wA0Wfha?^BO-`b|z=O9o`S6QcPBxLh+(Q;G5 zkD91^Ww&9Y&Rx`hG*ai<6K$i;zoVAQ;X(&i>by2JOq4aSdN#^>-E0@qQr+p*H&vH~ z5nFY)ZPZxZsiLjbosYh`Iv29Nx~S?JtcOEOSgebR9ldhC&ARMm4x@F02*zf89#r5# zJksR^{I;>e>BX~MPvb^d9=Bev!jMQUVZWZn6Q|r-u*b1~B{kSm8+K8>>!3$1_XXvD&s>@u+3y?DbLYt3mtx2JQ8Y z|C%u0CA)Qhd-i|-8Ww=513ABmm?NNvHe#kY#fX2k0$j8e-~-#^hi3_>7pSf&AlLUT zN+g(CCVGhS}-ztRVb8s^y*-5|M=a1PrKXepX=|p-;_T5l%K9Eu{Hvk z)ne55N8D?*VL2;+*(0Ku#7FGzUQ8$|ZJRvO`?N+{u2DlXvuKM6xf|?#x6+ggjpZrX z4-ww-Zg`F^EMM5Fy-WU5y)*#lI1QoAi=L`y^ddgn)zM#5W-q!?VD}=W*G==&2JJ~d z>Xe#)zA&6SwSDpXtT28tbmyff!N(qn9J80Oqc6kmC9*)llT&2l7GwDm0G6*$0rvV| z@cqdLQR^kU)cQq3yfgC`ufuZtmu46$EMJ0N9=_>IxG+i7T(I$r4|aaMj2Xb_k+^T8 z9u((s)Gg!7X;q62mqmXD>KA%8A~^vW0eTyM)p{EIpT{d9ukgcXs@Tc&Q|aG+`w=cN zyw0)NX0!iTq{-8Lu`?;CnSR*GuAq`;J12w7*$}ukIqa?)xCH`prC?aanBUrx|6w^n z*}``?S{k)b(;m8IDE1dPV|-pDFVqd&arT{>gBX5yKmYi-y|N+3jl;ys>ygD>k1TF~ zuqN}Yah=s(4_A9Vx!MTgA|ISzfO@zXE0F~l#Wv`(6u+PMSBw||4Tpf|T>X2HA&fLb ziVQBAT;->Ovq9b$ySeV{=K8(u=DOI;b-9~V`)_=(a8cqt9xohW$)`V%*VX@m^hUL)EYSGgbNNP_eO8+5VZTd|1q; zInHitNG4>#m+GcoyLyebh}rc&eDepffHA8KTTDh7Vr`7+!n1Ln6OS@DKUdf9#MJ3x z5gQpCqM=2kk}BXTKVJ-{dAt%9akYbSZ*-ohM`c{`M>5@rRD%*>En+t@Ijb{&Q>SEB zqEdQRqLQ4|FF9z_y*C>?lG?44JHdL6lXgbhUyA zub>R9ECHeyU-g>2UCzJ zpsy5s|2{XZ#n|csU~;@=bVDFeBnAh&pS&v9VU=IKDhf}+O4nhfcT>8r4f!WQR#f5& zx>PpTH?^j_UODaACZoWgvLCvCiPd;VTPmb|;_lzHroGAg7Cc3N(}&;aANcQ0YtYA% z)^>4uQXE6Yjx0vZnux~mp8!C$paZ{Bq~hleSXbuo#&c#{**adi?wcw^8beXAT2K(f z2l(C{^xe6}>QJ{y5LAqR+e+SRxNYMHMhBLOPNI=F!SHtIJ2ICLIiLEcM4{NB#qzck z5d70U5yI&1b^e=%PdvtF)? zS^tuBF%h*%3i1ne1w6+G8F0K3CrO?Tez6&x87oANL6n(XLk4r12?aN#SSxUa1e_%u)Ep)l&yLjtUj$||DCNXM676g9kvDZ`tNo4 zpSA82$IKGU7RD6+6KR}_qCUpB_e(jtM7y{FuDI|TAqwG08G1Cq40mHIP{FNy zOM7oQhD&g2=5XKO^^v176)fe;g9EUHyq-*d^UE$YVM`aV6jB^Y3$#pNztDoNyfSz{ zk9{Yb$ymuA8SW0)kuoTMRZP&9ELG0${=-!H(dk7Fh6CeRAsU{?3SQ=;S?v3>aWT7! z6@b}#>^lT;iw+wjEJO!9?M(-#u@W{siWO;7`Y6CW+7G>=#pYfV2|%X>_!dN`(;J_E z7x9IhfDe9RqVWP$k;WFkcwSuQsnVT%q7dO4FtDNuZsMe((qXUP8&_4*NnDflUJXv) z&#ux?u7<^Rs&v0dm7tzCRrqo+nSe=W6zTHb=yeo-kFI(jqitRmAM(o-s^-0Z^jJ+4 zro?dz1~<%)$BO#IkL0T!9Ou-r+1mSmu{Q*Y7H!K13*&Rt8tI4o54Nk@=DFIHv&$5teESaVzdk_^z2kgw9~F8wL931u32*Z zQFqr>Z>p%$*ma>suO2PEy(1r=y`xuK$J@_$57mW&U-)@c0VXe?ST{)7``QzKO2^}% z)C+3hvkAWAsS8ob9K-AEI6J|7v>I^yZN+GMY}J5qy2%oq~{sW7UMK zkTKk;=0r#Xc>(b+KMm#a^n0f>Q0lTke zO|eLH+Kk>13|*%em(=KI$cv$WU|xbR(dh-Ma8)mSmX1!xgDa5ox=Qlu(1WI)1p4bt zP;wd;=jZfB+RL_&e!^R|LsK{$6b^MnJKfHCDfV+*4nRArxKBPKJZY zh126WpD6jzguA81fq2%JGewQAyNh)Rb#&%hs;D#EMwK}x_z&+CdpH3?_b&${ z#d+pq2XT9+7Xw8C`#^CRGdzbYhLmzOf2Q^yalm(OL{uW;f}g>S4$h=KkWdSbB#edF zUEd`x=sO)dNKZ)nbTQw2NyH+1rb@G)z_;((p-47+E%inEgO;d&j@OTMK9beU+*xz7 zI(N7r-^zy7D5e7>Q-mETfS7_!QwMb>#tkDMkBc$fzPJyx1DCVO6lfi#8B#bg&d)=P zU{cm{;*jY7^RK{-gVB!SH~5j|9kTB9>0rD)?oBS}!G>T(8e^TgTR+zeXxgeTwhe6w zxiV^jV-Ftv$1E&=btn8;dq1}I{&wFz#ZU=MxO8(20gd24cNA&Mo(P*Lw~He+#GThK z)G!fKXqRcINyq}GeK&-&0fLWq&UZ9Uuqjf3U}yjxsd2AAD3qK%nsqS_1Sk?uPu0C_ z?%qSJvHI8S>EpGkb00sI!O3t&%xeQbVNqWH_;PpuH7&`1GM~U@v4&g2AvT|IgYAQt zFSqu0yhb^u(gFh+b$RhRE_ZBC9kYvvIq-wnMm3Sx1j`k|U;d?-jk9gODY4x$ME)^Q zqM&IA5_(E4NLxQaf~D`_d_=JwOqzO;%)_^4t z-;LuP@UEz3-2y*r26yO1`a933T+$B1|E+YKwmL(y*_n#kF9>6 z`U1rpv~OD|+(Q_?(uu6^Dz(PF)Aw1nv%9qeeDwC=*3ol9%Za(7`QoX^b|iu=gy7q-Sf$@V#@KX>WlC#KuO}`4SN-Qdctg1Ig*28Z>r3gUtT~>BB#g1pg zDblxd7TGGdjVWpKaavssw$E$91-d~+^__fj+Ft3N>T=*pe=f%Fdt-``WjFhZ@W+kbFW9(u|$KUBru$vu!t2*AwcH}aB z7VNO5@)8#P?GamgE8u(H(pq&cM0I5CjT+{nm?=4aRE#fC4+LSdE_zp2U>|WZn`VP$ zNFoYRCDftmjjliTuDcEaKL!mT#KXA&mf~DB2c3<$kO}27sFQu@jZwuv(FJs()nSl- zN6wD5>z+8jKJSuO-$qZD^(88K4LnbErtJO+Y9?UOBS2c9kt| z$_4E>%hd^o*m2jV6AYo_F2!eWXMYC0jzT5U+kt}YKXfTX<9CUN>n`phCMf*GDnCbz z^FR3~w?>sW?ooYfPQcH-35VS2!O)q1K>+RONd98w+DU$fG7ihIdH+BD<3H?FOprM- zmcOf$5RBJ%n9nL(XghEEPdLrj?emSLD`Edl+PWiY)V5246m#Qq1AtmL0rDyz^@h{y z1%L=gVraG58;|g8`Zqw?X4sKNK7OCAKe_o5%+qQCJ@d-V+w%MDu^hn5-J_#_t!Etf zx<<(85%#eE6CTFZPjsndQoR`OwA-FH|o!ZJYptSyW2vcb8F|t%}h%+Z}&ct!_qIh3vSP_J$iiU@BXUpjgKR^dwu^I4-t^L(LS@e^zC*ee_e? zVNhCs-+S@m-K*XGtry3?DDm-saVJ}Sy#Az*iH6?LeuIqd#E{z>J}@tOjPYlpe4G}2l7j@W<e{U57Vn!WogJQQtlt(OW)N4wXms7WFN2I7JFfP+RgCt+pN$wywVhmaQTa zAYHK1RU4oM9CDZ8=<3~;!}hG(9}(`SjQ80-*m|*dymzoKWDXQMo~(7sF_8ewz0#df zL08^VGm{m=Lheg{u1(okD~IIu9KW+IkLGh?6?8#x0#;pn6G~ER1$9%0tEpU5Zlz~k zgQYNJqihX`#76e>*5SU|&_8B-XW2FQa24QkHlrx_#pR{q zA)X#?9Uty(@9j`5bF{Tn%ncm}Hqp2koL}gW^pD|a04(i)L$-bJ`tUe=xpjEFxAkIo z2chij9lhK;I#R#b%>u$(5_j>(>>ndEV3>lWlU?yD4JI4)=!S#cKdeS}QT^1PJpu-eeF zO_l`O>K?p*Eiwz|ifoioj1=Y*5{nK0jf|Qa@YOJ%lK7^XRxoN$iE&&9svtOh3&5gw zGz6lO#Ibp=?-jMZXL(0NvrXe~u~j@5clSngE7kGM+F72pQ9EK|k10&e+S~xFc(LZZ zQfgsOtlNtG-fWJ-F0GU$uc+`n?QJQj%C(xerRf}hx^HrnFM5;g3@m6bP-|AeLlvG3 zVUo^mMc350EA(VqOQk;1pHc2>eNCQdvtv-$v@9+GsH_j)slXkY8EqAizcgv7? z_c0%(!WX#f>%sz$yE%y^(7fR%V+K zuTTOwW_DK3g0I?4uf+1Nz6GCO;rC|4C(tv0Zo%i_Y1)2IVr{~D&&S^q+r0pt^*B;? zdp>^4`Z1e5w8pk}bu2T0#dh}N>|9s#4u%8NGwUm<>Y4P}`n+4RZm98}-w0|B<0sin zj4p1o7ruoFdp&mtqgGMw6B%|l$CH|8+vi~Y@%gl-<*KdeS8VfPih62VPUO#B$uKA9DTqr-;pR=%eQK*) z(jtp z&YOaZnR(tAX4GhNF(Z9$J;W9}SP!tk1LA;#b!u)dS~}Fk<7ldyYgV?v9a|Wv+ZiEk z(;}hOeFpZfFjk1bWw2=L)J4v nn_JMFzi$L#4!`_dM6br664$7f$$Xg%M5JNC?7 zAEvddYwKELB`eNH%r13d*T{kZIfrtQH^<^&Er4!J5%xo&8fIoGTiXTg?H5cgq^a(M zBo%=bh*oeb8WM_OzUAeVQ<-n=SpkJb6ZD-5--`n!wi{4EOVs)3Lw7JbE7}+zXIOwn zUwCN7^s7v|L`#g*HFsswDgEOg`$UBSn)jem?x zM5UTGxk0!oH+8W_1*f$jNbW16Z>Z~gq9vphuP6|o%!0-J?3}_#W2p{*AcLhzmV=!= zJpt1_7(s3eL5HKD6KYIt>?)S5fxDh&bJZX<7op*GohMIGm*ylcb+^THt*zDn31>Vb z=a?q^DcXWM@~e9A9Y2c%G6EBWk+r&KK!B!d@xPsHeA`!7sf&sFsdLo~HS|kSTjzs! zDn$-L@TuGNzex!0F_pi6ymx3@*>`xfD;+Gb%Nwt*)*Nqo0o@XJIpNk{=}_*E$d0+H zqoCV=0uAwwtw)QTpU8z}(3G!-*hE@LyhQ(LI`(%A&8V+c_;0aftcA`FbI<^n&IOJI z^AWn3-*J6PXIsxps)A`OfL8ISq<5d&20ku`TxqXE$B)-<>G$ViIOgARf}v+wyO4~t^SYwHC9@k$OvQK?5M?#Rbp8Hrh0>u)0uD2?YIr32nLj` zVFRSF7I78_WG&Z!3f3!ijckeBJ2r&;BTe)*e3#aHU3<280;prA=e6g-Njue`C47%> zjo-Wb6;)DkBffvjS`mz?q=cTSAq^~nZ@TV$=mnr1gu=zaG6w8mo0zfItff|DC53jr zF2emCIrLf``0Zqw^=V85_-<2w8H8W?c4A0^R9cv8P@Zsqr?BIfIja>7&F5$>ooRHk zAJ#f%I+dO-8wOZ zeml-|zG|g^zErIgAWOAgsy1Q#s+OvQX7{a@f=xF7o2sK~M)W4QC3b5)H^-&4D zySX}w?#XthHBuc{C6%pgd?8AyGPTrEep-zBljCAr9kTcB3IATP>ZK8X0*-?JghFrw zFeNT!UR~wH7Nf!N-{=#6XsxYn;Qw#ocYBSFo)8(SrSR0t^T|Kn zzBP8D0v=t@@J})6_7!UhoaZmA-(CVi`}X;N>bEafzdZuuS*X}OoqP}~J%puzJjMKv z_$wd77zRbRP^;9&F)8}<@%xr#cBGRKH}-A~ooHk1ujtBS`|6?h)`a!qS^_4Bq%3w^f>U?D8-1!(ZWw;UJRrjlZ z1?HNsIv+GJus+s69VjLZ zg$$&Vyx;A1-Mo9TL}Gq$7EMymFi|Og=}?*xQK4(`vpB}U3DS$0hK(>KDL2CLl(fNs zgwUvWS^&1FNfehbUs$n<|1aIL+XZ7C1rlU@VYsdGE7KcgbbKWvtP0WDLpl zppw4Cq|<@;p(FIPbc7z`Fzy{qn>5CJQWDzoauCehR^qo77|D;QUTXUgWOQoLF5;0K zIiT((zq%T!vgt=y=?|O35&$)MvKMNW92+PT@VMHL)x&x3FmRqb&xW9^+)mhH;~l?W%TcUqAoBVd?+T*~~P`p(76 zon_(9CfjJ{w6e`|W>rP90k@&zXg`9cX4U=BN6V7cZxchx25mHQG-x9RSi6l_hl)0_ z6VRYd?fH1f-EeGm=Hubcqz>+gHpG`uiIe`pmoC8qQ%D_YC7WUaCdeDDG(CN%(6Sx$ zfk~^k4xb%l+r!>u0(MV-z^aj8L?t@ch|D>nGbQ)NKrIyH45Q*qvOZ>n@5>a*TF1KE zA504lK7)~%QBZ*_I1|Mu>V`^uYZ3Go=I~bo{K6X{w{p{<_}A_CV(iLEn5bEkrbD<6&@A;Rg7{& z7tPn_#l)qUP;#{QY=7$ogIzlQ<(2MYY3bM~%s4@jh>5 zpF3FZ>5HvHQE%PWI~%H{XhHtur6sDoeemMo5b7>r(`SdfyZdezhkMVS?H=lSilaY2 zS6n6bxLpj3arfDOI0sWZ-N#mT4j;^D4tIClu~Y&)gcR!*+!#_~GO(YY?;VS&{ZI$o z&ll?GNPr*Vg8_MPxV8UG!2EL^mQI8W4X1MipJ z7cUNewh;f4gov9=5Pt#d&W{r2HGa`3p#Dew-{&wXJ!o5he^p4!d0tKdT`_<835b!y zVSWnHV%4$h=U2nxT5AD7w8Lha9syN{u;!pLIhzeJ9Xd=Hnhr+&0Wiv$A_!9sRZAUR z4Nl(!jWF;p;TTgFug1lPL7!*>c7>904+zRBOx(n<)fs45t*3fMm6CHDxhm*$GYFnk z@H}8UuW0;#8OpNxRLSd{0LPqN68RK1onBB#DT)hc27-F!7cj#uwHP0WyiC+rNDZE; zzat~H>*#c&`)(-`3iOU7XId>-g$-p{J=1X=hM%BA?3Q&4^WGf>#RQ>e84{F4&s36 znof7^9JB&K(Akti%-v95Re}?j$RWtTUiKWXo2cf(-2)#uZ8vTSM%^+?hc&76ES?jVmQCr_46-Xv-b31=}a&RWw@rJj;f;X&`I_y7g9qn%H zjnw&ng-B)av6CerWvClivf*t@`{Ag!OT;yJ*PHWOS2`M;tCRFRADmx+GGJYOUtM*Z z3;Lz@a7oaWhL|RHkUtt*UAlXG{X?i?=;>^41;KCPFssfJpB&nh%K-ctWk?~v# z`o@79UT|rNaL5$vP?wQL8_zhzA;iPm8};)~#5FECn?nEq;oVOgdy_376Cw@V(vp_i zm;8OC4i9r$=In9CJ+ZVe8XCJrFkv64`{!3dO0juMH;ygDW_I*y>*swsB(W{rcrmzt zgaZWzQYC=GvC6mg28g8=S@VejdhtO_;}aYR_&>PPGAO}U4}9@JwCQ9MJer6sfNN0s zrWg=FfU(2pxzIwPf&)mNW@_<_#I*Kf?3*wl(&`9lFTKo4Rb>2}GHTKC@m~28q8fHD zF%omhR+2jmLO~@hTzYMmkeJA7Ww73VX4+uZ_u^LZY_QzJ4MGJ`O`?DgLu4VeAAQxH zYzjU3ej2)LZ-S#&-_Lry{$z!$K9UJClv>*;7O2P`YRO_o*DeCa@SD6BUkpB&>Izw4 zS7(!bxGDt3EG@aCmA~+1dX-*zMW@ELDN<&GJ+(#A&vc)`_xI;3E$bkO1F%bfG9Awd zBQ;9te+7oIdQCSn6Y&;(zu=|Z`p_E;!TqS)GLTT5LuA_ECT%(KPPV?*i6H=tdxL$o z4ATRlmC*QeDWPbPcOSxRm!d5sur=5rXcm>q{pIB-p=czkHlk_Nq~1TI%9W5X%wH9M6Zg2Oj$c9Ug`e`%AGqfwzeV@jv~fOu4}6q458h&S zK}OsZo75$}LKhSYT~s7M6&)xWF;??mJz^J7dT0kdcVt&2Wjb;w&tge#JDmVN0~G(N z(RfjzQ8``&_7vFs=A&jy=V0U(VZ-CQB(EERU%*0|T@@&1cUlgHx#AUnVEvx4t&%IQ zeUIOU>aM(?x@zY$Wb-DfS1`p`6bi&Kz?o0gLS_yY2iw1Z-LKmECc_omp4xSXR{J-; zX(TKjV-ylqP)G7W>23FErcV^hH_&Z>^NY5?$#zkBM&mc6jmN=D8$rxXr=pOZ>N2pP z)w=hogEr0xUy+$>C3xw7)SEN!hk5_rr+&D*a}P5o1?jy{o|L=yFn?5v-~04Yoqx-- zFQItOWqjlL<2^7J#k-GlfA4d@pL36RfA4d@3%rlbp59yTefsoPbT8-rSw3~tB(-%` zRu7roSP4a%pn26z5$#o#(#h!y8#rB|tQYAirC5q_o%PjBdJD9FDmxU+#df+{Zv&TJ z`n|Vp&_G}TK5QQyZymor(vQ>o^cKE`kCiVDwsv;u{TP0}-ZvlCO*zG{Jho#%t%ZtcM9C0DNS`Mx2JSF zcr!%RdYhtuu#qNlnE&r=FsA(!y=WLT_7sdGP@Ljed0lR`s}3WXe2G0T+*@HJM8Ofk=FuUtSG+Q(b{Bmu#t$ z>1@cvHe^hzMi`nC1(p~;52hDNc1;n)?Kzp)#7dVb@Qj<+mY*5*QakCOZ> zEDU{r)YIeVKxp7S3`h7j?>$>cq*@Thf8%Bh)`USzrJnRl66|2I3(>r!JnD?jyyV+w zYVmrL=6A(_HRa<5F9Zohi4*__W1G^JQAfT=Bi`LM2AxitQx}hCF#{ z!Ki|}Y#!4OkKg;nM~-TGW|Eg~Ta!-EHDqmnFe*TKS0U62*&Pn(!5l4F0hK$XbirDu zIHP`%lWVk=f=|FwR$Ei`5egcpq1mt4LLRx@NdE9oec=a67JCCb?6%!}vpoV{iXjg= zPE~BQrTUMk*lV|3SA!rBZ~!%@4-sfbYO4k#v4*IJ0B44i-syXCZ=efCE%rVc-=;c$ zEI*C*N|V?XpPCfWGxf;?y8j%CIVGDCSJrc z6-P%)`$ypT&_v%chfZV3HtUVYgM3UzOBM#^qzC&7tnF8QS$xPFROgA6w2+N|ns2__ zTB`EtZa7`jVEB;BdYGZ zNeY!?$H_nyFf&B+NssPYkIt4{%Ymu2mlQ!Hk0g6^r!d=ovA4T_+&$QT|M6h!aOY@m zXP0GtYm}Y>8)^Dt_vx|i%CosY9`{BQW8}=hHWbto_yh0`ni~WBVDUG@{a960*RRch zy$1H{YQ{~P?x5&8+{d}W@xUSwjqie5`WkD0xcBV2Sp4Rzj{q7i|Mzn&|M$Ps<^OSO z`|medeQ2Lr{7>QHe=5a){ZG-w|Ma`X{ilZq`!~XU1kh;t%Wyxn{J&S+$M^jktp2tF zc)0bVb;J22C&Kqw)rbzUi*x@?z~LGB#$H`DK1Qsr)UiZHFIz1qNd^f! z5-Y%S4Ug?{L0TSv>v-+2A!&T{%VRS$3H{piN--8&&w^Ma_PvQKBww7kyxE(R#=B~( zraO6H^4?owkIwcN@7SDgLCN(idk^BJa7U?xc2vAelQnhOoPx#L^rBG6bbc|s_Roo{ zHjh1RI|_6rlR;Ch$O_0PRg#|Jj&4&HC;X*LAK85uYDc?&8Fb-zQX6&W&0f?h-?EBv zsUel8lC1x3qaT{W_Y(hW!#A+97pDe~0t^9XsMk4s8}KyI`XUOB+{!oQ?n23Pv~ZQO zcw#I+F7Et}!%21NAFExq8Yt=mUzR3a4x#C5pW&La+(*TMF>2W|-sJIZD5dpAd{s*~ z=wRz(@4B{sCOdA`o}l1fyWm|Z)(kq=yiEuKhG$gV)~ucN;S;}Cp$|8$-#mWnOwhD& zw7pUZKEI~-R`k3uw1wz+<@j!*-{p%dsoSls*>xUv8|ieHBuQ(c&uya3ZLG`nfx}6Q zbikigCu`7Vfhw3qD`0LkIGAPt(BAzG70F9Yx7;d!k(;QH8!M2T?fLira(lkibkl|U zy78VH)pZlabz`-4bj!mI`18NwF>kctQf1zF$E~`&iL$)0s=V2j|LdLdhFdPw^j~-U zOWkp!}4IqQr7}p%IEX;O$s`{z1+`*{V1sDdw+HrW)?5My%tLG*^5=80cD6VH1Fk4s% z43@rrlhBY2MRvi@{Pixr$3K>P89w(HC_R*N$?DC^kQ%S891b*9|BC3 z_K++)vpR+Qek-Um+VCME9Z(kWfsY9q&-oVfcn5d}#yY@P z_nUI3l_jSf2bf_xTF;kkaH{n}LB{7t->&`8Z*{zb;7~XOYaS(zF&8Ekv4X$5S8&lILxssi6*t%~E-6}?`Tb0&J1^8!I1dhTI(8PIH|w|`uMN6?zImguR$Y9?dj)ei3`W`G?vw61AgVYiS)F*W zh92uz8*Zzwd+|*^)AQ}Oy88C*H}+w;LBHZK8#@OH!@L)9-=Q~4>BwlUycicb25bi- z6^{N-j6{Ei$yQHh=M!fswP@keB>&6z*<-ijLdlfWPitquOy|m2dehQLxLR+2@&1Eq zt&T37T=cH;cM#2;ihC!k>yOvpow~Ik%Drg**p__4&jvru_iN|-wfTOjuHx2PXN~wq z(lyLjqL|RJv!aJMtcuPey5u6q*Gnv*I4qdpf!I5f`>)&U_azFp{nZ6>-SJj+g~Z9# z)n?CmlC0kRLC<-+s?+7(NOW_5v%UqY(c;w(DxDxACZw$Pvl8+O)gT8UZK7mbc@voH z<*$16Zsp-GE?w3h%z|Xg+uuvLeQv&=ixjNvTHb+ZbyGvCM&i$^zV|s36{ip;2UpHu zuY_cX++_2MJYLEE_8Z5=e#DhNQ>{*xf12iyVEu2u{n(r2k3dNIjIB0*oBoHbbolP0 z>&Y~~gxj<~m_PCfz0}t8tbejsM&nqujY)-@0V>vFGtwzbROh~ze z34yRQQye&BS8A=aNB-xoZDG+c-ALCF?LdV@nb=Ais!FDblSYnztJ1gL3@qTXr$bqCMr1P-Ru{Idze5-Bc8!Jwcutufr8*qvr+mB z>;NX?%1JFT$sKBc1Q5shMm zp~;KwVED|O7=wW@;CwvDaiI_ud2hSA9)Ez-3Rh>|BaQTlp&waK6;YmYMe5*IS%2c* zB|tdg>Apc*Y512F*b3dr@rp_L(Rdu!tNi5HF4o7ujk=m$J+4^}f z3I;(3;&F0+vW6XMGE>oKeCl`EtJu*^eI7`S+B&A)WU{=GVQNB%0rIgJ{gIv?I3vAU zP%Qii4Ahgg3{^anKdL^}@H)Yw1GngIbfjy&$)c7|0c86`>WA6Z)JHWqb#@>_+N9N?(Y&Ij-Z1okqWeQpH^{l7DzhO{7P`Nor~d&m zdI2F@ITO8^EiG>h`g$|yJQ>k}fWIP`bqA&(qaB|xb^?l3OSzs5FWRiH&%%BEXW*+8 zF`myOi?=5PZ1Z~ug}LpFdh$q?Z!?SG;C zHZ9kG!zR(T)sp@)vXZ%yHvRSSDq`;FP2bgJl zGVwrp;^=FDWjR9bsAq0aL6+DP%jH`*t)YAnh-KE@B_cJIiF?!8di7;&u5pjCpoWjg z-a!O8vg6_F*St&CyDg8H`@wuFS^$z_1(f}N?Kco5m_OIIma{?{oV!q3?kmoG+5zF1 zKICIa>8v@4ROQD6+;#W}JmgxUoaxn~DWbW29Ll)ir!k`;-Uh{-V*tgN#&M^UzNb0f z_DD-9+6Kngd2};yzWN#J6x+UBP2``TNcPSQ@ zAlV^3B2?i0{f_A2ESNVQJK6}wLrLo0s08C-F3l0X*8tU7c+mCnwNeT$XS_DEDQMbI zQOKeUJyOiZCe{07s;++U2%Mab2Up0p=c98~SDgS*K(D_BcV3^nw|mJv_=8rt;}7Tv ze>NHG!&&6;a8}ME#{Jqh?h$eLV84XfVdrzyW%}M(*wp+UC>tyE?YDP_d;Q#n;y6^) zBQArI9*>~vx8h#DhaueKl6V8K!;2hYE}8SoWc#`!WWw96v zoa*=zySln0#7#0}?a*g=e6@w^>gs2$f9LX727%Ik9p-1_d~&fjn&#sVN+ieSZK@|% zEv%;8hxnOmm}*_W#-`s!k6Zf??9lV1jxHvhhr-BX*y0^G(eHXXIvDuztaakEW}SD~ zS=4nX)lEqUI3)*BR#(|X$0EvLVxFq;g^N-y_h!@L5)7i$&uh($IVhqRg6vh|e>?6E zx4j}(I(v%mtsm`cFq~tf_C>XA&z=CwDDo{1UOHPtOdnUM8~o!%VIJ(sRE9J}?d>gN zi9|*hs^JO_dI?_n99%|2OZj1^H|+tqtDYLHwmfsOekCUl z5)Ux43OzvZD+1s0SY0h=<7?L&e`4(ZUH-=iZNnnf>RiW>X7X01kte6gCU#hhvDTz1 z5HC9~@-wL1jt&xDe!edsN46Ti40&5%y7~9bY|UAAxy77M$Q`f#LmWHy<`@CyYikdS z_JBh2%mqEfc+LQEI-Fs+qH)fLz&^^)YA)yo2aO+gVkfOi zL+if#x^nX6(nD8^e=1VQ6j^zkPk`I@x>-S&cy~RtRW`v)oIdej9y@`*vojby zh0ZBWUk*lt$rQiCal`CUc=@Xfn#>VL*II1N6!{pOkC-Dj zCcM}qeQ^wUPptv3{C|3VX`r4d?>B#-&nO>enPaMpCE$;hWiO8)mGo~JKC-sF{f4$?o>Us*L9E76qF|2h- z5An7LxK}zj9h*Al#gy=0LfAhZ?(IH}*_LAgIuN?}`r~+zp9zFT+*>lOs8oGHoWq}x zLys_REhrFXYL9vU-MQm1>Z5?b7#|0aop4S98E7q+C_Wh}9Q~$PHvjF0cjpn)HvQXq z-ig?T$#U4we@8$p@h?|@dQud_yf=z3Q8oU0*ejPW@3&ztD|MiVC1nc{INe-d@2dgO z^$Id~D?9`Vtq>*dW{LAb3sB>bcq>r*aOtN4^Pu2I$6w77Q~LMKNQpsu{Sv{Ggcu1r z?OTH-(#;=hRlXDd1}CZh=kPdnFC8Ao?j_atcakVbLAn&LEOtB zkBy_*8CcArQaA;Fcj14`Q8DiEbjZ05z>kxzDc4$qr6u!e zL;5E>A;bq~{v~*rLqt1bdWCJ~-o!+^lR+`;<%%6S5ix3ToN}G-?3`Itb}t|v%-;T9 z@)~j~l_D}!csPiRqq#ps-Wv_3!XqEh+56-pf3+x@I6n+>Ys&~95Rx$OBL@zWb_Bww zUY;Uos85j?yg7yDho{3!!SDwAn+M>t9j^HpiE`u{KP00(1bcp;hl-EY;lbmL@^9a?1{JufDr1)YnTF6 ze|AF&kCyfhB)r(d-48h-IJm3Y!AI@#)8REZ=z~X^d#qj3q3>0f6p5dRH8n{Q)U_wv z85;8`;`KjdF?ydI6q7ILf8cD zHm`urh>cm26bYgMyua)&f8&O^H+TQbf7x(4I6}2-+h*;`GM{mm)7HjZN6)%&gpple zeKi;s=&T9sJDp7-3CshMB!B=SdK@lkQh(2E4jq`gp~Wy~b&z9EWEg7%KMV81;FB7hC%~d;8DQ+yPgJ@dvz6k#`9V!PG!ikC?es<+~@9 z`@3&tu5(CFivpsF_d-7`XASS1e+|%U)rb+uIMI2<)e@+LT0iF$!Wp6ge}KodX+X)k zt&%&3FNNei(*pDI`FgNQDC6gz(Q(s>eUhh5Q9)hDPjCNQ=7RWa)kJQA$TH&;@G)?{ zVZ3d{E(|`AuE!|^G)*65i|E@Y4Na{e|FXSw*YR_E_sLKO-S3N4`R5(W}Up#0rilkT;#*SX>m2p z$6yT5vWo8A|2&2~S2zOuSxgE_x;Qkm7G5W>+3*keEr@|OnjwSx^e@oW*?>oYSkoc) z;S7S}j}d>f5k$PSQSaf?oWrv$gQXNOK20yF%%^68XG4KWHw!D_e<0d+6af{33M<@= zrTcYmAE#$~h3Fz?baZ0qB_Sf1>qKlyaAhE1O-B(%RBF)oYcsh4we=5&L-!chICqXK zXkv1(oYMEMUa3bb18FX(ul)Ya_9-& z?7!Eu@1sT6>7rkuXeIk^uy%_~05w3hNAKt6gpGYpcjP7>PEbW9i+z_bFR=;0E;jsGtoBUx1T;!!+KeYAJoQ4z&(HeCIXC8cCGr|!-7>Z?e~8}b`mz}3F=c!wQ%ii(JAIFl zgyAe_oMsNF>=+lDMKi#aNtcrgE{q*ociEwJNn01k3MF9ODle3U%*LGDkcRT0*dbT( zemDG3`kE$ICLP?Z4#T8R%}4kjJQI9idV_H{d*+{$7h3%mXYmEYuOw(v(a=gw22rMi2M{>gfI^zdEbs^-AZ;uCKC}?n!e_I?$I%$l(&<_na7gReC#rs zulLKXBB?yaXuckSvbKcPq*WHeA#ma`Ro?S`42Z%<5;^rpe~Ki%4UvAbiNRmwN@ zr2ZxZyoK^T#Na>46=yM-ot~;@XEX5ne{DsHRhA}wxMjdtU9uxE1Tr}54U{aWN!*f8 z;q21jn!KE#_f>c2U|&i10aP~m_93dLk0C}m{Z^{zfKn_{FIMRI%3{*zdnZGA4+hB;8as-%Q3;QsHl28 zFCZ!v!N-UdBtG{EA6`LAF!6Em54 zaN;t>_DP)l-T&O(eto>R|4crmf1ni$D(uC%)3K+(t~4LJ)+s0;1&M*98a)2&=Lv2i zHJLFxGTwa6(`HL^2+QA4{`51wP^9J?=e_7hc;Y#?w+rFj~jvjCsb0o~5S`4(>aM3~ot5w`C9f61Wms z8@)Nz5=+%uheY&)*7KrxkIRxYv9t>>s9BWHZ6)bqs|kq{>(R(g+rH%lTCS*F?uuQy zN?Yh4>3Eh-I4=63Dxx{T(*q2R<< zdQ+TmsJ-r0yie2ile1hI6P}RyzID~&7MHmvpGxqHe`U^mPmz}?oLYF-IveI6ouhj-IDNl5yCR?Kj~9bst|1@^H77Y? zRz>^iTNyiM#-WSEVoYo9$G9fTB7M(oU~{`BHa9S`(bHVCq0Rl6+SF7~&8_v$vc&0) z>+$;N1xlV zIC{`FM_;k-PO(mk|8qSj)V$t}eBe$s?_SiCcztC^AohAvul8>dOe2--jgV<{WV=${P_l)0f)p_HvmwNE)@O@D zbth4z1V2Gm$+MMQxGGA_7r*Q2e&!@ZwMwuZ`Mo3n*cDN447D?~Slz~0M) znH$#x2TAF=TyrX3m^(M8;+46L7$%Xo>PQfi-;R~Qm%T8SplU?*5i-k&khe>zdG94Jvu%-_@&JA(5pyv zU`O%i|&AYB%omS7v`A?8eQC9(>or0^nT$O@L%p%>1+Ug|%F$Ie)|nzQ*QN}WMd zFbP(w_NU=d6sEkAA=;Y&yK@Lh&YbW$(jS+3T^WZu`C{CB*L-{tnizAaI?j?SvPVA7 zuu{ercJ~8_FUP%;VNS5w_os2RrO$^iA)ue0HA9@$#pT~$y3bRs=cC%unkAiM1S59Eg&^;f3_&}=-99|qHbOhv`q zZr6hX2OSRf%N`_@;&1BE7h^?;6~XF}*%2u34A8D(63|BuQdB{MjvB(~8VJRyeqPGnSYw*kevI+-Xwnn+`u<~z!t~`k?Bu@NTU8Q z18}rDYHg6Ht42qA&-S-o5R9dz?SmHwhrCrvhNhJA%<-tr*2OyQ+~l%&pKlk#V%$9h zUHvhiy)DJSDc%;-1uZQ-JKWvff46YfOW`~l=lMuNI)@Jci-v@mpAD=ZN@4vtgz&r; z)QS3SM)mXay<-9C&!v!lz8Fj$P#@ug9o50%*8VdA?MW%L19d*mCAg8oJ@}*mB0L)6 z@h`7-^~Nk6y*&8)uCp1sH3Bx%dirAPaMxLEUGHqD&{EaI4%Gi(1BZ78e{7;OP;9V` zxxK&$_Tb|P6hPXLoAp8@2(e9r%=_4ydT{H_meV>5DO6|ucF^y~ld}i=bReWUSyouEp+mD${ax;13gLvzh zm;EN{l8nTe6$qe|lSM`I8Ed*(>4eFQzoJXRo37>V<4QPHa96*Cs2pR8u{b_Q*ZJN^ zP7hQwz3Xn+n(bVIfA7BY;!-IBSHvjCIqc~Ww7w|r(H>pH%=xjY>60Y+-6cz&cJNs~ zg_kmQV@^;c>fw-F+Cl&>y=BFhPb2AI)&$)#w()uP$o+2a%N*x z;+&2LC)zjuf2DD#5&CLWRI|cqsTzhcaQE&GHDCwfeQim0CnvyqUvKP9w)GARrI5kZ zdCp3m!(vSvHSE@EOTMI~&w_)2l5jYr^_!~v5s>6NR*E>K*TGjXnt^mc49;2_r&z(h zL0k^my0$pq9e$e7Cz}{ZVsSp5Fy?Xu7F88&5ApzifAnLOM3I1u(_JV!IK(qF0i8K_ zqwcpp!573DvVaB`%p~YCbNdrFl~Yh-itL@~_er--^jdQ+rOJ7}mp-61rW$lCC(GT& zrb|VMEBa80_S4F9zSNjmjm#Se4;?2%3Y}U1jWm&1C2h}){=~X4P=22%8c+Auokf`#Qt4sWH$0Q``yIN1k(xgRbEK=Vbd-E z{C2pujbi}mF3=lY^R4Y6S;KJHk;1OIle51HZr@4H?knpx?-nI4u!2*BN9aLs7roPq zK@Lxga=j@kh~20WW$?5k(i=tJ3rc@!aSvB+f0XBazZVB7{$rl)*RE!=5$xc(;&ewG z6&+PkEMy|$(S$$3gOC=7BLbaeg6vE?rHJHL`7Bb~%#T)4RAHS$DYi^%)uJ8Tv=gXm zU{bUvpYl)+kQi2+#gR-Hf#Jp!?q)t*^mrDa$88c9rWpY#^Ql1fK8G~If6$B22eW&p zfApw6yq<3d1=%1R8pvKO@nAkN(ZxeTiVBU{krc%2yc0y^7Er`uNUalX{x)D!=i6wE z7KA4qdK7?9xC?eD*b}HR%P>h-3NIp1h5l~vNl!C|RJyGEhDuev6#~@|`)XABKAc1) zs-~`@8xpgJjVaFp%5xXwrs0ibNKN&Pe`GfC%BYwAwRTdd)$VaSFMHFA?%A*?#_foz zQ8xTjM3*Sbzsnx4t*P_eeM0IF7X?&V1PP>kIUKr@t=Z|1`8bd-N(FoXVJx7GVRl5* z#+8hcA*yeiR4dx7s0cRn)VLMU;_5vSLpv^Z3QrXmF8ONtmWgMW^)`)+!M3!ve;9u| z>OB1N@ACP{)8g4h6WPVAW3x7q*F~npQ`_0+Apx}GukdH7i4heYEZXY#K?w=}qL(}` zA!cARSX3gW&ab2h+M^Z_v${<|kLjt4eJEvv5)6^#g?hT+?}uoHhOH<& zwR=P&UK1|P!!$Z>-w8n|Szn|?e=JA(a)I~Fqw@0aAHUU-E*TCim@}!(ln7D=JJKt| z#g9Gl;_^UmF8QXHb`Ntj zvpUTixLJx2P-##)3WqHx=Po=vaYG0IuFZaZ=NfG~qJ2orrJ#-Xji;n|=T8~L3-1gI zPp4gi3k3jH14HA#7$}pTC;{uQ_STD!A?)4%u$l_V$H0WKG7ycQi}Cx+EH^xv||Hmcq1K%j~o>J&@4a%0AP^EV06G)?Y%be*k)W21T%tqD0>^ zXXwWM5&F%+R!#Fot}keWS&Z7q-~rNi8@reRhjeu{E`S$`0Pm=C1oo$7_~;HxF;t3& zEUx(0_E5>Wr4h0JKfWP-oZFXIHJT4#>@@5QdLsLOY{WOW8uXR92-J`Ly%!x(%NwW3 zt8t2J81<)(Fp>_Ae{2n>gXs(%-8qvs6=xGNEYzKKyHSb*#-WE0pe{jk5~KzHE~8jT z;>dWo3x=v)+$Z-tn!u_HV<+tFW_Ups#a}Vw#+ZTD*7t}TxRD9$&~DyyV+opye?^iT zBMF$%-y@E|HZGcgkn#Ul+_*7rpku^6A_s2dg0W+iu{+0CfBd*HevqrnJt7Eg<)Y~a zFs9^b^A$Vh!;YumjdUlBDelvqGN%7Odtd+D#*HNUv$o3r!-RfYq8y5m>^Qfpinc;a zvaPqa~0He_Go3`hw{nL~?5)`E>--S{nI!g6SW$ackQ6l?2mT;`pk9=^ylQYx?-L z1k+jqX%tNHsXTdh`26tY9+}X%*aU1(HAz2aBby``KAjh4%*aT`UL4<;Pe^Om)j8OtJU6&$muncA0p3ie;Tx)+wWS#M5gn@iP8ajW zcFx;@7qSQIi-zXE=FroWe6umTBm@z(_XpNVTKZ?J!;RNm;9Pi6)6YZpxlCO7Apk$1 zY*m%Tf8D>KrV!yZCIb;F#DL(FWKgVAS`uUfhQED;$dab2Gddlby~^Qq+7pSOdpg1$ zVRq>VpO1$bM1p`N91pn_xZMx3q-{z+T&zV#(4v?4Tpa0n?NXR?8SmAfbmmt)HajIl-00niW-W1Qi_04ppx$`Z0403s1n3e$Gt z1xXoZ6iV;Z53b@fq+mEyR%W(<;$B6IULWiq0~?N)zCY^i_Ky1RbxaoFcOeeKuq>59 ze}xTVoG_^4#ihgdNQ#1^ECwaaoLAMEBSIvQjg5M)8g%HpfrTTk^9ZX%TRV=}OP!IZ z;D=!ACZ}D)2Ur8vf79^?`UBqdgYHL$=lsZn_?w5AR};e+Kk2i` ze$m2IWh~~$DP$6yvNc-V*62P-UdK-;6lsSq*O~dvre`*m3#V-9CfOOv zb1W5z=!XWK=6{_$z^xJ>G_p`ajz2DvIf9;AzkfHI9k_0_+aMC^zdqZRae9V$5=n~8tLonXQ z5$yJkd-PjHLomI)JUs00bsM%2w%N@f*&H?ZC06>TjRWyZcYmC7bXY4%ab6HdUS`$8 z%F%kfUBbHL0~^#QHsV*tZ}FND(Du9Jk6B+oKHNRrO7@X|!t$BTmLL-}f75+Pr(7B2 zdF80UknJfqS4%PgMd4QM*u*eLa8E_Mnw*$_ zW42qoP77*L(hIp58h=*Ve-)U5R=_!&=f7aUGQ2M`%D@gqaV&>klD+O;>d$Wk`=ct5@96m`%Y~9`Ozv>h|sJ|n9w;vN~B1eok?1rH#BPW$H8#j=qw{lcUgWS(%gNbFYm~?^?}1u z=zV1Qn*HDC=uy{O+1kkG2`+gw8R=vMI#Gs{Uf@@IWpMjSe<|{D9+9I>?U5TFZjfQE zu3jgpxfj~2LRA>&1PuBUq%MTdZE%*{Oyq?uP27blDF%btgxFBR)iE+8rWXL6zYYv( zFI@yR7OwQlsK&>eX5E91C=j60*>nb0DF-dD)W*DjsvKc#P_n zNfC^UrAGXs8nvRA0?;6Oxmxw27wSsO);!6}fogs)yMf$7{E%MHY+?l{Kx~rYJ|Z>w zhqfDEl_9yZ>XFG#NlP5Rp$M=VS@hKoe}=yz-Nn-%s;H*#tJYdJ>6p z!Qizlf652FI<@T3uhqa2y^1XfvmSZ;YUYL>n3%(V^_scVJ+t{8>**-Vrtrs;6bj7e zxer-&chzMst2`*;YtUmU?`czc!y3f;{teHFrpcEpb9=>?SKFx|rfj;|#?GdI&O_Ga z72m<7&Q9=GzEvin$;lnff{j&HlyOB^2hA&1f058uee;S6w8|?~#mpko1*3ABcH!?6r(l4ldm z2^<#b*s?R~c%8E;;?2z~jV$Ue2_&9Mesb^M!oU)~^N3so2%MxFf7`Yj zr!7@`G00Hv60@klc+^Of%(f;VTVucEeRw3Zq6GueuoK0L&;Wp#J&7iWNaGas-9D87 z=HW$rTuc@C{>T7_q*OLo$U4MdrR6GpfU?yM`-E1w+3BmZ$qY?5b)#AIKWII;nx=^ zq{P1)imw*D9!nFkJc0iKqf`sNO)** zB9HBDTZ_w&3n~IR!qU$@e;36QUJdGv zVBp585_rw;L9DfeQ7p1}j2E7Lx%66A+WSjOe=Y^$ZE}CPF3klrc^6+){ySXM`D+?5 zEW&xag7r7#9S5Z!&XToOXIWab9pVbRu#N)gbK-?wWFtQ2bNq$47-Ky!*z*XAF}4~b z9hkyaIK5@29y10Ef2{RlhtyGaQGCp*=TueRg2M=^z*z+U4f2vurY zC&Hx=w8|IGRaS$FKl@2>sM90Jpv9xHXG8dVHm=v{?bXZ+Zue@hC_?fb5ScZsMl8{02Cc zp@(**c9*(=vh9|>OZVboWt9r7K?6o3ou>g~-4_VXjEp7~7!kzpNd>01*Vk8r{jQZp zuMh4-ZPa|*R+N5R{JZOn;`9D@)EdQS`tPVW3L?H(e^s#@ZyoToVmJGbnQ)n@sg@Ck z!AGT-5ydgq5hC-Vx8U9|py(yaDPq|740}pXAqEQ#Blpu!s3kF*mv2J4vv$~dRkd}a zkQQVD6GBJVZ2iFxY{6kIqERh^VQvSI<53YffHiz;U`Mx7{@H`pyB5INP+^{c#|jTV33ey0Jx7W1(Vh0lgTBIDuYl@ixn- z#k>{vl^BaF!mJ)FuC!1?t17|PqDWe3vh}*IC7ahR)eDdki>uC-XXdq> z{HBUHt*#0vEzD@KoX#!)W_5N;D8MYuRuy$sZI@36qVS5V>H^p3Dh_U{va=(O!K+cz zsTvhEop%aU)pVZG*1;ia0nnacIJ>xj{EE~3V?Mp^8bW?T&iN=Z8hP%@RN{R0iQKch ze_datLjbjH7I#sx%i`}b{S6g07-UlgEl1K9x)9zXWLl#{xlmBEg90NR%#Ud%*@Q5f z7*orwBati|ZDgSkU3gz_j0^}i(aQ(_vv4(?xXvo1;)-I_VoR&;PDe)S&l>2+HjSC% zEn|&$psexKrONCpKMr7Ut5S5)mY|wze`a%&!*x7o;EA;03mCX{`}#eFUb{c+w`z>R zjz5swY@Z-HT>zOc(Z8bzgh(IBae<4tO85IpN~AjdVl@}iZ=)t;S|h!4{*m;Ao@SxZ zG>~_%83AnHcDeRjsXOEIkmR-h)50s>m~{*De!1W8?;jpW!pIA7%_^?O6b#oLf8>s{ z!!Ksq7{qCX%z>riDFolWg8X#eVer#uiY)xaY)Fo;fPdkfzLZHe9T0cwxvF01h)H&4 z2qK&KN5)T|dHi3@Ps0t)h~g|i`{^?%MNoeF(nZ+V^<6=R9rDFLv=|Ti$PyHXVH^27 zeK9QDtV@|ZNz3d$uu^{F$+OWgf4R?9yEK(DdCz}%mH52i5y(!y_b2HePsJ7QP~;-K ze91Tb!9Yk`f=26msDj5r=^d}b_<^$S+Mhk#nf^yOaGwhHP~uemkb}nYBtHX>d5S$L zW#Y0CFQt}!5Ifmos#5sW%=kP~dYoTm`{0xI(Ht{A)EzU}oJUFs>A&9Df7$Ez!3Pq4 zKJD$l*n=C@L-@scD7TYGIDMCgnDhl!tnk*o>#ZRKcu9VwPxom9^#A5v1G(AO%WRr@ zm%N7a7r)iT1gv8U5-`>B10kScW=NP>0EFr)hTUW@9h}?E4}whoA>)=MhSZ+aa*>m4 zdX+(@Sw;lO0TA|@n5X3lf4)4#z>r)cX>LVErfG2eGncIvHvL3Y1N7iZG;W$hC^GA` zcXCYz=A-mFo0JU$c{RxkgYs)Ox27_FLKJDNb;*@lGR&7UOmdtwKrYe=J~{WZK`|b} z4?te)sk!@3-S<{E*++@-)Et)(V(lU&w;uAeQlLR1%+G+6Lx7v}f1-de$j3I0&e-6= zFs#xb#_&8ia{(xDl7_ij@t|R@7J*heLN*IG!!adsOc|@me-`-|09lsb(6!r=4Sf%6 zC4)KxWqM7I4&)JP8rs2SqhfppM?f7u2PxD7#Fg0?OCh@SwKqk0$Qw+HiAQCyY@gu8`62#1&KC6tcff2XTArFt$xe_^Ioj3iRO z|6mW$%)eeHWj@W=1=pNF9O*JQTu8dJZ2E(VVaGM zSc{xxf=5qDH1R0mW;jT5_07g5gaw~MGE)ve%{M?JnxvEDXqK0GC;9uwbaHOi8wv86 zSx0a9Hyr=qe*-M_ZZf zxFBc<&1E`B@(aL3I-Z&hNqv)BUp6p=NYh3}2p5gnc$iI%Tn~I&NnJqVf;KV3pgzcA z1|czY5=Z%)`90S6Yv}qay}mSjXPSI}du$$=OZO~Gf1YKA2`~i%Fp zRuY=Rf6Xu$;O&u(R1k8KMkew|V%-4~HEck3UN%0<4aH8Fzrbiu(#gaSP?@xz6{BGb zanw4_4XRr}(j;BemhD)^xB$=D&4(AW59g_2 zJLg8kJe!%jJfh)AW&{O8LwlqAA|FfmU|C)mf0dfu%~uxP+t839vZl&Gkqj1;;~#A5 z-G60gA9FbM|DKkYc?Snhu5Yf50njhb((!0^28)Af8E&^Oy#F<~37NocxhZed)Msh- zT)ZlZp_SpxPP@1^A~>kTlHSLHR9beaJPyimp&UVWlfT>TZTRps9~nAG4P#(r;^s#! ze{^;YV#y^)MIhaeuaUwo4L~44;=j#|7rb^6)CV(D^yCdFsB-B+b)=H~JE8R52}RUS zRd93$S#DwNbxK}OKHs{VFXBs8r@&m9Yi{BVp{0Il{pG@7+~8Zmmm7g|Q*Q-dZUoLE z&cU;vLc5xkMuSgwX-#VE2f_RAfq-wy8hs%IIqD0H@yR&QtL@a3x)`+dXNTHeSYY?B+33XkeV+K>U% zb|34v(k(ThVljs=q4_*a8Qx-Ua78Y`>8JD1bV#+AL(<{FvqMmOHRHz(q|$Fqf3I=e zxZYOQ*KdIs!<&bTBjy#=UJfy$4{Sz^8%U+!nqK3GalPG`USMaPqU*wfXkibEwPYEz zkX~>OR_rh;y-J^p;KX*d2uk`HKdU%x*Ho#dL3AC7xkwosSp>WuA_TlwqtuF5;nZjh zh^^5YknC21NH|urY;8K&V&!F4f0p)zqsoB0-DEXsIg>H5z*%i+Z%QA9Q2b5Ou9n-g z0-=hoXDu-z%I1bUq!KpT*s@DYfLozOPbEbM-IqvIhux9%(DGFx<4tqWY_eh+yp!!R zQIq85UccXa=8`UwYR#-+&-{L66_%AX^t9~33f8S5Y1TQCg?H%ID&V08fA13ZIhLoi z1}X`=z{fm;h)EZs9OW3{=x^JR=JG7y8`Qj>p|2n0tCyS$BLbaEpblTV)!G! zb%ms!Bslbzzc*ns@~V}xIq`0pHSJNJY+=Zty1FEc_CRgIBmz&{t8Co0^u~lob7xH^ z5wEo)o3)Az%*{A}wXQn9f3AvD^|xfh3seP-{b|9xbcL00*0M>MIn3{x>QkUC2I?rG z0^j?IOys-UbR_=r@<+tq)_L-kZ0ZP|;P3XDSB}}q;8BYg9=^e{!+!&NI|3&Qt{U4v z(VRj4;kd_W@JLX}I?{bXyEAJX85F>Py$Ee%0_X`8SAtJP_>*5;iYv~yd@+LqnDp0@^sXGke&j@|WWR3&eT6uM8!NV{W} z96UPt$wi*Nt>@*15{yo=Y+RG^!6hKo54f!JvxQ>LRr5fCDl`t)X9E?b_Qb=9*>Olp zAo2%sBR4(doPIKU^(Y(POZ?9og1 zCe}JdiaB30mm0dgB&(Fsbyq#C;Ggma&?6lo-5WpSn+w=0w_f*Ak0LJx|Ht4aH}_vU zKi~1b~AfSZLIhh`&f^0?e*-cXbPtQvQs$RpInnqkOe`u*Dm#zoITib#TA+r zSptZ(7xxk!@}5fSF=B{(c&$~&wh4!GQ3gh6x^2}c`z0I~`(rdcYO9{%{J?Zd?X|a? z@2p} zR%Iu=jkSCC_8~gc5V86|0I>%~;lt_rBwfcByvD!-Sp95rikG zP6oOvQ+(2Zx3TMTnq5eO-YKUcNr%InbIaq?f%nn^hMHA0Y#Cbkfcr1|=9_P1v`2fp z&4Z0>e2v~{IPYh0No2Ah_U23^ zLC0ojA|K?JC|WtmNbI1z_^u?a$Q7?-5lVoOe-uLxI4sei5QRA*D$5xA$iCp;gi%YCppes>lf2C*+f*U}c0zn&bW~e|x6VQv9X#7V*xNhmcbJQGe-96y9QKZO`}@0l-4}aLkNMDY(1CsTFNzNt-Ak*J zueRuuj`z5jf;Q<<^&F&ImTSSzOwrlPNf^vNymYB$H7BXutDf+Ywwbt^uoRIh59e2T zq^mG7Gz|yQrYI!P)2*xF?a-Oa9mi`uT&UI~Tgw}vi|1y>62@_h4?j*hf4rLO>keXV zv>p&@ScK_Kr$!DT_4`FSJ?|Q!VOU(WABvcyzy%aH54V-}ar&#T(23sc>&Vu@>42gD zy=-DK57nl6ie<(_hmmj9TUYNLzrfU2*xDO|we`l)(6n3dV-Y?S2wv%-Rhihq^_4;#UuzQ{2F6GQrc zSRFdnfx?GM{?Y27sE?Md(6qeq-~sBbP69J1*H#B_4T5O22o=t+RiMeUv`DuV5m`k= zi4aCrE+%par~$+ip@{PK%g$ZldQvjDzD)yV78^eIo%@XS6QMl*!rRuBEA zVd>By1vIX3QKY3Df0At=-3g(ak3eGZV(NiM;2gko3MS-W4@Q2;>oueA?)_tL=k@Xa z!L!C%?3CG9hs>m?!}axdhP2}q`7tg@4h|3Y*c~)U>^RWz6U&_^=tKHoeL)|2pCv@~?|LPX0cC@XW=4R{g$f3vnM)g`{aNiK??pV9 zof26-2>8-EC_5~1{0^xhKE#PLv*jdf6t`Dd?bMgBh0^9@S419_0DklP?>E$Us`|Lj zbGJH~d&-Abf2RDmsxNrluhz}GZwWxSgm@=@wN(t+k(-+xjD)*Et5ma_i%ZWrOWXq! zK78%&Vva?@qarr-;oEKnxdNC?P|yH8sd{KAXl8tZeu?j4Bk2ii_Y9`(d5D%ZvPh?+ z^h`ov8bQ*G-@u@oqw^u{h&RZA(20~SW|KBgh$D7`Qb#7VhDl4j;9n)0s%YChnrqDJtM;`$w8|vJ+QqO6A_WFs zzO^^I>seWQ?bGP|2#dT9fLkDMbAV*2*;wG|!yTcHCKq&@v$gMgJ~RFR^MtxXYoNX2 zg3MXWf1u$Z7r7D0B66QsDS7iM9&El4h?C4c)m=*x#xobb3ly0JdzZX{45`<&2UUXegyENC}4^o>uPZu-;&#Je764@f57$HK+UUjefCZs-8bAgCdfYR&{16szoi5alwq}$o zn$0{lB!7mwaWMrWgOXGEOa>%un@gUv*~en^F$>;U9ozDb4~Zl%=06BdLhjpFSYh7+ z$K3#>#O(~OGG}Xe*j6ES)iy?6L6WcDzAK^z;fO+;jy641%YS*S_RP=G6Du&Yrpl24 zm;+#!5^8z;e?=l}ZK2uOnm6w?HFOR7|@CvlolWG9Ipz?(Fm^1Ft;Wn$zFvg;fs>K{E!nxubM+n#%IoHrBg zf`7RDT*Q}AUTks-IWoyUW|K0b2h@pyIiU-8i1jY+lW+C%0e0}~kK4g^iV?rvpK4w* zrrK%M?1-d76Tz-rvGZ=;F{{z-f_=yK04-%bi4P%fLC6NlN*kX`yBw{howWW8!A`uI z_?!)52Sw3A?%DECuo6I)T&-*`Ew+%rs(-GH6ltI4I?8r>kdDKbI|tt(Tgfy?JtyXp zX3l}Jxvz=oV%XgfBQBH$Nie4~RDxk8GQFc(Rwv!9otDiMduQ{SM+U7Z9kkdzAVLW( zCWTflEwl(_Uy~ZJ1Al*n`@(_?4l9iE%k%YYxWX{U^iQm6)9K}HR_v>KRWBww4u7R^ zth$O@@0}?hObk9}HMzm8drHS!(@yg6ab=9ka&nPdx2vpYsQz|;YUvIC<7okcUA&l# z)Np->N*{K#ON$?ltwM_mpG0ihJ%pL{8rUyS0J+I?!?+}H>t z-3oH!T!0aeh9`g$pt>=e8*uzxR^txDUX<->5ioQaV4Vk0X&r`nXV4#N%q}xQ z-E}?A%Ed~kLB4H~B9Z3SU3JK-pI3Ny&^pmcKKO8rnzJiIS}Eu({*?vy7=Kc;NGT>W zTjaKjR6dU0n~^10g63X_6!1hokBZW>^*T!@CvaK~iqR+=Op8fZ&8J@&adu)F#HUa{ zL~?e5!@lF%qJ)4^Ue1eAmM|Jhc@#rW2I+dyi@(c68#eL^<6eiNCEY*O{^E3_HLGZK zM=YXP@kA{_prg}~STAQ_YJUj+9Al;Kq>5eX8lufR$;rXHQVOeNA4C{(8qskPENcNN zfYhg**q|=bYip5po{rCe4esOc%M1aR9h$Jv2&!>GNjaH~E7)MVvD=HLVz;KKA$>;| zpJD3o6?*#`d;~*B{He$bmP7=Sj=K;pul*1FPa4EL|FMD^Uf@~ohJP4Tu&&9T_v*br z`F_?qZoxEV=jaM&Z+yFeX7p|mIXis041HJE>z_aNy&yL7)}{ov+LoQBN5EO263ZsQoq;m zw5k_{a^5;`IaO9w*<*FFp9R>NIZ(&&a;RCttORKS-`= z@E<$u?sga%?k4Q5OXow?`lika zLWB5Ua~ISeK7W7gjIX~lPIC?{@iKy1B$Fy_p?A%l>=6%8xI=upn6pt7c_;f~sAM}v zn?bf0t_bCj_^?qfr8|Ul3ktY44zSL?Xc^lgtCZ#cdQq)Jrx>l{WtT`Q^6FQ{0`}ha z4Bb@5b!!dxYhcL*x@yEzBQl!;b)Q08o(Cqkowp`_MQ_moxSCLA4V79vtfq zFExU6Ex!G#H1Rwif^)>=;@8<7R<$>Odqi$?tTkg zqHnp6aDUN%{RHOAMY7)TY6hktCLIIXs-b8>6H7)g)*b6&1 zo0vIrO#v|niHcY)|C?&btWm~_iWfG%F{Lj{2!B}Yy@a+~f8N-DFeGgUL@b`aOMcjZ zfFq_XWVBSYCPB}}GZ2qP*{PUr2xcZ381#2nap&v6Y&@Kf>J{nChI)Y>y-;T>^@!UD zSVr?gw6$4xr(*uyan{|+!K$v?3evVU^jK@&s^KROma9TVIvLw=SgJSpQXaSpes-8c ziGTdk)lTGPY>m<=Qi?eKwk@TBN-Z;Y`Muu3>sOSe45PiHtAY{uQ}ZoLQLjCin4OES zS`&Q#$WcRYPLaz|ib3c1!6~RLAR0WW7i<~H<)=9gLwhek4}1mT9BMnz-Rn#Gmd>W< zpsmMzfz0p8$-@0#bPn1@feYwMB-NTUjDMs^<04D~CjN^qt63l-JVGym6`sHg@CV?U zmDHkEeJRldFa})?9?#>UOI!euR2t7=b~4Gm2zYeMbLmCBo8o<$7)2jf1?1P`CbW-< zL?v4(rd1dR*-E)@b!@`m;BBM_OP(fhwH##<%z)kBFAXlmzZ{@i(EdQh*-zsWmVZ>@ z;DSg{@7yD@@7h6z<33y({4#!XO$@E+z=^lm{P!X8!ebY+f?kG)G`t}8g=D;B9Jt7gXtDyokk53x5xRcQGv*xYs`pM6o=>^W zbtPDh#G~XX;rq84I%e{6-+#CAau2Yk-b{mtgu_e}Q#4f7*osb&^!;#Z((ZrfBMW8U-#i(Uw$1zu>A=>@$Z|F0W`H#fN;iSv(iKcXyT?JbSmJ&&_oSY z6%FY5_+q=J9J9xv28iLb%BtC#JW(gdhr5UJqH{8X`TL?B*Y}F8kvbxX=AEd>%K?8nxuu=z*x!sW9Zi-MeHmnU# zEZRI#5V^RRT?ftr<$wJ*S;|3NJwAZf5F^d~D*IoLgs%3Zj2KqKp5=ONzd^81{W7&N z{Q}r7-j~RJ@yk6j5F%*#P#qHvnQnDbS}bVO<186 z(_%tLNDPL^YFK7&`KB^=?&QCwK0puo`ts{^@jRb?9l)>h5d_suhl_(pZa)X?jUYCI z#7cJzvwvPJfmf*Q=8fSj=qNM@#|mwT=`b30QK{1HQ-|*<^3wbM^Vi3_hi?w*mx_kD z6wKq^(edk7&3_=_KD+?P=ljP^aNuzB$_+^_-^tEVum8NdP78rw2r;{Rz1B{zGHsUuk(V?>r9m2A=DOn*6@ot}z&62~z~hBJz74kG}; zx0^gM*H|c_`8jVTeL(=5DL$85Y&kCCH6F+766Esz*`z9f)7p{mypeg<;MHzuKINzM zNO#7u{=qpbhhPAHhh)wj_6I$AfIkra$C!sz*5fAPJOoeFGdfsKmZ8X3v@)@#Vz55Vr8 zc0hG%+>ukfb)9KKJj(?D-!}&c!_@m1?)Fjro^%mhcRI2#U4OnVfdzPXv!d3iQ0Y|EA&_VX5;wc! zIsTqND`p9pEzQ9F!JjM;|5u<(cTO)too0d|9oS_xWjCjtiW8^0@Iywjt;F2(;}YH~ zc&HjlF)Ve-%sNTyyGV1XuwibWqB4j~P$fnCu@Q#T%h-!5qjpQ~sGN-}HWBe%SeQ}? zk$<173!+Fhmc~pk1A|nZncaKjJJ$oVa+O5D@0c@2FI>q9LBP%=+EPptEkpv z&MNvZ+Q=b7oiaaZhteqjj_PT>OT*o3Y8O$&f$%iHVjwoDU(2@kHKtAwSscnDy5%LI z@u2Dp5jCuAzP^esyh&Gc!1T+-DlM| znEO&kU(?(*pt@ruI(N4ZytkkJY;u|oFfI{i55>@)=FsgO?6x}ecmH|s#f!r??|ir~xL;u;hzBd+Hys`4JCJd94)JT)? z_^P%K4-wr;-QFX;)-+P*V%>XdN3OVe4& z<^xrW0gTRll=Uyut8q(hy~?zH&IXVCQy%jGL$tr(UG%tJX}4An^r1*B{sSSDbU*nW z0;uk%c-8Aj)qgb)>tS?QiV+x)BXa`>`cYro0hGGQYd~D*p18~F)mJazp?{cNLAQw5 z4~%5{*T>q!-U0O{z%x+ay2O^e;2Qpjw(@Z=pM-H=JS2f);&}#^jtWQgp$0v%)wdAB zg}YAHt36pb^LB{^+oGr-VSlnysx#*bKPHbh{K?PllkXyxE+q^}D>=yq>8ykptRu)r znVx3JIdumFFibB}2;b21Mt{c#ptk*Jx+S=VbzyhzZW>@&JsV%8*A2tJ;pihVW9%Q+ ztnoE!)X5kXoc*rS9DN{8(Ni8xCPxJrr_vFtPf!p!y3wtu);z+h%qOtktZYgtv2lQE z+hV#70|3*9q$g!NQm6X~oQN80T+glXueAzWsE*@D&k_dfhKCkiR)4&$5UIsM0yqD% z0W2#t)W6wA;^4fu681O;5Z{JT$NRvD$w$X~o_s7FRy8(sSF2|T?osO$z4A>T@cd;u=+Ltr z54^=IbXP;yB0Y~$il?li~F^z2FG?5WI`BD0Y&Qv_!u! z@Ml<;+l39NO&--{HU$o8YMXiIr`KY-f0CW2A9Kiyi1zB7n12y?D)uRFIW_|EnOxpa zY>iGNp=**2b2P#dOI=VeaDp_6{Vyp}S|bcv>{19rWa1W#7-N19D1VDtF?r3*k_RnZ zj^sGIxP;cN2i9X6SCG@n;m~`A5HYRDAS0!Nf#kRL!#hn3(GDdy0c145Kvse;4ZnkF z6e)PJlxr7v8h>vsa-9Dl_W>E_F(Qm6zBjJ9-}ltUo*%nx3uZLgCwlND=a?y^&x8Td zVHucB+jjIFQ$xT@lB_)s0WjeR4jzo924H}k_1ysF4q7JdGGmcvtplca5{T*}$ACp7 z!#uF{i~Isk^|ow-E`Ip37F${yyvxfrhyw+3F<8MqI)9vsSXP3%7YbxgR-6jD(-HD1 zu$qS+LaVgT#{j|li)^aZI?B${$uJ}a7=j>7Hf@@`M=E?}s5Afc-U2rpKR<(tHo%FS z01up(W&bp}E@o!EDB`+Ahp!Mf41#DIUu!u9k>C3m@6Iy6DO`!GcfAa>O>$&OaZKs9x?Gxz&J2RjKn6{ zn8-ht@t$JXvvoMFx7>OqkOZOcEe-Wxv58~!#&rMe?5x8cN9Iq;jXHp1N3x2c*Y98d z`qwV^@zC`#Bgu7vF4ku=>18&n@5HB*Qgwqn4}Wa)oOd2fP*H2YFdeHj^=3n%&zHd! zutcUBbB<@=_LL1h#67SiM(2fL;4?g$7>$uku;Jlgj{uBC-+BS$s#6r=5zsU2Xf`)+sU(1jSG3&FaxH5a+yP(OilA89&rut;qC*H^?x92SvSW>r_=O9{h7|;uH~F#mMZw{+PEnZ zqQb}kKn=r09J-a%iD-6d%tqJbBIu3G2~dWKu=uK4VEPrvL~|-+fuptYLxmsW8JE%) zNk<0e@Yfs&&#%DGj0)V{*XR-~V&@WI8JuzoBWJT_%#Um+4BM(FdRHtWC z$UY9JF-52O*=)i=9mwv@#|8&rRbulQ1v@7;Xy-}U&qT;zhf|!vf6em2hY=}JveVOi zfN@SO^=x(@u2}}+t-}&~i(&Pcb${6{h17sYkWIU1Mq;lLXflIA{UEn;wD&D$0M*S! zg4>ozbO0;8K-GRgl#C3_kR&;$N|aaNZf!|aaHj4*9;JGnA7NtF{9oBoF`H&)6!rsx zhZibJE$B;RO^{?`SAa1$u;*Yv^-glj72T%^<&F(nQz9q`)(gTPobbv<&3|>lhf+6! z_Sa+fJRfC4GgM;o=+|x!2vs98;ofADUYnLLA&V0?`IwhE_*=7asu|3+f849^xv*fx zWJvP7JF79AWol?^Y8r6h6m;4*y+uZ`Z>a4kyEIG=@SUv_;fip^BIh+Ko`q)4L68C3 zHG-C*xluaN+>?8RQV9 zw25r0p?wc6yU8y`Bm(@vtt1W^eNKYq3n~thZQYY8fr^2>jEuW6&i|O9TLM3_7~*~J1opDoZ$UF zwPFK{assrgJPS6v-+!+Kq7LZvFb+uLma>-_+%itpfY!{(a5nKIXL}FixpP2KxJCgX zCIj&*+HP(jzP&U0joX#1aDm_kci`9#7!B9D;oLUbA#4%oOT)6Hm z6n#xk{|WZhCB0Bg=vcgRS&Hl&SiZ7W*mMKBC`c~DQv{zwrhg>SbG$&z&pE|l;)E`` z{uNr`0~{1$sRYalI6EHjQ0^&Wj%{oelzuu$flQpNr~ML_Do{~)lHr|)%_OY!3Wmif zrAWTZsTWWSFTviSPJ=lFTGo0XTqb6t10Ohw}L? zbjCa8*edJ{CV!`9tmmXhNw(J4Fjl<~nHnl>V7iLKk(p0`2kXn-pfD&TaWov7O^#!; zvKojj$Q00m=(`>Prfj5TRXUP1!3i)t&4^A-4hrZ&=XtdgCv|%^!f3xZOqiVMc#xH+ zGuUr>qP&A>t{wPdShR##&mpGI#Ys9aOI?E0aj}>rlZfIh$ZCfLA$h#E^6pJ> z&7!+5y3=)weSCEwi#zq%8se?^|5%j`KU#>kSYl1u8@Ro&;MFOGU|yG(8LW(1z5z2q zlz*+ewr5QLL1q`xo_F*!s`LyBu8VYh&025FK~26*AYlQ-V8W%nGl-3J(9KbHI?|@g zb}BaSbq&wJv?TIwX*+=|NQIiE*H|JVzJHcYt*Vr%EJ_DaT-c4^-X%!1c&0S5F0MR_ zsC%d(?}q7tiD|iHzyR1O%neGf(rY6Njej`{Fb<#YvN3#;eE}$UCsfC&G;l!2>4$9n z@YG-$xFp|}QCh82fgR)F_9?%ZT`Z!zGG#H62vu6uL9ia6vVW(R z8G_S=Y2Z#%RfGF}#=1GVe!JIqd9?Ijt<3I0KtV@8vxcaqo2Qhs8*-s@o?&uF9gW=K zZ3E&WK-wAV1xj>KD4h1~Z2e(aOn&}SK_x1-xSlbqjQz)BnCor5TxdI}>6N9nPSSc(z}xSVGJm7ZBGe!@ z65zX)8`TUV6xOLy#GQ+jkv@LkLZ*M+t6nSr5J>+JNdFK>{}4$35J>+JNSg%G=E%Lu z65wTpf{2UHHwbWsnM+ck_i~1Oiys@zU)iTYc1iYckgipm>YSt_l9}OQPZ^pNry7f0 zBaCq#QxTyr%))^=V>TTG`G4vud&lLZ7-S^|;i*gnDO&~Q$$URi8*HaMHv^?79(op% z#Mq?tN3(fCtXW|u#gr2(!%IS4*EYsaJP8RH)1f1RHMb3{vJj=&U^cZjMj1U5RgZl> zgmF-LDKAJo0DgfYjWVlgK`8JHu{!()1{uD&pv)LSJQGd;yg`>Vl*mRsD z&g$t|t`vz_&(-w73$`@Jr8RLlkD(PwgUmOmU0I7?{eWW)qyVTPgVWi_8A(Rz$!1mP z$QvsqKkMjgQpXTieu;@nMZiy!a&~z+x~8NH(IKP**tNt^%&wSa@Qz0&?(TY++80wa z7Pli5Gq4LJcejI}8h^iN+Ko&tnin-ZQ7gAaMN+rDG72hOE3plSSH6&b=jxsBqgyRqCohFZL>fSKFO5rADOxra2B&f zLMBtZd|;3z__Ahph-2UTMUd;zpii#q%GpKnh6h=CC`pf#N|+=}n}-`48%!6se!1WB z4VLLJ>wi!e)e|kO9I%a!zehVBWiNHcEeNxE*!d%L9?x|(JT4V<-O$Xkp>2P74NZ8+ z+j;^x_*1zeEqZ2!t57+ons38?hDVUmQ?yJP6lNiE;sBnj2*eVeCi|;EnC3_V9{9;D zSw8MM9%|v8WCl)V`6%irz`aQH7qm;PvzysKY=4jLjLh9>zknAP4uPfUYuY`j@1uv3 zh}B}!c}zxkY(U{Oj>u=EaMh9>?kU z1An{`O$*RM<>QYjYBru3-fQ{j4t8u2zxha6t*^fBdoWf*R~irPgjo0L<~f$L4n4C+ zNeDZ6k)2NA4J`cr63@+5B(h535g7EX##T)%3C;iS`6Hy`sOm_cvNeO9=;c zzu)*X)p8PK+dGujaM&^shELadCTx+-H-8_piifTPbc4&}28UoE)fzJ}AGdY4Gku=D z?!OnLK`yciCO2cae;E7tDE9ID*vH3>iOeh2e~7{OkJ!h*#6JEt_HlD#xiM@;@vs?1 z#O9;b%kszIH;zvGDr9|hgv7r1t4Rm%2Hxn3_w+8i`9z09b-{k#8R)6B=Ox? zBT$EoC8R7TYeD1^d94GHLu($z*xk9RofYIu2366)%-%idGufmQsMB^A<0r~zKwtr!Qgr&Hy>^=Vu6xMYa%%1~hkqOf=iGnn zbnR=ly+B$=3VJJp=bi$>q@0RQ60{8EY@)O&>^KS}tu)>qBKhH1OF348M)&sGtU9RyWpkOvq z59{OsnScxAI`}|F9XyB;ynlY*e{H(;S?%%DO*f*yPp&V@4?meZlY4+5wh2O^Q(t;@RFcQP?EfLauw-%gu*dR_1l7F)BTfBM#GfsdR z-zm1LME7-(79%x>GeK!1(j*vP#mO22flcX3k8d4t&llG)^$M&U1yyx-$tRtJb1LHi zf8_9n)i6>E9T;Gv3R^utAw|J8#=p}K)BZJA&P8h*s@#ZGM((Ar^o*5wrf(P|I-H$i zBrokOX9G9;9XE1smVY3fG3S;IdHv9EG?&twBSc#}vx>G;a)v)t_fET>!8%lpC~dD% z3@jyjhK;LYXINu9+A!7xVlDQk=>^-@-1`$p;1!R*r!p&*kVg!#q)bv>Yq&Z?HJOBd z=~QA`ehVi}BYu`lk6kwc%8?!G2~I|eU|c8v!nS^ispgfgDSrs&Ku(qIFh0YYi~qvf zHm4G&wR31U-d-c_Ri|zH=$zL}h z25fGyJ%)_nn;Y;y^RLITD>ItVwH2Xs)Y^44p7oDkmg8Z|0Iu>kXNU-Abj8fnZ5OO9 zc2i|1v_({whZpHEi*93ngC`Sng!d1&)K;HUn-l`6{R<1gMge(}cPC9=3@(+<$Jt0<=b5X(0LF9gefoezt5evcPhZNQ-&DWq;{^_$!S|XI{C>k#h5BqZh zXz)vF?{%5BwV3YlAcWKPeqO1sj=9EZ?K zX@9`pczWJN;*{MbvLiYJ8YpQB;4eRHXpw||3BTrou}@T6k8~+%SgqU&`6Gh2fhrO~ zM}68x5ymcAqS9znc-afQq(X2Q$`g(OsUSY)>NNQXD+l7t(-t!Qc{K^D?x z*+zb!mcZ|+M0xr|3OJS%3GEeNeiI@c7GXJ~NF_zbd@z;cuvQLOKpJg^-YAgXRDUF0 zw98tl^oDZjt@@Ro8-&xFi>Hf@tVTk;p^Um{uT?Qs393tps<#$a7aekwyy^{J{(Fnv zx6I~WNcf%Kj!rRR#3B!3QAHwJHLc)XlkCzmr!b_1%))=^7z(2>+Ez7+vE zos(m>=^(m?v1CQ9PLN~K*CJ3_4VPhYjRAOxN#l2-`0{!wq?7=$0G^f8FlQ^=Yd$$! z2ka~8><6(P|1w3|pLsNFGUm0)G#O`FIAg zJ^2yt8eDSNxDjn{2iXLpzPEe(Yu1#5bN^%|*s!+o^>Qr=Vd+NJOXL8K}M&L{ELw( zMy7vWpK>($Im7aX^J{ohhJP!AaoCZfs5?M{2J2zy2WQ@EZGi*pUNhy#8-K2Ls4&UT z+5?L1O0P=N&G(PpLoOiqKiqHa!9zR4aPPrvgboB4qX{#JZP{x0&kJ*>LUZCR^8?2J zAZeS6^?I_=eVlxkJT$y^8+-LyJ2dD!zc5)>3>y0e!8WKf3E_- zSOaO_vOR91AG~+p-UG+k9{oT@M~@@#P1u1A2h(<&t`pmTu|Pp}bww2-w@Ty~oDSPQ zI`~bzWZ5E___5FDy*bCcYj^K35f~wrf!?^Op_~e_%SzInROcG7w z10`6VolnnZ6eQQSG}$rO^(DcIHwjLobSHq#kY}f2x2;;Ly6hMEcrcowZ4#Jck$TSM zUU9v!9f5TW)&9Fr70JNIpFS&P#FwfLVv!@;txHAL#ofjWFA*a=_FU z25AV{kksMYms!0|0|%cNsX619$~-$@f0}sY=VQCFEj%o3S0To0J3Nr-4&DvT{G;3~ z*2vUlJsOZd{8?`VUZXQZi{R7{e2D_e41*<9*b&6ehcFbwk9jGUY2rN=2%qSCgHg3) z(^D7uM8c||m48iOelGcohZDobNK!d904I=E68xX7j3)McoV|EmyL#gRNiM9pa&&f? z1et{F$h6Hg2|CUrTt`izj>1F_Hd4FQX^R?9CGn#X5V}YTS!^4EJJWqgnvpy=xW}~2 zXn%vwzY;|RZF?-r3c&EFNNv`|i2oi-sfT7z6ZQf{Uw>oxUG?;Kj_ma=busY!whuXM(VBX0&{;mMtEciTB!2rZOGPndZVmes<^poZ0jDJPYeo4D zCr)YG1?}i%=xC&MZld2^60AMk&Hl9{211tn*xILv9GtrvL|L!+EW`h{H`liEaW9{k zdfRMQ!ha0RKFwAhMo_DScX0JmAkQR`$FAVD*L(9_L{IH2uhc_F7*TL>y^^txf|?xc>sXa^G^LyiHHGgn&qPpz z)k)P^)=%T@=DYe4H#e)y!ZqagK+OhywQk~-Z6})>uB>Jb3{!LN5T-8MP9D#P34$=j zmm&@&2?$*UAP$(LSh?NzQ9_}hd^#}W^ycP_!xHsR1kPLPs9` zWPdQqUKORbk2ahQoN8!SjHyc7L9S=8dXFtKOWXUhvvdvpS?XnWY-2SBZnfJbh~4fg zjb^nH;jl7fQ(?6et>c5cUIg5=Mpq4mDpvh97KsBvGe;&Foc>V=8p>ahXk~O}rYzsL&*%hrlwH zC)GzG{g_WsYqZ?n?cmxs{(aiuA1Vb0P0(vu@6p-BnSH#=k`ji0m$LR1g>76^;HIR4ZA4ecN7{|#>v?dL8p3rr@^E;-p}HO&=L&cTnAFew1ioXDnk@6d;`V-#fp@dWsXm77zcO)Q-9ggZ}3E1 z`<(uT0qYbq6b?QvhRCvNGhaKA_#teI@5I*DH+!|Q+3Nr}TSh9?89qD%-3TN<^@qIo z#SU=Ke~2?p5{9}MDBXzWtA8%<|9RulP`FKGerwuQ%z;`{<}LQCGGOsqs0=Ay8-E%r zo>2ZY=g{ON7n8SoL~*i-oz%KU){rE7)uxF0+TxD1-@ojhl>A31bbl6^lQ>oJV2$-MbY*C_PfLRGt zpSQUr$tZ6sOxC-2QJ3{PpXkM4zW>r~nbU&KTXw@&+_zRj!IGB($S!`5Al*q!VAP~u z*Up+PuSDo^#pyLPwb4iwC-Lb`$zv(FoZ)pl8tkOZ(#hbQGk>GqU%yBvA1M7$NL2*# zBs&+DMU{mryiWFgqJ$%>KJDOWks(?`@k@5+U&ws-sJl?L>0@}iH^=X>+I%4i3gY$N^Z6|5n z?><;>C2L#d?0*Eqk*q)TZzLL?jYfb^eeS#U3s6IVyK+H1BLYOl#%N(7Sk$Xp{Db$Z zC4Xko;x-W8!oxH4$k8a17e=?f8>*jzz^RhkQQdzZDkpmU9a4C3ai2@!-3RyC?L=gS zKobzC0@N?s6`O8Xu)E65F5e4~sdHz|L!A*M5E((DO@Ev8As=6YN=VUj9kcrCtGMDX zW8;E})HsL0st%@MYCdnNKugw+k2N@+y>zcWjJ1%JDP3SF^e%7;EOFjDXzI}S>5Kq) z{Lm8zG*gTdn=cP|k^sHbshhKB@vAvw+>ea;Wt>%751Bwhh~8bC_yc&=*Hnjq+X{jN z$x`n8lYdj)DW3U<=l^ntr%I(f{|J;>_(!aqduwh1<;<&N8F)XGaQHcku`WLqW-E+x z2JhB(bCkxySOl7OZ|D%%6LVcP@VCf-n{s4*l^cS)AS@)=H&)^Rjg6JMLC)5>_4}lv zU$}lO_wQnzpf?W3>RPZxm_@ZgQ@;c_%YRK{BYzy#M(L>^N=5Z<4`%{g7kE7&u}b=z zpc1>6)HnHWkgW%KAi! z4AA4t#j>FwHsVe*kX-k@7cY{W&P|ldtP3f)8dKbx8%KEx*|@r3{?zdL5A@WS;Nwmx zswS{_-0}(6%#?=Tt--1JGUv&?LQ%YW;(3rx|K+GSTWZNK+-ww9vOpfBypY7?5T z9u$sLtjm#Au2+uOs-cR)sN4#?a(P*CTr<4iRGDA|b_}LFmntB`V`f2!mX%e<=yRqB zJSA*@4sicP%i3O%w}n~YDDCT=zm@M~`_w7g7dEYNV$mX!&n+eXmD&wumuLP)_kS09 z%r+F(Osd|9q|z3zq5DJG&qf0C%i&*MOjMSCL(8;yy@Z3UBu`#Hd%FLR#CKM&C4D)y zKMrGfNuk6?e#}N5gta5NH-ENolS$^*y{rf{Om-dKgJ?exY`3!MlBf_32fpEn+Y z)eiR?LAMVaektl}tZS8w^|qw*KwQrSah+5yH>7Tt7B+^>LacCQC18gbnJr93DfSXL znC0Wd%zIX>wM&b8d(XS1EoX?PnV}E3zC>q`t*hgb%GTBJ^US(9Vv(xq1%GovGw<5_ zvW9}N$pT|L+1CntrGJLyoO>|BdXs^Z1T z$1$A?k=hZrPT^Ur4PBwkJAXxvU2FVZUF?|ocRkn|Bk<}ftJCeIsT`t!@ z(QDJSwmM~QvwUB1jEh6a5`eDbfUcJYgpP0Tr};$|hv>@P>E+3sOMmng`r9nq)Jl2h zS;{HQA|sx$MoMbcF`q^B)%9#DWDN}p?Heb!SeBXGpd00)2j`tk0)DeoP7tszQd*lzwZqPn&hAE z?-Umo=GTNjmkjjNs(_{MtZo`E&rLg ziP6Y$&g&iy9uP}3t=hsICEyz`T;THlt%oFTZU)iZ+#3bpHi?a5E|}&~%$)?Iu7}Zr ze6!AlSe+xtWZj~4NjTRU&M#&nf)wq6$ilS}?SWN@U`}4)XMfqWHc>BHWM|}V4Q36yfz`tLUsxl%iGgq;)JyJP`|E6a|j1>~P z_^$0?jcA*|y}asafi)|x#EUsU)Y-iRZQn%(UTdfm_J133b5?Hp`Z-mLwNZ=rx((aa zGgBsTq!yQ`>BDT4O(`!2I78dVJ#*yY9UKzD7gwbE2zMc8duT(xS&Fej+I25o>PCCb zkemI~J1IGdssvXX7U1j4!%2ty0$^WiAxz5DMeh(k!_l~5vCN;yJs<=iHGo&&WMr;+ zY($CU>wnT)@D%hqkR;Uq7O}VG_nkecxRCv3*bNygn*Kcy^|$ePMx3=^bVW6Ot@p;2 zq7iN-EzsxGBA~+3JG5&~@>7roJ_owQyu@(mZiFaz5nqwH4Q3#|FvvS&dn z=_HRki8mS0G<}C3R@dCfHN)DjurSGtXeZes27iX7JjJjL0rz6>^TtqT+u=z$C}2~N z#%Nj$i#ysaDq)D)GcMR_{b?2Mu$vL|ozU}dN6w0x0h2c%=Jj<TU`{Uk%Nc z8GlTZ-u@ARggnxexcn40k2k7B@W;lK}p%C|?qsKkB z?gHV%i9(w;8<(>Qhsr(5)^R&x{}5|D2UXRW)cqr~0;UNJl+NvLgau49bcUX&Y6z)j z&vPoC-*CS>IizAcve0f6}^fd`M>1haY;Si?G`im`=zk>= zn=)8ENHQX80a0=62>bow!SjrMMMWw#oB zNc`z@JjK`-bUdWM{jtrCemk;lsn;j7DeYVvbRWqK;3&QzsfRRksC%9)vn+APg7*!U z==N;DpYzvd2=2!J-{W9wtoO?n76^BsqVhcKKHxYN`B)FUse23-i&lMEg+5` z{Je&YZPptqk}GC^DtSI^^5m;x@*$hZj<*M`HBBuWb6mw#iZ*dd;1AYvC5<7+qt};8 z*5l=rjn356VBzO!4J(pB|kT{~80@q@#>nJ<5QB6<4bq{$2O@`Lc_kX&fL#*bl zlk{k#EFHhTtVIr&Cob(w1CnBv=n^8PvK9P@I&MqMjXCAp`$Y$+c90C|>O3E5e>}FR ztZyrhmi`t{M`YaE?Tl z$%^CzZT{2YFsJazMr<-{th_*hhRwl0X6N}}BnGpu9K{B+F zO-VsBK`S&&1-bL;HGf7Po5A4)hD7CIuFaIjvuU=*GAA$B%fp}dUhW+n%OQ+DR{V{|#$x96rP(32WIOq6 zNNESkIhXOL-VnCh09B0CaRoY7gPU|EHp-OJGc{Hs0!XfaQb0{-V3eYhdKo%lp^;_pi)>T|lPPZ94)=9{4#~ecexv)A5Id z>m)CXz_Hq?et(${hodZ3a+IH)OOu`F>)-#!ZgM;+ipz2}fh2^F={UBsh(7{N4;^n! zoL4F^STl6Y&AUG~3ouKLdKUbStn z)jdCsX;{@CPx8ec0JgHcjBc#>|8U?6Duq(Fy>O4SJr!j=j9hfYp>aaB?U{ z1NE-%RdBMcF%)#aBhHt&uPS?i=n*#!a&gKF1|$iL!AYyW!g`}JORpQ5<#}-hR@~Rz z3v}SvC58~xvk`ybpTAU~A7!TyiJ@dk8>UOaf+ob?L$-8QATG(|!6tt+wT-mbrGq*aX|dbB_Llx{W?-;Z#YDSej6@5qhXis;C+Jl{>lE)@$-%cg_ZLT!rmC@6M>X% zEh1OaW8SMz?Fo4zY5F=7qD%B?nJ8lb^sTXtTc!DHPo-HXm*{T}ar^Qpr*o(gGObw4iYWS#^(`P)52Mk))PSF(2d8VschY z=isuq3{V-2?9wbMpHL_6CAj3=66V%S+u;i2D|x9^gVQe9<#{n1nX@w+6c7gIq{PS4 zE^;1#q&Y_u9K?ijqac(=i2p7~b-*8MitCtTesSm1xq;oki-ZW-Y2kd@0M{U^f4@j2h@ zQBpj{5y9M9z5hE-59T}(uu%6FP$PB?9uvR^bVCT(%wqW3YeT!p0|HLEWtCS zScoyy?nAo`2`3Bg!rSknyV*laKJPEEe^~V~Z?D{)+BZBH4YP(gHWi!bEs=3-mM!qikj z+e6H63kR6@C3<+dUJoZA^_VV0=QYHePr-kyUIU9E{<3Bjq3Yw0+Z7~6)R?O@c1gWv z@7=1C*yLAM%*H=EGlWiQ@F;x44nv{qMu0kL=@hr&AVAQ(-2ha_>OTJm%RsteX0CGD5RFh9-twJ#e_as+{~rGy7T@R;j0 z#}my6_IkUa1`a>c&+OCGV4+N&q-Ay=j>~(0!WI$D9DHweKrwNgPRxGme}EH}Dz5av zeEuvmlEpS2g+?|_ATeskocp8n8q9xnpkUK{c=#CZO7wYbzdqV9Jnc);0btJxbHd|4 z8rY){*k25+jS$vDQ|o&L>$yQ;71rkC0G9c^`5z%H=<%_FwfAX|nL~v#SUOnYxE=vV zh{5`SU>Q(f5RZUSq;{=}f$|$DJ{{%K{wgVOQIE;h{LTB+eDc-bXy=f^|4)B&%p6XE zSn$e0n)uTkY!2Fgf4=_M;N1M@(dH}uZx8?b@bSx6uRF=}-qA~GSFVx4gXxZfnV!$4 z+SJOvzityTzx{_u4|f zgPED|;mhxx{6qlZTCsUBdaZu}hS>$-`Q0A$^sGBOJFjTd?&6AOrIg_BA<@Fo%uL*@ znHf_)HaEr5DCI>5XGmf&0{&Zpla&!jq~}FYk^5c$ykN9;Q4ojU zp8Bs=5x0xxQ>dIInggCfc|i>f&ZSnzK)T8PnBS<(8Pkbw^yDNh-Dz0j!7?&e#1Wpm zDmu5#dj|$gw1a$Fvon8Ngb{2up_fum5~D3fEzCNA~nc6N9#c{ zJo0;8qb(JV#Z<i2_Hz9%O|8wb(pdVcWz~OaJLj2UJ^87393USj z>Ja(;ea5G?lHHT`X2*!`YXFD8@EaTOg#jKqfJJDEZ^{G80%~DSQ4V^UUj*v|W?Lj9 zwb%Sb$B!`x94kw#`SB*>O4njd&iDc(ZO8_IM$mO5a7bLM2g5`be0An$v4$X*Mw?hi zy-B2D$x>r9s3U)g^gdQxIL9uw)wj_&&!xMA)QQbh4a>HEicgiw+8yF>X*pK zD&XTPn9887ZE$!+!wRc%n>sP#Qe8=AVF?2#z0CX0!7>hK*6T z$bcrOwQo?V?ly0AHEj|FPO!{S{x+vo7jFqsgCsvLUTcrIOoy2SV-fkXUsJRG8=ckNJiRE)e&{?j zH`9m2`Qd*Vm??F1?TxBGyS$uarIAcX?%$;AnQ4PAQ>87Y%M5rIaasmGO(?pJg6L!w zZfpMD8xJ?z`A{ack`KFs>14EJBp=EE-|p>q>8~ys0d`H5-V1Zrdfz|p9q)B2y#{&M@P>nP7(w@z}$lt_rEJh2CxqhqM9 zGjD&Tx)D^b0d^QT-QYvSgy>jb50sRK!yIRyrWIy=gc}|dK2`oqi@CN2+NsJT-%2Bg zNhEK@JdW{|8OG7xZY{gGDYsaJT`bElZo)3ci*t){GqYHpS1iRU>N!O%qp0H(w`LPd z?b!H+ox5MZ{&pSL?be#j8hw#>509u~C&zzc814ukb59MEOtNxNOwhj!jdxE`k58Hl zQeS+&zt`V6JUafORP)=xKQ=2=SeuO4N`Q^#JFvp(fb}r0YcmeRH`D;gLK@UBGF%$c zUOLe2NSNbnM(ian?+mGt@QYC<&mo}fDWp!BwCVRnHlD$?NOf&J=Elj>%?&ahw)1}r zprA7MV>-Du7j82qn-hA#URr)+PJ#eWA>~wtWkG?$7{~oQ8|8!I(jbad&b@r{YLt#e z1>Qf;IjQI~wpc~|rq~RCqRPmLlZ0iHpk^SQQPz)> z;^Ktd&sn&KhbD*|1;L2qO}YS6b6$Uj(jn-mx4VCsyxco@%~p)EF!(Ys+=`M;l$0>R zvAKiI3~~$>PclP9f=jkqOwx~OK0*b!;Bd>1>+wE?#TH5=E$O)&wWHfe- zWcMnNN%A0h@Syd-i+sHPnjU1I7C_u!1oa7QJK8{EXiHdGP=55-S^XxArkDuJ^~{BS{gDtY{apryaANvQVYodPXT~D38eXiyZ{Ep zsF-*i^)HGKH|q!*#-Kw^Np}5)I@;~qt>dYSbB`HGQgE0d@^(b_yci9W%c9I1SNG-% z+?!eogVP%-Atw6xfLxiezi@x&=7KhX_d!}$Smuu|f%|wU26J}&*c9HTFU5XH4P%u5 zR->TpoDp|mHqe0TXnlI<5*F?a7qdWPWiUu)B?1x$L^>l4WUe2s|MKAiE~;l)H|d!c z98z*Kyr9jJ8bb2k?uP%Rg%~(!P-C)oZmwH6(sj1Mx z16ZC<4CFC^$Lch@Kvr>CT&|O6aljYB$bdCS1~`}|nB_VJYjyeEskY(-lICp4T(T-L zIyDfjFIHN9s4S>A3A2Ag%FIaZL*m<5=Dw-n`3vg7_#p!0hk6(YhnH-Tjg=^GGr_62 zP8lI0wE+VZk=R|c`Pgln-Rv@>I12o7MQ>K-OywmvpW7b{p^v|tjq$(azWFgPXK1NG zD+$A8U0&M`t@&VoEX_%_YfC!$-=8e@MaIufyv9z5U`pi5Qx z;6XRmA&aiK9eFO)OynkAw;URwf`nBiq=Q+3ktz`;Y9na? zqtWalAA9ewX#0Nwb-|LbP_`3bPI9T|0NaeGjnamZFcs+??p4W*c2ZxmtsTuqWG=Bc zK1UEis zG+n}zQF?lc%<@0ei;LP@0K%V{c9*~sKW1zOm9ex!&@>njnyvMLk-Lj*_Hn|dMdW%L z$c$v=m5qP1i)&nQJB~?Y5revtt={}?U2hodvw|;R^mIVcwV?HBGv&!T$rOxGinh&a zF8a8@16?A%%@sDaU|%9Tz@;ODEim0;iJ%)jMv$Y`NM1M&f+M5x@?c-3*O=IYaOCba zQx13qKHTP7bDEBg1Y#zPrx0BGAoigQG8tZv(~Ez6K=*9C4~gw$g#Yjb5l78O%SC0d zm+2IJ5-yZ+C!q=zG627vPG&^bj-`bPuwtFAQH@ zt{wz6wyeD%LFGX*SVs6ypHUxoADo0=ec=bIpFZ#4X?lO>#s1#G@t2M@>M1VSjs9ek z19N{dh{`@qD~QM?2yMC?DwLXwF6ht$5Egq=l9of806B#StSTH?kUWl0!SkYIm5Lm! z4qX~sAWM^`p*Qu=hBOV%p}{SJwFfAFAf~!em~d$IrnHY<@l7xaA5Sg?AFpYpm2Kn} z+0@I6%Iv2Wp~qBiL0tMrMc+2@BN50+5M_g_#ozJ%${I&mzxaeMF=k8$gXQ0MUQm z$3u*u008UO61YE~QIVyzeMe9X2PU5$%xnE)P3iwVli%HJFro+}$h3)hkigHZJ1v<3 zk!mfGmKd2R0c#>02eNeAhCdQV=dUynj>?N25#LX?x!x9NiN%wqg=UfPcPl|#iDL;z zM;<$zoE84&^+YCYHt^Y*ycjrxPVRq+*|;bdvSB_IO{pH2b?<>W`J)8T#XR}M zL!7RqL>rAxT}842Q!!cYs#4(vhr4@RUFNW5+^J~@%C=>KQ$U7OoDl0?zZyAk^zdZ;tUpxnaX{a~0A zrb&wC9ZOV@v=n>1UPXVCXo^^Y051Saq8!?9=YOBftXI~ny8(jo%#OJ`GTBv?m6e&5 zm6es1MFmC@c9Wp2)K6X=zI^-q`1Fw1cR3nt?D4n0ha-Nw_XAM=tsE^uB}4H5_R<9P zHT;JXr%`aPB*Nl7y=$t1Zob%>s!ntct1HqD!8u9{2$e|OR3CpRYp?cB_g=`TecgdB z2q>lG6<%vP(}`VWp;if0tp2j9Xs;txd9K4Ke62_oWXAZA>NX4COoYjUX4yLy>#Kk# zv(U;$CJn9l9#`W+qlsVniWZ)?0$N1f6DYCdTfrCx6kqL~*W%gKeaS2cZmH@wJ-tEx zVb}d(*ZpJJby|NlRK(v*5B2*G$}zNUGB{Vh(PvUb|5mM6^TL(5$z}_?^(Q*nxVmu~ zDM{piK@+A^oCfM97Bd{Ja!rU`hcW_RaZ+M+M`wcQm2tF^{UVfA_?ER_$Y4YL%v3>5 zvB=4no2vKl3;V;*4_l$*7yyOOx&Ry|x_sRLXvuCz03Lq?m|I>JGZ;KN=HE@2HEME$ zSzV@{Z2A*JVDKipCsW6~6jp1->MHZ?{Ixt;sBIV4JH+!cJT9wAh`f@1dPZPeOB}kW z#Ov}E5qfLp8<7Ubj0(SglhoK})_yXTW(!o%KeE#Jq5Es(SD=VsT-8Z>-{X& zgyfWTBr$)2LefBO;(z6mAzk9ioAhlGLij(XTha#aHBxJO<5y06XJ3c;1RA<<{~Tlg z&EH4P-@bibkWtR5tn}#qnD|N;yLmK2=rJk zU*6F(pE9MQ-owM%do=+g zbH<_-OpJmI)cBmEGjZ;2{-L2bimz9(eDy}$-kO-5_)_^RJ@knt7t*yos{56%0w#a* ztL$#F6el^w)Uj=8e{47n7d37wu-UW24{~ZM5l^tJRZ!M0DC>watJFRlp?)d5hg&an z9E80&orTVGR5cqb+)vc(#>6j=Cf4@6CUIls_5p$e612MWMf&31dfYc6P>4-@S4fmU z9dl~?fv*@4%%g!-fNydMixS4I*sgyra~drUqHk~WY%bOF)2AkGS;Zuk%v9}>(n{I# zx~aY?`?v@Obx#5?^9L!A$gyE1p*JF^yXUh&ecaaOoVP|FFZRasn)7_CWAqteVe#Fj zfoGa{b*q^wTc*WU>cUh>3AH&CLlouW=i9yM=((nA3{SVJu{T*S#ch6hQe1!jZSz-q z^l$f1UcA_Qc@U>UIMSUA2*pp2IxfXiwIaWD@WE8H+C?NS*VOh3!B_pO-bj@#`pT=t zNEgo(Qe}G6v9y>mxXP|M@|tPlwJ>_ zNq5Q4WbAAV$BDwR2oG~YO+h0z zq}2-0#B1VHosjfWqzO-!A7{y*G5gc|e3$bA0wqB^wTvz*QZ^&TMPMMzD6;ZA6R$Jx zB*!`nw2~D~pE_pX!u$*GgcEKiu^(Z$v&=QUr7{wVv+qfUp}iQHGhW_rmstY>9RbRh zcLM@70lSy20|Fv{Jkpm7Qdee59!Xz!P&S>`A5a)hA@*e!6_V%`yRuXy)w*64TZ%XE z3@Kh1wW1UzG=1zx@9lZylP(QbS3R>*Wl3>_SaHCfGKGmKJi!Gj=7#jE>uD;P=T$Hh zQvPOYd{Mt{ml|VhnqzKg;McUpHn30o!w~z!5OWMMeCh~)EvY~3v6byH*CF+XJ@!v% zkDccKrJQls8#K)d!2V&S1!dfwk7Y9N)vs!`xebHXn_KCBsukxU_jS#<>P8&iz2G;a zZGX8mc!as2KCWS-@oUzh#I;^`8doO=lL{QHDuv5pXAvBCknQv*##U6c2EIB8IQ1! za~ul>7`wC z@Xx-qi-6CymiB-6u)qiG=XfKLi`CyK6`BNpRdyvRRcmxJLKUiRunEf*>;h^~Y!`$v z+Jt4Wkk|%0sDNWgfl}ovmVwAytMoM5g=dylolO@ zMM|ayPYsPGg~DClofqTO+0b=jQ_OwmWP-v@Bp~c3V4qYx>RIayr5YzPk;=H75!OM9 zsKv7ruV8RFcWErIrSadZ&)iQRH>xOq>x%EatWde4@n8#CsgEVNrmw!vXsi9pG+S(j*!V)IEpjSLYLRUDpBUS8WNb_Q*;xnBeJT9xE!di39&OIKUYwX6ag>A*VyWuwa3NO=tNe^EV z#N-tU4sw@%F>y&yk{w$uo-F^8bNfdS9|3BpOd%SsmbvIG0x~k`O%)296 zAV1KT;$~2;N^vP7c{3kAFm$2$l3I5Tx&qskZHJ#;}aGpOnvi z0ecd6M^ZvCk(PcXl9?u}FT*AW{-cx4pcx{ZD5Z4lWAbdTNH>*Wq%zf1gH>r}GXFn1 z#Z1x^pI%s|s1<%+;7_X)QM^Kcj}TNQqiKJ#Dk1rk2airlgJuh<%C+|Sf_l?}iy@gw=9vhQ3~~_>QU##m zS|_W=*Sq35bpCRtP>al=7=otZsx!%dX2U~X_QB`W`2*(^8);}x5mGp*7+!n^F`a)@ zLeW>^)s6%4Xvd0FwHvQW+2Y4Wz6zD?0fZ<`MPzk|eV0U!V=Tt79{K5QlY*r+MtR+C zRib;3seBbWYji^-#zOgmm%(d2a;l7JRjDZ&$`Px^tCF<%A(^j2Uy~`WB6-D@Jn(c) zgzjs4{6o%u%Fd5#@{Rorjmp%Ih|){;a(1`OAF`noJ@H;Pv%z#zE>(@^W6kVMrTVBI z3qt%)XS2x8(t=ajIpEQv)E^zUx)k|d=oHG>oaD|UnSCXwW@;+)#mZKyOY4_t3IZSw zGEkTo5kJyv{G%Vp90f^q2Z4 z_-3HiKiQ@CcIjukba9*Kc%8J>ZP*2ry_=GjV`lOC8>vt5Jgk2H^Xbdumq%}3og9lS zw5C}$S=#;Gd*yE((0h~RczHL<3G@$przf6BDQal};RI^cwjH9M&uk)pozI9w1{5O^ zl-=89_q;4b9{9XEaiEbP4HH(UumW8e22jJ1A8bU>_s8?gNxmnD!-kgf&eNok`0`5k z2@JbZP0%lXGSq;VDOSZZ4Si^5`4R_E^M-VaD_2dSCzCAmN?uadEgB~I_1Wb)P|-~% zb*Uf#TX0v?#ZJ1izaw>jOrKefG^cBmQ(v#Q-dI@gsgudthQ4i45aBGWgm7rSh!xc` z7X--I$$R0uC!$K(11e>?4}E)N6&eIn80wtg#ZByt-$g6QW~UpsP~utfbj=lW^#bDA zd|4@Lvb-%%GgQlooUc~yKuSG~hvV(Q%w2olvb!XI7qeB=Re?o+PRI1w)G}KUryhIb zB8iz5a^Rw;ay=?Pg!Sgy)Mw$o|6J6U1K%X|*P(wncI5AfA*4(r0RlC?V*8>M3$^$= z8(rOv?{NCJifzBN-7@Tvj>Kblrz4LLx1mx&8y|;`Mn?|>dNb#HSybK~^yNLoZ)=T58JKP#I<931kr^+a&zs~Uc6T`Os<90Wr8rOFpJY2NY66f)(jP)ElR5uz^3W&a zkW0+3Uvw8u@yoW7UXNCL<2gN&^Y=ulW&=spZTz0JQm(F0V$%=1Aj?mkT;km*GWskj zr>8SiXzP}XnZJp1UD?9G4OzHubZXR$)kE@iN_2ao)yiApB(x+!(dk2dJiVILl5b?C zZ)`0iTKLW(Kx~;imxK)hEdh_0vJC<~f0$Wn)30MFW>e2noWANb1`F6ZEf|uVy<2$P zwDrw5)=>|s$)M^4RqZS=zb7q_<9ot8$cf?jS8-)oV{F0#EMF2R`VW_c0}~m9So~@8 zE;|tk`c)Lgs!D=2m+{vg3c((JPvs(?YcEtWvQ8C6<5YE??4mgmo+6@QXrhRcf0F4U z`>il(Sk2Yd2y1K^Z(X$A+G|a*3hLwcpv_lMD}KkmViB{Qf?QS1{3u_5aec2|PZekQ zcaNiNbnx`=u4CM~fEkN~aF8(1>3WT-`M++V&7`Jt@`7UUdWCO5)(T!Qx9bf%BSFdh z-LmL>9TuHGltt%jv*`ShSY$S#2Gr=)8DtsFe>4jE8-F8B(Tk3GF^i@q(UJP%ofz!D#v@?USs+l!LMz!) z%~XIKLU5Bkh=XRl(mt=lz6>wh+py|K)UO^-LAUahItYws#*sXx$_fd$tQE&fR(Wlj zzjm9yZdE0fBmi_6BKGT+;+O_~kl@3nH7u)tN}eGe@ZatKY$e~yPOta!>%H~$v;6v* zzHTS~nKbHMchmwCtcetHO3$e0cCXP${(^P4lcxy#0RBQ3w2>|)1TB&RIcGo!_Rrvd z2k^i16j8!|n)ny~cHZQdxDWz%f12FOPxtcEeVTlhpFYb^pH(E9*Zt9th~bYdv)5ao z#*<0cvjsJGF!`}%qasl7x{h^8=|`sTCOJk@!?2b!`UGnJdN##tMH6v1+3q!)++Jq@ z`zBjn*E7)REo6QDGg2C5#Oe&wOMJ}DgU{3fr3YCciNO?-Zz^Bp%a6Hye{lJd91BS{ zr#y71iHIiiY&5=GxQh&`eIP`gb^2W8pgYQENBPA(OKxVPe6jK5L!E5!LcP>tEe`q3rF`CmW>o}%N7?>BBktmaFk>4~pM?Mc;JCwjVaBPXG z{3ONIDEVVgYyp)i2$L;IchhWs9~#abtk*MBy7>oS%1^p$9nE|KffA0GAnqhhes6NHT|7kLSDP+l@mOZTY*{$~3xb)P2mE9SBuw7GPi5FM+>I)G_1vsXWR<{NbgWWS<5<)Xx#*o zxr^hAJX_q&ncyicEuW=R*+Op}6__nAuYbN}`v5W}NMxSLe??Op4J0kkf`_c{MmZ|sBXX2uYghYv9a@~pK>V6VoM-rrWUk)9@Nk$O2+FmK6ac9Dtp$|HrKt0r_o9Gm z+pwf6u-lOie}*%m6y-s_{7e4Foz;k|GK|smDyZg(7tVAHtID}{ltu{Nvd3(SLa%ZE zH+{DCqqjlTPK5Ir8N*_-2|D~GY1exRUB)>8YLaOn6)r0M7q^R~_F|0p%Wg5V8HolD z3KPFd-viEe%f%$WQ^q4F&e2ZKm1u86!8J6`Q4tR-e>DDz&~_bn&$aE6TjDGE8jNT% zD6~lrI}8K{emfII7;1GOljf+~6+`GrR~`aa8E(-# z$*UY6q}JakOSiDpE^5v|x3%BW?&;*>zhJ1^AttKVXY|#bt5yqsTiz-_M)D6koHvnuH53MY(bm!$_@SoCM(|GSgC>5nyaAoYPMLZ{_7lQI9}ctwFykg z11j$VF z`&3q=ft-{9x(@@oUm4KnFd(u`IT&fCN@o@4i;?^I>X;U&LvsPkS!XP(iWUJ)>hHiF z?RvUgN81Nh&tF1n`d7!E#GmSI%?nTBhiz$A0#vsmh1@FZf&3seh`Z>@&+EaI*I+Gx zfB0=ZXd^RiEQllPIECnHz5Yc^{#p!{HyDB(W`Bg96JxuNvzhQlC`0KS4<~7F5wP;~ zW>y^jE}*Cus+gJ}fh0?l3z(tOM9)kR?{~?C`9ntyc*wy9p*n5?0-61IE-k!GcNa3L zv)rognMBX(liYQwhZFgkp+TxRPwI~7fAZ|^0xK}1*@-a^C73M8LFU#CbmK7h*)tpl zmL5+>`6qFF?>^tggP#}LHpV58kzW!K>+krC2+Qlh|BX|!9lrX)a3_o26Y z@%d*F7^&meF(;sY*+I6<*v=x5C1wOISGS9G zEnoxZajanc*_b6<0a#UQ7=Pjxe=+`4vx+Nm&^MDyo4HpWisqg+6=gc}htEUzh1oyX zTbP{PTrCn463;ts=u*M^n@vx;iYWLU`%|%;at|gLUrJvs z);G6la9Dv_<(6Csbl}cdpjydWv+BoOv#6jaeE?s)**iy38i~bAt;8E>?;#XAwli+~E00TFWf)y(Yo)kSsH9HiP z(a^p{767uo{01aAAj6Kw!u#M0V#E?&ZKv$H^_}VR-)Q=p(;6o!L+~WpTV(wh<%7^$ zORzC$c3~Mv=-sQG*!*1Vf4qY&ZVe{!|Jq8owzl#1d+JLpJKnY^R{^`1=7A;ko&w%{ zDeETuj=3`}V@Vl{vo1zA+scg_>&S$VI|-NRr^3eB1!IntjQ_au7TN(8+(f&8t2Otw z)A72_hT8PUriS=rO^`rPIgL9I#;!=K?-d-d`vhkD%VW(MT_4dOf3A>N$@i@rMXdW$ z_q6)H!fKOjy$Rk|I6e@zqRN3)YFc9L_kql#*6d2d_h<@IBn+rc>11P&ZhWiuZV?vaeQ`m{L|t2>E7|n!_(w)k}c$eHuTT#?k@h9es69k z-~UDfn&jtmfRN9hf7s2xi1ulce_G}kpz{51KV*yi$q##HhhG%Dhy3WLe82xK+%<;( ziGg9P#K+luGD>bpE7LnS_b|O~I^+D+LJdrXfnwF`)kai zKAv7q?x<&2eMrN*R%k+xi_`PG&x48BRv?UJd^Kv5$=dqE&1k@f4-xF`zCqz*W{ZMl9Sr=W@B4? zurf4U4w6VRkEa8U(G5JstZg3akp!DM8uI$qt>rg6pQ&nakedU>B5PcP^Alq>>K zzb~vIxS*0N-I!wUX471T!o~VH$W0&W_XqZY9qf^Mh{-aPRg@LG?y3Ufw5}=@wU60i zyFfO6MBN*Z3tSS51}EBug`%wOPjZ0>^(&Tvf6|8Gj>C0QU#Ez;krfqQ4oyHp&l!O^lJoc$hOwe&xUc%wKkt zrdclSyD2`vK>dlSktU-%!c)!vy0D(ftQ+5;ft3FR#xOxuAmo<^b!V5CchK-YO)l=1 ze_&S#oiZOU-lGXa7M@z(^~DCym;h}=qHEQ<$ggJZFzM||3VI*a6N?GmhPV$R^c#)X zR&Tmf4NPhX-Qjp4-v)sd95i1>FGwo5Hp^jq_Bh>Xz)pXUHN0kce67bCU&|ez*>2Tg z!{u(zz`PJox*Y;L_G z6|yC_k67zw1^}fAtanR`>lvLG0|^&-ow2;-v3v~8$FQ~goIQZ)68>J4*Yx%~ZGuMQ ztE(K}P6v|#FVBq<;ar5x11@`@!wN7`s@fNXV`!vo@RKR53?LR~=oY=WH?OQ;>lfqo zu3WCRf}bZZaqgTve}7&t?noJ;=QFUWA{}{Fo_s$Zw=2xl!VbxN65AMH7u)k{LrDl| zMXV|gKZf9Xq|k=%7iLnYDCkuzUxk)q0h2u`_QfN*7A~&J!py{pqtb~MBPa~!B2ICU z5Swp70+>V}r;cT;*;R=nqHnZLEAm7etBcAE5Pc|Pv|>Nfe>PpQD>4)-_7L>wXvxMN zuPXE?Exn3;h77=UdZmL4)#sjg^un_Ql`~>_J*QixWQA#8htavpt0>mR)5C+~^E2+M zq~D)DJzL(r&yw0fHl5yYKYg0Kxh4UlYo7}k*X6a+lZP4JP(QezW;f$Yy#77EyOERN z&1^0fxf$pUe{`qNEFzd>DdPKLlcia9g3eiiscE#hrj?4``yRnurlrU9fXgYmt>inf zviZ4%0rvIuX{X;yK8)u}vP|;q=IPTEn=i#Z!Wcecse1?O+07jg;gd2!H335lZEgv%_OVU>-D<0WU%`6HWzPj+~y-O5<%6`E_ zI|jM;lIH0(=`Eg+>vI9iDGXqd)SP8_n=(teqvE*MU%+?T6b9lS^jVP8;g-z0EiMmF z@1C%iA|L{fF?W+^%{aEof4(BNs@Wr8+l;6UVT~6m4N;|%%3yn!wH1bdQF*X-mr*fS z)gG=Y9)y?TAObW2kCzuA0!aZemti3S6*+FB5+T&_i$eu{N2V$n%%Hjrm5MRQE?E)J znX2HY&!aYnV6#yT!-^DaZk~kAYBX$Bq+x6GG;Dd7uOR|1e|}L_`Nj6Knkr9$#IU4# zUB;LzgsY=em!IfHKxOo-Ru-x(<+VB&6o-D}sXmWV=?$;5>1d)8kh7Bs=}(PB4`e2D zI(}S$@|s;;iJWRz@|9$E-cc8TC=kE|XJ#sEoC*uDLpkZh%sF8+srGFTBGSq#pWfYE zaaq@8Dp3E*Z?3*Qd<}Z|;P~v--Z@N()18y)+4W2k zsQ&iw0|+>NupQ3=wDOY!Y~wx`Y*S2XORj~A=i;>YEW>i>J2E&Uuc^j1-*_FDt zBLu)?;&3nMR7SBff^4nPnZyv+f02kf7|OzgJscoP)C28G%ZqBEk(el4@l%Hph>V|j zv$4*L6c|mxf7$kB+1eJe;-Kr$E43Rth1|2#e`cV4XNXheZup(z(1w=JfXIHztq|B6 zsOuQsNlT16)}c|LyyAPoR9(Rm&jdH>UHqqk|2i*Gh;>OX$jNaqvZHR~@!5l8Hma_W z7qi(UhgHQEF4}bgI4MK%6-5G!Eh}C$O3mrWS}wezsOVdN+lOsdMen@r#o^i6-jP_W zfB2coOLgppGPIR!?~t(991Azr`uX#s=1vMwM;OAaezd5WRpr9gDw~uG3v$ir$dU`M zD5~?UzqwpE70cwprM?sVvYxn<0o}Y5tsCXEu8?eAd03EZPDeo@@s)?W^jUw0gruVK za4EVOsd%6m{2no9w5yV0XP}HR4z(?7f9l3E|9-BykQk$bqzZRrn05Jbd^MJ+kJTX^ z2$dR?cp_`bdRASLQpAD@81@XGyW0_Lg4fzV`u35&r3RbCcNqoZK(9I|2V-V)MkkzR zIEpNHM!{#PMzweox5BK^_|^hL2+kg>xX?a~6nyK03QaN7;5)i_9PxMX4&{R}msKSK z5&=t>Xe9z638#tq;FUW9>QR@HB?2P`KR^NmfJc|RB?2S{A0QeA$fK9#B?2q~RhJSb z0x$wtn3qH*0xW;ay&rx$JV7l)tQ{J>ov^4V4DDk4Ci;(6uV>-yi6&d%A=gw`*_tbIV=i!9uwI_+C5tg$n9t+|ba9&< z){^OROm}}H<*}cNiaEwxh~q_anJq9&89qLkf5;Z-NK^;K)(vrfEglCW^PSN}ufvtr zc#2DSB4QWz&iBOM@nze@G1Np=d$s;ee*9vuDe?~3+3aq9nIG(*sh3)?F5WYhpNbo( zXTh9C_}OdtCeLnXQ(asBiO%s6{5`%B+2THm&lG>j6ais%YCio7fRf9y1R~yX(X=>c z?nXKP@tsAIIKP7sv1D>sO)RU`4o0X@h1#|~Ec#dsOpXbE#Yh**jvnrHI|As8#BVoA z-lEK4>`(nXzq!TdG#3<Kq!%SM zK?Uc$f)WM76s(E}Qm;S3el4G?AiQcZw5dg4+4r+&iYMV%B4ZXvUPl+uQc>rsj%uD` zjHr0brr4+DD>IezS1m;WDpMX@`}tMXN?&O+GHRtQ=52(tOJpo|dZon0HcU5ZvEP5@ z-fweX*5#UXesF}-*wuq6rVjdZr{21ve8ggq!QHurQb_{JG#HlwS+`gUY|q^9 zA_roE(97X=!_@2kiz7VVW9jmN_9}uTo@=inKH@d^N<#A`h#e+m$fg)L2-0y~2lX&* z)m-H3pHuJCC!%I?#LTm_IrFQ?ZD#!C>$j735mq_GEtOWr`k?k!YhB+uV385hFxXY zcem~#GQ5j!-mTh|w)<8KHb+ogX@LnnYnkAdoqVmxG_zrMDO4>8%=|>Q@!}`+Mp*fl zUbdZ%eC+IPx$~Tp+K+}5faeLcz=w7ivCTR|_nI&Om=D?U=Z zaVn4*&A>cBEOW#FZ@quq%;tGLIY2u^#sJfk%a1vk=uA|-I6?19mCPwMJ64}fftk_e z`L+HL=0)Vs!U^)=>0$fKd_yigA1n`@eLiKI)vi33h<^+vsNL= zJb=f#eJo-_==!tTOD3?Z+5g+|%OlIMr;_I~0{-%Djv0pK1#5r%X0?bULzGqYkj%7C z5emA)0?ZanOx3i3z)OGn;GL{ zXH)SM3MHAgz$D*2`)hLIgE#lu4fX4ZMNmvy;55Px%`W4Cdml5WtL=X(?0}MlgXQzW zempPX4`qj{iHLt}QAgE7DQ1LR_(Tz8QNvY);eW48nickQyr1Zf&X6&*tFzVY1NU|w zi0b=0uj%T0yh!is?DHa^*4^vj&p-Tr&s&azYe#4))|8YnNN%|)3HZwr%mQ1%!Vj?! ze*&fiV}_gvySvUD4vxcV=c^ccku==0OgCwD04w3Y&+dPA{$sl31MyyBErnZ9C=Tfr z;iIRNOewE)U|H5~D=@;4SyugWYb936rUiT|Tpl=^_!7PdGc3ZgqAp@3zc;&*nibd) z-}Yka2N)q3@l|EG^nu}`XM*k3TKY*GBZg9#!`F~i03M#^CW?QZIx z=Po#{#It|ImaSwn^1lPpSG1EWnZuE8QhYL(@2Dyt;rpi#!r5N__~)y=^V5@`{?EzF z!`Q>0;tzWH^Hqj9*`Js;kMi25zPKCj5FcThWRNyHE`Lyn%hscpM|kKM4YL~<(&7kutzHd2va ztggOtywXcAnt0}UN14OJd6N-nbYuE8ozZPiALku|GyXh{(%>u?ZwV72FlQiw-#bo3 z?S#te)!>}n!amc2Be}Z30`(l|-f^lQn4IGIov2i?kG;uqyu2Ibx|>XXs03c}unj!S zrkTuWKfA+!Tw@@P`9!_qVESD7)gHyuH|lXIF%m%uLq7X~>xJ^A^Sm)$P{B7goVzr51| zCE*_IpW$|7@kD6^3HteDHk<2j*axW9e8Cijm8@@0f-QSs2vq88KOf_Gt=_JIK1chNPu-OC273+XD zUf;>Jfi6)n;kn3{A9Gm0+L-MYm)c%KCDdK$#TcIszeiCQBT{X8vdIwsYlg&t?zp4Gddp*bzw zxw#u2xzkEdvR#KFZaqbqU6*z-0!4rBmM2$e_PsCS668# zN0@+{Wc&*`Dw?f^Oed*3I=jt2PHlRez1n;8(j=*j(jt1Z7$=LHZlFdx*KxksmdANw zIY6xz)Z&3vrbw**p;w@Y5K}L;3X0BzonpLnarG}jZMFd|;xe4}d#LV+$CpDwiFsS~ zb=mws$%a~0E>zF871qm$m{e*S7MVv};B@4*5U1jmgOTa2qkTjApQ~>SqO+T9@oS2K zgQwg}WF003eW=i8k7htYtMi!= zJh}ApVmd@MA2e0ef7vAYP zyDsb!RC!7g3lL)Sgl-jyfz_hxTUxY^ZO8jj#!|q9DjY2{?cCv>T*!A$+6Solkq=)? z`dZDJZ?!E_K!&1O?h+rTdWeLnU-LeUxp4EL7#R&nb|89xowM=008vX_1V`ZOjFmLT z>iS|GZBeKz98ID1g!r{sKZI$e+UkR6zMe`Smz>giJ}-@rQ@B(2j?D^aEqHwG{A}j` znrcJwTm(F9dmqP&io{0AQ6UbVG4-*6@>o@MtgbjL=9$k-VK}7nhk150 zd!L`?qgrLf;!@9L#>?5q~Y`C6IHb0W72DO?FQx>IYHsfK6m+!5O`O(>1<)pC&MC#RXM+XJZhQ9t*Jt z65CLD3Z;&d`IdxU0LyP~XY*`+Pkwz0;fN!DrZ<&tk-f9DA0LX+;JJP~h%;4$E4>YD zdKp7c-Xt)(^TXu)$3t;g@TZc_4uxx@hR|EgFX%V||A>e9=Z%M`;M`O1BgiEdXmc(} z^D3WzU&8hWqjk_EF%+97x2CA3j?2VhS#w)nhw%jt!^g&>d@hELcVU?b*5f#72m1*U zm+sLcKH1IePOL!sfd(h0$RiVRM@g=rnbeC8*;aDOm}rt(Ar;g3c>H4$1Jr#;tB_H< zg%~(60*LHJaV+p3t$U0jj{K-e;bF?-9;3v6kKv-T$M`;@XxG?+p&h_m@%nl>2+>zx zN-K8SaRW?BPKiH?gw~`Vp+?_T5Hs$n5dED%xy1;#XS;fUEfH*0an0M^%8p4uQT^^Z zNbKNOD&8N@FDI~2ZeU}PhRlA?83FTURDzfc4kJ;~Rnth#k;pE9=Z^e;g>xBeB-;jm zH3#xpPCeEfWMQ5)d`E&9mNsB49=nrphd$VjCFktd24wkUd=EDksn~6Og`z;u?3^uU zw=Byi{PV0RuzTx<(W|HZrdNUvuK2Kb*~pUK%G?(i^>8?2=)bRZ_&J1DMDQg^WSH8WKaXa zuEy`~#Hpr?SIs4KZT=Mx>6EIS&wd2USt0~OJe7zVaN4>C=@Zoe$|*^6y$trtJcH$8 zsm2?HKNa<013Ct=oZLtIGLhqqxS4pDT7Z*(Cb)cW?2_DKs}b5GI>r%4rXI$^vy(p& zKP>vb2Qk6US(qYVs6!O_@iYG8tC;=M!-M1VGp;h|_oq(}?v|I=Z-2<9~dx; z?Wa#+OG9r+k$fzGpqJMwz3^f74)olC&;(d1`HQSrnTs~b0COBRhqM1T4L9TEX zH?+8$;QmB<8S#}fz7O;CrNG?)SX`HnI06=bPwp_$Y$|RrX>2gOgI;C38qXJ){CP2c zHGx_K~o@OepT*hOVn?t?=&do|y6> zn~d>Ixl|o-F3>uJ$#$9FYS--1{_$V-_g*E7%lR0-0?-MD2?D7;0x|JDap9DGadL8h zCU;B489oT=E=(%?+(>9~_&F|sF5g)2 zxhdj-%OL1am|llJ*+a>y4l4R5WOR$)_l|k7d0o;`455DHyq5|?Ry@nC{&aYVP8=i^ zkF-(gx?ltYruKM^V7P!6*dGYHW&{m?g2-jpbeW%_g1)&20r^{X`%$#NZZUzb$f5*+U_!UKfo~5J7F(R-1 z2rmgY9y|0ZX`f0a1>UNoV!3aGEr(i&=Fq)=xRf=K zk2F%!8+^+{BzRE|d~92YN_j+7NIpF*$VyRaT2N1Uz*45Mu!0_#;~?;8p|^&nMC?X2 zgj6H;c+s+k54(Kc(k2htT{Ae)g<;Cw!tZV34R}$bZiE{3wEq>`6M^k}pJs0Wy} z^}Ec>$*)7pbd6ZyM2Z1V1T2z&MzCT`8o~Z#Nh8d#c#a4)8W~F-7?D>J8I|6r9M&QY zd72vM#5=d(G+Y0d1pBb=W^ zZso6)aA5N@rcu%55R8(-WmmMC$*&}3sHx;!{}UT~^qQ`?9q%k3oHA5@L97By!Z7!OT`Z!O+creW-LUmywP4-t227(;AuHU-{m&JwB5pG^5#+SP zS6i#B%T&gwpUh=%xp&RX4L5NfCP*QiizfM&c0CN z$l5;hi%5Y(kid1HfP21@4OXPic^s`VopxZ;e3)Hc%fu4qs8;rWYsq%PGkaa>Q(!k4 z1>eob zpPaBn6-8^r%Xdeh}f%!Ht&jC5fAxb+2n{L6Lpw1pyYK`vs8iUG`3fmN`pAF+3PT zb>yj2QH3xMoVP35%dax|007J{mn_|*BeS$)J)WvXN*>L9t%y_z&&;zJvh7)UiN-K2`zXjD)2Lzx37-r1i7XC4M!pH(>g{@&LgS z@ZY;!9C%5rW4mjzJ0g82HtFh0ocTVU{{)kVg%fCb>G2B0$0QOEGs2MBZxp)Ze1|DfCa-~tsQZd}>xcHuRmP}mf@D$s170&RBD(z5WcQzU4eA_o^m zfX+bAUS1n;H#exW&FJM9yBfu{St!7MJ0^Mx5?XHpSS`|P2>_jD48t{(ty3N(q$AES zpl}Os-G`xtGyUNYhIhTs?lCNrf2?XcJIX168>~yhHoD00%?^8uL!HVsQ_otnh}L7h zou3?>>?C8|mpHHx!C5L0wv|xGXat6O!(gm$NSTIWu?ep)7-JkMxldwDQ0DP$VeO-X zyJ1SDU>irz=d&Br5korCoiU_&hjsa1*PFMhv}}n4b{w?1x=u+4i={}ffAr@+s9Suh zTl!n=X7x_ip<6NP_8i7dtL&zDz^6Gm&1;@23r~dVD&GB6VI8-d6qq3^<tyhcsj~Ixwj^osSRw~e{b$=^x_j)v2( zg^F-^9RMzVN;aRnAtS)ua-zj~HexT+mMSFMekTc%noe|^)YVs+=Ddt$Ak+G`m{K}HLDDf^Nop@ujl0Y(-UJ<;A zF14>_*giyS%*97%@|SIPbi>lYnp_A4v4iAres%KG@xILICr`_Ha1RR~6l?RV*<^gF z-PNKsQt$e994vOOP9(;ew}?7&+g_JA(+Vn72z^g z@q!@K7(j!oE#-;BtRW*6y(V2`Pm_b$^qXa}%s!1_on7EjOa{r6i)J#mPl}e@{y-rcn`rG++me@VR=8 zWvh&(`+Gm{@16a87GP^B={LmfGC`0}Cu>eAf?Q^Im)YVD<3PoQ9xEtArNO{k9VRsC z_=*CwK4#M;7YrSkr}{{#np&~%WX?{CCv?eBm%e(8vlB9x%1|(5I6G9HE9g981*P1i z_oV_g7CKT+yT@>28$W zEi?W1-)0wg_}rrTFwYj#*(jUugI<$iTh{ki+2Z>B?8D;yJuADvS(rZl1|5tS2IPzE z{{8IsZ!kF)u(vdQzra-H*<^a3zn+Z@v=_6_qnUyBe=?g~@)5k8eVE~EEaQ9D z-jDw_o4mg^{hrOB;ofM%MsYTKmrW;k@63n0_t!wdAF_)(3=1^KonOG}zZn07Fs26P z>+JJ56MxgUcG(nrdH8zoVDBGrf(gX`Nv7A!d;;7yB6zu<&F5?;?a%Z4^4iRz`3!b9 zKLH9_e-L!UBWG(M=rNH|kIDZ|4t_r0|1rVq!Y|cgu8$67*rQ92>fw)pctDH@bOA;p z1KnyOLXbyo;q?yura}_@PcMny>hl*fI5%|A!->bPn?qEu+E)zjlY1d-F~7qXD5Pu4 zT9zdmnj(89ph)>VUb1LK6QUOx89OF+Yj`1hf4b9+$LyJt2eOp4prpa>^~1QuVSZwR zYeYx=D%xT+o&184bc%S+TTW)kI+jj($k5dO0Zk*kWi8L2fO`Labn=psZ%b9#(tXs) zC%4dTx5d?XIuBtt^XcRMY%-hI-+;xIZ|^*x!1|#a1&F@@bb2=hLk|bR|7Ihx`xV6t ze=9nWk4cvQVgvuRV2H9q^7R#>R6f$veB_MN4TVGPh-z2*+|(y|=S+TOd_xn4L0@gS(V9O zC+H-$hbG4ezMtX+Z^T->$;i8nPrElte=DEEF3bgOHr%e3s&q-%t}CK28)?#lf9s8| z0vo-~8(H+Z!(ZNtnBYsL-#rn}b^TQVP&l$k)__&C!ipNQ$gI`f{v#o@%yK6_8&j|@ zq8#uQ1Cx#r;~g+vEk!X<_7A1k)nz}u9B*Rblr*Z@IGVf7HtIayT*Rf@&BDRyf41Z( zJILlDNgMO;hg$q*_x8oty1{6(HK^i9uA2L6EyS8&I=Qhm3fvL6AAixE{3^-F$%590 zu3)l~6ssl`#1JwGQXcVANqNN-nCrAhR2_G{?eZ&+d&3`jof&iS3DqqFY5Y(H&qEHFlmP+3j|(WctC3ZbsiH-IXJ z^*|5I{?zJSr} zBc@XlE-z`Rh{wf8>hK#wLk0W(gxBQfI@#|B#b2cYya(c2^~M!x0GP&F8stmua%iHZ zH(rX|_)F4_lC_fg?1B9@9@`WTCra$M6u0E#k6Y&HMDP7dLSJ7(e|89}9WH4yy354{ zQq83gBK&dUCC0#$^d4=F)WPC*I2^eOIph16H5d{N!U?MLVzxX) z;%_Ip3^3cMOz$n100fx#rz9%473dsZ@hTHJBH|Ge#|Zo|d01B#Vqr^;-4(!jeSFu$ zb$ttt*=Pl;QBb@oev&`k>oyc3Oje`pecQ`1-8ZYxe5mTesipf2Cho#Lh1**1Fl~HB`lc zYTfM)x^>aE+3DDg+pKYW(CF1gt+s009`;)DTWio8*o`}^aktg+d+rPh@b0qKo&KO* z*BC0id+mlIMR(A)TlZ|l1EX&AqNDEH1P5g=ewv2ht;n#=Z?+rU<*5B3)ZXz0|7Mpk zxTe4|tie`nf5;M5LmaWMA$PrIzuW6;a%t{&yX|IMeeTBO4y3a=Xe$1-OzRFZMt&W} z1P@v_8o|Dst%2fyFD7}=bF1Ajje5go$H+oN;Gj{z73vaj>BZy>Y1D6Nf#fu51o2!? zR2;taI-Qmwq3N?Rj8N9$%%IcNbED4&+HJMmW^Jn(f3QThYVu}-PM9SwQ`)^|eJFo; z`)<6w#h-So6Cic3I~<0^(P7n~Wrp43?K@h}wB7c7yS*MiYu*|5qEsK)G8t^%jblIL zOz(EP0qS>K-N=MMp=nrBGth_*IDkPTJUI}6Eq2Wi{XlB;xIFo3wrsf#2|%~mkCUKj zDTPiWe+-~gfI-K_z}HDIb6Q~ zU-JV*ljkuM)eG1GqN=tHaZ>OXdd=~F%1ng zX0Hzi16X5SzITS*L9}&;w{8ab*ck$YjLjW2*oXZgw?DMWT`=w*Z`~V)sMY}EpcP!- zf4IetG!OLM1T!)??hVXQ>=U+S0X~D36dtd`>3)CE^S3ClT^mHG?ecoq@!NwnGU!Ek z?Q(lKWOh80G-GFY%W>Bpf7fd-#vg9~wWhC#5nf~Nf+f;2G&OqH5wFPH?KXS;&d@V2 zU`{pqz5NID-5r*1d7yQ>e;4Yz*KNmIcX{hxtL<5r%^_@lVy%0;^)N^^ zFwA1(?%OmE^$j$CtSuDu*%*fT%$MEh+=USj1`Tg7f+H^2f?2#CG+UlAj`WUgZyj#; z8|^Uu?Ku8jd;ERRlBV(Z!)DZ1n!75Ve;t2C8%)c<1{F45F{bccal6}S`(|Dne>V7f z>bGNa7a9+GzF7*5+wGXEgl$V;=JrB}_gj21kNGXy=*tTAJ&d|(dYowJQS+Pu%|UO_ zH{Q3%+$EBS`er2GuxSik!fq|Z<#u}*M%dwVuixtj`P}S9_rYze{jkBC^}Er%XU9Uj z-3)X)XoGf-t=3(uebcva=q#3wUPJsR5f7%Q85*_y9$|@$ z_t>=M2X+q5>;OTE$igO+5s1yu6M{jf8Ktiyz1@L-_ySl)$Lq*%r)f40dcYu0TA4IG zyPZpLr_~y`;tv~sV?DNul+ns#cjj;*U3*L+>yh>P1xmVQD-zE$f7|P|iU!8XI&AoK z8T6U6zwfy+I9Uh7f#)_GfSp$$6J2-cE?02qrDT0%C6D)-*YaV)zGdL~w#e4iuC0Dd z!?%Xr=5XjA-FJ+;tkEp+VZtWb_bc_7CT+UjdhXTgG`lS~VgdAU9PzF-?2g}czdP(1 zk6dfB`Uv{$w)|iNe>!@PVC)dP-R*m#|E!PEArWG`Vx7ZQd)h=rJZt;r*@0IcJP7=X#=Z!uvl>o!{vZyMX64!Z4NYp_IPt=qgc zOaX5{4}A~&{c=yl0M`0Y>t44J+2!&*DvUeacefSndlT+}e?hC)9+3h6=zlsA7(e8$r+->zb6^_irumkwh_=Ej_rD@|N%UEOjbYSlH zd;Zw^z3B0Bi#6^K8VxpShS8&|HfuD5&AczTVA`6m(QO5^?gS27TcB4f9Gi8(B4L2VdAe5b^-@ zZua8sI~M*uBO-mY-NJ-+7zM))Xg3)4@b^9Mvh&caG2_5I1?0V>r*5OwGOKvh0|)zO zXzqDr!3Jy^4@-2xg4Ss6`K>!9=CwPF%{^#6G}9fAf3XI!MqR7RPRkQO3}%TAx5rxd zdM$s-bz22}_gQNgS)lJ`-<(kl9Az=!jOqoZJFG=6vq7iXk8y#ACAC|q zfjrDRop|dmZ`~RAv0@m~)QwFw7HQUQ0&KtUZoAuz*f4#UVC*Lku)UkcjUz7)6K^bBf7}UV(e%m+5e+TV$+mO4!GluP(zEOc(?8W=<+T-`n zK>`0pbFSHfNykit*lONucKZJE2Cdtz z*aou0TQ`QG)}VJI$0c0n_8P5WAm|Yn=2+i7POMHRG;WZ~$c~IJ>qzQg-`!?#!f#?} ze+7*FGeqh$rethRL;Enbd(B344{P(f;p=wfbtArqwYc3j$1xq&z7;#tw)u_Y?^(lc zg@xp6%~Y1zaUG{?f6(juuCz|G*JT%`qE6R7ENtFYtxmJkZAW$|+zHqp49#JziTrFd z2eB<3_W|~Ypqo9!+rwdWL&!aVuwOSuf7Q_RjpwG3);*hO{^d9zTCWk@3~s_@i+#3z zYJqJTyItn8s@L+)!=Zhb872j%9YAl4y!6^z+qI&|PiQ~zeB{u)9}5z;8HU66J=Qq< zPGtZ6l_nt1qPmXXw$lqm)wKq&^2MScTUP6iAHNB$VIyqzw=ush7^Q9hQWs1Pe-`~2 z_uF>J3*oyHn=K=#o!AWQb?}_p+k!*uwuxIE#AYD0hHY8E6^hY>5zPBG&4ZZZ?au(_ zoA4P!pFKZ%6Z>ozoKa%4ZcsdW?FfS%77y6HJ?68L4U(x8qn1s5HAUc zHV58Sq?Xkz;2^{CbtAhMkD-A%0u1dBBZ|~zX)hGmjUm1f`Z`RF4m-B{e{ux-51MY2 zrjM-mL^k(z+;Xt@Y5S{gyV)DI29Y(Jd25ECGJTR_)ORbghvL4PVGnPb`+X0F?Py>I zAlzvB3w^uU2m2_Zrn~lVeHo(RKH4Qr=(82Lat(d<3aopePP^CklqAyDI1&nux1fEC z1wOO({h0g4C3L69nt@#zf45F-3b*{@EgEe*-2Q9L66cA7b?$Y+TG{bk4Xx&I(2ax( z@Y_DUR&N+=-5z#JU1Hr{r`_^m9IC=PG1BachChTxaU1HF>(ep1$K z8|~=D$pMI3;NYR%?6w9mGn#A7{;<&utr79oJ>EJb2hcix?Xqu^I<(NlNWGCYvD@-P z=&8?cE4sL~tPyvEeaML9A- zhYgU2kUkppJF#>lJ>I&@^2C6C?!=bOK5x`ujarTPN9Ibw&I;1#=jib%OVVqr?6x zlNta0Qss>yot&`zogrQI@9wRk@FNHgzLAvws+RML(8J#js_;;e`(l9UGogRohwcRD z<&(WuS@AsNSGCe}e3Lvx)6W{SpN_{fZdo%7U8rQw%7I1}r_ zCBV9m&zR?R_`gz2)We7BlOT}zS}YhcpJU*CA(tkiW(84jL8dMu4|`k49$g{ZB_@HF zg$f2&#%LF4>R_^2#>yuwouSj$62^)ga8(#fHLEbze*u}gh-`?l1hkm30+T9?HG?Z< ztOGQ4Fxe<$`D3K^@J&fEgIQX!3QRV&D=<0)It?MV8HO9cg-mByRbad`;4 zHY)_``B{e^;&Tc6Wm>8#ycbogFx~~4ddO^uSD7|9-AkH zZ3?LGf5lwZ35+VRS=Ft;XCG|pBeWS#E3k#E*7#K5wKdE#X8V9s52MYp+kG(Fp@v;t z!h9zeP8Aujn^X~nSSM)|*$oMX4ZT=C93-oVNq`ci(h}>&qs8OO4u4cULNrsQq71Rj zEUU9XPnI5Xi6+?Ix*>b2;e_6gl-396M5IL(rme$H-X+3}}t<}lW zDk4j3)6)<0TlloYuVs^rGGkPlS6H*sRI)*)E+U(nFbK3{ju0l5riC6{`Ao2ZrVb{X zWvs}(;Ei2;E@7?A+faqKqG}c9xEz5JF^PQS^X+}4}wp_ z2yRFM80ca#;J8(h1$XGB0uk&W4Pv-a(cm}!T=MX;V$rbf4OS2hUcZ89gu$m_mtj`| z6MrBLVz^n+(3i?Q;^>kRu`t)tstARyT}31Upwkdy8xjW%xL6nrR#im79&o831c0Xj z%pT@AbKyn&Wj-=RZnDToW8Se4@J)@hK-|S$BA+1Qdzq-qn@E)eUDT~4<}TROM`%+b zF2I%uxWuQDc(Y-a3%3h6^)T8jyPZoh9)CHU@)GvDS8S??fzzgnI7GWi;|Om^JRI=F zV&dXiMO;GUC>5J%M?OIwMU3qG9#~{ZW|tKUkaKUOG+NQFUqN(Y9i%ZdA0Dk}11=O8 z2fNZ}#lY~(L?zaROMvyo1b@mY5Lr;e=(X0NKx|o!brGh(hL4)$JquT@$j`--Lx0`T zsGwA3)d~~B1DblsY({fRsD<*ckg1?2`3TEo-UFMu*gTxaB79pY!~EuUk}Y%bK~4er ztwjCFTE60Qq+ZsmqVPPBsgKP1O3of#v2s(GcxtU+aHZ%s-FArbu9e?bJYYF+MCA3*2a#XKolksK##J?BtZ~q#Cp)T9( zPqM`V$p;^{LKU~@#)rN}pzr9s%qO79*0{~}tl1wlJNi+U4Szx-9yDT) zAhN4n&+ySo)@Q%lk7bML^G106Ffh(O=G+T6A6U&hL6m!gMl@|N5_b@8)osS^)Uqdf zpnX5goL;*TV@}f&trq7_uN5V4lS>p(w9lUIHSK%R>^4mH-cOPyrTVcQ5(QeL-ZS3F9+D|2d+X0 z;XmN{d^dWd@EJWD$+~I};Q1(hSPK7Z6Qo-Wf(; zwtR*;a|6>KTD3c!Fey1JTOFi$pwsS=tjrb(-x?9DgolgI<{Ccwix>GBF zKTWMb`%NrzEn2}tQ>)R82%0ma34o#+O90zznuG`i31DG%;(vp=0a@)e8rn7~c+`{t zG+DA%HoaRqSwX=adYcAqhXld)D=dHrHO$p^!SGs@0GI?jMfL>jX28yG1ajQA%~P~R z^o_P}b%xOqbgPmegn+XU6bo>>9l_2#@K=y_2>`TU6$q0@TM7kfTrjU~BRD)*oGQ_G zfX{CQCO{kW+JD6m=vE~`DSbO7^o7+gxZty=Ukegz!0?74+aH&Fv*RmBHH)tj0e~QV zdz~l-9cy9f^+O7x-7#703Q}B28U#gT5D}5DWXkQ&^ZfF99Ye0)!KWHMsl%sG2KxQi zXwpS!-W>K>qpry&9L>xQjXI4`pRlhnd6T2* zB`VRE6rlM4WW?WobcZZKw$r@Nn-AHDJFI!%Jj)(Ur1PxbYYaokW1i{Q*qI&I@3)&F z=)GuE72bp3w66)+BukT)HSvbxmtkd z!$^upXOe@^26l*2W-Hip2q3T?5(beZ?9P-Y5`@?mBf$#x9Efxyuo|I4i0v|50{8n3 z-(aRmQ6=>{N@d5)ioP?eVi*3LSHoN&Ld!Mhf zBn}4nzLz&&!GLL+hgiGOB@uJlwtdL}z4*h}I-u9Zyom?Rd;LhRUCz`2D9f&I zqu_J5z1UkvT|V}9XcvZi;wbWLnH&sz{b2JpCgKev-{;Ny!+?c`&7;T)qFz4u#eGu7}IRx(Y+ada363O_srGITt%7FcWv#JxZ)*S*5!2tB_M+Bffdc9%- z514bPU4aB&Wu3r(D`h8?C*kF}31!89kj#V@wvoJqqR!t=Qy~777f0wz z$#oeKiC_h^AOz>82-T``J;ni-x=5@Z%7W25?wE?N!3Z3zFqXn0m0o*s0HzKWtA7Tt z#77i~y0Z~zRUc6-#?A$pI#{ebBD{hrPtf=f)whx>nCk4UL>N`QDpxQ)kg1Q%Lq$>n zEWU!NFewpBYjCAkFg>8Dht0!;(}oriPZy1tfCk4F6HytWW#R%%9V{LukQ`P-jo1jplt^GiF%{whOdTv9Aco{jNzj|Z2dP~w zB^e^MC#FOob;T+fB7LA~0HKFUriNH3oCcW^`Lst^CZYkbsgKda1l0i-k$+VWlbE=M z2N;vs09bE;tII8mkER_U`xSS2=ht8g-pod@RZ_dH1?`s(4$lww&yP=DCYKoK45OhD z(m%VqyXKGPcJlpi2l+Cm-O>}?jy5r0MC&wBG1uS!_5+aS36&{WYyMF4b3nDU`(%_~ zjitEi%_5&JX7fdoeSgTtlk8$5_v1g# zKIR|td79kM?vhKeAF{>!Xs0$(-UlF{!1;Ci* z$`NppqkllwOdb4aOdn_S_o55CP_$9~=91q3E>RYr?@6F;ZzuQ34bW?RJMkfKsrng^ z!(N2j0y%Dp<~+Zh&3~5`8OBRPZ6hNRa`Jk-xXUJKa&o&IU*a#P8L0j=IX*o*hdr`e zSonQayxyD!v3hg5A|T>i2ox1q)4#o)oLrFaOv#NFnu~i!Gk;W61)f@P^vlKFctRTf zEMI;hznj~29o6+B7ge61=>{21Vctb`gD!@}(jNfL#E6>UwFAt+}eo zk_qVgq_#x$vyEsv=md1Xwcxd43*OH!kI%_mI14O$(Ix7EtKd3Iqlc&VYL?0+*V(W}`UDENGDKY2Hw-QA{wB-vEbm}H=k#Mn1-T-X|BiTfFPeIg6B zyy$TVEWuQvUYTA-S>gC1l2B{>AxBOtxghf^o4(5v@;~R8dYE9Nvv(}wqC`cQPv0jJQQUt(Y z5<<;IsRRNdDTQqYoE+tIG{VG?vl}oume_(gCB+~mvtk{*_7NQ6#*LJZ8T0`Q{!A$C z%vd)lpnr6hz{!K-TOS298HIr+XA10Y@=r0Az?8qq5jrycd)m0jd79zr&^%wj%u&`A zO$ars!&B6Z0}$0SbFI-x08Hl>uun|qhwx8!w<-sP;&fR^h(834QZ6>@o$ciL1m`+v zZQ3C^ELmj}@Uw+zY)LayyiPsy`HXBrOiEi4s()TfpzW0!%z_3JlCf)2{J60)X7@Gf zY}i9jliNvlnOh|4#!2*f1wFh05-CYuokY5235n!_wi<~n+vj`fD$v-8uh|_8c%Hn- zFR!yHNc;}&axe4SW%9q1^L()cg8ZGoEt&HN6)JD%|^N-nlgm<+Qi4-Pw zg8!)VVgc=7|Lh$4TRb@!%T2nbgRm|T@|=EK(nj)nd$j5{z^W!3P6mhC!yenC$z?DIL;K{PA5C`!hfNo z8+5U$xgelD_FPaA8o@#7*bKW=I8xQvQWv8K2WjX&wiBIZgFL=Ww$!h>%o8&E1BbKY z`dVtqRW@1VqBp08^pO-*A-_jqg*T@~#pvrODkrytRRRBJrRR{&XOdvCz2v^4ijw=} zVg}-uO%qO=2Z)JJX8xCw6UIGRuz%|y;1AAnT&*`c31TC|(=uZHi39u>V&(Hz%^$3) zwd*3}50^RC)*CDV*vL?&tg}Cu$OgwLD(%{s_+vBat^BOat!=&F^}kaBO?GC8JpCS?2oeXiAuXRCVy;L8}F{22=HQv+&uN+E$}$sIG>1Wz)EDM7*LJiCFvf(kyLC z#uEis58A359JFygz<8x6OB2F!GFKk|^zP;&N5c#NR~;i&j*pXyVXRN84pw&V3^>C< z;#l1gN?*QmQosnnq`KtJihrsTR1W?aTUun{B2|?tH327y(j~h;i+J9G9SpU=mm5qW={T^HMQtv9_& zbb|;Gx28czN6?>#wPfpXKA+7~#51&=uh;8a36EDmdYoNe=j3m2B7YLp4hXtkON0*c zNp^oez7e~W5&ngEEpmW7qJ!6u*;q_saRLhxTn_;{&2NDS$N2c*2h6o68o(z2C%-Yc zcz9yL#GbCR+go6tXqJyA_Yc_sDT39^5K|Y)=;EUq8|v&DFkUSO>aNp`wLdaKA{(RK zb+-TG;la;89iGybN`LIIsP@W~#dCE`d&6-gCmt?WC; zi@gab7j!ggZ6_3`sv`Y0b~8}C6ged`N;>US|L4**5NPdGseh^4EZz<+4V0)zh(M8u zjR+J_v_z=Eo72!|X`$g)Ym7MGy%8QCr2a>gv)gPuU(`Y**-l0?)vczRV6*Tz*bVCP z9t~Q<`)8uw6Y(F8{LXo+#sGQwfr0&|6pvH%UpwQ);ivHej0*dEeLQ-be3x|P~bJ0u+jei0E&In9t<5#oA7$?!|{Icx=p<93^@v$qcPE$|ps5usf5YcY0-K3V( zit(y{N}dIKg@Wz>Y$f0Fdtzm zK-G=Z`=#r`1T8qm)9#Q`_#n#G1&z+$AY62BuM3n-A|LQb78>CBWMOp$3JxUTBEO$m z;R%+&z=mTo8DHIled$Qf*OVGE^&?`#{?NbbU&Oy!T?ZF>J&%AMv-jD33X|ev@-YX~ z@BPLt*(kkkYp1;>gu z|143)Ax3|J9eS57)ghdgP95}6=bc1E(vm$IPk&_NrR7G51O3YOQtmkvJ4`M+(!#2L z#e#xktpK=!!z~MUjd590*xgN#W@Go2s^tc zeorjS1fuwG*i^KSh|S(c9q$%PUF3u{gez2mvUqRGA#~?qT4@*M(BO! zqAvY!?8`y6%$Vmn>|D^kXSJ7hA=J%Tg{yw)g3E4#$Xi#J(PRQ3f4jR$!*TgAN5bA{ zgv%nKgQD|fD@~flW8gW5#Cl_{wG%bSJS^sp<(hD<)?iO`L`@y3?WBlSEUvx-1H%4n zd`u^{*G(`On&hMNnK&k=_&-yF%N^n@mgn81nTAXicC^9iyrn8}Iw$pd0P;3(@5^88 zDBlD0t9WdjhZ4l#f5y#oFE25~-~3aiHIYdhkBBvMI%gk9Zgv`Sn$l}Up5 zv3Revt@??1Hff~1r4$=)Tt1D$%1FJ0D{fhbCsQ>)5=m z2B4h3=sML0fUY;1*}c*ssxJ61^988Q#r5oNG7?_riyRh9f4VgwywNwf<}PNS<;A@e z)Z=tjWg%V4?uxa7=Ggq4-~4R%^;(5#>Q2w+v-x3mc}*--OnPQ45506+4OKY`~})ggP@ozNCEs(+e~YTI!w5#5j!LZ9CP#3Tj-!gDpYAq<<+x!s$=iz?LZ-P5*+CrBxEYJkKtlK;1`4 z_9AX{((Uj-Hzi43WabRdrvXKmlu%QS>r};J=_~{zobD901!g~}ftzeP&F3&I)LAfN zfMR$G6ujglgC<1$4^#ot<`XC8>mmmYIiB6k-Q+U5e5xa(^?M-(HU|gTzGqfalUl2b!kHtx~Sk7*5E72MoX;5Ee z{E=5_c5BrEBjXm0uMfEjt~|b?sJ_v&>)EB!e-yxkdH(<3fh7~X9nQOWBEW+Mq?w=v zO(sfWTsBg-NKmERC%uLezq$$;wIxEFq8I`lCj_U%mYiNC1)zf4WzyH+uow*6ek5BCksLDYG)D zWy)@mz#8pck;;WuUkb7o2Zz$!V2cG5+83`Qhs35pq&u+-c{*`iv=>4zvYcA3br8Q) zePvKyUDhlXGz1S8Tml4l2p&8TT!NF}?hXeH?(QzZgS)%CI|O%k?qR-}cjo?qDr$3z zqW9|6-D^MlWEUf#a(gQKZH&#o<*=HZYt@sAQ$Ca|I|gQWr2-@C4(k^3l8z$nxF@y5 zuQbgZ?NttCZ7Wqw(cY#HJZ@Ev{2mlNO3OVbQ+(K((kwMC2&;XvsUe+_g^W)rANWkn zQf~8qV7viu+(2-3OsC&SRA6zx%;3)nz)4w!1o;--yiw(&Y{Eu#!y6%@8i>rq3{4&iLWNjDRSQj z4(a5Edp=rS74EWQ(SMF?l+I-_kDkrfV5{9bQ249BVWU4V?%IxYVfnR83ajKZ$=^c3 zPAJu*3e2*;Qi*oM24bvs7UYAY-CSyx!6nWt*$uw5{jbu{sLy?@0VCrgnHu-SRYqs! zgNh4PvfotBGV?aP*pxSb2aLgY7_lLp(>&A-l_n#cyVS^6 zDIrBX9ee;skw53jxR9=;*{y|_d4-TV?94W>(&F{Kl%4uVGMwhm!LEE*`0rI;8K+xj zl-rNSlfoOULZzW=AHH(DQ)2)4|P>k;4w`YU;5c4Jt+9jHB_5k{It+#0lvgx3(dia z0Cju&{8^|6WCr!C7S*Q7_?9KlBo^z$NnR&bNH&M`5$9a4d^^Z;G6`Exs&oggk7m0i z6vl_?J~P(q^6(t2jm6tPjLbtuNnV4NgzbZL`P$MhfqU1g_y zW^_DfOCc*|ZAi;iFOeZ@o;~5+(Qy-^vSTATQ4eAmATkj(MAW>8cJ+Ft~fz6dHPDZ~ew zL502<$?>>Lh{rdFVgWukV)jG1moF2;r_>3iD#O>u zx=+pzN3$mfBF&}g92~V*6=^AKi+{}k?)x6w%xvlpArao&5h0?gM^4$i3x~Qx-3|)J zH=NGZnjZ9y7%W!5W*kNt<*?UaIG89t*(f(omrL`}-1lL^=2S^(kMX+qSlW zxTO7y&%8?E?L%eZBw<|Aguyvxe!1Ssg6H?@mhaP!H;@}jY_6K6JG1Z(@17=2(u3(& zR@e3G=T;vzI1Y9hC$E(ml>fTS9|}I`*SDl{q|aQWzS|rJIC8J{i%hjA;<+r}W`CQ_=ynjMy5 zxe(^8?(ut2E)vfg`AdD!cgPtux2erQC)t^1aAdZ93(=vv7n-`StxR&K<7DPIqOhJnouxL?@-}O7eIj4)eP4*LXpT`6 z&R4709^E#1bBaTlpP%sTgWl%q1c~~49c(Fulz%*sIIHb=j~6F}@TeaILy~V=YvO@^ zMCRD+o}w~1oL0_6Po`V>uD@cN05WsJBH(KUq)RxYBtQ`W$y!MtpiY2B@#REjjD<;1 z?B{TmrdZ0R{nh9;9)|PY8%A749dhVheFZ!FSnFSC1zI|M*-;GvKkk|yiy}=v zA0OU~@BnIzYO;dh(db=Up0l)+i){WZDOo1Z3y5OwdOK|Eo?jo24h&y!LO`Rm%HAse zc5c;FOqOfipJ4E>KwnByxA=#yF;e@F}a7O%7hq2!L`HgyE~AU0=^hjq`sI^`^B}*8ZDO-CS;7R ziDrr$Ci~;Ir83)eMibdbF&&H?&k-iPxg5=d;O)U;ToPZ^cHg(oZr^rTrd!Yo)F%A& zB;cGVVM+Nup6P8AtDS^8`s(CVG?x2U9i%8@@4xYL>9kugXg(o8svy~@{(_=UuuSs7 z@XvdopZT4vZEHC%lV&vM2>9XBOOobh89P^2Qd8M4oxYwTqQ&4XZ~jO#Vf~)fyeHi6 zn7p>p2sug0qd#PmCgTXvZ^YqQc@G%6AY^&aXCX#g)3y6p#_xm%2-@l3Ui`2t__3hh z41I;Ks5>obV}~~{zy$GC{M(a|DmknatA6nyP)?C8yRJ%1DCf@tUVO1IVtLcGUF_DX zxf)l*gix%O9t7Vq`_{ETpW7MLK99GO<`>^4+>PX;(K}eOAZk>zdSdSGDAK|*ZyF|< zNV3!}#LwPU>sxtkV?N*ZMaeG#ikk9Ek%3X55Mg(&nFZPWc%389}(DdeR&3tJZ@fYMYv_{+vr1>TykcKR@7J=#4 z<~_^{D@J^&syHB0-e6=FzxdImA>LZw7nTwBHzcQ;b!|`LuEme~GOBjY&Z#%!kjDP| zL1=*&Nm4~0%VP_5If=ve5Vf-6gUy3T-~kpYLFW$A_rVLTXc|P_miO>893lIvXvcR$ z)cdnP<}s0C-eE8Y!x1|rdXvb|MZB5tKFtZ**Zt&#A>OKJO>FVg2phecsaz{Rs-j?M zL8%Udx2RgYh5V;n+!g1gz}wH>Hg6qxapF#;WKeO0oUh@B=#jUdV6#i)zDxLS@VNpm za>v`l%iZSn8l!{D@bWov@5zKV8?E2Hp_uussD>wf!0`Avh@aLMYkBOa{mS}OUa=0O zovVq8NDl4|W`S1}-gP7QArh-oIcv(ugPkY0eksY0j^Lx|L z+FE4;$@^|{rL+7kpSj$x_n-Y40N@!oeC)rv+e^NfEaFf(`R0Kqj+$$z)vG4X3B_Y% z_NKGI{5$2E4fpo#uVCDzZ@&;&9KY-4>8LLD9LslhAQnkE;W%kf1*$62rw&kd3UQ6H zw=f)u$8XJfGqAor7aZjCTxRMBtX5k^j&)0Lba^4~Esu*3;vfyKLE`=&U#uGwGf_(mRsbv3o~dA>UP~&xEag0-U6!MyFEm4$1P4=r1ctt+JkUs=wY<&RI7(DcObVH zogw0#%}$(ycBguN6x1Xr1}$U}0)5I8_Gm@gp6wdaw_a2~d<)UKugV;L){W-NTijso00xJy)i1>0M;PpzRUEGq zuHWSBHH$Iz=CFIHtXPckmu|TsmcZ#_yD8FB3E`IZ>YmdqAq>57P$tFaL-QY=L)g$2JU?pR~SCSJgoeBPUi98`5jj&adD%k{Lm_Jz6-oc7)%HV2zUrc z@aqLF&5bemJv#o%9?BFr8wtxC32V=6mnAd7va`pMzmUf~pTx958(D+;m-zYbZ_;xb zBraw1+T~pA#dmd- zFi*O2=G3wN?#7;ATXO~+Uv6J073>WIc{eDP$pD?pZLPuA{d>Q|`|f-3*{OwulAD|8 z`KM0Du^hVe@5zmX->c(W?`*-|a6T;GybHXy;lADLKt1W+Hv&C~;+3|{| z=IRRn^LFjtY>~|Dq>XTkROtzjXa98sU_9!{G`vf)wRh)DeX4u3dpKI$+P<)x;UNF( zGg#*PRI;v(J@e-}`~YKe>MqG!g~O4n#=W6+IaBM3Z+5Ew>B)lo!8G1S@v6?ErM41~ zGDv4|ESoSGEzuS>_L5%hN-E*^fJAYe9JRFI=P$;wSbhdvN@bp(w(0?%`={RV;JvHm z>Dq_A^ig(#>hRGO9_)}m@!cq+;V&26XUW+&DyzqMpuAS4v9@zld%Rvgx(b)kwru4e z1)i*Uf4@(;^7lx5+#Jmg4k5ypd2+CEbC|m6N-j!Iw|#n;UjC`_F`Bn+2WLUTUM3_usz@A?~FX!U3#29m@V-0@c%7rGSlLCPo`pm z%kIQ4^UO8esy_z*%@w!+gV(+Q%{WS{7Oym!KPibBWoLhnYFBOJPcO#L4%G{; zhVr*L?R03=KLOL;35#x8FHii7_a@qE_x`r$r^YrnW0X7fuC`~%ocDkCU0VyVwZk|s z#9H}Oyi8hxZ$E@x?4b~zZ}c(*=dM2=m>a>>*8`0M)6UNBSAV~@QWUSxA^zaaQvIX( z@RQrrs~lKascO_Woge}hYd+F`c0Rl!%5|>(5U>n1HUkf7FBg~R&%HOu*u=p7eqL{O z`cmVE_Z>?ijVF@^Dp`*^qbilCFQyk6Ijiwwwuj&QW~T~_9XV2$mRIad9r&N( zI)}*P0ofMsxv}*^%3rmG<+pO~R_8K*E1oq=+?Zc>whtb|XNn*1Cc|ZBJ!P8ioux%v z&SMxZ4o_4#ZYJkf!_LiDwzhYVM~O!F-RbhG!Cyw+NUy(a+@8NX*gxLCDLN>6Ao@GD zcSYouwz5R`JY7Sivs_B(QyOSKeSD$h1rweJsLZJ}dQFMUz&+ewuiK7NI@-U5S;XJP}=5VEo{YdG*A4d zKIN&^q^luzgb3@N{cfeWFW*?V?nN%FK58LAiqpIvy~U#arO7=68@`$O2?_GW_BnhM zP|JK%9 zu>XZ9eyMSLxw=biZBctU+N`ZV6Nyn+;!`d8IDDmlVomYLL-(aOJagOTN!vGL_W3M| z!E4*~Ie01iesAC9p50M&WHx@hI*bEonSTm)3u2&j1Zuzy)t;+SDEBaXv9~jlPXwN& zuWIf@n)}?OIzKwBMiTGHO$3;Zvb~tOyO_eOOC8+XKX;2%FjG;7PWOkjzjE_zC4pLcvWDgg!(ryxNAQ)}CslmD zpIT8hTUA%%=ve1(&-PL7UXGKlYB-h9KJ**5d`O+GjUE-Vw6HwMD_IA&)ENG%AGWcp z*fk|c^OeY`x87Ndk}o0`PuCoCC=bNyrOxb}YrjX)=;3=&G~+faQNyA%aiB9EE|IWM zw?!_g-FWbWSu&Pek64%fZYIV#lC88Knf22uVHb0FY_wJA;k&tQ#{O;uuI=e+T)vdYq zMv)Zigg;dBKz`_}^Jcj0hvMc!*zn>iy?rk%`26HR`9_oK`} z1(1e35U1EUusgro&wDG(zmvEokF*myt5I9`^Ppr__t-<{ED??tK2iajUtd~5Nl(}< zeKZz1p@=jTxL)Tw9ek(Jown?r&PpKi7UMJa@?q#ZY#waFmir!i#*-Waa%Ew+)!2-r zamLyR%v)(%yxT=pxlHHm`Dsyh9puI3ayWbkwi1_4QQYcb{9~s)LKZey=}emtwj4L# zsxKAJoe9H)7xHS~j2hl3v5$7AnG>Gs3?|B{cbZ?^0(q#l!=L}8MPXh)+N6Z+m_&|D z+w@G#peMR?M*b{XVKfys-;Y#}lN=i>`8xite+q3ww`v$#wBhewSQr693_t_n8-3dc&rR7EW zn7$moeY4aBB$DJBTizK?@;AAc=VqRhYbIM;XZMFa8QDH_C1ItJd=^d9wrZV7FU6Mm z`FIAgo!V%7*enl{Wv=h$bOsdeAzLFw`Ib9-a{$xe?oGehIdXaF6u!nmg^U0yi)L+P z`v@UZ@H#%k=TWt&orZ<%>0W^QtTD2Lu$+Dzs;Md$7O9(gl%R4%Vtux##Crvr!0zoF zfByVuMKK?Nx$8Q{0sIm!E31ZgJ zh=2qMjF>$bly7T-YiMI1z2KNnJ-eQ3@ZbdPzWt5qS5fP(9#ba?EzxvXhZenHNR3)WX2&QI>MV0I{Dh9-`e=sY}Y z%?h2DXd|MR;Jx#xI$cT|3|>c22*M^3wmRVLZW@xoL|jHL{Y~Pd3zZOxP`D=_0&hg7 zm=40keItilVU;Nl13gdrd%a6Qnqh<>hRZ7uWr*c0n2+lW6Oi$BxnrW4-W=zap z%i{2omSXd;_%C;SCtV#i%75p-p)d6TqM`vX$@rLE?GDw1{Y^41PjLY!k6D?0ZMG6l z+0!6tt>)L__8C`poq5Z%G0M_raL>W9kQ!;S%cDle$VAzp@1$(PT)(eu2T3>>pyJudfjmydmOj|0!Uy zmQmIAZ3w=e&Q=Krt0F#B;OD_Ix)E3n21VfrtX2JW_GuEo&tCu>I3r;q^Bk_3U11b) zI(zDnv1~J6LiLllv24vZSqCLswBwy~A^4w4tm7nZe|V$uZj3rlrkpus`uoUI$8^B+ z4v6mlxw1guT~H!kS&0|FJXr0 z?szE_+O4up-0nJHPnjw&g=^XVVUMbvjPHS2dRzaalk6N=yg4#ZD0*v<{Rhi5rZ}Xh zW5wc&*KwZ>F&}>+r|hDo2BlFVH)HTp9SZKEO?=FRW4`n}Ju#21hQ)BPO8dJ;(qt$V zN@hSPGZFnOBOil@#|zF&OduVGu&)go`3Zyc)asj_B<>!Nx@jdwK<4yTr%|%gZaUFQ zT?P*MF)!6EhIJFDm{2@_#-OmrYK@h2&)4o zNjLymrEN^r%6;|)-2>GF=2GI;3z?r-X?w9b2@}IZJd)`smhtYT-&&Y=<2&jkBeBDV zSRZdoQ3pK#favY(|DAt92}1L{aoH4>aot}&ky%pJAi;2LlQ8BM4PdcPQvdz=%m?ki zkB0g*Jgfa2S<10HA3kbOivrwCUKqE$)p}xU=4^y0Xr4LKkQZpZV_cRoxMTLXsxx?_ zBY%Y9ac#RIx3crfEL3D56g-gi&o3>Bf2ZyT5l!~_VQgL_T1c* zA?B=G#Gl!|)5m0nKSzdd-Aq_3oACG#4rdRd^FIlV9)um}k41l`={F+LS1#Z$2L7mQMBhAJKme7h-pOh_~PAeTP-%mkwCZl_vuqenLhMH9z5^A1j#%t z)LrHmJ;|)`GS;8o@&`1=Y`cW-xJ=D8f2AAr-0W6;tNC>SoPaZK?K2Wn?>8WG&&T8Wg(^Pz-_4Wj=k zP64Mc`zzyL5M#fS`Bkqtmq&-9@xuBF0+YT1jpIHR;uM$gd(mUixGouidMLTUq z6}`oY(2k|7EyU;BjZ*XukKjY#i)e@I_$q(n;n2-Cm*05q^a3uW4+2=%`Ihu?sX5vRco@{syCM)C@O5F}Kt``kiA3-H=2jh!AIQA^^uI zgpFM(mzN{BQ*_PZF#_>6>`eA30k685UsB)_H^NLWoY_C0t6SQ*S= zigH=RW@Nt80JYyXS_d)H2#meA^L&T-h2+JY$*%m^KItEocvxw^rBZXkWz4AIo0?_j z5!4shLy3*m0tCr5**t5?&p+E!Fd*UlydNHNWEm@D8PTj1ZQeU&=JZtoc9KZPw9xUc zy29a*jR&ls4=gTGVG!(El(Fj_ zFcv%xT2HX4jkjC}zdfQ!a)T6~lo3{qpNl7%_c6*~=!Qk{Fo28S*hik{hNs13~_1ZX1~uQ;x4Sg^Lb{2&iYtvd-GCt@7UKh>z5D+CWljora;XBAToVOZ}t6 zRR?%@6|Q!;X2~)Z$Whg4zHytjM0~uWZ1odNkYXyOU`dfU&3%J2{4Ec$P9}Et{dE$Oi0tCmt74k_?#Gd@;UuDASgJpu&58C3g|axS$mwfD5~26N)%5ddW-H>>$A% zYQ7=~7dz2K4zUn9Av9K4#F8voXo;O6jBku(%AoX9#h;jabc>uT`szc8Uj6WwVE(m0*b6;AFVw{QQ4!dGmB;D zN_Rn_=}--`7=~CWn{0o|E}0#587(MboEjI$NZ|r3~g;N%GkGby{0!rCN_nsEkSP? z4EeqjicY!#T>_&t>yoS?|KZcXy57(>bdTFmk}5(W?9kv7rf^0e;mO?8_|OLnB!;j* z@|a=b7S8m0)*@?)+cllkA+}32f?o*gvIwGv$$SM19g+57E-L&Mw=YD5L|Y7~3tGf? z`!e%gYJo^;l6g1FY?s<>^G5aRK1R-1e;Qm9Z*->^HY5MQT75dtNz;WeQKLY5=AG)Es(ve|Aw>LSWmMv zeo#a#{7WW&g*iatdlLvdbo`(O&kDIou=sxhLQ;^i(WM0ukFo#v0-X?NlaKSqFHhBy zvN@~DU?gGX%P1~lA(%?60pwUEyR?uO^fisk%eqShAj8X=FSb!{8SisNOOv=H_p<9K zF2*UJYBOB0TmAw)}J~aAa(yj;->$5suW7%@((8M8x^J(3Y#!X#sFh@^23_|{vRDtC%`Obu>#NwtP;KeXni zW_*p;4!y_7y~&bLi$kGxk?#q!<_t@>lbM z(0P{|NN*&w@M^(LZ;^~mdOt}IyqPY4lSC@OX3=RtKj2dYgM76W}(VOk`NL zAlTX>&+>ig69UGVk=bZBFV=~z1A0z#STeV_bISSi@{XNi@Bqpytx?k8ulItq_V`L` zFwoc@eNwh3byp*dr$T`k{8?YvjXT(uZz0zg=yK6KVnR<}y`%@|CClM0Uf`5l>UidH zf8!edcsuL;E(ifR2+qEx{8MOL4_P#gqeOBMtCoEDuu829B1Qy`d-iM;ys5fxEr-79XRrz6j#r$s~Ci^&n z&RtLjS()7Y7dFEey4kB=i&OQok*3zv1>4Yd`Q?RVAIgoAPu5$$kGl$E4Z+9Lfo%y( z#?OD`qE85(MxU_G4B2*ptael6Gr2{XhkxJKBK zk}SNZq>Nhv`J`nz$EXFJJO`R#l#@W4DS=R%DXLdvPhjHt!6pcg4=og7+!4Oq z_)grxoI3Orj0A|lNZ=HV1VXUxbZR--JjC@YH$>Gsv1U*4gg~!JbSQxpEUE`*=kk@7koBr&4l|x4T)oV5|H4aI$HRx=o^~pPk!;E6FVo2Q!sHVF`O`h85-r&B(J;{d z>`+DzaevIYw%QktDTn;FAr;*=|Nkw8A3{mHX_`(lm+G$*i6CR4(WXniKCL1RDQ5zR z^LeHDTsb^YBgxla{R~mxDOtpeX8^g6{Z?_fL`5r=L6cMznL`kEib zk0?7Wq)xJ9qC#iS0V6c)a4nA99KRSNiu{aF5K7x*HY94TJ~+LS&_n{i zArDWr!8m$E}1X-`Y{F%e@_Jz9?E|v_j35vnQML3 zon-t#WxnKr`!0SiAK_LpQy{98q6`HoRk5qj6RdtVydi_=9smJ{7&z+!6!yjQp4MnRT zd>@IOukZ)S6*Tb8n-%2YT<%<{03T_s$DFH}R-hiWFdO<4ut*cSRXVt;QAi7PrV9sg z*8Zu-$<4?N{yC1WKOw|(;FpPve1 zEVgxYOKOQmDOCZmiZrJm;D`R)AjNo3K(kmRi^2OSuHjB0Z0jS{4y%vKGZ7uSr;1_t zECYXrHsQqE%~$I!eU8Q;K?nazGAKDIc`k-)*@`C`pi{?=-Ok<{ zc^p?fkqYF0a+lvgspul|y&Ca2xq{t<2)R|rVf`rn+IL$TXhP*h2LGq;mKTxqtehBP zEE&WZtE6Z!ISDdKJ^}&ZvhRYvIdsDM>NLlQmV?bV6l}h)l-Wm6S+ajM4cTVV;;I`Tnj<8ww`947NfM_v!RY)O zmGBdKsCJuhXcuT6pu@iPddp9YK%-7aR(Sg5gn+*o3rNK3;iRaKUpqpTd<>8&l#G@I zQ?s;yJ9vJfd-6wtUqlg6O(m3^KL(07f|7^uEt)2RLVZ-J`2?-uoR$A~oppalSNT*a z*-5|fZQsKrO3z?9rd=gF6Ri?ype_P+Cwg0n6!;4DP{wz{hnKsz2*)K?XuY$*a+f5Z zZ(%-qY>KMHU6V0M(2FJ1^1LR-C%=*Jj~Z8})OV=olhB(Ac*wO<76dio*sY6-|h zM@JK2ny~iS?(cW&6zICV%GwQXP0UtIVMi^QH6t+<2bA z(`5g2>t^-%;i!i#l%^#~1{>;}-F7_FnA>L2hQXoZ^dWd)P#h>lE9m2687Zap_DEP6^LaaA9f-k)^zX?KmrA0N z;&4NS!}!OI5GBH{^2h(O#WfVg^fPmS$u;vKh4&pUjyk#K>VIz+tmBH~piPNVLZyj#3uwQyZepfVAnB6eDV*hr#NqvHH7WhuZI8hme&%rVrZycXkK2ss&cbhBW`nmMOA%bfjcO!>V_ zK4Cf4AZb$yd44%mT>Fj@(-tbVDddpL2hX0+8BfF8>6$eJC!0Ow?|^lxFZ0eA-| zWxyowvf}Sr)WNUEYQ%~r+US!t&AHV2VuO$&XecUiuN4kVd9F(tB&>~Kay+#&$acXK zK|`?_d$TT|Lav9==c2jAgs#1cGPhSz)@OV2fV}6loqHiAZaNK5pMr<^B7yO+_ba@; zN)Lv}GYy_kAao7v<*b?A03zSD*7jb`;CkoRzfBW1m|c3%LcfhW3cy6*t^PlWfZI*( z2`~Hco6$NIzExLF-F6b)kX^{pPZH4z6Uca7Uqv%sGjmwxF?d=TQVUNV5NY;Tq#Hxy z@rm0gh%G!D#5Z6C29P1FEHJF0ar6^HxL8Vg1bTrId$e9y-X#b|Xvq=ewz`QG6G~g@ zDkQrLN9lJEY0bCa4=CYKX?@|M`XFi68)>T<2aM5ND^w5*hk8^DphKDnzWwfgY&@U; ziANLxUyiBxFp{!lDX|=#gG7}l+nx6#&byF$D=oamZhov|FvoVTZs~U@Z z-THU^H&u*NXPn(K@Kd%DXV#Az zG(~=t1>xLz0s9>&KUtJANwSI%=WInF17zFZ0!K7!WP@`r$h94VQiz)+s0-z2=sr|KlSdf@Q98eC1V&OeX?6{KfXp8Ynvl;{BB00%yjkf@-*vW0*~BOgEZ2= zlsMc32B^ONe`^H_uWORd0;r~gY{{70bF4ME_=7r&ApP=;gQObQe_Cx|wZmlqAHBgA za%-eQLhqa)p0HrQ#f#q%-UMKCXrbqM*6~I%PK%%;V929W3cyMVp;LB}*1UWoB=+rZ zNOqMFIL?zAX}(O+m$EkStN!-&uk_mQX}-RAflAo462cLR_MYB)R+?wr)S&pbzWg@+ z%@|3g#+|7&)2ea3(&IW&{8dcgN9~>7Rbg5_2?NP$_h8&APE-oU?ECO%5k`iu z=&R}0I!6apb`9_{oES~4JG3biV~;Ijq6!uWS{Nov z*~i*enV=Wa;1^Q8l{we@F>xJI7yMKMq~%cTDD+?Oj8OOFZ33`3fD!5YfB~$!!Q#pe z$Wca8Ke z(4$(9#aBwLeyE#rSLzgQ@y3-&raMuJB35Nc6Xl!^x1AEnbg&^G`%6aQh5~r=hqD4H zP8PPuUoCKLAW(WtUoO()1S68YU#qKt^LI$e`xm!8Xq!OI6ru=={cp{*6YM+u_!GZD zd``T9hsFp0|B^f!AJ7ChR=>qTDzwBQBqQ8KO6eRiP`9t6|WxR zC%`4V0Cq~Xx@nP6yhjC5?OW#0YwEeC8a2akN|caNaIBR)n`R>Lb^Wu}&Y3icO>#Wt zIH~SsOBs?&AzOy^Lp*pe#a-$@fw(8^zXS1w0O98*_J@|e_tJI_y`Z`US(c|o`lZHH zV8`Xg7J3HXBw5Vqt=A&3jrLBpYWSw>F^MRvVW;Ke@30a|s&-16Vc5dYSVoK-?9;sd zH^PYm8KQ|GOUf?WQWz>aF|EC&9=?;~(DE&>ES1cj8m~ap0l|TK&HlQM;ynM{1UrFm zJINH~Gy?mH8I)X9;;)krQPw1a_qR zcQFh9!TeV-*AE{kLg$5sHAe(d#Q~!1pwA^7eV?8X>&-3bwClOt@h1f1j4Bt42V3j! zz2~RS0PJjVM|`6mrvLr95zZ!GlseQYW;-;>6+Bf#aRU}_xEO+#(^n@sjF`0ys$mjv zTfE&~&Nh<;(AFeacd=Rs1gj*f4JXDZ?+6#j z+g*-;rYZ?YSF9}Q!eH_R@|-FOPfbVe1@e#1U8Sua7HtG;wE4+&68@(ridpED6oFE% z{V_wSGNnT954;f+?chgr043fJ65PIHmu;L;qFuzDDfW@=>GHBi02ZRGLY@V(#}u^N|80hktn-;Y+fKTi$qeekIsM&fXGq%)K@+myjYLAw;)+U8M5q zkUibPy!=&aCtA9yu1uo#o-$qVZ{X&eUv%@Bvxh!mH--XP+%6EzZ_jZWe>S6rUCQG{ z8V%w5xzw)E`ME4AwTWf@0TR|ISw@V9k!wdhFO03cMK9lT4`0{g^TH}H%H^T{Pifva0aRO&kQmHftJ)8Wh8VICfY@7ojq*7Mi?!8m(vN{Fl7JqWiomb8GVZ*Zp0at z?U{5FaIjJfF_p<&+aOM3`$cUV_B1^zwjRM8!Vu2BS4J=;>v*3XTDL<&Yxz3GPy;XD z7noK4-IkrXtWxVYjOq02K4?Lx;HaPg9K&pyV#d}QBf3?gpCjmbe$DmQ@06sN(D)=( zZ3YJSDO_9cON(4RJbT~gW-NH_sY)nzupioJ1Slx;678jcNYH*D*_HdN1|oq?y~W;o zLgBSP<<0$DI$`?vd+ML049%RhNMam-j$-|5yw90ca7;xryVl1DkHwu`W5CEoja3Xr z`-1AS*%{`Ih>GRP{lBq_nJi-_e>r!HS)+7#rrIWH+H$z~qV9s@mz4DX_Qx?_a@2PJ z4Ze#Z8spGEZXe>EyuUCScQ7m$KxX!U39?B{sO+m*F{vsN0PIa-Qz%Tt6PbSJp3ZP` z1vP$#>vEasa&7>*w-^2Y=U#9;#+k`-!u2x@x4q4u1!o;v$<2o<7M>Q=#^nOA?-gT} zT`8rN)MSQsvv*N2Lu+Zk!=7s8+qRL4vA?Ql=-Q%+;Gz|CxhN7a(7KXhH}g~Efx$*s z@TD)`^I_MkB((B-SjhbBL`}%P8~s@;J(y~<#pXBUjWwn8Z9Q(InH^F+|B1x%XHXG_ zI9-yufEgb-RFdGE+To*ZkaP{zn-UK#S2_nq)rt@Y(|xr*#XO6g@EALB_H>lFHtPz5 z(Y!E9vL8EnVS3wE>UHSe6!mV>&Va>|M=(K}UZlY#VJbX zR)Ehaq$;nHE2m{N56=X$D+zdJ(P+aip$2E6V2I1GSh?qGxnU?KKP)&{k*&aBr}e#Q z`u{VdmI-|V7hAzAqx;Y7=5Z&EZ+9eJ*%9Y(P*0^W4i9_6+wEL^Uj-7s02nHR2J{bL zCv~fvI>cHzLzPDsryg?4MC?o~y&(Vwvg?HF{|;oKqcSR{vq+?F*QQjCSZrSCV{oYi;{aS4X%uqs2weoOB6y8gU$ zONk@u&M>u8YB7Mg*b9_3_`u@7*zx9qUOKj6(q*)EhfhfeNaO@cz@v|r;PiT)hwze& z5HumL(`)HwRs3HJ|BtG(467ns+qN_)9RiZl9n#VvB`MwAUD6CG4bmL~(kZd%4rvAH z?vw^;zgfPY?!EsmV2;H+bN6}OgW|0>^}V3=r=QvYyNl_XogJi{T`^14&0>`>3?0ri|73u@$u(dn7WF#Y~ZXSrFttkZ(4uBV5QzxFIj-6}R(0p2yln(I zP~|WKu(%N6JtpAYU$6BjBf$QPoAQ`gDgr?+KRN6K5{6LV)RCzD{PP2>C<2zM*?Ega z|7%JY7CEA_rri>gXF>T(`2sjz?$>F2uIeEgVv{7zpewH3h{$j!`>xTvKIOS1l?tDq zm<J3$1HI{kiVc#V^xvn7(* z{`JYnA?_e(g$VWsXnYuWmKz0II4#Ahz|IobSeoBvKe~kIedn9;F7s*Pcekp}5+a9q z`oKN6J9nbWQ7n(p0tVY?qhoUEn9a`<%{P9e?Q9?!49oNlgA7(W$Y7;|4Ayl-3JPuf zYVXIMd`={(C4bRhj@ZUvGc_y#mHk`q9^1t!$Supr&`Mt5%ou=uzraXS% z1T+6lR(!Tb2u^x-qxf|ed(v3#45f&u{d%Q@CIM(SH;84E>OT$sQj>0so;NXMLyjAb z_>_%tE=tcu(@_J#j=c~n*s=e=hCP+2S=psT>PgSGO-1dZ^_X+0H|matczo#um8#o@ z)K_MwvWfp@6#ai}+i`Va;rMxMaafUX#CTeC6%^5(QUXGv?DEdWJbogT!T&p4#7tq5 z>jf<|BAc=+Ht#pFV{5N0j3M}uTbx9BaH1y4s(K-%`n%WWzdP1p_6abmGmHj%Q0drv z;=k5?AA4)kHucI;^Gc)|J_8B>8EK!rq$)=0uj3@0PFs|VPqHK$%Z6nR0E}yh&p+pC zzb9XCX<|sXoz|-z%Y~jgD_U%M5FLUV98JLrD|45MSys5q7MRZJHRq9h95sQL%*#Rf z!!#^yf3ld{I=`$JJxozWl@DATOZoLl09y$L$$a*XB-@T-2(tx|(@RoqGAS2c!T1GI z4gWs>HMU~j9P)8^AkdyGDZ26=FU&lj#=_J;u3&`OFK7{gARcYoERXXg$jgE$Y#7vF zJK<@1S1BfMo?5k4XO^%Rq@joR7KC?$&Gqk`|C;N6E+bR>(x&8^Ac zEbaAUXeL*I?;DYE2o9{Gxjvz!Sk0oDT|y)39h3MwWD9#Xt>UHw zHCAci2*2d`Q*{W!l$(;94t0F#!bf#TK zR8{sHY466o?Og^GL(zvT%NG8G)1@i9_z<==5>2-Sb^_%ZGHf*utT{@M_@}SN@Fyqz)s|( ze+YSd4uv@<``ll8;`-`-f#or?tWB+9Nw0`wH+c%_E+Ik@P~ zr#F;&GMK4l4KDtxrYz+(9Z?r_U=KFVU<@uf0?!#()Yi&~ilW$Ib(x~Dgb{ozoPM;QO&6O8EfRqUm*k3iqqM%Tm{1DYAz2>fXPg!nS_4_ygH0 z0zaRhr4{?Q0t2}x+224;$r6;R2{!p~1wY;^Uu>LMY5}QYVT9o!B`oopsg7URMCl|a zYuHd43LFtV=G-v8-EG0ZcCsIt8?C?Wh1Rf4a<5FHh)miNGVeroJTRE#s{c$^pVN?b zr+OJO$x-GNU7RSDnMhVaQSDJ^!$)Jq7)%elCbm`Yo{OIALjrW$p_7fFtwx z276M(KB8$kzXUbnL%r-bB@bv~)H*6=IAXYv}Z6Oav`Do^nnM$1Z6xw3S+)8_Sv1gkg;{O z9e&0D8dtWKU~HFTziwxRw^f(ps>;7qsYw|lP9FV}Pyf=y#(IA^u^ME($n6j%4Hrd` z#?komYzO>?FImN!a6k>0$CV)e8q@s#XOb2!w?Dj&6hV7f!%b%fVm5b62(F}v()$7kr?w?BIF^fjo%$Td8 zCVg3ga?)M(E|laF5h&ILD3-1umGfNvzo{G{3g8)PwUKIJv{|52(Q3gAoe`yw5smy8 zInZn|82_3rTzq8x6g-~Xbr<1G+P4YEu3Q;h-Zc{uF@Sdyy$eJqjE^O2Nn0w!5KKHfS+K+jCHS$$wP_<0~awVYpgpa2J@+h21WP)5q&IA7y>_DEX2YI zxLA4@Nsygme`}8-lfL-Wmxo8pyD9`(P-PCz*Zo^!pQ0Lu4Ft6$l$UM#h`pxC+996J z6J%ojIGN3OmFmL+TH=@w&xF(Qv|=-ZGq7wpwuVLA2DT zzgHE*d9idS^tB@t3X%#7<$qaB24HFNbWc5njPBUY2pe` zE#@wt5vZ%#6q3&UvZ6NAvrlXH=j)bAD>y~Hi^R(x4fI0o^9|n@1N1b**WwbX!PMT` zwmi3IFusphf1w@5yYkAilrO0P-K$>y=H7Tc^Wts1vZct?N2aB>IB!3It!>oQI4E#j%hroW|c^z!3`S$&I11w zXJH65xtN(2@1!k0pAzf$hhcFe23t-9TQr}-iIM8bQr^@3hu1T3qlLX^OEw!rHfmhg zM=(FCXhjja55s`{jPk^7W5DqBt8S?5iY!<18k$C4Q_$QyavLbBwr_gvF}DKQSd?JA zC@w@Pe7}KIlkhK-gf+Q5&xU9#1fU2vzUNMmv+gffUk$+qfB7q`OoGltG+D2L4N%8PuvjFrGq3a3hcQosq5+hT$99bU74z4YFOG*<`v4Gj8r zizh5+Fg3uyr}$(z%4D9%BG`Bg{x#4-`}Bzdl+9sB2v!m$B~a-M+b^B$*uZ#fb7-tK%Cs-)F1M^sCg_X)nz)%qoIP)MoQ2!;@i zztcR1;-J@}joNG6mp*n%B@xmO*^z+scPj2fAI|~q5YzLv=%+=o4L{9{A~0g}Fe@-PyX=an@EkUDM+Q(&v zu}j_)I8p>z9GLwNXrLxy7UUxh;RtPWQP}cA&|svM_1jUzX2Z}i3sKO)Gh^rZcV@eR zi}M^-3@cv7QeXR_0iN?^#NFtnHu5}v&FwM0! zz7R{P4e{ckO+1T{p+T?+==pNs1^GrFnO&OAz(XPy?rx}N|DMV7%Y+QZO?KH1e*gM< z`#~Ow!u#@(m9fI&=T0LFBf{KB0`dxp#5Os`Z5X(Xr8`Kln&4RIn_yMoaA&n6{qFZ~ z6_~@k0kGL04nKXh;B*@%u)u`$0sOQoQ7IOKxsJ4I!};_!!zovRlN?8KO}MIKx%EtV zyc-Q36=FP$W#hsxUPJuWo}xU%tqaZL<{=dy*a=zZcHQ_u(46FR{Nd=yhob?LT}vAD zCf{MIgMga5l_W1FEqH$Y?=>Rq_TnjGx9}PrI!yo>i5TwaoCg!higw7tCJ?Pg1G5yN z{Qfr*yP#Y-qgU()`DYu0u+9lmkk}QJl4JF#bR;&Mvrzn|w`HW>Z8Q&2A=(t?~lUCwlP{gppv{G za8$_JjB3UaMBP-#e+LS$=8y%!YT*-@Bwk+!U&WI4&joI4u~kMH8^Xdz?Xr_wr%)Ns zM3V;XRiOxi38j}m_&4D1T82F?htOw^U@H*(0`VrTj)m z6aZCYd;_Z>v7}l(L@bHomucV9aLU7+*{(-T>69t6*{M-(TIb z&L3GA2<8wlP>%YZ-V(PeC9oxi-5g?nkKFX!SnYpOs<;bUS0k_v{!;YqEdQ{olK42p z4#tK&2EXBDTQ%CM8C6TQJU^LAc72pKLwj__0#iXL&&{aaxR!Z6L{hUtK;=^s zZc9fq8n5T~glU)13>2di-fDnFuCfSJfU)EzjuToqrvIr^k z1xO)!H=bHZj0|0yV>b0YTf=5kCQ7NojIHkel*H_9s7{KtVp~82f}y)((6&D*8O_lq zX%E)Y{s)KAZu`?&^{_16WA4IX|8Jw@T0RB~KPyBe=+V97zZ!$xVZeu5MksBpv6@6~ zR$_4-EL=4Se$X*3R>C?(YB)0c2jT30D*`{`*j zH=d8#27^*Q3F~+XEAW{pPDlRxO!PAA4{GIx#xvl&W8X^(NqL$NAA60d6n~<~FAtM zemlB3rqg?ResRn$m4WuD zBzFiRdu`8Q9zDfm8)an>}n3Ukb> z;h6Z8R{Q4pUN?v*G&zImLC^qFxa#%uA1Le8&szF+o=F6Xbr}cbc0=A>lO}tpa)d3c zCn*&+O14{e9;nHRMlK>V{`%RkvZmAGD6zJttojP|gi6ID4p@R&>++db{q=kqr!Pn} zdc6xe+yRq zPU%$a=?WK)m{&{x>mXErsY6eJTgWB*nOT#X7p~eQoS2AAw=lHe%mc!|!F|K|gj9^> z1;rp*!;l4eHJB2*M|sFjI9@>~Eux7b9)FzV(z8*54NZ8voo<-TMUM_sJ-EicrOyuN-QFJ`mwD1^7WuEV=}a0? zn52P4&!0rDM|nHtMc1PtY{Vp*rx}Fu)8(fuD^2L*uv?2RSMUs!5mmBOUth7be~B3N z5Y~VtWRj6;srN9clXWb?*%8|%umy`mtyZ;Vnnv;vm+fTS)tDi{oD0_?p(U~!$X==m?f$sSesS0zyF)RW z&`FX+7(17=5(d5bgdY^fUzKx=LuASOWh4_5-Mj|d9j7Ck&j}I>`cOh1hy;-ZiG9qq zkjpekA#yh%S&f1*D8-B$q*5NVzaSVXl-LCoF5f_f3#hOMFV^aQf%(o{fw7XeHa;3w z5D{Kb1zw<~E2uFESpf9KCnAWXmayO^PD+EZR~ykM<^C8Tcz`K@NQFryLkepA6&Gdy z!J8m%52z1^VSWnb>T`4ICfJKQ?>wX|2gUUYNmNOtAT^}(j~arZA6&4urlh!_yFVY% zKA={K2+|5>%Ny|j(Mx3&4nm>-xo&JDr_s8)^^EeB?T*mUqu`=PQ&OPjn=qXcY?(z_ z>82!+Mal5Sq*g<(t`Pu(oUMXbz&EP?pFZI{Ry5xhw&Z;} zi^l^91-_ilb5Ek4+IMCbi0y-1SGFlO>lc0+R3ly1&sfL(t;*6K2TSjyLAmDoQt@UK z8jCT{gberhB}ewu!ti%tV8GS)f3fxk+QGpOI}szy;#<>w%#kH>Y^MQZIcBj8cEO$` zhOr&R1v2n|qG!xwN$Mgoj0|@Ar-vt`V~WAJg2v+iXQZO#^8XHu^Yo3x?i%$lDvzYo z7}e&}*{#T2@mLs`Q{1i-`xEkM8dzw5Uf^SZlx}gh^~$_kqF~=Hmo6;0oE!eX##~T)_x1lWZJaLp~I;iyWw`wBfcDy(Z5gjzSZ~G zIMbMTmjOaXGgA($P{`=$jHgdb`V77N-mWasuw^7;bhP(6)u9!;j+028olDF;Dl~zY z|99oPMQvRl3v(F-M3P&Hv|3Dx{O^fAPmj~yp&SwWRJP)UgBd$8%5UKj=#}f!S+@Wg z%^%E~{WISLr!Kw`5#Xnp*u(d25314vgI~sXAD|L=p}%D2Q(@@j1xjXS==fp-+0;5z z#aB>B7hLPHeQI|L(R+XnUQAp0f7w-&i2obB;N~fouWR|&@|FZw&;b9RHDbh*uIb{O zRXrnK#xa8pcwq)xU*=!6nRY^fqL0ceF6-j=BO3puX?fWMom-tPJhUzI1UkTU;+OD$ z`FTiyF#)U@Y=tttDis|RfYjF3c zG*TGD9A%kC{X~PSHYk!8VdEf6uRH}h?is1Sj@w^#&yK4H>-%;OLmc5j>c>nQ7+{<0 z4GP&QN`zHBPRm*l^4-5{LwWk9AC>usgcGq7m-D|p_)-GDN`|?BMx6OpnlD8pQ)-Ym zrQpTare0gGF>2E8b(L`0ktUGF9NQXekNd!GrnP!yLRRoLcP=ugUTESo=7%3}lzK0) zV4~~C3W{rIGQq945kOs*h76*d=LRa)x5RFDIXQo5U$!+RvIXCN#||9Ku!rdD!@ws> zz;pIk$K+==f%RMw)TGZrHW%6Q51acE;z{ck0mFzN{!n>tdA9k!ee5rv3HyR#!(ULQ zZwizo5)W~XnOa1piid$+SqW%YmSWipfZ$TtYXp4dW#HTBj=X+wO>c7r`5_vIyiAJ! z;)e(jDLPjLevN$IS(M${q+@u2*lRn{YXhD}W9Gj*cKwz23WMyGfwiE#t*h{lK;eX9fksT@!NYoX!1kf^s)@))HhF)j%y;A;%87+vT@={(p5*fZ zW7zrshXP;dFocyw76kGZAUHh{+g3$znkH-!ka)t&Hw6RB$Z=WS9B4DF|$Lke*y7I>y54n$fDMhhAo|Gi2M5iqMLWohUC1sgTfyx#4z(`6H zi-})C%2JHeTlV~Y0)*ntsBMj8v0#dS9*XKupS1s9To0|qH2kz<-srPFcK;pqsnsY< zI1T7eIRv$ig>s*r8^MmK2&hIP2ixQZe8g*SC|bjo6^iC$-8bGKTR~-tbpNfshKIv4 zbj;Rb&WwxKdO6_8bNMk$KHXBD)(08+jRQT%x7)%)HEXNT=INFri2Tso(Ik!HV;|L# z_593(qY$;q6It2?*i&2nHwF3{h9a0aEC3nOsVXOd^FT$$Dn!9}pO3`OhxK8oYqdOpwfzkouii%j72f{z6T3|BfYnxNpl2O5)&3R zXqv9Ks!{w>mpPwL{%#FfJ|ozHU|;YWPI%Wk zWB|-1E4 z;lB8Nwd#|37GmXyUg@V^c@Kk}?WXSPy@nBn3{TLG!{aGLqT?y%)pB9K$&SIY){Pa+ zFs;bE8ttXq_gv?hvErUyTE*(tYy#y+`~TSuB!V+85=$db*au z34F@1zwrO2k}~n%n}l+Wq1P5nG!DsOiM|>;Q$7TDg@jB52ftnuf5%1F1+5(ZDCT=X zB*@Z%!|HSG4Z!YI2x9PSzz4#HcdcE^uD-fKwP3 zK_LUg&*UdI(?RhumeIe(BCusCVe;gfQhm3x@V7YA{lhevuIyAbD5@0U@=xe9p6nXW zbK1hnA`@}5J);I$#ITbsmml(M&<5ANcr5hs+*7kXLb$O*?c0k z^}S;E<~cRRo4Aq-^W*2>E7_S&6l7gI4xIMESr!Qe+1!y~S{#>Wrt%Ku?; zPd`y8qd*shOm*9x4ZTiVzjd`UWu8Eg(9FXon1c>ZeeNFYI8a8WfQAir&tO{2MtRaT z|2GS*)K^jJYibIZjo*@IIY1e{?WYOboMszL@`8!aoW|p+JhHI!UXVoiAC<6TSE${Q zxFCxQPd~V)%%h7+qmx$vzFjXEKUeZkk&;S6(TW*k@y_EQ>x*_w0Go+O)GK)(5W)?! z`V_GQQUH?4W!QKY=}W zz@I9R69pbjJ#7j9Wk|ucgm+RH^s4=hQ*xTZPrrPANv|d|Q34jGUtj$zOh4|oRuu9W zi(xS90_}1PFY!|H$)A$NXQk3`)PNW-dI|u_Q`YF`dB$dB$De1K1fM1O*Gb5H#*W7S z4qf!(ff%PFz`@ezfudN>;nclGGQv-|-w&3c%`VUmwNzMy1V0W~f~q}h87$JKBwm0F z<`2g5|1cB!!^bx)O^jh8ARWpulvJX~o-7rdQnv*4VA5Q@d!g(&Le%#GvJ5cyeE?~p zr!lf)Ur#8!__NFzL4`sPeFj|`@;4k9#A2*Jc)UM|$McS(Lgb!}hnSi){&ErNq>-;K z1W%~z-%*MZ6DMUNcv)J#8cR~^2gM#b`AG1A6Yv4x%_qqGck?Zcqf)<#-^e}f%fbyj z1(cO|Kcl#zB4fPoK~m=ZH?CaozEnk;sm$N!L%T1&jeRnpgM{yD!adccMp1%}Zbd@e zIVi1$v}4A6jeN3_Oqx5@&r-Y?j6_^^@uN#r)3refiIx~g`!#c$Yd|?ZKWlK%7!=dO z>kjexsfw%tZh<+owWr~h83H<(E0euo2W$18nY~*yD5~G_ZvTQMPwWYyiFJV9eRpo} zC|J}I`tRDGwJD0RS&9=r#pqI77K>~A;R&jxlN|r>1l0?zAD;=p^{dK?PEo8~`EszP zvrUc7c-pE+bFVBE;~rTq98JH{X6j5rP@Pu-g<+rMHss#-1EH6O*{Td7;D(Fto?OYb zHBerV)QzQ2)g8I}|C5p6kCz}|>67tv$js$u)$RUVOWLX(8KxupTjAB4vl}>joD~RQd1p~L=MclO3X-8-Qd|gN4H`o zE{*#VfC8;ydu_Ik!?uv zdepkzvtAwfKF5Cv!W-z%l6dh`t(QZo3u(NyCMMFSEo3D!2wP}~lDZTV5#P$j1NF{5Z}M!KAvf zNitPwA1Ab`Q=p5pBv2_YA-Cv!&!A2X=3G#(it}kzEQ;0VAgsel)H7vyoIuw zZI)#S^PYfmIQ8E_P(gwR`RTkJ6??%9%Gv3oKJy4LsYvk{sxCq)@W3|@-e|JB-f=2i7-2xR2@E|X(NOKqM=&K=|JfM_^NVGaKuvz`dS9v;_H6h-GAA2?|rn?}#6V$VR?uP$2fo}i8 zZPt}-clOphbx;+ZctV?oiaf;jhGrL>)?5?fUhGLeD-|cNgRU`yCDhJEVKI)d_BeV) znVLLLC-i|~H~_FLP;KVFpqFenpDDDtXzo@FZ*0A!`8 z_O8qdes;h^0$7rJWUzSEkJEg|*@XTfd~|@82SD|_uL>AnSyC*jz1ax5KG4`^a_&HQ zj2P03R-SOFZ*_g`>`h6mF)!)j*E=*aztGxz8lcjt&1Jt|KnL#s+&Md)yPPtZoQoaqvpzR|l|kB;wyanw z`p%kDf)!k;PmaVi__SkPODx*j_~IkbeW|B&Rr-nS$#eguCGB6a&rz#yUhfceDvt!L9hJJ`c$!Dy ziCKP5RrB9HTZOA!3)K`0C` zjOsyjw)HynQ)9y9J;(hSHE{G@nACptN$VP$kTz_m*M6o8oKT4mnV+xw<-q8b5vq1J zxiM)xJI0jIenJMT#^k{`aePx#djYEyE*lzzr(;C{eA$5mX?s!x8>zN+wat;p$r(|{ z;gu882P)Yu9Ot{AI*;)=tGYGpRu~56lfTc|+HO?Q)vH3W1-wt^(1F-FR3c%$gLJ#c zbxMc#A{oNJxAw#%k@Ry$BSYtMCdtqyA%&_v{yv+dv_Ax8>r-{~N^;DZ3E^yHxelX* z&$jbwNk4l;%2c3E&Fp<&*n61SW6BvAcYoODN_-9e5f_@^e*IFGlEyLT$|ZuFskr1% zspZVq3q`8KXZjlZ*TCA5A9quG`UT_kN5hM_41zw@PRq6yW||rU#>s-D=ogjG-E%9a zh5-d(U%}Toe!%s^?Y>IK`vw_)d@ggCoUOZs(7P(Bj^(jJn903#)pKRI8CW|;IG&bK zWoi-Tj?(GoVaGd17vVc)o%|WUle7&3USHmK^WV65U2P4w3?7dAY}^n3 ztR4x-F^8@`{h;8WxPoOb zL7Nc>5?;x+!c?x&3Hj9Mnx@0;$i=lq6F4urML5#(0qK0gRp9u3ZnOuoLY9&lcKKdS z-N_ZsF|av=S#EE0J9dz4GIH=RcF%W`9!YNhqOehc_6ks$Pvr4z?2xCi4O^O7V9TI$ zYs$g6esdH=r9>C~&ZTeLV7S(xa7H7?zGFqvLR{XM-owwUu~_DgP554c%F_@2`tWj! z%-}edrq*F{T*}>`s=Wxaqh`2dR122qTBxNtOK<6S*rmm5)##xR>lCETbbIB9v({Dd z<{5#iTq2+}TPz*l^moSVVVkq9-6KEebI(_IKJcdrp)_8;tUMrD3;Rwmv6sJ!>}4z9 z!E%8h9i-ijx*OB_rX7{8g4NH0%T!}34G%7FB)=dPO)o`;eZ1h(@wSVB{zDJWU0Gdf zSSUMHzrRp+k}3hZk&#gOJzD2JW-Ws&tsOi&n+h-{X*eb+Ud_S4M?qfjxHdkwxnC&E zpGVI}!NNm9{^)gomt#Qt8x^^edrLy%v&6~saU%{x-}ml3XyIr)W|9)rl3$bWxb{mQ zUf=9&j#q^c&6H`V7)z+?ODycD&K&e{4wQsGZYCGDhBelO`FDBUT<#YFkLmF**PUO& zo)rSiiWVJ6v#Ki3B~-D4pAr=Q5;linxGC&KeQve`bLIN_S@lUGy#q|-)WU+62kG$q z1iCyy+D_>G+l_>TgEDN@-=9@ajvB(qD%Ra@Aj5t7WrlL;OUxfr&-)C1e+`*h-2H98 ze{#wbtLWpEI(qi7QWcBzby24_vEjp_Y(&Toz>DGRm+mKYr*FADvoY_0k4>X7gHgNJ z-?P=>_uKEr^UUsS;Nom^!S!k&V-V1j>+sES+nM!wnBO!W33Be>X=#si*=rDwh#hbD zWqkUbh^^^0ox`M?%8zER0|m*2w=;;_>peFMlaMNwm8`7xHeSAt`@QRn%e!HSMM?(= z&~bmVhBgGVKS?N{)E1;fR9!WB;1H`tJ=?#f%yn|Ws$X)IEDU&f-`s8%MGj9wQXIyF zTH6|ZeBWO^!f)9?_MVc4PN!6&ja=BD%C`+JZB1tQthMH>>q=>>B4E5-V4RUOyNcyc z6j$0s@LRbV{-J+#{d4Q|z-0r-sCq^Qj486Lso=xeWmitF+XcP_L zH_^B94gVG%`emntbAKjZrA-w6i)=Y7v*Uj2`hLe};q=#}OD5@6Ve+bzrN{SqwpIbZ zOXnsD-OScOz&q1n$T3E;?8~YsU~=Uc?Lz#phmZrdM<$(NaHw3FPhnd#pip0f4w{IzlP z<(hTiSSXh`0gbxLq~<2wj&bKMawBpwg)a1y%(&6P*1B1XaB_-;!+Dk!@EDRr%MS?q z-f;|_qNob?h5q2BvRR%hyD!2ovT!)PrOMEjyfL?7)h7Coqn~p>KKv_%6%39yx7VXB z!y2^0S*@+S4`@4%bvDmPlVk9!(8ljuE!tNetR7d!SPZfr9+-z}td#Kt*zBrwiIUcl zZ;G~LX19hDJOy6ra|SrF2A=EtqeswQe*kLYttTXC5aI@@;hrO&>p`s2QWgR^e-{B#3`;xdhI zTTavK**%=zU$tur=x<*~ojqva!gt*5A51N`Je}FG>1_#h;8hd>cF}q?YaG>C!K0~+s=4eYvpxn)DgQPrqrZRf8&Xr4O z+}@$XK*(I;6LE^E^y=qeqe*vXug>@j!u8^bnw?sf;4ATd7j(eyy6f~^o6@h@K6 zQCD;|qN7FwZ!!i#fih2KVMT|++QA3rtNcqfy|o-UsL`6oNd0#5%;w*v#rMenfo9!3 z{`!S}JvTNW%;)ERbtSld{P`D}j=oXfir@MA!&cb_&wy}_Zo820-NC(Z&6rn916H=j zLF7!w2aIDyef;0fPWM+c!|r6x1MpP_^QBDp!&|*j@4fj>RjFOFlWaG8Iuz1~(V6n-uA9@cd$Jee4!Zfw=xlU5DR>R9%?3uSck}&kH;faL2s?gq!ruHv3q8{SVap{#e$!wfqiY zZ{M@4!wa>&aHC(}GwPx*z7rX=atpX8v<#Ca0J?c-Y2|dtq`^}&Wo^ICf-lZS2Zs$} zR~`gq>oUI;5XZpTAxo(XT*0jIY!-!iV%L>Pu@ zo~n{Ox*?#;*x?$G=5+8133mAW9-i|&O3BLZxOen&x>>(`mIyaf$?S8!^0;2VmWDC^ zGBc73V0cQJxII%5J#ZJQRrA11AU0f1mKao1LhV8ILcgxPr{dA?W)klUrs;2WH}SiA zL2JAZg1+A5aXV6P@~;XqppP3v%0}Pi=J~}@pY0iK<;}93ZV6~TaiI0E!r~9?^j!(A z)Flqn4z11pz-~vjZMV!f%hc2B0N-fPtO?|oF_)rOM^9-~M$5WM-!349JF}^C5j#E= z0J`cwyVOJxcX)CbXjR`nvul=Q&W&c(TbaZg>%AE~m`niuF27%vgX2nvfH0q@_s!Ym z+_-Q~s~DeHn{3Z7@3tN#qT0dZ+On46s)V^6K<*7Qr{9YzexF7oeM1DbH&2biaRmi0|K93Z1E1$tO-UmtV`M+lKlBI z45^Lb>6%}YJc+CZy9fhw>t@!hGb6R9>xb*>s5@znMcpU0Sz|L*(UXA(KQDd`*Pfpz zq~M>gJePAw>BxM%e>U_940?co_MfPShZxzBlWkIwYd3)-z!uG_LljlzW*=w}f%`Ji zJMp`gTI7T`s7Wd=pw(ml1AstYDC%r~Bx2 zdwV&^m}u06lT5c@A@B;WC2`e!M zIc)O``}BcwPI6$^(_#pq3la>svO4T+y?dScD%yg?l~l{NB;KzY02vS4#9`L!^^VaUmckg2z6X|U926C5tmDoi>JeSofIaI zPsZq4E<%nooAukdrPUA@?~W7ZE<_?aG~5s{6b|0b2(AzKd|y8#Izai|9ODRhJW$)f zIdTg}^7U(7wyUCpam8k8`LbtW#$up~6z66+8xLU5G09Aef`*4r(C{!3=XQE~cuY4? zD7Cd4G~e*DIC^?;AxCi~oA_+GU%7dIflYWB7`yG#lLK6DRFO$WG)jf3$sR~^Y zH`|90@lUXJN_YY+f5NR79#eb$r;X0bpy#fdF zPR(qBYF6jy6z9(YzYq?*A{oUKL(cZYbdDCfWI=BYRlnp`N;;_mwK+PChMRgD6PL5| zJs6RZ!sHW`gi-tow4P96cXR}Y1=kQV=7u)c4apPsHy4iY;$PsB0@Wn8UJq^;e3{7V zq0LU3Kgc>57;)iizhY#hUqqdm@aQ)jbxwcv*I#+eZ>+ZDZfoiBs*(+Db_{LUn6jbd zWc-?~j4oM1c-=;3U}=Kyf-GP$nl5={)|@)_oRETSxt(81Tfe%HVo^uWyN^byp4VG| zSkX;(&v%+!KH*>c z?y#zOHyJ!`OxDsOqw z!RW9Qr@I*Fbi2K|9_P~N$j*i#n=|IP^Th$v8tw{@wNI9+YzQ%K2uvvV{ooeazJp%? z^UoKkkDSDa74;CmnUCCxSsT0ogYP)NB0Ui4`@Ga$XS>V36ovFdp+<$`=?0q2u|B0_ zADC_d{ngM!?fQ!=p?ROx@K({@<>l5f1mgbdJQFQZe4>cMBiIY+6SpD$04vZmqW5$1 z7yf{QLAEaF6#ymlcL~|60aiY9^MO_eQs~o zCLewto<00FSekR?iC{GH5bh{U;PBlU!8Tbhg!=%K>1y7yMx)T(^!Sxmq0oZ;_X9=s zr;oDT)ZWU6&e-lbzkE^Ol~Ad*Jk6@21W~~YSD#6Lvc!>-|ZDHeRT-1b<$sp5Q)<8)Zy~#JAw$8QZ(&jN^dsS<8T8^ zMx~abW@3h`!Tqm7kIj`&(%5g!^C4)nKeYB~h(V|bh1cY?lrYS=D)srb2Lq{S=%bKTdU%yZ-#OT`enfVhI zt4u4lKnO{kjKLzg`Wo@P{Z^R%CFR1H816(iNY5VCHn-k~ohzI^k36@q* zS+@08#~u1GMr^|KoS9wZ8r`l@0fad3;k%kW`T}8k@D|;&0E_lQT3$lZlo^8Buq+sA z!R`D43ym5s4B*t!1eN`rQ4L)h5`BC1E~LMcALk)vppw$VqY{!w`xQkijQVX=9Lm zHL5amfoxc5__3@QMDF-LE+#_EP{gW|M|us3S4*losP$L9c|x6M^A7RGDPUe#m~v`Q zJ{f@^92;{ekr9fF6SFPZLh#9iht;$WAC0VZr=_{8QiJo~w7g^kbnKH`0uKmr*1T}A*M&saG&M}Csl``Ng8$QUQher~L{%7-xRTvff0q>!or{O0 zUxaj|lTt%Tu;2lZx45}w54qPpS{{~le$*-#@~p%eiC`9|V1DAi|4lpYHw>~W9U-dy z3^7|o1T0hBZk;}bqpe&<7nN-+u63V2tb86ZXC|-KHZ?|*r8ZqNNwsNS7*(y39V}w* zQ9rV^+x}F12|-j3GMZ~V7J|EZfbiu6d4y+717g!f>Zl>0msY2ti=;z7?)+MRP`q?U z?d8ZP9(>J#>bj~)S@Ta^XyD7#$|YUI*4|Ck)o;56`0cW_-IbLJu>NoWPcT%rCQs74 z&8*u)N1`YxM#AC+BDHd&dd`VQ-tLd@Js-yisxu^xDpEdg&?V;Ly&VUv?BKW`yhDvn zIdm#lJZQQBu6KjFuE|OM8zoH3`tE(h>D1_2`DVK?a3+TGv!Mfz^IZlIV5@!dVX;7=`fZxV5b=cE2k?@pibJ()et6jFlgzOOKVAh-rSK3y4Ro!A^G&)NEg3(bV*?> zD25`QbeNtSCWyrWfUJ7@mQ{T`)PIF6j#-X6i#)Gm?8O}a2J!sKgn(>YP1b8t@Eda> zuO$L}t&fV=W70*t?Tbw4M&xCIEN@l1%)_5)Shq2JL}iSNP6*BuW@RcF;U?x}Y>2Y2 zd-9}|CiJ{fuL?qxZ0ZHetfDIA-Ms2_3A?saO?r+GD zVrTMg{CX0F5}}YGD$4cDu-EUBzn|@c!)s$i|E|LMVXos>+%p!qUz(EN&egqfJ%|9j z0cH9t&n6Syvv0X6BfXZSBKr}}WavrqnN+8N_d>EB=0nkeduhh`zOE0BTHD!vY>nCN_o3eqO(+3Q0i*MvtK77*Sc0*EZ-hk?tlAc#fOh^a z@n(nZe%>!8KJr)NsV=X}{Ck~njNs8Sl|EnG)7TS`m*`}=Q!8k8f8^4pYNASb;xDX- z&*M3{CwS^%Z#n#8@Ch#XnWg)Q`VpByn!Bt2|9v7-6~MQ_@tCUc3i$_|D?z3l4o3Bw4UwDTz||37rzmSn^e@K#>w6E*ZSLax9K$;a%+;q zn6>~?gSXjpWD+zFdm`ns;}IDG1({?q`9ftypSX}{5tfW1WD-wX39QuRa_B~$JYlGI z+8%EaH(+|XS2w@u=s3yN&<<4gC-J(I1@0fqxoCfp^s;5n2z~;4ES0_eX}6q+*J$KE zJ64p1B(m!@xoXAmy>NchS27J&ExdG3t^PWn8cBwdHNoFCJS4jdxr;~m zDbpQUxF!jTQWwe$`jFOl^%I{M^g4CA=mqXkor{ciL-I?|&L3;avcdi>sv_fa@-$cPwoF!(QI!0uYsbE$CiQXAvkzGyex>QUn3+dI8 zxfqP=@KiBhG!8Va((|x%h5-`gfAmNcdvn&?QD((tL<0Z-s(yK1z6nZ9Cm9QBR+*s= zDVe4<^C5-LeTvd+J})nYL6BawwmsVzPN<<`tzIwOHe5wKKC{9wybch82i}HuXKPgN zLtphp-UtZE?B_^MtPe>6UN%eWrqw!w?J8W7 zNG2j%1n%1l3-!64FW zU7IJLR%>CGXKG9le`ztB$~FOmV>g$&&%m7%M4=~A1F821OBx2bWG*J_fY9MM7~2az zP#>8=&zuxCu&(K2U(rXY=hOW1>I=_<yZLtF;PyHO2uRHwt4X zO>-|voXmIYTWOBCmd0~YV32E(u+&=zghZvGY4xUw4i~($+qhCP7mZ+-^u*gBLuW~oMap?nQACn4s5aqv*?jR$U6eFS z>YA=BLEuX1f1@OB7$B(@OWY5WND|2qWQ)N4?r=GXrSDdpMgC}sw8ReGW>{dEAB9bw z`YP$MlWG($m#(hF1mNDX#-OUCudr030K+tjk~Gim^6yR(i2}eZ8AuYz0A!1BFi=ij@{9cReO9M8$$SjPVW=%1C}LdGSf|w@DWNe9z^pijoGa^)bEOM8LuXdK zKv5X8j<;~7R-q?i7$8ZbIOwX-#ZHp>%;uZnZ3x@~G+8%V;JgEKWxoS+rR=~ov&Fr* z2gJL7e-tW|o@qku0v_KTvDm(H7zb5@CUqWwO>MzE?)f#XWXo)u9zk#3d)#h5SyDMj zvzYT5OH$k{o|ta)ruq#_)3{QrXc;jKkYtNwUadQ;Ke@6aWAKw^`i+ehCYLPme#$NCE&~6AhQ*<^n|! zG5`Po000000RR91007N%mpA7ECkbCeK~+ORQ&m%!u;l_29L}VE`Ira*0F6Wd02crN z00000009610001(beE3j0x2EyEGqYD0001!0000O0000000001000000A+mwm-}@B z8JF$n0uUT7IA)nIf&c)NO$`7C00000000010000000e%Q8R!Bt16Tk9mrv*dG9-8f l0|0kna%E_5b#rBNP)h{{000004FC-Qb^`zaDF_1q0053!h9Cd{ delta 176290 zcmV(zK<2--mkg!R3$WWN3pQMVfJH$909xY=ljbV7e-9tl|M=|RsN^^sL}PIp$ue8w z!>^Bi_vm-~>0mq?!uOYJ^VNHijN>AZCX+_9bO2Sgh04J64v;kjgllVS;|TtKS$%Oo4lB&eGh&C2sE7ca)i*?Bq0(lXD+fCd^_#N}R|XZc}V6wz7yOZI6m zjZVk$f3Q7@#zoxG)$M&M^Jq|tY$Oi%Px^+$qUY4{YYxnTLYf5CLc$}4S=uVa;539~c%?gR5m*rJ%#ajQ>K(No3v~b=ePihkqe{^(hvXzKBP`lB zNV?*Tr>nZ4IF+U*QL;j`RbjltQ~EGU1;uQd<+A_JpiL)ZsZ3ghBqvXzaq>C-P(aE? zMM$zVK9HX$8jcG~c{=V0ArWgVq(Y?@e~ARKJ{n7^Q~6oQdgb?6qUwq?lcGME#Azv| zdlE_IS!N=Sr{ic4i%gDp$qeGlhoa1ZVqGOPWF;h%0kJeBw}m8Bpt7^ViL`HRi58-1 zp^V9hR%^>1rS(iA&M45w3 zTuo<_(>Q12Tf$JOcaL>(P1n2D0*ErBUPttcu)W_>=s2S^~tnVIc^gdsq z`~uikSM#M#zECQAa>^P+Wm`45vrHLPBb8C=-)$a|+iKFb`MvZVHaOhkG#MLJB()Ei zQ?WD&#CbHG#?mUt!N~hRi<%;_d>5@@s#TAX5oi-s86Q62lN9J|KzW5vHh-f&Bhf?Dye9!mW0Au8LkSq{Q#I%c#dBQfi7?(zRx|!U2oI&TC}KLG$DaP!cy^TNpNU z0JbHfl1xG>>olxWB|r@0f797n4;EDMX*BrQ?uZUk|0{O>pEr45x46OUbfN<7Xsg)) z)WpH`ZjDbEXlRCfEl@3M5CChUKPkr%l(Q;>9U&}lm%2S1+f4Dlv>P4 zo+4=Vf8_r_1L$_!>9VMsEDLX{tmGIuuV#?~tER&eYbb4XnboPRe@;vv6sC*x*eYt~ zHCWD3Vow@t6WPhFAO7Cz3c_HP4qk^E)86B6neE1BdF*gD0`r@7Eq*_F_Q&<7vbOWy zG%@HZ$d0375~YigDMU{t(mG^vg(KId{p{5tM@Oj)A0XR~cVE$@(x$F6poI@6XpviOhw(f4asMZc>WNs1VVhoXIuq zm0Z~7aWuRV7m|pcHy{@fy$M8b$SM@wl6_Fs2BTf2URezR^sHBR6Ew{mn&zvn_^gwz z<}`AHHBv&dQlH%ht9An2UDNz!Tm0*RYI8Ok6*1dhiiUra^-?Nm*>yC*!c3`aL34L$%M)v_avFZEhb zPZOH&$a zXK~(}B*g$&_}?Ya7Lo*2(G2LmSmUazziwHe_7H~h;u2*lJd0}_Qb^?%X4Yo zNQ-iqzz>jL+)E|KM&nG{IC6ZK5?21xs~2;Ld^gG45~xdsZI4RSl46`1rM-}D08sC9 z7ZH8}Fam(Tf3#>N!dKGBI^Q7@K~M}{$w+|ylUO&r~fASTt6#pb(g=NE}kYo>VAC#t2aT=GGv0R~+ml?IT5bX^KIEho(y2fSE98PWQ z?n<20o@a_*8_+OHsjlUX+9Uu2y0Hj!gUu`k5Ews+&S+#4Mk$7CiVi)@*J)s@{LeOD z4*i?*XtOzwHtTqFv(~7LE1PlEqwf1D(f={P>lW>83i%WOFk&!RH9kQ^CK zar-ofY*;fyFa|*ihw&hp$N_?zzR<)X!4fX?NOIE!t>{$*<|0FA;d6FYqa>30Bmr2i1b#Yll(SsZ*ct4Uoq{I#ruXLgkIZXVl6JgTyr%R}~n4K^FTDOPib0_If8M7jkYj4@U8!$XY407RK%NJofLE%;$Hn^`?mweXbtU2U;W*ziNQ@G|} z{Zzv~srx({8F4t*e)``HYHjbz{QCUA8=e1^gFB2<>fbkMQvQa6!bh$2307Otf5L9{ zhBv)Wa*=(;1cW|~e88uuX<(j}QHe_(j~Ho8OZ8Ajp$a!ZCPAkSvZ75;W-w4jk)$fa zkYx(lJTr8CY?|2nJsMwdZqBBtXfRjoCH9Me|V6kLjWO@ z0#2XNiU9G@&>7CHVhqwDisUR!M#&&b!B##?N=d*;Cja_rqqn&sP`aQ5tn=T$4@kfW2|~aRk|mic{>(&4LBU4ws}_?KmVVOG+*2rI zLmd=^A3*mU6gK@WM*$@0e}&3v0j(f)mpZ9g>NRFJKGOhXK$(IH;4n#PU0q5}Qi0Bs zKdf^sSz5({6g0I%VSQuRa!yrQPu96IbUPV}~d9WTKTJ9`SQzwnn#k7%tHl+>a%ArlG zQl;ixEug#I&K*psgQJIX&0KFqHw=xr)uDw&DnpA9nW06Be^31g53LX$O^_K{3J?7V z4=vgLWrvnx*^P!4tL}b>mS53V8(Owve|Xi6nA;2%r#5H6RL6j4Q;9tO`z*=h;d2qe z@+`*#J=p&cg5|+BmdvFcETA@}0olkr%BTt-*0 z&nD71%41oO20WH{bqHjAob-a`+Aqh>S*BclLd9LEwX2AOVIO_28}T*Atr8WQwc03A z?X;V;MOlXt@}53hUzaoV2H)M8SElx86|r?RCT-r)fAktSXI|d~@sqTZ=)w3xi2^LT zDbOM8Y|3jH9bX$?iI9f{k&GN(cO4g+mYs9{3wS#QF>`pZ=jQ&>y1K#6WrFtFK^fux zE~vtR1x(`@+)z+Sg7o6j@{u{UQU?>-iwlX>s;!<1y^jLUKo0 zbmLKP)V3+=VD>W0$3wq4ZH1YSNYnH@o@5tsUF#F_o&st67+-ZwdyOM6RT#74g>h1s zBFUN#s*!U7SiyX|0*KzpD$zwg850cKiGIZVnA}5YoER$e5RMyi^d_ef90{PPVTk;n zf6#e|9DT=1FNnKbW`G>!9P{IH_{cc~=Z<}i%@%_XvI(zb9C ziC$;vJSj3htmGm9{#iV;dp%figC^68nw4p^ZA<=+hCu8A{w)nDY6nNGHlN!nXU%Ei z6R7z|p2RnjOkpbf#3e4QpeAt8EuunPf5viN1&?<*!%E``cK)8$YAUb6>2L>BjbRoL z&UYg;01VSln&oys@rkDVN3B|DThiN)tbn<099|s`CJxW%21|KmipY-TPsfSsOlD5I za@>{YY%e$|`cd%_Y9;*xX6Rv3fUVN%BLAX1niLuU2Yzh6R@CueWtP{sbJ|!Pes*ej{wlJxqu2#F}5au+csp-uv|;84k{B(N=B z=#lFh;x>@`VTSNH&~76%NS*6gdt;qXp{6C!#7aYe`KEq^*ka(UVwK0se^s^Sh+~ta zM%rp@NtumXRdmYE9%q+w=s=owgQ0v`FdL0NqB%3ORj2$sLN34VFHe!l2Gjf;A{=mn(LK9a&0@w(%RPU zs_anFi@3JB-{Np>@j$8wf64W6Jo1{Yazt&;xUQ}}%0HM}A$rD#Ypl=87gTxd?$J~k zj-G)yAmBs?=4V-unSgrG$dc%7FU$3%0tZ;M;^<16((0E}x~J^UyG9q!(XVe`19qj< z)XH7{)t8B1QNP-?F{mEYgs>8=(|-|KW)a$j3^65dtgo+E@IreGe+K>SX%^e;6<&%4 z?=ZJY#$%Bm>f9mtJYM};Ds~m)J!>k zp_225WWp4JkE#|g>L$0^8RzHq_0FT{R5>3e}}(ly^sZu;G&r!Ov?hpQWEjVU%v*GC+1~-P?-?_Wyg{QRJCzDtd>@t|?OipFWGaPCdx;EK1O9pg?D7T|j4BFfp0mR`q0 zDixHb*s(ghF;G*51fl3-Z7uhq)c%YDQ(tuX!rb_`dsGU{f8BAiD@&b^zhTg7!(468 zlFPk@(x2#y%68eFn4LPmB%Q4k9s-qWfb|GL82TVT;yKGmrnP593`?NGjwwVmObWPj zfmud|G_2S%n;J@LSdOy=YP%=G!%o^wz|C2=jk*fUG#9|VV#n2hF7ao!=UIW||czWt5j*6$g^K*I8lqrX)O-#)&j|Dr7bYZOhu4NgJJx zcp_&xxLBdu1iOKFT}oO_lN#@j^YLCOywJn%9%DcIfeGAAqqgQjm+#MLsgylx zg^A=0C;WC>nG<*hLkN1GI_TKi)}{r^`rJ{TuHw&nf7Cw_&w86iG@8@<pf0( zx?U*qtSjENKD!y8G2^<+b~tSNmZ{V7$ZTxf3=wsA7>ypiw`Ik~&o!*r`1#uJWHaQJ zZ-R%YIRY)KRe`fdQEJcI+vqm4Sj`kh6ByiBIf=(3XTyBD8duC$8b8~Nw*@V+|IAibdB6`MDCk6$c7vOaidq<|AbA#}_ zjknx%J2l$cwk~2N#~Nbf=XuEOc>pmid?0{%p%VeaWj3$e!Og$$9YS`Q5vJSEtoxcG zf5&@Q>Y>Mo{k_+Mu$fgQKC(cEn0V$G_vSH;`z#+XlGsIqv z;U<+1oP{C527`D?U#c9+gtEEFQ^Br_=^IwSDo1yTKH-%`cgU$C*2g(aWL?U9(N(*c ze-Q0Thlzsw&ch6Cu%r-!^LX&_kveuCWNA_E%jV(_96jdn9j^VCn>cs2+dMmW7qQeO8HxbW*DvQ zg0q0}eIlyAwzj`3jqWTnxAx!A0~e%cSI;&Pvc+ zGCz;OnJkhiXI-VWvSBP6Ecp_zP4g@p6`<7s6}vD3%0Le6)c6dY&(3(z&@K{X$1ak{ zX9Ng+_9uqM>JyGS(NVdaw$|wof6xU42eU3POwQYTpWym9rFSexCeal}MjR()i6OEw z0lq0|mVgy@+3R6rb?izk4ZZMMU8HJvdQ)95cQ3}_GUEF!vJhPTIzi!h{^)lo$JD!P z)*?V|fv6Os{pzTX-yj|styWWu-BX-rv++NExCT^eVG(<3-n0cfBDj&d2vUwuxaw3B`Qz;yse1L_XAdPFi(~wRPb_QMPyV* z-~x=vL_`r>Kq_=M=kZ8FfZe|-;J2FkNjzZxAL1II@WIkRdl~*8EhKoYKt*Qj3flD= zs*yX4A^K36ln`7!NliFcENSi#n8Igrpu3?sK2GG{MXBOVygKx+e{aHcbWA<(FSp&^ zpSKVdmQ&2FG#*vwYZIG9GY&k~Q7vO{;l!cb!^yygISS@A6@sZ}yzpHU}2fCdNO3L>Kq)PP$qe}e>1CeT4Gzc}7w;qOG92;?rSm;6y z_8-oGNgBZ=MRlh?k|H0S#lqbFSLqNuHBQUigs3OEnn*%Ge^dcPpY@n_xK6U`QCdtU@3l}P z6f7g)$8)`&e_|Uzw%T`(842nL21`{JPX4-$m;5uoQ43SaB+J!b)QAxt<^UE6Fp|ql z*kMU%5lQsU6=lnTN%V;XVU4X}{cKo?(uxs*DY(jLmdk&r5*spa7)vtZp*X$Lwf+Y~ zvSrrCtV>jz)xuaw5eB*$sz^6RCfpb}m0N&13@Galf7y#>*Qujd-fd9uL{*0lhOk|K z;?+uJYZv5(OAY|fQ;YS=x}3U5E~oKL4}1YbcafY<>G}cA=a8b7+pKX^shbikMP1?cLg022Oc9bO znj_%Qf7B_V`3o>=w!5mpTv-@3_kFIweAb(^y1D9yx(!&_lU*^hHib|E;+|3&Gw)uR z1YNC4z}eO~4jD|fo#S6VH@)spcMB$-r8Zc;?)<}c00>=|f=>P%FaRs9sh^_4C&V?++?Z|;qLl98Q_RPX zvyEdbMJE;&CIABjNPv2ISiC25m(s9lGb?*G3-4dw!KOq4`W2jL(B zOTwCkD3wtQQL_$pm%Xs+eTwT^`5osmtUGB}qE@gLFF0>5ShOD1^f7_+7m{;VlEL-h zf3&(7oK{zY)337(oGxAiPVagFSTj5(^s*sbxPPS1%gXo@P|$iAkH?vK3%A-^kL*#~ zbR1p5BaZ?u-RSg5arPp^AOeF7oMXPU@_5*~hO^w6Tr?*1(qZe(M>w>OTV2umHO}(0 zBmx*1cX*JEFxzX-)^}Rh*LtV9p7a7If0}Q9I%2sdtA~HoB0}+20dUqq?3VFJ#Ghn} zTzzNxl^*@XN0~p!rvAZ;YVaLwvzuhq*QNy~!|iCl0d_A(_dBEBi?_zg6TOOcvA{PG5~C>mY23-WG)0EVyo`Zz{88|swY%wyr=H=0sF#S z!+Op2mFtCry^z!CU5^*h{;#KL|8$CPHkQJA74-k`-HJ6|$oCPJh-Teu zSjI;A?l17RJw}28ztP^Qs;Wn~F<0E~H?=BX>^U_caZEzpB@QL4$+A-NN~2 zkTZXZ-L4Tb?>N$ScA$&ve_%rgj{GvKvq@u8wmkpu#d2}K8guU2&mI+gXGb2Qts_%* zoONX7^y9vi7-P-1HsfyQEpUT7-`~fUQ04r}x92Liue+89`tEeywSir|5%93RbVr7t zQDO^}%)!BTddxCk)!gSQ)J(M59(X1vF~KF%RP;~U)}bwe{pu#>s#M~|BlpH zRhuk(avacvO%IW)MHinZ-?PU1_WN&NP2`+aw!L%r=mXY0^x zC_X6FJ2;wTaq0_oMH}7_9Aa>Pcu)l%*MZ2^18V%o_^O}`Vm*8da#e;zjO)*?d&6~6 zgn9QE{{9jDi9ZTef4RahI}K|z`T}=0K;dSR<)>FL(Bh`$qyIsSvsb zU#1Ts)fQ!z`?Q-HX$L{Q{6tuL0N)1KE_+s`d)m>F{;?#m32N;?TNJCvYqAEJhH+Z1 z@2sCg)PXpMV@*>h=Q236u2X`(%dRQw*ct&UA+J!AG$QUNfA77fGE@pcn#u3f&-WG% z=`}y9LSv+Kzjz(x<j`2NAx4j5%`;eDl%b0d0Z zmdl9>Z=>z+3iVb4jckj|b5z2NH%bp#DCf#Gc?BED{oStpuma0b@vF`j6lBhPK@A7V zC~kKkRN1p0e|yww#cv4X6cXUD2vVvXQqIaQCgyy6Dkr{=k3ufMPC!4+=)5gfSG)M% z7Z2&RVBzVVEXS!Y)a_1V`gxQV5U4)fAlv0gNEpki=;$Fr-D{9S_HkU$n-KJfM*xBx zmTR-EOsPRQlJo7Fl&K<<+S5c#NMQIDpt6hE6w0dme*(FX00Z^tbU`Md9J&(-7Y>Ep z`#A9QgmP`byL=?b4wpPxcJinxPEyUjC1LKf_l^eY94f-SSMJ1O52LSPxESPumioDml(W8KErYT^PzDFGHeIwA<}Ucc9mz zPo{}ke^-J29D=rC?EbV>&83Dp(OFi)Bf#lK4a#(aQ3@69pxyhI?nteczL$>rp1LXA zNzbZkxiSP4utBBOWYV@e67;20==myGj3GQ7r;nQ}~g_+beH!kYtm{)O>qX<$^&bf0APAdwg8AQg-a%V1 zH1P!H*~U|kGBKM?K4ehdcK*?Z>5b^j zO)zT;@58P&*h1=NQ`C3YgWp5%)lN{MrCw-=IP(-0y8Tq;clb@_D~IZNa~7}a2GbTp zf3Fn%;$`tkDRuLpx+Xug0k>;v*c;M;#s%}qO8=Lu64eXKKjmjXwG71@!nIY@U^F3gX(*(q9s#auMXI@ z+Oa18*-hYdHt?M!X577C-}16pL&cw@mHeeR&f=P~f*e{?Su zUsZR~J_jK`YgN*8L@Z6N!Gh@y&7mwLyqfX3zRYL42d)*r$Bg>%%GU}_$E<6DSH`Wk zj8mre{Lvg5&w5nR(Q#Xrppnrvzrb!{gQ_xsfg5D^=@QE3qqAGS*C0U+3_!U15E$o< zS^gevCJ-JjT{v~{y(%VfvUnQfe{hG_d1mGBSM9br45T0GPjWbJ*kOe3g1|- z698zQB4y^RRS~)Y+T;TyVC})b?rRK~#LPTT)0hH$-t;RY8+xIM04m=tTC3w*X6eUy zwOF;|qYyY8do2$7)h0$Mf5Iq)$M(^w{b3BZugj?T*r9E<0tk-^p@H!=g97~-a}^KN zK4edxXiy10$QX^Y^bA)4ba^{d7bmaj6b_u?q5=32!8#+3^1(UyO({YUVKg3Rmre@) zex-;?(&>yvDLDh6En!>o$a^#a6Wx~+^b<&BMpLZ=s7J9v{9$*yf4}|9_Q_taA5W%Z z@Tlt{Q;K)C)cca+Jo+Pbj4`N%NZ zONkx(Fs-hn@`Q|39a=kUm>$L1xzg`Qutyq94j>>+iH(884+%WCg1_A6_;{@=1{Tgv z|AsHbDt4Gp4~ap{e~JUuPH~*N;PK!=HZ8#x^YN3leV$BfvLHT3T$6VZpC z&@nQpi0SntaUNYLALWAR({y65;rlUdr+vITsJEPK_0|c#Hdrm(V^4o@6z#_$B!3p` z9qUGlecFO9#oXUJ#A3H#`Uh0u^waH+ASJ_$V}VAqqGr6Ze4Z{&7Bla|lSB zqnkd4X*IQSiRLvTjCvu?t5n}6rA=0xv?JZff5-H#U#6kwNJ4|fdOYz2=Yn+pB);sJ5ZGZ_4W@D5Sb9W zA<*#C(m_xiI}MRiq_`R|{lK+>{h*$o4i`xBVV+ImeM^T;sw)IKZ5j<(8Iw|1B=jD3 zm>~VQayO3ul%0H9_N*B}Mt7WkQ(zUfaQJ{qCdzv{6ZHBaOF#Cp);`z`j7f{<1H@7e>jvJad zhEX>$uAIUR?7b%D9@(L~QFDyY8Ur*Ayg!!?d()`QvoWq6LRY8g|N6$yWU2w#JJk5n zS|!!Ie~^mTd(4w>clo&L3MauXfy5*C{c$%_SK_AnWU|M|t58m&A%@NTuk-988OD57 z&k4#MLMRqTfWj5d@0!(~Q<8a5I*+L{(sM=|!#6MO&7;Y^G>Xtu`e9VY&#P)5EQ!RKRD;$J6#6kgZfqS`D{o ze^j!2HRN7fvY*TF2WXkd!tJdES% zPBy)2YvO4)R}YrQx@1>ubj8{;W0)-8e`<{h8_hn9Ugc?4uX@h^o)WifhbloP6Q3^m zh))w2wBExfQ^ecX@Ny^KNr%L7glW}jdC-?@iA~ooNaM@bXmaRelc45BOOcali~{-r zhyQ33KwGJvcaK$lik~f?q0H22w`z-d{hX!of&4s)^F*3cpX0V6X->@@iym|ne_qLi zr<0>IH)?awd7Waxb9dOcSK=g~=f4WUh-9-J` znsK>li`Gt*=SiFs{BsvsOCRK^6zvIQ3ou6@me|o11z6Y>tH@$g9?zFpGuL>H&S0s7 zazb%F`rXNF^C$4SoRO|5%+G7!>uDC{!^7h27-dRl%LIYGDhy(Kj5=DB$t33aC)4OM zJ)uaNdbB~EhjBWSn(^FAe*%zo&oc+|w#!n^xRP<>-;%V@4`jnQW70Q~2Zfht$uoPbP>g@SmzzWxlUb*t?a zad|YQ!&o<`E4KH0l-1i#@?J9R9UtxasTa{0l6yz5_g;N?v46ZLe{NgH-u6y^|LD~R z`Tzb)`PC0rS%K>9{kFZkXGzdobBsy<&plE1h@8%fbC^Ne9*JLQR->LrF3Z`F&4lJK z!mke$(f)3`(}mdWG0u3hAy7r{Z5&OrbPtnz+Xn|-5h42jEUyldNut9!USC^%Z^u-R z2FyDnQ}2}n@*%~`f9Pj&WVOAR9<3jW=c3iM5{{~b8U+U<15zJcWMqCS_)W*r$$2sbBA(R@Bghv3U3lW+QpRLs4c(QsQl)?s(Mm=^wmZ*)pxrgjXSw@8cGSx*KN=(b=2Yp zZGPnjZQgN%7HHkgd(pZnwB*KW_b5M2!gidaa1rc&RPA$D)!v_mdb_v%T55}zM+dv# zi;i+DdT!)fe<+DId>KNrE7WRd?28~!>>(FoDkV0~Qzq01^qP`;$J;x5ANum|zY4i< z?@D3Jrn17J-9{PC)I023;t%WV0Hu6_7YO=KHxl%H2tjwMLXkz6QGzdN==)?4R5YKV z;1)NQ_I~s+J{pY{%ew-6koa3m{4f9Ydi&($!}hD)e-C>nJKL}Knh4MzZzMp_X=}3A zZY&-zv+;1TYyi}QV0;_F`1wYH0X+t~gy!^{tB>RUFN?)P0D z=Z|5xf5;wOv?&C;nqrJv#AeQW9AK0GJSi~Ip8K#(edpQ+N8nt`VHx3G-Y<6JXxOga zvI$y)7jb@(#FxbOcAYr5V2qCwwTo|c9fjO9rv>XKC%`)68cCOg+_J{|tRj8neMTqI z`q-s~s#Vh|2>vF{c6KFm~oA*M|+~v`Hf_}O~f|fC3 z=Tr6b9a2@90_Ru#hdZn~IA_hT{@?DfdN#4luk??1SgAEdRh?dd(r?me0<53E@=$|3=zufhEsoMkQ|eFYMj_5!=4E2xlL4Kowe zjN=sxbnW9G);EW%-O3GOLm*VtQAUE(e~N5YLezXqTKCy{ps|r^0?u!3-_)_fP-8N} zaeK|7U&!^r6!GR-u=hGGnsS$2M3IR#-voup7jJ?Iu@G{jG2~`r$e$WR{>;6!xsQVf z=Uf#BpF@yG>kr{yiubaG^4Q-Y->d?jTsWDX0)Q079qq>7exzNvR6?&vhOu0`f9)z~ zua(u4H*2zwqO?rbV3w7F5B?#=ss^C2eDaT@PF8ALwj5=(gsr|nI>^<<4uJqOFiF{Q zD}l<@@1-gy6C`AsX};97pXK_VCo0Rp-Xq-=^KDtG;r#Mj(TnEYvIOJi|JR@xtS<1i zr!7@u5IR<1bK-IL_G^%R9AhXif6`b>(C19*ny^5Cj5>8-6qw(RJcc`=`(-?F+7W0$ z9d1sD^LFl+I`WR2)w!g?@eB4>e+bEZq;G^eEj63I9R>b@1D8f5h zZPAa%$iUZmJW4+GDFB8}Jd8ehk-O2|ZM9RGJzc!dMN7N=1@P~{1u>~ke;)_(!X@_8 zVGM4P((X9#<&w+UqzyMPYLN$h8$A-|)Pp8KZ9Y0a&S_U&Y07tt1Bbm5$aKDYqcdKB zcdOlm@Ny5bY%0u!A}2_EhOObJQ>Gs738{KDG;dQ9oF$)k0b6V`OXD@ z@7N1-A>Xwy8+qA!FV>{>fAlAZb=I(02G7<~wf?AH6j<@QMn8PamN0d_S6ye#=a9KO zzg)A{u}mGE>@5Tb!iE@irOSrpVT(hOvOm>}yzLS#ko2!+W0hHcb>8)j`2!mZKZE$H z6{)U{Od5{Pz^9K6-{-6_$lPAjZ3_=W(_n09?PywdI4v=r?s7nVe~l4UKcsm0hWbHe z;}6?Sgl6OFMgwb(2C#SJYR1+aX*aabA6}HjIw(B8LY%AA=?89ZFvd3SWQ=(mIPQex zY=XCHMj}2f><>gTH*O^S!cB2?ECe~iHh7c10#4$;;(I}nW%I!|%7va#e!5ksa;#CZ_BHsRha!8CSR zX%Q+$s$f@HJnFgCWe<~e{eIQ%>Gvak1IJbsjIURzx)Um`;+%taa#Jx14olLJ&E7e4(I(=*(6e>z1T0=l!_e_OMvteaO`kd(UmroCj3%6i0sqIKNTcA{Io@)1=JR&wNy_bALEuGH}_ zHIF-(6&u}o%xxFUx{oPE{7|&IP7ib{7*#+ZQK_a1X?;}H9;%xSK?K$L1F_Lq87>@n z1)jw4tSyfY0&u)1bx8HcZefhZ4zO?%KNA>{ffrDge|4bHyV-l)*5>RJKdf&IT^@F2 zwVipD%rL~e<&rsm@=N3_iW*!;SMHKpC9dvdlhX{eL^AkJ7Vvco?NKeDnTp`T+h|o$1dY=+u9=O(C6g$4Hf# zr5Uo~{fQl`hBh|m**jGXB{O}ts^-ugG-sOKTIk@<9S9!$0rA>czk_DMpHFv*3|_^! z3tZO_H3jafWFzrzRdRpz{q2x?2vLpP2B(AXf7uNYxkTagcN3cKqHR@D00Rs)G-b(E za5!uS*DBgHC0mvsJz2*JnP8k>lp^z&LE6wIu$spMoP~&Ylgd;OFu8s7%KcU)KApRu zvHLLd!{SWUCVzpi3jIjH=#xKuhh5e#46&k%ha>v2HI-<&HOmEBmR`g;7{nTh ze=<_VDz?p}f_b_sq{WztNEpD`pq%9pdmRl^0~~NvF?rrTw@LRpg-mkbf(klM+on39 zS4u9)RK+hRYnT+%adZXjQxFNQDh$M=ID3)hxY(a5bN`E>guS37hbZe%4B^4BD5G9= z5V1Pf;aw)gXgFqW+h%n9tFU{xM_ITW0j#-C$Cnwv#?md4MUxrGqD%7i@^IU2=bBr&l=lBaC zemQuv7xevedBLc z#GJPMsYDI-j^{M*Y#(7nqpF#2^#m_MjSBooUB4@j~Zb&G01g4<>9sjW7CzbDK*BA`Vf`#$@%-aPBYuLMi zFkyj?y>YjGwN70k#McM(q2|*Xe@p4TNXBsyNdM1SJgbA>(cAtZSM4*of(4WJBpn{d zqb~dlW$*`1kpThVOmomYS74MQJa!sK7>+nLpo5R zco%>+N9@g@d&Cc7Me|aMA&M8x%PEd1X6Ok5qEkEIS_-tr4`#A(nZ@8de;&@pvCeCg z{G6!d9PY_ocQKk=4&x3gmuBOScsY{1;p>(vSaJ4Rnq*uK>6?s3nFeQ*NjeLPqdSTn zd^G~;9^??H-j>JPWh@Cb8SKg1wEf|yF8j3C<5)2rYTmCxopaa(RGFr+?TP_kX;B3i zw#-Xat_ZU0EpC|OJuoxje^a_%T)EWI8nUCkKRBp$)o4Jnb4bUM{4+ZFN0nErS63#~ zLe>)s=I~)2iE|w>=2D19rb;YoB-A5D{u`#Gk$9@b*j(uZPbXDLz^LQ%1RTeO^qTW* z4nt?}zPgT8h+-#7F?4v_Kr3Uf{jB2)tMk12yoMhA6`zee!GNYMe_=XWjSpFs98}f| zNfC>@0nZcXg_8yhjS3M@rsY*n;KT^q4N)oRjNhq##nkNk;)eLCOYw(yuvr>OO*!_C zklS-glT&#$Rp`0Gd)0+KNzY{6`DuSGU=a~(gbqFpN9GkZ%*13WU*8&>!q89x9+4bl z5y2%3P77@9)tgl)e=>48ZiknRQ4q?_b{}zoBvxs2g zj;u7M!6FQHR8)+|Au%rDc^&lh;peY3)RLRzBj3$W_RMI&rh zYJbl^l1h~aj@uy|9Yaw3u(v=0hu6;3d zKcLm8KiGSx)nyoeTUQt8h3qib23v7ywvNIMxdtI7aC3?14(cx|L6W3)J8K`)wKksT z-#fQs92#ktf7qrd^}ZMZU(eZuCdK`gheF~fn@tvN?GS-KvfBPs(QB-WnAH28(Z(nU zz_^yEt{Y$)Nj;!Z-f+5>x$r3NE!X8=Z9(XYYt)2U(DAF|dhs`;VBId@YOUrlAWC)I zmv*rAh_}%g!%?8oK;}xXMdEXZL)j?u`Np$9?rV+Ze@ZjB)zvb#k+)KAwYnkg(k1ut z&Z1d@Z8>p{?!%%_&^r@_ILIP++vwt1@0nKraBHs*Z-GuSpceg#qa>xrLg3w9F&IZh z(E~_{Y_6c?Z|-WzJgY59VyASBeVRh6EZo z%CiY#>59p$umu0*%P&z8qZIUB#g`pk3Fjh*+ovw;h)GY7D5eATp2kr6srTagxe^9w)oFZ|q^VK`ks*=P ziEP%H_tFjmX%8#pD8so08PRYdZLneE|=WIb@0cZK>KbRN>eg#8a;SZbVcn_Ligy%J917 zd=ZT=qpL!86^Yx>ldugdVdMBhT3QPfnw70hBS=)xorQ$Z;6+>k1QdGi0^gU5ERiE} zHvZ_yr_7O5pT%jMM{3B9v$9~*e-3Ml8K%IK7bt;!BjNZMdNia+vzq1bg0>liNSWBc za+^YGplJ-w@A3Ew2SRlmY}{%f&@|()MQl`M>c!@r*RmNHPaAhVpc*!>zxg#P-gG2> zQ_X1m%-T_*<-#Ufz*v(O$vC@oR49xIqei7vDU{r(s?n&55XlMkOHCmWf43&JB zLZQycSd?4<_a-(A8B>vQ;KdA_%UDxYDzRU;XA)h(*powsMkuoEQd;toqiC?{hl10X z0Pt14Rd^&(&Ni!TnyXAMzL9EZz`y>YENrkHG(`!&_f0u-3>>vkekFb({NLG`+ucY!Z3pdu*?Rr5OK0C(z{|ml@ z4vF+RN@8iXVm|JQKoRt;%0_W^^mWpis&E3+y7M+^hyD`kfk2t$7n zW)>Aavj8y52^=nkn%JBL0b1a8p(oAYDF$ye+C%j#sycy+Kos$KM5$_@gOahAWsMN? zM=$0=>(sx@;A}umfA`efVJ!1=^#~?ke>eiu-#+iz%t1+0P{@) zY{qM?%CQ+nv1 zP)RIhegI7GH#I52X|kz?Yki?^c3TQ@KLUk38)inECh0|706jp$zkig;nH(k}p_c2{ zSwSS_;sZ>2fR^@LuP1i1v;~WvB>gCgtj9LEEY&a!oJQtZ`1x1L?*LnOaG8T@{*scl zP}wcK4rB>efgd_Bw)G_RA)@Dw5^`rs_Nux_}{b*l?5PEZ>MZ^w*O< zzyFpbd}-d-GTr0$i6oh3+c7wNrgGSWIp|yWM6ExxcXv+kj^$&tx5?^uT4zIGK$doE zTs(lcheIsUrh;9!yqVLVzfb_m_XAr=w*R}w?BmC0?|-ea5C(Zq|H2JYYQ-W*=D+DR zZc)iSbLZP0>DQS7e7PMXfpD<~ACAu($Pw1}c<;BpSACzw#9!o_k&+Jxxx0Vzdb_{# za_`uA6Iqi)MOFW>ZckKR_8`1)Y`zxIwLRA2u6 z=6_YS_Y}av-u7>M^8j{^4iDw0pDShLs84MTaM0uiSa`Vo|3Q+RJ8QZ+SwdH3x7 zmd~zt8}GNiyjv}1r?1D+AYOgH^>g>#D!97HpX>5xk|t#mm07-ufXVQK{PFA$fBfT5 zKmBpNdo3ZRs-VgJd0qbbi87NRfCJ9`G=I?^<}wMMLVdCJ?B|`o9B&`KUfWJ`aiVsF z4+)i~0B3~UV zZFZ{C-1&g^RO zln~l_u^baaO9td{W^OrjL9Uj_seckRxtiBhZZR&dtWcmZqRb3`V|X%i%@xI+JSzTi zM6p&_uo+=tX&??a>TsNXZ_?ondrI_=c8?%z0{E+xvA>Y9ArWc z)eWwo(HZlLSK2a{9Q42w2Y14|#Kma_2%OY=X~BC*;Jt`ouFCX_ zvY3mND>9~bHT~PFDPexS{eQEvQm-mEuTmw={l?O)i&YqIFJ00RLaeohTV?Yb0XY6n zVtoH9ZVRfbOJ|Yl$|d|1Y7MToxc##QDi+>TgJSC5DGoO}=6vS@>agDC(5MEAHb?{= z5X}XBXPSTkyWvBZc>ZDodcrLbX!EsDi%@rmYGHkf%TThi?^Va=+kZ2-8FSUGBW&MR z%n31$nyvF z>KsXhl4fEUpU%$k)qfcbYzJA>IEM}UcnAmF;N^*xt5n$H{XJrS3-}HpXg3rZlgBt9 zB5%vCXh+br7`^g3UE`4?fs4xo_6s4p*9ctNhVdwxjg|3ul3DLea1K6=8GI_u8x_(} zPV86NEH}=vvY)kkGqH;6*xhFilv~ zk7jIG%73)E0#MI~bfEsWBl+&}@OuEL_JR+jS47;9^r@Ad6l?$z7tWD&BmHp6l9sL; zU9p;uSG5i4)dURS)mVl&b=c%;1)H)0i=WrR4op{dH?0zY!?WV~4;$;n59>be@0&0qzg#Owzpi*w4ALa~sZ`6^A_h%dRkmLj>nFY$()63QFg36o| z^Kl+dUc7{2ibM0dskQef6NIZWTwqmybUId#fBR1xQ%bzasNa{ z+AVvo`C!}p#(nlrWS-q+pW%6!6P^LD*Z<5Y1rK*b-nDZAJ1qKRu6TtjrAP>uc{H`ry2?z2-qJBz z)Iq(DT*9J?JTb1pu*_zl+pqU^_UDR>1^3L4RG}Uym^=l_s4vc5leRXXa!|rSJs|Q}ssw;;;qGxyi?b zdfs8X{eb-XyHi|R!7084A@`EMLzGDx3W*Nir}*QDef9d3&pwD)Ouyi^BJ6lC;p(Qq zT(5y_7-oP|&9iN$rJHj(kb9FYoJRL|_g?k)U+i!Ha!?bha$ofnjEct`JTS4kbKq?! zS8sw{L`bvAmSbr&`rdRlf+)J)E`Jz1To zgXp~J+JU*(Njs?uPk(jlu5aD1Egv`_X~Wb#X*}?vEleYh1Zx`xU~?Z z7^l@+k`0cj`VqKF1?G9U+g31>bNW>PJ*M9d`EFbcDwyR^!Dzv9b}_e8=2o-7TH|G! z*=*H8%uFGk>Dq6O?he^-oRXj=m$=Py=m=SL9Dr=QN)_C~(|-Zgq+&SB@++191*g?_ za3!IqvwGY6$FC2zU+ul89UF;dJISZxD2=He5B%lc!T!$C>;B&HdjZ%AeMl3qs0R^S;IW+A-mXzZ(toe{iEickd++bsADTTbvLk> z9eCev=9!8pGNE~fz18HH(t)zps&;N^s6Yr#qz&H3HGkG6T?7`^;LyA@mQ^$u#AK_c zS-J*q{aoNRLmffA%(5HH2#Zg{RdvvqydNp~)m{qwexyVV}g`uYVwldNrg$%)a>77qo%0LK?}~0=cSe+GrDp9-Gh~u$xgU5W2`6@5nURjWNV} zdonIXth2php^Y1z>2z?T!Cx6)hJ83#qsqe{!9u%cjdB;dqJrMEorHK{r`j=d|0CF2 zJvgh0ceWnMpmwKcnESqVtn%{CIoAD;SZBO0UVknx-^r4%W`V9ou={E|c0c|wJLo$5 zUZ)59jQn?HR2Z_t(}PEK&HP}I)K3rw=4)FcuE;IeLb;K^DXfpxzYuhx&-QC7#|HN% zVOZbyCSSya8tGyb*UAr``Y>$BrD!XArMD^gn;4t(HP#FZniih|6oD6HzSNT5bz0`NTbSczXtvtyC!`F~0k zk+vI}gu4FA7Zck~Big(cQ}t6^#GpIPJ9YYH&1sgT6n1QwEQ3;(HomH~0ZAw)8@q}G zMcy}(GD!iD^u37~k+r!<#(Gmiu?W!yi_8+t@4<^NK@xhO<`uiDE%sTroh^LAq|F-y z3TE*rSTqhc7mkCkt97w=jmG_6#=&=|YL^@bHQH8VSuAOr%j?@{Tqfmg7=JJ5xtoj1 zZlYeR>o>3Mp5$a()$WSP_ahGpyc8mrYtArR-08im`Q0vR+*y2%0>${8(P;*+>WX}p zUPf0p6@ZF=i(g%^n)~Sa{bC!cI>vgwor-Y9!p>|On>U-AK&P{O6bxL=YzPae$$yu+%NfF@j4`FY zg0hN_xYInEviWKVUsF|YA-Qzdh=PNrULrVH6P2*wBuPE}bWneiw8OSKA9L`) zNmBhG&mEp5Eh4DdNq-W@(&!|~DNuis;ES=u{P;r4OAP6g7uVPDfV{nt~|2gC+;2jEax?%&6%Z+ev&8=dwGT&3}#v z!<|PLQKGUS(EE8jo?<9;+30B=!&}T)rm()*MQjkLAsndy3V+BZts<#Mu|9p~pFrFL zirN9^UZADm@as%!(iAF;r9{RM`*_Z%>Ajv6=Y5Iw8nmzncoLVCW#9UhJ)E4SmKK@h zD-se+C`c?Z!@#^?=5G>S1g$w&ni zaogQxbc8C?Z_b~_rUG59fl;Tts)a+w$``VKWtP-AQtaW$OpW`=lZf-~$rJamS)JBa zbq$E|c3DP)k9=fYKNoE&g|fde3sjJ=W*1;PjHYCGc&PLa=_H!!s~qjqSu%#jK-XUG zlhbam?0*e9O{#($UOvH41>XFcTmF}9aw_XJg?D4H(oi+2H}_P~P1;PQC7n3KYiW%z z)B1Z3eua{6w$!2Ao18}ZM^5fxb`cmCpu_}jJKzR{l*cG3Rgie?$2^?nG(hl`B18<) z@f-Is(bCWQd6X7lM*vNvt~!D;i4FsR`x>x|1%Feb9-j*;DFzBNww696#TjY+BtOma z)NOokzM#L@-uX}~>~gKEThP}75j0OxVewOZiZBuq9WpS>hwyGKfI$+?{{YRDfM~~Q zJh@WB^sZ#U@nL@L2eRX};Mkk49Rcacs*>vp$-^9MCAj_yPw5DFpJ#Ce+vR^}sa3|1 zR2}cw?|=CMkdOcS=+)kbro73z^fv=LA(tbv>f4N{1<2O;)wsGrKpXm@8& z7M;eUi&43ko<(PI(9Xpy(ipBiVN8Kx7SkSwvqHqF-S2(Kf`&b7WdI7x5}fH%i7Hc=+-W5PPK6C|zkfYm-a2RH zrAc*b3vCS4bNlQZpInPf%jQ{U5hdOYr@;iRmBTx4U_<-!ZkpD|X>WlRP?KXo3j{~B zqd7M_;x+Cukwyq>PrH9Hh;!HpcJ~r+*9ylRj?^d_t4$k(I*rexizJ)nY=5q1MtF-m zu*2GroP>6smCadQlHL& zP88}LN&QBe-hri^goT(DuuHH(;kF;YKwjymp)1hYKS|r~l={zlNRh4Os>paU9m9r~ zMX?ji*Czw=U-j;_M#?tSq!gZHQdW|QECBnOmk~Th3@f_n6*9*wtAD(nU7d{D0%wV& zBy#|VRfDaVLqa>p64Vu=ysFwwnrbWG8s7A_hLs35+#Rm+^U0Hei{Z%=yYqXljR&=0 zP@si+C6hep+*Y5!EjxtL+pr7Rq@Z`R6YMm}s@+V`Z(U!#%&Nllvf$h3N-w2f(~G09 zET9J~FQY43Mms1KPk(>%czQ&ev5i<7;;36*GIVerrE1bQD#`37^Rk!c$yo1KvdA=S zB>e>2uE%gPCd<>z15tt(FqtSiKH7VW`&2LTIKFNGeKd_z*o?Sd3`zps5P0t*8palu z6g|vx@c{RIY0^rC1Qpp-?{?s>w*NdLAE{lqNV7aAUaQ^YWq&wg$}Gc~B?=i1xn&$d z*wBIiIyH}@MI%ik@4w29IKYKoWx2sklO+j78U}s;8n<4sROqOiI=#=(XqP1V*=! zFg^l5%;W0L%YQW97w!p{J?HnXXz{YaD_Y+EpVQ9JB`pp>m$WKXs7qQx=-K9lIVcAA zd47M(xm)GbZSPi9J4@ZIa^M4ZtLm8=&seag}I|h(xTpw04nA?%ilxCVP_$tkZ1`8_k5a7Es5S} zn%@V=^M6@!j!}?+*Xn%q@3VLoe>27_50W}T3sT%sqW#ne7XMj_JIH6A)>8f?m{uf{nOs>yun@UmqkB%cJuS=4(qbB2 z!fp{S$sDC-Y5ZwQJJWew%*ME%q-e$M8r+4xlz+9rYwt7V#^yLw6^b^!(#2y}TCrQz z>Pm&GfXk)dk-~6Ic7f?r?kjz=^Kx(Z&B5NWJNLwSmwT#d#9gUbHR@|$O867^Vj)?^ zE&4`dXlEQpxn6N2%KyX>1Z*??r?b9?F{V7R77j7a;EE6It;gHLh`ZYn*DG|l@_`c? ze1CAT5*&agaZ5aNE(vmrbs+9BaU+?ymcCld$Te&JVjP`0 zdHT+R&ipMJ&w`~5(Y5vJ^Kz%Oy2T^cK&4*KU_Nu8mrZ>Pf7K0jXXCex&FdO^yDsHj zOJ~;*)OD(_=!aV)tSXk1Qrcdom-Ve@KYycFlAKb91@bi|62^Ak95|$y0jtgolo&AL zSkDF^jTgig>)-&K!;vko!wtv5B>z(7(6ti>%Fhm5dcFCXLF4hH#ZrGbr7JC{((JCq zno7B95}Vg5Rn^RI0m!Ogy0uVdC0XxWNJR_3TQ&#aT3yORP81ea&0eh1k|O>EgeJy1t=2NUGZwc}>q3wH+;s zdwmRSsC2JPT->vT?b@PQmqA@My@iB@I;!zuX!C6>Ec93(W7(t|b%{e?n_=sU{d5?A z3iXk$I^0VRMyI!2Ubwxs>SV5VwSTDtmKEf~9YmF=rr<3iP$fpQ5(ELG>DP99G_XTf zH&b)t zmqmx4&3j54i15IvV<39@{mjh`4qM2W713F&PgLm=2A=i|;|boe!jpY;o_{LhcG1xr z`R)O)zTcxV;Y|HCKPG^OY2dM$spLOqK8Jf2zfcTq^KMNU=NRBppP!(jGcJJEyH}i| zk5i`nagJY$XavcBSXWCwRV%C;k#3?`uV(C>z9FDU6tuV6k$u=zM?qS?+pHZOm1iUj z`|-H{i)^8RdLBFt#}|bEXn!$Sa6V)hMg|>PBG=1zdc(Ojs)F zxE9b;&cS;8nbYK=@YheDBdQdkXqMP=3DJOO8B*i`S{fJV-Z06o@(scS$2M4P%1?Ot zL9JJnVCSL4FFn_4LN$W6#Z@=cRsd?cRD)G|Q)kq7LF7mR6U|_?-N9@7S0DFco*uPz;oK-Ji8Q=8BBUqg?=ACkEO^L zbYm%oyO+e5MdXtguXyV2=^;|(lNl2=;F|z#yG+F}DF#x6Dr;KBbLzAIEU$PAa3-{L zC{9hHPsv1%jla*Lw1lt)vPU%CeT-d!E}2iO#6c_Yo+VySjeoSCE-b55_r>5TpJ>nX zswXn>K~Blp6>v>mRSDKulu+e)1c8PolMH$4voTWcqXAkqbwmW+b4p6nbC!rKSGfxi z=Cf45-Yjqn=m`th=VUS~&&95ZuIUI=A(Mwfu55C6cFKm}G#l!QTxAzT<~F3JtLF^H zr;+16i(LafOn>DHi`LZC6Gz~1H_Hnh7$sMcD8Qa$?&sB_VmMR2!m(WMqKjlLCE9gb zT?Mn%2bpHVjOid>A*Lz1BqRnTP#1=7#tvJ2f8-xD!$d@z=O7nV-lp~Lx&QPdbHMwOQOIZVfU2dwvsXn(|-8l0<*);Ivw;Hr*Tj9?pb z=xRZTC!NZasnkWPHc&c7$(Tl9;Y7vYDe>sTKx1?Y)JCA;v_4X_8?^)*tC@F8E>&g|5i%G!v=yunE~EGM%pQ#zc|j

zD>3dPvD zIE<>;5?Y%E$)qj`ptx4QuALo>D*d=EKpPf@Y=65|5hwuT-`QUv)Z3L-S#9X7%Yke? z6()LYtw1u6Dz#dc-0|+Nj=FWbh2afC@AP!eeXvGL8~}d|Zv_iGTcC=bRq#A4T^^P$ z4}VLShowuirOSf>eHR9_$4gG5()o;^=o4WBSD_+hVmEz>p0t`X04LkfP;+4JOnt6^}T^!Gt442l%cKF@L;s83S&E~KhSm*8>9pd#; zi-dclBCuM(S=+Jqxits5YU>IOSSJis$T(rybIlF|r*FJpi^f)m;ZNA)(0s8yN9lD&hI#~J zo{bT?fuS;++704P3OplT05h@NG%QMI(Q4w_17jq}tW z;zxOMTE3<{z5;T!h?BfgO(&iO&kX{n3VcXIsL7WxT>lsLbsI`hT+xkSVt>yHg?(e0 zT0mx3l>+03Wrc)Ptmy6RAMYIO8AIRE9@ax$H5=JIZ{u71$Y@q$+IaqGUa3QkeXju_ zFM6#^oj8oyO&59H*?XKH6glaDN>RYh!p>1OxEo zba=S2zP>J0EJ|^tY8&dUml-&8m(mlNTIMM(P?19m5wExI62v+r8j-2gm8^$=HmJT7MVrKG*Cz7bV21syd&5N=x(mu!aD8jSrE$Yy7X=8*f^s4_fS zF#%`qmqH3VC4Xv&(C0g5fI4Ar7al?0|feDy*}Iwanw0>?)xK|qRvpuJP$QKX>OW*w@veqh+cK6 z7CGFmXpB4_OF@zA{DqwYBY6adnJj~Ey$@o^n)zWqZEz4m`Y0icb^`Tj`x=%>ol}SpKv;zWTchEPxfwneOcuV7Drix;K zW30doO6l|Ml?KrZtZ7q_VYA5+G4Ae^XsR`CIFMO3+SQ)?6EM9iO;+gbUHvLktj@11 z?Ofd#VWX;Qi&##E%=`cstKC_-r9|wseXP?19DfZqCRiW@eD}AAmU!v@`GI(JiDb{I>JvV#HDT$cdWJ-z=@?lE)N1KvdTI`dD+Ryng`Xmn3 z>4fnWLebMb9(d6iWYXNCrcd0$9m6|%SA1WXkm!GqVX_wWjI-JSW-dyD44xWwJdd9B zet#BE6iQ9FB)IPCR$1oB>8!+=j^b6*L(Z6OBUn3dH24zpC~BeG1l!+dAXx=JEF)Sp z0e3X#(@0!?&hG~LwCl9_o{WOU6*H?rDe;QcKJN55|jZ(P!*&To4=8*1l?PE4c81SSF8 zVyRR1H*zy|t}~5@fCXU;kE3BSE3jlvKh?aBJ4blsdOFUov3H*qS$RU*OfHuLKl<5!OG^2SD&8Hpsn-WVYCnXpj^ku#z(VpdB;Y-6pjz9U+08HW$ftMR^K+>X&5Wt?K1>=cdLBe7Y1D9OR|J% zAC6sQPBfXcc&;V9jjVuftXT})Tu0Zny|K-Fn~0lk%iYFSnyS0_Zsv8d_i9Z}0R6qt zJW@Mtbjb3iCmdlIqSa`W%YTwvTUDdf{0Q%AxE_CzdIe$}pV|Ekr5sSHMP@U?pkeA= z@;b}o;Vt(fw9{sT%?4M!zs?g0UtWRAlYrC|3~WO_oOsns!?3`6=%b49?G&Q+71TGVG$qs3J7TzyX4`bqv9g%s7E`lI6nm1E=YXdHp!sWv|)PJ0NDLyEHyC%pT z;%dDt3^OXS0ZM3z(FED6owYt2873wvk zPO*g>uxL$fy)G=phShgs=?0ZgRI7eq!afZiqcRR`u{$ z)xS)v{rj--Lz}bOBKXFySKR{{PDDmxfMYHNPC)}u4=-8W_e)lRwbG)K-)^rbRx_{9%-NVY_;T5lYkDyXnHB}$; zy2WC}wMp*iS%0s4r6;hAs(awe<~}^|6@K7r?po(2&wu$We|Y}uE7C={v+>!zQEdS71RJ@;%3q++jZB$T7U7bTbfpKR5r z)qAs@$A6=+%J1KcRwK%wy#FP6czVrfoO`* z<;Is2O(BD_11Gmt_pU0$e3o0EyM$WQo~zcQVt=oF&$J%WwOb~A{G;uhl|I_`MWkTt z38Pr!_V=@ou3f;ljIZsouG6Jt7WOJfY#af-p>m^aq6Q-EsCFD(@%w>D22`HJx8!OH`pGiSR?bL5D`@&fT)8@?jPH`;n@$3mlifP}T(DE< zNll46{~2HMPk0<{mXdGV_W1cZh#%Oz;k)_L`QTYtSem+(ZiAI>-AXeuIcy9Rnm`U= z$%b1e);GbmwVW5m14XB5TJIfyTU%k8XX(IwymLxfTqpVZrb$NmCLFS@+kafg%B|nQDOMYH}P*uaC^SN3{N7r!b zE>#L+Qx{a=QWgJpFiB#|(70{z>kBGZKH}$+I2H1XR`069>yIF{o_?k@X&k)Mey0ijq;h_4d!GfPZ!64zqVHyef2?&X#2 zpR%%=jbn7x_N65q&(nZ+Wt;r$DBE5NF)h(l3BO6q4ImiFt8F8PJW>H>z;xYF{}~sZ zQIbsevgxfqINgr5`gQ607O);Iy8YnHPSw=x*A@?Bd)t2N6v+%m(ti@I+s+WVQGf46 zZ~yhn-pS5ka^u!6Lu;!MOBiaTk2N5N7e%ZUf5(um1qXDxiU=BkiC1l|oRU3Mof_dz zq_kTP;|a!i;8Qv2FWOYv<(-*}3B20b-(P)qscX_oK<4G{X@r6faPO~tA644w>resuDxJ2*Hxgm>Alta00- z1+0*mS#_c6B41T9(_%fPE#SLr9!Yv$(V*@QpT(!lt zb1|l87;q1M#bUOEWC@)%K;^SrVeY3qeXNx`et zC6cLh`2bk2)qj>~Y=ex)({cw}bw~_WvX|Mt5AoG>tlw{Z`#os3`sP_Ypny8^c!rAa z_dm4V0$6KUvH{P@ZFr@$JZw1xO8HgzSV5KWVBys;gg(`ld#dZ#vxk5UIg`?CsJ3%B z@C)5zf?w*M4N8FPi`_$nEmeA!`hl^e=iX%8Y4!$PY=8d4lYi^{?eU`@{`R-W|MqX+ zKlRaS-d3hbKJm(LX$apxeXPJd`CtF`RQ;b<6_^c?xRkBcEAkkGynK7)eQNlhn4k}sKa(j<7h(V zlt3uye1CP8fts=rAPH&hC2&EIw)=2{%0?c28G>Ka=K>yC4Wkey0*IC<t%2 z%PFtWxo{V7i!2887T}c|Q5709xLCrj&y}KseSfLPw8}utN!hh%JzB4}L{Ls@4*8z$ zbV7UlBIQZZ|LRJi$ppgeXHkEcr&9<~!ICA+IILpqX9U63KXBzT#IWYU#kzUR04g2T zOo6e!p=D%)zHZd`*J2OqlZN2N3VJp(*^_r2YUk)UwhA58zy1%#NH;;QM&QhNZE1T6 zLw_dg#nJxJj_Us=%PAqrl{(R9BOMj5faGa%jb5^PK%GwI3Hv89&S>8NSJ4Z{2D$db zN<-J_es|CX-L|8LUpTOew?XjlOm*m}>ED{xodb zLW)jr$-5U*-%)N7JVVJwX%RiDcvEmx>LCO?fp?UlA~Y~Cp$@#`#b37ZgQ-CcMEPZ0 z(9j+&vc&1X=!nV8i(_n)8yo0UbzWs}pi=HY!8ZZg1j#QDmb_g1!BvUn=`Ekrk$*n$ zlHSO%wpI9z+1kN($qUve;4^MS^YMs$+xye_29}uQ;P7=LE}LC#FI302;bqI{ZBW?S zY)2cNt%n;lI;BCDnp;yz0J8sSrH8f6-=7`9XKt%mx}83${7#oLGU-)|qktGj(!1bWlLt+Z4Mtnhm9OQXnm zCjRi~kt{K24UPSsy-{_(eH$r$zwFS;*3k#iR&w4qd$@+xuHQ}9m6+t46%WH_@iKGiw`h;eOF zGZ8BVziE6cfPu6mO^dVUuyHV+P9ZSJ#QIFKQUj2}XhUp!@NoN?Q_v=*d%BKOc1hu` zM8Kll5~|~4OFOO!u*7bEPJfHJnyED-*3>;xb%sqVpFsG0v#JLt{Xs*ZZ%&$3+<$p+ z`1ev(SHs(9rr^Z;HOib>uoubGb-VK;JT zhi>-Hhh4JrM4MP7?sW~Q&d&$^*WH(pM~#zfmU`2yWV_Q}Y=5TC;(rd0jt2*O^*s_l z+WzRb?TyP9_jS_U@1E54gzRiP!k@MuDqY+S)~lNjreSD_g(2nwWesNXrgk30owg79 zZF}MJ#r;r4*^~UYxbi9aBJ5mLEfxdh zffnPhvBD)qX6Q8Y_epj`(c|{F|K=35InE0C(^?Zr zL8x#v>7*r;1?#mfCfim4sS!MjYN51PR0)^)qDsh4ivYb@2nHEX*Ku87eofjfFd!b` z=4$MRdof?ZO6}tkUZ7Q9)10H$i~nyKQ;d1?Fudky1Sdy5cz=BsUKCc7L8L7ARPK8B zRaJ=14vKE7xEJIe|E3H>&ZqumI&Ez_2L^rX%bthMX^PA6qN>ULIN$~BHH`bERYnH8 zsA@y%{F+p0?)?^~qNI?mzf&YLnq~_!Ptczo)uNM*I%?)^@9T9uhR>Zhz3%bR;pvN` zm-~9X!x71LYJXT|nSQBJpldE@+6Vej`Q zWI{dPi;&TIcC20LUgXQsH2ErB0;B=Fd?9#?vp>q(A(S6xQF0xlPmDQN%`WpKZkSqQ<<%rG{zqF)z3v`_Or5I#AG}b% z2EoNus(;lvJUZ21?`f?mRv0Dh5j2H7hS%sMl}w7{UNqssF?F&}ef&|D9^k*ntIk97 zJuf;J-(MGAvxRru?e`CU?w#)Up7##-?rWo?#dq)4tw9g^`K=y5?{BB;Y4qOz3DctZ z>k4bO!g@b<_j~tw8cQVgd561(C@H|vRXoX(`G0kOPn+D&+|M6)y;WoUo>!vA{nv%q zY#~1T2W)ny-NXIUUVpE9yoU97qT>}xxf`@MKKPm7s|FC>FdfH`wOW()GRxjOF3!5q zO?*p^*{T7@?!M;dHrOfe$B&iQoI7vgTMFLcelR?j;sFo@bZZ7duZfVyU^+BC7Y%y- zF@M-=??W=2&yr1i=l~ym$JC+tRrrigk{dH!JIlii{e9yZIg@Lc2a|M`#$)hhO^Zlz z96ZB|V00$PfQuwlJ?Zra-IGCY|1V2;`IEz)?z;fLNc+R_hMb`Pqj7<+$^25an9DP4 ziOy_5q5Wo83@&q9uxl$J>l!cCQa!!Uy??L|pV#=riZseG=^@9-mqp+RM-(51>F!sno60BAW@VxpdSCFuBU^^ zDEUB<47jX7{9nz-vvex>##>>K%0m~mk!@UP_$&wyGWpj$f%Nte(?TFzv>1f@D}UWZ zfu##(%%)}2j2s$9rwSszfN&k>DYh;>47JJ<(35BhJUKXOm*(4s;IL9aN8{#pOT;DL zN!7U#@(jBR=B@tgT?fpc+&(q1M zMNAcK7~xwUAMEN6%b))vdL-m?^?+OiK-j=WD>S?|#S{>Cs`WaI6?c}pRkhk1YQO+y zbHkPWcOOH8llmH7eUr!2X)@{(3)xMl6e_DVJ$FKul&p_!dK?2^H-F1PuR58R zV0ghO(jG-yQQ_<~LhHb+PI_(NjaDqGY1!7MZR9qaWAp^>{1CBfl^mnS)GO2gj%3|y!Z}g#1^00R>Jg&=DpCd?!7m(}M|U+K3gBezT&#TTQTG;0jB!#Bj#YMxNk9B(ltD4Cj+&X6wJOAi5i)w`X1nqqGeQq#AT|CqPu0>) z;^LMcp4&0~MO)!1bq1(Dem<&Kc3hVIWfSI zI$_STsfD&+hP6|r$TfgBg~vD)NS48z_zy=&sXkFLr&zQGc<2KVg^AWlvc1_iQr#e< zv#5DC1w6t;%k4;(G2@%&^fjKVA?DHZae8s7ttN8ClqgNjFu8~+p>KbRDC3dMy2bq{ z!2u&u|KSb8o70ba37G}-=ReslIWxr`^vn^%8>SSpSbWk$4RW))IoK){=WY-qJy<*( zj?y>02D0$xG96wrK9IH5knejS@Fk1dKC$N~uOck@?aITh6s3~k2xM9Y_VKSxZ z+Epi(Vj38W(Gfd!m@X@_M>?o9HlJkJD2ceZfPtVAV)==7d(%p6c&1Uzd2>I~JRWm` z*ysrz=RSoK$iaH-v-+TUf_4tpEnpa0y^w|oP&C|qmPZTH0a$;AWCy*`Gbwz6i6ipP{c>_%KXYm}C(f&M69O`IVcN7&V6-2g#=P@ic(R1u&Q#hvzXUXg) zQGGwc`94M+Rz`}4XH-FxY}%A0Rr9r?+*9{_L1F0OBpIt6o_srm z>9#ZdO?xth;X;4%03}6t4kk)#PT8c;rf)Fn&C+4{w=s=RQUUDvqIlOIWx1vig1hC> zR@b(IC(z6kn)Z$?*mb6E>JSEWo;;)ShnK5oQw>+z4L1(hTC3VWa#V1UqCqZTe=LD2 zyP<}maRl3zMj;u%>s=P@%8CMpOBOr@?9%4eQDjGFhlX$#n-_7H>rx*aox@ zJ4)Sd2Q7@YEnm`(lC${*ur%n-@{-m<#VVay9uJeVc=%rLX(F?VbEQgMII@Q(qd=iqCxr?ON-r>MCe8x(kpP#406b`ALt#g`ZLwJ86U7s}R<$7$M(9%kk#DZ8MMNv1{pY3Bv z{(9S(J2vsUv$2d}iDMPRFP$ElYw16K{u2QR*|@NTvb5rNMCv1L@1m7`ik0?`_IrJk z!F8igUr+llj<~)3_Tr%QY0&+9@96n+|MSc4;lBTE@1)y*;eYJ?XAfPS{O>2d=dXWz zFAolX@(cER-4f*EgO^9)5;(M;?sbm`uTOfV!dD0VK6qK7n@v?=uRM{#(b3;e`Rb-} z+zRT^acMXQCxa3SUc7$QJv@EhJ$R`GS;EiZPX~uR8sh5`JYD+Y^gSo!5(lJ4*I;SIg;S6EQ81in24RM|}iYWo0mqUNYv z&4);RLGve%n7LYb1f?;H&wh(HCCt;8a6LIgk3)ZoY8L5e zxmdnUFeDPE8*D=+tvgx3tm6#!Z_hV3Sw0?h;?YQcCur5KF5d94=|JuAEt)=Un&L>M z%OQ2C73godGCTzkiLOj_?`qTf@R3&GqZ%(TjA_?7Wb-cO-H0giy@BaJBqY!_%Y$;7 zGt*(wp1mN_$8?vl9&!%w=}Uix+7>V*fiMAV2sKWFPbPbRwBug*d zHI?s~7Wnwd+a<$(pm{kq9t7Km6*WNjL-j{Gq2yb}!vqOzZ{RHOw90=u@o3^%e@iS` z;zivg%QYTaE?U|y3fgw)ZNERy!tQ|SOhghpm=uTH%Hx79cZ-g zh1azfb_NjkS3P#eHdSe;OJ;mKKL!`viDol(vSEebzcfWABXvqr|I)5IF_Jt&rlj4w z(}XSWo9)bH^I93uk&l0k*zG4kW;$%u@Rry%oLd|H{Zn8=(H?Rk0o!K}Y;)e|PDb#g z2X%l|I{tl1=`KZ7>(h>F{;v1IY0OGZxJ2$fCEe){#z{(Wy|&aA*r=0RVczl~td+rZ zT6AO}R_nwj>VEe&OsDXzKTNy7E~wX(y%zvjj`8KT{VdIAmv?{Kw^2ub2yeI^(*S-d zHT*Jm?nS(fs9I%HZoCI$l{@YJsKD8wBIj;;iu($CDq0%|Uv2g^(-AP5AkkTt|7JJT zB?w%-{{@a}KG7QNq2dtJanZY8IyE9i#jb_4NJo0@AbFir8`Fmb#;8K`{Y{d0g}tf4 zmQ?11mG;0p@P>bs>3exxe3j{qcmh%NWyo|rR4vo*CMnQ_zJ#Rs&8})h%da7{34@`9 z8Qn82evfC3rVI7U65fVKnu_i_Thab7k{d8}Z-P6>603`D9_xA}H(XBs9t1Za<=2qg zh`(BW>Yga^M- z0-gi^G7e@u(skL|z~Sku#Aw1BUy`sus(uv{YiET){60B4KmRf$g&pjAjsom5`Bhpp zWRWjPU})NYl^JVih~DHPoh1Fs`D{PCnS2?dqcrAqsT-c-?^ju}9P4~ZBE={58o7s@ z%D*yC6Xt(`z^T{MFO+wf&}(2F2n+db+cEEz8TyymYzgz{nv9=_^tBR?Rg4lozb<^2 z)?e6qUl*giIQSzk@)zl^u*L!9pPh1l#AU6h`-QFQHL*r18t@Oi#E-}EZIbsO+*{D- zGcNZsG1f<68_xNMr|`=pzD|Bs3JYR1xV~OMBoluKOP!adozaMSsHKRHQV?7x9qA}I zC!Ylp1ruH-CbZ1|Z6Ub1EBNz-<8iT>_ig7QneD~1I>uDQwZPvB&wQ*%+aBF_;hS{TppLu?>o5*l34G`l-b2iwEb%aJ80eM!UY)WRZXD zBC$>otB5-jyXIikUrDQ?%0-1lM&)#?Csey8@jvpNg2^zR7V|OXYt8W8tq3y!M6Z&` zJSuLL&Uyum8AtF~jH>afclcVT)^T&_Knt1p!PcZ|nDPNW($7E!XlxNmi~|LfjRZP5 zj%SyYZODA$TnZbqQm*h~tJ=IJLIHmRxRlgY18Mt>QNMbi2Hef_cyfU+Q*l0FHLnN! z9NA^6P}U>?g=&J8JMKgx=R40v|LL_6^Kw6^daR^kb%)YG5J(8qJ=_n{MU=VZfi51> zXW2ePB~i{vjOaBE0AbE1mTsa{C){#KWvC?J`oyBi!|!&ew|20T1tc|84YPmI10^JE zw{FJ52MBm(N2L&WG;lHb)Er&<$Gfe2f*H8;V{J_^m zOx=I|EXdIOy^@)AyI`()D%eXo8OS%g{Or+Ib(=l*eakq#k; zehPUpls<5)#*`GOOArj~31(FQ-_g`&H|bD~ZH^{hIwp^GK6Qj>9uR*jsEJK;mnSwO z-i#0mBj6V*Qu}&Z$K;X&CfIv1nBGT(n_c$Cw;1|~i@_Z=pm zmc&swHbb(oBtHG!j?$wZD53N`%gM^*GgyF`+Tm_w!sG{n*%s`x%lBNlCkKbM8#!ZH zn#%4>q?KB%1K4*xsUqJ4@QdC$K=l|6{vK3a!JH)Y)+p|@^E0DEz|}{3ov3{oFEG>w zDa5ZU;maa>1%ZD~<6r_7G9!D-!s2eRc|1zh!G$pSSvA-tG}nbHD~~8}y6=B_k8qnetLzms>hAB8TY3pC zQHPXK6F2W~%k)Feok5!&f`^uR{(0($(rOYKQoY z`tuTO{d?84fm}^=ZT@>by7qG7Bnr==q?VhREMtN78!R-ys{e1Qj6bMQ#B1eoV{Pz@ zS>6Te!+jkSRh#jm;!JIcd~ zQGAZQcZogsOSZYxqqt&41*|UhJK?g1mpawqOI9C#OS(X_O@9^J!cyn(71e_!&)#NO zOB{cy%Pkh2s)@kOb&MtoMqDi~hn8WMk(p~*`HlC~UvcXUY@FNLGl?Bs)uDS9r~HB^ z<$cAClY}Jx>+xpv<42Jg_7l};M|#)%@gqMeIR+W^kRK#`*?so1_X#2F-sKt0;dB&I!DKDTpA$fQ^4*2LK|_Xe;W^r_(H-MQY0tHM_?Li~v=o zH@U=!F!VX1@?x3{)AMwQ714T=PQ1=k33wM9DD>tUi&Cnhk*41YSG8WnllX$hy;01R z%CMmW(G28{8UEJR!K>q=lR@`zuoE2}_M-laqt`F@qr=|My_2ZlJ?st+{<{aQ3r&C8 zqi68SWpvVe-aF|X?)CbAiCS0j`$SNmu%sC0JW)J01m~`FyxG~>GW|a8D2|}YrWWi` zm)VH)t?lqXSf+SBO5)*Vi7tu+N(7@gqd5!RGaeTWY7X6q$c$lueQ-M*nvO;v%Ka8TmYhsAY8${(=s6#U{OK zF}j_^SLqPl;;<$tdnNuur?z4m-%QjHTk}FIU_XBBA9vpzGGlLAIuG2HDLn3I?JCT$ zFE$aOtpw%_9*a%Uaqn6wfklLII;ILP5+xh*G`S|?`(($S?cl^La`yu$!FGSF-3h%@ z3y8mfPTo(l8^A9rcapzgcI1j@zNKYW-2(Xai%4mzFxdZpeswtdbeo4UAv!Q7(Tu|20pC?-dI|-8>m5*YQN7Uau8L2LAYwL}~|ECcTt2a)?jj3gY=)P_)>ZI+{4__qg*!i>6szyl*U(`rsI=1T!AM zoTj*1!+iVV4R|gU}?qHju6FH8o1b`VKj@Xu|*u8&HEF{DW_NS;j z%+o3D`xI)6^jVZE}*$XPW$0XL|VXAuuECluj#$BS~V0iX*cr(+o&RC3XTd zd-w?&g^qNB->qq;AS#4x@~gvz!)7o`kjcPQ=Rl9M1UPY&%+!DSN=DwMn4Y76o!KSn zOt>w^5$X)2EywEX4s^Gs4lubY=NXO!4pBIqB}&#QZXcu6CD>bAu|(R|mPXr-ZA?<9 zn&p9eyR%t5e2;SE(@xY<%%`Y@-#{iAWorpoui`0%1$*#}ktH@8O6zQ%jz_AXZQr(4 zDs^Yp8E!7yEku9r`7?m-UYpzpO<+CCuFlkW08nMc{RFf$lw%wK%R19EOTmX{VwiR^ zTDs?x`Q#?PH4`cK#o%+S*BpHB>MYLR^VAUZtL$1XFOYZ9&&lvfbPUr_Y#paMGu0?L zPbZ`@&^m)WRLM^jrpdd4nJ;EULf5@Yy(001%N`KGLti z!6%4|p^k-2iCW1dxw>VpA~>5A>M|cLhmPlIo^)qOWQlqBOc?&TxA%m3c|Mte?sjzr zLq?5F?JR%kBrPtJC0P48Dr<%S&yDU@L4(GCUu5HvoCExJP((8ON-2($i{-!`X9dpK zj2dB2`Kw;>!+DNdgZa+V`8>^w8NZc#ZYke<2#}szbJUC8%Y(h6<3Uf20=^^WW>U!D ziBf4~=`fq(i-Or?yo783pxxPjtJ9yEEqoHf0r`L8$B$6u;eV@R_UTD?|KN3h2_b!y zpQW?CG#`#_C-`keRML=GkpkHO=Azkrl&mzQ?hGVfd0?^!N&8^W`a~rQjl@LDi7Zin zEwhGBlJj{omh#(tv5Ltgi6P!i$&AVSB=1CrS%mh$1ejupzCgPv%d-=$#J^Gpf7pgt zC#HY17;FTnpXaC>=`BN@KT*^y+x;LD6cK}XWh^zw1y{IS^fPrOR+&U? zrZro!8B;gEs0Pch3D9VeLGZohlmPSz3SCvp9vrp4u8xmV!!4`pj{d98cIvRbtO9&1 zhQszBcnG~nCPkJPn~OB$C6rtqEGmj`x_f_pt0StFpU3AjGF8N2eS`B%gtbudInUE% zG8*5a^eLhiR%9~-4DE_mbvjX%uUIiUQ=O4fYB(!4S6YH%#J$Nye37`?IesHK!zznW zG>n19Ik}?#U?@N1d|=;MULa*z9fzZ#q zs=-+%q2mV^D)=PiF9}p@elP!wRPB3Jh47OjoCc1R4?4nornSF;s}4m zXux&G7+{X?m0o#9^cI&VsJpRr<);h;ul(c|nA?tFroJdHG+=~PQ1NL$Q`~=)Ua1CP zp}mRewP|%YxJA@>ZE*;(mg6W(aQ8@Oq$%L)ThgrbieT3$k-B$eYaW96rr&`OM(wBC zsLgEI#ICJP+l0ogt)bg=Ys;FhFB5wU0?f%(i%4Eh)mo2vT-t!V1j4xGe%41CDx~da z5&f;l(Tsr^P+zGf!^=1Etv-L`A167eC~*G3BE=H7bijAOGp4`Sm_C}aCv*cuJ9u^* zDl`u-(TRsH7FmKB!#Fm&xlG5}5R12*T0M+1sAy zN%CpQmPgZM0+y0b%QYjeU!h^|Ivypq9c>`6g(gEZfYZh}iB#1nn`(a(4chft5}Jz% zT;FZTy>d5{9kXqHRn(dGtD?N6@gUn$kNCRu-N0y z4_dB*4S;YMHy5z3q#b{l(=(rp865eHYR?C7B<0HrV6PahyyuvfD9%^i2gRQ0|6szl4_e7e)6M4z_-TUQ5uLDI17Dt0jM3}j7^hVU zzEH~0o!}p4vr6C-K#l`;$({@~!Oo+JnL)niTU}MVyd=5e?-76LO41gK4n3gswb{=} zUfWNz@$FTXPcPL9<U4&XM7Y7p2u?qE03O!(~HX)uK?+IE<7}-0s5Ka zSNg3T2Q?lgOj){9;1v4cHvtffZ;+kg_wn&P%B!hnBFX6^1|1QD4!r!3FbR(AY` z4N%VvDn7LX#mG=p%KqJ++y?I7q5n5{#M7_OF)1v$TVtj9GA_~xw2J$k(A zv#2+9MOsx#juI`g=0);zYN?n{qsUviHuTLjnwbCxZ%|GwLuDk9o_y*%0D_0HJ(RuC z9-!JWM+twi0ujdj7Z+^v)&CRaOErnrlzEw}!rLqA!xh=xGHeM)}m z@h@3*6cyAa3fc)2yhf8IqF5<7?A3>4;{=+Te2RZUS(L{q=Atx(lmJ`M+~n7UeyCKx zjKbca!+6H8hqyp=EMSA>=8=|X`&mc}r=5ezDEZJv)Om^B(PwR-Pqm1_>0ms3am<9whYc4$55%(E{A-*7wU$W9Bb%)>u#U9ReM4^EC>b`N_H)w7{zM!CpC)vd=2 zHn3=^ZbJ5HtS<0XUBCb0;23KILUpxI>*s$uhwmJGy>;roTW*J+xgoGCN&pk3MFjVw zZU;^$_$km+fEP_b*yoiHA{5ghmOGphwM?^+kdWb=OGydEgR?sbXKw$H|JzANOb!Bz zxvRkuDfe`Ch}9VQnw5$9K!^RjO4CBpA^guxIGWUMX&Y`m-Xsc&QI+XOt%KCVqGf++ zhp!;H2Vry+nar=w)E9id1pjoxZ7}2c_!dyC^)oNxhT?1jTD2NXCu($vD-D4REc7Sy zT44C(zC*p4$aC%-U_Hb(gJ9zzpU^9CVi^AGXfDgNWz|pX)z$&BK46;HoXQ%VJKD%+ zB?G17Kl(&fo`@ur-FsgF%7S3=;sLLGN6qxviRBgx1V9Jr-B$&z zdID=R*%}Y@(5pvJI}m?U!ODRh1->_+UU{walM(ko#`a?P_-4oC?i7`s1Sx-eKox!+ z0*lT)I+uo3GTw-$Ap?#rUPYHE^oCk2rfoCoP=2^U34Y~XU3^w@u&gTr;^`l=?o+XK(4n9p2QHn_tSDiARWGc1 zTY&4HL}M^+PBU^a^h|$``hwRVnROC&{Mlq`qmnyR;1<~TL~GHY78we#(kGj_4>U|5 z7^F)LsF;$b?j@jIoxG&5CAi#a0~*y+Glo9Zhz(Kofbkh~mrEk~@V9*Qn6Zi%?2hg# zl7x#(`S7Y-*@f;)V-D#<_&a0_kJPo?z#LP<4tI2V{L*;C_!Fh_9??>eSfZ z2@a<6<~Z8bE@Gu?a=>NdM)tDYQ_STcT(w-3ETfc{oVHBjO?yLMEJsMa)EB}m5!4oc z{np3NjhYfZ_$|7bo5wEGzH7eS& zH?u+ix^)pd4rjzwx`?WOG`aWnCweh@2DBxyx=s|@(%EgmFpsG_=h{spm7epM)q~YfxQNwB zw@Of3yX?dPP%x_}uxqBHInLt(jzydB)pMw5c1`=r@9>mJ!p^rApK zx+~XdrXhde0dkKLG~*0E5l6SlmTBuhejON3zwVR=#!EY?!!0^NTY~>#xT3& z+;%A?9giViW;j+#gOh9D^pN%5WWUy+g6M_%Db=o=>Kb zlj?sKQf73n(q9m!l6sgUZj|PDLvqU~`?u|1QjuozEYEI=MBkIx$~r8NBZ3j)))o(X zYs&)2rX1>pRbb>r66cD|Oqy%Ki zmmS-1k%5rSAWqs$$MT2mblauzvTc+0UfNO*FC|Lzd`QUuM)t`TX&)eHheGae^UvKSKBl3E!=%J}Fw_YrFGy@~P7TbdL z5KMJ|$_cllcN$@>Z?R@Ou_SKGu3Z5q`vQL{mCZz5 zfkfRPj3thMIoNkMucc8Hj!3f52SSxN*k1uR6yW0^M#FaTV!!X&I!oY#kpAv~9=S)?NF)7q+$^#zk4@#oOj;I!fM;;W-_}Sbctc4!N{K z9YNRJ&K0DsXnD#>JKBHfY(3nFbbzXDXVqv4%ly4l%+FfU<94*oK9bgFt6mi{mO5kP z7FmP*$s0+uTenODE7VwK4Fo$M^!%Ce%8{o9`hsR!$NI<(dUVn?)q5BhCo5ay?f}V# zn+`$!7I5`2EI_sqlyj>PtoT+#edn1{iAUZ(r2kUzN2R=51bTnd!c_yY%gyc5V1*gl zFO77;ZuG;WN3z7AH8gfQ`jo%1?U~kOOT*rZwjaAostW3D0P5|MP{qJq!!-QCy9~j0 z*F%!$S>B2^3@ZZK(ENz3LI#ALXd~)$`~$+G;E?E5QWTKK9v(0C4@hxz#iia0yX2xY z9H)tX_@PAM?b-Y z-G&sDv&fLSur^>_g)+oXr%9Y^W2!ES^Ca$+E93jA*7koqyF32Dt}?+I!522F|NocsKh9>!5-EASiJI&b@Ivym@zhzr+L$Rn55U` z=~QtW0SbSrCfvtwitqGr<=Cn@a9dxSa=K@8!40^<1U|x?g8zEF8U6Ut+%&Pdr5)+q z&NaEwDFgcM>i?M4P#yq<5R@_%T`I;N+vm_JsE^)Tcdv%~l=~I6KT{J<1m?!HH@U?0 z#ki8N*rdCMdUzrcL5LcFqM3d7`vnb01alZWd~Sa#y^1ILS*;DYjz~8AR1aKL{QEIH zh=JtF{p`$GUXwl^-iu7Y`NTsIUmKgaoqRr-z@lMmV_SW45EI=)3T14*@X0J_&@`1B7qOC2HJW0DS#1WomHqBGa?MSUq&ctsXuix6D%o4Vm z`*1xB!^kYADh|NS-AuE|o!>SCGybc~kE;UyFQ5;2@|p~b3dcAXjgC=}*-0RWbc+g5gY z1JkmPo+8We39977FyY56%;N1pne{CRQr%E-CLMN+_lZl%f6de3`|&Lw8Ndx|!f4m4 z#g#@seni>U0rvRR+T5We-m%-nUe)@yv&Lu2r&|a5^BXJA7TiY zY`e>l8!AaIGPHF#LH;LDV^pso&7mzk&!n)*YfPXoE(|yRWSTkzeYzR-ud;vls{7~Q zTcKIw|(b==ys^ zexrI(axGU2F)s9FkM5N($+UkZL;BHoz+`;ayeqpi>N^mgR89p{@!iw@|D! zNqu5*c=`Ly=p{c|AL(bs+hp;s566M$p6YoE$y#^#4~nj&T4bmst2k{i#EZ;$MsynfZ7ja2f+F3CrVSs{gPV z4Zr~#gOo6PfBlxEyJCNbJO}&g8+IY21-_-6U%^e43`Bd)Yo9$;uaX#a=r(IzCWkL> z8VJ%E^Iv()u-p}seMqk`Okg>wYfh7bJMlR&ywKJQLG}>E7tmnFFB7RE(p*_R6+@(V z+Wra$ABb-+^tS3eSB9GnD z_nORGN^0kv(?qdYJEJdpx~V)trO?}$c3p>Gh|VzddQ-Z95U%W;d)fY6+xK_SA!BeuLtJ!E}zPVg*svS z;{@f0lVl`+;;`ihjZ!wu3T|<`^GjCjj?f{$(9H1*y$FA1l!ym3Cg%Y&WMPyftb@B& zSuCzH%4#z~=~*?95OWL5Pwg!XrI;MkK3rxX3ZGu+z45zc7Jzu3%zWH6<-(FlvupY| zS)q?ifkUl0&6bYLwFs5RAJe)!u{*49xG<;J3Jm*+DBVot2&t6i%_c}h-}(#bE>zBK z?mnIcB|d-k%K6CsC&i4NAc)7AV5&HPi&YsFXJ39_Y%%Wi!&&Y$*Nz@SP{q6g8O{Bn zhJs_Aq^Z0NN^gP5@!1OmY%%jaF1TQ^cT7c^1AVI0*-hObLZ235=A{$|uPY##xI^&- zg{~WZfg*~0RBBB*9vO?Iw4HPCjVW_?yDs z=xrOd8qGJ_X|XA7y!4~;l2EMJbx?+#dHNN}N!LppNfu92rub2U>2*({X%@=b3n><4NpNgjakOIlR>=Vm{7pqi*M5 zSx$dArali#&zRnk_5`;omGJ#7P1~eFX?Zm9uil#h z)HA1hqoXO=Q_(u)cG#E?#lrz~zd&!9L~DQLMtXkZ^U5K9^262F#5f!oLhSgQ;g8&idN8vf+$_@o`}Q&PJOTj zZhuh0><>g*aN>qgXp8C7M7ES7RUUts$P)pJO2o3D@1E||T(OO>u7J{hwt*U&IX98r ztE+6SGy;I1S0F);?k-`+;0Pd^>#}&pbyOsiBJ*->Hbrrt+O8GL4D<6MnmcuI?To}h zx0&~1jF%;TY*Ung-xT2=OpD|>0YuqRikt3TAQ~JbJ15=!?g^!h=$ybdfnR^S{ml}E zZ?XuI1|^=W+jDdRz!D>xDS;li20#>{$mz^#1nx(zVw1Kc<44j@l;|C4ScUXh(y@fl z@Eg!Vl^}+6&2YC$`o{#k9K2p>-^<*C%q)+Ge4jmw^NVD*w7CHig{?eK!TB7VP5(hA z|9rDu)AB-=`Miq@yF8k-#SeeNnzP!(z?`*K)w*)=wJT*_o{VF(w8U2s?GKngpC{v} zh34Q#oky@vA9o&YmQGNh{2);$YEH9w^1kS>TUw5e*RZ;Ar&7fT66+usS{!ifI)mdA zSnu&1KY^ZBISMtN#d;a%x$5Kd@(uLp@`xRSYl2muSKIy6TD?r-@$7%H6YVFlPP_y} zr_a&9@2*Ow*AhH&!FmbuGCltc1{6sU=+PyJ9fLy<_`I^(r(XtS!mN&Z7tno?;L+!& z!J{$}9#v4`(PA=~v+03No>uuZjNGZ}pL7V`>8$xh2X7>FBCUSKfv*J?zu;gGK=uI# zrVUmNWy;do`U$$CP}P4s41siH_A*Mx^utgLtWTcF!4x2IO^`H~n$)<7cWqaPL16md z4n4(a8q&1U!yIcND~xSv(%vs|E6K}_i<4+;3(b97TUOH9z>c7w(35@lWvt-EZAc#b zCEc4i#Y}djFQaKV5IEw%<-`GlOPwYJbg(P%ax1LuN%|7v$kl(ab5Fn{E;xRm(qU?5 zyWz=JPJWH1=aRcs%c4rAPIyqw#iqXa#tq8>XDjVI(qNPo)wvY8o*58THa`O`u$AgD zYPDM2qVplzc0hDKZ2sRT(YKMQ@QYvJ7gb^N|32#c0E!w--7ek-)=ISjjKKG94;~2S zzz=$r$p*O4{1$&^^*xZ;_!NyQwpDZ@N-yA4pdE?X3ETI>MX#bNdFy#I0GyU|PjiGF z{_vh5EpQCnFhIh#gw~E8`HAxM6mHN1Y^@VPpQuun;1y<2-TkC|#h3uYY z#O{DKQ@TKRzqQT?-P-PHLgbxTGatyXu-4g_DE_t21w4Nx%M&pH97_xo8?~f6=i(7l zli*lgIF*AV|HWm7*pxGB##ZH)T0hbgKXG~eIGfRYxlx`_n$7AlqV!p2lubq9a^oZ+ zSUXa3LtSR5)MD*pW!K@_!9E-N8R_bWYV$CxaiHkBEQbk)XA`_t>om9EK|EdU-rmDo zU@C9^9G-u6vh!cV3piHpV-ol24E@qki52DxDD2VlDdL{6&?ImM4sdav zCgx3mt>~CS*hHn|GQLi;c@6=nSBdTz;`AY0YY3?+;Rym{b1Hz)Lo zz1r7_qIS4Q1}1qUZL{|U1o+G#8u?m%&gK{ic~w+kA^gNBK<QuKv;P@LujkFEHegwCgdl8R3I^x}Y|7~GWZaF3?r5`*s`{jFt+{8Jogm?0I@ z`iF7}Q#h*gG8LuM6pMGEQE$0-i#Aq9rKHbqyv+?bP6XlD1kJB-c?{patRj;yqs-%C3 zkgb}2s;4p+yTawikG8C1&5utwEOEzq4bO61Sq^s=fqWVUX%Z3#;o-k@njZWY<_hxW zR8AQ54DvU#U3Yu=1VKjH-+i^0XYgb*wEW9+C>f|%m`HFwcNZ_^Nj-HYRXZD=@RIX! zrm#jKR-VfDn`NoC{`u6X>I4hl(XhJmf7guZbEHG9EA z7kHt4C|qGJiA?mik>!8>lkJIPk!_&NZnR-aDcJf`#V9+^fX&nh`v00My)}O{++YjgxaoDs?m2tOs!`LENqc;=>aJfe-Wf!^rVzz4>&} zC>#*CRUkA{1=*F-G0W$W;li;C*cw%Vn2UHon-Y9T#$sR!DBRb;YZfnT8g5E!s0&7a z@0gFfrrdLZ@FIt|msFk>qs@QN4AYz#WsRAK!PnoB%e(RV5e0BuQV?5W5bpiB^IhPG z@4KpyRId&$hoPrt5Kj?91iLwUYQ|EFo2Nc*o>t)Ise7Yp`~lc=poHs>kx9c(uaCiV zfbzpH_L5c`eI_Ky1-|!jW5Ep-66{m9Ez4G)mPftyW)<8C7{@=v8-;&i%%KY@3gf%#DSFAX6u7pzYVS9M$D6?mf$9yHpkoixP8OwfW`SU?;a z4bh|oDs3)R`(W8sq*{MDakW9#PRx{g>9W9^Q4b%p-W zpDhNh6n}!TRu8IFid98J75$Ho4h{#WKlk>YhLaivWQJ(X932zvX}1U zVw~8YK=^nJXBqv*`!wBpq7_K6B4GpC78EG_SM;5R@4nVbz`z{}+iXeb-_bxYq#U2} zk~+f^`)JQFD_VaV(53>RXU(2tn-avW1H!z}Q>2q7AT) zv|e9r)2Z(ZE9>eyp%>GZU3IiNzOK7_T6ZPCKaaw-3($X$wW!>}YuBBBb}-68rB)E+ zTW|Jm=tSr^zcaAzufBt;m~BUI*rDfISDWz~w4u9Vt8cIse)+HxYh^{|&e)VJv`~j^ z$V7{j(kd2mWY2>-bUg59ZABSQ+*9Ff@q;ictvd6?dO0NZtASpLx|()XJY~^WX%;G> z(q=!Z(uRLSJmz7$WQ7wIDw(aqL1DGU`yxRDDcVozPma%K7l$$ISzIC>X)Rq(fVl~= z?&mFY4O@eX@h@WRr!76wMr2t+H+HK&g^fP)c0e-Y045;S9F3#wANK@|v1+HI@^cPYHZ*HQaW%|V%h7PQ-Nxz*2U|D< z^lK?aBvRGXzaoyh@bwuHJLSb$l*16$XJ2kW<!KjU2d`)4xlmM)$HhTX75x4aG(n`%)@^USpsNYryqgy)N68t|4%`8L(vAViLB z1$qekIf;+54#AG3*viUr{rWO~#{8D1C8mG2bYEiXYv%E|J>41a1< z+n2ch)F!z9L^JhSAM()YB;yvEeh;eZj)NzS;R_3HH)^vzH@n*?;{}OAz1Mpat?z;( z6nA2O3Vg=Z<8)s|zspk45WTI;cHpx8$0eG6Dy3=p1MMMc&7r(@<^n~Qg=jl%Gaj2HAU{SYMae7T!U+3_gzZmYGMUm5}?Z_LW?UOn!Ol*p-KkC8u?0erjk?nW24xHcTMp;dQuRA5jZ6A}1eNoyx*}=aQP{e!aMD3q> zd`mw5u1{vA2fx?|C3MH%zEs+IspK>psSy?%FX``wLu%p(=S;X_UzK%){R9x#)t(YK zh}sF8DN&^{q^19NXTbjvvdNUTY-hxO^*c9h(W?+mY_a7i4njYhhlwJ?ET1GfhrZB* zyV~$IhQzO=NrjAGlL;EX0s_jJ=-u>)dIp0@brD6~C2J6$Rq#K6ksMCpl0=+pS-ht{krcwe4^Rq_+T_fJv6x&KV*eUF~ zL<)H{tjTe^el@P>qj?7uuHpl3x!nH!Pw{s@xuC#h#oA^SAfv+{|5SfGl<3wqC^16{ z_kvEjvmR)dPTSEx+dgl5AO87&&Zb9{u3h`dcozScM{-pguQf{xtJLxzftI&{mbbEJ zSm}%v@;@^u8fB59;2U_N9TQpLOYmdZ7Ze-)prCR+%yEE(*H@dYEkfN6_2Q^=r5U1_ zfGb)(kS&dh@9c0k1CUBHMllkA^p7BRN(f{oFH4$8(<|eS5UOeg_*Yo1v!(d9Xi^lN*k3qgyMsUEJYVlT#u(HLsRehS_ zOOK8ya>xsJe&)Bg;DyhRY-0a5RA63!uIU3a3jW6z6PEC`P>r{LgBjdJ1>(L3il})l6C5Y9WMj0sc zl=oHbVmZ9SK7o`Z$@zIYOksaeXCBP%qgOc$O~03FR=F**zn=Al%S9;e&Qet|i>kfp z$^p?4_hf_sn>*-#PFNZW6qwEjrIN#clu=)c^0!Kwyh>+t(oUquXp;x4k3 z)fwMpZ;P(d=-#)v@ufD6<=)GK-XZ%`iL^JENNjHmn#e<{5=i!AeLS$uD(QWw3-V2z zU1mzx*xCZH#nx5>&cHO8nA;Evi}&eRX)80+P;u9P=_&PadJ01H^pu_mK0T$W!U>ar z48=GOj|K#f-7axF7*u|1%GHWWiXzTawZQ1X0kNh-cq7$OKfyqslnlC5OL$DfH*Xqn z&dEE>&V7IGjq0=rcY)3W2w9!ouM^;5^w8#)s1;D^prc{+=hLY=o1<5Pfz~}fC`^ss z3S9Pv*@80JQQ{33P3Myn&p%`~>$uGvHNvr6Ku{4Cf%T0pCiNMf%t?}y^1;)lxLLS*b%;pC*WuSBiMihr^!b6&5aU+o+Tgy=Y@68{qf_ggMRoN5y;y++$LIUeb!|s5Qr{F;C8u9JgGP;#k$#uKNdT zJXZumW0)ZgBz6UTQjplEE%;b)zwQemQA_WIo0RhyUX;c?(^-?J>NM9KbSc-Md|L!% z4!m5A&M&M`D@;ru{9eEH-!=8==+ODd9j*fD=+{o(Z%CenpK1vCQwLB+1A=Mh+{GR+oAH_24`R z%5^>lEC4Wg25?q6H0_p*t3j<;xEV};J`9s78Ptq8fLjoy+vtGr3aT4QLMvKsFa_sj zXG76{&DBYLOv^P-)Dnm%2K}19U3vNAM;6^3V3bd-&7J5u9rC?q)@%M$uKZ`>Kle_ee)q6DIQZ{>9)KX_o;T_JkT!$>MDfnOK$|E5|pQ^IuZ3n0<&It6` zJslX`x2=jZ$MAMdknQGL>4eD}(zQg>u0G5IIhHqPGYmNOp$m2GUtdW3*e~2vQ&VRtZXw2B>4Ii zvux$*K%hdN4*(WvbxNsgo_jP1Tw^F2fUOcm=?F8zpRqVN(-pk^1qEM!tT#U;X7GJc z3O|)PjyX<9rkewLc@K{E=-3Dmz^okbYNJztp2}{-szHD6MQ{K0%ic++I~s9mEBfYS zuKtQ6%MF7(%aoqh?{5F~n|Acgk=lr3N@oE-ZM_-QGjtr%I?`^4YEHrl3!tfgy^4x- zM%oa(zi`cu!z*1R)7^A`pcfj{HxcDR)N|QU1OF+D$E|2TnU1sDe)q35SolbFOZ5pg zE#|r%E9GG7uN7{#|MqI|^OLO?M}uvGsuA#5b-!b#OUVaU1b)(eb?iZZx<2UTp+C9T zp?@EMZcexYUdy~HCfqn2F(n>@z^+U6v_aL#2n1}#ZehtlCfU?~T4=>rIL-QP&5>2q z^DMVI8j7V4s2=Co$$6IVP7 zPQf3aGe+2*;55*z&39!GZaYh_k{kky2Py2|aBJU=eh|}t3U_OSDA}J0gS8!Q@K#8N z8K0tRB)VVeL5QQ=tg=V*dCy2Oii_p{j-P)bwE;^Y<{t5WA%3-pYen+ z5S${zQObul%>h-mcCr2-$xY#C2br+8(N^l1Ib*%iuAnfOPE*>#Q4?|Am%&e?vcZC|vSg!|m0I?X}*l=7bd=f}M3en2^sTO;nndf&@(QpIYjEW+9ix!ve z%fY*E-#&W>3*b6UZdm1_H@l2-Y4~zOI0>)-ZW-u*?FbSPZs?yI4YTnX-tc=P9$__8 zr=)7cGVUtm)n(DN6jynzTRu4dQqbSLBv1KGT{f~9_3ANVwUk%}!PafGfTV2=mt3P` z58V(oPk%!7uja)}KYM1LUnjAMCPjTzDQhBX0=}y7!0ro_npoK5yf-QJK5pWha7#6h zQfj+@E=v0Oc$O+90WVa_kJVNRDBn3%!U@dipm+rp`dA(ac`K`?Qmqwj(Zh~yjKE88 z6{mo%z40yrQNuslru6lT?Z+>m5K8HXEj-@-;qfzFNIxQW)-VPI_5wrI!^v|c2MD8L z?M*wqQ33J+kiNBvm-bvwCjd42w?D(TF5Gv2j+FE=Y=s=nDpPGSC*Ye{eBsO&naMT& zt@LJa*#O=!M9e5KVxqLgIlO^*78hyJY*|@GP(Yu>!}o?cD~{-;EgunYn(NkWcy=)I z^d%9tL-;eD?v?;}HIMDFULJaMu3FL)vUBGJm>90FtLpVY_xSCw;$qe{TnW z@gN0sfU~2}POVQC+7VN-BEl%^BV{0F1ddy=cI@4NVidpXzh_WQBXeWZt?Yr*$A|f3 zYJQa|x@m(N66>NJIy{xv6f1nyNI?ncBi|tw}LJV1cnYQWWE6dnaV!lpryMjs=}>@SSk-_fU>rPWoNnJ0^IOUM|MwnPzEVx z>L9=l#luBp0QrzqlY@O#iyyuA!RTUV4ssTUS$?IkgKkqBV!)zK)0G=}|A=-toP&LX zcxUWhpR$Q#hck_=-p0)wdBH+a7qW1mzghHC33~k9L^lcgzL1wlk&W4Z?Z*?%5l3H` zrrQ%FIx6ZG9ps0DQFTiu=CVW5=GUdU5~z2^SYyg! zs3l_XFAfT87>M}?wjIlVK=kW@v3C=NgE9ceWh~*cTg#b(FNLfV=2p?Zq>E~+KeR=V z8npfo>oE`5BXE)#UrIW4zzaJS(sMb{St&PH5t@|}Q_90da%=?|R>KXNU{Y^MBl^nh0&h*`JP zO+8V#pE6y%gWxiR@!Wix&7}%HQCB;~Lt3!PcPfSm*ytHavX`CkV^K3?wBXt8hSSi!m(i8m(c>T5 zaERYNPRE%V5n-%9i)ZsfDTYrUk;t?+5THdwt;d_uK{U@V6pqHX;;?g_q79J^$dE#e zXk~~C=4Tt-0w`aNWT?0+0%FhRDv(O`uJGdBt?dWkNeAx1!_xYJeG!fMfIz zh#K}?EKJ#xccnb5R}kgFokpWPy;h4tAHt+Ob!~Hs*I@w_(RG}sU`ChmLD1Ctvt8ik z>)ZmWKb2IyxGW(BU|@L7qSX_)EaWM;clGFjr`N2r%)LkSxcUA(H#tf0Txx!UI8tI| zB-|>0beBpt%+>JE5{(u=1)4j=Jtc21viw%}G1R}cXCQ-Z;XKmWIN7Wl@&UNlT|*`$ z0+*WKcF1SR>?YxGAReQQwJixU6FFoz0~Vo5tklg+siJxiBehh(besFLLf{5ZWYE<^ z4lupATctnRKB?M1UfVuq+G2b{xT@3P>M+fJgR9cx09Lh$9ngYG-%gZI0anE9e}yrd~VnXT;SmT$aRTp*w{$WU4KzA0D&UC zmdbNqJTcQY`s<@dWh>A!0K6|6m@zJ~U?iSxEHc0|Heb>X!D*&<8~$QIduPz-G%jk42i#u9zSvo@10% z#!R?85}WheI+3XV(&kZf6C6cr9ksR%+7oMS(uMw@J2==2CtU#LJ{>-!DuJX6$60}Q zaiAbSJU;3l3=WPCyU$+sR!YJUOv*q*pqTfqE&3HT&dT7YR*=x*@l{rkHtJ=6S5W6r z_za0$C*K&)Ee^^UCr-|k5Q>`RSKzsD*mYf+1h-~o{sXR7odJO>)aF2NvL6s9Kr#U4 zlC>lQ;9+1mHshAT*Tww*S~31|ef%mh{*11rLi%~o3q$%H&gyuR9xe*%cUs>ytltGz zAK1^+TX$eT&w5>f{XELbzbN2} zlM0s$&(!8>ixh=QI+jYieE3DxT_81}-fRxy@%+ zJ$XQ+;<wnhQm+F}*ZR9h+0lRRc~JeSsCrN#pH*DnDK5j|7U^*e~)mW_KMYvzfe*g0bOFs8m+fV4BX9agyASN_qq+w}N|rG5`e8UuB9| zc2Vl>B_1i+vvAYH3i~9WP;Ca{Dt%fJJe$J6+Dh4}hR;%e(>V_DY@3~jwnLIf9EbRO z$9id+5@Y zs!m;E(=EM!>>fJ+dB^dzS)tMM7jdqTz?)|DEgvl$C^8d+_`WM^RY$ogyn2da$3HAP zSPh+)V}WaD?^%TMvW$?Bx)a*{p^JcuV77r;YWO}ynj|KBm4@n2!$qX66-r~pMd33s z7nTTb$RS(14|@4qbETm|GiV&f*WI{ZqsQu?D{90NYft0* z-14D4dzH@P&!8O3Ry}{yUd;njT6KB>Ddy2aHZPLE{7Ah%#{^lf;tbBhefwPDcX7hIDTCTCWx-l+I^MN)AwGfJ_o)261F>5bs%jyY9L?rSkWVYhI$UB&zmfNFEwSlVpAF`QWtedO~~+} zf&rqA%e;$jw|SzDRk`*VvqlcnKAk}>v@EZ+ZeZCzcr?@^ahHrq*braG>6o5MWXNJy zWL3>CA$r`zu8@Dw3k*)&72ioQAZ{D*?A82Q@pLsvDA6OR>Uk>AI^Y#dS!V?#1 zMn+Pbxa?>b+AuQSJ_eV&jg!P4@Sflo2uBw$;`qRftDuCnp-??ZHs0wN5qSoGRkJ(n z=`J=d)uD2jO_c}?)P@7--qG=(cVg;aCzt7P90Cn!J={M9?3>yJ96`%f;h<{k;EhSB z*5Ksz-r)5~&rV*RQwu(*dK(~YnCW;#XDQeX)ZR^DzGulen_QT5ZYGjnDIDw^or3Z) zREqD6{+waz9JOq4Q`6eTRBgb2=?6S2cqv`Pe&t84xJ${&sA`_sb7sR=Ql!D|KReR9 zyW0P(NnKcyGrS|=tVojYv|A+TJ_?U>?66r}16UiIwj5fa>Xvre3O?T^+E*Ln~ewoDANhK^( z>Q4hbK~J@*#c+|xQep~8W_KwPFIa;`b*PA)%tA#v<3^x}&w+(aU{v{%H=A8>F+iJ< zeoNTP5nZ!_-7~$u5_VR9w+Xvs&2rA`uM=7_Hfm8`FWZFzU-i+QZlPg6d#fwI6Z17y zy?DFsXwj^rpfXW`h4LI!2Q&q~UH2Rm;Ic`MUDT3!x$Jy3Wnm9+6T^BPn5e{F%W2pN zRSNaKxPx+L7#<*>6R9A%PCjAguD#BjfH1zj{VaPU!M~B>d$bs+ZgK%=MeE z!1zjguSW7psNKVqDl|~Q>5`bltJjbUa)38zvs6DB#1>v@&K9O8x~(Ozr{u#FeJ*?d z)!iGs{D%!bqqo54c|uuL>`%wEMb|~(HCaSYz`-bgxDiC5N{ z2#zp`eLi}Xf|&414PI<&=4i4j&h!|8MC$J>kMmnaJ@sFR;GE3I zL?&%Mb%B zKx~=xi*Otyy5JWlzg*WvKxuK>Gp=ds=Ay!X>+J$F3DGqMftLc6@BP4yBE?EW%uYDW zvjY8`Fl{}%*OKdLP&HFsQN|))t7&s4BVXE>kH&}2CJrUJFBFjuSKsA!&MbfWe6#$i zYL>OL(`>nVJ3fv>>o2I3I zb}lao?NU2eKnywHM7C=X1X3v2m0CU{=;nM=oJ_94@9gJzJWux1;q2M%-;>*xn+g|J zo##6@$m3x``K~Adim$(i2`D=+Y4lB+=xi&^o7fd3wJ&o8MM|OGLMP(MM0mtZA(`V! z)Vw&h1TO>Q_X(&uS8xH#Q+IKOt*rxpmixU!UCr#n2-THB<8C~6nW(r_yc8sngt?Si zxiJvVsqDj$xt1Hlf@28sxq|l41&8<8O9LxP!&)AWv*XFlZW$QP-t2A5OF*%kwb-XM z2if)e_M!dzTXL>Ia2t!NEzgA1eQnofy6fxS!(e^)OtLlh?l8fExg(j@Idg}9?zNrc z3fQ2E+G=n*nO~9Jz^s0o&N8r6IJc#LYuRYWkrnNRQ(}0^tnNdt*%vAr*o)BJ(ioS5 zBjlniTnffQDZLz|I#InGqr`Y!0JNDlP$~QYzve?r>r8KIMqER^U4%KqX7^ zM#K+{1Zt4|XG3NSE)CXk-V5@7cA2x51yWCg<)PJ6V+D9Yy41ru*moeI3_2Kv@#O?U zEG1qS3J~YMLE8$2ejLdCAdgkf@+uvy0*ZV64&X{90O79R!0~?}G>^U^fReiw!*kd# zI6lh`4Mr#UMc!{%B-G*GOzyc-{5ik1p@x626h5N5+$~@Ha4=Up3P#C)y$nL2yB-sW z$os*Ap^>~-(Sb@$NV6~?tNNnYfz?{D9wjC2+9!h&T{bgGU?jEU6q!2NC6;!lU2J4H zwtj@-;`z7tei&(|t3MzH(tm{q!R$`7_)RdX+xS_qi2tz)v(QWR16c6MzJRDJAKU9E zx4JEmjih}hbV22g=l`*P_oi)e9Z90_XZm^kA5NF99}2suM!3})k)xMGKG=B){f&H`d*EeFU5 zV3tiD7&ALT3v~LC2q}oq>@}ZI2_|tcqgJx9(|*nE3ii$r?%G_dPrm=Rk#V4Sou_py*wh%G*yRwM{!s>^R=m-_x%1F zf0fzT@k@7qZ#2*xiD%hnH~_z*Z{#PqAX(MZSZO1gxHq0N?9dL*U1M+{gxj0l3&m>R z(Mk&s#)Yi6wud0Uqu6@C4HU(WD^uAP;d6Gc->0OZXzBss-%cSo!#KYzFf2N%@3R72 zVS!x+t*%gIkYz;M1i+Y~8`xk7 z=e&1yr8txR%580E88+72RBuNka=23!)Igyy-b4`h#b*b6N{(){cgDTd?%gS+4oqy` z?e327#l5%PslPL2M#YJpK!aZ!MMi$`f)bffE+&eMqJ2&{45&__zA^R-g>TXEnb<+S zG7gM?>LrXUUfV|3j7QJuss4bT4Niy|6Nr~G@#(0!W6DrD@`9s`oRB%)hSC_v6ln+J z>VTgI2A8y7dgJpBS`E6$rat>o!)!{l;;@)a2P1zRUfD#ChW`D3K6}jJSG3GQ-@nZsudTs*rA{DZ>wsD6 znC98N2Al9UXZTu?wa~M|ljjX*1=+nEArsosVx1Pq-|7x1rc~Q5t$YN-x~3$tDMzOl zIfQl5A`lIcLo1*mSO?6eonF=N8N^&u9XLDb*KbSyhP1%4is3{p6=BP>OzKjaI-12Zg&s}Q7*^A1?QupP%Je`j%g4l~ULy}S$H zsD8Ble0S&di`_$+?M_$dK=_wzt-H4N*#2WrT$(kXlUyPh{O&s>Gv85EH=k%?e1Zo@ z5^+>ML3E*!69(EfeIhK)6`r4Q%TZUO*_$g(;VsHX| z!F;43f4B#S6*R1-XhE%RiWe*ihWmI!G_ae_0jNrLeG&V<^0xP1RZIx z^oFS6SR9_Rh#%!iL9C&O93Oj&FpU|(Bzxq_vr*jaXj z0v#j?4IrWRNSIpNN=^O~no0~ms4k)p887h8k5aK>SL}^56=~{?YoMpmRiNH6D0Hk@ zT^-3qr~hE-q2gfF@8BQqqDO$aFB;q_E}(9nT)-N$dBcN&X&LlU{|ps>66N_7cnjNp z++oy({AL;UZ5jQ~8B!Mr2ZX~unvQWZkiWq+R0_g$m}e*Iro${0(8p^2Nu84s9K-AG zd_%zUW!gOK5kE)|@uQ<%b*wp$6~=_SK|gPnKe-eBbVG302yX3$P=0j>buGcg%$}S- zo1HXq*yJIhsGZmPgxE`eBQqs{$L@hSg@ShjbzQ`~wb#d(s$vL(e*C=KD#3||F8^mXQD>(29@vD*Y@GY2 z6;`r1`JZ5mCa^}t)d&oKa{nGc<#$HeHanKI+GwM)o~j`?HhkQ>P&UQxBd}FyBtugu7Y$ zD2HT!p=#Y%Qsih|k|R!|6VM}vj?6)lY9{rH4+L!xOWU!XT>1)PUq&P6@*i01`YQC#q5K5(td8#MLn$N zq^Y!UMgA*ZEW1+O{rux+r!#Fq@m*MN!%HxK;&&l1WgX5R6Bs(t^a$Bj5(6G!({>|k zdc3ecKNT`j#yqJUArCt1i_C={ZgjOxD|=b^M2ITUnB97iST{%GxZ$LCG*Dj)Pq7srgRIRT$f@OHMNIMp&BaKCvHC$hhqns_!8~(YcjE? zIy2{a{?4?wuL4rlo2C^tI-3>onIQ{Yqpw#;aO%%%;*hPW4kzl+EwP;V&w)bEDjaf&{`FW?og!Sqrm&0DE4*Z)$yX6@z%H550nHZ+_xlQnP>>}Z#eG_VSd)v47`&cGFki5aG#TFSto zh*PJ93*tOn7jhb?FSx`eR!3~9K>s@wLd3umGDvJYsw9vf zv;;!F4fO<&dE^g-UswEaXR;va1A#tB;R7$h5^SxRoZb3kCj}3SxnJduFPkyXT-sw_ z?KJM)l=38TaBozJiHL)L{FdtGaZVzk-%AM!&gEg&80X4d(CVU`KdBhP-EcNl7&iAb z!q=rgOTmxKz8{3>=M3eJg+GpNbtCcb&szLrqyL2qfDAVw0&-r&Y9UZmjER9xFAkCV zb0`Q>Wk(d`e1h``gVeO4ILOm60l5+)Ay=budo>%1g}g#B!B7-`Rf~oulchPCS~z4d zcPAclj(DHM%Ms2cA~Jw#A(3ZnkXjF@p`hsYS0XCb@2^~3bUI83jP?7nRH(-6(t=}y z#VivZo$k`&W2(115+Su;*&IToGr>AyWQ}8ThoYo2{Dd%>+MFtZ^3PhJWB|7)QgRP< zg-U-$3lb|C?1L14Ecr?;#bN0vSVO#IQj-!e1B`ax4xUIBl0$ai77y8siF5}Oa*;g_ z`DgfOweHP%N?HWX@9D(dlHseqspCAJhLvFQbVl%ME>G5sv3YJs4iSD5@_Af)Vwo4+ zz8RaR=WXCMV)gW#Y+S+wv!^T4=>574**!he7{4dWsu@0io6p@GB+c<@K>m$UYk3#S z^Erc@i|Nx4s<}QrYfH@a@vO!7&C4=yw{!6f?&Rt)4Q5Vd3(eT@XBQjlT9V9n@#eTCWIw{nC9%EkM371@uYZ*~ZD?n?IPAo7r#ReX$Jy*r~9k3tJs1 zg1~FwVyAw5)*Xj8j<{|*bSuNY^xPLp=iK+~saJf(sS)QoEV$sGsIvibi)g9woTUt; z%Wl*NGn6nWxw|H_N$))8bEgg7z1eUYQ}R98`SC!1U)sZ=R-398Y9#p>m3%NIoif2> zOvr4eR6TentGGF`GHbc%Ytsw{LxQb{7!6K=NnR_`8t;uR6rs{~|1@zEuT3qE0*>vu zo{l$WJ9FbqbWInVrZ*A&;TN!z*Jkyq%HuUtbUe7sMG3lAl!vE!ibqG$DCw7@nIIDyS%AGeN+{|5`f|8V9s;22^jCXJbQ#f%r_LR5EFquJ$& zVh>$1bfnMC**O2-nIh8HCIFBf5&FF$QKx~C0~l0cnAR0fxRW`qWEQ--DAL|%-dG)f zx@d;V3!r_^?10fTjsjNWXgQ!|Fc)`d1a1;@Xsb^tz;(*^oNBvk-EpV0QgSsozf-q_ z{8=8`j5(ngi>{>tee+uX%EeL9cS2NV`?`$_z5fbCQ$=>L6IP2%s*2cJn z3Au5VP1-4YtRecpIJ%L@|0%l09>Pw45ZWwzN1>_rj$UmYZ$IBX+%Tc_aVAcKhjkY|J>=+E43Y$LKE@2BhXB# zKaILE+YGLfm#q?&M$^IBwZ3~txe|&dQ|H!!3+WZa+z`|X(p_nR9i(XL<&w!(t+aXyw6f$zAR?ieBWvrR~%7nafgRFvD$& zk-O2>yziE=bAZ{z^Bkjv2DCGnOnV?0m|~YU*eKUto)LY;ig4G8EO=caP=^@!W3sSy zjc{OQf*blHtPCxRZI8j<&1%_y7{?-+4d*Xe5M)a7qk;WhT3wA?Op$z*tVw#fIV)jsH_OLE+R8cdR<5p!8?rKUrLJ8& zccpGnGkc}2?qtBA1;llJ<0nF~O`7GSOl8A#C#s>Q#!!}3)55?rqkoEjALdW<2mP;e z?X9kgi?3uyLII~T|xb2NJ-{|xx@HWlZ&B0t&u!=fV zSFN-$$rK+8$z`;-{VdOAwD?^G?j*Ub3bf$lfy8j*V5{OXdwSV}g}=T0L{-;X=|)8_ zw@P#a>Ji^CeF>&Fjc8JT^0Wl4d>Wr5*=2dGERn1x-Z41g*D8WucYK?bkOQb}f>#dJ z1cTGn-^8V*!{L{In9N%xLj5!u+#Rt6lHH2wAuO-CAjF90Rce?@=iU&-&7pGls8X42 zX;DZbc}^Eb8cP;}DfDC&(Bi3IN@{Ki_LR6g6toZ6)%M~N_pXkvaN<97nI|n%Wt7jRV>D~=YVGg7K0e%f z!4*Hp=4l3kaq!g#oLE<9O6YFw9lm<8wQoDKvG&7%%FlOS>}?;sI^I1r)gcBRS|@r{ zVSDy>D1?hqGhYm@!kS0V_g>j5=pq9NEW&!nhp)GfUmxx|(=}$rgm&eDa$}aou^^+j zW?HO+BgV{x#F;2JE+!!JSr?0Jrbkg@VTzF$vlezr*gR%VBVpJ0*y?e09@47(v!K>C zVU5*)%*^nd6?Y;FCk+{OSYjf0TiUOuB7U%|ii%u^v|3)wn zza8eMzINH)-9Mr-5nlRM_B#w;-46S7cHJ+3^*26j9qxTl2e&`?>R^B<1tjn)3p|Jq z&_f0NcIZ{^imk7;@s^OY4L`d>I7Z9#DQ>e|e%8%!oZXZNLT*7bow3K~?<{_EQf6m@ zc31IpV7G57OS64jH84tLe>nfDD$d09L`(3hm`n!1wQDxnRzO!K#f5Z;(*S&7exm7r z>InvC8y>yD4|3|bQGqR9KH11xsy|>kp-1?aJ8VT1__E9BQoCM)(rSlrNrG z!lxN|d>S?FZmIZnQ*Nu$ok@aPL@434vh8dj!uo5f{su6#@7@Uf<0mN@k$m;|; zoENincWv8o3a?z1MjW?%wMQI(zid}=^pXJV46Tkdk|PiAzN@I;a_%MSF zO3&5Z%ldz;dD4=mQh^fp_(BVIq_q_)7G0B+-N&{tF2yJ8D@#o}&H2+!9YY~24ERT} zs`_T8g-tThca5?- zg7+aGPkIj)OH0gv(`dSX;O$*xfZax6bZg(zi+_~lv_5{~m#RleW?h^&$z~Uf2y$HV zASv9@90RucPm%cQRIZTyLIX!vsUP|c6o+!ia- zxn(rum!H+h{t&&kL(w&3T44NJR?|~<=OU^(j)mg;#@?iCJu*Lk)3s+Ui1uraainj) z=2*Dppj-J(!uRR;9UaVDO|$g%P&Pl5GP%~j`hiTX#qaen-d_5FuP3qjNi@;_|J9FS zbRq8d45q9oBj@l22DkJ)Ik&~Fd(iIKoO1pHQ+8xLdrIffG%&kee=ugZ%@F3c>~6mR zOsQpgTNhOt*xufM3{{%h-qyS-C82#;6ce(NXnfZM7Pc0acb)hJWSL;UGMsFasV{3S zD<9H*IQBt%Q&CT@Sy*o0#)XtUZ#h%Hc+Z=v_AxEHlDqtUfDPj-a0aECf=MX0%@6%-% z5qq!pFoK~(5JIQth~Y!{&aKfwj;aD151v0w#oy{ZZ-=zEg+9 zfnJRxq``k#E+q@$OS4ZE5Jrq9P!f|Bw;y*~`SHIy=)Vz_qKA~Bl^jt$;oCT%?%R1} zPf~BZ{=V>ki)*kgq7Y&q$-42aaXUHak7AdDjy4MoN}>%Lh`Uc zuSOlk`=$;Tmp~X5k}uxr0(uZW7hhbg)-sJNIEv_W^z0{M z6O)!;N8loYUesGM^?O83D1d}}$Uxc#nk%jGS9@{E7|6!e!mZMAVO2yRSnOidaGyXh z5$}oGYbCvAe{7$=(~K#J_{@k_QI{E8u03Y#7vnCWy(PoGaM{_P2E#?}bYv~po5pV& zccu|>6=5YjR~iF(4o@1r^~RAV*nG_%ME4)MeuO0i?}kW_+IkDzbD&8efL9oIpD9HH zzlw04i6DdZozWZaRt-F7%D3HhoY8f=cAsnQvgaqQd;@dL*^DeWEhw3 z$U&wYv+lq@rVgTg^^Td}JEnqQX+Z{KCZUXzKs1tntZxkcuInLFie@C7d(JVaQfTZM zQv;i@f44Swn!+I}jiZm&CB!j@;l`21H08g1RDrL6Ch)I75e+kj9a#1T{uht}{#^`0 z+@`-&#dWr5cd1%;*;i+&n>$OzsY={cibG;A+*7I)w<;Z_aKJVEq-vm411~8@>lnu= zPciv0eWc_do4ZIgbCasjtyOH!S0AaH_((<1f7txaCsr34`kqi(R9&-p|0q99w88I+ z+M5~c5n|3!u3TNqH_Ae;;TmPNH#GqM?j55Z0BSDEDQf1X-*WK;Leo$rTP}|NsiX{)r%=>;3 zf9wnOf3jLz_^aB;+tzaIE$rtn&h=>#C$Y-c;_DH-izE1@`B>b>*?W-g6)Ai9IeDJj z2x#sct~<7wpZAoMoDI@T5c8fu;fc|s;IC@cnNYTy`w zVD8H&La*9RJ~?f#borV3`oa4|B*q=x@!IYXwKlw#|AYT7DYhEl41;Z!FN!7G>%TC% zI}4@Gu4-s-gbieOi_B-assdtFeQB&s--`LdxW492|eVJEC1)SK1)O7`^vmd3t zAF_qx_8|)V$c2i3AqFt~67>VomCHRr7(mJwgo?=<>cSe)S0XqCG+w&C)(0 zr;J>8;}ycgiN9UTgH!Gq!eHj}e+}W|6!i-sz){Z-x9B!JL#T(E`8cSu@GYPZQ3LZ} z)dLp;T9X>~C=ry)GzQi6P|I3T<5JPneV5ERF~e+??|A*>`k z4w6_Qi>=o|6gLvXEcHCFwYw43iUlV5>{71W~!tFF{{yx96EqwUW2to8a^rU-Pg23Ag5-U~uY=JQS)h z><)Ys>LT1%KZQm6DF^~)e+<+4t>xBy6)F&Jf!+!=@#?F`LS59jMW2Pri*C_g3$<^# zubvAx_gqNRnYj0YuD^Kyg$g{Y^kCp&*YIJeiC_)<7(8uR0>^xn+Qal^aEE!@-V8N# zLX{i!)u-VmJ`IU;H^1q))Z~T6+~ zEjNMGows=7C+$6@@^TncXYJU&3@f|yNkt+&LN z^m7gb3GIXV9m}&2f3{!kE7D6%%(tusA8ajN4o{LraDsuu?;v6Dh?DR~1hB&omx7hDO{sG~-Sf za#L@0Ou0j2?pWK@enm{W8|@Xex8p@<^X-v-W~!takr$HST8r3*FU&gJzt0$8c$;BC zgjfh#k-W)_f6=+uODAPlo-{=-HAY9lC2gqgPceBH#Vpku-b4sO-a`a)-do7LG&#ES z5SvmDA|6V`Oy3!!L^+thJM|NI<#w8;1}P(Wj|X%+WjlCh9Kkiw5L{~KqbBikLg%!zBRCS0XQc1PEn9nVQcS@3}}N-e^DcQQ@z~EUV})P*>gGB*>4TT zphIqIX#d5U!>i-dS2Ps*;;B1E@jHhHFI}Vft6o1=7mVUxZSDAG?m<0a>0Z-%U2k97 ze7&dlENQ>aDkRrZONzC+llTKTzjHz)cJSRQaN1cz)GFhriO{K23F5TS+ASzLRzXjz51r=vM^$+?zW8@ zt2}&bL{Yz06^>ZVs1&MsU_^!(|F>PTMPC$f3~CsTWZ5Ds&^gqsD&J^6+5?g&DizF zxE*^Xy|6=acG^cGYs;=LtOOpwSh-3&^Cm240u=-X?V^FSXqVM1P1?<6cY8MNRjYa{ zM(u8=iN*hF)_!Yd?G~@@$gaH-%jz4pYbI9PwksaB%$&VGs(m$RpWmRpzVTlZ=DTFK ze{RqI?_a|LFm)j3HxY9L^w37k6sH*RuU3GIwgP-$d;IV$0rdjaH3j7QzD0=yQ_BP} zc^fX?0z`KuOhB|CR%HXCo0b`Y)S=g8tYH}Ghh+(P} ztu`!Y1u%O=6qERf-Q9}`MWt<%M|z*uNXs>9Xl52|F(G$@z3*0E+2W=N62MU$)i zbZ|Dv`(iiOo!wl&x7}P9ySXlRlWPBs4;C&eed*1n7wQ6dI)u4xs{=PKhFV%U*2j)f z)U!*lMXp(bIcfA+E!D7}e@Toxx-8zS3vQ_TwST56KOHJImMYsnQk*)+%5Z4JqU zEcjC0)N5C-(H1eg{)cb=AQmuYm0^p?C_}7`FIBCJL1CMIWfe`e~G%t};B&q`F1 zv-%|mZF;;OmDvG@h-Ak7>T{t>cpD3^^etsrzC1Dfp+|x4q+SsBU4il!nVXe zSKfi`#?KwDyZoTmSpLM-lphEg?;v= zwvTX~9_)NQohne>I4*DwVEQ5aAV+ft4kI zRsSI9P4$1D9rcUXNOJC}=T+3X4#pH6X$wmux2!H&0_lY=k_LZ{t`wh{(f=xuXM%qyKK1?OpIkJ4bW#+%P!Sdf0BT>^#qXMeeTB*vhNV?>c=okOl>f3>%}FffDX^ILqq8}BXYHLzcpz2 z*)tcigiSvW+fUt3+LFZJVE2<(n_b;&;?`TVfv`^gqo7S{9dEbJke`xyf8~p?Sy=e{lSkl@qE>DVM zsMwLkh*=ZS82%Fgs1|hKSBg~p+yU##9Nu`&Y%5#GE7yHfg-By43RVjWV)y{xyMw+v z*H|6uHVJ}?@o!tndkwd3{J`kIGSNvi@+KJG4t+=F5+dhQ|CA^cJG5BdmI8u*8f{U> zC*iE`f6<&T)2s=BbnAA!E~JeE6j*Hx%@KLEiWNxC2OGDYiP#@JkzSl-B2 zTDK_TumVK3s#+%!rN4-UqMongLjG*8OUd*sT ze_t3GbVSv?o>q0QOU;VeP_(@;Rv4}}+^6b7BfMU&5ngA_p6f5>>tfc+busH-k}f8q zHc3H#p{{`E_#gw0SK=he)4?w`gEM1=$T5g=^GKR{0ODbyp2Uv6oBdME@JWVVfv(XI z_S1CS)9na8Js9zH1lUqt(0c3`tV=bJe>-VMpteN{hoHyqc|N5Na3#NKeL@*e!FkiV z#y`y?uv#7$uzi$vpo$;gyDdDs;z}h|M9F30!HTa0JVk5)KD$b%lr(ZLh<&fL{N-4*#>(ed3r| zg4u!@nACdek8>i8b5YdC825fDN0(?9H^3DaUL!;y94SMOCYa%FYy~Q~m2YY9Eyr*P zPR$(d8@xVpG^T>3e0gvHmXOzze`$W%g(ht20+vFGLurAQ3G5eI(3MvP@8_}aWHT8n z*(1Z<0XtF#<*$kf+LEQp`Q3k*DnB~C$iZ-694kb_^H{;ld^C%Fe>N^=SFr*xTaSH* zAa2oNV}yn1fTz9b;51gkhDWg?ZAu>nm`D4eSG3sNiy{H&v;g0N=yZDHfAb=~kQ4C1 zPfRpkfGX11;up`0%RE)OlTQ>PTmuGHRKZQ0R8%_b^?T#0N;-*avfit~>HFDL8p_qM zxK5Ss7pW4|^QH=44ki;Y>5L*>-W$D+;_uN_?_;#h%i=?RnL^dP*N+~niNcgPZo%M& z`SDm$pZJk{)q~@lIyPH-e?RtyK+&RY`GCAChJ(}iF;Vvb(*IcD)2;0mF{Vr+73Z9f zH8qfrXx(Dv5U5)ueU@o6$8(u0QJTy6R08 zRT{f4)acctrMGwF0@0#8`(nUtoNi>4554=+lvT&@La1}C!JJp;B zX&^5k{sjmf@0D;fA%B^xVec9Oyk3HDDJQ1rX3DDjQeIa{ULAVS)RRDeoe4@#!{Yp$ z-bj1d_R&vxt9ED#r{o5P=5RB0=zD!O3c&~{cC*In*N=PZYcYhPtJ%qLFu8Dg9On}y zADVEtv^WsY`f{eI(RJ6cmgB`Jx0ka_!I9h=p+h*@J~-Ule}5(w2(Nfkwm?%nq*JBO ziuOI$8;479(fg2R|5M=VL#1;YDj;Hg$34cQ0a2OGxT{LgOnVJ~>v3^lAQYa6IeW+L zgy}pqU^}HZkMTY75Io`e%Q}Af5uM_VHp7EuY@H>jc+y&g_KK2wMJw8jwOIAJNdFbB zFY?x6gP(GBf5wL?=n&Ees~v&Ab)t^WTuT*ohTEtz#{~c3onj9sKHkksgqclSbC&u}Ch!IT6T234i z{eS)yxN$JrQTzr!vb;mqojx6mx5vH71wGghtVm<5Gk5FfdI3#a^~JWKEg@G%EpY6? zqyLzNf2Hn(KWp#Dw%*_FyQdf`feDvxjv=5C{O67$ZP^oH6XkYsq=vZj`h^-MVhZgt z4K)c_z_jm%a5g~j(a!mf#tAk>Di90}pd&Tz^#_HLvq!To#(@Au;_0cnm(AUKh&5LK znmv8IR(0;mOh4?!Trbe_7@exGdIiYdFN_6K=45@bcx>{*Kou z$5dKiAfqlXUdQE*?WtpS@h}H|5ZkCG5}RPTLio$S6ti)*%{L{sTZYI#21*n(4M9Rr zsRe24CrGgLJ)Dmywu4DiFS2~?Y#$vSYc}m*=U^k-&q)tF$#WnO17u=Ofpt|4G>OH8 ze_}eKLO0uE?`Cy%U6Rh6&O2cq_zOq2F@dJ?eftMRUlP??t}>aX2G<&}1me4KyaV19 zwX9pKL}vDF+>JjA&W&C7VvC)efKvE(0&m;!K}3L z4^(iSH2cDH5$6~SR)YmztSEL+ORcXDf7bY4LHDn5{2lx^)v4E~4)3wm?^9o(c!TzB z3x#_K!&f?y^f2>jp zUMpR6DKjvB5D9(?B1Cc)*{|tW;Z=!6rI1zi#>jg3EvOU$XuiwJ&ZgM$Y&b>wcFrPO z<+d>;Z9Yz`tHJhpEx158sHnb^Pfpt_-BVo-TVgjmsTwlblr` zxV`aa{x)cBN9;>#Z`?TrO`VaFf7Prcm2iw*OzHSL-3fNH<8M{RTiK3Wrq6;M)>K}? zqQ5<2OK$~y&s$on&V{Isti4ggTof}U$B&BfCF+47Ox8v3>I&>5PG-|=unb8=A*zHr zG`-RF$KG|hZL0fcxs7r;`StLC7y5f?I{Tn2Tr54|y}_$Ru6PP949W2=C9i?!sqVD0DC9SC+=%^=l_Rb*p0^1ICCDpB_SUYl#Z9@O9cQ^Z z;Sf9S`gDRJblj!*?CtE&px05TM0z_=ko|`)g=qXP@o?S6UBm>1pIGJRh;jZW|K!%F z^2R-?Z_Nq#xi{gEJ3SaWe=`W69UaMEtXwn1>6<)hwkdc6P;;YbXv zHhbd{o=yJ-DBBD>(#Xf}v-Kx8UxImBEud#!xp`ZDpFNfXc)5FYf3)?C<6gH2Xtvx^ zQl_{s;a6*!uO@Zc&&EnV?5q0@>qS@wsGqfEFX7yAV7>Ir-n=4H?mbR z`ewW153AM9NUM+?7t`Kw!v{=ds}U6IxPYEyD;vkf)^MnqLi*3DjJA({YC8-{>+gFn zUc7s?yTA3~_!lKUe?IPHtB=>8bP|_S<^5xCusG-C0SWh1e#6ZaGja2>W#JNShMyE3 z-i($tJOc~rb&k_#+b!VijTD{CFYo8%*@?(=hhI0c#)pnJ6&*oeR&~XE7cxlOUUd?{{fa_>(Cv(j9@G`$ii8~K4r~*fWy@(1O7m7K zk*I3X$;BBDt(=~O;Gtt&v8?;Xg2pgaqruQH`FoIQ1fCp;nIBB_gZXLBF&KM1GK$>V z%Z7uqoZj#Ce`6j7=LFl05$2ffk$}+cI-+oVFoI)FRYFOpRz;@WHEOcWf>0B~e`+~u z221l_wx!~Bb+vRVZ!CCs{$=fu*p@W(LWQOJmhb*`>PuaEMeRU-N!EWCElMR=R2f zw17kIG8|pK+j7{Rb^9a2{gm-O+Xq`O_Kx=s_Jz!WLdTP}PB|tLfVo$?6DsJ+TWV&q zVpzz1f628e8*Al|yq@ECw&l@$POO412u{GNYi~kHYOSDd>TorcYs#(ktZT3ohK&4G zanx%Ld8*M$lj(oY9($Cn0g>3qe%?CVR~!1rZ0{_)1|O~hT+U_`<-WMQR6NAf!>!}P zz3sgnie-+rc8a;7~w7lZQ)9g_Yr91Vb_e|^Zd4_+T0XD_!7kN37-?Cv0xoxP)% zdq+p=7rR+NcuV3g{+Rt^ga!;#kaV&uUZufgqaNLGu=|I#%A;TJGOSxu&}$dl8{xwf z7az#*KtBqCZQd)`UJyI@0Wo~vc3N$)QMsLaqpJiF0Zd&jEp&F*r*8pR)Q*NgRFXJ0 z@AbW+w)ZUWh-kKH{4KVM=i=_(h;F4izF9lVvo>l+Z0s?GsacyFfE6#+oL5RM?1^<- zk>8umQP`!Gvg8#NzNft{1y#9L^R_gde?#|8j`BrslAVDC?FDMh3V5i(lOasfxvl7$ z8h3@BOlzssC;BtWeXXy_6K%FE!D}6F9sT{C-}T1%WOmZdmb2wfw)}1x67N3dW7YA_ zj^#EIltRysDFz6wS30NFxv| zpRXblb(PZw=e;I%4t1mIURQJDcmtfSkJlk?S4$Fb6M`Jk0KsFXYKiPbXfw=SKzCx1 zhDOWvEzz{{*EhTJj5MUR7!*Yf)J#F5k#oHoGp@MNMgTZvAGSAgEyK!eGvXCW0LRSE z>RIqro9UHU{?)hO^DF$`Z1@Cvf5t8NJUmU??@6ppSnv7xTVlHxptBxF%5KlcZ&^QP zvxnB$)~=3a2C&%9ew>}_YTm(cfO=+qB~?9>K3ku6OV$lF{_`6_&0+i`n~BlIZT7;q zFk!Ff?qJj^%6%fk?&f$>^KAPZtUo@V*0fx;HT^0Mvf64ES7Vl|RIi5Rf2yeHLv--} zb}U!xoq}66aFuPoTC~=-Xr2Gz*f)h`!zzJo|MZ^x&>pd;ABd;gK#{ByDShJwI>ed< zh`kV-t7avx5poA%%?fX9SZmBCYfn*6P0NY=xhomwXb!!@ho6xcu z8{+3Y17l0v%FL-xo0ygxf0)J;GLi9Bm}oX`E}s*{yXBmtiCVADKe_;%YtwmCa4|E_ z8^eqmZ7yb{&#i~pVh8I17I;7$aIj9z%|%Oxns^*dRddbC7Pw;z19dwiq-|Oxw7Sp0 z-WA3Q5x5K%ZJoNv*_GIpUlm)0U`I(F9q~;MC_HQ9pIAnxTe%DQfF{@J^-3K?pu| zyZ$!`!9Aw(f0y?TZ7cf@k9MVl1$KGk)zzBgO)sEZ;w~rL`YRpE{SnzQS9KJ0`%j=D z-m&#)k@FL|und~=^$?p#3yGKLKTXH}j-eU#wF>_&mW;K~*{ik6c$D(Se7k}hG7p$BBoD4 z_{}?EG`ELA$w~)($Fz+4osXDd+Xyu?b7?@%3=6xBo)5I1gWRQXE@=t8AJie_FwMrLK`Jk$cC6kbk6!zJ~A8darBG7Eb_m%=EnWJUD5m8nlG(@vZTDcfX=a zDsII0Z&@pXF_o0iGc}}vCGbtxoe#YLw1ZH%I9SGj9c&Xb)|$1{imas2&euh_zaxiU zs{_BCEVDk1i2&bi>Mw)vE8k8GNsvkla}CN9f9@1^{4!^?qM`X5t)(-KPWHoE$Bdk; zdRtO!R!aj!&A%#vzAAwpx)SKC2I#8>=u6fB{bK~RzXdc^w+U{8x?uiIT`en^oT2?l z{dxpHs{}0T0pk3|xY=?hUv)`em@WxWq)MBVeN`sKioPn7=tO-X%A{K-hR|=vna)?O zf7F+%l>%g`)=SkUj9=AKbB(nbMR-J(7!fp<4oN6|gm z&a_6VB-=eQ=eJY-%E%iVwo&42yH)cAYm&KL%)`{#D=_r4EC^aM;T9NMt56elywjCf&YbErIj=W%b)jAZXt{e_#FfGfwkM& za!Y4)UJE>vv|a^%W!J7@PTyNd$x<=?yT(lygq;@H#p1 zx-I|CGH~&{>_Q%78_C4UKuRznf(GpWNv`%^2knFGi;%<#_P-;J6r}^jq@j?3bdvYG z-L9K=FP2Em56+@V>KP^~eBd{sE(5(~0pH2i9 zI^M=E*l%EU74Hy540}^WFb1a?JkkOuh#rgu(k<_Omgz3JOt_3SI*yDXnI2TqmzZ=q z5I=N;o|cZ#V;si4qiK`Im`_SVTV4)=dD}|-)&e8>5!Fj=AA*cdE!ssqk|PJyz2sL{ zBULv2sLXF{B{!_We_IPF3McXYssVWc58g)EhHxqgH`Q2;^mDSAj1B%!vwuXvRM*av zvF<|#Y7jm67reL4fG1&*Slwu`n0l<7$ES+|b|5*1(h-#RpXgo2S%4Le5n{W{@z55P zkV3SNM!Beht`t)IX0E7rFbN$MC2zxh&r2t?Y9L>pgw3 zbtvks+j?h1wG=JLpS-k0mA4OG92`R3C2acaaCdj#?c#9n*|Xh4T~BfJ=jV#6#2&Yc zVKMGLe;emuYNz|y%Ff|~8O`DDjysl0fQOJ`-GUoKN=yd!^Ygu9F|{A+fcyDE9UTeq zBYZF*4-U8Xp9z?Mt^@O64Eh2ARLNBM$$*7S)fVWJIzS;0wjAe)`fcF-visu2!Os@r zUy=}UlL_K4VBPsq!o0>W8U@t#MCZz{$f9tObX*ti!DWEInFFye>ayZOSAzG|D zcK!TnSX^r@0El+jOw%Kv>JZi(R3>M$A*Mrz2}9Gts6PNkIa35-%AsnhqpQK`d!P{p z{v{k^>f+V7_%P@bO~9^DGVTFEIfaRv7`8eC4XgE3&!|#zjw4qEeQpN9lM0>(Z08k? ze?LQ6HlHeaofF`gvr8hM!lu&;3MoZ#;mkl#ulxdLxTO~31Cf`B`UpIP1*@=u&G3J|GfCuWrOiTJ6%)E*F(*%tsUwd3>S|noK8N*gP`%5* zcJeEA13(EeuiWVr#oqztRFxB3BUadMsY$Ab^p2i-v&FkRE>uAPHc zAP72}Qi!=5>Z?j{;u1Lo`Pa*y<8>3&T)2DS1E=lAEy1W;X6djdmA-s^be!!U9K*rs zkz{|`!P#qdW-n`97AI=!TciTX#BFZpPfrfcWINvQR#@l^ z3_f&H42Jd=ve(Op{gL8F~p67$}3s45EtM99;ZgWAu)V`d8 zt^hs<16572bH&lPqato*NsP)AZMs!eE#_&KoZ#xQo|a---PraVUG+X%Ly*VzQXL2li`9xF|ce@C2oR~=mVf=X4u@t!1A)CB079xXDSOF`c_aKj5O zEfEfxVjb!-(rDuuhd6|IczdIM{)xE8C1-O803f{kX=87)1!O{`fm>SAQu~s>kJRB| zPRpD<&bTL*_C-Tuw+JTe19kuWDo80dZ|TOdh1krFUTyunPlqJ7g&Qvhf0uBez(A@5 zP&iikw%!1-)FNv>F+eXqh-rL+0|EaBS6T)o`09Z#9*8!bY=TDA?S*ePQpHoIHT0Y(@e?nBl?j=TIF4;WUAgW0e@L`B7g!ZGa+LKM8C*My) zm+eh(^y>RrkJq29kkv;rL55Om8^r<@*+VT^%;?%hz!-j$_u`Ae2UA@k3+(D_vJY2< zz?h{aceL^szD%#uE3fF(*fvGVY_O-cDEgW1Gx+}ge5GX_Byj+Ce@Uj}8DXSGDgCd& zFjlYWMrI=3qVE^Hlv^KqgCV#dbz24!igSoe8{DKVC*H}{*E%r-fN^iIua;qYAhZ%1 ze=a2y4f5_onC()ug#@++I|R+5Qn|mp93>QuMAb$#jhfUvN4k3aFj1MgXO?+>uyRmu znW%@`*-yC=5{CJ!e`4YuH`Vbg$i47We)e^MD+@$7>h!II0iWLsanX)!Qx>17qI(PTi;~3V%t-@?$B!g#y5?G#bb;@ zq6+Fr9w@!-KF#!rV)+KT4RC(Z7C6~1D$i*AhP3fGcxfYux#?6CvQu3K7PMOTK6TK> z8R083bFBm~f1P@B=KV15-}}@LcX#e#=ARePIKqE0pyjJ*5;&F|M<|nn`bge^zCOg1OjESLr^ zi76ybe`I?I0w7%W-op!xFnqwoFz&L87ZtJ!H3}vE^JgvNRX)(*HvkuXktv1F&oY`) z2u+%8>=eqk5!!rf3nJid%3kcNiB!COQ}d~WUrBW8sWQAw3RLPG?dQF*)tkQP;qxRu zA|+H%(7-Cgz?(1L#Iw8}z`0f6S;Nxq&$5!D%B<5pj}J`IV0*@9&M8 z3?}d2##mmD0Jhx)GM92*&w}fYafX`0uxj3|8waBwi{7|jXU|a`Lc9Kxq6Sv|fCc`% z0lD=8FxkhSn&y)>6$q+LGp>`7JEOSP3T2Q!zXY(dDUnWgkdVyCF&7z89=fA<^3`s6uvFSmI+F{oVKPi$42bOTFR-b;G- z>h@zd%j^v?;?E8bUcXB6&s5xE7B}GHv9u;r$v+T@kMql`VQ;D{(B+aXRWh9onb?Mm zY1IfrbE3c!3dT+;EDMa$Y;DDP2{pM`~?e~)^4 z{2T}kyocck-{!q%3yD+%+#tqF;~1%4&m^S<;;b{}))=3*_-MXNOPMRa*IlT@NL;bKWWkUpPc0Z#aF@+v z`r+|=zxc>eP0vj7(rs(f3A%=?e+@+bB`ctEhmlA0yFLH8? z)>7~ZSjuW^sy;$N12r`J6S;yM*NHZWMW1H>0h5O*=EWu03UZKYEt{5m=jVw{kF@ z>@RB+oaS-10_E0{N$gN;m;>FewKpRBRu@hOFNN6X zY1;#oaCT9T?YAs45WeSwf2+?Q@8{YgAYX#>D`Y}*Aa5)&b#M*RZUN{k23!mVqkPic zo4o3crw3)}O3p0^eP=Qo=-_O2@>DSf=9WXlefl z93PtKJLb@7EZJtg@pzDr$!N*Kz?}48UxBs#sxONVd4uXav62?De^K+zcUwzUKHcr- zQjITa@}za6U`V#Rz0nrN$FX$>@I_X1$ptl7q1PF0?|oUYo7*`~koDZBv`)t8oA2iV z-Ofz0dI}nYYUk%&*H@yC0q7wOZ^vA_jSZ$K`R=UC= z*q;}k*bI>mt)4j+e*mldK9NxWD~L``!LMvpErCcB zl%T}-7(iL9!Q%hWsNX!If4_eWQi35Quu-Fa_hdF0_J4lWHY4jO8Bd*AV?Rlua_l%6 zr~+n&Xg=xDUF*@=l506Iwf2%Ch~$xEkM0y^+b{NZ_m8^=fBQckY#r_#?d|NctZ$9d zQ(z-aU+g|Twq1EP_s8SjXkv_<8Q6w`dIEm{-a&I?fFCUWX1E`#it75c8L-#DeqGJD zNz)w^U5EQPH#iP)lE9?GN{!Jr|4LeDx7Pqvij8j^+RUce?yPZf*blCaVwa zQ;Yv8T>MX^f4KiCy7-@dx48fG@L>N&xQ_rDEq@vAr=zBj4Dot7beCaM+y<^QX+Yx5ZEk0I9YtA#>6EK6ip(Oy6gJ z<_R2aKi}PX{bKjfI-Paq=-|&HE`;Gcldn@5GimPoelTIHLu_9Z;1 zW@r{A_+`>fQ3w!y2pmydYtP5hcU8ffIj_3LHPFN?N_C)fqbEDaqR+;j0a5sNoY?HS z9{GXE4U9~dBhPg!nJ=G(R$fspP*j9<^*_Ozg4D-|)s;Gy$mnIOa0J98YSa?!4KHTIE|-F)lTv@>G)b z-);0mQ}|xue{J{%R`%l5;8B1f;0*OThi?O(CR$%a!I4|}rrcd9d5#vYQWj5)<;TUH z-*GspF8yP*%T@zLec;Q|q{|^ReeE+`Q{Eaee7M= zf7WEjt=bb5+-n!SE5({Y=bE<(LBQ~girbpCvp#&{_bT+^ruCc0Z=DI67LK-8D#7R1 z^xle|7lyVF9j_eUP4v5baV2%TwKcoW!)_y;?vf;FP4u}X^{^2v+86G z+AL57vuFj(jRptP3;^1@zo8;|sp*zme?(*aB$ z_ndbNR}LT)sr`uHG}g}tnSDQK`Yhl{ii>#|xT)~I7@0d(GmyR=;rknH0g6Fhf29Fr zFdO5V1D1u^ZckM|HI_RV^|}DVAXqyNkD4777-;p}_sEtw_M}dK_k=cKRj>%Qm>H^uDymL z$|@aD8NihEl<+{ohg-f;SoHMgf6rDxc)^$QHcO!KGR(Yg4{;VaC8oveE=y6#p7;clQb|dSs|DnW*9h`^6t34u`=gd)$4}T?a%JCnc*B57y9Q{c6K) z^>r`4$!B`L{Z?1szWv5N3^(Xk9A;zZAYqvIBJMl%W+@#Rt(6z!BFBL3V5Gv)|A~?4 z&oJ5Q$?SaMETtALT$<#6`96E>R$M5VlKN@w44CO$8B1?kItf?ne=XjBP_5O`g_Dck zRsIg5xl?iPWOe=V`nyxN7DTxh%^%y6Px#s3r}=*Ee7`o|FV$7tdh4ta-$=TK8A}us zI(Am{5QkOKSwxpy`e`eGFu$2zqeRMsU=9h4r z_6HNl0IN$TRu`apH<{2d{f&~yyAlfJvYK2JA4l3FM?<^njq)L779PoLy_6J`e1B0k zK}=PxdRJG97Aif9wRi*;Nwc=We!NOu?_JH?=-gdMpJcbqB9!g49vxR!;!qg8_4XopWBA zV{q7ov@JY_PIg_)3=cJ%ko(rLjYa0*TX%gWJCe<5*m^9-MYGi?S(XVYmoOm^mS&0r zXY5L?mG;R0+_fz%8m1fRI-(t@kSG&dNkdi1G;z|%e{og%)|-I^T=sMbY|^&E$#H=p zsa9D&bq+T*!L-8soxbS9Y>x6bf6(nBN)j$oET}5s!HAri$W`%Y6msDMt5L%ISuUbU zT%2NdI=7s54{nZYNODJqn$koCr@Wi}qHqrr2x-JKSf>`;Y$s3<{Ao5ye}NsqWL!C^ zB__E;e~kd*IG30$@nm>7MBf1nwSBk3rNylFd5QIsR-k2*as~|nnXquJ^6dx*6F`iXb4;_|8%96 zWumE{6*2s|xp}g+N{9xf770`0-}hjy+65z>`)sSCp9#Au^kMb znG<6$5C)u&2RSYjq9X5YSJ&eYa9ZK&%zLDfJ~8wo>!~8jQ?5uI+$!r&+`9w_C!C$Z z*?_Y#Vk*m)-v{LXOY{MghGOmqHQve_nKdDC!0|S5##-M9M<~G3t7kYmFdPH6e+B91hX~WT2nM@`gC{G-H z4X`Xn$Q|{}4JybIdt$kK3#T=d4+62wy1PWArZRDFI$N*4jLkLfF&5PD5!pM4AV+pQ zeEpht$$Gct5pzG7PeltrQmlZof4}_(q6G8j`qpw*NP}}1O3Qu4nNK?)9Mgw<3@M#8 zCy}cBn1H(uAAyHlOO!LcS~Nv8mybgkH~chaG{oDWm~#xE7}GfJbkg@U$J^fNJKNF7 zbQ)k;x@vI8`Zb*!(SBlWpEW^=T8-@O#C(HfdCJEDTIxp<<8KnV!u;D~f8%^IJ88H6 zG5SBPPOG)z{Ukf{KM6l){~E(iy*x_AYzm;C7GttlaA(k2(AYZZ0r}eMI@cADPslNp z*(Z+VrIIze8G1${t9L0N>+Fq!XUW;Xqs%duEtESpoN-7=V5Qn6ERV0Ya9v&ftbg@f{>mUw+ONa>Y@AOn_D0iu{6UH2xV%mE(|)y+vss?AA%ivp48FBr1MZ1c??^;<0krDPe%s>Kc2NteAcY<4m*pw4yC#& z=>VtXAj;}0o9I|X8BEMmHNJ3B%H`f{T3mubl=^wCnK1`N^g@umN`HLE{o%G(#7bvR z@xAqQZe#lcHwYl!LN3Uz~jyeQ0rJ(gVmO2F7~fv{Q{vOIAe@pUu|3v0eF33Nl4-WMpmH* z2!2K2TOO;ci=S6-7 zmD|xl!pqP1<>Sa!!AerDfIe*E?P@|9stg8q2BlE=K zSw$F0sWYnIO1MhcXPY`z2bkK+c|h#!zOQ_rbo>M-Qb|{!%pm^RcUDbw;*rA z7zGAY%n$YO={K$4)9E8#K<8+|aBdJTT_89fE8rU4`^O#>7t`I>&2HBs*-=o0U)hqlTln2FOT9?WAW@OO3wqo+{X42Y8` z&!YVE?#^YcgPA;;V$7*4a!GQndg=k!nrH90kN-EzXL)El9GVxS2&7p-Rgv-%b_u2n zZ8IXctaYDQu6h-G6SUDVa+`nq?Re|x@1Ny|mwQJ?dw&P}pSx&-%OvCI7{=nJM}|=s zBaraMm?%;4@FV2Ad;QD7XfT=LcQ|gCJqj;>bwQIk;^;-d!#Rp z0q?0b;FbSRuP+VMGv)o}5A+%3!z^=5b+H8ev9j#t5u}p-EyG9F);@(&INo~+4Ii&% zpRv-@Lw{J_{q0|{s!3O!9qeyoJtfrazS`Y7R)4QP<~Hzuy1)Gb_keoDKRLPb@-lw< zxi^@y>Ca>8aGd||EFYa-n=j_Du?MgGD5S;5Ph`On+KjR=?0nVsJ@WfgwL}-z@W*%Y z#ziB+c7AiQm4rUP>t**-ema{f8qfHmc`tA|nSZ=@d{Q7IKVwm?v@g=IpUk`ib^5y+D%w?qx6tSdiAp)nH>+5|r0J>g5=5B?D zAfXka#N8}$K4<}I91?E@Y9B8BRA3$y{OI_rSz=26z8NVoNUvWac#;q!L8pCdutd7~ zW39?};@{vT)&CqGr|zZ0OCZ!N;Z5Nl9iVvcgSQ?T1#>?0z^6duBK6$JFOW$3N z0yE*Ay1{PGcV=m+YoEQ?TGu|l)o0eu$2qVr_SQPBQm5Jzk>112|-IH1}}S6dceTfS)e<<$~_O{1BQ0JRJCO(lzB;Yp}FrK5a<IwhP_;|BPSw84USW;^PQbDi^}c=#Dm$}-%DOYPNh;r zh6)b{k#RKlhsb-Q!BlwU13G)3e1D`CMHAeO#h%z~UHlhv5}1 zbN56m9fS@50d$QTqD$%qhX*7m(UXcj-})JK+>a=Rp@}^aHvter9eE8?pnuA4DB;o4 z-hqS{Te$lnCjXIVy6S1ZyDT2E8gnJ`$euCB2 zKQM(WSzh@a0#BRuro`~t0HgWz$HOCZlBQrgzh%EtATzIhCmZKyDPIVipxx#b&>68Y zOOhf%G=TS)-Q{oGF!$!}e}6d}P6tP*mTlXtU0LQc?sD4NnCs|S7mhHp>#MH@!vdW( zfqkd5DI|e;K#~LyKtzwjB~9w@na!aCb2qdY=By5K?1>Cxjo^nNVGtrz*^!ChyQ)r? z-E2HoKz&@^^rOT=bR>jj(!*7Rh^-z(CwsDHqWVG*=duA=528dZHGkxCmg7wc__sE6 zpx=cIJ$Zu;XzW_{4q%%YNjgXpRy!J;kH`$jgg#pG3O3^aH>gH?g@AGvDaLA(E$_Ik z(@e#LMO%q>$qJ)BZ}4Jke`jz1S(-cG3NikG7b@~Dp&^(WsOk|jm#TdCq;h}vt;}@} z>1k0wH1S^Ohvlr{oqw|ddaW8U0vRVduee$Ql~C*FoI*H5G~f^Lm^KY4S+`Yk=kTSF zyk}ZqUOrzBRtaVN+%r0EI-g#If6H7DpRJn6Ef85|oB}=u&Nqy=t=NUZ zC(`veg@C51M!JleePbLlp^jk0T9yjx0A>^ZZrkil$Z*icV1I-EL)!~2XZe~AigRnY zEfX!SYr+$QrGf1jzgW_58^prf3L+_j`vdO6m?&zejS??9Ky&&r!I@}8>9$rF77i!q zPfXj;SB@7hM=4_F-fVmnYzLshdwDQA(@!`qGbX)ZVjOl4O~SmT*v|W3ykTnox77}2 z!11VY4l6AlR)5p3TK^WnZQ3R8kh}?LyYxW}ci60xcRHXR(v*vQI5;h?rui6*0a{kk zz5AcXkmm|VU_XmVK}i>fX4b;%e42B3mSwP%0>-E5C6)QqOz>%&Pn9Wh4N`{-1L7b1=PzR3)`EF1mpbCOlAR;}-$n{gnOpdiH&^ z=sI2WD-^9{{|(k|kqMv%sP^dn+?=qn&*_fb#KQ?nD*6EYDg?&&`{{n_U~b0X`>&{Z zvPMB%!GI4MTxY9d05~_hjlU(X;!f2p2aw)gVSoQ;LX7mCu8sFxh-=#19-F9$xRy4zZ5U-bY+88ttwiFYAR3Z94ZtJd7m2s)!FLzYbYFcAHtJ252TSWUy3qD z`hQ9@fJ>$P-_oMkzolE`{^H7nWur_OB1*_WZVpqEX>NUNx%Kwb$7?IVtS<+QH)-mj z{<6z`YjF>4W9%g4e+ecO7f7b77l`ZK$tV$+i@5rp)pZoGumYzgIs#8!&iN)Hu?t0E z6iu7)#Du3_2>JP0-#F*SJg-DvBdlA-7JmlO8(m)(<20eML+dU(v@U7u;#i>stXt)UvXI%BlN-`d9uzy|D&FsgA4*@- z#LA?DyVYTs^r`s>|AS|O4@_?`?q<*YbMiu~-{LI3U>H_iu1c=jZLn20Sw%X=F@Nss zubbI=g!TICoUB)C56FLhIgt;Bv6aU@!G9D#oInz`-uOBj4lW1N$zr#Kg5mZC(`+`H z4u&=nqXLnif{PI5fh6zS(X3m^j>u#p;!4xkoXywY5i{lz zMh$(wPja~UJw9*!EmcVJjN(Xm%4BsmJYYY(tzZl5zmOqQ3!|PP?&&zY$qC-~w1Q{3 zYE~#J895kJ?i?j?CLew14n}8%TDUlv6|rhz7NBU^id5;iX@(4z(jvJjh<`MN^FD9J zDhtJ5yn3Ad{l+yNvcs=Tk0eH?+VH_dnxlGrXY6rgLHFqO_V(`45!3S$+a4prL~VE? zA_q_~EnPfd`qj{wD1nRy%F1%KqOaXB)AQ|#Ns`_)*#4(mdoOl(Y_m%Frk>Q_gn+kD zzK0n6C%NJ*CbQF1)$D8rUVp!>D6z`Yqz|_Y7^_Qm1cpEcXT5=vPR@~u;C4UVP+gt0{<4E`# z*9y~TMQ^B}UJY{!{N>l_LWQ65@kvL_o9@@g5d1?4&JdhxDs4F?7#0;(kLLwMr6Twk zv4W&%=A%kcGcM|u3%V&W_eHso`ywggJ`g{_xkX8%fsh7Rd@%nNjAmjcGY?K&rr17- zlfV0)yW6ji_x7L3r+*Z*VnKzyICnbs6xfyKW7j$b1*9M`a8!fGpZz?+O{69>W=F=G zuX);RX%1oe8_J)4rWcCTeB->=zvgH;6zivh|3bp6!N^G))Riw3u|rdFWEOE?>~X1g zSQ1Bt4~n%dD<>DeQIxAOFvd`>NFK@l95=g>8CYP8bjQ3&g@3yX-dkblcD$tFXnRF& zeg*TVfNgYUfaAhz+r)TU3JFH**qkxX7}2xz^ufV>2a&-oDd@KBfnNewB5R{Jr&?mE zTI-OAe$aYe6z_3ak|vgR;RQ8|^0}=fU2HWWabi6h*=gIioIuMJwaZzZr*T3YMZEIASL9BC9pN`SVnPfj9s1I1ll{Z5rV zkqaGJX@yWH#TXD(16m?{pfu(-iTRRe53X0)w2JW=+kY;ZaRkN-b^b7iKzPPDi|DBM z$jk^D)@v%2fgh?`nF)vR52Oe~VtB^BJx1nEr#aD4|DC97^F9AC?ghed-dkz7TFQ`G z4=HK~?}ze#?%dd=zA;ck)mh-^LH0*knjdJz z1&CIr-+!#kneQp`GKEtM?^ z$ILi%kywmr&HWhHWLc!|xeaV?*Tm)qMmBnyi#D{mA5)u}3aYua-dUD7y>VUMya)I& zU!6cqE01Y**x;*i0XKX%+rh-iXWmUMk2|r(u77&B!7-U%QVzOMN$A2J~`Wr+xS#YnOStTHQ;wbUjHuqmoMs!j~ zA@pCj7gSTfbz_~MC0)u@k1;Etl*xMhas1ig!RuE?JG)26hX=ouc^-Ndi4N>2{(M|q z<7|!wze4TRFdsrmEJTmW3veamgc3G! zbIb(L=i|lT^a43n-B8=%KrY7-<%#Q3p2sPU6ysx1iW&VNfyrbP9&t(->}*2B0l8tF z6swa_#-)j2n!B2Gt@=anV*K-X5k@qO7lDUnyoBBp6U~6{O7yk+^57@Te}D7#?Kgk$ zN|CTZyXOZlki5aa9Py143h4X+SWQQxZE@UL{Ak0_wVZ%+#!wfD~=Lr;1m3-scrmW)}Qm^HD|tmS#ziQ#GfSBH?#X;EtnU7 z;-T{|GZp^LllWoHnZR0n?0+=|{-kQ$?yw&RqkbX>{lp#f6FKC^bw<3Uv$@ikMJ^+{ zD0RLg_@PrCAtarE37Jl$N9v^akql&)z5jvykfZ+Uv;dlo=kdc}I*_TTnA`1oP~f1$ z!G76;gi`!X9r|Ld2(cnqJu*82<(&cARZIf<$U%xKXwXqZ7+nLQIDb{dnZcj(AbaSQ z%wc)mBveo@q(06+6j(;Sj>|Ja-4kANHa<`38c*&s6gNf1fYA7%iKR!6N3 z5_Q$+Xz$tn)(e8Mw6uNj;^2_CO3BcaQl2>;wb{B@r=6Qz7Vq=zVpxp3hoGxJ=Cik@ z7&yh-V!EKErDun`yMOx@&Uz`FXX88{Nl54L0btRPF!Qs4^+PGFABPa0*Md4xzs;zA ze!h1sApN-%($5!zsRQaGe6XWBINaKQCZIhjg?6CM$GHSIQn&}76hMSWLp=WF)vn%{ zrK6Vzf8TXBL$^l2W?D~QY#r`8i>>RO4Ha6ddf0*bA8g?8&VPVSlm?0owlTLC7{MNV z9DxEz8*;N=hy+2M5DK%6Epa+H&I-0`-JRow5wSJw-cp`4yNoDA6E4>!Z6jQe4PrI#6^2Vg!!z zk93mZoOZLLi+^G^gn)41>&yA-x)~-_JL{e1M1HzX_9r^>hPi{ES|rd+OfeS6=jb}$8_DT`YNmJH z4O_FFOMmd)cV1j7Mc|4U|Qz7}Yhv}@|5Py;v_^w&ROC?d3<2DsctX@8V{f?fK`a^|3>t*GRtm1T<*OLCg_ zZw7{g0eBlE?z#h?jizl~i*o~J3gK~_ey656mCs!PnHOjpiqj7pr-@!&-J z#(%#w4mCnwjf!ekI4xDfFb3}4-Ju5TAiS?F$?oI?SnunNy~(!TVWAWhqQiEl|KTKe8)-=r}R4b3Pv-K4v4{7OXCzP*f)sFAzRlL z=exsC6Z&Km14%5-rxV6pj=-X-g6%;b;D3*Ptdb}aka4;TMF)p?h9;mh=Wf*f)+hLa zSVI=j;DVV1U1n~7;-+#6YD|&6GyOj4)`?zg&ZSg2&-c;?w8m6}j^$*z+t_reC~-v} zD$#ygdCr#_Gpmt#1L2|LWJsYi>%WmE600O`;)$Qt*iw%Ql!B#(y6wq|o9_Ti{eLII zM}jjz%E4Na5wL+Q@Ijdo{sPt_wuRWgOO4D%{${_MxS3!&VZO=>2|sMw1%TfU*S2vC zAl(IeqiepkJtS)w4m(oVHFt9MSHbN&$=Q8nz2@Db#06Gxitq?M= zMFp`NHKGijc0_uk=zBrwFD>rj%72aWyzlqoAjN;ov;ErDOg4fYJXf6Vh@+yTDvE_n zL_C`CM|cp@;&4QuvrLekX{QvC{3@SCYMc4dDvBzsQz*rjNv&G6gPV2&RSisv_T*C@ z$^jC?inBP92_rDvn8Mx6hl?K10`#~|;=(i|AZ0!ksNUz0M)(hU5&B?u?|+mY)rZ&f z?VunVghK<_izOb+CnmahNJvqkF*}lin4Ncmh};5-SPZFkqRrn1Z0dX)jnRVeq(hGa z@CkRp4h4GxHD(zm=}O^61gg;A4L<2<#*j*vmETaQs<%R*8e(6KO5cZ*s6^G&RdhpQ z_OLPKSwMO2g4{H`kqoJ+zJHO-CSDo!(!bVD3boojZs%ohdeJ=_7R9(7Q8mhje~Rc5 zW%+m6(TGA!Mfdz9WwV4t@%3w!&Ww`jUCth40 z=*=bH^pdzE}Upv`aol zZJbYLCv7PHKZ>HaS}Q(@N^w9ji(1?*aL*(2wRZLjHa!P}F@L^~~ z5dta=N=McIjhbL|b0l>A{ukT!=O-Hm3iMbTC@xJkt6z}{ggLvVcVd3etOK_n8 zz-nM<{1*dd(i0_M{ng%j@iBzG`yWQIj z7vCZ56EIO`VMpb++VtT#j6`+o--2;`wv0!jJ^L}(AL**NdZsS^GL_@$UBJFauJu33 z*|}mtOvnTIv&K@Gc59iPcBTgsT3gv?+L$F)_|5uDh<_D8Z_l6z7E+YxTjmVi*grzQ zIoPUczR2|jjWCN*8yP%6`fg(vGvJV}uEquMLJ{B{b&kOPlnfu;VJU`6@sPz8-`XB3 zIkz+-_W#E>q>pp^@~TGj0gRo7ok34z|BsFM=2nBgG8cjRvA_4CBWii$G6A&`~|B4$o#tn3gxJTr`ja)Exj52oT_LsV|7Y*(pWC>RM1R&+`G1(uZ%dRzF_InUc2&_@?Wrc|$82Pi1jDEE!mQj0nwHUXGrmEWm)Rgc%?A{LnZhS{ zCOR+o{0IfER~?%`jU|XsaPLp5EEbZ<6@PSrR=j#l>4%H8$Ou~W5=IYS{^G@6y~4K|c&O4pm8n#$YPhENY|zQX zb5h3FFL(%ja{UN5U_F=h2e5+8G$jjC^`Td0%D9aTo_=5B}Z98_5(m9VoG7!PP`x~!;C`d zo%+F5e1;SZhswEs))XwmC~{bOLm@zVE4z1`kX|GkdMBK$7IK^T^$GJmMBL5vdy zb-cKA_#R17aFoTMgqicII&(yb1hTPF&sBpCeK)Xh#C0BFm1t|n5qqgK5*7RqY~AFv zYxqFxC>^E~ijy%KrMT0XXd;bA+M6ih{+C$2W6|O>pwu3N5xh0q)4aO|9^2h{y=}gn|{#!$ncyWc@Tf|5c6tc7~>~>7TGUan5vA$ z{5XY7f>X9ei`yFAXDO&k07Dh==g;f-356o<@Z~x)zuEN6#&Y45E!`wLLwSy+0ulYt zpws+sa|01tvW-$o0YhMJ|M57vLaB>cck&miS?SzLe$RwfWU~16r+?2tgi5e`h?7*$a8X+3fvD>=k@fnS*89z1a56uQs!smun zjfj5x@ArN-_qg}Fdw;!Mu?R9W{!x;kM-EQfCt`1iEP#($G6h|NSz`#s`#6H#-f@q9 zt7r(Ox0i>9{k?9(7Q!~W86=yd=Dx&A-?VWce(COybB+#cB`MAe;>gRaT39(+kGD%$ zmwaG@`ou>3%J?l_GXmOvm;5p7>&J(?hg-=$@=sVkv)K}4f`4YZ59yREgFLSs6&SKT z<>qQh2B0Y1svVmc<_PYo$USqpsM;895IhPAfo^VR!hI>jEEu6q$eQ{a8R&j;kzU(j znj?P-LljzqW*^B5!5jtzE(8Su7fK^5!%fie{sRGJetv-T46`X@h)k0c^KZ;{i`QvE zElPSJ7enLEDu25IQ_$+y&?q#@{VFN&B5yMg|0y75gS=V_wSud0!lg#K(2Y#`Zl4Zvda$|uoDB8N8Hx@ z+R94SS_O+Wm*R9kTRsMCN>1)Ehk0odG*`U+IyX>@mVYEOkTTLx8d}k)qXno3M|`OQ zt(FNczi`^fHjGyfn5(&___rHf8oi0Q3RMM6wMxV7!_{il-8NWOZBW-#U`0fTk0v9Xj6f&KkkSkMYOf4#UwfN> zb$c1kdUFmWls7MXGC{>-t`(0_-7+bHk+IZ> zUsR)3^ilvCL@!sXUi3m;Y1x`5c{xzc?`1cTTZkXh>zPfg00oFmQrt(RCjZcO<2MumRwIkP+TqXeSERdm`hVogNlR<9O4@?u&&}H$fh&=7?JllTl_Twr z?o(=wzsjMr3|qwdm~Yel-a1dqel{)(P(Q$jF8xAxC>(r;KI59>*Ir*Sx;fCz!SNzL zg|p0X+|91?&=(dbL`0{Ey6~vTHH{00R6wrCdy1e2$xYXGR z{>rz?Bs4j>qgk-A%8D|s2=Tli&OK zZ7i?tA_74#d9}au_t&rDc7&3b+wjw!-qEu|$ZDyK1|w#fEHgNumbfqpTz_CUsQRu5 z3#u$8BDi9@EpZ~7&!zoJT6zOEx2Lrq#QZSXIn17}7+vZar;HZhyi1ltUUO$1>@NPJkflcykqB()XA{|?H zMjfwnHbuO-d4)WJQseVtG$d-aNw?_w$65QPJ{{VGU+~@8r*#Evy%lEFa&pB#YJkiP z&T!hRwzS@Ik_V9+T0)ytZ@-a6-6esbbn*pcH^|AYA*&E z%3Wd>6&Q~iX_DF21Y~RMm%I;;WLC6bKpJ+Uco7-^5VI%I1QBVRqQ2Xw62LsXh>we@ z0^c7Q;EVqT$m8q9Mz`rXW=oH33w+vsyd>;pxNhJLG0)>?LcSG^j zg4bhdB9mT^ut-Q*6J)vi?%~tVHeg>0DVrp(2H!u$9#^z5Eo;t2L^i{K{3WwW26I9*b1k& z%+zDXfPaCtUhI%M$}WnJS@oQ%%3E+4K@~WQ;J-osG7sfeX#$OS+R%>w44TTPkg%+Y zXGmES9Q6J)yRej%G|-gpRR>fyNTulq3zP^lbwk{j4zG9Blm#X!=CB6oOXy z!nw+7Q1NF!DGqgd1R1n=H1=!=f6vDCI=x*xM^Wp=UkDwRPX03+OvO9e%rqMjwn|RL z3xBx6n=fhvsBZ%X@9>NtyYz2K;kkX^b?`1Rm*tpAYLjBmw+BQ zH&C|S(s$`zJglrzfi-BrXr%KrV66KB!I_cKqyi&?_&uq>)b{%NYOvq6(&+WUov4kP zZ`+E}kBfhIol$(=|BhOt_)PyD^+rL&7k{fNmgB7ho>uH;|1lFTGd0yR;xPEA6f>eY z#yUb|Ui22+8wM1;L^(wa`<`J>=_$lup<(2H`U$lpX7ln*NO#r_JFlv?ZWPjjOkhIj z=$frR_<=1rtVJ}cMKH|m0CGGk0tc{$Zw>6|R?0tn(0bPbI2-CN4EH=MS-;uZB7buJ z-76ElYpPQJMdfo8;OoWnY`8xTq;so_TT(Z+sA?=!%q^f7BM~Rii!I(}8MT3e{3alVE!%QssXjM;{E{DsEcD`0E znBCG^wJ1s4PLH-QBBi^y7HwH2nt!k7@TgHVG+$GPrmpvmEPip-+49W1mXqI95vSEv z0i}f*Etb>S1;DJ%ZV3gLrP->YuBz?w=|B`-aaCR58ePS~O;vVw#4&g^YC2V;qNejs zfvTF$Guk>hL@fZ?6AWh;7m#0Znt#lv*Ih%%PslkRMMfjfU71Rp&pwfRc7M0)t8@sU zw$0)$Dt1}?J*K~*q6UL(s-Wda`a&1NTZBw&lqeSpYIaayq=We}%_N%;MiXOdxpgFx zg`y42C!6th7;C~jbrW4m$g;ZQoj9P4I)!pgHNc~v@9oeQabG&7&@eY(V zp1M?-edWgi3~p75F4_`QbAQcjZgRMe=L|fN7JLB%w{Bm*r_gKnhy7NKG1&13a+~cF zM5hZN^CkLs6oC-wBRMW`5m)JcUrC8nr(dk*Li%mggiLFscg{bOp3u`QG@1tT?lmKT z?b|Nbek*lnd>)d#_J3M<#T&D3VcswI`~CgH14$Tp0j^oa)tG|ex_^V*ad!B{OdEqZ zt&lmeR6K>?yH}8(&N~c#`b?39znBfl@fGkdoYR*w$)*G1PCZxE3mq}Z&J00h6aUEg z=`)Z2i}`7|!5LAUD53drR7d!&l$@l&w{o|>);vI@ygqJV*hCdhx zX-m*(eGgUeSSY>Ybr?TT)?NFvhda~%2nX&{!5&JSsvmODIG*HZ;4x3JC#6hWHsYn! zvJYY>TTE37pPCt;M@o#x_7-bga9wekM!w2ZGisYylWsg+j^NzQ}2@3aQ@=A zx|o19IBel{q^L-+y6Ydtl0 z->LiF>L&XrF`k;^5<;w9q~z8^o>mGpNQC(raB>K6bAMhG5C-|!#?cuYJQ#*m8pIf$ z2WKt-1y0g1S1TSg%+(^$N=L|M;bu6dB#tR#HTlmX9|IuE@*BE#Te6|=fvsdvXP`{4 z>Cu5aLQO+ExNKC6&)^8C!{;D{T7bAR8)GR%m%jFZW0=00a5zzZHFpEAwgEZ!*+ zpp}cQf3KiAw(%-ce0BxP0rNcYKIGzB@aw;J=2YO=iPv!hvHa z6GM0?{wj*gGJ$Zn5D4M$lD&k|5r6!2^`=zMMd&Zgw2F~L>h~Y)0h;;O z%cRVw8N1+`6Nn>S=7tMNH(lt328G(yr6=?%HH248F^U6kTAarWqC8Bqkr8W=vrO>l zDTyW?CEN@LX|BH6xP-9aQ%GjY;ivfqXhf5Ak{r$QGVdgR|CmnB&3Yq2J~Qj+4gZGY zAAfv+rQXd(=7{FO`-`v-yJtv9K0)F9bY>W+tN`QOpn8UlI>}W=u^&O|M+X-K4WYSA z2T6Vbm`KM{vmvQ(a_h?mh7f7m$Oz%0F&huFsgdh}Pb;YlNL1vU!~WVhVM+1?{AOIBXjAVWq--D%rF6_V4%DK{aqo7a}0Pn$S}@$nt-xz zYEx4%AI4=)-hj*c2))SjDRI02nKbUP^i70@8RFARaGb>~9M7_1a+ar%v^;?rnp0x` zV~CN4BR|hCzDf4RC3xDx@|nZ%8f)?@1C1J~mXdya$g<0%G^OWefEJ5#2+K-BQ-8P_ z1_Qi3vXKfxPSVIk9!ab_V4{W%$j-~gXSt!+3G){i?MXVB7y>Gj*0W+XY$1+X$GJgu z3uqcegG=7Tv~jN^Jjt>h0I7N`arQ8Qn{gdsaLckC%NQ5nIlKArV)o%YHEieHh?r+H zbC*XnJjslpU}$J>lwagy2_G!W3xA_hv%C4qqI(+}GDOx?IVh6Bf^z(WO}+cC?CfI> zr~cp5@-pw>z{&N^wJ`wt#aTKY&CXzPFfGIF)`j=K<~AV{xGgv3jhgx_&7O-_MKQE8 zoY`p?*G2>fl~~gISddD~E|teY87`C~$Zqm?yS)t`p5`M%2dQBUj7;48sDFjdu0brh z1gQw5`|&kW*rfpoBuMeqJ*bXUl7A&fR^ck@Mjsp=G%D|5|FydkvIFRi~^7>pZyEBJCFaBk|Y;LDA`S;RSb_ETtA zv(jkrsqkcr!b{qAh?KCV(tm(fG%0>ftt1FP&9T9vm>clD1og8M@IgWdBd;=mlcE?! zcE*0WBlX+C9bfe>R#)^Uy+|7}fZFb3{Z_iA z22?EO@Fg^#hbhBb%nh!{B{=Y&cTWu zMx|Hja}k`_t`nc4V_w zk%74x2e8&v=YQ8#k*fZdY@nhZX!&-T-=}BcyxdXMA%3d*#;aKI&2ArQrV<+~nr|OXmkXq1V+r z1H*%b>OTAESHybwZ~V(y9HVV0w<0|&ptc=ij(>D!wmpPd**VV!A3*Zm zHh;Tdts9s|v588FZ_76K%M?>Uz;fXiGs=rB#W#Xr-ICd5;U)`shz;Ju2-K?VgtxJF z@7_K{XBr|_9|$1!z=)g!hg`|>3KpBfSC4u4`2H%~t=m;_rX(76Q>6TEnbD!#+dmw) ztF*A_z`ntz!wL{1T^UEJuMYuEk73UgjH($4GW>zmIXJU={M=im=)Z?gIO zB}EYWWnk^KDnTwZ%n_!?W3TmtlqMBBK=3gU(m1WGo5@_%oi3z8z~BJj9ZJF8!)7SaJ|)YU@>8}){JjHJAC}W8`iz`b00VA$&@|5_TvIJ^kheDqz=$lIg%n$0T~W>1 zU**_p(K3+>zkYFvRSR?_>VK>h%|UPjs8b+lBhCyJC};wDF&j;D)6zOFXqSQTazO^s zJ5=BFhGul79;?(V#FgT3eTkOZ8GPZ9p>V&^(A4` z4#P-*oLw+;K|(C3JB;Ii{>+1DR_?%u&p2vLdZNZ6qiw1?EX+j%hkwgRJ~wxbVpN=g zX^l_#F7&@g_T(bRW~@_GXG&6PP3$Wavd%g8piON8e32vFq30La(~{H+T+%CHRSJjn zLwi2FiHFd3iefSZ8!Ei=AQugw#%d%^MFRp<2|6{L1P?(%pfQ7_uk7R=M!{E8?WlPF z-Mxcn`v-e_NBs_Sk$>*t!IQ(@(Qbc#cdz?m@98lgS`Ip}@BT&cA)|X~b@J5~ebVtB z7gNwCJ*u9Abjxxr*qJFhdpQY%*@u@dwXEhOm3!3_KGHT5R}+>ZQsv?NDvxv(CWfZr zAlej#1bVu4HM|`yADSwAobA8=Gtc}(KLJf;B zz3J4*A*6o4NT=srBQy+)i}philN7js;^yJD(mqaq^%XkNn|&SGIyfCr6rh()Oy;55 zR8O(Yc<3 zP{}`99TfG^vK5+^Hy%7dz12xz2Ibo7;H^OrjTWK8`Lzl(d6pLGwjv^{s3;M_sLI7e z4gocQcp?;0-hSD+D_l=X2G_S~pv+>!=e~2FvA&#y-hY&6<3m<`c~MIo8Kqs}vbw^! zdrWaQ{@BgOr$w8*qLJZ>_77fD<>{|{`|zE8$h4Vh`6=_yaT(crsPzcM6MV4_uRubJ z@b)bx0<*U)junCKb6Yk(069~iqRSg3)88l-^6 z6)uXjlz&6A4Wv6Ebn_8N3|>q<@Ccj(m`=fj9PGi!FL}LY^xeIG?Crch-amNOSc{!9 z8|#pn6m_`1{?3qgydpowCCS0z!5+JVCW##fI(}lg^8|fJAFMCvBQNx;lJTty6>odv z2k|Hv7vk z>j~x|@|Q53O$&44f;c_8w((uBBr>3EkkQNt(78~-U^H`SqqIM(o#efU=dx2G%Lf5p zS_fr^C63=AHN=NFab~uhWR2qXDyyCP61Gs=2$vA=#ILrBAvq3 zJmexb0$D`v^C~58Ud4mW7XopT8Ej@-uI(mz@JUsz&XYD>SNS1U&MCz`WVirlK$yQ* z)k!Xaoqhq&mnk^+e2_Y!iXn-|8A|?HY z=C5t-BE>5AOjtpDEBa`{s)>|I)Cr{>R&#$<$8<{JxM0^Y^$X4X){{AW~lrPpx0UaK`da2-+sr;I}+*QuJ7 z@6I1tS3}%x7|a5oY~bN~C|w)9cpk7Iv`z!aAV80M=9VAA;;qw#+R@gGaz(S5r-pyT zP&Y27U}R8oDxb-Kgl%)lb2j@}j6P<;8>?em-ti%k|s z!BysL4G-HY#ID-L$SX+l)!TPP)F2#DXw%WAhidsRkJX;}IeKCRX4X_WG5~V`>{3E4 zkN>Yogsm+!J6rQd$U`(7!_Vj&F;0J5Q6pdR2X0o&-Rf4Yu(PEk3sgx7Jz7iBSzRj=yBM8|)j6pmF_aqGP^ z<%5aA=d30-m~~I-cx&289zL#&QCUtda_e@L^$gYD?oTbf;eR|WK(LD!laU&(4^ipE zj&^DB!?9IpaYV29A$RqeM0H}`&B#NN{$A5Ak^3xPs>cPIjs{u>%Ed8;GYq!A=>rTJ zK#z$I8WF8TSzKfk&K7@0(XClGcYh3rr!gRu;`@^?Me~bMJX5<*&6^t=fuvhOZk!7+ z;?eK~Py$ppW^)6MzsqXeftVc8KhcY_T`dBJE(5Id04lA+Fz*cdLyg&GCaAlv$62{p z2{p*KEm9=X+`6j{dG+%O?+#igI>`qgu2FM#Wk@RpoyEVh;2wWNY8ENQWM+%pc9F`* z(R(wp1WVA|>yQGT$mdZ}dbVC?>Er}Xt3fduWrJxk>8knk3nR`>OoR9o>W4_qPH@6v=bZD zMS5*5vd+`-8L+{99DbQ0;Icy#78*e{E+{D{vvCC*OgDCW(Nyf#6g8yp=;AX>9lkU#b2$G#WDM&8<#;8xqRlYCCTbdn9W27!*|bYs7h z^$i5cT?T&WTi&1ITg}qQD=sCdL*sa5l`V28dxb?!Q)488IoKd>6i({*8lG15qEIfj zm!7fZ$+dqoQHeNCEEJj3^Y5rQ?GXLU3%^NzsqudTKc2>_ze?E7#u4}-Jwv+M(w<9# ztB5T|+|@}ns8XyvQohyVXo{nxw=Ytfn6#QN zBqVm(cEeSmzsb<)7Uq&Mc?Osw#V|F7~qkJ2MCB7+wxFOPG})O<>%11|!=puo?bihuz%{ zBg5T;n)s9IlDpb>dEXTwG;H}B*Cl%}ACHni+#I*e|&m)Bu0S3OIdCqQTr|7-4o z+QWb6kDc-LcgAVXfhAr>P>WeO+n%AD%D8T= z;eHJ)xjakSL)N+SNyQfCzCAkYyH9MSBvdOwDh7HhD?y1M-k3|>pm{yaa8>jz_Yr?C z`mdkBeEFy(70YT8tISy5IehuDcd)A)K>K8$DlFf(lu7Q4|Gsc2j^$ZYr##&7Rn4DrrMo=iglFOS2u%V`<-V%FZ=VlW#N3JO# z<{(iKtL1-FEtxgSSW)r9#y6()WeI-)i@lf7cI(d@8xV%1?SP2I^LNP)8xU~Bl!c6z ziq<6P*?0!x(I`6=(+$DQBm;x~?ketl9hi-W(^0)5o!L+?(4!aXY^5G?8v)B`UWm3f z>+V#{zdO#lTRB+Obz4E&wuT;S&0976ghADXp8 zuk;v%wy4yU7rkc)9#e2^3)K-@{G6=f@8tL-ALV5Zfjj8K-)GYlK7cNN^YI4XBa4ZK z%8f#x6_BnyH)P;74W)l;2#2-d-4VUomP|UqP2;8+=nOXMV15zpq0Q#$h!j(Kt|FDX z0I$g3^v<+@-wTp>dfQilwdp(YiC+)K>m%6f!9B!2Wxe0~dGFwOcfbFtcWjvR(bnPk zNj{mLOC;UHF=}4%8y%87V`kO7aLyN~@+?G{m3SC_?GCUTa8-Y+Tuko8QxOnX+J$$I z;u@F$Mv!q@lrq1VjnZjhAfL>pWFKAfBX@qv*@?)(CHrI;p4s}}EX0B&X7GKAaDx9n zBwl#zVph=0@Q{WV#J-S>my81!nGsD^;1}|lZZ|^L?|H_YV_o&$slxLqx4EtatC4t= zJSBYpHbciuUhaSUR$lG_*3_G65Rq`0iDHU|sv29-36j2lPFlLZUBQ?U0QGm;Ug0fF zE&orS+2ZRy{OilFLkPA%!6*KGGctgtmI@Hgm~2*>$N){;G=xqCTo{_Dp{k+*Js)3e z*OX)SIMe_!oK{&iTazd1#)_>P!cbNhn&E@A_%>+34-Z!A05Z2565LG@ipGYu;fY0?Cki4L z7qjcYS)hNs|0YX0h^xm3@ET&IxnE`f>ygmaev}czYS^<}ukAMo_NiZ{Hl|+y+r|45 z*)M*%M+QO!Eg!05!XeYGPD+afZF-y~qYgJ0`uIhXA^GwGk`LDC?vHcksX{}Lg?Q2G zU7wu7I?DqR4yP;Ow;O_DPEr9!d7o}F%?L#KOm~0ih)lPKA@%y_v*~VeHGW!5=m?3y z5Lpe&%q`zk=FXk`*VG5-Azxp9oi3i|)2{>gRX&2Cy6JFn@W}1wfV~mKW{_Cvj$!uC zizV<1wcWfioCO_)2H{wt4KW=?!!9aSx_#>KJw;x6-+%u4c=zzlLH$zEFqeXP+&emc z{i=T%B;1D=0Qr3XxCss%ZeF<|$>lrQIqLPFSJ!DF@CzYkcdxe_gTL?y`_B)LE2}Q; z6_hY|6a1eis!uUcE+)4^eO!Y5B*kDblSJh>HjE+&vKd62A7i=*t(ZDRf3=I^qYb9F z=s8X25cV27$+YBV&oOl*t7DAF5~PwXdYpeLr?b;jaZlnnCdqI{vCUxwAozBZC*~Rp zB{VJjMnfn3Q-O~=JPK`Tq zinp#aO^9c?fQOf8Q9}ldaJiVtDzza={7F0BtCR4}6c0b7*PZ4GMrYQMHNs-9k1N?F z$nX2+0AZMV|H9oqs^60?g6mF47N&p8*Cnt3?`~GqIu$CNiaG=m?LgvYcRa`66KKUO z0kfqUxIg%l1>*k-bm`9NMX1wEFr)*!tfuVdv{P~7R2P28NVb)jdwyKPTLlkQBPoWZ zE}2;;X?+)IE)_P+?Nd|+kqN4#Xg@Z>aC#YgQDxL_$sLumam6Mgz6%ReDj|RJb9F%! zsm9Wn>18}Vn=ZYKuFb8M(Sh-nF)XZE#cGAkiZ~FS=2r~FCiQFC*1pEn2_lO_Swy$IBs3mWJw#8b zyD;q9xG@Vucv*bRROC}30os4zcAp?c7Mk*K<1aFuI&E&9R9JW32Df$!w0^tOIOToD z3CId9q9icMuW&pE8`7T8^UvZ%Zz}=AzS~ors3T-6RX}wI;tdb5nz{R|`UZ1f>ga2l zy9QKuj6~<|_JQ~I)1OUF(*edM;_RUq+S44my@TCWhyLzA@4a|&_~w88o8Ix>k$m)i z93A#-?W5NRZ+gG9%nxf+)0?t|3Z=;KGAP@9>$ZqzK%-WpX`58HLHP9E_Rk$*I?nO8 z<&+*CjzTl-fX@(n3Su*cgye!`20*=^WN_#|8`t;7LW?(6KGuX`a*`Tp5*}aG_TeF- zTdCW7q}Q58>RhaQZ;gMP1Zq)?^oA)KAxcEUlbwP6ez$krLxYxQ7=LLxE7^RYYB7M( zxsS5`WqLJksjXL;*3a4Ck$=i#9$<*}7rcuew=3<|>VZBKiN${)gp%$jze51k{S>cy z9jW@S=3zaI4ofit19D_;;6Oj>Yde5aH+c<+>)aD}dA<7T1w4Ngvn%Kp5&MCWZ2$UL zd)Pam-UN6C>RXrCk{4XVAJJAm?&Xs(?u&;cP)t0}z|v9Sh(6SyC${<)Lb!0($$GUX z3uoRgv0z&i6(sCWc1m^TT;a#$(S|?yxqb3oq|&8?A!#Ki*&v;j5QB9D`6$!VEIFs{ zfB=T+MGD~?THb%?_yE+lA5FIe*RU?^&fQG|EURbZtMs~I_%|GVBxa2L!9$#O;<4BY??|j!pBP&HGUK2&MT3c>@D)d*CzypIGxT+x*(3;&w zNm;@k=K$i{FzR?87%}wj>Oa~o$w&Q`fc!ln2 z=vt)bQEPt@(zhh7#B0GvJT~L^@~QV<^~_yY8Rp}^HrJA$KBJ6uA1i#J8l6OJ^ndzn zt@JTxkvVyn_=laoKmp~!hu}rU6?*-a(0MYv9;X)^K_7y5Q5MBca*~$l7Y6vFrW z0kz4ay3D4)Ax&*F@BH*yO!rT+^Ymj5c@fcGofCgE0#C(01J`-!d5i6nGQ zvSE%!SYoLQ>IF`aCb9n|MM`UgL5p1qVTerJf)QiP?*Zj+F)JponOX9nh0Bo~XBU^y zy7j<%Oydf2S~(ng&k!P}6&YltbTE+o)_!=Wi6Ppdc-KrRL=*hhbdQxVHbQ1?QC?8%B#L3cVrJ_T0u&_igI z_W2kfSbvdCwOU8nSvnbp!~jDOgvq8&llMr4uMBnOpWa*GX5;5)P|*fBaTDNy^Rn!p zCfCKxtQSRGm+0^n;)X#GZR2Y#ry%lsALE^R#=*$!3Sf>!MV~a&=fxGcrF5K&i*A1a z1lt?sY3a2@vV#8U*%B+z&~W0!wQ2@Ny;_|J1c@ntHPRy{{s|Zd=7^ElBpVa?$1>hi z412Z?r}dUwuLP1H^u48_9xOI-jNX{;pPij`*yG6jNx4x6aO_A{G4%TV>tFxc`mTk#y8G@(~M8_O!IY%}S0R()bTsgJmcO zAa*@ouac>0zQiN0;XT}aK(c=xge~jl80mDHeyBgwIo!3JbIei&pIsX_B|=mf833qZ zn21BSk~$I1E{)mfnp_0EkvRd%FcB7CRSQhN0-0z|g)DHiHh!q^Lp%2ZCCOF6QCbSvBp>$FsiSG@;zFL2F6`1;Khj_=6K(*{FZHF8EODM$rCx%%10? zY-ol`OdkE(?E#@`L?+yuOww!9@+D+(;wB&SG6#QaHcmBzx%Q8H6+Rahte6Z*o_A+8 zhO$pOBzbs}65&RFEUM#Zzx%sB`$K)XiJGBh_z zCz?A?vKa8gF&lr_eZg@@YxwRHU$jo3`$+a?cz>9;E44H$+1H(r>XKl>9^kB6&1V@d zv|VuYT(^YhZDYl4l%X=&*8zIraG4`ELeOW2eO0-E5HEM zv!lb;ukPc&S$wj31mLiu1xrJ1NoHN3MXN$X(W^sZ7{dOdd|`)$*@Y9l-=|h=U{Owh zc9mzrX7_*lwLsJXogT&kY1~rwGJ{*jsT$ClIT_9-p5$!rfjoB(C<@moAcUN_8U)wF zLC~?zZyYM<`qg=kY!Pk$(+g8*X)B*dxQ85uLp5F4o|IGTfq*#1%Z&@yorR*W>FGbg zzPh9riU}QyS1wDDode5P)(V?$Ko1 zLM)YlSpjFq10KpfMa;2{t%A}|2Pu$=ll8P;;!*`F3Qsb;^RStOm0rQH7^M`+cRBR} zYT+f=JJe|~hd|3(4+$?s_Bm&Rmeh9ZKP5SBs+eggbX$EA%!tCZQ|wSazlF|t#~fRQ zoxy+P)Qt6<^eD;J`WnWn7a~(br43A1aX2#b3GiTjxf>J)g(QxKL$k?oY*tnSu?3j| zS`dBLBfyl6w5&=;k|sC-hNl_PsmVbBJ?K2IcH*RN&qf&S7l#RxGaV1I@^l9KO;40} z5Y4p%UkrjUh?#al{t^y+0fdTk0vm-fE=J zG^!Cqday=oYN)ZLcVYN$63QnA(R!&%kUB0FlVlQ6oCR6!uplIl*H+%WDXv*`*F|@_ zZn2NA4rFnsK3hY)75^Wrvf)Py(H2XrNqYmg7Z$uar4Y>P@-l;!G0Qh#CWwEsb=UTc z=|9NqBHHtgenyp^LBVyAj;~qkjX9{vw+SRHfEY};w08!vkq){!%1%exblFbD=Dn`r z8JLzt-Ysn>kOiqwv-BEEM8x;cvZ+;-GL=Q?Ac_mS5!|~3i5Ab4Cf3E3XAyM|HRRne zJuopXmkbyHJB7JH=~a4dWTAgCX933H(_J=(PqHrn@YJG^Z`Tm(ov zL%l$W4hn_SzMZW<42#LnUn;0X#g<%hh4Yz<(qNMF`-|KktaHLirh2j_GTCHOOxi3` z!7;Pt#Ck|qhpj1+y%T?Yf@l9axdI%x(9$MW2G%yKE$2UZFCHgty>hSz4^R+}m>ycx z{mxSo*?X5TF4*w$vILD%e7mhaPyeQpU2P{?oYg&ek0PYaVtogPro#7P-n75Ayl3CB z<_UhCWc9i2GU-jHDVm5w5CwC+t(OaJ2Q|I2)YeH_PYQVZT~dE$v{{52#6|*qw{oMJ zL4?9ORf@QCkuuW9?_0?9uY1*NUJnSh$lj2lkv1^1e&SNSf z^o3bCFlWrBgCKujJ!S8>oD_qs#2`GCi6CXGpgfuHCu)Q3l;>uk^u$BYLXsGpl>TTo zPlz=u%%qrdVr6(qsO#Fs_=zVW0b@FJM6l+zfmIfwG#kvO*2XBKXQJw{&xbG$Dlg>) zi3h+hP^3|2H7y7Qo*`C;-@qWlHy4x{!!6W-9GJb-MJj))xwCN8_XwMgbHrIaJs^EQK<;{X;RKEFGtsubRjx~bO5`S7>d~yvkczx$i&@U4^#VMipJu0gklDE zf#mLX5LAET7frj7sYUamh9_#}wx~$zwpT_$g=;0Y;qb~=65WFd2>L!J{i34|_C_l~AyXY-m zJ+|;%X(tam(EnQHO3204o!bd_nt!pYyHIr&0p)*1Yl+Hs)sJ6Y$cxK({)bx$dK?wN zNj?}UZL^cadZv6`OwJ zy3W$cC`YryR9U*&V&>*Z2=x;?N{9K(#;lp}FEmU6-faG&1ExAdrT~yvq|Z`$Hx!fH ztdTiw-GEO00(&P14bfB!>cioPvjW_`4l;jH9G%!KDqrjrIIleoxt(lpfGF92m8@av z4#RUFb&~Hpi6IE7vzRb4r|DBkcOOAjUKaZ(ABglY3|V`GEq;?^(sTfV_E9cF(W z>Y{q0g_Q%g(ed|a$D{0}&bS3(Ru4OWgwEr+u7<~@g035ySvIuo53ivK4|!Wp00)06 zSENPHtZ)@7=T!4;*w63?GJ1-ZNrS>HL{1#Qa}|MD!qa4b6$sNDNx%a?nI+4|UB^Q$ zypznp$t)j59R;`-iT;9iiFI}}8;F1H(VdaGJM9L}jpL<_j!J>8TtctB!MIwR;zj zS;zPy(&JoZ-pfbn-LMwIFe*Rk@FC|hwmUp8iW1b7p|?Tc>%+WwvD4!?9e;m-H==0) zTBv;dF-6VBGsAl=AKk%@E#fyHDXaC>*L@GhYUoPip`8%xUfn#$a@L_|_9zKqCoi(o zDZGJ&-(TXnxr#(qDLev$zSY>Oi6x==|2=<%bR1P3N%)jc<3YXnsBkIapzik@f2LYa zf^2(-(i#q12Ey>^I?seHviX1JLss$7b%1VgncUzI45V6P2Ik|o?slfnv)BFif;7lQ zR>9X0 zqWC=!b09iI>D^s>Hy?5?y)AjBY6HDN{MAwjEe!N%51S((YIqPii=q4m69aB8*2pWkgIO9(Q=dW`|c&j4u=Rru)fz2?L;5;52zmJIm;Q&!Bt z-toN5Fh>ZebNS3UQ)m1{`3wjwfK!T2pS0IbQ{QzDIa^N6edd3V!{D6zkDac4&9)av z>qtRwW$@fnK$w(M(Mf`qp`1;WHiaEWfuyx2jQj1#TerjZ+Yq;Zr&kgt% zfq;ZdWbgSkV&_6i<)hb0f42VU`(z!QE&AvACEEqr3fX!fcD2hjUIY}(M(SamJRlQr zfm{b4$f$z{F@k^B@B6P!w?3;qe!A&K^!Lg2Mfu?;GpuzU6OIpZ%4<%GjB@iYj^QGF z?cLh0ve!*iN<2dLx)t}|Y*+cNbM|a6%2q>j7>}D;+Xj8OS%YGub(Vfd znYzpI3i9GDPe`?xu|rxAMIJ_C7``P!n(x+v6Av52=|O)|7JiFYPhiFgFylMLR+Z?! zF4AJ8=5Qt`ZA6*`m7}1l?k@SHlW=}-mn@* zYM}!IY*b;Z=O?5nxW@Q*`eE9?=E}KfZ9|nCvC7E3^p&2m63_GvgG7h3Q;g)Lo#kxc zX20V`?#+J^q%-E+vLUY@8jj{tdUJ$mYiCx`c1q6hhw9#G*E3j$su88_HHv|yM9;8s zRqPCFY)2c$nn0|@{xrQ{`)vB$+8Z8y;VTtFk-uTQ6R{nwUr1&KV@8GjZ27H`VjKY8*k_yN$7yv7X z!$;gghSv1P^(G%q&sSDlxAqbAnG*e~5ap%mABnjDl=bj;v(YsDhn|?(&jY7XQ zaeaRQh`*>I&ja|22Dp%5xyzOw9J#|`BX|Pg7mms!2z{@<+HbMFUOV~g2E>5P4YtRS z5qxt4{%8L6ICf=56S}q{l#W`vj>fb8@yl{NY#G2+{^kr3;f$`BnY!(QwZ(3#?1Z+6 z%JT3c9cIyO%x~~yVvg|s!Is+U(=XLe|ImL%-MXs&e$%V`v9*#HT>a9~-FCdb1c4PB z%D1}XcU>Q?3pD8SMbk+`7-`p^zy3uT2*BXptvvD;_4EJ1o4Q!w+o}xUZ`-=6t+i4` zxqSS^8^{g@+ZGpf5)x7Rtv8jopASDVJ3w@h;}iep*a?EB-|XCt?G` z(Yc5lQwQI+H^^#yIH}}6ZpwiCRl1~3B~Q(fbrl#(?y$&sz&GIV^z;sf#E^UpMEitG z*d25TVEo>Y4^(kbxf{;GNhLY>ZAX9V1B{G$p6s}P5=!a8zP0G zJ)tznnpc!sb$n+(ij%!r>u@O?x~Y0qq*b}C+DsvHi;v9dIaX;`+L+@IS}A`G*c(sJ zyGWd}yF_+GXFvlbO#%GnhYc-~&@bWFTrl>DYU`0MB@L^UTOof$@HS9IBIu}3+bF`= zB}-HqZ3-`YftOSW4nujuF(4Jh$6TEzAI9c-cXfW9w6C)%TuZgkB76de|BTb(L7+CK zo?wwH3FH>>`(`nFZ0E0x|* zF1=O1(sP4wdUNq~(UH|is5g{R7wxqwrYb>oDN*&-!s?ZSBtv66qp0qe%#4GoW%lk4PihRJR~RoOafi4HoFn#H#wAg6P3%r+fF z_b`^MsMQH_Ec#jmN~_^AEUqyCFEMHSP845WFNKs6AQr&0avJ7rg?r5>XX}7{1)cpM z)`R?$i=C>0q%+P(o-BiHN-xmp6s#gCIgvJ`ER|u4^AO1+2~dCF;V>W1Ahstz!d-() z4jVV3?d>3&VAS_^Z-332a&YdStOOg@Hoji2MIkKxh=FOsjw^n=O6HPhI!{^e86`Uu z)xQ8hKR;WO(&KY&U`o?VFE2-VB+!pHuJ|C_i;x3~tb|7(tv1N$6q0{2GR4UB&+Ai; zCO>Cb-f(^mZ_0mgWiSpqQWSLuNYG$C4E^BDd#x>SVBKq`{CMNf)eaRV`B{5Fv0dp^ zNxJ#|v3tk`$C(u`gaAkVqzwsfwdQ zx6EmAd5M3zl%~}}ha$R!&%ZLd^w$xbZdp*3J9!vaei)y8^Eivk<%UV3X?&mr%d_+8 z*^GkZ+Lk6e2D`o_Sn(#oX_W2+uo?2~RP44@OI4TsA|DS%Gqg~#$htTjDXxDKWg5W~L#+{JdsPmY+QJ|WAsdo9 zT>CPs*JoW6V48NS%ExD&kZ`ur*-vIo`uA3|7EEtrp&EjpTb-~?l|C-#D1+Pzv09wZM&cy zy$l_Vw9ZZRyGw$#hr8Lomc&5Fk{?_96p@2-SA!_)6`y7J-}dI(RzB|K6H{-S?Mi=` zf!U|o%EJh1mGBO(UJB%yB=Xo5y!Lu;zKiIoedU#U=m;YUF0NP7BXN_o@H7TopMWrN z*0zW=!^dwwXM=}rrKEI!ITNDR4n=8nOsdsspb6LCmm~^#eI0HVSOsiTUJ3KOG>j&U z9oj`+*5w!mYiQn-Bn}cb?!pS%Zoz-Prds9Nt8yKyl8&a7bD^g2J?5DRYOp$~I?MWL zyxn|PKjP+Qm07rk{2r*;ps&_Vyt3_NbHkO@%z3$?TRr~X*i9^zk$gQ5j#5Jz62qj!)*>^x9VuB^;P-{2QccY88spp$HIb8I{ACg~`wP!lZ?~ zoG|H{UB^)JHH5WbDe!*|I1i8W#TpNuFWSr#Z2YF4aP!|)n)y}F*&1EnrOSN`++Jrt z#_;Sm3!;lzaDriUFoQ7b#k^J+i@eOpyg=uoSkO;cM~Gj_GkC>wED9poJHP0gcS+z?uVA)M<#>X?==%TZ;B;)QR(IG|XO^0LhF$qnNGPhfv4Tlx*2h-;tIzc65( zVur%O$Hfp?R&C~MClWt|ZSkGh+WKa%Ha2@50B6fcr8>ihXP_H_g`icP|EZ+y5jN7E zB5Vm;=u)#)SNTQiaizr;Hhx@2OhNP=6)&F99btPdx}-r~WOYhC|EwcyTZWZ<5fU=bmn;VE!wUiPlbkI|bPO;nf$H-%mn0eG zO@+yN7cc6vUgs0N7|i!yx-D~B(0R*l_=@}1N+?+JQUKY-?-8Usi3yCF)a%+=v*nct zJ+3&thNdwEOE9>Er{Y9}208K%Qjh!m_Bc zP=(jYzE6~JWEDug9Qrss{u*hLA>+uwdk(E4`2K=}ue-pI4VOzSAA8uxQB;WZy-+DG z5RfVlqHRZWOG*_m$|O=g0rL58c!bB>)mlJXIIccT(_Tl+U1V_HuD0zYt^3^v>#byM ztDJwGU^tTXhyIO3!?V!{@Tt#zw|)U?2yj;}h-XBAsMr`SECh>sRf~V{UbW=UELz+K z!drNFh8{T@W%9!4)^|hoQxG^+ayzQ~??dH8kH13-4=(O=DZKmOKD(WWtPp4d0#$(e zMZ03t?Fx2Rx!L7=0Wx*&ta+$2f&?NXNVI=xlRo6*OHc_Zdah$uUwsu<{AFxhFp(PP z5Lng0G)&FsEfr|V+VQal$FrC2)rYYbvNEL$429kWPJt!Pdk0M&`aYcz0FNJf;(%s~ zabol30Z$U3mpXNG_AGuiXN>!iF~5wnO6wsLNC?rpixYnUulkzm5O7;TkRVygoqvCF zsyoFq|M2`@?(kHpl;+Eufrvbu0t#hY}7yXEE00r^0N7QO@Aq+HQ{0 zSQv{y)9wu&0()Yvs|NlS8E{jMtgmuIa2JGyB>Ton9H6nWQa8xiI=6nGRP+nikLCVd ztP}Lc;aFV@wg|JRHfZXX0B8BHX>5OlquMAv^+Tzs-tFN`fa?OU2P9TWe-l(<_tKh( zV6I+l+f*kKQz4LgV8;MGD<;?byZ&R2wOJv)?#Ux{LV|-;6>OGC+pe13YslEn^Y#is zZj)gkSCZF`c^6#9MqwBPOzlq4;eh?N_>ghj2q80YrMMe(FsSORZp(DTN8W$0fLtFW zWsKRb;u;IuYmw!^lDC`hXhjeeH&_oEl;vhF#r&R5VL)Ca`P8POIaXPpD3Jkre7RUQ z6vRf{X$F$(zW3rqlGC|~a+!4@1y^H=dvoI`Pazvu7tEg;UjKof8WVin2}RWe7LQv# z;hLG!@VhlQHUAlv-C>rQO>lpC-FAT~x>CFBYNqY?{?67?R2uZ9U0H2H^VNgGk&1OW zvdZQ5cn5fmbdsD~@Z1_nRscjKGe;bmvk9WO&Rh2+^{#>KJ{_6oIFN?au-3 zzi3(8EAqB53mm0=z4N#7oot^vMf<|0HBKyAMDn?%#J^Izq3rU^-{^n-LXX*o!kS6d z8t|2*|B?94>b0aVr2!qcMe}2?;Rx} z16rVUZ~y4ki{8PWZ+w5F?CA!vn~CtOh0PnQaJ8M@IBKC2p+K+>T>taNL$KQ6ek17i zfx|CFeT{XklCj>FbRLN7xgf5S%H@XC?b5==uvv%|uB-&?5F@jNsVK!>0td5voS1pf zinVrWac}Q=m$c;!(KIvk0oRx446=1~TvFM(8h)Nx7e_2oRlR>;E@|yokF`l}F`GnN_p&}0U7j0a!&aEi-EUaq+r)5#^DYr`d)`t!NY*#! zuGiXPqnoppvBuXNoed*)k&ZDF&1jlWXTywCy7}a!FmfjyN|c>zkx5m&IQclHb0JbY z;?^lVYqg;(lzD%r$gyjUzpINKGykp!TVn)XU8S`-c0QhwaDuO$j zGse2O7`dPl>~^fvKX&T*TEwH|4)u?i&GD_jy+FihtZ#VFyJbgm_o~a~`X_pAy4F^w z%x#wMD~@q-2w4KqbsW(3(tyzM?fo>r$l?%PxjVf)nR9=MzCwSSWt&tL6g;`|8 zGuB8+tvcqjh`zd>O@*wXL7{!)1Q*LPlN)rST=d|)lS#mDRt?Ihp^KCsD|Hd_6+FTP z|A1G^?v;G)7L&8@;MaH9)Zq8M;Xsr8)BT;|;==rz z@aK|&ep-Ju{eDXRIVj5HpN0`mQzIf>C;u$-G5`K2*SzMMuEafo7N_ZXkb^?a(6}yFMuxGjQ$<& zp{8Aw#4EUsWN@}gu@qv;$$?dK?q1wbl=S>Os?n(Ei#H%pn2>1qv&g@+?E#C}e z16kh`Wb9O2zV){?NL^5L7b6;UJE>|bLN~fvPz8&j|LdC3+1(%x1 zkK57O+L*rz(hbxD8;m*mv9{HNhUp+MEcJ{jv~z*)C}{l==;z<`jEJ#9LKok)J**LJ z6S$XGJuR?i#g%w5=Z8AGm!R#t$iQn2b;5ssBW}*hOYI$rHII!baeRMW zdJCR{UI&td`rjhxKcF2t)vC| zoLU5Qcs<4Xd}V$8WmZCTEkaDF+2?3ep%&i(zp` zyG11oQG3P(TdhB>!X0)qg1!@a{_V(FQ8Qrj2E@F+j_Fqk51g7Q8*=myG$L09HhOrj zEtq+G4bf&_e*qXT@>4*(Il?!)Do5zu>?F*Rb%#4?{boCf5mMbvVd$%&*)o5FY0}$2 zB9M?rni7|v!X~nraA~2Ym<{X_f=_i^BwDlm$m9S$e9sKW&n6V&UUc-h=hj^yd^k~P z(`MsxHsMgYN7*`VN9-SBjpv}M8k4$zWLCg5fq~Mw-Hot-X@<_w6IBf%)$Dmr#q%5P zcPEEbY)2N_?W%ojEAj+ycC>$3ibGVqApG+acuUm@ik2m~5d}}a18O4@S(efyu>Du1 zG(gcU$gHAQF~|lTdgDFFQ@SU>db+tvSt%?D2xq>y4z?jcBqg*$l z1!U=8y&cr?}B*V*TOS6j(%yy2^gKgyet&ZY&#@q?e&kg?5r zLq&4M>`x`nhfSV*RZKo)6WQ_hptYu{Wn+%3m`c$mP6_AymgWuZIq?s z*O#@(;qt_#ooPT)%o1Hf#8kF|A5q6`iMcVSe0#s>0M!nXAzhv4BkhmJ7L^t5v1RUU zhxn(Fw${RkD`tFV0e{ZSWb)}XYQ8qzcCRQFd2pZ*>rc}Q&l}e5&v$`FXSuf9zB;bW zn^w}v`aZ^s0{wrs+Gby}r~MdqsD?jxW$3Hf%CTia2x>qoxw5*6T85-E<}QmfwqsTK z8Rt{xyx>ySd2kuh#8#mTJw}8@KUg?l?pg0x;J7a!LmNpqkdbDZjx&hYby0lG(7UEM z6%J{GP)}xKWV@`4&|Wu`6df+f!bgiFzku9C$TC@xoS@Br zIvnN{KG}#(hK-dMDA2Gu_{Z!#AB@Cc_LYOU1)+U#gyvvBI^I)kFEzpm&c)0NdSFm& zJdUbmYzP?0K~B8RYzD^;DeB(rzj%=h%y_0CxtU8ENn!7`<$8Je^WMw7gJU^_(Z`Cv(b!nbyuLI$#FlI)pA9MPKskqV zY)M(GbMH@I1l$hdtaO-SXDV{PGSfddi$4-$Xr6zVS<^x0$j}p#@#X$AS*CZ)k@e;O zvabMuK!3l;OH-SUj;y3?lUP;W0Blhk4A;vw>*hyYGMVFTT;3N>C_yN{T(R6?F~Ab2 z9vj;c!bo0GH*bR7FoI zg^R91yAq;*_yI34WKUhbtW1qN$| zj=6dF$A)3ReE>do=oy_8Q!b5?X|k+$1x47 z`r}Ey*aN^;mY30u75^U&Tw$eTjFsym-8xzUAhJQvQ`oVWml?2{G6zl$#b}`3)x8Q% zwl#)=?svrb68BYQFAzQAra>-FdBK1rfiXB~)mK<=RA%XQBeOg&uE2`>ntOo`9J|C2 zf_gT80{rur3iPAw6e2N{ENR1ZDOk{i*n7y9&I-gOnLOC!kEXVf_PTU%NAj8T+bIr+ zf4KzYE2v*b3hfPtsL*f2rDrtk(jB}{5Z^!9KRSNi@u0AB-a*(K1AQWpvaLnrN_xzD z^{G7}Pb5uWXF_y|J}nbv41m5hwvj7+%066wyC;DIaD8mjL1nWm$aOgkvAUPalu&4R zNhpP)o5kkC4W|nU`&lYkDnnWTL!1^gjv%YDS0j?t@+szHd|FJ-is>9&7MB4k zgOOdDMdcIf#JvQUoLj=&nrS;+fqW$|wQ6wM1-m>iW+QWUW`hF4;GC5BSlUI-1CX?T zXSNcAP$Cl{fxjF9BFz|_;q}?fdqMK5jd(Y`%ey6qvIKuA!I1i&kIn6Qc zT9%?%>l8L~QL#gybXl+us`{(az_~jZurbHMAp4p7rBa|(Po_1#6Z55!9SL)Ib%>2t z!^Itgw-)a)f5t5X+#RxVnWX7tn>|X3$2cOG zJFEA9$LYbGCju7g-U4dGuEAph_<(K*0h@WufbfBD%uoT7lgjh{BgU2#E2SmmBucq*X+GpbrPHW z%8J?eXJ>}cDGeTlZ`ffdblnJ0CoP@gHXH;9nztJOOuV^sITY<60-h3*mgXl_h7oy& zAiq$|e2zNDY+S-S$VqmdLf!$)$&)6KwA#pG{oYG+VFguGvno^cVtvDZ;OT?mL+8aL z2qPxegR;nhy^j!(E9!kL}k-8-}NSNjd=RSz%6i{6_p_szc>FQgati5RI>o#FpAW!RWVS01I4GKT-skH1up6_xthOupPEm;`Wx*WQuzOWX^xr0DG&=@IY<+K znuE7ti{d4-V*Q#}Q-#Mn6p-8|`6PVzI-=GbeI86!e~AB!n@t9ZBgRQg_9$agR^6Fz+T zy_25^AY3ap4@R$lHNY^tAUwa@gPxvsXJ_XXZQ5O2(X5mb{5>REIGUM>n>90I%E#uW zI2xtA=->>A&C}^L9eiMnz?b(&uiqQ~^c3Qk}oO z++TnAgD6nxQxAJeo)wdPl>`&_uxmT0;`}xW)CjZ{tuc*%l*iPjxJCS`AXf*Ube8T2 zT$WDg%`Yr}8+>`kSXZCa5#F>z@~l)-DR-@Y_@W)hgn4 z(R>P(lSFgCQz$Q}fx)@d>KI5j*&p*8l{sTN(T$#*q@_CzOFURc=88DNb5}*@wt4Ts zfQfdHPiuC6W{cd>*Z{z^V`HQ6f>No&XJPCjUQcYaFOkSqF( z?3I)S5g=Zd?h|N@dA%46y{*CbzE&MQG#qwhcB?W{ARBPQ!>%0G%Q(a zj0SaoB$3|7iVNr1#kTr38t1umcaS=ZPNS`P!qxN!^&)SzQ?dJ>J}N$1hw`J zD%IWQt*)j`qQD838Oq=0wCdt5A!?B1$Hi;y5tr#OlVB_&U-oNi_-kwSdL7|OO}wC{ z)dGAd(&~n+C<19=reglFk91gxNO3nWr+tIqb^xODXk(+Zx|^pLh1n0ChvsJbkT^eo zJOeYOj;_5?^=FrtldLq73CaDNbUia|&}FK$#dMhg?;=jiz^4gCw^0zCtio;0-+SZX zW;-9sq*n4_cQBodwv6OM8Q|N!{Vx60B_qJDsnUC4?pp8r$GzjdPNn=~I?@%o&yM!? z4r~XNX}vY@EC=%RvF>q#Cy)>2!f*b6X*fALTm@$0mBRXR*%uG;5bnyGfpTrm-jZAQ z+s${KdHc}TefUl=0X%OWF8n~ji=j{ONUU)1E(8&h?o!^>+6A%(r}pL?9;TutdDTRgTklEpJ_4I)<8Q|dE{GZckt(eC# zzB0o&+S{#V7dPb=i?EAj`Nd7x#dvXUF>YoS%kzq*SVcXjsAUv&eB#z@VyPV)->`G{ z>(}3|G1I32Ja#&vDRVfcm`09i6#O0kKH4=U?%H%l&ls$#iDU&w+zR1QixE86dt;gIrdAhkl#=~}hegPCz=6*~k z*XF`)#$%CIabP#EL5pJ$_dP+S^Bk;=K3PhO4Ev8cfN=Q$@8 zea056sNWQu0Z>#KIdPJaZ8aDzW@bt!Gt@#~Bd#v#2??db0u9s*q%+F;aZ+5Iko!3c z_wdjJk)t3Ok-SM4U~0~P%TPK59rbqi50jUB2d~+RQ5FVY28LTv(utB1CO9^Cu$e)Q z!Qx3~h)8hBR*OmcG0jJ)02dr?*^wNiAM-O(?RC4|Emli={}4Ih6qt<0u956s1u{t< zBo7|6{&$g&*I(0v?9&2>8;qbnfvtyGu-4Xt2e`_a27C%jb4rzeVIzQj=ZV?>wwWcl zYg$HEx2yYpIx<9pUD!uJq+d%zW`~V9_LMh((p+jG8Q>`ZkSBpOpO6>8pcoYsucQ7& z@!@72LBkky$SKLL-%v-peYk7;K(Is#n55-{4jvt%C+w`T_52;~{^51F{w4F2J z4$KA`P#vvL4_(5-z2RaOXsiqd$*e>`;($nJq=C%!!}VW2T);*3EbAsc(}H}Y;l+xY zGM}Mmqzv-l2qXT!D^EV-ES;QO+tCRDbdxsd=aIuGUeBw4z*8C*SBU*Ll)I3brej6H zc*<@BhIGse`DPL9gmB#xB(fA}*@{lDMf=s|@2(lk>8TqGn&MKAh&?qGI(Puf^NE2x zCh%CDW*5jRE{n@`@+=PcA{ZI42FU;i(*(0zr(mrvzdO}doIui?4Vg<;B}S(PqV>f} z%MXvM5H!g zfFcsRYc?OdZL^zQW)w$(U#{rQ%ABdZZld zaipUXpN(NWKKJ;q8OS+C2+UcK#|Pi0+4@9u>se!e>_kT*7Se+UyaIHoDjz)P#yVut z6}KbLg_?=ng!A!aAt|zQATtPNappH8wSh#6u`p3>#aaY)&N2lG0A*^JD1D9{P;X~H$PFkAY3oC9UKwXgQi zUbW&N$QMR<1~rtER#)dKme0(VfKJotdDAMv1!@fRomw9ib3HPxd`!JAGm@rDcrr>) zPmx*vXL@l_dkaALGt=%8SmMWw&7d-tRtTB~146U4J}`23kM3^$3bvpG+rL;tMnQZdk~J?y=KY*ufT`f zTx(9#v5`Q`gz*%DYahfultCuL>v4L2kq_vejrSq3os94wz98bL`DnSQ4E8deqEEtw zGVUZ)p+W}Wm($6N$eLUen5O4m$H}x0{Ccx13V>ma`{Z=Bil6R5cJ+nftIO4cpvIQ9 z7bK`WNCwLY|LHU8zm!8tUzMX>e&Ko?TmJcZ_{ zE{V6Mo7yrnqC4Z9IT6_Ug=l~qTXWi|C$rJ0%&u!@(!&ctHYAyQp|v5Q66$bUk@X@H zx8*=hv~C2uYRAY7F(P4s+E@TG5wS3HVxh;7nRTZnGayo}CDIZj z6D43xgyTS#Zrkuj;^_R92EtK!u_NO9$u`&90xhw4(zMVl68>%_Xe)6n;poU?hm*6y z-@Km4gv|y%JChd!XVA%iJuw>>hr=ls<< zJ>^jHQ$~wDO~u2722G#XcZJ+m*q}gch(%xuJW=Q~eTev?z-M#kHm8^;pLmGVwUlV1 z(W$FQR$wY7%Ux9}yx?$mkE^@{ECPvLz#l$C$;GIjT3f%r`_{3aA2e(Uhs$u!u&8^m zwGlraOvx)paCSw1?{lm)AuOB>xy)~VQWOyNDe(?J2y+D1eVtH+3-m;Xll8rQig0#! z`p0I$%KOfEpqEe3asX5V^a=iYg9HYDfeU3e6|z;!;SI0}@Lq4{c>nO=z4`y+=jPY3 z^ussF!|^fla_O{Mf3YzD=f4jk<$I65DhI;7KQS5O%YBl6c>YmT1aXTJMO<& zf~2LGpVq5?XcA2kD-g}YLlWiCe!KtsGP7P;ukHp2$}>CW?#N_URaRDJR#sM4Ru&Z) zN!Uw*veGztdHCY(v*Xi4Uf<Us-nG)ROOitqwuvNRgf9uL#o>>e7Ojd2hFm7EY?>6PiCQ&jZ7L^ z@jb4_g+>#<@)a#SZw0i7x+hR#$+v;?+ zvg@>eYN&|6nI7u*AC+Th+hlOAe522#i2kiwujYj-ag)s!cI!`cvT=3eG*Xht|AHn= zr#KDNO)O?OTIHG$dk$p;zT%|B>W^1 z;SKx4&ktLn;}`&i&$<8{Cc1px0BFf>M*!}B1(;i27Bd(;I_BR?m^Es0gIQhHJ=ydp zhQQ!;dPk;?c`2;ciq%!-+xaVbvQXPDtapg#Wq4dxlMs0&{q&5$xRy9{QHj^(DVtr(4nn?>Fn#^v188_|Co#^9eL{;nQ=B{WpIfIe+{1 zc|k@wr?So~*XY6jnytiTwA^Vho429O*l_>5DlJ^mOO9Tq9*XD4<{;2xxs2b^BM9Qa zoKD53mpbgz9deprasm+~C;f3FW%nmTAB5o#Vtl!zXFg?0MZJfIwfAZQMrO{U6-s) zl`Yd^tM0;7NeQ(%6hjo{;+Na~>FAlJYYb1fsuN=Q>)?Z_Xtj$-TCR25D+FKluX-a@w&*Lb79(9eQ%IHR zO~=w=#*AnF`6oSQvqY-+k!TBnGK2D;}^oB>8e0DK5=k!j@ytwS5*47W{WJyjD9hBY(qDgnj&SdOt z49AJWu?P=yLQO#h4QH%QCJdkNvc+};XC2L32i#K?m27KK5o$+>U>Fs~-;01V zOvi>s;X+-Wpp@7cNEGzw;UvOqVbAEsSDa1PWc8`2R$=8Li)a@b1O6s2mPxA>po!PS zr#d0&rAQN=EI#JRUoiXA`)rr<0sRHST1jElfPm{DZqc_LnC-c62m7HB0a znm!H8z=io2-U%mMF0mhBxUo&EGi_?OLk?cNUC+cDz+4F;2Bc9Flt39 zOlbPpkKWt!$R}MrSY7qZN|hzW5n{ywd&(3hqVNP4sF)kludb)5WS&>SOi1~gsqsbq zx?O6Ft!a+Ap@Co17Tdr+?GHoj4@1l`#PF#jf3&3ju*X)m$6SZhANJV4p*?n*{kL+) zU2o7dD**e4l@^q7cRrTMyjQ=f)#f$~T5oQp|E*S>huqgSa0~AMzlmsMAkQ<$i>qoI?0DvKPZ}cY@R5-tz^h- zaD9CE#YjYo6fHSsHCZhp;H$+0Xn~6;fAKOE&Krm9^#gO6P%P#$!=s$b|Hx#B&ssyi6Rp*lA7;n`#d^_@IUYFXFB|m_ zur*i2%5G}SwUbalI!5;FT<2Vs2^8reWJ+o&Hq7Ih{G^w5(ZRp_(k=o% z*IL^D<--E+v7h6OL@ri;qf}@Te^l9(s8p@d%?MSfy1^zaSFj7HL9tyB#%L3k!CYb+ z?4SaUAq7g6t5^miZ?#6lUNXWc-QP6OBYvnc7n=q+W{rkx8H7>Vgl+J^d@i;PaLf#i zDttbnw3X|QITx+x;iZOAS%nTJ^@axf8UD82!8mqdVo0Z>|W6c%+dHF#=h zG$|DB^6tDCr_P416Psf0J0}wqb|L{`KLPus;!)39XDHP;k&0Bt<&3ZnQbaADop=R< z%ehNqc`c3qUVY|%`nXX=e_2<2?`4I`6^#d5$Vz=IQ3t#0Ue_(2=;Y+*CSOQ7{x8R05|4WrSSDWC_VpE~Aga+bVGLb1YkW^CeaUYjs2m(HTmpSnK zVv<=7r4UN0!Ky2YNd)gNBqxV#k;gxxON2^#6$sMz$5h+)H)B{v+fT~pK8HPtyCW$f zm`F>%63I-H)t6zD1OLIvX3z`~PLxtQ_Az<3SEQRtFjARns==x>GnxM%oMI+vicc>r zQ`8E-FYwLkL=>+O;3EW;$!MB?tV&4!ye+{HYr$IW0cqJRwcUkn95h7 zvqm>WVl0#|cp1FbBd5xkR+XBfp&YSlyedhHACmbh^fj5{Dw0=h$pcTlDh^oaD|UnSCXwW@;+)#mZKyOByvi;+Vp90f^q0mb_-3FsKG~&r zcIjukbbgy=<-8v4-AvIP#H<_+l-SFV~uPbOLBmAs^^TQp4a>$A&qprTt&>QX@fw&1R& zi=A|3|3vD4m_D-{X-?NBr@mfqy|J*~>rN(X8~V0IL4-5662hVRB34w(To52*C+~&t zo`@=C52%#oKJ@L8RcH`QVW@L{7dNppeiyAIo1JdlLWyU^(=}Jj)eDHHvqhz>$?~>5 z%}^~Ta=u!*11a?|9*%bcGk5KI%kGl=Q_NOTR|OV-IUUnyQ_E~coO*3xCgaQec9GfV9F8Caj2rQW(aYuh8f|rb z9oI61$c&fI=S{K^yE~kC)z}7xQk>V}pJcmU)C3@pq(6jSCUgGbDMt7v#Dn(PG5Bzg9YrIHVjG5-Yq!^p+ zWKea2s&*Eb-;)-|@qOVPM5Q@P0J+6z^TtW!nNI8~h|yJ(Jtr-*16nkb^Ae`LDIek)8GR&#YV z!Wvt~TMuow&RSEfg8KM9X!8}+ir=xXSj23nAXgPLKg#A{T;HkJQ^gtn@?n&X4xawq zb&OjVFk_Jr4ie@$U9V9!|JNwHde}6V+si!FYzE#OeK?ADM+~5A0vru#71j4IY)LB~z5_i`6smyoN zd?wymH#m=Sp;s5_#Uzt{IRkMHjC8j4RlOYYFt;ACIOTCJLzXnW!ny3+2xI|uw-xQA zW1Yy2pht%;gxIMslg88R9bR>siMzWBR>epDh;sf(qJru2f9sje?P7uS;$%!i>#_GD zIpLDR8rheYOhIUx3h*`w-0`|kaauzLAz;!UJ_SYme)A?;1C0jpG_y;b2K{RuP>x1! zPhh`V6OTQ5@L4&}%PvoZsEV|!{igU@EB!`2kr}wno9oY^P(yVpq$ZeZ0BHmt@G^{dBI(5*bB4g%wuaU_qavO>ZwYsayYRbH9quiWOZ+Eqy< z2>>02i2bUqIHo}#B>1pt4a*vzk|&4<{CE4m+R1nFPV1fgdS`w8EWduHuiMFgCCx_9 z9ksv&Ya&IQ(lhG0({DDDzhd3(pIpYr5~BTn`9VC4Z~XG^a<4bbw0&wMH6v1+3q!+++L>u`zBpnH&W2) zZDf7pGg2C5#Oe&wOMJ}CgU{3fr3aZKiNO?-Zz^A8i;tOne{lJd91BT0qdat|iHIh% zbTnSh-9-k~J`ke8I(?>c&>dy@QFbv)lbd{$O?Cm)F-q5`8o=BJnRP&2=JOhj4z~7p zH2@l@GapZNozDcvQ>w?BDMG<{FdhrqvF?oDfMn<=WT5%>S%Uf;1;wz^euo04doNla zyi(73XX5mReVRdK3h8bJ-gh9p zc(3RDrDMq}bOw#5;=ob#BGdR|HpX-Y`<{IH?wSHCpo8o5gPig(y=LhZz6Owr3TUq9Ucb$TU$*VS5B`_BqtJKsu7B!AzH2@DNWRV?q)3!5()St5L4}f^f5>K+`Ax>U!B#VoPy^uVcfK8wqa0g% z+SlvQ;!FnO*F54p!EYpUjV^|V!}LH7rej!D#XY;jr+gpv#lS!4XSn` zoabZ=i^(SF@Ykf%=qGd;=K!clrh!zrsPv!T&Xd~nG2Sn`#mr_T8ayaW{3?A9INL23 zll)E@kDNG1J3UvTy$uD|&^$*)Jgm_8e=9=Ub=*DIwo7h_ujFemqRF7pCOzyh5E%IF zOcY_L)qzZ!qe9!ZLr#tYK++NOmVuqWaS;BsVTCG&(37q_1g?W_q zbTPPci=WduZPF_@_&b=acz2e)yA6Px# zgw*t}jy;J#)!UjEp2QE^(yRoiVMPkLRn`OfL1++n(UqUqgDJ1US^)9ee|peHX4+T~ zN7iu)(banWiSp*^7Lj_9RALss1~YN zH$ehPT2C%uhDsAXH9@@JCl}@q9W~$~2OEUyxCsbk_T#y<@HQrxLV@-st&RB@ivUD4&)fARt=Fr(RtF%Kn}EXYCT)(v#yF!#w590ryiPe<7&aeVJS z-^PQV=h`;LC6JL{5)td~`pGIR5N~vUzZxk~;Hos*t6EbMpr-rK+r9Ywvj~jT@#~lq zP`~UTU8HPh5$ZtfFU$mVJJI_dE9SugT(X7oI*AOIppv&ZSj1F%f8;D%{Y1B9Y)2Na z`!ro-@ABE5+;fy8b7Z&S)=Y5^=R)~c>H+J9phqbwmKI-CClSJgzUqq<0m{&&mD*OU z4vh`#Y|}+&8wYpwSsAOXU#9QDdR8d`LtSvMRg4h#kv--f%7m{F#c@J z60QKOsx^#1af=v#f2vuGB(UPX$73or_g$ntdjN3Z5kX_pjNph z7Xlr)GZv^;^46^SG1n|A=t&>I7jL##VDLQ5;W@GRKc}Euf4n6~2mf-=A?aVy!Zkna zCA0N%t~<7rEcK%Qf<1UtyQlb76~H7o;4r|z4WwYjih?Iak5SDI1!Xj}Z;=IntS`R- z2@c4xMr zYBx4N=ezGzb)5~h>5okf z@yVJXfuM34cOZ;ikyhU;IAHe)%=VYZnlrjSpg&w8f3cG9TQ`bW_oeP>^?ilaCfRx& zysvP4AZ$gI1FO`u#Mql_s8?KKj|bR7io@(us*acOnJ zN<2@5C{SWwdGS%?^i}P}%4D8RmhU!VG~I`Me>_S?=?!ij;BTt~!H?rbGGF47DaLoD zv$!dTaXJ|f3E!16D9F*F&_fS2M)7(Oz0!x7!Ea~zhcSiqU4UV)QpSnr zBQe(n&JGs4q~R{|kLgUj{Dyc_9Ig~3K;$Jsl{6=BvZBc(1?;aei~4waIayNAuu`T_ ze>MtrNKZP;R#2BWlL*%(w*OzG^Dt8}*zo-rv%rLCAA!P|OE=<(>&wf98TsK9J@25v zK#|aI{)~bar_50i!f(t6S(v2zh zE}v#H6fV}sL1y|;zu&VD>|meNLrj*TtfH*gbypP-r*&1SsC`W5+Xb@m6YAc8T;P&e zG&s>NEEHvJf0heGs9&)Rlr{`^e;jU%Ee~k@i7-(KgIJ`TK2K@oF__K+E2p#mjMbWq zES9tn0<}l60k}WP1)ig;7X8ftwo$$xY+{Tw#>1Rh@GA!nVE(eBG|e(;-%arW2I@~t zje0U#5}s=QH-z;}X5IJ(4W#U^Fop@L0wKRVs5`y9TtdUUdUCN`fL$SUf68n;e~%^% zS$JxB*B2W+V*<1hiLO=aBD>1nVba@`6!bo7Bo-5TO>rMY=r|wgofSvvxYIv>i_}ULOzP39)v)yXIhRfZafq6wn8cLdY zk5n2|PpbYgI{(q_LqzbJ5O!~?)qtJ$7uh@8ZUCLaRd;1~^TPfX>3cOV zZqiTVo8^r~Ny{k557~!wvcy4DnduFeRUHB&e|^X%>Jox*Y;L_I6|yC_k67y_2Y}K9 z*1M(obxtS7K*D*}U@UKYEFVMjF>LKVr}tpGgufrMFyx)4^oG%X6bd zI2U2_fXg1}umX&fs`drp7#b-X{A3C%1Bk^LxT**dduuVjBbOVtZa~Cbx=oL?6l+t=NyWe@$2HiVVeyJp?^ETC%ans|r0zORr*|Ap>xo zUg_XM^|>z|z3?nS<&0Qd&*)YuSz+4OVRWwYDvEXS^zh*L{EWLQ>G#Kv&lbz~X;M2# zr_;Ob$B&cO*Cb$c?Q;&}y1Z6;@-W34>IZkz^k#gC*S}}W8#xJH=QFX$<)Amvf1N_J zh+vYXi0_L{7G~KAI%fr@rqTSGRw{b$djxZtmLAgsE~n_WlJCIE=I0g$*w^F7-9bP3 zFrF>QGRe}L$B*mSd?D@;#_$nK-8)#%Zk9lVTk_|_I&uZ;@CB%mZwz&RkPc|ub0mt= zB`DWf@@#@Pd1Xpwa~178(z$3$e_>{Ju_(A2XOj_1<)gF1b9r8n9Q-I&Y}r`3sz&-zpBP)6i!*;Tgav{$Lx=SrS2k{n9DSjqDpd44OR2owI;i+k&cd+uTEAxvZ0z;6gYf!;nRDUC<2xJf{AtvG;;4H&C_er zJt5cU9F|iUz&xor%kVa3mU2hMacw+@@3bil#6Re>Ag9AEnRQ!S9-b~Av6mVs10F_7b*==rIN~EdzZBphJaCduy&VGF;~^@uPW|^m*^k@ zGyxBn9U%fqPa&`^oB;)K;~GEMLtE~6itnj5A!Mswvl1cH@ry$ReMhD$8O)%1O_ho< z$SzqC&zY*=r_ZA{hhVE&4a15QY;B%|t!gxESEONk^E7OGm$e}RE`Q#rs{CSmSxuFv zKw?-@y&+@F6~fg~YRFG?BcL*RRx1ltmhxJi3yMR(@l>Bjsq}`|>2x&F3CP*Wg!HFI zq6bowIUPUFL3!m@S0bm{m3$?cop&?@APNL9!I`Pb8mGbn>`+cRF>_8BO{#s{gNU@U z%BRbli)>~D*vgh@GJiSBqfHt#468yg!{r1|s8}?Ejh6^=PP9X@Cf$u9MPPD z=#oYDNhdZ_2P*{LWMI6`#xr#++DM+JQ$z;i3+bTjLUnMvoZSLO%4@9?xx3!lhF4UB%J|R7oc` zn`=?GzmukDvKCUW9joIq&|q$v%KnoCGA`@7OaLxVB9Lse+{^U5t$WFr&h%G8kUO$=j&x z%C6MC9U%ZF6Nh_2r!tC_5oBwP&LoDo{)a@=!B7?^?BM`Wq8?~hT3%EOjl@LZik}9I zKxF*Hn~e=#q`+tj{>Qd2%htA#6$f31Ua8&KDde7=4u1pfJ42izcf;=#hc>i)21NE# zZiT?sKwZc1PFiBru?~#_qk5BF$ zvr%=0yvXxO2CIrKT(s)~a8iciD~bddTUNYil$z6#wOn{bQPH>lwh!B^ir#tK^TV^V z{Ufnh@qaUw7wXsxWoRqe-X&qLITmiL^|NP1&7BmWjxdB-{a{futICC~RW>OX7UY`K zktG*iQB>zye{;ETDwfHGOMNH!Wj%2z1G;%BS~tpRT_M@L@~|M+oQ{G*;wuk#>9hV0 z2}woe;Zk%nQgKf)_&s9IXjdi0&OjMs9BN0_)KZOQ{{2jIAu&b=NfqwMFzfQ=_-ZUs zAFD$;5Gpk&@kG{w^{l!grHBO+FzgvV%i9rbg4fzV`u35&r3RbCcPRzpK(9I|2V-V4 zMkkzRIEplLmoOy)8YSn03QaN7;Cs4w9PxMX4&{R}(s+*ptUO;WQ5AQS!w}s^+aF4o zZzTdD39pHH@0B|O>Oq&8B?2P`-$McffCrbtB?2S{?;#on$b*;cB?2q~RF@eh0x$xY zo0m%_0xW-v{U3imJVE^N230ATiXB_)U%YF3#jXIVw0m`^9_*7JzegH|6z)%S z!+as%0M&6H7^VVydE@cX(8u{wtp5hW7 ziP(kx^L_DmeAzZ}3^h^JUafzVAHUdZio64MmM>?Q*}>B@^->Gg#e1gmQ*i_JESS>> zKYI;dXX$M|)wSiH=o}xx-{UKhE$*ZEOp$*~5fE0V=F@)wD7h?4AmSYtO^b8pZj|#M z-&rJy^E(I;OD2ca#IjoLVuT7+sBPQBqL0PEvRRVRcA61>iPsyng|51qFU*=m@l4XxX z_L~)*xYnD(YO-QO$FV5fzWw z6#KM%Wu|ies--AEWy*tVKfkJ4=__qUMy<5Pyp3>niHyZguavmhhUq3P_S=8l`EBmX z+I;rgSb2`a4~}peyLzyWse}H~ZM3f_AF&u@aCfeuRFZ%)4aQ|a)-9F-+cWpO$bpz3 z^m4e}uJO+|^$D)(Z3fttbW4Bdw zwSHIqI{(PhQ0QRVu!*KkGdHIEyJ*;h7j5qDc`JmcV_gSP@8NMwNA`d7;pzEV@^b(5 z9KXn~Kj-l5d%_+jsO>f?3WHExx+D@8wZ9*7DDC{EIF-H5(weEaN+fLhCHp zTw7sLvnSZhvc?LnwSs?MnN?P5xfOt6c3G+Iro>XJGRc1PK%nyqy-(xd*KjLITJMYV z3c63x;8*W`LbX9yVd)iBYTJ$5So5+q*ibL>jKu0j*}8_=dd6AEK;wgQUN5%Yb~fQj zx&5TVXQI2&U3sI+evfaZ9e6wdg@a^1A(8lACW^A_RNJXbcm;p^^@}^$u&WIF?$$j- zhIi4;yH&f=cHe5j<_L-_Eij>HEfd_bldlz-W;X0Dg{lRCnV-luUi^gK2rJ*x%eK>z zkDa|Ocb;=n`_Y-W@)}ug>i*KgK}abIx3%gE5uU+Z6C zUPS&ZoFMm}9=6ZSH{`?aFhBxW_LNplqLDaKR`SXFejGwF*h*0X)|2 zV-Xud*Pqp1GJ##q)4w0TII;|TDtRU&;4ham%rGo3SlfR$t3@OkqO78aWTt(JP|zJF z=OSF++8{K%p2X`mqM!M_IuelV{fOxgDy5g#yNrA8eaxJ$w*RTH14x)9aRsdm=SXB6Gf0k4ObC{|GhG4R@l$+exf@%L&ngq&Q`Pc+}n8|s_*Z- zrmOGqBE7G(&x?Rscdv&(|ML4iZ#fRG9igRIQ&Pqtx#gxL;4e!s3v2}oKg2@(378U$ z8FC`*?KyKeI1Z0zMTk51dVW37>}<7GYUY7qODxn_WrG3han)dolF` zj1Y|Ysxn;qz;Mws!S-q`{UnYNLn+MRYse~cFNz9#?RJ*kru1+l<*?7RfA7PqgH<^5j7={G=*8#@>VL+b0l%0-Rf(`z|Z~q7E z?k{Xy^r{XYw|Y@0pOwF8Q9OOE9+whB5%15#q-MRBAuF0eNPOVqbBt6}?u{2EiDk)NJ zG0Q-O13DCWDnO|GYMKsSP4QxyeBG1}M85EUG+m6ROR)n_lXqY!Pi67|P$E*W7U}#w z@+_ZSjA2dvc#V7SAOWouCN_%&o_bjmePCX?>3FX3bBRqj+SE3LRxdAznH&{oA%o9= zE?;mDkc%g6$(M6G%P&D8;Wl)VUS=^Zub$^H@T)w{;jSUzk2a%N`g4mHK*` zjd8qIZ`VNbO?5{KHIbb?A5X>K=j0Ka(tB%`X4R~KF5ln$^|}hs^b-RrA91S!H1Gxs z6RXhsE2el$y|D6xC6tV;y><1wq?1-^sOsE>SSyxyTkDGg!YmnC%vq+I~|d)Sc_a7@rQmLs1taQf>OO z$qxM242c2XOUO{6eayG!`?oSS4*PJ2F;x#baB?E6MDlb8)^W^wb(zNb!Hzp4EGyp*bzwxw#h}xzkEdvOR|)ZaqbqJ(qql0!4q8i<2uf`<|PJMtQhiq?VUO zayo`B#9LXctE;q=BTT?eGX8}e6|Httrjyhio!zD%r#3y#UhcnsVUkovX%W3yjFZJp zH&COU>o}Wl%i}z;9H3SUYVp7-QzTaZ(koCzh^d!a1x07VPBC7(xcZl%Hrs#}aT!kg zJydtZ<4Z%K#JsKgx@`X6WJ9eg7pmvl3hQM=Oe!@Ei_8Nqa60l@h*R;(!N~O1(Y_)5 z&(${u(b-M5_%+4ALa){S*&=m1s4JI+G6F|`iM$g%yFs&jd=+x3u}jN_7!4D0aZD?4 z9rX2kwCq2ocefbv%G;3(CtZYHQCE{YyuM?rd)0zK$#VhNht9+Vh= zH1W!e({vuGn@8-A?^?ea3K?{iuqiu^f_L~tW9RYV zdG;b-98VEh%gQ5dX9s4YB;#fgrp*k0Gz#pY+6O{>6KjX75AI|f0;7j7(WLr73{MH7 zl4#LhkH-U{t8m=pc3s#dsPdE~79hmt3Ee6Z1FJ>Xw|db!wjJ+B8A|~Zs&KT-v~!1h zav|S2=^UWuM?QQp>1#D>zSFiy0U3&Bxl4SU>LC)={hD`S%!Qi|#mHztvIEh7>zs~f z1&CVeA~*tHXRM?#R@WEnXp2H!;b;o2C&aJC`XNj!)m9%o^Yv8vxa5@9^Lb%>oWh;D ze{5DjYr*4d=Vvqj*Hjyd=OW-?6@|ej5No_`LR-sKgx&c=Cct*lv0^cQY!XVvCVSnkap&V$QIXgvIV!}#Gp0UPP#&wQj@1>1 z#XR$wDGY~H{xHvO^7q+kHmX%tEH3q2X1vHhCLgnJVUPPRm+uga@?@Ul!Kd_OUyd6IHb0W72Db$UlA>IYG>fK6m+!JOU(=^9_YuP2vH zH3A%eZf^5gI=dskK80|^kw4R$O1H?~S=x^eMQQL%za7MxD#DfC1~$Enp(n2s7~T0{ za{kkyI4t<4q_ace+NdG)HuDQQj=(?SA^v^iAu2fc)cXi>i3Qr6OVYf|W|y%2!Dt;c zNesoN$*n1>spB$nSk~H>*I|5t!|<{3D4U6Yq2paxCW4JPPTIkKg2bhJ^oUP-lP|>z zq#tN-Vv0O65qFg23Ytm1=#XtCr;LdvsTESO9v_c?Ok#k#4`~%LYOfFj2Sxyqy(o?a z{-bq|QN)oSH7PtydDvr=_%U2`_88x16zv*YFth`BD_&nO2O;|EOKHVUJ8pnU$tm%F zN0HE)^dr>h`wC*lJr$zA6DYSB;r47-53nVIttzg0yIa{Y2`H-HJqL+h{7S`7$Fs`` zER-AASkyyizvqmA`7$a&Oa_OMsOYNoNX?PRE`aBb{C|aW8EYil1~murSw=n99Asgh zHGM~d7?w6*EFQa)aF;&VjwR>p*9K&l<~9NkXr3+dTbAV${&`Xq*u8)JCZu7z2EV8?(M;Zu_Kn!GbH%)KGmtgw?{c&A`b#VV!*pg?-D7yvR z=rdZ$=9N-rlIf>*SPiUGGP~68;Ul<_0NS9qV0w;gNZ;Wshd2aQmT)~e672N=J zuNOB!omCKv${a}u_62Nj(Y#nGLR}2=ANi6DY9QFv_}x;RYRY)kOhVV@U-6JmsoHt| z6Ijj?AsFJRMAU%O)-_0qn-jyN*)FczMj{E7Hs(f1vQ33krH6ahmWqR5Y*@gHBs zJUu-;I6gn)DuaH1{P*M`Qu}|vfSGSUehgb0dP9ojV-5tpyjJOj57T#` z=MIEMnBx`i<&D&Auk)FFx)4loyfQ>Hg_-2j+h zB=9v6>K7Kcq&z!5l zE`dMO{A05FWZO{h@#C`>`_F!P{FwgwDW!cRtS=Lad$^(N>RKzjTiy{-;ZOEZvZ{lM{t+47;`jYyUTj{MbQFI>s2@4+rNWRE&oZk&9Uh_+2T8>vZB)80 z7{P$4JzgUiF5m_B2g0ryK|^8JrdV9>H4w$a#q@Fim`ou3B@&(OEj;z)VmY3SM0_^p z4+l}B*#yEh$*1qs+oT|LAmDV_s}3_~k-f`7;o|SOc^1E-2+*^1G&x4(wIAUn!K;7q zr(}xL+TNTqWL#&0mXTzin*_>Zhh8P^Q%R-3TXj?{_l>aSPz%uVc1K3sEVLhziN4hXq+FN=*yuDGykkX)LUu2j(~kJX+|jp(zo&Q4OK45qr33 zS;L1tK5uE0hwQEy9O%L@*f3l`E&gc^;EB@c|qD~XIs?^6zIk%l}?jdSB$ zHQW-HtA#vn*-3C5BIulz5@I0njXS(px&ntGT3d&3&1SQFhH+ZCJ$HojlgNLq{IwDe zY<|WxD!LqkQBt_YZJO3w9f*w~}jbj9s>XZhfip$cLZU>e@k&~^5Y^o}_!)z!fxarG*g#vc&EUANHLBk+U1@RSfl!(8OQ3 zH4*}%g+N`SSg-?Y)XcUwT8)3QWN>9x0Bwh%0?N-1zd5zP(7KV~lfAen)X|?BlSWuG zM|Lf>(75Y9O54REYPoGgl-vtjFIEfI-Cn>nDiyNAjoklU!7Ac5Qxic>JAAdZ%DPNt zjQZJJ_Lh6s)ZB0r=V5{r!ntUYZ)rCqeX7jDG7HzrA>dxLi|t^Q2^4<@9yf-p?K8iK z6gUJ4T=xmM=PTJ@Me3Z#(Hhff7dFj@>E*RdEMbmnWxtkeCp@#)l|BV_lTq-@VEe~} z3>`mPSz+0MbUpc2R{J)w9I7Tyo&{!`nFL-ICfgj)HEcX0iDx9Rvlw=DvD(_U4F6q> zTyA%i>sal6oHGl0GHkwyJzt z%O5-OX58=(y3G$RP$A;RmA!5kULy*HO`)p-&7M-A%^q4>7XA&21Z_~{;JgUX8R*%| zYXk1)26eU>z5HTVqqsH;1=w%LL{C9N>rDWwMS3j(pwoJ`P>T`0d}V%0-tS;^mrX-i3|y-i%rwVG04j#TVTAk$U8_u#9|$_akS$A*~T!aiPFT|Kd(IrxE+rv%JDp?Et!JZQR^4)mne)n>H1zJNN#?PvMruCww3z zx4?ob=gF^D$Z&+Bkr3i=?Qlpj#|n*%Rb}T_mefUwcOmJ-8=I8`lDYJX;6-$)eKo`O zAzEWDK01@XY_p>qmJZhBLMVtGB!~0Mlb?^D%A9^#NdTc(onPjY@uhZHi}sZH>_HO6 z7DN|TLq~tDDq_?(>3FJ>rBZrS5#TMIDi_&x`eB?eXBZ=x$|Ds)6csTDVvQj*xZYBx zILsR|a^u$?CkOfT+eNZSKaF9jo#Sca;yRrsU7nAN*L$Bm$*-;`1`67IOz-BV&i;pd zOe@4Sx}V5{1(pj2W5|#xiK%IEa*^H9YKxgvL@a*|m;xhwvEHEBE@SG`{a>E$pZ#(c zU~DPzH^lEUQIO9kYhEdeT&By*biTw`P;sfp3d~TcFz{xF2~Rq{q9Co0>2$$GLkH)n zKI&9Wt=dbOx07NDT{1MJzaC@lgw)k#I2dxA9W2ijbRM;Wa&A)mQh^!^9kT2i37Mw1 z>8pS7;x7H1eaMXz{+KS7H)Hm9HV45me;;KNVCd)T@q6}dIZBs{)O`4RezC-N7ulCt zI-lmFboLZ997v;I@G_lWzt2C+-{0}VyPG-d=px$llS>$f`8$9AkmJ)V0%1mrf_kcjm+L{WVbX$Mj-}F@grU^9wKq=Hs6c#?-)km3|(l`foe%jZdB8 z*f)7tBm>=C;i?|+7Ki}D7%&%LBo@rACSt;PoDK%`<2Q8(?SFbf!mB=iF@tl1#XNtU zc(k%PHuI`|#c(cZ{bGyR65kw<&J0TnOEfe^_Du+h+U34r@o6R~D>5>6FzD9sg0ys} z8;{a5zGkwGw4l_3-Rq}NivzpFmd1#V`c<^W_$m1XW2Y4HoY#BIkahHw@`<2v^&_r? zc&}ETH~{tjadh&6k#9>?+0uP9$P0fn*KN1OWoYt%v%A>z@o7HEXN}jeKxf;#&nBQG z)YcI37l2NeQ&`t=5d3d861!hfJh$S(_?Tq*8yonq1w)h_l6R*NrSg%UW+P{uZtxQ- zK3v13mqmS&w~XXh#+N{nQSG78yb)4}a4fDjv`eUf*^&r8(7KP#I;_U1_|ShC1x;He zLzI+nRU4w>eamIHJ4g+-?%}g4lfO=wL2TDVTVZ@L!#l2zwRoM9KNBDGZkAR)2cz2s zZMImhma23u)UGSy?wa+a4gWTpJq0#;fitq`a~H3SgP-8rl;1xR4>bKv0Z=%y*u{W} zxx$JXGHk#|K!+#Xn4px-ttsDw((CGamtKxHv2aQn z)odKiZB`p~9$_pZk?m&TaAaF@lpSPqk)(}zbVDtEvwQpEYu#Xc(Hc~7Bv;M-wH9Jc zFrCiU8U=2z+>dW`C%;-`eX1<>LXYe@}xtOjfF>uhp~ zr>?NmAdAb$E1sY=tZaY4=<_jI+(8TS7LDhkmI$fb5)LF-tT3s-*8cg^U{C{%DYne{ zhd7$__NOq7UuE#$@#0SAYcf%5s=$u}up6o~ne<{_o9wv+E7MR)O{&ynt6CSBwo zlsxXS31&XWP(7ZXOpk;E%{0U_+}gI5grFRq*X(}l9MrZe+a!NpHl8?FSQ8;_!MF-d z&cB64B^D&1MyPD6g2+Q{c7;&a=o>&4!!uL^Wup~fpv}0lqi_#q1Y>#W#HsxKUeYT- zJ21cTb~E1WnybM}*Q4~`ev_P`mtd5C#MC;%vnXvC@zC^09fV?-pkUuOcx8H~6Tf~? z{8b9Udn~-&XkLGjK7dKBr9r;hEr%vrdgG;2{J$o>C|N5R)*jgJ;&CqV(2~S{S8q!` z1h{3M(evIiB=q%#REMD26;n?}%S>D*)Li;7&Si2Y5yQ|TEh>!};gl1v@&%qJ_h@sZ z4w<&Yp{Z5K8Q*Ko~uIt-#%wj88je_D$*(q*k`MVi>Hi^z=Vrg!m zQT8z%vje+J44bFBMM9mdZ#y z4;p@x-d=zE1WbQV632_nN|NMF>({;C-fZ1%{kqrgw%eUt9&(#+x>4-D>ums^UxMQ_-#Tla0m1EX&CqoW?!1P5g= zep-g$?Z~jrZ?=Qn<*5B3)ZXzD|7MpkxTe4|tie`n$`VyWp0utmcm39&*B@wdY3}!W zomNME?#1K|q_Z__DgL!h>n<`ze%*-)9<**YgMGK!L&g7oO!A=TcBg3?^>5P`>xhA z9k>0!Zm-ABns;~lQK}DZnG81X#j)SvOz(g7dI9S9+P%nxK%r?`QZv+u4mp5fGdwvE zfGu{d5dA=E^te3vX|-*+4GBQ6HHed-WhsSjGYp_xfI-*Az}HDIbJ}4Vd@Us{!e3Tb z(!*}MIc$5Axz!zZyS-8+4T^vXWt+9`cXq-QWg3B6^F{+$U4s*esR6*N-S)LltGj>G z>JKC9LXWlXvF+ttR9wNNiNIBZYQ`0j2<1@>Sw-)P<$0Aqie8feU3-x&^Jjdl6n-RTXZt-HK+E5OI@4lu~r z+);ylXRyQV4{dT6jJwZU_jf{6Yl3mm4z6$9Vn><>`fh<4865Wp<|y_F+p++k!Ac5` z*WvVFFzowV6xgl}Bh+?zz0>vEgEcbjM|kaWduNB)@l4W;o#8FVJ$w8;uf2a5f4KeE zn!YklboIFlmPp&s)aYGDydrbA*Xj?tJDzy~bE-Kg-}3ZYy+N<%?LVOJ-cI?J2U>Uf zp}zaQPONp0x9+z)o^{#Ufz3~>b)UE12~rIVv)H%?HqAqQ1I-_53k7{Pcfx$;%Wib; z!ia~%rneWt5f^O1EM5;=ZO?xgM|#J$w+^=l%}yBqP8|Q9J^q1bNz?cTVKeG0&0QVR zy@tP{1EytQg9;n37*qJJxYKKPd^4{D8+<+WJF&S7jfZ{TEQQ9MPRv!pwk0rg`ys>! zZN8Yt{1zSbWrh0QiMna}oM`A#^PB;#VShL<-nYoyC6b5wW+dORX$+SSO9BRePG={K zu*2v6pg#!mxz&&EgF9CHohENK=tcLQT?_3_E70w*1KK^dTKBB>E#JbC!w&ZUwPvhy z9?F2ZNrw z$_%-!=Zn0ge5ZGW6PEw*f}_}0|Y4|3!6|zAT~Rm5DdGm zD19C2?G63I7r-()UPpd^yDhVE&;tf}(#oXe+3j3{yY2SS6@S?98|$%Cq>NS`yEBIi z>Dp%sS&ytgC{WUETakF4*?zxWG%!xqou*Hh;ea{&2c9c~lXbW=^xS4cu=5IJqUR3X z(y-g@rU>b81qH(~+wa2)ZTHSDh6^`N)YHy*k6X7v&D*=zg326Xfu!Pp^or#J9K z|H%NOLn6d>$&D^A&yCqLio)McbuC^G^(5_>=G~(1d-m{sFC+|q7z;7^T9Zdy0$;}w zF$9y(-(tdA)@!wYBi=N&K^^uw!Pa1j##(oHYnTGwejfVX84Suj5kpw(L#_M0W@MMk z_oy)LaNoUluXK1?WwVUlKF%Ux-kiVTqRGSgEhf8MWrtkCigDMU@M7tMa zaD&?=1#9w?cfXB2SOfz-mQMTeb>UjZ$xB(wp*Cc4x?b$0qq9E z-uZpcyX-W7Bx}q#Fi!z_@93%5Y`4uS9`(S%{u!Ek9$ByfTgJl@U9g}vntOihu8Dc= z?ZoCDwB9k(9gnewu|_?s%Wm5fKn!My4!6%*_xo*s%Jtd>eGgb`7+Ik2*1()m3>{@L zNNY<4HEU~>rb4JZrfbEnB93aq_i~s<-2>0X@sW@Y>r_6^eQW z6%iwpBUfO9`GFL@W|ze-6>JG<*ll~*VafVhI)ZW%trK9@X}8+`xfocZ&FI?50+Bkf zkMQ|8?BJ1AMBF>Pb$8%-$)60ntwD?nJS?fxMh)a)-tER)_jv2>(2o_vkfvU2s+oUtR3jZvDNPN zVtWIwdHb!-(4TXyHcUEZBE(kneycn1mp5pC-D$@*kX_!oxf5y)dN*=h!gX%H+1?2R zJ>tR~>$}g1)$NAH4RRUTk@006NgeFF*9uPfO)RZ|v44h0ea4iG&1q;Krgp#8jP7A= zUN?Q+j=XNh_plbXJLWj1%i6bNN7^>Oar}L2*zK^8e65+v68o*=bR7))1K*X_ZS{M9 z?7~#k={kUg&AY1AZFPH{$nJzY0SCh!a~NwPKbx&#Y)i*|fP)>-%^u>Not@~0kb3}O zziy1G9n&|Sn?_pqZKC;?yTdli({3f)9jj-9@#{9Nmly>|}T`)OV^k>{}+a)iA?@nyBji7d8GqB&qb82r3 z4y`*TZgm)&fzTSZWdThX~zt+6fd2ZKn7sIFmWToqF zv3bXwk^T0t9f;)ZcRKypoM*1cey1Ob_=eWqSjcIYw`LLaU50rx+PcRv?*&`qg~o`n z+_$JUV8rURyOF?OHd#r4f(Q?P2OAF4fUbstcu7FCHT13`wXJ3W2N{m97umgd3=PZ? zVCY~cqDWnq_CtZ)7~&hDufx>nuw%O~N3j2(=|*Y#zTc57$Yi-ZgC+dlnve<#?wv(qbeiS_#3PTPxd z#MZrbgs}XkPairD9Co&UTd>0|b%{aiX5YUo0j+z(h>M5c>p}~|BGw>?@CN1@l6c6w z8Vn*z!Q~9|JhXWGR>2fQviM=ANS4kZLR6P2&A^HT?YrH0`<^pepQ*TG`h8tk_M;JN ztxI^HFR(Ur`~8@K$#o}a`OxK@F8ozG)1Y4W95IUmEIK9v zZnc8+?#3?YI^6Dc+Cc&9#kPA6zkBV#1$!F*@3M84&$+BIQ+Jx}R-26g-58Nmk~VJ? z3P8YXa68d?xzhxHnuiRjLAP0+Fa%n6Tfr`ed{K@}(48j8Lr5PD2i;h@kv?zTV|ijg zKX+rx=72Y9vPSJ@e5D@R+z8$eZ1scLkv1@yp-((%30Rt~o%jJz+Zrf~onmC#*@@pm z?pW>nfs9VjK9;-2k&JdI))n#Z7R+I6)(zehjt={)OlJIl_e+)6hjenn@)wA7)qlEI zh{De!IQT{$15mY`_l55Ns!)X|jNG>bOrHt;Yo~iOMe+extF-u$87FaM;Heq+B^J9y zg(qiXUDRWU-tYODFck`)p>Z$_JVsN22xX7b#5!@wu?spQi0=abY+}&fz};NHp^K`>gEldzLs!Sq=T!% zS*lruvku6*i^yiCwg6hpSb<3u#+t#EGS&fFcQDx~V@-ZAclf5Hn87T=SOq4V+7%cb z0$mRwwi$*Sz=cd_SXE%WGvG4jhk(}um~B=FM3yOkj~?Q43HxP+sw%t}RjV-G1zPuz z*$~SG)M9>1WU4Tmjj)u{F4($@%|>~wvJtryP~VHWtaBMvV6&=QfzLkJx{uIiIIX}I zvRdO)f!EeB%b4v0u6r15mfdzL8;=@xaS8LCv^Z5{z;04S6k?s!qsVSZFl^|>^5Gy^ zMN9&Jlqi*!ST`Om9#(ctLX{}dOqGf<#FDhEB1fj#DzX&ntX_!xhGok1P))8F!mG%Z zL!HX<73wZXpZmyJ1+uhPCQJJsWNEKXmUa&sls43!cq>qVCyb68|AT+Gr%Q;Q(Vk*H~&Bd-aAby$UwA{dKB5s$bM=w&BsCWBVxh5r zF{~mpJ`qYqCen#ZhKCUtx(V%(h`yExh`2*tMKGvl6@hR-)?Gw4Bme}onDGLWDhxM+ zD`m6;wC-TCQO3%PvhLXB=VI2XOSTnwE2~yut_QU4A+s6wN~neWRmfCeFdtzVhdr=$ z7n{xUm|d~-sKClfxXmwWR$)1-Uxn{~LGbl3f*X*Sh!UX4R7dWq7m+(9>j37qM`4X zdBo8rC1PQ2s8taPUAu}%1VGnAh;2w5G~i-kFj!R)1$)4yf)D^+4`6mb$C(R%FXAur zktuSMMMfI)j)j14YNQ3?F0K{%1QFlML|tA=swC*5ZY42y!Pb3*HYMT$Y>9wNd@6}I z8)mt1yMXH+Mw?}~b3eu-hf`j{e)qOb6)|wyR1t@0H}yEe8xju(e6g6gcvcaY5IIW4 zCfbotkOvVX`|5{FG`qA|gq%x%Boze6Zc#yeVqMf@h;Bx7Y~Y20<6u}pYyw0m6Pj2j zE*Ty~VC2;Umqzk)v52T^3l(HTR;?fu9?-gn%x1(uLM`OKLZ$-a`3TE6?t!hl*xaAT zCZZYDLUwaINf(*=BqxIWTA~PKtq_|X*_Sn|Onnb%-ACtse746}Jk1qEUemlq(83pY>((Ndc{)=c`PqI%7=yeWNe+0rjqA~?*%^zxh z4ycxPpNz7r@iY?yyUb^QS)%S3(1nI{bOY*gj`1TS0+fx^eFrw^Rs%+AgGY+Z7qjK% zBA-#6C&fQh=c#HVuX#8if&PnhdYL85`FQ${FpiI}0fO_Tww>H$i|c%3A=~zlg)uJ1 z>16ylMMzcfRVe>>hZIbglSN%p2(M?*RS_v$F5RGTah;@40S91z+RU@*JfF>z^g}wH zq!$x;G32NGWA-7N)swq?nOvsRB%QxcuH}6a4KhQ<;ba%k=eODA_-cH~zzaIe8-fVO zR|Ic42N=^#-AK8}@S=*WS$FWGF@4Nu??o4Op=hJ}%_P15AyF2e??|9-Zzp%j4bW?R zJMkfKsrm(w!(POH{TbxAC7QGBHlHmlGK?37+D1ksbO-9U9c&qS3+cms`;^ql6;MTW{`HU>rD3w9BGjSr6#bkGUterv&N#}>R_UL2p3wQv?#_M%JFJy*eXmPQXz zK_J1VWH}vwO9d{k0A8ev1*oyls6?;w8Bp-q{?p{$EMMN%1xeDWq%p}rA&IeXtW zLg;!&T?1eNONse1GJ&{{!LrP5FgSJuwt*umPi->_@#ClyiW(a5r4U#^?ihiB zw9y#rb$BgB01PG})LfKGARv-b*mB_HD4U@XCWf5efXT7I7Q`tj26Zwk*1_v3f+O6x zk@7Krg+5@x&xO)Xjdgofz3_!DaI0*@;4bmN2dQk`xZG* zQ@pA?%jPh1lyyZDLe1*%6gA@jMD@&EYcvu7)A*d?J9#$2xei*JwulZ(R@nsnVj&t^(##ZpZ&1&CJ|mkDlhT%is@D=|d!+_5r@@3| z?3xrmZmf*ieT_OheGetDm%hv_67}LF`n-Z3-T;Y|B(F{)-Liy4azR^-M3(LIgLD;W z?8Mh}2?L%b&$G+xbP5u`i@V&*>~@j--^qD4Uw}feDn6Tx-(7WLzzbC$>N!EY>xVXE`Lgwrbut5V$R zOPJ=g1YIm;&WK5t(t44S5)?IOW3=Th|IrW1BGzu8KmW<$uFPHX6q}*L4L)qyRkkQ~ zhD8dUazlMRkt5axn*DppbUa~oHTP73&c_jwE{h#vNW_HiIRpMij<*UxjHxG~;D<-F zf5vJ!&J^HICp!y>Lq|9J$EN0jfcDUHL8S@_4oas8u}g&?RgJCgVs!6JA-a!k;qS%& zk-wM8mikqfc|vA?;BaYp-DtPW@ z=4uvgEMHMY$$fN@gZQP>gwy68V&apTfB&WAgmF(6>^TVdgR>l0>y1u=*vRm-j97o- z0RMwn`K(>@2dirBxd{2gWsbG=21@`oGE^z+><=cg!EuU8dp0Ki7>&bky&+=zjf_yt zM)P~w_^8gFg++ja$_cq9|6ZSNhI^=p^sl9ygDQI*1Ako1Bf8$m2*5_hCbcB{f1_-C zqSBs?2^-@PE}^toD?ePtk;;*9OQ3iZ(34uwY5}dmRDHuNd^V=G)#w_kt07+5G%g$w zuc$^M)_%P-OPiAMM8VaAw(154ZCnp9Ug^owgs_~U+QJU4DCgPXu&@B zhM!fk6^b84p(hvqe>MXN3HVtmNMDRqfl=19z|Y9>VQ~s5V3&SzHlZQUhgYbbC0>a* z(oscH#aS!+?(uwo0?Gv)jau6Y#i^=De~sM?6fXr%ZHpF8JJtWWe{>B5T02#00zzPi zRu7b@NQgj@h>ZvoP_#s-!Ryn|XKA6~S8I$o-@OqYAJqMiC}+3ncs8$vNV1)ba@DP- zn_#o>IM@vuGNCJ4!%xpdy+`6d9Qobzc8vkrR%PnHzh5fxT z9=%PzPkQo|I4LCxe_nv+qL~yL1OA;6n9{~C^Z6Jj(W~sT;{u^1$+hhO3=%D;sV8>S z91BB;Xt&p1QcG&Zcr`vHPlCNd!S;W(lkW`hq!iX&4A$N1us+9NeMVRu(suG+Nwd*Q z{+hIavz#14lu$i!B~TBuxo+t8C9$ZA_LM66e$QDpgzL-|eQVhjqizjQ4I}k_>AEmM3y$%$JERmoh_ZD-qq8>%7v0e#lfXj=wWYrhwc$(S$*JTLl}6pb0z)g4)wWvBFd~vwrJL+OjTM z1Y>ur9!C0$T5!bvW)48Y!>j9EPc2F7$pxq)70G4f=lkTs`~k#Mz#TMUG-^#fuZEo_ z%?lu@2|fyr6>a`JQN|%ge}NskOc&}9PD`f_dT8)Ye3V1x4GCM5jU`z zHg$@Rf9s)<#EyhrS*&n4yxLK;+1ob)Xzc}XwGN7npQqKVC!J=OYHI>|0V|i~YXUMY z42h!KKZi!>edeMr{cr5cLApqp=Q-?L(7tE2mv$jE%vpu2e(8eCUV_M5Hfyv^JD@)tYG_W=DW63X#Vf*60?xLFZ~>KZr(t|Q+d&c{<>)mVLPM?8>3Dk+e# zt6Pm$iA$$4Nf194@0GSyKQYfHjg+^PV&jd=C$y5Eknnt$w1UzjNrHDA==Mz|dQ@ZQ zL(JmP#0+*Fo7dFJ)h;X!}Ri+Sg4rv#8@7B z>9iWEipGl`V}8{|)3~Zb_Ov^pEofB#G#k~n<60uRAt{7R_2ZEBuiLh>J!C`jet3z% zUTEin{4(f|se`~Tt{XED^Zb9NmNe@-%|ugB;}RZh2@)p%OBoVQf6@lFOyOwy7mO^e zlKACWdieC_)PiXA8yT>C+0u9w`NQlkr_J#fpO`C}x4G ziaawngU@rCRCvb`li7bva`L8`u5PmVJOxVtMl~AGZzt)Ux|kg6<3LoyfH!^T`M?pu zX(n9!nnDFcJ_-ZI=IUZHOsyHPKw&5-i7T~6S&aimv7C+B7_A%S4t+uV=sXrD)qIiP z-d3VDHqxNJ$oM0#QhsaI0VCrUjjs=x3a&i9qNu*nlk5CaX$pT}!YuoLmte^RZ-?_P z9trSZ0cj>^L6eD+7?+LI%@b59cS*mg#IK=3Ms0}@rznQNt)6ZWQO0eqj86|=o}8W^ zzc>nLWJ{B-p_B`hv)e77qt4_vQMJBgT&hDbE)bkVGKGaoA*FmW!BxUd#9`sNnxcKe z5^DqoZRg^Wc?N&xOz)a*ZRMLJ1sAQM8}YYu#k!7HrLW%p1S9~-hCkga)tkM5ZEN-h zJCRo<{FGT4)bj0k@rpXyyCRhft-cgwEe;N)xxp3-D6}tLM-GWifk<~^7xH)QanYU& zy~uKExz<7ajiI^Oon*@{?01zd8%D(`^s z*nVzuRAei=SHMst;SL!uGL?grXk7T`>Tn;7*v5+N4UopcBkqcKD(*Qgoo$CtEM*FD zD`PF1F}8n+^_ZJ24^KKvYJ7~!2*~U1`R#+p*!Lu&b5OluD*B`fnViA%3x2uKCyzyn zQ@O>kbUN&UZ{}*BW}>Ww#{9CPo@IJd9ul1MzRp-`C`_=oC`n5y)|*wO%-#~!Y z?3xsOrVCOLJnLb-9lbPVW|FO*B4l@=}TcbQ6?7Ru== zKGak^u*OP!e`MKVqLOjAim%qGqxcj#y>uPW{%vFc8@kD?nllc1N<;Kq_moH2=kI3q z5a)kAS}5#|4c{%WO;%{jz}o!p+cz-F)h0!3^Pp>NnfTNIA&YhirrOuqD!4sb^HCSB zv1#CTf9b}d%H~9DDIPg;7YwKD)%A8D9ze1Yb0f~MkV=tW2k{42oF6F{saY0{5%w-` z{9cxfN~LjXlm;q2lP1w!#nI<8o-VUSqalCKg=tn_qL;+=pHK4q*0n5+xK&qodMz;O z*$*ImK7Xe#eYpWOXW}xad+=xiYV1Cp^Gb70=>lL!lI8$WzUg^R*wB-v(%3%-t>eO_ z5N>u^&BfeB+X)0x=Z&z!V5Wrazy(w%!p8&VNAkG%IjyiW{LF6(>kEE*OmEb0?v(_r zP>ns8-EsmQe}4Yv(ev}~TD(_02;Rce2s#orV4Xgt7zo}Y>oEp{V%J~_U8bNGpPz&E z2mkLLB7-EqdBpw@-ESpN#61P)ELzJq;k7HUV%^FEMWI9OYqdd3g=dj5x%hS!#9W$J z$(C^kYn3E!3&>o{yZ<>QT zxw>Mh&a&x;#&~*_*OG4^KYpA%KRE%ddi>()&%YcTCWkK$68!otaQ)AJ`u_o!&2s`8 z11SIimp=*vCYKp>0*wXne0x`+m#cIFGk<#_MHT3S>;^&L#0_F6eP{}UvDlc9LK>o! zL@xT@E5}^zlFIDI_R-ytdzn3R&Y7VW)y<}A>SDc{{5pB^&y&gizduiY+yC{v++F{1 zx49@jmDeVjo&2>QaB}jqFhVI9U@~dM+q!xjVl(qNKh_-W7A&Gznb{(1NAs}I$xYO9yc&23dzlhbBfFZR15FFe<@H8Tq%^o*XNr!>My z+Z(LWOdrRbZ#Tt$jgvRq`b)8!sK_1~)8E5HoPgE1h>W7h8tGL1GI^_LK$6llQbT8o z12i4FH91XGNlOXNH0{p)viVrltAFiB`B44bacT)p&Ei3sj7C^GDU~3q%7x1Etedv2cI~KLw~hupFIQ!~ zxQ`yzA>e5JDPD3Vg?)g7SvTfgabFc<61PdEdmn^}gUaXIMX^ts{8Yp=YY?%-9SfM! zw4au3B$we8#Q>E;>M$Q;2!AS4%(;d}n4EwbshCxi*u+`*wNCqczehOnBr`f|Bt#mM z6LLq3X+;ES4=R|uFaj)w2&WrVAvuZ+HS054C2NcfXH3zg#Bd5ynPbJ@OJ#_zI-|2Q ze7a2crqa%PNOFSAU5jbt3Tf3FtB=Qel8AF-7&o~cZ1GuHZ_4$EB!4l2f%4Y4(06DZ z;pRDJ2WG2C5;1IN9JX%AdGlerDmRgYd)Nm($XYrQ)=UaCrLBy}sluCK@g*k15l8?< z(d&2HDUj1*v;7nys$Rj7WD%2TK=&N#&+Fo@cvo$9#eMm?839VjacqKdj>l*DfDs&L zEOhDgR6-+kiUi8t*?;b4BoTy|(#_DKu@E4l(?74Ox?C5ldRM+{77^(bNRg}Z>*gBy z0FpI5LNi;3{+-&w$U`zD9z|%Ab$jD%GA8|^qvEkI@0*cYW{rk}a*Dc}C*)YY<3V|3 zY|_u|>Ui>jW^z}%C#^Ztj>zMVDP5FbCi7~2w<_v#^6h^|Hh&XgguT2ejnMcEjXKPT zq3KyTGGs(6(S`S7kF$|++2vJpzi397AVwqQ;DnIS9*cnDiBx@cR8?K~wS9|&-?oPzW0v{gF6o6-f`BRbFDeoI(wT> z4rpabT2PtcFVh~(c3I9H2DrdWDZ>$Ey)xkJNdG9(Wa_LRvDwI|fQObS zsh;R1MCUrfpBO;ljTpo+jpj6tI$sFv9P;qKcI1U?BT2&W<0~ThKHS9@|JtzL(mYE~ zNOfp4;+MXxi?HWXC-Bx}hjmRYkG@h@Ck; zs~E=lhcX$6L}x8IHt8)N7H(Uf7%nWo+{2n~#4gi-fx2=17IBJ}&YUCbj-G(HM-dB@ zTo`|#mFKVuCKyfn5y_A6eH#C|cH*kWw|~Y7Pc)+c3%B|E)0%@`JV#wl#`&Uqp08N9 zLZaYV?>Q?k&oCN4!$fV%jpqWp~lMF|#ls6V<3g^J9^=l5y3OTThZ zrP81-8lAV$nAO4c5OrX=U-+SGg?j;^6gUk z?BMmVBVxMVHA>ctpQl@=Q(U8v?D<0h)#y~(i5r=r!PC_hxcT@KX+e4R_$__q1841{hstn`4zMDwzITfiG& z15P%fF;xI?{d<4zeD3aG?(WaQ#%)3lg{LM)x7@{7TsHmyG<(A2F3Gc_&so80OhGhx z)lrh4OZqS1qA0||-ZBC^CxjLm4%j`61JfU)^ut6Ge&$DW%;Ne-g(ChalA9C`&`6^thZzdpgagHFsf#~_|7)}m&}9s&*4Qa{ur zp9xican7pj7`5>tiqwJNYc=kq$GH!maQ-)A#4*Qj48|;L^k;xW-K^;vugYWxI`way zJkh+jH$-RZ7z7RFnMu+<-MbnM-D^T$+*5+G$(2iL4PGjkz~PN7+YCCt4a<0Tm7zM? z?T*rPZ8l#eYso8T%_M5nHkhkaYXs-Iy2JbRx6mT-DKu-(o`~2>6z6xYFr6}s*d|B* zW^g@vyj7$@#N;#(s+Dg$oniHeBu|kFjy+h!VIrdKW>Na=D{kpO`(cLE5}B#zGG&VU ziFW?IYDu_{=9Gz9?*zFLe7GjD@7L$dsP`sli|_SuaaoD#lVah<>o&wijIQe= zP@c(XF;kDNB)r}5{j@#=D9ORW<34-#4CxsR_;Xq&Cer}?9iHOt18WT^ft&3#H@_(L zpnGv``JxGFq3PNGUQa~-N2|%~*|Xe5lxK+G|JhnPJ6qb@9kkgxziNtOx>@S*&r@u{ zQfFK?_}zb>OSoVi;%1YRc5>JjvK5#wWhK)p9>=Gk-0~;vbj4l`zol$;UyK|^Rl}9_ zE0%QzusbY)|Lx@2pf`y(xam?$b6e9@2ea>K2jKj^VMOCHqb#QC!TdC36KDWzA5G5> z+aLDzE@KphtM4)GA5MPl9^5W8xE*n67#yznHa6=&{v0^J@2ILIoffVnqKj_ zJ-t~FzK_v3f2@2QS>V=~qkPNpt#Rk#?VXw9u9--CCjF9uM@A?0@UEdvr_{=u%1CI+Cml|L58njk~ZR{R^ z(v#zf0SMh0GT}`xG~>`^Z_eWWW5@iWus00a{6kv6SK_a~ZvSYIG6^+wY=5~X)X>A< z!?^n?Y_JGuuL#`t8n@Oz>RxVLF`&%i8MYX8R=%oX=yBa}ZjlnZ-XRve65;=IkAbjrI?*2pyth8x4&=8wzQ&!>_7XyiOy^5QM}Kg6)b~8v zeYo&-X*=)sUAR4EKJS%1I$AYYNSXAK%Q*M)ltFxK_MsW@ZErEyU&FXM-R(%H>dcwv zE-Ak{SQGYMTohVteSEms^mX>~xkL1IxojxgTeuyVxVydi`Kx8mg5&j))Eb1YV^Yk7Mw;yEtnY zFSOh);9Qg)o#yg4bSzeI8z^4K^TmWfy;`m(er?__{B+xC+UhcpApSJqi-Y*};R?mQ zQK#b(dU4;A(0MTMNUFcL@;Gt?7>q<1wCi~{w70k1cy~OU|2hqt-zX#1N9muv976=W zPggp;PJ8+kHFA!keb0)ymBS*q0V|=~hJ`)*BcUZ<4?W-p>iJ87Cj{f(@jRzP|4#RW zdral=;g%a{Bk=kiQU>^poil5=#Z>xs+_<;3UoACc{MssW8z8-Y;4}yBevi$REj-%$ ztO)$Pn^~#oAh|y#)#pDAiO5m!u$f+~+QM+rXcrc;-(S{U7->wotSSS__g2`p(H=a` zwQC}dDm9LL+pczgTAf<2%U#DTjGf;`JZjo9J)9L6B>){w%^eZm^@MO;9WC>|4=dAU zo^$n0THLP*c5EIuBr$-M375t{D|&ZIRcRXBq!7}Z9cbNmVJY9M6@9tK`xErX0qeuL zqr1K%J8lL)Yp;`#yahF7bZHU&9QH;A z^7z)a4P?;z*E7KNk$8J>aq`Jblc#$_vlqd))A{@3(~gJ;VSOJ$?(?M(l<~X19D}k! zy9Y+-)^QQZ!?wn<_tmYLRpaAF;=Nq-%Lxq^xAu-%5SWCR5&OJFafWvOEx3Rk{RJdlfMhUj(q@I};r;Jfv2YaWps>Raa9n+xduAob-AKj!|N z&NeV){&+RATX~S<{jmBgW$b1t; zdv&K~`$&)R@FnJ9a`d9=VYR9rtu>&d`M}`1%i#W^D#T~i=60*+-SI(6LP*={LKV#z z6v$~)?t6ec}Rd zu*bmdc0m9&G^ej!+fs2KG0)%)_HOoBkcC5C)g`ob?EzgzZ*D&v)^bZ zZUgQe?}e_;);c=y#8;sFvu;<1L#}r0p^XBK7d-BVR|DuF4T#lQg|_wg&H5~L_Ny#% z*I)F*TRS`(z`fFV1?(^yEc?uJqT~x+UHkTs+AwmTBikaP?^2=Pu*@Fy7=?6gscYCD zxt%ziK?Yi8eTsWDuGVoV&VaBUy}3%738A~QfIA>q(uY>z*Sh3xoc+pp$5Q38!JUJb zR|Cl?^<``A%5V6u*99@c_UcFIA+`eE#VAA2XT*^ex902{3EEj*Tf2%}7_ACE4~4xS z7j@64Qn&l+3V0jLJuJpKIku8BoEL_(yS5Vp%xg1f7B=o*99*@3Yz3~?Q$qIkTFx6> zRA05-Tr}R-hnH;~o&Wg-)Gb&;dHL@;p|Czjm$~BHWmWbai~52L#NNw=JwAFzUFKYF z0|pEDPFE_PZnqB39oJl4iaTGHKE666jyd0NIX@pL3z?AW<|O!}!%k7CB86~Vtq44x zTDbMb9S$ZQrk)($?E#*r9xkW0wTgeFb5tiA-@5F&o}O57&eORRsPL7lIJK&D=&X3_ z+xosfNEDi+OPHb)TrL$}vQ^*P`yrGD@%cvQ^Jh)(W@lt~*Q{3RLOMoQHfGU1rrltv zd^tucfq#-Jhr_|BRS~d!@v$FpeUQ$XhlFjvJ1@%4Sw>|dCIMQ6W>2eZ33VpF8R)M}bVxT0$2=#Vs~B|9aL6gY0yZ{-|mttz`W zqPX~Rfa3K==v8OaR+a$l;lTV=1fMQ>T|LC}WM}vO_8e{hT!WO`mThOiWdN6>Dy<3fgU$n=+xJ)+sb z+DlJ{kO8>hBBV;*dT*47Z04CV`#l9TqmBh#A3eCuxN)Gj_l11*DME z>_eC5tYpdv6wy`qPv{PrkEBHmfPo#$bA$Q_5{O3W6i3tB|8xu~4S_G>cu(e~`(wua36gJ#@^ zT@bJIE?=N$nQb?fd+|h8P+iLeEzc?PV3-r(!bSWb(`cE+jN##`|Bq32M4Bhr&qz4ZlnB;nz6W-cMpPu6TjlLt5el!r($05pkENbj4BZqbnKZV9A0YVILH)x zO-@2RAh4={@v0qzbBZ;_yuSPO?s&Kui{_)vrdB8LYG@YK_0pZ%yaXEUzyS&2?@p-| z7K}%H1z5Np;&{k%Bu=*5)8z{by{L(Wy*>M~)gjyVHi@5ZYWR~K4g4m(QSIL;|$v&jL0!(=|6 z7RLT}X_6h~TxAn}9)&BbZFWAe%BdTR)J1$!qx<>>2>Y!>v{@*110{-&I|WCQ)Pf(D zK0kN2VnBNtu9nSjmX**=>Qs^6j>xw?I4caK%<&`U1#B20vK%eVlO2;Chg!gs^yrBs zl+FeWh=gq&2NZUR%jzSKXK@c(AReO29!o2ZCdv%McLm_MW4cRRQ67sRki;&o6nJ1t zY^lCW^DI)+MX4x6m{LCMK;k>|+wvJ+_x8^vN8&)@pzy}FAcI5WD19rD+m&(NbUF<1 zGZpIfCPN@e=}D4k{{6AKoz<+cQT13B@`uSH#*HX(GB*`lGGREWBI26wSq;5wdXrb{ zI3>RimN3w%s9;NAyxkVv#)2k%ha>cqP>x0KxMdYhf|A$|1qoLYQ{7bU@HD|Cuo)R$#&m|wjh zul?F(CSf{D;hymX(-y&fNW?}yr@QYXJ*C5A5`F!QpR&ngQQ46E*?Y%{Mw3y(J#R#YA~t%k#9^ZzJyS0f?p+m8$~Fv|Ml)WS`Dif6`gd>P4Xa9 zIR6K6G?(vdX_XEG&F{+-$8%zxN2Xb&tC=l+S|!pK2$rPbGmCVgLs8^_7|+4VB<9^` zBui5+2=5J~+h@Oe%y7PP!tKZ{L%^(5a6}aBo;s7MBw9ro7ADVZbO8URC^$BXg>n$OD^3WvqT-!7YAfWiiMc zwWWJfKg5PRh2a-Hf3?#{w+-6;Tj(vQvzyG6WPnNGRm2KIdbMn2vl;^o=+VBXO zyV86>C#0X|6C&HO-_-fLFGRse0vy)E^=%vDgwHz+;b=T5Q}R>j#4+*_3k8t`jl8iv z$;2^2AC?QgaHay^15UpnU_b?ptq6HfKgMOV!3v5VAH$QtlVAxU3&egxB)X=NScPVm zB(hEN4?s~|B3I+`T-79Z=rtYQu8OW=ttE8A5xR@O|0=>u=?)~(*T_chORAfEHsZ){)g=Fb*Tw&T*HwcjY^USm_)5QLJxF3X ze;hJ35u8-R9HAvcIDu@EtQ7Yn3C~Mju{P;+$3U6B~Wv6Bfm34yCd zL@M8c6?wf)^<6SwmTrvh81S2t&K^VJEq$*xNH;t`XSaFRHTg6eJT_Jqca{B@Q5F!R z8*>q?7H$_98DU=uurp&F0c{9k+?HZC4i(4-(8%&~Twf$FpFsRr#go-S^n zC?aC>s9!lMJ_nyE5~TeIFd1+@yC}-0?5MoJG2Q=6y2pLJp;*y^Gzc?>wZ=?;(g0lV z{`_@&xko&^=hN5}{;N7VW9ZrZuVrdyPJn22b;ci5$!|M33bJw zAp`hsVm7MtpnfX8cxKQ>xO^pYnB8)FzI)T`vtr*~$z2v>{hb&9bYW!Gs?2fTVK)CF zb)%4Zc{@9NbadV_%XBXwL6wgXz4xo(eDn6#*bx^eE@h|2{fKVWGPm;|SM{pMpZcB* zf)od&lQzpfg z-t<-EFA$SYmYu~OoZu~%dHXJ2Y_^LqZsuR$aUcuGZyRd$>9*<5 zgfj!b{iia$P1AHu2?Rr%CAUF1J!LYoR&p2Dvsf{;X=%d>H4dunHjy#^xcWqu!DT_U_l3Gn$yTs*WS|%~5cX65>5K{es+mEUHm}?cIAtc_o5C zic}^2d}5{$+C!^{ycsz?iFBop1o1YR0yL6JD_-;<>cz_*gP*+$N9aw~O6hV@!!X`d zR$l2wlJ3eJ7yKiDNrvhy^h9R+6RP0kZm^8AWn&DasUY<3hY@EA#dwRf zbE$niM~Z_L6AZfDh$WNdCOc<}N$~=*a?}e8CP(xi3vZa3dl|?Zk0()R@|kP10a0gU zF4rC7m(#kx-)zeMV8_wZj)jf-+MjGR?_9%g1Ao{*5!Pv5j%dcWu;q0$RJ45iZkT<9 zfOiqAvUc6H2%e@*uJtGc-uzE6izRd#%!!?xVChIgjvD`4J`rd1=gY%Xjr8Jgc{<{X zG+|mP92UFKcdt*uXF-j8YqQiHf#5Ul4~p>*l3-k)o2K=du;7pKB0DJ2yD!od`o|Ue z%lLh+sp&zXdRthiqU~T#n0gq5CCKJFW9m9>c!sGeBXJBCA5XU}SH|RnKL!;8GnM%w z9iA7}_XK8tOrhMc3^thz7OPl0oIJ@$MKLs!647DetgP2oJUYx3uTy|U3#w}huGfUu zxol0jEZ(sWI9*baivAcT$DgQwg(3@OmKJLty+tGQC2R%=)4JKTy1|Q_{=FzJxsK*y z!GToj882)g{)le`<~`Yk&I;w%6^Cyt&vrQrXYJpyq{P=PRy_ok&BRiOija@`Cd3-0 zAkW%=laXTwN>TBtoz@(kE{H$wPY&1w-cuWwg!lUHMdsA{PFtp(;T)kJ^hgpV{86!= zC;Ty$+d|zjcCi*`R3{nfyPyJzIw!1a5-c!i5!6)7%*IbmPG75p0 z{N3}Gw@bhl8tu^)4)ggXdzI~X%F=hQP7%_>Er6Vrn9P@v%sGdV+k#lP73I*16CX1I z{VTEkhU`4pkpVWjfe%cYW~ca}_b-pal)G{zOIM*xtHvF4$5jnijHunJ;f{=HP$+Lkoon8mLeM z8aTlizgaQ=;^fN0;e{@_!5uc~&PUT$6?rdHXacg>)u1$7k_=1`G{7Ado)pBMP;3{7 zJxIO@VnflgF9Aao3vxMY;&EIyE^`7VMi1hWh{9huVWL%D%3~2N4iZN-4tRa#XhceX z@niLdIt(Es0Ra)f^rV#vV8>psH-J!Mg$doEa3kYb;4?E2sVg_@r%KkZ4fbRnEz+i#T5LS z=pCEMCv}!F#a`Mioi?E~f)Oc!^osv(eu{_=H2NAav!lg1U63)Frb0`XpV}#QGZB|& z6`l{hcV#`NM|sb?%QkDj>SB_{X~J{57j`BYw&IwRc=a~<>aDaVB$c*XMS4XtWljw7 zM63_#M6gaWNz4|~nYzdb)9--)-Q*1>Oz>o@Q$Lb_eonp=U`$4}s8t%2etrka3Pbp$dJc#K-Ci z+0u!k?%0q1as{vPw)uTRe@$#FW&tV@JtwtF=cy&Hni$ouXrAngl%QzI4nW(2y!;_|^D zFc^l}%7z@+cyvw^Q|(W(Y4K655>ZGFVZ}BV?k?LHVOiK*r%YXc8g_=pt$A5ReF>SD z3KC^$#xpsG%kB z)KE7V@{O_4ciP_$Zs6kGhbE3AJ+B2ycX1yF^FnX^Ahx8D1<8nJ^@EK7K#|R>^Xr;-ZqCdnL!LhJ@mydyPwfw z?p1Kglyhg6H>64*lDv`h!r?PSyE3^qe>N~~Sf3HRy)NJF>O9X%Rc`dgsf!zN0gc0C zHIInAX@`JLfTGEzUvcyk|31tiP{MrR}sLLu|7>E5fs-~^g@uHKX>4<;EZ!m#E;`omq_&VN@X{{uK4U5`a9p*g{<%D<9(E`!TwQc# z5haHBb~+22{t+^q9aPt+n0@9BzBv7(o&wHbG;Ho}$k4x=)Vw*`Y}zU5N#80j%MwXS z3G_-_fqDNJj?fqLa|K9Lk{QH?wbwtk4VXSNhEIt`){j%N&d0LNi$s2-h~%0GjHQ#B zxHmS>rX1iBvke%8%8S~vhwE53ZN^J6MJX!S!o`5~UzFpbk?%pTBbY_L=}xovxm#(8 zT3e8EE#FR|tz9RMa50aTELFjk^iBgryKO9mZXHUwRKFV;ZIB!XS}})&52lqcbaJU+ zdmTrJn+ouB&1v1JW@?>ZxCFXOn>5hUAel2P<}n3+Grg+n+eDyfd1A9b+|$odgLe2T zRo_^sLhwb52DPP=uYbV*?4s6LP1Jk>2{8x~v?q{EXJo%-NvzyT@C5uhCZ|rB8f_53 zYRIN+#HO_880&M-Wou~S3f6Fnt#bq0}sn_T3#YhylXMW<60M?V|#L zFqw8s1!s3mJ(e$MSR8|f1(J-zDXHf5<{uOD0<+98DqWQHB%I-4#2`b6PFdIoxK;2q zg~SC)OX{W27XVj5Rc(rx<EM&l>n}d+4=2r#Xx!xpGB(q42Aqp#wXe>T$+xr!`hZX8spZVjWB+gf9QA{ zrFEkj6}v1SNxz&Hw>;`JY?h=h5|w;$4KT%-{E{n4R(o?Kh^(%taq2{dnhg6H2S1p2 zZ`gsX{34=lVVIrHCXc^!mr#^O|1%q0hVxzWo^Q|VUEPx2rbf;w9k|96mNJO9;Sj5E zzRzjF3W^a6B(vUOpjEXMmxONuCk#`c4gb)NqB_9bfJQS9)3boX1UIoSh=v6xEY_aa+;{euMDT4B+geq(M27=l|Yl5d4X*M*2%LX2*gN)*DnRwlY-Im6#8BzL=yJk znBfFg$Hn=-N$^EI;v@T2_rK95AiQ2Rb+o*T9abNUstsnSgo2N&T*YPYze(6eT|-Q@hDsfkK|cU^7N`husYT2w3^o*1NGuGlU~6QASh(}GM}`MySl zc;GYJmu$wYi(?So)p75C>KA1Tg0w&>^OqGQc1dGnO+J$H605|&qUn31A;SjSA}#aH zK0c8$j$Q^<-7qMTGHa&$IPf;alR?C^R=QD&`3;>VIc~-8`1te7IN5E_wyFa5ID_4( z@c92EQ%f1*&yOBvlkpK)z_Rl)QI_Wq`6qgCnHub~cAsJ%b<&p{9;O}J{B>NiRxWa)Vt!(c0Djr6n00sRgnJQAi0;ggZyp{uJzZmNF$yN6L+- zd?MXROJ~zcC-dczyb`?vwZRj$lHuBZTMdZ&&4I9Nv7luJZ;o0y8iggy#wG%oeiJsl zBm05Y4OTCKq=UzB3dvY1-2vQ}A3dp}%%{5>#A#0;f_kY*^r$@uVRo2*7pi5cmr)1W zWn7F&JQMgVw?)%_L#PSz*A=j^ybn&iN07cvGVXB9$e+D7fto8vlXmZOBVq~Dj{6!X znS@(^u5gpx9aMWj1!2>enS4kyEcPdPF0dr#{mH`0!n}L|LU@a>?CDCDAgxhDj`7dpCGTZ#@I&)b6z?x z9LcCHD7M#kxo-RMZ(_AqucyW&W>UAaAHV<2e~F4W`!?zNM<4@uvPo9yvH2nm-UAuK zo#>$3Ma?N%G7P~^v9#&C*ls^8Nc+tcQBrt)6y_6?6Ff0_^&WZu{$&la9m7bi^*f-F zAQLkZTX>Q^QEP69#YO~v8cemswvgGUR10QhOze!M{RUBDb>_-8yl!{qdsw@G@nP@e zAL^{ekF?TJHgWRF7s#cUsA4-}Xc#R|sx^=!}Js3z-_LHzu z@=0pCjw&8KQ5xD`O_3N1@oBSj$A=SGNTHx)?8Y#;ic^0h|3a?EXC0D+l;Yib_o3;9 z+DwOIY10<%c)ef_-vYoG2D7fsEf0qOIPMd2t6bOzjv z5~q&}>rNL_-LhYelZDhFp0YxccW0w#i7!7hsz`;{%AWn1D^-|1?ptQ6h%y{bRIR0QAVNr5!{!~dT|;}gTciZ@;i zAlVIC=S){}^QSbe?^hHm8xgBXGDgv_UGq>>K^bhdVU3!@X-D}WSzL}cQjXJ;rWfk& zX&r^jQ6GiflF(Avd+30FOlL6~jeRcJXED&ky3FpLge^NNy~1sNkk*qLSJ5o-OXQg% zJW;M>?i2r}g$Y_X95crE4Sj#7igp4t^rIFp!g6qYV`DY_#sUfnw10&JTuv%Nj)7cH zQ#d<>h$2JpSrQ||nhNy-jwD9B5yf8{qCM&FqE4n;uYw?i{g|9bI^Iig)-oZRQ<6#w_)+jJ0QbHk(Qh`8-Z2m_Dr$1PId4tv0>Oa+2cFhrY!CF$v zI6HZT8cL%BJ;S34^(9VljExqXKZYNTKZX+I3iRL8r;HFuYk;2uSsyvQ-Agkyw3)S)sIqBm0H$?2R3YB^-fisyr|Ip}JqR z&K`C&fF@ZB^8rRxm)Os-uII@!9cqVT`usE0Jn~*V5RC+mSi(R)&c` zDb7u*IH!W5j=B+2J@`q#^j)}Zlnt;67-@#JklP2T84x69(fkbSb6|k2t_0XS9+q%Z5!;fwKw1c`~XYx0t zGLii^rShlgYAzA&>T5!c8ev0A*sO0$L8-zry7O+!;{d`TF$sW0bA!pz?7!n) ze8J2>7ug_Y(eqMCB;6%nb(4cGlq7Q&6h40qmp3F7SI70(iv*v8YM1?Ib_t*mh_x2A zF<~%L5k4=rPxK&MF>#HBXT}^zRDRv$RZW7}EbJr%KEiUtbH&uxz z=?sO1usM?-z;)H^&&K)O@G6vCU7$|#7*xSApbGW|Rd9}L|J`w(U|H?DzHDirf#0#U zdXie&i!xB1StS1N8pNDlF2IWkm9606&c~J~8b~^g;AtHuOHU?G3x+~kj>A{MoUsb# z458o_AXZ&KoNZ>VJgkxP+qa$yT|krE7%7anOCL_*_T zG`(a*4vXGYwwCnyi4%aa`eAW{?*LRbg z7A2a6C9x|WSqwwp3AGs$i-lkRaMhkm!)NM(QST%}js_*|-e5VW2@A{{cshHf2e(C< z4IpjsgC0;fuS3wn0(Ruq2$`eX~4awfjV z+ZweRDAa`aG$}wBDR|zqEh?+<*D06MPR|~+d%DeMr*cB$yasRP6eMEc;(#UX1PRw3 z8P|xg^}{X-6Yep_Q#!)Y`xn(eh7IY5#A448P;&p2bC1EFE;}=qW5v;<7gM)=l4ACm z>Yue|?RNjiD*a}o?tGw&r4E1DjD;qr5+a=QZEiE@gre^J9EIIz^P3h&)4IxlK=TvV z)_?!CgjPS8h$s3p^gbEj4wQ*#8do~Zue994Jw^HyXW{Vv9gCt)qj7sSrOgJZ&LO2C z&c>fmgobMJf>csliGY?=&!##>0+ip}>sz5UFB45)CO}`YE=efR{YJ`3q>xOe=pP7y zw9@+H6W;EydF_zt4-!PR7f+WImDs`)fZfN=C-!@VK+&nBtp@a?lonut?kQ0xGU*U+ z2HSNyxS|u?|JQFgK7nF(hB)d7Wu7L>fjc*OeNz@SofI*=8dSHZxB{JqE6`~G`)j#F zY!v<&%n}=TTat8iSFlKqS~A^i$WNAa>c5t?XkgncgaNmBLf(Og)o1RX^{Upss21PyF=rxbmsG(20JdETaq zZZZGxloDh9rbKj${}!?{lDOIv*6f!G4Hn;O{^N)XY@XQO6mR<3-3nHs&Dxh3lR#PF z!6wsHcf7GL<(AtW`ES7(K^Xy{9t2QE2^(>V1D#Sm7uQMln&5jX%#!z1-yQHnFBj*u zaP>_x$&+}6U#z{2y103d?pF1T_Y|Yqo7@oZVV`8N@cpeqg6) zn2m0j#ZyEUU&lI-#1?V}7PEPvZxnj5I5*c7a@_n!Ovkbg2jLAH@CjRJvL?rrEe8zd z%N@x7A558Yh(Cr})z`h!ctYw_?A5uKRNe*n*okx$NZlb6V?uuoS2*R*Y;+AsSl$F9 z^wvoqviUba&s_3Knz@W#MHw#`V{-rBTuR2#CL{L>G;x#ijmBw5n!W-?g!ytic;TjB zaC(kK(|!ITUrM`{ro)~>IJkJypWpe>4JN?_M z4jmYx4OB%(AY02nPl#26ndCpQI$*z&2)Cm7UAZD*v7=*-sxaZK%SxRuj4eySwJ6~&%O z-gi%pCfaZm&KE~{1U?xQdS7?4#$KN?D;v>yG(1fl)qxX7VDE_~zE}C5rST_qrcghX zi|<^FK3-FM7V~$shk%Z^vU<3a|M7PiuRvoDK(XMn>h$rnyT%@zS#TWFQy(fzIZaQw zu^G{+SkgM`V`6<&xEJUi^a=Lpbryeyr&-351&subms~}+g=P&pDV=M zU@Om2c2>4z+QcUa7|yH+bFZR1B;%;dO|stbXO(ta$>dM!vr+B!(P(_Nz9sC9{~(S) z@&zl3@-@W5(~L+4MLE`Ryt#K>(YnNq3@EYv-F}>Tv|sHJ{6=#mYR{_SjFheX){MXb9yioDKL>n;^l>kufya%~UCsYp$L% zeMz2RX01o839oc*=1tQw%TYyF9e92|IKpr0kx*S`2}oO=Bn8oeWa;wIk}~kctr6u) zf@3oT*^YiKb9&KX54ABHfyRQ;K5xV(r)N8ku}dOJ3=}Y=xsu0E0%q=o{Ba&A7|j<6 z#$IWDL4Qh|=EEjtVB!py{|g^PA(^Oas5rltj5S9UjUG&gEfI}3r8zKc;`_hX0qMOI z6j!T@SF$Xn4X6#K)eA371>#Rv!CL9Yx;f1) z!@*s^!QFXNN-(Bi0ms9?&3uPz@*dZ$fiM*Nouli5wZ5ZeCbqs#Aw^8^y9v7pV!C6b zsJMBff`ibhX+q%>&TwFOfeoItBG4NKZ&i7x)k?EeBF#D|Y~Le&!j%=&o`?B5PQR zex^p?XD`EET?T7+>sRm9-LOVE!G|OB#8|AYzxBz4Rlhs}!s6?5C1n<%OqhlhH9sNc ztoDgNgFX829WliE$D2kgc_T?!VLcTq-j69RAPIpu{3i%>$P&lk*0cgOvf9RP4Em|E zS8?Uj&g2L<$tD{sIK{yEH7ih%D1m~cS7mR1|GoHdxC~=ZL;uj*#ig{kJ-UP~|X>#8fcC!t&se9jwbBt3}GjL!m0TNP$nV00l}k528Uu)c%Dty zBTGC)s26@B@xw{WGF{X1hu}&&r8<$ay0!$R8^%k+LSCv=9OUlwrEW#u!V9-c|8~*X zVuT;HbmJ;(NpWI)kh-`x$#2}PvWeXHCjqeK+hk^Rwl^NxWR|Qeb;-~s6n`R$|z#``_G)2audXW!r|@Oyvm?Ac)OA}5^`YCa*i_MtvEgUYS)6E z;vLDZv?RJ)AOpE(+{jGgR{xlst9u;f*t(!BXyR8*);foK1hPoij?vPj7Beog0?a{b zZ`~`;QE=FqEx)hpC=#C{g@9UeZEj9+Y-Q1PhKXhhE1UBJhRa9hH@usSj>(8oM-1Mz zu-3vjmQCg*otvej{dBsU35-Gt9GmWnsvB@tsvGQ!&%HU!D$J^o_2564ydp{B<#_=o z87aF9rceBNF0rTdY4mi*vjOyd4Z9=jYeD*AP-mqTWf2T}#6C{^uN8Fs zKE-8!?D^8?jicFGwYC-3OooFwiVqM7REv6!us_D8Nw6CfnBAbjyn8CKbor?7s^6)n zYgyy|ME=Prc{fN)LaV}q*^hy}2)P4$npdAt0b#P|^a=67EYOgdZ+|k``!Y>jVSeLl z)v0Q^s2a|a^$Ge%fo)CV!4Gg^of);2SSs}aC`|NuQRVo1zF5WTgr;Gpve;ni4EOqr zeJSlQmM~hh%lDB}q`KiJ`2ic@v~Tqc6ewh~WU$|h(dWZ!nk3@9|1A%`p9UoEn`=r8 z^>6?ASVWEa{tNz1wzG9+lA3h`L(pBgn4rBcT>EK&n^TH z09>t^?Ju6=&!&GSYST}4B)92G_^=#AN#Goj>@uTt_9H+HcU&4 z8ZXfH@i*zno}jyZ!sYOEefgY#uw|n>%ZY&ITT*h#OQh8>KiDZG+9wl^^iye~s*VBg zSkT!!{;x;~Vv?}b4A7X7j>Bu`q7sXrb4-rrb1vLBc)HBN$Zcp3xr6SqDOc8iC#Kj8-YET zUXfq|i$5PzF~w!nSQ&RK%72af$^3eBnz-~X2K+^mtGW{)KONKW(D75zkA8jUQBiqGjw+Y_~>|7KNky!@{v3kahAk0+ah zgyTEwS?Q9jGp5zHs^5LB_U^q}n*SFT-`+)Ruq*ig_i~W9|1o8+ph;B)E~7k~ScXzG>)us(qA`6N)5 z2dZi!SC_w`DKGdq{O~yRLaDg?SJjogn$3{?rz`$Uhu@YKDlK>p-8s%2YsW+_!-+NO!ou!&*! zl_=Z)bwGz~&i40BxdN+d8zL=NGSA+?f?mCV={J7RPfw%%H+Bjyv2c8OdcJs8ethQ% z!S&|q3L!;CK4Kd>WU-0m!|4KNul&(Ws^gN&X)A#?;X+fkaMz8gA4-J0NuFVT9Wd(m)%}aPP7kWv01~X z0Vbc(?tQKyqr~I!$R)1Q!x_2}qpbCF0-EIfx?oqs&l@OYf&vfaFBauA9!Gf=3fEt; zsA-iry`)g9B@io4m_G$5*6VKue##7Ppn)@pGs7##QW|=k5uHJrwj`o z+tB@FoB2LvSfZ*B($yea$D2>iNgDH>Hl;(7WrCjCEtUVYWMN0cQYbnc9mKFI^NH75H z`@+(P#2)`bWrebo1*&T3FCCezVu)?S3`Ny6z0~kqKEl9!hO$=u0w)IRVn-fN-7p@{ zc##0u%UWNQVv06bGW3snnw%(MIU(qqVplQLj-`yk6i}mW;HL-SOxmCE#%VRDeYUoUMcm7zDmSOuyu)gGDQK6v44B=>PFF(ekFo6_qBCym`NZ zQ+aKcYZy`SF!@gxNZ}>@to$Dwe#H{LIekZPbzllkuY0iTnL%Dl#@H~@(9^*FpDiTw z;RCkw7pOR^Ww}YDhr1gKc=P*<o~QU= zqA~{&M?G$QgXYh^`hR7ecRbeL`^Rm!kiCVtDSKsAgpe&GS=q98BH=CBdxos+Y}tG7 z?2PO!dvB@Vx$9e>&-eS|uba2qgX^5@T;ut=PMhzhJR#L}W~%FLjI1rbrI7qsP@{YI zQxqyi-kb70*SLCpiSW6T7Oe!8xox6Jf?4xSGNcD{ChUH9uK5%F3HtBx@=qJuRF=w* z-&9F6)N$O5%2evl4j$t-mwF0b^R}M%#>Poms9IgtlRtmVlMhg@g#yHOt?)3qeBAdQ z{(Xx(EbGTk8F!c+1nTH@CxD%dwD2n)Y+azx7zi?G9eub)5gsro(nu?0trH*73YuhN zp5pIXTBE|}JMcO#aGgFf=)?f6#x`YfQ~lO9rQPiM46@-Y=k3)bnfl^8bAS|rS{8RAu=!&G7VNx-&8JTZPFyhgI_R_-nuU+ykK zS+PZlEM?HtB~ABEhQ=3}LCWzmhtCkL>~Hh6>6Y0WB<_4$m`SpXImscmezXacv=}4Q zj15Q$uaN&HCEUD7VSBBgR{Lp~GUg|%(P8wNaK0Y+otEN=f)?3g01p-ec904z#9PL1 zkokji%Rb3-?GWo6Q8HR(ko870zr$L>TrVd4>j|{-Ww6z_7BEe9o{G!0qQ50op7#!e zg1r)X+6BQ1qfq~|!Wc@%EH_`Nlq0L{H9r$hmENhV5N|Ri@;-}DPSMEX=MDyS57|F_ zglP0Vrp)TJ7Q7X!%(9oqI_C3UqvZPxZ^yNLzfg7H4I422C(?f~__#xP;ZgnmM;GA; z!ERj4gZB}OkD!`fF^Yhfwp2Q#8_o z3g45jX=n+WJ9sSznvp8PW(#A&DYc#;ruVrke*b=e=#^Jn4MD#;qFhaNFssTdkQkLsDGA51NI_V`|bF{}B7Sk!a)&pq6ki2)xc-BV<0 zsw^1sNt>fo^*Sm>#3YOxq`Zc74{`1UV9EO%P_^GRs^XfJsfMY%kYdV`CuItzm9Y4e zL_PTR^I^0-e1`$^z1r`%66o5(g4LAb?S*v3K6FrHOX~LEkV^f6}Mkv*iYPzYBPD*V}h#O5@e`dOuID!l6<}{dRJ^9TU^;^bVP_Q^r$v5J4 z-S=wTbz_4&J`@wGqY2>7_7T}c{*m8WEb-V6l346&sWM*DiOPx&&TL7ky-9MQFtWVg zbkkli9TZ0L?fhyEea3crsLEsgF;Q3}gvj{4fwg>FdE}ZXuS44nUc@e%H-_$UX6YJl z2hmj})WZys%aZb)j3fArtG{d`l5RJ2PO* zOC)HqYp)N?pMHIyu($BYmGGlH%I#p<2?t|uS|EY~rLSM?)VZYm*@BgD%176p<6&*V z6aoehW4PL9Fy8Y_Yy&*{pOe|R&;xAWyXZ{c=O-s*d2%R9wcgy41*e3vo=R2)9Bg03 zze@s=h>VhE0!`bJEdx|l@ zlPZ2}P-Lnt&{0>@k0#dh2NX?b;zfsB$Ch1s_DBUUWbm96dqZnqoO2g=+ zpLEY90*+-G$rrbwt+4sRkUCMt;geW_xgQ8-~28f0+#TsgBEBzw!? zt?6_`=&pMvrz!p1(dTy%nb(>_rBbAZ#K2?M$r|aNyE>LB?w@hYueHBUQ+fS3UF8zA z^>X~_qHhNgQt;7AZV0#75jYMst6EC*Sx_w?wmm1Px+p1|dDIQgs`UykRFh(eC>ctG z1v_rgn~sPbafROt(fY48)ZRK)Ul>itgw(1g#8nt>mycQ8r&Kmg%JN;3`cfM3m z6-@6lphM6Mt;I1=@x3D@e7VTAPY zZ)n)>Dy+ES(u$jZ!Z|`Bn;~Vc!hMU;tw&@Ao*Wd#pu`u-l*xqQzwzY?d@@F1!!9sC z#l~$Y<$EAbFzUnQ5`Mz>24FrYc*gT@q-IfxTwFR?jY7yugckKsT$@(p1Eu4=#Zc3d zKs8{{?60yEDWWG{T?|4au#jeYv4Un&R8)zTXf;@?514?*G+t|+awR4j<}5TvbS zQky>IIBlu$ua4)i+Dyp6o(k9filJdbTwAOF-AfT4m^5W4Nm*Rw$2K@7ZLHqr%ga9* zgXP7Tvb>YAzsQ^Nd>eb;jKR4oo*X@lx3<+F3DLKcQx`3M_>4|?Q|HH&(*Gk4`7~VE$%!{3q=CnTAOLcHu%E`V44RxzkIotnvv_RChuwjlDO#kh-4I& z$RAj5F=hA(T)=Wbh~3SGgV1P_0?6L2(seVTAXFzbT}=$^s!Cg+N756~H=Rj6*UTP! zMQT4QxmDR9W7v4pq!C%sCg{_ge7%dDpvPJZc#Y|__U|u@nB447IM*3bKGqUhWy0W6iRKC221|KtwH)c#`$o$ zeEL=_aQs>?)&t+*#`RHI#0B&>UTo+L%HL0^2 zg#35J&R@?Nw{MJo8W*Q%Re;~zU!E3N`^p$L0Xy$&zfGM)ao)$4WdS<3yE=z?qC%&M z^+?Yp4)X}nbAuD~G_#-IABYjfkQ*8@XP6}~xTdqwR*iobeG0Hu1hz4i=p51uiPiOJ zP!&VXw;&p^X@XsitIz%46z!SZv%gDP4Mcgp=&1m>LA5);4bbn4NW*IYfmf$Wy5o6T z__#@q_mqW3;qJ-ErMeY^zwqLx?ZfQnuWf3rV~O_96lv@p-ETOJq27OY*7vrfmW7VX zAeh_|@OUSRk|zoaH7Vqb^&m2sud{~KPI#-eSuQDnD#DAmS&{;5AU_fz{%fu15)75) zQYLBE40Q;f(vFaGZQw8X9LH2<$+S?UaQ*V}y~Yvw#=tnE(f>9M46DC1-7mbvLCd~9 zKE{dwIQJvAh&`OQnC7hiY$L)A|0XCsxu0bzWH0{>-kGr%{(YWnus~uwur{J92vh&V zP9ifa#z#we!-VtA3xkL{q)ihs)oBeR!auM336-Snt240qAHYy-u-9f9NAh-o03t-4?}&rw)j+#T5x*aJAb zR@{#)jbQ27_@Ozb7_@sPGgdd4I=eF@S@X2#HVy>?nwZo9h5K^KM@oq zrstm8qv;<$WOzHJ<#m?Yn|qjgthSP=2xP0DLe~>dt&wYcHT2b;a-u)@M>S_NELSg1 z)ljcd0Po?VN;rds z0{x3|d?P&o23WXhsLB+SJrUnWFCHr?`9%gDb&Y*vI0Bg05fYy`0`mf7(4?DL7R%>+ zK6z&ICc}?_#7qzWAWtAhE+SnN_D6c_Ir34yhkddY^Q=>wT9~aU-@%u{7XEgCk$i}u zJ~vlh@(DR444xlEKp&VqN1nw;Oa*olW#`4RY8`i(;NP@7ofMQ?9=X0Tj9+X6bz1$u zby@`J{vMF-(F{dLDm6oAdWEYh(O+Ta9ANW0V&$w7N*{iVTa5(cR^@u%jq5COvxopR zFpMm^) z6<8l@Py+POtZ#Ll+A{q?(q>4Vlw`6XdErsht9v(?Y+_MCO%-iV!V}cLen}cyMbXF; z$5|cMg(_8qs$o(OrTVkv8<+r}vjXJlzg7M7L`!kBBF4g_u7C?_kw)LSu6QP`hz`Zb zpaNNQSt3jX1WRsU65Ab3DTzG;wj%Gm*vZ}rpQcArk;U>}TsVkA?VmTxVB8A87npvu z-T|}sxbq`c&Oa#p6Qj7!9GqY=oNy7zt2Yy7KSojeKmv))p#~Mr=FEd42Z_gt!CTNj zu^;X&xD#V|tfl8tL=Wlpc4OHO4$0A$6NpoX4fQjK>zIDeKreHOgFS18(vni$znXo1 zNx}Nj<2wb(pw`@0h+G{P6B@xHO-RbG$qgrQ&Wp-)ShvqcCf8?UlP*y@W4rz2o_z*Y z*YOvC)Cqs&AJpat^tCQyEi?z}(eu6hj^6L%Q39Eioes<)n%@a@TI)0U`pL;}L8DvF zKiS^QhLq4Y*FW8$j6hK?-XTD9_Vd33Q2Df|j>m#236E=QNbKOx8*d zOsfEmyq$MQh{%M8+#l)fVUNW^aCGmrYVX<{M;?BY5~>Fr>eiAmsk{}};uM@CA1Emdcw`pK-T$u?mV1B0Xn zlQ22(y$*kUuRqQ>NTezH!@?Jc5hd@)1^SmF626-Wa2{$E9%_9&y-1wOr@Tn#yXu~k z8F0>4V@MD=VmRI#CtK*Sg=(doIAZfkv&%00mpyoX7rS{9HPz0yJYq4XYXMMR%)R9k zJzxl`$}6Q9a@#`zM!L+ZUX0B#?>OgCNH*&ZCF9hB?>+iHFm@L3kY)~nyxG3$S*+we zI%~-|eZCV1Rih2kKa8vUjZs1(I`AI|X+bIJM!0iufV(^2-pgFTVX-!^Ca(@HKUbnW zB=^I2>gBY+ltUW?;ixQ}RD4ZFSLvOmoNpd|38Pm466J0{AiZcvAUznugErXTf1R_e zFk?J_R)(jqjsEQZdcr0T)h3rq+ii7`aw$fqe|X5jWr!C))z7$uP?wt%M_~S5Ct|M7 zMV9;qQ!owwtBoZ+w@X)_~iAWEKEyvb}&34)J+GZIT*wvUAiM{b;tRDZV z9-}IB0F1}XmeoA7^cdoHz|ukyq8Q_u7~R`p&_0j+7yFGLUpEK2CPzEGfr-?;i;3#7 zU&5`rkILw_JdzNd!-v(1iDmG2fJej@qY9D#PP(Cy1x0v{x#&0BWQP{GMGHo z6p&tUTT}2MGkVKwqVGKQ?AX&?fUh~shQId=PR(}C%6d$s-^*fD7aRPD)H_*60qL&m zdOCj^6CGq!)+nv;f!9NY!#6T?Tj|=HgtDCr#$r`L>}c z3VJ8T^V}?&34)!w2HqCqiJ9%C**CM;RTSxFpaL;$kq-;c!#jR0GOY7i5z(Sdie#zs zOtyx<^aOY$GO`FgfhM+d7we{Rz~-0oh zEINPvmG>{^C&v_ra@WGENkUs?03ovWVJUUL<_Ko(4}+G}08kR303`tlGB^)YT`?9U zvFf@6#aJ9%iG72tJ~6UT0ywe`iSKtRGI6s7d%=a#r*f7#Z-o$zmj`l)HaUm_F=Y8a zF=VQ4$JW|HSz+|@@VRR;nox0`aQ?RJ4wL& z6$8`JV9V&23_=zAYFO%C;zk=!On}(g4evW@Sjx2fpT5YtX2~8P%d=1(J)Qei zz79R5c=EwE+<;yctBSQgAN5_r1bgZSR-pVW^M zoSHXW&CFT)W1e&fHTr9(^ZxE89?_xS`jap~sGyxlx9Ab)U3;lh z+*f+WpB2?w8|cIXuI$mw_E6GT@_?HO!~6RO=D?F8{`EUn$8qRg3(;l;vI+!k-a!tL zwc!X6?AmX|4ru@u8Hg^+0Fml5y+Fa0Jxsa5ge7p=S7$b?b}QxEr{BXQSf&xfB-|@B zJmb+J32Vfb`oLBihqLPERH4YCys#*&>`FdzTlhYp=+p#Tg2Y`S>QXpLW3K}OU1JV3 z_?1TfMWA0pCD7kny|~k#H1BK4^bU!Zf;oYH9oRzD_|<$jo~;-=l9lV< zH{by|JG37EfkzVzzA@h9CvXFkB-}hH5fcsu;S_)pudL&d9d*nor3M8>AkLvSi2sf- zOvhit&~fPO#`EY@Mc~e4QqHxr$6}MUuYfO_MpoHLSKHAsX)<#pMstK=n;xU-2;wRa zGxz%#J*kI}`QE#QBf#dc4+)@BT<3RLf6FiK`-MCA6*w$|Q)-N-FIm_hj!;hCAZ0nH z-|0Hgdi^ZTZ49>Ve5*`{h-$|K55O8vb%Ia?*o2se$50g*_;u8Wph=ZN0K8=&nq&9H zb>RFu(L`;fq&wlUDkN_t^Xk`kE|E!%2qH;p0DqENOqJ0s+<=$g=pozUaFQp~hE}SlY@D4lrt`I+skjkml|2JyU76QmrXuefY*?vh)SoOdg zdx#6f+PWX*6>s~~Fll!N3<90fAkZm+;dY)(EB-Lys_5KEUEZ6SrSnhtrH;C~$lrC7 z`YyaRPWl@?rgZ>9^ho_14ds9g@?F5+hX&GHD$*!Hd~PVMx`RsR{Y zrFl|i)@OX=O3=4-|4Lp+`Z`78FgbBL$!B$BVthA1s5UkaE*L`{Pfg#7X;8YdkcT>uo)b*HCwfpF1?FN=Dn#tO@Y)bpY(G+ajVd*l?TeFDX?z>$wmOE z2=>huzey9HP&=pI<1B{`Zc9F1I}UDyiu|7Gc0%h%u`;y(V4aXYs)9-yCe?gT=VEcH zJEE5$(_Q@xW(7Aj=m7(z&I|(LME~?J=hMrXv2`a%8_WFSWk;KC7MO^m$abB~q22Ik zB6^@HlftEikN0Mf9%NJKJY}L$I&IOTd(%&(xY)~;-LTl!qVK!JQ@fD!uj!iqp-Q2* zYnJt?xw3_ACzzn%klJ|ERpxD0eqjPRUYgWbH)`GTbngjV+w9x0ycfyLnp*3ew`msV z^5bk{)u?|-k2j^URsEE;ktINuc& zKKmq;hYv=m(11T=L)ywxro<4@SIL=SEc_N;6Xx#Kx57b2O;xMJPTcNcHfrZJ$?S0*t za*Co%dC_>4d4e2KEqmx#1#@|EZ3g>6zP4a^;1i5G+;h8Ut&bJL1B~yyYM5XWa9!p7waxRz#mA(CVdc-< zT4;TK)krfYusa#cS0f%kQx6?k_;p(Nn$il}^(8}#k+gcAG(XRGm1r^4=dXsopBo%* zUQ9(S+*=!oAam#rOL-jj!h&x4BI%;_`3J-K52}w|cEo-cT(`ufyiu3VP-60D4pGD0B>NRVUQXdGx)k+((w)c{=PRaOJKea1^5@)Z&g`#N7GgK^ zoR{iLJ6*p;&T6&|9Ar=VT`G}54Kw)+zF%%^zE^U!M;$y_Znw6vR0~*p2Tc~VGPZ8F z_Fb)N+lGpqHF1vPT~UDRgGZmc7u&jAm~7ml*?7_g{@BTkZ+fr&wuT*ETanbF+Vvl& z`hGTeaH@+}<5+re@$zHwI^@T8LhJV2Q2?iJ>TJ6i+}2^+W=15{r%doRBsBq#(P1^Obo*lNv zU|2A)0%x@>^c&C-^!7FXMF0cPRHULG?Ez)yTDv;FQVPR>>O&H1p|h9T))O^tRcos#AC zeFGOk)G9sIlZ}HaKCg#pz9By=sjivPnStb<4WQM$SHtGB!h=5Y2@f*o9(pwnYi`!1 z*?e@xGSLmcvR!8>8ubgR1%ody!EGAo#z~3VYsZ;0#+3uuu-6~EHtHbny)UhnsSw8T zho@YqH4L^-IZ;_Q<>oY3wsO6maMN|)X9;{YHtw$6%W5vH<5A2SxUkpqqmYeh!2rjH z`vdJjlnVKEWdlg0=mNKCE1ZYbJBUAxI42y6y@#Ebx9QjC zdbDuW>2V0T{@gp?C_Mksc>WW)Tm#h?3!7i(ji;m-3X;|mPV71ssw6(Rt?<_e;>I5& zBq^&{aL4McSTQVAV(MR47s8N`LL`uo$bNkr>DR?T;DR9Q*yL-d%+!Cc2m;?F|F0)z zonn`+p|Vi_@1;P9hkpMm$Ct6p*r>dy$}=djdf2EuaQj6RBxeH$6Ej;UM-#`#a_AU{ RhjGEDH7XJk{R#?r^?!OlTPOek From 348130c993eb7e7ff971bad81d7ae31cb08cdee3 Mon Sep 17 00:00:00 2001 From: FlightControl Date: Fri, 8 Jul 2016 05:11:30 +0200 Subject: [PATCH 4/7] Commit --- Moose Development/Moose/Client.lua | 8 -------- .../Moose Mission Update/l10n/DEFAULT/Moose.lua | 10 +--------- Moose Mission Setup/Moose.lua | 10 +--------- 3 files changed, 2 insertions(+), 26 deletions(-) diff --git a/Moose Development/Moose/Client.lua b/Moose Development/Moose/Client.lua index 919580b4a..157d13824 100644 --- a/Moose Development/Moose/Client.lua +++ b/Moose Development/Moose/Client.lua @@ -435,14 +435,6 @@ end function CLIENT:Message( Message, MessageDuration, MessageCategory, MessageInterval, MessageID ) self:F( { Message, MessageDuration, MessageCategory, MessageInterval } ) - if not self.MenuMessages then - if self:GetClientGroupID() then - self.MenuMessages = MENU_CLIENT:New( self, 'Messages' ) - self.MenuRouteMessageOn = MENU_CLIENT_COMMAND:New( self, 'Messages On', self.MenuMessages, CLIENT.SwitchMessages, { self, true } ) - self.MenuRouteMessageOff = MENU_CLIENT_COMMAND:New( self,'Messages Off', self.MenuMessages, CLIENT.SwitchMessages, { self, false } ) - end - end - if self.MessageSwitch == true then if MessageCategory == nil then MessageCategory = "Messages" diff --git a/Moose Mission Setup/Moose Mission Update/l10n/DEFAULT/Moose.lua b/Moose Mission Setup/Moose Mission Update/l10n/DEFAULT/Moose.lua index 02fd4b035..d3a58ed42 100644 --- a/Moose Mission Setup/Moose Mission Update/l10n/DEFAULT/Moose.lua +++ b/Moose Mission Setup/Moose Mission Update/l10n/DEFAULT/Moose.lua @@ -1,5 +1,5 @@ env.info( '*** MOOSE STATIC INCLUDE START *** ' ) -env.info( 'Moose Generation Timestamp: 20160706_0817' ) +env.info( 'Moose Generation Timestamp: 20160707_2038' ) local base = _G Include = {} @@ -9495,14 +9495,6 @@ end function CLIENT:Message( Message, MessageDuration, MessageCategory, MessageInterval, MessageID ) self:F( { Message, MessageDuration, MessageCategory, MessageInterval } ) - if not self.MenuMessages then - if self:GetClientGroupID() then - self.MenuMessages = MENU_CLIENT:New( self, 'Messages' ) - self.MenuRouteMessageOn = MENU_CLIENT_COMMAND:New( self, 'Messages On', self.MenuMessages, CLIENT.SwitchMessages, { self, true } ) - self.MenuRouteMessageOff = MENU_CLIENT_COMMAND:New( self,'Messages Off', self.MenuMessages, CLIENT.SwitchMessages, { self, false } ) - end - end - if self.MessageSwitch == true then if MessageCategory == nil then MessageCategory = "Messages" diff --git a/Moose Mission Setup/Moose.lua b/Moose Mission Setup/Moose.lua index 02fd4b035..d3a58ed42 100644 --- a/Moose Mission Setup/Moose.lua +++ b/Moose Mission Setup/Moose.lua @@ -1,5 +1,5 @@ env.info( '*** MOOSE STATIC INCLUDE START *** ' ) -env.info( 'Moose Generation Timestamp: 20160706_0817' ) +env.info( 'Moose Generation Timestamp: 20160707_2038' ) local base = _G Include = {} @@ -9495,14 +9495,6 @@ end function CLIENT:Message( Message, MessageDuration, MessageCategory, MessageInterval, MessageID ) self:F( { Message, MessageDuration, MessageCategory, MessageInterval } ) - if not self.MenuMessages then - if self:GetClientGroupID() then - self.MenuMessages = MENU_CLIENT:New( self, 'Messages' ) - self.MenuRouteMessageOn = MENU_CLIENT_COMMAND:New( self, 'Messages On', self.MenuMessages, CLIENT.SwitchMessages, { self, true } ) - self.MenuRouteMessageOff = MENU_CLIENT_COMMAND:New( self,'Messages Off', self.MenuMessages, CLIENT.SwitchMessages, { self, false } ) - end - end - if self.MessageSwitch == true then if MessageCategory == nil then MessageCategory = "Messages" From 9493072293707081f5e019b8f380494c8cf1cc13 Mon Sep 17 00:00:00 2001 From: FlightControl Date: Fri, 8 Jul 2016 05:26:21 +0200 Subject: [PATCH 5/7] Reduced to 3 speed warnings and fixed km/h calculation error. --- Moose Development/Moose/AirbasePolice.lua | 5 +++-- 1 file changed, 3 insertions(+), 2 deletions(-) diff --git a/Moose Development/Moose/AirbasePolice.lua b/Moose Development/Moose/AirbasePolice.lua index 867838846..35e6d0053 100644 --- a/Moose Development/Moose/AirbasePolice.lua +++ b/Moose Development/Moose/AirbasePolice.lua @@ -158,7 +158,8 @@ function AIRBASEPOLICE_BASE:_AirbaseMonitor() end local VelocityVec3 = Client:GetVelocity() - local Velocity = math.abs(VelocityVec3.x) + math.abs(VelocityVec3.y) + math.abs(VelocityVec3.z) + local Velocity = math.abs(VelocityVec3.x) + math.abs(VelocityVec3.y) + math.abs(VelocityVec3.z) -- in meters / sec + local Velocity = Velocity * 3.6 -- now it is in km/h. local IsAboveRunway = Client:IsAboveRunway() local IsOnGround = Client:InAir() == false self:T( IsAboveRunway, IsOnGround ) @@ -172,7 +173,7 @@ function AIRBASEPOLICE_BASE:_AirbaseMonitor() local SpeedingWarnings = Client:GetState( self, "Warnings" ) self:T( SpeedingWarnings ) - if SpeedingWarnings <= 5 then + if SpeedingWarnings <= 3 then Client:Message( "You are speeding on the taxiway! Slow down or you will be removed from this airbase! Your current velocity is " .. string.format( "%2.0f km/h", Velocity ), 5, "Warning " .. SpeedingWarnings .. " / 5" ) Client:SetState( self, "Warnings", SpeedingWarnings + 1 ) else From 8556ee5128331524a88d81ef7e874d32d4300d73 Mon Sep 17 00:00:00 2001 From: FlightControl Date: Fri, 8 Jul 2016 05:26:50 +0200 Subject: [PATCH 6/7] Static --- .../l10n/DEFAULT/Moose.lua | 83 ++++++++++--------- Moose Mission Setup/Moose.lua | 83 ++++++++++--------- 2 files changed, 88 insertions(+), 78 deletions(-) diff --git a/Moose Mission Setup/Moose Mission Update/l10n/DEFAULT/Moose.lua b/Moose Mission Setup/Moose Mission Update/l10n/DEFAULT/Moose.lua index f1f72fe28..ac3a1e8d0 100644 --- a/Moose Mission Setup/Moose Mission Update/l10n/DEFAULT/Moose.lua +++ b/Moose Mission Setup/Moose Mission Update/l10n/DEFAULT/Moose.lua @@ -1,5 +1,5 @@ env.info( '*** MOOSE STATIC INCLUDE START *** ' ) -env.info( 'Moose Generation Timestamp: 20160707_2350' ) +env.info( 'Moose Generation Timestamp: 20160708_0526' ) local base = _G Include = {} @@ -9495,14 +9495,6 @@ end function CLIENT:Message( Message, MessageDuration, MessageCategory, MessageInterval, MessageID ) self:F( { Message, MessageDuration, MessageCategory, MessageInterval } ) - if not self.MenuMessages then - if self:GetClientGroupID() then - self.MenuMessages = MENU_CLIENT:New( self, 'Messages' ) - self.MenuRouteMessageOn = MENU_CLIENT_COMMAND:New( self, 'Messages On', self.MenuMessages, CLIENT.SwitchMessages, { self, true } ) - self.MenuRouteMessageOff = MENU_CLIENT_COMMAND:New( self,'Messages Off', self.MenuMessages, CLIENT.SwitchMessages, { self, false } ) - end - end - if self.MessageSwitch == true then if MessageCategory == nil then MessageCategory = "Messages" @@ -22028,15 +22020,15 @@ function AIRBASEPOLICE_BASE:New( SetClient, Airbases ) Airbase.ZoneBoundary = ZONE_POLYGON_BASE:New( "Boundary", Airbase.PointsBoundary ):SmokeZone(POINT_VEC3.SmokeColor.White):Flush() for PointsRunwayID, PointsRunway in pairs( Airbase.PointsRunways ) do Airbase.ZoneRunways[PointsRunwayID] = ZONE_POLYGON_BASE:New( "Runway " .. PointsRunwayID, PointsRunway ):SmokeZone(POINT_VEC3.SmokeColor.Red):Flush() - end + end end - -- -- Template - -- local TemplateBoundary = GROUP:FindByName( "Template Boundary" ) - -- self.Airbases.Template.ZoneBoundary = ZONE_POLYGON:New( "Template Boundary", TemplateBoundary ):SmokeZone(POINT_VEC3.SmokeColor.White):Flush() - -- - -- local TemplateRunway1 = GROUP:FindByName( "Template Runway 1" ) - -- self.Airbases.Template.ZoneRunways[1] = ZONE_POLYGON:New( "Template Runway 1", TemplateRunway1 ):SmokeZone(POINT_VEC3.SmokeColor.Red):Flush() + -- Template + local TemplateBoundary = GROUP:FindByName( "Template Boundary" ) + self.Airbases.Template.ZoneBoundary = ZONE_POLYGON:New( "Template Boundary", TemplateBoundary ):SmokeZone(POINT_VEC3.SmokeColor.White):Flush() + + local TemplateRunway1 = GROUP:FindByName( "Template Runway 1" ) + self.Airbases.Template.ZoneRunways[1] = ZONE_POLYGON:New( "Template Runway 1", TemplateRunway1 ):SmokeZone(POINT_VEC3.SmokeColor.Red):Flush() self.SetClient:ForEachClient( --- @param Client#CLIENT Client @@ -22100,7 +22092,8 @@ function AIRBASEPOLICE_BASE:_AirbaseMonitor() end local VelocityVec3 = Client:GetVelocity() - local Velocity = math.abs(VelocityVec3.x) + math.abs(VelocityVec3.y) + math.abs(VelocityVec3.z) + local Velocity = math.abs(VelocityVec3.x) + math.abs(VelocityVec3.y) + math.abs(VelocityVec3.z) -- in meters / sec + local Velocity = Velocity * 3.6 -- now it is in km/h. local IsAboveRunway = Client:IsAboveRunway() local IsOnGround = Client:InAir() == false self:T( IsAboveRunway, IsOnGround ) @@ -22114,7 +22107,7 @@ function AIRBASEPOLICE_BASE:_AirbaseMonitor() local SpeedingWarnings = Client:GetState( self, "Warnings" ) self:T( SpeedingWarnings ) - if SpeedingWarnings <= 5 then + if SpeedingWarnings <= 3 then Client:Message( "You are speeding on the taxiway! Slow down or you will be removed from this airbase! Your current velocity is " .. string.format( "%2.0f km/h", Velocity ), 5, "Warning " .. SpeedingWarnings .. " / 5" ) Client:SetState( self, "Warnings", SpeedingWarnings + 1 ) else @@ -22125,7 +22118,7 @@ function AIRBASEPOLICE_BASE:_AirbaseMonitor() end else - Client:Message( "You are speeding on the taxiway! Slow down please ...! Your current velocity is " .. string.format( "%2.0f km/h", Velocity ), 5, "Attention! " ) + Client:Message( "You are speeding on the taxiway, slow down now! Your current velocity is " .. string.format( "%2.0f km/h", Velocity ), 5, "Attention! " ) Client:SetState( self, "Speeding", true ) Client:SetState( self, "Warnings", 1 ) end @@ -22174,6 +22167,11 @@ AIRBASEPOLICE_CAUCASUS = { }, PointsRunways = { [1] = { + [1]={["y"]=242140.57142858,["x"]=-6478.8571428583,}, + [2]={["y"]=242188.57142858,["x"]=-6522.0000000011,}, + [3]={["y"]=244124.2857143,["x"]=-4344.0000000011,}, + [4]={["y"]=244068.2857143,["x"]=-4296.5714285726,}, + [5]={["y"]=242140.57142858,["x"]=-6480.0000000011,} }, }, ZoneBoundary = {}, @@ -22631,6 +22629,13 @@ AIRBASEPOLICE_CAUCASUS = { [4]={["y"]=895327.42857143,["x"]=-314568.85714286,}, [5]={["y"]=895261.71428572,["x"]=-314656,}, }, + [2] = { + [1]={["y"]=895605.71428572,["x"]=-314724.57142857,}, + [2]={["y"]=897639.71428572,["x"]=-316148,}, + [3]={["y"]=897683.42857143,["x"]=-316087.14285714,}, + [4]={["y"]=895650,["x"]=-314660,}, + [5]={["y"]=895606,["x"]=-314724.85714286,} + }, }, ZoneBoundary = {}, ZoneRunways = {}, @@ -22673,12 +22678,12 @@ function AIRBASEPOLICE_CAUCASUS:New( SetClient ) local self = BASE:Inherit( self, AIRBASEPOLICE_BASE:New( SetClient, self.Airbases ) ) -- -- AnapaVityazevo - local AnapaVityazevoBoundary = GROUP:FindByName( "AnapaVityazevo Boundary" ) - self.Airbases.AnapaVityazevo.ZoneBoundary = ZONE_POLYGON:New( "AnapaVityazevo Boundary", AnapaVityazevoBoundary ):SmokeZone(POINT_VEC3.SmokeColor.White):Flush() - - local AnapaVityazevoRunway1 = GROUP:FindByName( "AnapaVityazevo Runway 1" ) - self.Airbases.AnapaVityazevo.ZoneRunways[1] = ZONE_POLYGON:New( "AnapaVityazevo Runway 1", AnapaVityazevoRunway1 ):SmokeZone(POINT_VEC3.SmokeColor.Red):Flush() - -- + -- local AnapaVityazevoBoundary = GROUP:FindByName( "AnapaVityazevo Boundary" ) + -- self.Airbases.AnapaVityazevo.ZoneBoundary = ZONE_POLYGON:New( "AnapaVityazevo Boundary", AnapaVityazevoBoundary ):SmokeZone(POINT_VEC3.SmokeColor.White):Flush() + -- + -- local AnapaVityazevoRunway1 = GROUP:FindByName( "AnapaVityazevo Runway 1" ) + -- self.Airbases.AnapaVityazevo.ZoneRunways[1] = ZONE_POLYGON:New( "AnapaVityazevo Runway 1", AnapaVityazevoRunway1 ):SmokeZone(POINT_VEC3.SmokeColor.Red):Flush() + -- -- -- -- -- Batumi @@ -22848,14 +22853,14 @@ function AIRBASEPOLICE_CAUCASUS:New( SetClient ) -- -- -- -- TbilisiLochini - local TbilisiLochiniBoundary = GROUP:FindByName( "TbilisiLochini Boundary" ) - self.Airbases.TbilisiLochini.ZoneBoundary = ZONE_POLYGON:New( "TbilisiLochini Boundary", TbilisiLochiniBoundary ):SmokeZone(POINT_VEC3.SmokeColor.White):Flush() - - local TbilisiLochiniRunway1 = GROUP:FindByName( "TbilisiLochini Runway 1" ) - self.Airbases.TbilisiLochini.ZoneRunways[1] = ZONE_POLYGON:New( "TbilisiLochini Runway 1", TbilisiLochiniRunway1 ):SmokeZone(POINT_VEC3.SmokeColor.Red):Flush() - - local TbilisiLochiniRunway2 = GROUP:FindByName( "TbilisiLochini Runway 2" ) - self.Airbases.TbilisiLochini.ZoneRunways[2] = ZONE_POLYGON:New( "TbilisiLochini Runway 2", TbilisiLochiniRunway2 ):SmokeZone(POINT_VEC3.SmokeColor.Red):Flush() + -- local TbilisiLochiniBoundary = GROUP:FindByName( "TbilisiLochini Boundary" ) + -- self.Airbases.TbilisiLochini.ZoneBoundary = ZONE_POLYGON:New( "TbilisiLochini Boundary", TbilisiLochiniBoundary ):SmokeZone(POINT_VEC3.SmokeColor.White):Flush() + -- + -- local TbilisiLochiniRunway1 = GROUP:FindByName( "TbilisiLochini Runway 1" ) + -- self.Airbases.TbilisiLochini.ZoneRunways[1] = ZONE_POLYGON:New( "TbilisiLochini Runway 1", TbilisiLochiniRunway1 ):SmokeZone(POINT_VEC3.SmokeColor.Red):Flush() + -- + -- local TbilisiLochiniRunway2 = GROUP:FindByName( "TbilisiLochini Runway 2" ) + -- self.Airbases.TbilisiLochini.ZoneRunways[2] = ZONE_POLYGON:New( "TbilisiLochini Runway 2", TbilisiLochiniRunway2 ):SmokeZone(POINT_VEC3.SmokeColor.Red):Flush() -- -- -- @@ -22870,12 +22875,12 @@ function AIRBASEPOLICE_CAUCASUS:New( SetClient ) -- - -- Template - local TemplateBoundary = GROUP:FindByName( "Template Boundary" ) - self.Airbases.Template.ZoneBoundary = ZONE_POLYGON:New( "Template Boundary", TemplateBoundary ):SmokeZone(POINT_VEC3.SmokeColor.White):Flush() - - local TemplateRunway1 = GROUP:FindByName( "Template Runway 1" ) - self.Airbases.Template.ZoneRunways[1] = ZONE_POLYGON:New( "Template Runway 1", TemplateRunway1 ):SmokeZone(POINT_VEC3.SmokeColor.Red):Flush() + -- Template + -- local TemplateBoundary = GROUP:FindByName( "Template Boundary" ) + -- self.Airbases.Template.ZoneBoundary = ZONE_POLYGON:New( "Template Boundary", TemplateBoundary ):SmokeZone(POINT_VEC3.SmokeColor.White):Flush() + -- + -- local TemplateRunway1 = GROUP:FindByName( "Template Runway 1" ) + -- self.Airbases.Template.ZoneRunways[1] = ZONE_POLYGON:New( "Template Runway 1", TemplateRunway1 ):SmokeZone(POINT_VEC3.SmokeColor.Red):Flush() return self diff --git a/Moose Mission Setup/Moose.lua b/Moose Mission Setup/Moose.lua index f1f72fe28..ac3a1e8d0 100644 --- a/Moose Mission Setup/Moose.lua +++ b/Moose Mission Setup/Moose.lua @@ -1,5 +1,5 @@ env.info( '*** MOOSE STATIC INCLUDE START *** ' ) -env.info( 'Moose Generation Timestamp: 20160707_2350' ) +env.info( 'Moose Generation Timestamp: 20160708_0526' ) local base = _G Include = {} @@ -9495,14 +9495,6 @@ end function CLIENT:Message( Message, MessageDuration, MessageCategory, MessageInterval, MessageID ) self:F( { Message, MessageDuration, MessageCategory, MessageInterval } ) - if not self.MenuMessages then - if self:GetClientGroupID() then - self.MenuMessages = MENU_CLIENT:New( self, 'Messages' ) - self.MenuRouteMessageOn = MENU_CLIENT_COMMAND:New( self, 'Messages On', self.MenuMessages, CLIENT.SwitchMessages, { self, true } ) - self.MenuRouteMessageOff = MENU_CLIENT_COMMAND:New( self,'Messages Off', self.MenuMessages, CLIENT.SwitchMessages, { self, false } ) - end - end - if self.MessageSwitch == true then if MessageCategory == nil then MessageCategory = "Messages" @@ -22028,15 +22020,15 @@ function AIRBASEPOLICE_BASE:New( SetClient, Airbases ) Airbase.ZoneBoundary = ZONE_POLYGON_BASE:New( "Boundary", Airbase.PointsBoundary ):SmokeZone(POINT_VEC3.SmokeColor.White):Flush() for PointsRunwayID, PointsRunway in pairs( Airbase.PointsRunways ) do Airbase.ZoneRunways[PointsRunwayID] = ZONE_POLYGON_BASE:New( "Runway " .. PointsRunwayID, PointsRunway ):SmokeZone(POINT_VEC3.SmokeColor.Red):Flush() - end + end end - -- -- Template - -- local TemplateBoundary = GROUP:FindByName( "Template Boundary" ) - -- self.Airbases.Template.ZoneBoundary = ZONE_POLYGON:New( "Template Boundary", TemplateBoundary ):SmokeZone(POINT_VEC3.SmokeColor.White):Flush() - -- - -- local TemplateRunway1 = GROUP:FindByName( "Template Runway 1" ) - -- self.Airbases.Template.ZoneRunways[1] = ZONE_POLYGON:New( "Template Runway 1", TemplateRunway1 ):SmokeZone(POINT_VEC3.SmokeColor.Red):Flush() + -- Template + local TemplateBoundary = GROUP:FindByName( "Template Boundary" ) + self.Airbases.Template.ZoneBoundary = ZONE_POLYGON:New( "Template Boundary", TemplateBoundary ):SmokeZone(POINT_VEC3.SmokeColor.White):Flush() + + local TemplateRunway1 = GROUP:FindByName( "Template Runway 1" ) + self.Airbases.Template.ZoneRunways[1] = ZONE_POLYGON:New( "Template Runway 1", TemplateRunway1 ):SmokeZone(POINT_VEC3.SmokeColor.Red):Flush() self.SetClient:ForEachClient( --- @param Client#CLIENT Client @@ -22100,7 +22092,8 @@ function AIRBASEPOLICE_BASE:_AirbaseMonitor() end local VelocityVec3 = Client:GetVelocity() - local Velocity = math.abs(VelocityVec3.x) + math.abs(VelocityVec3.y) + math.abs(VelocityVec3.z) + local Velocity = math.abs(VelocityVec3.x) + math.abs(VelocityVec3.y) + math.abs(VelocityVec3.z) -- in meters / sec + local Velocity = Velocity * 3.6 -- now it is in km/h. local IsAboveRunway = Client:IsAboveRunway() local IsOnGround = Client:InAir() == false self:T( IsAboveRunway, IsOnGround ) @@ -22114,7 +22107,7 @@ function AIRBASEPOLICE_BASE:_AirbaseMonitor() local SpeedingWarnings = Client:GetState( self, "Warnings" ) self:T( SpeedingWarnings ) - if SpeedingWarnings <= 5 then + if SpeedingWarnings <= 3 then Client:Message( "You are speeding on the taxiway! Slow down or you will be removed from this airbase! Your current velocity is " .. string.format( "%2.0f km/h", Velocity ), 5, "Warning " .. SpeedingWarnings .. " / 5" ) Client:SetState( self, "Warnings", SpeedingWarnings + 1 ) else @@ -22125,7 +22118,7 @@ function AIRBASEPOLICE_BASE:_AirbaseMonitor() end else - Client:Message( "You are speeding on the taxiway! Slow down please ...! Your current velocity is " .. string.format( "%2.0f km/h", Velocity ), 5, "Attention! " ) + Client:Message( "You are speeding on the taxiway, slow down now! Your current velocity is " .. string.format( "%2.0f km/h", Velocity ), 5, "Attention! " ) Client:SetState( self, "Speeding", true ) Client:SetState( self, "Warnings", 1 ) end @@ -22174,6 +22167,11 @@ AIRBASEPOLICE_CAUCASUS = { }, PointsRunways = { [1] = { + [1]={["y"]=242140.57142858,["x"]=-6478.8571428583,}, + [2]={["y"]=242188.57142858,["x"]=-6522.0000000011,}, + [3]={["y"]=244124.2857143,["x"]=-4344.0000000011,}, + [4]={["y"]=244068.2857143,["x"]=-4296.5714285726,}, + [5]={["y"]=242140.57142858,["x"]=-6480.0000000011,} }, }, ZoneBoundary = {}, @@ -22631,6 +22629,13 @@ AIRBASEPOLICE_CAUCASUS = { [4]={["y"]=895327.42857143,["x"]=-314568.85714286,}, [5]={["y"]=895261.71428572,["x"]=-314656,}, }, + [2] = { + [1]={["y"]=895605.71428572,["x"]=-314724.57142857,}, + [2]={["y"]=897639.71428572,["x"]=-316148,}, + [3]={["y"]=897683.42857143,["x"]=-316087.14285714,}, + [4]={["y"]=895650,["x"]=-314660,}, + [5]={["y"]=895606,["x"]=-314724.85714286,} + }, }, ZoneBoundary = {}, ZoneRunways = {}, @@ -22673,12 +22678,12 @@ function AIRBASEPOLICE_CAUCASUS:New( SetClient ) local self = BASE:Inherit( self, AIRBASEPOLICE_BASE:New( SetClient, self.Airbases ) ) -- -- AnapaVityazevo - local AnapaVityazevoBoundary = GROUP:FindByName( "AnapaVityazevo Boundary" ) - self.Airbases.AnapaVityazevo.ZoneBoundary = ZONE_POLYGON:New( "AnapaVityazevo Boundary", AnapaVityazevoBoundary ):SmokeZone(POINT_VEC3.SmokeColor.White):Flush() - - local AnapaVityazevoRunway1 = GROUP:FindByName( "AnapaVityazevo Runway 1" ) - self.Airbases.AnapaVityazevo.ZoneRunways[1] = ZONE_POLYGON:New( "AnapaVityazevo Runway 1", AnapaVityazevoRunway1 ):SmokeZone(POINT_VEC3.SmokeColor.Red):Flush() - -- + -- local AnapaVityazevoBoundary = GROUP:FindByName( "AnapaVityazevo Boundary" ) + -- self.Airbases.AnapaVityazevo.ZoneBoundary = ZONE_POLYGON:New( "AnapaVityazevo Boundary", AnapaVityazevoBoundary ):SmokeZone(POINT_VEC3.SmokeColor.White):Flush() + -- + -- local AnapaVityazevoRunway1 = GROUP:FindByName( "AnapaVityazevo Runway 1" ) + -- self.Airbases.AnapaVityazevo.ZoneRunways[1] = ZONE_POLYGON:New( "AnapaVityazevo Runway 1", AnapaVityazevoRunway1 ):SmokeZone(POINT_VEC3.SmokeColor.Red):Flush() + -- -- -- -- -- Batumi @@ -22848,14 +22853,14 @@ function AIRBASEPOLICE_CAUCASUS:New( SetClient ) -- -- -- -- TbilisiLochini - local TbilisiLochiniBoundary = GROUP:FindByName( "TbilisiLochini Boundary" ) - self.Airbases.TbilisiLochini.ZoneBoundary = ZONE_POLYGON:New( "TbilisiLochini Boundary", TbilisiLochiniBoundary ):SmokeZone(POINT_VEC3.SmokeColor.White):Flush() - - local TbilisiLochiniRunway1 = GROUP:FindByName( "TbilisiLochini Runway 1" ) - self.Airbases.TbilisiLochini.ZoneRunways[1] = ZONE_POLYGON:New( "TbilisiLochini Runway 1", TbilisiLochiniRunway1 ):SmokeZone(POINT_VEC3.SmokeColor.Red):Flush() - - local TbilisiLochiniRunway2 = GROUP:FindByName( "TbilisiLochini Runway 2" ) - self.Airbases.TbilisiLochini.ZoneRunways[2] = ZONE_POLYGON:New( "TbilisiLochini Runway 2", TbilisiLochiniRunway2 ):SmokeZone(POINT_VEC3.SmokeColor.Red):Flush() + -- local TbilisiLochiniBoundary = GROUP:FindByName( "TbilisiLochini Boundary" ) + -- self.Airbases.TbilisiLochini.ZoneBoundary = ZONE_POLYGON:New( "TbilisiLochini Boundary", TbilisiLochiniBoundary ):SmokeZone(POINT_VEC3.SmokeColor.White):Flush() + -- + -- local TbilisiLochiniRunway1 = GROUP:FindByName( "TbilisiLochini Runway 1" ) + -- self.Airbases.TbilisiLochini.ZoneRunways[1] = ZONE_POLYGON:New( "TbilisiLochini Runway 1", TbilisiLochiniRunway1 ):SmokeZone(POINT_VEC3.SmokeColor.Red):Flush() + -- + -- local TbilisiLochiniRunway2 = GROUP:FindByName( "TbilisiLochini Runway 2" ) + -- self.Airbases.TbilisiLochini.ZoneRunways[2] = ZONE_POLYGON:New( "TbilisiLochini Runway 2", TbilisiLochiniRunway2 ):SmokeZone(POINT_VEC3.SmokeColor.Red):Flush() -- -- -- @@ -22870,12 +22875,12 @@ function AIRBASEPOLICE_CAUCASUS:New( SetClient ) -- - -- Template - local TemplateBoundary = GROUP:FindByName( "Template Boundary" ) - self.Airbases.Template.ZoneBoundary = ZONE_POLYGON:New( "Template Boundary", TemplateBoundary ):SmokeZone(POINT_VEC3.SmokeColor.White):Flush() - - local TemplateRunway1 = GROUP:FindByName( "Template Runway 1" ) - self.Airbases.Template.ZoneRunways[1] = ZONE_POLYGON:New( "Template Runway 1", TemplateRunway1 ):SmokeZone(POINT_VEC3.SmokeColor.Red):Flush() + -- Template + -- local TemplateBoundary = GROUP:FindByName( "Template Boundary" ) + -- self.Airbases.Template.ZoneBoundary = ZONE_POLYGON:New( "Template Boundary", TemplateBoundary ):SmokeZone(POINT_VEC3.SmokeColor.White):Flush() + -- + -- local TemplateRunway1 = GROUP:FindByName( "Template Runway 1" ) + -- self.Airbases.Template.ZoneRunways[1] = ZONE_POLYGON:New( "Template Runway 1", TemplateRunway1 ):SmokeZone(POINT_VEC3.SmokeColor.Red):Flush() return self From 6f26394bcfe30d986be14851f4e83ea675ccf7f2 Mon Sep 17 00:00:00 2001 From: FlightControl Date: Fri, 8 Jul 2016 05:46:47 +0200 Subject: [PATCH 7/7] Fixed speed, and # of warnings --- Moose Development/Moose/AirbasePolice.lua | 14 +++++++------- .../l10n/DEFAULT/Moose.lua | 14 +++++++------- Moose Mission Setup/Moose.lua | 14 +++++++------- .../Moose_Test_AIRBASEPOLICE_CAUCASUS.miz | Bin 185311 -> 192466 bytes 4 files changed, 21 insertions(+), 21 deletions(-) diff --git a/Moose Development/Moose/AirbasePolice.lua b/Moose Development/Moose/AirbasePolice.lua index 35e6d0053..803b52505 100644 --- a/Moose Development/Moose/AirbasePolice.lua +++ b/Moose Development/Moose/AirbasePolice.lua @@ -89,12 +89,12 @@ function AIRBASEPOLICE_BASE:New( SetClient, Airbases ) end end - -- Template - local TemplateBoundary = GROUP:FindByName( "Template Boundary" ) - self.Airbases.Template.ZoneBoundary = ZONE_POLYGON:New( "Template Boundary", TemplateBoundary ):SmokeZone(POINT_VEC3.SmokeColor.White):Flush() - - local TemplateRunway1 = GROUP:FindByName( "Template Runway 1" ) - self.Airbases.Template.ZoneRunways[1] = ZONE_POLYGON:New( "Template Runway 1", TemplateRunway1 ):SmokeZone(POINT_VEC3.SmokeColor.Red):Flush() +-- -- Template +-- local TemplateBoundary = GROUP:FindByName( "Template Boundary" ) +-- self.Airbases.Template.ZoneBoundary = ZONE_POLYGON:New( "Template Boundary", TemplateBoundary ):SmokeZone(POINT_VEC3.SmokeColor.White):Flush() +-- +-- local TemplateRunway1 = GROUP:FindByName( "Template Runway 1" ) +-- self.Airbases.Template.ZoneRunways[1] = ZONE_POLYGON:New( "Template Runway 1", TemplateRunway1 ):SmokeZone(POINT_VEC3.SmokeColor.Red):Flush() self.SetClient:ForEachClient( --- @param Client#CLIENT Client @@ -174,7 +174,7 @@ function AIRBASEPOLICE_BASE:_AirbaseMonitor() self:T( SpeedingWarnings ) if SpeedingWarnings <= 3 then - Client:Message( "You are speeding on the taxiway! Slow down or you will be removed from this airbase! Your current velocity is " .. string.format( "%2.0f km/h", Velocity ), 5, "Warning " .. SpeedingWarnings .. " / 5" ) + Client:Message( "You are speeding on the taxiway! Slow down or you will be removed from this airbase! Your current velocity is " .. string.format( "%2.0f km/h", Velocity ), 5, "Warning " .. SpeedingWarnings .. " / 3" ) Client:SetState( self, "Warnings", SpeedingWarnings + 1 ) else MESSAGE:New( "Player " .. Client:GetPlayerName() .. " has been removed from the airbase, due to a speeding violation ...", 10, "Airbase Police" ):ToAll() diff --git a/Moose Mission Setup/Moose Mission Update/l10n/DEFAULT/Moose.lua b/Moose Mission Setup/Moose Mission Update/l10n/DEFAULT/Moose.lua index ac3a1e8d0..6014624b7 100644 --- a/Moose Mission Setup/Moose Mission Update/l10n/DEFAULT/Moose.lua +++ b/Moose Mission Setup/Moose Mission Update/l10n/DEFAULT/Moose.lua @@ -1,5 +1,5 @@ env.info( '*** MOOSE STATIC INCLUDE START *** ' ) -env.info( 'Moose Generation Timestamp: 20160708_0526' ) +env.info( 'Moose Generation Timestamp: 20160708_0542' ) local base = _G Include = {} @@ -22023,12 +22023,12 @@ function AIRBASEPOLICE_BASE:New( SetClient, Airbases ) end end - -- Template - local TemplateBoundary = GROUP:FindByName( "Template Boundary" ) - self.Airbases.Template.ZoneBoundary = ZONE_POLYGON:New( "Template Boundary", TemplateBoundary ):SmokeZone(POINT_VEC3.SmokeColor.White):Flush() - - local TemplateRunway1 = GROUP:FindByName( "Template Runway 1" ) - self.Airbases.Template.ZoneRunways[1] = ZONE_POLYGON:New( "Template Runway 1", TemplateRunway1 ):SmokeZone(POINT_VEC3.SmokeColor.Red):Flush() +-- -- Template +-- local TemplateBoundary = GROUP:FindByName( "Template Boundary" ) +-- self.Airbases.Template.ZoneBoundary = ZONE_POLYGON:New( "Template Boundary", TemplateBoundary ):SmokeZone(POINT_VEC3.SmokeColor.White):Flush() +-- +-- local TemplateRunway1 = GROUP:FindByName( "Template Runway 1" ) +-- self.Airbases.Template.ZoneRunways[1] = ZONE_POLYGON:New( "Template Runway 1", TemplateRunway1 ):SmokeZone(POINT_VEC3.SmokeColor.Red):Flush() self.SetClient:ForEachClient( --- @param Client#CLIENT Client diff --git a/Moose Mission Setup/Moose.lua b/Moose Mission Setup/Moose.lua index ac3a1e8d0..6014624b7 100644 --- a/Moose Mission Setup/Moose.lua +++ b/Moose Mission Setup/Moose.lua @@ -1,5 +1,5 @@ env.info( '*** MOOSE STATIC INCLUDE START *** ' ) -env.info( 'Moose Generation Timestamp: 20160708_0526' ) +env.info( 'Moose Generation Timestamp: 20160708_0542' ) local base = _G Include = {} @@ -22023,12 +22023,12 @@ function AIRBASEPOLICE_BASE:New( SetClient, Airbases ) end end - -- Template - local TemplateBoundary = GROUP:FindByName( "Template Boundary" ) - self.Airbases.Template.ZoneBoundary = ZONE_POLYGON:New( "Template Boundary", TemplateBoundary ):SmokeZone(POINT_VEC3.SmokeColor.White):Flush() - - local TemplateRunway1 = GROUP:FindByName( "Template Runway 1" ) - self.Airbases.Template.ZoneRunways[1] = ZONE_POLYGON:New( "Template Runway 1", TemplateRunway1 ):SmokeZone(POINT_VEC3.SmokeColor.Red):Flush() +-- -- Template +-- local TemplateBoundary = GROUP:FindByName( "Template Boundary" ) +-- self.Airbases.Template.ZoneBoundary = ZONE_POLYGON:New( "Template Boundary", TemplateBoundary ):SmokeZone(POINT_VEC3.SmokeColor.White):Flush() +-- +-- local TemplateRunway1 = GROUP:FindByName( "Template Runway 1" ) +-- self.Airbases.Template.ZoneRunways[1] = ZONE_POLYGON:New( "Template Runway 1", TemplateRunway1 ):SmokeZone(POINT_VEC3.SmokeColor.Red):Flush() self.SetClient:ForEachClient( --- @param Client#CLIENT Client diff --git a/Moose Test Missions/Moose_Test_AIRBASEPOLICE/Moose_Test_AIRBASEPOLICE_CAUCASUS.miz b/Moose Test Missions/Moose_Test_AIRBASEPOLICE/Moose_Test_AIRBASEPOLICE_CAUCASUS.miz index 7c96467ee53e9b24d4761c1d88877033a27b89d3..14d5cda4c0bdc5dc84dd714cfd8a900e3281d469 100644 GIT binary patch delta 170682 zcmV(#K;*yQrwh{G3$SSxmle|j5Vxbc0%#JqBe?=_0hbHS0*VdCs3zwDNdf@F6b%3t zm)}eR6@M;lbz$tiZFd{FktqCGImiD2k5%0?r}W8FxWSE9$yuGj0+ zBAZgjWH-~@lq~z`{`Ln|g_i;vO*ZvnJBgf(%?1jELZMJ70EI%FUi6Z5l(j|c$&)AI z@aX7dPn`6(`};d$|JBaHn_c`o?hD9niH>;myMNf0In1&m7Qe=6oJVDnrJ|oq;-ZWu z)8}Gi{n;PZ|Ihj#Kdk@!(*~6sXM<=gP9s@nOMLkC(eEDpZa*E2XG8e@a&5kPFOqRw z1kz;EXqFD3sbAkXZDbI)2T8IZ#NGpjt?H#4t-+r5Kz?=~*nw^SFpDWN#AvEz5t4^8&cMB{q3h zlGbIN&XVy^rfqB}TEFg}`>zxk_oht7#ebTRy>~%e=!%0`BxaD@6>&M}F_vJeVf@cX&!4 zMya5fO|x9~{~5IDWGt0QtB~a6Nq;m>KF1#lNZF_eNtVV3^7BN)abYP>#~mRgVvU7V zsMI2nAl64?Np&he3t6xH9!peRk!DiVCzCiWrF2gssXWU}}0)J!zp^D!F z2JC)cR3$nlr;7x2MfJ*x7FJmtnrcLKMdkT5Y-vafq!Qje);N9?&j7IXrKPG+GToIT zX~h}aKg@XVNntN#Ym<09ET|booGj}SXP78+kcq45Y;qdsYQ`ZFPj~Mlb6$%f@k(wmKcod4=`eV~yVDE0kXV+v;k*)X5i0Wlv67gQ#q)CU=%8 zqiUowO8vXdBXV0!+BUzJzQYEGTbw3iql%>V0dp#rCV@DQrqftj1%EjhdH=DfDH6+f z(Hf>&^%xm}HbIr~;R8;Yj?P$HtF7C>F9wxeDPUUKm#CBUBm7+m`F~_ySL}8X%+;JgkpQ|GGa^+HPgj=PL{ zOd_SGs3l!%hASMfD1Yp{My4DzPp$wZar3o>VM7OCTOumSB&4!V!#Y(0#4tXco%LWr z6`w|fkL`}=F!jG;=l^+=_jQXKyiO-7(2lm69Y9SSOz+nCG&P6qNY->JHqVk=TML+x zt3@=5sp?gM?6lmkn3OKNxj|V#Wa@g>1s|RH&`PjBrEmVZLn%5(A_o7U$(`+ z9;h~FqkmBmv+bp5_%~TErGl1SM-wc}l)4tQ$5A@$oyFzL7_0@XsUs&+iMz8bH+)=S zc747M;3tt{O!0W}IZNYy2HfBS08%YG()d!Z1@)AH0Nk3E1PVy(O|v8|4R>VG9uRA@ zdY^Rqm79L0(?7fEpBZOlwqjS65P$lD9I!N{v43_J=eUrTcPU}z zKfQV}m&kXMye)ycRM_^YL@g=CsZrVs=>`DxK6eq}CjcV=`1?nTRw8^QjjZz>A`t|| z;D42j1n57Bb;C=JV?)owIEtsU64RxrmgBB`HiB}Q1cNDG@k;Se0#;ZyObSW%0QW&@ zDix=3c^S(UYI&JaYYWldkbsjog{^B`7R}+*#_q1fN$q*2__YBIqm=4e-l$CiFrXWY zKsVUTVgP~hljw{_Her-vxTfgP!+f0vwtve1Z1d&NzbTJ4oAYS1jz>3Zjmo&P8COl( zr`q^p{`ta5GMSF!<7@_nB)H6$Bk?RMlMBg_;S{$|bI67@Lj+?Gq;MDyl8GE3xakW` zED|i?LXRXjUC@eNMPRN{z`q!cN_gP7L`$1<*422u8_(|W{$IH$d?Url#l$GugqtX zQ=@jLI+5XV9^$Gj4%XH-cVUJCH8zRTWI7v1w3W`K$ebrRq9qsHoN$@+3{@AGMHD^A zk%IRl*+WX~F!4$!Dv`s)&pHt%O@Dv7go=yV=~5N1g(_YPRlK&KV%aNEen|4d>+hl% z1gh_SdICA7=H8Y1R+aWX!#Jh>eUm2TZ#XD?)JmUVwG}PwR&RLI`y?0HXG}oo)5r&Wikb%ISs9hM z)bWUs#ke(J(x@H0PN*V{LTzaF1( zp2Ih+fCfrE%U@s(ulrgW;CgTRhhYBF{vmD~Vlw=-o1Ep*^t`IW8x~|){+7`?rUGFA zGi-Hz(*oy8Y)NlVF{TZZ;?HZ)E-4G^c;>t!=+E8M^h&WlSe0w0zkhotGoL^Dot#;B z51-qK9}RNZrIRF`l`(jw>;uF}0HlZqSvmv|GAZEn8LbEq4-K8++$zQ(9im9i(qxnj zq7-c9v!s*+oMiH^pEi1%8v>;ZO29h*{riBV92{^tk+W-8PUk7gN*Ac?s8eh7r-q$C9O0ELf2R&{!lnYpQ_3A{#H6 zOs8hB<{9GVCwLZ+v~+RFY~?~9zGma$fu@fLRV=0?w@oswV}FavgcF<|f>PhMnAa3$ zAXY06mjc~3YNYC+Dg~IvDag`A6cCyR7!xSkb!qPg*yl zP^6i=jOfw6yML`tj)x!CH-;_eRE3DTOokv?^6<&VSVcy4&sC!Gt+Q9;9vuTNY zRkGOF=6{Gb?A4bU?Kyz?3R!~xQdM+}FCQk+e{LV_;(*RJp z=pq7Ou7>IoI1R$D36`JcQpV6h_%a!fCCFuT1^a9wjiWr41!=%ziC2d}*2hUNXs-Qo z?3`uF)hATkg<89cI2iWP=eiMJbKELXp;@bq5`WcByGdJ=br>P<>9h59IYV#o-JN-5 zYL8YCTSsHk<{eG1fpg~dO%OjxJBc2QFO(?2qMHI8!p^3=meKLG@s$X9SP;p`;dR$> zp=sGU=f8lrV-Pck2YYVrFRiN^>|7>juN{;T?(c#s99Y0Kj=>EDl_W?nE-fFKQ!8~a zp?|%&VCnwv%Cj2>1?*1)p&Cx@!qORs`l(bq_x;t&3Yj&K7U8gWa8zao2W{`X0g3s5 zOCJk)AR&*?1pg71zRI}fo1b(x!3x_wVc4GG8D@JK&o9h2Bf3Q^f6?Kq*@T)P)7I8- zhghz#B-7%HSgM9|IY`GbY*m^LiH5^H$bWlDS7W`pCx8{qw=00?ovadF+L*(c?mXy2(Y1>bCl6)|ZN#MIU ziOr;Wm!xT&ALEA|1-MHk={AR9^lvVaWs|mrlSuSBOXo?E@nIzw0r1b_nceHbf*UlM zR@AIaqitLAcQgcI5AbhkNKrdDVt=*y+*UbjP7|L%%|G%azL8`KQ`sjjabX2DfrD-l z72-0M^D20}%NbT0Pq6d%v{qAj4NiwUplS@WfN;JWp#fl+e$p(r`-x99r~ra4>OrJ~vp(D^o;vEPpyqRA(}C+Lhz3JZF2sNzsprk5DV=AAc}I50e6H zl~xz|7v<5U&;U5_WAnA5jt48VyuO{&#_AB!$~FFje{&xJq$_+jk69A=ukbGns9&yL zMH5}bn`1C>2j>|4`CP*9(2X)sVrncHD5nmY@LU>nz>2nFNr&kKr7^VFSgbu=NMq>= zR@~Jn{4UFzA|B189av@)X@82C3u|x^|W<4?J<$nqm_?ToLiwF3|ErBLh8UoBW^&`X<17{VhJYKGOcN z%YxZx^dZlpVGAZfo+>ESOwCSpM>78y^0gW5piDy;)AWo zY?UKwbH;Ub?NR>0+zQb%K3rpcR=%LhV|S0H%5d}y!~p>(Ixs)Wg3JWegGQD_Z+ls; zFBLezq7_G1(v()eoYFmIciuI+c#eL3`x>w-rKVQy@~^&3{C|r2)vk>}^`It%m1v#* zi_kKQ&@N<%DS2akeZ7Jg+G8;2Z%?z>X0Py4Go@e7rlKO_^T5PVd%cu_aG)y_CSudjC= z1t+NhSx|+dBY!kiR0o5>Yp8cRmr`}#Y8be)FusE63OmM47B%S~C_Om*MeBtucmx;C z3}IRp7?zTVNB;UXs5~(*^MlH)p`pT?8buU)ZI~P&TcC_?59#W~GG=Ig8)!B`Knkpm+MIUQxxeulG zXB3$FqRSWN#=qU8Qef_mlU-TreEbcARvYGOdzM`8HI)8DUsSfs_QdSe`6cOWrSK4_ zR0FI>2*S_@`4P`qMl!8ED`Hpz6?RM^qG3|NoeRt|GNfU}mf6%$Qp0kbEl}G%5gvBZ zZUS!3x_@odRamCE0PYn#t_F08KeIj0dURq39XUADtv+qX=e zmPck|<7SAcyTfSo=)El~Hh!*Q#m3LqekYqDw|o;kM9mRsS*;43J&IC$-rh#HnZ;_R zFn^lB;Ks^HJRUh4=F{D%jPwCJ)vHDnYlBe=b@~9YuuBus$N0bL&KW8d{oOMY8=jkc zbIc~3uEQC7hZoT^raCbw@Vo%8qu4t#1)Up&=WV>@rrW8}*0yyKD>>E>BR|hWZqEaV zVc`P-%nO|e7%sDUHmLRU_R3m__JvvVrOKR^qV9eP0S?Bw9KQrqpO|aKXHRo$Z7N>D-U(S)p zr0B+9d&0t>i`{a4*qo+=hmT^c4KZY!EQy#a;(N? zI5D;wbJ>J?aoLT3Lwhe^Z0(zfgUQh26GyGviw>rAPn~gtMkP}3GwPkeTn(nEeK`V- zQ|_^=uS_Z{Ry|3ng+XYR>KeP2&sWOdDm24rZ5NycjPDas{k66IU1@Y@nSZ&(7o!ao zzTv}-^u6mAr;IM)yFEDeMcCf}R0DA;l?KJ5#@+{Z8J;HS31OTM;2vJlcCMUA^3XvF zVc$J_Z?eiVrl4w*Xklw zyVINMdbxWs4wn(%Z;^%I>emSh$MZ+OLpi42U9%PeatlPI5bak-eSiE0@xW-cnp*6h z;yjy;hbpo#_!A>SaOwu{s4|wC!CbjtM@IY%8xn)@tVk|m@7k6_T>Xxl7Dh|E$-=9D z!q5OW2yNcQ+3U(mW*ZZgKv1VCIPdac@D^g*x^ePP^8X|}aG_3JS7_Ef2L~tW!unU} zo35a<2|!H0ityEbEPo1@xzNU-`|grxh+-i}RrO+*zSJee5e)0gq?lWvN9xX(2F;5* zl7&r^2Q5)~^5<`f@PI>WJkm~+ zJOYo(QJW$>1b>gp`Fw4$Q$QMz0X#~MEYRWLp=%B{R*bF9mh^5VtPoQW^2*MUwPWFz zLY9AiWXoNUS{Gt$*xCfF`2yALXA+cjDR1{^?HhJ0NHBaJ!T}RBN!}I zT{!vcHeT}2{6;NIC6g>ye^Dbwc$foNB)~{6FJXrzp+zLoJ6Dt~2PV-c5`;CjhV`>y zB}yws1g79BqggKhp-ODXykRWKh==0zO4s`D41dX%Ss$}5QEgTWVWlwg+%-R$}35a`2Wz4*LWfF9?DgkF(<2Yn6)pm}5`P}rnKiw^u zc$V5=`MUED+W{bST?#t+bHD(sw5EQF3V)vv)5K;#(N)hktil^MH{W!b-ekvxXw{ny zx9YU6+fDb|c^It`;v!WxZE$0{J&01ehfgsdJI*$atrVSDRG0t^5Fi2SJE*(|(&eFvK^jU-1emA-GusjdsnP9B7V2rLO}7NS%}Ekw;a)Lr(%s`n|bYk%c; zoX4>4q+N+x!CJiFyt!b}dQ{WL1kPVb&Rt0c*MrmQVsKhr2~NMxGH|+h4LH5)1z^qa zn9$3HaN+)uIxj2ZPe4KIWjr2d;w{{2Z#}X{ZPRgd1&=%mxOAh_C&k%|41)*^GH{Oh z(#qpu>l)5-XL8Y)&`XD{Hy`29I)83;MeEl%%g>SsU|`(gK{mo{uRUAeX?XQ0)U3mX);bq zzVR9!>@~+}Us(re%d}PlbQPiU?+0aY8)e|Fh93@44nvAS?QhpAf`+5sjf(ayM!jo2 z8+TId7>xNQ`-8$44e>pTz$wzLj&8oP9?>-WdPE&+!MT;WzS*^u(|?Z##d2qgB;JO2_2V96i2aK}uM>^)hcuW#f3JgZ*gfye2dS62^D*xyl zwA$%-7XQ;JzS&p`>s8SI!*?szd?DXQSR$HruVEP*<-5PY+x8d<3j9WUr>d$R-NsyT zyWiBRe6i=$4E=D!s(+~q>+AliUJC{d4hDA%=bu5&{3&+3M##M5NZZ+gF0O+O9XRsK ztj;ElN!jxJzZc8J{c6m)Yd?Eb@SPobh_;SQ*>Tp9mD7*=QeuoX-`b43nYX|V?tFhA zTSArdE8m{0+`jHw9_YK%b=L-V^+v$M_R<|0enyEcP%;Mx-+$>b%Y0RHpJ#Q|n(t4M zefvGAZ>`3@lg%#oH1>XV+r!4$U9WF_3;sJ&V^wXk?8$LJ6E;0Wt`=Q-bLvV<}{oz3s zcw7e}TMwx5AAjSkf-;Ep@GZzy84@wBKfCS?*F_QL-DCLsNAxHDC{*PNzw9)u(dY}@ z*#L!`NtT~p!9bUPPotvHdxoU;;p`s?h@?X38hn{Pgj8FUS?<$rYNQ%yc@lr!eyeO zEq0>(Ec=zh?;J$<3Nq%vm7=w^GKcq-M$V1somnm?D!h%hzbn*R4K%VXGS5*7Gu|jY zWTBiZ*MH;{Y#{e{yY|BhEJww!I$KbXIr9ZI93-Q--GNYL&wA`ps};W?j8jN}!y-tj za!5HVyO@~s@u{5nK0XS$06PKwG^6vjSY7Sne_uSL*Mfzocd{I(zEHP2jp^r6T0o%s zaD!}@BOzfdtD>Wa2z9SP3faeTL2p9PBOU<=a(`H^&9*Y72H{A~w`)?SicD%x6EPuy z;ah;pE@o3GtL_WrLIMobqtgYMfO6UcJJfB(-X?I0q^pWAUj<0WZB81rZ`D8 z`=S`gz~eXUt*@dQTD4LGqkw_IIAEW!2g^o-hfh1u`}_=FCH2u-fp*I?fe!TJ7h^p* znSVWPOMI&2I1gonvXpmWD2u!diAvFKw=3O&UW-1NCT3j)`f~`{hOzt8RyCIz=0s;% z36B7$8#O4?2}UVYw1alU-*@a3?*hs^!WMP{0P2R+CBF>PXO+PNCb%G#l+6m@=<9P>d!O+ALm}eVLJ<7yvHu;c2dE5C%8>Tm& zgP3U?nun};{9WicOU_qQb$sXqRt=5jB3?kvNH)Q&DZCH6)?f>%n@v&QT@QW_y?<9b zL4}rjp&{bTQ&i~oQA>yHHTU<&No$h6>8U-_4Sz`HE-ZCWx|9Z@Sj` zPWtFO>!CS|oyB`kp~BamehsScxqph5OnJRJVB2cP`tVDu5SbKM8aUR!juA}mWRU(1 zR3zKoB*Akw9(_}splxF%e5K{RDK$n(lSYjqWPy$FnEcOfz9THhj%@H5)&yFPRFc{K zR-KFhb60-Orn1wwYFGJgI#;KdnlT|NW30ukan*iEX{M5$Zy_U|h%DFur+=lF-2fjp z+yJ*TwaHp2jFJy%kyYc31$*?lgBqX5z?aj#RD4z4N&6gx{H#?;(-E;WxdscSJ2Z!~ zknn28=lU|A?H;&R{2nvv$17heG##_930@hu-ZD;^+Ve+qXguptMMuYNS%OAJ*Zcyz zi4CgC00wT5-KR?^n~%y-w){XJP_Yb8kbXtm%A(UNd*viR6g08kkCI zxkXeo<`&g(_uOj0FEy1c%dQnqj$uKn&9GXokosTDlnBvXMB`cfdw;bt>v3eRA;%c9 zvZVA>&Fy6v;+W~*jwxSx6^b5UjTW9hPa1Ot7e~k%A187LA4Y(Y6hjC(&7CTLoOM}n zIo6~tMW7+KX-6@)5tTM9UdY@+{`aINiYa_!y-on2d5V;ovsOju256HHkbt!Z|GKX+ zU=lO)JWXQ?@Ojg(jDKwCg(d>1e79(=j>zALrF#)sBxs;Bf4W~OkJG3 zrc*d@ii-x|Lj>!LILZg-;5VfRL4?tGoLxF8`1_S2DoLj^7JsGW41l(TZOJ3=(F9C% zUrx|ZAe9+SwGN;j#R~C<-R=JNFWV=3y?#8Ij=`g@hfFEn*;4O&>bD+?E02Dso>qxI zq&Q6A*U*t{u;tZ#!Jf<=qp8o{8)@sp_U0qQXfGvp?8CIWlFAb@QgvwUtYLZ-XXi@4 zBf%bNFgbvLG=C*F1`Vn6E z2idd)Tg=B#*7kWat;vG;9C1zFMSPwN^rX0gp+U#Uq#~x*lf-#+p?s7JqEFL_y@v0{ zw4L_x?x5asvejEB_}XB#aF0Fx!BMmyhmibPtaq#%DS!593%V3@fA0{B-Gb>KP=(V^ zw?BfE3^R@e8qJED@yd$8K-!{_s-=x?swQ;fnn=Ht!#j`B^A%huN9Y9_t_7ZqEMvbe zOr#CT0`nf%W$MtcyaE%73?WoxTl>fP0L~#GagJ{K7^c_)M7MWM&!nNxCcsPJQS1c zBGx{|8U+TNO(DoD1$=gB(C$E03e?*_L_lOh?1n(YPfG_ub?h`mN|EAf!1M#x2KIw` zemYzr$%lD1iT5oXHmR-<=(K4xWMxcBU6Igx*neSy^yA9)41{@8S^@J#3?WQ~@?${< zlJLJX!$m)s8LM}l>Wexb%Dy3NJjW}gUs~e%D5&$a6e|Bv8Yo>%gRhpw3P{)1?nHqS zs_$v$Fti!czQODpMvCV{t6V^BPu$$XusCjL;uuEV#JF+_H?a4bn0sW0>PF2mLTe1r zIDhc|TsrJcqcYFNxONC#oudEi8$Xk&24wG0<4bFmRP#bAUhgqazTM^HswXXSHBdyq+$Y2hzYU^y4WF83@M>Oi(|_#y(>}-abMU%{4QnBa*s%mU3BFR_8p>7Z zY+SYs{IpN=D8kW)#Wfni>wquF{y+$x6vUUMl_F_fi52Q{uWd>k$dI+Y%T3p1`$hj} zc>CCNdE;lnSY+@gs{6D(nMM=nJa+*Dj1|L~-NL~lCynmvBDUS0nj;A}>^s23ir`=pVSRU(=U9r&>YtM{f zvV5yGCTukOFnX1zS-t8x|9eW@t{tibnM{1TAQ>Wdk zE#~!emc|G2^CZp_X-<8P+lHh$HFqp}&`o$H6P`|r$~L9iTj?OXeOiCvHCx;(ZoSRn z?(T3K`=Ql^iE9NO8J*Dc8rZ+42fvVHQOT1*o=nSDm(pw*Wm^xj$t1!zSBMZoZB}O2 zRF3|^zv)GA$PNjLS~==QJb&Vk=Vrud{hl!&Cy(l%OLzK;TcqY)WEi;mU1THf#^uHA z^VArd%B04Xp(jaI12iCOM#KZQrT?_Ches!C!vz1;iLOP$Uqkj^JAUN7Q0z&zvfQgI zuAUtHN`5*oORubR7M1oI@YxrY!iCS#tQG{U1}5oO0l$h zkS)L*fmmWkR}^4jSF9q7O?fvBfAqA)+Nfv=}o zln)P!vtyJgoh=gt`hTi0i0v`zXi+AUnCG8Nqs#P!B5CT;26Z0B=}crU}zyy|!?6Aoekm?x5%s9?fDT4t@ z?wH)RN%tzVWCW^QeRBdbF%}Bq@%s8Rq}HvrSH$Jfln!IvoPVy^-tSRXZ#&6*$*^~P zwCAT@L}N(q9lhRr_2I?-@t(MC9edk5{r#g?ALRf0FXdN1SY-vOxA)uj?w%zN04I!Gpo4(E7%ZS}n!Q#~3m?~F{nR}RRB6fdKn$&uCeVtTZG zD4vT}*Gf355^5A2j0{M9aFLPuUGZ$aD_RmCRgId)k!4@A+d=X+F3RAD!n=s8F5ovE zMs_aOw`sR~6FT}BDMq@nMVK~T|rhJS)v+*sQC(Z~2`G+He03h+VVZ!Ph^ z{MYO4lamkIuXaD|o$PGC-fJR2f4q?ZL8q~O$`@bv}4+*r|pe28}QA>_hV9iYYHIIrk8%Ft!TeB;dYk77RHxPLP+N5Rw z=YK{mGgV-FHkWJ<4!rGga^a7;N^>lvKZg4;KBqf>47)}4;G#_-*wqwc)FL)>-s1q9 z{O3u5iT2!wZR$JMHaG(3S`Nzy_ws(R8%M)-^_ET08oY?}izL1zwzuoV!3AS{oTy!V ztLrG_ra3KGH#q^;8P`asvh2 zM#0cR5R#`ybmmWR<}4o^@!XbfiD%4nf%pP{Loj4#G_1mCSncv5SShi(U?X?+k@mg_ z5wdYFgsA)eHJd>5DcZajismkl<`eYO9TK#R89SeW$`m-i>Ob6J)xkMyet-4< z=MJl96U+Qc|9FR$T2oZj=>;hLCXFV*`l;V{>CrP1JJId&(_C3uC@R96Dco)RMHQ;d zJS*Xe#xog$bxJ$uXV)$Wm;#5hA{iXV(uQq|(fF)#zjQ@k&n5R3Fm~S*asFZ)owfh% z=dLUgK>8Zo&%s&dBGOkNfoU(WOMkk83c1xVGeONbUa>&eKK@~SbGX{A+#ogtLPZ^A zBsi_eW+g<;x1@EStp^$#sV3n3*7i*uD-1OzBOJHa9QuV^A50N%t_6Fq)1oPN*+mqY zSo2L#n0)ajm=FsgHyT53HirDEG33wOOPl*RcyP{Daqu|=d9?lz{-t;?TYo5z{T=en zD&Wb5li4W%NKxF;Zv5>>+J#Fc^onE{%eC9Ca`swTJ$bVx`zT7wWDRCnDfr+YQmkqK z3d<+|IO=4jwq?svR!i9G3#5ZwUF;ADFawj69k&vwT>W0Eaxy_erkUnTP5W7{?|GuK z4D3D9T`}L5r5esJzZJb`-hVAiFmC>T4T{0)0$+RDQZ)vlV+A%R9(QlQ2HD3khVmkf zwFG_6q^=1I1jwjU2S$PU?Z{)e6S`l<6Q>=47S!S9gg9^Ku8E`5A{)nLY&=2f6{e5z z6mI*AJjTbJrM!)Di3vV>&cwKLo@GV6pN=BDqtzDuc#I5uoyVi(Q-7ZVVCcld=#v+@ z8{OSjJC)hf#rs^ewA)_*{|;Oblj`(wATL~EKOM&4CMoTX^Ik5woK4zr1EUss(6`Ye zaZWvG0@UWCWUvD}hYsyEi)H1$ejGO$aadAj_u0To|G}-JZIpRFDt= zP}D*KF3*#3>{dap`+t=Jfhyi%9q;ux;*OHP3MSziafv$7~5x*L&4<)_e|`yYtI6YaPqf(aGLIa3E}mQCGTbSRS@G zBq{q-y~x`x(E>^TYBpAxd2(w=zk1+`sna|&I*If?KR!D z@GvwD#)j68re%lI665JE2h`UXQT0QLhi|AKR5t#w-9%_Mu5L82=4b$WN3LdU&5?FP z`~2ZWS*(M?<156uN}Yb-<_2SI<4(qyw}InMNX{mBt7atP)588h} zC)Sc{4@%g6e}A1NQrYpZW^{bhtAdQqT3Q``>!pgw7?s$hcxWs_bv?ltjBv3+-RBT( zeX|46IHB_tXDb^^t`sq3+C-cO!D|!l-4aY=mz5TwVx$UomBpi;TV3`rS=aAZ?Vf%= z;x}+?Rl)drm8v_T(kjk5XeT!nqu{V49obwCcy1wc2!9nU{fSt6=JcBmDqgMQDp<$o zTh;N1pWYK6nH!OE4uX=NZ;-lId)hi!S^R^b@1_snkJXv}41!MmciR-wId_aynOT}4E8d^jv1({zbDq6Z#ZWTSXRB%s z-9dAv*{y{R{@j7!!5jrBWd7X0~imw(9MRgAm9bq!Hd;I2wG67N`6lJiu9qcsHp`1p$-WN3Yy(RpQgR3mUs0Q}M&`YCJ5?RBiGX_^Qy41b>V^ z`NMbEW$nTcE4p|%q90pRiI!WlT%cv?MVx~{tdS@qRjgv$Oe&bCt3q0gnTUh|oDIrZ z4zbtKFg3sdM-`Lj?Q@%SuT#h*2QH|f^R#WM6MCiOl1x?naQx63t8*RRWkQUGW9GJPM#taktaOML z<04M+h}G$ZTGDXGbM4Ot8hFBv6l&!UkWri#T45|Je!Aqh?>$4w9re-KCQ8o z-iu@$7lHKuoW-*`_#M6NA9B?`lPg#-c~8>eaXjk6zfcB$;1n4U0M0ZA&2xoD^FnY#i&nHp$P4O3vY)+;tbD$>lKapmJ$8{)m?& z$s4|Ise%<}ucb-G<&eI~Xq0JiHkqWepg6jt*uhsLknTYaf$D8}yj{kUP?N!)yiMC5 ze(JJMdp(X7)1l`5Du2{DhfP40X&T$E81R)ARd8X;yj10iAiLh;hB@8?GZQ|g>&2Bz z9jzfd+WUipT33w*Bs+(6EXhBklYdlswR&}BLM>!HpQ_w7zAtWwpSl!(cn6!Mk<^r9?+Cd)r!+a0S5t+aE4)`-*pu{3)}5dB z*8&z1u}0|N(|>SeUQxqLOs4Ynt-&b_4JF_a$uSlYT(aP_z}8;9S%o4am*aN$xd#o4 z2+)}QEipTOTOiTUss`;*x8M+FP4jQjC^3r&Cho{eV;U^NU`Iv8=zGVIRj(_pxKn$m zgnh%x%Fp~VJ^g%vH{CZY%qOHJ+P(m*o?JA-W~KIbJ%1WNq?#2qeJ5q3SqU>qZ1E|h zSy>fSnl;UHZ>(OgaOW?h)h%nA%~iVK^OkEhVdl}y#NyIZ7Hi167B-;up1Y0I%~PT6 zM!Oc`buV36(CgY4L-zw(efopFcUoPB@wat#fnLZCb8WB{ zmuBlI?0=AJ5Mly1mx%75{-P2jNou#V_Ay;+<9YtQb34YNk#>n~ic;^35%Be#O=wcw zUwJ4bezMtQ(bf(T_#>1sV-xuJl?YK6f~j zjUu0KJp1Fm)>y7IgIirKV;gxZ zp7ow-^$)l9`tTO$Bm-*EuQ*CldMpIq-4%mzR1`gc6!_P(j`+)$$B=bRd6>H8|H0J0 zM1SG}>o-S>*)+~o67*#>Ml**};zA7LQIbkp;U#0)qlZUFCwq*D{ZgDu0h9XhxlI(} z3DzjvVD5yX7$)g?oG0ko0VmIc^JF~KHT9gLFhW4$GJJF|9)PFb49_>!JxUROiU%{q ztVjc@pFG*!Iq8kFvnNl)2<=KKu(ExWw|{yPUC5^VD!a4z9|`zB2iaM%3ZU6oLa}DO z%F6gT1eu+nd(Txi6PNgoC+zsl=spkY6~9svcO*_)R1D0CWM zx-F+Z?a5vxyqb4#?Ox`rh5lg9c6z0#kZnkyfulT|AeOF}%nD2JU%vbj6){Rd?|)T% z+2NINE^@ei>avcQ#N~N5>=B(OF|3YdJEO@I7RqG^|FtS3&a+GN&g~F9y?KK-RD=7V z6U}{9IMcbRZ@9yNzS|devvyRsX9|mw%R!3!;H+q8=>dFdUqB37o1E18GK-x-)gps&T6O zR}5q)=-$;sMzfGL8Mfd|<6Q28!1eu-a~ZFBp3^(Ur;${jI7&9vyU>z(nij*Dizpf6 zo{C~RQ159BrJs5)uAeJmfL5KxXGxkWRS+2xNu9`Mok_l=IRl2n}Au6@NfLq315}eYwaIIU;A{kB)rG97*+AoW^;ihU_>i3pVYr zwwPfGJb8f<*f$c6kD*6HiZrWP4lih%L5P%z4J@}Qqz0PC;QStsuW%q#$HB&}1_Dhp z4qL=VRi<8S-gzyXf$_9)*8{3y^ZJ`#qvB0R;y2Zdw$H2`6R7#aX$&IQSjj9NdoKU~i6cTZpGEg8M$|4l%jEqIe1#oX-vyd?r83$g>z`2Yy zRizU9b$ce!6^uPOWN3sU%PyrQFFA?^n|>%bjR^o>)mw!}66I{O%BH!>UDwkOL(vY#2Na>B^k_6P%TJzjfMS66w|O$X2BmgMc*YKL zkoE{G>4#)B>HA75AG2^{ZQZUHl;N{u%>TdOJLr%|pQ9v}Rx9S?t_T!C&#G+X_Z^3o z^#G*&NBQ#42M5&K=}?ub;1~3aU!0c933BSLquPveQ-Z>8(I*HkuEA}G{A;Xy2!Z-|E>yE zDX&->N-?*%d$itD>##DL;(x?2P`*-jXn`>F7hz^m(K8DGvz!1&K)Aoa;ZmrH%~=qj z1#TC5(hQzr@J6FORKI_ssuQRPL=lfil&bbQC>eWM)(A0w^kOcwPW{Ua&IZ(UPt6_1 zGCx<3VDj~cBQX8#lfQN~ZD^Wmleedh2ZRYMlS~6J-!#Bxyw<85n_(2YCg2rtlJ$}) ztvTT0HPZ(qlN+0@pu;A1A!r~&Nhv3204qJ)#>6hA0g4Wl#8Q9e2f*}xQ>xl3v6`nViXCA`)u3ew`IWQZ7Egqz7ne&-Hp@H%nWv=tuxMn5mL_3k5|_+k76LJ8CI)2lrVN?j5`7LJL`iJA~*p)uT$j=Ci+E18d~mu;>L; z27>ugW8@!mySfH;(-x7>5hMbjE6D1Ef^f_!V`~wjQi^|m(5@;W_k09g;j0q9f=NvH zRLj*S;o2JI^Lforfy3P%dA->jBaP4dxSyzZ8BiqX$OegEcsjz$o1&trz{yg15>q^A zr{f!l8|(0p&>_K>=gHu_Dph>)(j*K6;#4C@;2~`#!t2?yYR8e9wa##it!5tf`@!@O zw5^8kmhFF9oEYDKjn%+0@IM-J#+d}QBJ7z}L8wSlD7yq#?}gPxYO8L+e6DVd)M2k9 z$YsB5lB*(VE?}z8Q=tnOGKUQ}Y0mPEm_vU(>GS(Obx+j#Lwk4U1n*crMthsAZl`rN1O{Yjx5j_P19*El#1d^P*mcXBIsN$y1)zLC zu$5%{zkAF+eth=c8Vg~N_w+B^Af;9;f@J=iUgH*(+%tE+?U8<+8Nip@F%k$DYw+Rt zyn!5HeUJBk+k4gbSxo#zz8NX`fRMZUC$G2rJ1_T+oi~v+Nkl%QNDEFeM{?$^A1ah# z1;l@{Ht%ZAOV#60BPQ(cDj{J9jSjdvV#Lqh2^ply5LAg?=crRj?C2(ec?i+CsJ9;ay1 zhP@dqzLO1U8ISi{S5HV_Kb*Wg>Z>RPChdRaekG~D{nx#t7cczegY8$le%j9Q_Q^{> zaqs``;S)c8`tjb2H+u*BuYUD2cK5a`m|yQ79EEeB(?0BMzwW;|-m7FD?w_2%>p~~} z?c++rbmm^QA^oGHzkb*`deuKZI;f>vVm*3YA!q-%Utz(^H;3D=KD^l8KafOL`1612 z*Zo&}MB&v^rhHi~PAReCCQ+H?s|c73KgfR{&;IboKmPR7AJ@Cr5@MYtMe(`OES4;p?^SBo`-YNB9uJ0l^U{ywAF}{%lnux<>V(r@Sv} zw*aGl#OZ9JG#l!ruF5RQYY1=RX?WchnGUoVPz=A|C1SI@G|eWr+Fz2qJjZ`@4R?ue zdPpdG+yhh1HXiO7m}6QjOf74$I58FsIwfH#{Dn>j@I#telc~17;tEz-{s>Qo9@9T! z->?KwCrpI3M0zQ@Hd7hGuK>E+{vTjA4e2xg$0`t7M2F$aH9^#>Gvib-ms@c z|7iCJ!X|*fN*VhL853m3N^H4`vX?Qz)-a}BF^)CtM(eOEO}_gyj~lThz^Rn0;rbMuWujC5zA zU6U|)%Sp6U0|f2n^3ux4BoEY#)MwiV=x86kAX44n3L2d;zj&oBbIHNq2BBnyt$izi zin%dr_Iq$Ayh~i1W`KXdNxhdAyq5&tiwNebOus0LxmdX(V`^8^zpa`Q=GWUlD=YP? za`P%x(%f$>&AM2H;r7xc9U;V8Yq(W5zY&1r??v^DvXZU8=Zx~~;aQPjS%AIi> z<@dm^CAigCzOWUld29klC!Qi!dv2I^kex}Zi`=W)SvtNF#d&s_q8o{JeJn(lc9;op z2yP^$<7_Hs1!N7KqHH~xF zu#bmuzztrWSh-4tE#BWF=C^?F5Q26?p)q-k10wRa?22{-O^eYhuhTUiNfNlYOklqd zqI-?NrEM6GqS;s(k0+V+&IIS+)0n}h(!5b24dujsmCb*0;~XpdS-UqAyNEVRQO}Y+ z;ba5s@Jg;?l$&T9YzczUZp#<(IGX~0>e`W3nxQPB@B!3mmPvU}1@qcDL0pcbtm(;+ zvqAv=h?b!^o)qS`xfP&K;A@I1adFGi(-0khtXituyahPgTt_7PQQ6{WK8FoX?35qQ z0f7g|!JL0K0dPvRG}~TVtU4~A^op4&%}*i8pH*7N+A&N!a5W&?>1S}Z!rs_Y zjSnHMEPHg(wnbtlD(=Lkf9gEAbYrV^l$_K25D}6aSO;A?a*Cbsp}tq-UaH*)O!~3by z4T_oA52_M)eibk5%_(q;dGoLK+2L|Q4N0F`*-60$AaUUwSvS%Tmn>=Ny3rM@>3CJ!kX}u|0A7t{h*O76u2!%q zE3o)^E$qN_Rd>@W0Z2ak4WNL3c5DbrH|5D5>-yn?!n;Q*&Y^=y!c7s_+nt2HDH3+l65B%Vjy>JNVy zw&j1Fr$0O^p8v41Ui`5B^RV|r(f*<6tcosgX4lj%Md`)rd>^{55sR+x;U$e>Ky-f+ zOEZ3)e2$qakmIeRMO2aR&zv>N>rmOq%G=Gk9{~vl9IqAJgGzhhG$Wv?B zCi-E{koQI%nRtJ;Q4dK@aFSV|oISlbcGD zq31ULF?(+F>-XG!b-{=JZA`h92TOnM7M9$~iVfaUW5wa_|2!LRWo2ct0cRe&`PVkx zObA`iaC4dLm~AU7&5gDdR?+en+dONnztCE{g^gBu)jF(u)U@#oV#KC6You3~czuvv zm%4X#)&IwwFhXY9e8t;f!dPsm@s8X0#vS)hWTf4)=b8_;&2QXi|3v25UG{$&o`*T% z8St7725B(S8C1B2Z`*@=^E%MXaX0EOztrOHT4BX%H?0=gJ21I6*|Az-$F?gW<72Vi zP%#$Po{0*HuC=g)vB2rO`~980d*0tM)U%5Wb7N~A{Q^$j;pkf0y$(TC;H<8S?o{w_ zN90{QC$Ph!Kjw;8xKfIQaG8HcQyZV-7vRtG@P(VrXtBzRajrJa@gke21d1NcbHW$v0@AOJtKS9%t7Wx(6Apm zfCd3mQe6m*wLlM12@JVF$&{dnl^Il&Oko)Gu^iPI3}s;iOVt$$AVFE=@6S-l9Odw@ zY2LQpwTxUZjYvy|A9R1P41HryJzkB|pd2rCKWd}vgI>rkTxF9mIdk6ylk#{pRTIkPXKv30iWA z+dPMkkX6S4$hNCg!7V%;P)#a^vn;<-`Co8aeFs+(dOEAOy?^}rVEfhHd)l#)ShkaV zI*!tq>hZu|?j7v!9KG)E9luxLFXM4CfIwS8_+O8Y-n`nyyRGjD9%56=d6?55EP3*B z|Mh!e{>XolC+EpD4B9__vjbO*-y2XZPXvD*G)^6^TNAY^M#@li-~;BWI|8^m3Ccrd zf~%Ucff|kV#q-Flt<=)YxaF2{6@_Q;hU-9cFCdYAQk@CR4dBJvQu{hi`jpH_w8n$sfZ#InrGNsO^zuYC~K{1 z=az;Fgy2Nl;C)`5eBk5==8fO04ej6p&R<7Y zOs{{MzPy#JG_B;G1V-DPO@)T~;{L@((-qJzXFk=6ZaDJ_qNrCx8pQ02e|%BGDrapyZp53_@=v+s3!u+PYUS4M>)D?B}TRM*T87D@dC zVPL+tHR6igf-RIA37o?ESp5q@7y4|!rgCg>ZxV*}eQ)wbOsJ7AMscld5rTP=g%E#V zSFS{Lu5)-|x72!U>LMF;7*BEcDoexj;w?n6cITr9M9@}S4Vm{Un>0CnPlAd32uh`; zRg0vz-GW8y!Xu>h%{J#eD*pk=xrI0A`TunKC3_BxW|SJu(`)*KEfrA(RhDR?-J43Ri$F-V>Aav%`sYSPgal7g6O7L%ys*cb} z4yP)3l4IK`8|Y9JI>+GvbTm<^fS=o98W?*Hyl?FBOvA4&zZgDMuf8kmkRS@z@C$)> z#@~W9sV9<>c^lWNAHy;zWohH9N*j=ba7Qh!I(vi)5@fB@~Mg zZLr8J!TcV)_!1yPDtaqQ;%Y=O|E&&l#O&@T#uJXX#~hbyEST__z4g1*^G_p5HIFp{ir7 z=i8|WS1jzzrm=amxe0%CI?G4V08f=A@K~DNaGj2&wnb$!QhR*7-4H>RV^XMCTJQMH ztGC<#6`1&3MBa8E&s%&V8a@+s_;ns*^vWB{orMJO#_=r2rqe*^enzDlOUbJGmo#fw_ z!Gt6QMnYmqtud0QWW9le`HOm9G*C_uGk1`bSIXYKJ44z-e6M!UZ>p~EtM@fk^%jy# zca11GXzC?`gEfCq2@6h=)YDG~^(RR?Y^(Dz2M?Si)gSWQ;YrdWf|{KqaV(8alAHqd zCrJ+2+><09p>vW%Pp#<~>l{*lXkUbd$4ziG~27wyFkqV%IY|<){dKBx^XZ{JqJ)o!^aP9?K3J$-{q$W+F!dOaV46%>r zjGEr-S#jQ%Sg%0~dw?f#Nm=%-U)jUSS!!vKNxmW>!Gwau5;F|U3pSpgCokNUdWx0l zVxjH*2Oc)fyOe%Bxy9 zWUPE4`&VX3og>8_p3Ky^pFD{;@18ty51Z9#ZB^HR7;l$lH2BCz#`Sa2mQpDD3$s84 z`D%Z50k*?vN`{ArO7Dh(LS9eV^|Dy?d3i>?e@yvpwpx(xZ&j!3{~LGues%a z$tI_=UQ>8C1}hC!lX`Pc1>L00R9e!BGrX482s5p}=ipZ;`DRNU%Du^Hlz-&p9%dJT zaREw9;I;#9KuCFvl2QeU*M7{ySxy54Unze=#1I|7aUT;c{j8ryX#sWw&_wF0BPf&T zFaWr(0lQc*CF=3Hpps&sFk@@!Q&OCf)=%=&EKl9W_vQ=wi|w5cwZbmfy1E5@JrF_j z6crXf#is}(A<-cNvwR5e)&dwL(fkk4ObLi~oW_$YB|Hwg4rp`~{Dmxek>v3{U1{@#e*M1;7UJH)B>Dm#H zj;t!Vu8=&;!B&Fnuke(PfcJS8SFnFw{&$vIWeiEx@s9oemoEVM_`i={?R_}j-raw5 zvOskn<)=xxljH-Y>@n?jOe1QPb%Wv6658BvOwBfKnO14ySa}BrYXb#`y}&Y!&clTa z&yl|t4TgYv`I;1K2c)sIBqVdBdHzwZU&O1-eLZO&elQ@ais)Dy%!hwTQNUcG zOj25Q$aJ!Wb2LA+azDKy&EKTTe#W@XDn8UEm$NvV;DnQzdQs6dt!4B6Yhj~>GcnU< zVs)OR8a~T%i~1irqMt!LCMyE|~Qk zv}o-pflf1y5ffZYGC9v9++ph5-IjWc(kS)m9Oy)$-jURAr0E@4+DTZ5SpmBQ8x(H) z@eAaYej2(0o&A%v{Z6U>tcMiYTCR$WC(|)(cv%!X!F+u(Apd_=?_O)9Y(q^-;YlWC zC7H+qu&;R;!DGa*qMKeJbG)+3>)F-Gs4Z}oNJ=sXa9B0iia8{-b1Xq!G0Ll|-K43u z@~z=bZ);eIV8h+vDnFk*8MqjpJh3~!=h}Es3kC&Rs8=${gU)UB3EZ+nD7_84fK3W| zH#@;jldRg!1pR;3_0`L)Doig6zKyQ*Qu;N$I10-Gda&{`x}s&YgHrMICy%E`v>Dro zr6G>Gd7g~*ekF@c!$#6iu-IEBrK>&2iX&<%n2E}~&^P2SqFW67 z8dTp!yc>_?GNS?MeXn!p!u}@bba*<~m4gyi-HsUa?@J6AFPis`$CD)r)^uwl9t9*J zc%6zX6v}^Cbe*btDoW+>rV-DiWPO5Odwxz}bQ=ldBk;pKuI{`{<9*?taM^Qy?}`>L z8@!_B?f*IL3|-RV0CY*KQiZytC4`=BUYLVoaG&S*x176GPTlryRkgF!-6{t@aJQy`)t|J15?V!pHdJ#-v)79t9XmSAwtr`gn!=#8fNeSkcl73UZQ33#o}NB=&HXYn^< zyz(Gvqko|M(UrP9Dfw6eu$`fnh5aSH4_`u$JygiJ#yB%@8LU$`4IHAD@2P?q=XcD)?Gv~5E)3K>Ym@_n& z9$_@bZnlxy)LaMR9uqf`iEHVr#f)6D<}b$4nUkmQEa=SNqVX(P+7Mk^uRbq#N~>Eu zat&1K^$g}S2YT7m$M9F(P0|ZIP|p{wyxMuhw-OSAL**Yz2snYddua7+iR;%=4w}) zI$&8rKHNc6iE0YoA_7%nG%G<6Fq(dCw?_jzWOXxD*LUaky-Rse2E1l7S=b|QqJmCO zk#o_YVp!Z!zc01oPzZRpd;RTZd`DX>#T@FF-*H)V_}RRtw1Ef@oH~C7qL<&#+}z-> zg^XDdoyGb@l`di6Y0og8;2kSG*+=K8B5oHQy^-%8@ap?LDihAsU-M%Ec$fwro0&@f zW9D?v%$DcV(E((AB^f{tR5sGGs zEte1tc$OhW4xpuRf$j~H>?+?NOmJ+2)u#M}mmk!6RS9+;O8kG)bFC&+BWPP(bu(=R zpr%VTSfw|0Mtw(Ks0Eg-s#%wqD#N{Dxx_XMM1T9_uP5Tg(J|idv1n+gkWT{Y^k z`aL+pOyjffJCl$XF*&Kmo?WK&HaS6HtdchE21VnJ_$4VPxRW^2_nOc>RBA8uvIK8C za#EJct|#_K*3ExUUzIm*rQn`7k+KHKVw_CCJs5oU2`$bBJ1nEzYw`F`2=nM^)(e;qzFEd_gysVz_%rd|5<3dGU&;?w%eZRX&+9 zQ3JjS(6-A|43lCYMX0i-RXnFY`_J-I1pOyt=3`z%UJ2wNa~MAO~J z*cIrK`Ls$Lv;yy0;`P)>`{}~6N_Afhp7M$IJg<5p6CdQ1oLvFe)K!&WjYSDno<|U9 zXfnx=r#>4a z(1B5M6^R1uIp%&|Eh>gH5Kfr`1(3TYZpeCd`-)@)cs5qDw+zKmv7P z=w|G&#rH=}0C_!MoZlElje%lR zX{n#Xbi8-KdasB^tf|4d+GvdfPz|o?h{XuDA&0IOgm}`aOqohuq-q1DW0Z_(1Qt$I z44x8?J`6NQr$B848cypYMY~Z;utC0By@|PsYGc)2>s{5s1iYGYog1v$>jt+*bt_j@ zxHpVLkx5dmw<=(vA1vcBZ`PAEG^Jv$Zq`J1>x>nP4&G6~^{o2T}qkB)4 z8;cC=|7v$?Qw!G-WRz8b$T~w1*FdAyhchbnhn~YuZ-2MTU@xt8vZeM(c($5(x8zb~ zHW49%fkRut3gI$(Z_n(}sF4?hlG$qhaH@Y$jGc?asERG2wP}z{>XHD8YxV2e*}vS{)$Mk(V^d{ zH)}XYrr5~Q`9`QJa^wq<9b7s$AVfZ!tFRo%)>C1k$JPoY1F2H0Wyu}y?&_#pw_AT0 z-XQc&Pv_hRYqZ1x@W=30u&}cQs_0n-&%@H?Vd?U)ba`01G+Vkn7|?fNKzqF8G%B6X z_=!FdHgFXxQYLm2xF!wP((&>V-foAeb-Hhhp!2?X85JTPjUd1f1lzE~pCVq_8?Kq> zxYfn+jLC3mZET0%eJl>3liF+!yMcdo?#|I6UN5ysxHl>Ss|B339ebZ!bCAoH2jTSr zPFiTip#|YC2o|jf8Y~Go^!z2kB5S{asqPu4ig6)8ZPa^K{bCc@GBsox8)jPIZ(|XM zt=vZTX$=pn5_$Lb>{0>5#Bv@g_N5aWSbSr5ZIEU8FiBB!Dn&?@!2u$XV`+bRFpR%v z!&qBl+ytJ=i7GD01g?;Xe!_5ZCrLxwFEB|nJ*zB%2Mh78EW`(^rfStFn~=SJu)HmC za|`BfD^&&y%(ALkIGbw62%1$@POEFu?W}5&gwn}d7?`nZlSB3iE7fSna*lPvP=$;W zmOa<(FmU?D`?Y9nbr}AHO%8v}7u$1`UT0*eM=<8u7-0)T6$~2~DzmBGAnwF)ux7(o z4sv%>lY=H9ZCso~s6{e2ihx75p6K*;W1pYJH7ZaGMn z_6CHGsRSWx>jO;_e_>y@p#;Sh-3TW3tWelDmZ=3~c2y}beppsWNX3fY&i?Vv!JaYn z9qnN~)K#;Q-SalS#gB|;HKvW{kLHy+)Y$hL5b~ne%GCM88duixAXqZ==SHk*jGb3h zVeL(@RJ-CPSekU*@_2u*mne4Kh<5*K#23M?+w8LIHp>#*fYdsWaJu^%ZG)Mqyswb3 zOSu*QW6mb+n@%9LGsk^LXwdGlwU3}N5A(XYvx2W?9&Pe6**yh!UP|`#_(l1_eR(-w zoAI5b+PQn4INnH-c%bWL0(mf=hWe>3HrKo2**btSc2|#QZxnyB|NgeMTuS7kS9@fY z8Eumcwa?jUTwca;$_neFJ%#|+;jlJ_mqjoDPfmx28|&-qLdBvKN2<1=-g=qAHWKba zoW_F)Jjhh&KCvg&f0kps*tAvZ*f0*w>RI^#T<W9PXhpote$gN24 zA)0@-ElIC=fvtZ@58`2qa_+$>{T~=8=uce07pW0IXBEyI#Hgbzf@}ZR3cz^gW zWg&U&nr|PeF7^Dz{>7}Mn>`QKI2Q1&M!lhJx!pvN8QXuX>XsfbMA3$dIbv#9Z!l-0Y1cefgP54u(=Ht&|o!^bC$S$=+ zm~(1Atq6bNwncHtW_Yc^*iV6McBW_!xvz~X!=n`waQ1#Fq_9(>h6sJWV+N=b=62x` zS44Q%KQ%xDHrqNdAoVII1N&qr?8Cz0>Q% z%@9YOW9Pm~GC4~ghimuiv2?TW_8AeOvI;#9q@saCeK^g>jxR7pD^Fm?xhvm0n@Lxs0AUS_H&1~|qF%%GG$-(G1Dy}+6_1sOJ*ED_`G zPKl;kLcn)_i)e|L?!UiDXf8$4PRt-mJ-ky)du$GjS}KDV29jc(#@KVS zx15rQxlN{|7$F~~q<^$2$)&|Ud8qxI52H`wP@PT~Um+Ad-Q$55ok1qeEo%D2E!=-G zyrXx;_k{_G{s$Q*Yf;ZQs~uqGqBO|hsZq!C=vnV)@kF82giC_!u5OiOo}A7~oarcD zH9h2v**1c;14n}|F^{4ax=pbCeFl&lvpijF_oA1deSX?o) z8k7>RSPhi^y;=<{zaoF`MFI_0vgUtp*%<7Ov~?ehk*{lvgnKU_y&Bx@MJCdBXWgi$ zj42MPF?jU*#_+}^ZR-5Cx3i&kp6J9hnoM94z%7$r1-SFWey>`HqeGmLk&P?AWuOBE)W`4%a{mUl{01^J~UR)-e+H5-4zjpZ(i z-Bxp5NwY3=F)19ZZ0>mV=?M+mI^P{e3o$~=JBs^lF7|1`MyGY!01Ozrlk7qo(qHrN z2k2S;+y`4xJ@SF%`KPDLANvr_niHSfbPFv{cogPej*egLiEXKrlx~86Vkb{4v6;;| zk$sQ7ug~!(__mjC+CN3JH4=X>ws+{|tQ?j|2nI>`pgclzCxdpJ#*?d%uyn|iWTw0; z%tGs9g0BXE|IIkMit{yH2=Cd9Vdb>5eX?fUCbZS3{3@bBNf$*GT|K>xSm&isS;5%V zhIV6Y1oZrH!7oX zk~+>S+t8Lmhq4`N2z**L`8YMZP3UnD*h=Mdn14NsH%N!rRCS=*F7Gz|D1Z zUE3Sm%(scS>9*W$Y^8sxx{L2-UKe|>*5m}x-wVwnwbMq2EN^OJ7pYeu#_^fm&rr$%m0DyrBMcg*-X*WIJRaV1FG4$QHrQ-%)%)u_k?`de zs5}WsO~Jr6{UY@+Chph~ znV0Ay2vVbYGo`mS;9@CUKDlfY|cY zqLaNy8&0B6P%~c%u-ryl3;Y6urdF%VTUeo9GwKvuxB-jS)Yj|5Qfyd#Czftd`9!tq z2Ugw#ycN1uoJW6CnGEaMd%MYr$io`MUuhp#R@vW)>REfxJ(XRATPmT(`0BLLeu|zv zRa-3pwbX4WmJT9#T-m=^T5B~^Tes3$x}DAUM2uc?8marDfnK|R#THa+?h%q%n!^=r zdO8D_u(j7k)WQ~)u}}RBwL(g>%YO$m=x;N8`h%8Rb!C6lSx;ScQ6WuSI1H6)jShIt z3Y$9ayLjp8A5z^t+z@-XA@*=X?BRyk!(&wsk5&E4#M-|P8$Yx;t1W_W{Cd?rkl{pR zBnCL-FxQz=E`g zHQmFS?qPpT_pqk>7hTgmtSla0@w)d2DwS1J^)atoELL2btGv%c!~szHIKp z17G0>zUHoVZu0z>&+>=ozrKQ$n89MH@oxY0F~Y7Y9L5N!mU z=GjF;OUVg&YjP*P=oIV*<;+=hzEM;erU|h%?Ph_;R8tWKeeCb4g)n-)ejqjP(L%Md$q>sP1owL$M+rEetj6Go#Yux^J_R)YOW|X1VDPdk9ZR{x~{h zTc_+u=AX3|+JfR3{Oqrx3efqdO>BSpj(LSnwWW2O ziS;R$uUMj`dn9@sGS2h#TD5{bIGqSEB$YnnQm#xuk{F6(DiYRFpoI8nV_TM8i-XLd z->k_s@{p8skhu9@cX#D*D=a+zfNrtQLcuQ^+FJsO>lxLKqbq(t5XpebllXs@Tunhg zS>@Tv8A)gbO}|Xojp!Ta{4(!4ijJ$df9gO<~q%L0hxqJhZN6lE|7n7vO(mGV^1Vu2^=TkI9FG=`s~kZB@bhSO{Kl)=Bw@OF~!) zc&tNqpGFS}!-*?b$CUAHa(vTCAak-?ho1{}3O%VQapyndOa2KDqwP}iZQC9{KLzmv zn>TznUpgN=3kyqAx6&e5Y2j9yk;!3epwI+z2urryIdaI`O-to7! z6{dNnj&`#&5l4>KTi28Ldh3n)^02Kx6$etTfP#o$%qeY*~QEM`fP<2TAWWnPyT z2p?oFx(8WDY*+HL*s( z-_P=R(Qdy z56vbE%ZPFE2@BQWu*&6QKKhpJN}+=-NS>tQ^>7!Q0ZC;eHQO1r!>b1{Ke zJNx^qZ!dKX`e=VIrDfeszJA14Fj@Fg{Y;NMI>e)K0S)mM473WmI;W}Pb()>1wxIz+ z|5-{h6xLLnI#1xq;HM{NFS>)HlVf<7?aCUrEn2_|iJ4WGsxIfPXC0 z)y?}cMz&^D{YI61r7GOQ!8kV1qQq5OOj`%7ti0I5g(J=h_amLmDNaFFEmODUac;XOr^^Qz$fIn&cy|d_hC_?(stf=F$K9 zkH_l&yec2C%I^2yJ@`xK(O(}t{_eX6e|`MFyh@Y!ipg=94rhN)7H?loXK)|&_WQ>^ zfpC8n&~P6Awewf=j}KGLkdJy;Szn1dY^OAiCR9!dgp$rz?=nzRwgMy}t-S;;2-0>R zZcy3Cqc217Yx-QkBdcK)!bAYk5`}#0%uXc^fbUdW|Ly8uM)L|c`6*G~$Tvl|dJ%un zU%w=ct-hY#ZRT*I0JMe}$qewJm?yJfv_ri zAu3q1f*FTZjKho|xcUdKT!t9dJh)glZy7+Pqnar&);F|_Y|+=P8vk1CL4DE?+*p4> z&t@ij@~%Ve93972p@aI@|G^mPCdkzYoEfhzZ7*TSWW6{!JlRwI-()!@B)L*2`fQ}5 z;uVlQO|H>PRu8DtsXSr-NX8lM8{jH>;n*P8epqSfdVAO%bV0Z6=;0R*tm1VL{2Nmp zIx2etNQ{&5V{_If z$hW;ejc;IyNe&KQH{!C{*Y-knY#Uy-jNS%?t?hQS)!DhfMWa(1WU09|l>{LBpZ1FR zyOuh`MZ1q8?}7BtxSWwVyRm=pxv2`X)Dt$6Z@=hc@u+%u`CCL+el4j_3=j zGw_pBE|>BE|2Q z9a`Bs`XJhgb|1PcvI^=V0Clk->=(p{K%a`{<6=hHI-{Q)rdpc97WiC%klb35$uNf(EFEi$(-mjK9PRmlUOe9Tj?LZSzH8FvYZM z^Z_0w9;8?1_unVk4MmUJ-~O9Z(B?ENP!_D$wwP>N1*AssEUSgm zVp%0z=F2J}J1qnBYAG0GJYC0if%zqAx5R*Wf}5+cA0B_id<84Dk4t!gR((x#j#@AN zzg0{z=E=kGnxhe%o%G=KS$I)cO$L#&+Eclk-B(p1HajZ1sp4Lcd;FU+3^||rm+7>% z?Hm~NtuK2XI;SZv!;7jW_v3&Uu-7o|S5_Gr?6Rs2sq;%xrMdT8n2M4@w*Fp`%xIb| z$UH%Rc2s|hPCDwSnYX>K*YOxWcV6|nrzgj6pPf8E)axCNNVZeMDy#HMjRIYBLF3*7 zT)C|8;~1cqyQc4TJ(swrNLJrqZiv*Z}9T$`0dl9v)(TtWR~`RXF`7_)bpJP8J%ax+Li7^zMM>xuhJzz z8oU^U?-=&Urekl>HE%vO1a-V5h=nxolPMl0wjN0+=*DB#9>eKQ zxoUrQnJ00>)EaBACV}za+iL1{4Y8!fUqhPP_g7(NDd%hrOr0 z3SNycYlAvv?%_%!kVqH-cQ}b-d&!?5=njD;jSS{ z3UG84PqJiwo!`+W_Y?Q?J6>hl zy;t#qf_Jzd49}%_00aTunnBQOBIGfc4o%NRgI<3K_S*Z94Ck|C8y`BrN8d4ZD1H?_ zKS3;A?*}zf>*e@(f#|GaFE7zu6Uo%iI?1+e*l~#*4L7 zPcL*Y?89evLX797dXX0J08kWLCN(o7!f`@#qBtbuz_5VQ`pB-6BFZ4)5tQlStr3l( zo1!4`Weuo@f2!;0XfjGZP$UB`D-i!z^YJX53ci2wRv4u6 z&_!)z8y6Zr3&Mj;{yk41y*q$9ama zOAkY>vjp@cS^`fFj@qU9wjnsI6wuMQx!n?R$#+t9ZiGC;?t*!(|9aEG^tBYPhkqAd z7j`Jkn!k2hztKw*Q}wTdjW~b5a3TP`6Dz+AQu4;Hn7zS4X;fx1;m|dy$)l=ouzJ7t@f50Fo4>7f?Q+noPUa;TUNDNZN6}VPI6IBdIxwq~ zUK@C$6^m+GwzX*+S!8pJp1_?SB37-EV{|@95N}i}cWd)B9Ct+WsVfDabsSKYsFRX@ z7*c!m2K;apohP)H+MP^9HfDN%W0x}y2K>E>Q}pqqN7=8kxq{?92BC&|4i_LPYCkhC zTlg*Z5~jE-&UiRhse))8GfBH{&8Pk7p~L!cBL_r7V)&`eIi31Y?I7^F_>_8u8o-gP zdrdeeD!$-8PCz|k6hKAF;3N2jBhqwx3`%=w7e}-kJv6~*w5IX|c5;7z3p2^;%5i<3 zawwNsUnkNt3!URD{WfLfR%?*>n9fx;n%gAtv@T6LJ`t9S4DfJUojdx&%LLlw_f0*H z-)$>~oF%|iKYYZzZ8mGt{yP5{iBQ)m%s>g*Xa;ju=RZIL=vTlLL`D17b$Ab zr|`xRNE=-XH#(9%sdyfWWt-w&PxIr6J(3dx9H|rLESp+rOJ-O*Rf=2#cvE!)qW5Z!Xi}W%L4HQp>0U%!hbP z@qYnajPFLq{6Lp~n(-tZCy0$6(Q)p7Q#gSftj9j951J=v=V09e zhN0C9X@~$t!`)|jv>+XTWk`0=8$Gi!0gS~doYo+jCb1sa(L~Wiv7I--RDTxFVHxeu zim)Sb-Nt~S|W3|JRZ-+45cBa2=Po^+jNFJc1=-$ypY0W8{ z6x#F+M!j7+EdM&D@kuIx9bXjh`=cz^G(vE{Jlg8oR`3LxnL^Xvkp=tC)J+}2fXbke1?-O{P-Q=V)G#!TVB69tBm;Q8%c6Z*QNVD? zf~SCe+T1$oEDgU~&Zz=wwQ9}@m@3t%U`0@0sZl0YkRN6!e!Q#C`1Z(HL*M_|cdS1y z7wU^g&N@N(vf7zOn4YJ#$6?L4MqzBTB=PVYeG^z2-$b1U50^bL0yMo_9B0!NP#j#l z7W1xuLd%#YT+qqaL!79;U5kFa*sI19JOFwP2|zS_6G&QxrT{7|6>AX^G_2a~r3X1l zp24{iZ(GmJgp)kKDlTj;zGQOUftSTw(H6D=?Zb{zx7$MtqixHVw4>zR`~p}SbZ2=< zYoTJ5&Mc3I$-8*?Uhiolvx;-2N?kazhbE+dcy>0&J*$|HXOh}JkJxdzZ4??lOhIvK zS#)emN|uou=E8O~pG;vc%SodCFM<404mrG3OB)#FCdT91e2jy@5^X|^yzR;Nc8wU+ zWg$(Yw55C!l9jqdrL+~b49Q}3tV@xV2F#!8@{pQpnV4ym54 zbDC#EcpzP$H0kAfY@X24N|nTdSRqAGH`t%;V@Upb+n75x@w&6IjA4mm6~ix`9+_+D zKY#oK0SMW+u!OR-;&(*q18wi3mHieg9h@BY`X+y-*$9QFI)Wrc1wRfWCsLO<%{m|+o#>5 z=W388{2c#ybljsMzAVAhrO#e}4h~OVm5_M)y!(&dnW{BV|9*K~rXE*#-s}F^@1h}0KEUrsAN`z;247qh^a?bjw_ zR<)aqnX83IP#UxN?6-JT!aRKm*ON2!IHag%k&c#&<=X^9B5}IGHe}Mel?BW?&S3xc zd~=iK<54FbjpTQNR_*HI4G)_R)E?iW>C>huj#RoFQkPnR{+cVpQvi|Z%2fBRHmwgI zX%#-I@dCq`cAY~u?_%D6jff)OE13R$LIQ2GJSe9*GaVKk*b5?kOm_+EA?FC6zGSFv z0Yef96TpU0<23kWvez0_n>sbsefx-CtbKV{6{>;s+V<<@R9#xv>q4HtYMObZK7c5~ z1hk-&$zc+Yqza_i76=_j7j|jal9{h#n5{&z^wM2Z`JQQskDt7MT{7$knwMkaL9l&T zQ3G^8RDYxsO1@=0Opw6#2F?OctDF;0CZ6@T#F8am)J?Kn=x#<%lh zaKW8uHd7}XRtWxoTT^5*Ql}*KFYUS$BgrFVO4_|UP1y3T+0I-xZUJb@co2hU+N};Kx$KFJtFk#@mRhbvEV3doWhH)$Wf9 zoE<81?zX46ud%11wSn-}W?wTM0iy{Lz02}n?S{Gnfvfkwz){U7T7x}Q9AY{ydN)g_ zMx?0NwU8En=}4~~B(HO7WBQQ57*%M#ze@71u{Sl?lFFR0)*g5Z-jFi=Adic$GQAN` zAgaC$nXZSbW%}(T1)9)TkQBe#RgGx*C4@F%FtjkEJEp~N@vPBwp?+Dy+we$J(S2(x z+V4hk1E%gwa0gjpebLQh-Hhah%gNt@;0C1p5^@`V@mH%)-4P{zk78SJ{)VOYoyqLw z{Lzd%tSiA+9;xM#({!B8zCcD11pb^m{BPu*Y#CR;bKqab!Hh?`DO(#jJbjfIO?cx= z5*A3+uVP~3tT2e*Cnx9UUxuWxgWb$gfL$iPN{fap@+AojP1~X@!@(vSv1FQpK zA-`@r=AAM_|1z7cVE){Y@e`50QR1?uvNVw)+j{-{*IUU={Q~_c@M&Wy#*N=u zupmZ*>+2;%GJ&wvd1=}ijhKg8iufo6!FAG+j)HUYSs+m`;bme%%lzLKf}6X7KTkLw z7n^zC_AZjyK|D(?vV76nhCCUR!la`=b`W1Pk&A*L*sxsfH{TI~zvY_fMq{el)-V8n zENg97b-;o2p_Wh-Xjs#VHq}6VRTrj;xx1e%5O8=T!Eu^ETZs7I(lrbXBn~VU#MiyF z=zUPK#Cyx6x|1@55;{x*9rK474~1hpUHN5pnDk){PSK;cA;f0jIvzY!(Pb6eIKV39 z9vt+zZC&h$rZw#(yLc_C8O9q;#c0ESEF%aZv0;k#QAW&ns@B$IhmER@cA1&kR-@K}th@uGM9Qm58& zbLc<|nfSrhq-vP*0Y1{tKn7@kY!OO~0|k_g1Ufm5XP1<1$b8~l3R|*LuJB^3+Poz~ z0Ry;{)Kvp%`;Ae*x~B%*&GUG2fiF{WK4CSld;A>PWvWotBmsqLf|Wb&L?Y)q&qn|0 zwGs1jKd5@Fq+)f4(m)VM2-7`24AMoEx#WQ^?$c-4K13x^&Pj~uH4XrOVa_I&ZlY8t z+;T`|s3hR}#G=W=?{=uScCeErBsEkGv(Y^zBy6{C#=?8|N^NXaLvmG*Dbs*`ny_dU zV_oUTRS*XSBsJl`tD&uiNA5FB=)l)d3qkzA*JVuIfB7WH(EPoUnRUBhu6Zik@)?o8 zS2JNVY4Ka+tN#2QRHzq!q*aupH#%s{=7}$Ukp}D+!+3b9p9P%E3lkEnO6QXirh0?4 zaJ(PAz&fLB^5UI6b^+)9adwdoA%}hnc`=keuux-vN($5^2nO~9vnqh^ zXlk>Ybg0HQM-wj{lgB!rIzluL2o==Crn$=#n-OnD2!#>w3l*t-J*{JM$pI4_JU>!e zZlA;G-R=7=6$W>4E~{K%vVGN_&gEMosTg_L6l^rZ8K$6vRJhmp)|LY#(tYk1hC^Ry z1EfE*n~8Z#2i8x2$hvN}VQ4plKeUmo+=N_t#M*^6Q~W7wYvY$h3=QAWN4UtYO&WE3 zlL7}QT`O+_I#d&ZgC?lk$(ws*`T{L_>Ezwy@q*at(-`%PIZF}U?I-)MN0)4T>IJ~;O+CZCqXQ8+e3valpR{oRhzqaG=t^fb%K z%H%UxfSKCiZe+sbdxF`P?6a%)T)8I)hqWI$V_BKX?o6bWTC4-ucRi^h-vjWAUOPbb z7!CgJRb9b?LQTsApV5kjJh+kL2mqqp(0-eUe1T17m_Lhe) zktYnkL5>|nm}ej&gjuT){N`Sq_jP}@xM+X_EG%R0i;|8~#5fWvu(?PvJfgtqzUw{0ZQiW1SInrpzfTtQ5?Z1TDWfW|#stuvn5VqVuyseS8f^&Z zldf9o=qk-r>(60OTB?VyckbVW8vdoL)nC*O@fr2!71;W>s%Zncn&{g6_hxkM)x=2@ zoJ;gSu2D@P&fa$RtFT;p zv+`E9E)`0a9)6t(6W=-ys!#4Z^pq#xq)>W)KdhPlRC*$80~(YSWgi=%Az;ijbl-O& z{Njd5S6`_&)2(FGGE-~?&`@v4a>w-x7@(@1fLFD;=rt5FyaZ&*TFdiGv_^eCysU4T zTC$}sVengSqbqKtOUx&JwT2sO10#xGbrW`!`xT@39DDByd+wKPbE!vh#fl18UFvs# z!c`3~b*jUctUmmjbb)4@{yMgWmCoU7ss}5cz0I&zI8>KgEIU;bft%|XO%#l{T3!w< z!>l4RH?r~@@2S7w)*0A1ceQ5{JGiPt_bg8N1y9QRiW?^hN&MHt?dXS(A~EbIs?m=0 zuKB}9eo}G_GU`4*Ncg<_Fm?@QEO9!GE$Q?8Mot>i>rzdBBgYNNQ zFFHByMg3m48T`hSXASMmEq zP@k}*80S1uJT?U9u5`TJ+1WAuKI|xtpvtBe>`|B5i1e-9@IP3lcs@$v;bn;~iUdkM zMl7Ric0Qk=ZoLmOH9qfv2devgIn8a7<5Z&UiCMbI){zIp>VjAB} z)DT>LRzG#Tf$?+3hnHR2#YlNppIr%Ej&68!!k%uAmj+J zkmAZ{i>2d@O-o+njd6B=fzSPZ7$#HPR;3jE;;`_ zPlxXn3qsvI87J5AM5A7>6-NgC@R3An2Uz4&YkMz(Kg@bFA+h)h8ZIWilr(aPPvQ#V z`CU-7*oHcqIPCYZ^GJ)PSzNqtES37;7^?&`9>AQYxLV`uIK{nxjoA1y8Be1{HV3S$ z0|^{=uuaj497k3Hz>E+_Y|B*aUMLn4;syIt)E(yOl=giJHXgT$-q?SK#z9`aN;PLsr8kNyiGAZM*%ytOVXKeTZ|*r8Aw}>)z=;9ZcQCva#hYV z90?qvaCny}S*N&tj8d0i@9e}9X*)X_ZF{ycNu6qz2k!08X7TVn%8^fdQA;tOq85Gw znPil$6=1!8h^G`5?7=feme_14t#|WuJW>U1`?jr8sXMdIaC_BmA#%^30d)7$q&O?PK^fuRaQJqKube8#sRRbGflG;e0U~?X(ywVdp?^_ZsLWRNVzWtpJTn|;Col^ z;`}{N4MD%iuI2Iqc^CbZ3?D_OFb&1lajG*@jgs?!bV4cvtut8m2}0BsyH!Ur$Od^l zDd6A%BO+n99Z?|-##D&Lsy~S5fRr10t*_8wG2~uw-t<#VfwZ(Z&EeTKMnk9h%6Zy7 zcw1gQ(KnHv%Rn!05M+f#^|u&48%GKNA~MTI`V~0%1aUFcv5+ZIE14u$3+5_XbkvSHXg}2z;6ddB(txS;yAfj4eV)F;Ec_v5%!e7>J>kn=eRYP?<}3q)4Z7R zTe;_!^38_;>A5vWJ?lL`IygBU^wcQeJ7R8sCWQ>1D3wN*4znq~D40#gE64@_+MWGV zo&L;h;gb*!$QM6+gev#{sgBui&$@?4FZ(M9>683jIy*@7;n;S9-_}GW4T%*gkPToi zn$1VaT0`p2K=PFbCVP;y5B982RI<=WOthTH67|Ca!F^Ct&QiEJ@g_~GrI!Cd!PFIgVQ&(b@Nz`UqvlW{$b@Q`ounL<1jRqM6-&;-z zK%bz{RkiHFQS0mK_$W2pvbyf*zv^s%rw-ezD!>ad9Jc?!L+C{^DYCrSUZx?hpycvk zQBi!=J?L8tjEqvlS+Tv=5)>ouO)lb##MRF68_5|~S&X7#3^dNk74-*0`5ET}`_}S*0x8St zK=i-CLi8_)e~n>D7lFzNj;IV-;qE2@JSyVTo^FpP$P;VMoszi}<=G2X)3OGxxYy|C z)!FUN4FZ#4c)u0X-)343rAN1QY|7~tw%aq&A&uD<#;t~PC zn`b}(1Q)X-IUjFFr)Uc!VGx#op4QSbOmehcJ5~?0uHo{-)f%T`HYj1OcgbaZoo4e~ zST7rF3$O6LVALJ5N^7=qrvS}as-O2HUHG=H`R1bTWDu z`6&azD?hpg=C)&)sV|BP4H#h+RD9ac6gQ<;ssUJNZ(@3FS{)7+h#Idg4k6ZZ9Ayda z9_frU1zdeAnw4G<>>4Ff_l|7MLona;I}pOC{a72dnJt^xwY6!R(73ZRberz%Skv`o zVsAl!Ik{>P$;+u)>oJdiOB;|^Kp3|?%=$<}g|x#gqQCVxnlUf~>MONmc=;+`=tKT# zl7or@=MOAWEU};iz5|{y{hh}2$&@{z8z9=jv)fRid3cFVJanCs8V!5b z@hGwFXaj*QG#R1+oHoWuq^d^QRGVnfuFsOtTuk8lZbR;s+o9}~ZR_iz&a___g=+#Z zsC3&q9QH_a7zpV+iC0<0x}(8yc9z7n)2`O=6a?>ea+sW}W6+Az8+e@3xZO`m34!~1 zm%(OWMsWCRaHsr#C6Klrc|GK<38aEYRz_xk#U6IP*K!qX0EEN1xqx*g?ZBL#`DD!C z$Y)f0K7b=B@Al(G8+6wh_+ICDMl@a~WY_yd0{10r=JtZUVzly}V_Kp(Uv(c92d4j{ z3EMtsB`ZxgpC{m_34TX(!gdXOc~UV(uZvThRwejCDMPn^f`6RNDuGV`IS$wrdot7n zJC7!22Kk;Bx~g`0Npi*CBhr3A+YG^hdknd4XbtsUelR}WP?Pm}S;#5&o0wa^DT zuy}TK>Nn(niH;?Zr_l2}XUB7D$O@-UflFgx-$|+wa4%=qJEW;QLf03AnrRP93C=iF z;>W!+&Ue-l;ICU{Duutv>PBHCFILyeAkwcBD^$%a8{y( z&YSHZ=oXl*LyQ=%mXQTHzjmz0H4FIWtjaxlyy~;4H+4l?RZ5N$EwScB@^fmbm`|g~ zTe&uW^vyJynE(fGP);mEWh9ZFeCj&@f`_p^l)cg(pxQA<39$mM#q#-N7wisg3hrW0 zD(MOc`(~T$c{i!rs?Otav4s6JH@(ZUaS~6=)>}D357S3Q7YbUgPz>X;L<6kv)2bTl zf@ir~DMw7McB)Kq7mr(R{cVSSvS=9%fr5vBl>E};U$W{bDyU5qv=b2{bkN6os-Vk5kM=X$mO;wxGGmuL=E7seT!Sy+McZj9(9Nf#_Jk2FuMOEzkC| zkQPomN0U+Vp^d2X61&U20x=6&p+#DE?2Pmf%tI8#0M#50WqNc?DeL9 zgOQwbBqt=30MxLEUgW-m;%%gzc>#iA>-3MK!;svwPe^QxYz@|<8KJweyMyr;rD+sc zmAY&doI8%8QmtJL`Fbxta6s)x&x{L58*VqI<9NafgTJ5NRnNI77VqabO41|%L z7FwBye_p#>)#)Ccoj&g#_aLfgOV5mda*>CsTaOuRV9`?DgzVE;UEr&_e*f9gDb@yr z>S~`h&vg#pIrw_*)P1ws4nK24VAqrYCQ6G4?nm7YoKEmlpr-&Ynt-s+DFf}zG4M4j6Z3(84*PkP zriG+K_@A3_G^zd4Hr#r+O%xQPD$|cz2dRfetI`f%L2?hm=qNIoU%gXb@c9z_(+Ri1 zjOXJ8pjhi?Uc?Q>*#xv|HJDD+=nz*L0vTB7Pv*72@X39LdNYyd+&RFyk8K9Q#z8)z zSK!1j{MXT3mTAkXpEj$l17v-Fz%;Kpl{Gqdw2{wB21>_&^ogoG5>-4_Gv8O`Gs7ld z5_g&2>v)Ra=(&#-2clKgLHbw3PdpmUQuTb~ago#3?z59Z5dEfxrX4$`}?3R?99)@HH|9_XQ0kDhjaApWL;l><8p zd~ZO#@>=I7Bkq8V?d9Y+W zwOCHuX4IklaDx*3%DuYytmI%>R|Ldop$T9&Z=Jxbk(GuTNYe~{d5v35@y)|Gt`<;f zk8w8sBCw+us~^ZVM^$Nm;H%s(e|Yx)r<@WoyAAA$x@AKI&GPi( zLg`!NzkvUN)_gw^z?O4U5yYl5ksq}KE#9q$ZbO@!j0SaJ%BNx#?xbUVR34Mpia? zar>a5mC9B&p_qs=@N{fpZ0og}RF-d7pxDn~)701k3{~964i30e{J{ai>yr~5I04iO z^aSYGP7svo0F_K}0KOooDS`d4rin{N+p2UIYl>E&*W>l*6(G!GNtnl*Bh2F!2;-pP zahW<*a7);IT#em-$71WCLqS0fTsos!QNsMXURd?E0M|W<#$eo>X5?V#nI828uRk*D zB<%RJ$<#(Acc{QEu+s zscX4`Ii`jkZt3*+rSXRG|NJd8#;xQ;DhZz!iZJETI_J+P#jgWe&FNIkms4f2dXQdT<0v@g4iL#WqwAOlSD7l%@72Bg0F9$Wz)?O#fMrV3|06ok%b(9HbWHf3ECVnG_(>C zpy0Pe0`RF?kpMNPRwoY|?1+>_%xEHBQ>ANEv}JF9W`q7s>mqg>&WNjY5mowD=Z&=gvj-tXu7+6V$C7r8ElmFLYFK6JxkVs4nH!E+>}C*R?HP#UIkE z`BikCD72-sMZhqRsXOP|O(T__^O)6x)layH)k(KXP+R-#!~sw+t0%B)rlUE|;{uLF z+wj$YbEs%`P5Z*{@SKwumMveZ>Q7wj4%tuiqCh;jE!SzLA>abC;X>8KomRQ}Ae*UQ z`-(cV%TD}Gb*M`^A5=fzgbEf_1wUKoPQ--U$$vTsa94(l8mC>|+F*){)@$>8IzeW+ zOduw3LmcnI4DvgC8D}>TnT#2o6@XiCyxU=a4Zo+8XILk|?G1&)MiJ%0tVGnMD&7#L z+#YKs!*WbTnBe{B_(zL4%mdHX7=G74=eTaoZj$&tj9#Y%ak56xJn%|W7hgg4D)KAC zOyHCOUqgpR9M=n%o80J=k`wO3I1Wgoh=Im1yX4$2vbQt%n>(AbG#v0 zFv|X8_vciknS7ULH$|fFNo-{u7RV972ythJ2fedn0c2AS^};GJ@*;_I#bzeWHG9tz z*9y!y0nYz`!BZ83R*DJYgf`SgG9EF1Mj@NcyJaY4Qu(@>3`XC9>s#-3NvCmCletXd zkw`)=mZoayg}Lbnvv!nn$|z(`x|r9KQXA94fjrEzT>XJ=2(F6C3p!DYYy{bDNe5(# z=+V+gJ!bnL$AHuM<2ZCUm25~aNw^d0;>$5wf3?ewZMeul$Yu~HZKh;t>WB@0v6jk? zpzMjFK{(6FN&Dh0Q|ouYwLyB6f~IlgEeqb!JiNO#??O$tQ9JfNR_%OnJ}>m=pW*ZF zu2Y`_ti;!a{c1#BuNB=l73S89<(6h(#Mg3LupWY`4lp@-dE1zaZK;WlbhHewOU9`K z(?e{a)iYiKUPJzDo4Lq(O*ndg(}_{%cgE0JENSzh)Z)XE7K>7gpO>__EKiH4q#J4) zd^Ge9gR1(jFAqYdc!cf5J=&n?etBI~Xegd2HVI_q3o$MK<%#W8ywHNqL}F2g0`Bz^ z@EneMRWaUn=Bg2S_UInm76J=>?ad=H#K9{=b4XSIS=?mmv1R`5`Uo$7(!-G*rx4)V zbZ%uITJyQn2y1Ix+424O651kBN)yLqjQs&GV-g+36f z#L?jzxS;?a2QeD9ix>NS-_}_H9~{rM35+ZWpObwNesrMOS{O2qtVtZ%9(*j>l6_gP z4pY8YtE0C0`@c|4n)|hXa#}&#b3n-0?1POicDNJud6vR0g!<38=!}wNdXP;OM;Rg0 z(Y+P~gddzU0N-?K1+RmQ9P=mN1`{qMk!^dbvu%e_a|ZQ)Da3Sev>h5^HI@u^bW+N9 z3nvXDs6LRo`o7()#Cv_sVw9f1`(}tq>Ww_Ya3i$uxnRajRG0C8jWf!$3_UxIlwg0* z3H8yNj7mL(fG3c`A1Xov0~5_1aiRU;cJYI$K@CLtr8+m^(7dr2=LmJ+$gUtjLI34E znS*0&^MkW$4+~D{OsP3)qr`(z?m&S{{|QBslnTTdE=K@m<^+x+&LqOLVWMq2=C5^R%hq_R-^+| zZ9A(*OIYUby<+~Z6+LW6yX+%reYWaVA!DgCMsATc$e+BCMEiBiG_XRAW!6Bj^Fhy_ z8Lu39TA(jzrgf~3+@MD%T~ob>adEP;HSP|OY`EzV)NcTPSNFpLWEVj>w+g|EuQk*+ zo+*`hxrW+}6DXSi?k-!puk*-;0{ zS@}@E7-If_X679c{Te5Man(TX=l+Xczu*0_SCX<^-qID@whv#fmTRmSCA%aq6%SEA znC*4eHZX0}08n`=Y9Y0Csf_`_((SEg5gq*m6LuSaQc%t!L*~NTfOQqh5I>zJajuQ2 zx+u<*xKpl-@26VZ^N{BewgF;5PWio?BB95A$^`%A*)GglgRDCq|DybbmFpONkH)wr zqo5L_)CPN0`+f1sKQ_rLXJE?smGcUW@fN)DZahzZx6HCp!SY05@>kC-ILLMPAV;(K z$|TEwlpX?cfH=E<@cgKEJm6nsEu%lpo8H4Dy)I9uirWZKP&MH`epP&@hbzZc&4Ii6 z+LY5hn+tBh4JPmr<`n$b!|mvYkLIR{%`NRn=XS2ijZPWR_t*c&tcLOcD1@MtspwKM z_Sim$PCts$pjV+TN~Tzlat^{zvHX(Ja239V>}Fm@#n3)U2Fr!aeMOOy|sr4jAy znB+;?g&~gcG_!4oi-^LYKv4rP|G)!c{cVHiecF;#H@ZtiB9P44`*8JO{3 zU4C2@@P7e)z?0WxSX4O1xoC8ZGMveO7Efg>w01fk9`xYZn?N&Qpe2}ZG26fmJ1sy) zxg;6U^O!I=STg4I9Vb-C2j!-$0t^7KblkSG%Nv-Mee@JrhEGr>ABG7(W?>d@2giZki3W4upXO8$GE4&RR#d}IJOtO=uCuNGGt{qPZGTL;+VQ)_#Vl6c2|ZWDV| z>)*~ApDCYiA^4P0dLz9|4A;?2j$WLeoDI6igT3hFxEJ-GoxFU07#;V1>YYXX?s0c; z^v@oEE*P^XPyW_B7({2ir@gb@@jJFKeivM7c?=1@Eq5n)w*?0T)ybq2lz)b% zjTaIVQndm?T$E?{7LhASM! zC?m?JI8Td91*b?=pQ=CfzZquqz@&M6eh30_c9SF%O)BUMq#Qp!=8OTpx3Nd7(v6eZ z%qC&us5*3MDl*kzn$DEy|2Y}aI}&QeCLdx5m~6YtkQ*vVE;6)rI6?k@Cs1QluOQ8# zEj-Vpu*z#ppf4^AH~wgvIs|>Z9rdrW_p1A+;9I9N>QwG(yS2+z2-*Umg4{Sqxa6Nh z=ob=Bj}FHGO8qA=`8!{K%oR1@v-9;Nha6eu+Ugit_0ie0>9PsO2soRIEC()M4YP5E zFZ}A%-Oz}ZCN*-m)2i2hm5p{mb2lz;mf+cSLcD&XdQoyMR|_#N^kt9kl`qM(OJ6#f zCx0qo6G>_C=6?1OgdbmBrn98{`5y_sC$3P3T{r^&9G;@h&f)HmD9qS{U{re^sz;@1 z3hJdo;x51|F5z8O^q^A=qn71x#-XkXCkrT6nxsClIK2GbcJ!QoAFYq{v*K;Cc-L|C zYJ8p9rv=?S8j5n2L@!ZD=J#;$E*-uA@rdg{pF2Bao~qJs{EUyNBw==t)}zC1vZn9s z;4oEfUHUj`JyxZZ`2+nF;bljV$wo7fuNulh=$8$5b{-#^StID-cutO;)n7zM#OVVAjL!N_u^$oia z(gNR7&adF6N(Q36_LD_@N2%5e=e;KLmXg{z=QL3)*3Rh5o^C2nP$@Ka z%QJk$8oea6nIJ#DPPcEo^7N|I4a$>00f6XsIH8L>J5Paj{Vo(#qz_fkLP;kemoKOt z+M38)b$8`|$D!;FZ~!7ZvVWGV;RZ|9?4N)91C9q1&EGRG>+EmASIXfopqq5`xMN}X z8>M+WH+4E##L3^!(9bSVNfmGv+|R<5u!yVC{uZuBWmNAI))zCa9CBgm)C^fvsvfea zB!^6TPq-eHaYaz3!quR}&g-6ez00SvVWCc#{y0H@`Qa=X$)7lE`9Y(U4YPt<-0u96 zHM=8p$S*W={6a5+871N#jmdey3|SZ@3G3jlRThh@jI!EHP6>YLn$W5 zv=5gVh{C5AdT;!0nFS!8Co>=SO}VgS((IZ(PFCn6Q{Yf5PP3&Wb1g#U@yE38PV5fr z8!pU$>9qpGej-XY6FEXEWqGp+64AH*Lb?l;bDO)5XF-Wiy>dQs|4A`pCkWzkCYUM? z;9^}y#o3qN7h8@y{cx5$&5fgn5L7X*Kt^+asG;CkCuu4#gVI}Ia(wmz0b9&`j|(nX z?j2K+=0Kk+b#_xXh|s5nn0YD1!OIFrChkywJVBxBhF_qFA|I7nQx18!`q=VOTyZN? zfmj)vg9;S)EEZ(y48~y~Q@hDsp_30?SC~ z&OH5!l{N+o=EOVjr2 z(%&Bs0+N+6u+MSNbUmD~d zf_JCjQlXGk|*LbZ>MtC3`AbhujVu^PzY+fbJLQ zEt6=Y+(^%Fd|o-kPky-iniz*8gQ#Fl7GiqATaSEC2KF96nMqXBlpHe37w}Ea33s+b zAo$Nq7VVSay$!4>#3KqM_&1RQOP!666AHDDM-UgDC+>ye@G=>`hf(J7D9$N=k^%`v z`5gHCkj#di5Xqx%gGU2>k~aJKyO{Xg%*jz|>MKninD zF7hbITXJ##ts%gy6duzd#}5F8be}DVQQ7vc53PKop!6d7_Z-i2EDQh}b1Mw+!j8Lj zT?}wW@%fD9p&C$xQ;OEmhk_`7-Rz!-!~ssdw*hXySHbM}L|Sm-hEQmW>C;5ElpSM5k_IK7tJ_m_0>Ba@nkj)ExCTHJ zp~&gXY6R{_tzw(DB;!ZYPn75#X;_8ySkkeC(D2Wog(^V|>6+ngmGqAZcsY2z(!Q6u z2bozO5BWZO7UvhqY-MwQ10)Jtd!B;xIXIjCgG~PUX1k%~g)H-V7Z-MUGHHt+gf(Zi ziGew5t*Uk9;%isRygV7lXlaSBAle@=e?CvfQ47t%4>}KEoj&Y5*e;!*K>0zUPSl)c z@#KBcVYjp#9j{?^<4&cD5hT_@Ftj+}*!2#MPhh>rbNmE)TIVQ#)OZ$~Wt^v~kI&0D z(4)&Eb_}iwR()P?_fu>2GKt5t%T9Ed#5(a35S>0p|GB>|nO;ip#08rr$n*64GZ;`L zL7+#MAa)E6LE!V+YM*`?kO{Ls>Rmv0MS=&Pp9T-gM0ij^g$K*YV9usTHhEg*(=c+U zs(;cUc&D@B7ahERk`V|Mh7Fhm*gFOJ*2OO9-ST&R>OK0mR=!!yB?=S??k=e^A z9n%j(F|a;)CI?f1#5FDO9R`8ve?9aRqiIOfMh|mrgsd>Ol}UTI#H}PR zJ1$P5ogFmy?d(`dX9GKeenO89-IuX~7q=mK?3Z+J;uJG~*^$1Crr|)~hy#}s2MjKC znh?;zuE5K!u(l`ZONb*^!_GYckGSCYfl7y|neB!rTRHg+nx0GURxOJvnL6QKH5Z%u z;u|+C2b`_7^GJhHR#fLwZy((ml-)cKE}4hP1#jaKiuz+Y(wkdf+F@(^I%X z53r3+1bw1PS%TM?L6sw2-Fz10UANH*kqg-!&4}H90c)mof$n}Aoe{dV-O+@|JF#Xy zkYQn?voTTp8=nh!N|q;L0ytI}C^l+Ich2P_rY6C$x^OB7NB)be46!L^)QqjlEwz56 zXMW=H`f)a+`D&v)qcoe!_A}De z57p*>Vc6h6(REo46AsTNc&pZFZpnjqy4sz+hquI3-uyW{?PTY_h8J+GJj5jK(;51u zqY^937f|Ruar@D0)zKs3dymosTK;$Y)|q^LG4!BbtEww-`w4dzVQ|O_4aI1-y~KT` zhxN=UP&}(A7DHvO1~?qkEj&CVkdmu)b)1QRzGY|gb)uS0z*q)B$~PHA#W}7C;C4n4 zIq`6qss7c}r_~2WLyTYC-6g^H7COm0;2l2p}T;gxkwu%7NURhG>$+ zIkti8i~{1-6h55OZhd<=X4~jtw{E8+2!Jn|P_@G4&q&c1?m=;y6Fj!!a}qkA21+VA z?bC|`l45XEy2m}5j!O)_hxE6WDe_N$aiC#_R7~qPW^X8mB|1UiXWhf2mwgGIzQ_*9 z;nJO+jdr6TZIk`9+=l?JldA}@1`p)lV!IUV!#R(m-Y5mZ6r2c1Z#fMSwMP&OF^QO- zA&cF_D`<(SoyuEcThR@ot`}Z$B!q+vM>G=>dkl+DgN~PiWi)JQ?wGJ zZCv_vM?1~Niwh^p7x^BiV4aaiJ> z^BSJzxUwAXECcyC4ALYd4#LBK=`=m~FU%F>&8eI)=n3R+X1nh0>Is63w7>moFVEo7 zc4+yR=TI_GuQ8F}d~PpZ%9DD3>`bb5Hay`K=i^LagF>u4mG8F8Qf>3|si99vZjRQG zo8^gpza0>ypLJ%N5Y?1^jjt5c`C?=>2k}Z2XVIzBEXv6F%XU!q-|4dSuoK!`Mt8rt zIB3wZ*f2}_P#ufCyBide)C>b#O$mMD2x|6%g)ZDG_&0g2k|6V)EXz} zkW}hsvRw~iAwewG0`cJyg20FQ{9)wywBCHWY!nWNMHL8*R6%y7bjDB-N{ft6}J|8N_465W#Mao|>`L z;^wiBo5vNndF=AoZne8;jnDo|Lj zKJNQfa-SY#aluzk!ENeK;~~$3|Er`m{eI+4OxUN3kmZQ-7*S5ChD$?%^NoVeN`YbZSL zQX&{pxaA}vIj|cj^d;)G!9M61s|ac4XC3Y&Yw(!X-H2D%f0j003DM3Pbtd7mE)}_2 zK-&({aerB=7gTB$!g~h9aa~6&iLrLayt+bv=+72|R*FA=!dR<&RVu~0qM?fZrzc0p zgSS8R4jzY-8U&oC=m8ql@^p=ZsWW7`tM z!U17k=qb`k6A+ri9?@#zQMC>1?JDO4KlIgE47423pW<$oLogK>GB!Dn+{tqAL}mBq z^h%w-BmG|iQh!3w{I^cCKaPE`#ir{EXG-hKPFk;jueRyb_l1>pb)C?QX{)X}S{+~4 z-5ssFlHZ?4;o1f0$68cw;kE0|KRX!Zpi(Oc@~t;}H*_L&oZlN*_gCM+Rm`@dH|)@J zt?SKr1KQASvDG)&3cq|vx~zR_AD+DkF=JqC&1i&$QX85zqPQAntL11oyKZCkg@Y{|0{XR-A`+=;>R%B@UHJNph@JA{EXrYs zo3k%Bpz>$4Fqi22E4MLgoEsyvVdgdPUb#grhh42JN_(@h=!7=<^6BMXW3k9JV?JSj z$Y*UqZ#T!0|E;PnKQs^+(@+3fK&8I`@)wMSS9gL~4W7|?jL0o%I{38|t+ZLE4Og1# zN9I`d#h8xyEV}}qPV_t-Lbk%8@mhtt=3%E~29Am)LvxjZSKFU)F8=*98Fxz;&jG`3 z*rHor2g^;hsHJ)4+6pA6X(-r7TvIom?R$jrdPMM$P-_b%%cF`4l`QQ`(g%D zcTeoynQX@SM_ilObog}NVZ&%)WaVV}VTONeQ`?ug{;f@L|A}Vmvp(dZ(@DlHH2oe_ zf7KlaPa4A)mfUXCW_xaSw^7Cm5`}uN_a@rh1xG0E#1#09tHs+$o)xVD1Y{v^CieHN&@_oLIPtM0({ggR3f3Q(u z!Djb9>TA8tueNP@_tU&4ICL}nA5pFW%iL=7WB#bz`9j#Z{ni(T`q}rsO(NUxY7;oW z%Z;*{1YdVbj@v#Z7yF{Ld9s6lDWHh=(23eV^LRl%{;p4Er3b&*2qkpK-@a7Zd9LI% z8>tZ%8!zeahC^!N2D8{C=NnDn}>-a!z`a9IfuT`gS*=BHHO5mq)CO0Uy}(MzXAfvndt5G zhp<5cCG*!K|P!R5=2MbphFl=K_<0mx*`fe@PV9f>-;b zK+T8k=)MG|T~TDi*XbM6wp3!}D?z|d;hKwb%|#;zkf-B$aVZ$pxO#)?2+NINW^slzh+unzNy|L*L zrEAw=GM>f%?U7v7#%s;e!YZ}=N1){*&~hPrhLz4(A^$UjqEQwp3ci9T+A)y@z63vp zeL=C&_X;Z4!yE@lczw0W+9K5LP%n-;SDGP;3Am!w1KH82_|^_*e>(uFG-DJa0Z9J{ zLJE4P{dZf#uJj2NZz2K9r1U4SQK~wBxKwDZ>j2Qt=D9l9j*~bCq z-%ckWKRcJRtMQ7Gf8iJOIB>+pZQ{a+rH+*zDP2zT;2;U(WGlJNln}zb1kU)Z7M^(~C#_<9c5F zXBbRLcF{OK;4#Se$_Ng4TP@y-5mvVNrm9afeCg2db@L zee^1aq3QQhf6XelMfTT|zHqq+#obw|DrQl&w_Q0PI^v#;5MXl$-3d!WfdbR{pj2}B zkCI(|s03N9=VKo4c2*83yun3J{Q2}5902Vxg1&v@4 z8bLjPM^-oXRXC2ICA6tO2zT)15eLx%7Cj{|Y<>HT={3r>sw$hAYrAuXTW>b=EM`q? zTTRSbe>2au$U{oQ+&Z7#&IQzzQ>_+ao4z{3%rh`-`evuu#HlTWi{dh#25-vT2?V8Q z@M;T3=*Um}WMZpKB@nxVxOjh-&1as(U1lk(Grq~*mR+UMy>D~lOKlp>M zX>Tx**ufYyk^597knG3$cwn1#()&;sfj3Z$XH@eM?USzkN$ng%c(L8H#Znp9}~dyItaVFsOWC%GHWWiXzTa zwZQ1X0kNh-cq7$OKfyqslnlC5OL$DfH*Xqn&dFQM&V7IGmFlzzcY)3W2w9!ouM^;5 zfArAim#7s`>Y$@x_2<*6I-8?cf`QgOJt|C%-sBQ5xe+uLn>3S9Pv*@80JQQ{33P3M zyn>v&`~>&EGT>Eur6Ku{4Cf%T0pCiNMhWLb3y^1;)lxLLS*b%;nC*WuS zBiMojr^#0M&5aU+zDqy`&I{|F`@_c?k; z5V*&ryrdP^QEQG@W1gHRIc~Wo#j&cfTlWvvc&Z47#xO$~NbCywq#&_RTkx^qe%%*B zqL$tZw<+f_yeN%(rn4sBs?%I|(4}01@@)~6Iq-5dI=`?&tuQgc9D$5-?R(q0f1xzX z!UK60=Qi`ISzc0LSw~p=5H4pdBE+@TxoigcniMLgl=ilW=%Ha<1!<t?)*MBj>`D2F2BkRc)EZ--s9v)JNkY=u^9r-TDN0ZvG* zc_z>n_!Tu4#4^8|k|ZPh7&)v!e_CDU`PZZKASl=Q7_b1q;2FSK<{?v`TQ_C?)}s|i~8N;?%?R3Jpf%8ET262Tkl{Ho%Npf&U(iOz5bt~)>X_o z;T_JkT!$>ME%;yO$|E5|pQ^Iu?FOhU&It6`JslX`B26#$^Ur)LRe^);q zE$VWMzQg>u0G5IIhHqPGYmNOp$m2_C+$mz~YZMmbajR z+Mh4*`7!8={S+h0)d#d`BoVg}zArSMa!KQr?e`y_QH$*ij;e-Xy)W2RtMLHvG2;N_~=EvccE|TePI?xLZ>dz77 zLez8FQv?4oi^r|#Fqw|CMZfzO8Z3OIx~2Mrnig~2o|SSi^_L1ayMKK#`03Hkvy;It zLDdL&sJh=X)1~BtYXU#(zBu)uKi(Yl^3WgM>CnFmKsP5`e*v#$UKJB=9FCY0k3nG9 zrFz<+YGecgHeUox19Sz0O2UL%9?BqPl_b5Edh3e+O zSx5X4JlapKUf0E^{dAHUn>8OaXd`!KAei9k0(gB`Z2(H@jEn569BnE`@BP-q=)KjX z=)F4>qU*qJe=I{cGw`qo-O#|BN>B~YF2uIKZf+$qR}q*W>qcR&Mr0#}BVC~t9JW)v z!`fqCiIL%@xkQ6{_wGzI`$#`y14(&*SZZ3u*rafKC!`w4D(5%gOWe{#VORtg~ z0*ePJ?B8%}-;TZ)(+YQMgecjc34^sAZt+$~hZ&!uY9zW}=|PC2+^(`m^LfumVw;kl zjYQlfT1-u~j{UQU3UxqIn{0luY-9CzA)oPtFc6#~!%@nIHq8N5wsx`pAjwVPXa||F zw$WDVf0#LAz0t0rFqlqL+QLy2ao*(6o2nj8aI5z3P8d^5rHZ@C%4Hp|VBf1*QO`LG z>$O#x{}cGaS6?*3S7Mb4EIDAMdW{yBf9~_an{Qq}c>@dJI!$g^<)SycjB;uC za!WV~umElu=UbA#4_$GOo?j=ih$cmS ze^e=JB5DG@s&LQl3zV8z*yFr6DfK>X;+t?wHIGtiyDm!l`FNHpB>^u~%8%7n3Mk(> zRl*6(=%{!B75Z2n2ze{3rc$jHZPCMyZH&N6uN9|&uD$gp0#U<1+NSj7v)zZ!pb$#w zhb=ta{r=$-T}VG7cGfTk1@;0%)x*hie@&S;(wT+kdTu&zeHTt(d z!`Cj{H;$C_GHit$%_>uEF(=@gSbX8k7n#X5{;l+8aM=LfFhtBKFk+&##W}oz_%1He zqS>;tjG%x%iHGkEb5X*;Zu!bdLZePo2Vc?PgB;e)ay|4&p%y=m2L&p`BWvEVLu0WJQEg);^YiN)qIQ_+PgU# z%+Qwiu=9QAaU+qhhj1VNU1oPB-gFfy;2+aL#@;Rva%9f93oclVx= zlh_Pol>NDv7CpEGHo{reH+j%}aHtdR@iSy-CHT`8_u(2E05X0i1`y?#f7l8NECJ=j zaG&S5fa~XFlFuDvN&@44%~<(JCtb2{7Vzfyz9Ju20;pWl5?_mSlyuH|hv4`uTjQhE z4VyoC{<24Y(f443FylHJwe1faqvD=voB{}M@Z0EIs|kRwI&V2m_qKdkl%o!N1gt@4 z_{efaKTbDJKe`okVIVMce_$c=4H(E&_SwhE8#12k^;#bBgh(=siDcJOKy`Od@&qm2 zeNh!|J;YMEM+20#B`iD3Ef?UHcRI3r%Dpm3F;fQtb|@Y$A_K^Wq?#NZs#^T$wGT!Y zJ9Ch;IL`7bg&lO8+7bg6b(*f+$oogM!{Hnq8pJze_xhAg96Ow8e`NJGZsy1f7K*x% zg#-P~qMu68$=1lbwf8ENs6b z0UNcv$)G!-qEOBecHlQ*JF??Ivt(r_6e%+DSDvFKoruRW^1={QZ@ z5!6vpx9A{09F3}5e=;#w9g;S`uFRD{y?2Z?rYwe9A_o8Dps@V?Mu3-w)#U`1gSym|F9l&k39k>nenBhQwO}TQz1Q9 z6P=ZEa~+{sDKVuyTqeiXkYP34pa~}R#(UZZ;4cwWPD(|rf0Iz5O$Lj<6}-sgMH!qN zp6t;X(T1~;2st`*qmpP6s#BIXLwWDIT$S`e2ee6NZmyTROHh5}mg=Xy{Lps+9es`F}7lIeVmZEtVrXJ zSqHQ8<|a+8qq!bnuTbN1&-W+&sz9aP(u%R4T6|;OWo8Hh5ISf#XAVDLKx4@r#bGOXulFQ zOCCU6X5_82+LJ6feJFfU*jp%lvW4&L%m9DNb0!SGZw{Dj^?{QP)>I^T zp2eeNe{?hRc8--bi{?rA#C)QAXU{aHMl7fLaF{D4HJ zy@3ENB5FO{j*g;vexYzQUWmiab&57bHXuU^e=(w!AugDoZFCEqgkEL&coe~P2lEI( zD##fkJ3lvpHsux5A(sj5oZN~|^Q!@7JOYltX@Hs2X`8c^7L9Q z3VjHZ^3=7>DPD&KR7BTto`M-&#s@)D>(6$9o3C>VsQy$^_2ROG6o7%@HOp2{;IfdX zf8gHLqX(W|v(7U29?|3Ghx6RzB*Am3`3>SoiItIXtI%C4*)Uhbf0t;q_$kobAs#4s zdy(Y}-N#V>)}Db3wuSRZXX9kMZpcUAUUvBZeD{n7SG)%Nk)_A%2I;}gPF zoetNBX&zkFrgU%3Ikt2Zy*~B#@epGLZmB%l(o0>4Mgd99=6@s%KJ&@Z6t7L)H*SaK za2Kx1N#1Je=x;}0&^4bMHUcLrxS?>Jt{OHrYjocy8v_t1($p%?efh*p+vqP3e;$(EY#mm)0{R{w8|(z%{)#LRD14RTZjk%dBA=)Ge^HB6=D#;p#|i&TpGUqW()8 z;LKfP6m4|W+WKVAM73f4{Xutde{>KI>j(8Q9p0xZfw2D5tianIP{Hn>p7f6fM<>VK zC(nCph4}}={%HslRlT!AzoN!*|96jGo%nj<1PC{0F4;)9IS&H^e|{Oa48AU^ z{FjO%m+Rvfi6UootrRrQgI*dm?r>JeoAhv5*tpaBwt?d=u=>z(p5CTI$9dM93LWQB zR)&sKc|};a*SKL=HzV;Df!*A1ZD6;? zLY_qDBL0THhC`gF%x}rYV%gA|gT+^NzO!wOo18YQiprkzmcET;e1@Wr+(G%#M?8NU zJrtfjSs{bbN0Kc`(UTzRVqpA1&~1-4+ne;s2Yu$leTIBOQr$P!f9nh+j;Y?Zwz#+V z33>qw&pa_)eM7lK(d-_b*#{dEscULo&nlkkR0d8H_qokyS3P+^q~f`QXr|op1j5># zuej;T)tZ~GQLnmLFd{{g_%~{Dnha~Gay$b^nR6$~Udkq`X+9_Ai*+oJf4cuKA%l>^ zvPz^@s((t#)+m5Ge>_8TExWsgKB{}JRY+ZyuF*&zb{=ih z$hZZ_(Q3hG=2WOKD0Wut`eLeBMa)K?_2oHX9w@#A>@ zNT8^V{UTpu{?KtUo5?E=7#r?{N@Z0Irs+&c{-2YP(xb9AEcN6=3?X~%()#7LnAqEF z^Yq^iJ8*t#e^E9R5a|E}T=U4$rKCrIax1v^M*~0*{Y9pTWf!I1UgD9GJxez|tZ+yI z3e{#HuF|I!!Lun0tgV!tYWOTQo#PPCw%K`THzaw)afrV+J`ZU)<#f1QLYZ*2jgb#a zCXh>0N|$$3tHZOC7d?*8QspBh8WMsMYVfT0{OGiMe+c!V!LwwXPUBH^{rLrk z45zlsbgC=Irki+O;jsgdcN|Zf z6&gK%5$6gCylKwZ^3lS9B4ho<_kCHbI*v-=)l(EZ{$bg{YUs2a3tT&U&oY#kWrT#( zozU(Ne_aGr1hWm)Qp5LJ(IheXku+3?8ZIJjtx%#QE()KCxv)fdLk`*6eKN}5nkx+z znnB|*zHZ0;8a-AAT?5hjfLcProno;x6gpYcx!F5g>uH)*Q#w}%$4*CU-8gi%HoL*H z!?oNGDvsEO_IzBvg8a3b3rr+};skx}(N_v$f0r_cUwaxqwQ65xL^ZWF9_aD8p z{@+fHj(dmRN1?!;z;i&;Ha%Vd7m;A*Bh?@tU8NJV5k=E^KFx}xXzK~!_;n?iAUfY_ ze+NlUfZltd`W*E7E7)q%v=sDXH?-Dwxh@Z~Gk;kC8UMXK>=+S$1nXYb;%I<&Gt zwc#0}Go%30!ipX-)N?R>-emcEsVUPHo6=a3x~M~HLWU0&3=nl(=3R8`%oBC2%C%RL zHFB8t=?t=MWqGZ21IzxwqoEdwyJSpCe}MQpPRH~ZA43+qBCBeC3DM&w9=~_-T_liE znM1kl!5|@pS0WK|ZHq{6JjMg|_yB6VwujKtAmGHpuN^}sax)LnjS;D0G12MJ5dLYF z_tYSPUq9_(Ag~jIZYJ@=N6hvP=lpZj5(3?H>Uy9@dh5I3w-DCugIxJ)J0W`(f4kJ) zvZKFcu#RiH`xjQZb${d(umpQL>HIBw!7$baI9#Q}vQ=20o%B{ze|UmT(iLms#H0({ zBa_*`{`d#e(mx}?`9l}d8N`IC>ADg55a@)v@Bum5`9g>*o|w~BsQ|--_%r<*w>0~a zt^&jd+U4wT-m^*{XlJvZc|Wute^?h1UykEz^ST9o!V?#1Mn+Pb$lqum+AuO+KLnS% zt+T`)@E+k82zVB6uK2)=tDuCnrBFRdw%+I{1bGHkvpeqTF19Y!p>mi_l?V*fh6Cuq z$?2eXX6j!jm+5dE0u5+AK70$tr+LWDnGIh_kp_GCDOw#EW|Y{*gezhD`97K zo4`KSEa$xbI-w@m*Shi>F<(>Fi|Fc(md!c}Dial0D9=H4 zKvUq`bWixd#80F;BfzBA@f41}6@;d45h!bl@Rx24{G}Pv`cmqMcccdqjX;aM-M> zy>==}j;X7)U-mpHbr=eNv~=T1FQHt?g=t0F)nbF`S2@KJe+@k^tiVXu5OTJmBjy|j zULoq(JFiOERr@l9{Ggoqi^+@i=r}Kx`B|F~9b8D;>+Lz(7*VZNvWlnmA>p-KwZzqx z_4Wf-ALVZAIa|+u32O%o)T{CK61?c_&DB$_m4~=&X4tMTzY7Fs~$@RTy6_;1p z)ho^NE-EA*f0h~JUCeNRo`V=0WxgU_Y(obv^jU{rTBMlZ&@fJP#6^8JOa~!+$bKyn z*a&op24R(_9vQb^_|-FVvJRIg;V<`4mHp+J+e7(c!#E4_3OyC-V8^7pSdmjinhe1x z@|9A{CiuIOODGvfB+_=2o(y$ZgzPu3O?}BAwsx35f9eo$d+w;3iR6va=zY#8SJGp=dsW;?>`?E-Vv&@~2umjadV{lJYP#Y#iWe>cpt0{xsYF*>`~lIv+uHB((t zP8?sWX>+a|U)q?D#)rBf8XbJ&MbfYe6#$qYL>OL(nVJ3fv>>o2Hd^E-%gLN;_9T3_0LLK4lOD zQYhG!T0SG_=6q9}Os>K2?5B7ZTZL8U`OXdUc$iQ|B}#zef9vmI z0?N)y8hw){I@?O~CUyl$?aN$2ky5C)(201I51z?VNanZ_H7|}W!OOt-JwEh)1sAY9 zbr)yY+B#sl-#gUR%%TsMLPi}Urf533|W^Y?w0gBzM#XhY$$gbbl_wC=`kaGos+ges_ zbta_lYr8hn-CXw`2J5?Ll5MbehY6O<9m%xGnLBi^?HpIY7FE<%gSV6U71<5U>bD6K z151UoC;GRRjdmPa(QY^;hNs-!KGd3hp`wAk2;DD@aV0oHF3Q4{U@Vo=f2%>N6V^XMA_D7kAnJcs>)MYWVj`;UlWc-SSNd2XnQfV3gd+AOyPWF@cD@8$1{q$$J$YsMLfsO9Qg1 zFNz<tIPGQsTCKGAPkyGm`{HQaetOsgqq|Wp~=;Mut=CM<_0ye}8>1RFQVN{u5Oo z{nvPM%I-wVU!9`5jUS$h_#dk<3%yi7u>_y&8+*F)sl9%3tJ?zENZMyY7gX+eZhxmJ zpftGM)b+(vedf=~$MYOl)}~8~Z`U+cjJfa57g^Z}xOS~k^}s5lf~rMErJ?0j(Qfmr zOTQfg0L&YP^(#!Qe;eIm$x_kPnEy>HXSvu$f}4#WEj8F`yRaMv_U80ONdC zYF~)b+}Sx7ru^ni8E&YPxZIV%kTQNsoUqV-Q(ermSV-1ow>oT>RY_P^o0wUIycXso zb28}M9MrD7fBCHtJ?fH=KU+XIA$!!Mn(hf3;Vsdw0p;Tst&RsSNc*C;*cF6>XL-!NGY9S${Ag*7{E&dBgW-&c?c<^Z3!Q3b9ihpoDLtK&lx*rTzvf5f`FE^ZNap%YlHf4#tXj1*mg zJ?c1ly3PSZA{(i~O}NC$r(*2o5qYMmI`lh;!_t|rP4&Fz_uu%d%=e97y8Gjy=14rt zHp2n<6@4Q=!3D{xp2kWW(S*J6oM9L3;M_F^2ST{L*}YJ#_8qOX@L*iXdTV1t1HEs3|4MyL(8zS z-llpx8j!=Cs-Olc3gb-#abJ9Pz{lk1Mtf)6e_QR|^(i@BWb){Mslo@`D$Y$b@n+QDhYDbHZUjbqe*3v0o^Bi;mC44(gS0U{o)~$l|qabj^75 zoSx|q=-J?em@$EPDc75hnmeH!h+{7}%Ge2+(`_h?aZHhRVO$;X^T6Pe_DgSa-a)HD ze;3)*XFqC~O}dpGWwYsUZ16_2l4O&zX1OTZ2QbXy9kJXKb}2NB!seLk3U=I|h_2I7 zH1w+1|G?vwP4sB!-yf584!@#h4*LFmvc9$k@0B`%kgWq|sS}!K_Zn=%+sRpPM8WH9 zE%dDLf*2_76t#8LSK(S=4% z9AF0AhxpUrU=NMV=;x%LbQ9O1p^9@XBcJrOF;TV*v%c_S%7De-1p0#cNJ0K^4-PA6 zSWVG_THO>cSQ0Gm;|qb;cq;%BItMUfVMxvA(ijE zH=jB8U9-BkxbZsD*e%}!ycVA>GK{0nk@CdLK;dc_+x+R=_@Us$r=IYjyqA08wTMV~ z7udmJ=PF|x-2_9(W86mrH#xd#^-xfuN{p()2A<9%qND>-ALhZ3I zwYHU-{3kS(7=BP)L?07gf8gDxQn6xJ?5#5uY3hw@pr_GQpx!embgWrj9m_?h|6u8% z;&43Z;2-Xy2Y|UR8r&%^pl%*rz#6l8%Y%Vw8T3*Aj1&^3=@obj+kV_()P?+Z8TM@% z{m&Uv7YGN0!#myA%F=LvYs!ZtaFpesu?REy0D%o}53MoiuUSJ3Y(hSpr2c7zmCR26=RLr} z0d?$8Z$(8%{#x>Y96;!4AR^Qzeot5dgUp7Dt}qO4xJ*Z~jR2*nv>KoCi)^N-I^?Pu zC$ljmOv)jC0XiKQCt^^e=j4WQx(T&{tFMiF;;f+D7P{!1e`4}oA%~7)V=66zXg>-8 z`D?PavSPL#kI{0j-`D;a8go6YS*~+{L89Q~LfB-M)CE*@U9~I? zu3n%pcrL_|NP6eJ;dqsN(UIzWR3vjivk8wY9+M$fKk?n9;}u;Kink6;a;W*ryD~6^ zDAO9!DEkDEe*|`y17cKA6v!WoL6Mbr(e^9h0?^H`uGZe)A_F7A+z|JoV|y^i*&m}B z;X|aj9{<4mGv6f>m~z#vCzurOdLB-}>vTR=#c8hB$_PWwN0ftVia}y#3?d||m56C! znN;g0qG@-I_fBeMwLMO!k5t|FKztURLWjdSrQvQke=-yex9{ewLmkCHhimU=qftsC zcy?y;10nQnoTy29X;Q0zK0;d{|#Kw%%+sg|X38^ax>qfbeHv8neD; z@~bi=outNtf$xAp5ct5Ra8aS!K;ji;@g1P86)hH5Nb{+9Qu%1npp}}Ik z$_B$T3Jqq4W>D3p3-Z=S{n*#YzOQS4aZ-KiG(=$P!BZ;Cw^KIZZqhzZAz7$e_mvnq z+K}Xk)94iFkwZu3AW1codW8o9I7CV(wG!wha87` ze>fk8{%{N#paClG9mCaGF^Ij>xw&Zt;S`!d!+k(8`(U25pPO}259>K;DlJ@*|B4sO zu2lCR{q)7@Oj}U=P^`D&%g@kNsbx0fBL4QMBwX} zMiy9>1mkr=eKPVQrR2if$N=LVGQb|z-z1N-Z-6f!6s=&i^Y&4dgw zkfMx1O4VBuG05EkvhU3+bUfBV2igGLK;{UG90)ZcaX?uOfx}b_$r}Q`!;m~K3LH?? zkvA~GRYP$DYeU1lnXG}6e_%(uh@^p4Xsk}HhH?h3NJz{u1=Ugp4n>?gEo2~wd1Q?F zM2wk?&7rB59ot+21~#vjFL0)ghgxIlLiSW5T-58ST(l5fod7YIvzM8sCYAGvi!U`7 zu1t6l9mQprP(ODhxscO9eZeI(u{vT)1^VBi5F!R1kwHS+Q6+&qf7TKR`8L!OK<1G@ z5Pn_p!=1^3qz?r8AcYUS1WT~BW^#7xj~x{}EarZbJHBqlJaK7{eYMlLcT>s}#lih? zB_<*c@>{B#$2p3GelH~`IG2Z6W1K50!BSzLZCU+=GI>V0$ld;XI5-9(y1xf~Riy|fWP*@F?aPFw{QA{FUn4hf5i8uQ_iyatphzA4?#&}=Q=F7;Gd|o0dk9Isqvhp45Z6$)Ce<_Vo-8- zO=fxTJmqtz4c@)ka2iwcJ=uMFs4wl&NUKd%3pJ8-f=WJ^l1`amGA1N8Q>q@klU3Xt zS(&xm^tELMgCW6IM2rTfz$C8~X^r>C7m846f4hI0xQW-M7DoZc_FPZL8?&9caVEN^ zi!IZei2m>k*vV_NdR1k8%@mysFH=#1t`+6ssh;7{Q8Y^Wxd-SrE3m}$hXlrig`ABC-O%E{hoQCwFgJ}XeSZecb$%vwn%>&#@5C~Q%3kQ6 zf9EORKF59l-x}!dM;|d`heXBc6p(63#PeA4Hl~ZDNTwnhz}^J6hOycc4LX9`JGA?i z^k`0M0n^Vn+&n6^dq?FZ8%tcAJmsMkQd5H>hE*U!3=jLpZ z{_ji?>1z`J$c_m8-jJx%z{mj%sxVCJiYMI399J?6UR@M%?=x?#4qY@usOWnkD#$D*0kYv`FR^#F8>$G2@qWHP?vG}Jl-k-Dw=f|$uChrxWsfyP z{})F$5cxkw*VseY2|}AB?OZ)f96O`7YsqYpo&{f%Th1lH;J z6Z)ttmN``ie5Pm6A7!~1qLl}`C3m^oD0ql(#@nF(&{kFYYd zD7HNYe>baTV;qZQHk`j?L69lQj|TSdg@I3Pgq5kp~sE0-bk&1!qR^f4XX=jftlCSV%6T z#qDQ#E~CZoDsU&!ZB?KJCl4fs8yB`JEVIX#y|D1Nm!GKWS}WbC;N@0{Za_W48>TP8 z_@)s}ik_B2E1$+kNp@KtD@!D+iFXK2@oN=9uRFf2O2`GMY=Tz~)dYjn)!&A*cD<{0 zW$-^`s6Ai$rdvkde^3&qdq&;`Anp#VD@dLX0DDpTng>ChhE=GCUrLiz8SDw@bsHtH z(tvI=i&b3JI)C`}rh3P!(B{YRq%6{+@L$`L^VuaDKe*TSy``vn97<6IiH1T6hP*PH zUnnp=%Z`CU08<_LpytYj%b&k|4w3 zmzd03B|`l)8QdMQ1(Mwg=^-qyxgf*{=T&N$O6T4X#m%8|_oz~tZD~~kDs)d7P!?3<2xCzd_ zCWB6DnSc#UHOC#*3_6Uo{3tF>;-RD+*Jzes=)lKhj44bOGllA~LW~Wg>>T%?4fsAt zPiN<7D5$utJR9dLmC}ixBipxZvk#KBXC*6crldBwe{uj-VAySE$^omc0|d8~v|9C_ z{9OUTg(H8dWe{3C^-D?3Ey11=cZY)ZA={d$o)mQV;otCk1uHWw6?7{8YhgS{Q zmU7iqVO%Orm&m@9n#T-Gv6L)K*$$m+CgNd-gzyf3HYTF(XKgL&e5IIW?A9hqzK9-Q zrS$9-f9Ul$%gnm3VEVnQqbr>H4_)R-%TyVsv*`rQTD)2Zdv8vTwqJ6^FQIvwfnXeb z^#Lc=)tM5y+xthaUv3}R&TOpxV&xZmFZXv2U!Uw9nd%S&53Lius<1r=yA;C3sF^Q@ zSH+sgFZN&CD(E5u2`q~BPLAH}oV+>ObEa#|e~Jn1$^+$wEQ>=yMsLluSO-T8nF)zA zQEpsJK<2Y97THXXgT}%XBQazx?3A#1%$!ETuJN(eafH_@V2#IPeuG-R}~ew4r#T#n8$6eH|JV#ing)Ot)xxoU!(5g zb=;`H7B9^=la}faSWf5>{^br^0R_J7GPu;Pm!P!TA)JzrrBu5ss#v{Zq=HUpf5)h) zbMZLcB>%K0&H{9S$e$9RYmKxktdWA2NZ!FJ4%p^Ce21!H{vmpdr*Mwp(~LYm4Vx3g zDa%&^P9a0t5&U9@nZXV+dX2HmLa)LuO6k;b@7eFDHZzd698?t9Y?TPI zIqY~C*+e%HWOIPXp9N%Nei?C%fB%-KCc6rvnyK(sH%Cn4zbg=}oNQS`dgh{|)JuzG zfN0Z;EKidU5r4WE_C?wN;x}{hI)M)7#Vp-j+jbno zD_5lv#w}m%5ymguRT#Y_0QNTHfJaa-Si4gTWK)d2*4A}^s*I*7*uv+F!qNKJNi`L%`Z!eZKBkkr_h7NK z#0)r&rVHNQMF!Yy6h^o9Exq_hNlxqICw{4Vlw{V$d6R5*!H6KoB@dFq9nCRdtN#>< zuTJF(*{?KkbTz)1fADws7gHnHS@_8zou;Xx!ULF3_g?_j{Fu#cu`-=oMniu2Sq^EJo9Ed|}mZxX&w z$M5K1-fEhqZ-=t^p_IwB{?!j;Y%PAThw=8(4}3d`%}=6-rl`Hrkzm12Gx&s#3M_wQUz|&=HW)m)^=of! z#Ru=*k>RCwu1qiXOcLDY;x`y_0J^6F_K_m=;9Wop{qkJIiNO1G8AgQOt38ZhC;^1f z={Z99P<-ds=paW`fdFAZp1%zdAYo*PRW9O!8Fw5N>;m5cCVvzk`-9Y>_)c9U4)kgq zAPxS@aw%CTzBKz(0bzt_0wpn7ar<$%l^_4R!@*loDR@X3TFDXB6TXcD>b{)^_9XVk z>+cJ{xE8iW6hiDHSvR~jZilh$p$f1&^ybk$!??HZ;*y`f(`hGJPuws5fou*gx^-qv z7Qb`e!?d}lPk)?yTDM&h0!*RQ(I^04K>4HtP8Lv5ueuHxZrw8f3%6#8`-NLE>V4r=o6q?|WDURXsP3E@He|_R4@$Y? z1%kMV-vu6{pxXszhYfjM$O2gM#XDU<55ni-tBciIrhjn-M-iQlp8Z5@V$u@qD7c8A z7xlJG{T@&g3LwQjWFTz=&6U>ptG&2n3}oYK;a2Imuqq-DEOs$!xKALMfcHf0wUS;l zwol(_#*_qnW<;x?%Zx489y9ifahK5ElEuDo+1Z~4!$t0PWG&a5#%~*TrV()!VI@3Q z8UuL_Pk$P{^~RB=u=$!j2<|_0{Rm44-VKo;w)Gac=Rgxd0Ix9YK2wSYeih+76F>&* zJEJ$;ty=J$Dc^S2aYone+I_CI%dX1|QUu3i2ET+IW=hYx9)`1X77?to3^EI$?SwHA z*^^VU+Xr6@eljM8mYA=pSm`B0OvUXv$&{|xt$+B)l+wy?9x}J+A;Y+IM-DROm~{vK zF?A5_n|I9o-Z2#fOA9g>GYMs!2%?evV|`=jcU=#eQZyss+;fgWl|p0Bm>SrGy|ua1 z7!FZs7=5%ZA&fZ;H;god5X!0=_4fv z+1y2{nVVFFZmnW-zWGSq#78Q4#^!fEvAWQr?+KL!)isOvkMhGr8~m=Qy_K*YA>`7aRk3MAB)>Kdk@mRB4#f?C(m;m0nMGmb$`b; z^YfmPl5^tO%gdAUReDx5!j#)`ta$J^Qp>HP9+rG9P8Ah439sPKhBr#ll_Fr5BfhZ> zEx!BT%y)wL$a{2~&~`*$o5w_8+`c)lzqS>|yzXu~KhcEO0p}@z8aPHEnEUdH(5tqa z=Kc0cm!GMxAG}XQWZc0Wuk8*|Yk$LQ`9JvYl47gz&9Jb|@K)>A)YLh|H+Hqa*eyhKU*;830VlK}bzMQ~>_@5ZhktD0xP6EM zKXResUx)!LehK=4=*s1uAPgYp3qr-@4We1OJN5^mZoheieAONyjAn74kUk^V-FSuY zaKdlb^5B$vhA^1ID}AT9X>~ zrnpW!wC=AUqD{s{)B?#M%-3d8QeN1-ml zee+XTw4Z_?V8$?=-&$_XSD^yo7U-=|6R*B`EYwAfTl86|yyzC~wNU$(`{ucDbI*l1 zoe6s{==zKIU#P&dN`DUq9(D~MhMEZ0z>mSxmPK&PSE)TrUj}!Wx9!bPLnl}fI(gW{VRHVYg~D~( zgZGvmP;&zWtQ&o}V%7!3^**3ko7dhPX!}lF&p6u0(V&6!B2A<{1T`=V_{k;nqNlLF z_Pbhy)%ES#T^AN7hL>TR>t<-lFa%a=sB z?xHbwsBLV&0w&#!_6pkD@glVO_DDZ7Rnm;W3rXQx3)qG)%sSk^&lq6wHp7Adu@JN( zdXpKWbFY_9%&t6Yie74rj)F_vP~D$m^ezfnsyDoe5QMyk21h&XMcLDt@dUx{dvU-G zw%xw`n2yEfTLXI+fMa6s6cy4cZ0{eD0d3(^(8%6YFSoMSAYx|rTuyfO+rtUykeeFX zf3@cD>i7&44TZjV>W)$T?$O~Z*C_s~Hwe`Qqks6<+q=G*d!e4NbgyZ>uD364zTVS& z7PVhz6_RVICB<6ZN%#S>SXyqHuIpRdbo(3xs_820bd7{;o-SH$N%%n%b+7C;Y}C1n znnvneJJ&Yq{5xo=TwLgal{&9Y4HIPzte%asUN_r?v{ZL`^-a}fVZc`1Z5uRJcdBS> zb${ohZ?4XTY_Be=x(4gTp+zj#Ma7O@Ip1bo_A-ajx)`>+*+`Qu_ZRxQX6(rz3ZSyE#z>m*txxH#;!kx?bs{n zg&mT!(>@YeTXub6MeqQ|%2nElH(@~&sDGef&@LKCi*{MP(xly7cDHBKUbU*XV$|+- z8d>~rX6?6T)^73Yj_leiv8=vfyJljwZM))8%gov9quMuv_W2Fk>l^-Oyb z{xvKBV+V466ER0XFWQKi;us_T%?fbQR)7y|j~|{TpkAQ5rhr`Ew6X&2MUFTXV-dX$Eo6W@@ew7 z-#j7W3(2)$Wb`^yDD&v`;r_wN`=9o9Honx~Z@(#h_$lpgD6uvGnbl&{_b1$IwP7hM zfY~D=%flmfcP}Iqm9~u@=>u9LEq~Xjp_y5<#f01q_P$$b%7w=AlfODLNqRoq*s%P{fKHJsNUt?x3x>3RIMM|$*=BEwX6MxhxHGN??cWV3M z_gP{5V(88*Pl69U5;O!OY%l}$3q2c=oPdk~y^U%;4gSyiN|9H1{DmrZ68%*Ax8I(^C5G2IHrs0UAB!|; zyf1bp1vS&--Q)@?X|^*TUVqL;z_rO?ch$fx5SS|k!^$T7))xH_%L&RhzQfVdsD+yL z&@Dr;zrY#e^CEenZrYBMAJiPg@Vf`;r!Vc5O)+j9CRW}EEbc~NaSLlQ&l=ZR?TzAU zZ$wucL0qK6^9xW9XA>o|0HfFjeU{?))4_@nBcS03@SLmv2r`6`W`9VL!A1F1+8>?` z(}CE{4QDqu?rk?W#BOfL-K5%o4mxgo{eB`JL{i0U``r+R!cP+BogC}FS8Hof*YxR?VqvA&qj)krONitSmmQ^HcfGM+aod|D}1SL z>b0xaXq%W_|HF5G5Pu68vdXZS&2&VS&2$=R==d6 zO%Kmor8Z{olq0E{)xKqlthgs(2jr8A%6@5U}S0vLfDr0=gK>< z-SD}?b(bI18q1%!n(_l7gZx7KE?zvnGwTl|e5M-@MDL&N*sf;6TNtKYMVjGE2R56w zIs&{FWFM@vq26}JCV@CnJqIQ`P5V-EjJdM9BoA8~CARkwq>NNCuC7NE`$~k}onu_5 zN4rD5);{Cy@_$+0%dBPnDeXU|o2x_ru#pp#9b^*|-y#P28X;fTh5Y8~Q*ScJD}err zK!0sG+#|SDUCoovDf!wGTSBHtpF7EQM|JEdLP`votU;7jsdTl12(O?7tSkYn`UgR8 zssH=ps9(HBl5>weucFR%IHBlB6F^7Febhja@@riG3xB)N8%>8(kSL(97<~UeH?76k z>H=VLylr*S5=gJ;B5CmF_)77a3H`4Ud2;+i@u?p!|Ky_aqth%KrD_ea?#rzIK~)6F zFS%4-Ndn^5IUvD@)Q=-%-yz)94`G&=+Hlg=i%U)c9iC^0hSG6Ha)pMScawIzwc!R}|T%5|~IuU-{}C&fzF#Y*p|bYC0tPlBwd#1(X@Y_4x=O?SO= z+OsW2fj=dWyMGDQcu!j@q^wly4JNoyy&Jk3s^Vn-Gu zX62$W{3ifVE$G0n6sY*61J;!(yz!jbR<@2;u7CTc3W3H@R9G!22;l>K?+yp0zo!frAcPEtDiSZ9!)^=9gt)O8heu@>PO za4>Bl&vi_1J{^*E>d~R$xf(wA;8UYekAG-OuID#N)v~EGf zVFie6RkcneN`Dm#MMGWCN)fO|OI7FUdl)N4_v~U8inMc0)@i;g7(u}myqIBwzA!N8 zfU0{VuIk>9niaF5XnSF-FkEf8Pt}D+c%xh+yuq41*I&%n#cY)8Vm7`eT}(i25`TmI zQe6Qr@IeL~uf$1`r-NT?hG)hKkz)|0=8-h^0K~&YJ&7HCH~A%-;gbx#0$rma?C0sE zr`r*HdNAVY2(YEPppDQm*pO-N zwLC6h`zY-|6+eD-TX=TGl}f6Bl7Gv>gB4#X@D!m1_~Kg08Kz;Qpyr}O6t|1p>5cmE zXh?W4&`8EsZq{kB(%!A)+yyP&jtpqj+|=lZr%*f*Cxwwut3U#mYOFLvxTk@~49@KE zBL;3>1&bYK*x(=*YG8M>`#D+lHduXHN&Y+8P>5L3_PW>>(Cfc9;D6S-Pk$UUOE6n7 z1Cv@${c%pDaW0Db7~|eA<>(UZ;s&_l!fS*mgd=6>(F8NxjjcchxAHCRz2z7#!KsfX)UeQ8x&$0-heg?h;!RhoS=UI3mbMV2BOf+18 zD$>y6XD_nLG*-Hs<_Zz60RtFn_y>L%AAd*Rj%r zELMVg-dN$QVV;9YXAtSq-uO)re~+(vpMq^(WgpYa7^5ogd7X`h{qQkS_W;uWP~o%fofa{sOd=KMoK7@1JxG;c zHR+LcGq?v`Ua2|u#(%)6PZV>#n~j%&g`V}5L_6(jQoD=I=$a+hA9Z(K^`?p{O8%68ew3Qh9SJS(uH;;6Y(R31x;OhhL6of1stABE?LdI}?&54i(@&e*t zfY9+l2{$?U%Uq3m*AU?K5`0TJF-1??%E4u>Mx2{>Og)03fIU#NrdT98ZANbdhOX0# zOKS8p>h0*c+NiTd?)UwzF+P;@mr9S!pfr^iW}EBVlbyQRf} zc-EIQMUAezj zi{8gH`JW6|A1a;OPyqq!JMJ+Y4T#Eg#$8o{X4-4`TYry>0|TM(M9kTHZYNCVp#j?| zyWq(K&>^G`RyziN>qs4)xt1#G47WjLjtTz5JH;MOfY5`>;aG8=>BK?YUjJgKNZ`nGq};gnY0HIYQd3&u@JlKyTldxj>itt6Vg6i z%r{>Wu}Ge)(&Q)b?Ynj;lFeRAeUbj4C931~W1Wv=H8XeCoUG0rF37jCVKs{B0Lc_# z2MQpjV9V4&or!V7NGFqQ0=F;j1MR@&ET00cqkl9*3MVG%c@ZO+l(n2VB>MmSD{%90 zysP*Peq?!%tUG-=oa{_``2{`L5UfCBtTT7(7kU9rTlK}Zp)Da-MlEpc!=wL%g{5xJ zpSAa6Tkmi8{WA=ez=TUT#}Lp6{!2%Zw&aPhiE_I*Rzuu<^HL2HF@<)Sh8l$|VA^*> zIDZ=;_-N;RN8<#WA{7XR2GEh3^ajIB$=Tys7vn&HBC+3B_p-TrkFdt-Uz2C+YgOky zd@2hk!x=HJ4g7>fdGqwu-oYDMl4U-D%VG_;M}K}veyJWYW>43UZH1M8|9XcCJF#dJi4ZnDqb z&Fbp9B%L{(cfvgI7Y=M=1Wo1p_G3j~BGp>1GMT0Z*BY<{;=6IY1Kt(2tlQvc&41vI zyhwlN>6A;_#qfVC9jEP6KL}vFF+>JjA&W&C7VvEQ1NS!!(0&m;!K}3L4^(iSGzY?S z5$6~RR)YmztSEL+i>UgZ6C;g?lK5uXG~o zyGpG|um2%QcK5b-fsfuf+CF|kXn&cTE1EB!dTd7|*g_F~i0TP>Sh)BFO4)}XGT;i(Sfv!aR=Vg?W?=jv z68scIh~zA?U(>I`s}hPzA*#`7SFvn_|ba=@jYPISFi)+keKCwD~x# zt`@e>YrzG&K}Gf5H1D@px_w;^TVgjmur!CONBu;P%#=`MW}E zJ7Ql_d+W}r(9{_zS8*h8 zc}r{6xe(QnwKr;*i)^Ok_gvq+-U0s2F#OZ9B43{B^C`6S|ho(2a{?xnf zIt2U#G=LBf=K@%YbJZMlHsV4iluMva^07BT6@RV^=tQf-Adj3KYu7z-etq60ufC0* zF6&EF@)~%a>P{<*LVhF1jo2SqIpR9wc^83Dg1mBM@9ZjD+>{I2aetPpQygN)U7t>2 z2pxARzIZ$PGw5{`Dv{m}6lDLQOCcJ+OFUe6aThT`;U`x41!A24$v?R@s=RfN>N|4+ ze(vQQa;FDFX9fYZqhtAtm20Qz8Ok^;!={7(_>cdvQ!zp2#902WPC{Y4zQcS{*+ScS z(|^KgzHXmyEnO-0-+!d7JCa6iyCg_4H$FE2sC5${uhVgFG`(H`h~h{Ltu}k(5uPpo z1}NJMJJP_%ACrwIH(!EzS}mYwUb%T&{+O)G0leBfKHh%Laj#nhG+AybDO22+@T;}V zSCcyJXA>nK4%B^z^#Uvd)KA*77%v$_o#E(Y5Fo~qQ-8yy@0-c07=5$d@rTvw zCZttJPO@olwCMw;vef{JbzDGCl9kPqYiWi$PULc`ynpNs7UsM>AjLhE-*7XZ{SVeXz9Z@(u7{M{eDxsuPt0L3x8a3HwL8yu0KeZe+gQfW|+fs46 zx>`Dww|^GAJO8qFNNh_QdZEH%eamr$$QV_1Nh%ae*~taD|RACo6*^&!ex*01aEMol;) zvNRglrz3jH$I3Cid5l(DkADeU*Ixt6R*?yiE?DWR4bTD(xyx{L z^=`{ydp7Kk0QXbI`|KQUzuZ6BKRggJ2MQfe);i^wNC4(u=}u8WSKd-HlNG~4?n|ys z*;p%wAL2v?AU3(KsQfmcuQ-`amTvKkPXI+D(Fl6Mfilbh0$Wx70 zntx3Hd$R6PwgyCEGx>S@=s<1gACvvF1~-&yKcFj`nxW9Xj}}>FLX%ybvPOTOZ$-R9KJa^NnULqo$PPF+}lMcyZgtl_K%O%FLtwl z@Rr0~{4x2*7!4SvAn7Dmyh_7-vmV`Wuz&mUTIJENcNx~LDd@F}?Tzr^iHi?pc%UBz z!8Y$TY%ho%{D4?|-*#GUvQfF6d!wra5dlnHEiOQwm(m?p8(Ox>l0aMCgSSOy;ari8 zGK!JHJSVZ(@ZZR&sR3V&(kY2=nrQ{2_LvyQb)X7@)3*RDYDYsLDoGrh_xfH@+kbnO zcSJPXH2fA@#dC3YZ$-CK9p9{-{xCiLMin8 zm|}p?dZlw(UCu_+p&}ZtVL4ofli}%XYE69^NChQfDpE~3%BaP>uk(TT`6@C|S2=BP z-fL3lP&caXbu~ARH^AxocwNNpYDofaLXaaGAb7}BEs~uGZHCzk=uRxs(0^#Tz9pJg z{`zKDo{@&M7K5Uofto3ZG;*$2W5yLW+9&{y*@x|qUCXdC+l+9962Kv|vw9YM)nZoX1C|#x2zws*+Xk=YgflI z16XV)PiN=4ns+c9pq^P@Nq<$(q|esp-I8^S8vpr?pyn`slFh{E!Zv%ww=iL^=k8$8 zD$0E#!|vvIQuA#49IQV%pVqWowKe@J4zk*67FR=-t5mOs<*KOYLv--}b}U!xoq}66 zaFuPoS+v%+Xr2Gz*f)h`!zzJo|MZ^x&>pd;ABd;gK#{ByDShJwI)B8P1qi(mo2zCe ztPyetVa*C}Y*=f|CTmYoPfg2-{JAR`=IA^HafvD1ys5fRZFOrJg`3c_85`mkJOg7( z+)B);kDHj58<>U^GJ)|`m}oX`E}s*{yXBmt30kktKe_@q*QWEP;6i4eH-;HB+FZ;? zUsw;Z#SYd3EbxFh;D5q8H8&S69ctupG*-EezD{jF7fzkL>tp->GovzV>zg7)?+CKu9F_kTf>ih>o0R&XmCQWV2{ z%gZUJGT+{}0t$;J=sQ(>FD@vt-GB;OqE5#jyTkEW*2efaqYN|xBQRESG}#;&0z=Pv z%2OJ&TPEKrTZ9zUd+VmJJg{)L?t_T~rY;;?cKryeTh#Q$ELT*B2O`(h`4qY^uYW!%uG|(>rNEZULPrkK6?`n){KvTE!hu(PKpV7dnb$Za9$a1?Yx zjj4@Y#ga8}*VAmS8l>hTG`z0!ws@hnwSW3Q;f!bG9Mgn91zS)@epL^? z<7W{;MqpwvvR3yD2+&k5{`dLj_XBm6x|pb+I#wNG|rNBWbeCl@nZxVug zOyw`{9okm*9UkpU7Z%v%jaOG|jyJx5Zi%~`aOq1%4~4e^exM~j@F z$b}`)lz*>>&_r5DyhQ(TI`(%A&8V+c_;0aftcA`FbI<^n&J`RB<|A|=zvKFp&bFSH zR28PN09wVPlHPr88~C^&a;3cv9Y0>brQe_DP#wd<00m2uh0!qVAxgybDJXvPP8iMY zVNkNtLEkYgqkiWjX4p1B&CFaHkTb)=?x5!bt$*h*bt#-nS_<9|Y8GoHlPKw;R<*$9 zB&%v~+Uoz0Cmjty!JdeX{TCf3E#t8HA9?|32cd9ru#5pa*d}JIHEXdIS&5;YuZwVh2M)bf2Y#O~ zvp$W90N-uuFN5$a-{*!TNTr3j2IUEN3Ojz8vs%H>e2&)AnMNmhyw))zC#&9;)SA`O z08#UAN}z8_pogvm`lbQ;rUCkzH9-FuLx1h>0Zr9yg4>`jn154O%L*oEXg^ZF9>LEl z0n2)TIKMG&ww%c~UD8*kO9B+B(k3O}lu4nYZ^|S(QD2EN>DGxM^xJW!^Gz%DwQ8jR zS*rC?wF%=lwNxE6yKl7=Y`Ov1R2@|t7rtqu{k&DBwKPqq`Sk$>vA zDyd{;^D9wGm8qqU(|$G{ZLJ%0*-?JghFrwFeNT!UR~wH7USXQ z-{=#6XsxYn;{R{qcYBSFUt}|K!fzJIa${j1gQkHL5rDt7z%N1@U~SPIB9%>RhL(g}=Vm~}I?N^KmI zqCcO0Y*}VUItg)O@7BosWg43^!oB>VCDrT=P}ug9ZlH$9k~p zVqLb#XO@7csdh+jcI*3V+Uxgbuk{rp2l?Eh)1_Fo6>gY1it#0mDlBaRfM1I47FkbyK$2i2oESd9jN%2uO3nBZy@n>R^cSO`L6aJ?f?xFa#L1CE_A$&U9jK4 z>MGtLiWv5$ieL=;2|UsQCx{-58PYB9eU|AixlFi>H9C$=Ab*)2RMMB2bUF|}bcCLk zj?iNq#=WCylg5}&N{;C0a0T12<*@og&B5tao8u903GZ`EFp=SSxg0ZfhCu7}*4AdZc z@Gp38n*mRXMSo&-gT-R%p>iIdE-J7C(J_>cpuGP`?=sE;tZ;}B+hq=iwy1M$%nL=6XSoa3QX~w~4FcLEgDv$*y zSA3#wsDH$_7C~=8zFHQ8S#hIyOx0CibY9Zm;iP{7p@WIfdZt*{^iwwZkhEVNKEvI> z*&Qc3BLshV|6hj(d+_nQKP=&z0HSQQY#BsST-s51l>JvWP7Pf&UteUoOEID3c>npq z_Dcr4bn?q<-Nn+<@vFnX?(ge0g{Tb(gT|^P|1J1GkH#{pZj3j&wc6(Vw3yt`d9P$wt|v`+Smu zsh#d)J2{6BW;928yY5&j0Ukk$bqj6+DKQz?&oA~*#MBeLz>tUw#T=JZi(R3>M$5vD_j2}9H2cz-YiMmbRgValOusiUi5{{zqn1OF0^F?I2J zl6@Qwh$diHC>i&Fp!8wlCWfufK*MT1)ibJ;oa4w+<4;hQO{Yp; z=L9(B?2^c*u&IARA*CoToEZq}m0!XPx7A{NB=VB0uaFu%QGW+UYS+=}M)%!PB!3j> z9ZAl#TCfV6*bM*Y2a`meR@yAoRhH8gi#d6EOdWCLS67n^^f|0|gX&!dwwqq58vsg( zdF4*0DE6%V=?HsfMLD1QlLd@Mz zUsZw=m&hT=zh3qfubZIe!rcQOIDc(7ZV5)+GE0Xwsr1#G#w|o+MS&1n8O`Ei#@A@4P-*3fm>SAQu~s>kJRB&O3R$AC)^WD z`=X(-TLcsKp}K#56{HlKw{+vsLTn|+ueX0bphFVc!p)b%OE^$qAXNgWI9B<#-T<-G zB5OXefL?qMrYn5>LZyTL#efmVt;{(?4gz{W_0Z$U<|+fgZN_b!Bkhs0=qiP58$d07_+qGj#mD{ zm+4h{NVZSOvGFC zgN&DQ`(tl70{5eC%RoYL4v}e-o3!P`JITgcCxien?oIa9GJi}DgjPc1&!vc>LEe1` zvt5d|kigbphoD(hD)*O{qlBW7sM?68QIneINLLRZCMq-c%regpRu1Yd6ZLRA`zcjI z!YF;6G7_0fO9)Gb5C_S_bJ$GbRBxO2sD9>U^ZabX-J_8j0s?m5+p;0+r1ojNr{N|%( zOXtGKEy5O$?~=T31bzVvX?9hhnB8eP80Lysfc1OMwo0zJ_9K29sk`!m>Z+Yjkj=|g zuV9L?C=>`|fHR+}g-jeQE^Pk-cE4)tn+#WMdu-PoT7T`|_@!=!I^rw-aUBYXvBu9e`W zQ*X|^AEkqPpZd|>?mf($6r}e)c~b7)!~9Vxe(%#qb^a~SzJ%gAm+_6~kN3b_6z@LH z{k_lqet*tA;{CnP{Vwo6G<$k)x%cVQThYCo`{(J@QIpixSy??~a$_YFX@cfeHwCm; zRZ1tPFKpm+g|c3trHqH)v6fpxpADP18u53!KZvM7f4Paa6+C@ie88tGli$CnZlR}7@p@!Od)Y1*+&on z;j;GuUTB2j115%XmtDN5kX5KrDDj^^YZ^Z7KXxD#I)WE7Au)v=;Ah%usCj0nP z(|ppV0ztKD#&t4sXY|-t#qiTw6EGt&t=uVaho&^vsob8@?cmK2RqJhv!bY0JQTo5L z;e_^6^rB(V*kdq`L2-&>4Yy`hObiV@DpcgK0{4n2pyryB>e7|gg}baiNpntp>3@R9 zFt2Jnd|hgg@VH6Wp3TtUJz5L{ip9J1}%2(AjmYDIvD}o!OSHo zTM+VTW+^_B&?zc81_hF@`we1!^qjhv+q|6^RIctPw5mOCBA!g`>~s4_J$bo z=SPQcUPt+7DsC~0Tj1icv?f!@KYtL3Ptwb)QE#d%(B+aWRWh9onb?MmY1Ige=0pWc zjGu?o3ne`D@^&1S!*)1!MdokphMu0^x}@VBinU{R~Of6n-;{2`{uz#j}+#tkD z;~1%4&m^S<;;b{}))=3*_-MXNONlGK*IlT{NL;bKWWkUpk1ZHgaF@+v`r+~WAp68o zP0vj7(j9Bk3A%=)4Mqhh?<#~^A-lsNJ(!~6{Dg^ptt8*QonBPjOTE!Wi` z2m~BJ&FMn~+OgWI;aIF8>LI|H;k4KPK<*86!KlSPAmiIuhvlcyUTG4$!c&t%A7}|} zC8LFNv~)m11NuF?gyidP6nR=Vqpf^RJ2SbiJ!O19dY1qZSetLRa(^(L0_?nU$uK+8>jBs|%-tmqKXtwCx3yaCT9T z?YAT_5WeRNSD!!LFSSKLz69r2$P~?iys?DT!8J&`1)#4Oa4{H;)4aQ%zwS+@hi6!2 ze|)5Fq?yB3bOafC&3`5sWS-MWHlC~{0^eP=Qp7}{O2@>DSf=9WXlef#93PtKJLb@7 zEZJtg$z+&L$Y{yJz?}48UxBs#s;{z-X@lxKv62?DQS;4rTT4|w-R&C93u>@JuQS@-`!ZuUw{x5z>$&^1PJhPeoA2i#-Ofz0dI}nY zYNzL2*H)nvC0QHgvy29xZnSS?R`D_!9b?9U5NY=X## zR?i#@0M-sxloDoBkzSf*v*Mpsjb&qC31)7eNvQu7L?@@kn0Z7Qgz@CV=>G&ctLg~i`0?#HU4x_^Fc2JAJkUsn@u(sTz!*TsFD z8ypWT0MYm^sHLy5_DB2AUx>wTzWNBD(enQ|$MXO9J6-;#+dF^1$?8M<*y4XKF8=3I z-2WV0{LjBz+<$g-cyJ@!M*xkMzYOa1a66vNW z1c(6yj>xXH=VR%+s$k8WS6$;8Xkr${I?%b%qkkPF!DnO7fT;L(9NFx-9{GXEEf|?B z2cGLz5??+mT6qPvKtU1K)&CUU6r?^ztgh6t1V%4gEk{WP2|E%iz;g|c?MX&j9_x7R zuOVrC^vh#2GYS3L^ja|%+s_NJNbGwPSBSniae1>hCyjU2R!w*Ez~sHRgdUykFW#{^ z-+zLl>sR(3#7p6hQVH#-c$X$?>ayvB#oF{DQ^<6FF}n88iK{jbJ#9M*bS9I9rdp9z zAfr@CdWJi?O<5fAmo9x|_g$zR?Pj41$CKKqJ8$-)R{55dO-c=^Je6eqcN_iCRD3V- zzczdWD|>Nj@F>6#aE5xFi*Ey-CR$%ag?}Tr@?E*RQ1l!vT%|0Y7|V}~JHM0Sq`LHv z)h=5N6!n2GOL><=X!_b`xTY-kQE_05TDFWgS-%aXwBCqsYUu_YY=7!q*Vbf*t=c0L z+-p~OR|++Q&NXjS1OdY{DsF4m&ie4&?^Wo-P3yPo@00_+w@TzDD&)orE$S{XBaSBSO}$K&>a>GNq+;rIwGDH znEjw+pAlI=Eu^-PWTPZZ#HItbE`?q+B7Vy?o*gtY-TuP^2O#wt3E|pnD59*=0hIwv zNlyt66nwbl8-+zre;%D6{O@YK0$`KEGr;l7{e$P=kP?3gFjb;Y0j5T?#{g0YdBlbA z9YWhfvh2j_6z==2pw4KE4}S^qfU<}Wd`!@I&bOGyJHRtA)&ah{-<3P9EIH*kzy#CL zdcI`CzSavBGCn{0e(mv~)$tC3L*Wptd6YQ8bWykz5N_Ogp2#MXv_FL)wdu5592+j) zmbaQWa=j_R(Yj8k7l0d8wwtd2o=^ zv9kcZS;zf&ZP4}YTaC5q;xpbWn8RT>PS(3mx*LF~;-n;X;=vkvtY2-ot-kKXH~CD@ zx8LgOyLaE&hv5eOihsjw>>MNv^IpV#7rj|ZM@DPq#kfc@U^^J8aP)s-BnC4~wt6}{ z&z+^zqJ>M7{4YNy>u$w`k}0X5*3N*5&XuwBwxyGBwcg?V2h~~~U6^0=uG04q&7F#S zr>h(58}IvWEr@b2ny=fE&-mHkr}=*Ee7`o|FV$7tdgrVW-+xHDh8ar`6FPQQ^bm(t z(OE>7T%`DVi3Jpg1rt0FduMY0b$f$>M8USdx^V=8)tf))Id4~W zy4)X&Zf@4MKs8#t+CilwM8t%Y)qYk&UZEP~Af!!{Y%6a9bG`gkuimXZ{Dq~<+Jjk; zYc{8`oaK4+rh6vE`-${FmHkPMNVY<`jTmE>=~ zaa`<2TLlssX$lF}|MuI{UY|9U+G_eAw$kCdkFWD-dI`7bV3Ai z>=bsht0c%T-Q*yff?ri{YJI5mSTaiL4qnd$siV%Vo&d%N1LpiX<-9Z};IIp6TX+ne zDm?+4dab;9nlU{NR)}Kq@k*0nmB3XxGH_?&A7hnt#U zT4DZ9U-V%%NBO%y=ym}m2^T3ARF&{xL{3fQs(<)13c2us)hNaMSuUbUT%2NdI=7s5 z4{nZYNODJqn$koSPI))^Md2PM5YmWeuud(w*-oG!_|t5Z{sKFI$+%KdOXR6TjR4{# z&973(TLpjihgXO}PL?EM{)$-1kMGz6}ee!f!6l56T`MGSv# zZk}wd5~4wI@P)JCMC~6gj7~_!wC5~?D57fbPp=_6)Mmm-4NYEb2g7IP#25^O0jHB; ziVKCP$a~w>_4osvR=7IT9%-ac4gE-Zs(*;`lq*sPx5~y7_bvg#31??`HsoxKn98!{ z_W}9;B7MN5p_uzYjW>0+zE;)Q9wf0m(>WZ~iA8FoPG#%o;kYmeIuPs8$r^U3$xKC` z;i=zcuVP2H^m!mPYU_k{lgaXCf~g512FRyu{6~6v;EeQYL9y@?Fi=m{5>)Zze}7bc zs^N7Ciw@kPyU~HJ^(LF{fp#g1k^*JvC0D6BWz%c5F8v-5Gj*#js{+XOiPR6Xt*MV{ zaO&(phP1rZq0zjirrt30qWeQpH^{l7Dzgz%7P`Nor~d&mdI2F@ITO8^EiG>d`bIP8 zJQ>k}fWIP`bqA&(qaB|xb_x`$mVa_R8eX(nUtfg#`p>{uDaOgKqtKVrv3yG5QE7RK zuBExGJM&(B|v$!kHIX3HXNI2tOG$;1oF6GvYIEPu-}az{OL zg9@_5o>(s5!f6fVgFq;=?j8}TsZ87(&(^CiV{?srj0H7(MD`9M$dMfnU%%#EvfgcZ z%-j#=Q_%vD6f2T8<{SgaCNz#ao%B7;@wRvR&UQ2~od#GIuUfcc z{hH2=Xg{&G&zhhFtw#2DL%u<>Jm%v7E%hUb@iz%vVgBv0d7jTs+pT|$|4*yaYOQ!b z$Rk%RI(wtwS#mb;Aajgm3+0XtXI!Ktuu|<3^7uf;^pIA~ACVYwfT-xAkQUu4 zV%h>v^5G!G1XX3>hf9zEc|eB0|47Zr0PZFg9Mvu1K1g_B)W1uyums7D=ny>Vm2|U z-t(!t`oSYG?@xwT$hN2Bb5&QJ26tXxy0?4DJotlFx#JJ$2sRn(!&&6w;jElTi2Jo| z+#}-f!F~y|!_McR%k;gou(A0)P&QWR+i&j<_xiaD#c@$lkGKp()?n7JWVGbl}L`u+f+}kT3AiF5Ah4vFx9$#jV-^8 z9=G-(*rn%59bHU14;6nSk70}V+(f_Y>F8kK$FtT6&zg1K#m<7RL$Pj3I>0G8h_brM zCOQ^ThPipF#uqM1x!jvgvr90DQa`UXGv=U(UI?;R3GcW+-1drC>Es!{w|=s(!Ela^ z+85QfJ$nKyqsX^7c#r~CKkRdb#XN(c-tBnhy0A62M5|Vg;kyYpcf?pB%mdEO9 zIU8TQ-Vj6g@A5y!Xd4!&R_8hnG?TY7jXXL{HnGE6jI}0Bfq2<@nVv!Ac5smJ^7CW) zIFi-k%aFGPrkj6%-%8e;WtUsb`Gnl@>OaJ>V{eWzV7|8YuxJlBl)|M2c3mHbgPEFb zUt})mA;xnCi2i7X;ff|H9|HT-vfCl=2t!bnP;QTJKsZ(`;sl7aIZuF^+{17~B@&;;p)LhUF4jMn~gie22m4?=T3-Tt6QD8vD{7?^{ ze$)Croj&3PbdDAb=LX@@1%l(T0~<|uF7P^8Bk%cX~| z7FDE>DYEi7p8&V*b+dvl@$PzPt89W9Iep^6JahtoXJ;^Y3Z>0}IEnHs%0KV!T-G|6 z(UU309J_xamn7G!r(WP%)8sw(@&9J&EG^m&7tM=N1k$Xasz`YWy9CpPwiOUu*1AtD zSG@|p3EF5Fxy`@*cCvl^_b>9ptNr8S{lkMVU9`bvl5uF?{NO%)Wl&E<4 zG4kEL!R2r~%%}JrjvHo=!pmP>&}5D{zSd%EqR4;8@O;c1xiR6z9_fo?z}vS5yz>9) z^`(J&ro7+%fj*;rm?Vy=E|!2lR+79rhE&qOCHTnNI-pPrC;P9U;rd$g1uH!}g5^Ef z`30+*bk)h>!4B3_Le1Xmz3mhA_v$*gf&bI}9b~u%)Fb}M$(5Iv@zc+};gn5()~Ulu z`oDj(blkr-U(8`+4_^6ENQ>)FWWh1ojIuE7eAV_n^7}KjL>JcZ$9M6@MI*s>esi&v zh(5sUW$$y^pG_5wXMEAT7r30{9~|FR*Hb9wAQXg;VXaGg2)9MRz0$$y*wi5}rilL% z!hU+RzxOO;TaE?jKQK|ZZIEOzWhaO?tTA@Igsjc(=yK~23 z)JFkxJGSFHsQG7B|IQmVoZ2sE~@6IEpZTh$Kyc4huljX3VkAPU>U#|Z2 zG|NV5Zya8tYW(%ES1w;VXv17q>Oc`o$`&GUy1BmIR|BBy6(sIfcnDIoLX^0hM9zN) zEkKP!;;lgK!=;}J%!7g-9e*{6OzGdZ0wo6N^-Ba#5@ICiv~LZTNH<^Cs(dH@4Ng-1 z&(TTjUOGAn-Ak(P$<#mR_I}}FbGzVgam?lC%0rHWxR*m78b`A;u$V)oa0>qJ!vC0~ zV%+2DnDL$2F4m+Jf~}qG@>20Z6cc|-Ba+{E8T&-O-M~2@j}>6)yURgfCcIO(u-o&U zSz7AaXD_tYwU2N0nYHtA4y=p4wN7jK$^?(9_$W>;&h97VR`5FeiTm*9U<3K8vy z=@qt_`?-mBCxc?x%N09vB4X6wIORIu**UYQ>|Q`TnEiwO=r!b2Dn(?d@Nf_rM{|FO zygwdJg-1T1v-inIYEhIsKMZnf%LpG3k}&Th2M&^U1j46Yo+4=q?FTG~61@IniBKjehq z;I3*1AGOQRM%Un=4<2dmv35y^zE@pRBz_{+)Feev*Pd{1M9xpJy83?yrf?<8E5AeF zX_MZR7+xD-G@U*@Iz}gH3bylG@+$>0^V)ZkNqQFZg|G?QZC(ML5gW54DH22j_;A@> z{>}|^Z|?qAv(a>TjB44o&DxbDKI1N@t&O>kpLgL1BfGx(dN|6^SrgcII-5cgma!goFN+UM|ez|7ARS_RdVO>r4YSmT3}v2Uk_FZ zW&GR|I&M0#PxODZDJrPz`04F`OI#3NteVIz5LsrN0zL-LH;lKf*oEO|()BonfTpoV zx{R8AXB;x2j$p)EmI~?sW;uViZT53A9JDdm;Q!F}Ld#jcri0?#8g9!(i|d;3#9(P) zJH{`T^xFoZ@V0_Tis1f$yD%n-+G(T2iw@A7enN0^jVOQJ)(XSI;S~B4(>C;#&ih}yVQT)j)h^6{<5A-rR$4r) zrd_rEtpK-am%KyrCZz4s2eG)rW}Up#0rilkT%@C6Kf9Wy6EFs7Sw;8Wf1W^|D;$CS zEG7jdT^xU!Sqra|H*EL^{1(JO8_$rzefAgV>TJj(K&ROVAN!Ly;jq?;8h;UL;}6a^{<6;`+#OZV&CK2Fc}3eiQ(=;*}I zOF~32*NNDa!j*x5H62A5L8(FCug&BJ)Yd;74&8raT*KTsuAqs@!E(yLyLzP_tqi2O zpuX|@H{?JmC9Xgg*gmrkqzNv^32r!YIRGSo$zN9kquF~#<;6ba0wK2?e_ ztF9cg>b`mz34pQxr&RqMPOl+VNiB_wZXkpS4;0$?1;BSdC;z>X{1_~{ju-t3MJvgF zgSCHKU;?NCsy%u?Hz#cD3%Vn>@Nj~Xiar3p3W4$ce!8DKn47Wi{a4gHS)(AXV89m| zTqmny05~_hjlV^%;!f2phmhW0VgDCGjQE|djrVH8b3sh?VMu4;&vJUhgjsu?~OF-bY+88ttw3|yo)!7~lYA77`9>SA152TSWUy3qD`ie7vOQrnZ z(xTYErCa3w!pekYqf8hfO2|NN4pWn8Zhd08_4c#%wH092mkW$HY3iZ=vdevIaSwlO zW9%g4e-S1W7f7b77l`ZK$tV$+i@5rp)pZoGVg*i1bPS%lobydYVi$_SAeuJgi3v}= z5c2c0zG2Rdd0vUUMp(CuEexVJzP`*RX-FC0Nz@Xb_WB<%k}#a*gwxCcm7U;XvuFmm zl6N_|;KJCU4VN9-khFDitWX5jt@3|DNs-x@lN-`d9uzy|D&FsgABtbo#LC2jyVYTs z^r`s-|AS|O4@_@3=_b$pbMjKF-@+`uU>H_iu1c=jZLn20Sw%X=A@1w1TggU%_4@0a ztXFFv$bWj7%Ll{I%4474KZ+ktAqiV=a-EEZm&0kk*lnR;xV_;tnT@BzkxhTZs6eEB za1p{hkmP+ko^>nP5t&RxTxt56^SMXIj8fiC5@*&Wqq*)fnr{xuts<#B#Av=5gR-`S z)#M66o|3@c+Z)!7ey>Us$~B_4q4;dYYjfwXR=haPtXICPV-688V=iIT(C7O!g^Sq4*0|53|4D zxu!#Q_?79A#OPETKA1>zRFChCJ&r8s9>3Yy**iXFdR}7NV?>ys4NreS!~x+pJQ)sVDU}A>b{P?;!^NX{tDj zeAe%)W@j_-`fUY?RT3wCxMjdtU9uxE1Tr}54V5gXN!*f8;q21jn!L)<`>MNpc%Y>F z0$F!-AP;$-#s4ZNDhYr6l2OkDHK>RQbEt8@Vd))U>5}_S`;g~(BP?AKO2jyphA^$_ zJ`{MecwAa0jiz2;v%X>0EWW;K2}>8tCtdSn#T|}V(jc+DwT?ZGgs*X}Fnyl&MhfcH zD5bz(ew{8<_$i&7cEr5teqD#)A4+hB;8as-%aLPPR8&2lXApmtir{0!3X-Ckk19pY zu&7%u=*Gm{m*qn4%czL^K>P&f7A1`aLKDW_XSDH>->l74_3WWNq~3R7)&XYaJrd4_Ys> z>;o=K)Wp&*yr5=5KDQO6i>)RkPOL{GJ8k=xQ_yk+?Q&P_(pB0*7m|)A@r2`|AF3jH z^HProt*s4BI)euf%`Yi=G0BIQkew-;Sj+0dz+Pv$4h1K^(wkz=q4v60;XX~<&(4~; zfV-b@ujzkn5i132U30BpOKbg_L?>dNBaMPc3DEZS$w|a+pt#Gc->H%(a-jn&tq|%o zn*gF}Kud%Vl*Zg9F<V_f{INmNKN)Lkil#`=NXS zoIqns4adVFZp18TW7H1#_s9~cKPowbJ2!TzZw%B>byjfnAp4^v&JVQ00z@m(Z&v2a z_Y`@V!l{LKt+P@3$vL`L!~TcW*%kR*f4UfsQVjt~s5!|Ivntw8-^$oAGcLMFEXK6v zevE%>k|fag+y*wcYhrT)BO5)s zV2dkYNg1nNWDS(Ob}1Hj_R-P)PbFJJ<)O{l#;6n}+rt%t8$@95<-yF2Yl4HMbX~4F6)()4 zn^W=1+(rzOz*}`7h{Qb(H3|RriOxDAXw@E{KGup(h&+j22!RiK3xp^ z7s#>dhT0AXaygDEPh6MsJWhXcq!=HAQq1TF2}~xV@Q72wU}rfI2jqrzQmjrw8JBXy zGnDa0$I9Mw$WN73pj5)!|Q=|K{Dh@BZMGB4LAeFAiTK zd4qpB;u|Lv(D?(fnvO=>;<&T;(T1UGIRWR4qj*cYgqvqkC@?>`1(|1Id47?|&da4rMAT=61Ut6gcQ`uwV5cp%i~p zhd!GqLaYc@kIarhd1ruj6_bEIa*(158g$eU#@9e7`ieL+_&yJ^hhE7Xme)-}1@($F zPfXNHG{p_zXZm@XLUQh>y*zyc+`xB#z!t~`k?Bu_NTU8Q0dRk`I%;i@sH;ZD`_B)y zUlNR^rJci4KJ) zo*(V)9auOUrEs24(sV2#ox=x!MMJ{O&j!}xQdmz%5T4h9I#s{TsD6I2eJxmhqdI>)+CF$Lpgk#tcBszBxdb;>xCfsUK!is_Jo)AIp5BVY~b+DfK8MJiVe0gw-*?}9)22w0!SNjvtEb< zL7fl^vyClrIylY>wq!0B>J2nGxt@~<@UAN?iS!GUOq+j(=|~&gybx2@0`Y1aFhGhv z8WlLEsDe4{Qe-5ZvJAgHLpyc(6__`aNz69`Rcj}CRID@^;050T_^h!9eKmt!A~s`=qI-lnIM`Pjro(+M0Kbr0&!}J zp7xa3oqT`nsl%bj>uf@?Qq`O$Gwffh%iM%DTVzkp0be->w<@7)`)4T2#TeF=@;k)m= zxKxV36*0;0O#0`HyGHdLi3Ys+8c$NTX%nxcA?qpbkbLp1n|ji`~AwlC4O20F*mbt z{+wI5BCYR=$x{Rd3722Y{u#wVRz|ZD+OQd_OU$E8SI%sLN}T>=c&dHlUm1rQp|3_o zH7lH!s$m!dckk{{19lMJ*OnxAassUP_2z!Qqjy*+g$%CFb5`mc7Hit5VYgOW@+E&Q zeij@Il!U_}t>0DUkANiKp;E*ty$-&D(F~*mVsO&ZIK>L~P2zIM*0sg??(kDipKM|v ziN)zOXUydYEUGHl9;5~Q(T`OUMG9n`?n2SQ5uTwObmrWRy59x_Ul41^0$R9W@0poPrutWbaJBPr7x2*P3%FRnC9&gY*HdG1WrHadMEFQ>21q$rOELyF zkOe*{Gs0hiwFqq?_U}?7vys2q?h2T+|7Kr=<&RO9=Azcm}V46nNJ0(_qj+T{0F@NeK5P%r$_bC^?W-h$OhriQ1)Vp z2lI)ME*=t6RA|hOr66YK9U&sOfFc${YMp5Fw*ebF-$rA!AUx^NqX2(=!dqpY$|CNTtilZ>U(+TOm*lv9Cs@AB&TyMAg_;bVFkHurcL%f%4o1 zxoLPK8B$YyBbiOSGU}y&t(_EVwR_yo%ii>&dp63lNjsowlnwtB&?U<9ACmR8HFci5 zPe}dYqJSz3Ac2%GMmpO)sqO6ZkO128SNMz6#E6Ox7Htm(poD~f(Mz6}5Ho+U87wLhQ|DJw6xyQ} z5VN{XL67OFi+w0%gAxpp3> zC|X~nL@Y=8a)I~lqw?|}*WYPLmkb9M%$d|?N(3o`9qEd7jTs+fe*} z6h&{fR(ui_6D~fVv3HiI5ijyNqHXi6i6TE*PqIai84pXacJ) zjNN}?XE(zOvMBzB88^lZw6?xS+`x^DV25_|o*PThRQwx~+!#r~jQ$>R1h#R}1cZ$L zzv0G>aRVJA?h!d~BNvPv@q=7l?h!#~D;G^afH5Ucn{U`LA9g$gZ=^e6 zOmUy?lrjB=88^m^J7P?uxN-Z8={F>~F_M4W4PzR`k=tWTzv0G>apR5{(Dr5Q$ zKW>a4cg2`S5u}tc#i#P*`QeMhS9@eaV`CGrJ=LW5F&&vC!SLxKQ#*Hxre*ZpjBn8S zRoWk(4f_;;VE7@)Np3H>+e91y4WQ9zG#dT!YTu7g;Cj`u z3Dj7E2n7%Rq{?C;nOreAms_{#-BG4Ird_2fseU0+ZJFh~5wi7syeaaGp(OsAVA72t z()0BN*rdELxM`Ma7?}ayOvd3Gs-Azfr5N`S9jg6K7xTt;&f9?(vIpx%L-SvA=xIv6 z*_d4tf(Y9C18XG>{j<^H#%nHcEy(xR*?{41pCGcNsp^bQ`)03lIGyH5BIuqCa7UP3I>6`Seg=^sUn$nM#YmpH&=p~FEzWl|Dy?TXjHSkcSe=1X{Sk-V%AK0LiiRYw@uV3&G`tkatQu-N%(mV5mtN08l7!H+{ znJu8WSJ9$3hX*IXhU29ljyrpuUeSK@I8{E;3$hh z2{Y$ab>@f=31nlVo~s5O`fgz1i0eGUD$&+XBKA_}Br5nJ*xJci+wgyZ#&OzDM-(Sx zFi3HygM~)-BEP~ve$LE!H9%e^kr9(!6c5Tqd&ZC?T|{(56H~}BZ)%3s?X3R*T^<+L z$JZ~8&^1H*HE>TAemI_4lLxWE9zs(IqXvsE8 zDFqCHx&6nJeEBQSaT9L`(*Pp%s72f#Aa%G#@vpFcC13DztR!AwW z=%TeEh+QcDV*GSpb7qtFMCA@v<-51*gO5Hz?L>zhYr+N+;irF~s@*g@A#&)ntfE4M z1P_eIgeu?cNfR|#VA+9Nku^dzrenKt$Kx{^Su=iW)*qTPObK5YRy82{?S9z*+1%qk z?Cp2<#3IPh_$Nt%9yvH^pNPF7vH(72$rN-6W{n{jAL0o1Iwu|at)d~A-d-IYb@$sd zwh*@2%OKetHTQodR{Exm1My4yV3>1sSSv|!UJyrKX4S&V(R#dH!n))G8`LK@;#bCR z@tP6P_PgYdSzkXn+B@1#4v>Gs@|n$+AQLpx-J(;j4D!5kRA9*Vl$)z18Gxd2t9EQ+ zm?OBSBKOSYqH1HbLGUOf1iHDM3-_fAvtWceB5UezWT1Zs$z?jV!!$?!7=|dc1kFB? z7lJtq2wVsX0xpzBR)(9P;r)jK%KZEY=@}+t$Pk$(r{>?7?G~@of?AaHLN12JpH+4R zrl8fYp;2g*`&CllMc`PYcsiKdhRgJum9>uzp#_1|Fz<^Fwl7_2j-U0L@OjMzMwO`Z z6+~cj3SEDJ&LcLmi0I{E%O$Ao;v{D0F_;Rt*rGka-7mM5t zY5-0gUDUv<7xqb0x?)9r?ir#6r}|NGAi(i87@062ICjgWFe1k&p9;9Bpck-1=~X3~P1uT1m~l&|Vd)!Z;^j(4Qc6 zA$)Fvv*czXFJx)rE>ua;>rF<)h7zuhks*IEy#VO^bzn$);X*_K;@Z)%K*+{C9n=g- zl?HM0!}+vop{^&*+OkJ=*!vEhbk~Boq#l)!(CzN*mT!y8M+N0S?tGm=TH!eupUd23 zRp*f!6;D&I&YI^~po^4{h2ES!3FXbpo{UiOm}|vjRJTluU}P*c;uqDZ6}=RI8KQre zt5q+0p{}%S%#*wvsM+sjw~$+iAJXfYO{@R~h)q)5N2DhI(01diG9*`4Ju=xTX^G=E z6aiKvi@w_8&+u2IyLkHK%1KLWvr5{6<jlasFvkY6r z`j~Ii{ocMv%WgI-3s676hc^8}cPM`xe2YHgn&a0_S24Od(9OZ|GCzZ}%y8Vzw(`&y z7AHgniKJ*}t@1^G1`E}0%{7d$n~kl*y0F1sHi8YVo&6qwI*AF}H1s>@tfc~F1E*PzEz z-qXhNhSiJp{TrSUvnF4z%m~z(5Hg+}zbRM!UulOD=b#{Wk@~tunO-}A< z7Hq7tqKqrTI%r<8iiEc6n^#nzRbHVgW)_hqUm~Ll<;cqEjf@&A-{!9T$B{qp$oKcn zZ*=Oz1B4I-JUdv{8h>n1d((eK;+}J`Lw!sRj8twruqXVjMT79<_kMmG%WJ!cK+s8E zAMF19&Fi=wq2%Q@{B*Z-{QL;AS}LQ#h*>7f3=XIzE=&R!*bS<_E5d>*i-`!Xm~Km) z$mWYFfqdU@AnjrUQh#Utbl0!MktnSw_`T6N5iK@I_h`9 z0PmO-OeHC1>HN0&)O$E;;xuBtTMXAvp*6f44rO4YJR50F;IK%?mYq?{>zqvyZ*N{9 zkD%1}q8Rjvnr+f8y8eH0*1oY%hc@9Ce0TO~Z2?LeL56adm_-G~qehx! zb~FLm8V4os!(*8hEf|o7ohV*}dH}@iNi;!38mFl5_NfFg4=;b>!(yz!cLxSIB&D*! zLe?SvDlJ#(1C*_9*eA5Y%}!sPO=e)i@_}~$fjK!n(-i&=IrqHpx3d`K)PI$4fjvy6 zx5dp$S7ut3#u)@8)T>x8*C=8%x79yTM17||5E)9*d*6W9FPsN^ak!p-a_+os+OuY& zGNAbakSb8Y*~ov6SvRV+Vx|ghFU6Ys5lYyx+WsJ9iI*$#8$_8&CoQ)%}X?3xW>LZr&zg1_~GNQ#aZXWejV=%68iCcPFP%_^cSAc-dsA zE77F$2YWzlQiWtGa|w92`CiEm6&jcN23hNwnJQD7uHb#eM!8~i)_Tle2%{m7h|jk274YsF~(M7qytmf4yU)w)MLhgfwf-j zkUGvTi%(hgoT|!Oa2P=qIE&!FLH;risYK2#;ar+GMj$@9&o;h}J;IY=h1guJQwvYkW zjcyPm`}ZwkRHTIEWdXa0R7DRsM4;PUbvx`uD%r}oZ`1@=wigK;z*1}j9l=o&mx=W0 zRrDiiCwu#^UmpDuSL^k&t3ffv_|jIhXTyJ!E}-3Wu=P8j=@a2n2wLR}=PIi~#h?A8 zIMnG8WYFT#*t0(TJsH;P^!Dr=MXeWqA#_+e{m-m77Vl^?(`-Q4DmfJ|;0kZPs1cyP z4H&$`Gk)ySzaxd`&O_J1`@~$9VMl8{CYT*zK3?Dc9*(=vh9w(OAmkI zVP%yHY=#DmMmkRe#=0*MoEaIjRA599zb6%#+FoB@4feZM8ofEZ7q!vs+qRD6}#Dg%7n{|O|^_T3_dEwj3`d9ju4p_y#@D% z0YxuSP7%YtXV_DE1~FJ@7`dN*LM?xZ*}Qxc(w#NK&a0}eTZObB6POS>x@PMSeqaj@ zYY~lV5e#!DfEsqpT-BK-q@^Aze1y+!oU?!G)u&Sp_m&0X7J7237%x-C|T9hR2 zrbk;CkL7uc<>**ZY|)esR^=^31%JliyYmr`1&frG*(Smebh< zz^u-02?dy?*{Y(hs_pXWKooyoaaCR58ePS~ZB=%5#4&g^YC2V;qNejsfvTF$Guk>l zLM;H=6Z9vSmylm^oPWy4)3zbxr{tWEBBPP#u1zJ*XP?MDyWRFxIs{PLW^or4yDa`5 z)8A0h41;W{pyf#VLKnh2giM<$Q7#nJ?6AN{2lHc^Nj4#jCdSlq=SY7f3r8DSC`1?D z*Jnls1e@sPga28$noeA26;g3UF>0};Rd=UjBlTx9=*TvWnd2>Ejd!T5@zkZt>?=PG zU~sEabkUTcnrmirlf!j9XW*%{;0qYIb^H1~gtGF^n{*fVWw#y?_M(k*uKqj?YB~Q z#^)i)YyYQ(SG+ar7UuoxpxZq-I+TQwm*ARJTn{N2t~}ZNV?jL%EYY z#_78}#H25Su<8nFTl-TWZPyF z7?e-h+?s#N_z6*@vBniwYRE8O$uP-r(g3+kNBHF2&3eVK4?h5Tjc4ZWJ9gh2?c@L@ z#xrwVLWs4?l-zpA(@KE`i7-D0P7VQXE{X!eAfMPcIzxj8!>~$&7{l}6%mtvpNoLH| ziU%|1Y7uCqBV@C1GaOP9$CR;}{AZC50gz?+GrE6vTXIICu5aLQO+E zxNJ}i&*2ED!)GsrT7bAR8)7L$m!5i46b!c$bDy&j;02G8PnqU#7ViuR(8@(_u%@h+ zU5zbm?3;b{Ifal!rGE_XswNy z-#dSPCM87Bz`r3%7;bckBY0-6KRjFB18k+r1KJTV-Q5@adv9LuAGgi9$fZpqI#0}B zse5}ce-*`5nLxN(2!wES#a=?`0Dii9W2)yO^cQAY#XutU`w#X2&HU?CQs(1~U2x3_ z#E~v@!-b@qHuOS+Lhb6(6MCH*!YjrY#esh}EzV;CQ69$Gz=*ZTSw?vDltdGc6K;ls zG*{njSVCCvF(fnP@Y8$)G@?m5N{%OanYWU^e@aIeX1$RhpPO~`hJVZP_ddc>?_~pX zMDyVNML2-n(b*vR$3rRznR}deZPjT zuhZ$3;XC8x`@3WF*j&0NS@JwHOn@mED6dCfXbxtycqNwh@-|yZcyC-nnr)o;EFdf zZQN;uCt0=wAXSeg&K@RkJFX)PZdtZt8RG&xXD{zxPCj0whV5J!5%YXv?(&F+rZE;e%y)VN_~%w_jOwZ$m?d$eJn#MKV}Wj(@PJ_x_cgf6C$1|9e_qmx_DEd~0Gdt~aYD92Q zi6xy+1*x>`Qh6Md;X*lrY$t!W+uQKraXv6~kQ&Co$i&T$TIg&FV#yUqMIhY|r$}K} z1|X0i@!#2u7rb^6)JHQ@^yCdFsB-B+b)=H~TcPyb3PsdbRd93$S#Ez}?R83CPrlr_ zn;Y?^s#9RD%r!UhhR{&IwEl8oFmCXT;LEMRxv4jTFSi0`5$E99PoZ7S%1nb#g(q7S zUeb0#q=Yq<2DG9{@oQ=&LHKEo4Hm`RfbS)!pPhgY5<(bxl>wX<#UQdX4$57r-wf{f zs%IIqD0Fs`MrU{T=+%Ggmj_+L*&5!+AZ(Kxk_wONMcR-7)OH{1x6&;&pkgtHFQNH7 zOc~x{Zg52|!Rg2I&~!w#mqXIg;qxOqJ=#u){87k1wQ5(M2y-H9Ky7Q=rZ`K>D?^(4WexBR^cn~_(o zl+B5E%WT#j<;fO?463V3!e|H7CQKsmw7ts4T}y9Fcr- z^XsZeRewu1yg*gZ*q;{6OIKJ4XDyqAnZx|9sXhhTVxW!^D)7CZ$V9%oOGn}_FMmY* zZJj4y$)J( z7qmOG#*sk*4A_g%wuZI-Idt#)%=hRrc)th166XNc3zrziDYF68Y@e5t)28|QzZ$JZ zV{P8aK|8mRtZm!f>v?NHc!rdc=Ga}2Mpg2bNTGlGq>QvXX34>$lb>AV>Dzi-oR}Slqy!>=5I1tuLtb8h0afgo z9-jBTA!2N@w1*EXTP`bbX|dk2E)w)W!~s5OW<3h3VUJ$2H?h_!Qq1|1xzy0@6HL5v^tyWIV0f@l-RGbD zidYZ-jej|dW3&zBR-|VI)HXxRkx?fAPa(QuU&uYEjfFz<%%mbE3yO-X)o?2I^;c-)MLaD zd4H-^#R%Iu=i?w_IZVR1hh**Dp zAb{9IBXaf}awW?vSZoSkJ>lWw`>Sxbc3Z(2lW5pZk@DMRMu&3e;Aq&a(!!zx2X7Te zALgHBX3Wy2ZOeC`lj7-MV#W|TMW})m6!Xz(F&c6};%{()@o-vV^mwuZI!Bif-T5eZ z&R`3IYj}n)hJZiARDOUX?&-@n``>?YM|)Je;bFqg<`}{gR3`&nl_@@Hz}wig9A}r3 zpm)q^NYZ{k=iKu6bl|8w9Gr@p*(f{w+x=<(l0Sd=zxen6 z+}Aj}&b+iDLp1A7!sr`CrLiZD#B@4=O`P{LxFj-J5PNeblAvQVG?Dl6D-^AqWF&S_ zUVK-QR^*CTvIr%>NQ$8c9F}NMh{BwbD4J0uQ_K*_hAh$=gz_L?E)|4g5Q(xJ1-6iT zANN-VHcSLiFAuw9GVtwZ`LKU4%z4#FJ8xdBZ@zf+;^<_ZgFmpn$>#5u6hY{hfi>5v z1i8?Rk2|kk2UC9hZ$9PfB5(bh&p5Kk-~V@-a*SiziC6p>!4I51`hnJi_te@)K~Y(~ zWA8-zkA%OVU)5(i`L38REQU5x6y6xO7B@FwNCV+|tLMOC!fLG<@fLqAHVZs?x>Tg) zOpmFV92eF9u$)fOXXLa37;wXbrg<*mnrexIyuDEXMr7eEq}T%MifYdOD#uofmWf>W z^@~faTA(XYXQgNkf*U}c0zn&bW~e|x6VS`aV4Rzl)^S0*41|{pGKeMzHELes^N*-H z;EZp3ZULyp2Rl)3h-80(0dg#~AOV;aBOXCfcqVmklR4k+Fc*idn}kg}3?l(@cEQXA z39+E=Fpfj|GY_I!xdR_QR9PaNQ zcU#Ow+DC^^k2=SD-GjaT_RIZeCwyo*=)k_am&M17?xoeqS6g&R$9qzYL7VirdJfVp z%e7!Lf6Oa&2|+)*y&RgHYl8S_PUsON(?{5s_6?ln7x|)JF>X0hRO*SXJFUrs`AO0@AYtG>LbC60{Ju5ejhVcb2YI2(Ry=fkt2 zNnX*&a7FtEuc`9%SH9bNZyz#kW?FvA{BvAJ_8xy~Jp%CrU#!C`kkBH$dxwd@>@AC9 zMWFlKwv7)!&eUh<@&<{u(6W}ba_u{eFq$C@w|eL|4NHdxDWGwMiy|#$pKJr^ zP6*w60uqB4Qx7}>=K!W-Fd+wfF!D=YuNi%N{~!CiZ%z&lpUGuAKD&b^i5&+zeqy=v1l^(!))(}#7y4Dn_*R9Ax4mI<^z?u4@16)I zt)FEH(*0yWtgZ9%rI>tJOOTkWGNhcAcHqmlS|;Fror8B9z5<*5WtjB{^APzvxjF#>chRL~ntT-tvq?ayi_`5@xC?3BpzLBN;RLD^x6<9A36 z@gYu}nJp(-qqx1wYNx)0EtEE&xFYhX1n`^Rf4`x=Q`IMRp1ak_JWxKoGUdNjeZk{? zwQk;BO8~+p#5?h;tzyWI+}!M7B-{;JrJCJbTzSq};vSgr;cIsnb1VuT6|t!g-*$g1 z$Q8hBf`SI%N!3F`K{MkM^h(+HAg{00Wy9Gwqo zOT4K@lE4YxxgjD2Y=RBJtbJdGPNZxxn>2Ys9I+de zIx?X(Oj_av|0>Z`Mcd}lTw_*WwXc8ep;aa!)-Hxs5GgS5@~yquUC+we>wre*M_A-_ z0Net3n*$_E&Bg*xAMOZsG`XPLoUL8o^O^Anm?zX7Sp)4A7i7+21^`Gvx4#V!xyX$` z7LohBPRW~B@nG|XK%8avQ^7DMCHp2-8`4Pa6qkt)XtgH1s)~3ZaHOzkoWm|fG4ae)XTGIp9Ar)}SI7D)ts#*E={E@Xa#GM&~ zSpbv`JX{Z@ZKD^@0~UnVnE^5g(Bq!D<%h6%>vW-Zv^Aq#(QM|KAu-gAizyfxl$^ypwP${go>+mIHC2ubz#IU3lu*m#|0@zg#QUB;+(j@)6+RogI7c>x0TD`QFex-@X`w+V`G#NcyQlN-#s zr?k8^Z6#YzDq~cZlZ)KCU1dE(^|$*|OKBd78P|t@sPth+yR`V>*ebL* zrdRxsyZTI`Ix+8NlP!val51FZw);uyji23z0s0R|1A$3zE>h*qL3 zE;9;e3!`Y)ted+(hQres5K8g=$(N$}#VDSs-KXZwjg3Iktspnf1sL&YcmgN^svEMo z0mt8EHEvH#j_99%=tbGC76C(-0oHi{mDXXHcLx2T#_Tc^)Lqx(tX!;wX2`bIP6=lElLO&<>jIn zWC^38lt(f2WRR{Gz4*IKv|%H!Fz$6ITGE3v?JrI@TC<8)cf=x!6;IR>1Ufn$iS=p% zriS3pF;wbKs@RsUA=SiuI4e2|&_zY8ruh84q;3F71;!j0h zup}aoblin-dF_ATf6^f4`HvOU@B+_rH^iWVbxroXS0DVz_p{b<3&trsM^`xe%(n|@ zM(-Apv%{Cm(06sc{`up;3t}U0ZAx&fZP`k`BsZ;pWP`0iprbk6*zaV013_|^fgk#o zcgOfvvo!LGD+%f_bG)+37CDr?!lGtYVo>ujuP%gHYp0VZW)S0M6 z948iv%<1`eRGfB*e&&VWB)`=7KY<_5%&Nai*v^?F@I!irbhWKLmjqW4Ta37?lWI_< zSb3y>e5b|9_fC&Jqm8^(&o2Kq*?fQxujn{qi1ZUgQye6n1Ci3iq}6;OA+gQ28?MSV zy+8KyK|YoMeq^5;`IaO9w*<*FFp9R>tIZ%i2a;RCtqy%Yy0^_zb7}<7#&F~*P?EZEb8SWavWc8TMkbP(zrOTQ6`k)$#eh-dyhnE^bx)$GlRhoE__rW=0 zbouM-4y)Rmzda(iIdWA1^PE@vhi?*pN^d4YX|K4voD6e{D_$ZVFhu+)dA7L`8XxPCly@DWl2EM#sTk<3tOO;3cw;VggXZ-x!&T9@+()?Rzj+Gt<)e~R zEUQVZGGlr7=+&#v;ht^;1spw27R($~u4P1ZP-UU5WFy+GtXtUcDiz$RUj)&AN;bFR zT?73_XN(1R>KP#LjJ28sFgeDMjG$0}C6_l5U_-N(dRy#;otsU}9J!`|n1e(`td{>x zwPe;PV@1Ua8{e4HS0w~2_Fh7pjX!T}Kp2vy10ojB-z7h6K)?}G7BX5YT9cq>!wHB- zgX~O9Hv}`I3=I0)tGM%ZU^X6qPD}NQbY?@nK#yLivz28iCl8jZLPa_mTfbkbH~3N>xC(xDm_v#D($!4lWo(VoC{l_z z{qcOyU^X6EBcmB#uuQi$9#dz@5#x+{a?OYjHanw8X|R(&ba1TY3&4j#|L zzDryHkW?Daes(&_y$E=Jbjx$;MZKHiLzx&wA6EtB*W)I1fQdvUTPdbh7zWu&xo>rB z!rC zhNyYPZ*)lVjG0yQ!Z}}{%Cit*R^nm!wOhb$z*VhsF?kSAML=9>58geBDKG(yAmg+s zWqvssq~pRsKAnuoKDy*b?);3i6On^U_SrBzv-Q7Ohy_W1%;1L<;ROGEM7;3C#jK#0 z;XVy7h$GYmhRfXqM?(Dh}tVZHd@|5uX+YB8u zdAaY~dASc*Q*Wk0M8bY1iYXeZYHUR(Nc#RIY3Tm;1Y<@3)Zb})g|{%Z{6BqRi?4_9 zubW?o5Nv;cf=~SWc4PoeEfpY~A=#|VA_FvW(-2w}aA9bo8C4Yx==u0!yQUno$Dsy@ z;k3%C*_u32CnraHNAjX`I)UVe$!7aW`!PSpdjNsX^oIzcMaCf^DZG|0tf&|+JdCv2 zNj8;bLKQU2Qz2v>>Y8(2kc5Oxa(9I4t>BL0AzTc9k37IkC<0jR5xXyFS8O-xwy#dkpiet57_2avhlkl=2LP&78I4NolEJW&w2xR_lB&I0Ab zw^_|pZaBLWBLWKUA!-m{oZG(-(4@y%GU{-1p^rC`49S-lkbJO4`(T(ePZb)1EX0deZ~NpF)>$5q za5!BFzugiPbCL=;%KLPiX+|K*XSzd2WV(F}sn@-jjQ5J`;j>~yM@S5Y$ZA+-ZuzD% zckblBS$%*W^3B!P>EcB`{yKnP=K~0;oAwuf2anu-4%k~koDC8y-80PYMX>~4p|+bh zhO?lf&>$QuG$E$Lpx;KNO1n!PexS%pAG$Bzoa`OFJ*;0U8s<_kPddjZZ(h#^3HRXz zK)yIQnFR+9H?Q1~D9(TGgs_V26_=OO&x8K=|!C!cU-4{nEl~tGa3Q8Ef3I5N2 z6V=BUC>N7kp*}9bev+csn@FN^92-Uv1lbHC&JQtNgjP(Qp}*Q?@yQ0$TlAc!a|nBl zon%^av*(yPlGQOrWC>EqHa*UiNOlcYbP*yb<-5PaLoQ*(`l5}Kd$R?-&) zu$kg>xxtp>B3|Qhye>g5Kb()M0ywRI9r?~1nP&}N?fT|ZenyXU=N#)FoU?KW2HM#K0+4)~SifF!Bkhd_s*7{xeoB0AHqk}wjqJw4lD?r8^9r^X#Q#ar8dnI^=u zT)@Liv}i^KjBvS_$ttxWN&HDO-m8=F%@mJ5rqkB!2}Wnuk~P9&u8%9(CdePU<^W-s zdjG=RKC0i7E`sY$OBSZh*Cnt3Z*NxAIu$A%i#h}n?LgvYcRa`66KKUO0kfqUxIg%l z1>*k-bm`9NMX1wEFr)*!tfuUL_Ow%R;#3!Y$Vj%Gn0tO)!dnFoRU;{er7oFSD`|We zX)YBu%q-a0RgyHlu_M*zD-IhBlXXA=ZM0^((rc^@Ym+FEjQjMiC)5~~r zK3;kmU7I^CqXXkDV^~?->6xZ^6S^_a7Y{);w$a)?l;%um{( zG|IoDdRp(&aQ~XxMHF!$Jk75dh)wF(vaNlMsS`vNhq8!nc}ZwIsCtN=Qg>n4wQ*w> zhVZKRl&Q$4LISkI?LI+@EHvfe#$RMQb=urIsj%+64Q}leX#H-damxFQ6Oa{JL`h(h zU*UKTHl#hF=by!k-c|yChJC-MI8jH)R;qyN4#Zm?U^R31S@kXEzSPk-Ywj9Q-7ylK zyW0oe+fR2gI!k*Pmx!~6VrWlu=yneG8ZG*}`=aym<d5sP^Z0)oG;azh)0> zD>^L22n@)9xq$=ysISccO5Nl&Ag=R3+~xJ^s~7N4%&wqYMC?aKvi<85?P2eLdK2Io zsBdjzOI~mde?;5)u#=C%xGx@(Kr!(m14~DRBl=K-p4jStTL|I8O_TL%PZrL+U1GsD zC@M(UpX`+C%(=pk$>R-w@^ky-yGW%=2}9CIPP1M*DIo^y0P<0$XIXMV-2nmg)5{dX zH#EG_@d2o9KW5z$T*JDsJNGvYu&ka8uhZ#_;ooxfk(e>|4{O%=1~uwrj0(4?=QD2N>G=vGu~9${7H6IgFnHl>u+F$B`&)-uteJMplYWye5ihwYJ>+ROqjNDuD+EJ#bY+ETA>Jjgqp2JKTH2)H*}2eA5R!f0+(i^lZliZ}1A;*U+^{&!g5N zq;E-DiPwUUcx=Y++R|^a}%jhIP4J*nryPQC((Z z;E<-anRk9R71RCG>>~Y?LtaF*SLeixz*DhLdCRd8h|lHnerjv9A_-lSte>M1mRRb7 zdVv$9N$h_~ki#%&BFujvNRG&BoEFu}^fvsQWmvE{#WgE2d z!_8W3X>IT>FWVpv6v)M31^Z}mDq>j)>Ru?2Jy~%o=uSt-r@(3+dI+u3J|6-E>o2mY zR_i!BPe=Wb7+?s3Fxj+e@&T#vwV}>`{PPD3+-&^(94guXCvE~fa9);!vt(LK%z9D8 zb%_pNA#NB1(Kf!;atb29_aWY?Cmf8-t^np(RP;$ReNkM4TT08hxabBzu$@7kmR?IF zE9jq|EwKU(4JS@qt7c%-tJR4>keC8kBRyi`pMY^-ju?qevN4f=EaN@JuxIOka9VG> z^-3TKLf2aw>cL_Y$LNje;raP_i#?9apOhQ52gi#-{Jnx`^Q8)j1=O;Y0`M;rOd5=o=HB7XqJXO zb9g2iFUv-l#WcAthO1=eB=VSyj-;cuk&jq#vZtjDZdP*qkeUCmHCTpn0AknU^(vW~ z=1V-{8s5X*2PEr3*tTwtkxs|y$NDp!!(Gcc$1GLw*|u?0B1DCe0e~9%i8ypCsT0xc z(wGgV zGUpxYlcgEPtn>PmnBW}Go6u$ihtf%nkUI=wSb!UNP9f=J97d46N=G7u$pPKAQT1>S z0pl|p4*|g5f-~6$QRo(^h8~%-8nPm{)Z&qpqmc(91FF-rF=QWq2h^CNv;2HA;-C&> z_vT}R1F$Nw`J95C6C1Sir0i!RWU#|2&fvc$dGF(ZlqlKRS>D4qrIv15*@%wFHyB05G5l6 zGbBmQsS@QCxLaF)5*3`O`;SMdUgyV{m^J@bc3e!xnHh!sfZ*YUic$;u64@+Bvau_` zm>bx0Fra!Tx#f!P(}Z%z2CXR(6a?!9;SWxDWuxZ0;6te$LHnB_d!7%nz8NYpdGu?y z2ZX8-nQ&(`N~fmfE6C!+O+Mvi4*u3`oN5L$^^bcMJ{J~$tQhr4o_A+8hO z4xEBc`=+l=$*c>sXjNz^dUZ$)L)bUU7q(xRT{yz~eQL!97UcwJTX`02w!dEs zL>mkP}yf;CeU+I@bA(Lj_&G zzQ~b(Eu!szdT9zRZRH~g_mIPIsHO|slX7Z35DOi4(f$`d4U$4{%V3r4leJ;Ouz7 zL%FAjIkB--Q2J>h1u}86p7tg#RiL8qG{ZZ851UC?=@kr%QA&|~mt!xW7G8qAL!Ab5 z1hlO6knloepK~^7No}|OQg{;p)s-Lk{28ZOUN!M0-au5T&V(Ti*9rb zqq^8Y_MIY4@F-B5M_7LHYTvhBVhJjY`%{mLSSZ=&a%94fSNlX@eU(_;Ud$5;wH}bK zuZXh&_3*5U3?YcYqgLGuM0?mdIZ7_FLEbB_@LHJ-&r{UK*aOI?E0aj}?xB$J5ZEXZny1tEF7w({;xam}K;F1pioivxUhAd5To z*&5=l`2Sdy4L@3lwpe0K+8emNu;A4xgpSQl5GMbv%NkhjD1z{Ip%GGGAg z6y^q{*Xh*ALPO31jKin9Yz&`dUjWM85!G=j4II!(`Y~HSIy0CCF3GoLl$J1mi!DB# zCVb>0kJ@eVpv}RsN3{Wwp+(9$Vmv@V@{kg%tdtaXkw?VP%V3dT zrJs?SCH2!rFt8Im+&<@*lgmYPSEejR5}`_~ItbPSRQA*|LvXq<4cuv}YH;7pST`rv zZ}<8xkCy(cmDxQADCp>C))3Wn^NezKLoRgAGfeKNgMmA|Z9rUq1V}qWy+DZ$3Wd|I zovl9%i^(rH6;z^POD?&>`OHPBH_G|_MeYyQIpH)@Jy{c(Y&0rHO%|!(nAvt>J*2C{ z))dL!2|mHIf1O+b4qRwy6DtF2o7IN%pL`IHleS(t*nwi7MR>K?pD5z=O{zJo(k;d?P}+Fx7Vv+r2*1ix0Y`oeaZ zbjITpO~fIHg1O$-%Z0XsnqFCIYbA}R1-$((DKpwELNmlh0(`%6qnbg4!dg{|xOb5< z(#P*x$n>v!)obM+0_h(D=^p~=9|Gwg0_h(D=`4YCcH~}vWeM=ALP5mE=Nkk#!^|bA z(0e&UzQvCX=CAB?FS{c9H%Qm2O?6Jw0m;npu%`@7iZhMHwh_iSkEw{zmuBI>oG}~s zf_(Lqz2jVr)|SquD$m)~qm-V#5V#iK@pwAHq1Oyp$It9ss{Ukw%%- zv>+6ChFC3r1A`3TTu^2Vw@?RiVD?fMsi@}8!cpHNY&y;nC-w9!SBgZe=W6=k1zVcq z(waD&$IyzTLFOCOuB^qce!#H?QUKJD!P#Wsj3lFf^klOtwB(JIlApEoHK}EYE5E`- zr6S;`NjbT?8cZqaLUage4|Xjv6tgQP8NB0>iMzWVruM}Yjm7N<#SH8c$=&TBsKzgv zb|X`Z*^3&UsFmBIBB{Gx83h%tmDq;ED_==;4<;b!`y2+X{D@f3d5(P_-5TC*-8xad_cx+-&jy29Ts!-+2)pJs+(lyNDXQ<=@ z4b2pzc~5YR`@{ZnBgBVryn#dKa8tWZNBwevvnBmh zS-RO`=H^HU^%FZz`}xGitQqkyG)w{BZ2qDHraD8W0FYOt&r*3e6r=Zb!Jq@{;>}-H2*?pa?Vd@UUb04>o?^}r> z2&uD^Jb^lUuh$&#w-($M3WSf@HVXuQ;nPgn{*kGB0cSBwBxEwh%LfKof-h@khdB1V zUj(@h4f^D&uAE&IZ+MWUhm!O-sf0D$H~De5T-ejfCqjyOO_AYj)z)!r+EJW5Zj|WBXf7!FW|+6LtrU-O1mfZee_Tgv06+zkICqc4R5f*6`jV; z~064aHUw?W|R!@PL0)8ix^euOuoaRFMWeE2Cv&Bk-X zdo3T`#f~lFHy0B55{WfO5>rO5bIvuJjZg@p=b6e31KHMv$HXOyn%(^U*WmA zibPf^JO+cl)!3?uC87EMeSd^>9911j_>@oMLB05>a4F%S?)Mvirdm#dY%8V*|q z!tm)j&x9?q`Q{d@c<4GnH@Hl0a0muctuX`haa(sg)92Zn?gv2{A3OYGxcV;?s+mK(!n6c3wGL~K4@O>Uwn{s6=rhz?PD zch}y{EzYI4EzeXnW}mU^WmiSO1LfjVS=EFon%SqmbU$ZH*l z99r`z#_rBl?YtmgGN_6UX7=tupUEbjK%J$dD^izFlOenfzyrcHD$2)(L5n$wkrnVU zvAn|cDHoIRdcU|9uo-%omCmUH-V4#Kot-PlV%BjL55hb(c}0TAT6Q_A3eU;oR~%;20O%(AwOWsiW%5Do|hTs2my62 zpE>91j2|hV0f7Z@O3~?)_S$Lc+wLJ}+o`$F9da0)bN{i^wXfOs0%;v7=&cN%dkP4X zawa-S&@z;hkyN)r*1_4Ldy!wUU68Gitp{RPvs~jvK*4OF9@fbNG65IJb?||VI(QHx zc=MtA#&qkm+LLFSZbW|{O)txjKbc{z^O$gakW*fBT4a=)e{l>K;cM^KW|h5eqEg~9 zve)gn|7Np)%6FZ!XLC`u8k)m++|=4O=u2;WG%gCXUrWpy6dSFx^gGVfU5;0f7jJn& zs>O^Q(t;@RFcQP?9T777ZY?@?&~5gMrsacg3_5t zlVE%mCuOR>MdwbYOsuDs1)q zloSP1jDM#eru}QKoQu{rRJjqWjND6K=@~2WOy4j_bT~W1NM71m&IWGwJD$nCS%P%N zoZB|!^_JmiE~Pg|h_-fS6>X>F4Bt}sPP?ALI#i7)ZLd)bEG2q|jjLj3SYs#JFxCWO zEq2F$=_T9OJopnw;1!R*XEH05kVg!#q)bv>Yq&Z?HJOCov??(zzlD=#CVrMok6kwc z%8?!G2~I|eU|c8v!nS^espgfgDG263PL<6tKEs-e|H9ffrxK^PBj@DqWH1hbL#bA6 z71n5}SPx4)hjoVMX0Y-Pj3>n}Id})3k22tYih(XR?oUYh=qmA{gZ95#X{5PspPJc7{o>Z|=W+v_!xzivPb*xX=y2pPdQH{gHfUr%Cx zS7tP!Ybru%skLiqJnJ97EXTu^0bJ#8&JYpK=!%)C+b&pJ?54_AXp5*U4=>Yx7Tw1D z22UpD2=5hHI`%AZ&(dBN2$E!}O)>q`(=v7vmYJAU8x(Yio` zE?+dAG=!0M{rT%(lz{*Y?%m2GZ&5#g{~x@miv_-|$^ibhqpR9lD^--s$6vg0{Njzn zOJwoDrX8SbS5b`rA(r8DP++}fK1YE3vMi9P;E}X8C!=&&Lcwt{uIOx9YOv~WOAP^a z5aVCd9V|Sozyy6cBC$|DRcP!Mgh{!qB8hh~fA+It>?GJTrBF@LhX@ ztj0&9O8(#4pMvGQslY1|>&{Jqb1EeWVX@TkDsA`RZD~ETVD- zk^3zMsv!+TECiPyQdp}r-+*3!`KK>3X^Bv(qiDQ3I_k~|puuB9q)@aclm=Pzic+hN z@9al$vNvlTE`>ukRj-P)DtA?zDP(T*kvYD=D$Pn8a~wh|r2%{E>3J84Q+A)oj_3?% zprk2)zx=SFMH2cY{F)2KK2c3Q(xs$fwQ?)uj|kodsz?MK^=Su17`tSDiAtkQ;bkxJ zk_y3LC{H*Bq=NXEtK;P3&|L4XFQ!RznvLOFs)ZKe6FB_moE8rPwK4SsvlIzUyG{aQ zQV?yVvmI3xK%0Ui^dO*IxE7XepgFB-x~DVft}xq<7_wF<-yeHO@IJM(g#gAbJIf`q zUqZJ-qOuCPpAU*tuumX=w}{_2i>XD+l7t(-t!Qc{K^D?x*+zb!mcSpVM0xr|3OJS% z3GEeNeiI@c7GXJ~NF_zbd@z;cuvQLOKpLG5eWpNqTak3pE^DRITgs((>Q{Q6A)MY` zJY95TH4^GAWzEUhEq?ze7j&P+NrM+q-}1Ahrp6*8#_#anf0g#U1_G!vI-h`D1LOzw zQhKgfN#c-oWAKKC$IIz7xtd_I8&Fj?jvJzbj-+Pstq92JoE)=F2hlx@B`a!mf*gy! z7J<@gxD1PH48Ti&Od7uv#h2GhA*BR}1@Nq#hB;f|{_K;pamc=c&VCTWmupc7OFv>@ny{0KAFq3mjPYnkhfo_;a;Gg-L$a?on)4dR3BczJKB#asj#j z;eKlm9@-gyhI{uW19Tw37)_W#Y};1De_on96`B)on;$U#M@iFMtk;u`_LJnhWXtf{ z9qiR>^&&sNu+3bnZ@pG#Y|`i{51-8I#@7Y;>6R+~y$S$h4Wxa`_PB|D@ZNoQ4;*KE z^aB|kJ&C+GVFxxGOw(<;R&4*p0tMC86;+7bDv@JSLp_vRdb zXP!Bsd6CDgHb#Q=Ix__u{X}bFDu#;a6gJBKYm$%bix&tak_lw2;;7Iqb6i|qp)O_C zYN10BUBc&I8D0A82u`;xsLGu@j4R)dPk#0|i>u{^Nup_dpajda^Xb@(g5=tkCc6f^ zz9d+G@g~7(l;EAEu2(z6k2TW~YkcN;ANgb|znbqqwaPWzd znlpZ>%(Dgdr-?^?KDH~{!o$)|6=J-$!vmRr?%>_f%s3!T;IHXkyRD*^Ae;t2Z8yL^U~U?a6#owlg)R1!ZL0ilbekj1tkxHCP3q#4NzgL_QNjP^I^{3}sJ(6+~-tN;uT ziqvLZjQH=dlzLo)q` zCBfRm-RxgWVjyJ6kL?4B$ica*L6r51&olgQb8~GwA9nJQskg&+CCtF=(`@Bo1hqGu`20cOgR^73O`_;iJ%6nld7|H5>HRx`|h|lWcCdvYI)6Fig$4Lzud3CwVd-CJ4e9Uy3-CBp`GZfH+`|V&(SG zM+t?3^69{g)0>+!4olQO5jgLtqZ#Wlui*^3(#(ebp$)m4k9vdbbx~^jXv5jSsfKpN zkg7BtI&@oEgCLX(Uh0?SyQR3C-(V?IHx(Q3h2#rQb2Zdh!L`gG;gPcf8jU~Or-OeX^b!W0tgpER!P5IzQc^n3?*Mf zSPPZ{?|}30IA5&s;Q6A>Ji*3q>IpahU8R{{^_;EI^I!4q*EaQYVptW(TTIQY02BFn1H zeCHlpmZae zul~7w_~(tsec?8d`K@VJF$Zc*nYY-l%7Dddp)#a+ZTxAhctZKJoI{h7Tuk2T5ykNW zw6!}Km4-+=LRS~Xz^bB2P~`A!DD#4$lGn9+kEoRrTed@IXL|;k@Rrpgi$vHxRt{hE*9o4|7=y*GzaA~m;fqEweb_4aHdwQ!VWqJXz-Y3Sv)y(2xDjsH^za9}| zEM24vOzNB$_?lrID*hW0?4d!^uSu^Fn&4l2qp1*ow5szzm9#y=M%q(^Eny2?YPRYs zzf3)@wAjMNkIRTDh`yuZ#S^+CY_CO^G-!&ZHtU_S);RTir7Iyvx(5{|3_ zsh2|^hsWPcnq0LCdZCgp>Vf)c~BU#%nC#M*WWPQuO zk!W}}8Ua4_x$o95Kn(%z$_4R^2oMz;qk)BBQLk$858kVm{Fz0I+dy~=56{qJN25%C zUKri_eyDy70;fuDM|J;wsGR8WcSzyE#eFV?w;w%Zw-b>S0!=`m3Q)gjS8Tdn!R{)z zyL>M|rp}!;4|PV6Kx6=kHf_>}e0T*aAw|!1%<8MJ;)=hFGZ##x#yJF5bubN6^La}J zTC!$*tikc@rF->Ztc9#h=>kKccY#xXV2ShIK~smmPiF+c(`zNR_^+*J@HNS1QvpPcGW@!UT=|Cc*F zRVwBAN1)8YKVs$FTXPF2XI>r4!26+u!_Qfab@{0^N=5Z<4`%{g7kE7&u}b=zpc1>6)dzK~-mUSEd_2@_q&6`XDJ|%uW^8SkPRH zEC-gn+k8(ef~dH~deEROH*+cG_jL*b@*>H{HWkf@%KAi!4AA4t#j>G)AU5Jo)015H zotH0@oX$;@%d872xEfR3n_EYD3fZ{2VE#1Y^&jYIW`d7>xhR4i;5G^aKj?w2#5qL`2{u1E+M$6h>k++3e z;3)0uoxhduW&6}A+7~vhabnRTlFuC_{*~GdWtV6EM)wzb$Tk$#Osd|9q|z3zp$C20 z&qf0C%i&*MOjMSCL(8;yy@Z3UBv0Qwe|GSX#CKM&C4D)ym-dKgJ?evCG3!MlBf_32fpEtI^YKQxcpxXxyzZCV&tZS8w z^|qw*KuqU?m?o8f%MGd9rG<@Qvk)s>Sqa!7MrI3BQHs3;4rci{G4q}kYwgnF-rn;r zY0DX+X=dmHt}oFUWb5jK$yUTceuZq8Q5 z8eemCHjLP1I>byggK<8d^fOZF=A+ZX$ena3QFg9HCROp`)fru( z%sWPoU2FVZUF?|ocRkn|Bk<}ft^K1tP}G`iA$sUv?z-uew~Wf1=k}*V^ioxy|x@#W5}p zAxi+7#sN*22851pAIAA*7KiA{-Rb4YoJ;f-`r9nq)Jl05S;{HQA|sx#MoMbcF`q^B z)%9#DWDPSE+P6+{u`DyWMK{Vt56(N81pH>zpnU3oyGZ%5QWqg#!6RJo4|ugq-sT_k ztE``=+sVavd{u6L_gyw@U(45aF*^Saetm~c4Sqiu4m8R?Kin-YFU_wJe=Zs5=T+11 z=j5NgqD=m27~wcIBGNSZXPFQA_dmJjlxw;YBRx!Y%YP<$YkB3bV)c< z4d)j#5kZRfKxE-siT1!ML@+0>@bhe3nQ%bZ<+4yb4o}fNyc=Oy19?<=cUrLDshg89No1 zZ~bizQWq56#fS#oPO939(2cGdSglu>k>x$WMGFFzQm$uw-ATdZ;8QkA2b97tk`-W< zyZ4>Mb8E8^e8l&!4kbXv0{r_8sVXDVGIJFx+p~P%jCDn!V%ErlOU>lRooH=s%wGk6 z=?3b74aS`OSljB+jOidSEcJ{jv~z*)C}{l==;z<`jEJ#9LKok)J**LJ6S$XGJuR?i z#g%w5=Z8AGm!R$Y$iQn2b;5olZqCY0Uq7d6u{LV)UbkV}dS=Q5j@053HNBq=vN7f5 z0B30XxMz+$yn{m`_~M#WAK@YEJAHII!baeQrh3m$`B2a<&P z-y-(5{Jygf6&JGK47(v?Mbp0rqW(5M&xo@YjIOB0ul3%zQZ&NtqyhSzS_HIzcs<4X zd}V$8RaQcv?USN27&Mc{D@MNI;+JM%+hmm8sC$7mpBwfpXe6!VNh|Rt1DdAq@Wbkw z8@Xm!I~5itnGx+I8^pk{l&2WBA>dx@ecl-AY&$wFdj)I?(in}4esNE`MI{VTd&UJ@ ztv{{89d1j_Fqk51g7Q>vQxEG$L09HhOrjEtq+G4bf&_ ze*qXT^D{uaIl?#FDo5!3>?F*Rb&oq~{dPNv5mMbvVd$&A*)qLx(m6OLkdQ~35|^LB zCbF4uX`#lL4eSbnPqkbmTC@GgdwY5d7t%?D2xq>y4z?jdsqg*$l1!*x|+K^%L`7|)aOKC`3O?Cz%xxEY<B&|1^fa%PUJm`c$mP6_m)teAWMgDu4<9P<%vr> zGXqI6OLPelQ`riBL>;#!=Ej`z?fs$yR69t9bbXNzv_BqyTU1uK$F{k*9pRrw+FA=E zu9)$e1^hWPlgYBa?OstV^58%r)*Yvpo;R%9pYH>W&T?&ce05xtH?5?T^?i&N z1^R8Z&4FZ3`!VcL4S(*+&{wmSW6OjP)PPiSWpxv^3`u9qT^46-$Exx(&Zo?I!KJM8 z;4-9%twI-ndW;B*ez0)9Jh0xez;RzfhBlIJAS2B<9cB=(>$3Qip?6JjCLGcRp&m_! z$aYy7p}lS>DLPz|g^w0VehImW$bt1L8=)yNgsX-GC!8aZWwIhUMVtS$-_I$0vJsmM z8!InSpkZ_HPuWG@8;HT|YX@-~Li^wd&B1p~a7rb(H3kKaAq$P(F9oXei$?k%M2`7N#FnziVk$h|=%^sz}Fx|ov+0;yF zI2mVuYbb^;fVlPK&QVP!suhg-)L+sW=^ln4zVRW$rnRPyHL*I92-*B zXg&DTjey%loRtn!>`X=OS7!PbX7LAN49ycWYud{k8G1r8zTAHy%k-8xvTpt_`-;3W zwdv@{O3F5gRpkx97B#_ey z@B%~j)a5H)mJe^bA6}aSyMRooJ9Y$=Jn&1h`lg$lq{EL1*GXO)fn&8*{r)QN_Xk<5 z1-FV?^RkG|8U?6Duq(Fy>O4SJEnj=j3de}L7LIdF0)Mg#S>?p1KIqcIe8zbnp{ zxUVXEf#?x84RUeH3kD=Hu=>e&eJFEEMp!Gv~Kc91#C<3CLGazm62z zf9dy8q2Gi{&!FF?J9w8Met3FteDb2@L1E>*gRnmY`a~dQQ;W!z^q3FoQ+q<5NSeOR zgy<4|S|-XE0DWt0BUk#AeYo~O0tevw*rbEXW>=8wau{NDFO?~w(D0H_3Pm@I&8-cm z3kmyKDp@K+S^z_w7Br3^tL~8#%1BoOf0ESlG3H}@R*cSz@f=(hR{<)6kzJWZTf*F$X**nld?hcnYH->GySykS19Ns}y#m7EoR;`l+D6U;khEvE5`<7F$aurr zNKR?roP4=C?$a>viJhd~Df^0y4Swg))E_Q5a@qeD5(G3{EGqFCz`e>QVb zu|uGAS+EbP`m55wxjPuJF~`9m`cdm#T|pU7VkE= z%rpN=z`EbX`h=@n1q&QH+`E6qEd$&gvT~WE|3uh0KIfY~N{YugBA7d?_kYLf!JH=o z7V6#sYQ(O=V*>bqZU_OJdCY+De}QkzPyv&Z%JcT`hb4HX6bmti+I?uZA>m}fU3m9h zbU%A&$>;qA_7AH*=IxdHQ~QPoqhZz%huqMOhTsG%BvTYo?I%zV8_YzBrB<_BS(}#o z#G-4&+S68nGn%iMItXBht-mGC0EBKR)Mas+p5}vm3?{cAi0cw(6 zg%*hq3w`y%F0A@V$QB0g6PcY3(s+b|dGUpO-CS(TSeTkBXnTnHZQ%g(zC;f%*Xz*; zq#n~{=)8t_^C@`MYhW?NU)HQ5RDJw$r-HoBYa(+4$$@hR`Vu z9))k%Whivr2v8?2o#Hkee*_4ccN+jqe0Jw@DB3{;JS8M8%}=TfBk~MEexaE89CeP_ zu!MJz)9fOJyaSk%Cruz}wUNcTomb|<3aY5ts!Y*~bq#~34~7q26r&)FtmsM19+_Nv z^_sn6EqOKo)dg#hlIE+TpP%LY+LsMSIfB60Qo@5Ec+7Oo@kBF%fBnv0sDZ5T6G)8O zGUxsvor1Xz6l|IgTTkGwM4yND>*Ec>({7R$0DE4T6CVH3z#fOd{$gNlgs`?ut?w1A z7Y2n@Ses7*SmyWUe}9CqpvNZ)*8b;SW)2m~VCi6m<9ZAnAqMLQf@MJ6ARYmuNbOn` z1Le0+d^*ad{Z&%nq7IX*`J4Bt`Q)p=(as@-{~za=Ih+Eq;FW_k@n<>M95ny_V*QE1 zx%toI&DZ?j4*qxR$*b3ITFHyf@hfRpu93lm>5hV#UQEW?f7-%yl#WUly%fwVj8vHF zDTpP;?gi-PNxyQMpOZGnUW?2a5d!>JOvzityTzx{_u4|fgPED|;mhxx{6qlZTCsUB zdaVJ5*#+VG-5&Jxth>9ruW8fn;fiLZl;H0^(Zcb>Ox&!Q8B;zqH^spqt z$7$~)V+6i@e>i^g!SJsS0vFT|=Cjqb9=|c*)_+L;J~;(#sr;1c{O#4j`qmGkK&4L| z>?wI(jPg|yOx(k+?VyVDyC_g2&{nj@G*TW@o8lJntAbn|e9~FEBXC(dp*O#<{9W+n zJ!4&cQb&{*AXI7r|E<8u$_OOV^CGCo{jPgaFk0Ive~80xPyJV`h}%Q+DO64p%>hrL zyr2dK=TfUTSz;sDQG6`kAWy#oU#+Ce_8*_kbJ zM`Hs3(~gae!V5~J4xfdwi;P$IZI)i4f{$wQPcSU$o8S2vT|=(vGqP7w7DRw}UAj-8 zHRknVe=zj62H(3{b+lzT?7-|+Wu!nh;D*b+Obzlb(0Y&zkNjTOXiJ4-F_rNsXe7LS zs)cwU)RlLhzgqvxtk&jOnOXX}Vby877nxx_`I&bdARi~{5c&N>#;3KC-IL~K%ZTo4 z0EfTu8yoP29v(V?MQDm|%00>gYGIC14tkYee+KIVW?Lj9HP`$_$B!`x94kw#`SB*> zO4njd&iMi)ZO8_IM$mR6a7bLM2g5`be0An$v4$X*Mw?hiy-}oL$x>r9s3VE=K2}^f z$2PXrx6wGyrMrXFiOp0E%eH=oPnF8td+EcWZZvi3m&nK};NvQo%Al=naCk+-3afIP ze>yedGWnJ#->PYM2#x$tyJUc{2~k(aU?+yRK$chh zs-^>{$QA;Wo^Dp;FSozij`I9D7hk?@#K1582 zj`j6GNohFDN%nbMVb;gE;X&b3<mRXt7R9r z+dac(i3%`BGZ6-%*-dQMTxDC+pco!P`vJ2t*y=kC|9zg>rQyR~Ms zMqlLJ!y~HL$*~xQJHW@>Gs7g4tn3vd^e;o>-80nVljefd7hfLkcXyADPi~ZIekb_H zW`zoClM!19u+e-6Ryggke;&qlZN_2vh8h4_NQ3%ChD$@*PkXu@33Hsyh`q$+ogp<6 zelf`8IRunFh14mNCjGw5h7-6JsjjWZ+%S2zxk1Lmc76dAROWt4M^kg*He<3mp?mD5 zBh zs*IdC%E-1Fj21I9rPB#&p{IzeD|$jgsjxr;H3R9KvVNQvm#5@@&cZ!BG(qGj2u37t z(gm2B^D>kULC2lFgQMit{^1+8Vw8o!mx2Cvlyst`gb9w#9c*HdW3YId86px~vejae zeoFHJD!>JY+jb;}f9a?EoK$=5c6*!E(%wHrPB;Z7qoHdgyH|lsl1Is-M~(koQVHT{h{pb;{a;5>F!P1;jW!MN{-+5~GzinnoZc5AO>b7;?&jyA_ zunYSLi1ce|$n3BI$DZ;AP?}3EBm+DH0P-Y|<|Fa~=oN!vf8=%4y(~W7t|Mp|gAO?* z+4URhXt!^-j%O~;J!T|H!C{8T+Y#A|V$e^niZY+My0>58&e&2IoZe6gG10{b+e}iOJA|P=61c@vKS~jB7YtVjm`MYbza(3nhgQmFDBVtcYe}xVn!18=zAdd+=R>#>TvWlzX zYMnfb1HK4G2CP9cz`-=ZEY}%WtIO|JwG}6jG-pHRl2wV(sex#HvC{HmWkJ13m>p7P zMr!X9-^MccO%2aqP!Glr5g0$z!$3H^WQ%O9M0uMDPQ`V~2ob3b7@&y6?wZXfZrki- zR~f}of8duZdb2WTDlfVD-27+=efZsEi2o(`%};qbK}!u<3F!k(GjJT~pu}fm7?00A z{%Znqju8TL7Uc24ch+ouBD(XeF?OOO5ewI^ zvXB&6Igl9yvvLvxv9HXK`dFt?<=#?p$5Y*UfBoTY!^nWLDZu21hLy@@vK-V3Y$!lV z3(5~{276LmrWfh;M{5Uh$Dt7_NLW=uI+zt0sS;tLHj)M~7)&nnq4)lZwjWRzEC~x` zI|1e-S9%Vx&3M`1gMmCR@-btT){@nk^e68ppR^qgD@nx>(3lk<5FyG*Lv zf05=0D3d(PSvaf6e|#vLI`DiNFl2ldozs>dPb;mDuClpp3#bDv$!F4v@-fcFZ@XN75xL$5G9y`eWy9=piYso%F^Vi= zP*<|mo4>8=4TF7N@CA&X4k)@7v_6|nd9qG21tXNAZL^w-J}&S;mxyn3g-tEkf0xJ( zaOuck3rx3IB4|gC5#(q!k{6DH;K*paJlNOi6cc+8j@-Rw%mJ^!hud6h&eEZgK+J^k z6oP9X#6FZkCjIF!z07-b&&K*)O@sDRt9^Oj?pLKQWBHTZ2m6O7H!W+_Q(Und{plzN=3)?)eI8d3kxLNTbU9Qg zH5Xmbp$8x=_NF8)hc*Fn3K3XUIIHX1UYqMs#PK zGbaLDzYsIv#@3uR>gi-Ke<-tQ%}hFY0m%9!b1$?uBve8jZY#20MB=s_Xcny-!LHgd zGDD0=SfDl*fQ&>e%$!*0G2}RW7I_xyBO>kC0BVc@i1t40V*~{NShtqI{rQZFET!!` zf?_x@`Sf63>mO@M|L>Xn?q$6JMHoS*P0WJ?erDZi$qa~8Yl*bPf5=1$SQFtmkfqx; z{E;|1f2DzNR9@_e_e448wuJ1{SZFGm!c zGbe=o0&4G(ke@pChJ2Ce6@5m-DnVPd8LLUTm-8erq`rHvc(%EbxThRSe#&UEr>S_j z(4grP`>v4N3L6xN4Y3GJfhP)mrVkNc6!>iJ+~ySXFXDGQC^;2u>_xI2`_Va^=E#Yt(?im(!54JYq$Ac+(FiG<4=;h0!x3%paw1z%EO3;tlSFByee`<&@WZo%<9%H}T+wLb%KElDFyjxMrv~#Mc(w=?1;ssc zmqw^RoBv?oG&JsIB$OX9uc;W_-1wZTjd+f;E94H*J&FquE8($8A3$rbJO7`(cWrLt zND@UqfA2=@f9Rpk9D{NTgZG1BPM8)Yns+QwLDEv}@p=_apebSn0=xhyiE?Pao&S9@ zvtC)R?gj|TGdt$)$YfVlR#s+KR#sM4*6G0u8MUuF&;t1Q$ifr`~% zRu%1aq$P}7C6;_E7{h?#tG)ADJe#^NnFYZuRsE)?H^@KixjBo9Ur` z|3Nv1c1;H7$~XEO04eaOc1>?j#jc?gt7|Xvi3_EY^a}^DyS(IIr(x^^&WmYTNjvef1*%N!7Na;-)ME}24(VkKZ`XXIVBxQjG&M-P@DK)xnxL} zxbh}_n}iVlkJ*m2!F!F=n%?-86W`g_VLpL|E_`~9vH#}pBj<15J}<~9=Tz2tf92|3 z_+O)$xQv!N4QBJ!wHX`ke@~@_D|*S%%hW^h9QhIidLozc8+rsm9GKIo_-v%ZKHVW_ z2_`2HL2}X`H&%9k@AjYFxdgfE6RMdNTSbHz0U}Vl&w1SCIkbxSXb95#y+|55U z6i4y(DweO_h}&BevlCw_f2D^$f6?SZy0*u4f6+b%>VZTcYoV?IipUlE z6)k^pNs_(sNBIeKPTFyPncYrT;v}b-I<_tCj}52cvc^pXHhcE?K~7C2;t7_u3d-6A zWgSswmD*<`)GuZCaO;JRgRnQJv(R~ts%B$_`-z&}nE2(<#M++MByOzSe?CBPK!R3x zzDQrZTaWuj1PZZ%q4?=h$EA3xR^+!1KA4JDyNIOa zn%Z6=_^N-^8>zBIUwO3{>Ef9}s!VS>mKHN+vhdG8=`ovCc9$S|f8@23O+S5%y672RM3zHh7^eiSI3s89*2hnhhK=d1WQi8|989%<%_i-|d>cVgzn zWf!%!e#oY`GdF*beHT*#?HoYoGKiP@GvLT6f|N}zMj-@#_D9k@cAxZ?M86c z(Yz_(o~fv0TZ@WNe>*}1!>BO+UId(BIyN*4SL*TvrNqWSqM%0)ClOu?drmjL;%vGi zt4~F>3M*ekyU-Z$H+iv4TCD(0ye2-=2}wsHO?a~UI8XkJ*`MC$Go3I>-aHf0F2cnp ztx+LC@`*4aj4mSf)j%K80D+#zs2T+}YS^h|bWxGA88I#be*xt zio;09eN$~!$vSp2h7>K9qNP!f*<)FSDqSM6cMDr6Q@;^{UuXyn$y(@xrJTr7)rC zV?TOt&m*67X|THLnUyL_iX+5|1NM|DOhn-cE>JNyf23bsPgBV}uY#G7@;6iCi~4o9 z)EL{)9CJehzosp=g?-u|hS(p5m}7|HQ%7h?{b7%-ZI8JQsXy$oe?oigH2*KI1jn6YsOVK;_&VTzZq@&%ca31%mwvv z0~?KBf7AZMO8dh~`)9S%LPnE&DERxCOYwz7%-{IJLFE;Vr87t4Y|CDf@ek`8OaVjd z_pq1_wqqe3{9zH52(p=MWg^XLRyLEe~%O>MU2y zA^cg(-L#IaqOW?g>{-SvVX3p$br{hSF%?WLNQIOYbeM+i3H{^WO)2(2enkukWX`ZNNU3&lj=|deyAazqDh<-4q4+t11=fz zn=5>rWz!*lq}C72WkRu-%M6clF8_NjLwq(G@||d{#{4it7AU4gL*{tkn7?e*Kfu;p z5i7f`HP=o;X{~lLUm<0rq=%3xsioL3PZsi%UfM+m|LjY<2>9G+ zY5#{03%tjEjyDpySpAJsp-E6>SE5q2MmHl=q3Q;kuw26~pa#WuK^UWLSO!apZLot1 zIEEA`Rjy(gh`iMr4SUH5qjZ1MK#%yL#$0R~;FvWUu4NELX&bh|1M|7qHo!46e>AG_ z`GnF|ZaU_2aaHC_?{0tP^7(NS2WWNPr#&}dR9 z+~wVQF;1NgT_-lh+;>hUDC|T6f5LtO_DRK~o{i2>s&OI{sf^1RVI8E1T0A@P8U~kh zm&Wp18vnie%>DFnql&Vw_}^=LsT}&r?4IKYnY@LgI0G#-x(Zf_s^3tWmNmvme=l0!Ymk?h zzr!d+nin$_pXmJHaak1=Hkxa8?(y(kV>f;+Y%AW~4Y$!(c$rSR|B@(Ig9$xT;;3Jd zS2vhKFq`otf(gd=U=2)V9?U0Lwnzq3o%^fhN`S$9qvqZnEL}H?e3a{lYs6-qDtRis zWNoXmL`1Js>dp9*c=mSpf901XQPhF||Bx^4@aFmD?NqVqvYyv5?~Z7J{6Jrdm$951 z0#qFjd3T>;*OV4f24uV`+&h#nD^n; z9C&^)%`Jyg2qo2E-4(?og7+7alV@y^$3LP=gi3l92-5e*RNM78V^~JpPs-=MgguG7 zBPk)6NK3yK$xM^=mtm6w|G~*-&s|32I)6D=s72;b3_;Uy-I?S+v*95x``~lx{GM})jWjf;e+Vg@R17aZgP2Y#q3A2| zYR92?v|~-G+KtzxZ1H0wUxmu{078_eBC<%m_|bxB(Mkjz)1ugMfwk-TC{9(cMYLiY_l z{vl^SW#`8=fBD*ehDK%TM?`6RIlo=y_t{X2o_H_Y*Y z^Lb=vX~C)N9PnsS>W_|FU5b1!bP8o`PIBjw%)Sy-Gc}d@Vr47UrFE8QISFR3bti*c zPbVbx=)wE7E*&|&vob#^DQiw?d-oYA%!`O0YfZ|be~Z69!oxSGoesBm`W4@u%H|Nj zqmd{O9y#|miVfd<7`wR+TuG6iVBl`H~*s?C;mz`Ugx8>m=r!V{iXg1 zz8R?XPj=~@UHaKBUEbt5UMFpJ8+HL@@1~^Xm|493M(Pth538U5eERbE<iFU6ZDIp3^m|oidFGULm%2%zQO_2ydj<9f67%;=*c9@yporcb%%yYetmX%4pem0 zNnI)kz!u!~bg`4J?C(e&(`S|=&FR|Y)Yt2+Hx|}=>SVIEq3>E0L^w+;Asm`7Vnwyg z1pzX4@?QAviKtTcfJ#~JL*E`*hX%nEhC1hWaT7b^chO3+-RZ_Hlz3J=U31M`y?}VO ze^^z@nk;Y2(+t&eBIm1>JCITj9 zNMdG%9JuJIT#w2RVZFIA^;x*@KNt1oz_&^LP3Rwv9r-(A2r1J@fIy9}*uH4RLM{Hz zMpt*^JDmQlV%slmw+wrvBk>sC>Bs}be{HB#(8kB1qtVd=f!>VzBEO!0$dxCiR)`C~ zBojqD_a=2Aq&@yPK}zedPu%biEdA{T6rs+gq9>II(?{5W|#9?@{O$Y zjjd%w3*R{eh^=x*w06W_J1*!Qf6L6@Nz98LoIbmjE?9?hqH3ibljA*=AMO29l+YEG zw+K@c>idDU_c|I})fDJS&!*EqeYO3Xl~g!cN#`{VJEq*-)9c`_l0SPBs}$H*x>e7L zRF1@SDnUS0XwG!Lz1(12alU}f4=#~I_e=c z8C0F1s+|Sq_oM}K{6KgIIWZjnDy}RWj7?a8wHdzc*&7rzritRmoaG1FF%|-~O4iP;=x2!mC=Of2^$pi92ikROY+c zd?DUhH#m>yLa(l}i)k+Xat7iO80l>7t9m))VQw0*IOTCJLzXnW!ny3+2xI|uw-xQA zW1Yy2pht%;gxIMslg88h9bR=>h`YNAR>epDh;sf(qJru2>$%PCVuAGHWK2WrvG*c5 z;gZ4{*_W0~L1>x^fABU5-0`|kaauzLAz;!UJ_SYme)A?;9gPO@G_y;bI{j-NP>x1! zPhr1W6OTQ5@L4&}%PvoZsEV|!{igU@EB!`2kr}wlo9oY^P(yVpq$ZeZ0BHmv#)^{dBI(5*bB4g%wuaU_qavO>ZwYsImWRbHFsuifUaTUALV z2>>02i2b^yIHo}#Cit*v4a@4Ek|&4<{CD?1TgkWb>z(|1XMO!Fzka5#yUBkhje6G| zwZH^xB1N3ie>3X2-D@KQ8|x}43Can9vu;n))1>Bhec8@eHI-l79B|z9a$_ok}Nv1 zSac*=bX3fuqjP}?*7R9)WU=T-vFNCbMM5zFhmL?le@DQfBjC^xa_9&-bc7r_ayf)A z(yOP4O^Pz_!C#l^6lC^EP)-Uk{5MVRr_U-9&FlW?N5t^Qmf7nq zQRB&^>)Dc;JDB{~vQZHzcwNW3r1T@RchejrsbN^FIeh{(e>I=swW6uGn{4-*O>eF; zfPI~VVRNERn=u3duK>FY?vLTt2uwBF93K zEhrBiY9gY^A{$R`m+m5iY99zuXPrJ*Ip~h^`B8qc$dc>%IG^qTsAH6_Pc?wK3o`3~ z8qJqA8Xauy?`i-vP-i)r={lbYj;BTp7YMd=?zT;Fh+BFWgW+q2?O&2GZJNzE%KWN=g8;bYljjz2aYW< zm7k=z8YO@1i7lWq17Wfy>2{Va?n1-4h4p$a5)zR3&64Ze>1uK_y~9E_$1p%P#T-_n ze=EG+pMSbpfZ3jp*)s=!NtSg75sa#Z*}{>b+yK-&6abL%WF+o72;1JJEqjxg-aAjS z5fswh47~3^c=2A(`Af%=SLh6y%*27C=tZXS$83z*0`@)g+jmzKSOFbeWgp~}hv~J* zF7Y*hOk^N{(&fj=O`c5iORBp-r6W@ke{g=@YK9)-T>pzBj)JjJbQdW4EQ&sRMGm92 z%9uIKmdcq8S`z#Sz`E<#Yli79p!ygW|HsJyrjR9rTK2HoXSdpC0&>2CC0<$Z2s#LGK@FCM+k{N`U0+972jj=_-4lvm8_?`STC?Vl=Z|sBXX2uYhU|%9a@~pK>V6Vf1D@yjbyIg!SHaH9tg^{ixdE;`mF_&$)%|Co%f=E zYTK}+DzMv;4u&(K6y-s_{7e4Foz;k|GK|smDyZg(7tVAHtID}{ltu{Nvd3(SLa%ZE zH+{DCqqjlTPK5J08N*_-2|D~GY1exRUB)>CYLaOn6)r0M7dOkK_F{tff6Hz#vl)p7 z4+;~%O5X#{cFV;izf;B|C(hAM&y{FzL%}sP&ruN%D>VL!&~_bn&$Zo>TjFc^8jNT% zD6~lrI}8K{emfII7;1GWljf+~6+`GrR~`aa8E(-# z$*UY6rq66qVlQ`x=eli4_iRIIHO756h274d%x49t-v4)S=Z zL?sP35kGd5*Au!JT)D+h*^)Ntl^gsGOjf+Vu~q}EHP=Dw)qJ^DfBn}v&~UQ4D{2#% zlE+H{LJ>R8^(Rllpv`jg2m9{NKDDNn%{F!C7FWZ_tP8k~Y-kRQkh(5_;aG!32$GrT z_o=K#134)JbQcD6w>F^9VL)V?axl_NmCh>87bExa)iEtlhvov7v(8vn6)ggq)Zc+U z+Vym~jD>HC&qRkXLI3=P=?Yu9!}EUB4Fj| z&8#^5T|!YUR53L{0!fx87cfJmiJqAt-tUqN^M{Ta@Q{NIe?oQK1Ozhs@myMXn{F>; zQfIkUJur!$)hD^@QV%EcGed(^ah}vY(dF6g1y*22vlC+;N-$ZFgUqcP=*D60lP5R~ zEIpo$^H1XV-hIA}2R|>hZH!AGBflgf*5C7!RahW?(f$2uq(p(M(rCYGO-X>7?n7_) z;`7fUFjB{_e`8KS{j$Ssm9d>gr~|RTFcZ-2MDKg7mVkW%VvGnFyOo#`v|QaT zHno5aoQJW3@n>t6a0OshtzrC$Tg3QN%_^?MLElU+ZRTEiD4KiPRFvt=?>`US7iRxl zZ((wFbG1lJNIdVjrb`9yueUwvDx%`%pV%H5k_fEmEL&8BN(!<>^=z!`lCtvAU! zS>N2If5Bk|YL#1ZA<%(4V}WWVZ_TP7bIqcHp7a5H@n(Ak1~0=LUJ{G{V+Oj#TY_}( zF9#ix{xvOJ^TS>;+brk0V@t_WFZwUogGaS{ieFU$Oo9Ur0}R|i3RbKrcvAEj)$CAE zMnn4+Spdl9@*9xgfDAhx3-5z3h!IP8y`8e>f7W-V%YUQkYffvNqzu86Xm64AW0Vg= zZ!N*bpxK3GAfb1!_G0sMx%UpXxHXu>|7$1R+1bV0@2M}b?0DOvTm|f2ng^EDdkT2- zrL3FqJLb-`j3s3(&bk=gY%4cztRoXb?j&5Mp9&ji7mPVpGXCSrTWAMZa1-qUuGZY! ze@@5iIvZ-!ADbHDlQlsCLFF{=Kp49st-e=q$nF!E?JtitXLNl)f4D+oE#J3p6tV70 z-P7v(8mmpR^Coy-;rLM4iYfllPF!)pC<=NPSiE;f3HLKqeK>b?@AdIBG$6H;eg) z35E4tfMKsv#);=6G1mpo4i>wlf8nm?AG3vc`3>==I9w@6fXFL?DrrvMWJQx{2H0O= z7WK(&G`*#sVWrHVY#i#4o^+P2pe}DF5l$tx|2NWkn5h_S_>GOP!$-fnH%Xl-=0Mn@=kq1Q> ztyKWgTj??+O+b^vz(o}#K^Udt2{xxY1(T7r>Uecio5mHJKc}F@+2}4go{bjxlq>>K zzb~yJxS*0t-I!wU=CfRe!o~VH%uOHa_j~q%9UPE)h{-aPRg@LGf9|>h;enj0HkPBQAiv}m!g@vN5?N4%n2=yzLfzpQIj>CdlSe~~8RTf$S#|GKcA$*h}Pqk)wF1;#K%RUqV-2X$wo(JeH*OOuP+ z71$L*rz|GR_h`b9g{PKxeX+qaCO{jJ=vuWd^2@n9OnSSLg5JmV#9~6XA?||+{YE3U z)tl~A1Cts;cQ{$fw?SY92hEq!3z7=1&2reDJxq5Ru+!f|e+{o09$)LB#@BMkXSQ2) z*l@YqGcd2nNJB{z?~zJ_>Pgifs{It7#RAko_&>URhzMR2!tQOg>af%PB70}s4WLuF z>YnUwS=iqyd#~ojb@pj;eS2+D(lW~NL;fL~-r^vt%=EfO)9IWh^$4>+0tz_kXoCR_ zN0_^r0_-)De^Fh@cieHOkWBLr`BYs(5RT2ASENFA*|lp!o#0cAv9*FkQkwi1M1=ey2^)cyf7}%|=@L-c$O zHdUk}&&reU$K!T|nOfK(nNMOH1MFgZUTr7|0j-Et#o@;g+>8|3@cqI}>J$aNish@& zax7r7C&j*aOxME2RauysIB`@u(P9LJ!Cb^CE)rt%El2>9=;O?>j5WI|aYXcu)@ena zXk&F*f0+TI4`qy2>_^(BYj#D3V#OYU9vv;&*yCk|9;KyMvCohJxJj>caH0A<5RYDX zmY{M*tgaSxtCXxT?dvc)S9ul1x_J8R@c8_UyDI7T$B)lex9_v0c9_j(ce{@tCvUDu z!06iN62>*UQhM@PhBwp??`GNcWQ5nh7q{1Pe-gZzFT^4@2fcyr6q-c@lPpDiUu?QE z%TCZaD=;;UmRGb=(R<%xn9H>Em>zIBMYolF2Ua#ew=lrI9zX8%d&!5%Vnvooo?SnF zoMQ8pxJMYnM=W*kU_HCO1tQ##KOfeSOIU|5K#ly#Q1^T3fVMqHqA0rs<+@0oPw^(N ze@w}2uA-esIu~sz%*-wp1(%b2I!38{boT6Ao);vCKZq4uHdd}`?Wq2@e|37=Pkuws z`cv#sM&#|-Rd(pKSEo4FtZ3+YN5Be;~>2OD8-4>UJXSa`7OBXy8vw)C-E@UMgY;7>x z^&p-UKI!VgguOZg%P>;!1=!zyqd{3`PL>UpNWOmwVMfL4pmuq=W!yyE+83YGe;5R! zOq3#4s7jSsVHu5;hAw<|_MjD%%7b>hjWWbklox3#q9|%_8B4~R5SkUmn)#ZygkPyx z3-l_=Hg{-m8Nm_)DiggDn!e+FOUN3)`^l4L99!i-UlUu^>;bTCM%0F|#tW5(s8UH~ zu)WL13PZrCJXpKSsFqZPzM`Z#w|`Z zvyZHVA3HqR0*clqwupqfVns6YqnZc6v&fE+XFY`)LDs3H5@cOfFd4yo6PG z^s>Hj0~GPdMYJNT^kLNYQH@KztgXEbl`u8OTU$YuyE-b+RaLJ@R(53ee-PLf&VYir zag87Bp)Gej#rIU35VBRbQHc=h_{E`uz9UnW3}#T>hDya4WS6Xn=S)@b)8|p!L$KMX zhG9htHn&g0W;GhND$=mEeHykr8k$gTeYeJlDUV=w%AA;9^{$@sp71zKAA@I) z5A9Upx{}J5tX~XtJw?B$f2#aqds$7Dr$Ay@QoSx?%oW1bQL4*NbR(cLdR8k7RhIHv zoePRXzsXFWN2&CNSJ`Yl)d|Si$%OQ$MxqBYlQ|tfE>rVdsJyve|Ll}{GxShSuz&1Q%U z#uw5-*@f!h=5}!d7%8u{PUP--Ya{Map*W0U(1`DvxwsT60bRFy$Fr+^fr-9_f}n2* zV%L5*n!ko7Cqlr-e`@<)_jMIZA5bNo*lejq-TqFRqQP27y>_gQ%RqyoOInf8{q<-#&W{die18?A5_JOo`LIliAtTToS1M_SpvzaQt99o&{*-CkNQZeJ;qk z_k1!1%-Ivv;>5<>-N%axQsp?e^flZ%>ITZsD()<(%M-+k>pN0S z>r`C3rh!z!(vvPmMt_)5VO1FnFXH5FRQ6<7>fVkJ0F#Nsy`WPW#mWe>wMJ(WLtOtw zBI;l$3lsKmfGAN9v@0zys)a^kqHx7e9Y!EBe&Wr>IxkXSGzI@<*Oz5$TgZxou0yZX zZtN6t&rX|xfA*arPLaFecZx$BT0R3J`zg0VU~8bRV|XVmG3r={MuGB*?*&tJ1xq{= z+^Bc)p9cQxyhI_^CA}ag$HB;sx{=2x_m0`9xOz2{5*- zc+n^|rz2~*@QR|MZ~bi_wpkUu^R^ey&dv^w#A3zIe^g$oV=t7Uon&{9guUiixUtsH zpBFWEQh++b5N7p*Ma`@$7q(W}rd(K%YfeX&TzExMooD^c<-)00CKoRCo#24xFf@?%cIHVM4~=XhjbuRYEa^dtQG57bwx@M3#MS$Gkk7u z#;^(AX#eQjNBWi;Y!csP6o>=8>YyBqnavrUaGK#LvfLR3pQRer;!WHdvqs}v3k)GR zd#vI@`!G`Qtq&?R#Y}_m=;Cq2-@!YS55`F2e?1Pc@_e;KRoqPuLv$Z)e<&TjS=8ma z%9yIZq4e%5;UhEvc+J3ab{bUO4Rd#Cg#0Y?g*#{U9aO2u$%GQ?9jH)a}B%Z zbr#^gRamf(biVj-Wh2m_L^8zb zyQ2F>a^Zk@P^nlm;D1B8u-tFklnf5I7VIq~9d3mZZ(-nTKt}9FB~qe-2`Vx#`saJDc+b}6uK+@|-i&2m)+5_`lt8N1vu!|@ z_3l`{6(E*j;hQRP9JoPM3Z`Pm*7_Ik+Fr3MfGX`?9jXWWXd^B`&^a#M^s+q01eG^yoESfCZlYLS<3M7!TdwEL`R}JD7J2h^K0=q7@6;kE_yv%YmKM4ghwKF;o$s0 z{2gDmO&mi_RJB*@-{i+H_L?H^fSt{67o+^}>6v<|1?%EHQ~9a5fqE9qe`$oDy@qe{ z>}EdGwdJ4a93R8qlS`2;?xXljkxUT~R;T9EzW^w?EK4Bb9T!cDbLMW8^B>+QXuc#lYm4@K=mRdmnI*Ff>QzibR5Whb!cdR7K9*OKXD?)XR zu$#hNrGEF`9*oDdQkl?Idm`Ia<+>8BoF-j;)j@cT*d5leFWF9pe=NzxRX#-xSviSK zB_(uKk_%UeYK_IUYGwxFJrn-59+F}2TeO*0p4Q*d>Xx8;-%5H>QWI2g&MPQUAWXrk zh#>X)6YSUWg$lx}7DJm_1eSe2d7^j{jwLc?f#h{`0WB4EuIi}fImU>J$83syTD~$< zIe*ns6reKY!L^@Xe^ssYl{O=zR@!3TMmW1f#$u;eN?dHibdwhQZSMRwcV%rp`)#Z| z$KeM@IE`IBm}2UnKX>Y_OUg$q1{vI)Ybcc@piF~t8IX00rNH*g{VsAKCJ4P8ZZ}N5 z?!P#~<2{xxA84-thCq40B1q!7_A25dUURP`G+%<)VM2y%hJk}19e-DKP!F?K%|*Wc zIrTn$GHN6M%=`2$y?s5ww7zJc%@?byr}KrZRCC#~t1Sl)ko(|wwa#0~V==&+30uAb z^f=7lE%H1F<#Ey+;5`uyM*y&8*`IBH9>aExfbOJzKf#H|Kr-)Gbn;nYoBVa`mWr;{ z@2X$TKe99wI+!+WqJL@A%#A7kHX8QeMVq^O-U{LASl2<+dw3kvk^S`S^!zM&b#Qu) zU*y-H=JOjJPbl)KB`Ok~vWMg{r?otb#4(QZY3`mb(DQ>PARX6D6O2u0WsMbDYX!YBtE|*=D*(gnvQpbkiKSF!lKtj^K<5>DpT@zj;Z~Bg-WTT; zbf2QZuipEFYJ;%G(krUecI!8>=4ETJp=LO%1cnjI)q|#s}rRUTnMVY{HXr z`%#6@M0cZm@_$B`{T|<1JMee_3J1x2LL%|KOcZ6;skT#>@Cx?p7k98>R~h!*t$T?Cm^AYK+RY)=q;IVEW zi`Wpl{(r3Yk_qf;p8oCl<&kCBQ^|7~0YAE3V1{9N!P>rAEh5PfWfeUnGwoA^g6=Rm z7vcKW2BGftBwn`>{Vea*k$`0HM@)ZEDH~l)a(Xy@f=Mxx(PF-YIg7iQ2|ji<6HlQ~ zl4%P}^4*iaCMQ04bFbY{zn)kG#iRvJBka)ZGJo#5_c3$2+Wx1)4k$@DSUxZ8$MX{Y zPTtyiE_u8acV?W3HiSFnO8AH1|Tg~2cZ|8xizQ6OD zuD{2N^uEbHF9K@Qy&nGj!|(UJQZ z@>&O$W$ktXBMg~k)i1YJVwG%Kz^B6HfwPG(;ma_?A}lNFB3ANyvn#1tfgSN}FQ$Hg z5rPq4RfbC+7%qAy*j}xrpTsd@D1|wE4S!ih?nO~yuiY&2n~WZAq#QQT?z--I?t;@w zJWFiZN;V_^J0N{UJGqiM9O)*-Cv*9Zs`3%OfBGPt?d6YuzB)KRJ^AVXoVD=2A_V3PMDPd4iKv}WS-l#Zvm4lF zT5u#+msp^l13frS^#hYLJiil_Du4EIFkMYnx8q!QlgSU2z)K#sfrr^FlNs&jx0q`T z#4(?$R~$^AYroo~c=|>?E+vK{-k*m_&3a3d2|Y1|CwbxtHOzJiAcd(Wy|--v-#p; z0&D8WE8Ker323D-u~{te)XSRa1M||&CQFTl+d^tCZ`3MveZbPTpD1VP>dG$PpfnVim4tEV5=ZE4U5@GUMf3{%;fv^{&g@_hzOC*^p(e7k7k`tP`1_nZVl#Sg z&C;xz70~7T>%Ux80h)bcK;T1rwf&eDyJh^{b89ZgHvYHB>^~ zrCyBj>F_%gbul8Z8& zL?~WkvQ6EDwFTOBGdm(Wc|&5QwlkKLS~q^}`M~}P)lhd#{*NfEhvPjM*u!VRli*K}Rq ziU=|FQmdfoOxP*LOBYxF64Yi}&>}9wX}^c+j(9v0N`K7Ts&C5X|4BB~x^kgw&n@4=7w#4m5hUVm#tKtxEjbJ?bXNGg zO-HJy?|+!dRnc8vg7L3UWG~R z(kd6mN(LXtUd4K-)^|PmKc~D}|#49sS*Qr&0mxSSy zG*Bma7U%T2XG#wyi<*`1+#pkDwWbvHR{!DP^dv2>PIb>g)?s4MhYD>DXa*FtI-eWC zlS?lzrbAToK~qKjmrasi9%uNUm8T@J03kL{=vI*!SS`A~rA6!5ZoD65ECo!c!qGC*&K>T_g?#6veTbSL`S8W0 zuhp#iR@)*4WGI^DF7a`yhe(+EHSfZh3x78sijmQPWCx>#6i{$tkVp^UC-*g*)}&*sOrog2&g+&u0E_ zs5TVOMZm*43WH4`)_B*1ww9|1yYq)o4t5VpEyTc^-CJny<&OKe%1u)T1N|(RA%E4T z>ct*lv0^c75=zA;durFX^Kq=GNNkiG72@C-Qy*(6k9AeY`ijG1p83oahC?cUm}l4X z_xWi)u2ohnF7;eyyqtebKIY%R9{1f`zC$pcC(Ah=d`eIDXo8vAok}CTD4OXA5FumC zG8egu65k-FS8mhlF3##_c#vmv?7Ge)1 zwxRMAN*yQjEeX8WpNYeQKb3U$Ot>~`2))Jpf{r8bk9dfG-gt-#&OP-$f`43Mfi~xo zG_Uf-2(~{Mt%D|sq1Y_BF-0|XTqX|7n!EBkj4yB)J~kQW3o&%O3(G{X9>+;L*iVqS zbdMhK$*$+OVg=FTd}#`hUTyT%p_?Ev11*VoHIh`#z# zTCvlP8(>m$O8ikIv?l!sHTtfCm~l^q=UZBk zVh_Jk@zcp-G=+t73mc0xWcGW`2$(P962xS17>SCmnnr4lMRox^cYoynE1b(%BiS{m zIgrnC>ape^3-heuI}*gOv;kxB*qwxX^ucy4IcL8%Aj>D?d$_Sk#ct~>6a{)_?`$={ zVOc)mpC?6u-3P}%9Q<_f^69hF3W42FIh&#tvUp_LZ9ll1MRphUNCN>9h=GjnX4&;* z1hzlWAJ;Wl2M>;gEq{5IjPo17jXtB5Y+fm4CYgS!Hv>}P^Ms~30mXeh^@Rb_t3%Nv&eZ&EtvHBYvr(-jAY@#UQJ9k<|lO-~Yx4N0H}Nf65j7I8f0I zQ1^Oq1Jqdsv8XJOgkWF5_7=^HwIbBTF#mmiO9nL%>~iw%R)3so%6QdWLf7VB@sLib z+WGuPu$(1AFvL@dr~#*~Ymh!s4WOKoG}p^uzsxgOE>>#1QTQ`a4>q6^5XS_Wywav)q0B7`8O@h7`%i5(qlFQt5@C zW$!@G9SV)G#4Fyn*HW{+nJ?tigHa%xE78>&ukl9|qzWI0+);41)~VwfP1>LU;n-xC*3*%v1#XL1+! z66HWrOn*0nVIhGoaJxkBe_zc%<{u;rWM7V+xt`;Lpzgw?!q1I_7KfkX0_gIM1)rND z9=HsG{)p*y_>(=9tm>eme?&&N`2FCR7n|259mNppN6vexFl5EE-0DwvXQt?O| zm97g$Fkotr*9e9Sc!B+auxm!pP}sF87T0?XM1S#cF?~EZCKE`1i9~063s0I{+)k!r z5uc6u!$H(&Hi2+W=d*X}ZBh_A5OBKemBP$fCJVb&Q^}xrjg{YKAM1|zj!-A|7rKSb-lm{$j8Vf7vfjJHWj~04sXiCIxR6|HL zVh%V+%5dxCfv`p8C6;7lW@I=5OX#^|Aq!H{-mVY$D42$Q8P@|Et7jR&)84qzpBcoa=vLV~<|b6}RJ^<%3g(Du`8pX?RmZ*MB)U zmODh{bSd^oiAh5~7N_09_@snON~dXwd6MpF16R+}$P&9ZeAsseM9#0VS25H_ zLKA=C)<_7576NsRV#N-uQ8U}#Xf?``!IfD7v>k>DC_mr-=G6W|>qd@G_TrvUM}KNe z>S4_s*|pR{<4%2)c8f*Sa@&R|xqlzFUaS_ZyZwM^R4QbJ8@d0vf>p$ArY3@%cKB** zl}(w-81<96>@D}MnYrO6&cg&Lgmcj(-_mYK`c#>PWfrcLL%_Xg7u&%q6DSNkZVXx5 zXMPbWa0n8(?h|m&SF*v1)H#o%HKx-ZY?_~Cqbr$M!W`Agel6KfcxJCleSZqTo<%!(`B|fyv zWv5SJtGTG$t&<6c|E|*ld4H>lv};(RLR&$pa+ia8ueo;^N}B6uCqh>dfI$sAVcLDB zasx@hXF5Hq5~UwRICOBMWqe8E=4RdN+FDR#UwT1+h3IYxX5fhEN@O z>Qq!A%me4`iuUrWOg;br^U;c>dvs)$cC5!UwP^g7yaww<+pWo$uzz4!uXV6nsBcdX z4v&96lb2C-DNIbob~}(gjdROM32OhP_AsXZ!s_~YDWy%tu)PefOs}F6c!bX_sTVnx zULrjFF-q2|mKx0T&{K!lUW!&Ttl#XasSR8!DAr3I|Dm1Vmk?l>Iu;1f$0`7vk+3x3 zm)<&pw0>5)#INS{27gR{syslj1pN0t7YAMv>)7s^?2bs^iA}n?5@)`T=Rd*ZVc`T? zUV6L&@iB=6#EdXx_8WyRIZ67Ih}*jIWi5Z~#G7%$Kj=0;xIl%78&~$aU3iTs6gGvf z3N(94fj0YSX<7K!DH60!k%P-3Kxd$5M^^^i^)>2jGkW>Ou75^xZ59f!-;Rl%f`rza z09K3iS^_|)8N+bRWapFz3F(M43@F^eTlZmT;Y@${gW+B8vpWpSB&(Xvj&e%i2J4cr zjV>~Lv%}uvP^WUu)U(zsqV-sB=O>3Jd&xxiB@Qe^aFz;$Z6y>k8iAqSFqr5YQl_C; zY{Kgc#u!IR?thXP6O?&8Ut0U<;BJ^wDcHu*^Tqtybi|O3bY~1{-eFz-*Y)PDD=j-B zfgJ~JuC7zk!D1=WEB*No>K32smi|_|S-q2W=vIunJ%@4AD!VBj@M%s?^O~p1!V{so zig!O%SjX)q1!l-vx%2~@BAxHh-71BZZ~0z{v~P5)#D9NBh4Hsko>YjlAd%`sUk*?n zU3GqPvzULFjLGaYV3>pb;8?43?h%gGKAw&9PwuUWW@-c5^_x3eJz4!14)s?zR0w~R zq@l&3BU!{5m`Rkv2_$r!qv7;xp&}e!2Y`#8lFjFS$Oy1I6%qJsbEL=XI7?(mKq@v( zA15F$(|>%0@zx^mAO#VNb=1bujss*H(}evvHI~0Ta=(ZR1y1@Gcd|K+*sq@D6|QOr z&{b>W=9a0}O5e1pSlzkzCw>aIEI#1_A-M$>R5?$6wL*p?6pe%shiivJiaAzjWUMPY zzp|t*O1uk6C*IhsB#_LdR|GGjOYN%}whz%7bAR#Cnfzs!9o?{WuqGEmLF^zooL`;% zbo^B2^pmIMJh+F24~n(<)qFY`X?L|~O?l5ABu#8VY+*HY)S4p3e4R~ZI#ntqM-}1S z(xq~dUu7RA^VoFq-_cTwX;efY4cGx=e6C(&*(zh{(}SO%9-RGr7GP^B>9@q~GC`0}Cu>eAf{e1; zQMSCrI8bq+#|p|&X)y3shY3wOzN7%HkAK;0#RWqL=BYkXs-{-#TbZ+y;t5?c)TOT; z3yj{jfDxB0~_KDTH-EVAWnKF$_TL9fZME$jQMY=3$6 ze*R(k{*IO1T`x@^e}fJtO9S#ncK3dM^Ea3rOW0eQzF%M}^K3f1%U{pO2HK1H=keS? zdzno~d;~A&ALjTP%jAxAd6v(z_mjWPr|+*!zh`r3crc!_QJl@+WwYt+JM-c8{S{E~ zhwS1O!vYO*=NGX0FDE}CjG2M?I)D2-$;99Etz9<7UOsz$aCqfw)pctDH@bOA;p1KnyOLXbyo;q?yura}_@PcMny>hl*fIDa>E(8Gzx zuA4(tui94(?vr~VY_Yh-7bv7_%UYHt8k!;pCZI_9JYKSBMH8YI85uh!c58Scd%DxD z$LyJt2eOp4prpa>^~1QuVSZwRYeYx=D%xT+o&184bc%S+TTW)kI+jj($k5dO0Zk*k zWi8L2fO`Labn=psZ%0+x(SLo^$tSneZFj}hcsdVZH}mP^)A@A1sJ{V=E#KXHK85u| zISLSe0qFF028JFEg8$7%V)rYGmsWHjACoNq#RmRs!4PGKZ7whvwsn*@E8SEn$;iKrkGnTYE1$zY%mr<> z+^(LgbWPZy54g8@vQfL*l4 zni{gnto7agBO$cRf`2DI8)L98;vDcD1Cx*tBOWkeEyXcV{tub$is0H`{-vce1*ZS-MQDqAKvCKkSC;BrdyH);O^Gr`_b+NYP!q=rd)^HF=Z&g2_}$ zG0?w0PTKVzLYUD>782ZK-wpwRIe9Vvpd@>rO;z(bMt_3i<;m+IZruV@+%YYPHjp`D<9{Vj(wbgvuf-h-1}8TL^WHz5!G**he)` z7G41c+6XKQtngq)FqT)CoXX$rC+z~X1DXQw%Huu3r5e2SwaEj4KP6}AWf;#tVxlJD zOp_Lncz?Ehtd7+&=v1)pPj~@;q0tdgG;- zkiR6|C|N6+XkTbq7+JGU^@Sfl@QOuTgB_6g- zTH--PZ&jENRx1DkT>DcJmDmad4lkjVsT+~)2yJ7Oy`La#Dg?1eD94Zs;Ji7$o8h{- zNyv=8f@LTu*OcVsW-))afX^mh-a@R&b+qd~W)pVwJHp!+bVW_*k`tAqt{Rs2dZ_q zJLuL$+h(U@H*T}W?Lnhg7q!}|ZF|^j$$xLHL2qC;?y$z)R>$wTGbq5j%UXB(gLYkG zsPOK!8;TU&LECQKvk?!By3vb{x^EL4l)dc1_K!n(E z9X7X`gMr_^+tLGRG@EXF&go9G)p0r9X?HpW%{i|-jo!d(-Wo<(?Jzqs`a#3$-hVU? z5#RC5|7MpkrkDb2JF=g28?r>z5Frm6Oxj+v-|h9atm&!K?Y5h3^|>3Hv@o@sgQgPx zmTBEVsg_@du~`eP8;xM!&6bv?UToSz&#iXDH0lkT9mAQ(Y=uVsR;WwBr5Br|NTYsB zi#MlHBZ%h~<{9AA>9h<9O`nZngnzOQX9k_Fmef8QD9p6@^ulJq64|QBn+-Z)mbgr5 z_nP&g{Ne4p@%9#f+O1B2)V=O-7#2r|RfCopc8|C3XeI5br@q}@kDoQ~40}q3{cZnyeOTd>xxSl>O1 zSpDE|K?TK3DWWh_5H^JaU4L#t#Y3OXMkmPC9;01U#Up20-5_7Po|3Q`+VX7}*1*5!L=*d0V$cX;b&fRCLaFvwW&(cR9lKjij@-hZzYjJwBM_l6;= zHM$+MV~K8ekmiBDn_xx;$Gwg14)odXg!l|rQh2-$r~Cau&)?rQaTgM%w#(~b$8QhT z$e+t51Ub6Y3{1~6`S}g+F)7+Hh-wF@rp5p?~2>qM%y>@ z+OWabQ@m5_W4LF1OpmFv1R>d;MNN$meD+x({w!?S~ECtly39 zJv$cK?Pj3cL4O;xdu+AtTJ4*@g(HU@?Eh=cSo;Fh1{1g4>-7fS*uZu(ew|J$HgB=9 zF%eB;-2X%xw^?IYu=}nJ0~XA{DCg+3Z3EK&Cac+K^OYqsX<^0>LRbSrS}R9wWo+DO zxRz(LIc%CGDQYScv0JX$h{O)}yoD(X__i8d_Z+0z?0*kp{B<}C&4(VHoA4nrT!+U! z6eO=XtiW1}cy7Or-Fy%b&TawnT^o6CPlaP2goWg5&suXmag&)l==Hmbp}kJu2!5j- zov?#p(-*)&pPfu~deI3x7!2B8<6&bE@43UV9m0a@%=Ui2VI+SL^*ps`BiZkF-Bo75Z9R8{Lr$K79$~-TjE|7Hm7!7F z?-7>Bc#ln6eqiU|%nlHwh%9VF8G+agJs}u$no;^X(%T*QhcAF-bi9uIcA946pa%@{ zq?Jk2v)j1@cUmp)h!i&b#(HcQDWkQ=?#$srx_|bVLe?Ye^$V1A%T^?wXSUaC6%CA& zb=dIfGUzjBf8TRuaIy}D1J7+X06VWhCc5s>U9RBJOUe4cN*?c-Z{)*-eapb}ZIP|3 zU0eN_hHnkK&Ee3Gd+4;IC-IhF3pUZdU#Z75Y18%AbFWsX*=@O}_@Ia5hdDeAs!58wAf!te*-K$WjIc|=x*O&k#eF!}r~Cah)MW-H=NV;j^#w;gN^mT0VX zo41B3;O*z3?_s}R?ui({S|4iN>oy|0Tz|etg>i@b?zVz`Z^IohX!Y6y(^a?CXjO@U z7{Gx1?KGm=h`2pmGBY=QkGJnvao{1^-4K(ztzM_Xk(n5F0Dl^Pu>Y?#ZJgvK8%&=L z%>91PA6vf{Jzj3H#{EH~!6wZxdUVxhjfSw9_XQVBTk|!#t$@~@z+r0(^lF7;vwsel zWIf+8)ane4APk%pt7p?HfH}}AdUc7zB!oO!kq>r{+n9vTRVAuie2E!iyzUN(bUZ4$T9GItoym$1}ZM0fu6_0x0 zVE+uwJ&!EdfKB6Ji7r^s8qGbwb$`bM40ngIxd*L>X1e1s)*#lXYjxRac>;*REYaci zSnFP|6Gm3$uEC!rWy})#bwJ1*Nq044>;tDp0FyDf*fIf!} zCQ)GRMKr1_Q{ADz26Qb0!)tF#RVZW}R78wWj$DBa<_A)A8yyzARInwaVSl&mVTUE_ zYv~9|61GWzS-aJ2`R8I_jW(idBMU@o!#=|2$=@*hIPai<|*{q zYIv?8?9=Sz+Xag{wr~22@_zsi5{ z{Qfy8;NNKczB5tR~>$}H^)#-%B4RRUTk$>@J9Z4PRyW0#- z_-!n$fU$puNPWhXjLm6iAEtJ%*@*68ZC*Eg-HyC&#P_fkx7+48ro-B|Vn^CGzj6FM zYuK%@kbJF~$}(+k;&kl~dVSxO)@k;->Dq^d&AaE;X?D8p$nJzY0sDiYIgB-t zpAEc_RUS9mAA)Z75PxqEhtUlo_W;6v-56Cv(>I=*Mq2l5qWL!qfoQ!(a5K0Kmo4_$ z_NfK7W$bF6%c@?>I}eBUU1pdRoOS@cG4j%DZ*A9#B0r)1!1Iwq^L{Ky*k%|G-}hMK z@H>(H_g9*LJge;{e%nqj6jj$6z{(ekf^1o>JAV8ow1$na*?-^0{I+0}w*5<8FgaNC zXWVbwAuojQPHeV}pmt(2u-CzJYHte;t=lGUbr73@&>FU70aqwS6Gkxa+cXbij#p;` zm~X>p41MDV1GA;_(tgKFf}^t*zU^_>_2F_ zRhmAq-V@pNH*w3s-ly%ay6t9f*cwFEZ04;Qg39zsic#OK$R3LOYKA?$Y3}zu7`CH< z8Gvx3=`Zx{W*_XMh??%&!}Vo|hWlWbFrm*@;L0`h*(@?d!2U6i*dx(-ByIK{H9M2Iu9InwwkcREp>@O>qgJNECH>% zgNTcV-|IpP!y;Bci0~HX8j^UxyXyBNO2Op}^M5=vdHZI;6hpH3VW&uzc0WQ?mnn_F ziUjRDop}4MGg_aixMTW#U0C)jE*q^&c%Lt@HgtNun1RW4CusT5<(v-uRXWq4b?62% zv~IMc7bgcGYJr1?cC*_W#LQ@}HT%OxGqgs;TlaYDkQ_kk__fQvP3q7>6C?Fj*2Heh z4}YPjKD({x;?}Z8+zpPHMFAEa69KoHL3(#$7jzwNciXL?fOTWrJ%``jR^Wm?jX$<^ zE;GvkX0PF&9klTzrOIVgq^W<)0BO?f6xtaee4z`EXzo`q%MtBv!;(606VbH?*>lEb z=>63doqU&S0}VH9w3;nOWpw{UPM2D|QGY0K1FsJbqxx*v09g$gp#4sxJkbiY?lgm4 z4!AKBQEbBo%%hMVAM`u1G%Y>ey36wGz`E9nnHzoHsKFYw8gUC}U~?mQud>+-W|i84 z5`;eSgeqX6H;3_qvz9eb7IVhPG#th!eA{Z@3uMBA_OYBlj%2h#F~W#{r$F~%vwu$T zesy%%Uu81mzhA1nm8COcmcN&!tNz`+nH7G@!@)Q5aD}SnyoPoEH?S%^xaGckVfswy zU-!XARU{vuwn~d1L~^o~TF)XWsP?Ntc8dznBgMK%V~B3@E|z#KsfZ4Rk0v=dT2Cic zCPUd1O0iB{LTvh+5~l+HR|<`K&VSP;lK5IIBr+>z1>q1iD+q-PGIbHzObEiGD`dUI zqyo#?;L2F-0!CZ;4D5X0s8Na@qx(y4Y-$ z$L67In*!>4F_(23s0wUWbt~}M2b=l`ZHLneY$2;PJ{5Rv4YQ2dKH${DXuIropFwx1 zVHcM$-^nOcMF#99RYW1yNq-tec1wa`Lob#O2gxd85}-t>w8XmcXz{SJV{*|%iDs%) zlp&ViW*s>)&DN2nP-kf&@>`ZE(?d16VhFDzTMl(9%U7toAbsw)Uo0g{Yi+W$?m?E; z`ebPpk)^fm>4#ZDeA?mHvPnkyMJmlJtXXL)*&tIFk!?*F1X?mj2!E4G(?Sofd?wgH zQwNjnGFD`;@Ww7am#|i5zo^1nQMC$lU7)Fl%$C?IpceC2B2$IIY=os8cEP4DHe2Pf zlWxH!gi~D1b2oKE1>QSND#$>zlQfF#c4WeVUML$bk`-hmM2Rw4iFV`B;$dXR${XO( z%PK9A96JL+6~VDuRDY41NEc}g(Je`h1-w{jYz(W&j8BA8k%@HTlHp+lhAxqNB%-e+ z0wS)TR}l=VSw$cmkg1EvmIQ!+7BgO8Qib7WaHWiPfTj*6TV<@gW9*JyelBLMx}RKu zx3X#l=6XO=51H+-S3)i1uR^8*gZT){IP8H| zg4+=d4!Te@EZi!HhBx#w(Fk{t1~J^OXy~hX9&vO@iCCD+eN}`)*RCQG0nlj(u`P*% z23#x*2CFKfV1Ey|R1gBd(*S1obDX*GBK|TTnIbn?WTY|gSP1yGMp_{5;zpKF5b?cC z)a8AyN`fxxRuXd;Z0aMlEfE)BO9WivQ%StpFw2G81)O>qZI|87)gq4^PI(FY-HS?9 z#K37&MI55tq;Z6|Bpwd?tRgNUa+Hcqv?HG&4}T&?_N^J0Xm)9_2s!s}DhQC> zqJsFux=3S)ZYy@t245&T4vrNBCqRZWv59r!65_r~YBfqkme??oMaygfC1Oi$tdlS$ zwtV~~Z(_JKlAnvGi@L>8VV=mU6()!WH1&|#jy9E03ul5trot59BP^4B4{YjUbAKL- z0B`YwN`ErHzL{pL+?x#Ydx>I{wJNDZS+|NZ^uVS*LR(XS5^%BVQy5iIdVHXz>dph4 zdKj(CbVN*ENDvnf{_S7$*;ue%-N^WUb$63HHw0cjdwpg7;NSi=1VdfZc{oDdT z&~P}2-DPB#fSxpagML?E;xV^yhJ${u{H`lBZ*`mc4o{Oc9}dc&3x(#*9?R4==*3cT zunRz#a-%f}jd;+AJv+%Rg+0M%LRp{vZaI9z}xo{V;QS?M93_O-r;|oIAZ%l)OzYQ9#i?do0h~o_OKkS8bfnj?tUxR)l$Th$#+CLYy z0Sq-nzoGS3gWZ1MDufXJ1D-*7t9KEf(0@antgH4Qeh<23HET7(v}*UFcNlH`15+Wu z>>hh9ryxxUDie^ZrX~vm&@Q-092{`T<-@WY*Z{M`=4*>V@3Qp8h2+GCCIW*QTDjtj z$cfM7SlX!?5gYyB8bk^xcq`eZX3@y?71Q4#6~&9u(`>QGW}7U{tzoCz^=EPignzbg zo>hu2&7k~y0nvo!oniDX(I=RtI57R8RlCy(lajNt)j^5}I_(bGQq7^(ewHnQcpgA*|04S=ll)JsANu^Mbau;SN zK2aQy)n22aZIgm$WC=i%rN?E{yQR|{6x_bIY0!2^5NyB30*FwiN*5$w#9iUoqr0I(&R)pkLgLrn!XX&0(K4>YDt`(Ome@sM84b3Hut8sXCgl51RMdeb%Ve zk2PYv!TY1<#Xy zuQ3cEkD0w=V`p|;zu#_#knc5G%~*48(e?ZNR=_xb_8l{LciYZo45-%)IBP&$2GRCh z$aa2FX7(&nL$XI(v$BtSL4Ksf}$Ibp1}N z-4D~;B+D;Q*VsPfYJUNq4-cE(t3Ebn9r|&%HHRjEQx~wzNqHSS1@3j=IPsRbV)R;!z;G}2x>T2sy&c+x;hs2(JXPN*jNW*Iw6G0ssKt=L-_u5qPlc1J)pLt=EqDdt8z4 zcY9#~y*LJ4n+AcEM$#aN!5S;Ypf?D)R!|>Awq*{1d;NBZKA3(ozHMpSlQLj`;H>II ztaXRLLofh+`w;xZ>qRF6BR;wv)( z2P>4Na7d+BWE_C0gT=Z5Eb$RV;_++*TGdAsi@kFJrVbXHjtH-7$`dp`MD?xYx~4jN zD-lLjuYbyQO%G)1BXeJoQ~-;wYbs1i#L^mE>2*yHXzF2eKjE~YMa0uZBPO81vBgBx z2kMS(b1@B#tzB(w?RCc1t~j=~H@5ax$JVJfw$3_Z>r@VyrcOn;fU08(7fVStN$rU#5lCIJN;XL!Xc|E1zLKdS77C|9rbIsN5tfN) z0Bq`GbU#6Lz(r)$!z3oI;Q_`ZHUQQe;QDgQ;-hH?$bQ9L-uV@ng4gpgY?ah*Yf1a1 z!+&Sz&z_zipS(;)80ZY6p%KzQ`}_OmkLGUj{cnf)DyQAjBi)WRF<(UMG*L0v-~aXl zkmeDUDOel+Q1f#@wY2+WoL^36xfs|8wu_0{+|fQV8(&XmlO^UM91|eePRea28+5Y{ zBelUJ#g?nZ?FhD@ROdEv^UkgDLTQ2yZ#DVW_(VHY}9sE8f9+(^50gTmESl0gL=fN8VL zXUq9wnPeZb$uzr|%Ki9{^N;z5e32%1^V?(u_CvOOpIpgpyat&g<4~6g=*ydYG=I6A zj2L)9hh<$5;rNo^-7W#fELVNl74{&$J8_6(Cub0JVvU`_w_ZgO%#zB45^T4*lr z9L-Qs6?kgF(JvRblPPKVvwZc1{BCa7byU~OTvU04jz3b;OPW6yIVzLI1b-BPFW5!& zIm%ax8~}C+^r`EmLAK_qDoduI>yz3F)z2=X>7WzP{nmoliY<6QzdSxCbKxwo>_wNT zd#-|;ER7zbfmymH<$pzwLtqJ}3iZnLGRg|a7mYd zBLYhzp#F^5E;pEz_Ut@oJz+;UH}o=rxKFNOwAYwqc?`CJBPvgAGk*&4cq2ss3??DeT$D;6Ad*tp=D^8uzCa^P3^}_7lVgP~h*MGwQZg$x z!Rsl4Biy)=@-c%xV8NdYrJWh;1_hMP5;%Eqe4C?yCZjOW3kpl$?n$WpirDH z3kmW2pi#=jX1%kUJfGrR2dzyzM298oYyy6^5RENqW{TITXFi{iO^8WpOG4Fa3ADXb zgIUsGLNazmiXS&t#_YaAoeg{FS#mSYM!7|zZk$A)*U-aTAb*jP9UTb7VWE@@%eP}?g}*FY_*tA z6EtU+lXo+y{Aw|O2MhEyH83~2-EB8o0|Fpj^$wV`-@^tCERiErM~{eRXtdCuv@(iM zQX4&=FFt0AF@N6GP9##81PcD6&Wi=K!>4EG(BJaW;Y4oIH64U?fshyU+ln@lSCbJe zUfJRut?_6xjF2k83UPdGn+viRciwZIZ!G|@xRIUZo3NgJr8keWB+mdRTvWs{J6bZ9 zeV(B2ikpSA`AXV#mM|@83A(tINA=S@qxB*qB`9hxCVyzlTmB<``Chw${_S5K?uPEy z+f~HPdW#e~%0YcSkt5axn*IC9Y%*naHTP7(7dw$a0XxKyhzZ|u2K<$LY!!eQQ%^#{ z507Y#)o`3Cz@1KZ=!HW^H|Szpb3s6R=((UGG=hWDu^D!$aHOiSr7lMI4${zl?1~H- z_&@UaGJn}pzv?ni$m|as&YtUQsU?@$beW6ZoEp+cQdEWf9)%U&oE8BqD*UiFbV`^KCuA#af z;(wJ*m7Xk32+PS_dHl26>x&!>GXPw5 zj8r*3PAZ16KB_uc*|{^|31e32raq3wLVUf)T0yaLkW zY;={Azrl$}P&**#b|Vow%%|Di`Q%#cQpWff;sL>c-{c-_M;GoSU(&K+ zhV~*tv|yim&Ce>?3dN72(31=QzkgVOgarI76{Ii5s=z2~THqJt_^>zy6tGLbIGfOr z=ff-1&JwRg9OF|Ft(+ zKKnFTf>B|AuTRErlkbwQygVnR#9U(XcrKbrp)ug!8G$Kn{A#|O;3RsTkJ>H}x&>5y zRa9JC)-Dj--Mw)4;O_1Y2?TfdP`DG^-QC^Y2^QQPg1eL4qWeGHeIIxTsq8Vbr+hN! zTBW^))Jr<+lPq@>g+^Q@A$DKTBg-w6%JMHCvP{KVr}Q23 zC6BX^%X+>9y#F2Nz#$P{SdN~pM?|N)|pdJ$h*{@=?m3VOp=5cp44O#C#eSFX_ zDO(;bhqZ9qjEQR@35oxirLo0m}37Hh3H z`@0NN-LnSi^lmCKh-3pSR><1j+v4DeUyiG#kHkU_UE+)2@_zLKt9l2kUKFXjzU2UI z7TQsCi*-+;Tq+)>(gSF=yPeC^d1?1Z*Ur@5W7k&Y&9{I%ZI$j01z$?{va!5>yppr|Kuv%5=Z$*3wB45niCN!&v^2{EXf;#us^tQwi z-N@8vJxO6|J);JOb-D)gLO`6ee1FRSJcP~Ss{$#a2gSgcEeB7#HgvHSA zi8l-B+4S&;i?R0xWMH0*pkPkqH>Zfd?3}IZWK+hTn@Z_G%TaYBDT2%?zH;;uXVn@Q z(#xBN?zf>IHv+;v5uszAG$M$0>y@x#u1JKRmg4MDkM`1Pttz|S0L0SdNtn{h3sq7T zgGFj-6k#NhkFsm!IjQCelH+=^b=SiO7`kIh(jMIk=_0@5DEj!2U0#dP1$+sQX?op$R@uAX z?NzawDtceIzfgg;i#P6l9GyAwpu!``8~Yuam4Wivf>p|AajJfw@wTAUD!DxZjIm40 zN7>Sh|%kQH{KCV=l04D{OfRx`0ku zAmH>AD}%?y^!wGdwWlJgS%WhutYOUM2In3T5i9dh00w^&$iKaR{ zD0%~-3e$3-6sTm4^|@4Ax zI#3Y?=%u@SD$>u*+^~BlbfxMEFTbb!RtQAyYZZ1tAH&3^3r@TlgVciij20Svo)}5-v&f@=N*|QtWUa;3C4E?t+go%QjSr!4%$+ z{u>~jwK@DgHG>gFiC50bCu$sa^z`EOJaAHe;zopR?usRP8|Rvyf`#zaa2) zMJV^>tf-N_&6AzKZM~=-^x`3Kv)f;%nv2#r1IFOn$Y2RHtWKjG%R={}X5aa2dQ7`R zpu(q?SGmu~8eG)Ia@V7A9bdUkKQFBLdw`8;PDXPNh|)=T5e<^)JNg0(^$X2(I3$-l zJl`MdP1Nb4)e1P2f2VPTU(o#!%o#i5s#!X{(bw+$8*GTa1Qg7gw%4DS3)6FTEm?wi zMPk;w@7C`AmD0WLm(K2(_DjHn1Dw+>XUemPr^E%k79iv7N0Z~mLv3?hMQM4K6S(NO zqYC@Eqw>)BBL5r`qU;tZscpof)^E2BQI4^*2Yw6i)PKv=T*mV~{2csuYn$M0+czSl zZl=Y=NX;lxo6xU41ggW>CSUp#f#uQ6Ulgkt6Eoi-CohD8f-N?1<}-!v%4hL4)D_Jc z@mh2XE(m_gC>HFWiWY2sg90=sBGxRu)=PdmG(2e93@;&IdO%@dkYG5X{MhWcG-24i zEPQ+HcX$iu*{eGww-l^F4e3QuYD_Xynv-VTN=B@GH4{|xYn?v%$xyBu%tX|IzAJLL zdOa|&#d-~S;$_CtY{?rOkef=G9*fQNXqhc`HW8rf1<0a3*Y_cPp|62ujv))`5}$Ig=q;@@pW~<0qVPr82Ze%nZZ6TSg%zpmg zE|>gSMA|RDzZkMudDtIaFL+W6)jwyHmqp&&-JI@^2`N!+^av^Wp89$jUR3{WUDL#8dRkNf9{7;%1*l%1}jJ$B$51i&OP+-bhubSZz5HoM=p9+HN z!&7+p{`1*Q4fLJZohyr9A~wXMwUe6dIPJd6c7KaDk+Zk$CUt`O<~mK}B3MtxM$5>; zZYlJK2pHdoETuZf4v|p&+S*|wh<$JM%GzHHZJR!`I3HzWHJPZXEtsw7?B2;lcoeD8 z<_1G3gT%AZrD!DbV`PG*7z?J5HIWnRWj1OmU)4#|u`l1oesN(#%-=(esXD^VGkQ!> zjlmkw#Z=qDz9Uh0g4mPT#oIdRa_M+KBzLm-%f{tH0xsht3UltIexT ztUxJN7wl_v6a>_`A(K**OY@raR|$-rwMA0Z%y@f%;Y@0_TBRc`wuM(veQK8k%(avV z2KSSTif`Iv#r;Nk>BLyeUt-#BG`#onxAwMTj9dca#)2lbZiu~$?Yj9Nb%iB~4VA@T zRgWEEchm;G)!J<^z;Av|B43Y3ivYqJ4B~6Mh;PqxohmGJed-VoK;h~$Fa{Tu zlP=*d{KJ6fQa*Cwu3cdO+dBMhP=nPnBat7?UfC2Dwk>v7t~FFxEIsPM2;)wgwJ{L? z9R0bI3Dol!%(T{1ax%gu1JDWv<^o<)A1Sc@x1U;A?&ZWzWI zrxfc-Cibo=zY|T^a70hvE(O>^^h1zQ&}MDTm`LR|iKZ8_cJtaV5Sm>yiDf0M++TGW z@mpGO2;mTX@{9QS)}E_)7;fF_JrdK(Dq1cp5#)Xy?%7iD_Z@DY>QLfB)BBosJSi%5>B!s8TT zEb}OAy0}%(^MfcyDeXu9ZXZ#DBsay4iin~6BVX!?h~HQ3;r^(i+Ri*{>qNaK?g>=7 zHJzTgp*{2U8UVDos7j<&h*DQ^&K$-HBhvIQ7M-XKjFSl5YUofUm!Qc2{V zC*l|fvd`#Ph`TI|VVpq8eK`oQeb}-th@Twv!-!P!W~a(zD%`atp3TTdGaR4j*UQjG zCXrXbeqm0_ImV&?YOATJwvJ3iSy(>CCpO*TVWaA+6w~daK#)S_C53murgq{y@xw2} z4dkBt8mETmg#sOb1_#_K+7@I@Nnx zqWyF^g=P5x=?{k2WOayhOW6a|$$rVGTSV{N;^{xvZB* z93WN=ZOJ>N5k)Iy5|0>{WNOo8j%O|7D z+}Q4xWj(wgEpBxG%B100t7yV-BS~UPodFDT@*%uZ(@(tKg^xoMM4A70drM3V&k(U{8U`@hUiQPlV$_9dHiiuQz`%+SY3 ze`61_%T*be;a0R4&!ZjubK-bL5{Gp5l}+)`8Znt`XqH-0*>f`K?)ypdjZPf3hPn*{e$o;!Q|MPRAc}MZ4Qochc#)N_ zzLU3d@Y@CJ7l>rxjN}Z`dgT0s&Mq|ptH6D@bx9#I(FL4#N~-S<*tb1Co^=mLJtY#P zsa+_?L2*gL)5Psw*To{!{bUWqP}4{Q_4Vh|&cwPetM3z2%hu^tl5OY|5dn{{&wloM6H#ly-h&NC%T^Rg zh!UU8v_m}+*R>7DnvwUz@AD;$X>!w7sD*}Xn;u}kLtr4Hpz+~|nYAP68;gXRnRl+T zTK2rT`PZ~SyH*?L_O~oHt2ho%D-W+EKc*i}D+Z zv2z}YX*+cLvvrV*^5>dy>(kGp7mWLelSi$k)1LXrxJ#6h*-sxQ2Vc2I~mlkZ9hr(Z?<>$w%hhd_y{+N``wb8 zpC3-WhUUBd2l!2Gy!NGYLWP!f?aGmLOJFomVZI+{mo7OwFlN zt;b-?N7vRD?>td(jy7SQR$#MCXv0?X^mJA*4e-65_WRAA!OPC=$%$E`)Pr=4zHH38 zM@+ZDM&)LVR07`|We$gfaiA+cKI6RNCPy1XEX>Bz>(Cjnly8;)|w z^)pwz8cQt&}e9h2EbgjrKjxRvRR4 zFueV0HWBT8NZqG5-kn@GG?%-*ZcV#%-uW9r3sz6QDpgHonRW@PsGnjg?8=(b^zt zH|YHu(JFWjX&K%#-{OGLqwXTDBj0)4z&n9La^{nZ>j^jb^p`8!W#>tfeIEOv|A&qH z9x;D?1>V``Gsc1+o&!WR&A5NJ0yvGYvhO%^lyKTpFq#@Uf+ z--xfad(&o>2Z(N;LQvf&`5d+5F(2Rl2;fa?+=pR&GG`F0QZ6OoaUwkX%z&>F>b09( z#GcsUYPrf2%qz+-|HHF4gP7Zw#H#cg@w81a-+UHU@YmWuE0Ya=Jn_H=yt9jI{VCAX zcPu24-Gi7dfnF3C+<#^+)~Rn2EoiEQ=D|k96ROJ$tBA2wk>zqma?TWYfj-OY9G$&A zoXp@3#jC5&8!`4ju4VGuH&yNozuz9d_5^$fwr=>W76)%~t(TsDA46DH_Sg89hP79x zHV^c%o9_5NzTDZ>{T=v-Ky&agFD`ZTE9ruBTfeqK)2e6Xi;z$2(;qii8W9dV3jH3= zc~!Hy5&4T`@$VgsBZ_H~LN#0!N`9V2TiacB-yz~t57w!u_@pM!48K61b>h=BA~cPZ zD*gRkcqvIG@O7gA%EO8t2|Gd~o6jsOp`WC_D!&_s_jq(!C}jo62a^|gU<|`@yRk}o zMS2xx0ZBYyAe>OP95^BzcXSn4)F*~(;0eHLS@eLpK$g9dR+>zd8Hel(#PC4%5Pzb$ z5{4#@UEeD7L=`_$S4{IN*3d_&DuPy5yXb-Cz4JTzKECf0kV^*30n0(|gKk0k35laj zLOi!GRImx0^U6XGTluY1P!w#Ze@VMUK&S5@tT(d5NpWBKN$q$|UU&+m8ir)ey`+ zFrSkAeF5YyO;^7z&tXcDRBWjN+HW8Joc!80rI^lH`5R#Or72(z2iVs2cX>u}042~0 znfwG1y8;rm&Kp4K*Da$8(OU)y#vMXa4EZ$?9qyj?eTd|i7K=%Q5{!>x#&ccOh!#x6 zak|xH67Li_*e!JRcM_PNSc;$tKo*R(;*LE5Vq0!EOxE6gXrlK_+d5@d4}uUpCFMd7 z0ziz`)#u9`MwZo@c#3$y^gG>6leLCpO+$9MGj%ESa|*LQ1UF~ec3ueI;WeYA0N=O|fjD37PP zi)0-iGt<)wqKlpG2MKL`#KHs)Bd;|Cm;r{OFYGFcPD^%Kd4rt#zouyC(RRtkro?&r z`1OopJk?|y2FKG%+&K;$sB<>!kjRGKEcmLyGXd{8NKO&P5NxcOri@bPhnp$VUsuDL00xP3=Ggu4GzuLE1Xa#EUvX(T|Wg+ z-^LZ;-w}u=$i~KDTF-9uL|R4_5QCcoNiw?qDQ|K3>?$v@CNsHO62&@&Y#}iYoG#%V zZU9Dx6Nu(B_(bs}47x=lJ~FHxf4nrp*{o?#l>tJ4O*PPTF2LxHw1`R+^r#@>(HQ`v zf|5zgj^GX2%QGd(Q6_Wp8CCv>|EOJ+40*>6MaPi1)8kjP`i#Tm=S0LqU#Mk^1C}Hc zvQe)*yf)qh3;J33DTqAzt9@k+d9j=Ntw`y4W0Pl^k zkfO2y(7oF>xBVV*t1mCXc&yGV4C(qeW#5Q5PK&h4KWebO%>J{)G0GriyMaSbYwbst*TgJ1Ay9Qz6Yq0auVzwzG;eAf_432UN7% zprUW^YO#)8*#vyF~LLY3&qL5 ziEu7R#Pk6VYOSO&N`o}Q6_lO~-v$g*_rb6|k&5bHrm+RJ#v$A@wGl-BJwV?jUxXG9 zJI$aFB~%q9{FJR#p!~JFXC@1>b*2<($D;nsk=yyX@ zn0f7{o;6~c;U#&pywy#$4e-xK9FnjK)}n;&1u>pk8N>WK$69f$B#=Jq<~{6_ZAfAj4z& zI=d7dcD@wdq7`A#`{IlNo|$bbc07|L_?lcY>%NSWj>wh(e0bjuPL(C3!;i|o1tw~R zdH1?`GX#I9^8P0hmz;1+6o+XVrYWufX;EYqrzj|pUZ6nEfC4EFdg9r(n1_L9URC2N z+$ZcbVK|cCE7NRg)1X*JrqK96Fo2t-X!tJr(V`oq~;!U<@9-ux~bmsXSZD)2S3GLz*>S3UnV%-{d;zH{dJwx zb1HP!9@d=|_u%XU(l`a?rM-$}lT5Vw8=uf&8> zvno3KN+VTmOKf4&DLNb)H9FJ~l(`+iQ`oi4l|P~&Dm?Aa?$>So)`$f;x2iTX1XNX7 z+H5*CZY*&mg&Xf6d{#j?&e%L?QQ&*wigkIb71MHEri^{m7x8gG0V!(*E^8EiVY^f* z+FpY4Cp@cI8&y!X*30;cbIH`sK7FaSQ5`f4Hc5D)lHr0YvqAs5WT413CX-!zdYMDu z0K+{2S3&t3_dRP$-KdE|#gaKK{(d*1V!7!Z(O9OI>=VjDm}LA9G!6mwXkZ}}?I?@6 zf$>cV=R6x(yW7lX4Q)FuPrp88U-LCRawZHzLZeyx5X8WAsF8vWXdK4{Qp0wV2p<5<6!4QnL4i*vc|S- z8_Y&L=6S{96HAWKCl#d>fMRkLm)u01zUDvzMNrTdor2Gha)|BEEA9;HoaqFr=>%Wj z)uRrn8o@J(?r?nJ>uKN{))2+vO1L}DIcr)u6ya*BRO6(?O3Yh^qA@*!fWy+ZtaEPS zR;N)pPxulCws-+Cnxfr)@D61zhMbk^`IAlkgQk&A0S^1IQmq#k&)~#*jUisl@+G?D z@OqmEt+5h1k3PG*m6k`CJFp@#sn#lrEJ~`Q-+V7<{XMKy6umx~xt7U{rw+<7Pto_! zcCi>&CvkRi{-CMofIY+~1me{zlchFsuIv_yYeznc%jhW=6rMZagw-yt{6Jh@4dW;#@u+^@H{PksTsm>j)N9J>wL0qA`T z-~O}>`k99n{OGE6VX%UkGf9t`tRqohw+HZ|uKekGMB-&3u|dVd5bFx--Tus*w7S&VJ};DsETpBG(K9+M3R z2feGHY28|mnpK^I_3`g%Yt8z=K2=kfRplkoWO!G=_xvK~i07AJ({5^OGh|l|EHr8q zR|-HVUw;y6<>-O+xbxm2C10m>yx9%$hnCU;X(`|kzbG!ns#zk&hskt1hMhx&@7zgUegn=~euH-bA&B3g*{~GE1i`|F95YTx7z_@Oqyzz3 zIS|2?fb0XwSU+C5QmAEQUUYe;^RSg^CuB`!+^!U~O(8X9V672Z`w@tbfJB512*$pC z@R8C9-iO10i`g4@o7M8oOWdiX2OG57xVS5ZgfqlFspfU!9hhE>9hg!y-w&?CM1*b`J*b0?ijhBj1EWNMa$9WMsrruLi7jJg3r(71=t# zt|KdT%PV=yS!`l=iTfl$MTlfl3r@DJpt}@CyVeJVlQbi_80p#*rdAPEKgdS;fs#W4 z|3yjhRPn@+R~pF^6i}MX_Blx;=2zEHp%qP0gwv1#u~Z-!*v7+Y9E(AJAus#D&X8~N z&Bc>f4I_+Z0pa^}8|Rc{^@BO8N{jII4PcO?W!p$X0_R^Z>xVR4w%VCX`U@qTO4HY>uNx)x2G)3Ywj zt+P$s&01$H@(Aq^hQ}A+i-d@Z+HhJ_hH2DgI5{E(b6z3Q^%RW+H1 zqFyCg+K`{f0N@EpK5zrjzZubN2A_Zw%fiqExWVjZTVEWQY=^p~Rh! zsD~9iqdLxx-S`!q&dEIHoo2e?OczQD+L1&JcXjwXWo@Y>k7?KQR14?4rf4=qM6zXr zL^{@`2n6(Mj9E&YXAei}A*;%Nr?_(-jd{Y3XN+6Z79D=W4|VP?UR3i;w4-3SP7+kx zz}?_^PW&&OG9s&qksQEMUt4F&O|eh9YKPc;-L>8;q1uZ>~2t z9ILSpx-qF3B8Mlhd{|y#c`7#OrT{DR-a@Oyr?~7?hJ-}KJ(!IFnI{lOxcY?WyIsKk ztrw+${=&u?#ay7tA7_>38X$11Lv@NbjM5&Pa0O!iJ1}f-!U^glK_nrO_(F+0!;U~^ zYzKh3CYDGVd;p7YEHU&B2<7@wOrF4LmD3WHg5ZQ~1eSOwstzj+9hi6C=t@e<z%A1MOplVkNoZq+v`f@J~yu3H9OQKjsBG2jLQ#@sZ$+?A?^ z`CPJ7R^B?L!LKQrLskgD*z|`0w*?9CV;#3wAD|uTZA3&KZ7kpOU3LWkoYTR~U*PgI zO;;sko-=oa-B`gr1fBtXf&q0vXX{LkU&aiui9z{YBs#u(z<@L@Iy);EToNr^?**C% z5;xxTluacKwHE_O2C5h1kN#*3fnn^R^4lw<(NKG89(`QinT^%7p2g^mG>xkNLqL;^ zUIm(PdAU8X5%g=V>J2yAD|%u3ll;cZW?RVu#ZDgMpV;|RMTWr%Wg2M+Xz@~ap}`Ag zY!Ac)1-Yl0xZ`q3XN7ZDe1HUf>T z9#VmEK~wu1av64yQw3egId24Z)F3m zZjPGQ63WlBy)1!%iJ;E;>W&^P?JGA$vY4x2$`PM*(PIPvzcUik7R4Xk|7b&08ok4G z*bi-p4AO?kAZ_>rJ55OUg{_a#_I|G4k*cy`aU5!9ss2aeI3acL4nWfL17QKS1Un-j zfED@x*yyDJl&k(`?)Todae7+;b4lQpM6ZE(kUY#U=_x2cF^>m!zJ+uf(6gtvTQtyEGox?~lN-en8 zfP%Sl=_C!1F6sp7qJPUGKh#I6DzCxDcht&k>+cQE4vNnbg+gqj#in7!pv1fu{3kI1 zRRO8$sUIjy`m7qYcV(=RY8-?o6I^B=ub%2q<n~IZ?&}*PP-2U0MH1FMRn31M3&; zs2vOpAAx;!DTc3L8H-@Gi@H~Ix&Yveu$Qv*4Ksb8lvGdkh%!D&D`R1lj+cbZrb}GI zUk#0RHK>BP5`WBm@>!MDlq?q>XX5!h9o%VQrK7|k6KD@xH^T2ud7)=Nw^}?&Arj94 z^43!RDQ((AGzfsq+&`ra9EKnAu?-Vw_GB`bQloLd@g&C0J-_XW+hZ0@{`Av3UDrQk zo;x?3Q+4kc5ldSrS%)tKqaW4aVG+N~(T3n4klJ1Dd3%THtNLCl5lgGpC}OfFHR9U? zTjp_GXBtyO9CCqFb23H}2Kayd844DbaGr&$yi^WNHsCOSCm-nL1HP$I>0u0`pgWVl zfi&ckKcWyzx#Q#y63IxfYK=_2i39Rx61?zSHW`rN6Px-UG2%}(5_WP|j<&}#h5xN^ zc6)(W@@;f9GG#0rbn(hy=0A~-X+#vP+xdtOY)DFf^zdJ&6$cd?Wa9y#D^)mBXd)8K zZakLJ00=CGwz~J}{gF!2P^nCzaLoqb!cr9-xiU*}Kaax?CoQn4QXJ3Qa9=GK#jL;* zC=S9NW#JLnv9_$~6rZBfs<2kK-H**tAE`-NXK)nIgZ`Yh<8vq{4``xoem6v9r@>p~ z6>Ga%{3utwp1SX)Kr;n&--lEwHK6-ysuXw7=r_YxQD%9WCNb^foh!u3qoLZJ6S6zR zQE`i$t(Z)%>d8?flzUNYVKTX$9T{ndJ(zFrA-wZw)v}HwZ*EB1+lCKrNZglq7htTH zIGDFng@)RT_$MK;W%F|8Q}lJM-D%v&*EhvRn&gLi>st)Jt z5Rh@I@%X0b_(sd4nnsk%U>@YlU?6(_@znZWFak-9Rc$IiJXfXCC54X4V?vlMPLF>Euf&+>2HpAt($mkR4fT;CQwx zlZcp7((cw1ji92AyF8S%xNJhLGpA!8b(ccYc~Ooob(_Ey984>7W0v`;0rXZAACqJG zOI|o#$@ThL>4(?2IP)jik-a5=6@PgBAHVqb*&lC+NKHL4ZyS|>pA3&MM$Zf~WyFmR zr`gj6y&z66N<>DSEuQNuV!Q!sP7gAUr;$7_%hCv@q$<5d$g4dhe~|l>W@*+ZalGfs zu*X}RAQshNPgG(82Y5DZA_!!jhrIJKnM+k7+*=VS4wf1kXfj8a8B3ZG&(@ zl9x4>3_5)fl4`Iv+Bl0-@IE-+As*LNX6-#W})-S)m-)(Awg$KkBUP zI8_8PMs7T|W4SXwj1kRNv5jX@ zYxjfbRk^`W{z;?2OauZ^P`Cz+(kQ{BLF}`jYBQohd~RvQA513Bx_8;8nx~kN@!jP zJX1Yg0R-UGslYLZV{CZX`ceF-`$5*%2j5PABd28?JJlOHYiYOa+aveu9&>rgeK~%*r@VQpeFQil) zYYFaalB2x$UX=1=+UU^M?_dbOz!X7?Z?fR5sMY5u*5JUo|6hx9M`2-?s`O1%HXS9gx^|I3TSVvxX zPvFxKNn>EaMuCYLuv{PpW zaF|ydCeZQI#vT*6QmF2OeAIHC%+nDfJ2Ki6k$FuEYTgCE)7*;J@vWq0bT#2K9i=)o z>oSr`riGw+TYOtE(XlNopj9*U6m$3VfWf=SE_+T88?u7lxqQO8uLqF4>HcEGTlJ$p zU(en;RAY)Fwg=gHv1x{hj#Z_0;00# z555#`MXLPj_o(;d-=96-Qz9?t{Ot-xJw=r_V7ZPKL-m?WcpTS$ux58FQIt^I2V}pH z9(nAZOJR?*e=(gv5OHZ+qn2UFH>VM>HJ~shs&1O@HVxqj-W50OD@11rL#}Ln zEOzP+LCI^>hW7G{w2Q=C4-pC6uYuzLeeh$`AS`pPP!%#vSPXZF?i8^lnc&Jc8J86x z=9w3EB8tl|{hHnjk`MkcY*)g7OMf{2&b_3%VT2XJYi4kPZ6_*;Lizq&@YyMl8(`5G z4HO310g(6u27b~9@)e{3u$&Ya?M?xlI>^vHX^50oh4jUkDspfGQd}^x|KkpWsqUp| z)`O$@!kT*s6yO$cx+C<(xQqppJ0Tdog|%VtmT~rjMsB_!uks4?hQn{DU5r4M{Q>Ok zjp~mE`V?;?y}@;PoaTF=!d$SeG_%d8O121t<>D-*JoEF0I|>b@`}(k+hAS=3D|`quQ$h{#8^BXJaJ(En8s{mV0Fo zcHWWOrLt5=9e5Eim&^JFftvXiuHWzZBfes<>h z7(aXXqFi3^ZMI)V+%xFA@`XKdgM7C-Bkna zO#<9uux;~K49iH6rPRn$s-o-BicrY7xuS!sPjOiod6qxmAOdPtIH1H}j@^MupM)as z+|I8brlro@17cU(1fdDAv2jY&bAX2RW&au02R07z@$ua$t7?eSQFYaWMBK-k3OJU` z-=MxgiVRqOP&#;!enR2+EddcTHHaYR9BYE%4|0znP)xStlFO(cK3@2!*@fzl%kAU| z-$?FD@&~;win^`X`YkZ(mZ4?)V#7`#C85xz5=zvD5V8(MbnF)Cob}L{eSW#t^P=u~ zQGA{3a!E-yxD=D?pk%5&mt=83s(se=FU?8(3fo-?(yBaznXnWUz=cj+x|ccDr8=#D zhP81wqctR`=UC61+?vCh3uJUiz6G;wp{F=x<#iT)tXFJbi;$yj=)jXqD_Ioju!-%>?mh+7ky=2TY{_3m1&qxkO~2^Ksy&3H=9 zxSb#n{Bm7yf_j4>?mP_%KWM(u^!~MSqayMxaUZUd$HI`9WicK+R*H z5p@UZD2eTd^Kg}lFB&jK-hAIOV&5X*c!%_)<9|8>C~XJ5PtVR~#0b9dOb6Gm({;fv zx=6y8O21G?5wD;t1QCO7gEIj5yhXCfuF4N7Jc)s0RsjLA$N8k59FiPP6xu(55}iU>&Z5T$$Q{ zh;`n3H*`g+Wk6QjA{2kjee1HXH@-hvw$6*%p^A_7aJnFHIg1~$33@v;#{4lA^=5{x z#tE9-x>rAIx@b7AU}?*FKs&? z5mZ0}5rhQ6I}rJCYq|w&v(0FRA3epm6~ThdHSDVYWnAwU#ZHt`>PL^4G^>}^WCI1q zO7?$)69jp*GAkyn!&B9|J1N@?dp9cWl`QQM(ihm61pIFu!MTcWt0YN1e2eF(@_k!h!$fhBQ3}m2J_E z;CS5mdJ*B)0Hc;3t*k~+V-jydVO5a29$cZVy0qRHLb3b!8yNU6J8+8)$W>WE$?A_? z0==?0&G=0kGDLUesz!8&b;aow?r0~vZoX^Y|?=wAX7etLgKX42CgOY!{D{;MlA z8z**VvR)Du_;0j>M zxX`>n^Q=4J5Mqm)$gr6KIZZsfsNGDNQLNfm<^W{S^L8mgw~AhoE&!<@KK87LM|%N` z8cOS+<*0EqwwEG8^IYcS*J99eRI7cJ%x?G2e)qqZqb@S87A+Gn%D<$#IgjwCuZI7#{;{6&6>@=jlD4j9D@{Ud`9iQ5 zq`+=r{o}%NJ`|W<>$lBCl`kd&(-8{jgYUp7(9!^G9B5#o@OS=f+O~%pYfs>L6?%;o z@+NiUu|NKspn~XKFl#ncYeWK#jer;wmx?Kua-J&bP`znw_zmG@IGw+6G@U<)8^zqn zd#FJE&#F$;|E}u%ds8PAmZeZV$sFl-@3U8M7vvLgbW|;QOeJLJQ+@|1Q=Tjc`aaBB z&;VNa|21`B+@}3lz@Q1JLseL&4+wAnKfsv?6qh9d+*<#$y*#4U{xw9%DX)-`0@w*j@K%8#%r8%QEABBWS0xFp!T2RG{*=5_xf7Ut zTZVHSb%#gL<`PYk*VWeg0)8x4lgb+%4{MO8t@xX#J*}nm|8icFK!GX8pTZ_y0$MI% z5@_JObzw$cBzXZwI$oN^I{iHMz0N|LjC9Wd8q%NtsRZ&YLw;wu$7qpRGt`5p%>21xjL zLVV8`{}7F^^N&4Rv$;KeK+65BUB)|GksEy+?cYl!sb@b+X;Fco?N$c}+C<|A1}br! zLCTi)!k0Q@TsC=&1>pXituRSA$f~_~f0rFjKCqfvx07XFlx0Df%faPf$ZJId_#98p zKYR}Eu}2>TTV=KrqzJ&EyLoUwB0d!NtA{;#q3yV9W;Y4hfLKy`(nj?33K!=OaFJ8{ zsJ83Echwm#F3mf<*BB#C6SaRP8>ZexM6s;rdfSA_C^Mh*@^q+of2QUrb4w!j&>-=E zU0b*nCbJql#l{Jvmz_ETmqxY38o@H^sZ=i_pqmcVsu%aP-UOBkH<~00FU*C>EG^|H zj1zOjcR4Onag>P%55vdhbi&GJl!pcem0YUq8e-{;l#gRc9ZTJIJ9&_dG!KbA5<2x* zPKnhAee#?9PY7vIPHWy9y#qm^v%Pbe{IYqFb#<->q)sWDbhp<8gNY}OPcTT$vP@0Ncx2ay5sdj{T$CsocL?pmONUZg9 z2{+vta6?#PVN$I6mT!IEZMj$m(VQT?QUi5^2~f!M(+)XRCQRgrkhTE3YWM3}_Td)o zQy*oSGR3|;Wk(T5A>5pyxS8DlND?Kv$)7lm{L;KiJfi*Cu6C`Z1Q(4FFB$Fi1eY~l zRgnEq1=)|C(^Z``t*O$NWF|3@^GY%+c`lKF?BBH)5wQvaY4XJz-R{w+ zDew30RPt<`7`!eu(**&h3l)*Vni0^%Yo?H&ewS5TZzZAcie-gpEbFL7jAR918tpT^EW`Hbt>!TDzgM}iwb-WqEZ>^3Ku0#SE|ABg+)K`j<=$3zaD>EA>n zn-KL05H<^@WIo;UogK~1%>MGmfWu1t$4hV9(eq!vxPVx-D7giO>PI~AB_Kz6sL42X zxXbx^OL#EGR9~pu5U{vCggVuW>*`d%SKy8g4v`FICd1CRH@GwGt*KDiJN-TxaXyR+ z*0h(Oo8>}D_5YEHj$2GogKA=?B<1N05iGc8v;1vbib00FJ~Y=Uq7;0b;|4*tiWSs* zPc4vm?N@jZExGD_ugWh?*m@%|kzO#FnzTKVTZ;cr_BfPx7GOM8HK|p@Uk+Lr>jiJ?4geAGA6a1OxEgF?#URZtl+t{Ze z)T#v~@V(0_HvZ-A)ZVgg8oDZ-gCp{WhJ_>|_Nk)N+MQewnW|nHFYHp&jsc4S%@fga zt32L8CS?HzHO;PFzVKFEGv_5y7YT7;Y|py|2je**A)AhyYsNBa)^NUysslP1Pd=@y zhoKbJQ`j@K-0TzlC93`Sp3f!50S)^}l`ezhsTwwq&V58fi=F0Gj6QF&v?$Ov>0Oc0 z+&q*3s)I_x<>yj;Dm(DYN4$zgcduVu>#HGO%O|wO;$L=1f(Ef}0 z`6zxa&QJ2%KRH*69Cpa*KC7mFQ3{tOrZiXvB`F6N7P>RK>uJ#;U_aDXe1yv(MA~Mt z)5$85V$|P$rlyMna3nH>`FAMtoe~R$yEi7an{T9ydXhY3Vv_9<+kX!<1EB$?Cp3MG5oe3~>@1vM{(M*5$XPV#IIOf~V&@<)xyCZj#5<>73!Dk(- z-^dF{W6yL6aw*6}MGp`v$Y9e4hwm-t#~3w1GO|<`tQkb)ihM6``x!Mayl-F zNzjDFRXjY}p^3gHrMBg!^9P6KN-AB}{VK4Mp8oZIZv*?_bM9JIxAO~#t=rW>^w8}S z;mP2A>R~sCV>-eBHyJPvh*Z^e9C^Coz4JcFVVQ^aNQryJ$se{qM?A3(hN`IO)~#3O z$CS*kwD!Ssq<~A^(N8ngIk%0GGv`Y!bl=S8S0r~zVPypro!~{RI!B|%v>y74b|hfI zOEy4(pU>$x3;s)BhKCZ1_9kG5ZZsS{8Z+Of%Pw-G&(?TZCLWVNAgqGo^7P>3^ z-$1xfRs{bt?IP6vrWi@>jCn>A!9rj6BQunoh^2Ao8Vd(znQ>Hs69f7xEXCG?Qqwq` z&aYh{OGQ!n*#?w02^lCkhwU`bn3X*~zgHOvV2#UV>Y*%YS+w_7Lkp-_gkCQxy9#^) zz}xU?ag3Eih?+&Hhvb_nnP0bdQFLq0=(P9V5iI5n6h&TB!I78F=8A}DNDr(I=eKMm z_f$Iwtn4!r%VHm(2WMGZH1hROJYt@Y1h|`R?Z5!iDf8bR($d&MX$cewgXEk`S+7e8 zX6cNk{@by_#=`&P#8cEcP_#^y9`i8xP=kBmq2GQZ@VG!{otK=AvS|7jY61OaExvX7 z`1<1RW);?Y6lV(rw1+z~V!0HBjd=NJ5fsU#vxp_IRV@M7;#Vh^CnAj1Ld#gQJmbl* zDNc}uE6~=Kyw{ctgS%GwpL#Ty1%&F$&a;&JGZQYFHUwW6W^%2@*vhBRQwO~DPR@iS z0{%Gi-wpL8X{O^T^^f`;?ng>f%~0)ny5A6&l=9>I{{})nhnNG_>$$5rYlrxTiOkH= z(W$AG1xxaK#djAzCQQ2BFE76flOvg*|K95*lj+(&ZWU;2rds84)L3`aI6Y}qO4F)j zr@k|9kI%pKJ|%T4+ zI~Hrk^3*lb?H>8ATf72QO`(?|Z*v;H%U_(ujiQD+Z72C$b)LBD;6`nSIA2O$iy<`Q zp1VTr6zkh5JCwIuMZ~7Io<=@EZz|^B<|iO2A{CiNE_y(qSE^fWt08BWFNvwugUrO) z&BYP)-||`Qd7rB*QAI|lzfQZ_n^KkCV^L?(T;F_9IgJWx$aHNsbsb~)TDoEKiT$$T z<6O7$^060Z?<6uEzkj;5S1x&SwUFqmG+%0k02$Br&Q#ZEKWLb(qB-7u?UC5p`&CJ3 zi`B%{eu7U)XrhZIt(j;9xwj(T3Wq8hjTG!w9= zV{ga`YE6Y|>F6cJDK&TOGjRBN%{aaKug4aLA^eW{`?3~<3UcA=;cR19FKWCKtR2Ti zt};gq-@Li{92-e-FX8y7I|0#*16gO61`MHR^+9Ns&v*kCby+3w7*HSl6docn0bp~%U5zE@{8Up-2*?8 z*cNl*yrU_?J|>&sJ%TpT_@gd-0c+Qu-|UpUYH00TSKS4!DHcJcHNOo#e3`H{d&0*} z@G71vn`g}F(}&Ljx840(Of9WSJLP@z>{pXAQ{s!FYVb7^_LN-@AiH>c4{uXh=)6jc z$=74AqxIQ$d#fKPlr62AST>$1j>)5U1~`M$lqZ!Yp~fHEYxb8!v)1o?LJh~TguLYw zzVBt8tA(ifIdcD!5Yv6O`|HwH54?8Th=S{bmp;s(%cWKy1z|>n4V5?b%T>p$5Ney4kfC?FQ5bm<*}AWmB*`*6p*=V zaFO%?)Y$*};*X<+-H~^>r7_ZyQkLANd8F`S_7H{W7k%zN)lh&H(aFIk3rQ0Ub6wiYL zvplI6CSJXLn#veypTSM*Yz^iThUvtYZ}EIxr*Az zdVF;Y5FOf`4?cw2p^{JRXXT6v3@74Up{wP`wav|eeuw+PP4CY?Zo;lDW8;%|_tvm} z9K91Tv{+|Z{8JS!d&cgsYWKyX$2tLgmr;)lkf^qdh0b&7AfX#ja|0k(Yb$oH8SYh)meD2n%Hw5jUrfBsLX`*wZI1}EnViIGw6eZ_tRV=R5iUnAlB~8&PnFtu zVt|54BITM3iMZS13?Yxa@V#C3Ow!}!HsMs7K2&PTuYy~eO+U%tMUa!8B|@B~S2(}f z1s!g#*rR^N)2Zc+sv9#u^Lq@^ z8AU8?x{vbWepV7vZtT`Jb0yEN}}>BSn&0l(Ef z=xB0>8`U@4=HN$v+vF2PCVmNXm~gamvU`jj8MWL#g77B<`q~79=)_?-bIr#}xZb&% z)P8s*0h(?E&I~uFN58CxUqtJUz$wv#UX!|1_@9jBkulRIFrenIq%4xAQ!W(0gufN2Qe-f%Ql2QG-dJq)M(edHLL zV+c-1&;fps9fGS8cm=`H!9(y%{4f|Tn1cA%RDTZv$tQym{hIpED~N;94~OC6WXiK} kn47!zJ-7Q_=)@7YAUt~+-82GcBy}Z#!Sud^3nyUz2T%LHga7~l delta 163477 zcmV(vKQP8Whvn$7OhTX{GrV@X^%)_XOfh{8=bi|?iTRk5y{Js7_#)_05M(|WPf;W_-iwJo}TT$OdP zs4kl2;%)%?!Y?}if)}gZ$Mu3sfz2uA9l{g>t{CmuBYeo(HE)ZDsu)wnFc+QR&QpAQ zp;+CQFAiacrr*jNwt&$shpU+eYz z4`(v%LA&TDoKYy?HCt^(c!&0XGtP?5_T!iUPBDThvy4NCRs$!z8S)g`2A-}enD}9;7r@`AvCNf25o5UAxb|W1}Dj8I-X;S*^FxnC811l1rqXn@`QES+A?znDeo`PfrLvtCvmG1V@AQW-t;oWsvk{jhMU zOyJnev%V5{{0Y2T)j0{0F6n}?O$SI4p9a5(NA$CDy)5bxeu*mg!#kwC+LP!{Lnqp( zNf^oC-scVV3_Lr(Xx?v^gNSqussETn++TpTTu9UBE8HzE-iswN%u{i9^uXs&f1*w81*wsTZ5uYP+b`G zO06nDVprW4#4gzz(b%G+MEPzK%;j0uWy1sQOjKK$w&5sK{hqHLo0q5a-0gXP{8{mSyS^({19obNZuY^P zHxqlpbwo=;rUNYz^~S>~rd88 z-Qz$Btb%(w=s|I8BV3~Mj1t5onCU9!h0{RCfqVI=Z7nK}9EA@$WazFK%jRp^jUzXp zNU*pgH8C@P#B#OC95TK~Ud*xG6M!E>3Ue`Ml|@(SR1YfxbD#6Q`5t5nf=x@qgA7>R zFrF>*Hg(h??uEBo^^HM%{V5M=V2^^aOYMXNK$dPDO7uD;JY&PoGk2=7orppL2R^JS z&%!>jl!@sIN~?<>GbV)mm{deES@&XLQJZ!V>+wc^RO^0mJ05ce@lrLZgR_O8%%gkg zBRQN+vq+o-PeatvvjZ9+Oz}7s*C=jDn6&FLCj;KC+ANETgSUbY^K{JcwWo$U>LupD zG;2I>(xyl>Z^CKCzBDEt3Sm3N*i-$SaHZ%8VFff(Zm6>jk4;JDg_vn(#4N6OP4KeV zEt>m(i@Ty;FN)oWifkB6an!}CoGMBRf2-IW3TfG!5B)}w4rOW9ElZ-i(+-C?MLm;P z&Ra#!kLb@CKMr>AdPj8V5cV-CP;Ft?1P5dV%{;>;j*UrnnNSF*lRrUi*7DZH_ zHtM(a#y|&zF{TF(;^8wat8X3=W3{KY<-*JIR}nA_cwkj5>xK32NU&xGX<^Pfn}V{j#Xb$(R2h9!xa+6%(Al#darJe+CJ& zQRPFV$GSM49CsfgOQqWyO$Ka##C(+)2e6%X8zWZlP+M%D8MG(_C9zWnwrz1)Vf13&`2BMLFsAv>q z2;-IY`FA|LF)-zdbP!Vq8Ks~O6Z8-TJGyw=M#alh=*)ccJSmDahs{chf9ZlJ z;5(hl$K?HY^7QGXtml*FugSat@|SLX0;Cc)Lgq*|T!Db}ECK*p;|u^60GA-{0vLbn z9cfb|Rq!)b`5&HGR+8OeHh@>HqT+%|$*}@zDJnH&CNOT2i8B)*vGBLs$2;f90W6CL zt}xTDUw6NL-Tm%2(csdL2i>G88c&`)5qk#*N894)c=LGYh1l7DvHSfNy&fJ5Om2vl zc>66Y&t8&bk@z|qL}`%6$v_;({V0FSgZ}WjSZl9-*#4;f;c5Hh)sHx5FX;q5aTY+H z4RQMQ+i$)7*3O{Q8-@7(=Z${zzlwWNR)!&3cQoiAtEP|%1aF~OArf3!SrI=3X`GBQ zktU-&9z+>J#TWe~9095e3`Y4yl8Uc-@%csGNd|eE^neT%GK=!aID9e9>^XSXu zdV3I@^`fxZ4SHGBQtY;`^EBw>BI$~~ougwdV&*$MzD`j&n2ANuC1g4xOa_fybS{Fy zc_i|SD2oiH-w%FI(jTHU1GdMv{YJlaLIm@2b8s`iFo4N zf-7E-opZ|~F<27XC@G#394rbd+CPU$3iW@EWjg9XFll5UP8tWjcoLmv2w5u`Niv9b z;q^%2*~XHe^;$vzVMTw1LMTR&K(OkA9!Nca*9`c=dk;u?VvvBT_xsTx2kY(!Aq0y= zq|vY!bRv=TLR1Fn1*FPT$f;RkL6)j)vcfF2$V~x)Vt}=blV#u75Dg;JARB|CsO%th zZ!E5o^i?L%CI~Bg2PshX7flt&X*->5s9dY~B&CMzSX5OS$)tbGVMAdWBndcqSJ8MX zRuQrBXM1{sxbnAZ``C=pUfiOYjg|13(if8!6N zv0VIMbs|5D+OHc#jspmkra#JZaTbBeF_E|LDow#3pzV)4+O!rFk!#&( z7HXud*=Cb;3u%9Bpsd?QOF%UilFpK(7X^bxt7U5*l35UXDC?E-&%kYXBy+ueu}ApO zWOahPDT~}%BoA;@d35-9i^t+N<|*6MT6&BHt}gK)?&(k@uBbZ|L6<;W1jAtjy@C`w zd7n=$3R8I$r6GK$`TzxZQOGzwr6$vf87nJwybb+p-fht$#^uS_Eb}-DsWZ>>85j8 z_`Vy&XJ)>QqPWI@DE{anU1LNe9N=%-HSWq$@k9fJn-MLv8d`u08G@XtWQb+W+Z|_f5m<@Vb>KQCq6lY$0ml5Xp2tX;sm$RT7G3#YP>eSjVk2@&6vO}36b1=jV4G^N3v^-tB=rI5YeXur*(pOQG&qJ&2ueaa-xQ^QX-f^-=h&HYLJ&Vr%-jiwa zbU}ZPDjEp4sNn09>9X{PP^@nUN$$`As6__eo~(b^Zj*|p6Y38yX3+6JtfTM>rGQcm z9Z?W!6QOrf&NGy$mKaDtez(~GKkE?9N*9gH_pXXkO`P18^M2=b_@gCGz!A8xC9}5cF1{!UT>o0z(UFm z>JtbtvMcD=LEbV1;;(mQnUiie zi>&FTAp9NpG8CdL7O_$((@N0n1%uFsDT8k!>@5(dmUxP^TZ?L=NXtbqDzfMsU_pN= z1zk*FCgnImZP*TgP*8`Nvr=P0*<=uc)0+kX1p@tH5)X2%9mwjVuqMgBR`9V4A1nC8 zg-&+a9Z^da7kUY+; zYZOU?#MCrGe_^nONdCklg4c+~2>AP{B1;7Kp_6s-0!3s)(RAZ3VSg&xN|z3eHPsH2 z7Y|1{!DEn_X62JE=1Tx=7%MGF{UKseWdO@S><&x~siqVrSMsYUf_~0bLZyENtmYaZ z!h9Z1T|>Wls;1Vqwtyy=XI1KJ4GYE)u~8R9WEPFOHVbvlv@8Y@6c1?U?Ac5a%y5Mt zwVSuWu}%6!rIYL5R!8ge>uBB8(OpX;6UHWCJWuNZsozHk)xhrQ@989^pQhh*@? zbC?Rg1dW74nm$c28OIC(`XGN=VHkDdJ~#+X`eG5Y7;_Y`yP!=MwG>wg*$$~N1n`hC z6hsL2!v3g-y~Ne_Z%s&`hK5pEo$Q`nm~Bllvv|VzPet4Rpe3Hs8!4rJ8aPDYCf>%_!bCym0)Ax}tDg<9I|UEEz_uL>8T1DOn)f|y3_h@z z*VXjR-q(jmw$Ab0Lk1k4@dODp0Zrrb$CY;Vwlo;9dk)lfni(dhMZgz|!>j zAnwMUV1Rw)^Ed|qjuQCw{+hqOCdj%l2afZ9{k6hUc6WbmJAu~KgXVldw&J0bP);2= zAoZK59}@;XkS!rpd}f)F#KMW-{f4xZ0{p0Y$&`I3bPeqBs3i;nb9EZ#Yh3cVnt?XJ^8S0sG#IUDw2^wkW^5d6?~UeWZ_ZC zRB#&egfxHonR&`uJQ^|^yO4{oxY1x&$|nWIG=6fWAs7i{%5{XzL$%d64doR{8HH8B z!<9gmO%@W<_^G51R{{Xck^r+vb(JLmt?5#1h!2h3Ea|ef`PEesE>Hkmn~gNR3OWom zbgY6F>F8o%Eq#^t^P@b)n(U+zG=Ai&9C-#=wJPW+sBtZ(!w*%i#pPerwOD1hb1lgGFs=oR-i&J*#zpt4^O(Chi{Vyun1T=+K-7qQany1i-eM*u}USL~nh{KTN^K zaPAE1w$}rct6&WCY&h2xq_FfX9iDRR?}1p5-LLGfeR=4tWllU|>>*c=g(J5QCUt)v zU$fi_q^MgfJ0+5o_F808M-kJWt+w0HLa(XW9hGNJDa_I;QEM?JW$M!1s@9p?>u7$# zM4BGJ+5C`-EDEYdmBW;*uzaodN>J`Ep1a_NBjy#-1v#*~rTbBP)9*H>s1aT1AH^ z`*j0VVeRdzAanvOe-*S92XTL#nP{_*iT)HPqf6}&`3*XN+B8C*fPorac5J5J=*aOEo^>4Gk?#jBUQP;gYX508e$@uJF^iA0cg;?d0{^B ziIV&&vrrTHYCf_K&1~Z+^Kd9>{9@anGF3DY$ss&Co2bqqaR_TwAeA*29B0Qt_6oUj z{K0PMUYucHrQwnOf;4~VX9|HFKT>Z}yO>&YI;TnOJVL&KKk~P=M}Xz3UYn;RApSM} zMTh!wydU&cmO>jtz!%uY@Z)p9f59ipAR0(t&{&#>0z8Kf9jc-!RnjV~U0G&hsQN0C zqT&gY-H9mfS(fj!s5|OGpCReT9dlrfSMdATp`&%WDD>T0Rm*>cf8JQoZhReuKZ4?l z2^Uc>W>}dBpH2JmWvS-?bIO`aBNAx>6jA7&LDgKa1kQ0lghHP_l~ zvxSmi5miAP<%FP5YqK<+95fpqBxjNa8OSVTESN?F+9O_8l2&ftDGR} z5+uA@fJ0zX$-M)bHBy(gUYQBTw*6#KTiPv7uFQHF)v|y4A*$vUbs$85)_YNxid{+( zwJE(iUfZ0$JCz~sjIZHXpOnsEd8k>|C>-Z!$RTJ&2is@J7#7A|9M3Q^V7_Ar;D}4T zIG}H$`qdEMWR`L)o)TYwe2LU$P@|DM{W=EV1IAZ9HpbAykq};L;~ye!Ai5!Jz-uu0 zcj&6}XbOMwy%I;*HcwPhnrhF2fF49M9zX#(a5II_;T}5 zk{FnnUdyQ*!851Tscdq}nQ~h{KfaV)OjSJi3&w+xmQ^76%gH7wkLX~u9%b8R(kL7BhyCCTinC6%K(i?Ndw$ zmO$Xl1t)16Qn>_&e9u*me>6yS4i|GI7wOivJ+k~Ni**5Lf^ z6KLhcQ(Y#U4P0*-y0uGuYJO7FeL9`)SklEBK6w{^tCPGnlSWOY1J9nH0TQZ4jWMyE zQG?$krSlq$Bmgfh+Sn?SCU(-KC3m`t&tyG;axzE zN}FnxA}964&3b^uu3iw}w9<-z%48eo{ha(m|C)A~k(%3yslK_1pV+kvap+y5{;OMp zLjQYa=bI2p8z-ncpv=v5!2rTqlTdAdc6n5q>@49Q1uAuMBtWLS{eB757F&ONyi{o( zGEC`eQvY(gMZz)+94HFn!4GgzgL4q5!+|8{WE{C=xJWP845?NlJV~W4&Jqc29E*nZ zrt*aE5 zp_ROlmQlYYb@Oj3?>CMkkWGXWEaV(7s{K3TfQU+Jqp?# zl}8X6^pX2EDFOy#G2X76!I^S%Y^y9>X~wN&j7D~y1dLSzJkkk5lXiLjvNV#}M4&PV zsx*mLJUm!=3bB7_wsERgv;ULnv|4-sVeabL-R1H>NZojX*Cv3le9Eeh_RFkzm<#(D z^1M3;JshD|l@E65LtR1~pj%(X+0+cQ706hF(Z#*m!n#g_lBhIzysL>!*#~UwV45uf zR{3yZmB~;=a0_GGL_otDvI(*uM!hbOGe%(ho`hQMS#2S<0W;&|1E-&rp2o7ms;%QgSyA=fqMpS z8zdGk-jRRE^2&$e1w3K}g{MgnH)YHzG%4byOgM$-NbFm0rreT)8CnLNk2%!e6=S&R zoW)ZKOYoxP8ke^uR~!Oqf{>L*Kg^V%^__q^t9dTyGNI?h8EcGgaGl~*TZKh}7Z2b1xy%Bb-jhY|GfT#cu!2_VDv=U)vl=PES{^CM(X)y<>075rT!C&AH4I&w3x+z=dfP-r`gcWNH zTTF(LC`zJ`SNNdtD1|@7#1ICn12JGy<7|JdxPD?0*+9ysO6)Roy(qqX(M>3Cx~aJX zr&)ImsG*9rsArv8YUJI70MAmxvO-5qOyVk-eR&c-1~m|8jI!{?l%(A>?@@GLaJ^04iX8Vzf59$z~7 zfnVD;%`+ooR*1_D8>6bNdfMXZCv1Q2H0d(D&5R4ny1RQ1m8K?C9;EU>D83h|IBCNZ z)6EWC4t{3td~7+>IGQQV=E!RT_<{gHsJDmNb29g74eOj(p0k-f?=rlPNtd}S=gY%? zg5{LPg?c6rhnD3bp&5u){;Lm}(y5M;__Wje_^H^RE)RM4*!d_@@CIW*axSmOC1NI8jEx?_c4fb<}{J zWM4;c18y7u4*4CdvPzuImDPXti^k0j&ooaHJ)?$Zwm08yVrc%=5v?`Ahd+7{!MX*6 zqUrz-uRnl$cmM*U?<9q)w)BYU@NGJ|@KP-Bt;V2k%+_F8*SZ8c!L8_G0W_MfcT0Nr zzLc6ptv{8l^w(qg@b`^i&f(5_(SrGpp{de9K<$XlS& z2;bGU9{?on%XRo1dJuoTVTMRya2CUg^w^)~?B%Z6n~DLuyE7ty$AaST|AWC@f`JSN z|1Y4J-f}q*K*IDuFsIjldHANi-t9f>?W9;SeCOL)B(EEoN8mYg5{?`7OyV0nE%NF6_h$1Wn(0be#)p?%NjxUPQ#`ltn1zrtQm?-dO$ z={_dJJdfyxPK22#$qzFM`>HJ(hKi>1eKVLsw&C$ z@~tm{1K$LN`$qjU$qMjjQ0!JebCq5+oiopM8r~1TYeA7gn#C!ce}kPBo7l~2 zBP%XPn#wL$aV>vt#e$=AnAMr2(U1*$|My&WvGN*!W{myJQo)_(K<|Ijn3Ua8zJ;Q#5R`|J2o5St^& z?C#zv#Js*`7Aw>|@LHY4`LzeKH$MmUro-4Hne0;4@eqHp?f;3hdkb?`5B`ycF)Nzf za^={fu;?PPm38j*Y~7*4Cy?s#ozE6CknZ)jj(g*AQNlTS z7k@v+{ltHOK+HA$xXT=Myr7v447hOPHEzU>@i&mnGC5}`!#+3&3lKm+@HD+dEkcs= zkxD^!%~8%E2>HXO;1R!xxSsV{74NJiZ~Et)peEwl!m_ZcsKRTBF^*euNs)w$p?izV znwqDrc}43;@^t-d*7Fn6{*^I{CvCS@OWHmFbt^M)LD<8IV!;ZCc$$prloj|vQ!HJp|#(~J{#p}k!Jo5~W1 zp8Cdw7~MC+ke!W&m{*<`NChBtNU)!qBo}LSA5_fgjkfI0vh}p-4|}pf~!Qa+I`0))=&t-!|xq zdi+!O9-Ks9^(C%LDds~N)k(Cwu$*MRs3E0<>*)#xt&Xr2#ngA!m9QsO*yb9$Pd9%` zsj^^tuAF`R;D+ip6-i$Fh$`waRa12(t(L+vNnL?#NU1OxH%*Mh zc+BWD5|3kO<-HJnlgBE$?$Jb1_#iFT&v>NJC^`CzgW5;fqnU+pB`q)7mV>YB5H#+2U+=!!^&a_$Y_i+$n#LkQhF5 zSo|*?2I*oI6+&Vcf#sHGkulF*o1EKplvQg}Kj3*(;~g2Eih7?vKr#M&A!?4k^a3NE znUf&o@VBT!^2SF~M~|$AYTALrALI6}TG;n(V z@{V9yaYOhU36a+9CK(<-R&{^H4YnyP;Fn5{n20N_iRdX4GRVq!O!~x0ca7!HvJIz& zWhI)=N9fsaRmqG%)jHRtvQxJNyRXWX5W|@Ou*5@LT#n1;W!aNCTW`WfkmLLl;6k_) z;NhGT;6jwR%rr*O1N>O`jZLr7=MHK7JO+I^y#Pf>!-Y*MF(({K=J$Vyg~ioW2yV+< zNHT(#5{&d!Ny?(MtC}KC@mGzrsLvX&t?=8zFpk`Kwl^DpE_)R(9XBBddxoc;sNbZV zs_ej|4eIxqyt2>7Yqw^u0Z}y$VL0;;bk7|&N;R_Si|}yh;z$SY0PN$+;#q|5j%)Nl zO)Xk0?q%LnT4F}Vws(P`tmNFMT{HJuiM$bqD{4+{u@rM_ zi#goCw&u_mIrrk~T5{}|Ms2zqrnFMcYYwFZMD8+xQxxyWiP?fimgZE*(t_4g?rtxl z5If%+RLTR7LgVi2Q40?|i#nNGD@cM>V`v)f;D-^|lOnuAPHBIqq#r#ls~e8ZSC*_; zkUN$mt1m>c4D$_S?qL7h5Q!qbzOg0Kc(G);-`H09)$i&>QF%U?aSGmR1 z8SHk`WyXEzdAbNd+Ra)Y;~RSDXX|QqXum{ka!0>mquzI@ud7-#VKPGNqfV_4_e&T06G$Ke zH?=mR_F_r+bZhf?^UKYnZT~px!Bq5HW;xc9Po7PE8knJh%gUim@+Nq|d$W zi+EU*g!g}QL^Wxb(M8-*jp7nr4ca3mWf6Zp38vaFOp z*?0&pGnZ4#B%1G5py8#aExCu?I+xHdo3 z?WxU0Ido3?jTRQ?jSOHA#kjo;cpK~9w&>6yU9-{Hv7vswad zXq0~d@>9WesO3*f*HR67x>Wc)1?|-S^t1-lW{A@;h55A|BZmRiWx|*?3__DfLF%(O zLQN4!YHX?k<1Y0ArkfaIC@S?rKd9Q0ueWFRJUx)Kp42m;Ta{osNb& zHA-RdFT!*qOE7q&Pb?dvK=WP#D3f|jEeC(eW<+~4t#36^S|8HmRU_lwdKgUO4qY53 zaLdk>&OB#-Z=UWR&}Fi-I-!*vP(6Mqe%KbiPMan@8aq@Sox*?S#7}>y5dXZfKl@#V z%8$IM<30R#&mUJ^vPCdMAW``KxRa=vIMAY))Na;dIY1?h-SWRolgl`a^r){OP-=e* zf+^J!E?N4n8|^tcTjl8vQ#Xb+Cd~N>aiwoV=w!}MOVMu zMeGoejw-)W-w0t83ahmZjX%WOL=_&t*xysfuLFK%eR|&lRntobr7VNG97|l~g|bO= z;Et@WUEOuPO})tfP5r#9t9 z0OC?$sFdz`~48oo$|uuXV;D=U%YK15H2ade914G|0kT~*5;=*wQ@{_n_)mQTEGzRld6)kxeKw|ab()Rp zY~^}}`TJdXJ&Mv8x>J*=sYRN?xn;=1D<8?kPbb0gUWT@uP8EVs9b~Z~68JI2v%BFY z)dO6VjVbt%(LR4(gX)(nN##>Hk2+~Q%o`rVOdfj2FM{{`=nEUNa)^Jl8JXQcKKV!f zhANWgQ(-7_mB6ZFLVp#|Y3`_WbzeJ%e^V^G^o8OnD+gcmKAmr(`1~S=tseN% zaRfMvKK3?cOwh_kO!1_b~-_dCOecW|9;#iUC#~ak^SpvJt_p;;uZlH(wm@ z9PFRMzvFMiNx*F0$%T0^TP z)Qb^Cei(>$wwf&u?{1H<#lwOi3;)L`7$$>l0{ff0yKsM{0+IhNAMeKfSY79Mb7SJY z@hP7j=0w}nuW|$O9^aR7oPcLF3wL@n-hEsS(HeAp%f>7H0^!!;s6 zk6B}+acvodtMRKJ;R|!dql#w{mtDj+>PJT~tB69Z*0>R-3q)Wis>!`JPwutknL@^?NSRjHtW*TB7a%OLFV5dyt;R`Rspyi)gQ@7x&x^wRepk^%3gF?ah}E zExtL}-FhrB%4PIi+qaMwt@RQj*fnaL8KVbAr5bWD;4z1__JL*8g!GcZ{^90}?bBoU z{jGq3y9dUY41r;2rcuIC8pxLq+ik$Y|5~#R{ry`R`VO23L-}|^=T#8n_+OtViw8hs zM23Hx-P+oZVY2z4+nsIi67heFzq7@E`P0kIqodQ!{jJmOqZgYmx92gSk8fo_SZOOz zYqvI!Z<1a(+cpsEf5Uh)hVj9z3Q(ZxMa>`KC{a6Rtq(6@{0-ALn_*->s!{+83%dr!xYk4Qzf=wOG;whV& z-XN^1U&hfDtG!vJzcQMo$G)7!H?fYd+|;WDZJkn9o!MJXhlJd`X7^dq`s5yIRI`6s zc4<&(RdNc(e=fdO)PZl&sAx?a4FeME?MbfrQiUcUkYgs1juDwFn~5`&Ui^&5~&SwMaB&cr;6(_wP}lMY^%mrTX9=rLvpA zIaq&qkF5V@??{_lr-7gO7ou+%5(s|*T5fm@p$8ORX=%dwU>G-1TSFQb+bI;L|D8Q_ zt!2kf5AHHREbXP$YPGs+`m8qgZ{8z&*RixQed`{X`cQPE_JY#Cq|gl5)b%%Bv;0i3 zqHA34fn`>AE5a9-c((CFgB0~V&(w7^QOHos6XKlLMO;u93LGqpbb71{UG{&}>HJJZ z{O$4Fgy4q&_(h@fy?Juhd;9ePpwtjO!tLiH_@8e zuo1vBm272p>~HhltOB207%xu{08DY)ZsYISEnGHXSfn!zW4E1w$=Mix@e5UC9~++t?#H)P}ILL5(sXiG-v7*D!xKzt>{UAxK?l zMtW&3zsrqxo|r5L`+#ys;oG`Wk3Sh|9^(W70zp@;&z3y-t6 ze~O}yHC^RJ9%~)>M5j*al@lYY9UVEa+H&L?&xG!m`a+bWrUXs2tsv3cxi6{1lOmhz zQoEg?{0h@g`m)5JHP?UmxHH<@X`Wor$53>P+vizU=>5fMLT9vkYNF?)z@uEBroYl# zy91Yako;P?xtq4TZSodKzF8pMF$Le8s?zo?4pM! zFdB&i?^Y2T`S5VNF`puWX4Z_|oX_Z9!ckiH(v^CAe!%?T}BOr)<*Y^WUqN)T`<} zp*kN}tV8GVT3lggJF}2g!`iP5VQOnH9%r@5OZ!OM!K9!(iPa#dd<#K9cqK~fV&SWU zL$z2uzkQt2P@2Z4%JiU zSNxb9t0yrG<=ITWeA%_s=vh)|!OAt248U2{YbuEwI?!*JQRMhIX5xLDl zh$;34xqEe_gafzb2WK0N>-CA)>Aqq&0j)L;4GdK|({*|CLa86Tu;9Raz z`}HI#%CC}ZI;dsSb{A(bc?_$R#U4!&=`TcOQuKLt- zuWZhw4hO)tzk&(<2(@I~OQZ;Ki`vsy-9cjO5;tIO=_ErhiSt`(%|Gi%*T?*QeH8pd z>2JmF4m|M>GEF-H1wp8WLemc<7?;amv0{JGYj5-m$5iTh$r%P{*#cH3OFeTkD8^SCST>hR z;pv8gh%r-%;v`SfXbDn{zC_k6 zEiUKDHL8yx@Rxvq-C3|$ibVO9CH#ee)fbeYi3SyVqofEN)Y}STRlDn5E?9rjxXj%1 z#pqY3I-?4)W?bk6EwN%Pw2MYFo-e&m&{ijYNuk;PfEeG?LWI^gKa2U-*PfN+zG`W; z-r#zc-g?S9*d32YAML*Lnf|2?bHk9{Q2lo%nP0|N@j8AB#D`D5*sa_97w#dvXW1v2 z0;0;v)Tt0FB>Zr`)b}qUQoVn(jL_u7bwjeZxJBoKKAh|nC@*>rQa1L!+%zwzj}XR( z`89qbMB$CKG(G5XqPwFajQ9#EP8YXG$+X|pO+ZE{tqOY09J^d8RTakw`{&&&l`kDU8XNAaa&y?Nz0Z@rcw#H^Y^r|kC$M+!>50A?%N~jD3t~C1S!$s zcM_RUq`dJO9aA&-lwGw6N|Z(+HoWsAabhDzyP43EDX?$0P$>-Yr&aa8P$3t@d?5o^ZMI^S91zjE9V`v}j06##$zx7`2SB*8qUs=$@PZhSI zFbnaC-zuV@?`c4+dR&SAS}-`6@%GaJXK0=;sCM_=kbSwGM>8=f5}I*UEm%+U!ah6iXimK5jFijJT@%X+znq5x-JNM_cA( z=iI3n81=aiAM?d6GJIRtAq-_4=D&ir%8Btt;ZR&pkP;Xmlsooc4udQS!I~e_6+xre z-`i3#UPekw7q>^9h~ME3U{8sU{OCQ#GN0F9zIy-i!QNP(|MAxqjkv4>62v zo!m++OgF1XGTi)#ODjB@J0mbtKLz0!$8JIn=)$Apg-M+8W!(~Rqseo45ON(4=N&vB z^;I&b>nO%#xoq{Yb@-l}vUS}ngXg&2HwMeqVu%q3i;sVmk@EA;59++jfVYqLSN9TP z$|=<7J`VbS6u&c3s3%#1ZyQ~`I((JukWcMR@Ga1b45g)g#Ywv0$3pPkT{WF2MKMH3 zMgMuVuRi$w5oXX;KYNk)qg`Uw%#wl3y z;o*2U5MsYn=U`yq58v^LO1(fFrSmzm`>6sXuj(Bd+B zbWcyq0(a~}ialMe^sjolB+4urN&UhLJKN*oJUe^g1$9bsB^a#EP2R>hxq_m61l3u5 z2Y}x_${wB?vHXti)$mr43rB61XkGvQ5mRlwc1t&{0F*S~FbixP9uG)PTcg9S9h>G^=cnVp*EIw?(M z+L~n|oWvzg7F@f&$v71TMNZ4Y7fxy)4Q^7!q|7#*=bFlUl7Rc9R4Yn>&Z83!Qp!O6R z8??YFsW1U;X7lC6LcR8yJ!EhE1bK;JB*VnY;4V1=*mP>8_i`YA67G_%R$cK+_Nazj zilruZm1@^Y#cgk@iRqn$TBzMMrBWk*$s78MWd2KXU8ob&9A*^@+w>MT*H?PZ=GDcv zz@h}A?1hxF;DwF=frRV3$_xxJOQA(B=Rbw^2{|bBnO^8TF->-!l||6)a9Kn%C7tY% z1x~Dm^JD1AY?g*9UzENPvSezL@U|3qpi7{iLfSPogt#4S-l-vwuDn{9`7q{xvUTrV zwrbkb=6yG)j>Vg7{TYn6gvD=}9&O)8JN9b1N{H4NtYJhl&wdduG}nO}Ei+3p45}JD zsu2VAQL)V!1ZTl_$hOqpc&vqwM>TXMs}7&W^AL%c#bemKOha6T$fK-`#W~Y z`K2)Mp*$`Nbitg+pQovw&p01PF@&l=zAC3Qpp;{Z@L}Rt?1u`3Zsk4&~PHH?HwK; zjPOQZQ9eAMIl>Y^qqL|XqXRaAA|T0#|KCuCX~_5l>@AGAhme}OaafsM;=il|R0tS3 zf9P3d5atIJLpuQQ!wG7CE(LdNVn9Fwu8Caaq0(4TpOUDc6d9}ke_QTw9tk$n8|4T>A=bcUeJfULmNC0Ogv2T1;BhR zfXq0ut{jWu9J><$1}-60=I1p~q3gR3Oy+HDosx#>lf-=DcYN`-h7%J%eVVQZBiDofSoyH@$j$#k$* zy)+CghOx_FFmE-|{yBGGIQWycoW9DC7=Vu;GYZpKh2yz@C>3Gx51v(J;&P9GFupp$ zpP?jgd^MUr` zIfc?zn>Nk_(HYA}6mKi~uPB|BjkD~w#`Xq0n#~A*qsNE?iSPRKclHbbrkJ!LB@|B| z1s^ZI$~!PtfPByY2Qd17J7lnbQ+&5$?(&&$KNM^Z1H^D!lYn@zh8~X3JJ=ENd$jxI z?q`##iYW_iB(Rbn2y$nCd^DPDf4qC_L8BSp>r$g7Us`8lutE?ARb*M{I z70HePK3ROed9$`vJve|*%9S>9IDxW~c#XMrDm)l{jY&6< zij6K?n6Bw}IF$9cs;;M--#`BS=|-_Ufz1L_z486y*9UN)Rh3 zj}DGr8l|}!n;GGQY{^TY_&)1P@I)&Rx*_*ryS(4=%ij8-VHVDKHu6gYlUb&GD<1sM zCb_aeI?7_x`AUXLA{DEWX4NFwewf1CFr{0#U+7H_fclDlP%2O3nK=W$OiRdrT(S;> z6Bof?u^0<~@uma(QIxQz4V1l~9#-%VX=UgU|4;2(l^_YLAX-SE{6LuC++~Kc_e;A3K3D8BEP}m#+EK|NP<7*c9O_ zDgHU8*k~+Rj0R)rU=FvcaO{3>RpA|LN=*)T4)NLq+^OjU{iJ+tw*Z_$~1FazQSaGVD*$MA)S3c zU}CQB(o-b$v%nkSvD*`h@X_lGW#qQzkhX1V5x0BV0Qze0+Nb&@}TzShuIH~sJ=f-9cyzDqyeag0_*E67J|DzJDLW-0Ab z=Qv@nXSl$PyF8J9xlP3>-e-yOS4i(5%L<}5ryb)&h<95KR4>7zY1)<7AJ`p92weP< z;(Xx@rNAw1GkuyY=O%a@XBLz<2cPHwexWYxm4@j8w=?H%b8LF*wl}l7ST--w(2IQ$ zijAua)R zvqByGAq_*hJsHY9b1Hx`R-l3eF|K(UqF-&RUg}<00%~n?Ba;89PVt9(4%_3(M`j<+ z69lgnhjMxh5K6)ck2%Bj3A;VDA+~(dD`pm3$VyZ&I(8ew>;|q5V*7gL%~o6+k5$=7 zG#d6;)Se@M;yS8u6PL@idFiRoc1|uXeytE{gL%-QBZ)Q+n{K&+h9$9>#Z}K}e4K;Z zSO;Bl{L0?HR!Nl8V*qagoNhe&_ih$l#T(if#D*QQs#sF86w9QgXt;wmJx!-ZIXJ$( zWpU#SmbqCGoNv@IFyN~11GGj3IBV&kqh^pHf5{+!t`+<#|IgP`Tn$EH%|lu(QK}ca)zkFK9$LQjbdNoN0)2t!Q^%)S7?T>v^1k+QHs; zABJ%Do+2a~B=6+3>ld z_gvB6P=m0T1IHaqX>Vio9=d@ui$QgV7X-sdXsq)znWw+$z!j)I{u3As{jZDjIxsPE zQby+^Fu{TIv4RJ1X`x4}b5mhRNR_(UrQFItG&XtP>O?&FzQ6TQxxK4x&bi{3(7=4mG#+&#bwvKfmT4stSIX+$EHI=Ko0U4w2k5 z&)~l+qBzWMisAfRe|rFDrqloHp&RR325y{Q8@6#)_n_^WfYJI9+p1`7(i*MZAx3+q zHAExdW4eu3@s8L9^%{$7n2gQsalk)+r^lH5GdqmBFl}F#3oCB(FRr+MQIK}W zn(N-!w*KNe`xk|0_gQDK9wx4a;A1v)NrS(g!Ccqy*Vf?fiVF07+^y>CnYF9y8TwDl zq}4O6b5>mf9)L1+=XtIjH$=h0ORo~S=4fG^U?Gt27STf6{LXG`#BjIy9V5MeYZk3{ zYaM=wo4o69*D~Ad803aw2Ih9BBE0U1ch^3?{hvMJ)xeZ*Lii<5F8ys?WoEA4vUjv7 z#2NH>a{gqc-*znx-JMEW$KQaEKQipi3{VJW&33GpshP)QZGg65`b_c9NwN-0_ zZnf(5-!Z3_W8|<{o3>bX?T(Aop*Zp7A5(VK%fcMqo`KP)r`HOSMWu%qfYizV5njcL zB@pL~+*vb8ENBh27ici>>MJx}ifhPUxnPqy!8R*yRPqK3w=Bmz>#nkY@P@@iYcG)C zEZ*pW4(*>dt-Rg07mc|_F_QXYR%P{03 zSML3liZP$0pYYs}r04r&PNh@)0VVXPYhPR7HaA6-*v|{K`wz@-JUbOyD{YE@zQF(e zywtWSq&gQ-iZJ`=_*A5SKD@D*enIn)`og2%6Y1|#c7z(YHlj_^t%>Os?j4R*N-eG@ z^&<5kw_kbD%$72w;L?~72TLBZ8sWO4sK*}2U&HM8k~u)ra{^_#o2+{`y1xV4xcB$= zM;|_ExTo}J?P~4 zi)}n&{JjIU_QdcvwZW;-x(`u9$wZ(U!qwe}EqaB(OrIm&=G$m7^l5L+X- zWixIdAp_nRz-JF*i;SQVw&7ZcHQce$c%#FKf?>CfmKNNALj(23xLCkydoK$nO)gpcCpFq4G>npG@&s!4{@b+|UFmZvm$+qbLTXpqwsUGhO-^GjJ3GH|Q=S@t8UY+WH@=mtWmB|Ac491=77>!bYj@cNw z>b%QYRce+S*SzXUG`S%U;^xKwd_$X>D5R5(3A^erX=6hiv>3+;Y+!{!Sd@F7k?AlS zV>wsmWL$bw*%D1wb0yPNaHl${sRyqRRpJZEBtorW3Wv}cX9F+7N^)P>SG!mFx`xMHp49-w}Wd1))XJk0$Ggvlw zXbU5Le>eLgp&G1!F8-s?V9EUFf7(<_(KzEoE!n3lk9^cBb39IOl11+-qam zbzi-4GR3PmJ~LjuX>=VmD>+UoKXcz$PAH&d+PIEm0sK0SXArOB_kw~S^&NUF=420tC? z?zXdpwrDO@ zdIHvw@J+Hb26-NAjUdkp%R!zc@ui+_)dhPtzcJXe09}JU3tt=Tg_%xYk0ly^2Ymb; zk8vXs@esEbr2WFI6($MF+q^OLSZjl5ZJU3pwV_C8C&-pXVDbJcD+38oq`#Yqu~=Je zHa5Iu5^aPw{mm@(`NLlUqE>|AudC3m8_|A4G&%68r_tO9JWP8lXln;st?l5?^|~k$ zd)&WMJNVnV+BMsO^|tj?I#}9&R=cHD?JSv>X}O%~rkcC6sqCcYwYo`nZVzN9Bg0*q z$=}BwAiIapvx#QbUg^W@)zz-*x3feVooD7T;*;zO1MhsffFoanC`NCj!b z<1aq@YV=Lq@kv6`4T-!CE25DDifi~>)9sbFwmWmH;$#Kw6+Yr)hUoRzHh`7Ye?Q@P zdRmL@Ost-VDH5=_NXqkJ0`7RTKB6D~I{a=ao0cI%F2i8)Y4Tj61>G-bD%2?BuZHWhbvax$M-w>SXJ~k+{R6lPA%< z=;SK8exb?bHZL?um@+ATvTH`|rDZB(eWmkcE++p4A-e87xk^&X;)~wT_56~qLN7B= zj0TU(IECMvU1&>xz&7E;T%bT|Vi(CZ%D8sTAGJ9!w{}buvMgHsIs;F-K!!SnByg>( zTFvliS)5OR>J50|D&Sa`oaNv8g&I!J7ETsOiW~_WCL*Frd^7Mb*!X>(5%K{1RDd%e zBsf_!P<;MH@h8pWbBfXAZZbWO)T8*a67U7{bc#i?6H&TjJH5_#fTV zuS;;7n)Kp-Ux=Qir>DSY!S9bF5n1kmm!poEeRCdoI0lBTgW*+PSHfAK%Dr@f;NWvq zLQiH|+AqA2gt~j-1-IDjk?VX7n(?SClj%=k%eZ+*^}q`IinCNA-E0SH2gxM|9u-n{ zhV&x2v`0C5C(Cp`gN%Vc+&55qSPrNCF09~$SCtEYvB31z_#b8$C&1Ss?`VwD&^6gN z_mVQ0&&}8`oYAqgPLz54-Avz-%n5Ea$=!>SB>yQC_aM89+XXo>h0_i^0Ri@yq$OVx z@AfgzmN_*LYPOmPL+-S59kVQxY?3F70^*0BBxA&rqR>Yo9GliYZg( z(()&NNSv|PPxF&3UuY@yYD3=}ZU4|{>@e1~C776oNS>#NRQxhMMVKfcM+(gHna&A} zlFH0N2Tnls^g>@;8{-k=`cN%o`0Xm$OLIME5M<#_@XZw<$vbnPolCsmc9uK*q9>YR_imS`*ZK2JM?QTc7Q z@Xi>Ms$z1z0|kV9^z9+MF?&4P+5ckP;yMrWleFAU^J(DhDeZ1bBWY}OL)WXNJh|V0 zS(*_|nM#=|RGmzX+|a>cE%;3D^JpLw=HRckCULA!mwFyLUzg(JfQ3$SXvxsx7eDEI zs6NYr*OOM$rvM^$M8`H@K1hoqTey&vhaHg4v2c#q&bgmlv*+)^a+0C8W5x$29`H~ThV ztPg@kE{>UgUZ(5Dlh?6SJ$|Sv1@uBMiYzbsZEs1kyrNaQq6HOv59lOHKmj{tdKP2yZ|BTW}{#U3~H6JSO~0)j=qbL$F!q}*Mc z!9+rBoJ(1tpK283LxEYQd5(kQ?4UlXweK!wdO0!+4o+dH@h((^`f*tRIc&*AGma*q zo7kadf6=JrLUG^hh5-z{j%Fr|5i7;popmyFPM{<0ua4J`&MiI%ZFi2)=DL*e**QJA zme`W5jLs5DyeCa#2+G>N*ATRSzJOih&-*Fbgu1;JFJL;y8ZS`WqJ`(&g6-5a$HX2X z_MUS7Vyg2pNhKW3T5+30H9`J7%e@0U(dWrknk{)}`pO>RE1H3wjiwxb`mS1JC@;GLWKN?u}&TGDGc?RvZfD8T2Q2X6^(Q8G(^bbPq`70pxaPI;R(ZcBLJFcQ2(GOdiS%0$p^k9jTKws+D!Ko+&sTIh2*hsk}q!ew@nj zjgM3L%=kD}{rb5)PK9f_VvR2RsARfRK%zETpkdt+EsGl+(Q26gvqfnTdwt0((`8o8Cv`PsTJ>@buR_0qTJW{^IX7PhR8?6m z)&XdL+m$_br&_(*Z3RLu7dujIyXW?7pNd%N)BT?g4}N=ecp~SXtW3P$LxVU`|60^< z7Nx|0;$F3qWy7LZ8bkY&EG>=4O(=iG5rk~x{^P9oXN&<+orajtV72z~wi$8j9dW~o zyHyOF=-`_bb#wr_M0lRh8x`HhCX>)SG*=jZVKl~8TuAL|t|M``m>cjvQIwq-^jXUv zCg}^2r_U_d%-_?=JXYEf-Bd5{mrDS9iU)k4+W0e+&s;JbzJ>p58tP)~cV}3^A1jPU>zN011JmTzs z?43W0EU57y>dGjz-9v zKvV+aq^yMbzObyYBi36y_7I6lsnni-#tEx!KGd5P+3TQ>97MdABu2`Q z<}CEumdM=FJ(tl^Ddf``M4hOo;D=10PE6-D2m;@x-`MS`uGw#r4kvRoS50HVgT3gI6!q>P*^Gf8uWw z;KMZd*vzGR$e9oDoW=Kihqirxx2Dd@EwxPrEI}>=@WKMA=M>{q=y;ryCn`P1&LZ{--vWmdFRczGks%3k!xt_?O-1!l&-AXHgN4=GM$8J`8XMUuO2$62hrVddO`TU z#o)ljkZ~9dWQI!fUk8qE*4Mkts_lkR*g%00pTr7FXzT}oO-6jQp2eAe)8w-7H%_0l zMq;3NmUt)$F@P@$q(}lf8e4R4lw_%V<1n$YO;#Jn39m4yjaP|w9!Y%fxmFWu5eyuz zhM6`12)k6G40_XKGE7#_Y`WZ)CEKWPUmMAx(fR~e3^mBSA1eAOCg{6(nfxN#z!MQ7b|mw)Wl?F zObt|pZNpQCnpDXG!r^H45y~)>wKC{U@bSD)p?Dci=mq@ddevz z^Yef>Yz2jy^6^wIgS|1c-Iu-0faLSWNMz@VysR?aO=ZUNiT0cq zejXN8<9Wt3W@SkslFgK`6q}GnheI$eyk^W?@)cp4p$i~?@qC{KT#+57ILeerP&vK% zr9hZLF6ie4gtus|q(^^TNJPWWCh-5t(P=t#+}s$ZMnXBNjMOh% zv+Y26ABi`QCSsCGT)!nw(0vysNIy!L0l^(?UPBxxB{cN6jAuEGC6*CxrJZL9aF*-9K!lQCO4F% zMYaZikRFK13uQ@;cj+A^O{<0R1wy%d8b1%#!^J`HTliM6a; zT~={jHU{)M3~0$qAs$Se&rghPa2HpRBK5^?ipQj%XM7TxPPgO0w!&9MgZI@>X{ECB zbLe5ZY=h*=-FRhBxRP**q6v;?PR2uP6F2;SZo)ahP8ulpdj;!U&e0KG_j3|%j0)i` zxVogh&(@sFweCTae?XHKS#b#NIRsrif(|Z$hVI}JEVK4In(Anr28;^V6964+RX>#`6xR!wNt zXq(V`{h+@svAPAb-b%H>g0rk{7R{!Z;!G8t^GO2f!c1|Xl&Av^h&W7cwojl`ck_gC z$=Ok&YBo+VyOY^r;mnEmH>$JMVfhn(nj9WqT+b0)vylN6x7ZkQ3j+%_8W@<_$8Jz- zF&w~bcsG~at!i?pk#AgF6cd^piO}YWj@KCFJ44-zpCZ**mgxuo^@@xua9jxkd`KiK zMgvAKA=FCD+W=vDdTFDewDf~6L0YqNwm8I(%lvu$gz}8lA8HYqd?!d}o`w5=1`WFk z-jJrNCV$HC_`mnM4JT->sO>=PZJ{9iDpU)^>`*BO04RPo&O10yD}Eh6)R)u z(sljuzUfiyO()u`#dAVdALB58(?7c)T7gsz(lH%IXTO>0#;%0zG#P!^v&mr931p$z zO&ocR-_SsVzVQ(>8DZWqcM5!s^JwcyOA^MLy4<;!?3wY4^26)$^Qjx(`OE}&8*yBl zB>5Lz_qoVp;U<$%D(~(l>h>;zGP@nauYYBKC)TdCtR*SQD;tqj7rab=GBz=1&$Ief zmd)hr*b)Kz;piLF%OZ3EPsy8ycXoGomA;Eo9qZc0dg+B<;J?U9tmQ0)FQu>UQ-`4b zi<0h(oqbZ9yI};)`dRt26acHun%w)mCb!wF-fUKHmLfmMrO1VcX#Q_Yk_*j?EKM#z zY?dgSHby0%HcOQ~_c+CWBSt;Uzde2;;TE99tN+Zm`Ri2a#zfkfNE;JrV?6~qCT{HG zw31eP9<19Hi`O0XmbQMYi6}F+Xk<*;yy$pBY3moSXz_&tx90ADy50+ZoowBu+v(=X z*n+oOTUVbOR-LOly^=A8*I9N(KFED=OGH=YzEI2;B*czA=|l*69223l1KDZyQ4K?A z7I!Ky1b|Gu+|a5*E0Zb^O0#X^J(cP{zE!(+10|4M+Y&+=Oe^snR?Y}p!^h!7cDSdQ znA|r6$SvawXWs^Yg?#OlY9L}ZmIKrf(=j+^l~*r24M|&;e&N8PhXCK>!H9GYh}y(; zy*h!sVv2p#`8aShiXe1@5_v2LFem+bvk;Neq|Z>iTPUPZLdtE$=JTF<8?uW|>Mdnj z(t190YaSYFcCgI@ouGxrW)IRLm4-gnH_iBI_2&Q}vMa)WMoIZ>o@umtLoP1~e^yqS zqN8{nD#zIhrMYEQpy18^-qGpJ*Ud0TgC{%A!dqv!W!ZSxG-=-D4(DHDuh+Cla68l( zWi|mpd6~6$3XbG+s2|JFTkmI?D)6m3ep^#}wotkq)o{I?5>rNx(yEr1OdVu(>TYpc zLfbL6tjqv^IBTYY`;hEQ{|V{!I-*?3AR;h{>-QvVYgdKW8?Q4}bXlAlrM=7PjrK~{ z+Y6j&gJp>xmpDPfE}152+%y1Lx6yffN<~a>*<^>_oz)K^oX&45EsyRi)zQ*tPWCvk zA9SbiHXS=%AKUbhqw&T>3&eoee~PHbOZV^JB(#)&BCrz+yrmxBDW)~H@a=bgnv7P| zT+kRT;&=0r+omLDZkH)3BgoB^^r1~jk{0*mp^0<;C4H@a(Yq64PGixtJswB{%cMO; z&7W9xI)Pu~D}P;>k?23jFsg+Bcr{#xD4iA4tdfyOw})S-PgN!e2ZEc9Zq;>}KcCk$ z)A4C?n-^Gz8A z?G<}g1Gg@;8aVxZwHjQ0D1YK0fd#8w^8p}@N?WoqM&7P567RiGdJ#PAMPH=XXWi(h zjQJi^Yw&O)_}+P`7j=F=+`q#sPrPG_`=IlG8BMNE*Qqlx6dzUmE)`=FiNTm1MLSH46<1^y^0CTHb;`osZTve>u<0wIrQgp zl3r!yj(c+o%{TO%_V-SAOz?oU`gB}>MS51#K~X~&%i&RDltR!<<88Q*7jE-h-< z_I(k{XLuVt*Wto&T-=YjKk)e#Ha?wC>NOkvARN!SU5o0mBQdS+9#+y1tEcII9DzR8 zi0+F6#WH%#<;7^2n4%4LP6tT@ z;8|%)Zj;9MulGy&VN71JV=`X>2vu!)bIEUQWMevfxK7P^IHLz8uqZom z%++e3qU#We=tc^LBd$G?+K`$OA8L(cAr&$m)EdDMKfZG zt+@g1J~e?ziXE%hpr{&@Pui${6t4WysnDJ3BE8JU=+E{!B-`&KCm~mzJZ<{ZrQq9E zJv$rS6RaX!Qwep(*QAY(W)#U2+G-(GtDz>=E?hc^AX9fOt<_C!T}x|mJNvAOK*f

?dBC*Os&Z+B?^fvwCZNz3K+Y5H~V11BAI0*#(V2eX@DU>V{u`vWoah$;b7~6^q?F zSae^@rT!n(Ggnb3c75S6H~0h=rfqz>jZe4n={7#yN9xmUJd1UB7MmMX`gu)@k9l3o zS!sVztC#om7U+q%QB4ngaqi}UuZ9P{;=a!Hp8sN&Z=V0MiEqQs7nZ)5#=s=T9Uz>d zp6>0Rl4d?Hb0|4~xuSlk)Bpj2y5eQduH=-WHAN6#`W#e{3FfS}-_flyo+hN$47%wi zeOt< z#ZlSZQNn_+f{_0o9jF={KHVwPaawLK4*SEWC;yv44{ce0L1>^R&b z6We59Hw%th&)I@WR*RDb>>zbLSkNAgusLo(`5(cG+FM>m+nku_p<*%QzVF`L%^aaH zb#**U5!+7-wZ4P=P)}1pX0zwE`rL(#d1t#m*Ewnt^{du#4C4mpOdBD+e9EN6k8b8{ zjM26)B86vvPaKOaZ~s5@=-L(hfH}HC=yXs{D&e@oZPBjbG3{k4?phiyRA-IHvzv9x zT2zbl;D0H!=mlZH${ln_V0$C4+3>dp(Ad8=G@Cw8OE4N%eS)mx<*`V{%J)@U47w0k3dJ+_ICSmV)5w$0SZ&*Rj(L+i>B3{XCSURuQ){Zc&Dku3noM{Gq$P z0;TMf%Pf?n=^Go00Cn|0hlSXlH z6%0geLIjw}RR@)6dQ_wNB=Ne?$De@0TDdQOpdTFL5uxFGU6@-FQ}qId{ESaa+wuPV zidxd^j1KpNE@wNTIM=8zDSb7@lksSndm|ht8tE6)X~s(h%)fRQEDVKTFvg@_JgYR- zy8C>>F(lkCL{6V*xyZ$hYz}2rowHNRIMFU57+&}3^pG%mTqU?Elk42^&7MFZZnutq zJ{K%9jn?e)j4#J0+*aH2^6l`x?;k+@(Buv2E@cQBRN`lCDuJ$|Kvxo|<|T)%(Y!=G z#5r3MhF!BZDDlF0Bu(!xD*<4a1zfv2&pemokFA%p^ySu{ka9aQNfmG=qqJR{ zmd;)TX)j}mRh?xerQJ#N1QIZOR5*5j^Y_r3uKZ+g#`2O|7>W>%oj<@xI)0gzA&}&z z%m{huvfm?45&^D{6GLL4sDysxWT{TWCzMxLULS+jy8AY@*4?+Fwf>Pn>7?$W+yLyE z8IRxZog8m%blmbcT1=g!;aW!%y*?Rwbrz1QaIUhvwIbH=f@&6vx!E3P2#GW zj@xO`3*9D?rLisM0;ka+N54s|3*_ekv^zN@yNWo2OV>mAGpUB-EW6w?OOCIj4emo}`j8Yvlgr4vD-E_Ay8)8WByj}A{BJkDN8=nz{1 z6ni+3(%Xzk$f7uF#p!rttJOh&N3Mh->n3$~S5CMd3SMJ6iOkk#>5R^J&{H}2KW3?P zk7s6`&FFDv|9krRg@NEiyD2STdkmP?*N^lTOcCEyKQWZ619FWkELcNXEXo@_x~cH1 zvJG`>XaGw!cd=9i%=h?YFkHO$%iied__6xIFoM7xTdKOmn^ilQF5atuO0HSjPDvbo zG3FV5{o@@oyVyj5^VVz#bu@+AjUk#^yBRWZQwC6GIy)%S5nMX) zpYj--c_Z$DXhnB7Wa1SVG8+lTb;d}3kL}uVvqns^#PHt-6-@@hl*-m;?S4AoHE73TfsLOPuvJkUBc>?U+G`#CpndMQeAx))Hem zS>ohN+lfKjjVA?~Y6@(!2Vo8hb$V9jm$f?MobCpWHZcGNW03X-j$FprWO?XpQ+!|% z1+JROu&Zx>yfU)IsawtQwNwLuTGaBaVE78HBf+uIPnUtMo(&po|La(f{$XT>fwhU+ zvg;)pGl7kc4~`!|{jZAhZ>}Fa`eJNO#RHNu&+y6wN6>KC!}1y|d|^G1$S-D_okH{%VX3G^UrVUZ7?2 z8~N$@D5I*d<@1UHP{?P&&~b8F3|Vi~*(9xcMOkQP=KJhLK65S#GnnFOcxj7!6qrEK zy?piEkl=v;Stzg6Zo`{`eO2-vF9)et@Gtimd-L*N6t#R7_L}NKj1NMQuUkrJF zWDgAPPu0$CF(R9=qKO@*^~6eqi=XsESfY$uj+Lw|i*lg04C9Gy=NR=$q9RoCk-COqU-9<_~G{=Tk7HT?bP^tZi7swi=PR7Ptf zW{K)3Mbt+r-6}kOGCJB{UL(t+tB=09Huv47u9Llky_01%kvO}G@RP8)&o0#<+_G9g zjJ!(V3sJeRE>!^7vKm-AT^;nzwYcvt^$?(_$^GBx?|3Z2gBRi8TNK%3L8?Rwk3!iu z-Y1Pk+2HosC9WopDkRX6J5Y9iFuscs?)NAYc2pVC5}N`X%%O})z=w%P`P6>@3=e2P z06jp$zaXRd)~5#>*1&D`v8xV<8 z8=|MJXh`rhj0}N!r+wG5fOt%kt6e|bPubQI*2hILAwMB6^{MshyDp0ZT%n!Rf1Ab} zQ*d&8h_BD$i^9+tVoJZKa@RNN*cISnN7Y^q(hGXeeDe)MBI)!Zzk~!=+Ay1xs_>>< z9&J>0SmNDL$QSUB4exuKjEuGwv}5nQ%UN@dTwAE$ubRV~w( z);t@p82k}cIDFHKE`p*DQc0IW(8KOGqI}rT+^C=b*gLZA)@k4~5B!5@A4tH2{RJq8 z&;|%_+ny%uhjWjcxVMHh4z^P$obv6=qQzs$jh&{qY^*oZXf&ElBY7nGe-dKOAm_X7 zz;|~s+|&O~rs`zQM$@m(j-P%qJ{vuPliAq&gE^T>&kyTl^gTOnU+H0jo0C=Yzjq0U z2Kn+FTnlvbzhe=O<>YkqXl@1ieiWwy{XP$uQrVx*R(K-(4*Mie{+5pA zp_~Sd8sPKfq5X#C@1yedfA8fvbo~Fx+32C{h+n#Y;E;cMoSh{x0sL2Nhgp7{spLAw zoEW>Vg5L5ZZh5uF*49+v_+xVVF|27cJj5eYPvM{GXYgwpGAH#H z2ljZT&ntNOc{UqAe_qn<+kCtMk_cysvSPi=vY$nYvu=cM8B%g5Hqd8xzbcZ-c?rm8 zZ~V;p-Z$|LAKuaZ;PG5O4?rlWTT2ALCc+tm>CE{&hauW(|CcotZAWUz)#FAe<Xsa;ziLJKkHS4;I*_ zm<{WQ;>v;3e<w-w> z(EJC{`bT4$XqQ`Y1NP%pztMuj{BPTv0h!Pt7WaFYKU-fVFwpjL*o>;-;&WNVM;py? zUsv+OzWpN~sMr(NRLQ7E^5T;ez6G&TsXgO-efnrt-}j3@RBu@Sd>28I0Sda?>xIaR z_)Gz7e<#@MEG~OKH2@XC!68D^-!r~{S2QR@=_Uswi>j`ElfyZJWIkjSa+8jCRFTWIo}rXG;))z!Ijd? z&nH%CP7&c7K*ctsvY0{4$f+F*6f; zb;N@(u9R{-30HgtA4bdiV-P^*MFvNA)@;#A+k#_~gr)Unr+??mMn+!r9~xn=r+?+a1H1BB%m;}2}g(w<8Cwa+X&`vh#=`PovUoVc9+DH zUApV|D#vp1U-f1m)*X}CWrA(;eG7NXfDtHU30)KbMfbM3Taym9`OA2OyE>&2Bnu!M z$DDxFN?w+LQm_=cP+fxeqe7#u)o~4Ae`FRhGJ_vR$a1QFt?@6W&}SKXjbGMj2^7V} zjedCUJ=>ppB|M}7Tz`1`o&ssFS1M+2W1wiFW8agy=b?;mOXkjHiGjUU85r>>2PE0b zVdD{Q{>vY#KDmbYaLz%L#s|YMOCewN37j`)(OU3ff=GZ9y|d)CKKOe>NCRkUdT~ ze6TtJRGHX<$>4gi5kY~5oM)L@^vk3&>^u04p3)P5+i?nCYmlsx*bp{ef=oc|Y6PaH z*gc2kqCcsL)K!3rP~Y-0hEHNNwo1=&?KXuA0suagzb4T48#LZGDTb|{6c3Lm)IYhp zwjya7uXE)h-18lUm502yf4A;0B44eeJ2X8KiWP+iAB8v_iQ)I{%9O|j7l~fEz8N(yMf*2I2#(bF^6+R0fEgTRDT=+&5#CAi8CW*pK^EBo zCwYEVJTt&J*6RVjEZ$Rl)JCNhVr;wjaEH;hwI6Bc$@%&js`N5-?onW6kU^QlC(U!n z1~+pWGub~f&s|s{xB-FAmTQ``3iyV?(hlp0qeHd6u zsZ+iecU8?Cf384@OORZtQZR!yhXAkKh5U5|H-<$OTw7yeR1T9E-WxDA@vlyLxyN0- zx981(kzg`vmQ4MT)vvv#iwnKO{#!{1>6cu3i?#be-bdeY_ED;7>T!OPk$0ZhnhUs*tF8Jpoij%$R73= z`(q^j=DjhGHut2g+Zp2;u`5O;143RvAH1fZ!r&ek)$B#KoS6EC+3#Y@eo8=xCr6`+ z!2z3NT>5nK*$K3lWuJ|`qUrF9(a9&D)Qi7_M5TJ!;n{HVS-o)d`G``T>g8vnPre$# zWgVZ^e=CkgLl5)m_{)=U4K7-rLb?>3QyqDgPsWo8W?501O;hE_AIS9N*;mt}lW&eazI-|SZgd7v zQ~2*!$Kz=Oz?Y-p*P}ZCV6ab~kUn`jax$f{e@YI@+7Jt$48IkduhUCyIL+38*D_Wu zBAtt0{1q%7zLdykCJ#^4S|xJ1RbkqXu~bU%%5YJk>av+?^~1iooPdkpZL0D)o;C&5C1dT z2~dS7*|gFnU%q8COppui3tRX_DoJ4?W42NU|Vuq(}Asf24nr zXa-Ani5(7#YSBrf3Ai5$^El!(FY3)Hc2#|odtthkF?t0N_18?hU8mo-+*! zaF<5SmdXSK-x`TP&eRH8!k5tHfs6MYG*$-?^FS`^>$FVPm!7Ftk%jglngouEUXu2>5p~wBI)b^m@nN{0N%B|;M1i9bre@_9NBNf$z zd%xeDO1llruZVNa%n2AP5OtpAf7=PQgMfQ2#YjI)L5DfCvWOW7_U>3ttwhlSa!fm`TZJjFwcduyvkf3`e|(?$-44O2a^EdGsajaFjb!l^#4^R_zD)^*=|7wtde zxsg-b_|sO7TdAG8ZlrZ*o*O?-c5oICE$yuxH!|fh{5JBBvEO%lsG}tQi*6f*yoEPy z;k6&kXK&VzcG`id1pn(u3mrL47g_laRFsN$n@O`k86;h z?d14hG<=ZtHkSC9_P#4c`E2}OHuBHXN3ikF#*ZMm|DsucmTqHjk7?CAQjOYaz)p(t zZ&QNPMSPRwqh*Yr@#6gy}fv{}M(Cf0@MB$)ie`e}vIO!Z51MLb3;8xpQyW z8B?rD6(b8Cf*YiBa|%w}XMt@nW4L;>tp3|!kat&bu|1EA&FW?EJ%i-_xJ;g9`Ax5n z_hj%DCIeGAKz>=YBCTKhQFTy98iJ%W8UmHAkpQae_5EhfQHNVnRiL40skk<&rU0aa!mQ9{~)whHtpyK){7Sm?lw#f8c}puXqfJyhDdtR4#sCNO^lS7dGAijg`TRaj=4JBcV=CkEqqkH4c(Z&9d|O(L~Y4Xe=$=|!bmd1K)VFL-Sns1-TDkz`t_ ze@`0~ZBQ)pQiSF~ftQ--KR09R#z);}SkQq|(ZUygpmdW`Prmv%sL)*Atjt^=R%Bhb zS64(Rzgr1aD{t{{)T_z*90Bga)+|YWql0L+PkfmdX>k8y7SAsA^Dlt2ut#E{cD;h#<#$)^6VL|`xn`>bcT26r*miq@xTqxloS+8Fb?dAMpeXD zW@zQF=?rLF(-v=P?)RbjnK9Z2gbHq==VBU@yAiJhhB7=oFhIX8YX|l&IaGqfe=o-n z9M^f$3AdHQ)!RK1`cH)xd@WRv)f8aLwa+3JVwJ$ny0)h*|sAYMza8Yk$7Im2Wb~te|Osm*=|E=V;sKS zx_=j8_&+_Y{zuIa9U`my#?Kwp`rjI9E7dO6)_?Ba_x<-(m1-B3n~`+dfyD-$HelhO z%~LlPFsvVl-|dgvM}z+ugZ@9{dw`JdWccM6pPlfcJz3ot=t;0(j3+^w!@F4)FH+QJ zw?iowNfJ-!p7le6e_`L^8WicAKcm`88odShd+c1wQ8~+&wG?E?!Q8clsZ>+=q|_b3 zlTvp?PfE4j#?&U!>Oq0F5tMUff3#wQ+{~0(a3C=}p9m_vF)8Df7Ta_!CR(?tWrx@c zu;I>)EJ@d6Y(Ocss~sp~LxXlcWh?XiC+dkfJIuKoC)>aAp3B`Vw#0>@S_cH(R!Vn=4*%rv;qMd+ zw43xhNUlqGp#Qwtd+uoMjbwFQR4dhWRgD7f5@WOpFycmk=^R-%pScsuZ#}0z;?xE2hKIN3?kf8Ok?kN&7!413EEk()4GI#WQdE#%^LVvNa$Qtr`u-Xm6J`HWJC)Iajp98-NJ!NyYO-Ff zvbYWOihNz z!|C|@5wrx z+a+dkF18jz1P+rPi%ltU?>e0WJe||AAZR4$8}c-{CgFQxr=Bfw)luZK0E1vh>u{Mt zErL+XO#Qsfeg*zga3?ej$3dgm)5F*cn(IKaz|c>!cGL!&s`DGQ1nO88DaMxc7;!S! zf4PWcq{(lvG;?9$_#%kQF+IT}N63YgEF)57m^SBmQ8zGe5&jRYXUPhCt9Xn7)?K8F zq*3Hnj2y>;&&YlS`fWrj#rexRo&CJHL0BkUB-ioMu-@28)dzy&u}dAGirn`4?{hUvRJ8`YzNdZ-C3TJZbbU9 z@hs-^W$4qMfpesD&q+!K7AxxOuDN$`x-KrKfEzqsekb50DH)Dw#%@6C(q~Ice;yP$ zMQ5>M3u2F*4(&>7rq4ve09~sHLXHY>M9{<91(wd|kaOCI+bw=Kn&+6L_bhi#> z79%NUgmcG3bPfm(zD~t-(}2beflpjz+AFUZw!P;Xv)5@>dDPxvSwfmSfBBKy_f!v* zudldF#X8vPi0etb;$y)ze0Gy1wi8P4e4Q@lP!YMeZ6lQo%E7GPwOcs3SMQO!!}9jH zKF+SrfgVKE2zZoWltzAx54M_^X_cjz!?UzXyPS9K`E0%XHNLR}@%l38bAoG+espyn z=O_b<`blg#0of0jDMVSrl4skxbIo?N6$4jIVK$m|osh&y)Ow1g>{X45=g z7P#<0irCrp6<0Db7C zuB!A|wwPDPfWHNc*k{9D1N7Dn?P*rfhz-?@dqt(r;^Bh^P7SV{y)*DA2Um?uxoj6S9A@$;CQZRQJ)e~IzDn}Q|8&q+Q|$C;x2 zzyy_|Lthx(`2Ot71o2N`;h!ySOw4OB73=ss$JTbrIKScfq-*!n3?u>c% zgzJUtq88V7f3Vo@8UWuoa?Jiu3hjzyS!8+9-xMKt2y!*C6exZ(Je;@~5iCECFG}93 zh;jF=K)w(Z1wI#fn!t|bjpA3@dj!ba5JcJ)TXnhw;42*%okM3de*?mzzm*AAD2D59 zVJ}oh=Trs^vyqn#H0%bAShRh39;`uTE(%jGck+ zJ>^cze=Nz%I2CZbNzCSlyn^~gmODRqo?OP)X|~SE1GZuSj{FLi3nJH97Vz1(%az>@MM>_SQ z8&1&&f1I;^%AlevpUMjJwFCYSB}r+~RCfhI zPbV2@Q+kyYv_t!AyexTDxw=uYX)8%ElL?Q7XO9$HnKfF685bGxgmE_qk*0T6YbL>! z@qopq_S+o)xmeQo&5u@Sb+X0qukueh!2OC4O8rH2MB-1nbNyT_U?y@A{%MA0pe zf3gY55SVt9DgLvXbumJXXaZr$?DCuV#w_wrlN>`7Tz^m%sKgD0uM)lH^gD*rC!|m9 z7%liL8X}u#@cEdd2Is+akjRa2uX>?3V)-kmXF>1aM)KJjpr9d7Oqg)dfzM3V*~y4+ zZ~G)qlG~0gPgcnicS>%%H6yLxrs3#1f1W4Y&P^aVg(frF0OyHusQ^@E)X47ZvnRCQ z8rZ%gynE$-EIZ}B^{rW_+jr#zvG6_!h?SzfuVHT)4MQiLCvg`mHXTimv$G_o$*3EJ z)6=-X^w^{10+vA?hc~6+b=R=z*ARr@_j;*dFxiw+zorkWUlpcpCtk_CEp>#Mf4IGl zS!Rmn#;?9>{3`ANFc0JQ4pw^FsR_1uWo*$Ub0anW*l%b1#Z82nGsN!e z-Lk{|sz~Gq_9kkp-#J!N;_g%TxHz=^kC%waMpcC>^L3)q3k-Jk3R`aQ<%v&YsEbn^ zRx|nnf}wliKhDZVxU^Ahrxbd;_;CZ|TT)FyWkv_XDwFOiY&xuK1o;j7u zwDLylVKCSeUChl{Czn-&eNcWweIK2A2xg*F&0geXp6kSOswO6K4u$`?e>*{h(#v(~ z9m!NuD04AHhNVF#6Dq0jy)%8^S+9bw-zwX<%0Ntf5*XxFvYS5kO=BMQOAi!^@n*)#Qlm%vS$+OT^zWDbeD-+{#C$(mu z(C)>7%h;iwsLB(9Yd{yvf4b_ZQiTUHt!fXKb3Bnr3D!x(8?PVvHl#`pANlUyV8&2j4|ib&pb4C3n1`qiCU)6D4{Tn|GI= z>z1H=hDFkH-O)GK$Q^K~5hczt_$P_v;1Q)%lC-EU%D#bKoHOQZe?R~zF)86S+;@oh za2NAfqypl+8S#GJuW12cM!YDJR_xtB&$2}lGm2&keNK;yAy)LHQ}lTmk^#d@Sv7NA z=&bG*aQJt%S1u%J?Ukd#-yE-6+>;gZtUdbH0) zw7A+CLmJ9&5wT8Q>@MaC;%u)ku63u*I1ZtEy$|!axa=upT#hC_O>usypsw9s?>d;9 zG0Sp3?$Aa>w2@a66z}cr>VRT7C)JA7-~of1~h+p@sxr*7prTP&iUHU>r(?Q>H^Dz)7TVM%hNv}Ci8 zlW@m5yLt)G!SWu?S-0QU{~x4tHLakfyQ?t~DX+!sKvONSPu-ahPT0?7q$Nd%_@BFL z*MmCnrs3Y3ef%Q<_|_&{OX<0)?j9cB1dT6CiqVuU$HC1w02Ih4d3G!A2M5>xA@2Y1;P5x2ZWqQ9$rx1wL ziU6mTe^yNk>A#UaK}AKSHt3PmBGJ}VI+kpuC?>DANPlmNHpje4UYAhefy?(5uuh;A za|VC%owu5=wBpE#hfoLQJ%Nhe-2z6T?oOmsioFVX8bYKD9k3LjEpM}q_iWuf8SwyO zj5gz^H#?U1m#FTfS+ZjWcpL$n&V4!C8eiO^f2l8ZQQcDbf3bI@O|2Bc&(A9V!-yYD zFs#b+Dio^_Q1Ji@@GgC|FD$Ye65QSBix&Q2|Ac+aOmFYZCYunRr&^Moqo=34r|0VF z4%QN-n^4QeyzRyv_78U+z;B(a%csf?tLsY520=tm-t54v<0%bQP)9SA^3C(~=fzjP ze^sl1=y^;y@t2Vqy?l1*4cYp*>LInwmw!*5Hs`@IoCB92EgCic%r2+6@14&TZOyJa zs4DXBzlZf!N-&bt)~0g37`4<*MI^t`5y&I~Ap>W98`@ns?2*xVE10OLoI}wy9|=9% zMHjnv+xK*?L?An=z80V`vx7GF)W_J5e`opk`el+IYAcRe$Cj1ghx|eqV7$4`lao&T za=5qiOEA;?()BgJRNnGOD0bz`mX1Ao+xjzfYEtxDNSu#XU?G%7fhwP;2KH^E_`xmT zg`H%;iJ+F?CqUfke;%%n zF%Oqu3?=)DA$K%fO98LQAwBA+_+J01Eku-nmOfh8-QmmY9mC`Vvq^r`eU7KmdP$ z=Avs;n}D%rszsPeHl)Nz;BOuDf0(Jt7wkc-VC8m>2wfkQYcQevrwIqz5dMn=L$Nw8 z4N78^IIP>~@t-CeU>@=B7mPdUiM-DEoCJX%82ig^cS5Dhr8TDohOEi?%9;?oPaC4W z8fqp3g6 z@_NoPi}Ju|%RAnb8~SoNM%tmi7-qmwpZzrXy1Y%m_7avT3z>U&MgiYH#UZ*rHaUn< zCb>+_qJK6^+#p>KL#(k%RZJ!~>tl+78e_&2eI4S?3e6tD?eBQpS6oC%omZ(;%3 zR4vJX_Fb#?!)7Lh^&)0heDg_pUpM!EWCnVhYqL-SQJJVy)Ay5NdDNyJE3kJyBdI?ls3{e_Gc=f$X7R72U0{`1z!QuU+6yb(N%#%bw3k zorGNk>YhPZm?k zkc0Q5M=FcxlEVI3 zU`1^+#LZ2M^ya1jnA~JzDT0`nSy~LQP!lUVWs=%DWz+-buMm0d<%XA0Oj~Y(o&Xa? z*_+MdMI>dqe+Fwad5n%d06s_kOHya9vXtCu>Y>Rs^)oklVKy*%#mJLzVhQOKOiVKc zc{rIA@B>+`TJZxqyM}(ky40=#tBJyv5#gxZFUHrkor1>3_C8x z0z_hl@1&(m!c(O-Xe`CgaJ?mp1%cSc2XJGUiY{?ge|!Bv(^!Sk6Yy%~q3+g#3pG~< zX6#)mnmkd-Gnf1;$DdN=adOnDGfDL-@33c{_XU`L{WTl|6TKFn1zQxPIKXtTm;3Ix zSaRicq^vT+CYh!RrXp;-)(3V7=!z~`s%c_O2W*JXug<7S#B4 zL5(Zdf32XWTv2%No9A~NR9iY;9>kC08Mc1+D37Agf^pHdLeZ*N9LUxq#PphxC;Hu% z4LtVsunh-w_~2f~Y{TH_uf34u^ZK0N$RJF1~L|-9JCHn&A=s-#v(x ze@~Q5;#w^kNcoKh_-zs@-Z(L+wL4ORA%)(y*|aHc_v_qHceCca2f`$TZNezFQc0+j zGHsw+$_*nfeb9CF^9}>+BB{%;bGzDiF}|5O_pK35G!aTX7xI`%%VmynmQZXIk>cs8CRHJiQ(uq#&cdhbss`D4Zx!ESb!h0d{mCI1g;of$fEq zZa(9}^{Iavz{_^j_ahi2=nCr02A?A-jW0*oG&i|Mw-vp{;$&bplFjEgjC-IefAwS; z9rdxaQ%)cE%qs)4#Ws>+v$bF;#6v}F0+rXGX6L;o+MPE{BO}zG%(?{W4_p3JO!8W? z;S@Til|`#mK<238_^k`e;qE!HjV2w2`XbWm`M3hvLQwivAzJVo2ld;=QR=6h{XG5U z#~-cwZXsyml0!s9S2rnCVSx^Ee~ru7HLtyFX`~Ky}~ku=RMzieggq%!U`m@x&fKlBn10~!NhB2#aQ{kMGSF2f2i68f3Uh1 zFlrg-+JTt9XJ>ow9|l_1=J#B|fo~(wt3ionU&$`;OT{R%>$_?jGw6l0Be_|IGt@8=otp26)g@xw|`VQl`qM&d*(F+ll|Cp?NwN6<% z%`X1-vI02XMOGe=kJii=xW{4XSng+xH?6V0CA|M=+e z_}qR`WhSP?^d4q8Mgi<7Z44;7G~ukjm)u!&6>jYkxaF=*$=$QRf8Z8}1MWCQoR|0E z*u~#8-E#iGSl`a`e52n|{oU37@uML`fUaaiPeoTC*rQCnsCV(!_0{kh`+mjMpD#%} zg2a_L90RZ+KV+e7@9v(;(T;>iqyhjut2~Sk7#(@cA?NUgFZ4+|c44(P@H!&fXu5i^ zMQi_m1p;CayCepDe+O6cm__j-Gc-QY1hUu0@@}V?j>j-)+-c*$q{_jQtJQOUp8HPy zu!VuXz<*S~UE-RJP|K5XX2U_U1{?F;ygEAV@e!4z@Y!71XB(M|89Z#yQQ^%Dmc+a4 zKnyryw><&s)sGg*I>m}tzfSUVH8j9j!Z}ak(L>at-Avzye_|e(BDJ3QUDPpCSKR7G_1qIA5Y{X0)G7^2q8R*79X_r+<0Ronf2BwN4Cc2M9kxeiJ z6;vK(9Lz!ne{TYLWLwhCbZd19iAQ@fA1fjJ!g70@;jFZh66FYuR<1W z_Yol~j>6QY|13|nvSw{CEwc-r&&vGg+9SbFPEO$Hv>^y|*nX*XC=xFs2OpJL_xV=e~Qz*yaG674sGURvcCZk9AMH1pC6(^1al)8KdJ8}F6&sVg&jV9 zKrPCWe{Pgjl{jHztk|TfoIr(}yh=xKT6sZnBw)k>EmC|iIncw9D}pT5J+z?%V=GV8 zDr$46OW~Qa3mRjZd}-;W@qJ&FX(Z9U&aNjvLi6vTZ5=f}H$cj~;aXR;B|=5LaY=C5 zK8MLK8qQ-!IKZMF@f+yW_Y2?#Cactw0)1qKf2Cm?*_Np0Y*bo|qu6ya{j^-c*Jx5C z;<}qE(a@wydO8iQ--6YJ@t)mPIz_!@S^ouE0lik30?1`Adwi>mcjZj_^6@l#E}$l| zQs}0VkrrX%7gu?eg~?xKsCglskX8yGr5!gjmnLNnJL;u*K|{I=DQ#6=UIG!f5MFsT zf2nA&k-)&P99H(JE6`+y*+u1dEX{aoAKRey#)TCh@QL^0kUw4JdcvUvLq8gmqMhjh zhwA=46y56vUy#AH4%>v~jf>9@>zhV%Y$Ji7O>g_4Pp9cnfzX7~F8877J%n8L{6Th# z@QZY^TN$XRhJu8D;tfC_9{64p=;3I}e}BUIZqzi*X z3}w`6{2I}o&a<-OM@o?0!s>tp)*z3mFKN_7ODG|s!XowES9QJIK?&ez)-69 z;meZ-fmArZ&N$<6M4hj`p@k?@ zp%7(W_r%Llo-2rpsdzEWk$ydJ(Yq9vl?WwK{&U}J3E0c}C!t+WV3OMAe~6s%<}has z%@H|N3iq5+I3k!|L_7!sm=P|lN$eV2pUPr(>!Bt_TJdfuwLZ`yVn*9Hyu%GPvlrk zpC${1T)u=U)1~6UvoNR0f4v$`VMsB3P7tMIRTHYTL5sTxD)k<|mZlvab2PiTcJd%r z@qWcUnm165J&x5*Q|&MaVu4{|7zzwiLyHT}SoqMnEf|>JRa)<+`Vpbjk1VVf?RY|HflnJZ)*xpnDhe>>b2T2ATM>uD6;uszU7L&7notFCNM8 zh-}bQKR8`1)}8~?q)vXI>yt8Az0GJplUD9Mi44U_fl&15lxHVw3%-{eEh`D1a+}zN zwep_f0@$ZKG^Jg|fByg<1f&Yn!#-u6sX%RPL=73G(9)jXr#!N)sdfD^xExIST&_|g zE}Y~*upxMk7IwDU5k5qp5w9L+9G1b~ywvZ}Tyc&)%mSs~zp9u49+}ci{MMAJ@kyL& zaEaN1fy%tk--%hPG#(Ss`Ks?q9B2I0KE1dw`20g(7!I$p;g5)AkzS-U zwE1k3{W-Y(Lsku=F=}sMW060hX(K$--&5JRG2kAhmlf+nM95H=Oh<9At%sT~Bf`^rgCu0-N9uDez$TbNIm(6&)UYnK?1+ZXRb@lfNZ#`pOqD=hu-XpxE& zQ+8nC=31{2`Wy-+r+Wu`rvp|&r!Y-$>fTvD;P5XKgHD68hN;_oXavAHUNy4=Jv0qS zA!XNy%!EvS+`i?`dkqJ588OTa)T`@ z8KD#{BEDc3T^!vZU1jMA9x$4NEajCYB&9CdyuG_Bn?9?9XDL`OLq5(gpTYr3jUm*c ze_{xwXomQL%QJ*2<|6|#KQxS*se+IW z9qx429MQpI(lv^My%ty;!GYPQ12`~mC|`NX(kyb&&2C#9hL}4t#-i@H7ElpbxBAFI zGSnmKAbdk+@1?r%5`_M5#81FxNuG8Jf6TEKwgPU;v-WYA`Z6Bz}SgzjUwRbaT@0T>MeDG#MBl2)W!)5y;tl+Q%Os~<(jmNse$Q#81+J#o| zL<{$RAZ{?ll{FDsJHO7O=fK>mC#0&oPI%BN#Zum<`HHvenR)65Mw2q`OHs-(e?q>n zd`4McHCOcQs-j|q+SNkZaiNOOMp2aN76paVA)j_E{7*Uor@`(f1xggD%Ds& zt^{@gvS1;*6sk~u{fGikjix#Bj~wP0&25UyT(E-mt`Onk*p`3YOCPV zxDFlJ4IO3B)5P?#4hA5%GfWmL>CKZFtjls|6){W)Y<)owd@6j6fBZ8fPp0$|^16&u zAq+91chm4lofa(g#K<18(x&KS4T01fEjce@?x z4>PP7FPkL%TOyipu~N&Y0seyAVP&?hAb$PHolrqtcCwnO1JH&tY z%`Iza>>(9t3{uasf22eri2{e)*Q3wQ9C%5oH^2s$x_kb$8}`&4y2RTM;1=yc4Xn_C z?OS}4UVOwgvN^oSK{3TUg4$bJ;&0W7vet=|!;q!Q@d~v#zblVeY`Gap=+aJ2>^rse z>B+}my?=7-+mfV6YhqP2xeVG$XY9|jouUI8`g})wGa1dkf1ivSa!=inm+y2LPerdM z#SLf^uUmzG`8XoQ3|0Cod5Ii9Zrf*xJM|@pNL)k@CyPKnjDsY?w8C@leUz`DpiiO0 zpm))KGvux4AP6h1X|#tu*zU)Mf7k~pvU*2q{aL4a2|M*rbt>ph*x_aSgT?PdiG^Kx zwI67;d+1Ntf4O$Od9jM#3_JE(KUAbow`c26)#lt^DUjjIMOG-sa}KaxSuE5mulHlR z|9*$1qE38rxw!wy1@H*pVq-5Cy~W-Nl%#%&Ejjw3HJgW06Lg`C|5Gf|ueV8;GY}8Y zy+!s9Wgub0=kjCg+ZHU7cTvm$gR`Heux{1p#)}B{f8tcoFJhm(V$N;sz`{JKh2%25 zQFe(=rG6Rr=YyElLCjVH@nqYa+rWGQ8U?b>Om7xpp+L;yAUsj)Y@dvQr&IKBq0R+- ziRN8iXBptFtAeBtWn2b7_a%5sychNr`}NaM4aTJ>K5^IQV_y5q;jJYXPm9Usc}8wd z+{%jBf9Ao@zav+7^gf`8g(lST1)bz5vASKJ z^tLSphA2)yM2(bD%8>~vp@PMGeZk&#_+{?qf6L}p^#iK$GTiEFQ{DuS|2RvoYWNKdelmo3U#L7tP5W(8 zGect^-)Ib0+iBp$te~kWEUo}KK*qlg)e6zU4knlOc`!5;XeOgCY{Ed2n~{a z@Of^<@v6ij=YB#P4_|+|-pbzi`%&gUiSg+O_cAWV`%S*NjrlfuD_5Xt0YLHp%u5bF zhau9ype)zftV4f^5%J-6k|%ZHlAt}qN!fFN`T)Z9+FFkF>mX(d#LR&x^KlmtPQtcn zG=Dj)1|D|5%{YO?zHNOi?wjsuIE1dicsQ`N(mf4_hN|5AHNS@aw{d?3q)TGZ{F~J$ ztxVy)3r|kX|_c{zfWgr}#!n=$+h8!*q zT2}>exs~24(bPM4eN`^zuQFrn-b!9GTz~6bdc20!&|Rr@=Bedc?MSueLS_xr^di({ z4cSqMf<@BVIH1|zTmaAkwM+8uVVymw!8O`Kg^SGcNy}GiFP3f5_~Gc@?_1O;H_Sx2_eb zW@Dz0PxRsLnm}3(=n|k&>tJ5X^7qmht6tM2X@LTG*k=@nj;6i>VNzhKIHyc zAMWal=lH>H^h7rt2OaKAwHql077|hQIb$M*M+17OL~c{n1X1^~4WNfOpR@W1*AQ$- zN*Scbb@XLSCjXXHKwMkuNKDBF!&8sVo%-)|)7ySV%o>lrIqEj4Je7hvZ@}MH(7N6i zTQHb5=NxPO#y=#@04fpOl90aDE7ZC zQS~+$8!S=2;^HylH*f9Ndum`TmXoE<4ba|`!f*r)xzb6LYvGw@bbq=ZB>^fiVW4fBW+fKd zg0su~L^g`IO0}myXGQwGQ=@Wzk&eXiwAu<0j6wVSCK%NwIOS9pSxdh<&2dyRGRaBi za4kIX*rY{~&OihLo6Lv>zn%y+bZu`R6fqA|Tj7?E=#c%R&sctlf^{YUj zqI54nhdw=_^-`I^A03j#RgoYTz>yh`+b&uPk#@WQMBDCU_r+pKfsUY>*RJN z*fB$H-frZp@xZfmJ}^HFnzG$U_~BbOjq6B02id4fzcjne(s->I4y>T&SCN{tNX?nF zOe5VCi-@v<>QJ36x9NbsY4Ok?RaQ`&Mk4KU;V)h4eNscgcnsO22=FzgLp z(RxHS9e*ia5_I|zNYLZ3cQHs`1&~^;)4m*7*m0Xs6%&a?Cg-0y{)EO~S*WyDH2^r9 zOp9TL4^9hM93kP!bH|wOm3GWkRo#?3FTM23FTW(&u*{O;CQq`9=}R9>uCp6B^(bHZ zrMP_QG%EqX@am;A4Cwvncv3;e%^3A(a#dZAmVeX?f1$;J#p~|x!dRq^VI5gFIVrNA zP5su|>uc{Y5wp1(YY?h4SBX&RE_wvZ4G3OCd0<9Up-M7QWW&O8ZWlB>Cx}2$Y+YZ<4Gmo zYJb2ho1a=0`7K;vSs+GI0<)eI0yV*47eeKcBkAjYRA)!js*mehM`-xQF1j|tUL09J zVUP0)?{|kk&QNC9|^en!fxWamjtlQ0A`HAEQZ0X1;7jdKn)9kF_-}cO9HSM zc&QFw&@$P~uB9EOFadXoifWNZg8tXK*9gz5qGx839XUH&aBOBz%$7OZ>T;}AY15(x zQ977u{Wa%Yz)jWFb|rSlBd_4<41d1~ZAz1Fb~0*<(W1OcZ?ZWX`FVTz=DC+(sPrc# zxwlnP2-WU+TK;%CnWFF5Welw59ll9xi?7nK=wOM%m$_~%_dh;5JhnDfNyCxY{s>nh z&vTK`*^k(GtmNm1>TnaK;mLJUW)L|6!Iqnw9V7$YWRh<~$}E4(N3dF{Tz^HBu1Al! zg-4G-iNY6$2!8a4yNWwZ1~RPSaeQ*l@T}P-;WNObna_t2m6c^$`ryDID zeFz3lswRN^_+pf)maW+~ zQK40WK->HDsPrWc$5*I634b(YdpDC*&il<|bXf2)2b)ej%CNw5A-I2lQNc_=*~^A7 z?wI5zN9b^Fnh$-&4~U*1>d2k%GomrW5ez>`$B;!BY@mbFY$G0XBM{KX8S21k$*Pn! z|0hRhXGh)@7HtS7=rZ25N;j;St;H+5O(>XxJA)o`0d*Eb@#;n(c!yftqGFwt5g1>Kiq5O>p)oDmNCPiWBoA?f!UJ zyIycp*bnN(hV8~iY_ui;4QvO9If8DiF32mdScu9tZc3J2_+aET0(o=+?ZrWM2ud3t z6BY83!vIz-sEJuJjs_gD@E58NGkULGQwIs=UBWJO9@jl5secv^H|&C&?KMY#n!-+f zM8g#lVF;vSPktxgN?*dDwyHZpLAmYqcMSe8X|tMG%|CJ@z!8bXB@K8OZ{yt=3eTEa z0zND99ewiY$?5st@%fHH!}+rhPConiz#Jcbet2rm_Kx??kG?)c(50vH$-5sO?w^~} z!}ktP50Cc`&wrjXy=yqmtuZ(lBqRd;B=nWXN@l*dysZeA{T{(3>)nA{dq6U0TZb|y z$M2r(ogSPW9UR(}2glHDxCyWi;MX>Ny}P&n5qvzPkM~Yb2O+nI1Q}f$7{o&OjPS8pXD9r!|s%UZmp^C($tLU4IbSOWe<2flIr3_M=a-@wBAN zO!~wXsC<6HlN}`(_M9WHEJ&hC5vfp;ScKF7iASGek!?36ccjq!1A@h?y3Nf_EB+(~ zTvN!LgCMXfy&#Y9kF7d*j0M8^g%w|FCqGm{6kl{gWf*j0J5d+9DU#RD!Db()Kz;$t z6?q!ByMF-Rm0e?(250*p93Fi3@!@H*cX45Jd*+4HDf~)}NW*zCncS2xB)49FVPIZ3 zfr&U}cNX|5ryPa%PCoCo#ezXz;&JOqo}_8p8MsKVt`YEi!S?TD7cu73u!*?RMn^Ut?8KR7wx zVyKP)uR!xVzPtF|b!FhEd!KyTfc|iO&_mR>*9Sa;`l|tS+2PjV^?Xz@G2@W2*$5~~ zO$X)dfvV^T1nhA4u=GPFRn?!+)>C0O8`Sk%Rw<`XZsj!;cafGJmskuBmUj4gl!gj* z?|-QN7#`23vaZ{s(0u2DPnWwJp#8YXN0es0R^w zw92x?;a*R!RQL$gJqjr$KZnCmF?GYDwqOsh85KoxMLRA>pI<(H>R)@q4143=x7MYbwphg_7|LnlOW_D*u?;GeAvb9k0Y_;pr` zcei4ycwIpa&`Skzfn$FTOMm-um6()f9+&q`G^N_0lx|;_H2r$E%J&O8P@!c^q=Kqk zPE~jUEgBbJAixFX2cEp?rdF4=rLuU#j@oRlDqex4;99%)IDu6AF>twGeX{@7Cy+_G z{2`fV`|rK=$Y%0KQhGgHz6C~0kCLA&O(0T5#LJ~O&LBC!uJ7+bqJM+y%Pq5T3$HZZ z$4X0bALxr_v97jQ5;!K7IdC=ynHg*o@NEvfvVpSUIuZU)$u`aB>&3djSC4rSH>^Yu z0O_N2^0O1pVcg<~8SjeQ(gO@TsMHbtuFT)A(nAkH1@cUy4<074rrV&#!>#ry53OeV ziTg?NqV=iH9C(wtzklAZpWg=|K8S)2OLk(#(yvJ_Vu~m->4Ei#LZT>8rQOBe9%e&n z>ZKMpaW6+_r~^2ZdkcoS2oh~i1DQPwb636cNW*&R!g zD&b`UBbNhi8L5211}-{e#r5gq~?5hi%!2hBsr zYr+E#L&m!Vul7tGcB4TsQ!)ww=gSE)eM<+bhS5CFv4HE_r9IajFF*s+d~LY$CtJF_ zzga-caY&n3Ab-Saa{8sz0uG~x=cAKkZ=gzJ(CXOYk3Rou#P_0Kf(b(C8czrEfi$A@ z+@?98s1mb;NOBBMTpZ_fbb(M zKB8~-_sw2HrSnQE39w4HJ1qd!*{+pUfU`C2sfP>|Dt~~e1X|&eR`wJ^+6wVRi!u5r zrKOqyLP~`f2_y0`VUh6(Kph^2(AaF%2Gxo$;WlnM<7-ne{(PADk(=oMOgW)-e3Bdn zXxDY>B3Pea2vb!tt1kphGD$h`2Wb$=p&Ng{CBJ2K_l0kX6pI;O`>CpCT;xbmb9;C_ zGfy^v>whl5sd(pMi^Y&-6l~JhjUgFCx2@a;zBeHiNk=_e|44M`o(jtMWd??Hy2{Gi z&qJG745`MeO0Pa1s-l8@b1zDX;g6In%no&C7n1DuYip^*-h0AaGd)YefSH3U9uDIsuj#yE=#&jwtrj8|IKG%@y*(+OwtVtkIj@l%_@&(uWaxtcA2l&(uhRbeOCg#nr1fL|_~TvXE_@Nk!F4 z2Jj`$FUsZV$>{;xi1M6`Rmk{6ze?gpK&7m2Os~f69(bsOt4Y;1eal^SDB;)3Plgql z4u9}!53-XJv=5%yNZbmAu*okhJ5It9d5$6M>B1Yc5f$c$R%=~&q8G**-xfT<;&pEP zXSW@W}Z(*tDOa$>xYB4cL z(MuA|LW)y{?GZ_4Il^Xn*Py01o#{l63AEHn%$PUcL5Hp!x=o&a?Vf z5BJfp>1>^@vfzH|%AC=~j&`+=sxbt&QRS>q_*yeC9jJE#QJ8lF$9Q=8;P~kLG} z#VUIS7-M(Xuq{-nW`>M?%KV~`Qz*7pG;{4noT)>}!!s!0gJ zhC2ew?0{A9>aM2>s&g5K15Vf98-Jh?zkim`7C;em>|&L!)&(pK-+5C4jLIq^>BCEs zak5_i2t1nIm5iNVbJ|19i=lNP#(m{F7d~e4x&JkLe0E75k5FRl2fP~gu2{Idw;y|cR-eH*v6Uv%C2Y1VoqrL=^#=Cl zP}Xq(70IvZGGDCK`yeVR_t}1=$yc2M!cWkuKR)%Cf;eD=HIJUaVIdQs&+7RGo*A>2 z#!wJFTl{3rx6Uk@sryEC1Zrg}*D7oo)D7zybaH0dg2zVnBp!pl{c*9pvvo}DH_u|O zGy2qyd^OAVHjzBW>vf>UEq}V)ehbM!+UmEAo&#ALskX2p<9if(GB7F>)XJuojZYjA zQy40^b-S#zijWJRNIyH0141uj*!&n&yJ}G7>!8XRNjT9FRky(D041n%L2Os4yA=+ZM%-0&xopeYSd1LdCOibw^FF)y7 zLS*71Od@N42@YeCYif!s2m4r6D5iG^lupSTV21W5ZnwMS$U=ApE;+1TiHj_3hY;4Q zQwV{uNXC-a_K0evEPvdwc(b$%)B!;y1u>}2C8HQoW?QHsycxUT5nsN*r>GR&5VSVP z7+~#E4|I^vkMgD3p+>~j?n4JkG5!9*VI!PvGG3B=vs7&?s}he_HLQy1$FQ)5cL=xV zPD}O_u|n9MiShEbOD6I!^Fx@5|Lv4&wpGRWZ*aPBaS5+3kAK5X7jSW(PaZHx!0E!- zqM)-lTp)w*%Zu?P+*&(&^!cch6NaEu1}1^uygz)%UrDrAhKg$ig)N;uTNJC1cZDZw zO1{I_;;-AATlP`LEK@#H6pLE%WGLKrga|3JX%Js>c^Mjr^;`++zE;P&mt z832>P&#{@e27i71oBx0DjX#t2FTU|N>}vI-pNVdM(yt_ISZVa6?oq!ky`yLSj4bY9 zKR0jZ5Bs^*JA2sARMtQ2=lq&S_ng`G(LFP9n`if2@8)Os3={wCo~hdO?A~()Cbj4X z_%>NTz^|Q$UU`|paot~iH_th}LGXb(XGXrzMq`QWw3d&|Zr^*8~DN9zXejCPl^>4#$p9kNDX`-mC z-+p=9#o#U8hLyz<=M0Ua_Jxv91R68Wf|05r$;jcM!F-D2(?3dqg5E)jl=dR{N>+)d zTuxMO%zr}jXnbzNX^6ieyH2buJi#i%D=iO9nSXrg2?WU!&k)gSac3H!S9igMn*i6Z z+$==x(oLb!4y-C}ooqLBS<3AvdNJoWl<$y>&)Mag7GHLa1^Um{|DW*hq(l}}YVGpx z;lug`AQmL`hhSY7fr{13YErAUp=ng};!t<((0^k~?eb8U-_iQeV2fKI8VYy5LNs`H zwnQ}e>eq+{!1MlO(%Y^ND_t6>NM`sQR=34^)Ye?TAeC-uUXi{ve0z^6;}R%y8x$Y+ zyRTkp1A(0H@r+b}(wp5`MfJt$DKIi1FHh4Vxe?{5P|^m&a+$$NJ-c0I(KXs_f%=fn zD}PrDIxGi>bzVFLR7DOoL#=m<^%77_nImxb-|)a4V5Q|o+v}A<>xA_V*{~y^D)=`TA40Yg3iVrFW-uUIR>~`Hv^ZYL^RgC0O^{CPT z30<7zYe*}Pr)g1^-j6MUa;JZ>SY|RP-GB6wPC@rHPI?3YTX04ZbLS>g^j^5QMZyNj zvkmx%iDwR3PQ=+m`vJ`(=8#K|wucZt9ODaeB(j&?W5lfTGdtT;Hh&1EPR>ui7@5~| zkUs_0kRg_Eflo%CkI#kMl@-0EN9+oPJl3PHXIf}1rDyNu z^usb#*!p0;Ru_uHs*OlUeO}=?*EaFMsp-Q*(&*>OyK-;nz;2-?9f1x-*(q93dv$D;GUd z*s^B3x!i-&zcOk(yE;gFep4#!+t!lTY+S$ca-#!n%M)uZKTGFyDM-H)S=?B=#~mpo z${4R&<0q!%1HvD+#~)!nLsrHH4O=BE>sDFhs-88;1 zAMEGde(`+>$%LMVrKo(LeSY-a==|bSh6XF?@C_W?=HsP7I)zKq zZX!x<*UQ^Qkre~m0H9xhvL$z%yS{4N(~rJ@Ixj~TE%xrrQU~gy6-d?bKF@++9m^Vi zaT8#w+&6pp@Wky99WzJk2daZP~LY;jVY0-Aw%_>$mnT4!)2Aj zEVCjT3w{pw$8YKEXU*>-TMgVpdoc_$UhtNfh>-FQACpqzo;5(FYJV|8JtESji$y)V zlXgfoLRon*v32M=9`=4lKqSiRbG!noJp{N$KpFDI4`fhKq9Rnya8nI55E`nWk-bG7 ze9>}aCA^=-7oNAR=+gy`K zU`!Lnki|q9zR5)M7k?)+fY?at)Ce=hOmdG1Eo?%n+_*#L1d?Qx!i+0;^$^S$pGY$O z%~P5r@=<^!@GK|aX3mlXJ+nzNcZ$H-wNNSL%k)={24a)Q;-Zz2XlnN^JAqzHEHmIn zH8Sly69eyUO2OyooD@Q4jX#a62dtiFJt$91RyHWK?#t1@0)IXQqjIvi1r;dJ$^bn+ zJ-Zy8JNRF-r}<&D{cRv!AXk?R_7|Dh<(W$ zu8b$Y5w4Q4`&6}Fu2j7N*XJ4B8uD=IT*0N|3|`x<7AHmhJwKCm_7T6t3qp{p4rlRc zX)uc^3}zWSkn_Th1@*QI4+bnVHL--nM|9%|);7I85)MDRG%L$Bk3aPu&40B>Al~j3 zr5e+n`+tn)vnvbySlTO~rqSZcvZ>XHznG}!g5L(HfSQ1cLt3GnBbI3wDCL(++G~3@ zIn<6}y$X`Vxhqu#hZ?B1_J|5RH$!!}Doj7g&?%zjJE=g$;x6*%bDnGQneUWvUBmhE zJJYPiga@G}kJEM}DvXTim5Ur9Uz%pAb|rvXVt+P59r`y<1VZ(0UB5AGQ_nF}_rCME zq5Ch~M6VCSx3EH#HWFHQS;|v$>H@E*I#YL9*+t%E3fzOzUCdb(wO1|>l4mnLC|=ma z9Z9soR^IfklWA)tTq#f`)tliC14kbM6DQdQxIwfnSa;bD@ zYkz*@M!X2QNhwQt)V_M{w!CIVnGf}w@%0fhG-G(l)qyWkP_adYMii!)y30I?bfaH! z!7mIkMz-lXQAKG+C7-0MLOoBith-h9Kj!m`3!ABsC{F?Ns? zQ%(ztiXkgvLf^GgLS_1bFc8pHi3soCTz@gV77&5<<)e`S+e?RPi7y*I^;$CO01laK z5eu$CNkx+AMQa_d(1ghbs^$utUptyE8JQS71B1T8BS};|aZa`X6Vb}P187$V92bVM zK39f-+0nZafX7Cf!seKiRC|Gy^75tTUp4y*f14&>#@2oAHB9ct+GBF5!h|05T7PpA zrtR<&WK1V$tK5VPV!@T|Y}tB}tEuMJQ}+8U-MJindvtvH`FHa8jAMbXml=6gkx#v~ zMaM;SYqCh*#tTNdd0}vqXS1o>599Nji`(?K`7!PL!G7|9zj+@L6Fl1TLWPrsU6*e- z1bg#-pvhU`ffCmvuKYxgMszxr?SCs2$~p4emAv8HNrVdHuYo*H=v>Vgc~(Gv7H^pw z1p<-B4s4_IuDG%^=5zYJSfeCDQhj@&rpe90@x**VKb6fdhu5scLdF+BD=UCWE|FDHwH;NX<$TZ(F5RCK&u zkS8HN#vmBceRA$MNFa%TCgh!PvRo8+&xzgE)Ad?=^)$FNgR0nLQFT=_NI1QsZ6whq zmmG((-Y+dgh6eo5lvAzz_f2g_am+OAcno z(-K{Fa6!upnQ!G7NO4e~G_{+#2ye%k%U44h-5^mKsH_xZq$(Rh6*niv+5A_$clLD( z$EPRx1TLU`mfiIUQjI!&cMhXfO)_+2#iz|`{T}W>UAgZ1_##+YyMH1wf@Jk&+hUiW zZVH{3LM8$xV6uHzvRIk7C43l|{!C%`pWy+lX}abal}6Z5`jD%VzzDTKA-Y?%z3iyi z%Wj3qd{q&(Lt=a?S8>?%R=Cg%Avp(Z4>USD$8L=bS-mYDHRH)gI~;0mc3-Wr$Yfob zr>z9Z_`P}{zu(}?6@P@T*8mnzN@)wE38#4U-(B@(4mMVAx@?EF8;miPV>j)zZrkq> zjHeOMBS5!na1Flgc;CR{6?c}Qp<;YnR!=RXW*h;O2`8ZDiA*}=jhq*13Q#%|Q!|sTs2y;9geV8Y>lN>E7BaUq<^sZIX5rb`hoPrL+k#% zhgY9!Ab9_$C;q?!#H!1CA=y^QyCJFTgRa=Zy|D$pO25R=Ha;OtN(YUnL4N6n5Utc} zqXIE&GaVyVkc#hzuvw*smo}`z3-{!(*+eQgo|0?L{}^nle}f3EKt zYX1%a!FVQ$iwVZC(P6)^(kbgq5KT~r+rRdqknWA8cIo)Jv znX2Wd4s95|%GzdV@f_lM#cucA{~%MBfSbn}frmyJWz-Hb%BA5IS#I~E%SLtq1nzgk z2$ON+N^Bk~4osd*2STdBA77f?Jz6f%6C!;9*5?r#aLIREnRBzX6-8ZUDT_uE{v zsJvR(Ld}((&UMgs<>LR4(&H)tgM747dt9Vh?|(5I>jwF5qxnpUUWwAM?%QxPy-_hR zaGho_xmq=}Qwi;b(yY;&rP2U~;%+^P|sq zF4Cq#L?K_1Lha-=#<>X>3QMa6@0E!Vd6j}2Z=J`>mW{`S>eqgKLjD-pyMlR9$EW8m zLVpjNY`hg-WU)uZRLcW;nT9a@9g<=7n6J-pmE-q6IaNhtr$Zt2}oh~JOBjbd|cvAK)z zI2&*9anR6YwP5#e6Lik7gp+D?i*BPw&VMH;tuw>HbeW-hl+|*9!IFkUH%?+YsnWsR zNm%<0EWvnKOjhNs489rBw+=9f1_Z`&4h}qFWis8nuMVvc+o4lckB01U4SMi#)fjJU zh*!*KK_9lGJM^Im4FLnDHsn_vjknI}dU$DJc+naDcZ4wXk7w)oYl9L|b5Rt$gm} zhV$*6ls9D+#r=R6v-p>+p0G-_!+$7ujxDS#$GwJFm;va}+jR1?p|@1TQp5jZh#+F3 z><4oCYY;l*ftask&H(XC5=PpYy&d{J_M*QQmi@V$o74=Gq(Jv`#nyMMq6#H~a{ zi%>4|m02dr!}^b>f}$yGNlNyMX_n%2&!i`Fbo{@{`PBkYzqs{KdNQxjRx|saM1^{m z=##FM?y$YE#CxmYXyN3m&qwE_D02>AfbL(CH-~S&`Ih{X>@{!lc2t+71|L2oHS>_Y zx>b}WrM-A65vlSNqQXYk6My*{@C5x&Cn*&Y>O1OBoG0US=x{i!SD&2PK`G0E8Bv9# zVz)9uZ^0@;!HF-PR1jIM#ezz0Ef-|=Nk8sP45ZVEPU`jh)CEVMkG~#4zw@G_+VPx9 zPK;ip?q{-E_PlOS*Yy-HaqqR`&BFV>=K{$i#2> z$gi7N>}Z}SdnEiPq{FzKYxHfjjfC)vaV-WqbiMHPg%JfiJ9L!>YTowpz(-8?DhW&} z>4}I~NA(YDioPPJ{4@(Z72b-cLYFMQ6Zsj*BlM-07=xl1PM`3FXp#wy$J?8yEgam; zzn-d%dAufVPbl41KYy8ua$U8ru%N~8`ZAloo&bJ7=LwufyiQSU$zfmLR=G#Hw6XKL zG78uYiMarY(DTw&YX{WoKPkoT2Vo-mH8Bi6d1P}n$F8I)Qoo#<*=7s@)isx(RzMwd zi$WjLBOttHAJ7lY^Z>Fl%Wb91K!DlIz=+md8DgMWB0liX41a_u%Wm!LT-Qtn$@%^<2IFyKeCBTcW!obZ>5nhJd#DBd?*p)t*>D!S!42oJC)=7_>y_5ZQ-ASvv7SwFX@WlX=NK@lNSAl~ z=vXyGiH431qpR^t@zmF+K5?MBTkJ%qvia=_rE}pxu8*SsAcW+DC-jObE@EvKL1BA`NGx(WmeQ)woEkCbat`Q^gc9>tP`& z&~>Fy#?g7HqKeNe#t6DJTc_&Rl#T4l9ZcbwMvBv`VsCn2*e|g95zp#>c~l z)-h5(yMvuuI+i3jvugl7V=&QKSmLOeLfIZ=!n{-Tpsd-%d6wq0q{yGGXRee97dnT0 z+J9fW8zeK>ddMiVFk!YiI_z&x^I1kWI-bCK=4Z1{B=`{h9Gi*DA;=Z{$X}!_UC&lX z8#l#L2n3SA-@qrF&|2PEOxZMu1J412DENR4WO1?p@u&v4!51EjrM)S{Rf#tY?1IL~ zhSdN#7Ym@|=j^U3AL+6xR70r!IgZI{`hPi*^PD!Q8VR&PEBOYL7o?L!KwyoC1levq z{)hP4h7EE5nb=1VVUx6-kmf|yh70oe1|MT9>|+c4Ttaqz(Ns&Rl!i1m<@upLe@hbtE`zrx2CfO3zu#WyEcYkDE zij9OJDL5&W6D}|UG+?E^vv_S(3|`)uL1;LLqtFqJ^8xwn!)i@`9>j_s!s#%Tf|mzQ zS)hbdLpY+h!c*n|G{=WKkN_jWDyVI?X>U6P!y`H&$bPX$16ax)B(ZH&ZRMjvtCZ8J z_0z-3V#<*VL$WcncUsLW3sOQJ5P#FG;V`f+w34EaNhIsS#k52pLCAfqd1l&c;wCO> zkAAsK?@$UQ2SwD;FS>48;gMqOJ0+R1wYv#)*gtbegK)D@AH ztrx+{5JOa5XQXhVs-kukN^MzpqFQeWJ8ken4$|(4&QrL`3B+ecuog>Q`M^f(<65~m zR=@)`LP$u-LeuEqqC|rP>E9%(G}`sTqO8IwLjN5MO^$g8Q=w1<=bdwqWv|IxO*x)3 ziGIJJjw>?w;V{lBpdowZkxx?LUccbGS zHafTw+t?hQ$st&S76<1=7#s+u?Ts*gwIF%NH#iVf*&CP;w?fvfBuqs+TZ0;59@=S3 zLxV7_2-VfjKr|sUgMTt2tqdZiH0p-$h>UcyF}j%;JalCKax`pVU|{hG`+{1kUZ}OU zE)Ye8aS>OOm=+CHUEbYxu4QetNn?9Z4{g&NEFaSvwq0WD`G+hQth$Ziq8ir1Y^fFh zf7}ScO2r0=?T#i38u&hxMNe1~W6^M%x!fGw`BG|rD5O-^t!$KW< zrnXTaaJy~|^y2+A!#`bmw`};)weJ_h^dnOKCF74S*l%h6y^H3bYsftqfP^<_0=nE7 zBTxW6Gf=WahJWC@z9C4!+7zUuZpI)LZEFsi=2(YZ$|Ur`m~MjXY!(u#pkc^av8JIR zsWdXdIFy`!(mbRX@oI%EbZlcH5`q{bkpV@hiJrjVn+c?A#*ETjE+tl_CnUGX{HzSgYwlO0khRHu@N`G>-VobK_oF;?vT`(vG!M&Q4 zR71Q`N#MITD+%ojYFILD8)dlsP%y^4Bsp*fX0t@=vxE1_OGx9g`@YtY?G}+jOn4QU z8kc`=9X-42u%=`t(0WhmR13c5nL4n>6I{VXo@7U?@&r;Z^THJ=CH$Vh&NI+_MX+2x zW=Z0=+kfI~xzw|562F9MvF8Ia^#-=-Pd)=V5;r3W-w)2EE-&!gweIq@UD`E*jcyZ#A|Aao_P)Y z&Zl0BH$3-R{{2gHuOY5M7@`L8!q&d_iRAj5+j|Qvz5VmS$mBjQo>Hj zHGfam1w@H9H*}fHzfumT#}a@ep<2FJ%80lG<4FrdY5B_ONF?%X(+gja$s`UG&P-z z1(lSz`jX4CTgdf%It(%Y8cFS!km)e8oc<9OxAB=^G+hb!V_|~;d#*@7&dlrsg&Uj6 z*t{&CcEAewP^exi`SW;5C~^erP()Mgn_$dJwP4pb+D6`$7Vqo{QEaQ=jqQ_cnP@e1k=a$-GW%r>O8U+@07`Q8?v0c> z5ylU|2*luA+ytJJsi$OuJ}<(r&woO+qF(e#H4LzC&xBxn8OP7Hm|Avd>9<9b#^{R5 zgSM8M0-sJ*UrzNkuLrt0d-YR;E>|;4C~O;jo3Xrwm*{L2h)pB!D;vcsnm5-aQ=uHi z#8(^D=p`~|Yga|2jK{@zKAEkj8JF!_9P;$q4?88p`k-ek4SW8t*K6SrQh(R%ntFV3 zc613&O3x3hYkh8sa<@OAv}7+>jvd9TV#;@XLt%o6D~*3}DM2QJ4iSg?#@ff!+kRD^ z|8rHTmn#*Av1xzZJ~o|OZbloQZBADCm2Ex+Q_J2?uWRTYC;Thfv_g8{y_Ett#}MTtbQ2Z!}@xfH6O z$Z?hSB{$!!vVaChZeJ)@-qyTyS=cFLJpD=LF%xu>7poKu1IdOzK`+;+398ybySvVB zs#OwFr3|Vx32p=76DAEju!+bSW{Q-@rJ{pm!$1eKu`S;fW^Aw^dw<^}+%`M5;en<* z^zjk&R6Ug$C@$(&W2DMW<4y)ZAXCYFZM;g}NqT`}R_^a_8;@syzhm6W{rxtPEBE(X z#;)AoZxy{#z*PhcW+3tTN(Vy0BHiLq)hN8a74M)ZXvuQ-8=$`GJ3{X%7=1 zw`;_q7}Gf}7{}l2U4LzF<3tetE2ex&Ap|Ib4@i|LJ>Db^PQ3y`CqSX`-9@BHm9#)X z<+rmlv+Kv>-Hq3dohA?vG~St=UGF?=@5?h@%9wP@&#SO|_1yyxbB`DKch54#P_@>NJtYdyAh7&-j{0w#w-}zSAGxAv=C*%>zBTey6pT zJ*&c0SZ@^{gLCRH!l!oql=RB5f9St%k8kQ3yj-c>0&glX)&TdM+SSZFcLBX-qSOwc zCSyAEIAz^oReuElLhHH-409Y{=tysd>mQrbCMk!QJnZqHLfgXlFFI4>poTz_sb2-)D->>Z7vA{FQArfUzz zs2r2hV)e>C`t1vuU(?Y8GRQ*pF^@%rCdXt*aducBMq=v_^rvHB$WUp+qjVk(C{nk_ zgG%jbOI?AaJm!RrI7&K0ifmbVXY6olqce8)4I|7~?*=8cXYF)_5<9`Ddx(H9aYY~Y zrG}$sdG_&F6qk5nvXC%wSS{Ko@le4w4$-DHvTc*gOkeAlCKa= z&)4Myk6Q{=MJ_d^mnfEnQjlO;NQGf46bh%Al{R){63$8)B7Kou%qCQ7ak7DgwJFI% zsl=!G?Ko5_(x}-c=F;Eq8ajnvd7~?|rB$fR^Sj⪼;(;^VxTo7iV8v#fQLsq9Xhq ze1DU`H#V|5_ann7HpjeugTnBweP8*@&%XZZ{M%=jpItb0{s!KB;;WK-zInpI@r5pZ zrQg?l{^eKCpu!*PpQ+omwBj(a7%1|Y#p?5_+oBe8W&DQ@WGUog zR&2>GE}drjJV+L1k;fL+l8s5iihPW9+<)R6(z^3!&9XK=Yka#v^;CF)xoO=dwWW4C@sVrQlT3b$EqoN)W^ZESGRIB7yqWn#Atv1hJSsy z9BBcsLmGBGzRY~@E`&L=g_Mz&LQY9YFdsUfVcs)rIJX@?* z(_d#8CPRTjnP?O;MLwtwC^Y@Uzj5(jy!!l;Ogm#;p~j!bzpsB$N-g!gAFRcMpz*ZHmJnFrj6jz2b&u&8>|(-0X5`|K@AEo&T&Lu zVQL-FY9Cv6kc?4u7-^6*&1TQkVrAN13HmPiPH$|9RGvJ|w6k=*jocgQRs27harEV)Our0D& zaRU?_!U*EA3y61HvtMw-F{jB82yLA&05S9HZS>DIB-O<=8?E183z{^k-uUiyN!8d!_$IZS$|C zO8JYpruuGT_Yz;?)PI_?*nJ71?@CRZO{a7g{m*9AL?KKD0EIO5Q#;Le1pPr4RICzv z(~L);7t|gmnQV&KdqD$3)xk6;F8r!1jHaVgG|jW>_o=b>d%j$acNV2)R@xk<9lN*7 z59~JjjBfp-ySGhADX4nzOYNp4YvB%By#GrdIgW2gA{ zW%Eu+hie@=q;H#t09HV$zewHCG{mm;L2_(jKiq(D z%gxZ9am$r?EIMWT4ioP(B=tK@3)=0;Muf^PX}8S)(--e{50H|?yiJ8l1Mcl+P-(`! zO?*|BAGA*wi&f4Ejo&pM!xpyG>qHB{OhBr&lS$y0TeYm;NUwj|DU^&QJf_!dd~1S< zD$v^q_rIx8s1R2bwV*G-6r#bg^(1(j!7X%Nz^c~lq5M)yH$y$Qf%fTXyz=@T8ER^A zTJ+m9S;)p|7 z8BHfIpajSG*5ZC)jlSHX_RifCJ86$s`K3_t-BJ>oZy%K};hJcHarcMpU%_ZWW@7+f z6AZC%LXNQDAVQ%7bP#Z14nj%_!JtC_ixC)fU#S5Yq?;ChL7GY77o?aFeL-p)2VYS6 zJMvX`s*1X=d5VqFQ>U(L7gzyQRgWs~P5H%y$ ze)t3=e&_^b;jjtF5iuhvDqI55l73moh^Ju@jb@>R(QJ{oKA6U74Y~PrD2+(lM$#C2 z`YcXL@ZxBq{->hfWQo|@5Ck#Ti*eVk!eGC7WK05@xU>Nm8pn`G;cZ_QMh@GJgQmzzzkH~0s(}gr z1w=#{=rLyxeQdG(IAyUo4qzZozv~tcNMrxB7DQd_LgHOm@IQB$j0XOy& zA4T|0508TODOXbkM`^W&u~C#IIW)>C4^s>_h3Vb}M(qGJy9$bG?^w+plWHYX$G|nD zY~H6mOJ4p$k5G7u>fPi$40^PKH;IOVheu z(wL`@51La|9*Z;IwwFZv2?@QPve%InjgZn;V8za3Bq^*S4JG>$R8hl8cuGGTzES*8 z3XhkAG`C|d2^+>vkcmePo1hBpW5j<%px*k8Cn^o%B$PMRB~?!nItYv)GmjP%;acrU zzPcJ5kFKn2=VKxw^$vMFJscv*;Ysli*q8KNO(NxHZ%0wP*RvbADowdO+ENd4b z8Lf(Z!7jwoZW@y;wGJd91CJ3yLgjW6KH?b)HFk2)NJ@JrM2TQ;DAwk&_z-`{+|k%; zqeDocb#RC#yGm(@Wne9}mLC9wI{aJ0e7I6psm!N!`|>LZmwW-Zg|tks++vHa3KD?Z<_{ zuooHPiTa5QkrEQm;}B(uEkJ+$e1bVd>p~2;O;Y&fY$}yuZkx>62gSTd@fqfjg@X(r z4fD&P0eU&oe0DixW?Z8c@scgl6Cw(rH=Q3ZuY>$n0qo>14)^-_g5MQSbgih)uQ z)kuRF60|rTZLl5>O38~jh@nD>5p@v2hN?w!s0p{9NG0cY3o2QGh&Y$iN{^}_(w zQJ&R+K_r5tkHSu;I=Tff*i}xJbU!A+s_Uo(QBI6Y;1^r3kqLa4TaHaoW%_M?h)?J> zK7lc{#RvuV>Ep&Iqyp{`r_gnr0v=#)a4kuF#wxH+w-T+8h^s@yLMk+Rj9FlhY%^*h z5gdoeg)Sl&qR*Ld^n!l~dx>9Q=WYIAw?FF)ti`^0JFXpPYzLAqOtv@1}T=i#%Ew1p?w*IrRwu&(>% zUF#Z$aH%ymf~B2EwxZxeL!}a4rbo{4<2!aob(z7D=sF1vPQlQ!~UU`s;UQ0%& z_Ky?QRpH@24}}f8yqGu|Dx2*)JmpsX9cW715K)kF8X-in9Q1c}4P3 zEz2HiVVXVU!m~e{E@=(9Dbap!>F}oeOqL6340r2_6#wMn+ozfoe>0vySCitOojp-B zcj#%Rdo%XBb6=dkK9)k(@Ym%@>>9vZfkz?U2Bd!{O`)bceQ?vU9rQe}XQxZ6*?Ov+ zr)B#-MIEv}IqJ5EM3TDIrp2Uk1%0M6Wb0V!wrvt9%GOvSN7=O-iU3nxm#SACAPmxz zA&!&Pp#o|$5`AJagfu2rs%o$WK|N!=q&Rdfr#S1-X-itSRt1Hvph24(BY?@r(m+K~Z_cGM<~(modDJ~{37X17afSA_-}|3GW+ zlh$r=wLM;YEy~h~?RF5$5R)-#L1*6#Y6pKpdwW8AI{B~3;5+24-uZvYtgyXi0NU2< zkRoO+203C7hn;$00rtTH+%X^T9uv^kESU;u^%bK8x1CM_v>CR+0dz%8=heHe<$zc{ z+)2x~tB^J9xOdl>fVP$tQ!q0vH!%>JzPxvyo#$q>v${1@qRJ%VLFTn%BYC!%n%;l( z?Ax!tx%}n(&(2RC(*0e{Dhc1`S0~w7$g*7)qW4C%74>e?GWT+N$4wiq7n8eL?zW9&p1=bE-Wx4;i}-)XS@$5O*1tH#vGP0p7Y32>e_X0JSCf@b z0*!m(HLl+#t=c%HwNL!kK8b&}Hk){zPhY*J<>AHBOj&54IGDcV@qRuzcGC#XI5RkR z>Tes+V>Uwz8HH$dlV43=PV-60n8FA0A7r&Vo+{~1VpD};s&u8PMRmRVl z@`YK^&H3)mW%tW%klhGM2}@o@zdE|M2#e1i;(B)?&_t{sl6*w zs=X^Hsk{0yr`7bZp2&YtVGlN__ortU-;(F(@6j-nMeARh7oM3>vxM^5Yw3jAfW}T^ z6X2HUe&u)AQMli6yO$EE@k^J|(4_X7oSr@LtHCXqA z5NC_4BgT^~SIlaMYInxU5lqyUBx=pe%Fgl18u5G>93{v1L4kjEDMqjLKh zZm9Q9M#h{R#?SMc+`PW{|1|kq(GMD@{&xNDYhCcKi^VJ-&qep^#no>{k!F6` zwMms3kj=fyW-K0s_aSuahmnO_GnE>+#vNwzf4R@0RAqmtYNS``{%(--K_eJ7D7J@@ zG$Mp*437S+sNDN1e^pcrPJE?%U+EXd?5VpMQm80d1(E9P?oI8UyA`?k?9@Ww-Ry(W zM59vY3&zVihFAfM{_6 zS}CY#0*QakrRn$PxrbcPQF4?`3c<`I@>+`oz=KX7O(*(ZLpo9{Oa#UJ8%mYkaOA;b z4nr#LiI{JWvnv|9BtPWXZo*V3)M;5hD5-h95u#xQ_IACe82Q>~)=Erj-JvRi8$mSz zw*cxTV>Q(RX|Fdn#+e7|MsQ*8ST&cP`J~j(3>|;l*3M*YRX39_rDi;eZCf|a+^Tk* zGo^k!x^G=U&fTttoHeP6X1dY3f+laf>Y0qF9Hu#)KO8VO3JxyL{xU0FhT}4D>r}^? zO_E`f{C4A1p6q6m=`xqTPdc=UHolwP7P`|__FiPnz?B(fsMFAu<~@fO_{76RohtdD;-?wKJk{iAu6q`z@g?rRbsEG)$rn} zj-1&HRbvJV?vWWwku-p)|SkHG`)9->zw+m;Q zaGO+++(Mv7TzWOXtuslZRLjx~W6v4agtI{PmA}FY8Xe9u2Z)6-z?)_{=p8n#l8&>V zvy<%Yy1e&(-h0Y>LjQYj^r08h?J9q!Ry|!}OVE^G6b%rg-!C3q>WkO_D`k5Pfg%`L z2ahJmP`Wix(8_)J9wUb9@pNuK_svlsIgzQjDW87(EiobQSGW1~h_ZYoTErAGBa|ar zWg`B9348Qpw0|B-7tUlz@|6&Gr?dndlAC}g=90zacHe&%lRr0c07M*EhJ=4iJP!$; z=JUHy`WI$_`X(eG+IlFRKH?TimoF>?D||b?onD0`LOcqZb5#1E!TdJdu+zxBFBTC) zR||?Q2;PpNaxcOSxuO{S@Qp?Uv_u+g{Kc0h{30fOlCKO9?hOL#RM?5D8l{WzWW20X za)-D^^`1?ye!IJgTe+Dn?qh$_Zx)dFJurHcPp7Mu=`Uf><>UExH$i9IjQ^O2(eQhI z9fN8wq${^)7Ryp(Qa%rAE;V${?U-pi*xs4k5xyXUX?EA46}tyX{15W90-x9Rmi z8;;SUO=onF;|vZrCjJJ$;gzT_^Yh*=B^MD~Fmq0(b~ZgqU|}^Ka&&VFf3B{fj>8Gg z)Tc=t?PZfSoI>B8!;1DMwx)Iu(RfwKM}Khax*pz~1C~BQO{aS7>g^?;@#&u&_fB`8 z?GK_I&NthmK$uSfImLfi%RVv&!QRKgPcIZjgw`b!tzf>holN{EE_PSfsIC!7+)h$?~yI4ibnZ~G(ms67h3+`Uy zvwJk?A3iNR5RQM1PzcXG-*X8BAWQ zTjWrf_9lK?z7Vm9E8@x7OM_Pmoks){r}Scr_9F*)65gadp%nC(bCQRa4Jp>7{EyZW zwPSwVO8~tu))MG5dHze_Yu>FTgs&6m<71)jK3+>;CwPC}T41~{*D|1e;Z~~eUjAcs z!x$P;=+RX=NpoOaDJ~oWOTh$=(Bc@)(8~!!srIP(Q;2W^s1g|$PEK>`lhPp( z3cDon!qZ*7%&=t#-5q2r#5FGF%~xzJqNk7>eT`@P?vzE6*K4^f_8+uL;5huq5=DX8 zx+BDL*9Cu7qiooXA_b6{DxESfGIk0W%$56$lj$^@;^<3qU!5A)!j#qy`Gxstrro&O1MOT0wN4pgEO~+C5ycl~21hMf+ z^!e6ieZQ~om7bm<9825aCpOAgpMAN1_!T$Fn(2XSk-+uFV?xgj!tT+RU-l07Do9BL za2S6e1A1(SmbI>w)GeeqNN_$#IDk^tCTuR3{u+2=;qa0fDG3hJLKsVg8D6H63|8x`WH zZ%#ME&;?_F^)Ff7$MeD-G1jPQTOTlQ)qsDse2>)Pu!d6tNtc6nICq6Si~s|v8gc`D z(;s@EO-|dr{;$(jxHv-yM8=x|JJBD)7S7rFBmIpGN=m6Dtd$M^aWASFb>#y|crUA= z3_18F2h{4@w?bCVUt#gc5|)gA*A=SDlM!lL%4tM zA==yT?M2uwgWkzAR?8eXRRd2PH0`LlY{6AucQEl>kx;oILF9W1u9L(n>?9pmbI4mE zSyd!EDQ<`-TH-F;UQ}xSgJ4$`$XThq&~*}2ty#jhOe3+wnv zHoZbW5d6S3`t@}(!OL4==Xq^BrU!4porQPk{5rggt7mpwCwL#uB~B?W03Cfcr2&~$ zE<%{-m*JFL{JB2h4V|If<%HMRraJH3vxK>PZ z_{nDsODj)OwdV$aywF|shoT2OALi!DoguPrCJ5*qos_<;bL}jFl%!b0CZkV3rHV>r zu=kXC`2u=El^N&2d^8t>rh5APe6uoNh+VPe2bZpJk&^{+V_Lc3Yg|n z2PW=TKtecCl2Nj$7@i$xu&x(|aOz83kDh$6B>&OQLRc#(8Q~Ty9pQk3Ep_3<{>e%2 z>Avx!G0|wP1*^=`c!^)FH8V6tLvWU*AT1d02+o}{5Pa0;Y+;0xJCxk057$+O3DRA1 zab(iBqYb3L2uX*nRvdpt-0@Dco8fr7N|^IDJSx^zgwRQ}eVTz!qur5=vdakks%&XXQ-{2H7{>TXCpLuB_k|<=V^E;`D_%R)ETD#>W zp&l-5Lx@7dKCq%v7wCP2x2nE3iIPcj^)Nk;D&q7zO5KhccRGK<`{#8zoGtEChXYml zhjzEg$oY_;+T|nu9eJi;SaN8JKXXW)Bad$}z{_OaGm>gu3X+5~P5ZH(=KFYeXuIQF z)+Q?%fxeK7+5}KUr$O~HUsI;lwg#sp7f==u1zxd6ufU2RHDyWH-tV)!s ziaKeX(Q2hil7)W@LdnB@2Ir4ih6)2ekmve`;9<>b5&7ut+&V+qCONE)03P)#5V}~u%!Pk6=DZ1Pq4G_To)7sZ3`UU! zh%5~2NvM8CePwQ`9z&sBCo+v<4nj%&DYP^@Va*Wj%m-PIKG+PWSa1?RT3~5zw8+ee zBaKF~b;Nu51nfGG!W#7lGsDU1$Y|)wET+{qJP~$-Hjrr*3Q=m*i9rC70q5f~=63bC zrKUYk>l+F`ltP)!_u0A79AgKc4uoM5m>yXyN-iyCZ;12EZRtfmzKQ;Ncjd;&A-O)^g* zR<2^EKaREtbs;0M9X;<24nd%AMg3RN9iHLJ@W_AJEnXo_aepv}_R{uxlVKdxmWH=&J#|2;Li<_In5Wdqf2SV7~01oWPekW|8K0 zUi4P<{e%J-Zg8a&U7J=)^X)LZp|tzG&ADAaq?PAeYy&CwT5EelefU7@0|y@1O+k#! zJ4S!;;E4(LM|I<@jZx$q~Y|EOwA;lK%_>j50#gm1_0(d-)#nykrY2(5KObXK|q%Vs-p#tqG>CK8_Q3OoM z=K!peY{AekR8?-Pg)vRxSd(U5`Em#mD;Pn0NnW!IH>x5cDIw{MYrh0J7C#vk&&mAL zKl^&JDLq6~`+B^B;Wwq$-i~RNsBIY89U|V|$QFi2lGEr>0@5pS!Zz(KU#^!&> zoooB1)fGgGreHKwU^xwk(-gL>CDhjtnPW-ViUe2=zqMFyciyuv$8L4%cf}x96`Ua3q9vL=y#fL)B_uC!&~P4oUlaBGRC^CXr~y`73c~ zlJ10>NtQQ2O)_ebq}eT|%CC4gPT9Ycuv z!unj$x{yABM`;PHKYnkCAgBd`p9D>DCoy}oRpu zQGHeQR$DNnb+}ncsu<#DrUrjSEHMQT&k8Y}A7IK3nYsLVLo~x1qCQ@etGXmNmFU%F zxpT-Nx2q#3+oUU`Y22+Vrb?Uw;EKr_W-VdS10CmGYNtiRMIBZHHb-l~uy5W&BSiC! zLoliP;SfMq$RvOUZv#s);^RQ;w)*JQRo1RPUUg-~2>0H2y7^_92)lnE#b12$xw>3v zJ?o!V!d?HF(XJSz5!jK8kqQA?arX==Ih+u1w`%5AWI2e|itNS>(f+4c4O=r`tnK_x z99+V`*<6%Eb^np3LPvqf540ifGHl1YMw!4%k` zs|?o-cdMlhewE^80Tq9)G*x}3i!ADlc{y+XCK!KbPi@4e!=v0nf#7s- zx$d8{+Q7D_{A25HW)VbBc3Cy7G>H6E7@Ve%q@C=qGKxv^Vo*U2sLYQT#j#4$Rnpy5zGTbW1+E@=l$LfH zSmwrTDg*hgZ$N*YqneXOeb__ZbWg^(t|PbDKhcKhZmWPat7e)PAu10K4n=|><0a+S z+c7#u#fI#D%vcKxSi}ZsJBL(OVCay{;+9UZ7d2H#Vb!*Zxsu-s$0n}GTya_I%f*!P zJQ`T9g&qqQMJuymSb~D`_5wFe_b}6z{|rl3$Mi$kGAw_0QDcU)A7}}sdL_pE`etDlR4*j06bchK&k&YO;j83Xt8I}^ zjoLZB2=(oDdT|Fn&ex1Tjg0_*ph=Lv(RrM=x*n&60o6TRWp*ohs$y=uqZ8h&s?mkx z9bL=0iRx{M*DTNj#OSY`K(C!Z|8ytNYY$M+y6Atk2WW{U)qQ$^zMmlUV^q_}BNhV; zFdxCt(xJy0+Hb?x+xR(efh8wE2G!>-McZwa=Yc~%(sTGy;ApT6&LqPeLo5DO9dOo*KVm0HG62c6bii{*wh^r ztP6jyy;1)!Z`Ajbd-X>}_vMb_ak7p7X-FL6rEa!Z{gaN>NFpJuzz$$o0* z=DQ>ArHM&`=CHZu^orz&W#;jaAGW|Ks*gCyB(yd+x9Lxd(q$N(Jj-sUxie{LJ>Gm0 zzk)`FkIVSgILoGOTk5;-eYm;V>6ij0U#5SPhWHn$ZG6h7K}? zU&Ibk)h)naaopN&#W6zJ-&CmY(Df1c&g5w#`xIYvLob41t8-4n=f}(=LO`z3(_zSr zxwf*Nlk!Vu>H)FnAi?v1>b*0ebCz7B6MBQEs?3YLJXS^6M%FQe(d{X2w-8`yCv|`7 z+(|cGV*H99d`vU?E6b%@V76ench!~hc1nPH416_8r;rWB#J^6{n*=`F9kgaIUL0f> z`S(BI6=)7U9-i^9ERRPpwZxg{w;PYI(4akjw(+Aa76w-H2AFCBQ_X0{3L7lf9n1Pg z=yHGA2eSCgq3;D!qDePsOfsaHOzdo%USGsVoKXJVQkUZAKy%0kczOaB4hYJ-dvyC0Kfq~a9P#`88aqM|^~D~>|W!LpjhNH_R{k(i%)9FjgE4X@zT@C~A|#VwwrtVixK z%Bd}eCFh0LI!q|H@DW-+Mpu6tPc+W$m!?6qYYFKd$8^j`b26&YL(!!ZdIfz$*&*mP zt+4LoOy>)nzHcgq^tt*D!Pt8jl;7i`)+og3KLpfM!M@df)F z9N^SBf33Oj z;0HBrsH;ltF;#{L-A?vg{t#F`s$gBwddt{zQG=A=4DeMkqn=2X)4GyfS9QtP{7IIc z4%G56mxKE9>r0nb<`#dJPVSSiFE@metM+bY039uJlhL3?)R=;=GcbFFfHuoucHH0`6N);Q!e^CtG(89K zn<>w;KA(cTe}#X0lA`vPN1u~4sCFmzMF^Yl^1GwMeN24wjYrfbs3h?4#3fkN55GM<-t%eL-JQe=pj>ExObFZ%%PjBfrXi zN?Oq$U4r}kpf@PNJrTH9XaopALWa_YZXugZ|T}`vVIHGy01Q zm{n4VyV*FK#!sh7GLbUi8GB49xPkYcOT2^-93-PMxoI*gh&_k1zon|Z7eem&C3KxK z!Cx_75d_RQd(G>j!C8DsV!XzP!FI5ZC4?>8-JJ^cPv+=Fa`*#1};OMzf z{IHfH37LN>ew&~(qfGOTQj7|~|M0&*oJZ-&+xmMpvG2T`qq@@j9Y4%GxBAdWPO=wku2IU+oE_c}47if%I?l|Vt(5kCM zD$dFwGO09sLc>k$B`z{>iL;j2Oqq)?dwj6Y2yA}32yzr)$g3f>bS?^?jyFY>co8E9(bvLS^6p?S>kz8+E zTaG*?#o%#ucvIgN=p?;>p7bn%2NZ5_5Pksjs^uN&}gEfE?0L;f*24HcDWT@M#QP&%d|1=M-zx)&ygIyt($*I zx3cz_zNTanFom3|sN+L1RTc&9n&p-zo{yZeiE%2N@*lAd*=&2&r4MQQX~NlfA6|bl zN`7m1hz1s-36R3;r0ss*Lo?CtlnS@2b{Ow`1r8E!=4dN2C7IQJ39*P<#1Qrr#-HDl zNRhDVj$ks-Or(I~5FMf?8(_%O*|mVx5rf z<(*k^Mb`CGRxNHmBP*vu3;};6_F$$c`8W(wK_@K@dhLk+Hb$16!6IfBFt>jvTTxRR z%-6bMRYAa%3Md--6+%hWu04&4CFye-lGo3Pdq{sZH0_VGIZDJ3WX_e?C|*#Rc&JCB z8L>3N&JIQJ6e*(60uIW8QoYR&vq?!~@E^^s`I6IW8??(?E)=U=mnWA!wM$vgX*{F! zpDsErIUq?4NR!-5Z&@Q*Va$KuTEmQc%^*odDvf@anWpUhGEB#K{3vb}l<)^D)3!lr zmn+_d+x)w(0&vB)%~`Et($m5xP)QTT2~elkOtU>xZO6&TYKO8}oLiPJ{F!6X5Tv0^ zBb3m7WWfEMiSuNfSu^#+mP5ETYP3pWUnj6g7$?VBuDTl*e2i}|e4T%szt=W+Rg9Rn zFWkg+oJTQ=+n6z~5qC;LirKFaqeCGkM*@Oyos7oX`PYyH%nQ@DQ*yUl6t6PXI<#Y` ziP&uqzznv}P5DKK#(aK>*yk|KUw~_lbY{9cUBbw&rP%4IEtV#vE8ldYluOYD&>%_kr>CY5>Lv}^%wNe*b z?HTbc5~R)?`N;)!A{|P^UbUH3qc~fDgrMu^#h}W@%ZaOb@7f^T|7SG9SF^;D3F9nv;X{;pI-w-G_gWJUPW5y!zzMzvtS| zuy|;ZS66==2O8ENE#5;&ANu`+*ZpDoJ?Z^}*ZuF%dtdE&zvaQJ&wEApT>n~k6)oBt z`>ezd87=LE+UhLhZsMXFIh{;df?$i16i-Qh$5PF#Gu+L@A`n-$UYH9ZkJr1POXT$4 zHoucb87fVecC^!&#w-PgeOHl1S#MKF780u4RLmf z*+<}HTe3GYZHXI4rJbADx?(EZjgur9*--5%ZRKOQKy-!|C*&DF(F=d_8{E3O1&x_v z;CT+q6kbk5eIkJru7A{e;CsBp# zJg0~tjyNd@(=mZd@|Jaw4Uu}`uGJ-oA+xSXiy+-x^)^xSS_kqxZjw=d(uA30bRWEY zH9^`U1rC3glHD`KnbsLZWwrvx*6pLoXW4K%3XypfS*hd6tW?|&lu@lWeY=M$nS7=#0b>a{m5zt_vfHra^2FcI2>6GLt zr3ek=y`IJiI!=)VKQ_B!YSmC#A@2;!8CO&WquYO(RLnzKjAL22NmISvwqgh~{3C!L zGhCMTt6KyuZ$VVIFviFZ1zK1guEKg%n`aB*Ti;59?yv6qdkw2jK|p^;&8;b0q4L?u z5`YFyyvw^_A(K5@u1D+Z`>9g%#S1a298yj)TCNyu!unEJddrqW!jh6CH1z4<=&NJz z{8@jpTQtSh{7G)$q|$tl5}zhlaI);i0`TAxJ(@e|Y&eN+I5C~ap&L%*L}EOLpe}OLrxt6MYR) z8`7Z|juh)~++oTa<^a#C+$BC3iX$~gSwcsnc@@m-=(LEY8X*-9P{Xia7NKy?`8t2$ zPdnh-D(eaxVR?lQz)k^m6LKs#2(Xbz?GMkgS41vgcnJh{KrWYWpq+rI(n+Ze$q#{t z8P101Kk@MfqKl1Z(>=^Z^|KVudi0)#lXW-;*Zfv+hJk0;MI& zx4!I7JFWV7d*$jAIds z8!{SonpUbmLA)xRE)5Erdl9=wC6pB9L28!~AnG6bs{H;DyaePya0!Qu4hM2sW<_j1 z0#cS51|b1ro02^4=f}h8&Cx3Y=}!hQBHgNKMYm*zj!g&#hvz^5)d!nVN#B39TS=U? zjeJbph_x;bRtl4Ql8&1BI~MS10H@O0(=?fK&=Lc4j39@yAhZkmW%f(b0Nhlp27}pI zM)(@rG=YF&QO1q0A*s@WD?sIM@ z4*Hgp6e*9+DW?sAnjzIrE@FRuRwu(C@+=)kqXbBu|J22jK&^zDIo44I;xiqiX?E>` z<;k!U%Yk60UeseFQa*$-ZAxvI7Y}ArmPF7ME&dxo(CJE>692}F`rmQsq%wYwI+}=9 zK_R8n6+t%}$qIwa^^3Rp@AWNMC5RzGK}|;S*=;%=JwI+2oONN12Yr8*;wPDy=F<=b zVg-vulI8Bsawj==!Waedi$y3NkCZTal^N|G^!E=>n>1$A*U9D^}ACM{^RUlMp588Wr@8^TJ+ggUT$h%I|pSoUFE_rDj!oUEg(jC zaYS}!Pd?V~s~P}zS68%G?kw^Zz&UdYh@5R>H;hX_<_LSSO@5r@Izc8l&vjhX5g}Do zV7?c~yM)#LA69>m8h?x=h>ykPUa+JJeqH3nPFXAP91RK<0xQKPal{Z`ojy{g%27SRL@P#9mNc`_0@B;-*ks z;xTw~ysMBk7;MfVVhu7fP^OE^@m;l_FcG)6_#EhBCLMoN>&W7KhmJ&Kif>c0J?EuE zH`&z@YVmG5MYt!at-EvC9ksc8S=n@EAXUXB8NP30H=3ON5+}9c9vHUC3N{6h0{xP9 z)_Vh%f;-YF@k|<_+Dcpauv*spS_u-T_f_Uwg4#mI%dhoJjuqPY#timn0#v|pMi-v_Gp!AYzRD14( zwIdGYv}^p~f=zBosh||1yuDQI6?l5@#m@_@HC~6hK3=N%YW%y%&@A6>uxGdE@Qr=C zfYWGQU-)yw+==YbYT``Xhy+3PG{I2GTnIeYv#@`U!F9nbLCjQSW%O({6+u>=2HqTT zBm-Jgkt1>wnXfmN`FeAiumA64{-~+Y(fz!r%nR3bnCFzcc@w{BeK!{jo&3M-=8Xi7 z9`A*FIUzR?`FdlKuQwO@|F4%f6gdw6uOnXgExwBgP`c!`6aeYalA}2oSs3jP0bC+?=+^5D1B0?j zaXo5ulF>!07xsN5yrq{j=}l%GA(TwecPKH7^=Ea2?H-2x(8@lWoUvSps2slKLJc+( z7ZFyy4$Ze6j57TV8xK(33X=2-LDV^dZ18{eE(LB-n9kky#xhsy(e=^~*##gJXB*(; z0FKt+ft1>f00F7n3J{1uf4v;#P#47t*e+gekB?DwXdrg1BqUybM{Z ziGz2X6<#;II5dN+C!y%TM0b)D2siQ=86`1|4% z-BX&W&gB242bH_r*&Sm&h0aoKcG69TTN|demQ@lKFJ144Pbf~704;LhLt*1MODKi}%I0W&LFTi(Ac zVf0ynJXg7}`is3IZEmH8eTEtSg9$KAAYJ;nr%<5KJ_tt(ZMlYP(qu~)(rhQ2Pzsda zjt+Zet-Z;nO%IO8@Ltx3EZdSS+p<)S3ACgqB1Z7utUYT0JY;bk#R&u}#z zW(7uobvcEc1wiX%Bs2_vgFEuXhr+R}iqrgJ>|W$JXy^TLI^xK}V?SCi2L+|KzqB_Y z0>fGm^#z2122ZCCJcNG$L?XSqAU7^(51&AUpmt9-sR)J2Dk_YeEy`*A8Ct-Z$0Jme-UphTL$0mSmh{w;;geJ5|Yei8dM4r8IP9*1; zIvqy2JTc$oGYWqop!n+$#Jz$j*s^ zRFtHekW3EJ5sbZyTQ$YsEF)ZYqNUp>p*fx>B9l1Edam0p{8xuju*K5f&L>dPNk7?QRQrFX;$)N96{PwF&sa7oraUm& z*cYB4!_kXqI>eA!eT>b}s>H=s6h13CrldebIE8aa94ID5hHR%#LNDU@Za+6Kn|i?>0YhHTdkop^I&k2V%HwhO8G ziHqUb>au^d0j_L)m5l==m?0k3cGgPB<$5Y@a>Bi~>doku;|D%QZ5=^VB9=D|g(f@& zh!^?zX})^k8Gr%h%nMYYz^;&vc#5Z?O+c?33_5CyYNErYWs+Uzv$cV=jK*6M#UHlJ}-LL(UT0G0PaSb$WSjYzT- zUDwjjC`M1wWvh)u?|RF_8-@PTa?ovOqyZm(N0fC1(-))Ns$lF^C04V;^*Z;WOSX08 zJzxI{^{R0ml*tMgj^!f7OQp3bi9dq_UEok;(@~lv2^*;e)qw+ow7)RyP&I6Auu2Ej zl7xR`sJyVLt&8ye_cBsQMgs~}QglHZk-z%hOBLdQMo97n1uA6@fzV{@sgRuU)zTwm!Rdi=bBm~H*@2knaNLR^omrEp zFZ_ss^GEFqxt5o2<<+VsqFa2lWZYC?%p3~0A~COlKt92LmT7hcoo?RPO8a=*Gks?> z8tKjwR906sTw{ZhYDHAeaO+&uc`fvIB5#9KzS*j;8N4@%EMe8vWAmqCcHD-5bI*Ua zx~*2H^2v7QFY<+1bQyz2gE&fXWQm|3=M%PA&^_p`2)Aw=A-OqQZn;A7i7|$ZTyfMc zDrTvbq3>3OhKmBK&I$`5Ps|FHW2v@U?bvC?5lMn0)%Hcl!^G(!jan5W!8i~qk`+Bg zmxGwLM<+!#OcUx(=UT*n0DUR}C#HXv_-~c=afc^ey02~F93q2JYC!k*i_yawunInc zZ9wsyW0t3Q0DBFB?=L~>lp*Euwo+|ePVCssrf|{*<11Skx}*S{T&QGT)= zFC!yB?R*`iCzG@|?Tx4DFRe1BDasARB&nbAD!Od|MnJj0K?~Y`O!uu9avKb7$+0gT+xCTj14L1@ zt2n;W*&b2&xV%WgoFp$V?AcU?Pl(#@Z#zpQPAQ;bCm|&8mQT?#oT=!9o&L0s;LiJi ztexu$^>@rLCujtYyNZC^PYogjpKv(^i7sHIy1szmTLfO^ZE+aRrI+0bim~-~?YlAB zhWW*oS&mh;a8+i^YrDxNc3jGTQf(Qgz`NP`Bt5~xZQYvWn-}KeVb;T&A(;Z*%v)e! zBEznc=XgRIU-{v&oqf$QM#^{A9zym=Ln$m;WY_g;Hk?6k2VUd?nEAYn05KTNhV+;v zWhRgbRsgXDu{b)#%512S`wW&ih(t$MN_)I-AtIgSG}AxB=Sb<3D2AquD!XekZVaQYLh8Zd2|xewk$UtV4&)Fu&pb@ ztmVG4PK*Qpbv!6^92)|E#fd`O{?9w*%SMbD;Y`7K!4gTls-E`6wAR%8XxsRFmd?`9 zc38}dl~t-$1+gHwJtmya^zlp$w~yfW`XgHh|Ht+iEX@J8NIz|G z<+U|R`l_E1=^`wDZg2umQq%F^(xo^;E?@BaiQaDU(W`#OA=!-bW>}{>`yN02F$~eE z%Ltx$(_vEDb1p!813N?tTEAYuF#@rU-bqR2P zE^@}yzha7_XNmQ_gWm4rm~A;_&;vqEukTH=^h5}jY3~VttR=aaLNrI8&}U0&8$pJX zsR)VZU-~ZiH75bA6Via#vnfts1Ff|=2cMQG)cK~M72Ms}*?GpwHut^AHq6VX`FsY2 zCH>Opr^k6d0=wMk5H+A*MZJ3X;7Sbp(rE(48&b~OMDDib-Mp3nl1hfrQ{j?ptPnM8 z8J?RsjWl6@5qOqHF`?*#vH6Yj{v zv6)>n+hIuxA&3TTXJ?=X!Ku6uQc!sfE7GGzfwM<{FIGsUPu2op%Dqz}(|RMGrJ-)l zdym^UVBf_&EB!%+)yd0oD^*#JRV7h4*YfR;{2W%ClX=)Q;fz(Y z8oP;QL8fHh8+5}sAa2GqgaNwF8M%;!t zVK_9aJg79wk4KmIK;N{4tphnC9IZu>{|QvnSQKGd;c$(SLXfPkzM~MXY0?#vugb=9G;vkjQ1dM1#EmI{u@OQBk;>vvZmeK%i90x zY&6Xd=~%X0{job0#a(sV8ax0~C&FwoHoV{tW*$QFf+$`JP+p*Nd^-pH_u@LR+5~0Xyn!;}O$@e#b9YXXxY!}w zBCr{dBVoWzXKcj*ZgPoshk!DX+kcop9j!bvwVOpLM6)ED(Lgu&WP5K1yeQRwXa`at zrXSdWirh;O1S!FlrRQ>#U*S|~@7A?~1&6tcNe6j8fgkO46bsauPRaPrA+Wm48&Q6rZ^_#*dxtAT+!$uVN>E?SyzaoZN)@ zc-SNnrj#1ad^JVTbcu{+TlGMEd2$~*EsNH&O|{-Mts6GUGsORv|HzsgnPC~H3U^>R zk}0R@C>!MGa6gU404+J_-u?OrLRT>ck}RE~oP<#0u?QRa!W#aezJ)%}#xqiIAHRl8 zon(vwQ%#rEhZA&)KOy>mHDgfMqyW~uE_$Leh@>!EA}=|wD$PV^qikcVg@qW2wqT*8 zm@Ck+&4}D@vihi&WeIUv&^7)k#1O1kSh;4`!hoF|B^dNq&HCC%>G!>bJ}3=6J87Vu z(+IAw>wU_wvh;fAX!Ahw!2YlA-(25!5@yaEN^^Au*mjITF6@|pK+@SEoUnInW$3at z57IL*a;Ey9f(R_+JXLRF*7ZJSU2S9}zNDr8FH`sggD(tK(&)s+RcLqWK%tFa3_Lh! z|KTO`LNx2LKI?bP>X;wU+AZt=p8z$+z8aeoC-y^LBe#e-6DY(9ps!+dM%4~?qiZf> z>A%y-6OOY&(1F)~6}Z#u9s<-inZ`eAmg4TBUS=5HzTH7&5MIriF2;LJ;UPH(8)iyy z4fL?&QCds`#Sjbm_pL&Y(%s73clG%3p{D&EXE@6|T*h8R%u=^0Mya|ydZ@Zs* za-k9oMd}s6C+6yZPpnG)d*T+gzxZLonmbG&DJhQJg7XC9wDpN->+Q#nHae)RuLX)X zozzo#$&>A#vyB0q!asFNC>B=X>V&gJIut3-D>G7rRhJ>uw3ULjY zE^91M2JBydjp`fM+^o*)6K}a$7sVEkK#T9Qe3C{E;{gZ^@o|6f3(kLmyv!FM?7wt^ zgUwqrrj;Urjp|C(p_jBe^pY=ISEmXYbN9LspG>bp8#3krszb)yy*^aGOtUJ3g_<_V zY!l;}3;2t8!Z8dS2`1))DxZAfj^AP`zET+0wN_<+%t6@h!di9Rxy9kisl!4wN{amA5}EJ7{g(0t*R*n z0-ch7!QPu0CAsW(_f@H(SR*(M`r1m6y!%_LFZQls)!E1#B4WloM^U3U-^VG8O;yi( z>3b?ruQLiuR1cH0q6+Ng@8_$9OWcs5Qj1ta(<7eMxti#`cPqG-TdWFEu{gyvdK~4` zOgjEG$;Kx+3|t&c#~ZaE3Q#<+;~(khFhiJsBl1t>$>CZhc`H^}4*r7T^VHvp>5!nm zFg%iAhjlDtqRhb-e=O~B{EX!Ai}&A$2cA%Cfo+e29k<~Tp{^tt?Jgd+{90}Uq=+#F zrL)F-!rIE+ZIgU?v&8g2-tK*}yTjEMGIjG^|1tu+Mf-d7!GD~lunNuw1E_W~!&kq5 zt*Edvb)t{Ul45nnlL@d3(ET#l%Q+GEL{-Ac(9oECTF~pOWCxz%c0;jFJpE7Tr!h-+ z)ED%~%h3~5q3-J()rRiI0E||xk_Ox7Cx{SzAJryPoZ6D zI>AEPNHPcv96!Oc$tq6plDno7XS>I{N%iq?F;6t!EZg|$_O*gL=9{Gb;U#;^vA%w~ z^smX#L8J;Blpu_Hrdh}`t6&%$(Ph@&kX0Oi$ce>baUn)gu@i%iGFGfoT)K$nj30po zr-&MsNy_ys$X#L0v*RZijzsW(wbjqD|KzZZc?LBuUbcDO6Ra27gddeWCKD91^wi*Z zy+hC7A_|h0F#HoQZFn|%OL2&IEb+wRQ->Pw2dxkD{1+USdJ{_-ck7_Kbqmipb) zcEnvr$^j8@Et0Q3_5~~?jjf^{u8suuw!<8p#y)8 zVcGnJK1k4r;e3?7aA}!K)TUEw2QQYAaZTVF2bKK6_|+aFiujmUr1S4o3E;;awj{JQxN-q?D>z-$WU)E>m#JU)( zf0Q~1iIJr<&c?j253P)~nX%j@uhz8YevE7Qa9~viHn(eHa|0tA?&j(ZZEj*Da(z>q zh6hyFKJ})GA@{n>RWa~Ex?Z49E9_aF8hk#i!kmp15QGT45xg*RYtB>e!u$hgo z$dtSKgZAoNRMvS}=Iwre6?4&S$1BLjw!Pu57e=$HG;&UFOiH8L+s)MtMJ>D|qCnJ7 zM(ESo@m79PM*GNX2vq@0F6Od@yH5ho^V^UpC@9Nx&Y$%~|;)?JnaBQ410u+#GR2`GqZuKEluA3}>uC;^@b(%LJ1Xo&{6Cz5Z@+~hs~QSz0^OXT zu;O5U*xAWRiV}t&#}q(5c(yn=C5_cpbaprx%W=$c;u4PYI3-N8q6{(PE+l3JhoZG1 zVW_c!g#&5BXJxoaj<{5mN^{~w*LoH8g#4e!v&f@iJPTiF203Cs5U<9TR5fkwe!Bl9 z#lQI;ykk^yNw8tP5BEPI@rM7h+$8k9_yJUZj1b2}`e75r4P8q)oa4u)F4@Ur?uIST zA5vp~o63v9Q~3s{<-hj9-eMa3>yX%kEe$5&zfRglFJ^V0Np`FLzP6#e`l{+AmDjy{ zc|-S0k`Q73lCH=%B2Qnc0~>MN8zBDbBD^))j{>Y;6{PWlah6X(`B4*$w^>9voF$fj z5j8CFj_|{UJOW4(fQgh&l1FJ_L| zSbYpA#c9a&`2+-U0pf$rj*8R+3U`wHMh@x@utFD57+<2G7=UoL;0KH(8Chk{Ew2hf zMdh@_(;ck@n&L$Mgg9#yocq0gkv;=|+5qq}X0jSYBDqdT()po5a6CGu&q5t49rixh z+x~=Mz%j%AC;JEZ!Fzm+$IKcJPqxc;Vdsi7xZ!<2ALWze0MF`=Ebncb38*@t2@#YJ z4t96<1kOuy;e0TG(+VHbPndwP7$uDSEU;dl3+uhnEcHPh!*_|*S0DC{JV>v9%!TyT zX*N}$E-*o`+CSLd`@nRf31z#l*P;NZjslMo=mV-%0R`HVnP3x}WXf9y5zNNOWs z>DJ>#dfwsd6-!ZRBS@4`h+UCk}YvAR)^* z?J?P@`>Cj`VU7cN*J zq%3|C75xcoi*iSwZcAXy!aae6MvHCj5p^lDgJ|h_>;zq<=jvzZm19Ca z7V+&PMOGgB-NU1q{$&!>W;>TKJ@A*p{cIHNsD>6%sI_BT@rvxR$7kP z-LF`jUlF9%zR?G1NsIB&w*?NS=`g2o1>y|;^%tVzx%P7a*V?!n(I=5)MQZ_cgPt;BY8JMZC`cXdZkK)zkxk)>y_E|a^ zq+_BdUH7@po2C+fmcXCFa^R|cZqbOe!r&=VTRr(j3*9&k%1N?2gf7(#Xp-V6(~<+g z=@4fy$&TIIcw10G;e%>>;Pk{|7+f%^(mNuo2)=q+V(x?k+wnx zW^oM&H?-DU{!LmvF9;G^aA?uGFn&ZniRa=J)dk2CM7p?t4K^)DQ}%#;leHYSb#2*r zca&66lEl1IRGdx=OS!l)t^YNz{FTHEFkg46@_ttBP3Ns)6`ALDn{#OFZ4t{gtIr`OZCy^^=8nD2ceYHT zF+21(V$$y#A#w{OQc_4WjxK*Q*g5>|PK;JXCtWIlNjwXJ3blmCm?0&Fg@T0$k3#=F z^yIo3BPy3yze0sYZ&^SsNqr3py%2U{A*p_Ua67{6VN;4a0=hGCv*e0I*fm>`%1Jyg zkC*;iGbzVv_c@(s{po1}wkG+c9Ue8RiZ6y|i7NkjI4juzeokIBoqz-|k8!KrUyep< zXDc&(kxra~*=&QaETH&`C_HJCLUPCuJ#Q-(AGFC<(X?FURv?QP&xxQ0A|BI9@_&Rwa;*W(t!vj zWbH1W$w5kHR)chjXO^Y4T`ef_!Xf#bf_XJ3+XUP;R5`5|(-E65i-I-Yr$5zu{yKwr zd7UBfXk~Wx{n<$qV0dsYpaRtDVZAM@UL1$8^=iU;ol8Cj22hmH_$r_LV%%`kl}TD! z)}?6wEQW_P88Jz2gTxvB*LlK!D7rQQP1)UVvJ|5adHNfg^Jrrg?!4n%P844jWd9em zZ8~)OOZN~hZ9w9`@u=3?s={%KM8n#D1bAGD;!#uIzGIM&Xi*tGEGu8Ga3s77kB=Vf zzv!`Z{eY;#TdHn@p(yKZ80ofgh=kTwa!niNZH49Ky@Wpk^x9Kpxq*~_oN|>pp=azD z*lvopY6vxa3mPbk+D1k*kXzgM=AJa9b1)SET_^^;3w(t3r)>DB(K^0F9Wp=XRl7<` zYLzC!{*zb8fadnRrJBqK$afkwMlDeW^SE8P0qOH{A;(f72W zBB=>+8{WiCXTy|Gqw1W0Z3;Flbd4oRRN|myH22Es?I^>!6wW$P6#s4Rgn-d9|(cdGD;54pU zfS~dJ|Fp3J+Q5eq_emT$k*lVTv7zT2|I^0`=!2fR+$Vw1RIZwTLP#;imp1=X$91U# zOg<-fqnP46-K}E!KV{sQGVVw*#hJP%#q@t7xiOL4jbe%ub;pY7|Fm&q+PEXd6ld!0 z71RIe;_CMVJbQi1oz6to25q|!fj$DvnN;=J9=8n;{jIW#d z4!Sr`2iZwBppj*N_X*lW=hI#7p+H&{-vp8xcqo8lZpn+fWRmPw*Lybo{v`EYOiQ7V zRR3U7?ZR|kIkHu6ypNz160J)$kjxjc1s-7o(S8VH(=Iv&W}dFWrqw%CX<98aZmZd z0Y44dn&j0y|HhJz2ru*5M5quPg5&ofU#GAnECxWn{hAF^EGkB)L*P~GPN$96b1WxD z#1X)yBf35wrsxR*r*J&9weZ>fAT@2s{pG9^U_kd1a`B}nFLvui-BiW4R4p-;iWLp! z)ZU872#Rli1ilD;@1VE)n2DpyDdfUMrH~gFn-V%9>{cB|Qmc%eyo$$9@|_vI@1$%c zcdQF3AZMa|p1HFeq+C9+)(NF|0OUIMaYhq^qOf2uODuj6i1V0|L*0pTk}^!$mEMVV zuA&4|6&=ni(lUenUPZIM*y|mk7>?)uc(A>*eQ@}HBWG$~EYfIH=!Hm0LcJuclu>@^ z(xLN$BZd~@W=<6qb3}6fvr#Kmt61u1U^=t@MOff%?I>a|^%Le+U9ctQBmp_lI_MAk z6ZVra8uf|O(L&?!G&`psU#75LjX+k3XGHTpsRuDv5QV8TUrS^~d<6rm(AW&_71TyC>i^SV%U_P6GVEoNri(HCQrUG2x<0MC|imcJ< zY>l2_Ehs_&L(k*SbL)`AN|8MHQjNhko1VEKg=NT=#H2rwK9`M^>PH5hlN88|2DGp? zN_}z|Lj8RGRdYdFmlfUS4JsKn&P*<_^Rlyll=|);NQGBwSylwB*JjC)1v((rZk1BH z(Mjt@2DXv^#rW!Ot*6wAY8zN{>5A(mF~kk>W67~9)N?Y)PHMt7SM8PDxN; zln@HiB=lOn?%-;%HA2*y6tY0)_UZoq;chaAg{aO> z+8?&Ly4F}ZO&JGLO41u=);p}W3-rm$Yz2j*<%nH$S(hA?XECA+Q(C-a1az71;>WD7 zAMNk#Z<-#-PnVzt%x+Z0 zM;khiB0}Ju+fP>da)enjLY=TR_0tZ~9=r#*EYX}oM*&3w;i~=0uMqlE1{Z)bP`1cn z+kQ&Xc=jwP{QL#OGt2Sr!afPO!VX8I?jZ43OFa%y$ zN{r%pVNO8G4BNrn$4~$U@6tX?Y+9u$CGp{=0+Tz5D0Cez9Sj6jC)X9qBZkIEtxOC` z8m@rsgbwYI0mUxAT7h|#^TTIry0jSbi&d~~L`gcg;bbx8R_-yod6}zdKH>L!v7;7W zlT1;|kj=UPl%eAZs0W9+0knF5A$X06lT|i= zR^4vH>Z+}U8w-J@S1Xmh+~(qM_Ky9zjh^^(nc;sBE=+82@9P5?$b4Z)n|w6TCY?Ct z0}9i*#+T%%;|o5!C3Nz?vk&d9*3#MMr2TmEXwG`9R;$%&wOXz2jVPmk+y0`<-ar8+ zwg(noS7o0qrS}?DpUY6x;Jlo|XLJ$Z{Qt^-XXXEaQU1-;&}nP(ZoL73fxLtE|2eiG z?HDB7z3rC5PS$2;VdnEH4I3&@q-|Cj4@R$cPo6#BKZaM0SqCI&jZWx>Oo~BEoo6$M z;nY%TjS|fwmoLkR(A`vjo`^PgpZ>Kf;++>9uZ7;ne~kFQ)zYKeTbbG{=NT^FXaenI z0ya^BlwV@1ZW(l5u_0gkk+sc{yDe_+Q+v6gOYaMHtH3iUet^Lw;nRhf+#lf83@0aK zxzi1mt4`s%F^eI`#W^x0JugsA3lkU;3Mrw8a9I+U1IQ`!NefDUL9UIHAN6P03iW~O zx90u0je1|vC0+lr;WFZ37?|?R01vKw#3cWE=gT13D9=myJ&NDyj!VQhO--3Wc(K4_ z1xnTlX{A1tw+y?Rk>Rln43BBsG8uwduq4zkEs;{aG<&V;rKQ?cFS3=^y;jZ3fLecE zb_>0Qp9P?EjL&#Lh;|Vf^byu zt>I7%o)$Bl;Cdutq+t5A%*w%ZnS?mBrPfMBEhw?)6EboAKGc9Q4BooU+-RS<`W)+< zNm0!4<7ti=ki7OFt8K5k$!66fMZ80J)N-CSmouzW-}b-D8nLSL^}V&NB9CdKLYR8R z&epC?X+Bqf(Pgtg*S6A^*>G9A`>xV0xt!bz$Z{EVR=F2AS1gwy_lhlIv@Ppi5kZSi zq14Tyy~?KqR;ov)S8raqu<)(+%Ku;TEy(tH^DkZX@c=@Y0*@W!yXCM!viYE)+rp0J z>2YAQ30q>X%Of?&3dHrtQQ$HoFY5FzZyVdl; zJFH!d;ZqQsmBlQO1WH9-wzNk>(>Sdkw|1T!=xHrizNjW+;%0qx3%=MpP{^d1>4RUG zuKsBmgI(o?8GBCNvr7%K+2V@3y@k1}JtqZ!i4u5;d{WJPV~@Hk0?DhAecbzB;b1AR z?Kh9@H=R`6b`(#}wF|B71b57oX(}npAW;3KU=M0P50AN5GGNFW(ox58@G{F$Lg9695j6QfaUdfPCPGtF{3BR7dfNwP><)DgsQpu)O8je{gtz zAZ{xr9pBvZ>D^skVvkY(^k0;=Z-HZLw{$BNN7uFQH3b3!AJmJym!o+ed)j8p4}ZN0 z5||Ao3*(KoX0Cy~0bJHOyY{*78m|w|Qil{@mwRawSmH_o#NFfvQ4Z-Pk>%7Eq@*O% zk>lfx*Hft?o+tQ!6qJDmL(fr6<)x9K%TaA%H!2{UzqpjK2A)I{g>%0JC0?|DnDoFa zQcChqD$as(YQYPlcv76VaTq7lU~yRFGaXpwB#wG3Qo;HUDL7n<%o{oaT8e0;<{|v- zEpgHtJ9a2@Oh_vH&$e&q@aEB9RCieBaV-zT@}I<$q3v~djC!o%>L2jx)`A-Z zMC~|uo-V%k^~Pfv)#ssAEH(!5#@*kjJZ?bUU($o>zk@;TIHpSii)r4EsQxY8j-%Z7 z=Wfs&ZbCE6#0HgzG_0cl`s7ULMeoGtV(F7}Dx49mD##JTBGFIT?xy)HJLi%7{ zTsEBLT6xO0IxuG~J?j4Q068IMSdr$Xk``yS;%x=u=fF7udo}I`@lB?Gq` zBN~bS6cwX9yR$CP3?dhQ2@zf_Gt=w z9Q2yrs~1OqOq=z_#nq&`#`w}|*<)9sZq_}8O+D5&2`*x#hCEYPzmqmS&Q96%7&2P% z824g~--~IxO>eL1Bb)V-hCM^2cYg&lh}@2bo)#0PR_&kS1zPcc&X+6#+_uYk5AW&I z4E-B6c<$WS2L9q;vz%~AU1`{}{$L7>41TB7m9ZgvgMpT{#qs{eMIQPl7MTB}ji z)Bjq#kw$#6reaxt-iEI9!V7ghkuq~AR*;0@L#31x#R-)WCNt4nAQ3_FNtCWQ{_YvK zl%Iirh(`m!W$7V-$xBsjWBsMZBh%I`Lt3y4%rbOP25f>2Y{6kI(orpz(A-&qoQ#UV zkT@+Zj_z*!YZh9wEpR*S8wTqoYpV^q==q=Dm}s`CUN>)l)z6D@t9s7a2UDY+Ba&Ur zE1^B5i!DU$Cu*4MY!_n{2Qxdj=j&{27BeG^MvU7S!hkTVj24Po!U#4nMCvvezO%Bw z-*jxE>M&Hd#{x4A29^YkBDVl>jD^Gr)6e-$v0ZOfmvZCF_ zh{lADxlze~+XVk(xRy^eF=iFb zN^uM2rms64S3u!*KGHT*?s%Jc;~lCuUbv|$YmEaK@2U)6^d+d~!0izQ+ujU(=WAfw z641qe*!Q$oIzKcmjxjhihneVGV^#2@aYqCwo^{eAQ#Qk#7-dJE}a zWF}-@^LA$lbeHwKWucpEpr5_Pn5J*P9{j7!o#}o|$N!t*6>lxNMR>nF7>y2&4&}kf zOT3y@eVlSITwTajvg0on+8o5`9=iie!7~hhzWWj0r?ZQ}uRn2Q;hTEs<16qN_35T| z#r%||)2A*c+(%K$$uQ$4V|U*d&A2PId+R?;Azm*81DVO+|DLaZ z%&X!(vncv3+I&eG{qR88T0&0i`(%QrOy4?hhbaLG5&YbxnQ0So!TrWlk2TJq9loG( zGAqyF#yrKI)I7PeVRLQG5vZNwF%@Ng13kV-+}E6RpC`cRS7saN zt8Kq5<~eGhUCz}otu-cKn^53@sVWZ|1|Ao{!d?VmsIF?9xqZ0oCM-vaO!>a>HE~jb z6lj$q?~3`y0$-ZtUVA+N{*W+JnPBxH0Y>Z^KXcpY$kYwWF|XC)q@RgtfGV(m6ChT{ zP-IdcVwkgo`6RzCW_1z~;m@)Hl3(-oi1XwKQM9q%l`quuXi8sMJyxupk_nm8cFLMW^F`mr|iqdwO^R*tnX{DfXNyVV&#SGI=FRH38kSG#IX9{!x zfmH)xE&yAOcuSJR^ffJ1R`gYW3FynRn5CWJlpk@-JyqRbt8xl}ROF|dwo`Id+ow_p zNe58oq`SzC(6UzKib*v+$0eYRo~JpMLc-O>lyWE6!W5TF6wVy%=X|^)rK7y3%>9SK zJ6qI#k+H~P-f3|)Z+K%rgMD9)A&F|c3_sH<5?sD_xO;L$cYL2cdxd|0L8Q$V<6`Cm z$IfQJcr`|k&5ZtUm!CzA5j5x<{)8W*Rn=APFx)K$LO8new}kQu{?u}FE~gRtt0^Q+e58JRU{BECpO>yK zY3Et7eZoh&EI|rMGa0sj!bpL2^%fm^l>_5d^BUp!NlX0zRk#GqCZN`mWSP;@Q!`II zalRTMIR^1FtuZY493L|+>M#<#n}UO{J6@D^Ids4Kkk2k)yon)y1LJ7Wza{>s?{TR2 ziU};yfP6d%2RM6xfjr}u!2OHKL`J~V97(;PO5np%kV1u8Kh_z4Gicx*Y`~S5NQrzp zcURoDzt&fr0wW^!JTSD;SWL&oyf_6q7_AFg+>?#nFr*F4Wk>=YWt^tL?`gQd#-=~! z*H={u$v?e2HIHG_y?{7k1qcDp!N_?4BFPjN6!7x20Mr2$hsM6SJWWAzScchsTcC)d zTjV8nASNc`J(ae9iP89l`21?V;8!>xvznckc?M7&Y+@yh8Z3InpJ7f7m*uH}cgup;GJP}b%#yz4@@1z7$_kgE=Sv9!gN$e-?btIEi>>$Xn z#Tt6g9k`v;5dpWU*ui>TWzJqXzFfS&$U*E}6rh1EU@uQ(cv^s>06ermDKE>Z7pgM6 z2wi)3myxCGZRE(17*lVBP=^J*_($?&?;pkahZ0x)-{tjHIV8kugs628z^FRUr<27w z4h}xcaK~|fq4{s6jS7L!BTfB8%}pb^E`F@4aihb*Oat5egiK;?_d`{V%}^N$%5X8C zL1ylE&GZI2JTE7}2RR4^CMHdOwn7)zMU5-!6xAijyCx310)W7REPvMsURb*s)O+YD z-Q+bK6mNQH4-;zs!)5JzxU8ZMW5rP&vfPf@PKD=xU!U&W%uV})_&#H;yNN-e=YLs8 zlMTQq^1Y>$TY=NA_m)y_1+F0+!LvyU&{J-e!)HjfCTpp~Sjwg>mkcbRODS41HWDl+ z=`mV+%neGfT^TC)7kM0c)dP4}Rg=WbIH;dV`M%lXo0c@TH?z3k{FJHYl7=dK# zdCW9_Y?GoiuM9>J0CxNU z?6sOcib&k9Z?zk3v^BV~cn88CDCQe2fwc1Zk-dh$rM_b2#w*ofkw>X6DqS?f=2p(<2Y4+_VCJayDO(qeq z`vWt8Np~|Jz*>uTDH}wp`jvaAfvS9E+b!%@Sm54ruVs?3aOlu9m*+rR3{=NChHrk7 z5c%pZ4I!`SM||Jb+~ljht0Oi-zX^`!<}}a_*Y1?eO@o# z^&$0#ylyK}W2kN~n0u1_N$<+9>Y#}p5F5{U1EDCW>YS;P5Z z`j{TZ#GuHr$?{V=Sb40k0@n@Iy{wZmm0L%tL?W-s=(CQKXdn6VRsY4gLCYGi)z+j*bU^oyz{^gDptq z=wJGh(e!?!z82eAk+l6~%DI8m;Q8F~@y~KSHE0U!B z?5(*x0##`hAaRO|`_pTZpb8?RFMWE8*B)Qk^G&N>+kC%z{C-ZQ<0p(#}F3lgKMYxKun7-lXdN<;`QdOvB8oK!mV|pmLrnami_c zJvOE5B#yn|Ri#^&1#sr98fH0hepVN}DDNH|P5TiqbVeL+tGGdb&`j5g*kjf zgBq;CDKcyWFTAIJ`B(hl2R{&OkN5XhBAc2*c+ZX=Fk^;-Z0LpuQpNJt9$M8Q`fV#= z>Wm_)Y}JvJO~?Ag+48zc4B3Lko4QEOE8>arw7kNOs%9jAEMjyyt|f~%3wj0SwHQ9Y z;crr+=uJsd%{Y=NzYxieEKO}x%9q~D*o(1J^%6Zqmu_ba^i3D=--zWL83H>_5G@`agUF8U%p!E@{|AaF2{rX z_`kfzi9!B<>3>p}V~MF9=fC!rh$P;)_DC?vLqTJ*dc%J+{v+Wp_*Z;P$LU7+;$XNu zl9TCeDDHsq83=7HC4n{9crya=^nnR3<0D_^b^69s7l{l18_{s8p%3)53I%Y_LyKiD z)0#_h9X;hl_LPBBNQnV91+~vhqijbj7$zKe9hugDVt%m9T4^i?%R7Md$XO@OVpfO? z=;dNEFQKM@tHUb;7PL4-V>zh~TM9LG&>EkaYXNA*M?X;mhdnS*kEI%<0E=P7FcgPp z(tVpp^0te)T-bv8?AlSC5j$%zb0I<^s5{|t$e*Q+W~B>0B_jyKdQ1y;+Lp58s;CKF zA@T)(>@})Mb&jqzhVcnr%=Uam&bzVF=9V5fkC^=)hpf}fJv~xxQ7$^pa+uc}`V5ki zCdb_ba7N_Mhdc2I+Ow*ff#%QpJU_-`p(aZ>HPN5~1&E(B*|In(NgFrzDJkU`-1nSap&V2 zBewCLRCBZ@J&D&r-eqYG+8DL;-miqV_wlAnhZW3WlI@=Ik_O+5*Gm&c2Op70%E-rll)h616m! zQ<2#cI*jjDz0q>0z2L9*0^9pjyzRLEK~L(_1v9cNYC@<8aT6}kgTM%)!n+(7)AFoT zlfOby=fs!hF3y=A9^h3RaD#NEJyz&{xTxq_5-fP>MZME9fgL0Me;lDs^(phQ+eunf zQ+KqqfFj>5u%S7t<7;vzqL{)PU=WQSlS1#cGBiDir{PPf$R2(RV`xpw4wf58JrRzm z?>_9lDH>0H3~nUPK;d9x@`#4njJxNCoO$DYahV9|6aM@a7FY1lH`be5?q%KDRCL z0sLj^GrICNcQt0x{;;X$L#};=|G0u+=;+bCX&5?oNP(ptH;V9EF4M`Lkec~`ECwg0 z7CZsxHqifq{lWNN@`D!av;9AR>_2;b0xn-GOZiKgE6cE(6c#~}{RLP%U62-HEOrPt zto?OR=Ndfd;wR*kE~H*=(W?H<2{rf{YQ`%)9#q*)Aoc{rgQ#J z*ivIvlc6xT*{Q;^x7PtmbsCh8YumsgpkgA zVP_t`r3^bB`Ygpj29XNW)jFhlD1#w|LA)z~n#H!(eMC3-q-bc)lRB9eeoTc+e&QZq zxYy#WRM1Sn#N*3<95460mqU_jR)SeqCj*rZ06$3r=J>H%>Ze$WSk=%luMO3rh?M+? z`eJP%Wyd=s?>0pccqqyiRV6zS?z+sJ3@G0Q@T zJ1das0E&4?p|qFj0L*x#D9F_%8L-C2G{^ON=|X2T738l_%s`YqKI#xxFm@<8lVohZ z@y+F%v&DyM!rbC6E%oE&Ln6t0_a6qwVqZ^T8}Ti0bO$IoGBXhME>pu$TSM%I(-^ZT zOp%$syfNH=)`&u2eoK-X{wl7z=A-%)yIFJL1Ol)C>{U}E|D_D)<3>tXX@eq24C61F za!$Lan9FxC({xw2)hIjLs#%apN`9&*sryPA;1X6KhQ$z1Ux>a945F{e<)}H7&V?QX znUt&m;ynJBpIk_F)^U8)h{9COZ-gRBEBI|+BqB3^^In?R&V>kko0oGw*U()iu)p|q zj$QDd5KZo+-K*`a-8io63CM>#^u^z0loJ~XIWjBYmVRCE0qP83&UnMUO!bWB$xp)J zL+ViK*E@DPX-87?Gw7G#)Y`3<8DWT>nw9rD&X}##bRmezIY3yiVDT~FkS&QpF3!iL znUB_g(g)K@-5Z*ce4LGH2S?E%>Des;-N<9?cEacN&lQmQU^! zK7Z*|0p*@|ut|e;U^=-L*Ttwg?EKKx6>BhO3p9dJA>40BDYZ#w3O})KeBOSoV}o9j z4|@K3K!Ou`o)vnnywGEkeMxSh2JHN>^FqOY>0+h%zQ5L`%Z53Y|D=khS1(1zwiR#H zDc<6=1i5bN-3>VYu9$I8#pS4dqpYLF!1Qr&f>#>~C-*gqGo!q2yPg*1 z;w7{~zwNOhk^7dBBkj6=E$CES9vAIw zf5dvVKv%<46w+$$^aV5DG)0?N%}L>X3=CH809BZ}Fa>m@%|=r;pAJ(3e_KT6 zH1|8yW)(nPAAXbSrvGE^@vJWT9fj>&g@Fy}8FB4)cymc;HCQzVS}NRYJ*0dSs*`_F zJ9e^;J;h#`kB>3|47oT1ObXgLuD!blo-xIx6;oJA%)IZ07Wv5MkEi9NoJ#;db`SHb z6RjI~cVIfU#_!Bg>mDV*A#qzle>|@7;iLl?17`zF`?_Wl^9wb4fn7N!7F9aO*2R7n zVCNTU5C z)@wE?cjQEd3WxHnE&o?RO)nZ5S2nzO%3cRm54NpHYh@)Y-ju!aX!1 zW8FaXL$~gsk?o9wV56bH+nbGuwi7~6)#j-hHEUpL5z10Fqz!%@oWa*}z*YHUhc%q& zPrCZfe{dfi4}+xbNbZtJt$@A!{_f%HSNuvDMSBNi$dsQ$e_D}~UHfzfGZ*1hGdlk$ z$M^$Q5qQvtg3ce{rJ%aPXz*lS&^*@5&q{3E++M&I>>Fy&u({V)oR&j8dbHNldx2iw z1K#@Iwm#?;g(jo*sWqRUdLqqd(Ia4Te^FmGTT&68JbZ|$z5_4Hdd?-|r$yC#$p%6n zgRaCI&(pC!e_Vi&f@eI(1w5-{BH-~ZPoEbxJH`7Rdtw5U!S{N!LkGxuln71nvkFsv ztu$y`mrX{l7-KZVnqGJ<=`}}|LUR56DzBSYj{vHIwutgAE;Dy%NK5&F_hWeK(dw+! zY2G3R^xp%*z;65s0X;ICFDB??i6i6d)7cFu3I#o=fATYtadsChgo}ds!T)h|`7nqH z$W?`Fcgq<+!LcJ;$71o5+oIp@vC%-3BOy+b4&nRK3-4p`^ah*LiLrFfJPvt zzE))5aYfrShQoRo?h#FCWs~93PUE&O(78{oFgfOfUU}5k{ZpP>#HCv{*herkwY)|i zjtVIPfBJkUwP}#CZI~P@=EI|`xBI^bqv+nj=+*8C2aEH$BdqheIYMi3ae{m zMySu-AUTs|3BG>odrX!3Ve7*Pp5@%tWto48mBNC=Nhmx(xQFT6WxWqn(`d+1M8a_) zhABohs0kQ60}%PlB*cuC!o!E8&@>xXR2&!XC+ff@N`jY37CFlD)Pme{3A7g7!MWrh>f|#t6JFSm3L+_$I8N2M?@u zuqLPzasm|qiouS{r=!h#4&s@Mvkor{)c3zFath*V;#Y=v&3Q${W5JNjm)4($sk-f*(df3oaD zC9;EQ2{ct6!YxSm;+bWqDhx35l*UKm?i4>Gmn4-soa6 z--A1XaF2|ZkR%Mz)hG{k`B2z5uKM4KHprRj_0^YY;(0m$GJs!|6AY@GkGq2>X}<>S ztst%jNrgT$Ofc?jKvyiS{YH>}e<=ilQ-MClbeN2@f*_5!!M7ZF>FwzG>yy2sZx7pt z$_+M#d9r(a^7_>(kh~x60P^|4$tpOwxS4!l$;}&icDy@!9*~y)ru@3x^Pc0PUej{i1i5^BK8qD_9y_`_k2=o)PwmE#RG#r69q*F) za#o4K0BnQg&K_dEmQu1P~` zc+1o^A@xuMAG{>9+F!tkhHL1StbN{>+4a+{s)i3;JbIsB4_9_Df8Dd8j1gsXc^=7( zA-^5L0^(tY^Vd0-w(m(3OWU2H3{1w`CGr5z9z|xIh)d^U4!OwbWG7gjW|+ z!OMGW;^gQI*Lgx5S%sX36Tee;+N`<6@f)nSOS^Vg&F;J!=YF0M`aHYT83H=_C6?!< z2}x<)*5Yn@x!W-UyMy@OXccGfuwo?zD23Y{7O=SQQuuCt-)QMe_B{rqDP8)m^T3?_ zj21JvcSLcCfB5xK4($nxF8KEKhWtHx4$)4JzJ2@c?#ceKB$^+`N4tB?_v^!NcmLRf zA2-cHLqwJ*GVBY=&AinqVjO6E?z(9bPXl}OZeCOlg^p_q^wj8KXtd;}y)0)~JlWWc z5hH1kObb+hs>7iWGyUNo$ zz!>dM&qaL)qI!dNppQvo;rykX?C+4b1SqZ!Dm($(S+>Vck zgocUd1$sILG~$Fbd6J{g6%qq??Hd#om@)d%xHV#}+B>7>Gqiq{bMiW%oATr`IjP_`EwOe5MU^9CaA`r@BB~$> zy*HytDLMVYy1MjShuh)jL-KcZKT#(8J6s}KUE+FeiGK`KEVSbBwR^NA1$5Cen-wjT ze=g;N1U~x3L-%#GH@f9S;Nqoi!+j|1U_g>*6xKutbA*;oBo8;mVBtcb1<2zsb>Mz`|IDZ+Qq zz>tsaJmNh!*wmG%9d)bH3)Z0uIf&x5f5gE#*p1)5rw(W1-yVjJ`Sj1D0oaB}N4if1 zZn(tIc^`eqZM^hvsK(AF|6!jeGC&#l7`&+ZNVk4#Y}}2n!AFoI=u_}6enk-+o${LQ zh2edM2Yz><0k!!?bzRI+Le@j;Ag}qDq(5V#faJ3=(B3x5;NY8iAM#f3TyY zlo%!+balnJBqyw#YoK|7Yf0>XeIlhdf#1Os!W5afhZs}LZ|pBw6BrUz`Eiei!<`hD zS6I9EV^^K&2+Ff^{FEy&B0Vc|iZX>E+1fU|(+rq)?B6Cp?%+UHOfL%`D1YsPCv(2N z;?DTC6UTG4wgE{T5hi55Z?(EBk}^4qAVxa`QQVsz{Gm%sdF=G%CzZQwCvwNqUe-WUj$=yufQu#n=$;f5#1r@p_R1(Q#?w zR`ey<_QgS$0F?M(Yy(*4i9%Wec0n91PA`W3E|acMJ_hKbPBudRzgSFft(zs5m;X#U z<6p2TFY#Iw�ycPxrq$I^M_0#`HCdZ;mU*72shPTr0FVuGT4vYl@kyJ?E?BwVBC_ zTJd6;HZD*okRGi4e>((Q{4p~RBLfw=NbkNrnVVdbtcd8>AfBt4;w!oly<+MqMh? zO|NxL=P9D=9E;S3o|(i=NiY>h20(5YJGvxowN4_lK4Uhyf2J#f7Bf|#CKFL#gBmWU zbsP|8WO+h!X;s>AjiU^nyAyypzBW1^HEfw$yUgHNm1LF5wka{eeLQbYMa7|3tr4v0 z0H3dcb4WVD0~J{?Z;KKp3p57|lQ~3!4<;T0pt*%>auY;hQ~_*&18X(DicHeOXgNwe zRvE~gUH}p4e<2&pIxEi?v)qsH**u!!q$eJirbcGbO6^z{o#yXo@1C0K$V3&G@I!Lp*2#Z+o`H-0WJ5kADSjV6?O65RI*1QG7G!i zYxrE6u(AUAX7*|hXPIGserUjfQ|Qq?_Ljh67q|@qVt|lCdgmKNIDsW9=YkB+!ZW9! z$Pn*>q6IuR%_ ze`uqUp_s)Ts0!z0U5NUZ0gQ*A>>gfr0p;8AB*Pv9{2P;`d0&AvB`%q&@4qX z2Gy_B3!6_sXJtK?U4*Yg=B&|kyg-BoMHEb&$;HRNQkjt@Xjw(V3M4yj@bujpe_{@s z*eay`0M(Q^y`Ap>7&VZbnKYj5v9!BKx=S8Lk+UED|U=2V76tj^eg9h7_w_m`qXi3z(1M z*$lZ7WpH@7J1Vm&iJTZUvdo*@f4Ts14KoF-Vf0~P~FyI>K62TJVc_#k|tP=AY z&ZfvBI&%av)dck+xtR#*bC1;~xj^7GN)dQ8eh-&+M(@#d!%gI#pitrie=r83aI!h5 zvl<4qmOnVLe4fZlmx1M_rCjRXXDj7@9gjFeY)`h z?^*A`UOlUGjLD}6c(<)jQSrAx)~IZapBq}+2e!#a(@*TixvE$J4-dS%)Hd zue)Rhr6rMj%chgEf5J_2oSrC&i1-Nn=%h@zEXfB6TIfR1dkI!8n70@ZsS75>%YCwt zk5%ChZ$LE}FalPCIgk`wa%xx3FblAZiO;eTJ;lF(jJp-pQIiHEbO>gEjR(g-X_S)w zw2ayk#o^b_U|aVm4*0Ibd#)fqFd}Bv8PcIiu8&nxae`uUz!9xrr7b(fgYNXIf zu2`Vgtx4X?9uqecUn@(Sm2{RphG-&ZeQa0oEx{6zNh?Nz?Es9xbx{yom<6tust(#8 zFd*_Le~m~V@Uv*x9C>hFtj(f$Sce_nHswM_9FLA>FnOSdzhgJ9;F zx(CPGZoRPSAl<8IZ6mk#Zi#olE9#8MY*(v|0{C|IMjb(l!$tu|JSmkj?BgGyWZL7N z7X7b~{;!b!uaN$)kX{Fc{}s~zo{?^|#7RiRg>*a) z-EFN;6_YeSx|laUMmb*-3E6Caf>cq<4U$J-e^#nPBkSp`6c|UWk-r10%jV2b=L}cs zrQBZhj;z<2#YcUQ#dL>6yy)U*JyJOME7gaU!mCSMniHjYlB{QCQ4Fw7dYx5 z1wfGv;NC`^BvbsPSrtZd$I8jiM&U7O1k6>OQ=(E)@H1CmoS&mc2Dm3t0Q7OyvOs}V ze{qrHJs!Kb>+vv?rNPePf*}vh-(B(w(rR3)3z=Hbr1lh2(P>dw>UNHdLJDog!{J-L zn)$w*@!AK;U9$gKc-_G$$%hMbAeCP|XJ;rD2HwM9&liKwj$YiW@+#ZR>#nwAAcHN{0I8)y9xT9)BX% zQuI2pRwi{b#fPM^sDr!RDkHOpczWBHR7$IrcNaY4@~e8WRl)h`9DnmmfLJ?*e{Mlw z)MFQEIk{74sLs3mN09ikB3nQsH^p%$j`wGi)iA`1a6W-U=X6s0IjbghkG&=PsVpWI z8W!j5_?Kzdc~(t}oP1Z*(@j5@Gj;v!9@u_1DK2UmR^@-q93e)3;tj@*P&t6~73s4c z1wQ^&0dtg11B8yv2RW0oiEbV$f9jLT6rWl?5gVinBsz;(G`{E%n1MX24BYk|Ko|t8 z8)E7Xl({dD+$$po3?X&4-K$vVy-$Y<{PPCfT~Y{Nrmce&;qR1^z;c8~iF+|?B;IAp zPhU|fy~NFqX>4D=2yvARx^tywPKImHqbxm~q(`+9W(jO__s*R=o-b~Ee{;WO9hP}B z8&MbWjuusJiH(t6qoaVcSKQ-z!i+aNi=n)D?yg~^RIBSNnlU=s2!1bX;!)lX2LQ

II8trx{O-p$$JiuMUGE5bufBQn{a?YpKiqCUZL>me8)nq? zzTyRJsKBbR%!={YDe6Byx5wRoK4om)Uf;g^1(b1nYN8|a=}Pw+a4y&tE4AP3uOB{K ze1E$-6d)Qm5-#5wYAG}6V zgV4cpu>+X+Zfy{F5O_p10*~P?pvhG1!DFDtbNIp1;315zypf7qYrF$@2PJrW;r%XN5Dz1grQUi)9_g@4ZdcgBOWpX}2&=3R~ z1R4=O2{e#_2Ab3&BGBM}&HCJVlOQ12_ zg~%lR*7Kyq2~40Ntf-hUzFA^R@Y)(9Xk^rtl&L8RqK6{%AoPgvN$7zLJt8Schu{5} zqRMcOx8%a_*NtTRm-UZ-{SnaXXP13!X^Nwd)o-cM++;pKL!+m%HQ-U29!eyhbC(Tx#flMD#`kn2`8mWNMll$gS#2KQ<$6U zSxzZl0mi(cR9dl(BsSR?a{6{5fd`P!>^h>LW#(n zRiBq=$cKj&3KMUkpV^0qZmY6(6R}%muT9PLWcm3F3Lr?%3clB8@NyZ!(VoKLl0T_L zr7`B>_3egCE?;6NtmbYWH>)fCrdR$=pR}6R@y42tJH9=Jvo7S}Mo6J89Vi+*2c3Kf z1xkZTDbTw$D z6s>#}s-`W6S*mi$j89YeMdkzy-$?w1M&XyM$Voq9%TmBLo<93d`6KrEkivr$MZD0d zV2ccFQQ%NMw9>Kle4;$7p|?Zw%{!@nna-Vh#qYzZvCLWgVnBtn1x5D`9%Q)*c7zBy`mY->o-RL~%C#twGBHp;7*u%uO1;%kSl~&*p zUkXR}ZKb4G*eIW0piOvPR`~th2 zmTZsX!F{V<7Q;bwKz@ z;~ciwlH3VTi(wE@FTR=g(ghG~G};U8aHPIL6}+-23K}U4g!i1pSFOsNpq>E#Y|&|Y zUr8jwWYB4h!$;W1W3;qRFeZ_;2?!Vw!t|P!l{qMuJO`a-=v(lvbBEQ)BvS5Zx^2^u z?{}(lSd<69}H5T24vJyJ+zaSZ8luLx3sJ-a1v#Yn%8d|u$ zw#@DA9^iZnAC=p62JTgKJi6<=@v^L#VvSOqhkuCqS04aVN*KS1cAYPd%ZHv2Eq`4c zb#DeUhA{s!Cd8Q0Yxp!vUD`KKxkQj>e#zL^-e~YLmX1KBx+%0ZZ9bbNx9XI5;_NyU z$UtRn>jZ9}qqZPpHVi(8+k4;{0D#AgnvR3#5@OGk5?VLo$@m@}KE>sNj>nB;(uADS%Vl1a@s~e#ph6wkbj0Bf z)o2S~a%#egUUWj9Hm-$IA}cS(F8GxtVx#$B=_D|6QQG9FDt@WhMzD{{QOcxwGhUz1 z(c$4YX|Gq_c~$jGIB0We5;!z_ixbfF32r|NyVTN3&{I^4)Y(c9E2?7ZpGwe^7h^@| zxc$)C2q1*RV*i8?Qe}|FmkOlQYT9-JP0XJyTTa=>7zx{2Um0vT>1K^Uk8R1OjkH23 zlJjrBR-weWhB8+|dNY*SSKE;ek3tulA#J658hx5o4{PtJZlb@E0~` z*%lO22|ssWie`HV2y-TjTY7W+^wXT|@@T%0Lcx8qV#{KS0@hhEhf&C5sZE~aNY!Ke zqcnItk@9d`^0>xPb&<^u$r*NFJVVM~sT4QZ&Uw*OKUH?68Q(YE6H4egy0N&PSPR!m zB1VKgT!1|O>`VWos5Z1|pv{1Wn>X5>$0ro`Flpp4p=VY!j-B7YuCSoqL1%@x#gOfY z;s_-6gi+`;x zbC4%Czqp4q-SW}u zK?D{jflP1Ly0N^>*wkQi-@gB%Hg zJlAI8B@QLfvY@{XKUF*l#1}hJv>hd&SsGR{DDW2D!@YL+B7}qp-)b|R-LHfHci|)h zDYzSJXW(U!Vh605BY0JpWg|Wli=Y>a6$ROb9BTHzb^10i_B$AvX>y{~Fupr5CBZd@)`)_>S z7_KM;%3DXzkV4=N@`a7#*AX8yE6p46yXEJ_1IRQ`Ig`gLLaUe~q4T)JsT?CXJ@L}i z$kw(UEHC>h%KZ-REZYbcd+*c@DN@+#SwvJ_ah5g$f-Y)SEi2qDqDU8e(^7)IUM4HN z_aJSyh>6vlh^s^B1GfBCPk4*&+{v6!e&rE;nw_)7kQ6+`WNywPDv`*PV~v>6K{6(x zvG)~ikAYQ*yq@_QOUZ+?NUn8iM0A#0`YShbQ8V=OY=eS~oJO!8P|dyp)y!IpDEynW z%WH4T7G5&9xL6RH^eE8)*C{43 zs=1990-x7rnjj91wU1#8A_!m(BG7ie|k^y!|h`XFE9HReJ|71pl|74*kb`jfctZ#Qdi^6T} zX^~hX4sjcoEXsaaeQ0aV)MVw%O;W!jT&=91v?{Me{Dc1RLrmr5DI4imc=~KJG3OB} z0CzYbOS#FeOc$P+(vis&nTd~ne1!c{s)j!G1M5W0`_#h|dc}-k-z1TxkSDe=_T8Uyktf9*p#tTu;}jLir$p_wa*;F?HSyU= z_&uQ^yV*^1*aAy(HTPsB1|TB^oOT$bFIeD%#Z~*i-XV=_CP-1KC~zjA!{glk7N5U^ z{ZT}~{sEN8L1(hb&1oKFm`CmOs6j!RTACxzy1d+}M0!skw|^Y`8#NNBussA8*Ql%- z=}CMD9P##)3EH8WXrykE0#wJ>1Q zb9Ml`^f0_URVP3F^9-9Yj!HBJht>C_UZMD^dYJ|Z z6m@ixTset*c6o!XQdGF~bHs+T&~qt5mYWbt#H~M^%55LFM$|0_z}f?g8hD_lkon~= zjGbxS6~lvcQ)(cI6YwyOwfPvFCv^Zr@Q4cSs+_+3xNvssr~_VfiP&G z>B5kjEulRSZ~FksZXnO6p=UBiR7VBmi$kv>Pgj>+BkVN$@aU^Om?D}(lbSK}-#((N z*8g6F@p#xBjwhbSPmELY(6lonIFp}jr{d$tbE|Z>0lQ+^&Gp|ih=v6oWts|bc1F~V zOAdv)gVt)bHfi_VR9=$ON_+#5nIECE(>FT3KxV>9A6y(qpLuho1cyK52z_t!AhlX! zl-=?BQASyLPJgDzzgupMO@EOUZgU|M$CI}#bBljpQSW;Aw;P;^@cIrR&J;9YvTS^ zwx43~_j6S5(G6dKUgj|UxarXwRT?+uYemsA7}+ix9bnbl*{J)l#qh(motX{rJhGip z9Kk_iKcGk%aORNk->He;8kR^18DOTvg!V}!mh>XXmC7S+G@W2oZ!lHLvL*?4Ex%5<;!twEy8LFTw-0}rDsf-qT0}FU0r$3NjcM_pAaiC%#=u%64)WaaH4jSjh%qck8~qZ z%!zdO-!qsp7WOCwz+l3rj78d)f7EpYp20B4b@hJKps-ceFt9n)pH1sIHAMSy@M1r` z??6W7l2ZJlvG>ziIXL7!iXSGLkvQ}&D#tNuJbhu_$v;!^(1Q2Niz%JDYy%I>RYLk$ zZyPUqf_(m&4sN<%@b+4Ct`{Cm4y^MOBd@0Uzek%@4&=)u0~0qLCRuW|mBK;D zmI_DSC?7MiHWME406~Hc{T;w#t^@JK6)X#^thnmv{E9kYD!1E(R^aRSY$R*qD$WMh zFdz7z*jd+x1A(K^opmd6o2JV9R)-^Yr=Z}Ks`w_%Gr)$)*>qy#Eq2WSm zE^nwlB)P7+8FJmZAKD4?w>=Pfvu93f*`!EXfbg_DY*h64q^3`L!0=&E=p#uLe?1-* z$7_^5JK;DlxQ{e;i5X0plXnr6kb)ucF`uw4e*bsMpH zM_3*8M_hAlWOj`f2-n|vBNIbf45V*?-Xr#gOmSCbt;0Rk)sqJhOw#1Bqh)rZU4y)r zdY+s~2^(67e$B)@#6R^`7`1k-W&V$MDt zL-GUrHGrxmtcXtT9^UzHKUCL0T;M-ikV#&Y2*C@ig;htKJU))t50Hr24+w1wh&>t2 z`@u-OGOf$S@z|>8nO&6;%3F>Dg|bl>Epjolq?b7c1<$4%!TtbGI=Sab(_W%?C|veY zUkEZQ+NbB-EYV-1`xU}VI6fCX?L9$dwXm-O`_;#MGk0ye@8Y`#{pFmE`-^Pn_6Jza zqfrt=?qTy;y$Ty&G|i&xTLcY?I)Ww_$U&ger@t|}?zV@8%*v7Xrv%dM6=A?eaD%S9 z6+2>2fLemYg5CurRjDWm>?5(fdN|+F7%W99zMimKafY9`M}ftmY*mpu`XR{RzT1Cw zA8Z$=>2i6MWrFVgmN~)q1UpHuWqv|}?F~Y$DF+CMjv@bS%xSi8#gKcHMNi=B7kbF0 z8^S7=7O#``lSwfIrv#T+#;iUQH_^lw$Eu61?GxzSA0B|BM;`Vf%`3V_9d1=#gPT}M zzA>P8%&;To>LL=1OKg8QJ!mfz5;4e9oSlyQC5XWW@vTg%r7G|3g5LZr8;ZL7M8rf% zl?AL2x9~8*?aXK>syOAMFM$t`3w%f2UaoguFjYB>s1PwI5^phh{*&5&DFz7)s{cuC zt4fX0d3fl8`THH$H+&(k%sD%Os7qpBsf2&iTL@3Kmy|uSR)|5%(1Y;58`lWDFi&qV z7ox+Tf;m;iQw}z2ig~#!fK80 zzAJYUEjVZ3m}=<;m2pA2gVe@C|JL1VkTTKEYv~`6q;73l zu-1q1M2|Ky40E2obrplvH!AYB-hWLoZq?bxr}f@!`M94uIKdQX8S$L%)3xb>YB|hy zjsa-}kM-ue@GOb(Mo5Q?Y&US7_ax~&M}zzA+k@I(oZAi`F0E#768{IF~nC>g|A)u@~q3Uc$zhvQ%`j6Fl5Lk z8ZWslX~+u!Jk0~K7qyud+ivp>R$-`sN}5XR5tW?>5{`r3#F_+_40Rp_%y0k||1EQ= z=Gz^hpj*sibK|1P$$>tq{NTnX2YN;IDljD1;a{>XCW(h0Zu(Z51%9TYRFU=?rQqoS z$%j!KV{&m?GW+`fhpyj<>m>qc-tl{0a?@eVk8?;6vND!wGUb6oW9%R420Z|}rUx33 z1%Sef(c$6OnCcY8z=B*#zU9xem_j;Cid8$=nM2qgBN7T9J#`=AXG zz@B}g`|qC3U*TaLd-TYk#frVCp<+h~jjVDYoQ9%(4Vt+IF#U(@{}BDaQ0O~c@%nVYr*x^+oe|%3mE&o9G_JUg$Iocbo z=#3LskM;t0YsJAfUd3l?3Lfo}Yzsy1?V`$w$0-JdyLX7KHpW70SE3t7N5rKu9@w`S z8tmse6IVnq8*bYajg-zzx4lZ3F=`N$O=^dupK(e39JQ_cG=ZBYY4_m!YjQz1cJcz# z(X40NQxAalD|P(n6LXDq1AqM>DdWPZE1WQ8A|YvC60hm#W(C6t;Pf-#b)+KtJ{iMY zj59F%I=fhjyUNaJLHhNzk}<4DT5YoQge}=H8Y+Gv$l!xS6pw5CwEZ}$#FM!(Rt#^B zPkPzSgCZXjo`aG&9B6`&|JTdmb17SZYaEed@`3cY)-B@2Nw`k(ru z`V36$@4O`ggLfof$n~AdDs=ap1;Jc{Bo{RLV2}lXbJPUl3rxG7_rdO&d>)puk^tqO z&s(*!A9=$+&!sbPQfYBgg%jx_J{Q-!2rzoLyhg>fi&l%1!FF3B+3Xp?5ps|+uo6Ct ztXo+2P#d#BBY5>AF2;G8hcc(GwKu*z z_G(2{!Nv|>#6D380cx=YNk*J#iNe)%VI;C4^bObOPoBSMISWhY<=~puj=}7>@{dA*cY!-my{?&d_;HgN^34JJx8&}#8 z&Kw8_3qZB_VAH&&cLCw@Ks)^xfrkIhpud@W(svP<>u*I9hO!^Mu-IBlbP6I6pH7s3 z5lNWd4W&RJcPL);cPRY#d^>lT3n1H82RAaa+SRFRJvY(hrw~Y<0aH4F%v#L(RhUfLB^+9y zsG9TQ2`Um+2^OHZ5%hqgYz_uu6AESXn=9P_M=lZ!p)`U6bn9>>9hWQ=U5dea!Ex;V z%m|~qEMpcFA+Nn)fnpLu2!^+%5-Q%hsxQ+Dry}~wP<`m-B9r5aaxRtkwhVY5E?clB z%G>`?Rd~A0oO<=1=6zNneLpkjWNm4=inpc8%!zy^-J;wANL;0mK4~)zd11->ntb8o zs8OU)=x<5Hn$Z&q@bZPwI5Yoxu**-g{THOgcPG$r=RLe(Xw;C2oZjG&CQwpF_Z$ik zC!3C}bRsJlW@=Y}uFnmJ3QWTUrcAp6tW}%lN)e_1t z%>E3_HX{tyJ=gIZvohDf$mJT<76FhoT3nBb@$8;1jta!Nu1j@lAkE2BjdXksash>w z2or#Tbz?#oBoa+z@Tfo<`R#w0uuUPtl6p+Si#s5mNEI4aonvyAXe^_e+;xbr;cU39JGr#BY;NBy&ez_nA?j%qAhPZCvd z$LU{xF1vC3D4imr19>X=1QOwC`Bbni>6!jsVc1=E+m2`V`n3PN>hqj^J$*R*xnU5; zdRkL5-2S0ghEb`|T&GMY0ZDV~4limYAmQ(31J{O_7&P;rlke(=zs;6FRhPD;y?Gki z6zziUBH!*-+jsk;lAI(P(a=tAU?|!kn2~K`HBy!L2E7Va)J5UhXZNU0-}~pCd9K@m zr!t*sV5lW+L(3NWv(6VRM-qZ?PUgv~%{r`BH1yWjYPkgzLYt=?QKMJ`p4VKp@Q1-sNnDpiwB}qss6KroS!3_ z8E;6MdR6Qp{0U0%NlX=QZQxm5&^*9WYP0v^pl24Z&8*jzx`djVYBFH-7kBjmE!YyfAXf&0Xp2;yUrsZAza@Gw6taK&cE z0CH|kl{W~?jzobjLLIJd?SIZaE&!bfa)FVc;nAAN#70-XijRIpE?T?w0Y?-i8(UN& z=6-H;Z4tt7J#T3IB79Hj+2@wTIaK09p(!+D6#c?$9(+oMK-F9TDkRV-tR*7tm^s?^ zCD25a$*>-5dG|L9yu%sn+Idbc2`Lz@REW?g7ga!cKM8D1cpet?JYWW@#)cZa+ZE~S z#I|F1O{f$F%f)KmZB*!XAm>x~ogo3N48(*^1`M&PvdIQu^C2`VYsa1KT2Q}QMu2&t zNo0|woQUq=`VTlFK!17fSK#|Woz~U++?c|yJ#GyAhiDRw(@INbgaMzD@cYUf*)0NqhD9xZ>i z4I>pHGR!%2o;Q-mz^#e!P9fEZg}#Y!AU4g84hYDdH5Kyy6pM$p#j(Jp$Ql8~{v9C) z*OpM5YYSPU?C6-gso__KR|}!=^B#dNwt|Hahou`5pE)tRvTG8-CVlLRrt2|>izRgh zM#P+y-Xr}P_n%SA0n(`=77)Sabn;*Cc-y)iB(Hv1mt6YteZzTeXHCYx4Z~(rYx(5$%K?FW*jB9q_QhKUAp8;Z%Nxactlk5xW=|w zHIQqk*W9NJP2`-rYJz@lq?h4?0@9hAu1$=uFc6ODtm}hIHpl4nk}eC043Cz1b-r0? zZ!!~);x5~_Flmv-Udbq$Y7`WnIFl*px7XEiH!G|uk}b-HA%hSZ*jzwRjA?uE_|oxY zyt-v!G1_WEgB(Wl*bumng@tXTg-y?{q?9Ux8qkwOqSg zN#EkLL2L=Xae}dM1i)T^PIMxHNo_qHg-)FnL6)*j+sy>JpDa@kbwN0^)mNI3Vk7Zm zD@BjLc5|fOlDe$Pt^hNV^-j92PE<9=D3`A)9bU>p{%bjKYVtPt<5~sEyiQ5Pe5CeQ znHL{^R5dIqGn#wUsH?w4duOyC9>e|BK3V~T=j*eLlBzU*-Q_+z2?Oc2TrgLG+)5oi z|HU}lnvE7naK6vaa1ML@o!7ke@b(1ZxQ~Em%rzdYlkpxyy#K+)4fq9 zP>V_i9Nh34+tI0G>35Yi|15#_WeJ$$8zY zWKs91ZAjaLH_i@wyc2C$a7SOAHa_$PPBJ`&KGiE(?+MIGs2w2Z_p=f}GY`K4W+i!H z0-dhec(9fiKH$o|XcCS1b9JCBFanN>|CR+H2;q~#ZvAYmD{szF#S6N_sVVkm=*wof zed5fB^8j&Oiojx5a=x$Drg>Uj#Hb} zhC#bCaNDs@X`=tQxKlX%NYZ8hePy%YG_Pfvz(=R8%^AVnNk)Q2?5nYU?8jLYS7T3$ zt>?U6IvJfsNeEwMcA%KaoK+BEL`J`Vt?>v zuv2mq2K-1Knc30-YKAoKL{UqwfRFWleI74Sb76YRd?#x$kr?DYQeDKG)Z%NiB#a>< zrohl>l|u78{z%6sBCVQ!htj!^(gLjn7g@0{#(76Bx%jG|T!LpP;Z?`N3 zkUn9LgavSWF=XhQ8suK&J3!ij&>;KoySsftWXMHwQ?X(XMGm*R8BnoDE#fOJfY9_O z{cmWnZ^r5h!s2RO4P5%ulkLH~@$u(R<4^E|u@u?=lSFVJi-`8ay9%<$**0QMDgz0w zErJMvIWTr42?4M%66=Zn2_Y)0T6&Tk0$a4w#xaU`K*1^#OP9t}Hg?msoW4lM^qkg) zQR<%GQx8p|Ne#cRuLpyD_zuoS3=SBzBZFlT-1+iyHfHg)eZa=}_o(pQcwHuyX{Fw` zNs#3hW#P^+!|Hmiq;hOUb`K^+1DvvYB88>WxcUS#m1D#W>d&H8&}1u4VX|Mek-AlR zb3G9tGBP5NReUmk6SnCsN!{hxOz`3;Spt&74)Tkvp8D|3I3d-`vbO?dSr2& zw}ZjJS62y^p*gLNR)a@y7HUf=@oK8MlDTB%jrQL+RO_dv^sHktK$2SJ#d@WBy>hoJ zeNVU2Zf0hUyP+o5{~n6A`~5e)n91DED2RITHp9Rs)Lqa-ohZH)&|#HohuEN*#G%;L zO>+vK=F2RMA}xkWI0T-7?t;&rD+fo-#JI<+x|4I(!ZJ$X2<&eWC!iT@E&z?0TmrGV zlBSZ0$7lbP)uYba-G^32HJ(8gz{`e+d%V1dOWM_#akVh&Ml&tG1*E7^4mPV#VR1lY zAsi^8<^L_B8F%#b=O+m-La7RbtcYCE4u41GO2q2{EXqV9JB-G->6Tc#=hqz^G_gG>W+Buwqf8gKAIF9O- zIP5^VQRNADR&)7b*fD+8L-i8Q$kA|5!83kgQn#N=;(hr_5(OT9&iiw@Fu|mx@_kir z-*wVgFDq*rfl6&##1Wi)qQv>lZ5x}5oy*yCUSAjJZUvW)Fdi6cfWM{fHIc;Tyz|X& ztBQpW(QLjZ+>3V-2$(-sS9oHJ->ld3#NKybB3F#$k{5VxN{0tm+olTb3QJZ$egiq% z77OHTzlf9x!#a?&fSi7m*5olmraw_9Z51Ma^bol+8okM8Tj=X7mIN1EHZH$uqvRnXAd_mFo#dnzwgwOh7OJDk#bEmN>7pfTaM-t2xo&;E} zc7dJpzg8>4y_UMVFakTavgAf3mQIv81KrCym2KW=>cyXa2x>rhrOuVxy%%01JY?Pz zjOoDA8$wwbAL!vff&e-SQ4%XXb}!c6#lK2j9A&a%i>&W8${(+&g0QXR7vtO;F%~B+ z=m7o}zI>5fR*GA2zupG`)^mwaYQmJY!bk7I1!#05M)U>|n?`sw)vQX_3S1gbwKIVk zC(+@5XPl8Cif(}V>bjY1tRx7u=(9$VL{xNRMdSZ*0ohPL`eKy8rtKE7_#;DEM6UlY z^N-@oX}jvImnrbi3uA+i6O?m5D$~^Q3>T5Vo#9P1GKjm2ZWvE8S+pCE_QfIj{?qgI zCg8x!q`OIwwL=4VPcG*|JiIM7w0rtndxReR}Vt3#Kr8 z7=JIbk^nMm(7nt`3&^aBF79tqLdf=R_n^LefZaz~P*WC=R{yp8JVXPVI2(T$E!tU8 z+S;VQ#-|W|5536%Ts#TH-T%0F)FaLPuj4Ls4q6iCa3PPH;m_~gAdhsI9*_W|W7mIO zBa;>s;O?-G?L^haw!BtkAQ}qA9w<%^aImC*4;G(N!~AT;nWl)Up!a6#`ZebhPN}|> zUFWxnGGWq6VQ51%F}t^Qyqu>! zX@oLizI^_FjUpG!*COOy7;+c1?Mi%Kzd8C$^_q!_(}VGTs5Qk8n6#U`4s87Q2ks$ zKxY>O`v9Y5p8(2xS~ST(!IKx}n!KayeURLsj1n77Vw!$#0+i>$|CVPqqvLd_j*z%i zh_?N`voR!U;fC-L;A|{)Rw#205cN}JTQUBOviZpn)fS$Z(2lQ-M3+&p!ez@O8O77* zk`9UR(we7=SweJ#z>o}2OC6!Q()Gn()DN2793FU>nlIq7X7^wABt%&~NEs<0 z9&FbtMwbs_=Xl+<#X9G`6LnHb?)h#Z2QV>)0ZzoeCueIvl8T(Hc27eTkH=Pc{b zkr5$V<2@}n4-=R(Jqe$x@UxA<-CqInf%IJ@))u zHGKwvJ=*D+|L(>c6u%D$_JDfWJizUWPdvy2P%cM`mu^?E+eh5m7GDIpM~tia07ZS5Ma0^ z!~g`9yNaquf40F4Gh^9X_?=1EENk~bG&II?o6)Fg;jS`rr56^xz}kUprJ(c;A+4vr z3X?K!BLn}qAkhpmW9vv4U7ylf%koQ*7YJ&G7~{RL2(^BPNSynm3ZV;B$>fwuQ(5cz z%dtwsmJlZaU|}8UQQXV9VWOAt5<7^mHz#dRLR{D1uE^zM^(sis_r_OhLlBX`t|x!b zB@L&?$@$h^paX_iYu)HO)q?JG~GPEnq`skno;sczKsFVPK{f^%gMdTIl z5~QR0-FqLt7XAnQ;havB~mzleu?S(m?s& z7Er1odU2|EuQ)VWdFQ~JNMz9rJvMsAD!twcNH)8FlT9M=g*<{fbN&Pw;xRXqI7~DN zDG1M1L6rnnu?PRdm?TP*dBlAb^4JEdEPH;+DsXHi={#aB0YDF~2qXL#_1>%%ZpEZc zO5?p$PgGLq-=eqZaVsbOtiyzfl;#N{2#N)q>wtF|Ql*ualoEPdD#td@IqTK3N>Ks-!H!8n{@6lI)>4IAL1E_z1H0C7rFZo`G!`F|XxXVaEG_ z7n`FS9?JQ4NDh&rGn$NV#Z+HUJ4-ROvZ)i`Wm8X>#dPcXp}l%TzZ8_usKoYS_ig+k z;0x%3go~`FyD+Y$o)kVyw0wMIa=_q8abIbHYjy7{EnC80%j!rkk*{ zTUnWU#kXg1)+ImOkZrUeenbq|2227dQU7uca1)|p?j$2qY>+K+_Bc)cmJIeI40Zqs z#Z~(^j5f~h_nmxEnb1pJik&<9qv&x3^khX)$W$;%CSc5m|K-dl;1iZp+0FA~3|Uvh z?Y^dG$Q&tr2AvKDe62YDTE-z9uhd1Fkz(cXU%Hg}{n49^sEuY~7W;w^REP*3vJyP3 z8Di-VKC4ajL$CaL$u3b5v#QvFLm;F}f$Wylac2T9XBkAKs3~*3D%|fMj&Pp5ryOt| zdZW<~S>gA1M+)GbSya;9^0sXmnTE(ggGO=RFAoD>v9shD>mNfU54`>EPkl?>tT`!d zn09^x8^0_eG3SWlkyJInHgf?pD!?}N7?_OyGvOt34YTUXR05g@hLsh;vwTJEEWhl( zFQAAibtcp107&D`R%GMSL5E15k&P&o$#l@m=QHWw~Z z_J@D#sPVICG9I&gBfseX8u?iPBY*e%gD*m!K~&Z0dLTcGLi@-5h8o{;vzwh>L?S=y;3vO{}tatXyIEC!4fuw+FfgyGO(ieMsTgtVvf@`{q1+5?0F7XS_nreg-2F=pON-xk!t1gS%jSs5 zD&T~I)pd2j1RFB_G1?a@!^E62z1TE+-g!{rJX)VL`zOp&fGt%Du%({gdnA(}^ylBS z%9VV^5J}@fFBi$DAP{psCPRReCwTlz9>Xc;eT(t=IRl2UzFI0%Qe6vR(fq0f9(n5+ zH&j>jeg!=ozgIl-Etk}%Vfe{0XMQMs=)u+A<*#0k!S*QXk2i|$z*UwN%QSOW+?21# z9KL=4o>H<>S$%Y*D|l?Cp#6Zi#DCM@&G+pCv`Ix4F00qsy^HpCbHAq{Ux@Ny2Rmcm zcP_Sn+h(C$va;uM3081@S17JT9IaJV7nrW!Y*f6@aiji|aC5i%%clcw(}W|85uiTs z)MW$X_oIeos)E8D+Yd|e%^l!(><)>7ih1837~K>sX9(#J8^6z!iWXqn5VJ84vNsR< zz!XJ_Q-x!|FiB5m6|Z4l&pRH$)KDUNP43!c;oLZs(2durTo(9IxZWasipI;27CSD!V8`4k*y!I7qh7s+Xu_5_Ge?Z zb)DCaZ$GtS>hCE&e(U?T0h6OEa`Z%fF6k4z>c&Y@^tw~H456yel3sEwR_*9GH(!!< z()2ne3f=hkrAz!(vn}tk*s05+Sa!|1Xxe4#%N$hFfYsH&+d*v1KDgiO3H%z3%0T2% z`75R$BjoIeNhO{Nl*O$>wCcNF;L#)LfeQJ8pAjGCRc-yIe_ie@VaZ6ck4+%yzfG~a zbKTWAA|=>#yJthijpn(N-nbh4!58;a@IBuNqY^?9H{=$R1JU~Y^m#)eUgksN|JL*3 zZ0wvHv&b_dDa>L-x&uygaqK8&RQ2Jjn*z=_GN}_@5MbKeakKZP!TZnUHd1>TJYXKB zpw6L;o$ddnWEHG0MeG)=DN5UvBR2c`#}lJ4fuciXujMZ|^_<}GQYwF|R0MU$xoy~> zZKxHEsPkAhd_95YbpZ9Bn`3nvOx z`uWQ;*X&!aw)~rc)H@+EheB;X+QRJi^4No@PnE~w)q)p7ou8Be zh1S^JDqjlhc|3Ru$NJgv^D^halZLDFHQfJt@8|xi*YV-UwU$Cp($l&-35sP?x{p}^kF{2E2TNQy9H0;-kFI;qYd~E;oa$ZmIA6)%I z@$1oTNAirO(}Q66>ZdQ^$2kaB@TbdTnxmt4a`Ly5Y`l+ex!0k+PG9dN8bU;uOUgLh zzi9`q;T-R$Uc46fyI!_EQ|@s2z2RWI)pab`l*38w@T$G+;~xDm{R=`34Af0cbXaIb z#n|n$>-pG0z<=DZ8}PhL7AC`nrfl2G|KZyN!AnX#p^I{5X_q~=Ca10$&@2;ZS$~$o z{#9?HH|()f)~8nQ>+>%gNr~KF#TsTGucDAjnwqz1{9GNIsK}WYuNDyha2%WE+ErQY zlu_ZM1y`E*UPXQ66h-kl;@1CjR74}!)iT*{^A1eb$vh}LYw3;st)2J9;Kjvk+w#QK zfvTgz;R7di0?*9)Pfi4%@buTHQ9FM&Rpf}Ty{;65;K0wY5IGSvqaDm!|dDH z_Wm0;k3ak#qQtwlS{ySqqPavD5+$YMc)yjbs?H+y%sQi?TtmN`+>__`d;3>^?Qj3G zJ^Kx+RU79xhyPr0tXlk91z_DQWi6dL-ke~zyq$z#~PcF?wq89nXHjcB*eL<8u>5)o8 z&LwW1kqn(WuzsBj!(zJ5V{p9IpIff?v$JDf9(^Cz!{PNy;o)}&?{oZbntxi!fG+h^ zWwaF0Y4n6e)b;*c963Hoq!QDmh}R*f!{WogeRX@bpHuN#OyG0#l>ZanY|QU>g`1%yqCF`%-XY!?Ti{zKWDS-*G?eV!I?f?U^n{ybd~#yVXUa z*xOYZ_hC2<`>2Vc3pH3Bz9b{#HJs2CKD^J>^#1x;N^sc|1Mb=?f}7bX=9lv?IZA(* zfB&}XkSOjGIsg6Z+R>#!jM?{|0ysl~%XKp`-ltN%i!Jk1*X@a3PTD}tQrqm1J} z6@O@X_=n5n+sL4p>BbA5*eED|(kLioD1U#T z{`F!=n)=NhM3Fjk1Y$$OqCrVTJqA5t5l0~beu|AEAhoR^U=$c|{uG2_uz`<4io)=p zchdr|nKY@iM<8+rT$KB-P*6}&$WgE%L6mCqQ>eb3HXlU)=QUO6{y*qb0j1I%frwMR zjzG+h|Goc55grQGUq`q<#{EaAYO35Zh!@mYo9cTE{C2<}Mv3;Q1(bNgLY`U!{FR9| zq=XOdSN^>|q!pB^@g2mT+I7G1*C;5_gpDlq99Wo|bPS>dg^i`w9D~Sl

33g^Ur z!Hd7$8A}7S$4%-{cyd>#^v_ZsjuTkZweFI9Hjy z`H++83KT};CvQHe+N`Yc-){uleViZ9*GF;r9_^d!$Yk-y zeRSwsPt96hH$%K{G34zien{eX`79mOi?#|)>Be9DK9>q( zi*CMo*F97lia){Se{zCDFqCSI1sKzI>FF%o&mJB;5~6_>Gp6KbiuQL?g)gTHUr80d zdQ~FxxcX};7_X-a-$)g{nJV18vlLKSE|UszaLJ_1Ftt_*{Bh za!oZre#6M8uY`()UKU038mk{KgI*`-5Rt+Up4Cjis5jk#)k*R}|B5n}}{OLQ%YTq3u10M=L@Y2&m{)lN!!OGZ_p z(L~Q4SS&v24C*+mz?R8c&kXMdrf4=JL-`y8w78R;XMCAhpHuo2cuTf1DSsBQIlVBe z^-%|q3?Buse_=axf~o!E0(r|WwqyYDQ&E+(GkH52sh6bgup2%5>02*-H>felkhg1K z5wsy~F`vkb@1d$`L@9X?OOE_RDN-|}ciu1a88K33A7w~X0ev$dun0~qHhs2UtEGOd z7dcyM<~~v4cyRjsN4g;W$sD+4BH3nv4Pen?n3Q9&e@UX1p}wftnxgwXsV|`=O!^(k zUAM#>Dw7?K9JAvB_>bP)fZGQtNHj&`ahKY;f>C+@p*y(Pc=;8#fsZW?z_{-Hf|?5X zMoaA))I**GR?Mcs#X7%$bO*?`_y#ihz=H+B!$$`Xp<63z58vNZj6SLsXY~*709qR! zC&I5@f47pB1m)%%DsTyY__}ovi`PwP0u4#LZl&LE4q~~hk39!{#cInP#!6F$)jIU1 zvC$~dwwAaxFpMib{q~vn!X+t_w>l%GC}UCTNg_iLL*d&YNQcz7G_llRNe`N`$Xhyk zk}!5CjBk}%c2rNEXiSwf&6uQ1i6+7LqDR(Qf0c8#L_T8hZJ9g`(_3I^XshcX-`gab zmJ;BP9=uUCYI=bi27REVUO;E~aY6C#!i#Bp%$0pHn@8{UYR$;q&l(>d={;4_nZD;G zCzqrRLBt`)A$P)(oRNCLbb(jsvfm`5kt?z zvuu(_%UC?4#l@WAeSx>Ww&=^a=nK|j#*Z* z$Cj);8qlvW?+QoSwc`(dp@jF5fBJRiQMQCXe+SZpxi1WWx3|Np8U#5axfCkB<(J}N z6Is9?!g<;+%Q?<;9})wo`ie}_K>5k=SWiSOV{#6SWa3@QpAD9&#=x}_vOFKm;TNs8&VL@ZkZyAmCiM z0!texI2Sg3FU+9JL?B7Hl=Cg_(4t$uh=%~hE;}wHvY+GAA#qvE?kCd{UbpyX5i4^2 zpUAP6EH`A_1_u*Ol7H_SrBvpAO<3sU@)*l~9iW%bPIkcoi1xO{o+eJ$jC| zL+7rqjkch#qL5x!CGFd#s)&6$Uaptks9);2TRFX%dfFGWgob(p9kp+-k(#QC>WZrB zjg{5DC|j6UATR&F!RlLO@%K`Gmv<=%h5S=O4L?XV8x#2{e_Vab7BKSn|71>55oa2F z2=!H-xsDorF#bT^@PVyT8W=!3)yW0=HPmisQ+httXcC`z+ZYIY+FsB*;{0Mh=L>AN zw!h{&!{GmHy$JZxc|Gl!uqWf1}DG4)kO3N+UttTA(aSJO=9WwZ|{gDw-LN!%iGU-60VSSVN)L)V)`HfeD;> z9|ji~&qp1Gl;mq|48f}2-O|k~uQojpabMTpV`tuk5`^i|1uSBY^~x^z^;T1j{`$E5 znca!Ef1D%yUvS_)<2K+*@m2SdgKI^%jlJ4dAA*mhGz(h2Xj%bo(&$}6U)<~FKbQPY zx7PUgdaEYmi9Flkkg)W1&n>*bQQspN*oa0H-#6Kq<^x@Hqs02N$CD*>FPn_y`c=|l z1Ems8pM%K4s2Jc(gu=PmXb%cs_(LKQhX6Bx$-OprT<%apfn8!7s(LJYNk>=Q4qf2Glj0VDy@Vhtcf7njueTPL{1sRd@Ca2laD41p~S=1{&gML zPUCGd&1&lW5{+|&{-@5cpQ&S(MNFmb7^2or(Lr2yoGWPjD$TBLgmt|g%{fLX7D(MT zc?~C(0mIj*ppdu7I2K1|Wle#>CU6_bf1YXjddw=H{PrfBtHkqN6qSTkK`$HYey;h8 zCl!b>)>MuGV6}ih08o8aB>sGqz1TkW<_(gcuon8zSuzO<3n^yCXF8wDXY(>yl)gC8 z1Jl}gbBh^|kyQ+sTwV+5w+!())3cZ~!+i*}$6xG!LyvzYiU<-^Nme3-rzJg8f76AL z)RP|oQWd}ZB(Np^j$V4}L-y_`bxH8MvzY;3%w{Wr|K!0Tbg}#eJ{uzk4}937ptL7N1tQpx*HbrzAGDB6(vHrwp129fi{{3W+wlj(vAUu)Mjm z%#o&~WXX@MU5dydxvN2ywVzLNfBOGmbJ%3c-}Zhb)IhJN!){fy@fn#ff z6;f-XD|kZtyL2hYFsXR5pepE_!gUK&L_q6k8*w;n1oX^ys7Z-%6cRNaf5QxNxBM$r zWnro;QdP3)oO3R8e0+p?CfYUFoD`4pieY@c`E48HzRjXhXhXgaG-A-2b)EUP4bFY~ zEind#scSoiX}&=Kisdj-5vKT3ETJR;p;iFqpfQS<+q0G=w4nKx{RzY=i1 z=8mHI=-;q|udJ}K3-Vr3e;rNpPs=*=j|Rzxk7{^T%(%)xA$JQ{H|&orj8c1Fb(Gpr zMro(nijDOYxb^XvA&$rEjLo_mkFQ1BO4^d_*1=Sh4i6kg^t)Y!@$pFTd&lM z^(7D*LN?HT59ka-f43s7Q<;s}pqYJ`1_2rW&bl@o_-DNpZcZvVAaac?(XORmFN33I zC?G!73--Ogk1G5Gl;EXma6+aNfmkMWXgik8xB0d&QY943HvJj3X>MiJX(4iV%d{RY zwC<}FKK9VAp-gJC#h<0DwWb1EFQ?;jwI+lIH0axO5j9=>e;c%!KXso?+xo)X$0+SV zTH5gJipwqfjPW~H-)E!5O(@hpFwg;J@fmK9BF z(iKE!N)Ddf9aDRln$mVta<$pm{L3b@g-*W-jpi^-6r4vpwUJu*K^|pw%FO$$eQH~` zD_Ip1GtbxaCQHh!^zx+e9wllPV^pI3mQ{Cze{x-Avipe_ciAZ%lLv$4)7^uIBjI$N z$6JvxW;4*BQg2>}?c#HU+D=qqj9EQy7rQN6txgKnuA$r}n8JUO{1)nC89q6~Q*1ie zNu6ia(W%dj_Uy(P1o5NvLlIXINDTfjB8w{vSC~$AEmPu_RpK;A=wsRbdbvt?$cQ=q zf0?}^`251icN}1-0e9GWvCmjUO!`Q;lqLvS)gv(wY;MY_0!CdTr3i_Sf0j#lI$aH0 zyhV5&&@lBl0%wt<(?Q&JPVA56f=0` zWB9pCSUvGse9BDYRTDD+p~U2!%$X>cIr@hJ^Ps(+5e}#OD5l-jGdXguE=77*ov%jhmd6+D#G;ZZ=U0UD2 zhU{HmZ!%VBq_1&&tgfCdJk9%9>Q?~Q$X{p-%27UW{oBU#Y@?`m2VS=g;`BF(N*fz- zM6eVvT{c$@BxOQi^T0g-dQw)4-SJR*Q%O)*EyZTVwCzE&f2%UK^SJFt z)Y}A&!7#Y(NFH!wYLp-#aA>ze4gvO8(?jsM7D2#BcuU;Dpe!+NN9dYM-X}v`15$G4 z$F!yogFurvP0(KhYY{1~#h{FozzkB%-w#t5@GBCUbJ4{#>l5zh*v7=N;UG5hoaRV! z-S2$-u_Hhky`t17qyU1OfAoxZvozV0Ibgn{&6E7pk>KMNIjSSDc+&F;=ZwCZ^3dTF z{x_}1lRSq-aK0F5V2ZKSuE!#@m6C8rW4aQC0tS zu1`JZgRQuCAAa!u?iWsu2TNFAb}cCz&RSe-Quh{>Qub9(;Ouf8UkW%B^>H_dor3=ac(1@ECL8;`n5uGOM?H zqrgr3>CKWJIxz>5ci_hJckY7Mj`TZR0-Syc_bsan!g`r6=`s+Dr63kAnDNluE-k>~ zzJe%(gP#?L6q&7^ic`s$W{K*WUJ!c2h^Re^3}&z$3Rjv1@l7O)7hJ z(pK|sv#Y9KU@N$Jcb=C+CzDU&DUbEtX=pc%s-z7%}K#Mww`)^J0E6$#DWHXIBY& zCvQp^9iiW#f6OaR?nRj{svSS;>~{OMjY;R7<9`C@@1>K??%#dEF8YBLH}FnB9~#hA zQk0Xa$z<8Ay(|l_>)W=X8rjnbb~Di_)tAY&_(jPILTsu1k+L~{ZI&0Q7+2N@+4JqH znB2bUa<%@EU#~vaDlFUP8ht6nZSl&07HL3>l>yPif44{IFsBgH-x+kIbFR==_}*qk zG_96*no~#*#W=3I+0^P1K7H)f-D1j$hAR!)*G_P;sxY}mH~K`6_B$B_{ALYDizXT= zKlN23yM<9W! z;_&O4*foM-yD^-`vwHzJOdSJ;l8Phng9KbuetCw^$TbZ3u-Af zoem7TmoaY`8oajw-<^~I)tqZZ}4JM66??HId?O?PZ z*kV>%u_)@4A%TiQ(iP#Lq*G>gFA5ysGc!V^e;U`#4m0Yq9kBvdjEm`Or@$EMFdyf-s|^+R974- zW{8GGGm^KqleN{EUqGf2HDFsfySF-9z0f@z28Lg)Glk$2z4X`j2$B=czGz|FhiUJk z8p$?VUBSmSgQvu+Jbqxmm*pV=5{P#=f9mvl=B&^3jYE4-De3W^Ua+=1;{wNKafzBf z$*1|8^Ky*GW4+viEibRB*kKBm@i<xD`DSNx^%^qiQtu3g?kz3a`L2f2Fu2+T zIH^f+m`(TwK;xZYn3TCj@9=U)qH)7y;U7tQUno z?&UQG+CD5He(b=l?J@CDik|^uTQp@1H8CtKUTgM(H3#WDN6rieEln>`!Mg9VEwHvD z5e8Dg4swkJ7=7g-Mr|~Mfb|zOe|y`5@9Lux7X@34=H;ZkrPZPdLuAd^V5{A`Rk*^g z&(OER&wm{|2i%O5yaqFGYycRcgHO$rPki(b{9oW;W6;yK#j$OOBheCp@o{ksed89s zIp#2Mx44ohOV%x}q>byXBqB(>n&Qw`lYEZ8HgF5dATf_LCoVt6MI@PUe|e(tV_tJ~ z>Jb&oM(}|KtvvyWpI02>UTpN^u}Kj@I|?t_d{$pnK2+|0zCp_o`sY~VMU5K}oBOBP z44M$4lGivE0dtsZs;$)sQfkd>DxSY^y{jG)`Hu8j?b<%M6#W3Nu^K~;BT`_DW4!`j zlRELIRT*x|!IN)++n7aGf8{hE*#60K8j|P+Y!=y7+;)2&1K$Y|efn#wsP8`pN)3io z&e`(Dp+{>|6$9o<1^GJ0n9tYb+y-!8o@H+GEQ=hgAkw^Q`A{O^SQd`Iuc-zYeuV$p zOjuZM9ui*p{HE_Kk<^g4)-)Lr{5k!wBkK3kz|$m>wi;Ht-hNP@fBJMy6Q2mIs9a8& zxoRh3{fc!<1fA>Arx?4Whld=vKU(Y(f?Jj?_xkR|oL8;{-6xC*j>-i|JtV^6 z%InEG&z)`yrVOX(=3>B(`AG`|=l&fM!BR~&v%aDsUf?}a-94FgZoArYfANBk4S$?B zBfFTF7{?EPE-+&of4_!G=Ze|I`*k9yy)-Dn+kt5w zeqfKvNP29+x$Ob{aW?US&8{h!z|V3ROfg@OO8VJ1@x7n5KX>YYV4A5UXGgOK)Af6@eVheuB;!Y3A81FE22Y%}+VKt|^a2 zLP`*7jHN_k*Bc}BbR$X8i(2Jq>58-S3ZQXdiM%3L;@J^O*Ct0I>11>Xgx}~dg3Cl1iKL%>OS9v_d!Qhjv^I9=oYWY7BHk4 zIJ6ACf6nQrYwy8l_xB)uu57~CyOc3*TpgSaVTH&Se5MPmbPvD#aE@#8ZEf_-)0YD7 z9?`5;O7UYVetv~?IfcoeiZe714CnhOS2i?CGTq$&TJsZd*s?Bv<3GDSsLfkPPABb* ztI8cf^J##N>-CVzwM%AmK8??EO(&-}SKloRe{EO;wYae#Az`v7ugo>=B?0Go5`u6g zoo&H}c6CO<&$)y$L!$uCqxI_+v=W&vKkms@e3epabPZmW=N0L%$oAajo}ZRS4-X!F z3LAEbnNqhK3^;kGGE_n~Ji~tSoHE}mw^_;?e z64#4G!qLHHow#z{K882dwoNO2IGL5P#273{r{&M+#l7HOr~?(383NSNDDYn|Bk242F-BsjS<@zRaIm0?#Cs%`PD=dD zOIwpamKADyW8S#ClJ5J%c$7E)DO{G!p*xca8T1Eu=$TH&dzag-9P+re`KI| zP4aQyqiF3?wRF{b~R;9t(a3jMtB={ zQqHfYCG^oEWec9s@Cmh{kD&Pl#p)^l=2Iv`5|6r|KDKSph`LIS2P6r{l zH*^2bW#R@Df#te4fXWDW3jt_EI}|pv!hq<(cg#?Mlaul}`|l(YbkKbTL)SXgWr#3) zufm(JqT5+R%U2Lx@2{|af5`N)e68G`*;l4DF#Eb4?4i?26%)Kl7%2>2zGE9xFU^X%ReK@3UXydTb`lSs0l>mPIms)Z29Lux z-1AWQxM4}hSgPSRMuHU0n<0P$@9tdIydn|H6loR9lUQJ+t|9ncC}%z=n`1t!f$=eR zVupDKD$>({CrKAOf7sb`burJoO_|m%b^rpN3$hE?x2jecS+SGA8o4+#^#(`f(7iuJ z(}lMlxxrpJDUJ(&+n3L(0znWWjo8YNZH6in0fYNH@3ky&T*yDcfDBZq-Md+xKa1Pt zGf(5klw}Uf!CVZ*hgk*d?cfL8QMuw%JLo=tk~;?lxD|qKe@cl_N3idMDHJZA>BA-z z+XPV)6eVsCO);15T82;MTwY%_2QJ$2 z>-lmuqFPuK%axbM;~sy3N(lRy}bFU|NjpC|L&`M zpFSM94|n$Wq+LBEqd0U&niqLo1l|_dQC8I&y%gOmKr76`A&4i&y;HQ!vwh{e0&Pfq zMv}e=0{!S`+d_|ilCfv^M5w>fd!aGXT$Ro5(zu& zy?ggQ;6LkxAB_$=;FKek^YqGzHD!IdAdjR>e9iCL)fsgP7(w zGN2})J*5^?^MAe5Y|6TcR#m-Pi>z{;hC3F&)6$c5Oo}-EHs-%hL)?4$T#S?1Ok@h@1qB$i19c0KvD=;bJ1W>?M#+T^ zt^>91hBa+0Q#c|bYcTwF-n%-NUCi=YGqOHsG~zyL$A8X7(Sazc!+T-!;AHB4o@eKP zlGOA+(XnI#zl&o&hWt#$EMD1IkN{%3)FQMR^Lz;yzFWicgV1zz7bNTyR%_s-u(s#r z=EvE^jFgCN?|5W;9nzADaDmFS6|BLolKLncLf7}55B4_R=xoi~%9UR~U1M_^Z4Ehy z9=4i?TYpwYjr9cdD97E}>h5l^IRe#vh;X<>?$}T+9MPtORK%vZZ7{P2Fz2KP?GTP+S2oAu_G0A>b!y9vf3t-itj7L5u#FT1I8P$!=>wnpl4WPsXdfEj%= zhJQ32Im(4jM>3Rfc2T)WmBLgi%L;@&=NLakOyCp9j@v?@OAc-T@GmOw_;;yzcamGK zZZUCiY*?9{^i>QSqrFw)nA+B%vbMMRs$NW8qNr@w36!_j)auhNA?T1~W+#emu<;9{9ezYACyTeWC7RON)A1BZ-1ibsXGW2_*ov(Q6Xl<12Es50fD;>5a}zA z9;MG86mT#M^C8`Zo#`$~emVwroH||@tj^{);I>eKX2N>^4sFk%4qut7mf5_S!P`X~ z!^?rAV;}=jbrn|^K0|!9oo+FtP7!kr`xmq6cn>rmegVF_f86I!eRcxuLy`TDVSlgn z-PvG&aF}}e;J8yS06{Ph4<9cZ@VfO?F=P^Y_E?-arUS(gY2cDptQ@H;f<1v;JH9UO z)<7QOUU{csTw61@WY-NrdD0}d?Cv)`JyKdr3k?(;Pd=oNmepa#lR)gDe@x7sPh09e z#!5EnJ$69Y!KkaVa+=dFQ1lgB6n`2}L$)xWv~>HFeA4;VSI)EJmL~Vii9`thh`lj6 zQsBCD-AMHVr0yYg9B>>$k1$PgK>3D|5+uw3Ok|$0KBWl{>=cmCJea*6TBmy6JX$GX zNWjEMj0YANr-uiv;$mBA5hE@(l^5HHi%Gn+n5-5So6CxgL`A!#XcZJ~a)08^Vq&8i z8=kOh=j+2y*Gb!K<;fa%BCiLJWMa>rEZ;1q!`u-F$t179d3OdG?7TZ7J3d=3*nIKp zGlysIotzGCYo__P8b9(XlvkRa*eZlg?mIZb*#+B4v}wenoYWCOV=J3q1YJhyFuSPN zqd{`78ObeiIcLZ~!!O6V9Dj$Pv8R+WRnq0}a2zvF3e)uR#@r-1+Ihsz!_q$s#U0fD zm`xY3;Rc+BLf;E_OUp*)BnWgAQq2S{0fh!*#`}XDLjROEv)q}S_lqgGhfZ=ak6slw zoWTMynUQ@{dExA0d%eSWYnmAb(w6vHw$fea_d< zopO%{O&B>Uo2g51iLT~u7%C;u>Hfj-Ndm{ppH=3WDRv_t?gd%LXC-;yI0FQMIMW5d z048#@6tBf3`!OrVWB?Z$?kzES4Ci5&Y}x~3Iyd~1{b6>ZE;u%tXeF7wHINA$I=}Ej z=fkp?y!06#$R3r*+<)i<^)oOM4p?XJg%@a)^E%)W4$X)PBcox3?7W<7wI$2JRZ3g7 zUvK+p3`{~z$RQx}uk;^h*qCEaSp+KB)Iyud2m#2EKvqo2g$un)%BgAS?7DoiT|-zg z1RdX$tp-k&Ww3|4O{O_adn z-^%Z?9k{C!3tJs2^Ov@#Gpes+T$VzCaDWBb^Vqs>m64j0DN^N(Aw% zeL3=(<%B`SP^SS` zk042;P|Z%TdmWmu@_u(aE~AkmgX8a71nQZt@WKOBj$j5#{e+fPh)+$T;-O4qE$=JM z8l$IF2*Y^YhoNZ(hT_6Q7C}o$tKBveni2(QY*D-Nm_%pI&TBet4)U9v<0$ZacV|}R zNQNAeyH9}8Coj(@^p~!0;!7iQ^3A=_Y zw)N+JdVfu^6NN<-5{#i6fdSWj;e~#vK~`O9I!a%tn&?f`AFB&V7SdS-goyHbfcE^d zPbEYSNo$#0$J1s_dsvBdK-VOc6SOj>g-TFW*hqnt8blHFRvUn~;Z^q2lcgWT9Z_Ra zu(GO3Ius|Z5@Dh>QVTG%N)Kksk~9SkbXOYZ~FyUTq3 zBNdtE?&@trXJjw0e3D-;l2M&2rh!3hlz)}i>PH0<)qs7!Wc7%T4iH1GZQE!cC+Pwx zrR3YJeW~vqX+amy#P!N%U9qoF9PrSw!xpSwq7n2%%Lq%fu;xX0FdV_gzJvW!wxEYS z2zTArklzT0!~*C*)NBG82y_@$A+mp<7P&++87|=Xs<{+&W2ea9aqw_K?dPha7xN-%~unu{@N`$6cE?GBty4z4uB!feX_c$;inHCP`3_# zZFBWPqr{&03p%KrC19E0P=)Mq&)_BDPj69~qQv)THGSs2kB`A`=r$Ee1fq`pO7UKO zJ|aSah0P;GAwg)f%}AkUF2F>F0)H8crleRo>MlTP5W!K!B?}*qbF1K0Svix6EUZed zI<-)jW=q5V%#e+EdRBV72u6-lSnucuVdA2-KjV4ysoM#L;M2-ghfmwIN_3m$E^<{X zALk%1rkl3nda%9`)Vkq1kW=S8@S;m7c;0YSvIvHulDQ>_>#(RmxXBXGQhyzdDDBlV zsLtk+aBbeHZPFv&Gisk&!Rl~t1lJ#Pk&NdM>7mLOEj_`&^T_F}bH}vEN+p$Xbw$_n zHEx=2Yk3_MJFj6Dh7^&oOe$y1nu=POt6FFTau~i-dE(mewH?wgwGoc?K7kp-x<^Z+ zykxpH>bAXYOJdcZdG!!kYk!wD{bgN#5Aq9Sc@f$Kj1_(n-C5-XP{j+l)TGEn2}ot0 z#Bx7*%az+hE3w?9>5y9_e(of_#EI!;nncJ#mk}OM7Q#4z zFE5?Yt~qqNmWqinF66^vR!%*<vl(ykg2~Y(%n+pYj;DAxumar3$;;^=jvgotu7 zba}S=d0ArAr^GCN5ax)y`%-J;WTlH2r{&$-BZ32-&I1^*>VFw^9)LqM@*F_Z04L$6 zFNneLQ&Ew4X11*lhak8X@ZtV@gX5FO-@(7Z2k>nm?YNyJM71PYE{%HSBXK~<{|u^> z-x>b03j!THGkfsKeUg~_QIth-ixOon_rzjKVoIeAvt45Nm`ieX#nVguq~u#il!R<5 z$Rx?p$;Tg`e1EabgzV$9GoS~g>{7}t{bn9uXA?oJX5SKCfTAArDl(Rx*jE%YloKE^ z$SeJmPY)k|cXWJusO7y8g~~Df(BH=%f4BcGQ2smDTY^f8;z2QGE9~d+r<{s&uOmYB zgx)n3r<+?VsrpD~UtFnl2+dI*fKZOZP1-e7gsVDYk+v=lVtSEg`s!CNREyQev8; zGr=UAHKme$5z1tKSF2y?dr)gj(jq4>H^sN`m3*=BO5+=D0YLcN1%MqyZ(Q#IG!J)^ z0qz7?)g?O^3{RC#D4^OX&q=?@)ZORHm+R%HTeH%C$R%9JB_-|+ZQ#qrTsk# z3+KP&*dD2e{Wf$QKSaZXPTTl z)Aq3MFWLj3UTDYDZ8oMu+_FLPYREM}@?7DM<&^hPGOBV*Tw~JWF>D5*VfiGdojSfQ z?f2~y1mT2`#u}7w^@E(Q1mX$i?XJjsWkueroTs_o*$B4F(LHRr@Np2dW*YO(bAPm$ zg(s&cU0a#P%cF_eo_7&9t>qse7?5Pyw<%(ax2b9yk-YYaZ<$2x>Em)1aC}9FU>3dB z!8f_crx=A*OyRF#g_=%h`U+%Hv! zS`kIQ`0QqXGGy9#c(xZ6l}lS$U+1f5R_DLC^NsEOcki8i^2z?=gH|epJ>6M>knv2{ zQ9P9u`MU-_u%N4n$Z4)Ar>J@%?bJ3>>lS^nYANZwDZbhCrekTIF~!t7|9>Rn0FH|U z`Xtv*;B5GUt&>m(^fu?Hq&fQFiuj4f$cClk`<=wY2aM8*xJqC-k_^r{U;N`3b(I?d z(v;KlLeJ@q&pi9x=-LVv(K#AL)G56mM3e54oiROsC zBroz=uLb9&H*X5KXX2G?q<<(47$brW;_CzKaE48jQaF>#69ADNiGmhAoJ4pn?1*lB zwGY!3XnpF{%33~oyHFqKQ^Fug`y*)ln)qZHkQDkv3)JkVGI7p#w8ELg5N0?!F<$saanc?9J893n; zrB5FtaAEv~OE$ul4*MaxJG)rZ9f?TDXWw8ep0Q^RxH)&0>b|eLw(Chk6u~EL4x}|7 ztu20=L@$+XYmne-7al)9c2Qi4pH0_A?yEtAlPFGJOD&;{sU~S}C4M!wBYI`Bt!SPQe!uJpx*Jrsa|JyLQUb zY5NXYI8oS7hU>XmW}M~f_Ht3WRK0>IQo+ntElMz<>7(TF=aEl3NeZK-xl2u|j*w=D z^eN3uIP(M+s8%ziUtFfC44zj&C#3tNC2r+oZ>=)6r8 zArTzS!r|vfpMU6_H6+e`=}SA0wp5s2`Fm(g`}dUp}Kbw3VK+nXV#NJ!{dkR4w7)Rx!$mXE35Af+30^ z=ch|J$cL;S?9E(E)Pp!mk-5k9@!=OE_7rL2>Uq&@;eQcO{aOA1!f;_BzFvgaD-b!b zmdGrdZ(*!)lU$M%PLizd@+nkFw(c^B4(;$m zbs113=zr~9Mm)5`>$(hA;b!^PUH%DcKlCUQiYrH%@rWJeFLQK%*|y6Isx5tfpe{3t z>8dU>9@^*Ih;?_XH5c7T?{CeuK`6~?R}lz`NNLtF(q}7)xheq^aaE@HJkCy0OgTxH zc5LAPr5znUw_Msc+bsSK-2(5hpQ~5mSgdxVw0~A5h}o4OT+?cxK&)cmu-rf|zzXep zK|4nGq8U_-ZMcC5976&W3rA@NIC&Kf5}#}Od=IL@vd0hAXHgAW`;2I4kJtD4K6HZz z9%n*v)i^U6@#B0#VJo-ob4j(O(+|{VMlo&gv!X$rUfbt)!EC%eZ=XYL>G6Z{HlmoW z;(u*LLx)+U@IC598hKb} z2~jB&_w$AJQv>iz)F=4rMS{Xc7!bB&^phwx>TYK!aU+poDC3xcFb64Isvezq1BJ`p zrICI$?e~&=o5WaFDC&v>xz@N+FC42pSbrv4Yhwu;*nRW5*3jVO1Bn+Bga6}gHfr^* zV93X(J848yDx|`Av}sCl9XXlYu^;7R!(N<$6uP(y6=@g0p)f5Q^l>!0YbQsezo3^K z=0&HX#s_cbRW7jAT;r;%=UVN?ufaC*?yjlhUEx)kbRSEiTMc0A?TKHGs~Zj>n14;` zK?D=@@4*t|s%*v+j9Vmwq0V)+G$CR+-l*QYgQe?cnqTC@TDTG^y5$Y5b2KZgz&GXTGEJHQw=Y62IUT7y&}GnpE2fZI+E*SfRB@BzSCWts8v+EoPx zrVBAKkRM;2^Zbg@19x)RrW+7i?QtK_*$U%6d|JYo!%H*9pyZ*X6*k_AX(0GC096+b z{L;Qe9LZ?C715_|&)kX;ThR>a{aF+f6n%Oz8bYn``vOmIPDFl%03IQTC*!ip#)Q--5B>yF zF42r4rs}0hNdb}Zz+mxoXEXD{hHI4sC&q}x^%%r=S+Ou8L(El~m{rTc+H&RE`h3AP ztL5A(S9>OcgF#l38vwAuS$~5o-nQPYn?r-grJxp^L+uDID{j1H^q<*CTiU44slgrR zRIR7}oMNOIXzA8+tg)@31^`Xe86hy)4x> zhmA8s-feSg=dN4;IWbmX@#d45n*Tb;u8z9pbIE+QpDh)1l6AD_X)w?;ko z!S>tb^hRMZFM6dV11)miZ5DtM6)2D!q6n2oz#HtME$Q5K$kh0*UO(|8m4GmIukfU> z&`e7IXGl}1{hw{_!sh;BbE_LLF=9OR*B;pnjNZ*b%Q3Qe|9=Z7Pw+gfKltqQ@$uvL zzx(v$`0>D2%f>U?-onfOt^s;~JS%4NVNRgm-9J6?SjtgL8Kh32T_BJp`k)jd$#)_V zgAx*H-ooZBYI%k{n!E*Zpc0X$&aAb}NV?Q8fD#S|RUVUZ}+(1!-0gs}r%uS=)6a&-m0Uea3|l(j?MB)fj?@*Ifh zokr+VghkSLJ6YTaSN1m&$CNDh6aA(oM+@(HeW|r>iIz5?_Y4IQPGthZq58rrs!sL=VcwD(^WSK;a#?aC@*AdPE#+wGmvb2eu}!Vuj&n;9a?~Y& z+`LcfqtDcTlKR;3d#3(2^bh%t{OuO6y%q<7uCCbHwe_wRf3x0Mj|snhldX1Xzh>AX z9VT6^@PEVkZM^cx9y_QvI$0pln$e%;*X577SYo=Xa6w?}(VY}yx7WUlSb}?_e?M;F zvgS^!*M2=WQm+7Ru?HL<pX6Yf=7>0uB(lJj?> z)XpO$)oYLbN?J{ZF{&RnL7JbOT#m{qDSf7KQv8;#tsRS*zZ^18`wDJI!_`4srN(NP zRHj61PnKfkJ2ny;P7pf%*e@odvYR~b3O#S74A=0DLx9-K0t8zmf9o_scj{CCO6rRq zb$|Nwj4arMa$GcO$7H0MBE__>ul8heefqwg#YV4YkBAm3O zLAMUu3itNY>$T6`BuVtXvRU+OHJ_$D3ca;L(@B`kW#{#IsbVu&Mk!{gM_}7Urz$Kv zuqZ*7-0bb(aZ~5{=gmiPzJHS)dxHKcf?`u4QLD}a;iFJ1^7jxfobQVmzf6>%k)qx~tjY_WB7Q}g z3w};uy7+}+CJmR|QjBP2qr9Qo20N#%rdWjd_$z4hCx{ilVPCNDYzN7rKJ&x80)ORt z!LO%^>&EC4$)xiAsRf;5G`Fa{*EpW@)V`tw#(VfX+SDf{`ODLLVNWkT56=V zx(t$b){=O9IVq?7&bs0}ELpD3GJo*ya&|d|SiwM=?OD8)!yV?LW*k1wts_ekK8ZXx z0$u>wZM~hu*NM#t0+~z*{mxo$Jk2kQ%DsA)FJVPK@<){OPZ9;DjF<6hie*U8Pev;u zA*1-D&M8{SURtVU7{at3)cXBxKE>I!r=r1!L2r`=e!u#U(1OyyPcwVO>3`F2eL%U@ zb9-C>PxE7s9(>6+aoL5&T!i&%zba6gKXFS~j5}@Id~9w1REYUrD|v6H1_;OH>9>+j zkyV;83MNg7PV~}aUO3lP61^`e-ig6`pF>WKG66>=gI3a!YMoRe=svlI0bOaI_Ah~f z;e*0rjHq4ikKe2<+6GLuWq+kNw=76B^LBkewg{6$`qj+ajU^Qm02>Su`*TQbfIgsy zO}m%}o=qZ}_P(Li8fNJVmS_%De}En^Y$!GjPch>M$dx$-*Tq zT+$*Dv`OhB!9kJSj)m ztyxJ)Am*>i30^B2^W9|IYBs*P$^iB?Tr=rsAk%ko==;AQrGXljypQpjqCB}UZBlrU z3Q0Vjw*4L z{phAVOs^@#?MVO{MIgZ3>Zjr+PsaI(%1-Gm{=PS!^W}gZ;9P&X!HzJnoV5sK{lZzl zcv;D9SY%9+3tu>Er**jB2e1vvsH}%r1FA2;(ha}fNM1BND7?qTelf+E2?emZa@6)< zyS&bB?|&K1fSi}G#AiH7DsrSk9Mff1WunXl?>dE6J(w`K=D{D)O8pYYT;jN`1mFQB z5FKxE{3Oq+`BWKCq_jLsC(%N08X_S^SWPC-HAeMQFS1MH+h+8;yVN!qL)TSz7 z=Y+5b5>}?g89BZGL^Gi(u7!cJnR1cKon=pQjekK!vk^=PQ+Spm*Jh~Jlmlu2T z!E&g)(Q64oS`bc12#+`~K^pU1|5bDkPhKWaO}$6}K+zWsP~}Tk=1uQK0jc}QaFykS znx4z$#pod4_>VWM5m#1>QT19`EV=cS1HRZ*myWYiWE;hkWx2-kT9Z{isxlk2)C@{g zhJT5n9Bx40SNg9fco_%1t64Q5fy+Ywlbb5(ep2B5vYUMBSi_He%C-lZ?SYF@9Py~` z=jes!N|x3J<5#}MP+^?N!uE>LcAa+5UAla5U$zEiO)jPejki`{;MWs!gliqRpgFD- z0`QF-9w5&U^IZ*W^;HAmZ~E%0*n*xj<$qNg;TElvrpWO@YQ7^c-M~^?bsHV+iQTf% z(#iSv(ADHEQ@meNYGbaN8s@gV$$)`03429#_;XQ#rN_(a7sKz8H{n2we~djTND{Fu z;i>H2Q85{MNUf>Mtl}ltSw*6BEd@r>4)VAXR!MCY`(vwoUeLwh=o%kq6>iewD}Q_h zDl6RI*sOw+n(>tYEqtbXqw=5UK*M6TSXJk(kd$B$LTrE36`Tj!E;s)V-#rW;uc_;2 zs@%E7)zHqmkaaHz&BE|`V+{P=8Xt3Hs=3o-7w{`_St7RY**K<3QB-af7=0!c$H8 z+yYSFcnUR(YzOj3mLLsylDr*Ex&~_jV%nC_+}6v3DCq)Kj|X&+-F%rf~;<+V5&|6NtPz(Nl#SttgrJVIe*tL;x*tS zmk&3qw8iKau&hFlpd>FXzNk*Z zgbAkh`>mAWODo-umht+=WqNecS#Z$R=T2C4KASuN?O8$shMJfR*MGA`Q*(C_K4dKNZ(g?#=`Q%mCIr8*hwF%{VF0H7T^-B%4Hi!>Vh$ z)hHFG$@!IncgAYPB7fhSm7nD`ix@fS1Gx2Od&B@&;SsKAh`*jBFOef;sK|Qm-%!JC zisw7TTyN-7oXdLLT9k-t_sD*+444Ev90us$K;o9SWIV@u)`irkp}j?R@BAwq?DMcE zU;Ko2Mr=W4!=194^~2NUH&lH|yY}M?gioTm;A$V`gV0+`#eW10Nw5qg^zPMO+x)Ed zE@6w?g-QHuC+&24c>6u|Io7^dz7ckh<$)!A3*+g|`euUfn8yZXOjZ^QZno8o+uo46 zkZV(F`idiS__*Q2nj=vbv$x_H+O>$qc0LRPLJe-Po11(mI~n z$!FdEDlFdV{(lMfa6w`Nt-n@j5vhYb)S+=cm;!`+`i!l9%YXIL1me6y(-o9|H>>hz-rYYt zyk&TI`;n)70dTl!bpNA{k*~y0<#aquu1PA>J2wlMUf1q{pKP3yiL}H(*o)+vJ67?# z!1Uf72i(sj%Q@j(!Q#Cr=hLNMT8dageb@xo*nADq;O~DPuX->iNhZG;Z}V?<-Dpt6D^SW_ZNu8 zbWRaoxKHv>#MGPG1x=1&YPpBJluK@baYwYe$@8a_jsoua%glL29|y*mCcK&Wfc#a?(}kD4P#RUr_Nd+a9glARJ;FFBcD z)iZchJF4_(1jS`IYz;+xi5dCl`z4cycktr(_Wbe`cxP4k{T* zWs@Wuxydwss3 zCDAq+sAriXy6(rkK$v#z;<2`(*KliPu6aP~Pk0ceyj!FiZJyG~qnK9y%Gq3h3V&IX zaflu5LqKgW?gQ?-yk6GPl{NI902`F=2pa*5G9Dh8S^dg^1zdmGQB30)Ai`(O= zktV}A;VJXKPuer9b;UI*NcqdqhcSu*;$P#`4fi7EP;mig_w!kD<*uAei|PreFs$JL zOmnfpS0+FjA?un_fcmIxb`!OFc7J*w_7gJ*uRY@XAT$EpV=LaIQ3WNphtFaGYQX$IHQOK$UUgyjw_1JJY2Uimb-RId3K!jT%~dPgn`JoHn17_%&u|Um z+ECIc<(QDed)@PF7B|!Tf@Y&}p41nh3?m9S>1cxi6=5rfa;VUGi6obI+@D~zasFdI zmP-h1*z9~tBBVpxM+Saf0>E-=cT3e(NhiiY!Yc3AhJ4o>@&c+Cu(kUoyThP6`1@hn z%iHg?2^tooQI2n?j~8@#Zhx4ROoKTsd*!GdBW@+k2**%Kbnuf2tPH>wXJ{5ZU+63A zSIZaUm%DPV;>PpjG0vTnqoe-nhC~q^l%P}j4F$D4c|RUxY+coY21$LwbRI6LSy!T& zK_jt>?0yS^Tasd__}YQR*74F)S-(qDrhE6g-f>wjrNilWT!>WbVi z%FuAdjmRJD9s6%HHSA}Q_#ciULo1`tiiV* zRphwF^N1SJ(ug8l>RjGuI z31_Iw5e$Hno7*4LqXUSwOqaE=5m1N%4gG;oUsFnx5hD@5Swv z8w6kE3!dciiwxZS&ECS0JiD06Liipr3zGB(o99~eSc42EYsAZHQ;oLZY%c= ztOGwa6u>WN;`YuM;uRJ*WSL|sJUG@t@EbZuSW6F2br(6T-)?~k*W}NKdE^}C;qO6> zJg?k++c}`E=ZLe?TTrfxru4Rn#viL!pv+oXPi&7*#xEXg_9?zZoeQo ze1~Uj2Q04YrGKOPxo0gZ3L2Zi6L7O?sgO zSwWB4V!*7dLJGAy9%Wk|#^c&2T`f-abqZQbk-QgR(|)5ynLQ_CgC(xte-BUw*=v$^ ze!gMaXcLQx^T?CIwz4avP*hhKqcN)K?6VW(7E5%aO|`2!L<_RFFP20uy#ftp}k=O8yF}idK8(y<9tKJE)he{tNnUv53_qwdzd{Mwf!2k zLDu+c{Y^#Uv^N)hn8F|&@j8-=H!2G*wh2}7Ao}X192Z@YTEgu*Y=A7l)I9NFp;!eW z8yg#@t)6Xe9U03ySA0Y4V{8$&gDV)#Mpu4Qtbb&5adrgn^{mziTqaH>xU#ZS5!p|& zZ=_WyuK3ow@`S9hk1B-5cGYq-YV)L8sSjXx-iAn?y3(8CDx!-qFl_Nywz}dQW30m$ zH3GtMHLmPKI#rMPw2nRLlMKMCQUj(;B63+&06kv2$G5)@SynZi^zJ71x1onGz z6n{o?u)ld0_TzXsh~(j5^E@1QJk(I_>3LO5O$2i#&&2ey+eE!5_8y-jymfSWKQVlo ztHQO=R`p^1s;B5{DOx(%-dK|EDG<^ci+B0glHhofx-JP%1jLhPpbV*c<+bb!x=p|7 z-0er{^@iXnn#=&dw=?1VsWs69sotE9iGKwsul)R+?^NT+H?!Z-1w;}Epuw4`+!`lg z0XCF#HZwbn_EIeC(&GI5EM>ANuILJ9! zIuzUd_Dee3O1^*=(UuBU2u@KGFC?_c4UCvGUC6d*7cO|412Gg|NE>C}O9j`ri+^jN z2)x$zB6rK6TK6a`j-_Hy!neGq2+(!=`q3Pmk<%M_Lle^o#g=(DTKTSy)_{-I`d;5$ z7BTvO3N0@-W1p{|PMV@uf^d56NVdyBgH`k7_8R4z9$*x}sbKP?OUvkkTg64G&-jPm#MfO_ za&CtOKyTvE13GJx7)_wgHTb0*eZ~=5q0nU}uhu=#&RTpUAcs z$`I^%y-vd3Rtt9pG%|e^_Fm{k&d<>6=5O?|dxNJt`;M}LK*8WVE4c)A_wQ%RUP#pFK&he?8Q!{lHa(v@(x==e5-MpFKaq8#H7~0| zrAQgGv?$Yadp&_g@OlF7){mZjq^Hzik$90(AWpu}pd5^uMY>Bjh*K-l%(epQ^gE!N zY-rRh>23Q>Frz1&y?@F+tjl=CMn0pMX000d=W;WH(|KtANoe`*ZoMvBTOEOwk=h7U2W6Dj$ZwUj=HxUfJON- zjVGV%zw^o3c)qhx&3*kDgM=xBb?`B+yCAv6$0XH*t464TJWmDa+({8`l00tEUGHC0_`o^ zEK00FW*Lb;yBF?u^l+_PHHc17`~XGr9m)*G{&Y{XtLqttm{Cwh@pWCr-!4mbNr(;4 zLVrL$gCxGri!7PWClXe&3R5Xg(cJJI5IyfHJDY9z6y%hLAV`_CuW1(>V)SBt9rgxP zy+FOJAEiv-1*CNhPccZ5ethg6!)UasJ*sWYEnw&#^Oq?bboQN z#aX?y*oV3EVeXn>e)VDGp5yulM+}dvda#362ferr7ZlTd#N5cx>RhozNr2N}Q8M7l zu9gB<=Yk$EJ}&?XNXKOt z)Wdwxt`gtgl*UNZ9zE8~!ad&%2#&=rFUL>}0lFhQ}?m`#wX+S#8n;MjEo{y`WKK0Q! z&&XFSUH<858&1}To^D3{wT! za=upVG~#T4L$N_%^2b}oH@^|qyree^dy}Xt&VSBH*P{zM@>)0DbiAo0Bt>D^t*Fm`R=$L}i8)0KU7cd;uQwL$pIU2AH2*e$2sSUYvk; zr5eYSjE?n3Qw2brS$|?N{UgSO`HUPO4;~&oIO+|#hap33_sT;2xo=;>pL^`Ya>`hYmBY7Ra;`s6(|>?P-27Xc49q~i_4?try9Sxu2- zOtM4|@lE>_p`aBer#XVz1wz-WiC?$jdWr{C#F*@QMC*e>aDO;+3R_>qz7C!qU*rXh zSzOIb3*hUVpF+u?oJEto0oNuT`{;$zGWWZQVJKc&V1cMY%-_h`hpUQT|3s{S0HvZW z6?ZcP2$A*FpgMPrbv`I-~(mnCouY>b6(x={b9j9coBDnsh+7}j?9 zaP=w%^+y0QMmITmqM7i^{Py*4=1yCArpH=%S7dg(CB_GLDHZk}8+cPa&M`CNqT>(qU0uwxWu5u)dVcPHQ<EIUjuw6HC7(#-mzLEd$7{XxBFxk09pw%W`z9mu=t}F=%ILJGPcze?4gozRGLFo675-y!kUN;WU$u+Dq4IbC41%GBBp^Uq;d|+}8a_9<0*0Ddkncmz^ zvSl@?ONc`6`fvz+n9fsoqdjbqBJlZbM(5FOx31Hd@<%T^BV1HJ@iCbe<=Q&Q^ahh~ zCl5mh`L;6_LJP&Wc!8=czbKZ^CZ-s^Ya!Z%7r>YKRYviiT@kYdfp=USsfrP)@6^1C zmVcj{x3N5&v@~a~-7K==63Lksf&z%u3*W*e`NgzJr^+RH;b{&#*SEX^Pm>EUl;`g9 zfSW=D>n1IJ#6HUx-%oEkcnRGs3o_7NVPd-&>C|bB>fn3n=F@`dQ)XKlEw`1?^6~q`>!0QsuvVxYOvw!p~vs&JNo*QbUP=sJafaDYnC(|iX-Xm8#pcv=Y)yODiktnx3au z^5`d>zW}|T`OE`QAfYP?=x<#LEZg$Kmq=I0FNuOaM4(^NagAIxZ( zjOpp{I}~+pk-&@{$R7M(o21BLY$1ibj(JJbU*a1BjlzDD2M9%wzjMa{`>nF2*AgIY z;hVw+sicgtQzE28&Fdh+{C9_F-qIi{ACm%y21F+;xt)rPb*kdAwTxGCw||QkyuXKI z`d+t?E{}^Ew(E!HdySBSHdP^P3l+wsdr+1EP~0YHIbn>HGYQQ{#m%6iYfD)1s>udh zh0)sees)C7;0=qFEN6_AniIcfJd{g?O2`=#94fZ7ZjuNb3Je!`3PwI<*eja_^YQJ? z@j04(AM-<_>Zn*%%D+W&K7WNJ#CI-xSzNB2gkkX;%lPl)sOS%Re4V6LbaI{kJh%LS zTW7!cgwU_%MeWJrB=N5sXw%Adn&C_3Ivt=^3u|!}foQS%N6$btLQJ)^BNUy6ohH9E z6qnt+&1;cLhx2+5)gATm87r}+k@3)O{x{iB>&k`H++Jh8tcuAxpnpze{<;ayi4uuZ z zoQYms0WT2Bcd3;REh{s+8ghSeL^E(Fxx(YnV6vxo*BJ4taL&1v-h^FI=MZEAc~;#E z1fr5C7I9(Hx>o#PCVYmwk71~^#%W*)3d0=$qdeY}!gPVdK~Nb(L2%wjYWKJBr<4pM z(s*DL{o^Be6y)%sG1;Lk)-k<`TB*@$18n! zGsNeb2%8DsDS@fVt{Z2cYjp65B)>Z)-|zx73ap_9hb+E{S>bj~(2?PX zm1s#tF?>oGMWSsml8=8vis)XXF4u|Yr1C@(R}dsc zUTZzLaC48pcki4G4?**jF#Nu}zE->Dl_YIuL;WbXM=6lSpmf?p)r)Q5D#apYRH<0DcWj9}rEyI~Vo5S8L=qd-#~R9GUDdI^;xL`3 z$*M4_tn!zrIoPMS4dhE+0h6e4EH>!JOXdnx6gGNnq6S0ad%Q zQ3CVx(xx#jLuD80Cij;lbHohZvV4&)?#QoCAsqF@pU8irQnP|9OL=^#fd}s{-wrBw zDu*k57g+R`I`sI91X_3cBsqQm32zoW-%!~Tc5So~`=I0(EIR`KkB9hA$3sLo_vC#9 z#)*FHQ^%T5GlT z{ur2x=jMNzp7bier5Q*cXs|Iw9-Fv#L~@yDq!*QK_i+wtG)a3U7d!Rs@wZ77Y4stk zRaHRQRoRLoOo+n!Su6ZU_uWP*J;t?iGv#r&QR=qgR2u80pq^~5zTyCG)tBe#Ak1GJ zSTRn!vH^z3oBdHFw0ivr0lg6+W>TZpcMSPjO`v~fTRhM$HPlMBdMYd?7En~bZ&rwS z9aAa$V7fS)W$jHYEIJ{x-*ZO5c$qX1=7PgeRJ0A9nvxT~T>$qT%m1w$%UB}WQqn4z zPco{pT_G06SuY8*T5L4!C=j5XRhMrx@^}<=b3N@#ufxmdG`)C)e>ta9Ko2>J`E*YQ)1uWK2a>t7(Fn}6>gm9q8yiK=1< z)#Jv!Qy8uwWCnw&<>DY$T5Nw*IxZNbK-HeDJ{&GkO05mMR;~rZt~I;WvC#+oa4{wV z=g9<;6phYqn0Ubdayy;Tbe_65`)M?xaLw}h1rKl<0O^d3M;K>kfbk*+g^Ry&@ytI_ z1YnRlMKB?+{R9p|z>i;&ISy;PI9Fn-&IFZ_WWQ_@FwNvuQlCod1m1s?ky!34w&k*k z8@FEXvX|gkCg`1&;q$?v=K0qZggQjEb%@q%vB(z~rZ6zr;}t; zY!x34!6>O&CQ!LcB`E_Uz~BD*?$cu(W=ET9@*ODKPm{Uf(R6sOB-j}#9Y z^08Fl7V48?mlO@W6`rJr+Q1Q-H)>+UfGl3UO)*Xln4Dc zxX}%3)Xc&K+scNa%pSr~Q0nz?4x(hjw|&+8$)LK+*WYndh>A~&pjV$gRN5M=q&V2 zr`KW8`~)@z`ODooSgO~^w)^5jQomkC5xN;{|A>g8?Pq^;D=ekRT=Wtb<3nZUp1cs6 zE$Zt4RY-?;8|MD&95aT*_pYn`DclpE&@VOj$Zjowurynz3 z&qy05Zm~?y6$Q85<|noWaI9;-;m^SgbW(J+=IR&kLamxvh3y*B2UbDZeE$X@VgBof z_R?In|NMU&JOK@A*l9_-&*g3)C-|z<>r|rnLD-=~3oZ2}@yX4uSGAc?TwNW3fr;p@ z0QOy^7aUqvog%{cv+RDxn3^=U}}o z?bhV?pkUb7I!dQdzk9lWc=XwcJB%v1I54H#Z6JSpr?$a5hP8Ho4I?$IF0Ri@i8keC zw@oRlS5XPPfX^+-iyVb_5uQ=9wpd3gTQGnXkSl>^2l*{|l3u9L--QqOn<58`RftYN&z@Z>x~nVH+1h%SVvAv1ngkX8i7=~*mt*7N6A&EGnfWm(kp1K!oF*p6mEp9)icNmsQRyATRK*0I# z8KM9xIQy}(#Gy)M&ZJRmH)OhXwVfUx9>1PUr7pK&flwLu^__QHRtY!;D+1S>52LSwYbqo+{gVpo*_1Ma<&{ zq)I^46^ntp^h1lHd=W?$<$IsC5^7&du>EZn#)lo=so=dJHkkErfOvG-r%D%C{WP7B z*;$b!DY{hWWsh)e>7)51`=xqnqThe9$hI1ndan4_Wvt(7sE{XVWN}C&i`xU!i&8ut zSJiN0sIhL-0C4)#u=v!07VH&`z%MV31f=RLaUlU6UNrqY1$mie0CeN-9i$*)8iSTb zL~A`Ef%&>xqWJoSY6=`E@Gp{4BtbN#pPjg(oR?=b6hTr?wPfz*W6_-b^iJ({5( zN!%MMmA$5|@O7~K&+6Dgb~t}}{L#^YyVEag2q5Iy`O|zhJpM#;?7c z9Om%|6!^vU{3%y@8`+3-p6Ij{g}O)pPwiBoM7NkQ=w({f6Av5vf`&Vtc)>e z00h#7ObMk5ar}LDN3-pGB7v4*3QV#^xrYZ$oqDkU*}?wFXD8K;jbVTOhWfin6!79^ z<$!YJEWJHTi(8BZr9(Y7Fhj1wm=@*mq@!~R()u}_-;_i{gY%@04i=MH8*pV3tLd|$ z>-_Z?YsXU8;czhO@zTcfLaEYem=dqOMlIN%2f*ANpEhi zrls$!0Kw7k_p%vu=&yg5(;rJ|w-boPN;Tob{QFyccd?YRNQ-$sNf!s%97WsD_%tmp zf6RX>e!MGZ-dz*C|5;i36HQ8KP4$g zhfCxdH)X*!dP+)?llvW<3Dd=$>^K1TzI^ZalM?${Ql!;cLXsDzSi)}cVQBJzm(F5S z;z2&k7u_#lg3h*He|H8-f|rI&KO=g2JBN848ezV*C8mE~$<`KC+vM`Uw#dI-(L^po z-kVh<#k3ThM%qp<_=$y%{u3_?CyB^Os_-^^$*7b{q!=!s8ISGtu9RHW*~o+-($12c z2X*zUuZG*mJnc6$(Q&>X*F@?2{@X1MM8W{59R z@@EzR(QAJ!dH z@B>Y62?C)}V;8N7x%Q0uLIW|0{YZ$c{M;t1UESq>UeM7mh5FW9%RUsX>3ms~~=}wf*jEU6G!cZe7KdisZJp z9xxFDp!%o%X5|Y%@#|$J-x@Z$|BDTxw0LJeSE?!5!VZ}S9U(Yck<}@)Q0#QYSu146 zMm;5Zm=$kgV>J%chc>FYw=h#@c>U5oGhFZu4*la-DebX0!zrFpWB|Qz=b-=sHALJx zzC3@griESknjLyv-ejJ?7u52?cfW%$TXVH~%4piLW^Tx~S{vq{Y<8Aop#BY8Tq>`) zgVr^-0i(}HZ*iX%2BP~hm*SAh7CVq&vcgLRTKlI5t-7d?+G&n^C1NWp%;V29_&+!s z@PZ%{wI&(ut<`|CCzF0(w9Cl4zicJ1)MS6%)o1-$Qyq+?@AIFWJSw3kxm^o;Jb#ZJ zXbOmXxNVYaE4g-4*4Eo8qk_tO@v`MBAbcOG)?0 zP(;z;83G_Snx!CY#x-n(dpMP1pJuNxzUn_RWH*j)INeMqy9$TOxgN!T`+RbOUV?u~ z{xe>!LoP$HVfdlxiEM;U3o&z^PXOs+dGYH{(!Zh*yvM=^-QGFrgH}hS0blJ_#u237 zUfRWfEg5-iZQKkl8P-19SE_L?F`*@ieOIr=TjfMJ6XCsONaX8*RLf9x#dMO%ZAOO) zwU@xX&zCc~7=}J-Q88xNDF-~U&y#=qe}pXAWZII@)JBjsRyMI1$}1g(4k-8aB7Pns z@o;k41siQtruT2ak%^u6d_sb|4wsbAq@&gaS0=NFN3)n29A8nKJVcNQvJfA_()Yc>9n+AcZOl}c(#8CG9PA? zA@gFavdBkRw_=|TwH}A?4&eG*4S}U6Ruo1bvGE{9TV|s{0F&wt7^l-8>&2BE{sRuQ zH-G!Ob=Ug#&B69yFx>9$j&}OngWa9Z*R5Y5_0{pXKkiZ*a<4~iLI}R%CH~Fk z2wsz63~R6zdz7O{d8hRrayRbpjK(`lb}f54Q4SgPI4!o&t^c`r9fCzQ764&LC7J&@%SqOnC%CycEbXk9tby zgGHs%FXQd)fwEBR?Cp7+4ff3L_NccUf~AIz27@Zt(11agIH-OZYI~ z{VBtb>fuKQez0v=E%1MPd%ieIR~ezuW{=D8+eb`3lP11q;y0Ax(> z)U%*JGzfZO1lubp*tQg?PBJ5BQ0Bp3ucRsbShIk*|irSc&|U+t(g}_CFtQ`N3}&6dQeyQ*f47+ z*j!LS0c$`xtO~+#SgYKuiibM;z3pJHj+J*(XSiR1AEADQk?W~=17@uz=~34-5?bbqXm!bQn9|amZh*HD$leT-WWPhm1y`tUYGW2*a#I@dN zTaE6(7*(E|x`pTCQoA=hMzKye*w=g8K0H_> zfYooa^tOTDQ#-yaX=-PTyisf0uTzX^zrz15!B*|8E(w_Q=IO2JUb?9`AZ>1KW-LI-Kl}TLo4VQGs#&V}S#m z34MPF_DT|9Rkt*BCFpUmS&c^K?@`P&-RY}w|N@)Gyg@zB-kL7G;R7o z4DlF`iKk$I5HE!`V-;OHnhqF<|D8KK*URPX#_d`Lh!6CAZG3mWm(S<3osL{w_XZr5 z9l0_i_Y-y+LLPT{N>Zt^P&OAkYRazleAs^>3;d=@#$%JZ9FDYo*}@W?eVoy|Tn*HV zS|RXQqvH%r54$}za3%W4;hfnP<}=B>SW}Vgqm7e1>8R!VQ2UJB(O{U7K?nUIJATsh z4%pGSs~r$(?>yxC1Mh$xjYd6%JWfXbp8Iuf$AfNjv=4^~d;Vzb9kDQ8lRkCW9dduJ zJ?wi2D)8DggT_ z!!12_rT_E?VsuzXs`6BOdFLX3Yl)&RIZ#;E} zTY?evosOFBKL9OqDAU2{5wgoMyj_2<10bO!8w|Gu=~M<1QJJ;asT9nw)^Wmm;h0h@ z_7AgdY8^r8i+d;Zak9lHvWDo~JB!|~)*}abxYxR04HMQaBURhNT$f8*Lw^l3>yF2I z>%NcWGNS3PVd5fM*Odk)lG4+@zlPcGW@+=p0>oiI0y845%dW~ zcZaG6L(MTOTi_3c>sx%->(a`0t2^yG3a=Rl3cZ}_3tNvigS5x!{cYW6Qv9An<%1EI zeV=4Y&RzoFs}M1Qlus`)VJ?Hy3!Z9PTEotIPHf0Teb~J^b~@&`Q|lYb&Fz(l5zO^2 z>_L`f?Ue|S+ue7Ta^Hs?KG1*Xpf}>KvNTCU&OkstS8NzCtBERmxYb-M(+}$S!;k_V zvYkmI6aRyLz?PX6n*pW#)c;cq8~Lt;eTwjX82iJ4mTfpt+soRpsQ)CX4Vtlc>#A2n z8pC2xON70lql$!20eE{P=yr{~%$u0YNF64JF0yJ5@b?+Wju^ z8j^jM@sOSZ^J?oUOVX5QaaDn1Y*^9iqe+khcDcf$CoIO!#xCrBk5>+3HTD>LoFt3{ z!@-A?i7xx8azMyK{NjHOYS=Ij^N?fgEqxDb*jd-rcNgT?c;U#mzQrkT2W5Ff*g!jgv>u2 zb@BI~NwHHYHhI>QRO!t-iS}6v!qTam>U}ZDMicMcnAWgi9l?KgWNgT;eD2<>WA}%B zjSV%DqvkkMvnFJkrF`%DW{F0s?K_ch<|8BNZcr%2n5Re3oOx z&!O1`Hjb%EdIq0RWi5i8q~P%}R0D{(kVugB`vl`(9$Dv1@n0dNZ(U2=n8_FE6J7*#v_hVxKIIwXo5 zXHJeY9c0+j0^hA|FoW_Fx2=J5Z|=HYFpEc{7$zekR?~DB#>E?DljuCDn3B}{~BPfWU@_snu!wORw z+G(xvsONvchde&)dxJJ(C(0$T=6vc=yE7l}F7~&~!QPf_dxmVq`KX9F@OGhyC zjany8#O|~GYuMc}uQ|MRTS!WKsiUBm@aa!|6os)(6+)L2yD2+rUyne-#(ipLk+FM2 zPB`@lBy21?I!d8%n$XAjQ0m;t`EbOXA9nm=pS6GJQ17$H=5-o4bGpZ%rwr^gG2VS) zeKP*2uhh&&7Wh3UJ{+hBxj=_vJIxIBnyq}mt2 zq)-uV-ED!hlLK+$o3YuXx_HId5Xafcne(Kdv|fb*&NC-AUTE|r%LAdcVNF?3tRA*5 zOc8&{&G2Y=;A0xl)kvO~Bu3%5=1}eVO+jQExPc#6EGHyoU3JymPLj9$`bslq#iD-|*NS zJ9>5OWbEpDH16qx8O(6f9lOq5Lw@85)0ux1mwiZxd$dcK&?gXg^*JCh-MZ}!*strl z?e&#qoZ5v;fG+%Dk_K!o1KWMzkM)~u$xbpUEzcW5T2}m%j1u{V`+c^QGngy;U7eeE z$B?_WUJU{4!PtonCp242V%Y$)HgU$0urp4&)!Le|p>xM(X9_2f+mD$8c2e7&tYLq{ zh0ykUU6^4AWeqnBANVpQs(4iIYB*Fu!EKpZ<)K^0@9H5Y)FO|al3IF0rBt_35;-Fg zJ`BB(>sLlvZB$$_J#7g~{Ak2JYv|D!@AEn4hCZA~Xg$3F*u5Tu)v)1P>qrA^aRZsL zVOj5;m%!C}E~E?&^Rx~yz#b=E*BpP5j@pxOz!rYM*#2vmL#b-kO1r8LFixS*R2-q_ zJ~JK=YQPGKGpEE531=+^Wv`J6 z`_tXDCIOZ)I^HTXBgq2@d<|}_#w8=fg}B?$j5LA8{4oGGRO5g5g&zN_LIFQv)ch?0?lUrf%hx?p6ZI`yxBtkDgmwMY zO!JpmBu2nb&iJ~B8;l<4=V#nnsDAb(ND1_-F}o>&f0QOj4b+KJ!@fUI!#a@qFn`iFXvk^83M>;&aP(12bHRkr_I` z&@R$(jj;n8oC#N|ZWTDd@C+Sfd z=|=0~xW2O$$xJZ%|d2oscs8_19pyh$>)j2t@kwnSUT z2!I5o+y*i%-EI&i@s5*b({J%h+39hMX$??V{$)Ue(yu1bxMJqu$(NC7Cm8_2=Eb!61F7s zb)$4~oF$sP{I2vRTDN?Rb;J<$11wkuUINAa9fMD z88R&KXZWD>-%UQQF?jH$K#ephK0x#kU)aD0E)JX>2;q;kP^e%2Yp6%GZFh|tWYD^y z1|PC`aFc(J>kJ-x8Br%)DLz2-0N1F&hpj4{9Z2Div%cW_WliO9%XYUQxUfPlK?l`v zU8Lg;V+XI?GT}p6n{5yli@?xP@3c`qXeoW#9bs#SQ*9JkyglY3MumHM^kCCb-N1**q|&*V1(pR zzAj?P=%I5dNxU*ckP-siMqq?xRGvw#*#d z4Ge$P7W*5RFvA8_Dj>)JD{G?h zhMfc1S;|-`wnaoTNSKIiX4Yg`$bAisY}r%yhBNpI$8zC>99=oMx|x-5oPP@EYv|a2 zX%6mRynXfdTUVDKe-usTd5N+hLS+6rKRlvuG>MXYZry+PypCdvT- z1z?=ASd`0E8Rfs^vw8l*ys$jKxBRvErC7z$!}30wJv0`JsS|Dg+rbe=O6l%hgY|3vOiU)NfJg`zyuTo(;$X_?=1TG2aM+A zH|#V&JTxLhU?@;wp%GtxxS!2Ugole$f8qr&)pZBMby--D6S#q9gLG-e&kqF#lhv&F z#o^f7^z&}9CUpSW67*v=am9bw^-z^ZbBOiP=^De&8L-)8huHQ_c&Tr~`~0KJE0ZmJ zrlvhN!XakCeWpgms8x_PQ*^(WRRMgqun{v~uOW>6zFc6OT7d@NdE>3<$JO%wF19Mk z7gopC2ezr$^!;Z^xdu;hpF^)FwvqjXekp&@(&QH=`^pzT z7LmCK2~VqV@CM9CYlBPSnh9H4m0ZArxts~YVH$x`QNAiHJI2>77tA@k3+4@~*DhOrd6L5yj| zUVOcUCKfA2eFR$f4}Y3{y!+ zDeY&&ij7t)!kY!oqIc#v)*)(}C89J*XprGdl{3xOA>J`P*T*xO2{>uTL{=3h>h_w1 zDG|cyV>iX3T3B(~eS%o7-FhhA|KCR6{@@6)<0ky7v zG;=)W3=`B!F*WZ|V9SVJn&ZA6^CR))4U=c-6jtO{a`Cu`iX3<<3wqxJWHK^8kFau8 zPYV~zwax3KGnF_6LBrZY&5PX37r6<77IFn)X)5bSuTw^B%0Sj!QeJv@$y|K6ySdokoUacG8HB)#CAc7-T zP{9W$W{$OV^bn{Qo#b0UWFNNP$L$9j3x?X!$AV4N+(PjyLS(D0qmpcKgQLg4DP+^f z8PGD7)T-WF^DX+gX;V%nAJpl*(yXYh0IngrWAb5<3h<^|X z?P!1G&n@y6ABc9nmBaew;*WMifR5h|kr_Q*-iAnQq}um(X1 zoTHE+tCFy)6STSap?Uv8#W3 z?G)kc+X}@naK#Ao^=&xb@b+r8T*bhrb2;DXbj&FV;aHzdZVIe7pk#UlWV#KMP`c1X zG0z{aX18{gGR1GmS6Kk%so8k_HJ=%qRy(lZ!5tT&Pm4QH!X>_7;+K4G*F5G?G^1xs z7b~ffCiZj#yT!$#LMx{8hsP{{NMV1cEMnYX(m(kSGHd6Y$tWmE6+qW~8ArP+a1w~E*GM!Byzm^*EJg#5`oFTJ0T*@ype|u$CzWv**grq_~@64v(N3TX%V*gZLV(B?;ZqX{I zVe&tc!vr9IvMgsfh`uN$y(SU!l4No_?W_V-yPZYHMi(Pg_5#Gy=yW?@o!_FDxL4V5 z_FWpi$i$;oS`R*254+R)UD2Wjq*bSM7JU~boh*7e>VjoS9qdXFoP6nhO|PCiOK0p(jD*!`XZZWt+5fi`x%kgc*d{zOwoU5xBGqB9*RA`~geW+JY|$AM zelcx(lZIlin=X{M_a;gfcM_gfjZD0lm;B9~M@J9%p?FyG@dW8GX2CI^!?`@jFQw<~ z!sw&D#-#e%ZTO4)$RB_3Zw}YaUTGW|eJtUf8!-%uUtwn_x`8bjI*g-NX3+weDTtw}e&8>lJR&aHMA>Ohy$a)QqneLErF{6vDJ$mu%ZPuHLp=QjdFXv^l;b}1 z(BV$JE-8Eu0Xz#Y_8a`K`e?t4eJH(|+`6TOps!(rp&U%kzqutT8iGzzYNyu)6u2ve zod@nr89U>Vg1hCy9)W?(jE~(`uyWJ3Rk7_`x6Y$+c&?#!@3wfIZ-;gJnT&t= zhHGmt#~MI3nujTu7t;=y?c2Yxlw|vsFq0479Nuj!n%DLn2V3WoSG`fpb)Ie#N4+G{ z1^Jdbyc*2H4cZ*s_Op99X|o{kDd0ufS`BAizhE5*;I@DIyw-+^s4{Zxr=ix0yRq{n^dnMo0tv$yRcTrkJdjDvs zPf?zFOTXW1U{D*(fyI`nVh&C|xtPdAu$TzEvzVW`Pg4H9VyXk5!PZ3J5HV3VPc9}h z5iBMG?<9Zb-@MCq92M#1pG!x!`do8$TYnQzF7kEGm1oE5lWWhsmR1xxyjQ{DmqEZJ z$h^2g?ID4A*k<#E7R3S>>&@bUb5Fv}EAK-PvxdCh_l6_SQ6k8RLc$xpk{|Abt8Q#yK!G~l z(r%Mq=K{j|9m{TJS^(?Du2hBGtD)y-38=1TC_ib+%&6P{d|Ua7(6``z;wS;r4NoiF zRAquA>yS-%zBGnDm3^^yYgLg$u9rLNDr)M<=Lr&tZC^#(kjf@XDljXzVY#HDwf{Js z=f!`h%g9P4c*nuaVPX0RGv_fzaTMmCjd8s*fp+_1=`?axqh;Pp1yQ=-zb;A$o8`^& zem=ET=O2nx`B^55??>1@TSoVMB(`rBqY6c$OP{O{eqXeh0yHG}WH)Z+J zG;0ai0a><3(a74^`CU1Ey%|l**HyM9)y<(-wCj@58 zDxEwttkP}diLL0Hm)XphSWV-ufMQwZKLTGR?y%m$NjAEe?CawK!R&!I>_%vxl)flT ziJvvJMal2F2?IK^K|^Z=CLj)tCUK@_mPrnf;(j%&$tZ4=H}nhchx@TOsNjF|^6oB3 z*NC(s1&kuP0s?9R29k_BkN}iKhbu3y&8fcWOE=32MT%JopMJhCO4sdh*~N(^4;c`U zmySj+N@6Rs*Fg^$QXZl~Lhjc=9PJTy7ljqv%?M%3OG%i=PvOU`KfSvA=v^I=3Fgu7 z9wC9Zbju#720x#wRh~gZW?p}H2u2{+;8#ddO~yG(G+)Fa_}nef!k=wI%Xe`_6Y*Q_ zvRfH^qiD-TYv{&##X82T(%0X=2P&AX;j6q-eees|GO~AgN8Yx`Th}(B=HHjMzoHHg zQFS!?LWr>&hm>yACktp4+t$8KVs0>`Wuy3A`&o%YdMe+krLqJ69c6zK)42gnjb_uC z#dX~@)|ZR{*?*-M8l5NEy(+H31ZYiGB)KzLg{0?Z(aBxKOy{syYmrQSD2r3hHSIDh zdM~xUg(`MV)pUJ|;h5{EuBrAE0&v?7E8xjMB~y+-v(g@!WYIXcPG0C$4ppCK;>U4C zNo;3F^Ey;xz6V?#_`ZJuc;3JyRY_&(iBDu1d+DrZHc*=+_&2Cdc#V40s=zwzxyF}! zw}(-pmGM|w)T(l&oX-6V%NVI=t14`3DPuaUf^Q8sHaU ztD)=*_F7)sNw1jO)yw3P=v46Iy41bpHWd6<#47)7Ffa01IJjM%BK0c|z@DOlmibt6-f%~>p^E{#$2H^ajVc;91 z@=Q{IDNz>(x=dB27F={S4@}ur7G3T06Oo5mATGGtr()O9JaX?|>H@U7jf`aVO=dzD z7F0pQ_8hC=;jDl8tG9ZX{T_A-xv(+Mnh({IK{o#v*A2DIRmkdGJP3$q?aIKZNdGE9 zfc(E#}2$1Xz_Cw568nf4r~%wn?~aEHNzrW;N5Z4W6`)xmzL1y0Ps z?5Q1T;-H~HufudpR!4Sw6#bp&^V!8*gm+U;DkQ=vv{TKe`1QCwE(RrD;EgB!O6s&`r~zw*rjd67cbg#^(NM-0#Hi>1eZSU0veYfbON#oFLi_o3uOQR(zhRe0#OEkgyy!gTnVQw z??>=IZyyr|`pM|;p8p@)e|s&tQ%qNn&+DVT+xFzKSMP3D*N4YX{m$L2AMQ8xR5*T8 zZ4btLd(6xa|GGUS7UJNqYWr7t@K=5Gmu9wq^#^~oZQvdJ)ouUE5B}=6e?9C2XWKs? zc7kueoILCW-+n!54*$G={eJSWcYON=)nP~Y_8Y2aJ=uOmr4IjW+hef7A5S+{y#X9O zrrmx&e%Q6`*E{UN_RAf9xMZjvpVnXMb%6 z?&!EZ8_n%EqX4%;)BY==!e8_jmuo_%`z^~AGC*?vLwtS8%luPEH$AcIes`LW4b z93cGmkL^o1eCO@>9uCj;70AP1cl+Bs44d`^9DcU_{)gkU{rc+gvyZ>cXTOMch=*U+ z;7N0T+IyS{->=)$@nfpFo&I+z=!1WJ%lA0*x&B1Gp!)sQ_4+UMTIBn~Y4pJH^N&Aw z|4lu_Kd$b68SKJ;?gMY-z8k%N{eJyE`1IqyzZFB@;Tza@_~yxWZZn9uJh=8ac<%Ve z4u`h~u$`rCy8XIdFtu;sFijbo9XZnH;SaW!o1%l(=|K_1K_9v&>SfXUt9PsW$HxvU z7zUqPUA?{Ejq%Zs9PeWHoep2ilTV1yCk}U7yPiDz@Y4@}^8Xzg$)ViS!TWjK%5QVP z&&IV$j?^RHe)8XLSMM*ryS=?z52llQJ!-%431ag}AAj7e-W?9{c=$qI$#kJU9Jqrq zd;e@!eNxyn_+0(T=7G1V&oBSC^7I3u7uWK|&bfx>+2w3{c}<^2ln z_`Y9(4m{vm$#p9 zub$NnKJU`uzOMJ+Gn>2Puk8zYK0FUM_nWU1{OqpUO~>KB@mSBkSzrHr_3-IPXa}Qp zYeuAW>c{{d_UZ3`9_@}e(jA%79W&mYKdd*ORySXNNBbm?^hqU+TU4iRH$PvkMmwdB zbV?_6N{)Bxx9givtIaQ?ozh1-Ws*9j$2;|>yUl8SJ=!O8q)#@bPky{hKYU(Y-Hi6g z9_f)w>5&`n(YLFc)%)>ia!0!4lLk(V_vtT9h0gfT&L8Phdn6IvsovD{!<)e+#$(q9 zd;X<=tz%1Cf@~{^J`X<{etc`bncaU0^|dgMkA?dE>sLs>=3wij7bI3B{Jc9uy`W)kXK7%EGStAojVE0= zzRwJ`g}tyNyWO}4k8ElN`we@`sAJxLaL22*$l@@6A7^Mkgvv2iJsKL=*bTLFih0AB z-Ib*b9MFUfburJy%rOsmaNx*jsNs%zd_#yk=AAgKNQ!%Y|DKHJs(QqUfg_foRw&eu zoH!2l8y1bILp^cF(izI#xisyZLLDIi;=k7u^R9qP`CLNHi=|7_-2 zz#K{040iW;DrczSj&L+1hdaWTv_CzP2poTCckUB;N;H(!A8LSOqDj|OuU3!xD2J8L z<4<-6@jpInZW>nL-