[Aportes indexados] Sistema de Renacimiento o Reset

Estado
Cerrado para nuevas respuestas.

BlasTeR

Aprendiz Lvl 5
Cuando llegas a nivel maximo, tenes la oportunidad de reiniciar, esto para que sirve?, sirve para empezar con 1 punto mas en cada atributo,
Les seria mas facil subir de nivel ya que tendrian mejores atributos, y los skills como los tenian antes, oro todo.


Buscas el codigo :
Código:
If UCase$(Left$(rdata, 6)) = "/PMSG " Then
        Call mdParty.BroadCastParty(UserIndex, Mid$(rdata, 7))
        Exit Sub
    End If

Y Abajo del end if pones:
Código:
 
     
     If UCase$(Left$(rdata, 12)) = "/INCREMENTAR" Then
        If UserList(UserIndex).Stats.ELV < 45 Then
            Call SendData(ToIndex, UserIndex, 0, "||Tus Conocimientos No son los suficientes" & FONTTYPE_WARNING)
        Exit Sub
        End If
        If UserList(UserIndex).flags.ContNacer >= 2 Then
            Call SendData(ToIndex, UserIndex, 0, "|| No podes renacer mas de 2 veces" & FONTTYPE_INFO)
        Exit Sub
        End If
        UserList(UserIndex).flags.ContNacer = UserList(UserIndex).flags.ContNacer + 1
        UserList(UserIndex).Stats.MaxHP = UserList(UserIndex).flags.HpComienzo
        UserList(UserIndex).Stats.MaxMAN = UserList(UserIndex).flags.MpComienzo
        UserList(UserIndex).Stats.MaxSta = UserList(UserIndex).flags.VitaComienzo
        UserList(UserIndex).Stats.UserAtributos(Fuerza) = UserList(UserIndex).Stats.UserAtributos(Fuerza) + 1
        UserList(UserIndex).Stats.UserAtributos(Agilidad) = UserList(UserIndex).Stats.UserAtributos(Agilidad) + 1
        UserList(UserIndex).Stats.UserAtributos(Inteligencia) = UserList(UserIndex).Stats.UserAtributos(Inteligencia) + 1
        UserList(UserIndex).Stats.UserAtributos(Carisma) = UserList(UserIndex).Stats.UserAtributos(Carisma) + 1
        UserList(UserIndex).Stats.UserAtributos(Constitucion) = UserList(UserIndex).Stats.UserAtributos(Constitucion) + 1
        UserList(UserIndex).Stats.ELV = 1
        UserList(UserIndex).Stats.exp = 0
        UserList(UserIndex).Stats.ELU = 300
     Call CloseSocket(UserIndex)
     End If
     
 

Luego, Buscas

Código:
'¿Alcanzo el maximo nivel?
If UserList(UserIndex).Stats.ELV = STAT_MAXELV Then
    UserList(UserIndex).Stats.exp = 0
    UserList(UserIndex).Stats.ELU = 0
    Exit Sub
End If

Y lo reemplazas por esto:

Código:
'¿Alcanzo el maximo nivel?
If UserList(UserIndex).Stats.ELV = STAT_MAXELV Then
    UserList(UserIndex).Stats.exp = 0
    UserList(UserIndex).Stats.ELU = 0
    'Acá es donde comienza la historia del reset.
    Call SendData(ToIndex, UserIndex, 0, "|| Has llegado al Nivel Máximo, Para incrementar tus fuerzas, Tipea /INCREMENTAR" & FONTTYPE_INFO)
    Exit Sub
End If

Luego, En ese mismo sub donde dice
Código:
WasNewbie = EsNewbie(UserIndex)

Abajo pones:
Código:
If UserList(UserIndex).Stats.ELV = 1 Then
UserList(UserIndex).flags.HpComienzo = UserList(UserIndex).Stats.MaxHP
UserList(UserIndex).flags.MpComienzo = UserList(UserIndex).Stats.MaxMAN
UserList(UserIndex).flags.VitaComienzo = UserList(UserIndex).Stats.MaxSta
End If

Luego, En el TCP.bas, en el sub ConnectNewUser
Buscas:
Código:
'[Barrin]
 
UserList(UserIndex).flags.Muerto = 0
UserList(UserIndex).flags.Escondido = 0
Y abajo pones:
Código:
 
'LIMPIO NACIMIENTOS [BlasTeR]
UserList(UserIndex).flags.ContNacer = 0
'[/BlasTeR]

