[ALL]Ranking de Level (até 3 no ranking) para MainMenu

CLIENTE
pra começar tudo precisamos abrir o Ranking, então crie um botão e dentro dele Adicione

Código:

 If PicLevel.Visible = True Then
    PicLevel.Visible = False
    frmMainMenu.lstLEVEL.Clear
    Else
    PicLevel.Visible = True
    Call SendData("level" & SEP_CHAR & END_CHAR)
    End If


Primeiro Crie uma Picture na frmMainMenu com o nome PicLevel e dentro dela uma ListBox com o nome lstLEVEL

Em seguida Procure por:

Código:

  If Parse(0) = "allchars" Then
        n = 1
       
        frmSendGetData.Hide
        frmChars.Show , frmMainMenu
       
        frmChars.lstChars.Clear
       
        For I = 1 To MAX_CHARS
            Name = Parse(n)
            Msg = Parse(n + 1)
            Level = Val(Parse(n + 2))
           
            If Trim(Name) = vbNullString Then
                frmChars.lstChars.AddItem "Lugar Livre"
            Else
                frmChars.lstChars.AddItem Name & ", level " & Level & " " & Msg
            End If
           
            n = n + 3
        Next I
       
        frmChars.lstChars.ListIndex = 0
        Exit Sub
    End If

Abaixo Adicione

Código:

 If Parse(0) = "level" Then
frmMainMenu.lstLEVEL.AddItem (Parse(1) & "  Level:" & Parse(2))
frmMainMenu.lstLEVEL.AddItem (Parse(3) & "  Level:" & Parse(4))
frmMainMenu.lstLEVEL.AddItem (Parse(5) & "  Level:" & Parse(6))
frmMainMenu.PicLevel.Visible = True
Exit Sub
End If

SERVER

Procure por

Código:

Case "addachara"

Acima Adicione

Código:

Case "level"
Call SendDataTo(index, "level" & sep_char & GetVar(App.path & "\Level.ini", "1", "Nome") & sep_char & GetVAr(App.path & "\Level.ini", "1", "Level") & sep_char & GetVar(App.path & "\Level.ini", "2", "Nome") & sep_char & GetVAr(App.path & "\Level.ini", "2", "Level") & sep_char & GetVar(App.path & "\Level.ini", "3", "Nome") & sep_char & GetVAr(App.path & "\Level.ini", "3", "Level") & sep_char & end_char)
exit sub

Agora procure por

Código:

Sub CheckPlayerLEvelUp

Lá no final desta sub adicione

Código:

If GetPlayerLevel(Index) > Val(ReadINI("1", "Level", App.Path & "\Level.ini")) Then
    Call WriteINI("1", "Nome", GetPlayerName(Index), App.Path & "\Level.ini")
    Call WriteINI("1", "Level", GetPlayerLevel(Index), App.Path & "\Level.ini")
    Call WriteINI("3", "Nome", Val(ReadINI("2", "Nome", App.Path & "\Level.ini")), App.Path & "\Level.ini")
    Call WriteINI("3", "Level", Val(ReadINI("2", "Level", App.Path & "\Level.ini")), App.Path & "\Level.ini")
    Call WriteINI("2", "Nome", Val(ReadINI("1", "Nome", App.Path & "\Level.ini")), App.Path & "\Level.ini")
    Call WriteINI("2", "Level", Val(ReadINI("1", "Level", App.Path & "\Level.ini")), App.Path & "\Level.ini")
end if
If GetPlayerLevel(Index) > Val(ReadINI("2", "Level", App.Path & "\Level.ini")) Then
    Call WriteINI("3", "Nome", Val(ReadINI("2", "Nome", App.Path & "\Level.ini")), App.Path & "\Level.ini")
    Call WriteINI("3", "Level", Val(ReadINI("2", "Level", App.Path & "\Level.ini")), App.Path & "\Level.ini")
    Call WriteINI("2", "Nome", GetPlayerName(Index), App.Path & "\Level.ini")
    Call WriteINI("2", "Level", GetPlayerLevel(Index), App.Path & "\Level.ini")
end if
If GetPlayerLevel(Index) > Val(ReadINI("3", "Level", App.Path & "\Level.ini")) Then
    Call WriteINI("3", "Nome", GetPlayerName(Index), App.Path & "\Level.ini")
    Call WriteINI("3", "Level", GetPlayerLevel(Index), App.Path & "\Level.ini")
end if
    Exit Sub

Em seguida crie um Arquivo com o nome Level.ini e o conteudo

Código:

[1]
Nome=Tio Boas :P
Level=100
[2]
Nome=Tio Lucas :P
Level=100
[2]
Nome=Tio Lendario :P
Level=100

Vivaa seu Ranking automático está pronto :lol!:

Como Usar
Aperte o botão que colocou na frmMainMenu e Tchan!

Infinit Online escreveu:ALGUMA LUZ PO%$@#%$#¨%$&¨RA

adm.karlos escreveu::S likas foi tu que postou o tutorial :S não tem nenhuma luz pro infinit não?

CLIENTE
pra começar tudo precisamos abrir o Ranking, então crie um botão e dentro dele Adicione

Código:

 If PicLevel.Visible = True Then
    PicLevel.Visible = False
    frmMainMenu.lstLEVEL.Clear
    Else
    PicLevel.Visible = True
    Call SendData("level" & SEP_CHAR & END_CHAR)
    End If


Código:

If GetPlayerLevel(Index) > Val(ReadINI("2", "Level", App.Path & "\Level.ini")) Then