Rank, ou Prefixos para nomes

Introdução

Este código é quando o personagem tem um certo nível vai passando de novato para adaptado ou o que você quiser.

No seu Main.txt dentro da pasta scripts do server procure por : "joingame(Index) sub" e mude para esse:

Código:

  Sub JoinGame(index)
    Dim GameName
    Dim MOTD
    dim realrank

    GameName = Trim(GetVar("Data.ini", "CONFIG", "GameName"))
    MOTD = GetVar("motd.ini", "MOTD", "Msg")

        ' Send a global message that he/she joined
    Call rnkchecka(index)
    realrank = GetVar("accounts" & GetPlayerLogin(index) & ".ini", "CHAR" & GetPlayerCharNum(index), "rank")

        If GetPlayerAccess(index) <= ADMIN_MONITER Then
            Call GlobalMsg(realrank & " " & GetPlayerName(index) & " Entrou no " & GameName & "!", 7)
        Else
            Call GlobalMsg(realrank & " " & GetPlayerName(index) & " Entrou no " & GameName & "!", 15)
        End If

        ' Send them welcome
        Call PlayerMsg(index, "Bem vindo ao " & GameName & "!", 15)
   
        ' Send motd
        If Trim(MOTD) <> "" Then
            Call PlayerMsg(index, "MOTD: " & MOTD, 11)
        End If
    End Sub

e em baixo do main.txt, lá em baixo mesmo, você põe isso:

Código:

Sub rnkchecka(index)
On error resume next

If Getplayerclass(index) = 0 Then

If Getplayerlevel(index) <= 15 Then
Call Putvar("accounts" & GetPlayerLogin(index) & ".ini", "CHAR" & GetPlayerCharNum(index), "Rank", " o Novato ")
End if

If Getplayerlevel(index) > 15 Then
Call Putvar("accounts" & GetPlayerLogin(index) & ".ini", "CHAR" & GetPlayerCharNum(index), "Rank", " o Adaptado ")
End if

If Getplayerlevel(index) > 30 Then
Call Putvar("accounts" & GetPlayerLogin(index) & ".ini", "CHAR" & GetPlayerCharNum(index), "Rank", "o Aventureiro ")
End if

If Getplayerlevel(index) > 45 Then
Call Putvar("accounts" & GetPlayerLogin(index) & ".ini", "CHAR" & GetPlayerCharNum(index), "Rank", "o Lorde ")
End if

If Getplayerlevel(index) > 60 Then
Call Putvar("accounts" & GetPlayerLogin(index) & ".ini", "CHAR" & GetPlayerCharNum(index), "Rank", "o Mestre ")
End if

If Getplayerlevel(index) > 75 Then
Call Putvar("accounts" & GetPlayerLogin(index) & ".ini", "CHAR" & GetPlayerCharNum(index), "Rank", "o Lendário ")
End if

End If

End Sub

============================================================================

Para mudar o Level de cada classe, ou nome, basta mudar os números:

Código:

If Getplayerlevel(index) <=  >>> 15 <<< Then

Para mudar o nome de cada classe, basta mudar os nomes:

Código:

" o Adaptado "

Créditos: Baron
Morenoo