@jtff/miztemplate-lib 2.2.0 → 3.0.0-rc2

package/lua/src/178-training-intercept.lua

@@ -0,0 +1,263 @@
+-- *****************************************************************************
+--                     **                    Interception Training            **
+--                     *********************************************************
+function clearIntercept(param)
+    local objInterceptIndex = param[1]
+    local objIntercept = InterceptArray[objInterceptIndex]
+    debug_msg(string.format("Intercept: objIntercept.objSpawn is %s", net.lua2json(objIntercept.objSpawn)))
+    local GroupPlane, Index = objIntercept.objSpawn:GetFirstAliveGroup()
+    while GroupPlane ~= nil do
+        GroupPlane:ScheduleStop()
+        GroupPlane:Destroy(true,0)
+        GroupPlane, Index = objIntercept.objSpawn:GetNextAliveGroup( Index )
+    end
+    collectgarbage()
+end
+
+function interceptDefendFicghter(targetGroup)
+    targetGroup:OptionROEWeaponFree()
+    targetGroup:OptionROTVertical()
+    targetGroup:OptionRTBBingoFuel(true)
+    targetGroup:OptionRestrictBurner(false)
+    targetGroup:EnableEmission(true)
+    targetGroup:OptionAlarmStateRed()
+    targetGroup:OptionECM_DetectedLockByRadar()
+    targetGroup:CommandEPLRS(true)
+end
+
+function interceptDefendFastBomber(targetGroup)
+    targetGroup:OptionRestrictBurner(false)
+    local targetDestinationCoord = targetGroup:GetCoordinate():Translate(
+            UTILS.NMToMeters(150),
+            targetGroup:GetHeading(),
+            true,
+            false
+    ):SetAltitude(UTILS.FeetToMeters(55000), true)
+    targetGroup:Route(
+            {
+                targetDestinationCoord:WaypointAirTurningPoint(
+                        COORDINATE.WaypointAltType.BARO,
+                        UTILS.KnotsToKmph(5000),
+                        nil,
+                        "End interception"
+                ),
+                targetDestinationCoord:GetClosestAirbase(
+                        targetGroup:GetCategory(),
+                        targetGroup:GetCoalition()
+                ):GetCoordinate():WaypointAirLanding(
+                        UTILS.KnotsToKmph(250),
+                        targetDestinationCoord:GetClosestAirbase(
+                                targetGroup:GetCategory(),
+                                targetGroup:GetCoalition()
+                        )
+                )
+            }
+    )
+end
+
+function interceptDetection(param)
+    local objIntercept = param[1]
+    debug_msg(string.format("Intercept: objIntercept.interceptDetectionZone is %s", net.lua2json(objIntercept.interceptDetectionZone)))
+    --debug_msg(string.format("Intercept: interceptorUnitName is %s", net.lua2json(interceptorUnitName)))
+    if ( objIntercept.bubbleInvaded == false ) then
+        debug_msg(string.format("Intercept: %s has not yet been intercepted", objIntercept.interceptTarget:GetName()))
+        --debug_msg(string.format("Intercept: interceptDetectionZone is %s", net.lua2json(interceptDetectionZone)))
+        if (SET_CLIENT:New():FilterZones({objIntercept.interceptDetectionZone}):FilterOnce():CountAlive() > 0) then
+            objIntercept.bubbleInvaded = true
+            debug_msg(string.format("Intercept: %s has been intercepted", objIntercept.interceptTarget:GetName()))
+            if (objIntercept.knowIsIntercepted == false) then
+                if (math.random(1,100) >= 75) then
+                    local delay = math.random(15,120)
+                    debug_msg(string.format("Intercept: %s has detected it has been intercepted : he will react accordingly in %i seconds !", objIntercept.interceptTarget:GetName(), delay))
+                    objIntercept.knowIsIntercepted = true
+                    if objIntercept.customconfig.type == 'fastbomber' then
+                        SCHEDULER:New(
+                                objIntercept.interceptTarget,
+                                interceptDefendFastBomber,
+                                {},
+                                delay
+                        )
+                    elseif objIntercept.customconfig.type == 'fighter' then
+                        SCHEDULER:New(
+                                objIntercept.interceptTarget,
+                                interceptDefendFicghter,
+                                {},
+                                delay
+                        )
+                    end
+                else
+                    debug_msg(string.format("Intercept: %s has not detected soon enough it has been intercepted", objIntercept.interceptTarget:GetName()))
+                end
+            end
+        end
+    end
+end
+
+function StartInterceptTraining(param)
+    local fighterUnitName = param[1]
+    local objInterceptIndex = param[2]
+    local minTA = param[3]
+    local maxTA = param[4]
+    local fighterUnit = UNIT:FindByName(fighterUnitName)
+    local fighterGroup = fighterUnit:GetGroup()
+    local fighterCoord = fighterUnit:GetCoordinate()
+    local fighterHeading = fighterUnit:GetHeading()
+    local fighterAltitude = fighterUnit:GetAltitude(false)
+    local deltaAltMax = nil
+    local targetGroup = nil
+    local targetRange = nil
+    local targetGroundSpeed = 450
+    local targetAngle = math.mod(minTA + math.random(0,maxTA-minTA),360)
+    if (math.abs(math.mod(targetAngle,180)) > 50) then
+        targetRange = 40
+        deltaAltMax = 7000
+    elseif (math.abs(math.mod(targetAngle,180)) > 20) then
+        targetRange = 60
+        deltaAltMax = 10000
+    else
+        targetRange = 90
+        deltaAltMax = 15000
+    end
+    debug_msg(string.format("Intercept: Launching exercise TargetAngle %i degrees", targetAngle))
+    debug_msg(string.format("Intercept: Index is : %i", objInterceptIndex))
+    local targetSpawnObj = InterceptArray[objInterceptIndex].objSpawn
+    local targetCoord = POINT_VEC3:NewFromVec3(
+            {
+                x = fighterCoord.x + math.floor(UTILS.NMToMeters(targetRange) * math.cos(math.rad(fighterHeading))),
+                y = math.max(
+                        math.min(
+                                math.random(
+                                        fighterCoord.y - UTILS.FeetToMeters(deltaAltMax),
+                                        fighterCoord.y + UTILS.FeetToMeters(deltaAltMax)
+                                ),
+                                UTILS.FeetToMeters(32000)
+                        ),
+                        UTILS.FeetToMeters(8000)
+                ),
+                z = fighterCoord.z + math.floor(UTILS.NMToMeters(targetRange) * math.sin(math.rad(fighterHeading))),
+            }
+    )
+    debug_msg(string.format("Intercept: Spawning target based on %s with TargetAngle of %i degrees", targetSpawnObj.SpawnTemplatePrefix, targetAngle))
+    targetGroup = targetSpawnObj:InitHeading(math.mod(fighterHeading + 180 + targetAngle,360)):SpawnFromVec3(targetCoord)
+    targetGroup:OptionROE(ENUMS.ROE.WeaponHold)
+    targetGroup:OptionROT(ENUMS.ROT.NoReaction)
+    targetGroup:OptionRTBBingoFuel(true)
+    targetGroup:OptionRestrictBurner(false)
+    targetGroup:EnableEmission(false)
+    targetGroup:OptionAlarmStateGreen()
+    targetGroup:OptionECM_Never()
+    targetGroup:CommandEPLRS(true)
+    InterceptArray[objInterceptIndex].interceptTarget = targetGroup
+    InterceptArray[objInterceptIndex].knowIsIntercepted = false
+    InterceptArray[objInterceptIndex].bubbleInvaded = false
+    local targetDetectionRange = 1.5
+    --targetDetectionRange = 70
+    InterceptArray[objInterceptIndex].interceptDetectionZone = ZONE_GROUP:New(
+            "intercept-" .. targetGroup:GetName(),
+            targetGroup,
+            UTILS.NMToMeters(targetDetectionRange)
+    )
+    InterceptArray[objInterceptIndex].interceptTarget:ScheduleRepeat(
+            0,
+            5,
+            nil,
+            nil,
+            interceptDetection,
+            {
+                InterceptArray[objInterceptIndex]
+            }
+    )
+    local targetDestinationCoord = targetGroup:GetCoordinate():Translate(
+            UTILS.NMToMeters(200),
+            math.mod(fighterHeading+180+ targetAngle,360),
+            true,
+            false
+    )
+    targetGroup:Route(
+            {
+                targetDestinationCoord:WaypointAirTurningPoint(
+                        COORDINATE.WaypointAltType.BARO,
+                        UTILS.KnotsToKmph(targetGroundSpeed),
+                        nil,
+                        "End interception"
+                ),
+                targetDestinationCoord:GetClosestAirbase(
+                        targetGroup:GetCategory(),
+                        targetGroup:GetCoalition()
+                ):GetCoordinate():WaypointAirLanding(
+                        UTILS.KnotsToKmph(targetGroundSpeed),
+                        targetDestinationCoord:GetClosestAirbase(
+                                targetGroup:GetCategory(),
+                                targetGroup:GetCoalition()
+                        )
+                )
+            }
+    )
+    return targetGroup
+end
+
+InterceptArray = {}
+compteur = 0
+MenuCoalitionInterceptBlue = MENU_COALITION:New(coalition.side.BLUE, "Intercept Training", MenuCoalitionBlue)
+MenuCoalitionInterceptRed = MENU_COALITION:New(coalition.side.RED, "Intercept Training", MenuCoalitionRed)
+for index, intconfig in ipairs(InterceptConfig) do
+    if intconfig.enable == true then
+        debug_msg(string.format("Intercept: Enable %s with %s behavior", intconfig.name, intconfig.type))
+        compteur = compteur +1
+        local objIntercept = {
+            customconfig = {},
+            objSpawn = nil,
+            menus = {},
+            menu_finex = {},
+            knowIsIntercepted = false,
+            bubbleInvaded = false,
+        }
+        objIntercept.objSpawn = SPAWN:New(intconfig.templates[1])
+                                     :InitSkill(intconfig.skill)
+                                     :InitRandomizeTemplatePrefixes(intconfig.templates)
+        if (intconfig.type == 'civil') then
+            objIntercept.menus[coalition.side.BLUE] = MENU_COALITION:New(coalition.side.BLUE, intconfig.name, MenuCoalitionInterceptBlue)
+            objIntercept.menu_finex[coalition.side.BLUE] = MENU_COALITION_COMMAND:New(
+                    coalition.side.BLUE,
+                    "Knock it off, FinEx !!",
+                    objIntercept.menus[coalition.side.BLUE],
+                    clearIntercept,
+                    {
+                        compteur
+                    }
+            )
+            objIntercept.menus[coalition.side.RED] = MENU_COALITION:New(coalition.side.RED, intconfig.name, MenuCoalitionInterceptRed)
+            objIntercept.menu_finex[coalition.side.RED] = MENU_COALITION_COMMAND:New(
+                    coalition.side.RED,
+                    "Knock it off, FinEx !!",
+                    objIntercept.menus[coalition.side.RED],
+                    clearIntercept,
+                    {
+                        compteur
+                    }
+            )
+        else
+            if (intconfig.benefitCoalition == coalition.side.BLUE) then
+                objIntercept.menus[intconfig.benefitCoalition] = MENU_COALITION:New(intconfig.benefitCoalition, intconfig.name, MenuCoalitionInterceptBlue)
+            else
+                objIntercept.menus[intconfig.benefitCoalition] = MENU_COALITION:New(intconfig.benefitCoalition, intconfig.name, MenuCoalitionInterceptRed)
+            end
+            objIntercept.menu_finex[intconfig.benefitCoalition] = MENU_COALITION_COMMAND:New(
+                    intconfig.benefitCoalition,
+                    "Knock it off, FinEx !!",
+                    objIntercept.menus[intconfig.benefitCoalition],
+                    clearIntercept,
+                    {
+                        compteur
+                    }
+            )
+        end
+        objIntercept.customconfig = intconfig
+        InterceptArray[compteur] = objIntercept
+    end
+end
+
+if compteur == 0 then
+    MenuCoalitionInterceptBlue:Remove()
+    MenuCoalitionInterceptRed:Remove()
+end

