Suporte ao desenvolvimento de jogos!


    Pedido de ajuda..

    Compartilhe
    SyinX
    SyinX
    Membro Ativo
    Membro Ativo

    Mensagens : 360
    Créditos : 44

    Pedido de ajuda..

    Mensagem por SyinX 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..
    Profane ~
    Profane ~
    Moderador Global
    Moderador Global

    Mensagens : 753
    Créditos : 127

    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


    _________________
    "Mistress of shattered hopes and forever broken dreams"
    SyinX
    SyinX
    Membro Ativo
    Membro Ativo

    Mensagens : 360
    Créditos : 44

    Re: Pedido de ajuda..

    Mensagem por SyinX 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.
    Profane ~
    Profane ~
    Moderador Global
    Moderador Global

    Mensagens : 753
    Créditos : 127

    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


    _________________
    "Mistress of shattered hopes and forever broken dreams"
    SyinX
    SyinX
    Membro Ativo
    Membro Ativo

    Mensagens : 360
    Créditos : 44

    Re: Pedido de ajuda..

    Mensagem por SyinX 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: Qua Mar 20, 2019 6:32 pm