'/////////// SERVER

Public Sub WriteActualizarDatosParty(ByVal UsuarioIndex As Integer)

    Dim Experiencia As Long
    Dim Porcentaje As Byte
    Dim Nombre As String
    Dim LoopC As Long

    With UserList(UsuarioIndex)
        Call .outgoingData.WriteByte(ServerPacketID.ActualizarDatosParty)
        Call .outgoingData.WriteByte(modParties.Parties(.Party.PartyIndex).CantidadParticipantes)
        Call .outgoingData.WriteByte(modParties.Parties(.Party.PartyIndex).CantidadSolicitudes)
        Call .outgoingData.WriteByte(.Party.estatus)
        For LoopC = 1 To MAX_PARTICIPANTES_PARTY

            '   //      Para los participantes:
            If modParties.Parties(.Party.PartyIndex).Participantes(LoopC).UsuarioIndex > 0 Then
                Experiencia = modParties.Parties(.Party.PartyIndex).Participantes(LoopC).Experiencia
                Porcentaje = modParties.Parties(.Party.PartyIndex).Participantes(LoopC).Porcentaje
                Nombre = UserList(modParties.Parties(.Party.PartyIndex).Participantes(LoopC).UsuarioIndex).Name

                Call .outgoingData.WriteASCIIStringFixed(Nombre)
                Call .outgoingData.WriteLong(Experiencia)
                Call .outgoingData.WriteByte(Porcentaje)
                Call .outgoingData.WriteByte(LoopC)
            End If
            '   //      Para los que enviaron solicitud:
            If modParties.Parties(.Party.PartyIndex).Solicitudes(LoopC) > 0 Then
                Nombre = UserList(modParties.Parties(.Party.PartyIndex).Solicitudes(LoopC)).Name
                Call .outgoingData.WriteASCIIString(Nombre)
                Call .outgoingData.WriteByte(LoopC)
            End If
        Next LoopC
    End With
End Sub


'/////////// CLIENTE

Private Sub HandleActualizarDatosParty()

    Dim loopC As Long

    With Party
        .CantidadParticipantes = incomingData.ReadByte
        .CantidadSolicitudes = incomingData.ReadByte
        .Estatus = incomingData.ReadByte
        If .CantidadParticipantes > 0 Then ReDim .Participantes(1 To .CantidadParticipantes) As tParticipantesParty
        If .CantidadSolicitudes > 0 Then ReDim .Solicitudes(1 To .CantidadSolicitudes) As tSolicitudesParty

        For loopC = 1 To .CantidadParticipantes
            .Participantes(loopC).Nombre = incomingData.ReadString()
            .Participantes(loopC).Experiencia = incomingData.ReadLong()
            .Participantes(loopC).Porcentaje = incomingData.ReadByte()
            .Participantes(loopC).ParticipanteIndexServer = incomingData.ReadByte()
        Next loopC

        For loopC = 1 To .CantidadSolicitudes
            .Solicitudes(loopC).Nombre = incomingData.ReadString()
            .Solicitudes(loopC).SolicitudIndexServer = incomingData.ReadByte()
        Next loopC

        Call frmParty.ActualizarListas
        Call frmParty.ActualizarCaptionBotonAccionParty
    End With
End Sub