¿Quieres reaccionar a este mensaje? Regístrate en el foro con unos pocos clics o inicia sesión para continuar.



 
ÍndiceIndiceÚltimas imágenesBuscarRegistrarseConectarseReglamento
¿Quién está en línea?
En total hay 2 usuarios en línea: 0 Registrados, 0 Ocultos y 2 Invitados

Ninguno

El record de usuarios en línea fue de 22 durante el Lun Jun 08, 2020 2:43 am
Mejores posteadores
Rango
Sistema de votos Vote_lcapSistema de votos Voting_barSistema de votos Vote_rcap 
Habauc
Sistema de votos Vote_lcapSistema de votos Voting_barSistema de votos Vote_rcap 
Trogclodita
Sistema de votos Vote_lcapSistema de votos Voting_barSistema de votos Vote_rcap 
WhoTeR
Sistema de votos Vote_lcapSistema de votos Voting_barSistema de votos Vote_rcap 
Tomm-
Sistema de votos Vote_lcapSistema de votos Voting_barSistema de votos Vote_rcap 
ZankuR
Sistema de votos Vote_lcapSistema de votos Voting_barSistema de votos Vote_rcap 
GM-PekeMixz
Sistema de votos Vote_lcapSistema de votos Voting_barSistema de votos Vote_rcap 
LuciMoyo
Sistema de votos Vote_lcapSistema de votos Voting_barSistema de votos Vote_rcap 
MwM
Sistema de votos Vote_lcapSistema de votos Voting_barSistema de votos Vote_rcap 
Diclut s2 Lalaa♥
Sistema de votos Vote_lcapSistema de votos Voting_barSistema de votos Vote_rcap 
Estadísticas
Tenemos 98 miembros registrados
El último usuario registrado es Stephelinmu

Nuestros miembros han publicado un total de 1289 mensajes en 264 argumentos.

 

 Sistema de votos

Ir abajo 
5 participantes
AutorMensaje
GM-PekeMixz
Capitan Primero
Capitan Primero
GM-PekeMixz


Cantidad de envíos : 81
Fecha de inscripción : 24/07/2013
Edad : 26
Localización : Boulogne

Sistema de votos Empty
MensajeTema: Sistema de votos   Sistema de votos Icon_minitimeMiér Jul 24, 2013 5:06 pm

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

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.
Volver arriba Ir abajo
https://www.facebook.com/CiudadesPerdidasAo
LuciMoyo
Capitan
LuciMoyo


Cantidad de envíos : 61
Fecha de inscripción : 19/07/2013
Edad : 24
Localización : de por Hay donde nadie sabe

Sistema de votos Empty
MensajeTema: Re: Sistema de votos   Sistema de votos Icon_minitimeSáb Jul 27, 2013 9:37 am

lindo aporte me sirvio
Volver arriba Ir abajo
https://www.facebook.com/luciano.e.moyano
Diclut s2 Lalaa♥
Pre-Avanzado
Pre-Avanzado
Diclut s2 Lalaa♥


Cantidad de envíos : 44
Fecha de inscripción : 24/07/2013
Edad : 33
Localización : CAO Staff

Sistema de votos Empty
MensajeTema: Re: Sistema de votos   Sistema de votos Icon_minitimeSáb Jul 27, 2013 2:52 pm

Ahí está mal, si siguen los pasos que hizo el, cualquier usuario haría SPAM...
Volver arriba Ir abajo
Habauc
Director de Tropas
Director de Tropas
Habauc


Cantidad de envíos : 146
Fecha de inscripción : 26/07/2013
Edad : 26
Localización : Devoto

Sistema de votos Empty
MensajeTema: Re: Sistema de votos   Sistema de votos Icon_minitimeSáb Jul 27, 2013 3:11 pm

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.
Volver arriba Ir abajo
Diclut s2 Lalaa♥
Pre-Avanzado
Pre-Avanzado
Diclut s2 Lalaa♥


Cantidad de envíos : 44
Fecha de inscripción : 24/07/2013
Edad : 33
Localización : CAO Staff

Sistema de votos Empty
MensajeTema: Re: Sistema de votos   Sistema de votos Icon_minitimeSáb Jul 27, 2013 3:29 pm

Ademas de esto, leí y dice Larper.

FUENTE WHERE ARE YOU!!!!!!!!!!!!!!!!!!!
Volver arriba Ir abajo
Tomm-
Director
Director
Tomm-


Cantidad de envíos : 113
Fecha de inscripción : 27/07/2013

Sistema de votos Empty
MensajeTema: Re: Sistema de votos   Sistema de votos Icon_minitimeSáb Jul 27, 2013 3:39 pm

Si vas a hacer "copy and paste" modificalo un poco, lo único que hiciste fue copiar y pegar, aun quesea los hubieras puesto en
Código:
pero lo mandaste así nomas, estoy no se puede ni agradecer ._.

Suerte para la próxima...
Volver arriba Ir abajo
Contenido patrocinado





Sistema de votos Empty
MensajeTema: Re: Sistema de votos   Sistema de votos Icon_minitime

Volver arriba Ir abajo
 
Sistema de votos
Volver arriba 
Página 1 de 1.
 Temas similares
-
» Sistema de tormentas 13.0
» Sistema de Suicidio
» ¡Nuevo sistema de party! (con porcentajes etc etc)
» Sistema de Gran poder (don ) para 0.11.5
» Sistema Global con anti Flodeo!

Permisos de este foro:No puedes responder a temas en este foro.
 :: Argentum Online :: Talleres Taller Argentum :: Programación-
Cambiar a: