--- **AI** -- (R2.4) - Models the intelligent transportation of infantry and other cargo. -- -- === -- -- ### Author: **FlightControl** -- -- === -- -- @module AI_Cargo_Dispatcher --- @type AI_CARGO_DISPATCHER -- @extends Core.Fsm#FSM_CONTROLLABLE --- # AI\_CARGO\_DISPATCHER class, extends @{Core.Base#BASE} -- -- === -- -- AI\_CARGO\_DISPATCHER brings a dynamic cargo handling capability for AI groups. -- -- Armoured Personnel APCs (APC), Trucks, Jeeps and other carrier equipment can be mobilized to intelligently transport infantry and other cargo within the simulation. -- The AI\_CARGO\_DISPATCHER module uses the @{Cargo} capabilities within the MOOSE framework. -- CARGO derived objects must be declared within the mission to make the AI\_CARGO\_DISPATCHER object recognize the cargo. -- Please consult the @{Cargo} module for more information. -- -- -- -- @field #AI_CARGO_DISPATCHER AI_CARGO_DISPATCHER = { ClassName = "AI_CARGO_DISPATCHER", SetAPC = nil, SetDeployZones = nil, AI_CARGO_APC = {} } --- @type AI_CARGO_DISPATCHER.AI_CARGO_APC -- @map --- @field #AI_CARGO_DISPATCHER.AI_CARGO_APC AI_CARGO_DISPATCHER.AI_Cargo = {} --- @field #AI_CARGO_DISPATCHER.PickupCargo AI_CARGO_DISPATCHER.PickupCargo = {} --- Creates a new AI_CARGO_DISPATCHER object. -- @param #AI_CARGO_DISPATCHER self -- @param Core.Set#SET_GROUP SetAPC -- @param Core.Set#SET_CARGO SetCargo -- @param Core.Set#SET_ZONE SetDeployZone -- @return #AI_CARGO_DISPATCHER -- @usage -- -- -- Create a new cargo dispatcher -- SetAPC = SET_GROUP:New():FilterPrefixes( "APC" ):FilterStart() -- SetCargo = SET_CARGO:New():FilterTypes( "Infantry" ):FilterStart() -- SetDeployZone = SET_ZONE:New():FilterPrefixes( "Deploy" ):FilterStart() -- AICargoDispatcher = AI_CARGO_DISPATCHER:New( SetAPC, SetCargo, SetDeployZone ) -- function AI_CARGO_DISPATCHER:New( SetAPC, SetCargo, SetDeployZones ) local self = BASE:Inherit( self, FSM:New() ) -- #AI_CARGO_DISPATCHER self.SetAPC = SetAPC -- Core.Set#SET_GROUP self.SetCargo = SetCargo -- Core.Set#SET_CARGO self.SetDeployZones = SetDeployZones -- Core.Set#SET_ZONE self:SetStartState( "Dispatch" ) self:AddTransition( "*", "Monitor", "*" ) self:AddTransition( "*", "Pickup", "*" ) self:AddTransition( "*", "Loading", "*" ) self:AddTransition( "*", "Loaded", "*" ) self:AddTransition( "*", "Deploy", "*" ) self:AddTransition( "*", "Unloading", "*" ) self:AddTransition( "*", "Unloaded", "*" ) self:AddTransition( "*", "Home", "*" ) self.MonitorTimeInterval = 30 self.DeployRadiusInner = 200 self.DeployRadiusOuter = 500 self.CarrierHome = {} return self end --- Set the home zone. -- When there is nothing anymore to pickup, the carriers will go to a random coordinate in this zone. -- They will await here new orders. -- @param #AI_CARGO_DISPATCHER self -- @param Core.Zone#ZONE_BASE HomeZone -- @return #AI_CARGO_DISPATCHER -- @usage -- -- -- Create a new cargo dispatcher -- AICargoDispatcher = AI_CARGO_DISPATCHER:New( SetAPC, SetCargo, SetDeployZone ) -- -- -- Set the home coordinate -- local HomeZone = ZONE:New( "Home" ) -- AICargoDispatcher:SetHomeZone( HomeZone ) -- function AI_CARGO_DISPATCHER:SetHomeZone( HomeZone ) self.HomeZone = HomeZone return self end --- The Start trigger event, which actually takes action at the specified time interval. -- @param #AI_CARGO_DISPATCHER self -- @param Wrapper.Group#GROUP APC -- @return #AI_CARGO_DISPATCHER function AI_CARGO_DISPATCHER:onafterMonitor() for APCGroupName, Carrier in pairs( self.SetAPC:GetSet() ) do local Carrier = Carrier -- Wrapper.Group#GROUP local AI_Cargo = self.AI_Cargo[Carrier] if not AI_Cargo then -- ok, so this APC does not have yet an AI_CARGO_APC object... -- let's create one and also declare the Loaded and UnLoaded handlers. self.AI_Cargo[Carrier] = self:AICargo( Carrier, self.SetCargo, self.CombatRadius ) AI_Cargo = self.AI_Cargo[Carrier] function AI_Cargo.OnAfterPickup( AI_Cargo, APC, From, Event, To, Cargo ) self:Pickup( APC, Cargo ) end function AI_Cargo.OnAfterLoad( AI_Cargo, APC ) self:Loading( APC ) end function AI_Cargo.OnAfterLoaded( AI_Cargo, APC, From, Event, To, Cargo ) self:Loaded( APC, Cargo ) end function AI_Cargo.OnAfterDeploy( AI_Cargo, APC ) self:Deploy( APC ) end function AI_Cargo.OnAfterUnload( AI_Cargo, APC ) self:Unloading( APC ) end function AI_Cargo.OnAfterUnloaded( AI_Cargo, APC ) self:Unloaded( APC ) end end -- The Pickup sequence ... -- Check if this APC need to go and Pickup something... self:I( { IsTransporting = AI_Cargo:IsTransporting() } ) if AI_Cargo:IsTransporting() == false then -- ok, so there is a free APC -- now find the first cargo that is Unloaded local PickupCargo = nil for CargoName, Cargo in pairs( self.SetCargo:GetSet() ) do local Cargo = Cargo -- Cargo.Cargo#CARGO self:F( { Cargo = Cargo:GetName(), UnLoaded = Cargo:IsUnLoaded(), Deployed = Cargo:IsDeployed(), PickupCargo = self.PickupCargo[Cargo] ~= nil } ) if Cargo:IsUnLoaded() and not Cargo:IsDeployed() then local CargoVec2 = { x = Cargo:GetX(), y = Cargo:GetY() } local LocationFound = false for APC, Vec2 in pairs( self.PickupCargo ) do if Vec2.x == CargoVec2.x and Vec2.y == CargoVec2.y then LocationFound = true break end end if LocationFound == false then self.PickupCargo[Carrier] = CargoVec2 PickupCargo = Cargo break end end end if PickupCargo then self.CarrierHome[Carrier] = nil AI_Cargo:Pickup( PickupCargo:GetCoordinate() ) break else if self.HomeZone then if not self.CarrierHome[Carrier] then self.CarrierHome[Carrier] = true AI_Cargo:Home( self.HomeZone:GetRandomPointVec2() ) end end end end end self:__Monitor( self.MonitorTimeInterval ) return self end --- Make a APC run for a cargo deploy action after the cargo Pickup trigger has been initiated, by default. -- @param #AI_CARGO_DISPATCHER self -- @param Wrapper.Group#GROUP APC -- @return #AI_CARGO_DISPATCHER function AI_CARGO_DISPATCHER:onafterPickup( From, Event, To, APC, Cargo ) return self end --- Make a APC run for a cargo deploy action after the cargo has been loaded, by default. -- @param #AI_CARGO_DISPATCHER self -- @param Wrapper.Group#GROUP APC -- @return #AI_CARGO_DISPATCHER function AI_CARGO_DISPATCHER:OnAfterLoaded( From, Event, To, APC, Cargo ) self:I( { "Loaded Dispatcher", APC } ) local RandomZone = self.SetDeployZones:GetRandomZone() self:I( { RandomZone = RandomZone } ) self.AI_Cargo[APC]:Deploy( RandomZone:GetCoordinate(), 70 ) self.PickupCargo[APC] = nil return self end