Update InvUsuario.bas

ao-org · May 11, 2024 · eb76da2 · eb76da2
1 parent c08b22d
commit eb76da2
Showing 1 changed file with 3 additions and 0 deletions.
diff --git a/Codigo/InvUsuario.bas b/Codigo/InvUsuario.bas
@@ -2799,11 +2799,14 @@ Sub UseInvItem(ByVal UserIndex As Integer, ByVal Slot As Byte, ByVal ByClick As
                         If TargObj.Cerrada = 1 Then
                               '¿Cerrada con llave?
                               If TargObj.Llave > 0 Then
+                              Dim clavellave As Integer
+
                                  If TargObj.clave = obj.clave Then
                                     MapData(UserList(UserIndex).flags.TargetObjMap, UserList(UserIndex).flags.TargetObjX, UserList(UserIndex).flags.TargetObjY).ObjInfo.ObjIndex _
                                     = ObjData(MapData(UserList(UserIndex).flags.TargetObjMap, UserList(UserIndex).flags.TargetObjX, UserList(UserIndex).flags.TargetObjY).ObjInfo.ObjIndex).IndexCerrada
                                     UserList(UserIndex).flags.TargetObj = MapData(UserList(UserIndex).flags.TargetObjMap, UserList(UserIndex).flags.TargetObjX, UserList(UserIndex).flags.TargetObjY).ObjInfo.ObjIndex
                                     Call WriteConsoleMsg(UserIndex, "Has abierto la puerta.", e_FontTypeNames.FONTTYPE_INFO)
+                                    clavellave = obj.clave
                                     Call EliminarLlaves(ClaveLlave, UserIndex)
                                     Exit Sub
                                  Else