Fixed OS language detection

Fixed OS language detection

The language is chosen based on the value of the field Localization in Recursos\OUTPUTConfiguracion.ini.

If the value is absent the game will use the same language as the OS and save the setting to Configuracion.ini.

Refactor and clean up of the code to detect OS language

Deleted unused function GetLocaleLanguage()

Argentum20.vbp

@@ -107,7 +107,6 @@ Class=clsFormMovementManager; CODIGO\clsFormMovementManager.cls
 Module=Protocol_Writes; CODIGO\Protocol_Writes.bas
 Form=CODIGO\frmCrafteo.frm
 Module=modNetwork; CODIGO\modNetwork.bas
-Module=ModLenguaje; CODIGO\ModLenguaje.bas
 Module=basCryptoSys; CODIGO\basCryptoSys.bas
 Module=AO20CryptoSysWrapper; CODIGO\AO20CryptoSysWrapper.bas
 Module=ModAuth; CODIGO\ModAuth.bas
@@ -146,6 +145,7 @@ Module=ao20config; CODIGO\ao20config.bas
 Form=CODIGO\frmCreateBattleground.frm
 Form=CODIGO\frmLobbyBattleground.frm
 Module=ModValidateResources; CODIGO\ModValidateResources.bas
+Module=ModLanguage; CODIGO\ModLanguage.bas
 ResFile32="AO20.res"
 IconForm="frmMain"
 Startup="Sub Main"

CODIGO/ModLanguage.bas

@@ -0,0 +1,75 @@
+Attribute VB_Name = "ModLanguage"
+'    Argentum 20 - Game Client Program
+'    Copyright (C) 2022 - Noland Studios
+'
+'    This program is free software: you can redistribute it and/or modify
+'    it under the terms of the GNU Affero General Public License as published by
+'    the Free Software Foundation, either version 3 of the License, or
+'    (at your option) any later version.
+'
+'    This program is distributed in the hope that it will be useful,
+'    but WITHOUT ANY WARRANTY; without even the implied warranty of
+'    MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the
+'    GNU Affero General Public License for more details.
+'    You should have received a copy of the GNU Affero General Public License
+'    along with this program.  If not, see <https://www.gnu.org/licenses/>.
+'
+'
+Option Explicit
+
+Const LOCALE_USER_DEFAULT = &H400
+
+Private Declare Function GetUserDefaultLCID Lib "kernel32" () As Long
+Private Declare Function GetLocaleInfo Lib "kernel32" Alias "GetLocaleInfoA" (ByVal Locale As Long, ByVal LCType As Long, ByVal lpLCData As String, ByVal cchData As Long) As Long
+
+Private Const LOCALE_SCOUNTRY = &H6
+Private Const LOCALE_SLANGUAGE = &H2
+Private Const LOCALE_SENGLANGUAGE = &H1001
+Private Const MAX_BUF As Long = 260
+
+Public Enum e_language
+    Spanish = 1
+    English = 2
+End Enum
+
+Public language As e_language
+
+Private Function GetCountryName() As String
+    Dim lID As Long, sBuf As String, lRet As Long
+    lID = GetUserDefaultLCID
+    sBuf = String$(MAX_BUF, Chr(0))
+    lRet = GetLocaleInfo(lID, LOCALE_SCOUNTRY, sBuf, MAX_BUF)
+    GetCountryName = Left$(sBuf, lRet - 1)
+End Function
+
+Private Function GetLocaleEngLanguage() As String
+    Dim lID As Long, sBuf As String, lRet As Long
+    lID = GetUserDefaultLCID
+    sBuf = String$(MAX_BUF, Chr(0))
+    lRet = GetLocaleInfo(lID, LOCALE_SENGLANGUAGE, sBuf, MAX_BUF)
+    GetLocaleEngLanguage = Left$(sBuf, lRet - 1)
+End Function
+
+Public Function FileToString(strFileName As String) As String
+    Dim IFile As Variant
+    IFile = FreeFile
+    Open strFileName For Input As #IFile
+        FileToString = StrConv(InputB(LOF(IFile), IFile), vbUnicode)
+    Close #IFile
+End Function
+
+Public Sub SetLanguageApplication()
+    Dim Localization As String
+    Localization = GetSetting("OPCIONES", "Localization")
+    If Len(Localization) = 0 Then
+        Select Case GetLocaleEngLanguage
+                Case "English"
+                    language = e_language.English
+                Case "Spanish"
+                    language = e_language.Spanish
+        End Select
+        Call SaveSetting("OPCIONES", "Localization", language)
+    Else
+         language = Localization
+    End If
+End Sub