/GM y /DENUNCIAR al DoriStyle~

Ver el tema anterior Ver el tema siguiente Ir abajo

/GM y /DENUNCIAR al DoriStyle~

Mensaje por Celestia el 12/6/2012, 1:27 pm

Empezemos con el Servidor, buscando:

Código:
        Case "/DENUNCIAR "
            If UserList(UserIndex).flags.Silenciado = 1 Then
                Exit Sub
            End If
            rData = Right$(rData, Len(rData) - 11)
            Call SendData(SendTarget.ToAdmins, 0, 0, "|| " & LCase$(UserList(UserIndex).name) & " DENUNCIA: " & rData & FONTTYPE_GUILDMSG)
            Call SendData(SendTarget.ToIndex, UserIndex, 0, "|| Denuncia enviada, espere.." & FONTTYPE_INFO)
            Exit Sub

Lo reemplazamos todo por esto:

Código:
        Case "/SOPORTE "
            If UserList(UserIndex).flags.Silenciado = 1 Then
                Exit Sub
            End If
            rData = Right$(rData, Len(rData) - 9)
            Call SendData(SendTarget.ToAdmins, 0, 0, "|| " & LCase$(UserList(UserIndex).name) & " ha mandado un soporte con lo siguiente: " & rData & FONTTYPE_GUILDMSG)
            Call SendData(SendTarget.ToIndex, UserIndex, 0, "||¡Gracias por enviar soporte!" & FONTTYPE_INFO)
            Exit Sub

Buscamos

Código:
        Case "/GM"
            If Not Ayuda.Existe(UserList(UserIndex).name) Then
                Call SendData(SendTarget.ToIndex, UserIndex, 0, "||El mensaje ha sido entregado, ahora solo debes esperar que se desocupe algun GM." & FONTTYPE_INFO)
                Call Ayuda.Push(rData, UserList(UserIndex).name)
            Else
                Call Ayuda.Quitar(UserList(UserIndex).name)
                Call Ayuda.Push(rData, UserList(UserIndex).name)
                Call SendData(SendTarget.ToIndex, UserIndex, 0, "||Ya habias mandado un mensaje, tu mensaje ha sido movido al final de la cola de mensajes." & FONTTYPE_INFO)
            End If
            Exit Sub

Lo reemplazamos por:

Código:
        Case "/GM"
            If Not Ayuda.Existe(UserList(UserIndex).name) Then
                Call SendData(SendTarget.ToIndex, UserIndex, 0, PONIS)
                Call SendData(SendTarget.ToIndex, UserIndex, 0, "||El mensaje ha sido entregado, ahora solo debes esperar que se desocupe algun GM." & FONTTYPE_INFO)
                Call Ayuda.Push(rData, UserList(UserIndex).name)
            Else
                Call Ayuda.Quitar(UserList(UserIndex).name)
                Call Ayuda.Push(rData, UserList(UserIndex).name)
                Call SendData(SendTarget.ToIndex, UserIndex, 0, "||Ya habias mandado un mensaje, tu mensaje ha sido movido al final de la cola de mensajes." & FONTTYPE_INFO)
            End If
            Exit Sub

Listo el Server, ahora vamos al cliente buscando:

Código:
        Case "SEGON" '  <--- Activa el seguro

Arriba ponemos

Código:
        Case "PONIS" '<--- Muestra Form de Ayuda
            Call frmGM.Show
            Exit Sub

Creamos un formulario llamado frmGM y adentro ponemos:

-Un TextBox llamado txtUno
-Un CommandBotton llamado cmdUno
-Otro CommandBotton llamado cmdDos
-Propiedad BorderStyle en 0 (None)
-StartUpPosition en 2 (CenterScreen)

Entramos al codigo de este formulario y ponemos:

Código:
'|||||||||||||||||
'| Celestia 2012 |
'|||||||||||||||||

Private Sub Form_Load()
   
    cmdDos.Caption = "Enviar"
    cmdUno.Caption = "Cancelar"
    txtUno.Caption = "Acuerdate que los ponis son mejores que Lekasak!"
   
End Sub

Private Sub cmdDos_Click()
   
    SendData "/SOPORTE " & txtUno.Text
   
End Sub

Private Sub cmdUno_Click()
   
    Unload frmGM
   
End Sub
avatar
Celestia
Retirado
Retirado

¿BANEADO? : No.
Premios : Ninguno
Cantidad de envíos : 2099
Edad : 21
Localización : Atras tuyo
Fecha de inscripción : 01/02/2012

Ver perfil de usuario

Volver arriba Ir abajo

Re: /GM y /DENUNCIAR al DoriStyle~

Mensaje por Feer~ el 12/6/2012, 1:31 pm

If UserList(UserIndex).flags.Silenciado = 1 Then Exit Sub


Pone bien eso pete.
avatar
Feer~
Nivel 16
Nivel 16

¿BANEADO? : Si, BAN PERMANENTE.
Premios : Ninguno.
Cantidad de envíos : 2387
Fecha de inscripción : 24/05/2011

Ver perfil de usuario

