Private Sub HandlePacketMercado(ByVal UserIndex As Integer)


10  If UserList(UserIndex).incomingData.length < 2 Then
20      Err.Raise UserList(UserIndex).incomingData.NotEnoughDataErrCode
30      Exit Sub
40  End If

50  On Error GoTo HandlePacketMercado_Error

60  With UserList(UserIndex)

        'This packet contains strings, make a copy of the data to prevent losses if it's not complete yet...
        Dim Buffer As New clsByteQueue
70      Call Buffer.CopyBuffer(.incomingData)

        'Remove packet ID
80      Call Buffer.ReadByte

        Dim Tipo As Byte

90      Tipo = Buffer.ReadByte()

100     Select Case Tipo
            Case eTipoMercado.AceptarOferta
110             Call AceptarOfertaMercado(UserIndex, Buffer.ReadByte)

120         Case eTipoMercado.EliminarOferta
130             Call m_Mercado.CancelarOfertaHecha(UserIndex, Buffer.ReadByte)

140         Case eTipoMercado.PublicarPersonaje
150             Call m_Mercado.PublicarPersonaje(UserIndex, _
                                                 Buffer.ReadASCIIString, _
                                                 Buffer.ReadASCIIString, _
                                                 Buffer.ReadASCIIString, _
                                                 Buffer.ReadASCIIString, _
                                                 Buffer.ReadLong, _
                                                 Buffer.ReadASCIIString)

160         Case eTipoMercado.QuitarVenta
170             Call m_Mercado.QuitarPersonaje(UserIndex)

180         Case eTipoMercado.RechazarOferta
190             Call m_Mercado.RechazarOfertaCambio(UserIndex, Buffer.ReadByte)

200         Case eTipoMercado.SolicitarListaRecibidas
210             Call WriteSvMercado(UserIndex, 1)

220         Case eTipoMercado.SolicitarListaHechas
230             Call WriteSvMercado(UserIndex, 2)

240         Case eTipoMercado.SolicitarLista
250             Call WriteSvMercado(UserIndex, 3)

260         Case eTipoMercado.EnviarOferta1
270             Call m_Mercado.EnviarOfertaCambio(UserIndex, Buffer.ReadByte)

280         Case eTipoMercado.ComprarPJ
290             Call m_Mercado.ComprarPersonajeMercado(UserIndex, Buffer.ReadByte)
300     End Select

        'If we got here then packet is complete, copy data back to original queue
310     Call .incomingData.CopyBuffer(Buffer)
320 End With

330 'On Error GoTo 0
340 'Exit Sub

HandlePacketMercado_Error:

350 Call LogError("Error " & Err.Number & " (" & Err.description & ") in procedure HandlePacketMercado, line " & Erl & ".")

End Sub