Suporte ao desenvolvimento de jogos!


    Pedido de ajuda..

    Compartilhe
    avatar
    Vulture
    Membro Ativo
    Membro Ativo

    Mensagens : 335
    Créditos : 41

    Pedido de ajuda..

    Mensagem por Vulture em Dom Nov 08, 2015 12:50 am

    Alguém aqui sabe como desativar o sistema de perder itens ao morrer?
    Estou usando a Skywyre e nela ao morrer o item do inventário cai. Como só tem um mapa teste então eu consigo pegar antes que o tempo acabe e o item desapareça, mas queria desativar isto, e queria a ajuda de vocês..
    avatar
    Profane ~
    Administrador
    Administrador

    Mensagens : 728
    Créditos : 125

    Re: Pedido de ajuda..

    Mensagem por Profane ~ em Dom Nov 08, 2015 1:29 am

    Vá no Servidor;

    ModPlayer; Procure por

    Código:
    Sub OnDeath

    Cole-a aqui, para analise.

    Att


    _________________
    "If you don't belong here, just build a place where you do."
    avatar
    Vulture
    Membro Ativo
    Membro Ativo

    Mensagens : 335
    Créditos : 41

    Re: Pedido de ajuda..

    Mensagem por Vulture em Dom Nov 08, 2015 1:41 am

    Código:
    ' ToDo
    Sub OnDeath(ByVal index As Long)
        Dim i As Long
       
        ' Set HP to nothing
        Call SetPlayerVital(index, Vitals.HP, 0)

       
        'Drop inventory items
        For i = 1 To MAX_INV
        If Player(index).Inv(i).num > 0 Then
        If Item(GetPlayerInvItemNum(index, i)).BindType = 1 Or Item(GetPlayerInvItemNum(index, i)).BindType = 2 Then
        Else
            PlayerMapDropItem index, i, GetPlayerInvItemValue(index, i), True
        End If
        End If
        Next

    Não manjo nada ainda, estou aprendendo aos poucos então, peço por favor que tenha um pingo de paciência comigo kk' <3 Então, trouxe isto, não sei se é o certo. Mas de acordo com oque você mandou e encontrei, está ai.
    avatar
    Profane ~
    Administrador
    Administrador

    Mensagens : 728
    Créditos : 125

    Re: Pedido de ajuda..

    Mensagem por Profane ~ em Dom Nov 08, 2015 1:45 am

    Haziel escreveu:
    Código:
    ' ToDo
    Sub OnDeath(ByVal index As Long)
        Dim i As Long
        
        ' Set HP to nothing
        Call SetPlayerVital(index, Vitals.HP, 0)

        
        'Drop inventory items
        For i = 1 To MAX_INV
        If Player(index).Inv(i).num > 0 Then
        If Item(GetPlayerInvItemNum(index, i)).BindType = 1 Or Item(GetPlayerInvItemNum(index, i)).BindType = 2 Then
        Else
            PlayerMapDropItem index, i, GetPlayerInvItemValue(index, i), True
        End If
        End If
        Next

    Não manjo nada ainda, estou aprendendo aos poucos então, peço por favor que tenha um pingo de paciência comigo kk' <3 Então, trouxe isto, não sei se é o certo. Mas de acordo com oque você mandou e encontrei, está ai.


    Eu pedi todo =P Mas, você trouxe tudo o que você precisava trazer. Apenas apague a parte do drop até o next.

    >< Fim de caso.

    Att


    _________________
    "If you don't belong here, just build a place where you do."
    avatar
    Vulture
    Membro Ativo
    Membro Ativo

    Mensagens : 335
    Créditos : 41

    Re: Pedido de ajuda..

    Mensagem por Vulture em Dom Nov 08, 2015 2:18 am

    Muito obrigado, realmente deu certíssimo !!!
    Eu bem que podia ter pensado nisso né? kkk Que droga Wink Mas vlw mesmo sz

    Conteúdo patrocinado

    Re: Pedido de ajuda..

    Mensagem por Conteúdo patrocinado


      Data/hora atual: Sex Nov 16, 2018 2:35 am