From e644d95b3c971d8b0f7616b87fd78ca4a3fa6582 Mon Sep 17 00:00:00 2001 From: Alexis Caraballo Date: Thu, 7 Mar 2024 23:03:25 -0300 Subject: [PATCH] =?UTF-8?q?Fix=20pieles=20Estaba=20mal=20el=20chequeo=20de?= =?UTF-8?q?l=20l=C3=ADmite=20de=20objetos=20y=20borraba=20el=20item?= MIME-Version: 1.0 Content-Type: text/plain; charset=UTF-8 Content-Transfer-Encoding: 8bit --- Codigo/CharacterPersistence.bas | 4 ++-- 1 file changed, 2 insertions(+), 2 deletions(-) diff --git a/Codigo/CharacterPersistence.bas b/Codigo/CharacterPersistence.bas index 9886a202..26ffffd5 100644 --- a/Codigo/CharacterPersistence.bas +++ b/Codigo/CharacterPersistence.bas @@ -69,7 +69,7 @@ Public Function LoadCharacterBank(ByVal UserIndex As Integer) As Boolean 368 If Not RS Is Nothing Then 372 While Not RS.EOF 374 With .BancoInvent.Object(RS!Number) -376 .ObjIndex = IIf(RS!item_id < UBound(ObjData), RS!item_id, 0) +376 .ObjIndex = IIf(RS!item_id <= UBound(ObjData), RS!item_id, 0) 378 If .ObjIndex <> 0 Then 380 If LenB(ObjData(.ObjIndex).name) Then counter = counter + 1 @@ -101,7 +101,7 @@ Public Function LoadCharacterInventory(ByVal UserIndex As Integer) As Boolean 106 If Not RS Is Nothing Then 108 While Not RS.EOF 110 With .invent.Object(RS!Number) -112 .ObjIndex = IIf(RS!item_id < UBound(ObjData), RS!item_id, 0) +112 .ObjIndex = IIf(RS!item_id <= UBound(ObjData), RS!item_id, 0) 114 If .ObjIndex <> 0 Then 116 If LenB(ObjData(.ObjIndex).name) Then 118 counter = counter + 1