Quest Item

por thales12 Sáb Jul 02, 2011 12:35 pm

Client~Side

Procure por:

Código:: Sub BltPlayerName(ByVal Index As Long)

Dentro dessa sub em qualquer lugar adicione:

Código:: Select Case Player(MyIndex).Class

Código:: Case X 'X = Numero da Classe =) If Player(MyIndex).Level < Y Then 'Y = Level para completar a missão de Level frmMirage.lblTitle.Caption = "Titulo da Quest" frmMirage.lblReq.Caption = "Pegar Level: Y" End If

Código:: Case Y 'Y = Numero de outra Classe =)' If Player(MyIndex).Level < Y Then 'Y = Level para completar a missão de Level' frmMirage.lblTitle.Caption = "Titulo da Quest" frmMirage.lblReq.Caption = "Entregar Item: Y" End If End Select 'Lembre - Se caso for ter mais alguma classe por o Case antes dessa linha aqui'

Se você Já Fez o Quest level Pule essa parte .

Agora vá ao frmMirage e Crie um Picture , Duas Label e um command Button dentro da Picture e adicione os seguintes padrões

Código:: .::Picture::. (Name) = picQuest (Visible) = False .::Label 1::. (Name) = lblTitle (Caption) = "Titulo da Quest" .::Label 2::. (Name) = lblReq (Caption) = "Pegar Level: X" .::Command Button::. (Name) = cmbRec (Caption) = "Aceitar Recompensa"

Clique duas Vezes no cmbRec e adicione o seguinte Code

Código:: '::::::::::::::: ':::Quest 1::: By: SkyZero & Ener '::::::::::::::: Select Case Player(MyIndex).Class Case 0 If Player(MyIndex).Level <= Y then ' Y = Level Objetivo para completar a missão Call SendData("q1" & END_CHAR) 'Packet da Quest 1 End If '::::::::::::::: ':::Quest 2::: By: SkyZero & Ener '::::::::::::::: If Player(MyIndex).Level <= Y then ' Y = Level Objetivo para completar a missão Call SendData("q2" & END_CHAR) 'Packet da Quest 2 End If End Select

Agora na frmMirage crie um commandButton ou um Label com os seguintes Padrões

Código:: (Name) = cmbQuest // No caso de Label coloque = lblQuest (Visible) = True

Clique duas vezes e adicione os Codes

Código:: If picQuest.Visible = False Then picQuest.Visible = True else picQuest.Visible = False End If

Client~Side Terminado

Server~Side

Todos devem fazer igualmente como está escrito .

No ModServerTCP Procure por :

Código:: Código: [url=http://makersbrasil.forumeiros.com/][Selecionar][/url] Case "refresh" Call Packet_Refresh(Index) Exit Sub

Abaixo dele adicione o seguinte Código

Código:: :::::::::::::::: ':::Quest 1::: // By: SkyZero & Ener ':::::::::::::::: Case "q1" Select Case GetPlayerClass(Index) Case X 'X = Numero da classe Call TakeItem(Index, (item1), 1) Then' Item1 = Item que deverar ser entregue O ,1 é a quantidade que ira ser retirada Call SetPlayerExp(index, GetPlayerExp(Index) + Q) 'Q = Numero de Exp que queira dar de bonus Call SavePlayer(Index) Call PlayerMsg(Index, "Você Completou a Missão: Z"), 14) ' Z =Titulo da Quest Else Call PlayerMsg(Index, "Você não entregou os itens Requeridos"), 14) End If ':::::::::::::::: ':::Quest 2::: // By: SkyZero &Ener ':::::::::::::::: Case "q2" Select Case GetPlayerClass(Index) Case X 'X = Numero da classe Call TakeItem(Index, (item1), 1) Then' Item1 = Item que deverar ser entregue ' O ,1 é a quantidade que ira ser retirada Call SetPlayerExp(index, GetPlayerExp(Index) + Q) 'Q = Numero de Exp que queira dar de bonus Call SavePlayer(Index) Call PlayerMsg(Index, "Você Completou a Missão: Z"), 14) ' Z =Titulo da Quest Else Call PlayerMsg(Index, "Você não Entregou os itens Requerido"), 14) End If

Server~Side Finalizado

~Explicação~
Se quantidade do item X for entregue player Recebe uma recompensa .

Quest Item Terminada

por Uchiha Ter Jul 05, 2011 8:08 pm

tem algum tutorial de quest aq?? pra eu poder juntar esse a ele ;D

Quest Item

Quest Item

Re: Quest Item