Suporte no desenvolvimento de jogos


    Pedido de ajuda..

    Shiy
    Shiy
    Experiente
    Experiente

    Mensagens : 400
    Créditos : 54
    Cash : 0

    Pedido de ajuda.. Empty Pedido de ajuda..

    Mensagem por Shiy 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 : 777
    Créditos : 128
    Cash : 0

    Pedido de ajuda.. Empty 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"
    Shiy
    Shiy
    Experiente
    Experiente

    Mensagens : 400
    Créditos : 54
    Cash : 0

    Pedido de ajuda.. Empty Re: Pedido de ajuda..

    Mensagem por Shiy 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 : 777
    Créditos : 128
    Cash : 0

    Pedido de ajuda.. Empty 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"
    Shiy
    Shiy
    Experiente
    Experiente

    Mensagens : 400
    Créditos : 54
    Cash : 0

    Pedido de ajuda.. Empty Re: Pedido de ajuda..

    Mensagem por Shiy 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

    Pedido de ajuda.. Empty Re: Pedido de ajuda..

    Mensagem por Conteúdo patrocinado


      Data/hora atual: Ter Out 22, 2019 8:42 am