Sistema de Renacimiento [By Gs Zone]
Página 1 de 1.
Sistema de Renacimiento [By Gs Zone]
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.
Se Busca el Code:
Abajo de End If Ponen:
Despues bucan:
'
y Reemplazan Por:
Luego, En ese mismo sub donde dice :
Abajo ponen:
Luego, En el TCP.bas, en el sub ConnectNewUser
Buscas:
Abajo pones:
Despues Buscas :
Type UserFlags
Abajo Pones:
Buscas:
Arriba se pone:
y Abajo pones:
Les seria mas facil subir de nivel ya que tendrian mejores atributos, y los skills como los tenian antes, oro todo.
Se Busca el Code:
If UCase$(Left$(rdata, 6)) = "/PMSG " Then
Call mdParty.BroadCastParty(UserIndex, Mid$(rdata, 7))
Exit Sub
End If
Abajo de End If Ponen:
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
Despues bucan:
'
¿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 Reemplazan Por:
¿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 :
WasNewbie = EsNewbie(UserIndex)
Abajo ponen:
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:
'[Barrin]
UserList(UserIndex).flags.Muerto = 0
UserList(UserIndex).flags.Escondido = 0
Abajo pones:
'LIMPIO NACIMIENTOS [BlasTeR]
UserList(UserIndex).flags.ContNacer = 0
'[/BlasTeR]
Despues Buscas :
Type UserFlags
Abajo Pones:
'FLAGS DE RENACIMIENTO
ContNacer As Integer
HpComienzo As Integer
MpComienzo As Integer
VitaComienzo As Integer
' FIN POR AHORA DE RESET
Buscas:
UserList(UserIndex).flags.Envenenado = val(GetVar(UserFile, "FLAGS", "Envenenado"))
Arriba se pone:
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"))
Se Busca:
Call WriteVar(UserFile, "GUILD", "GuildPts", str(UserList(UserIndex).GuildInfo.GuildPoints))
y Abajo pones:
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)
Página 1 de 1.
Permisos de este foro:
No puedes responder a temas en este foro.
|
|