[Aporte#3] CuentaRegesiva ALKON 13.0

Ir abajo

[Aporte#3] CuentaRegesiva ALKON 13.0

Mensaje por Toyz el 11/2/2015, 11:03 pm

Codigo de gs-zone.
100% funcional
Buscamos en el Servidor:

Buscamos:

Código:
SetIniVar              '/SETINIVAR LLAVE CLAVE VALOR

Abajo ponemos:

Código:
Countdown              '/CUENTAREGRESIVA

Buscamos:

Código:
Case eGMCommands.SetIniVar              '/SETINIVAR LLAVE CLAVE VALOR
                Call HandleSetIniVar(UserIndex)

Abajo ponemos:

Código:
Case eGMCommands.Countdown              '/CUENTAREGRESIVA NUMERO MAPA
                Call HandleCountdown(UserIndex)

Buscamos:

Código:
Private Sub HanldeForceMIDIToMap(ByVal UserIndex As Integer)

Abajo del "End Sub" ponen esto:

Código:
Private Sub HandleCountdown(ByVal UserIndex As Integer)
    '***************************************************
    'Author: Nicolás Javier Amoruso (NaKruL)
    'Last Modification: 02/06/10
    '03/06/2010: NaKruL - Agregados nuevos checkeos.
    '***************************************************
        If UserList(UserIndex).incomingData.length < 5 Then
            Err.Raise UserList(UserIndex).incomingData.NotEnoughDataErrCode
            Exit Sub
        End If
    
        With UserList(UserIndex)
            'Remove packet ID
            Call .incomingData.ReadByte
        
            Dim cuenta As Integer
            Dim mapa As Integer
        
            cuenta = .incomingData.ReadInteger()
            mapa = .incomingData.ReadInteger()
        
            If .flags.Privilegios And (PlayerType.User Or PlayerType.Consejero Or PlayerType.SemiDios) Then Exit Sub
                
            If Not MapaValido(mapa) And mapa <> 0 Then
                Call WriteConsoleMsg(UserIndex, "El mapa no es válido.", FontTypeNames.FONTTYPE_INFO)
                Exit Sub
            End If
        
            If cuenta = 0 And CountdownTime > 0 Then
                CountdownTime = 0
                CountdownMap = 0
                Call WriteConsoleMsg(UserIndex, "Cuenta regresiva detenida.", FontTypeNames.FONTTYPE_INFO)
            Else
                CountdownTime = cuenta
                CountdownMap = mapa
            End If
        End With
    End Sub

Buscamos:

Código:
Public aClon As New clsAntiMassClon

Arriba ponemos:

Código:
Public CountdownTime As Integer
    Public CountdownMap As Integer
Buscamos:

Código:
Next i
    Exit Sub
  
    Errhandler:
        Call LogError("Error en PasarSegundo. Err: " & Err.description & " - " & Err.Number & " - UserIndex: " & i)
        Resume Next
    End Sub

Abajo del "Next I" ponemos esto:


Código:
'Cuenta regresiva
        If CountdownTime > 1 Then
            CountdownTime = CountdownTime - 1
            If CountdownMap > 0 Then
                Call SendData(SendTarget.toMap, CountdownMap, PrepareMessageConsoleMsg(CountdownTime, FontTypeNames.FONTTYPE_GUILD))
            Else
                Call SendData(SendTarget.ToAll, 0, PrepareMessageConsoleMsg(CountdownTime, FontTypeNames.FONTTYPE_GUILD))
            End If
        ElseIf CountdownTime = 1 Then
            If CountdownMap > 0 Then
                Call SendData(SendTarget.toMap, CountdownMap, PrepareMessageConsoleMsg("¡YA!", FontTypeNames.FONTTYPE_FIGHT))
            Else
                Call SendData(SendTarget.ToAll, 0, PrepareMessageConsoleMsg("¡YA!", FontTypeNames.FONTTYPE_FIGHT))
            End If
            CountdownTime = 0
            CountdownMap = 0
        End If




Generamos servidor y listo.

Cliente:

Buscamos:

Código:
SetIniVar              '/SETINIVAR LLAVE CLAVE VALOR

Abajo de eso ponemos:

Código:
Countdown              '/CUENTAREGRESIVA VALOR MAPA

Buscan:

Código:
Case "/HOGAR"
                    Call WriteHome
Abajo de eso ponemos:

Código:
Case "/CUENTAREGRESIVA"
                    If notNullArguments And CantidadArgumentos >= 1 Then
                        If ValidNumber(ArgumentosAll(0), eNumber_Types.ent_integer) Then
                          
                            Call WriteCountdown(ArgumentosAll(0), 0)
                        
                            If CantidadArgumentos >= 2 Then 'puso el mapa?
                                If ValidNumber(ArgumentosAll(1), eNumber_Types.ent_integer) Then
                                    Call WriteCountdown(ArgumentosAll(0), ArgumentosAll(1))
                                Else
                                    'Argumentos de mas?
                                    Call ShowConsoleMsg("Valor incorrecto. Utilice /CUENTAREGRESIVA VALOR MAPA(Opcional).")
                                End If
                            End If
                        Else
                            'No es valido el 1
                            Call ShowConsoleMsg("Valor incorrecto. Utilice /CUENTAREGRESIVA VALOR MAPA(Opcional).")
                        End If
                    Else
                        'Avisar que falta el parametro
                        Call ShowConsoleMsg("Valor incorrecto. Utilice /CUENTAREGRESIVA VALOR MAPA(Opcional).")
                    End If

Buscamos:

Código:
Public Sub WriteSetIniVar(ByRef sLlave As String, ByRef sClave As String, ByRef sValor As String)

Abajo de eso ponemos:

Código:
''
    ' Writes the "Countdown" message to the outgoing data buffer.
    '
    ' @param    cuenta the countdown's start value
    ' @param    map the map where the countdown will be sent (0 equals ALL maps = ALL users).
    ' @remarks  The data is not actually sent until the buffer is properly flushed.
  
    Public Sub WriteCountdown(ByVal Cuenta As Integer, ByVal Map As Integer)
    '***************************************************
    'Author: Nicolas Javier Amoruso (NaKruL)
    'Last Modification: 03/06/10
    'Writes the "Countdown" message to the outgoing data buffer
    '***************************************************
        With outgoingData
                Call .WriteByte(ClientPacketID.GMCommands)
            Call .WriteByte(eGMCommands.Countdown)
        
            Call .WriteInteger(Cuenta)
            Call .WriteInteger(Map)
  
        End With
    End Sub

Y generan el cliente y listo.

no se olviden ningún paso!

PROXIMO TH #4 VOTA:
1-> /RMSG COMO EL TIERRAS DEL SUR
2-> SISTEMA /RANKING
3-> FULL SKILL AL EMPEZAR A JUGAR


[Aporte#1] http://www.servers-argentum.org/t34112-aporte1-dados-17-18-alkon-13-0#360141
[Aporte#2] http://www.servers-argentum.org/t34117-aporte2-names-siempre-visibles-alkon-13-0#360145


Última edición por Sxex el 31/8/2015, 8:24 pm, editado 1 vez


_______________

Como saben yo aporto bastante en Servers-Argentum y les quiero decir que todos tienen derecho de usar y de aportar en otra comunidad mis aportes pero sólo con un requisito y es tan simple que dejar los créditos. Gracias.
Si conocen otra comunidad y en esa misma mis aportes no están aportados, si tenés tiempo y ganas, aportalo! A mucha gente le puede servir. No te olvides del requisito Razz

MIS MEJORES APORTES:

Compra/venta de personajes:
https://goo.gl/A44Av0

Juegos del Hambre:
https://goo.gl/u6aNUG

Deathmatch automático:
https://goo.gl/GQF4fK

Sistema de retos vía MMR con búsqueda, emparejamiento, etc:
https://goo.gl/40uP0f

Sistemas de eventos automáticos de 1vs1 hasta 10vs10:
https://goo.gl/XYKygc

1VS1 - AIM - MELEE - Gana Sigue (Se liberan cupos)
https://goo.gl/qq83wx

Retos 3vs3 - [Items, 2 rounds, múltiples arenas, oro]
https://goo.gl/x8SMnV

Eliminar sistema de Skill (COMPLETO)
https://goo.gl/mKxHzC
avatar
Toyz
Administrador
Administrador

¿BANEADO? : No.
Premios :
[1er puesto] Usuario del año 2016
Cantidad de envíos : 5045
Edad : 17
Localización : Global.
Fecha de inscripción : 28/09/2014

Ver perfil de usuario

Volver arriba Ir abajo

Re: [Aporte#3] CuentaRegesiva ALKON 13.0

Mensaje por Leman el 11/2/2015, 11:08 pm

Buen aporte. Este si me gusto bastante.

Saludos!
avatar
Leman
Retirado
Retirado

¿BANEADO? : No.
Premios : Ninguno.
Cantidad de envíos : 2196
Edad : 19
Localización : mi casa
Fecha de inscripción : 08/04/2010

Ver perfil de usuario

Volver arriba Ir abajo

Re: [Aporte#3] CuentaRegesiva ALKON 13.0

Mensaje por Rabanne el 11/2/2015, 11:10 pm

¡Buen aporte!

Seguro a alguien le será de utilidad.
avatar
Rabanne
Nivel 6
Nivel 6

¿BANEADO? : No.
Premios : Ninguno.
Cantidad de envíos : 316
Edad : 19
Localización : Privado
Fecha de inscripción : 08/02/2015

Ver perfil de usuario

Volver arriba Ir abajo

Re: [Aporte#3] CuentaRegesiva ALKON 13.0

Mensaje por Nethird el 12/2/2015, 10:30 pm

Buen aporte :3
Se ha hecho antes si no me equivoco, pero está bastante al fondo.. al igual de los dados en 18.

Y voto el sistema /RANKING (Y)

Si son de otros los aportes dejá fuente. Saludos.



Spoiler:

Spoiler:
[/color]
Escuchalo:
Spoiler:



¡Escuchá la radio acá!
Spoiler:




[/i]
avatar
Nethird
Administrador
Administrador

¿BANEADO? : No.
Premios : Ninguno.
Cantidad de envíos : 9841
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: [Aporte#3] CuentaRegesiva ALKON 13.0

Mensaje por Toyz el 12/2/2015, 10:32 pm

Dejare fuente, una pregunta si o si con link?
Ahora en un ratito hago el sistema ranking ahora estoy haciendo para que puedan abrir con hamachi un servidor...


_______________

Como saben yo aporto bastante en Servers-Argentum y les quiero decir que todos tienen derecho de usar y de aportar en otra comunidad mis aportes pero sólo con un requisito y es tan simple que dejar los créditos. Gracias.
Si conocen otra comunidad y en esa misma mis aportes no están aportados, si tenés tiempo y ganas, aportalo! A mucha gente le puede servir. No te olvides del requisito Razz

MIS MEJORES APORTES:

Compra/venta de personajes:
https://goo.gl/A44Av0

Juegos del Hambre:
https://goo.gl/u6aNUG

Deathmatch automático:
https://goo.gl/GQF4fK

Sistema de retos vía MMR con búsqueda, emparejamiento, etc:
https://goo.gl/40uP0f

Sistemas de eventos automáticos de 1vs1 hasta 10vs10:
https://goo.gl/XYKygc

1VS1 - AIM - MELEE - Gana Sigue (Se liberan cupos)
https://goo.gl/qq83wx

Retos 3vs3 - [Items, 2 rounds, múltiples arenas, oro]
https://goo.gl/x8SMnV

Eliminar sistema de Skill (COMPLETO)
https://goo.gl/mKxHzC
avatar
Toyz
Administrador
Administrador

¿BANEADO? : No.
Premios :
[1er puesto] Usuario del año 2016
Cantidad de envíos : 5045
Edad : 17
Localización : Global.
Fecha de inscripción : 28/09/2014

Ver perfil de usuario

Volver arriba Ir abajo

Re: [Aporte#3] CuentaRegesiva ALKON 13.0

Mensaje por BAHTANG el 11/2/2016, 1:46 am

No me funciona...
Hice los pasos al 100% solo me dio error en " Call Handle(UserIndex)" y la solucion era " Call HandleSetIniVar(UserIndex)".
Genere el cliente y aun asi no me funciona, y eso que no me tira ningun error.
avatar
BAHTANG
Nivel 6
Nivel 6

¿BANEADO? : No.
Premios : Ninguno.
Cantidad de envíos : 331
Edad : 19
Localización : Ullathorpe
Fecha de inscripción : 20/03/2014

Ver perfil de usuario

Volver arriba Ir abajo

Re: [Aporte#3] CuentaRegesiva ALKON 13.0

Mensaje por Toyz el 11/2/2016, 2:35 am

Dejame una foto del error.
Esto no es una solución "Call HandleSetIniVar(UserIndex)", eso es llamar al HandleSetIniVar.
Lo que tendrías que hacer sería call handlecountdown(userindex)


_______________

Como saben yo aporto bastante en Servers-Argentum y les quiero decir que todos tienen derecho de usar y de aportar en otra comunidad mis aportes pero sólo con un requisito y es tan simple que dejar los créditos. Gracias.
Si conocen otra comunidad y en esa misma mis aportes no están aportados, si tenés tiempo y ganas, aportalo! A mucha gente le puede servir. No te olvides del requisito Razz

MIS MEJORES APORTES:

Compra/venta de personajes:
https://goo.gl/A44Av0

Juegos del Hambre:
https://goo.gl/u6aNUG

Deathmatch automático:
https://goo.gl/GQF4fK

Sistema de retos vía MMR con búsqueda, emparejamiento, etc:
https://goo.gl/40uP0f

Sistemas de eventos automáticos de 1vs1 hasta 10vs10:
https://goo.gl/XYKygc

1VS1 - AIM - MELEE - Gana Sigue (Se liberan cupos)
https://goo.gl/qq83wx

Retos 3vs3 - [Items, 2 rounds, múltiples arenas, oro]
https://goo.gl/x8SMnV

Eliminar sistema de Skill (COMPLETO)
https://goo.gl/mKxHzC
avatar
Toyz
Administrador
Administrador

¿BANEADO? : No.
Premios :
[1er puesto] Usuario del año 2016
Cantidad de envíos : 5045
Edad : 17
Localización : Global.
Fecha de inscripción : 28/09/2014

Ver perfil de usuario

Volver arriba Ir abajo

Re: [Aporte#3] CuentaRegesiva ALKON 13.0

Mensaje por BAHTANG el 11/2/2016, 11:26 am

Hice los pasos al 100%, ninguna equivocación pero después quise poner /cuentaregresiva y se me desconectaba el juego. Igual lo saque y puse otro code.
avatar
BAHTANG
Nivel 6
Nivel 6

¿BANEADO? : No.
Premios : Ninguno.
Cantidad de envíos : 331
Edad : 19
Localización : Ullathorpe
Fecha de inscripción : 20/03/2014

Ver perfil de usuario

Volver arriba Ir abajo

Re: [Aporte#3] CuentaRegesiva ALKON 13.0

Mensaje por Santiago216 el 25/4/2016, 6:34 pm

No me sirvio Sad

Santiago216
Nivel 2
Nivel 2

¿BANEADO? : No.
Premios : Ninguno.
Cantidad de envíos : 36
Localización : En La Compu
Fecha de inscripción : 13/04/2016

Ver perfil de usuario

Volver arriba Ir abajo

Re: [Aporte#3] CuentaRegesiva ALKON 13.0

Mensaje por Toyz el 26/4/2016, 1:34 am

@Santiago216 escribió:No me sirvio Sad

Qué no te sirvió?
Aclaro que releí el código y está todo en orden.
avatar
Toyz
Administrador
Administrador

¿BANEADO? : No.
Premios :
[1er puesto] Usuario del año 2016
Cantidad de envíos : 5045
Edad : 17
Localización : Global.
Fecha de inscripción : 28/09/2014

Ver perfil de usuario

Volver arriba Ir abajo

Re: [Aporte#3] CuentaRegesiva ALKON 13.0

Mensaje por Santiago216 el 2/5/2016, 11:11 pm

me salta un error sobre el sentiInvar algo asi

Santiago216
Nivel 2
Nivel 2

¿BANEADO? : No.
Premios : Ninguno.
Cantidad de envíos : 36
Localización : En La Compu
Fecha de inscripción : 13/04/2016

Ver perfil de usuario

Volver arriba Ir abajo

Re: [Aporte#3] CuentaRegesiva ALKON 13.0

Mensaje por Toyz el 2/5/2016, 11:45 pm

Dejame el error claro, con una foto, no soy adivino...


_______________

Como saben yo aporto bastante en Servers-Argentum y les quiero decir que todos tienen derecho de usar y de aportar en otra comunidad mis aportes pero sólo con un requisito y es tan simple que dejar los créditos. Gracias.
Si conocen otra comunidad y en esa misma mis aportes no están aportados, si tenés tiempo y ganas, aportalo! A mucha gente le puede servir. No te olvides del requisito Razz

MIS MEJORES APORTES:

Compra/venta de personajes:
https://goo.gl/A44Av0

Juegos del Hambre:
https://goo.gl/u6aNUG

Deathmatch automático:
https://goo.gl/GQF4fK

Sistema de retos vía MMR con búsqueda, emparejamiento, etc:
https://goo.gl/40uP0f

Sistemas de eventos automáticos de 1vs1 hasta 10vs10:
https://goo.gl/XYKygc

1VS1 - AIM - MELEE - Gana Sigue (Se liberan cupos)
https://goo.gl/qq83wx

Retos 3vs3 - [Items, 2 rounds, múltiples arenas, oro]
https://goo.gl/x8SMnV

Eliminar sistema de Skill (COMPLETO)
https://goo.gl/mKxHzC
avatar
Toyz
Administrador
Administrador

¿BANEADO? : No.
Premios :
[1er puesto] Usuario del año 2016
Cantidad de envíos : 5045
Edad : 17
Localización : Global.
Fecha de inscripción : 28/09/2014

Ver perfil de usuario

Volver arriba Ir abajo

Re: [Aporte#3] CuentaRegesiva ALKON 13.0

Mensaje por Santiago216 el 3/5/2016, 3:31 am

Ok pera que abia eliminado todo el codigo, lo voy a poner una vez mas aver si me funciona, por cierto, soy nuevo en el foro.


Aver si funciona con este link


Santiago216
Nivel 2
Nivel 2

¿BANEADO? : No.
Premios : Ninguno.
Cantidad de envíos : 36
Localización : En La Compu
Fecha de inscripción : 13/04/2016

Ver perfil de usuario

Volver arriba Ir abajo

Re: [Aporte#3] CuentaRegesiva ALKON 13.0

Mensaje por BenjaXZ el 3/5/2016, 2:27 pm

@Santiago216 escribió:Ok pera que abia eliminado todo el codigo, lo voy a poner una vez mas aver si me funciona, por cierto, soy nuevo en el foro.


Aver si funciona con este link


Buscas
Código:
/SETINIVAR LLAVE CLAVE VALOR
y abajo pones el identificador.
Código:
Countdown              '/CUENTAREGRESIVA VALOR MAPA
avatar
BenjaXZ
Nivel 6
Nivel 6

¿BANEADO? : No.
Premios : Ninguno.
Cantidad de envíos : 439
Localización : Dolores
Fecha de inscripción : 29/05/2012

Ver perfil de usuario

Volver arriba Ir abajo

Re: [Aporte#3] CuentaRegesiva ALKON 13.0

Mensaje por Santiago216 el 3/5/2016, 2:52 pm

Ok, Ahora lo probare, gracias

Santiago216
Nivel 2
Nivel 2

¿BANEADO? : No.
Premios : Ninguno.
Cantidad de envíos : 36
Localización : En La Compu
Fecha de inscripción : 13/04/2016

Ver perfil de usuario

Volver arriba Ir abajo

Re: [Aporte#3] CuentaRegesiva ALKON 13.0

Mensaje por Contenido patrocinado


Contenido patrocinado


Volver arriba Ir abajo

Volver arriba


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