Aldeia RPG

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

Suporte ao desenvolvimento de jogos


2 participantes

    Quest Alatar ReqClass

    avatar
    gui408
    Ocasional
    Ocasional


    Mensagens : 227
    Créditos : 10

    Quest Alatar ReqClass Empty Quest Alatar ReqClass

    Mensagem por gui408 Sex Jun 26, 2015 4:42 am

    Reparei que o Requerimento de class do sistema de quest do alatar 1.2,ele nao funcionar,pois esta sem o codico na parte do servidor

    Public Function CanStartQuest(ByVal index As Long, ByVal QuestNum As Long) As Boolean

    Onde impede que se vc nao tem o item,ou level requeridos,vc nao vai consceguir iniciar a quest.
    Porem nao tem o codico de class,e nao to consceguindo fazer.
    Este e o codico de lvl,que requer lvl

    'Check if player's level is right
    If Quest(QuestNum).RequiredLevel <= Player(index).Level Then

    Este do Item

    'Check if item is needed
                For i = 1 To MAX_QUESTS_ITEMS
                    If Quest(QuestNum).RequiredItem(i).Item > 0 Then
                        'if we don't have it at all then
                        If HasItem(index, Quest(QuestNum).RequiredItem(i).Item) = 0 Then
                            PlayerMsg index, "You need " & Trim$(Item(Quest(QuestNum).RequiredItem(i).Item).Name) & " to take this quest!", BrightRed
                            Exit Function
                        End If
                    End If
                Next

    Sera que alguem pode me ajudar na de class,nao estou consceguindo fazer,ja subistitui alguns e nada funciono,bem Obrigado pela atencao.
    Dooolly
    Dooolly
    Colaborador
    Colaborador


    Medalhas : Quest Alatar ReqClass Trophy12
    Mensagens : 1227
    Créditos : 153

    Ficha do personagem
    Nível: 1
    Experiência:
    Quest Alatar ReqClass Left_bar_bleue0/0Quest Alatar ReqClass Empty_bar_bleue  (0/0)
    Vida:
    Quest Alatar ReqClass Left_bar_bleue30/30Quest Alatar ReqClass Empty_bar_bleue  (30/30)

    Quest Alatar ReqClass Empty Re: Quest Alatar ReqClass

    Mensagem por Dooolly Sex Jun 26, 2015 10:38 am

    Acima de: 'Check if item is needed

    Adicione:
    Código:
    ' check requeriment class
                For i = 1 To 5
                   If Quest(QuestNum).RequiredClass(i) > 0 Then
                      If Player(index).Class <> Quest(QuestNum).RequiredClass(i) Then
                         PlayerMsg index, "Você precisa ser da classe " & Trim$(Class(Quest(QuestNum).RequiredClass(i)).Name) & " para obter essa missão.", BrightRed
                         Exit Function
                      End If
                   End If
                Next
    avatar
    gui408
    Ocasional
    Ocasional


    Mensagens : 227
    Créditos : 10

    Quest Alatar ReqClass Empty Re: Quest Alatar ReqClass

    Mensagem por gui408 Sex Jun 26, 2015 2:57 pm

    Muito obrigado Dolly funcionou perfeitamente.

    Conteúdo patrocinado


    Quest Alatar ReqClass Empty Re: Quest Alatar ReqClass

    Mensagem por Conteúdo patrocinado


      Data/hora atual: Qui Mar 28, 2024 2:29 pm