Aldeia RPG

Gostaria de reagir a esta mensagem? Crie uma conta em poucos cliques ou inicie sessão para continuar.

Suporte no desenvolvimento de jogos


    [EO]Quest Level

    OmegaZero
    OmegaZero
    Semi-Experiente
    Semi-Experiente

    Mensagens : 81
    Créditos : 6

    [EO]Quest Level Empty [EO]Quest Level

    Mensagem por OmegaZero em Ter Out 26, 2010 9:39 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 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.
    avatar
    marlisson01
    Iniciante
    Iniciante

    Mensagens : 31
    Créditos : 2

    [EO]Quest Level Empty Re: [EO]Quest Level

    Mensagem por marlisson01 em Dom Fev 26, 2012 11:06 am

    Legal.Pega no EO 2.6 ?
    OmegaZero
    OmegaZero
    Semi-Experiente
    Semi-Experiente

    Mensagens : 81
    Créditos : 6

    [EO]Quest Level Empty Re: [EO]Quest Level

    Mensagem por OmegaZero em Dom Fev 26, 2012 11:14 am

    é bem provavel :)

    Conteúdo patrocinado

    [EO]Quest Level Empty Re: [EO]Quest Level

    Mensagem por Conteúdo patrocinado


      Data/hora atual: Sab Ago 15, 2020 3:57 pm