Quest Rank

por XWlasher Sex 27 Dez 2013, 14:27

Funciona da seguinte forma, o player faz a quest e ao finalizá-la ganha o rank escolhido na frmEditor_Quest.
Requerimentos:
Sistema de Rank (Thales12)
Sistema de Quest (Valentine ou Alatar ah da "quase" no memo)

Client-Side
Na frmEditor_Quest na fraRewards crie uma lbl e uma ScrollBox (HSscrollbar)(Sla se é esse nome) com as seguintes configurações:

Código:: Label: Name:lblRank Caption:Rank:

Código:: Scrollbox: Name:scrlRank Max:12

Dentro da Scrollbox Adicione:

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

Agora na modQuests na QuestEditorInit procure por:

Código:: .scrlExp.Value = Quest(EditorIndex).RewardExp .scrlItemRew.Value = Quest(EditorIndex).RewardItem

Abaixo adicione:

Código:: .scrlRank.Value = Quest(EditorIndex).RewardRank

Procure por:

Código:: RewardExp As Long RewardItem As Long 'ToDo: make this dynamic RewardItemAmount As Long

Abaixo Adicione:

Código:: RewardRank As Long

Client-Side Terminado
Server-Side
Procure por:

Código:: RewardExp As Long RewardItem As Long RewardItemAmount As Long

Abaixo Adicione:

Código:: RewardRank As Long

Procure Por:

Código:: Put #F, , Quest(QuestNum).RewardExp Put #F, , Quest(QuestNum).RewardItem Put #F, , Quest(QuestNum).RewardItemAmount

Abaixo Adicione:

Código:: Put #F, , Quest(QuestNum).RewardRank

Procure por:

Código:: Get #F, , Quest(i).RewardExp Get #F, , Quest(i).RewardItem Get #F, , Quest(i).RewardItemAmount

Abaixo Adicione:

Código:: Get #F, , Quest(i).RewardRank

Procure por:

Código:: 'remove items on the end If Quest(QuestNum).QuestRemoveItem > 0 And Quest(QuestNum).QuestRemoveItem < MAX_ITEMS Then If Quest(QuestNum).QuestRemoveItemValue > 0 And Quest(QuestNum).QuestRemoveItemValue < MAX_INV Then 'ToDo: stuff with currency For i = 1 To MAX_INV If HasItem(index, Quest(QuestNum).QuestRemoveItem) Then TakeInvItem index, Quest(QuestNum).QuestRemoveItem, Quest(QuestNum).QuestRemoveItemValue 'todo: currency stuff... End If Next End If End If

ACIMA adicione:

Código:: 'give Rank SetPlayerRank index, Quest(QuestNum).RewardRank

FIM
Se não pegar, tente deletar todas as quests,Se não der certo novamente comente aqui pra ver se eu consigo ajudar
Você pode editar para mandar uma mensagem global ou algo que fique ao seu gosto somente adicionar na última parte, Qualquer erro somente me imformar aqui
Créditos:
XWlasher/por fazer o tutorial e a maioria e postar aqui 70% Basketball

Guardian/Por ter me ajudado a fazer uma parte importante 30% Smile

por kiritor Sex 24 Jan 2014, 14:12

mais como criar uma quest tipo quero faser chunin shiken quero o faser a quest la pra ganhar chunin pra eu poder colocar no npc

por UchihaFast Sáb 25 Jan 2014, 08:46

Ao fazer o tutorial e ter os requerimentos, é somente ir no editor de quests (Digitar no mapa /editquest) escolher a recompensa, requerimentos e qual a missão, no editor de NPC´s marcar a check Quest Giver (algo assim) e selecionar o número da quest, então é só pegar a missão e ao terminar ela, você vai ganhar a recompensa escolhida. (se escolher ganhar um rank vai ganhar tal rank)

por Conteúdo patrocinado

Quest Rank

Quest Rank

Re: Quest Rank

Re: Quest Rank

Re: Quest Rank