Option Explicit

Private Const Max_Ventas As Byte = 50 'Cantidad máxima de usuarios a la venta
Private EnVenta As Byte

Private Type tVentas
    Precio As Long
    Dato As tDatos
End Type

Private Ventas(1 To Max_Ventas) As tVentas

Public Sub Carga_Ventas()

    Dim LoopC As Long
    Dim LoopX As Long
    Dim LoopZ As Long
    Dim LoopI As Long
    Dim LoopA As Long
    Dim LoopO As Long

    Dim Leer As clsIniReader

    Set Leer = New clsIniReader
    Call Leer.Initialize(App.Path & "\Dat\Ventas.dat")

    EnVenta = CByte(Leer.GetValue("INIT", "VentasActuales"))

    For LoopC = 1 To EnVenta
        With Ventas(LoopC)
            With Ventas(LoopC).Dato
                .Candado = CByte(Leer.GetValue("VENTA#" & LoopC, "Candado"))
                .Clase = CByte(Leer.GetValue("VENTA#" & LoopC, "Clase"))
                .Mana = CInt(Leer.GetValue("VENTA#" & LoopC, "Mana"))
                .Vida = CInt(Leer.GetValue("VENTA#" & LoopC, "Vida"))
                .Nivel = CByte(Leer.GetValue("VENTA#" & LoopC, "Nivel"))
                .Raza = CByte(Leer.GetValue("VENTA#" & LoopC, "Raza"))
                .Nombre = Leer.GetValue("VENTA#" & LoopC, "Nombre")
                .Porcentaje = CDbl(Leer.GetValue("VENTA#" & LoopC, "Porcentaje"))
                .Privado = Leer.GetValue("VENTA#" & LoopC, "Privado")
                .Oro = CLng(Leer.GetValue("VENTA#" & LoopC, "Oro_Inventario"))

                For LoopX = 1 To MAXUSERHECHIZOS
                    .Hechizos(LoopX) = CInt(Leer.GetValue("VENTA#" & LoopC, "Hechizo#" & LoopX))
                Next LoopX

                For LoopZ = 1 To MAX_NORMAL_INVENTORY_SLOTS
                    .Objetos(LoopZ).ObjIndex = CInt(ReadField(1, (Leer.GetValue("VENTA#" & LoopC, "OBJETO_INVENTARIO#" & LoopZ)), 45))
                    .Objetos(LoopZ).Amount = CInt(ReadField(2, (Leer.GetValue("VENTA#" & LoopC, "OBJETO_INVENTARIO#" & LoopZ)), 45))
                Next LoopZ

                For LoopI = 1 To NUMSKILLS
                    .Skills(LoopI) = CByte(Leer.GetValue("VENTA#" & LoopC, "Skill#" & LoopI))
                Next LoopI

                For LoopA = 1 To MAX_BANCOINVENTORY_SLOTS
                    .Boveda.Objetos(LoopA).ObjIndex = CInt(ReadField(1, (Leer.GetValue("VENTA#" & LoopC, "OBJETO_BOVEDA#" & LoopZ)), 45))
                    .Boveda.Objetos(LoopA).Amount = CInt(ReadField(2, (Leer.GetValue("VENTA#" & LoopC, "OBJETO_BOVEDA#" & LoopZ)), 45))
                Next LoopA

                For LoopO = 1 To NUMATRIBUTOS
                    .Atributos(LoopO) = CByte(Leer.GetValue("VENTA#" & LoopC, "Atributo#" & LoopO))
                Next LoopO
            End With
            .Dato.Boveda.Oro = CLng(Leer.GetValue("VENTA#" & LoopC, "Oro_Boveda"))
            .Precio = CLng(Leer.GetValue("VENTA#" & LoopC, "Precio"))
        End With
    Next LoopC
End Sub

Public Sub Publicar_Personaje(ByVal ID As Integer, ByVal Precio As Long, ByVal Privado As String, ByVal Candado As Byte)

    EnVenta = EnVenta + 1

    With Ventas(EnVenta)
        .Precio = Precio
        .Dato.Candado = Candado
        .Dato.Privado = Privado
    End With

    UserList(ID).flags.EnVenta = EnVenta
    Call WriteVar(UserFile, "FLAGS", "EnVenta", CStr(UserList(ID).flags.EnVenta))

    If venta(EnVenta).Dato.Candado > 0 Then
        UserList(ID).flags.EnCandado = 1
        Call CloseSocket(ID)
    End If
