From 5afd5cae2790c3279766fedff0a90d1f866646a9 Mon Sep 17 00:00:00 2001
From: Frank <frank@inter-zone.de>
Date: Fri, 15 May 2020 23:12:33 +0200
Subject: [PATCH] Update NavyGroup.lua

---
 Moose Development/Moose/Ops/NavyGroup.lua | 44 ++++++++++++++++++-----
 1 file changed, 35 insertions(+), 9 deletions(-)

diff --git a/Moose Development/Moose/Ops/NavyGroup.lua b/Moose Development/Moose/Ops/NavyGroup.lua
index bee1cc9d8..3940688d0 100644
--- a/Moose Development/Moose/Ops/NavyGroup.lua	
+++ b/Moose Development/Moose/Ops/NavyGroup.lua	
@@ -214,7 +214,7 @@ function NAVYGROUP:onafterSpawned(From, Event, To)
   end
   
   -- Update route.
-  self:__UpdateRoute(-1)
+  self:__Cruise(-1)
   
 end
 
@@ -224,7 +224,9 @@ end
 -- @param #string Event Event.
 -- @param #string To To state.
 -- @param #number n Waypoint number. Default is next waypoint.
-function NAVYGROUP:onafterUpdateRoute(From, Event, To, n)
+-- @param #number Speed Speed in knots. Default cruise speed.
+-- @param #number Depth Depth in meters. Default 0 meters.
+function NAVYGROUP:onafterUpdateRoute(From, Event, To, n, Speed, Depth)
 
   -- Update route from this waypoint number onwards.
   n=n or self.currentwp+1
@@ -234,22 +236,22 @@ function NAVYGROUP:onafterUpdateRoute(From, Event, To, n)
 
   -- Waypoints.
   local waypoints={}
+    
+  -- Speed.
+  local speed=Speed and UTILS.KnotsToKmph(Speed) or self.speedCruise
   
-  -- Current velocity.
-  local speed=self.group and self.group:GetVelocityKMH() or 100 
+  -- Depth for submarines.
+  local depth=Depth or 0
   
-  
-  local current=self:GetCoordinate():WaypointNaval(speed)
+  local current=self:GetCoordinate():WaypointNaval(speed, depth)
   table.insert(waypoints, current)
   
   -- Add remaining waypoints to route.
   for i=n, #self.waypoints do
     local wp=self.waypoints[i]
     
-    self:E({wp=wp})
-    
     -- Set speed.
-    wp.speed=UTILS.KmphToMps(self.speedCruise)
+    wp.speed=UTILS.KmphToMps(speed)
     
     -- Add waypoint.
     table.insert(waypoints, wp)
@@ -330,6 +332,30 @@ function NAVYGROUP:onafterCruise(From, Event, To)
 
 end
 
+--- On after "Dive" event.
+-- @param #NAVYGROUP self
+-- @param #string From From state.
+-- @param #string Event Event.
+-- @param #string To To state.
+-- @param #number Depth Dive depth in meters.
+function NAVYGROUP:onafterDive(From, Event, To, Depth)
+
+  self:UpdateRoute(nil, nil, Depth)
+
+end
+
+--- On after "Surface" event.
+-- @param #NAVYGROUP self
+-- @param #string From From state.
+-- @param #string Event Event.
+-- @param #string To To state.
+-- @param #number Depth Dive depth in meters.
+function NAVYGROUP:onafterSurface(From, Event, To)
+
+  self:UpdateRoute(nil, nil, 0)
+
+end
+
 --- On after "PassingWaypoint" event.
 -- @param #NAVYGROUP self
 -- @param #string From From state.