Robin diz: "Um grande obrigado ao Yami por ser a primeira pessoa a realmente relatar este erro maldito corretamente. Era simplesmente um pouco de estupidez da minha parte."

Pesquisar:

Código:

        Call CastSpell(PlayerSpells(Hotbar(Slot).Slot))
        Exit Sub

Substituir por:

Código:

        For x = 1 To MAX_PLAYER_SPELLS
            ' is the spell matching the hotbar?
            If PlayerSpells(x) = Hotbar(Slot).Slot Then
                ' found it, cast it
                CastSpell x
                Exit Sub
            End If
        Next
        ' can't find the spell, exit out
        Exit Sub


Substitua a linha superior do procedimento, com o seguinte:

Código:

Dim Buffer As clsBuffer, x As Long

Créditos: FREE MMORPG MAKER - ROBIN&YAMI - E eu por postar aqui.

onde eu coloco Dim Buffer As clsBuffer, x As Long