FlightControl-Master/MOOSE
1
0
Fork 0
mirror of https://github.com/FlightControl-Master/MOOSE.git synced 2025-10-29 16:58:06 +00:00
Code Issues Packages Projects Releases Wiki Activity

RANGE

Browse Source
This commit is contained in:
Frank 2023-01-30 23:29:03 +01:00
parent 0b3aea2bf3
commit 6e6bb1e88d
2 changed files with 139 additions and 178 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

308
Moose Development/Moose/Functional/Range.lua
View File

@ -56,7 +56,7 @@
-- @field #string ClassName Name of the Class. -- @field #string ClassName Name of the Class.
-- @field #boolean Debug If true, debug info is sent as messages on the screen. -- @field #boolean Debug If true, debug info is sent as messages on the screen.
-- @field #boolean verbose Verbosity level. Higher means more output to DCS log file. -- @field #boolean verbose Verbosity level. Higher means more output to DCS log file.
-- @field #string id String id of range for output in DCS log. -- @field #string lid String id of range for output in DCS log.
-- @field #string rangename Name of the range. -- @field #string rangename Name of the range.
-- @field Core.Point#COORDINATE location Coordinate of the range location. -- @field Core.Point#COORDINATE location Coordinate of the range location.
-- @field #number rangeradius Radius of range defining its total size for e.g. smoking bomb impact points and sending radio messages. Default 5 km. -- @field #number rangeradius Radius of range defining its total size for e.g. smoking bomb impact points and sending radio messages. Default 5 km.
@ -86,7 +86,6 @@
-- @field #number illuminationmaxalt Maximum altitude in meters AGL at which illumination bombs are fired. Default is 1000 m. -- @field #number illuminationmaxalt Maximum altitude in meters AGL at which illumination bombs are fired. Default is 1000 m.
-- @field #number scorebombdistance Distance from closest target up to which bomb hits are counted. Default 1000 m. -- @field #number scorebombdistance Distance from closest target up to which bomb hits are counted. Default 1000 m.
-- @field #number TdelaySmoke Time delay in seconds between impact of bomb and starting the smoke. Default 3 seconds. -- @field #number TdelaySmoke Time delay in seconds between impact of bomb and starting the smoke. Default 3 seconds.
-- @field #boolean eventmoose If true, events are handled by MOOSE. If false, events are handled directly by DCS eventhandler. Default true.
-- @field #boolean trackbombs If true (default), all bomb types are tracked and impact point to closest bombing target is evaluated. -- @field #boolean trackbombs If true (default), all bomb types are tracked and impact point to closest bombing target is evaluated.
-- @field #boolean trackrockets If true (default), all rocket types are tracked and impact point to closest bombing target is evaluated. -- @field #boolean trackrockets If true (default), all rocket types are tracked and impact point to closest bombing target is evaluated.
-- @field #boolean trackmissiles If true (default), all missile types are tracked and impact point to closest bombing target is evaluated. -- @field #boolean trackmissiles If true (default), all missile types are tracked and impact point to closest bombing target is evaluated.
@ -102,10 +101,10 @@
-- @field #boolean targetsheet If true, players can save their target sheets. Rangeboss will not work if targetsheets do not save. -- @field #boolean targetsheet If true, players can save their target sheets. Rangeboss will not work if targetsheets do not save.
-- @field #string targetpath Path where to save the target sheets. -- @field #string targetpath Path where to save the target sheets.
-- @field #string targetprefix File prefix for target sheet files. -- @field #string targetprefix File prefix for target sheet files.
-- @field Sound.SRS#MSRS controlmsrs -- @field Sound.SRS#MSRS controlmsrs SRS wrapper for range controller.
-- @field Sound.SRS#MSRSQUEUE controlsrsQ -- @field Sound.SRS#MSRSQUEUE controlsrsQ SRS queue for range controller.
-- @field Sound.SRS#MSRS instructmsrs -- @field Sound.SRS#MSRS instructmsrs SRS wrapper for range instructor.
-- @field Sound.SRS#MSRSQUEUE instructsrsQ -- @field Sound.SRS#MSRSQUEUE instructsrsQ SRS queue for range instructor.
-- @extends Core.Fsm#FSM -- @extends Core.Fsm#FSM
--- *Don't only practice your art, but force your way into its secrets; art deserves that, for it and knowledge can raise man to the Divine.* - Ludwig van Beethoven --- *Don't only practice your art, but force your way into its secrets; art deserves that, for it and knowledge can raise man to the Divine.* - Ludwig van Beethoven
@ -232,8 +231,8 @@
-- --
-- ## Voice output via SRS -- ## Voice output via SRS
-- --
-- Alternatively, the voice output can be fully done via SRS, **no sound file additions needed**. Set up SRS with @{#RANGE.SetSRS}(). Range control and instructor frequencies and voices can then be -- Alternatively, the voice output can be fully done via SRS, **no sound file additions needed**. Set up SRS with @{#RANGE.SetSRS}().
-- set via @{#RANGE.SetSRSRangeControl}() and @{#RANGE.SetSRSRangeInstructor}() -- Range control and instructor frequencies and voices can then be set via @{#RANGE.SetSRSRangeControl}() and @{#RANGE.SetSRSRangeInstructor}().
-- --
-- # Persistence -- # Persistence
-- --
@ -343,7 +342,6 @@ RANGE = {
illuminationmaxalt = 1000, illuminationmaxalt = 1000,
scorebombdistance = 1000, scorebombdistance = 1000,
TdelaySmoke = 3.0, TdelaySmoke = 3.0,
eventmoose = true,
trackbombs = true, trackbombs = true,
trackrockets = true, trackrockets = true,
trackmissiles = true, trackmissiles = true,
@ -360,7 +358,18 @@ RANGE = {
} }
--- Default range parameters. --- Default range parameters.
-- @list Defaults -- @type RANGE.Defaults
-- @param #number goodhitrange Radius for good hits in meters.
-- @param #number strafemaxalt Max altitude in meters for players to enter a strafing pit.
-- @param #number dtBombtrack Timer interval in seconds.
-- @param #number Tmsg Message display time in seconds.
-- @param #number ndisplayresults Number of results to display.
-- @param #number rangeradius Radius of range in meters.
-- @param #number TdelaySmoke Time delay in seconds before smoke is triggered.
-- @param #number boxlength Length of strafe pit box in meters.
-- @param #number boxwidth Width of strafe pit box in meters.
-- @param #number goodpass Number of hits for a good strafing pit pass.
-- @param #number foulline Distance of foul line in meters.
RANGE.Defaults = { RANGE.Defaults = {
goodhitrange = 25, goodhitrange = 25,
strafemaxalt = 914, strafemaxalt = 914,
@ -377,13 +386,15 @@ RANGE.Defaults = {
--- Target type, i.e. unit, static, or coordinate. --- Target type, i.e. unit, static, or coordinate.
-- @type RANGE.TargetType -- @type RANGE.TargetType
-- @field #string UNIT Target is a unit. -- @field #string UNIT Target is a unitobject.
-- @field #string STATIC Target is a static. -- @field #string STATIC Target is a static object.
-- @field #string COORD Target is a coordinate. -- @field #string COORD Target is a coordinate.
-- @field #string SCENERY Target is a scenery object.
RANGE.TargetType = { RANGE.TargetType = {
UNIT = "Unit", UNIT = "Unit",
STATIC = "Static", STATIC = "Static",
COORD = "Coordinate" COORD = "Coordinate",
SCENERY = "Scenery"
} }
--- Player settings. --- Player settings.
@ -578,9 +589,10 @@ RANGE.MenuF10Root = nil
--- Range script version. --- Range script version.
-- @field #string version -- @field #string version
RANGE.version = "2.5.1" RANGE.version = "2.6.0"
-- TODO list: -- TODO list:
-- TODO: Scenery as targets.
-- TODO: Verbosity level for messages. -- TODO: Verbosity level for messages.
-- TODO: Add option for default settings such as smoke off. -- TODO: Add option for default settings such as smoke off.
-- TODO: Add custom weapons, which can be specified by the user. -- TODO: Add custom weapons, which can be specified by the user.
@ -610,11 +622,11 @@ function RANGE:New( RangeName )
self.rangename = RangeName or "Practice Range" self.rangename = RangeName or "Practice Range"
-- Log id. -- Log id.
self.id = string.format( "RANGE %s | ", self.rangename ) self.lid = string.format( "RANGE %s | ", self.rangename )
-- Debug info. -- Debug info.
local text = string.format( "Script version %s - creating new RANGE object %s.", RANGE.version, self.rangename ) local text = string.format( "Script version %s - creating new RANGE object %s.", RANGE.version, self.rangename )
self:I( self.id .. text ) self:I( self.lid .. text )
-- Defaults -- Defaults
self:SetDefaultPlayerSmokeBomb() self:SetDefaultPlayerSmokeBomb()
@ -802,7 +814,7 @@ function RANGE:onafterStart()
if self.location == nil then if self.location == nil then
local text = string.format( "ERROR! No range location found. Number of strafe targets = %d. Number of bomb targets = %d.", self.nstrafetargets, self.nbombtargets ) local text = string.format( "ERROR! No range location found. Number of strafe targets = %d. Number of bomb targets = %d.", self.nstrafetargets, self.nbombtargets )
self:E( self.id .. text ) self:E( self.lid .. text )
return return
end end
@ -813,31 +825,20 @@ function RANGE:onafterStart()
-- Starting range. -- Starting range.
local text = string.format( "Starting RANGE %s. Number of strafe targets = %d. Number of bomb targets = %d.", self.rangename, self.nstrafetargets, self.nbombtargets ) local text = string.format( "Starting RANGE %s. Number of strafe targets = %d. Number of bomb targets = %d.", self.rangename, self.nstrafetargets, self.nbombtargets )
self:I( self.id .. text ) self:I( self.lid .. text )
-- Event handling. -- Event handling.
if self.eventmoose then
-- Events are handled my MOOSE.
self:T( self.id .. "Events are handled by MOOSE." )
self:HandleEvent( EVENTS.Birth ) self:HandleEvent( EVENTS.Birth )
self:HandleEvent( EVENTS.Hit ) self:HandleEvent( EVENTS.Hit )
self:HandleEvent( EVENTS.Shot ) self:HandleEvent( EVENTS.Shot )
else
-- Events are handled directly by DCS.
self:T( self.id .. "Events are handled directly by DCS." )
world.addEventHandler( self )
end
-- Make bomb target move randomly within the range zone. -- Make bomb target move randomly within the range zone.
for _, _target in pairs( self.bombingTargets ) do for _, _target in pairs( self.bombingTargets ) do
local target=_target --#RANGE.BombTarget
-- Check if it is a static object. -- Check if unit and can move.
-- local _static=self:_CheckStatic(_target.target:GetName()) if target.move and target.type==RANGE.TargetType.UNIT and target.speed > 1 then
local _static = _target.type == RANGE.TargetType.STATIC target.target:PatrolZones( { self.rangezone }, target.speed * 0.75, ENUMS.Formation.Vehicle.OffRoad )
if _target.move and _static == false and _target.speed > 1 then
local unit = _target.target -- Wrapper.Unit#UNIT
_target.target:PatrolZones( { self.rangezone }, _target.speed * 0.75, "Off road" )
end end
end end
@ -1064,7 +1065,7 @@ end
--- Set smoke color for marking bomb targets. By default bomb targets are marked by red smoke. --- Set smoke color for marking bomb targets. By default bomb targets are marked by red smoke.
-- @param #RANGE self -- @param #RANGE self
-- @param Utilities.Utils#SMOKECOLOR colorid Color id. Default SMOKECOLOR.Red. -- @param Utilities.Utils#SMOKECOLOR colorid Color id. Default `SMOKECOLOR.Red`.
-- @return #RANGE self -- @return #RANGE self
function RANGE:SetBombTargetSmokeColor( colorid ) function RANGE:SetBombTargetSmokeColor( colorid )
self.BombSmokeColor = colorid or SMOKECOLOR.Red self.BombSmokeColor = colorid or SMOKECOLOR.Red
@ -1082,7 +1083,7 @@ end
--- Set smoke color for marking strafe targets. By default strafe targets are marked by green smoke. --- Set smoke color for marking strafe targets. By default strafe targets are marked by green smoke.
-- @param #RANGE self -- @param #RANGE self
-- @param Utilities.Utils#SMOKECOLOR colorid Color id. Default SMOKECOLOR.Green. -- @param Utilities.Utils#SMOKECOLOR colorid Color id. Default `SMOKECOLOR.Green`.
-- @return #RANGE self -- @return #RANGE self
function RANGE:SetStrafeTargetSmokeColor( colorid ) function RANGE:SetStrafeTargetSmokeColor( colorid )
self.StrafeSmokeColor = colorid or SMOKECOLOR.Green self.StrafeSmokeColor = colorid or SMOKECOLOR.Green
@ -1091,7 +1092,7 @@ end
--- Set smoke color for marking strafe pit approach boxes. By default strafe pit boxes are marked by white smoke. --- Set smoke color for marking strafe pit approach boxes. By default strafe pit boxes are marked by white smoke.
-- @param #RANGE self -- @param #RANGE self
-- @param Utilities.Utils#SMOKECOLOR colorid Color id. Default SMOKECOLOR.White. -- @param Utilities.Utils#SMOKECOLOR colorid Color id. Default `SMOKECOLOR.White`.
-- @return #RANGE self -- @return #RANGE self
function RANGE:SetStrafePitSmokeColor( colorid ) function RANGE:SetStrafePitSmokeColor( colorid )
self.StrafePitSmokeColor = colorid or SMOKECOLOR.White self.StrafePitSmokeColor = colorid or SMOKECOLOR.White
@ -1191,13 +1192,14 @@ end
-- @param #RANGE self -- @param #RANGE self
-- @param #string PathToSRS Path to SRS directory. -- @param #string PathToSRS Path to SRS directory.
-- @param #number Port SRS port. Default 5002. -- @param #number Port SRS port. Default 5002.
-- @param #number Coalition Coalition side, e.g. coalition.side.BLUE or coalition.side.RED -- @param #number Coalition Coalition side, e.g. `coalition.side.BLUE` or `coalition.side.RED`. Default `coalition.side.BLUE`.
-- @param #number Frequency Frequency to use, defaults to 256 (same as rangecontrol) -- @param #number Frequency Frequency to use. Default is 256 MHz for range control and 305 MHz for instructor. If given, both control and instructor get this frequency.
-- @param #number Modulation Modulation to use, defaults to radio.modulation.AM -- @param #number Modulation Modulation to use, defaults to radio.modulation.AM
-- @param #number Volume Volume, between 0.0 and 1.0. Defaults to 1.0 -- @param #number Volume Volume, between 0.0 and 1.0. Defaults to 1.0
-- @param #string PathToGoogleKey Path to Google TTS credentials. -- @param #string PathToGoogleKey Path to Google TTS credentials.
-- @return #RANGE self -- @return #RANGE self
function RANGE:SetSRS(PathToSRS, Port, Coalition, Frequency, Modulation, Volume, PathToGoogleKey) function RANGE:SetSRS(PathToSRS, Port, Coalition, Frequency, Modulation, Volume, PathToGoogleKey)
if PathToSRS then if PathToSRS then
self.useSRS=true self.useSRS=true
@ -1215,7 +1217,7 @@ function RANGE:SetSRS(PathToSRS, Port, Coalition, Frequency, Modulation, Volume,
self.instructsrsQ = MSRSQUEUE:New("INSTRUCT") self.instructsrsQ = MSRSQUEUE:New("INSTRUCT")
if PathToGoogleKey then if PathToGoogleKey then
self.instructmsrs:SetGoogle(PathToGoogleKey) self.controlmsrs:SetGoogle(PathToGoogleKey)
self.instructmsrs:SetGoogle(PathToGoogleKey) self.instructmsrs:SetGoogle(PathToGoogleKey)
end end
@ -1304,7 +1306,7 @@ end
-- @return #RANGE self -- @return #RANGE self
function RANGE:SetSoundfilesPath( path ) function RANGE:SetSoundfilesPath( path )
self.soundpath = tostring( path or "Range Soundfiles/" ) self.soundpath = tostring( path or "Range Soundfiles/" )
self:I( self.id .. string.format( "Setting sound files path to %s", self.soundpath ) ) self:I( self.lid .. string.format( "Setting sound files path to %s", self.soundpath ) )
return self return self
end end
@ -1342,20 +1344,20 @@ function RANGE:AddStrafePit( targetnames, boxlength, boxwidth, heading, inverseh
if _isstatic == true then if _isstatic == true then
-- Add static object. -- Add static object.
self:T( self.id .. string.format( "Adding STATIC object %s as strafe target #%d.", _name, _i ) ) self:T( self.lid .. string.format( "Adding STATIC object %s as strafe target #%d.", _name, _i ) )
unit = STATIC:FindByName( _name, false ) unit = STATIC:FindByName( _name, false )
elseif _isstatic == false then elseif _isstatic == false then
-- Add unit object. -- Add unit object.
self:T( self.id .. string.format( "Adding UNIT object %s as strafe target #%d.", _name, _i ) ) self:T( self.lid .. string.format( "Adding UNIT object %s as strafe target #%d.", _name, _i ) )
unit = UNIT:FindByName( _name ) unit = UNIT:FindByName( _name )
else else
-- Neither unit nor static object with this name could be found. -- Neither unit nor static object with this name could be found.
local text = string.format( "ERROR! Could not find ANY strafe target object with name %s.", _name ) local text = string.format( "ERROR! Could not find ANY strafe target object with name %s.", _name )
self:E( self.id .. text ) self:E( self.lid .. text )
end end
@ -1374,7 +1376,7 @@ function RANGE:AddStrafePit( targetnames, boxlength, boxwidth, heading, inverseh
-- Check if at least one target could be found. -- Check if at least one target could be found.
if ntargets == 0 then if ntargets == 0 then
local text = string.format( "ERROR! No strafe target could be found when calling RANGE:AddStrafePit() for range %s", self.rangename ) local text = string.format( "ERROR! No strafe target could be found when calling RANGE:AddStrafePit() for range %s", self.rangename )
self:E( self.id .. text ) self:E( self.lid .. text )
return return
end end
@ -1443,7 +1445,7 @@ function RANGE:AddStrafePit( targetnames, boxlength, boxwidth, heading, inverseh
-- Debug info -- Debug info
local text = string.format( "Adding new strafe target %s with %d targets: heading = %03d, box_L = %.1f, box_W = %.1f, goodpass = %d, foul line = %.1f", _name, ntargets, heading, l, w, goodpass, foulline ) local text = string.format( "Adding new strafe target %s with %d targets: heading = %03d, box_L = %.1f, box_W = %.1f, goodpass = %d, foul line = %.1f", _name, ntargets, heading, l, w, goodpass, foulline )
self:T( self.id .. text ) self:T( self.lid .. text )
return self return self
end end
@ -1513,14 +1515,14 @@ function RANGE:AddBombingTargets( targetnames, goodhitrange, randommove )
if _isstatic == true then if _isstatic == true then
local _static = STATIC:FindByName( name ) local _static = STATIC:FindByName( name )
self:T2( self.id .. string.format( "Adding static bombing target %s with hit range %d.", name, goodhitrange, false ) ) self:T2( self.lid .. string.format( "Adding static bombing target %s with hit range %d.", name, goodhitrange, false ) )
self:AddBombingTargetUnit( _static, goodhitrange ) self:AddBombingTargetUnit( _static, goodhitrange )
elseif _isstatic == false then elseif _isstatic == false then
local _unit = UNIT:FindByName( name ) local _unit = UNIT:FindByName( name )
self:T2( self.id .. string.format( "Adding unit bombing target %s with hit range %d.", name, goodhitrange, randommove ) ) self:T2( self.lid .. string.format( "Adding unit bombing target %s with hit range %d.", name, goodhitrange, randommove ) )
self:AddBombingTargetUnit( _unit, goodhitrange, randommove ) self:AddBombingTargetUnit( _unit, goodhitrange, randommove )
else else
self:E( self.id .. string.format( "ERROR! Could not find bombing target %s.", name ) ) self:E( self.lid .. string.format( "ERROR! Could not find bombing target %s.", name ) )
end end
end end
@ -1553,11 +1555,11 @@ function RANGE:AddBombingTargetUnit( unit, goodhitrange, randommove )
-- Debug or error output. -- Debug or error output.
if _isstatic == true then if _isstatic == true then
self:I( self.id .. string.format( "Adding STATIC bombing target %s with good hit range %d. Random move = %s.", name, goodhitrange, tostring( randommove ) ) ) self:I( self.lid .. string.format( "Adding STATIC bombing target %s with good hit range %d. Random move = %s.", name, goodhitrange, tostring( randommove ) ) )
elseif _isstatic == false then elseif _isstatic == false then
self:I( self.id .. string.format( "Adding UNIT bombing target %s with good hit range %d. Random move = %s.", name, goodhitrange, tostring( randommove ) ) ) self:I( self.lid .. string.format( "Adding UNIT bombing target %s with good hit range %d. Random move = %s.", name, goodhitrange, tostring( randommove ) ) )
else else
self:E( self.id .. string.format( "ERROR! No bombing target with name %s could be found. Carefully check all UNIT and STATIC names defined in the mission editor!", name ) ) self:E( self.lid .. string.format( "ERROR! No bombing target with name %s could be found. Carefully check all UNIT and STATIC names defined in the mission editor!", name ) )
end end
-- Get max speed of unit in km/h. -- Get max speed of unit in km/h.
@ -1650,7 +1652,7 @@ function RANGE:GetFoullineDistance( namepit, namefoulline )
elseif _staticpit == false then elseif _staticpit == false then
pit = UNIT:FindByName( namepit ) pit = UNIT:FindByName( namepit )
else else
self:E( self.id .. string.format( "ERROR! Pit object %s could not be found in GetFoullineDistance function. Check the name in the ME.", namepit ) ) self:E( self.lid .. string.format( "ERROR! Pit object %s could not be found in GetFoullineDistance function. Check the name in the ME.", namepit ) )
end end
-- Get the unit or static foul line object. -- Get the unit or static foul line object.
@ -1660,7 +1662,7 @@ function RANGE:GetFoullineDistance( namepit, namefoulline )
elseif _staticfoul == false then elseif _staticfoul == false then
foul = UNIT:FindByName( namefoulline ) foul = UNIT:FindByName( namefoulline )
else else
self:E( self.id .. string.format( "ERROR! Foul line object %s could not be found in GetFoullineDistance function. Check the name in the ME.", namefoulline ) ) self:E( self.lid .. string.format( "ERROR! Foul line object %s could not be found in GetFoullineDistance function. Check the name in the ME.", namefoulline ) )
end end
-- Get the distance between the two objects. -- Get the distance between the two objects.
@ -1668,10 +1670,10 @@ function RANGE:GetFoullineDistance( namepit, namefoulline )
if pit ~= nil and foul ~= nil then if pit ~= nil and foul ~= nil then
fouldist = pit:GetCoordinate():Get2DDistance( foul:GetCoordinate() ) fouldist = pit:GetCoordinate():Get2DDistance( foul:GetCoordinate() )
else else
self:E( self.id .. string.format( "ERROR! Foul line distance could not be determined. Check pit object name %s and foul line object name %s in the ME.", namepit, namefoulline ) ) self:E( self.lid .. string.format( "ERROR! Foul line distance could not be determined. Check pit object name %s and foul line object name %s in the ME.", namepit, namefoulline ) )
end end
self:T( self.id .. string.format( "Foul line distance = %.1f m.", fouldist ) ) self:T( self.lid .. string.format( "Foul line distance = %.1f m.", fouldist ) )
return fouldist return fouldist
end end
@ -1679,73 +1681,6 @@ end
-- Event Handling -- Event Handling
------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------- -------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------
--- General event handler.
-- @param #RANGE self
-- @param #table Event DCS event table.
function RANGE:onEvent( Event )
self:F3( Event )
if Event == nil or Event.initiator == nil then
self:T3( "Skipping onEvent. Event or Event.initiator unknown." )
return true
end
if Unit.getByName( Event.initiator:getName() ) == nil then
self:T3( "Skipping onEvent. Initiator unit name unknown." )
return true
end
local DCSiniunit = Event.initiator
local DCStgtunit = Event.target
local DCSweapon = Event.weapon
local EventData = {}
local _playerunit = nil
local _playername = nil
if Event.initiator then
EventData.IniUnitName = Event.initiator:getName()
EventData.IniDCSGroup = Event.initiator:getGroup()
EventData.IniGroupName = Event.initiator:getGroup():getName()
-- Get player unit and name. This returns nil,nil if the event was not fired by a player unit. And these are the only events we are interested in.
_playerunit, _playername = self:_GetPlayerUnitAndName( EventData.IniUnitName )
end
if Event.target then
EventData.TgtUnitName = Event.target:getName()
EventData.TgtUnit = UNIT:FindByName( EventData.TgtUnitName )
end
if Event.weapon then
EventData.Weapon = Event.weapon
EventData.weapon = Event.weapon
EventData.WeaponTypeName = Event.weapon:getTypeName()
end
-- Event info.
self:T3( self.id .. string.format( "EVENT: Event in onEvent with ID = %s", tostring( Event.id ) ) )
self:T3( self.id .. string.format( "EVENT: Ini unit = %s", tostring( EventData.IniUnitName ) ) )
self:T3( self.id .. string.format( "EVENT: Ini group = %s", tostring( EventData.IniGroupName ) ) )
self:T3( self.id .. string.format( "EVENT: Ini player = %s", tostring( _playername ) ) )
self:T3( self.id .. string.format( "EVENT: Tgt unit = %s", tostring( EventData.TgtUnitName ) ) )
self:T3( self.id .. string.format( "EVENT: Wpn type = %s", tostring( EventData.WeaponTypeName ) ) )
-- Call event Birth function.
if Event.id == world.event.S_EVENT_BIRTH and _playername then
self:OnEventBirth( EventData )
end
-- Call event Shot function.
if Event.id == world.event.S_EVENT_SHOT and _playername and Event.weapon then
self:OnEventShot( EventData )
end
-- Call event Hit function.
if Event.id == world.event.S_EVENT_HIT and _playername and DCStgtunit then
self:OnEventHit( EventData )
end
end
--- Range event handler for event birth. --- Range event handler for event birth.
-- @param #RANGE self -- @param #RANGE self
-- @param Core.Event#EVENTDATA EventData -- @param Core.Event#EVENTDATA EventData
@ -1755,9 +1690,9 @@ function RANGE:OnEventBirth( EventData )
local _unitName = EventData.IniUnitName local _unitName = EventData.IniUnitName
local _unit, _playername = self:_GetPlayerUnitAndName( _unitName ) local _unit, _playername = self:_GetPlayerUnitAndName( _unitName )
self:T3( self.id .. "BIRTH: unit = " .. tostring( EventData.IniUnitName ) ) self:T3( self.lid .. "BIRTH: unit = " .. tostring( EventData.IniUnitName ) )
self:T3( self.id .. "BIRTH: group = " .. tostring( EventData.IniGroupName ) ) self:T3( self.lid .. "BIRTH: group = " .. tostring( EventData.IniGroupName ) )
self:T3( self.id .. "BIRTH: player = " .. tostring( _playername ) ) self:T3( self.lid .. "BIRTH: player = " .. tostring( _playername ) )
if _unit and _playername then if _unit and _playername then
@ -1768,7 +1703,7 @@ function RANGE:OnEventBirth( EventData )
-- Debug output. -- Debug output.
local text = string.format( "Player %s, callsign %s entered unit %s (UID %d) of group %s (GID %d)", _playername, _callsign, _unitName, _uid, _group:GetName(), _gid ) local text = string.format( "Player %s, callsign %s entered unit %s (UID %d) of group %s (GID %d)", _playername, _callsign, _unitName, _uid, _group:GetName(), _gid )
self:T( self.id .. text ) self:T( self.lid .. text )
-- Reset current strafe status. -- Reset current strafe status.
self.strafeStatus[_uid] = nil self.strafeStatus[_uid] = nil
@ -1806,9 +1741,9 @@ function RANGE:OnEventHit( EventData )
self:F( { eventhit = EventData } ) self:F( { eventhit = EventData } )
-- Debug info. -- Debug info.
self:T3( self.id .. "HIT: Ini unit = " .. tostring( EventData.IniUnitName ) ) self:T3( self.lid .. "HIT: Ini unit = " .. tostring( EventData.IniUnitName ) )
self:T3( self.id .. "HIT: Ini group = " .. tostring( EventData.IniGroupName ) ) self:T3( self.lid .. "HIT: Ini group = " .. tostring( EventData.IniGroupName ) )
self:T3( self.id .. "HIT: Tgt target = " .. tostring( EventData.TgtUnitName ) ) self:T3( self.lid .. "HIT: Tgt target = " .. tostring( EventData.TgtUnitName ) )
-- Player info -- Player info
local _unitName = EventData.IniUnitName local _unitName = EventData.IniUnitName
@ -1861,7 +1796,7 @@ function RANGE:OnEventHit( EventData )
self.controlsrsQ:NewTransmission(ttstext,nil,self.controlmsrs,nil,2) self.controlsrsQ:NewTransmission(ttstext,nil,self.controlmsrs,nil,2)
end end
self:_DisplayMessageToGroup( _unit, text ) self:_DisplayMessageToGroup( _unit, text )
self:T2( self.id .. text ) self:T2( self.lid .. text )
_currentTarget.pastfoulline = true _currentTarget.pastfoulline = true
end end
end end
@ -1908,14 +1843,7 @@ function RANGE:OnEventShot( EventData )
self:F( { eventshot = EventData } ) self:F( { eventshot = EventData } )
-- Nil checks. -- Nil checks.
if EventData.Weapon == nil then if EventData.Weapon == nil or EventData.IniDCSUnit == nil or EventData.IniPlayerName == nil then
return
end
if EventData.IniDCSUnit == nil then
return
end
if EventData.IniPlayerName == nil then
return return
end end
@ -1931,12 +1859,12 @@ function RANGE:OnEventShot( EventData )
local weaponcategory = desc.category local weaponcategory = desc.category
-- Debug info. -- Debug info.
self:T( self.id .. "EVENT SHOT: Range " .. self.rangename ) self:T( self.lid .. "EVENT SHOT: Range " .. self.rangename )
self:T( self.id .. "EVENT SHOT: Ini unit = " .. EventData.IniUnitName ) self:T( self.lid .. "EVENT SHOT: Ini unit = " .. EventData.IniUnitName )
self:T( self.id .. "EVENT SHOT: Ini group = " .. EventData.IniGroupName ) self:T( self.lid .. "EVENT SHOT: Ini group = " .. EventData.IniGroupName )
self:T( self.id .. "EVENT SHOT: Weapon type = " .. _weapon ) self:T( self.lid .. "EVENT SHOT: Weapon type = " .. _weapon )
self:T( self.id .. "EVENT SHOT: Weapon name = " .. _weaponName ) self:T( self.lid .. "EVENT SHOT: Weapon name = " .. _weaponName )
self:T( self.id .. "EVENT SHOT: Weapon cate = " .. weaponcategory ) self:T( self.lid .. "EVENT SHOT: Weapon cate = " .. weaponcategory )
-- Tracking conditions for bombs, rockets and missiles. -- Tracking conditions for bombs, rockets and missiles.
local _bombs = weaponcategory == Weapon.Category.BOMB -- string.match(_weapon, "weapons.bombs") local _bombs = weaponcategory == Weapon.Category.BOMB -- string.match(_weapon, "weapons.bombs")
@ -1963,7 +1891,7 @@ function RANGE:OnEventShot( EventData )
-- Distance player to range. -- Distance player to range.
if _unit and _playername then if _unit and _playername then
dPR = _unit:GetCoordinate():Get2DDistance( self.location ) dPR = _unit:GetCoordinate():Get2DDistance( self.location )
self:T( self.id .. string.format( "Range %s, player %s, player-range distance = %d km.", self.rangename, _playername, dPR / 1000 ) ) self:T( self.lid .. string.format( "Range %s, player %s, player-range distance = %d km.", self.rangename, _playername, dPR / 1000 ) )
end end
-- Only track if distance player to range is < 25 km. Also check that a player shot. No need to track AI weapons. -- Only track if distance player to range is < 25 km. Also check that a player shot. No need to track AI weapons.
@ -1973,7 +1901,7 @@ function RANGE:OnEventShot( EventData )
local playerData = self.PlayerSettings[_playername] -- #RANGE.PlayerData local playerData = self.PlayerSettings[_playername] -- #RANGE.PlayerData
-- Tracking info and init of last bomb position. -- Tracking info and init of last bomb position.
self:T( self.id .. string.format( "RANGE %s: Tracking %s - %s.", self.rangename, _weapon, EventData.weapon:getName() ) ) self:T( self.lid .. string.format( "RANGE %s: Tracking %s - %s.", self.rangename, _weapon, EventData.weapon:getName() ) )
-- Init bomb position. -- Init bomb position.
local _lastBombPos = { x = 0, y = 0, z = 0 } -- DCS#Vec3 local _lastBombPos = { x = 0, y = 0, z = 0 } -- DCS#Vec3
@ -1986,7 +1914,7 @@ function RANGE:OnEventShot( EventData )
return _ordnance:getPoint() return _ordnance:getPoint()
end ) end )
self:T2( self.id .. string.format( "Range %s: Bomb still in air: %s", self.rangename, tostring( _status ) ) ) self:T2( self.lid .. string.format( "Range %s: Bomb still in air: %s", self.rangename, tostring( _status ) ) )
if _status then if _status then
---------------------------- ----------------------------
@ -2124,11 +2052,11 @@ function RANGE:OnEventShot( EventData )
end end
else else
self:T( self.id .. "Weapon impacted outside range zone." ) self:T( self.lid .. "Weapon impacted outside range zone." )
end end
-- Terminate the timer -- Terminate the timer
self:T( self.id .. string.format( "Range %s, player %s: Terminating bomb track timer.", self.rangename, _playername ) ) self:T( self.lid .. string.format( "Range %s, player %s: Terminating bomb track timer.", self.rangename, _playername ) )
return nil return nil
end -- _status check end -- _status check
@ -2136,13 +2064,21 @@ function RANGE:OnEventShot( EventData )
end -- end function trackBomb end -- end function trackBomb
-- Weapon is not yet "alife" just yet. Start timer in one second. -- Weapon is not yet "alife" just yet. Start timer in one second.
self:T( self.id .. string.format( "Range %s, player %s: Tracking of weapon starts in 0.1 seconds.", self.rangename, _playername ) ) self:T( self.lid .. string.format( "Range %s, player %s: Tracking of weapon starts in 0.1 seconds.", self.rangename, _playername ) )
timer.scheduleFunction( trackBomb, EventData.weapon, timer.getTime() + 0.1 ) timer.scheduleFunction( trackBomb, EventData.weapon, timer.getTime() + 0.1 )
end -- if _track (string.match) and player-range distance < threshold. end -- if _track (string.match) and player-range distance < threshold.
end end
--- Check spawn queue and spawn aircraft if necessary.
-- @param #RANGE self
-- @param #string PlayerName Name of player.
-- @return #RANGE.BombResult
function RANGE:_GetBombResults(PlayerName)
end
----------------------------------------------------------------------------------------------------------------------------------------------------------------------- -----------------------------------------------------------------------------------------------------------------------------------------------------------------------
-- FSM Functions -- FSM Functions
----------------------------------------------------------------------------------------------------------------------------------------------------------------------- -----------------------------------------------------------------------------------------------------------------------------------------------------------------------
@ -2183,7 +2119,7 @@ function RANGE:onafterStatus( From, Event, To )
end end
-- Check range status. -- Check range status.
self:I( self.id .. text ) self:I( self.lid .. text )
end end
@ -2205,22 +2141,31 @@ function RANGE:onafterEnterRange( From, Event, To, player )
if self.instructor and self.rangecontrol then if self.instructor and self.rangecontrol then
if self.useSRS then if self.useSRS then
local text = string.format("You entered the bombing range. For hit assessment, contact the range controller at %.3f MHz", self.rangecontrolfreq) local text = string.format("You entered the bombing range. For hit assessment, contact the range controller at %.3f MHz", self.rangecontrolfreq)
local ttstext = string.format("You entered the bombing range. For hit assessment, contact the range controller at %.3f mega hertz.", self.rangecontrolfreq) local ttstext = string.format("You entered the bombing range. For hit assessment, contact the range controller at %.3f mega hertz.", self.rangecontrolfreq)
local group = player.client:GetGroup() local group = player.client:GetGroup()
self.instructsrsQ:NewTransmission(ttstext, nil, self.instructmsrs, nil, 1, {group}, text, 10) self.instructsrsQ:NewTransmission(ttstext, nil, self.instructmsrs, nil, 1, {group}, text, 10)
else else
-- Range control radio frequency split. -- Range control radio frequency split.
local RF = UTILS.Split( string.format( "%.3f", self.rangecontrolfreq ), "." ) local RF = UTILS.Split( string.format( "%.3f", self.rangecontrolfreq ), "." )
-- Radio message that player entered the range -- Radio message that player entered the range
-- You entered the bombing range. For hit assessment, contact the range controller at xy MHz -- You entered the bombing range. For hit assessment, contact the range controller at xy MHz
self.instructor:NewTransmission( RANGE.Sound.IREnterRange.filename, RANGE.Sound.IREnterRange.duration, self.soundpath ) self.instructor:NewTransmission( RANGE.Sound.IREnterRange.filename, RANGE.Sound.IREnterRange.duration, self.soundpath )
self.instructor:Number2Transmission( RF[1] ) self.instructor:Number2Transmission( RF[1] )
if tonumber( RF[2] ) > 0 then if tonumber( RF[2] ) > 0 then
self.instructor:NewTransmission( RANGE.Sound.IRDecimal.filename, RANGE.Sound.IRDecimal.duration, self.soundpath ) self.instructor:NewTransmission( RANGE.Sound.IRDecimal.filename, RANGE.Sound.IRDecimal.duration, self.soundpath )
self.instructor:Number2Transmission( RF[2] ) self.instructor:Number2Transmission( RF[2] )
end end
self.instructor:NewTransmission( RANGE.Sound.IRMegaHertz.filename, RANGE.Sound.IRMegaHertz.duration, self.soundpath ) self.instructor:NewTransmission( RANGE.Sound.IRMegaHertz.filename, RANGE.Sound.IRMegaHertz.duration, self.soundpath )
end end
end end
@ -2238,9 +2183,24 @@ function RANGE:onafterExitRange( From, Event, To, player )
if self.instructor then if self.instructor then
-- You left the bombing range zone. Have a nice day! -- You left the bombing range zone. Have a nice day!
if self.useSRS then if self.useSRS then
local text = "You left the bombing range zone. Have a nice day!"
local group = player.client:GetGroup() local text = "You left the bombing range zone. "
self.instructsrsQ:NewTransmission(text,nil,self.instructmsrs,nil,1,{group},text,10)
local r=math.random(2)
if r==1 then
text=text.."Have a nice day!"
elseif r==2 then
text=text.."Take care and bye bye!"
elseif r==3 then
text=text.."Talk to you soon!"
elseif r==4 then
text=text.."See you in two weeks!"
elseif r==5 then
text=text.."!"
end
self.instructsrsQ:NewTransmission(text, nil, self.instructmsrs, nil, 1, {player.client:GetGroup()}, text, 10)
else else
self.instructor:NewTransmission( RANGE.Sound.IRExitRange.filename, RANGE.Sound.IRExitRange.duration, self.soundpath ) self.instructor:NewTransmission( RANGE.Sound.IRExitRange.filename, RANGE.Sound.IRExitRange.duration, self.soundpath )
end end
@ -2304,7 +2264,7 @@ function RANGE:onafterImpact( From, Event, To, result, player )
-- Send message. -- Send message.
self:_DisplayMessageToGroup( unit, text, nil, true ) self:_DisplayMessageToGroup( unit, text, nil, true )
self:T( self.id .. text ) self:T( self.lid .. text )
end end
-- Save results. -- Save results.
@ -2343,7 +2303,7 @@ function RANGE:onbeforeSave( From, Event, To )
if io and lfs then if io and lfs then
return true return true
else else
self:E( self.id .. string.format( "WARNING: io and/or lfs not desanitized. Cannot save player results." ) ) self:E( self.lid .. string.format( "WARNING: io and/or lfs not desanitized. Cannot save player results." ) )
return false return false
end end
end end
@ -2360,9 +2320,9 @@ function RANGE:onafterSave( From, Event, To )
if f then if f then
f:write( data ) f:write( data )
f:close() f:close()
self:I( self.id .. string.format( "Saving player results to file %s", tostring( filename ) ) ) self:I( self.lid .. string.format( "Saving player results to file %s", tostring( filename ) ) )
else else
self:E( self.id .. string.format( "ERROR: Could not save results to file %s", tostring( filename ) ) ) self:E( self.lid .. string.format( "ERROR: Could not save results to file %s", tostring( filename ) ) )
end end
end end
@ -2408,7 +2368,7 @@ function RANGE:onbeforeLoad( From, Event, To )
if io and lfs then if io and lfs then
return true return true
else else
self:E( self.id .. string.format( "WARNING: io and/or lfs not desanitized. Cannot load player results." ) ) self:E( self.lid .. string.format( "WARNING: io and/or lfs not desanitized. Cannot load player results." ) )
return false return false
end end
end end
@ -2424,12 +2384,12 @@ function RANGE:onafterLoad( From, Event, To )
local function _loadfile( filename ) local function _loadfile( filename )
local f = io.open( filename, "rb" ) local f = io.open( filename, "rb" )
if f then if f then
-- self:I(self.id..string.format("Loading player results from file %s", tostring(filename))) -- self:I(self.lid..string.format("Loading player results from file %s", tostring(filename)))
local data = f:read( "*all" ) local data = f:read( "*all" )
f:close() f:close()
return data return data
else else
self:E( self.id .. string.format( "WARNING: Could not load player results from file %s. File might not exist just yet.", tostring( filename ) ) ) self:E( self.lid .. string.format( "WARNING: Could not load player results from file %s. File might not exist just yet.", tostring( filename ) ) )
return nil return nil
end end
end end
@ -2442,7 +2402,7 @@ function RANGE:onafterLoad( From, Event, To )
-- Info message. -- Info message.
local text = string.format( "Loading player bomb results from file %s", filename ) local text = string.format( "Loading player bomb results from file %s", filename )
self:I( self.id .. text ) self:I( self.lid .. text )
-- Load asset data from file. -- Load asset data from file.
local data = _loadfile( filename ) local data = _loadfile( filename )
@ -2909,7 +2869,7 @@ function RANGE:_DisplayRangeInfo( _unitname )
self:_DisplayMessageToGroup( unit, text, nil, true, true, _multiplayer ) self:_DisplayMessageToGroup( unit, text, nil, true, true, _multiplayer )
-- Debug output. -- Debug output.
self:T2( self.id .. text ) self:T2( self.lid .. text )
end end
end end
end end
@ -3056,9 +3016,9 @@ function RANGE:_DisplayRangeWeather( _unitname )
self:_DisplayMessageToGroup( unit, text, nil, true, true, _multiplayer ) self:_DisplayMessageToGroup( unit, text, nil, true, true, _multiplayer )
-- Debug output. -- Debug output.
self:T2( self.id .. text ) self:T2( self.lid .. text )
else else
self:T( self.id .. string.format( "ERROR! Could not find player unit in RangeInfo! Name = %s", _unitname ) ) self:T( self.lid .. string.format( "ERROR! Could not find player unit in RangeInfo! Name = %s", _unitname ) )
end end
end end
@ -3453,10 +3413,10 @@ function RANGE:_AddF10Commands( _unitName )
local _StrPits = MENU_GROUP_COMMAND:New( group, "Strafe Pits", _infoPath, self._DisplayStrafePits, self, _unitName ):Refresh() local _StrPits = MENU_GROUP_COMMAND:New( group, "Strafe Pits", _infoPath, self._DisplayStrafePits, self, _unitName ):Refresh()
end end
else else
self:E( self.id .. "Could not find group or group ID in AddF10Menu() function. Unit name: " .. _unitName or "N/A") self:E( self.lid .. "Could not find group or group ID in AddF10Menu() function. Unit name: " .. _unitName or "N/A")
end end
else else
self:E( self.id .. "Player unit does not exist in AddF10Menu() function. Unit name: " .. _unitName or "N/A") self:E( self.lid .. "Player unit does not exist in AddF10Menu() function. Unit name: " .. _unitName or "N/A")
end end
end end
@ -3496,7 +3456,7 @@ function RANGE:_GetBombTargetCoordinate( target )
coord = target.coordinate coord = target.coordinate
else else
self:E( self.id .. "ERROR: Unknown target type." ) self:E( self.lid .. "ERROR: Unknown target type." )
end end
return coord return coord
@ -3524,7 +3484,7 @@ function RANGE:_GetAmmo( unitname )
if ammotable ~= nil then if ammotable ~= nil then
local weapons = #ammotable local weapons = #ammotable
self:T2( self.id .. string.format( "Number of weapons %d.", weapons ) ) self:T2( self.lid .. string.format( "Number of weapons %d.", weapons ) )
for w = 1, weapons do for w = 1, weapons do
@ -3538,10 +3498,10 @@ function RANGE:_GetAmmo( unitname )
ammo = ammo + Nammo ammo = ammo + Nammo
local text = string.format( "Player %s has %d rounds ammo of type %s", playername, Nammo, Tammo ) local text = string.format( "Player %s has %d rounds ammo of type %s", playername, Nammo, Tammo )
self:T( self.id .. text ) self:T( self.lid .. text )
else else
local text = string.format( "Player %s has %d ammo of type %s", playername, Nammo, Tammo ) local text = string.format( "Player %s has %d ammo of type %s", playername, Nammo, Tammo )
self:T( self.id .. text ) self:T( self.lid .. text )
end end
end end
end end
@ -4005,20 +3965,20 @@ function RANGE:_CheckStatic( name )
-- If static is not yet in MOOSE DB, we add it. Can happen for cargo statics! -- If static is not yet in MOOSE DB, we add it. Can happen for cargo statics!
if not _MOOSEstatic then if not _MOOSEstatic then
self:T( self.id .. string.format( "Adding DCS static to MOOSE database. Name = %s.", name ) ) self:T( self.lid .. string.format( "Adding DCS static to MOOSE database. Name = %s.", name ) )
_DATABASE:AddStatic( name ) _DATABASE:AddStatic( name )
end end
return true return true
else else
self:T3( self.id .. string.format( "No static object with name %s exists.", name ) ) self:T3( self.lid .. string.format( "No static object with name %s exists.", name ) )
end end
-- Check if a unit has this name. -- Check if a unit has this name.
if UNIT:FindByName( name ) then if UNIT:FindByName( name ) then
return false return false
else else
self:T3( self.id .. string.format( "No unit object with name %s exists.", name ) ) self:T3( self.lid .. string.format( "No unit object with name %s exists.", name ) )
end end
-- If not unit or static exist, we return nil. -- If not unit or static exist, we return nil.

1
Moose Development/Moose/Utilities/Socket.lua
View File

@ -44,6 +44,7 @@ SOCKET = {
} }
--- Data type. This is the keyword the socket listener uses. --- Data type. This is the keyword the socket listener uses.
-- @type SOCKET.DataType
-- @field #string TEXT Plain text. -- @field #string TEXT Plain text.
-- @field #string BOMBRESULT Range bombing. -- @field #string BOMBRESULT Range bombing.
-- @field #string STRAFERESULT Range strafeing result. -- @field #string STRAFERESULT Range strafeing result.