Send

Public Sub Send_Event(ByRef Players() As Integer, ByVal nEvent As Byte)

    Dim LoopC As Long
    Dim LoopX As Long
    Dim Names As String

    If Can_EnterEvent(Players()) = False Then Exit Sub

    For LoopX = 1 To nEvent
        Names = Names & ", " & UserList(Players(LoopX)).name
    Next LoopX

    UserList(Players(1)).Events.ID_Send = Players(1)

    For LoopC = 2 To nEvent
        UserList(Players(LoopC)).Events.ID_Send = Players(1)
        Call WriteConsoleMsg(Players(LoopC), "El usuario " & UserList(Players(1)).name & " te ha invitado a jugar el evento automático " & Messages(nEvent) & "EQUIPO: [" & Names & "]", FontTypeNames.FONTTYPE_INFOBOLD)
    Next LoopC

End Sub