package/lua/src/180-logistics.lua

@@ -0,0 +1,80 @@
+-- *****************************************************************************
+--                     **                     CTLD Logistics                  **
+--                     *********************************************************
+
+CTLDArray = {}
+compteur = 0
+mainRadioMenuForLogisticsBlue =  MENU_COALITION:New( coalition.side.BLUE , "Logistics", MenuCoalitionBlue )
+mainRadioMenuForLogisticsRed =  MENU_COALITION:New( coalition.side.RED , "Logistics", MenuCoalitionRed )
+for index, ctldconfig in ipairs(CTLDConfig) do
+    if ctldconfig.enable == true then
+        compteur = compteur + 1
+        env.info('creation Logistics : '.. ctldconfig.name..'...')
+        CTLDArray[compteur] = {
+            customconfig = ctldconfig,
+            CTLDObject = CTLD:New(ctldconfig.benefit_coalition,{},ctldconfig.name),
+            LogisticsRootMenu = {},
+            SubLogisticsMenus = {},
+        }
+        if (ctldconfig.benefit_coalition == coalition.side.BLUE) then
+            CTLDArray[compteur].LogisticsRootMenu = MENU_COALITION:New( coalition.side.BLUE, ctldconfig.name , mainRadioMenuForLogisticsBlue)
+            local radioMenuForRange = CTLDArray[compteur].LogisticsRootMenu
+        else
+            CTLDArray[compteur].LogisticsRootMenu = MENU_COALITION:New( coalition.side.RED, ctldconfig.name , mainRadioMenuForLogisticsRed)
+            local radioMenuForRange = CTLDArray[compteur].LogisticsRootMenu
+        end
+        CTLDArray[compteur].CTLDObject.useprefix = ctldconfig.useprefix
+        CTLDArray[compteur].CTLDObject.CrateDistance = ctldconfig.CrateDistance or 35
+        CTLDArray[compteur].CTLDObject.dropcratesanywhere = ctldconfig.dropcratesanywhere
+        CTLDArray[compteur].CTLDObject.maximumHoverHeight = ctldconfig.maximumHoverHeight or 15
+        CTLDArray[compteur].CTLDObject.minimumHoverHeight = ctldconfig.minimumHoverHeight or 4
+        CTLDArray[compteur].CTLDObject.forcehoverload = ctldconfig.forcehoverload
+        CTLDArray[compteur].CTLDObject.hoverautoloading = ctldconfig.hoverautoloading
+        CTLDArray[compteur].CTLDObject.smokedistance = ctldconfig.smokedistance or UTILS.NMToMeters(5)
+        CTLDArray[compteur].CTLDObject.movetroopstowpzone = ctldconfig.movetroopstowpzone
+        CTLDArray[compteur].CTLDObject.movetroopsdistance = ctldconfig.movetroopsdistance or UTILS.NMToMeters(3)
+        CTLDArray[compteur].CTLDObject.smokedistance = ctldconfig.smokedistance or UTILS.NMToMeters(2)
+        CTLDArray[compteur].CTLDObject.suppressmessages = ctldconfig.suppressmessages
+        CTLDArray[compteur].CTLDObject.repairtime = ctldconfig.repairtime or 300
+        CTLDArray[compteur].CTLDObject.buildtime = ctldconfig.buildtime or 300
+        CTLDArray[compteur].CTLDObject.allowcratepickupagain = ctldconfig.allowcratepickupagain
+        CTLDArray[compteur].CTLDObject.enableslingload = ctldconfig.enableslingload
+        CTLDArray[compteur].CTLDObject.pilotmustopendoors = ctldconfig.pilotmustopendoors
+        CTLDArray[compteur].CTLDObject.placeCratesAhead = ctldconfig.placeCratesAhead
+        CTLDArray[compteur].CTLDObject.nobuildinloadzones = ctldconfig.nobuildinloadzones
+        for indexzone, zone in ipairs(ctldconfig.zones) do
+            CTLDArray[compteur].CTLDObject:AddCTLDZone(
+                    zone.zoneName,
+                    zone.zoneType or CTLD.CargoZoneType.LOAD,
+                    zone.smokeColor or nil,
+                    zone.active or false,
+                    zone.beacon or false)
+        end
+        for indexcrate, crate in ipairs(ctldconfig.crates) do
+            CTLDArray[compteur].CTLDObject:AddCratesCargo(
+                    crate.crateName,
+                    crate.templateGroups or {},
+                    crate.crateCargoType or CTLD_CARGO.Enum.CRATE,
+                    crate.crateNumber or 1,
+                    crate.crateWeight or 0,
+                    crate.crateStock or 10
+            )
+        end
+        for indextroops, troop in ipairs(ctldconfig.troops) do
+            CTLDArray[compteur].CTLDObject:AddTroopsCargo(
+                    troop.troopName,
+                    troop.templateGroups or {},
+                    troop.crateCargoType or CTLD_CARGO.Enum.TROOPS,
+                    troop.troopSeats or 1,
+                    troop.troopWeight or 0,
+                    troop.troopStock or 10
+            )
+        end
+        CTLDArray[compteur].CTLDObject:__Start(5)
+    end
+end
+
+if compteur == 0 then
+    mainRadioMenuForLogisticsBlue:Remove()
+    mainRadioMenuForLogisticsRed:Remove()
+end

