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

Experiência seria ? 

> NextLevel?
> Exp do Player? ;v

Opa, seria a experiência do NextLevel em bloco de notas.

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

;**

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

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

Obrigado pelo suporte!