Luego, buscas
Código:
Type UserFlags
y abajo pones:
Código:
'FLAGS DE RENACIMIENTO
ContNacer As Integer
HpComienzo As Integer
MpComienzo As Integer
VitaComienzo As Integer
' FIN POR AHORA DE RESET

Buscas
Código:
UserList(UserIndex).flags.Envenenado = val(GetVar(UserFile, "FLAGS", "Envenenado"))
Y arriba pones:
Código:
UserList(UserIndex).flags.HpComienzo = val(GetVar(UserFile, "BACKUP", "HpComienzo"))
UserList(UserIndex).flags.MpComienzo = val(GetVar(UserFile, "BACKUP", "MpComienzo"))
UserList(UserIndex).flags.VitaComienzo = val(GetVar(UserFile, "BACKUP", "VitaComienzo"))
Buscas:
Código:
Call WriteVar(UserFile, "GUILD", "GuildPts", str(UserList(UserIndex).GuildInfo.GuildPoints))
Y abajo pones:
Código:
Call WriteVar(UserFile, "BACKUP", "HpComienzo", UserList(UserIndex).flags.HpComienzo)
Call WriteVar(UserFile, "BACKUP", "MpComienzo", UserList(UserIndex).flags.MpComienzo)
Call WriteVar(UserFile, "BACKUP", "VitaComienzo", UserList(UserIndex).flags.VitaComienzo)
Call WriteVar(UserFile, "BACKUP", "ContNacer", UserList(UserIndex).flags.ContNacer)

Y LISTO!

Si no entienden algo , para que sirve o cualquier cosa posteen.

Shura > Ahi Te Edite Los Mensajes, Blaster No Sos Nuevo Como Para No Saber Que Hay Un Boton Para Editar Tus Propios Mensajes. No Hagas Doble Post Si No Es Necesario, Con Un CLick En El Boton Editar Basta ;)
 

BlasTeR

Aprendiz Lvl 5
Re: SISTEMA DE RENACIMIENTO

BlasTeR dijo:
Shura > Ahi Te Edite Los Mensajes, Blaster No Sos Nuevo Como Para No Saber Que Hay Un Boton Para Editar Tus Propios Mensajes. No Hagas Doble Post Si No Es Necesario, Con Un CLick En El Boton Editar Basta ;)

Ok, no problem
 

Spoon

Aprendiz Lvl 5
Una boludez xD...Ya esta...Hice que guarde el Min y el Max de hit...
Y con los usuariosmatados , es mas complicado o me baso en lo mismO?

EDIT:ME EQUIVOQUE CON EL OTRO POST ESTABA COPIANDO Y PEGANDO, PIDO LAS MAS SINCERAS DISCULPAS...FUE UN ERROR EN LA SELECCION DE PESTAÑAS MIREN:

<a href="http://gs-zone.org/viewtopic.php?p=83950#83950" class="postlink" rel="nofollow" onClick="window.open(this.href);return false;">http://gs-zone.org/viewtopic.php?p=83950#83950</a>

PERDON :(
 

Gendreuf

Destructor Lvl 2
Spoon dijo:
Una boludez xD...Ya esta...Hice que guarde el Min y el Max de hit...
Y con los usuariosmatados , es mas complicado o me baso en lo mismO?

EDIT:ME EQUIVOQUE CON EL OTRO POST ESTABA COPIANDO Y PEGANDO, PIDO LAS MAS SINCERAS DISCULPAS...FUE UN ERROR EN LA SELECCION DE PESTAÑAS MIREN:

<a href="http://gs-zone.org/viewtopic.php?p=83950#83950" class="postlink" rel="nofollow" onClick="window.open(this.href);return false;">http://gs-zone.org/viewtopic.php?p=83950#83950</a>

PERDON :(

Amigo! Mira el post que revisite! El ultimo mensaje es del Mie Sep 27, 2006 1:40 am,

Lee las reglas!!

No revivas!
 

Spoon

Aprendiz Lvl 5
NO TE SOPORTO MAS CHABONN!!!
ACLARE QUE JUSTO ESTABA EN EL OTRO POST CON BLASTER Y CUANDO LE QUIERO RESPONDER ME EQUIVOCO DE PESTAÑA CON ESTE...!!!
DIOS MIO!!!!!

APARTE SI VES EL OTRO POST DE SISTEMA DE RESTEO VAS A VER QUE YO ESTABA HABLANDO CON EL DE ESO...Y VAS A VER QUE TIENE CONOCRDANCIA CON LO QUE PUSE EN ESTE POST Y CONCLUIR QUE FUE SIN QUERER.
 
Estado
Cerrado para nuevas respuestas.
Arriba