mirror of
https://github.com/FlightControl-Master/MOOSE_MISSIONS.git
synced 2026-08-23 11:12:52 +00:00
funkyfranky
82 lines
2.6 KiB
Lua
82 lines
2.6 KiB
Lua
---
|
|
-- WEAPON: Track Shell
|
|
--
|
|
-- An SPH M109 Paladin is doing target practice
|
|
-- and tasks to fire one life shell at the old
|
|
-- runway at Kobuleti.
|
|
--
|
|
-- We monitor the SHOT event and track the shell
|
|
-- until it impacts.
|
|
--
|
|
-- The impact point is marked with red smoke
|
|
-- and a mark on the F10 map is shown.
|
|
--
|
|
-- We also use a callback function "WeaponImpact",
|
|
-- which is called when the shell has impacted
|
|
-- and check if the shell fell into a zone "X".
|
|
---
|
|
|
|
-- Some message on screen.
|
|
local text="Starting Weapon Test mission"
|
|
MESSAGE:New(text, 120):ToLog():ToAll()
|
|
|
|
|
|
-- Create an event handler that monitors the SHOT event.
|
|
local handler=EVENTHANDLER:New()
|
|
handler:HandleEvent(EVENTS.Shot)
|
|
|
|
--- Function called when a tracked weapon impacts.
|
|
local function WeaponImpact(Weapon, Zone)
|
|
local weapon=Weapon --Wrapper.Weapon#WEAPON
|
|
local zone=Zone --Core.Zone#ZONE_RADIUS
|
|
|
|
-- Get impact coordinate of weapon.
|
|
local impactcoord=weapon:GetImpactCoordinate()
|
|
|
|
if impactcoord then
|
|
|
|
-- Check if impact was inside the target zone.
|
|
local inzone=zone:IsCoordinateInZone(impactcoord)
|
|
|
|
if inzone then
|
|
-- Display message to all and in log file.
|
|
MESSAGE:New(string.format("Weapon %s impacted inside Zone %s! Well, done team of %s", weapon:GetTypeName(), zone:GetName(), weapon.launcherName), 60):ToLog():ToAll()
|
|
else
|
|
-- Display message to all and in log file.
|
|
MESSAGE:New(string.format("Weapon %s impacted OUTSIDE Zone %s! Team of %s has to do some extra practice sessions", weapon:GetTypeName(), zone:GetName(), weapon.launcherName), 60):ToLog():ToAll()
|
|
end
|
|
|
|
end
|
|
end
|
|
|
|
--- Function called on shot event.
|
|
function handler:OnEventShot(EventData)
|
|
local eventdata=EventData --Core.Event#EVENTDATA
|
|
|
|
-- Nil check if we have a weapon in the eventdata table.
|
|
if eventdata and eventdata.weapon then
|
|
|
|
-- Debug info.
|
|
MESSAGE:New(string.format("Captured SHOT Event from unit=%s", eventdata.IniUnitName), 60):ToAll():ToLog()
|
|
|
|
-- Create a new WEAPON object from the DCS weapon object in the event data.
|
|
local weapon=WEAPON:New(eventdata.weapon)
|
|
|
|
-- Mark impact point on F10 map.
|
|
weapon:SetMarkImpact(true)
|
|
|
|
-- Smoke impact point.
|
|
weapon:SetSmokeImpact(true)
|
|
|
|
-- Set function that is called on weapon impact. We also pass the zone as parameter to show how additional parameters are handled.
|
|
weapon:SetFuncImpact(WeaponImpact, ZONE:FindByName("X"))
|
|
|
|
-- Strart tracking the weapon.
|
|
weapon:StartTrack()
|
|
|
|
end
|
|
|
|
end
|
|
|
|
-- Active group.
|
|
GROUP:FindByName("Paladin"):Activate() |