Hitskin.comIsto é uma pré-visualização de um tema em Hitskin.com
Instalar o tema • Voltar para a ficha do tema
Pedido de ajuda..
2 participantes
Página 1 de 1
Pedido de ajuda..
por Shiy 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..
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..
Shiy- Experiente
- Mensagens : 413
Créditos : 57 -
Re: Pedido de ajuda..
por Profane ~ Dom Nov 08, 2015 1:29 am
Vá no Servidor;
ModPlayer; Procure por
Cole-a aqui, para analise.
Att
ModPlayer; Procure por
- Código:
Sub OnDeath
Cole-a aqui, para analise.
Att
_________________
"Mistress of shattered hopes and forever broken dreams"
Profane ~- Colaborador
- Mensagens : 818
Créditos : 130
Re: Pedido de ajuda..
por Shiy 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.
Shiy- Experiente
- Mensagens : 413
Créditos : 57 -
Re: Pedido de ajuda..
por Profane ~ 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"
Profane ~- Colaborador
- Mensagens : 818
Créditos : 130
Re: Pedido de ajuda..
por Shiy Dom Nov 08, 2015 2:18 am
Muito obrigado, realmente deu certíssimo !!!
Eu bem que podia ter pensado nisso né? kkk Que droga
Mas vlw mesmo sz
Eu bem que podia ter pensado nisso né? kkk Que droga
Mas vlw mesmo sz
Shiy- Experiente
- Mensagens : 413
Créditos : 57 -
Tópicos semelhantesPágina 1 de 1
Permissões neste sub-fórum
Não podes responder a tópicos