Muito bem, antes de começar preciso que coloque o sistema de Rank(do Thales12) e o sistema de quest(do Alatar), só procurar nos tutoriais do forum que tem.

Muito bem abra o client.vbp e na frmEditor_Quest crie dentro da fraRequirements:
Uma Label com as seguintes propriedas:

Name: lblRankReq
Caption: Rank:

E uma HScrollBar com as seguintes propriedades:

Name: scrlRankReq
Max: 12

De 2 cliques na scrlRankReq e add:

Código:

Select Case scrlRank.Value
  Case 0
    lblRankReq.Caption = "Rank:"
  Case 1
    lblRankReq.Caption = "Rank:Estudante"
  Case 2
    lblRankReq.Caption = "Rank:Gennin"
  Case 3
    lblRankReq.Caption = "Rank:Chunnin"
  Case 4
    lblRankReq.Caption = "Rank:Jounin"
  Case 5
    lblRankReq.Caption = "Rank:Anbu"
    Case 6
    lblRankReq.Caption = "Rank:Sennin"
    Case 7
    lblRankReq.Caption = "Rank:Desertor"
    Case 8
    lblRankReq.Caption = "Rank:Hokage"
    Case 9
    lblRankReq.Caption = "Rank:Kazekage"
    Case 10
    lblRankReq.Caption = "Rank:Mizukage"
    Case 11
    lblRankReq.Caption = "Rank:Raikage"
    Case 12
    lblRankReq.Caption = "Rank:Tsuchikage"
End Select
Quest(EditorIndex).RequiredRank = scrlRankReq.Value

Na modQuests procure por:

Código:

.scrlReqLevel.Value = Quest(EditorIndex).RequiredLevel
        .scrlReqQuest.Value = Quest(EditorIndex).RequiredQuest

Abaixo add:

Código:

.scrlRankReq.Value = Quest(EditorIndex).RequiredRank

Procure por:

Código:

RequiredLevel As Long
    RequiredQuest As Long
    RequiredClass(1 To 5) As Long
    RequiredItem(1 To MAX_QUESTS_ITEMS) As QuestRequiredItemRec

Abaixo add:

Código:

RequiredRank As Long

Agora vamos para o Server.vbp

Procure por:

Código:

RequiredLevel As Long
    RequiredQuest As Long
    RequiredClass(1 To 5) As Long
    RequiredItem(1 To MAX_QUESTS_ITEMS) As QuestRequiredItemRec

Abaixo add:

Código:

RequiredRank As Long

Procure por:

Código:

Put #F, , Quest(QuestNum).RequiredLevel
        Put #F, , Quest(QuestNum).RequiredQuest

Abaixo add:

Código:

Put #F, , Quest(QuestNum).RequiredRank

Procure por:

Código:

Get #F, , Quest(i).RequiredLevel
        Get #F, , Quest(i).RequiredQuest

Abaixou add:

Código:

Get #F, , Quest(i).RequiredRank

Procure por:

Código:

'Check if player's level is right
        If Quest(QuestNum).RequiredLevel <= Player(index).Level Then

Abaixo add:

Código:

'Conferir se esta no rank certo
        If Quest(QuestNum).RequiredRank < Player(index).Rank Then

Procure por:

Código:

PlayerMsg index, "You need to be a higher level to take this quest!", BrightRed

Substitua por:

Código:

PlayerMsg index, "Você não possui os requisitos necessário para iniciar essa missao.", BrightRed

Só compilar, qualquer erro favor postar imagem do erro e a linha.

Creditos

- Newbie123

- xWlasher

muito bom , voce sabe fazer sistema de ranking global , tipo ranking nivel igual do netplay cristal , rank guild e talz , se souber ou conhecer um poste pra galerinha da aldeia porfavor :3
no caso pode até se um npc que mostra uma tabela de rank ou um icone. grato u.u na espera.

muito bom , voce sabe fazer sistema de ranking global , tipo ranking nivel igual do netplay cristal , rank guild e talz , se souber ou conhecer um poste pra galerinha da aldeia porfavor :3
no caso pode até se um npc que mostra uma tabela de rank ou um icone. grato u.u na espera.

Esse sistema é do rank tipo "estudante, gennin" essas coisas, se você quer um rank de lvl procura pelos posts do Valentine que ele criou um .

obrigado! u.u *-----------* vou procura lá agora mesmo!