Quest Level

por St4rk Seg 18 Out 2010, 21:19

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 codigo, está bem simples, dai você pode personalizar, não sei se está funcionando(pois fiz agora x.x'') caso não funcionar me avisem, que eu vou concerta e por um fucionando(fiz de cabeça, não testei)...
Aconcelho fazer um backup!

Perdão pelos erros de Português!

Créditos: OmegaZero.