Quest Level

    Compartilhe
    avatar
    Thales12
    Administrador
    Administrador

    Mensagens : 140
    Level : 8
    Data de inscrição : 01/11/2011
    Idade : 23
    Localização : Rio de Janeiro

    default Quest Level

    Mensagem por Thales12 em Seg Fev 13, 2012 1:01 am

    Escrito por OmegaZero~ na antiga mmorpgbr

    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!


    Créditos: OmegaZero.
    RenanR - Postar na nova mmorpgbr e corrigir erros de português.

      Data/hora atual: Sex Maio 25, 2018 7:10 am