[Aportes indexados] Objetos Preciados, invendibles

'Tipos de objetos
Public Type ObjData
    
    Name As String 'Nombre del obj
 

 Preciado As Byte ' Tales

    If ObjData(Object).SubTipo = OBJTYPE_CASCO Then
        ObjData(Object).CascoAnim = val(Leer.DarValor("OBJ" & Object, "Anim"))
        ObjData(Object).LingH = val(Leer.DarValor("OBJ" & Object, "LingH"))
        ObjData(Object).LingP = val(Leer.DarValor("OBJ" & Object, "LingP"))
        ObjData(Object).LingO = val(Leer.DarValor("OBJ" & Object, "LingO"))
        ObjData(Object).SkHerreria = val(Leer.DarValor("OBJ" & Object, "SkHerreria"))
    End If
 

    ObjData(Object).Preciado = val(Leer.DarValor("OBJ" & Object, "Preciado"))

If ObjData(obji).Newbie = 1 Then
    Call SendData(ToIndex, UserIndex, 0, "||No comercio objetos para newbies." & FONTTYPE_INFO)
    Exit Sub
End If

If ObjData(obji).Preciado = 1 Then
    Call SendData(ToIndex, UserIndex, 0, "||Ese objeto tiene un valor incalculable, no te lo puedo comprar." & FONTTYPE_INFO)
    Exit Sub
End If

        Call MakeObj(ToMap, 0, Map, Obj, Map, X, Y)
        Call QuitarUserInvItem(UserIndex, Slot, num)
        Call UpdateUserInv(False, UserIndex, Slot)

        If ObjData(Obj.ObjIndex).Preciado = 1 Then
            Call SendData(ToIndex, UserIndex, 0, "||El objeto es muy pesado para ser tirado!!!" & FONTTYPE_TALK)
            Exit Sub
        End If

ItemSeCae = (ObjData(Index).Real <> 1 Or ObjData(Index).NoSeCae = 0) And _
            (ObjData(Index).Caos <> 1 Or ObjData(Index).NoSeCae = 0) And _
            ObjData(Index).ObjType <> OBJTYPE_LLAVES And _
            ObjData(Index).ObjType <> OBJTYPE_BARCOS And _
            ObjData(Index).NoSeCae = 0

ItemSeCae = (ObjData(Index).Real <> 1 Or ObjData(Index).NoSeCae = 0) And _
            (ObjData(Index).Caos <> 1 Or ObjData(Index).NoSeCae = 0) And _
            ObjData(Index).ObjType <> OBJTYPE_LLAVES And _
            ObjData(Index).ObjType <> OBJTYPE_BARCOS And _
            ObjData(Index).NoSeCae = 0[color=red] And ObjData(Index).Preciado = 0[/color]

If ObjCant <= 0 Or ObjInd <= 0 Then Exit Sub

If ObjData(ObjInd).Preciado = 1 Then Exit Sub