Updated Moose.lua

2026-08-28 01:56:09 +00:00 · 2022-10-14 16:49:26 +00:00
parent 492c97dbae
commit 2c98595cb2
125 changed files with 6060 additions and 387 deletions
@@ -0,0 +1,126 @@
+--- 
+-- Name: GRP-550 - Shows how to make an AI bomb ground targets, both static and scenery.
+-- Author: Wingthor
+-- Date Created: 22 Aug 2020
+--
+-- Mission illustrates how to make an air GROUP make a bomb run by script.
+-- One template group is placed on map by DCS's Mission Editor.
+-- Template is set to TASK "Ground Attack", and given proper ordnance in Mission Editor
+-- One function handles both attack by give targets coordinates as arguments
+-- This also shows how to do a delayed function call using BASE:ScheduleOnce function
+-- Mission also feature a helper function which will return a random waypoint between Airbase and Target.
+--
+-- Join the Game Master to observe the reaction of the ground units.
+-- 
+-- Blue is attacking.
+
+
+BASE:TraceOnOff(true)
+BASE:TraceAll(true)
+
+--- Help functions ---------------------------------------
+--- This function will make a random waypoint between to coordiantes.
+--- @param Core.Point#COORDINATE
+--- @param Core.Point#COORDINATE
+function MakeMiddleWaypoint (TargetCoordinate, InitCoordinate)
+    BASE:F({TargetCoordinate,InitCoordinate})
+    --- If we can not solve this function throw noting back so we dont' break anything.
+    if TargetCoordinate == nil or InitCoordinate == nil then return nil end
+    --- @type TargetCoordinate Core.Point#COORDINATE
+    --- @type InitCoordinate Core.Point#COORDINATE
+    local _TargetCoordinate = TargetCoordinate
+    local _InitCoordinate = InitCoordinate
+    local Distance = TargetCoordinate:Get3DDistance(InitCoordinate)
+    if Distance < 30000 then 
+        return nil -- To close for us
+    elseif Distance > 70000 then
+        Distance = 70000
+    else 
+        Distance = math.random(30000,70000)
+    end -- This is max distance from target we want our Waypoint
+    local Direction  = _TargetCoordinate:GetAngleDegrees(_TargetCoordinate:GetDirectionVec3(_InitCoordinate))
+    if Direction > 0 and Direction <=90 then -- North East
+        return _TargetCoordinate:Translate(Distance, math.random(1,90))
+        
+    elseif Direction > 90 and Direction <= 180 then -- South East
+        return _TargetCoordinate:Translate(Distance, math.random(91,180))
+    elseif Direction > 180 and Direction <= 270 then -- South West then
+        return _TargetCoordinate:Translate(Distance,math.random(181,270))
+    elseif Direction > 270 and Direction <= 360 then -- South West then then
+        return _TargetCoordinate:Translate(Distance,math.random(271,360))
+    else
+        BASE:E("--- Something wrong in function MakeMiddleWaypoint ---")
+        return nil
+    end
+
+end
+    
+
+--- @param #string
+--- @param --Core.Point#COORDINATE
+--- @param #string AIRBASE
+--- @param #string 
+function PinpointStrike(Group,Target,Base,TargetDescription)
+    BASE:F({Group,Target,Base})
+    -- In case all args is not passed.
+    if Group == nil or Target == nil or Base == nil then return nil end
+    -- Make a default description
+    if TargetDescription == nil then 
+        TargetDescription = "Bomb Target" 
+    end
+    -- Make a Random heading from the target which will server as an IP
+    local heading = math.random(90,180) 
+    -- Get targets vevtors
+    local targetVec = Target:GetVec2()
+    -- Make a Spawn counter
+    if SpawnCounter == nil then 
+        SpawnCounter = 0
+    else
+        SpawnCounter = SpawnCounter + 1
+    end
+    -- Spawn the bomber and return a GROUP object
+    
+    local SpawnBomber = SPAWN:NewWithAlias( Group, "Bomber" .. "_" .. tostring(SpawnCounter) )
+    :OnSpawnGroup(function (Moosegroup) 
+        local message = MESSAGE:New("Launching the Pinpointstrike",40,"Order:",true):ToBlue()
+        end,{})
+    ---@type GROUP
+    local bomber = SpawnBomber:SpawnAtAirbase(AIRBASE:FindByName( Base ), SPAWN.Takeoff.Cold)
+    local task = bomber:TaskBombing(targetVec,false,"All",nil,heading,10000) -- WeaponType find this...
+    local homebasecoords = AIRBASE:FindByName(Base):GetCoordinate() --Core.Point#COORDINATE
+
+    --- Make a waypoint table
+    local waypoints = {}
+    
+    --- Get coordinate for Home Base
+    local homecoords = AIRBASE:FindByName(Base):GetCoordinate():SetAltitude(8000):Translate(10 * 10000,300)
+    --- Make an ingrespoint for the bomber
+    local IngressPoint = MakeMiddleWaypoint( Target, homebasecoords) --Core.Point#COORDINATE
+    if IngressPoint == nil then -- Its important to handle the edge cases so we don't break anything. Better throw somwthing to log.
+        BASE:E("--- Error in PinpointStrike target is too close to base ---" )
+        return nil
+    end
+
+    -- Set the coordinate altitude
+    IngressPoint:SetAltitude(8000)
+    -- Add coordiantes to table and make Waypoints
+    waypoints[1] = homebasecoords:WaypointAirTakeOffParking()
+    waypoints[2] = IngressPoint:WaypointAirTurningPoint(nil,950,{task},TargetDescription)
+    waypoints[3] = homecoords:WaypointAirTurningPoint()
+    waypoints[4] = homebasecoords:WaypointAirLanding()
+    -- Push the waypoint table the bomber
+    bomber:Route(waypoints)
+  
+  end
+
+  -- local targetCoords = ZONE:New("Blue Bridge"):GetCoordinate() --Core.Point#COORDINATE
+  local CommandCenterCoords = STATIC:FindByName("SAM ControlCenter",false):GetCoordinate()
+  
+  -- I have added a small zone over a scenery object in order to grab the coordiantes.
+  local SceneryTargetCoordiate = ZONE:New("SceneryTarget"):GetCoordinate()
+  BASE:ScheduleOnce(5,PinpointStrike,"Bloue Owl 1-1",CommandCenterCoords,AIRBASE.Caucasus.Sukhumi_Babushara,"Bomb Command Center")
+  BASE:ScheduleOnce(10,PinpointStrike,"Bloue Owl 1-1",SceneryTargetCoordiate,AIRBASE.Caucasus.Sukhumi_Babushara,"Bomb Commanders House")
+
+
+  
+