Boa tarde meus caros, alguma alma bondosa rs poderia disponibilizar se possível um sistema no qual certos itens no inventário não seja dropavel...
Desde já agradeço!

1- Abra o client.vbp
2- Procure no ModClientTCP, na sub "senddropitem" por:

Código:

If InvNum < 1 Or InvNum > MAX_INV Then Exit Sub
    If PlayerInv(InvNum).num < 1 Or PlayerInv(InvNum).num > MAX_ITEMS Then Exit Sub
    If Item(GetPlayerInvItemNum(MyIndex, InvNum)).Type = ITEM_TYPE_CURRENCY Then
        If Amount < 1 Or Amount > PlayerInv(InvNum).Value Then Exit Sub
    End If

3- Abaixo coloque:

Código:

If PlayerInv(InvNum).num = "" Then Exit Sub

Tire as aspas e coloque qual item você quer que não seja dropavel... e caso seja mais de um, basta ir colocando "or" exemplo:

Código:

If PlayerInv(InvNum).num = 3 or 4 or 5 Then Exit Sub

newbie123 escreveu:1- Abra o client.vbp
2- Procure no ModClientTCP, na sub "senddropitem" por:

Código:

If InvNum < 1 Or InvNum > MAX_INV Then Exit Sub
    If PlayerInv(InvNum).num < 1 Or PlayerInv(InvNum).num > MAX_ITEMS Then Exit Sub
    If Item(GetPlayerInvItemNum(MyIndex, InvNum)).Type = ITEM_TYPE_CURRENCY Then
        If Amount < 1 Or Amount > PlayerInv(InvNum).Value Then Exit Sub
    End If

3- Abaixo coloque:

Código:

If PlayerInv(InvNum).num = "" Then Exit Sub

Tire as aspas e coloque qual item você quer que não seja dropavel... e caso seja mais de um, basta ir colocando "or" exemplo:

Código:

If PlayerInv(InvNum).num = 3 or 4 or 5 Then Exit Sub

Vlw man, vou colocar isso n meu game também.

Meu caro, realizei os devidos testes, realmente os itens escolhidos não dropam, porém aparenta está meio bugado pq não consigo dropar nenhum outro item!
Agradeço a ajuda, fico no aguardo pela resposta.
Att

Okay ah, eu não estou entendendo muito bem por que desse "bug", porem caso você coloque apenas um numero o sistema funciona normalmente, fique repetindo esse código, mais tarde quando eu chegar em casa eu vejo como resolver isso.

PS: Eu não estou em casa, porém utilize invés do "Or" o codigo "AND" e veja se agora funciona.

Um tanto não tanto , porém tanto não usual.

Procure tirar a aplicação de drop de itens em relaçao a enumaração de Slots do Inventory.

Ligue isso a Categoria de "Type" (Tipo) do item em si; Para que tal tipo não possa ser dropado.

ou mesmo crie uma variavel adicional no itemRec ex:  "Não Dropavel"; para que este ID de item não possa ser dropado, aplicado comumente em items de Quest para jogos MMO grandes.

APlicar isso ao Slot do Inventory é não usual.

Att ><

Primeiramente venho agradecer ao Newbie pela intenção em querer ajudar e ao Profane como sempre arrumando um tempinho para auxiliar os iniciantes. Se for viável poderia explicar de uma forma mais detalhada (passo a passo) o sistema da Type para que este id de item não possa ser dropada'?
Att

Bom ~

Server Side

Procure por:

Código:

Sub HandleMapDropItem(ByVal index As Long, ByRef Data() As Byte, ByVal StartAddr As Long, ByVal ExtraVar As Long)

Dentro dela, procure por :

Código:

    ' everything worked out fine
    Call PlayerMapDropItem(index, invNum, Amount)

Isso é a permissão em si do drop do item, citado, "dropar" ele no mapa. 

Agora ACIMA disso, coloquemos outra condição antes de chegar esse drop em si.

Adicione:

Código:

    If Item(GetPlayerInvItemNum(index, invNum)).Type = ITEM_TYPE_WEAPON Then
        Call PlayerMsg(index, "Não pode dropar este item", Red)
        If Amount < 1 Or Amount > GetPlayerInvItemValue(index, invNum) Then Exit Sub
    End If

Analise isso aqui : .Type = ITEM_TYPE_WEAPON


O Type é Weapon, isso fará com que os Itens com ID do tipo WEAPON (arma), não possam ser dropados do Inventory.


Modificar o ITEM_TYPE_WEAPON, pelo ITEM_TYPE que você deseja.


Pode verificar mais ITEM_TYPES no ModConstants.


Att