End Sub

Private Sub Guardar_Venta(ByVal ID_Venta As Byte, ByVal ID As Integer)

    Dim LoopC As Long
    Dim LoopX As Long
    Dim LoopZ As Long
    Dim LoopI As Long
    Dim LoopA As Long
    Dim Archivo As String

    Archivo = CharPath & UCase$(UserList(ID).name) & ".chr"

    With Ventas(EnVenta).Dato
        .Vida = UserList(ID).Stats.MaxHp
        .Mana = UserList(ID).Stats.MaxMAN
        .Clase = UserList(ID).Clase
        .Nivel = UserList(ID).Stats.ELV
        .Nombre = UserList(ID).name
        .Oro = UserList(ID).Stats.GLD
        .Porcentaje = FormatNumber(Porcentaje(UserList(ID).Stats.ELU, UserList(ID).Stats.Exp), 2)
        .Boveda.Oro = UserList(ID).Stats.Banco

        For LoopC = 1 To MAXUSERHECHIZOS
            .Hechizos() = UserList(ID).Stats.UserHechizos()
            Call WriteVar(UserFile, "VENTA#" & EnVenta, "Hechizo#" & LoopC, CStr(.Hechizos(LoopC)))
        Next LoopC

        For LoopX = 1 To MAX_NORMAL_INVENTORY_SLOTS
            .Objetos(LoopX) = UserList(ID).Invent.Object(LoopX)
            Call WriteVar(UserFile, "VENTA#" & EnVenta, "Objeto#" & LoopX, CStr(.Objetos(LoopX).ObjIndex) & "-" & CStr(.Objetos(LoopX).Amount))
        Next LoopX

        For LoopZ = 1 To NUMSKILLS
            .Skills(LoopZ) = UserList(ID).Stats.UserSkills(LoopZ)
            Call WriteVar(UserFile, "VENTA#" & EnVenta, "Skill#" & LoopZ, CStr(.Skills(LoopZ)))
        Next LoopZ

        For LoopI = 1 To NUMATRIBUTOS
            .Atributos(LoopI) = UserList(ID).Stats.UserAtributos(LoopI)
            Call WriteVar(UserFile, "VENTA#" & EnVenta, "Skill#" & LoopI, CStr(.Atributos(LoopI)))
        Next LoopI

        For LoopA = 1 To MAX_BANCOINVENTORY_SLOTS
            .Boveda.Objetos(LoopA) = UserList(ID).BancoInvent.Object(LoopA)
            Call WriteVar(UserFile, "VENTA#" & EnVenta, "OBJETO_BOVEDA#" & LoopI, CStr(.Boveda.Objetos(LoopA).ObjIndex) & "-" & CStr(.Boveda.Objetos(LoopA).Amount))
        Next LoopA

        Call WriteVar(UserFile, "VENTA#" & EnVenta, "Precio", CStr(Ventas(ID_Venta).Precio))
        Call WriteVar(UserFile, "VENTA#" & EnVenta, "Vida", CStr(.Vida))
        Call WriteVar(UserFile, "VENTA#" & EnVenta, "Mana", CStr(.Mana))
        Call WriteVar(UserFile, "VENTA#" & EnVenta, "Clase", CStr(.Clase))
        Call WriteVar(UserFile, "VENTA#" & EnVenta, "Nivel", CStr(.Nivel))
        Call WriteVar(UserFile, "VENTA#" & EnVenta, "Nombre", CStr(.Nombre))
        Call WriteVar(UserFile, "VENTA#" & EnVenta, "Oro_Inventario", CStr(.Oro))
        Call WriteVar(UserFile, "VENTA#" & EnVenta, "Oro_Boveda", CStr(.Boveda.Oro))
        Call WriteVar(UserFile, "VENTA#" & EnVenta, "Porcentaje", CStr(.Porcentaje))

    End With
End Sub