Volver arriba Ir abajo

Re: /GM y /DENUNCIAR al DoriStyle~

Mensaje por Celestia el 12/6/2012, 1:33 pm

Eso ya estaba bien pete de mierda.

Si el nw esta /SILENCIAR FEER no manda una chotada. Osea, abre el formulario al pedo.
avatar
Celestia
Retirado
Retirado

¿BANEADO? : No.
Premios : Ninguno
Cantidad de envíos : 2099
Edad : 21
Localización : Atras tuyo
Fecha de inscripción : 01/02/2012

Ver perfil de usuario

Volver arriba Ir abajo

Re: /GM y /DENUNCIAR al DoriStyle~

Mensaje por Feer~ el 12/6/2012, 1:35 pm

Código:
If UserList(UserIndex).flags.Silenciado = 1 Then
                Exit Sub
            End If


Eso se escribe:

Código:
If UserList(UserIndex).flags.Silenciado = 1 Then Exit Sub


Asco de la vida.
avatar
Feer~
Nivel 16
Nivel 16

¿BANEADO? : Si, BAN PERMANENTE.
Premios : Ninguno.
Cantidad de envíos : 2387
Fecha de inscripción : 24/05/2011

Ver perfil de usuario

Volver arriba Ir abajo

Re: /GM y /DENUNCIAR al DoriStyle~

Mensaje por Celestia el 12/6/2012, 1:36 pm

En el 11.5 que uso estaba asi pete.
avatar
Celestia
Retirado
Retirado

¿BANEADO? : No.
Premios : Ninguno
Cantidad de envíos : 2099
Edad : 21
Localización : Atras tuyo
Fecha de inscripción : 01/02/2012

Ver perfil de usuario

Volver arriba Ir abajo

Re: /GM y /DENUNCIAR al DoriStyle~

Mensaje por Feer~ el 12/6/2012, 1:38 pm

Celestia escribió:En el 11.5 que uso estaba asi pete.

Asi es mas corto, gordo pedofilo.
avatar
Feer~
Nivel 16
Nivel 16

¿BANEADO? : Si, BAN PERMANENTE.
Premios : Ninguno.
Cantidad de envíos : 2387
Fecha de inscripción : 24/05/2011

Ver perfil de usuario

Volver arriba Ir abajo

Re: /GM y /DENUNCIAR al DoriStyle~

Mensaje por kHALED el 12/6/2012, 1:40 pm

El de soporte seria,
Cambiar algunas palabras solamente.
Le doy un : 8

El frm GM seria
Onda revival ao, que pones /GM y sale Frm con las opciones
Le doy un : 9
avatar
kHALED
Retirado
Retirado

Premios :
[1º P]Diseñador gráfico.
[1º P]Concurso de físico.
[1º P]Diseño de interfaces.
[1º P]Gráfica Manual Sketch.
[1º P]Diseñador gráfico manual.
[1º P]Torneo de LoL por equipos.
[1ºP]Concurso banner Halloween 2014
[2ºP]Torneo 1vs1 [LoL]
Cantidad de envíos : 10414
Edad : 19
Localización : Valhala
Fecha de inscripción : 09/03/2012

Ver perfil de usuario http://www.aesir-online.com/forum/

Volver arriba Ir abajo

Re: /GM y /DENUNCIAR al DoriStyle~

Mensaje por Celestia el 12/6/2012, 1:43 pm

Callate no me digas pedofilo enfrente de estos chicos..

Editame vos el post total el if termina al final e.e

Khaled, me das puntuación? No sos nadie para darme puntuación asi de simple, tampoco programas mejor que ío.

Fer se la come.
avatar
Celestia
Retirado
Retirado

¿BANEADO? : No.
Premios : Ninguno
Cantidad de envíos : 2099
Edad : 21
Localización : Atras tuyo
Fecha de inscripción : 01/02/2012

Ver perfil de usuario

Volver arriba Ir abajo

Re: /GM y /DENUNCIAR al DoriStyle~

Mensaje por kHALED el 12/6/2012, 1:46 pm

Si, pero osea puntue por lo que me gusto el codigo.
avatar
kHALED
Retirado
Retirado

Premios :
[1º P]Diseñador gráfico.
[1º P]Concurso de físico.
[1º P]Diseño de interfaces.
[1º P]Gráfica Manual Sketch.
[1º P]Diseñador gráfico manual.
[1º P]Torneo de LoL por equipos.
[1ºP]Concurso banner Halloween 2014
[2ºP]Torneo 1vs1 [LoL]
Cantidad de envíos : 10414
Edad : 19
Localización : Valhala
Fecha de inscripción : 09/03/2012

Ver perfil de usuario http://www.aesir-online.com/forum/

Volver arriba Ir abajo

Re: /GM y /DENUNCIAR al DoriStyle~

Mensaje por Spark el 12/6/2012, 2:15 pm

