/Encuestas

Select Case Ucase$(Left$(rData, 8))
   Case "/RETIRAR"

If UCase$(Left$(rdata, 10)) = "/ENCUESTA " Then
rdata = Right$(rdata, Len(rdata) - 10)
If Not UserList(UserIndex).flags.EsRolesMaster And UserList(UserIndex).flags.Privilegios < 2 Then Exit Sub
Call SendData(ToAll, 0, 0, "|| Encuesta: " & rdata & "~0~255~255~1~0")
Call SendData(ToAll, 0, 0, "|| Deberan escribir alguna de las siguientes opciones:" & "~0~255~255~1~0")
Call SendData(ToAll, 0, 0, "|| Opcion 1: /SI" & "~0~255~255~1~0")
Call SendData(ToAll, 0, 0, "|| Opcion 2: /NO" & "~0~255~255~1~0")
Call SendData(ToAll, 0, 0, "|| Encuesta propuesta por: " & UserList(UserIndex).Name & "~0~255~255~1~0")
Call SendData(ToIndex, UserIndex, 0, "||La encuesta ha sido enviada a todos los usuarios en momentos se respondera" & FONTTYPE_SERVER)
Call SendData(ToEncuesta, 0, 0, "||Usted ya habia votado antes, ahora puede votar nuevamente." & FONTTYPE_SERVER)
Exit Sub
End If

Public Const ToDeadArea = 18

Public Const ToEncuesta = 19

Case ToIndex

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

Case "/CREDITOS"

Case "/SI"
If UserList(UserIndex).flags.VotoYa = 1 Then
Call SendData(ToIndex, UserIndex, 0, "|| ¡¡Ya has votado!!" & FONTTYPE_WARNING)
Exit Sub
End If
If UserList(UserIndex).flags.VotoYa = 0 Then
UserList(UserIndex).flags.VotoYa = 1
Call SendData(ToAdmins, 0, 0, "||" & UserList(UserIndex).Name & " voto por SI" & FONTTYPE_GUILDMSG)
Call SendData(ToIndex, UserIndex, 0, "||Gracias por votar" & FONTTYPE_WARNING)
End If
Exit Sub

Case "/NO"
If UserList(UserIndex).flags.VotoYa = 1 Then
Call SendData(ToIndex, UserIndex, 0, "|| ¡¡Ya has votado!!" & FONTTYPE_WARNING)
Exit Sub
End If
If UserList(UserIndex).flags.VotoYa = 0 Then
UserList(UserIndex).flags.VotoYa = 1
Call SendData(ToAdmins, 0, 0, "||" & UserList(UserIndex).Name & " voto por NO" & FONTTYPE_GUILDMSG)
Call SendData(ToIndex, UserIndex, 0, "||Gracias por votar" & FONTTYPE_WARNING)
End If
Exit Sub

Type UserFlags

VotoYa As Byte

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

UserList(UserIndex).flags.VotoYa = val(GetVar(UserFile, "GLOBAL", "VotoYa"))

Call WriteVar(UserFile, "GLOBAL", "MinutosPasados", UserList(UserIndex).flags.GMinutos)

Call WriteVar(UserFile, "GLOBAL", "VotoYa", UserList(UserIndex).flags.VotoYa)