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 Level

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

Quest Level

Mensagem por Dracolas em Ter Jun 14, 2011 7:29 pm


Bom é um sistema de quest bem simples, a database você mesmo cria no modGameLoop, eu vou fazer um básico e você se crião o resto.

no "modPlayer" na sub "Sub CheckPlayerLevelUp" adicione o seguinte codigo:


Código:
Call QuestLevel(Index)

Depois no modGameLogic adicione o seguinte codigo no final:


Código:
Public Sub QuestLevel(ByVal Index As Long)
Dim i As Byte
Dim l As Integer
i = GetPlayerClass(Index)
l = GetPlayerLevel(Index)
    Select Case i ' seleciona i
        Case 0 ' Número da Classe(no caso a primeira = 0)
            If Val(l + 1) = 5 Then ' Level da primeira quest
                Call PlayerMsg(Index, "Parabéns, você chego no level 5!, você completo - ", 3)
                Call PlayerMsg(Index, "A Quest Inicial!", 3)
                Call SetPlayerExp(Index, GetPlayerExp(Index) + 500) ' personagem ganha 500 de xp
            End If
    End Select
End Sub

Bom já está tudo explicado no proprio código, está bem simples, daí você pode personalizar, não sei se está funcionando (pois fiz agora x.x'') caso não funcionar me avisem, que eu vou concertar e por um funcionando (fiz de cabeça, não testei)...

Aconcelho fazer um backup!




cheers cheers











Dracolas
Sentinela
Sentinela

Mensagens : 16
Estrelas Makers : 93
Creditos : 7
Data de inscrição : 21/01/2011
Idade : 19
Localização : Vitória 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