package/lua/src/190-ranges.lua

@@ -0,0 +1,54 @@
+-- *****************************************************************************
+--                     **                     RANGES                         **
+--                     *********************************************************
+RangesArray = {}
+compteur = 0
+mainRadioMenuForRangesBlue =  MENU_COALITION:New( coalition.side.BLUE , "RANGES", MenuCoalitionBlue )
+mainRadioMenuForRangesRed =  MENU_COALITION:New( coalition.side.RED , "RANGES", MenuCoalitionRed )
+for index, rangeconfig in ipairs(RangeConfig) do
+    if rangeconfig.enable == true then
+        compteur = compteur + 1
+        env.info('creation Range : '.. rangeconfig.name..'...')
+        RangesArray[compteur] = {
+            customconfig = rangeconfig,
+            RangeRootMenu = {},
+            SubRangeMenus = {},
+        }
+        if (rangeconfig.benefit_coalition == coalition.side.BLUE) then
+            RangesArray[compteur].RangeRootMenu = MENU_COALITION:New( coalition.side.BLUE, rangeconfig.name , mainRadioMenuForRangesBlue)
+            local radioMenuForRange = RangesArray[compteur].RangeRootMenu
+            for indexsubRange, subRangeConfig in ipairs(rangeconfig.subRange) do
+                RangesArray[compteur].SubRangeMenus[indexsubRange] = MENU_COALITION:New(rangeconfig.benefit_coalition, subRangeConfig.name, radioMenuForRange)
+                local radioMenuSubRange = RangesArray[compteur].SubRangeMenus[indexsubRange]
+                if (subRangeConfig.subsubRange ~= nil) then
+                    for indexSubSubRange, subsubRangeConfig in ipairs(subRangeConfig.subsubRange) do
+                        local radioMenuSubSubRange = MENU_COALITION:New(rangeconfig.benefit_coalition, subsubRangeConfig.name, radioMenuSubRange)
+                        addSubRangeRadioMenus(radioMenuSubSubRange, rangeconfig, subsubRangeConfig)
+                    end
+                else
+                    addSubRangeRadioMenus(radioMenuSubRange, rangeconfig, subRangeConfig)
+                end
+            end
+            AddWholeRangeCoalitionCommandMenus(radioMenuForRange, rangeconfig)
+        else
+            local radioMenuForRange = MENU_COALITION:New( coalition.side.RED, rangeconfig.name , mainRadioMenuForRangesRed)
+            for index, subRangeConfig in ipairs(rangeconfig.subRange) do
+                local radioMenuSubRange = MENU_COALITION:New(rangeconfig.benefit_coalition, subRangeConfig.name, radioMenuForRange)
+                if (subRangeConfig.subsubRange ~= nil) then
+                    for index, subsubRangeConfig in ipairs(subRangeConfig.subsubRange) do
+                        local radioMenuSubSubRange = MENU_COALITION:New(rangeconfig.benefit_coalition, subsubRangeConfig.name, radioMenuSubRange)
+                        addSubRangeRadioMenus(radioMenuSubSubRange, rangeconfig, subsubRangeConfig)
+                    end
+                else
+                    addSubRangeRadioMenus(radioMenuSubRange, rangeconfig, subRangeConfig)
+                end
+            end
+            AddWholeRangeCoalitionCommandMenus(radioMenuForRange, rangeconfig)
+        end
+    end
+end
+
+if compteur == 0 then
+    mainRadioMenuForRangesBlue:Remove()
+    mainRadioMenuForRangesRed:Remove()
+end

