Makers Brasil
Bem Vindos a Maker´s Brasil (um forum para criação de servidores 2D e 3D)Nos desejamos boa sorte no seu projeto!

Quest Item

Ver o tópico anterior Ver o tópico seguinte Ir em baixo

Quest Item

Mensagem por thales12 em Sab 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

thales12
Moderador
Moderador

Mensagens : 184
Estrelas Makers : 406
Creditos : 55
Data de inscrição : 22/03/2011
Idade : 22
Localização : Rio de Janeiro

http://www.rdmgames.tk

Voltar ao Topo Ir em baixo

Re: Quest Item

Mensagem por Uchiha em Ter Jul 05, 2011 8:08 pm

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

Uchiha
Estagiário
Estagiário

Mensagens : 62
Estrelas Makers : 95
Creditos : 11
Data de inscrição : 03/07/2011
Localização : Vitoria Da Conquista - Ba

Voltar ao Topo Ir em baixo

Ver o tópico anterior Ver o tópico seguinte Voltar ao Topo

- Tópicos similares

 
Permissão deste fórum:
Você não pode responder aos tópicos neste fórum