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

Progressing on the Escort positioning system.

Browse Source
This commit is contained in:
FlightControl
2016-03-31 10:07:59 +02:00
parent 6834a5f6ea
commit d4719be695
23 changed files with 11540 additions and 27 deletions
Download Patch File Download Diff File Expand all files Collapse all files

27
Test Missions/lua/MOOSE_Escort_Test_Follow.lua
View File

@@ -1,16 +1,35 @@
Include.File( "Mission" )
Include.File( "Client" )
Include.File( "Spawn" )
Include.File( "Escort" )
do
local EscortClient = CLIENT:New( "Lead Helicopter", "Fly around and observe the behaviour of the escort helicopter" )
local EscortGroup = GROUP:NewFromName( "Escort Helicopter" )
local Escort = ESCORT:New( EscortClient, EscortGroup, "Escort Test" )
local function EventAliveHelicopter( Client )
local SpawnEscortHeli = SPAWN:New( "Escort Helicopter" )
local EscortGroupHeli1 = SpawnEscortHeli:Spawn()
local EscortGroupHeli2 = SpawnEscortHeli:Spawn()
local EscortGroupHeli3 = SpawnEscortHeli:Spawn()
local EscortGroupHeli4 = SpawnEscortHeli:Spawn()
local EscortHeli1 = ESCORT:New( Client, EscortGroupHeli1, "Escort Alpha" )
local EscortHeli2 = ESCORT:New( Client, EscortGroupHeli2, "Escort Bravo" )
local EscortHeli3 = ESCORT:New( Client, EscortGroupHeli3, "Escort Delta" )
local EscortHeli4 = ESCORT:New( Client, EscortGroupHeli4, "Escort Gamma" )
end
local function EventAlivePlane( Client )
local SpawnEscortPlane = SPAWN:New( "Escort Plane" )
local EscortGroupPlane = SpawnEscortPlane:Spawn()
local EscortPlane = ESCORT:New( Client, EscortGroupPlane, "Escort Test Plane" )
end
local EscortClientHeli = CLIENT:New( "Lead Helicopter", "Fly around and observe the behaviour of the escort helicopter" ):Alive( EventAliveHelicopter )
local EscortClientPlane = CLIENT:New( "Lead Plane", "Fly around and observe the behaviour of the escort airplane. Select Navigate->Joun-Up and airplane should follow you. Change speed and directions." )
:Alive( EventAlivePlane )
end
-- MISSION SCHEDULER STARTUP
MISSIONSCHEDULER.Start()
MISSIONSCHEDULER.ReportMenu()