Sistema de Renacimiento [By Gs Zone]

Ver el tema anterior Ver el tema siguiente Ir abajo

Sistema de Renacimiento [By Gs Zone]

Mensaje  Admin el Mar Jun 09, 2009 7:23 pm

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:

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)

lol!

Admin
Admin

Mensajes : 3
Fecha de inscripción : 08/06/2009

Ver perfil de usuario http://fulldesing.your-board.com

Volver arriba Ir abajo

Ver el tema anterior Ver el tema siguiente Volver arriba

- Temas similares

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