[HELP-EO] Preciso de uma maosinha

Olá a todos do forum, sou um membro um pouco inativo pois tenho pouco tempo pra desenvolver meus projetos. Enfim, eu estou com um probleminha pois, tentei criar uma function e ela nao se adaptou da maneira que eu queria então gerando um 'subscript out of range' se alguem puder me dar esse breve help, eu ficaria muito grato. Eu preciso dele em um sistema de navio.
Aqui vai uma print, é uma function de checar o item pelo tipo dele no inventario, mais nao deu bom :


Se alguem tiver a solução por favor me ajude.

Grato pela atenção.

O problema é que, você está pegando um item que não existe no inventário.

Pra resolver o problema, você deve fazer da seguinte forma:

For i = 1 to MAX_INV
    ' Se há algum item no inventário.
    If GetPlayerInvItemNum(Index, i) > 0 Then 
        If Item(GetPlayerInvItemNum(Index, i)).Type = ITEM_TYPE_NAVIO  Then 
            HasNavio = True
            ' Quebra o laço pois o item já foi encontrado.
            Exit For
        End If
    End If
Next

Olá brother, muito obrigado você é o cara .. sofri muito aqui mais agora deu certo
Estou te devendo essa Cred+