@jtff/miztemplate-lib 3.1.8 → 3.1.10

package/lua/lib/Moose_.lua

@@ -1,4 +1,4 @@
-env.info('*** MOOSE GITHUB Commit Hash ID: 2023-12-10T14:37:41+01:00-c089e56060974539e58a346665f7536a2898c4cf ***')
+env.info('*** MOOSE GITHUB Commit Hash ID: 2024-01-01T00:38:59+01:00-8dcd22f18c9bf740c53b69c7ba3901a9ada0bb2d ***')
 env.info('*** MOOSE STATIC INCLUDE START *** ')
 ENUMS={}
 env.setErrorMessageBoxEnabled(false)
@@ -379,6 +379,7 @@ Galaxy="C-5",
 Hawkeye="E-2D",
 Sentry="E-3A",
 Stratotanker="KC-135",
+Gasstation="KC-135MPRS",
 Extender="KC-10",
 Orion="P-3C",
 Viking="S-3B",
@@ -2312,15 +2313,15 @@ if string.find(type_name,"Hercules")and(unit:getDrawArgumentValue(1217)==1)then
 BASE:T(unit_name.." side door is open")
 return true
 end
-if string.find(type_name,"Bell-47")then
+if type_name=="Bell-47"then
 BASE:T(unit_name.." door is open")
 return true
 end
-if string.find(type_name,"UH-60L")and(unit:getDrawArgumentValue(401)==1 or unit:getDrawArgumentValue(402)==1)then
+if type_name=="UH-60L"and(unit:getDrawArgumentValue(401)==1 or unit:getDrawArgumentValue(402)==1)then
 BASE:T(unit_name.." cargo door is open")
 return true
 end
-if string.find(type_name,"UH-60L")and(unit:getDrawArgumentValue(38)==1 or unit:getDrawArgumentValue(400)==1)then
+if type_name=="UH-60L"and(unit:getDrawArgumentValue(38)>0 or unit:getDrawArgumentValue(400)==1)then
 BASE:T(unit_name.." front door(s) are open")
 return true
 end
@@ -9211,7 +9212,7 @@ Points={},
 Coords={},
 CenterVec2={x=0,y=0},
 SurfaceArea=0,
-DrawIDs={}
+DrawID={}
 }
 function _ZONE_TRIANGLE:New(p1,p2,p3)
 local self=BASE:Inherit(self,ZONE_BASE:New())
