Documentation, and test mission video + optimizations

Test Missions/Moose_Test_DESTROY/Moose_Test_DESTROY.lua

@@ -12,7 +12,7 @@ Include.File( "Event" )
 do
   local Mission = MISSION:New( 'Destroy Gound', 'Ground', 'Briefing', 'CCCP'  )
 
-  Mission:AddClient( CLIENT:New( 'Client Plane', "Just wait and observe the SU-25T destoying targets. Your mission goal should increase..." ) )
+  Mission:AddClient( CLIENT:FindByName( 'Client Plane', "Just wait and observe the SU-25T destoying targets. Your mission goal should increase..." ) )
 
   local DESTROYGROUPSTASK = DESTROYGROUPSTASK:New( 'Ground Vehicle', 'Ground Vehicles', { 'DESTROY Test 1' }, 100  ) -- 75% of a patriot battery needs to be destroyed to achieve mission success...
   DESTROYGROUPSTASK:SetGoalTotal( 1 )
@@ -25,7 +25,7 @@ end
 do
   local Mission = MISSION:New( 'Destroy Helicopters', 'Helicopters', 'Briefing', 'CCCP'  )
 
-  Mission:AddClient( CLIENT:New( 'Client Plane', "Just wait and observe the SU-25T destoying the helicopters. The helicopter mission goal should increase once all are destroyed ..." ) )
+  Mission:AddClient( CLIENT:FindByName( 'Client Plane', "Just wait and observe the SU-25T destoying the helicopters. The helicopter mission goal should increase once all are destroyed ..." ) )
 
   local DESTROYGROUPSTASK = DESTROYGROUPSTASK:New( 'Helicopter', 'Helicopters', { 'DESTROY Test 2' }, 50  )
   DESTROYGROUPSTASK:SetGoalTotal( 2 )

Test Missions/Moose_Test_ESCORT/MOOSE_Test_ESCORT.lua

@@ -53,8 +53,8 @@ do
   SpawnEscortGround = SPAWN:New( "Escort Ground" )
   SpawnEscortShip = SPAWN:New( "Escort Ship" )
 
-  EscortClientHeli = CLIENT:New( "Lead Helicopter", "Fly around and observe the behaviour of the escort helicopter" ):Alive( EventAliveHelicopter )  
-  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." )
+  EscortClientHeli = CLIENT:FindByName( "Lead Helicopter", "Fly around and observe the behaviour of the escort helicopter" ):Alive( EventAliveHelicopter )  
+  EscortClientPlane = CLIENT:FindByName( "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

Test Missions/Moose_Test_SPAWN/MOOSE_Test_SPAWN.lua

@@ -26,7 +26,7 @@ Group_Vehicle6 = Spawn_Vehicle:Spawn()
 Group_Vehicle1:TaskRouteToZone( ZONE:New( "Landing Zone" ), true, 40, "Cone" )
 
 -- Now land the spawned plane on to the Vinson, by copying the route of another object.
-Route_Plane = GROUP:NewFromName( "Spawn Helicopter Route Copy" ):CopyRoute( 1, 0 )
+Route_Plane = GROUP:FindByName( "Spawn Helicopter Route Copy" ):CopyRoute( 1, 0 )
 
 Group_Plane:Route( Route_Plane )
 

Test Missions/Moose_Test_TASK_Pickup_and_Deploy/MOOSE_Test_TASK_Pickup_and_Deploy.lua

@@ -14,8 +14,8 @@ Include.File( "CleanUp" )
 do
 	local Mission = MISSION:New( 'Pickup', 'Operational', 'Pickup Troops', 'NATO' )
 
-	Mission:AddClient( CLIENT:New( 'DE Pickup Test 1' ):Transport() )
-	Mission:AddClient( CLIENT:New( 'DE Pickup Test 2' ):Transport() )
+	Mission:AddClient( CLIENT:FindByName( 'DE Pickup Test 1' ):Transport() )
+	Mission:AddClient( CLIENT:FindByName( 'DE Pickup Test 2' ):Transport() )
 
 	local CargoTable = {}
 
@@ -62,7 +62,7 @@ end
 do
 	local Mission = MISSION:New( 'Deliver secret letter', 'Operational', 'Pickup letter to the commander.', 'NATO' )
 
-	Client_Package_1 = CLIENT:New( 'BE Package Test 1' ):Transport()
+	Client_Package_1 = CLIENT:FindByName( 'BE Package Test 1' ):Transport()
 	
 	Mission:AddClient( Client_Package_1 )
 
@@ -95,8 +95,8 @@ end
 do
 	local Mission = MISSION:New( 'Sling load Cargo', 'Operational', 'Sling Load Cargo to Deploy Zone.', 'NATO' )
 
-	Mission:AddClient( CLIENT:New( 'Sling Load Test Client 1' ):Transport() )
-	Mission:AddClient( CLIENT:New( 'Sling Load Test Client 2' ):Transport() )
+	Mission:AddClient( CLIENT:FindByName( 'Sling Load Test Client 1' ):Transport() )
+	Mission:AddClient( CLIENT:FindByName( 'Sling Load Test Client 2' ):Transport() )
 
 	Sling_Load_Pickup_Zone = CARGO_ZONE:New( 'Sling Load Pickup Zone', 'Sling Load Guard' ):RedSmoke()
 

Test Missions/Moose_Test_WRAPPER/Moose_Test_WRAPPER.lua

@@ -0,0 +1,39 @@
+
+Include.File( "Group" )
+Include.File( "Unit" )
+Include.File( "Client" )
+
+BASE:TraceClass( "UNIT" )
+BASE:TraceClass( "GROUP" )
+BASE:TraceClass( "CLIENT" )
+
+UnitTankAI1 = _DATABASE:FindUnit( "Smoke Test 1" )
+UnitTankAI2 = _DATABASE:FindUnit( "Smoke Test 2" )
+UnitTankAI3 = UNIT:FindByName( "Smoke Test 3" )
+UnitTankAI4 = _DATABASE:FindUnit( "Smoke Test 4" )
+
+UnitTankAI1:SmokeBlue()
+
+UnitTankAI3:SmokeOrange()
+
+UnitTankAI2:T( UnitTankAI2:GetAmmo() )
+
+GroupTanks = GROUP:FindByName( "Smoke Test" )
+
+GroupTanks:T( GroupTanks:OptionROEOpenFirePossible() )
+
+GroupTanks:OptionROEOpenFire()
+
+  local function ClientAlive( Client, ClientNumber )
+    GroupTanks:MessageToClient( "Hello Client " .. ClientNumber .. "! We are reporting to you on our way...", 5, Client )
+  end
+
+
+ClientHeli = CLIENT:FindByName( "Client Test 1", "Fly slowly to waypoint 3 of the Command Post!" ):Alive( ClientAlive, 1 )
+ClientHeli2 = CLIENT:FindByName( "Client Test 2", "Fly slowly to waypoint 3 of the Command Post!" ):Alive( ClientAlive, 2 )
+
+
+
+
+
+