Quest Alatar ReqClass

    Compartilhe

    gui408
    Ocasional
    Ocasional

    Mensagens : 184
    Créditos : 7

    Quest Alatar ReqClass

    Mensagem por gui408 em 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
    Moderador Global
    Moderador Global

    Medalhas :
    Mensagens : 1175
    Créditos : 125

    Re: Quest Alatar ReqClass

    Mensagem por Dooolly em 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

    gui408
    Ocasional
    Ocasional

    Mensagens : 184
    Créditos : 7

    Re: Quest Alatar ReqClass

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

    Muito obrigado Dolly funcionou perfeitamente.

      Data/hora atual: Sex Dez 09, 2016 10:30 am