Sistema de votos

Hola, acá les dejo mi trabajo para que puedan hacer de él lo que desee  

CLIENTE:

Crean un nuevo formulario con el nombre "frmEncuesta", luego copian la consola del "frmMain" y la pegan en el formulario que hicieron Razz.

Buscan:
Código:
Case "||"                ' >>>>> Dialogo de Usuarios y NPCs :: ||
           Rdata = Right$(Rdata, Len(Rdata) - 2)
           Dim iuser As Integer
           iuser = Val(ReadField(3, Rdata, 176))
           
           If iuser > 0 Then
               Dialogos.CrearDialogo ReadField(2, Rdata, 176), iuser, Val(ReadField(1, Rdata, 176))
           Else
               If PuedoQuitarFoco Then
                   AddtoRichTextBox frmMain.RecTxt, ReadField(1, Rdata, 126), Val(ReadField(2, Rdata, 126)), Val(ReadField(3, Rdata, 126)), Val(ReadField(4, Rdata, 126)), Val(ReadField(5, Rdata, 126)), Val(ReadField(6, Rdata, 126))
               End If
           End If

           Exit Sub


Abajo:
Código:
Case "|~"                ' >>>>> Dialogo de Usuarios y NPCs :: || By Larper.-
           Rdata = Right$(Rdata, Len(Rdata) - 2)
           iuser = Val(ReadField(3, Rdata, 176))
           
           If iuser > 0 Then
               Dialogos.CrearDialogo ReadField(2, Rdata, 176), iuser, Val(ReadField(1, Rdata, 176))
           Else
               If PuedoQuitarFoco Then 'By Larper.-
                   AddtoRichTextBox frmEncuesta.RecTxt, ReadField(1, Rdata, 126), Val(ReadField(2, Rdata, 126)), Val(ReadField(3, Rdata, 126)), Val(ReadField(4, Rdata, 126)), Val(ReadField(5, Rdata, 126)), Val(ReadField(6, Rdata, 126))
               End If
           End If

           Exit Sub


Luego buscan:
Código:
Case "SEGCVCON"
           SeguroCvc = True


Abajo:
Código:
Case "ENTRO" 'By Larper.-
           frmEncuesta.Show , frmMain


SERVIDOR:
EN las declaraciones buscan:
Código:
Option Explicit


Debajo:
Código:
Public HayVotacion As Boolean ' By Larper.-


Debajo de toda la lista de "DIM's":
Spoiler:
Código:
Dim LoopC As Integer
Dim nPos As WorldPos
Dim tStr As String
Dim tInt As Integer
Dim tLong As Long
Dim tIndex As Integer
Dim tName As String
Dim tMessage As String
Dim AuxInd As Integer
Dim Arg1 As String
Dim Arg2 As String
Dim Arg3 As String
Dim Arg4 As String
Dim Ver As String
Dim encpass As String
Dim Pass As String
Dim mapa As Integer
Dim name As String
Dim ind
Dim N As Integer
Dim wpaux As WorldPos
Dim mifile As Integer
Dim X As Integer
Dim Y As Integer
Dim DummyInt As Integer
Dim T() As String
Dim i As Integer


Debajo:
Código:
If UCase$(Left$(rData, 7)) = "/VOTAR " Then ' By Larper.-
rData = Right$(rData, Len(rData) - 7)
If HayVotacion = False Then
Call SendData(SendTarget.ToIndex, UserIndex, 0, "||Aún no se ha abierto ninguna votación." & FONTTYPE_INFO)
Exit Sub
End If
UserList(UserIndex).flags.YaVotoo = 1
Call SendData(SendTarget.ToIndex, UserIndex, 0, "||Tu voto ya ha sido contavilizado." & FONTTYPE_INFO)
Call SendData(SendTarget.ToIndex, UserIndex, 0, "|~" & UserList(UserIndex).name & "> " & rData & ".~251~244~13~1~0")
End If

Procesado = True 'ver al final del sub


Luego buscan:
Código:
If UCase$(Left$(rData, 6)) = "/RMATA" Then


Arriba:
Código:
If UCase$(Left$(rData, 6)) = "/PREG " Then 'By Larper.-
rData = Right$(rData, Len(rData) - 6)
If HayVotacion = True Then
Call SendData(SendTarget.ToIndex, UserIndex, 0, "||Ya hay una votación." & FONTTYPE_INFO)
Exit Sub
End If
Call SendData(SendTarget.ToAll, 0, 0, "||" & UserList(UserIndex).name & " está realizando una votacion sobre " & rData & ", para dar tu opinion escribe '/VOTAR seguido de tu respuesta.~255~255~255~1~1")
HayVotacion = True
End If

If UCase$(Left$(rData, 5)) = "/RESP" Then 'By Larper.-
rData = Right$(rData, Len(rData) - 5)
Call SendData(SendTarget.ToIndex, UserIndex, 0, "ENTRO")
End If

If UCase$(Left$(rData, 7)) = "/CANCEL" Then 'By Larper.-
rData = Right$(rData, Len(rData) - 7)
   If HayVotacion = True Then
   HayVotacion = False
   Call SendData(SendTarget.ToIndex, UserIndex, 0, "||La votacion actual se ha cerrado." & FONTTYPE_INFO) ' By Larper.-
   End If
End If


Supongo que con eso está :S.

Espero que esté completo, si puede, alguien que lo implemente en alguno de sus AO's si les sirvió :S.

lindo aporte me sirvio

Ahí está mal, si siguen los pasos que hizo el, cualquier usuario haría SPAM...

Jjaajaj Lucimoyo dice Lindo Aporte me sirvio

Diclut tiene razón con lo que el esta haciendo hacen Spam.

Nose como te puede servir eso

Pero Igual muchas gracias por traerlo a la comunidad.

Ademas de esto, leí y dice Larper.

FUENTE WHERE ARE YOU!!!!!!!!!!!!!!!!!!!