Suporte no desenvolvimento de jogos


    [EO 1.xx, 2.xx] Fix Hotbar

    HugoFreitas
    HugoFreitas
    Administrador
    Administrador

    Medalhas : [EO 1.xx, 2.xx] Fix Hotbar Medal_55
    Mensagens : 634
    Créditos : 175
    Cash : 0

    [EO 1.xx, 2.xx] Fix Hotbar Empty [EO 1.xx, 2.xx] Fix Hotbar

    Mensagem por HugoFreitas em Sab Mar 12, 2011 2:02 am

    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.
    avatar
    kiritor
    Iniciante
    Iniciante

    Mensagens : 62
    Créditos : 0
    Cash : 0

    [EO 1.xx, 2.xx] Fix Hotbar Empty Re: [EO 1.xx, 2.xx] Fix Hotbar

    Mensagem por kiritor em Qua Out 29, 2014 1:44 pm

    onde eu coloco Dim Buffer As clsBuffer, x As Long

      Data/hora atual: Ter Dez 10, 2019 5:59 am