Sistema De Titulos V1.0 Para Naruto Por Level

Bom esse Sistema foi achado na net por min e eu o modifiquei para naruto.e o simplifiquei.

Começando: Procure no Cliente ~ Side por:

Código:

Public Sub DrawPlayerName(ByVal Index As Long)

Abaixo dessa Sub "Abaixo do End Sub"

Coloque:

Código:

Public Sub DrawRank(ByVal Index As Long)
Dim Rank As String
Dim adm As String
Dim n(1 To MAX_PLAYERS) As String
Dim Name As String
Dim TextX As Long
Dim TextY As Long
Dim color As Long
'If Options.Debug = 1 Then On Error GoTo errohandler


TextX = ConvertMapX(GetPlayerX(Index) * PIC_X) + Player(Index).XOffset + (PIC_X \ 2) - getWidth(TexthDC, (Trim$(n(Index) & Name)))
    If GetPlayerSprite(Index) < 1 Or GetPlayerSprite(Index) > NumCharacters Then
        TextY = ConvertMapY(GetPlayerY(Index) * PIC_Y) + Player(Index).YOffset - 17
    Else
        ' Determine location for text
        TextY = ConvertMapY(GetPlayerY(Index) * PIC_Y) + Player(Index).YOffset - (DDSD_Character(GetPlayerSprite(Index)).lHeight / 4) + 17
    End If


If GetPlayerLevel(Index) >= 1 Then ' X = Level Do Titulo Aki
        Rank = "Estudante"
        color = QBColor(Green)
    End If


If GetPlayerLevel(Index) >=  Then ' X = Level Do Titulo Aki
        Rank = "Genin"
        color = QBColor(BrightGreen)
        End If



If GetPlayerLevel(Index) >=  Then ' X = Level Do Titulo Aki
        Rank = "Chunin"
        color = QBColor(BrightBlue)
    End If



If GetPlayerLevel(Index) >=  Then ' X = Level Do Titulo Aki
        Rank = "Jounin"
        color = QBColor(Yellow)
    End If
   

If GetPlayerLevel(Index) >=  Then ' X = Level Do Titulo Aki
        Rank = "ANBU"
        color = QBColor(BrightWhite)
    End If
   
    If GetPlayerLevel(Index) >=  Then ' X = Aki
        Rank = "Sanin"
        color = QBColor(White)
    End If
   

If GetPlayerLevel(Index) >=  Then ' X = Level Do Titulo Aki
        Rank = "Kage"
        color = QBColor(Red)
    End If
   
    If GetPlayerLevel(Index) >=  Then ' X = Level Do Titulo Aki
        Rank = "Admin"
        color = QBColor(BrightRed)
    End If
   

If GetPlayerLevel(Index) >=  Then ' X = Level Do Titulo Aki
        Rank = "Moderador"
        color = QBColor(BrightRed)
    End If
   

    Call DrawText(TexthDC, ConvertMapX(GetPlayerX(Index) * PIC_X) + Player(Index).XOffset + (PIC_X \ 2) - getWidth(TexthDC, (Trim$(Rank))), TextY - 18, Rank, color)
End Sub

Pronto!
Créditos ~
Desconhecido(achei na net e editei)
Kaue


Dicas:Caso use no level de admin e moderador se o nv maximo for 1000 ponha adm 0nv 999 e mod 998 ai so os adm e mod fica nesses level pra ter esses title pq ninguem vai ta nv 999 998 sem querer resetar!