/TORNEO [O.11.2]

/est

 
Case "/TORNEO"
        If Not ColaTorneo.Existe(UserList(UserIndex).Name) Then
            Call SendData(ToIndex, UserIndex, 0, "||OK, estas inscripto en el torneo." & FONTTYPE_VENENO)
            Call ColaTorneo.Push(rdata, UserList(UserIndex).Name)
        Else
            Call ColaTorneo.Quitar(UserList(UserIndex).Name)
            Call SendData(ToIndex, UserIndex, 0, "||Bueno, Ahora te has des-inscripto." & FONTTYPE_VENENO)
        End If
    Exit Sub

Public CrcSubKey As String

Public ColaTorneo As New cCola
Public CuentaRegresiva As Long

If UCase$(Left$(rdata, 9)) = "/SHOW SOS" Then

 If UCase$(Left$(rdata, 12)) = "/SHOW TORNEO" Then
    Dim JKL As String
    For LoopC = 1 To ColaTorneo.Longitud
        JKL = ColaTorneo.VerElemento(LoopC)
        Call SendData(ToIndex, UserIndex, 0, "RSOS" & JKL)
    Next LoopC
    Call SendData(ToIndex, UserIndex, 0, "MSOS")
    Exit Sub
 End If
 
 If UCase$(Left$(rdata, 10)) = "/FINTORNEO" Then
    ColaTorneo.Reset
    Exit Sub
 End If

If UCase$(Left$(rdata, 9)) = "/NICK2IP " Then

'Torneos individuales
 If UCase$(Left$(rdata, 9)) = "/SITORNEO" Then
        Call SendData(ToAll, 0, 0, "||" & "...::: Gran TORNEO Gran :::... Individual, para participar mandar /torneo. Recuerden: el que invoque cosas o ataque personajes en la parte pre torneo sera BANEADO o ENCARCELADO" & FONTTYPE_TORNEOS & ENDC)
    Exit Sub
 End If
 
 'Torneos en parejas
 If UCase$(Left$(rdata, 9)) = "/SGTORNEO" Then
        Call SendData(ToAll, 0, 0, "||" & "...::: Gran TORNEO Gran :::... De a 2, para participar mandar /torneo. Recuerden: el que invoque cosas o ataque personajes en la parte pre torneo sera BANEADO o ENCARCELADO" & FONTTYPE_TORNEOS & ENDC)
    Exit Sub
 End If

Public Const FONTTYPE_GUILD = "~255~255~255~1~0"

Public Const FONTTYPE_TORNEOS = "~0~155~0~1~0"