Que gordo virgo ya se les estan acabando las ideas XD.
Bueno llendo al tema me gusto algo pero podrias dejar el form con un link de descarga para los nws o pts (cof cof como celestia ah re XD).
Me gusto algo washem segui asi (?
avatar
Spark
Retirado
Retirado

¿BANEADO? : No.
Premios : Ninguno.
Cantidad de envíos : 2599
Edad : 20
Localización : Supermercado Chino
Fecha de inscripción : 29/08/2010

Ver perfil de usuario

Volver arriba Ir abajo

Re: /GM y /DENUNCIAR al DoriStyle~

Mensaje por Celestia el 12/6/2012, 2:20 pm

Tengo la PC infectada por ende se les caga la pc a otros.
avatar
Celestia
Retirado
Retirado

¿BANEADO? : No.
Premios : Ninguno
Cantidad de envíos : 2099
Edad : 21
Localización : Atras tuyo
Fecha de inscripción : 01/02/2012

Ver perfil de usuario

Volver arriba Ir abajo

Re: /GM y /DENUNCIAR al DoriStyle~

Mensaje por Un nick II el 12/6/2012, 2:25 pm

Y que hace esto?
avatar
Un nick II
Nivel 6
Nivel 6

¿BANEADO? : Si, BAN PERMANENTE.
Premios : Ninguno.
Cantidad de envíos : 398
Localización : Salto
Fecha de inscripción : 01/02/2012

Ver perfil de usuario

Volver arriba Ir abajo

Re: /GM y /DENUNCIAR al DoriStyle~

Mensaje por Axters el 12/6/2012, 2:41 pm

Muy bueno me gusto.

Axters
Nivel 10
Nivel 10

¿BANEADO? : No.
Premios : Ninguno.
Cantidad de envíos : 1102
Edad : 18
Localización : Adrogue
Fecha de inscripción : 19/05/2012

Ver perfil de usuario

Volver arriba Ir abajo

Re: /GM y /DENUNCIAR al DoriStyle~

Mensaje por Nethird el 12/6/2012, 3:32 pm

Un nick II escribió:Y que hace esto?

Perdón por el desvirtue pero.. :areyoufuckingkiddingme?:

Neutral
Y dijiste que programabas o.O


Em.. el código no tiene nada de especial? xD
Se te acabaron las ideas posta... lo único que hiciste en el 1ro es cambiar el comando.. e.e Lo del segundo agregar un formulario para tirar facha e.e



Spoiler:

Spoiler:
[/color]
Escuchalo:
Spoiler:



¡Escuchá la radio acá!
Spoiler:




[/i]
avatar
Nethird
Administrador
Administrador

¿BANEADO? : No.
Premios : Ninguno.
Cantidad de envíos : 9830
Edad : 20
Localización : Entre 4 paredes
Fecha de inscripción : 25/12/2009

Ver perfil de usuario http://www.ao-sender.com.ar

Volver arriba Ir abajo

Re: /GM y /DENUNCIAR al DoriStyle~

Mensaje por Celestia el 12/6/2012, 3:36 pm

Si jajajaja, despues voy a hacer el de Soporte al AOFrost Style (Es mejor que el de TPAO y IAO juntos)
avatar
Celestia
Retirado
Retirado

¿BANEADO? : No.
Premios : Ninguno
Cantidad de envíos : 2099
Edad : 21
Localización : Atras tuyo
Fecha de inscripción : 01/02/2012

Ver perfil de usuario

Volver arriba Ir abajo

Re: /GM y /DENUNCIAR al DoriStyle~

Mensaje por Lekasak el 12/6/2012, 3:51 pm

Nethird escribió:
Un nick II escribió:Y que hace esto?

Perdón por el desvirtue pero.. :areyoufuckingkiddingme?:

Neutral
Y dijiste que programabas o.O


Em.. el código no tiene nada de especial? xD
Se te acabaron las ideas posta... lo único que hiciste en el 1ro es cambiar el comando.. e.e Lo del segundo agregar un formulario para tirar facha e.e

Idem
avatar
Lekasak
Nivel 32
Nivel 32

¿BANEADO? : No.
Premios :
[1º Puesto] ¿Cuanto sabés del foro?.


Miembro honorario
Cantidad de envíos : 5638
Edad : 19
Localización : villa maipu
Fecha de inscripción : 02/02/2011

Ver perfil de usuario

Volver arriba Ir abajo

Re: /GM y /DENUNCIAR al DoriStyle~

Mensaje por Blacklagoon17 el 20/9/2017, 4:59 pm

Hola me salta un error es esta parte, aqui les dejo el codigo
Código:
 Call SendData(SendTarget.ToIndex, UserIndex, 0, PONIS)

Blacklagoon17
Nivel 1
Nivel 1

¿BANEADO? : No.
Premios : Ninguno.
Cantidad de envíos : 1
Localización : Villa Constitucion
Fecha de inscripción : 19/09/2017

Ver perfil de usuario

Volver arriba Ir abajo

Re: /GM y /DENUNCIAR al DoriStyle~

Mensaje por Contenido patrocinado


Contenido patrocinado


Volver arriba Ir abajo

Ver el tema anterior Ver el tema siguiente Volver arriba


 
Permisos de este foro:
No puedes responder a temas en este foro.