Bom esse Sistema foi Feito por Thales12 Porém tinha uns errinhos, e a cor dos Titulos eram fixas por Ex: Elite Colonial Era a mesma cor que: Elite Staff 3 Pulinho! Então eu resolvi Aperfeiçoar um pouco Para Cada Titulo Ter sua própria Cor!

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
        Rank = "Estudante"
        color = QBColor(Green)
    End If


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



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



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

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

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

If GetPlayerLevel(Index) >=  Then ' X = Level Do Titulo
        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 ~
Thales12
Kaue

Esse tutorial foi postado pelo Myke e foi ele que alterou, a unica coisa que mudou foi que você colocou "Adaptado para naruto" sendo que ta identico ao dele.

o dele esta diferente eu simplifiquei/modifiquei e este tuto ja estava postado em outro forum(mmorpg)

ve a diferença do tutorial...

Bem não muda pois ja tem no eo por isso nem coloquei tenta que vai dar certo sem ele .-.

Man você num ta entendendo, é questão de deixar o sistema completo, sem o Call DrawRank(i) ele ira prestar mas o deixara imcompleto, com uma maior fragilidade de membros acanalharem com o jogo aconselho a todos usarem esse tutorial: [Tens de ter uma conta e sessão iniciada para poderes visualizar este link]

bem , eu testei aqui e deu certo , então +Rep pra você !!

vlw o rep.
Newbie nem presiza cara os dois são a mesma coisa nem presiza dessa parte eu ja conferi 10 vezes

teste então newbie para ver se funfa e depois tira os print do bug

kkkkkkkkkkkkkkkkkkkkkkkkk, que que isso meu amigo, copio até as minhas palavras e esse tutorial nao tinha em nenhum site ou forum ou um kralho a 4.

ele era Beta.. e continua, porém eu apenas editei umas coisinhas.

tu copio o meu tuto, na kra dura O.o.

Bom. Chega de Off.