mirror of
https://github.com/FlightControl-Master/MOOSE_MISSIONS.git
synced 2026-08-23 02:08:06 +00:00
funkyfranky
75 lines
2.3 KiB
Lua
75 lines
2.3 KiB
Lua
---
|
|
-- Name: EVT-001 - UNIT OnEventShot Stability Test
|
|
-- Author: FlightControl
|
|
-- Date Created: 9 Apr 2017
|
|
--
|
|
-- # Situation:
|
|
--
|
|
-- A couple of planes are firing to each other. Monitor the shot events.
|
|
-- I am doing a collectgarbage to test the stability of the event handling.
|
|
-- Also when the planes are destroyed, the event handling should stop etc.
|
|
-- The tests are on GROUP level.
|
|
--
|
|
-- # Test cases:
|
|
--
|
|
-- 1. Observe the planes shooting the missiles.
|
|
-- 2. Observe when the plane shoots the missile, a dcs.log entry is written in the logging.
|
|
-- 3. Check the stability of the event handlings.
|
|
|
|
PlaneGroupsBlue = {}
|
|
|
|
PlaneGroupsRed = {}
|
|
|
|
PlaneSpawnBlue = SPAWN
|
|
:New( "Planes Blue" )
|
|
:InitLimit( 2, 0 )
|
|
:SpawnScheduled( 10,0 )
|
|
:OnSpawnGroup(
|
|
function( SpawnGroup )
|
|
SpawnGroupName = SpawnGroup:GetName()
|
|
PlaneGroupsBlue[SpawnGroupName] = SpawnGroup
|
|
PlaneGroupsBlue[SpawnGroupName]:HandleEvent( EVENTS.Shot )
|
|
PlaneGroupsBlue[SpawnGroupName]:HandleEvent( EVENTS.Hit )
|
|
collectgarbage()
|
|
PlaneGroupsBlue[SpawnGroupName].OnEventShot = function( self, EventData )
|
|
self:F( EventData )
|
|
self:MessageToAll( "I just fired a missile!", 15, "Alert!" )
|
|
end
|
|
PlaneGroupsBlue[SpawnGroupName].OnEventHit = function( self, EventData )
|
|
self:F( EventData )
|
|
self:MessageToAll( "I just got hit!", 15, "Alert!" )
|
|
end
|
|
end
|
|
)
|
|
|
|
PlaneSpawnRed = SPAWN
|
|
:New( "Planes Red" )
|
|
:InitLimit( 2, 0 )
|
|
:SpawnScheduled(10,0)
|
|
:OnSpawnGroup(
|
|
function( SpawnGroup )
|
|
SpawnGroupName = SpawnGroup:GetName()
|
|
PlaneGroupsRed[SpawnGroupName] = SpawnGroup
|
|
PlaneGroupsRed[SpawnGroupName]:HandleEvent( EVENTS.Shot )
|
|
PlaneGroupsRed[SpawnGroupName]:HandleEvent( EVENTS.Hit )
|
|
collectgarbage()
|
|
--- @param self
|
|
-- @param Core.Event#EVENTDATA EventData
|
|
PlaneGroupsRed[SpawnGroupName].OnEventShot = function ( self, EventData )
|
|
self:F( EventData )
|
|
|
|
self:MessageToAll( "I just got hit!", 15, "Alert!" )
|
|
end
|
|
PlaneGroupsRed[SpawnGroupName].OnEventHit = function( self, EventData )
|
|
self:F( EventData )
|
|
self:MessageToAll( "I just fired a missile!", 15, "Alert!" )
|
|
end
|
|
end
|
|
)
|
|
|
|
collectgarbage()
|
|
BASE:E( "Collected garbage" )
|
|
|
|
|
|
|