package/lua/src/191-sams.lua

@@ -0,0 +1,49 @@
+-- *****************************************************************************
+--                     **                     SAMS                         **
+--                     *********************************************************
+
+SamsArray = {}
+compteur = 0
+mainRadioMenuForSamsBlue =  MENU_COALITION:New( coalition.side.BLUE , "SAMs", MenuCoalitionBlue )
+mainRadioMenuForSamsRed =  MENU_COALITION:New( coalition.side.RED , "SAMs", MenuCoalitionRed )
+for index, samconfig in ipairs(SamsConfig) do
+    if samconfig.enable == true then
+        compteur = compteur + 1
+        env.info('creation Sam site : '.. samconfig.name..'...')
+        SamsArray[compteur] = {
+            customconfig = samconfig
+        }
+        if (samconfig.benefit_coalition == coalition.side.BLUE) then
+            local radioMenuForRange   =  MENU_COALITION:New( coalition.side.BLUE, samconfig.name , mainRadioMenuForSamsBlue)
+            for index, subRangeConfig in ipairs(samconfig.subRange) do
+                local radioMenuSubRange     = MENU_COALITION:New(samconfig.benefit_coalition, subRangeConfig.name,   radioMenuForRange)
+                if (subRangeConfig.subsubRange ~= nil) then
+                    for index, subsubRangeConfig in ipairs(subRangeConfig.subsubRange) do
+                        local radioMenuSubSubRange     = MENU_COALITION:New(samconfig.benefit_coalition, subsubRangeConfig.name,   radioMenuSubRange)
+                        addSubRangeRadioMenus(radioMenuSubSubRange, samconfig, subsubRangeConfig)
+                    end
+                else
+                    addSubRangeRadioMenus(radioMenuSubRange, samconfig, subRangeConfig)
+                end
+            end
+        else
+            local radioMenuForRange   =  MENU_COALITION:New( coalition.side.RED, samconfig.name , mainRadioMenuForSamsRed)
+            for index, subRangeConfig in ipairs(samconfig.subRange) do
+                local radioMenuSubRange     = MENU_COALITION:New(samconfig.benefit_coalition, subRangeConfig.name,   radioMenuForRange)
+                if (subRangeConfig.subsubRange ~= nil) then
+                    for index, subsubRangeConfig in ipairs(subRangeConfig.subsubRange) do
+                        local radioMenuSubSubRange     = MENU_COALITION:New(samconfig.benefit_coalition, subsubRangeConfig.name,   radioMenuSubRange)
+                        addSubRangeRadioMenus(radioMenuSubSubRange, samconfig, subsubRangeConfig)
+                    end
+                else
+                    addSubRangeRadioMenus(radioMenuSubRange, samconfig, subRangeConfig)
+                end
+            end
+        end
+    end
+end
+
+if compteur == 0 then
+    mainRadioMenuForSamsBlue:Remove()
+    mainRadioMenuForSamsRed:Remove()
+end

