Pedido de ajuda..

Vá no Servidor;

ModPlayer; Procure por

Código:

Sub OnDeath

Cole-a aqui, para analise.

Att

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.

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