Experiencia para pasar de nivel desde un archivo Dat.

Ir abajo

Experiencia para pasar de nivel desde un archivo Dat.

Mensaje por Metrosersuah el 20/4/2017, 12:59 am

Declarar
Código:
Public levelELU(1 to STAT_MAXELV) as Long
Y al final del modulo general .
Código:
Public Sub CargarELU() '<--- En general, llamada en sub main (al final).
 
'*********************************************************************************
'Autor: Luciano (G Toyz)
'Creación: 20/04/2017
'Aclaración: -
'Ultima modificación:  -
'
'*********************************************************************************
 
    Dim Leer As New clsIniReader, LoopC As Long
    Call Leer.Initialize(App.Path & "\Dat\Niveles.dat")
  
    For LoopC = 1 To STAT_MAXELV
         levelELU(LoopC) = Clng(Leer.GetValue("INIT", "Nivel" & LoopC))
    Next LoopC
  
End Sub

En este sub, buscan

Código:
Public Sub CheckUserLevel(ByVal UserIndex As Integer)

Código:
            'Nueva subida de exp x lvl. Pablo (ToxicWaste)
            If .Stats.ELV < 15 Then
                .Stats.ELU = .Stats.ELU * 1.4
            ElseIf .Stats.ELV < 21 Then
                .Stats.ELU = .Stats.ELU * 1.35
            ElseIf .Stats.ELV < 33 Then
                .Stats.ELU = .Stats.ELU * 1.3
            ElseIf .Stats.ELV < 41 Then
                .Stats.ELU = .Stats.ELU * 1.225
            Else
                .Stats.ELU = .Stats.ELU * 1.25
            End If

Lo remplazan por:

Código:
.stats.elu = levelelu(.stats.elv)


Formato del DAT.
[INIT]
Nivel1=300
Nivel2=4000
Hasta le nivel máximo.
Adiós.20.04.2017
avatar
Metrosersuah
Nivel 5
Nivel 5

¿BANEADO? : No.
Premios : Ninguno.
Cantidad de envíos : 237
Localización : 4 Paredes
Fecha de inscripción : 13/02/2016

Ver perfil de usuario http://www.argentumonline.com.ar

Volver arriba Ir abajo

Re: Experiencia para pasar de nivel desde un archivo Dat.

Mensaje por Toyz el 20/4/2017, 1:05 am

Gracias por aportarlo. Creo que hay gente que lo va a utilizar.


_______________

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

Volver arriba

- Temas similares

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