package/lua/src/193-training_ranges.lua

@@ -0,0 +1,191 @@
+-- *****************************************************************************
+--                     **                Training RANGES                      **
+--                     *********************************************************
+
+TrainingRangeArray = {}
+compteur = 0
+for index, traingingrangeconfig in ipairs(TrainingRangeConfig) do
+    if traingingrangeconfig.enable == true then
+        compteur = compteur + 1
+        env.info('creation of Training Range : ' .. traingingrangeconfig.name .. '...')
+        TrainingRangeArray[compteur] = {
+            customconfig = traingingrangeconfig
+        }
+        trainingRange = RANGE:New(traingingrangeconfig.name)
+        trainingRange:SetDefaultPlayerSmokeBomb(false)
+        trainingRange:SetRangeRadius(0.2) -- bomb impact at more than 200m is out of range
+        trainingRange:SetScoreBombDistance(100)-- bomb impact at more than 100m won't be taken into account
+        trainingRange:SetFunkManOn(10043,"127.0.0.1")
+        trainingRange:SetAutosaveOn()
+        trainingRange:SetTargetSheet(traingingrangeconfig.targetsheetpath)
+        if ( type(traingingrangeconfig.srs) ~= nil ) then
+            if ( traingingrangeconfig.srs.useSRS == true) then
+                trainingRange:SetSRS(traingingrangeconfig.srs.path, traingingrangeconfig.srs.port, coalition.side.BLUE)
+            else
+                trainingRange:SetSoundfilesPath(soundFilesPrefix .. 'RANGE/Range Soundfiles/')
+            end
+        else
+            trainingRange:SetSoundfilesPath(soundFilesPrefix .. 'RANGE/Range Soundfiles/')
+        end
+        if (traingingrangeconfig.instructionradio) then
+            if ( type(traingingrangeconfig.srs) ~= nil ) then
+                if (traingingrangeconfig.srs.useSRS == true) then
+                    trainingRange:SetSRSRangeInstructor(traingingrangeconfig.instructionradio.freq, nil, nil, nil, nil,traingingrangeconfig.instructionradio.unitname)
+                else
+                    trainingRange:SetInstructorRadio(
+                            traingingrangeconfig.instructionradio.freq,
+                            traingingrangeconfig.instructionradio.unitname
+                    )
+                end
+            else
+                trainingRange:SetInstructorRadio(
+                        traingingrangeconfig.instructionradio.freq,
+                        traingingrangeconfig.instructionradio.unitname
+                )
+            end
+        end
+        if (traingingrangeconfig.controlradio) then
+            if ( type(traingingrangeconfig.srs) ~= nil ) then
+                if (traingingrangeconfig.srs.useSRS == true) then
+                    trainingRange:SetSRSRangeControl(traingingrangeconfig.controlradio.freq, nil, nil, nil, nil, traingingrangeconfig.controlradio.unitname)
+                else
+                    trainingRange:SetRangeControl(
+                            traingingrangeconfig.controlradio.freq,
+                            traingingrangeconfig.controlradio.unitname
+                    )
+                end
+            else
+                trainingRange:SetRangeControl(
+                        traingingrangeconfig.controlradio.freq,
+                        traingingrangeconfig.controlradio.unitname
+                )
+            end
+        end
+        for index, subrangeTraining in ipairs(traingingrangeconfig.targets) do
+            env.info('subrangeTraining type : ' .. subrangeTraining.type)
+            if (subrangeTraining.type == "Strafepit") then
+                local fouldist = trainingRange:GetFoullineDistance(subrangeTraining.unit_name,
+                        subrangeTraining.foul_line)
+                env.info('Add strafe pit : ' .. subrangeTraining.unit_name)
+                trainingRange:AddStrafePit(subrangeTraining.unit_name, subrangeTraining.boxlength,
+                        subrangeTraining.boxwidth, subrangeTraining.heading, subrangeTraining.inverseheading,
+                        subrangeTraining.goodpass, fouldist)
+            elseif (subrangeTraining.type == "BombCircle") then
+                env.info('Add bombing target : ' .. subrangeTraining.unit_name)
+                trainingRange:AddBombingTargets(subrangeTraining.unit_name, subrangeTraining.precision)
+            end
+        end
+        
+        --function saveTargetSheet(result, path, prefix)
+        --    local function _savefile(filename, data)
+        --        local f = io.open(filename, "wb")
+        --        if f then
+        --            f:write(data)
+        --            f:close()
+        --        else
+        --            env.info("RANGEBOSS EDIT - could not save target sheet to file")
+        --        end
+        --    end
+        --
+        --    -- Set path or default.
+        --    local _path = path
+        --    if lfs then
+        --        _path = _path or lfs.writedir() .. [[Logs\]]
+        --    end
+        --
+        --    -- Create unused file name.
+        --    local filename = nil
+        --    for i = 1, 9999 do
+        --
+        --        -- Create file name
+        --        if prefix then
+        --            filename = string.format("%s_%s-%04d.csv", prefix, result.airframe, i)
+        --        else
+        --            local name = UTILS.ReplaceIllegalCharacters(result.player, "_")
+        --            filename = string.format("RANGERESULTS-%s_Targetsheet-%s-%04d.csv", result.rangename, name, i)
+        --        end
+        --
+        --        -- Set path.
+        --        if _path ~= nil then
+        --            filename = _path .. "\\" .. filename
+        --        end
+        --
+        --        -- Check if file exists.
+        --        local _exists = UTILS.FileExists(filename)
+        --        if not _exists then
+        --            break
+        --        end
+        --    end
+        --
+        --    -- Header line
+        --    local data = "Name,Target,Distance,Radial,Quality,Rounds Fired,Rounds Hit,Rounds Quality,Weapon,Attack Heading,Airframe,Mission Time,OS Time\n"
+        --
+        --    -- local result=_result --#RANGE.BombResult
+        --    local playername = result.player
+        --    local distance = result.distance
+        --    local weapon = result.weapon
+        --    local target = result.name
+        --    local radial = result.radial
+        --    local quality = result.quality
+        --    local time = result.clock
+        --    local airframe = result.airframe
+        --    local date = "n/a"
+        --    local roundsFired = result.roundsFired
+        --    local roundsHit = result.roundsHit
+        --    local roundsQuality = result.roundsQuality
+        --    local attackHeading = result.heading
+        --    if os then
+        --        date = os.date()
+        --    end
+        --    data = data .. string.format( "%s,%s,%.2f,%03d,%s,%03d,%03d,%s,%s,%s,%s,%s", playername, target, distance, radial, quality, roundsFired, roundsHit, roundsQuality, weapon, attackHeading, airframe, time, date )
+        --
+        --    -- Save file.
+        --    _savefile( filename, data )
+        --end
+        
+        --function trainingRange:OnAfterImpact(From, Event, To, result, player)
+        --    result.messageType = 4
+        --    result.callsign = player.playername
+        --    result.rangeName = result.rangename
+        --    result.missionType = "1"
+        --    result.mizTime = result.clock
+        --    result.strafeAccuracy = "N/A"
+        --    result.strafeQuality = "N/A"
+        --    result.altitude = result.attackAlt*3.28084
+        --    result.pitch = playerPitchForRangeData
+        --    result.heading = math.floor(result.attackHdg)
+        --    result.strafeScore = "N/A"
+        --    result.bombScore = "notSet"
+        --
+        --    if result.quality == "SHACK" then
+        --        result.bombScore = "5"
+        --    elseif result.quality == "EXCELLENT" then
+        --        result.bombScore = "4"
+        --    elseif result.quality == "GOOD" then
+        --        result.bombScore = "3"
+        --    elseif result.quality == "INEFFECTIVE" then
+        --        result.bombScore = "2"
+        --    elseif result.quality == "POOR" then
+        --        result.bombScore = "1"
+        --    end
+        --    result.targetSheetPath = self.targetpath
+        --
+        --    local text=string.format("%s, impact %03d° for %d m", result.player, result.radial, result.distance)
+        --    text=text..string.format(" %s hit.", result.quality)
+        --    env.info(text)
+        --
+        --    env.info(net.lua2json(result))
+        --    saveTargetSheet(result, self.targetpath, self.targetprefix)
+        --    HypeMan.sendBotTable(result)
+        --end
+        trainingRange:Start()
+    end
+end
+
+ShootingEvent = EVENTHANDLER:New():HandleEvent(EVENTS.Shot)
+function ShootingEvent:OnEventShot(EventData)
+    if EventData.IniPlayerName ~= nil then
+        local PlayerUnit = EventData.IniUnit
+        playerPitchForRangeData = PlayerUnit:GetPitch()
+    end
+end