Quest Level

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!

---

---

---

---

---