Merge pull request #585 from ao-org/versionok-delete

Deleted deprecated VersionOk function
ao-org · May 11, 2024 · 867e610 · 867e610
2 parents c662932 + d01ac89
commit 867e610
Show file tree

Hide file tree

Showing 3 changed files with 0 additions and 36 deletions.
diff --git a/Codigo/Admin.bas b/Codigo/Admin.bas
@@ -174,23 +174,6 @@ Public IpList                       As New Collection
 
 Public Baneos     As New Collection
 
-'Public ResetThread As New clsThreading
-
-Function VersionOK(ByVal Ver As String) As Boolean
-
-        On Error GoTo VersionOK_Err
-
-100     VersionOK = (Ver = ULTIMAVERSION)
-
-
-        Exit Function
-
-VersionOK_Err:
-102     Call TraceError(Err.Number, Err.Description, "Admin.VersionOK", Erl)
-
-
-End Function
-
 Sub ReSpawnOrigPosNpcs()
         On Error GoTo Handler
         Dim i     As Integer

diff --git a/Codigo/Protocol.bas b/Codigo/Protocol.bas
@@ -1083,13 +1083,6 @@ Private Sub HandleLoginExistingChar(ByVal ConnectionId As Long)
         UserList(UserIndex).public_key = mid$(decrypted_session_token, 1, 16)
 
         user_name = AO20CryptoSysWrapper.DECRYPT(cnvHexStrFromString(UserList(UserIndex).public_key), encrypted_username)
-        #If DEBUGGING = False Then
-            If Not VersionOK(Version) Then
-                Call WriteShowMessageBox(UserIndex, "Esta versión del juego es obsoleta, la versión correcta es la " & ULTIMAVERSION & ". Ejecute el launcher por favor.")
-                Call CloseSocket(UserIndex)
-                Exit Sub
-            End If
-        #End If
 
         If Not EntrarCuenta(UserIndex, CuentaEmail, MD5) Then
             Call CloseSocket(UserIndex)
@@ -1194,17 +1187,6 @@ Private Sub HandleLoginNewChar(ByVal ConnectionId As Long)
 
         End If
 
-        #If DEBUGGING = False Then
-
-142         If Not VersionOK(Version) Then
-144             Call WriteShowMessageBox(UserIndex, "Esta versión del juego es obsoleta, la versión correcta es la " & ULTIMAVERSION & ". Ejecute el launcher por favor.")
-146             Call CloseSocket(UserIndex)
-                Exit Sub
-
-            End If
-
-        #End If
-
 148     If EsGmChar(UserName) Then
 
 150         If AdministratorAccounts(UCase$(UserName)) <> UCase$(CuentaEmail) Then

diff --git a/Example.Server.ini b/Example.Server.ini
@@ -13,7 +13,6 @@ Hide=0
 MaxConexionesIP=3
 MaxUsersPorCuenta=3
 IdleLimit=10
-Version=2.0.4
 IniciarDesdeBackUp=0
 PuedeCrearPersonajes=1
 ServerSoloGMs=0