Suporte ao desenvolvimento de jogos!


    Aumentando Level Máximo

    Compartilhe
    avatar
    Valentine
    Administrador
    Administrador

    Medalhas :
    Mensagens : 4804
    Créditos : 1021

    Aumentando Level Máximo

    Mensagem por Valentine em Dom Mar 27, 2011 11:36 am

    Client

    1 - No modConstants, procure por:
    Código:
    Public Const MAX_LEVELS As Byte = 100
    2 - Substitua por:
    Código:
    Public Const MAX_LEVELS As Long = 500
    (O valor 500 é o level máximo)

    3 - No modTypes, procure por:
    Código:
    Private Type PlayerRec

    4 - No lugar de:
    Código:
    Level As Byte

    5 - Substitua por:
    Código:
    Level As Long

    Servidor:
    6 - Repita o mesmo procedimento no Servidor.

    Obs.: Caso você queira alterar o level acima de 500, além de seguir as instruções acima você deve fazer o seguinte:

    7 - No modPlayer do Servidor, procure por:
    Código:
    Function GetPlayerNextLevel(ByVal Index As Long) As Long 
      GetPlayerNextLevel = (50 / 3) * ((GetPlayerLevel(index) + 1) ^ 3 - (6 * (GetPlayerLevel(index) + 1) ^ 2) + 17 * (GetPlayerLevel(index) + 1) - 12)
    End Function

    8 - Substitua por:
    Código:
    Function GetPlayerNextLevel(ByVal Index As Long) As Long
        GetPlayerNextLevel = (25 / 15) * ((GetPlayerLevel(Index) + 1) ^ 3 - (2 * (GetPlayerLevel(Index) + 1) ^ 2) + 17 * (GetPlayerLevel(Index) + 1) - 12)
    End Function

    9 - No modDatabase do Client, procure por:
    Código:
    Function GetPlayerNextLevel(ByVal Index As Long) As Long
        ' If debug mode, handle error then exit out
        If Options.Debug = 1 Then On Error GoTo errorhandler
       
        If Index > MAX_PLAYERS Then Exit Function
     
        GetPlayerNextLevel = (50 / 3) * ((GetPlayerLevel(Index) + 1) ^ 3 - (6 * (GetPlayerLevel(Index) + 1) ^ 2) + 17 * (GetPlayerLevel(Index) + 1) - 12)
       
        ' Error handler
        Exit Function
    errorhandler:
        HandleError "GetPlayerNextLevel", "modDatabase", Err.Number, Err.Description, Err.Source, Err.HelpContext
        Err.Clear
        Exit Function
    End Function

    10 - Substitua por:
    Código:
    Function GetPlayerNextLevel(ByVal Index As Long) As Long
        ' If debug mode, handle error then exit out
        If Options.Debug = 1 Then On Error GoTo errorhandler
       
        If Index > MAX_PLAYERS Then Exit Function
     
        GetPlayerNextLevel = (25 / 15) * ((GetPlayerLevel(Index) + 1) ^ 3 - (2 * (GetPlayerLevel(Index) + 1) ^ 2) + 17 * (GetPlayerLevel(Index) + 1) - 12)
       
        ' Error handler
        Exit Function
    errorhandler:
        HandleError "GetPlayerNextLevel", "modDatabase", Err.Number, Err.Description, Err.Source, Err.HelpContext
        Err.Clear
        Exit Function
    End Function

    Créditos
    Valentine (Por criar e disponibilizar o tutorial)
    Dragonick (Refez a formula do GetplayerNextLevel)


    Última edição por Valentine em Sex Jun 08, 2012 10:23 am, editado 10 vez(es)


    _________________
    avatar
    Jonny
    Aldeia Friend
    Aldeia Friend

    Medalhas :
    Mensagens : 2110
    Créditos : 327

    Re: Aumentando Level Máximo

    Mensagem por Jonny em Dom Mar 27, 2011 12:38 pm

    muy bueno =)

    muito bom =)


    _________________
    Spoiler:

      


    avatar
    JuanCollin
    Aldeia Friend
    Aldeia Friend

    Mensagens : 996
    Créditos : 91

    Re: Aumentando Level Máximo

    Mensagem por JuanCollin em Dom Mar 27, 2011 3:20 pm

    Eu não uso o Eclipse mas pode ser muito util para quem usa ^^
    avatar
    BrunoFox
    Aldeia Friend
    Aldeia Friend

    Mensagens : 1552
    Créditos : 32

    Re: Aumentando Level Máximo

    Mensagem por BrunoFox em Sex Set 16, 2011 7:40 pm

    Num deu certo e ja fiz 5x isso, eu uso o 2.6


    _________________
    avatar
    Skull Death
    Novato
    Novato

    Mensagens : 22
    Créditos : 1

    Re: Aumentando Level Máximo

    Mensagem por Skull Death em Sex Set 16, 2011 10:11 pm

    bem legal parabens
    avatar
    Cocao
    Banido
    Banido

    Mensagens : 58
    Créditos : 4

    Re: Aumentando Level Máximo

    Mensagem por Cocao em Qui Dez 29, 2011 6:23 pm

    Nuss nao to conseguindo
    Public Const MAX_LEVELS As Byte = 100
    Nao achei só achei o as long é em qual EO esse tuto?
    avatar
    DFox
    Desenvolvedor
    Desenvolvedor

    Mensagens : 842
    Créditos : 63

    Re: Aumentando Level Máximo

    Mensagem por DFox em Qui Dez 29, 2011 6:28 pm

    Olá marlos, eu uso o E.O 2.0, e quero alterar para 150.

    A alteração, creio eu que será assim.
    de:
    Public Const MAX_LEVELS As Byte = 100
    para:
    Public Const MAX_LEVELS As Long = 150
    mas no resto do tutorial, precisa alterar mais alguma coisa para 150?
    ou só mudar isso e o resto do tutorial do jeito que está?


    _________________
    ah mar num vai
    avatar
    Valentine
    Administrador
    Administrador

    Medalhas :
    Mensagens : 4804
    Créditos : 1021

    Re: Aumentando Level Máximo

    Mensagem por Valentine em Qui Dez 29, 2011 7:08 pm

    Lucky escreveu:Olá marlos, eu uso o E.O 2.0, e quero alterar para 150.

    A alteração, creio eu que será assim.
    de:
    Public Const MAX_LEVELS As Byte = 100
    para:
    Public Const MAX_LEVELS As Long = 150
    mas no resto do tutorial, precisa alterar mais alguma coisa para 150?
    ou só mudar isso e o resto do tutorial do jeito que está?
    Eu refiz o tutorial, da uma olhada.


    _________________
    avatar
    DFox
    Desenvolvedor
    Desenvolvedor

    Mensagens : 842
    Créditos : 63

    Re: Aumentando Level Máximo

    Mensagem por DFox em Qui Dez 29, 2011 7:10 pm

    O meu está
    Public Const MAX_LEVELS As Long = 100
    vou modificar pra 150, qualquer coisa eu edito

    EDIT
    aff agora nem abre mais o E.O
    Eu ligo o server ok, ai vou no eclipse ai na hora do login da erro no server, e ele nao entra...
    sei la oq "Run-Time error 9
    Subscript out of range"

    EDIT2:
    Fiz denovo e consegui, mas ele não passa de 100 oO


    _________________
    ah mar num vai
    avatar
    Cocao
    Banido
    Banido

    Mensagens : 58
    Créditos : 4

    Re: Aumentando Level Máximo

    Mensagem por Cocao em Qui Dez 29, 2011 7:21 pm

    Obs.: Caso você queira alterar o level acima de 500, além de seguir as instruções acima você deve fazer o seguinte:

    7 - Procure por:
    Código:Function GetPlayerNextLevel(ByVal index As Long) As Long

    GetPlayerNextLevel = (50 / 3) * ((GetPlayerLevel(index) + 1) ^ 3 - (6 *
    (GetPlayerLevel(index) + 1) ^ 2) + 17 * (GetPlayerLevel(index) + 1) -
    12)
    End Function

    8 - Substitua por:
    Código:Function GetPlayerNextLevel(ByVal index As Long) As Long

    GetPlayerNextLevel = (25 / 15) * ((GetPlayerLevel(index) + 1) ^ 3 - (2 *
    (GetPlayerLevel(index) + 1) ^ 2) + 17 * (GetPlayerLevel(index) + 1) -
    12)
    End Function
    affs aqui vc nao explica onde procurar(em que arquivo que estou falando)

    @Edit:Fui testar com meus 500 de nivel maximo msm e oque aconteceu???
    não sai do lvl 100 só vai até o 100 Fury


    Última edição por Cocao em Qui Dez 29, 2011 7:38 pm, editado 1 vez(es)

    Conteúdo patrocinado

    Re: Aumentando Level Máximo

    Mensagem por Conteúdo patrocinado


      Data/hora atual: Qui Abr 26, 2018 6:22 am