@@ -9258,15 +9259,28 @@ if not FillAlpha then FillAlpha=1 end
 for i=1,#self.Coords do
 local c1=self.Coords[i]
 local c2=self.Coords[i%#self.Coords+1]
-table.add(self.DrawIDs,c1:LineToAll(c2,Coalition,Color,Alpha,LineType,ReadOnly))
+local id=c1:LineToAll(c2,Coalition,Color,Alpha,LineType,ReadOnly)
+self.DrawID[#self.DrawID+1]=id
 end
-return self.DrawIDs
+local newID=self.Coords[1]:MarkupToAllFreeForm({self.Coords[2],self.Coords[3]},Coalition,Color,Alpha,FillColor,FillAlpha,LineType,ReadOnly)
+self.DrawID[#self.DrawID+1]=newID
+return self.DrawID
+end
+function _ZONE_TRIANGLE:Fill(Coalition,FillColor,FillAlpha,ReadOnly)
+Coalition=Coalition or-1
+FillColor=FillColor
+FillAlpha=FillAlpha
+local newID=self.Coords[1]:MarkupToAllFreeForm({self.Coords[2],self.Coords[3]},Coalition,nil,nil,FillColor,FillAlpha,0,nil)
+self.DrawID[#self.DrawID+1]=newID
+return self.DrawID
 end
 ZONE_POLYGON_BASE={
 ClassName="ZONE_POLYGON_BASE",
 _Triangles={},
 SurfaceArea=0,
-DrawID={}
+DrawID={},
+FillTriangles={},
+Borderlines={},
 }
 function ZONE_POLYGON_BASE:New(ZoneName,PointsArray)
 local self=BASE:Inherit(self,ZONE_BASE:New(ZoneName))
@@ -9472,31 +9486,70 @@ if self._.Polygon and#self._.Polygon>=3 then
 Coalition=Coalition or self:GetDrawCoalition()
 self:SetDrawCoalition(Coalition)
 Color=Color or self:GetColorRGB()
-Alpha=Alpha or 1
-self:SetColor(Color,Alpha)
+Alpha=Alpha or self:GetColorAlpha()
 FillColor=FillColor or self:GetFillColorRGB()
-if not FillColor then
-UTILS.DeepCopy(Color)
-end
 FillAlpha=FillAlpha or self:GetFillColorAlpha()
-if not FillAlpha then
-FillAlpha=0.15
+if FillColor then
+self:ReFill(FillColor,FillAlpha)
+end
+if Color then
+self:ReDrawBorderline(Color,Alpha,LineType)
+end
+end
+if false then
+local coords=self:GetVerticiesCoordinates()
+local coord=coords[1]
+table.remove(coords,1)
+coord:MarkupToAllFreeForm(coords,Coalition,Color,Alpha,FillColor,FillAlpha,LineType,ReadOnly,"Drew Polygon")
+if true then
+return
+end
+end
+return self
+end
+function ZONE_POLYGON_BASE:ReFill(Color,Alpha)
+local color=Color or self:GetFillColorRGB()or{1,0,0}
+local alpha=Alpha or self:GetFillColorAlpha()or 1
+local coalition=self:GetDrawCoalition()or-1
+if#self.FillTriangles>0 then
+for _,triangle in pairs(self._Triangles)do
+triangle:UndrawZone()
+end
+for _,_value in pairs(self.FillTriangles)do
+table.remove_by_value(self.DrawID,_value)
+end
+self.FillTriangles=nil
+self.FillTriangles={}
 end
-self:SetFillColor(FillColor,FillAlpha)
-IncludeTriangles=IncludeTriangles or false
-if IncludeTriangles then
 for _,triangle in pairs(self._Triangles)do
-local draw_ids=triangle:Draw()
+local draw_ids=triangle:Fill(coalition,color,alpha,nil)
+self.FillTriangles=draw_ids
 table.combine(self.DrawID,draw_ids)
 end
-else
+return self
+end
+function ZONE_POLYGON_BASE:ReDrawBorderline(Color,Alpha,LineType)
+local color=Color or self:GetFillColorRGB()or{1,0,0}
+local alpha=Alpha or self:GetFillColorAlpha()or 1
+local coalition=self:GetDrawCoalition()or-1
+local linetype=LineType or 1
+if#self.Borderlines>0 then
+for _,MarkID in pairs(self.Borderlines)do
+trigger.action.removeMark(MarkID)
+end
+for _,_value in pairs(self.Borderlines)do
+table.remove_by_value(self.DrawID,_value)
+end
+self.Borderlines=nil
+self.Borderlines={}
+end
 local coords=self:GetVerticiesCoordinates()
 for i=1,#coords do
 local c1=coords[i]
 local c2=coords[i%#coords+1]
-table.add(self.DrawID,c1:LineToAll(c2,Coalition,Color,Alpha,LineType,ReadOnly))
-end
-end
+local newID=c1:LineToAll(c2,coalition,color,alpha,linetype,nil)
+self.DrawID[#self.DrawID+1]=newID
+self.Borderlines[#self.Borderlines+1]=newID
 end
 return self
 end
@@ -9679,6 +9732,7 @@ Radius=Radius or 1000
 Alpha=Alpha or 1
 Segments=Segments or 10
 Closed=Closed or false
+local Limit
 local i=1
 local j=#self._.Polygon
 if(Closed)then
@@ -10508,6 +10562,23 @@ table.remove(points,#points)
 self:I(string.format("Register ZONE: %s (Polygon (free) drawing with %d vertices)",ZoneName,#points))
 local Zone=ZONE_POLYGON:NewFromPointsArray(ZoneName,points)
 Zone:SetColor({1,0,0},0.15)
+Zone:SetFillColor({1,0,0},0.15)
+if objectData.colorString then
+local color=string.gsub(objectData.colorString,"^0x","")
+local r=tonumber(string.sub(color,1,2),16)/255
+local g=tonumber(string.sub(color,3,4),16)/255
+local b=tonumber(string.sub(color,5,6),16)/255
+local a=tonumber(string.sub(color,7,8),16)/255
+Zone:SetColor({r,g,b},a)
+end
+if objectData.fillColorString then
+local color=string.gsub(objectData.colorString,"^0x","")
+local r=tonumber(string.sub(color,1,2),16)/255
+local g=tonumber(string.sub(color,3,4),16)/255
+local b=tonumber(string.sub(color,5,6),16)/255
+local a=tonumber(string.sub(color,7,8),16)/255
+Zone:SetFillColor({r,g,b},a)
+end
 self.ZONENAMES[ZoneName]=ZoneName
 self:AddZone(ZoneName,Zone)
 elseif objectData.polygonMode and objectData.polygonMode=="rect"then
@@ -10523,6 +10594,22 @@ points[4]={x=vec2.x-h/2,y=vec2.y-w/2}
 self:I(string.format("Register ZONE: %s (Polygon (rect) drawing with %d vertices)",ZoneName,#points))
 local Zone=ZONE_POLYGON:NewFromPointsArray(ZoneName,points)
 Zone:SetColor({1,0,0},0.15)
+if objectData.colorString then
+local color=string.gsub(objectData.colorString,"^0x","")
+local r=tonumber(string.sub(color,1,2),16)/255
+local g=tonumber(string.sub(color,3,4),16)/255
+local b=tonumber(string.sub(color,5,6),16)/255
+local a=tonumber(string.sub(color,7,8),16)/255
+Zone:SetColor({r,g,b},a)
+end
+if objectData.fillColorString then
+local color=string.gsub(objectData.colorString,"^0x","")
+local r=tonumber(string.sub(color,1,2),16)/255
+local g=tonumber(string.sub(color,3,4),16)/255
+local b=tonumber(string.sub(color,5,6),16)/255
+local a=tonumber(string.sub(color,7,8),16)/255
+Zone:SetFillColor({r,g,b},a)
+end
 self.ZONENAMES[ZoneName]=ZoneName
 self:AddZone(ZoneName,Zone)
 elseif objectData.lineMode and(objectData.lineMode=="segments"or objectData.lineMode=="segment"or objectData.lineMode=="free")and objectData.points and#objectData.points>=2 then
@@ -11328,6 +11415,26 @@ self.CallScheduler=SCHEDULER:New(self)
 self:SetEventPriority(2)
 return self
 end
+function SET_BASE:FilterFunction(ConditionFunction,...)
+local condition={}
+condition.func=ConditionFunction
+condition.arg={}
+if arg then
+condition.arg=arg
+end
+if not self.Filter.Functions then self.Filter.Functions={}end
+table.insert(self.Filter.Functions,condition)
+return self
+end
+function SET_BASE:_EvalFilterFunctions(Object)
+for _,_condition in pairs(self.Filter.Functions or{})do
+local condition=_condition
+if condition.func(Object,unpack(condition.arg))==false then
+return false
+end
+end
+return true
+end
 function SET_BASE:Clear(TriggerEvent)
 for Name,Object in pairs(self.Set)do
 self:Remove(Name,not TriggerEvent)
@@ -11691,6 +11798,7 @@ Categories=nil,
 Countries=nil,
 GroupPrefixes=nil,
 Zones=nil,
+Functions=nil,
 },
 FilterMeta={
 Coalitions={
@@ -12140,7 +12248,7 @@ MGroupActive=true
 end
 MGroupInclude=MGroupInclude and MGroupActive
 end
-if self.Filter.Coalitions then
+if self.Filter.Coalitions and MGroupInclude then
 local MGroupCoalition=false
 for CoalitionID,CoalitionName in pairs(self.Filter.Coalitions)do
 self:T3({"Coalition:",MGroup:GetCoalition(),self.FilterMeta.Coalitions[CoalitionName],CoalitionName})
@@ -12150,7 +12258,7 @@ end
 end
 MGroupInclude=MGroupInclude and MGroupCoalition
 end
-if self.Filter.Categories then
+if self.Filter.Categories and MGroupInclude then
 local MGroupCategory=false
 for CategoryID,CategoryName in pairs(self.Filter.Categories)do
 self:T3({"Category:",MGroup:GetCategory(),self.FilterMeta.Categories[CategoryName],CategoryName})
@@ -12160,7 +12268,7 @@ end
 end
 MGroupInclude=MGroupInclude and MGroupCategory
 end
-if self.Filter.Countries then
+if self.Filter.Countries and MGroupInclude then
 local MGroupCountry=false
 for CountryID,CountryName in pairs(self.Filter.Countries)do
 self:T3({"Country:",MGroup:GetCountry(),CountryName})
@@ -12170,7 +12278,7 @@ end
 end
 MGroupInclude=MGroupInclude and MGroupCountry
 end
-if self.Filter.GroupPrefixes then
+if self.Filter.GroupPrefixes and MGroupInclude then
 local MGroupPrefix=false
 for GroupPrefixId,GroupPrefix in pairs(self.Filter.GroupPrefixes)do
 self:T3({"Prefix:",string.find(MGroup:GetName(),GroupPrefix,1),GroupPrefix})
@@ -12180,7 +12288,7 @@ end
 end
 MGroupInclude=MGroupInclude and MGroupPrefix
 end
-if self.Filter.Zones then
+if self.Filter.Zones and MGroupInclude then
 local MGroupZone=false
 for ZoneName,Zone in pairs(self.Filter.Zones)do
 if MGroup:IsInZone(Zone)then
@@ -12189,6 +12297,11 @@ end
 end
 MGroupInclude=MGroupInclude and MGroupZone
 end
+if self.Filter.Functions and MGroupInclude then
+local MGroupFunc=false
+MGroupFunc=self:_EvalFilterFunctions(MGroup)
+MGroupInclude=MGroupInclude and MGroupFunc
+end
 self:T2(MGroupInclude)
 return MGroupInclude
 end
@@ -12229,6 +12342,7 @@ Types=nil,
 Countries=nil,
 UnitPrefixes=nil,
 Zones=nil,
+Functions=nil,
 },
 FilterMeta={
 Coalitions={
@@ -12770,7 +12884,7 @@ MUnitActive=true
 end
 MUnitInclude=MUnitInclude and MUnitActive
 end
-if self.Filter.Coalitions then
+if self.Filter.Coalitions and MUnitInclude then
 local MUnitCoalition=false
 for CoalitionID,CoalitionName in pairs(self.Filter.Coalitions)do
 self:F({"Coalition:",MUnit:GetCoalition(),self.FilterMeta.Coalitions[CoalitionName],CoalitionName})
@@ -12780,7 +12894,7 @@ end
 end
 MUnitInclude=MUnitInclude and MUnitCoalition
 end
-if self.Filter.Categories then
+if self.Filter.Categories and MUnitInclude then
 local MUnitCategory=false
 for CategoryID,CategoryName in pairs(self.Filter.Categories)do
 self:T3({"Category:",MUnit:GetDesc().category,self.FilterMeta.Categories[CategoryName],CategoryName})
@@ -12790,7 +12904,7 @@ end
 end
 MUnitInclude=MUnitInclude and MUnitCategory
 end
-if self.Filter.Types then
+if self.Filter.Types and MUnitInclude then
 local MUnitType=false
 for TypeID,TypeName in pairs(self.Filter.Types)do
 self:T3({"Type:",MUnit:GetTypeName(),TypeName})
@@ -12800,7 +12914,7 @@ end
 end
 MUnitInclude=MUnitInclude and MUnitType
 end
-if self.Filter.Countries then
+if self.Filter.Countries and MUnitInclude then
 local MUnitCountry=false
 for CountryID,CountryName in pairs(self.Filter.Countries)do
 self:T3({"Country:",MUnit:GetCountry(),CountryName})
@@ -12810,7 +12924,7 @@ end
 end
 MUnitInclude=MUnitInclude and MUnitCountry
 end
-if self.Filter.UnitPrefixes then
+if self.Filter.UnitPrefixes and MUnitInclude then
 local MUnitPrefix=false
 for UnitPrefixId,UnitPrefix in pairs(self.Filter.UnitPrefixes)do
 self:T3({"Prefix:",string.find(MUnit:GetName(),UnitPrefix,1),UnitPrefix})
@@ -12820,7 +12934,7 @@ end
 end
 MUnitInclude=MUnitInclude and MUnitPrefix
 end
-if self.Filter.RadarTypes then
+if self.Filter.RadarTypes and MUnitInclude then
 local MUnitRadar=false
 for RadarTypeID,RadarType in pairs(self.Filter.RadarTypes)do
 self:T3({"Radar:",RadarType})
@@ -12833,7 +12947,7 @@ end
 end
 MUnitInclude=MUnitInclude and MUnitRadar
 end
-if self.Filter.SEAD then
+if self.Filter.SEAD and MUnitInclude then
 local MUnitSEAD=false
 if MUnit:HasSEAD()==true then
 self:T3("SEAD Found")
@@ -12842,7 +12956,7 @@ end
 MUnitInclude=MUnitInclude and MUnitSEAD
 end
 end
-if self.Filter.Zones then
+if self.Filter.Zones and MUnitInclude then
 local MGroupZone=false
 for ZoneName,Zone in pairs(self.Filter.Zones)do
 self:T3("Zone:",ZoneName)
@@ -12852,6 +12966,10 @@ end
 end
 MUnitInclude=MUnitInclude and MGroupZone
 end
+if self.Filter.Functions and MUnitInclude then
+local MUnitFunc=self:_EvalFilterFunctions(MUnit)
+MUnitInclude=MUnitInclude and MUnitFunc
+end
 self:T2(MUnitInclude)
 return MUnitInclude
 end
@@ -13602,7 +13720,7 @@ MClientActive=true
 end
 MClientInclude=MClientInclude and MClientActive
 end
-if self.Filter.Coalitions then
+if self.Filter.Coalitions and MClientInclude then
 local MClientCoalition=false
 for CoalitionID,CoalitionName in pairs(self.Filter.Coalitions)do
 local ClientCoalitionID=_DATABASE:GetCoalitionFromClientTemplate(MClientName)
@@ -13614,7 +13732,7 @@ end
 self:T({"Evaluated Coalition",MClientCoalition})
 MClientInclude=MClientInclude and MClientCoalition
 end
-if self.Filter.Categories then
+if self.Filter.Categories and MClientInclude then
 local MClientCategory=false
 for CategoryID,CategoryName in pairs(self.Filter.Categories)do
 local ClientCategoryID=_DATABASE:GetCategoryFromClientTemplate(MClientName)
@@ -13626,7 +13744,7 @@ end
 self:T({"Evaluated Category",MClientCategory})
 MClientInclude=MClientInclude and MClientCategory
 end
-if self.Filter.Types then
+if self.Filter.Types and MClientInclude then
 local MClientType=false
 for TypeID,TypeName in pairs(self.Filter.Types)do
 self:T3({"Type:",MClient:GetTypeName(),TypeName})
@@ -13637,7 +13755,7 @@ end
 self:T({"Evaluated Type",MClientType})
 MClientInclude=MClientInclude and MClientType
 end
-if self.Filter.Countries then
+if self.Filter.Countries and MClientInclude then
 local MClientCountry=false
 for CountryID,CountryName in pairs(self.Filter.Countries)do
 local ClientCountryID=_DATABASE:GetCountryFromClientTemplate(MClientName)
@@ -13649,7 +13767,7 @@ end
 self:T({"Evaluated Country",MClientCountry})
 MClientInclude=MClientInclude and MClientCountry
 end
-if self.Filter.ClientPrefixes then
+if self.Filter.ClientPrefixes and MClientInclude then
 local MClientPrefix=false
 for ClientPrefixId,ClientPrefix in pairs(self.Filter.ClientPrefixes)do
 self:T3({"Prefix:",string.find(MClient.UnitName,ClientPrefix,1),ClientPrefix})
@@ -13660,7 +13778,7 @@ end
 self:T({"Evaluated Prefix",MClientPrefix})
 MClientInclude=MClientInclude and MClientPrefix
 end
-if self.Filter.Zones then
+if self.Filter.Zones and MClientInclude then
 local MClientZone=false
 for ZoneName,Zone in pairs(self.Filter.Zones)do
 self:T3("Zone:",ZoneName)
@@ -13671,7 +13789,7 @@ end
 end
 MClientInclude=MClientInclude and MClientZone
 end
-if self.Filter.Playernames then
+if self.Filter.Playernames and MClientInclude then
 local MClientPlayername=false
 local playername=MClient:GetPlayerName()or"Unknown"
 for _,_Playername in pairs(self.Filter.Playernames)do
@@ -13682,7 +13800,7 @@ end
 self:T({"Evaluated Playername",MClientPlayername})
 MClientInclude=MClientInclude and MClientPlayername
 end
-if self.Filter.Callsigns then
+if self.Filter.Callsigns and MClientInclude then
 local MClientCallsigns=false
 local callsign=MClient:GetCallsign()
 for _,_Callsign in pairs(self.Filter.Callsigns)do
@@ -13693,6 +13811,10 @@ end
 self:T({"Evaluated Callsign",MClientCallsigns})
 MClientInclude=MClientInclude and MClientCallsigns
 end
+if self.Filter.Functions and MClientInclude then
+local MClientFunc=self:_EvalFilterFunctions(MClient)
+MClientInclude=MClientInclude and MClientFunc
+end
 end
 self:T2(MClientInclude)
 return MClientInclude
@@ -14012,7 +14134,6 @@ return AirbaseFound
 end
 function SET_AIRBASE:GetRandomAirbase()
 local RandomAirbase=self:GetRandom()
-self:F({RandomAirbase=RandomAirbase:GetName()})
 return RandomAirbase
 end
 function SET_AIRBASE:FilterCoalitions(Coalitions)
@@ -14102,7 +14223,7 @@ end
 self:T({"Evaluated Coalition",MAirbaseCoalition})
 MAirbaseInclude=MAirbaseInclude and MAirbaseCoalition
 end
-if self.Filter.Categories then
+if self.Filter.Categories and MAirbaseInclude then
 local MAirbaseCategory=false
 for CategoryID,CategoryName in pairs(self.Filter.Categories)do
 local AirbaseCategoryID=_DATABASE:GetCategoryFromAirbase(MAirbaseName)
@@ -15185,7 +15306,7 @@ MGroupActive=true
 end
 MGroupInclude=MGroupInclude and MGroupActive
 end
-if self.Filter.Coalitions then
+if self.Filter.Coalitions and MGroupInclude then
 local MGroupCoalition=false
 for CoalitionID,CoalitionName in pairs(self.Filter.Coalitions)do
 if self.FilterMeta.Coalitions[CoalitionName]and self.FilterMeta.Coalitions[CoalitionName]==MGroup:GetCoalition()then
@@ -15194,7 +15315,7 @@ end
 end
 MGroupInclude=MGroupInclude and MGroupCoalition
 end
-if self.Filter.Categories then
+if self.Filter.Categories and MGroupInclude then
 local MGroupCategory=false
 for CategoryID,CategoryName in pairs(self.Filter.Categories)do
 if self.FilterMeta.Categories[CategoryName]and self.FilterMeta.Categories[CategoryName]==MGroup:GetCategory()then
@@ -15203,7 +15324,7 @@ end
 end
 MGroupInclude=MGroupInclude and MGroupCategory
 end
-if self.Filter.Countries then
+if self.Filter.Countries and MGroupInclude then
 local MGroupCountry=false
 for CountryID,CountryName in pairs(self.Filter.Countries)do
 if country.id[CountryName]==MGroup:GetCountry()then
@@ -15212,7 +15333,7 @@ end
 end
 MGroupInclude=MGroupInclude and MGroupCountry
 end
-if self.Filter.GroupPrefixes then
+if self.Filter.GroupPrefixes and MGroupInclude then
 local MGroupPrefix=false
 for GroupPrefixId,GroupPrefix in pairs(self.Filter.GroupPrefixes)do
 if string.find(MGroup:GetName(),GroupPrefix:gsub("-","%%-"),1)then
@@ -16578,11 +16699,14 @@ Color,FillColor,LineType,ReadOnly,Text or"")
 else
 local s=string.format("trigger.action.markupToAll(7, %d, %d,",Coalition,MarkID)
 for _,vec in pairs(vecs)do
-s=s..string.format("%s,",UTILS._OneLineSerialize(vec))
+s=s..string.format("{x=%.1f, y=%.1f, z=%.1f},",vec.x,vec.y,vec.z)
 end
-s=s..string.format("%s, %s, %s, %s",UTILS._OneLineSerialize(Color),UTILS._OneLineSerialize(FillColor),tostring(LineType),tostring(ReadOnly))
-if Text and Text~=""then
-s=s..string.format(", \"%s\"",Text)
+s=s..string.format("{%.3f, %.3f, %.3f, %.3f},",Color[1],Color[2],Color[3],Color[4])
+s=s..string.format("{%.3f, %.3f, %.3f, %.3f},",FillColor[1],FillColor[2],FillColor[3],FillColor[4])
+s=s..string.format("%d,",LineType or 1)
+s=s..string.format("%s",tostring(ReadOnly))
+if Text and type(Text)=="string"and string.len(Text)>0 then
+s=s..string.format(", \"%s\"",tostring(Text))
 end
 s=s..")"
 local success=UTILS.DoString(s)
@@ -16892,6 +17016,36 @@ local lat,lon=coord.LOtoLL(self:GetVec3())
 local MGRS=coord.LLtoMGRS(lat,lon)
 return"MGRS "..UTILS.tostringMGRS(MGRS,MGRS_Accuracy)
 end
+function COORDINATE:NewFromMGRSString(MGRSString)
+local myparts=UTILS.Split(MGRSString," ")
+local northing=tostring(myparts[5])or""
+local easting=tostring(myparts[4])or""
+if string.len(easting)<5 then easting=easting..string.rep("0",5-string.len(easting))end
+if string.len(northing)<5 then northing=northing..string.rep("0",5-string.len(northing))end
+local MGRS={
+UTMZone=myparts[2],
+MGRSDigraph=myparts[3],
+Easting=easting,
+Northing=northing,
+}
+local lat,lon=coord.MGRStoLL(MGRS)
+local point=coord.LLtoLO(lat,lon,0)
+local coord=COORDINATE:NewFromVec2({x=point.x,y=point.z})
+return coord
+end
+function COORDINATE:NewFromMGRS(UTMZone,MGRSDigraph,Easting,Northing)
+if string.len(Easting)<5 then Easting=Easting..string.rep("0",5-string.len(Easting))end
+if string.len(Northing)<5 then Northing=Northing..string.rep("0",5-string.len(Northing))end
+local MGRS={
+UTMZone=UTMZone,
+MGRSDigraph=MGRSDigraph,
+Easting=Easting,
+Northing=Northing,
+}
+local lat,lon=coord.MGRStoLL(MGRS)
+local point=coord.LLtoLO(lat,lon,0)
+local coord=COORDINATE:NewFromVec2({x=point.x,y=point.z})
+end
 function COORDINATE:ToStringFromRP(ReferenceCoord,ReferenceName,Controllable,Settings,MagVar)
 self:F2({ReferenceCoord=ReferenceCoord,ReferenceName=ReferenceName})
 local Settings=Settings or(Controllable and _DATABASE:GetPlayerSettings(Controllable:GetPlayerName()))or _SETTINGS
@@ -17479,7 +17633,6 @@ _MESSAGESRS.Culture=Culture or"en-GB"
 _MESSAGESRS.MSRS:SetGender(Gender)
 _MESSAGESRS.Gender=Gender or"female"
 _MESSAGESRS.MSRS:SetGoogle(PathToCredentials)
-_MESSAGESRS.google=PathToCredentials
 _MESSAGESRS.MSRS:SetLabel(Label or"MESSAGE")
 _MESSAGESRS.label=Label or"MESSAGE"
 _MESSAGESRS.MSRS:SetPort(Port or 5002)
@@ -23815,32 +23968,35 @@ self:SetOption(AI.Option.Air.id.PROHIBIT_AB,Prohibit)
 end
 return self
 end
-function CONTROLLABLE:OptionECM_Never()
+function CONTROLLABLE:OptionECM(ECMvalue)
 self:F2({self.ControllableName})
+local DCSControllable=self:GetDCSObject()
+if DCSControllable then
+local Controller=self:_GetController()
 if self:IsAir()then
-self:SetOption(AI.Option.Air.id.ECM_USING,0)
+Controller:setOption(AI.Option.Air.id.ECM_USING,ECMvalue or 1)
+end
 end
 return self
 end
-function CONTROLLABLE:OptionECM_OnlyLockByRadar()
+function CONTROLLABLE:OptionECM_Never()
 self:F2({self.ControllableName})
-if self:IsAir()then
-self:SetOption(AI.Option.Air.id.ECM_USING,1)
+self:OptionECM(0)
+return self
 end
+function CONTROLLABLE:OptionECM_OnlyLockByRadar()
+self:F2({self.ControllableName})
+self:OptionECM(1)
 return self
 end
 function CONTROLLABLE:OptionECM_DetectedLockByRadar()
 self:F2({self.ControllableName})
-if self:IsAir()then
-self:SetOption(AI.Option.Air.id.ECM_USING,2)
-end
+self:OptionECM(2)
 return self
 end
 function CONTROLLABLE:OptionECM_AlwaysOn()
 self:F2({self.ControllableName})
-if self:IsAir()then
-self:SetOption(AI.Option.Air.id.ECM_USING,3)
-end
+self:OptionECM(3)
 return self
 end
 function CONTROLLABLE:WayPointInitialize(WayPoints)
@@ -23949,12 +24105,19 @@ return self
 end
 return nil
 end
-function CONTROLLABLE:RelocateGroundRandomInRadius(speed,radius,onroad,shortcut,formation)
+function CONTROLLABLE:RelocateGroundRandomInRadius(speed,radius,onroad,shortcut,formation,onland)
 self:F2({self.ControllableName})
 local _coord=self:GetCoordinate()
 local _radius=radius or 500
 local _speed=speed or 20
 local _tocoord=_coord:GetRandomCoordinateInRadius(_radius,100)
+if onland then
+for i=1,50 do
+local island=_tocoord:GetSurfaceType()==land.SurfaceType.LAND and true or false
+if island then break end
+_tocoord=_coord:GetRandomCoordinateInRadius(_radius,100)
+end
+end
 local _onroad=onroad or true
 local _grptsk={}
 local _candoroad=false
@@ -24858,7 +25021,7 @@ local Task={
 table.insert(TaskAerobatics.params["maneuversSequency"],Task)
 return TaskAerobatics
 end
-function CONTROLLABLE:PatrolRaceTrack(Point1,Point2,Altitude,Speed,Formation,Delay)
+function CONTROLLABLE:PatrolRaceTrack(Point1,Point2,Altitude,Speed,Formation,AGL,Delay)
 local PatrolGroup=self
 if not self:IsInstanceOf("GROUP")then
 PatrolGroup=self:GetGroup()
@@ -24872,8 +25035,10 @@ end
 local FromCoord=PatrolGroup:GetCoordinate()
 local ToCoord=Point1:GetCoordinate()
 if Altitude then
-FromCoord:SetAltitude(Altitude)
-ToCoord:SetAltitude(Altitude)
+local asl=true
+if AGL then asl=false end
+FromCoord:SetAltitude(Altitude,asl)
+ToCoord:SetAltitude(Altitude,asl)
 end
 local Route={}
 Route[#Route+1]=FromCoord:WaypointAir(AltType,COORDINATE.WaypointType.TurningPoint,COORDINATE.WaypointAction.TurningPoint,Speed,true,nil,DCSTasks,description,timeReFuAr)
@@ -26451,6 +26616,32 @@ report:Add("==================")
 local text=report:Text()
 return tSTN,text
 end
+function GROUP:IsSAM()
+local issam=false
+local units=self:GetUnits()
+for _,_unit in pairs(units or{})do
+local unit=_unit
+if unit:HasSEAD()and unit:IsGround()and(not unit:HasAttribute("Mobile AAA"))then
+issam=true
+break
+end
+end
+return issam
+end
+function GROUP:IsAAA()
+local issam=false
+local units=self:GetUnits()
+for _,_unit in pairs(units or{})do
+local unit=_unit
+local desc=unit:GetDesc()or{}
+local attr=desc.attributes or{}
+if unit:HasSEAD()then return false end
+if attr["AAA"]or attr["SAM related"]then
+issam=true
+end
+end
+return issam
+end
 UNIT={
 ClassName="UNIT",
 UnitName=nil,
@@ -30223,7 +30414,7 @@ Reported={},
 }
 function CARGO:New(Type,Name,Weight,LoadRadius,NearRadius)
 local self=BASE:Inherit(self,FSM:New())
-self:F({Type,Name,Weight,LoadRadius,NearRadius})
+self:T({Type,Name,Weight,LoadRadius,NearRadius})
 self:SetStartState("UnLoaded")
 self:AddTransition({"UnLoaded","Boarding"},"Board","Boarding")
 self:AddTransition("Boarding","Boarding","Boarding")
@@ -30368,7 +30559,7 @@ function CARGO:IsDeployed()
 return self.Deployed
 end
 function CARGO:Spawn(PointVec2)
-self:F()
+self:T()
 end
 function CARGO:Flare(FlareColor)
 if self:IsUnLoaded()then
@@ -30418,7 +30609,7 @@ function CARGO:GetLoadRadius()
 return self.LoadRadius
 end
 function CARGO:IsInLoadRadius(Coordinate)
-self:F({Coordinate,LoadRadius=self.LoadRadius})
+self:T({Coordinate,LoadRadius=self.LoadRadius})
 local Distance=0
 if self:IsUnLoaded()then
 local CargoCoordinate=self.CargoObject:GetCoordinate()
@@ -30431,7 +30622,7 @@ end
 return false
 end
 function CARGO:IsInReportRadius(Coordinate)
-self:F({Coordinate})
+self:T({Coordinate})
 local Distance=0
 if self:IsUnLoaded()then
 Distance=Coordinate:Get2DDistance(self.CargoObject:GetCoordinate())
@@ -30533,7 +30724,7 @@ ClassName="CARGO_REPRESENTABLE"
 }
 function CARGO_REPRESENTABLE:New(CargoObject,Type,Name,LoadRadius,NearRadius)
 local self=BASE:Inherit(self,CARGO:New(Type,Name,0,LoadRadius,NearRadius))
-self:F({Type,Name,LoadRadius,NearRadius})
+self:T({Type,Name,LoadRadius,NearRadius})
 local Desc=CargoObject:GetDesc()
 self:T({Desc=Desc})
 local Weight=math.random(80,120)
@@ -30548,7 +30739,7 @@ self:SetWeight(Weight)
 return self
 end
 function CARGO_REPRESENTABLE:Destroy()
-self:F({CargoName=self:GetName()})
+self:T({CargoName=self:GetName()})
 return self
 end
 function CARGO_REPRESENTABLE:RouteTo(ToPointVec2,Speed)
@@ -30566,12 +30757,12 @@ local CoordinateZone=ZONE_RADIUS:New("Zone",self:GetCoordinate():GetVec2(),500)
 CoordinateZone:Scan({Object.Category.UNIT})
 for _,DCSUnit in pairs(CoordinateZone:GetScannedUnits())do
 local NearUnit=UNIT:Find(DCSUnit)
-self:F({NearUnit=NearUnit})
+self:T({NearUnit=NearUnit})
 local NearUnitCoalition=NearUnit:GetCoalition()
 local CargoCoalition=self:GetCoalition()
 if NearUnitCoalition==CargoCoalition then
 local Attributes=NearUnit:GetDesc()
-self:F({Desc=Attributes})
+self:T({Desc=Attributes})
 if NearUnit:HasAttribute("Trucks")then
 MESSAGE:New(Message,20,NearUnit:GetCallsign().." reporting - Cargo "..self:GetName()):ToGroup(TaskGroup)
 break
@@ -30586,7 +30777,7 @@ ClassName="CARGO_REPORTABLE"
 }
 function CARGO_REPORTABLE:New(Type,Name,Weight,LoadRadius,NearRadius)
 local self=BASE:Inherit(self,CARGO:New(Type,Name,Weight,LoadRadius,NearRadius))
-self:F({Type,Name,Weight,LoadRadius,NearRadius})
+self:T({Type,Name,Weight,LoadRadius,NearRadius})
 return self
 end
 function CARGO_REPORTABLE:MessageToGroup(Message,TaskGroup,Name)
@@ -30599,13 +30790,13 @@ ClassName="CARGO_PACKAGE"
 }
 function CARGO_PACKAGE:New(CargoCarrier,Type,Name,Weight,LoadRadius,NearRadius)
 local self=BASE:Inherit(self,CARGO_REPRESENTABLE:New(CargoCarrier,Type,Name,Weight,LoadRadius,NearRadius))
-self:F({Type,Name,Weight,LoadRadius,NearRadius})
+self:T({Type,Name,Weight,LoadRadius,NearRadius})
 self:T(CargoCarrier)
 self.CargoCarrier=CargoCarrier
 return self
 end
 function CARGO_PACKAGE:onafterOnBoard(From,Event,To,CargoCarrier,Speed,BoardDistance,LoadDistance,Angle)
-self:F()
+self:T()
 self.CargoInAir=self.CargoCarrier:InAir()
 self:T(self.CargoInAir)
 if not self.CargoInAir then
@@ -30623,7 +30814,7 @@ end
 self:Boarded(CargoCarrier,Speed,BoardDistance,LoadDistance,Angle)
 end
 function CARGO_PACKAGE:IsNear(CargoCarrier)
-self:F()
+self:T()
 local CargoCarrierPoint=CargoCarrier:GetCoordinate()
 local Distance=CargoCarrierPoint:Get2DDistance(self.CargoCarrier:GetCoordinate())
 self:T(Distance)
@@ -30634,7 +30825,7 @@ return false
 end
 end
 function CARGO_PACKAGE:onafterOnBoarded(From,Event,To,CargoCarrier,Speed,BoardDistance,LoadDistance,Angle)
-self:F()
+self:T()
 if self:IsNear(CargoCarrier)then
 self:__Load(1,CargoCarrier,Speed,LoadDistance,Angle)
 else
@@ -30642,7 +30833,7 @@ self:__Boarded(1,CargoCarrier,Speed,BoardDistance,LoadDistance,Angle)
 end
 end
 function CARGO_PACKAGE:onafterUnBoard(From,Event,To,CargoCarrier,Speed,UnLoadDistance,UnBoardDistance,Radius,Angle)
-self:F()
+self:T()
 self.CargoInAir=self.CargoCarrier:InAir()
 self:T(self.CargoInAir)
 if not self.CargoInAir then
@@ -30661,7 +30852,7 @@ end
 self:__UnBoarded(1,CargoCarrier,Speed)
 end
 function CARGO_PACKAGE:onafterUnBoarded(From,Event,To,CargoCarrier,Speed)
-self:F()
+self:T()
 if self:IsNear(CargoCarrier)then
 self:__UnLoad(1,CargoCarrier,Speed)
 else
@@ -30669,7 +30860,7 @@ self:__UnBoarded(1,CargoCarrier,Speed)
 end
 end
 function CARGO_PACKAGE:onafterLoad(From,Event,To,CargoCarrier,Speed,LoadDistance,Angle)
-self:F()
+self:T()
 self.CargoCarrier=CargoCarrier
 local StartPointVec2=self.CargoCarrier:GetPointVec2()
 local CargoCarrierHeading=self.CargoCarrier:GetHeading()
@@ -30682,7 +30873,7 @@ local TaskRoute=self.CargoCarrier:TaskRoute(Points)
 self.CargoCarrier:SetTask(TaskRoute,1)
 end
 function CARGO_PACKAGE:onafterUnLoad(From,Event,To,CargoCarrier,Speed,Distance,Angle)
-self:F()
+self:T()
 local StartPointVec2=self.CargoCarrier:GetPointVec2()
 local CargoCarrierHeading=self.CargoCarrier:GetHeading()
 local CargoDeployHeading=((CargoCarrierHeading+Angle)>=360)and(CargoCarrierHeading+Angle-360)or(CargoCarrierHeading+Angle)
@@ -30707,7 +30898,7 @@ self:SetEventPriority(5)
 return self
 end
 function CARGO_UNIT:onenterUnBoarding(From,Event,To,ToPointVec2,NearRadius)
-self:F({From,Event,To,ToPointVec2,NearRadius})
+self:T({From,Event,To,ToPointVec2,NearRadius})
 local Angle=180
 local Speed=60
 local DeployDistance=9
@@ -30730,7 +30921,7 @@ self.CargoObject:ReSpawnAt(ToPointVec2,CargoDeployHeading)
 else
 self.CargoObject:ReSpawnAt(FromPointVec2,CargoDeployHeading)
 end
-self:F({"CargoUnits:",self.CargoObject:GetGroup():GetName()})
+self:T({"CargoUnits:",self.CargoObject:GetGroup():GetName()})
 self.CargoCarrier=nil
 local Points={}
 Points[#Points+1]=FromPointVec2:WaypointGround(Speed,"Vee")
@@ -30746,7 +30937,7 @@ end
 end
 end
 function CARGO_UNIT:onleaveUnBoarding(From,Event,To,ToPointVec2,NearRadius)
-self:F({From,Event,To,ToPointVec2,NearRadius})
+self:T({From,Event,To,ToPointVec2,NearRadius})
 local Angle=180
 local Speed=10
 local Distance=5
@@ -30755,7 +30946,7 @@ return true
 end
 end
 function CARGO_UNIT:onafterUnBoarding(From,Event,To,ToPointVec2,NearRadius)
-self:F({From,Event,To,ToPointVec2,NearRadius})
+self:T({From,Event,To,ToPointVec2,NearRadius})
 self.CargoInAir=self.CargoObject:InAir()
 self:T(self.CargoInAir)
 if not self.CargoInAir then
@@ -30763,7 +30954,7 @@ end
 self:__UnLoad(1,ToPointVec2,NearRadius)
 end
 function CARGO_UNIT:onenterUnLoaded(From,Event,To,ToPointVec2)
-self:F({ToPointVec2,From,Event,To})
+self:T({ToPointVec2,From,Event,To})
 local Angle=180
 local Speed=10
 local Distance=5
@@ -30784,7 +30975,7 @@ self.OnUnLoadedCallBack=nil
 end
 end
 function CARGO_UNIT:onafterBoard(From,Event,To,CargoCarrier,NearRadius,...)
-self:F({From,Event,To,CargoCarrier,NearRadius=NearRadius})
+self:T({From,Event,To,CargoCarrier,NearRadius=NearRadius})
 self.CargoInAir=self.CargoObject:InAir()
 local Desc=self.CargoObject:GetDesc()
 local MaxSpeed=Desc.speedMaxOffRoad
@@ -30818,8 +31009,8 @@ end
 end
 end
 function CARGO_UNIT:onafterBoarding(From,Event,To,CargoCarrier,NearRadius,...)
-self:F({From,Event,To,CargoCarrier:GetName(),NearRadius=NearRadius})
-self:F({IsAlive=self.CargoObject:IsAlive()})
+self:T({From,Event,To,CargoCarrier:GetName(),NearRadius=NearRadius})
+self:T({IsAlive=self.CargoObject:IsAlive()})
 if CargoCarrier and CargoCarrier:IsAlive()then
 if(CargoCarrier:IsAir()and not CargoCarrier:InAir())or true then
 local NearRadius=NearRadius or CargoCarrier:GetBoundingRadius(NearRadius)+5
@@ -30857,11 +31048,11 @@ self:CancelBoarding(CargoCarrier,NearRadius,...)
 self.CargoObject:SetCommand(self.CargoObject:CommandStopRoute(true))
 end
 else
-self:E("Something is wrong")
+self:T("Something is wrong")
 end
 end
 function CARGO_UNIT:onenterLoaded(From,Event,To,CargoCarrier)
-self:F({From,Event,To,CargoCarrier})
+self:T({From,Event,To,CargoCarrier})
 self.CargoCarrier=CargoCarrier
 if self.CargoObject then
 self.CargoObject:Destroy(false)
@@ -30888,7 +31079,7 @@ ClassName="CARGO_SLINGLOAD"
 }
 function CARGO_SLINGLOAD:New(CargoStatic,Type,Name,LoadRadius,NearRadius)
 local self=BASE:Inherit(self,CARGO_REPRESENTABLE:New(CargoStatic,Type,Name,nil,LoadRadius,NearRadius))
-self:F({Type,Name,NearRadius})
+self:T({Type,Name,NearRadius})
 self.CargoObject=CargoStatic
 _EVENTDISPATCHER:CreateEventNewCargo(self)
 self:HandleEvent(EVENTS.Dead,self.OnEventCargoDead)
@@ -30999,7 +31190,7 @@ ClassName="CARGO_CRATE"
 }
 function CARGO_CRATE:New(CargoStatic,Type,Name,LoadRadius,NearRadius)
 local self=BASE:Inherit(self,CARGO_REPRESENTABLE:New(CargoStatic,Type,Name,nil,LoadRadius,NearRadius))
-self:F({Type,Name,NearRadius})
+self:T({Type,Name,NearRadius})
 self.CargoObject=CargoStatic
 _EVENTDISPATCHER:CreateEventNewCargo(self)
 self:HandleEvent(EVENTS.Dead,self.OnEventCargoDead)
@@ -31102,21 +31293,21 @@ end
 return Alive
 end
 function CARGO_CRATE:RouteTo(Coordinate)
-self:F({Coordinate=Coordinate})
+self:T({Coordinate=Coordinate})
 end
 function CARGO_CRATE:IsNear(CargoCarrier,NearRadius)
-self:F({NearRadius=NearRadius})
+self:T({NearRadius=NearRadius})
 return self:IsNear(CargoCarrier:GetCoordinate(),NearRadius)
 end
 function CARGO_CRATE:Respawn()
-self:F({"Respawning crate "..self:GetName()})
+self:T({"Respawning crate "..self:GetName()})
 if self.CargoObject then
 self.CargoObject:ReSpawn()
 self:__Reset(-0.1)
 end
 end
 function CARGO_CRATE:onafterReset()
-self:F({"Reset crate "..self:GetName()})
+self:T({"Reset crate "..self:GetName()})
 if self.CargoObject then
 self:SetDeployed(false)
 self:SetStartState("UnLoaded")
@@ -31145,7 +31336,7 @@ ClassName="CARGO_GROUP",
 }
 function CARGO_GROUP:New(CargoGroup,Type,Name,LoadRadius,NearRadius)
 local self=BASE:Inherit(self,CARGO_REPORTABLE:New(Type,Name,0,LoadRadius,NearRadius))
-self:F({Type,Name,LoadRadius})
+self:T({Type,Name,LoadRadius})
 self.CargoSet=SET_CARGO:New()
 self.CargoGroup=CargoGroup
 self.Grouped=true
@@ -31189,7 +31380,7 @@ self:SetEventPriority(4)
 return self
 end
 function CARGO_GROUP:Respawn()
-self:F({"Respawning"})
+self:T({"Respawning"})
 for CargoID,CargoData in pairs(self.CargoSet:GetSet())do
 local Cargo=CargoData
 Cargo:Destroy()
@@ -31230,7 +31421,7 @@ self.CargoObject=nil
 end
 end
 function CARGO_GROUP:Regroup()
-self:F("Regroup")
+self:T("Regroup")
 if self.Grouped==false then
 self.Grouped=true
 local GroupTemplate=UTILS.DeepCopy(self.CargoTemplate)
@@ -31239,7 +31430,7 @@ GroupTemplate.groupId=nil
 GroupTemplate.units={}
 for CargoUnitName,CargoUnit in pairs(self.CargoSet:GetSet())do
 local CargoUnit=CargoUnit
-self:F({CargoUnit:GetName(),UnLoaded=CargoUnit:IsUnLoaded()})
+self:T({CargoUnit:GetName(),UnLoaded=CargoUnit:IsUnLoaded()})
 if CargoUnit:IsUnLoaded()then
 CargoUnit.CargoObject:Destroy()
 GroupTemplate.units[#GroupTemplate.units+1]=self.CargoUnitTemplate[CargoUnitName]
@@ -31250,12 +31441,12 @@ GroupTemplate.units[#GroupTemplate.units].heading=CargoUnit:GetHeading()
 end
 end
 self.CargoGroup=GROUP:NewTemplate(GroupTemplate,GroupTemplate.CoalitionID,GroupTemplate.CategoryID,GroupTemplate.CountryID)
-self:F({"Regroup",GroupTemplate})
+self:T({"Regroup",GroupTemplate})
 self.CargoObject=_DATABASE:Spawn(GroupTemplate)
 end
 end
 function CARGO_GROUP:OnEventCargoDead(EventData)
-self:E(EventData)
+self:T(EventData)
 local Destroyed=false
 if self:IsDestroyed()or self:IsUnLoaded()or self:IsBoarding()or self:IsUnboarding()then
 Destroyed=true
@@ -31277,15 +31468,15 @@ end
 end
 if Destroyed then
 self:Destroyed()
-self:E({"Cargo group destroyed"})
+self:T({"Cargo group destroyed"})
 end
 end
 function CARGO_GROUP:onafterBoard(From,Event,To,CargoCarrier,NearRadius,...)
-self:F({CargoCarrier.UnitName,From,Event,To,NearRadius=NearRadius})
+self:T({CargoCarrier.UnitName,From,Event,To,NearRadius=NearRadius})
 NearRadius=NearRadius or self.NearRadius
 self.CargoSet:ForEach(
 function(Cargo,...)
-self:F({"Board Unit",Cargo:GetName(),Cargo:IsDestroyed(),Cargo.CargoObject:IsAlive()})
+self:T({"Board Unit",Cargo:GetName(),Cargo:IsDestroyed(),Cargo.CargoObject:IsAlive()})
 local CargoGroup=Cargo.CargoObject
 CargoGroup:OptionAlarmStateGreen()
 Cargo:__Board(1,CargoCarrier,NearRadius,...)
@@ -31326,7 +31517,7 @@ if not Cancelled then
 if not Boarded then
 self:__Boarding(-5,CargoCarrier,NearRadius,...)
 else
-self:F("Group Cargo is loaded")
+self:T("Group Cargo is loaded")
 self:__Load(1,CargoCarrier,...)
 end
 else
@@ -31337,7 +31528,7 @@ self:__Destroyed(1,CargoCarrier,NearRadius,...)
 end
 end
 function CARGO_GROUP:onafterUnBoard(From,Event,To,ToPointVec2,NearRadius,...)
-self:F({From,Event,To,ToPointVec2,NearRadius})
+self:T({From,Event,To,ToPointVec2,NearRadius})
 NearRadius=NearRadius or 25
 local Timer=1
 if From=="Loaded"then
@@ -31446,12 +31637,12 @@ end
 )
 end
 function CARGO_GROUP:IsNear(CargoCarrier,NearRadius)
-self:F({NearRadius=NearRadius})
+self:T({NearRadius=NearRadius})
 for _,Cargo in pairs(self.CargoSet:GetSet())do
 local Cargo=Cargo
 if Cargo:IsAlive()then
 if Cargo:IsNear(CargoCarrier:GetCoordinate(),NearRadius)then
-self:F("Near")
+self:T("Near")
 return true
 end
 end
@@ -31473,7 +31664,7 @@ Distance=Coordinate:Get2DDistance(CargoCoordinate)
 else
 return false
 end
-self:F({Distance=Distance,LoadRadius=self.LoadRadius})
+self:T({Distance=Distance,LoadRadius=self.LoadRadius})
 if Distance<=self.LoadRadius then
 return true
 else
@@ -31485,7 +31676,7 @@ end
 function CARGO_GROUP:IsInReportRadius(Coordinate)
 local Cargo=self:GetFirstAlive()
 if Cargo then
-self:F({Cargo})
+self:T({Cargo})
 local Distance=0
 if Cargo:IsUnLoaded()then
 Distance=Coordinate:Get2DDistance(Cargo.CargoObject:GetCoordinate())
@@ -32968,7 +33159,7 @@ self:HandleEvent(EVENTS.Shot,self.HandleEventShot)
 self:SetStartState("Running")
 self:AddTransition("*","ManageEvasion","*")
 self:AddTransition("*","CalculateHitZone","*")
-self:I("*** SEAD - Started Version 0.4.5")
+self:I("*** SEAD - Started Version 0.4.6")
 return self
 end
 function SEAD:UpdateSet(SEADGroupPrefixes)
@@ -33140,7 +33331,7 @@ if self.UseEmissionsOnOff then
 grp:EnableEmission(false)
 end
 grp:OptionAlarmStateGreen()
-grp:RelocateGroundRandomInRadius(20,300,false,false,"Diamond")
+grp:RelocateGroundRandomInRadius(20,300,false,false,"Diamond",true)
 if self.UseCallBack then
 local object=self.CallBack
 object:SeadSuppressionStart(grp,name,attacker)
@@ -35023,9 +35214,9 @@ local minheight=self.RadarBlurMinHeight or 250
 local thresheight=self.RadarBlurThresHeight or 90
 local thresblur=self.RadarBlurThresBlur or 85
 local dist=math.floor(Distance)
-if dist<=20 then
-thresheight=(((dist*dist)/400)*thresheight)
-thresblur=(((dist*dist)/400)*thresblur)
+if dist<=self.RadarBlurClosing then
+thresheight=(((dist*dist)/self.RadarBlurClosingSquare)*thresheight)
+thresblur=(((dist*dist)/self.RadarBlurClosingSquare)*thresblur)
 end
 local fheight=math.floor(math.random(1,10000)/100)
 local fblur=math.floor(math.random(1,10000)/100)
@@ -35199,11 +35390,13 @@ self._.FilterCategories[FilterCategories]=FilterCategories
 end
 return self
 end
-function DETECTION_BASE:SetRadarBlur(minheight,thresheight,thresblur)
+function DETECTION_BASE:SetRadarBlur(minheight,thresheight,thresblur,closing)
 self.RadarBlur=true
 self.RadarBlurMinHeight=minheight or 250
 self.RadarBlurThresHeight=thresheight or 90
 self.RadarBlurThresBlur=thresblur or 85
+self.RadarBlurClosing=closing or 20
+self.RadarBlurClosingSquare=self.RadarBlurClosing*self.RadarBlurClosing
 return self
 end
 end
@@ -38334,7 +38527,7 @@ if takeoff==RAT.wp.air then
 departure=departure:GetZone()
 end
 elseif self:_ZoneExists(_departure)then
-departure=ZONE:New(_departure)
+departure=ZONE:FindByName(_departure)
 else
 local text=string.format("ERROR! Specified departure airport %s does not exist for %s.",_departure,self.alias)
 self:E(RAT.id..text)
@@ -38405,7 +38598,7 @@ if landing==RAT.wp.air or self.returnzone then
 destination=destination:GetZone()
 end
 elseif self:_ZoneExists(_destination)then
-destination=ZONE:New(_destination)
+destination=ZONE:FindByName(_destination)
 else
 local text=string.format("ERROR: Specified destination airport/zone %s does not exist for %s!",_destination,self.alias)
 self:E(RAT.id.."ERROR: "..text)
@@ -38740,7 +38933,7 @@ end
 end
 elseif self:_ZoneExists(name)then
 if takeoff==RAT.wp.air then
-dep=ZONE:New(name)
+dep=ZONE:FindByName(name)
 else
 self:E(RAT.id..string.format("ERROR! Takeoff is not in air. Cannot use %s as departure.",name))
 end
@@ -38812,7 +39005,7 @@ end
 end
 elseif self:_ZoneExists(name)then
 if landing==RAT.wp.air then
-dest=ZONE:New(name)
+dest=ZONE:FindByName(name)
 else
 self:E(RAT.id..string.format("ERROR! Landing is not in air. Cannot use zone %s as destination!",name))
 end
@@ -39774,7 +39967,7 @@ end
 return false
 end
 function RAT:_ZoneExists(name)
-local z=trigger.misc.getZone(name)
+local z=ZONE:FindByName(name)
 if z then
 return true
 end
@@ -40814,15 +41007,15 @@ self.trackmissiles=false
 return self
 end
 function RANGE:SetSRS(PathToSRS,Port,Coalition,Frequency,Modulation,Volume,PathToGoogleKey)
-if PathToSRS then
+if PathToSRS or MSRS.path then
 self.useSRS=true
-self.controlmsrs=MSRS:New(PathToSRS,Frequency or 256,Modulation or radio.modulation.AM,Volume or 1.0)
-self.controlmsrs:SetPort(Port)
+self.controlmsrs=MSRS:New(PathToSRS or MSRS.path,Frequency or 256,Modulation or radio.modulation.AM,Volume or 1.0)
+self.controlmsrs:SetPort(Port or MSRS.port)
 self.controlmsrs:SetCoalition(Coalition or coalition.side.BLUE)
 self.controlmsrs:SetLabel("RANGEC")
 self.controlsrsQ=MSRSQUEUE:New("CONTROL")
-self.instructmsrs=MSRS:New(PathToSRS,Frequency or 305,Modulation or radio.modulation.AM,Volume or 1.0)
-self.instructmsrs:SetPort(Port)
+self.instructmsrs=MSRS:New(PathToSRS or MSRS.path,Frequency or 305,Modulation or radio.modulation.AM,Volume or 1.0)
+self.instructmsrs:SetPort(Port or MSRS.port)
 self.instructmsrs:SetCoalition(Coalition or coalition.side.BLUE)
 self.instructmsrs:SetLabel("RANGEI")
 self.instructsrsQ=MSRSQUEUE:New("INSTRUCT")
@@ -41111,6 +41304,7 @@ return fouldist
 end
 function RANGE:OnEventBirth(EventData)
 self:F({eventbirth=EventData})
+if not EventData.IniPlayerName then return end
 local _unitName=EventData.IniUnitName
 local _unit,_playername=self:_GetPlayerUnitAndName(_unitName)
 self:T3(self.lid.."BIRTH: unit   = "..tostring(EventData.IniUnitName))
@@ -41367,7 +41561,7 @@ function RANGE:onafterExitRange(From,Event,To,player)
 if self.instructor then
 if self.useSRS then
 local text="You left the bombing range zone. "
-local r=math.random(2)
+local r=math.random(5)
 if r==1 then
 text=text.."Have a nice day!"
 elseif r==2 then
@@ -51105,7 +51299,7 @@ MANTIS.SamData={
 ["SA-15"]={Range=11,Blindspot=0,Height=6,Type="Short",Radar="Tor 9A331"},
 ["SA-13"]={Range=5,Blindspot=0,Height=3,Type="Short",Radar="Strela"},
 ["Avenger"]={Range=4,Blindspot=0,Height=3,Type="Short",Radar="Avenger"},
-["Chaparrel"]={Range=8,Blindspot=0,Height=3,Type="Short",Radar="Chaparral"},
+["Chaparral"]={Range=8,Blindspot=0,Height=3,Type="Short",Radar="Chaparral"},
 ["Linebacker"]={Range=4,Blindspot=0,Height=3,Type="Short",Radar="Linebacker"},
 ["Silkworm"]={Range=90,Blindspot=1,Height=0.2,Type="Long",Radar="Silkworm"},
 ["SA-10B"]={Range=75,Blindspot=0,Height=18,Type="Medium",Radar="SA-10B"},
@@ -51263,7 +51457,7 @@ end
 if self.HQ_Template_CC then
 self.HQ_CC=GROUP:FindByName(self.HQ_Template_CC)
 end
-self.version="0.8.15"
+self.version="0.8.16"
 self:I(string.format("***** Starting MANTIS Version %s *****",self.version))
 self:SetStartState("Stopped")
 self:AddTransition("Stopped","Start","Running")
@@ -51524,7 +51718,7 @@ local HQGroup=self.HQ_CC
 if self.autorelocateunits.HQ and self.HQ_CC and HQGroup:IsAlive()then
 local _hqgrp=self.HQ_CC
 local text=self.lid.." Relocating HQ"
-_hqgrp:RelocateGroundRandomInRadius(20,500,true,true)
+_hqgrp:RelocateGroundRandomInRadius(20,500,true,true,nil,true)
 end
 if self.autorelocateunits.EWR then
 local EWR_GRP=SET_GROUP:New():FilterPrefixes(self.EWR_Templates_Prefix):FilterCoalitions(self.Coalition):FilterOnce()
@@ -51534,7 +51728,7 @@ if _grp:IsAlive()and _grp:IsGround()then
 local text=self.lid.." Relocating EWR ".._grp:GetName()
 local m=MESSAGE:New(text,10,"MANTIS"):ToAllIf(self.debug)
 if self.verbose then self:I(text)end
-_grp:RelocateGroundRandomInRadius(20,500,true,true)
+_grp:RelocateGroundRandomInRadius(20,500,true,true,nil,true)
 end
 end
 end
@@ -52762,7 +52956,7 @@ HARD="TOPGUN Graduate",
 }
 AIRBOSS.MenuF10={}
 AIRBOSS.MenuF10Root=nil
-AIRBOSS.version="1.3.2"
+AIRBOSS.version="1.3.3"
 function AIRBOSS:New(carriername,alias)
 local self=BASE:Inherit(self,FSM:New())
 self:F2({carriername=carriername,alias=alias})
@@ -53281,6 +53475,7 @@ self.SRS:SetGender(Gender or"male")
 self.SRS:SetPath(PathToSRS)
 self.SRS:SetPort(Port or 5002)
 self.SRS:SetLabel(self.AirbossRadio.alias or"AIRBOSS")
+self.SRS:SetCoordinate(self.carrier:GetCoordinate())
 if GoogleCreds then
 self.SRS:SetGoogle(GoogleCreds)
 end
@@ -55958,7 +56153,7 @@ self:E(self.lid.."ERROR: EventData=nil in event BIRTH!")
 self:E(EventData)
 return
 end
-if EventData.IniUnit==nil then
+if EventData.IniUnit==nil and(not EventData.IniObjectCategory==Object.Category.STATIC)then
 self:E(self.lid.."ERROR: EventData.IniUnit=nil in event BIRTH!")
 self:E(EventData)
 return
@@ -57409,7 +57604,7 @@ text=text..string.format("\nWind Vx=%.1f Vy=%.1f Vz=%.1f m/s",wind.x,wind.y,wind
 end
 text=text..string.format("\nPitch=%.1f° | Roll=%.1f° | Yaw=%.1f°",pitch,roll,yaw)
 text=text..string.format("\nClimb Angle=%.1f° | Rate=%d ft/min",unit:GetClimbAngle(),velo.y*196.85)
-local dist=self:_GetOptLandingCoordinate():Get3DDistance(playerData.unit)
+local dist=self:_GetOptLandingCoordinate():Get3DDistance(playerData.unit:GetVec3())
 local vplayer=playerData.unit:GetVelocityKMH()
 local vcarrier=self.carrier:GetVelocityKMH()
 local dv=math.abs(vplayer-vcarrier)
@@ -59273,7 +59468,7 @@ self.PilotRadio.alias="PILOT"
 self.PilotRadio.voice=Voice or MSRS.Voices.Microsoft.David
 self.PilotRadio.gender=Gender or"male"
 self.PilotRadio.culture=Culture or"en-US"
-if(not Voice)and self.SRS and self.SRS.google then
+if(not Voice)and self.SRS and self.SRS:GetProvider()==MSRS.Provider.GOOGLE then
 self.PilotRadio.voice=MSRS.Voices.Google.Standard.en_US_Standard_J
 end
 return self
@@ -62556,7 +62751,7 @@ DELIMITER="Punto",
 }
 ATIS.locale="en"
 _ATIS={}
-ATIS.version="0.10.4"
+ATIS.version="1.0.0"
 function ATIS:New(AirbaseName,Frequency,Modulation)
 local self=BASE:Inherit(self,FSM:New())
 self.airbasename=AirbaseName
@@ -64275,7 +64470,7 @@ CTLD.UnitTypeCapabilities={
 ["AH-64D_BLK_II"]={type="AH-64D_BLK_II",crates=false,troops=true,cratelimit=0,trooplimit=2,length=17,cargoweightlimit=200},
 ["Bronco-OV-10A"]={type="Bronco-OV-10A",crates=false,troops=true,cratelimit=0,trooplimit=5,length=13,cargoweightlimit=1450},
 }
-CTLD.version="1.0.44"
+CTLD.version="1.0.45"
 function CTLD:New(Coalition,Prefixes,Alias)
 local self=BASE:Inherit(self,FSM:New())
 BASE:T({Coalition,Prefixes,Alias})
@@ -64982,10 +65177,12 @@ realcargo=CTLD_CARGO:New(self.CargoCounter,cratename,templ,sorte,true,false,crat
 table.insert(droppedcargo,realcargo)
 else
 realcargo=CTLD_CARGO:New(self.CargoCounter,cratename,templ,sorte,false,false,cratesneeded,self.Spawned_Crates[self.CrateCounter],false,cargotype.PerCrateMass,nil,subcat)
-Cargo:RemoveStock()
 end
 table.insert(self.Spawned_Cargo,realcargo)
 end
+if not(drop or pack)then
+Cargo:RemoveStock()
+end
 local text=string.format("Crates for %s have been positioned near you!",cratename)
 if drop then
 text=string.format("Crates for %s have been dropped!",cratename)
@@ -78076,6 +78273,15 @@ trigger.action.outSoundForUnit(Unit:GetID(),self.UserSoundFileName)
 end
 return self
 end
+function USERSOUND:ToClient(Client,Delay)
+Delay=Delay or 0
+if Delay>0 then
+SCHEDULER:New(nil,USERSOUND.ToClient,{self,Client},Delay)
+else
+trigger.action.outSoundForUnit(Client:GetID(),self.UserSoundFileName)
+end
+return self
+end
 end
 do
 SOUNDBASE={
@@ -78118,18 +78324,25 @@ subtitle=nil,
 subduration=0,
 useSRS=false,
 }
-function SOUNDFILE:New(FileName,Path,Duration)
+function SOUNDFILE:New(FileName,Path,Duration,UseSrs)
 local self=BASE:Inherit(self,BASE:New())
+self:F({FileName,Path,Duration,UseSrs})
 self:SetFileName(FileName)
+self:SetPlayWithSRS(UseSrs or false)
 self:SetPath(Path)
 self:SetDuration(Duration)
-self:T(string.format("New SOUNDFILE: file name=%s, path=%s",self.filename,self.path))
 return self
 end
 function SOUNDFILE:SetPath(Path)
-self.path=Path or"l10n/DEFAULT/"
-if not Path and self.useSRS then
-self.path=os.getenv('TMP').."\\DCS\\Mission\\l10n\\DEFAULT"
+self:F({Path})
+if not Path then
+if self.useSRS then
+self.path=lfs.tempdir().."Mission\\l10n\\DEFAULT"
+else
+self.path="l10n/DEFAULT/"
+end
+else
+self.path=Path
 end
 local nmax=1000;local n=1
 while(self.path:sub(-1)=="/"or self.path:sub(-1)==[[\]])and n<=nmax do
@@ -78137,6 +78350,7 @@ self.path=self.path:sub(1,#self.path-1)
 n=n+1
 end
 self.path=self.path.."/"
+self:T("self.path="..self.path)
 return self
 end
 function SOUNDFILE:GetPath()
@@ -78164,11 +78378,13 @@ local name=string.format("%s%s",path,filename)
 return name
 end
 function SOUNDFILE:SetPlayWithSRS(Switch)
+self:F({Switch})
 if Switch==true or Switch==nil then
 self.useSRS=true
 else
 self.useSRS=false
 end
+self:T("self.useSRS="..tostring(self.useSRS))
 return self
 end
 end
@@ -78932,6 +79148,7 @@ ClassName="MSRS",
 lid=nil,
 port=5002,
 name="MSRS",
+backend="srsexe",
 frequencies={},
 modulations={},
 coalition=0,
@@ -78941,14 +79158,14 @@ voice=nil,
 volume=1,
 speed=1,
 coordinate=nil,
+provider="win",
 Label="ROBOT",
-AltBackend=nil,
 ConfigFileName="Moose_MSRS.lua",
 ConfigFilePath="Config\\",
 ConfigLoaded=false,
-ttsprovider="Microsoft",
+poptions={},
 }
-MSRS.version="0.1.3"
+MSRS.version="0.3.0"
 MSRS.Voices={
 Microsoft={
 ["Hedda"]="Microsoft Hedda Desktop",
@@ -79047,47 +79264,52 @@ Wavenet={
 },
 },
 }
-MSRS.GRPCOptions={}
-MSRS.GRPCOptions.gcloud={}
-MSRS.GRPCOptions.win={}
-MSRS.GRPCOptions.azure={}
-MSRS.GRPCOptions.aws={}
-MSRS.GRPCOptions.win.defaultVoice="Hedda"
-MSRS.GRPCOptions.win.voice="Hedda"
-MSRS.GRPCOptions.DefaultProvider="win"
-function MSRS:New(PathToSRS,Frequency,Modulation,Volume,AltBackend)
+MSRS.Backend={
+SRSEXE="srsexe",
+GRPC="grpc",
+}
+MSRS.Provider={
+WINDOWS="win",
+GOOGLE="gcloud",
+AZURE="azure",
+AMAZON="aws",
+}
+function MSRS.uuid()
+local random=math.random
+local template='yxxx-xxxxxxxxxxxx'
+return string.gsub(template,'[xy]',function(c)
+local v=(c=='x')and random(0,0xf)or random(8,0xb)
+return string.format('%x',v)
+end)
+end
+function MSRS:New(Path,Frequency,Modulation,Backend)
+local self=BASE:Inherit(self,BASE:New())
+self:F({Path,Frequency,Modulation,Backend})
 Frequency=Frequency or 143
 Modulation=Modulation or radio.modulation.AM
-local self=BASE:Inherit(self,BASE:New())
-if type(AltBackend)=="table"or type(self.AltBackend)=="table"then
-local Backend=UTILS.DeepCopy(AltBackend)or UTILS.DeepCopy(self.AltBackend)
-Backend.Vars=Backend.Vars or{}
-Backend.Vars.PathToSRS=PathToSRS
-Backend.Vars.Frequency=UTILS.DeepCopy(Frequency)
-Backend.Vars.Modulation=UTILS.DeepCopy(Modulation)
-Backend.Vars.Volume=Volume
-Backend.Functions=Backend.Functions or{}
-return self:_NewAltBackend(Backend)
-end
+self.lid=string.format("%s-%s | ","unknown",self.version)
 if not self.ConfigLoaded then
-self:SetPath(PathToSRS)
+self:SetPath(Path)
 self:SetPort()
 self:SetFrequencies(Frequency)
 self:SetModulations(Modulation)
 self:SetGender()
 self:SetCoalition()
 self:SetLabel()
-self:SetVolume(Volume)
+self:SetVolume()
+self:SetBackend(Backend)
 else
-if PathToSRS then
-self:SetPath(PathToSRS)
+if Path then
+self:SetPath(Path)
 end
 if Frequency then
 self:SetFrequencies(Frequency)
+end
+if Modulation then
 self:SetModulations(Modulation)
 end
-if Volume then
-self:SetVolume(Volume)
+if Backend then
+self:SetBackend(Backend)
 end
 end
 self.lid=string.format("%s-%s | ",self.name,self.version)
@@ -79096,26 +79318,48 @@ self:E(self.lid.."***** ERROR - io or os NOT desanitized! MSRS will not work!")
 end
 return self
 end
-function MSRS:SetPath(Path)
-if Path==nil and not self.path then
-self:E("ERROR: No path to SRS directory specified!")
-return nil
+function MSRS:SetBackend(Backend)
+self:F({Backend=Backend})
+self.backend=Backend or MSRS.Backend.SRSEXE
+return self
 end
-if Path then
-self.path=Path
+function MSRS:SetBackendGRPC()
+self:F()
+self:SetBackend(MSRS.Backend.GRPC)
+return self
+end
+function MSRS:SetBackendSRSEXE()
+self:F()
+self:SetBackend(MSRS.Backend.SRSEXE)
+return self
+end
+function MSRS.SetDefaultBackend(Backend)
+self:F({Backend=Backend})
+MSRS.backend=Backend or MSRS.Backend.SRSEXE
+end
+function MSRS.SetDefaultBackendGRPC()
+self:F()
+MSRS.backend=MSRS.Backend.GRPC
+end
+function MSRS:GetBackend()
+return self.backend
+end
+function MSRS:SetPath(Path)
+self:F({Path=Path})
+self.path=Path or"C:\\Program Files\\DCS-SimpleRadio-Standalone"
 local n=1;local nmax=1000
 while(self.path:sub(-1)=="/"or self.path:sub(-1)==[[\]])and n<=nmax do
 self.path=self.path:sub(1,#self.path-1)
 n=n+1
 end
-self:T(string.format("SRS path=%s",self:GetPath()))
-end
+self:F(string.format("SRS path=%s",self:GetPath()))
 return self
 end
 function MSRS:GetPath()
 return self.path
 end
 function MSRS:SetVolume(Volume)
+self:F({Volume=Volume})
 local volume=Volume or 1
 if volume>1 then volume=1 elseif volume<0 then volume=0 end
 self.volume=volume
@@ -79125,6 +79369,7 @@ function MSRS:GetVolume()
 return self.volume
 end
 function MSRS:SetLabel(Label)
+self:F({Label=Label})
 self.Label=Label or"ROBOT"
 return self
 end
@@ -79132,13 +79377,16 @@ function MSRS:GetLabel()
 return self.Label
 end
 function MSRS:SetPort(Port)
+self:F({Port=Port})
 self.port=Port or 5002
+self:T(string.format("SRS port=%s",self:GetPort()))
 return self
 end
 function MSRS:GetPort()
 return self.port
 end
 function MSRS:SetCoalition(Coalition)
+self:F({Coalition=Coalition})
 self.coalition=Coalition or 0
 return self
 end
@@ -79146,17 +79394,14 @@ function MSRS:GetCoalition()
 return self.coalition
 end
 function MSRS:SetFrequencies(Frequencies)
-if type(Frequencies)~="table"then
-Frequencies={Frequencies}
-end
-self.frequencies=Frequencies
+self:F(Frequencies)
+self.frequencies=UTILS.EnsureTable(Frequencies,false)
 return self
 end
 function MSRS:AddFrequencies(Frequencies)
-if type(Frequencies)~="table"then
-Frequencies={Frequencies}
-end
-for _,_freq in pairs(Frequencies)do
+self:F(Frequencies)
+for _,_freq in pairs(UTILS.EnsureTable(Frequencies,false))do
+self:T(self.lid..string.format("Adding frequency %s",tostring(_freq)))
 table.insert(self.frequencies,_freq)
 end
 return self
@@ -79165,17 +79410,15 @@ function MSRS:GetFrequencies()
 return self.frequencies
 end
 function MSRS:SetModulations(Modulations)
-if type(Modulations)~="table"then
-Modulations={Modulations}
-end
-self.modulations=Modulations
+self:F(Modulations)
+self.modulations=UTILS.EnsureTable(Modulations,false)
+self:T(self.lid.."Modulations:")
+self:T(self.modulations)
 return self
 end
 function MSRS:AddModulations(Modulations)
-if type(Modulations)~="table"then
-Modulations={Modulations}
-end
-for _,_mod in pairs(Modulations)do
+self:F(Modulations)
+for _,_mod in pairs(UTILS.EnsureTable(Modulations,false))do
 table.insert(self.modulations,_mod)
 end
 return self
@@ -79184,92 +79427,176 @@ function MSRS:GetModulations()
 return self.modulations
 end
 function MSRS:SetGender(Gender)
+self:F({Gender=Gender})
 Gender=Gender or"female"
 self.gender=Gender:lower()
 self:T("Setting gender to "..tostring(self.gender))
 return self
 end
 function MSRS:SetCulture(Culture)
+self:F({Culture=Culture})
 self.culture=Culture
 return self
 end
 function MSRS:SetVoice(Voice)
+self:F({Voice=Voice})
 self.voice=Voice
 return self
 end
-function MSRS:SetDefaultVoice(Voice)
-self.defaultVoice=Voice
-local provider=self.provider or self.GRPCOptions.DefaultProvider or MSRS.GRPCOptions.DefaultProvider or"win"
-self.GRPCOptions[provider].defaultVoice=Voice
+function MSRS:SetVoiceProvider(Voice,Provider)
+self:F({Voice=Voice,Provider=Provider})
+self.poptions=self.poptions or{}
+self.poptions[Provider or self:GetProvider()]=Voice
+return self
+end
+function MSRS:SetVoiceWindows(Voice)
+self:F({Voice=Voice})
+self:SetVoiceProvider(Voice or"Microsoft Hazel Desktop",MSRS.Provider.WINDOWS)
+return self
+end
+function MSRS:SetVoiceGoogle(Voice)
+self:F({Voice=Voice})
+self:SetVoiceProvider(Voice or MSRS.Voices.Google.Standard.en_GB_Standard_A,MSRS.Provider.GOOGLE)
+return self
+end
+function MSRS:SetVoiceAzure(Voice)
+self:F({Voice=Voice})
+self:SetVoiceProvider(Voice or"en-US-AriaNeural",MSRS.Provider.AZURE)
+return self
+end
+function MSRS:SetVoiceAmazon(Voice)
+self:F({Voice=Voice})
+self:SetVoiceProvider(Voice or"Brian",MSRS.Provider.AMAZON)
 return self
 end
+function MSRS:GetVoice(Provider)
+Provider=Provider or self.provider
+if Provider and self.poptions[Provider]and self.poptions[Provider].voice then
+return self.poptions[Provider].voice
+else
+return self.voice
+end
+end
 function MSRS:SetCoordinate(Coordinate)
+self:F(Coordinate)
 self.coordinate=Coordinate
 return self
 end
 function MSRS:SetGoogle(PathToCredentials)
+self:F({PathToCredentials=PathToCredentials})
 if PathToCredentials then
-self.google=PathToCredentials
-self.APIKey=PathToCredentials
-self.provider="gcloud"
-self.GRPCOptions.DefaultProvider="gcloud"
-self.GRPCOptions.gcloud.key=PathToCredentials
-self.ttsprovider="Google"
+self.provider=MSRS.Provider.GOOGLE
+self:SetProviderOptionsGoogle(PathToCredentials,PathToCredentials)
 end
 return self
 end
 function MSRS:SetGoogleAPIKey(APIKey)
+self:F({APIKey=APIKey})
 if APIKey then
-self.APIKey=APIKey
-self.provider="gcloud"
-self.GRPCOptions.DefaultProvider="gcloud"
-self.GRPCOptions.gcloud.key=APIKey
+self.provider=MSRS.Provider.GOOGLE
+if self.poptions[MSRS.Provider.GOOGLE]then
+self.poptions[MSRS.Provider.GOOGLE].key=APIKey
+else
+self:SetProviderOptionsGoogle(nil,APIKey)
+end
+end
+return self
+end
+function MSRS:SetProvider(Provider)
+self:F({Provider=Provider})
+self.provider=Provider or MSRS.Provider.WINDOWS
+return self
+end
+function MSRS:GetProvider()
+return self.provider or MSRS.Provider.WINDOWS
+end
+function MSRS:SetProviderOptions(Provider,CredentialsFile,AccessKey,SecretKey,Region)
+self:F({Provider,CredentialsFile,AccessKey,SecretKey,Region})
+local option=MSRS._CreateProviderOptions(Provider,CredentialsFile,AccessKey,SecretKey,Region)
+if self then
+self.poptions=self.poptions or{}
+self.poptions[Provider]=option
+else
+MSRS.poptions=MSRS.poptions or{}
+MSRS.poptions[Provider]=option
+end
+return option
+end
+function MSRS._CreateProviderOptions(Provider,CredentialsFile,AccessKey,SecretKey,Region)
+self:F({Provider,CredentialsFile,AccessKey,SecretKey,Region})
+local option={}
+option.provider=Provider
+option.credentials=CredentialsFile
+option.key=AccessKey
+option.secret=SecretKey
+option.region=Region
+return option
+end
+function MSRS:SetProviderOptionsGoogle(CredentialsFile,AccessKey)
+self:F({CredentialsFile,AccessKey})
+self:SetProviderOptions(MSRS.Provider.GOOGLE,CredentialsFile,AccessKey)
+return self
+end
+function MSRS:SetProviderOptionsAmazon(AccessKey,SecretKey,Region)
+self:F({AccessKey,SecretKey,Region})
+self:SetProviderOptions(MSRS.Provider.AMAZON,nil,AccessKey,SecretKey,Region)
+return self
 end
+function MSRS:SetProviderOptionsAzure(AccessKey,Region)
+self:F({AccessKey,Region})
+self:SetProviderOptions(MSRS.Provider.AZURE,nil,AccessKey,nil,Region)
 return self
 end
+function MSRS:GetProviderOptions(Provider)
+return self.poptions[Provider or self.provider]or{}
+end
 function MSRS:SetTTSProviderGoogle()
-self.ttsprovider="Google"
+self:F()
+self:SetProvider(MSRS.Provider.GOOGLE)
 return self
 end
 function MSRS:SetTTSProviderMicrosoft()
-self.ttsprovider="Microsoft"
+self:F()
+self:SetProvider(MSRS.Provider.WINDOWS)
+return self
+end
+function MSRS:SetTTSProviderAzure()
+self:F()
+self:SetProvider(MSRS.Provider.AZURE)
+return self
+end
+function MSRS:SetTTSProviderAmazon()
+self:F()
+self:SetProvider(MSRS.Provider.AMAZON)
 return self
 end
 function MSRS:Help()
-local path=self:GetPath()or STTS.DIRECTORY
-local exe=STTS.EXECUTABLE or"DCS-SR-ExternalAudio.exe"
-local filename=os.getenv('TMP').."\\MSRS-help-"..STTS.uuid()..".txt"
+self:F()
+local path=self:GetPath()
+local exe="DCS-SR-ExternalAudio.exe"
+local filename=os.getenv('TMP').."\\MSRS-help-"..MSRS.uuid()..".txt"
 local command=string.format("%s/%s --help > %s",path,exe,filename)
 os.execute(command)
 local f=assert(io.open(filename,"rb"))
 local data=f:read("*all")
 f:close()
-env.info("SRS STTS help output:")
+env.info("SRS help output:")
 env.info("======================================================================")
 env.info(data)
 env.info("======================================================================")
 return self
 end
-function MSRS.SetDefaultBackend(Backend)
-if type(Backend)=="table"then
-MSRS.AltBackend=UTILS.DeepCopy(Backend)
-else
-return false
-end
-return true
-end
-function MSRS.ResetDefaultBackend()
-MSRS.AltBackend=nil
-return true
-end
-function MSRS.SetDefaultBackendGRPC()
-return MSRS.SetDefaultBackend(MSRS_BACKEND_DCSGRPC)
-end
 function MSRS:PlaySoundFile(Soundfile,Delay)
+self:F({Soundfile,Delay})
+local soundfile=Soundfile:GetName()
+local exists=UTILS.FileExists(soundfile)
+if not exists then
+self:E("ERROR: MSRS sound file does not exist! File="..soundfile)
+return self
+end
 if Delay and Delay>0 then
 self:ScheduleOnce(Delay,MSRS.PlaySoundFile,self,Soundfile,0)
 else
-local soundfile=Soundfile:GetName()
 local command=self:_GetCommand()
 command=command..' --file="'..tostring(soundfile)..'"'
 self:_ExecCommand(command)
@@ -79277,42 +79604,53 @@ end
 return self
 end
 function MSRS:PlaySoundText(SoundText,Delay)
+self:F({SoundText,Delay})
 if Delay and Delay>0 then
 self:ScheduleOnce(Delay,MSRS.PlaySoundText,self,SoundText,0)
 else
+if self.backend==MSRS.Backend.GRPC then
+self:_DCSgRPCtts(SoundText.text,nil,SoundText.gender,SoundText.culture,SoundText.voice,SoundText.volume,SoundText.label,SoundText.coordinate)
+else
 local command=self:_GetCommand(nil,nil,nil,SoundText.gender,SoundText.voice,SoundText.culture,SoundText.volume,SoundText.speed)
 command=command..string.format(" --text=\"%s\"",tostring(SoundText.text))
 self:_ExecCommand(command)
 end
+end
 return self
 end
 function MSRS:PlayText(Text,Delay,Coordinate)
+self:F({Text,Delay,Coordinate})
 if Delay and Delay>0 then
 self:ScheduleOnce(Delay,MSRS.PlayText,self,Text,nil,Coordinate)
 else
-local command=self:_GetCommand(nil,nil,nil,nil,nil,nil,nil,nil,nil,nil,Coordinate)
-command=command..string.format(" --text=\"%s\"",tostring(Text))
-self:_ExecCommand(command)
+if self.backend==MSRS.Backend.GRPC then
+self:T(self.lid.."Transmitting")
+self:_DCSgRPCtts(Text,nil,nil,nil,nil,nil,nil,Coordinate)
+else
+self:PlayTextExt(Text,Delay,nil,nil,nil,nil,nil,nil,nil,Coordinate)
+end
 end
 return self
 end
 function MSRS:PlayTextExt(Text,Delay,Frequencies,Modulations,Gender,Culture,Voice,Volume,Label,Coordinate)
+self:F({Text,Delay,Frequencies,Modulations,Gender,Culture,Voice,Volume,Label,Coordinate})
 if Delay and Delay>0 then
 self:ScheduleOnce(Delay,MSRS.PlayTextExt,self,Text,0,Frequencies,Modulations,Gender,Culture,Voice,Volume,Label,Coordinate)
 else
-if Frequencies and type(Frequencies)~="table"then
-Frequencies={Frequencies}
-end
-if Modulations and type(Modulations)~="table"then
-Modulations={Modulations}
-end
-local command=self:_GetCommand(Frequencies,Modulations,nil,Gender,Voice,Culture,Volume,nil,nil,Label,Coordinate)
+Frequencies=Frequencies or self:GetFrequencies()
+Modulations=Modulations or self:GetModulations()
+if self.backend==MSRS.Backend.SRSEXE then
+local command=self:_GetCommand(UTILS.EnsureTable(Frequencies,false),UTILS.EnsureTable(Modulations,false),nil,Gender,Voice,Culture,Volume,nil,nil,Label,Coordinate)
 command=command..string.format(" --text=\"%s\"",tostring(Text))
 self:_ExecCommand(command)
+elseif self.backend==MSRS.Backend.GRPC then
+self:_DCSgRPCtts(Text,Frequencies,Gender,Culture,Voice,Volume,Label,Coordinate)
+end
 end
 return self
 end
 function MSRS:PlayTextFile(TextFile,Delay)
+self:F({TextFile,Delay})
 if Delay and Delay>0 then
 self:ScheduleOnce(Delay,MSRS.PlayTextFile,self,TextFile,0)
 else
@@ -79325,51 +79663,96 @@ local command=self:_GetCommand()
 command=command..string.format(" --textFile=\"%s\"",tostring(TextFile))
 self:T(string.format("MSRS TextFile command=%s",command))
 local l=string.len(command)
+self:T(string.format("Command length=%d",l))
 self:_ExecCommand(command)
 end
 return self
 end
-function MSRS:_NewAltBackend(Backend)
-BASE:T('Entering MSRS:_NewAltBackend()')
-for funcName,funcDef in pairs(Backend.Functions)do
-if type(funcDef)=='function'then
-BASE:T('MSRS (re-)defining function MSRS:'..funcName)
-self[funcName]=funcDef
+function MSRS:_GetLatLongAlt(Coordinate)
+self:F({Coordinate=Coordinate})
+local lat=0.0
+local lon=0.0
+local alt=0.0
+if Coordinate then
+lat,lon,alt=coord.LOtoLL(Coordinate)
 end
+return lat,lon,math.floor(alt)
 end
-for varName,varVal in pairs(Backend.Vars)do
-BASE:T('MSRS setting self.'..varName)
-self[varName]=UTILS.DeepCopy(varVal)
+function MSRS:_GetCommand(freqs,modus,coal,gender,voice,culture,volume,speed,port,label,coordinate)
+self:F({freqs,modus,coal,gender,voice,culture,volume,speed,port,label,coordinate})
+local path=self:GetPath()
+local exe="DCS-SR-ExternalAudio.exe"
+local fullPath=string.format("%s\\%s",path,exe)
+freqs=table.concat(freqs or self.frequencies,",")
+modus=table.concat(modus or self.modulations,",")
+coal=coal or self.coalition
+gender=gender or self.gender
+voice=voice or self:GetVoice(self.provider)or self.voice
+culture=culture or self.culture
+volume=volume or self.volume
+speed=speed or self.speed
+port=port or self.port
+label=label or self.Label
+coordinate=coordinate or self.coordinate
+modus=modus:gsub("0","AM")
+modus=modus:gsub("1","FM")
+local command=string.format('"%s\\%s" -f "%s" -m "%s" -c %s -p %s -n "%s" -v "%.1f"',path,exe,freqs,modus,coal,port,label,volume)
+if voice then
+command=command..string.format(" --voice=\"%s\"",tostring(voice))
+else
+if gender and gender~="female"then
+command=command..string.format(" -g %s",tostring(gender))
 end
-if self._MSRSbackendInit and type(self._MSRSbackendInit)=='function'then
-return self:_MSRSbackendInit()
+if culture and culture~="en-GB"then
+command=command..string.format(" -l %s",tostring(culture))
 end
-return self
+end
+if coordinate then
+local lat,lon,alt=self:_GetLatLongAlt(coordinate)
+command=command..string.format(" -L %.4f -O %.4f -A %d",lat,lon,alt)
+end
+if self.provider==MSRS.Provider.GOOGLE then
+local pops=self:GetProviderOptions()
+command=command..string.format(' --ssml -G "%s"',pops.credentials)
+elseif self.provider==MSRS.Provider.WINDOWS then
+else
+self:E("ERROR: SRS only supports WINWOWS and GOOGLE as TTS providers! Use DCS-gRPC backend for other providers such as ")
+end
+if not UTILS.FileExists(fullPath)then
+self:E("ERROR: MSRS SRS executable does not exist! FullPath="..fullPath)
+command="CommandNotFound"
+end
+self:T("MSRS command from _GetCommand="..command)
+return command
 end
 function MSRS:_ExecCommand(command)
-self:T("SRS TTS command="..command)
-local filename=os.getenv('TMP').."\\MSRS-"..STTS.uuid()..".bat"
+self:F({command=command})
+if string.find(command,"CommandNotFound")then return 0 end
+local batContent=command.." && exit"
+local filename=os.getenv('TMP').."\\MSRS-"..MSRS.uuid()..".bat"
 local script=io.open(filename,"w+")
-script:write(command.." && exit")
+script:write(batContent)
 script:close()
-command=string.format('start /b "" "%s"',filename)
+self:T("MSRS batch file created: "..filename)
+self:T("MSRS batch content: "..batContent)
 local res=nil
 if true then
-local filenvbs=os.getenv('TMP').."\\MSRS-"..STTS.uuid()..".vbs"
+local filenvbs=os.getenv('TMP').."\\MSRS-"..MSRS.uuid()..".vbs"
 local script=io.open(filenvbs,"w+")
 script:write(string.format('Dim WinScriptHost\n'))
 script:write(string.format('Set WinScriptHost = CreateObject("WScript.Shell")\n'))
 script:write(string.format('WinScriptHost.Run Chr(34) & "%s" & Chr(34), 0\n',filename))
 script:write(string.format('Set WinScriptHost = Nothing'))
 script:close()
+self:T("MSRS vbs file created to start batch="..filenvbs)
 local runvbs=string.format('cscript.exe //Nologo //B "%s"',filenvbs)
-self:T("MSRS execute command="..command)
 self:T("MSRS execute VBS command="..runvbs)
 res=os.execute(runvbs)
 timer.scheduleFunction(os.remove,filename,timer.getTime()+1)
 timer.scheduleFunction(os.remove,filenvbs,timer.getTime()+1)
+self:T("MSRS vbs and batch file removed")
 elseif false then
-local filenvbs=os.getenv('TMP').."\\MSRS-"..STTS.uuid()..".vbs"
+local filenvbs=os.getenv('TMP').."\\MSRS-"..MSRS.uuid()..".vbs"
 local script=io.open(filenvbs,"w+")
 script:write(string.format('Set oShell = CreateObject ("Wscript.Shell")\n'))
 script:write(string.format('Dim strArgs\n'))
@@ -79379,52 +79762,53 @@ script:close()
 local runvbs=string.format('cscript.exe //Nologo //B "%s"',filenvbs)
 res=os.execute(runvbs)
 else
+command=string.format('start /b "" "%s"',filename)
 self:T("MSRS execute command="..command)
 res=os.execute(command)
 timer.scheduleFunction(os.remove,filename,timer.getTime()+1)
 end
 return res
 end
-function MSRS:_GetLatLongAlt(Coordinate)
-local lat,lon,alt=coord.LOtoLL(Coordinate)
-return lat,lon,math.floor(alt)
+function MSRS:_DCSgRPCtts(Text,Frequencies,Gender,Culture,Voice,Volume,Label,Coordinate)
+self:F("MSRS_BACKEND_DCSGRPC:_DCSgRPCtts()")
+self:F({Text,Frequencies,Gender,Culture,Voice,Volume,Label,Coordinate})
+local options={}
+local ssml=Text or''
+Frequencies=UTILS.EnsureTable(Frequencies,true)or self:GetFrequencies()
+options.plaintext=Text
+options.srsClientName=Label or self.Label
+if self.coordinate then
+options.position={}
+options.position.lat,options.position.lon,options.position.alt=self:_GetLatLongAlt(self.coordinate)
 end
-function MSRS:_GetCommand(freqs,modus,coal,gender,voice,culture,volume,speed,port,label,coordinate)
-local path=self:GetPath()or STTS.DIRECTORY
-local exe=STTS.EXECUTABLE or"DCS-SR-ExternalAudio.exe"
-freqs=table.concat(freqs or self.frequencies,",")
-modus=table.concat(modus or self.modulations,",")
-coal=coal or self.coalition
-gender=gender or self.gender
-voice=voice or self.voice
-culture=culture or self.culture
-volume=volume or self.volume
-speed=speed or self.speed
-port=port or self.port
-label=label or self.Label
-coordinate=coordinate or self.coordinate
-modus=modus:gsub("0","AM")
-modus=modus:gsub("1","FM")
-local command=string.format('"%s\\%s" -f "%s" -m "%s" -c %s -p %s -n "%s" -v "%.1f"',path,exe,freqs,modus,coal,port,label,volume)
-if voice then
-command=command..string.format(" --voice=\"%s\"",tostring(voice))
+options.coalition=UTILS.GetCoalitionName(self.coalition):lower()
+local provider=self.provider or MSRS.Provider.WINDOWS
+self:F({provider=provider})
+options.provider={}
+options.provider[provider]=self:GetProviderOptions(provider)
+Voice=Voice or self:GetVoice(self.provider)or self.voice
+if Voice then
+options.provider[provider].voice=Voice
 else
-if gender and gender~="female"then
-command=command..string.format(" -g %s",tostring(gender))
+local preTag,genderProp,langProp,postTag='','','',''
+local gender=""
+if self.gender then
+gender=string.format(' gender=\"%s\"',self.gender)
 end
-if culture and culture~="en-GB"then
-command=command..string.format(" -l %s",tostring(culture))
+local language=""
+if self.culture then
+language=string.format(' language=\"%s\"',self.culture)
 end
+if self.gender or self.culture then
+ssml=string.format("<voice%s%s>%s</voice>",gender,language,Text)
 end
-if coordinate then
-local lat,lon,alt=self:_GetLatLongAlt(coordinate)
-command=command..string.format(" -L %.4f -O %.4f -A %d",lat,lon,alt)
 end
-if self.google and self.ttsprovider=="Google"then
-command=command..string.format(' --ssml -G "%s"',self.google)
+for _,freq in pairs(Frequencies)do
+self:F("Calling GRPC.tts with the following parameter:")
+self:F({ssml=ssml,freq=freq,options=options})
+self:F(options.provider[provider])
+GRPC.tts(ssml,freq*1e6,options)
 end
-self:T("MSRS command="..command)
-return command
 end
 function MSRS:LoadConfigFile(Path,Filename)
 if lfs==nil then
@@ -79436,63 +79820,30 @@ local file=Filename or MSRS.ConfigFileName or"Moose_MSRS.lua"
 local pathandfile=path..file
 local filexsists=UTILS.FileExists(pathandfile)
 if filexsists and not MSRS.ConfigLoaded then
+env.info("FF reading config file")
 assert(loadfile(path..file))()
 if MSRS_Config then
-if self then
-self.path=MSRS_Config.Path or"C:\\Program Files\\DCS-SimpleRadio-Standalone"
-self.port=MSRS_Config.Port or 5002
-self.frequencies=MSRS_Config.Frequency or{127,243}
-self.modulations=MSRS_Config.Modulation or{0,0}
-self.coalition=MSRS_Config.Coalition or 0
+local Self=self or MSRS
+Self.path=MSRS_Config.Path or"C:\\Program Files\\DCS-SimpleRadio-Standalone"
+Self.port=MSRS_Config.Port or 5002
+Self.backend=MSRS_Config.Backend or MSRS.Backend.SRSEXE
+Self.frequencies=MSRS_Config.Frequency or{127,243}
+Self.modulations=MSRS_Config.Modulation or{0,0}
+Self.coalition=MSRS_Config.Coalition or 0
 if MSRS_Config.Coordinate then
-self.coordinate=COORDINATE:New(MSRS_Config.Coordinate[1],MSRS_Config.Coordinate[2],MSRS_Config.Coordinate[3])
-end
-self.culture=MSRS_Config.Culture or"en-GB"
-self.gender=MSRS_Config.Gender or"male"
-self.google=MSRS_Config.Google
-if MSRS_Config.Provider then
-self.ttsprovider=MSRS_Config.Provider
-end
-self.Label=MSRS_Config.Label or"MSRS"
-self.voice=MSRS_Config.Voice
-if MSRS_Config.GRPC then
-self.provider=MSRS_Config.GRPC.DefaultProvider
-if MSRS_Config.GRPC[MSRS_Config.GRPC.DefaultProvider]then
-self.APIKey=MSRS_Config.GRPC[MSRS_Config.GRPC.DefaultProvider].key
-self.defaultVoice=MSRS_Config.GRPC[MSRS_Config.GRPC.DefaultProvider].defaultVoice
-self.region=MSRS_Config.GRPC[MSRS_Config.GRPC.DefaultProvider].secret
-self.secret=MSRS_Config.GRPC[MSRS_Config.GRPC.DefaultProvider].region
-end
-end
-self.ConfigLoaded=true
-else
-MSRS.path=MSRS_Config.Path or"C:\\Program Files\\DCS-SimpleRadio-Standalone"
-MSRS.port=MSRS_Config.Port or 5002
-MSRS.frequencies=MSRS_Config.Frequency or{127,243}
-MSRS.modulations=MSRS_Config.Modulation or{0,0}
-MSRS.coalition=MSRS_Config.Coalition or 0
-if MSRS_Config.Coordinate then
-MSRS.coordinate=COORDINATE:New(MSRS_Config.Coordinate[1],MSRS_Config.Coordinate[2],MSRS_Config.Coordinate[3])
-end
-MSRS.culture=MSRS_Config.Culture or"en-GB"
-MSRS.gender=MSRS_Config.Gender or"male"
-MSRS.google=MSRS_Config.Google
-if MSRS_Config.Provider then
-MSRS.ttsprovider=MSRS_Config.Provider
-end
-MSRS.Label=MSRS_Config.Label or"MSRS"
-MSRS.voice=MSRS_Config.Voice
-if MSRS_Config.GRPC then
-MSRS.provider=MSRS_Config.GRPC.DefaultProvider
-if MSRS_Config.GRPC[MSRS_Config.GRPC.DefaultProvider]then
-MSRS.APIKey=MSRS_Config.GRPC[MSRS_Config.GRPC.DefaultProvider].key
-MSRS.defaultVoice=MSRS_Config.GRPC[MSRS_Config.GRPC.DefaultProvider].defaultVoice
-MSRS.region=MSRS_Config.GRPC[MSRS_Config.GRPC.DefaultProvider].secret
-MSRS.secret=MSRS_Config.GRPC[MSRS_Config.GRPC.DefaultProvider].region
+Self.coordinate=COORDINATE:New(MSRS_Config.Coordinate[1],MSRS_Config.Coordinate[2],MSRS_Config.Coordinate[3])
 end
+Self.culture=MSRS_Config.Culture or"en-GB"
+Self.gender=MSRS_Config.Gender or"male"
+Self.Label=MSRS_Config.Label or"MSRS"
+Self.voice=MSRS_Config.Voice
+Self.provider=MSRS_Config.Provider or MSRS.Provider.WINDOWS
+for _,provider in pairs(MSRS.Provider)do
+if MSRS_Config[provider]then
+Self.poptions[provider]=MSRS_Config[provider]
 end
-MSRS.ConfigLoaded=true
 end
+Self.ConfigLoaded=true
 end
 env.info("MSRS - Successfully loaded default configuration from disk!",false)
 end
@@ -79502,151 +79853,27 @@ return false
 end
 return true
 end
-MSRS_BACKEND_DCSGRPC={}
-MSRS_BACKEND_DCSGRPC.version=0.1
-MSRS_BACKEND_DCSGRPC.Functions={}
-MSRS_BACKEND_DCSGRPC.Vars={provider='win'}
-MSRS_BACKEND_DCSGRPC.Functions._MSRSbackendInit=function(self)
-BASE:I('Loaded MSRS DCS-gRPC alternate backend version '..self.AltBackend.version or'unspecified')
-return self
-end
-MSRS_BACKEND_DCSGRPC.Functions.SetPath=function(self)
-return self
-end
-MSRS_BACKEND_DCSGRPC.Functions.GetPath=function(self)
-return''
-end
-MSRS_BACKEND_DCSGRPC.Functions.SetVolume=function(self)
-BASE:I('NOTE: MSRS:SetVolume() not used with DCS-gRPC backend.')
-return self
-end
-MSRS_BACKEND_DCSGRPC.Functions.GetVolume=function(self)
-BASE:I('NOTE: MSRS:GetVolume() not used with DCS-gRPC backend.')
-return 1
-end
-MSRS_BACKEND_DCSGRPC.Functions.SetGender=function(self,Gender)
-if Gender then
-self.gender=Gender:lower()
-end
-self:T("Setting gender to "..tostring(self.gender))
-return self
-end
-MSRS_BACKEND_DCSGRPC.Functions.SetGoogle=function(self)
-self.provider='gcloud'
-return self
-end
-MSRS_BACKEND_DCSGRPC.Functions.SetAPIKey=function(self,key)
-self.APIKey=key
-return self
-end
-MSRS_BACKEND_DCSGRPC.Functions.SetDefaultVoice=function(self,voice)
-self.defaultVoice=voice
-return self
-end
-MSRS_BACKEND_DCSGRPC.Functions.SetAWS=function(self)
-self.provider='aws'
-return self
-end
-MSRS_BACKEND_DCSGRPC.Functions.SetAzure=function(self)
-self.provider='azure'
-return self
-end
-MSRS_BACKEND_DCSGRPC.Functions.SetWin=function(self)
-self.provider='win'
-return self
-end
-MSRS_BACKEND_DCSGRPC.Functions.Help=function(self)
-env.info('For DCS-gRPC help, please see: https://github.com/DCS-gRPC/rust-server')
-return self
-end
-MSRS_BACKEND_DCSGRPC.Functions.PlaySoundFile=function(self)
-BASE:E("ERROR: MSRS:PlaySoundFile() is not supported by the DCS-gRPC backend.")
-return self
-end
-MSRS_BACKEND_DCSGRPC.Functions.PlaySoundText=function(self,SoundText,Delay)
-if Delay and Delay>0 then
-self:ScheduleOnce(Delay,self.PlaySoundText,self,SoundText,0)
-else
-self:_DCSgRPCtts(tostring(SoundText.text))
-end
-return self
-end
-MSRS_BACKEND_DCSGRPC.Functions.PlayText=function(self,Text,Delay)
-if Delay and Delay>0 then
-self:ScheduleOnce(Delay,self.PlayText,self,Text,0)
-else
-self:_DCSgRPCtts(tostring(Text))
-end
-return self
-end
-MSRS_BACKEND_DCSGRPC.Functions.PlayTextExt=function(self,Text,Delay,Frequencies,Modulations,Gender,Culture,Voice,Volume,Label)
-if Delay and Delay>0 then
-self:ScheduleOnce(Delay,self.PlayTextExt,self,Text,0,Frequencies,Modulations,Gender,Culture,Voice,Volume,Label)
+function MSRS.getSpeechTime(length,speed,isGoogle)
+local maxRateRatio=3
+speed=speed or 1.0
+isGoogle=isGoogle or false
+local speedFactor=1.0
+if isGoogle then
+speedFactor=speed
 else
-self:_DCSgRPCtts(tostring(Text),nil,Frequencies,Voice,Label)
-end
-return self
-end
-MSRS_BACKEND_DCSGRPC.Functions.PlayTextFile=function(self,TextFile,Delay)
-BASE:E("ERROR: MSRS:PlayTextFile() is not supported by the DCS-gRPC backend.")
-return self
-end
-MSRS_BACKEND_DCSGRPC.Functions._DCSgRPCtts=function(self,Text,Plaintext,Frequencies,Voice,Label)
-BASE:T("MSRS_BACKEND_DCSGRPC:_DCSgRPCtts()")
-BASE:T({Text,Plaintext,Frequencies,Voice,Label})
-local options=self.ProviderOptions or MSRS.ProviderOptions or{}
-local ssml=Text or''
-local XmitFrequencies=Frequencies or self.Frequency
-if type(XmitFrequencies)~="table"then
-XmitFrequencies={XmitFrequencies}
-end
-options.plaintext=Plaintext
-options.srsClientName=Label or self.Label
-options.position={}
-if self.coordinate then
-options.position.lat,options.position.lon,options.position.alt=self:_GetLatLongAlt(self.coordinate)
-end
-options.position.lat=options.position.lat or 0.0
-options.position.lon=options.position.lon or 0.0
-options.position.alt=options.position.alt or 0.0
-if UTILS.GetCoalitionName(self.coalition)=='Blue'then
-options.coalition='blue'
-elseif UTILS.GetCoalitionName(self.coalition)=='Red'then
-options.coalition='red'
-end
-local provider=self.provider or self.GRPCOptions.DefaultProvider or MSRS.GRPCOptions.DefaultProvider
-options.provider={}
-options.provider[provider]={}
-if self.APIKey then
-options.provider[provider].key=self.APIKey
-end
-if self.defaultVoice then
-options.provider[provider].defaultVoice=self.defaultVoice
-end
-if self.voice then
-options.provider[provider].voice=Voice or self.voice or self.defaultVoice
-elseif ssml then
-local preTag,genderProp,langProp,postTag='','','',''
-if self.gender then
-genderProp=' gender=\"'..self.gender..'\"'
-end
-if self.culture then
-langProp=' language=\"'..self.culture..'\"'
+if speed~=0 then
+speedFactor=math.abs(speed)*(maxRateRatio-1)/10+1
 end
-if self.culture or self.gender then
-preTag='<voice'..langProp..genderProp..'>'
-postTag='</voice>'
-ssml=preTag..Text..postTag
+if speed<0 then
+speedFactor=1/speedFactor
 end
 end
-for _,_freq in ipairs(XmitFrequencies)do
-local freq=_freq*1000000
-BASE:T("GRPC.tts")
-BASE:T(ssml)
-BASE:T(freq)
-BASE:T({options})
-GRPC.tts(ssml,freq,options)
+local wpm=math.ceil(100*speedFactor)
+local cps=math.floor((wpm*5)/60)
+if type(length)=="string"then
+length=string.len(length)
 end
+return length/cps
 end
 MSRSQUEUE={
 ClassName="MSRSQUEUE",
@@ -79707,7 +79934,7 @@ return nil
 end
 local transmission={}
 transmission.text=text
-transmission.duration=duration or STTS.getSpeechTime(text)
+transmission.duration=duration or MSRS.getSpeechTime(text)
 transmission.msrs=msrs
 transmission.Tplay=tstart or timer.getAbsTime()
 transmission.subtitle=subtitle