Suporte ao desenvolvimento de jogos!


    [PEDIDO] Experiência por documento de texto

    Compartilhe
    avatar
    nescau97
    Novato
    Novato

    Mensagens : 15
    Créditos : 0

    [PEDIDO] Experiência por documento de texto

    Mensagem por nescau97 em Dom Fev 26, 2017 2:51 am

    Boa noite galera,
    Gostaria se possível de um tutorial ensinando como colocar a experiência em bloco de notas.
    Desde já agradeço!
    avatar
    Profane ~
    Administrador
    Administrador

    Mensagens : 728
    Créditos : 125

    Re: [PEDIDO] Experiência por documento de texto

    Mensagem por Profane ~ em Qua Mar 01, 2017 8:38 am

    Experiência seria ? 

    > NextLevel?
    > Exp do Player? ;v


    _________________
    "If you don't belong here, just build a place where you do."
    avatar
    nescau97
    Novato
    Novato

    Mensagens : 15
    Créditos : 0

    Re: [PEDIDO] Experiência por documento de texto

    Mensagem por nescau97 em Qua Mar 01, 2017 1:26 pm

    Opa, seria a experiência do NextLevel em bloco de notas.
    avatar
    Profane ~
    Administrador
    Administrador

    Mensagens : 728
    Créditos : 125

    Re: [PEDIDO] Experiência por documento de texto

    Mensagem por Profane ~ em Qui Mar 02, 2017 1:02 pm

    Sendo o amor que sou, vou ajudar.

    † Sistema Simples para NextLevel in Note †

    Full Servidor ~

    [ ModGeneral ] 
    Procure por: 


    Código:
    frmServer.Socket(0).RemoteHost = frmServer.Socket(0).LocalIP



    Acima disso adicione:

    Código:

         ' Verificar se existe o NoteNextLevel, caso não criar de base.
        If Not FileExist(App.Path & "\data\nextLevel.ini", True) Then
            CreateNoteNextLevel
        Else
            LoadNoteNextLevel
        End If



    [ ModGameLogic ]

    No Final dele adicione:

    Código:

    Public Sub CreateNoteNextLevel()
    Dim i As Long, Value As Long
    Dim Path As String
        
        Path = App.Path & "\data\nextLevel.ini"

            For i = 1 To MAX_LEVELS
                Value = 100 * 1
                Call PutVar(Path, "NEXTS", "Level-" & i, CStr(Value))
            Next

    End Sub

    Public Sub LoadNoteNextLevel()
    Dim i As Long
    Dim Path As String
        
        Path = App.Path & "\data\nextLevel.ini"

            For i = 1 To MAX_LEVELS
                tempStr = GetVar(Path, "OPTIONS", "FriendSystem")
                NoteNextLevel(i) = GetVar(Path, "NEXTS", "Level-" & i)
            Next

    End Sub



    [ ModPlayer ]

    Procure a Function: 

    Código:

    Function GetPlayerNextLevel(ByVal index As Long) As Long



    Substitua ela por:

    Código:

    Function GetPlayerNextLevel(ByVal index As Long) As Long
        GetPlayerNextLevel = NoteNextLevel(GetPlayerLevel(index))
    End Function



    Fim da Edição.

    Explicação :


    [1] Ele ao iniciar o Servidor, vai verificar se existe o Bloco de Notas, NextLevel, caso exista ele vai puxar os valores de dentro dele, caso não exista ele vai criar o arquivo e vai por o calculo "100 x Leveis " para cada nivel.

    ex: Level 10 -> 10x100 = 1000.

    [2] Edite o arquivo Nextlevel.ini
    [3] Precisa resetar o servidor para ele reler o sistema e atualizar os NextLeveis, depois você pode criar um botao que atualiza sempre que clicar, mas eu to sem tempo para ensinar incrementações, fica a seu treino e querer.

    Bjus e Att

    ;**


    _________________
    "If you don't belong here, just build a place where you do."
    avatar
    nescau97
    Novato
    Novato

    Mensagens : 15
    Créditos : 0

    Re: [PEDIDO] Experiência por documento de texto

    Mensagem por nescau97 em Sex Mar 03, 2017 12:24 am

    Muito obrigado pela explicação detalhada mano, deu um errinho aqui segue o link da imagem a baixo:
    https://imgur.com/a/eJbXD
    Erro na "Public Sub LoadNoteNextLevel()"
    "tempStr = GetVar(Path, "OPTIONS", "FriendSystem")"
    Erro:
     Function GetPlayerNextLevel(ByVal index As Long) As Long
        GetPlayerNextLevel = NoteNextLevel(GetPlayerLevel(index))
    End Function
    Att
    avatar
    Profane ~
    Administrador
    Administrador

    Mensagens : 728
    Créditos : 125

    Re: [PEDIDO] Experiência por documento de texto

    Mensagem por Profane ~ em Sex Mar 03, 2017 8:44 am

    ue uashus, esqueci uashas.

    Basta Comentar a Linha. ;cc dei um control v pra pegar a base e so editar ;v ai esqueci e.e Sono da Madrugada.

    Corrigindo: 

    Essa Linha aqui abaixo, você pode apagar.
    Código:
     tempStr = GetVar(Path, "OPTIONS", "FriendSystem")

    Já essa aqui:


    Código:
    [size=12] [/size][size=12]Function GetPlayerNextLevel(ByVal index As Long) As Long[/size][size=12][/size]
    [size=12]    GetPlayerNextLevel = NoteNextLevel(GetPlayerLevel(index))[/size][size=12][/size]
    [size=12]End Function[/size]

    Não tem nada de errado. Você tem de ver se pois o NoteNextLevel no ModGlobal como no começo do Tutorial.

    Att


    _________________
    "If you don't belong here, just build a place where you do."
    avatar
    nescau97
    Novato
    Novato

    Mensagens : 15
    Créditos : 0

    Re: [PEDIDO] Experiência por documento de texto

    Mensagem por nescau97 em Sex Mar 03, 2017 8:50 pm

    Obrigado pelo suporte!

    Conteúdo patrocinado

    Re: [PEDIDO] Experiência por documento de texto

    Mensagem por Conteúdo patrocinado


      Data/hora atual: Qui Set 20, 2018 4:16 am