From 1a06e373d52edf888e037bdb85254bc09549b258 Mon Sep 17 00:00:00 2001 From: Lucas Recoaro Date: Wed, 29 May 2024 22:39:32 +1200 Subject: [PATCH] Removed limit of creation of characters in DEBUGGING = 1 --- Codigo/CharacterPersistence.bas | 25 ++++++++++++++++--------- 1 file changed, 16 insertions(+), 9 deletions(-) diff --git a/Codigo/CharacterPersistence.bas b/Codigo/CharacterPersistence.bas index 26ffffd5..e92aea94 100644 --- a/Codigo/CharacterPersistence.bas +++ b/Codigo/CharacterPersistence.bas @@ -402,22 +402,29 @@ ErrorHandler: End Function +''' +''' Returns the maximum number of characters allowed for a given user tier. +''' +''' The user tier. +''' The maximum number of characters allowed. Public Function MaxCharacterForTier(ByVal tier As e_TipoUsuario) - Select Case tier + +#If DEBUGGING Then + MaxCharacterForTier = 10 +#Else + Select Case tier Case e_TipoUsuario.tAventurero - MaxCharacterForTier = 3 + MaxCharacterForTier = 3 Case e_TipoUsuario.tHeroe - MaxCharacterForTier = 5 + MaxCharacterForTier = 5 Case e_TipoUsuario.tLeyenda - MaxCharacterForTier = 10 - Case e_TipoUsuario.tNormal - MaxCharacterForTier = 1 + MaxCharacterForTier = 10 Case Else - MaxCharacterForTier = 1 - End Select + MaxCharacterForTier = 1 + End Select +#End If End Function - Public Function GetPatronTierFromAccountID(ByVal account_id) As e_TipoUsuario On Error GoTo ErrorHandler_GetPatronTierFromAccountID GetPatronTierFromAccountID = e_TipoUsuario.tNormal