Global - [0.11.2]

Public Const ToDeadArea = 18

Public Const ToGlobal = 19

Case ToIndex
If UserList(sndIndex).ConnID <> -1 Then
'Call AddtoVar(UserList(sndIndex).BytesTransmitidosSvr, LenB(sndData), 100000)
'frmMain.Socket2(sndIndex).Write sndData, Len(sndData)
' #If UsarAPI Then
' Call WsApiEnviar(sndIndex, sndData)
' #Else
' frmMain.Socket2(sndIndex).Write sndData, Len(sndData)
' #End If
Call EnviarDatosASlot(sndIndex, sndData)
Exit Sub
End If

Case ToEncuesta
For LoopC = 1 To LastUser
If (UserList(LoopC).ConnID <> -1) Then
If UserList(LoopC).flags.VotoYa = 1 Then
UserList(LoopC).flags.VotoYa = 0
Call EnviarDatosASlot(LoopC, sndData)
End If
End If
Next LoopC
Exit Sub
'By Chorlo

Case "/CREDITOS"

Case "/NOGLOBAL"
If UserList(UserIndex).flags.EsRolesMaster Then Exit Sub
If AGlobal > 0 Then
Call SendData(ToAll, 0, 0, "||Global Habilitado. Para ingresar un mensaje escriban /CONSOLA MENSAJE" & "~255~255~255~1~0")
AGlobal = 0
Else
Call SendData(ToAll, 0, 0, "||El Global se ha desahabilitado." & "~255~255~255~1~0")
AGlobal = 1
End If
Exit Sub

Case "/MENSAJES"
If UserList(UserIndex).flags.GGlobal = 1 Then
UserList(UserIndex).flags.GGlobal = 0
Call SendData(ToIndex, UserIndex, 0, "||Has desactivado el envio y recibo de mensajes por consola." & tStr & FONTTYPE_WARNING)
Else
Call SendData(ToIndex, UserIndex, 0, "||Has activado el envio y recibo de mensajes por consola." & tStr & FONTTYPE_WARNING)
UserList(UserIndex).flags.GGlobal = 1
End If
Exit Sub

If UCase$(Left$(rdata, 5)) = "/ROL " Then
rdata = Right$(rdata, Len(rdata) - 5)
Call SendData(ToRolesMasters, 0, 0, "|| " & LCase$(UserList(UserIndex).Name) & " PREGUNTA ROL: " & rdata & FONTTYPE_GUILDMSG)
Exit Sub
End If

Select Case UCase$(Left$(rdata, 9))
Case "/CONSOLA "
rdata = Right$(rdata, Len(rdata) - 9)
' Si no es nivel 10 que no lo pueda usar
If UserList(UserIndex).Stats.ELV < 30 Then
Call SendData(ToIndex, UserIndex, 0, "|| Debes ser nivel 30 o superior para usar el global!!!." & FONTTYPE_INFO)
Exit Sub
End If
' Si no tiene el global activado le avisa
If AGlobal > 0 Then
Call SendData(ToIndex, UserIndex, 0, "||El Global esta desahabilitado. " & FONTTYPE_WARNING)
Exit Sub
End If
' Si los administradores le prohibieron el habla le avisa
If UserList(UserIndex).flags.GPuede = 1 Then
Call SendData(ToIndex, UserIndex, 0, "|| Por tu mal comportamiento, no podras volver a hablar en: " & UserList(UserIndex).flags.GMinutos & " minutos." & FONTTYPE_WARNING)
Exit Sub
End If
If UserList(UserIndex).flags.GGlobal = 0 Then
Call SendData(ToIndex, UserIndex, 0, "||Tienes desactivado el global para activarlo escribe /MENSAJES" & FONTTYPE_WARNING)
Exit Sub
End If
Call SendData(ToGlobal, UserIndex, 0, "|| " & UserList(UserIndex).Name & " dice: " & rdata & FONTTYPE_GLOBAL)
Exit Sub
End Select

Type UserFlags

GGlobal As Byte
GPuede As Byte

UserList(UserIndex).Faccion.ArmadaReal = val(GetVar(UserFile, "FACCIONES", "EjercitoReal"))

UserList(UserIndex).flags.GGlobal = val(GetVar(UserFile, "GLOBAL", "Activado"))
UserList(UserIndex).flags.GPuede = val(GetVar(UserFile, "GLOBAL", "PuedeUsar"))

Call WriteVar(UserFile, "FLAGS", "Paralizado", val(UserList(UserIndex).flags.Paralizado))

Call WriteVar(UserFile, "GLOBAL", "Activado", UserList(UserIndex).flags.GGlobal)
Call WriteVar(UserFile, "GLOBAL", "PuedeUsar", UserList(UserIndex).flags.GPuede)

Public ServerSoloGMs As Integer

Public AGlobal As Integer