[APORTE] Sistema de Famas - DesteriumAO (13.0)

Ir abajo

[APORTE] Sistema de Famas - DesteriumAO (13.0)

Mensaje por Toyz el 12/1/2016, 12:20 am

Explicación del sistema:
G Toyz escribió:Este sistema es el de DesteriumAO, en el cual tenes un item llamado Fama y al tipear  /FAMA te aumenta uno de vida y te saca la Fama, para tipear el comando debes ser nivel +45.
Datos:
Datos:
Ser nivel 45 o superior.
Máximo 15 Famas.
Te aumenta la vida.
Avisa por consola que conseguiste tomar una fama.
Testeado y obviamente funcional.
Si quieren decir mejoras, como hacerlo como una poción me dicen  y lo vemos Smile
PD: Es solo para la versión 13.0, @Sativa pasalo a 11.5, es fácil (?


Empecemos, servidor, buscamos:
Código:
   Online                  '/ONLINE
Abajo:
Código:
   Fammas                  '/FAMA
Buscamos:
Código:

        Case ClientPacketID.Online                  '/ONLINE
            Call HandleOnline(UserIndex)
Abajo:
Código:

        Case ClientPacketID.Fammas                  '/FAMA
            Call HandleFammas(UserIndex)
Buscamos:
Código:
Private Sub HandleOnline(ByVal UserIndex As Integer)
Abajo del end sub ponemos otro Handle:
Código:

'''
'''
Private Sub HandleFammas(ByVal UserIndex As Integer)
    Dim Fama As Integer
    Fama = 406    'Número de item de la fama

    With UserList(UserIndex)
        Call .incomingData.ReadByte

        If UserList(UserIndex).flags.Muerto = 1 Then
            Call WriteConsoleMsg(UserIndex, "¡¡Estás muerto!!", FontTypeNames.FONTTYPE_INFO)
            Exit Sub
        End If

        If UserList(UserIndex).Stats.ELV < 45 Then
            Call WriteConsoleMsg(UserIndex, "Para poder usar Famas debés ser nivel 47.", FontTypeNames.FONTTYPE_EJECUCION)
            Exit Sub
        End If

        If .Stats.MaxFam >= 15 Then
            Call WriteConsoleMsg(UserIndex, "¡No puedes usar más Famas!", FontTypeNames.FONTTYPE_FIGHT)
            Exit Sub
        End If

        If TieneObjetos(Fama, 1, UserIndex) Then
            .Stats.MinHp = .Stats.MinHp + 1
            .Stats.MaxHp = .Stats.MaxHp + 1
            .Stats.MaxFam = .Stats.MaxFam + 1
            Call QuitarObjetos(Fama, 1, UserIndex)
            Call WriteUpdateuserstats(UserIndex)
            Call WriteConsoleMsg(UserIndex, "Haz subido un punto de vida!, antes tenías " & .Stats.MaxHp - 1 & " ahora tienes " & .Stats.MaxHp, FontTypeNames.FONTTYPE_INFO)
            Call SendData(SendTarget.ToAll, 0, PrepareMessageConsoleMsg("El usuario " & .name & " consiguio una Fama!", FontTypeNames.FONTTYPE_SERVER))
        Else
            Call WriteConsoleMsg(UserIndex, "No tienes Famas", FontTypeNames.FONTTYPE_INFO)
        End If
    End With
End Sub
En el Public Type UserStats agregamos:
Código:
   MaxFam As Byte 'MÁXIMO DE FAMAS

Cliente:
Buscamos:
Código:
   Online                  '/ONLINE
Abajo:
Código:
   Fammas                  '/FAMAS
Buscamos:
Código:

''
' Writes the "Online" message to the outgoing data buffer.
'
' @remarks  The data is not actually sent until the buffer is properly flushed.

Public Sub WriteOnline()
'***************************************************
'Author: Juan Martín Sotuyo Dodero (Maraxus)
'Last Modification: 05/17/06
'Writes the "Online" message to the outgoing data buffer
'***************************************************
    Call outgoingData.WriteByte(ClientPacketID.Online)
End Sub
Abajo:
Código:

Public Sub WriteFammas()
    Call outgoingData.WriteByte(ClientPacketID.Fammas)
End Sub
Buscamos:
Código:

            Case "/ONLINE"
                Call WriteOnline
Abajo:
Código:

            Case "/FAMA"
                If UserEstado = 1 Then 'Muerto
                    With FontTypes(FontTypeNames.FONTTYPE_INFO)
                        Call ShowConsoleMsg("¡¡Estás muerto!!", .red, .green, .blue, .bold, .italic)
                    End With
                    Exit Sub
                End If
                Call WriteFammas


Última edición por G Toyz el 12/1/2016, 10:56 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 : 5046
Edad : 17
Localización : Global.
Fecha de inscripción : 28/09/2014

Ver perfil de usuario

Volver arriba Ir abajo

Re: [APORTE] Sistema de Famas - DesteriumAO (13.0)

Mensaje por Sativa el 12/1/2016, 3:56 am

No es muy rolero que digamos pero me gusta, lindo aporte.
avatar
Sativa
Retirado
Retirado

¿BANEADO? : No.
Premios : Ninguno.
Cantidad de envíos : 2871
Fecha de inscripción : 26/05/2010

Ver perfil de usuario

Volver arriba Ir abajo

Re: [APORTE] Sistema de Famas - DesteriumAO (13.0)

Mensaje por Nowan el 12/10/2017, 11:06 pm

Hola Puse el codigo y al reiniciar el juego puedo seguir subiendo famas
avatar
Nowan
Staff Zhentey
Staff Zhentey

¿BANEADO? : No.
Premios : Ninguno.
Cantidad de envíos : 25
Localización : Tanaris
Fecha de inscripción : 05/06/2016

Ver perfil de usuario

Volver arriba Ir abajo

Re: [APORTE] Sistema de Famas - DesteriumAO (13.0)

Mensaje por Toyz el 16/10/2017, 4:27 am

@Nowan escribió:Hola Puse el codigo y al reiniciar el juego puedo seguir subiendo famas

Ah cierto, tenés que cargar y guardar el flag, fijate como lo hacen los demás como el envenenado, muerto, etc. Son 2 líneas.


_______________

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 : 5046
Edad : 17
Localización : Global.
Fecha de inscripción : 28/09/2014

Ver perfil de usuario

Volver arriba Ir abajo

Re: [APORTE] Sistema de Famas - DesteriumAO (13.0)

Mensaje por Contenido patrocinado


Contenido patrocinado


Volver arriba Ir abajo

Volver arriba

- Temas similares

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