Merge pull request #526 from Wyr0X/fix-pieles

Fix pieles
ao-org · Mar 8, 2024 · 9892d63 · 9892d63
2 parents 4198ce3 + e644d95
commit 9892d63
Showing 1 changed file with 2 additions and 2 deletions.
diff --git 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