Quest Alatar ReqClass

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.

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

Muito obrigado Dolly funcionou perfeitamente.