Perder itens ao morrer

E ae povo, seguinte, eu criei um tópico de dúvida pois queria tirar o sistema de quando vc morrer seus itens cairem do EO Omega 1.6, porem o tópico foi trancado, entao estou postando como arruma-lo. Enfim aki está:

Obs:os itens n caiam aleatóriamente

.Se vc quiser que os seu itens CAIAM aleatoriamente faça o seguinte:

~Server Side~

Ache:

Código:

Sub OnDeath(ByVal Index As Long)

E abaixo acrescente:

Código:

Dim Rate As Long
    Dim DropNum As Long

Agora procure por:

Código:

' Drop all worn items
    For i = 1 To Equipment.Equipment_Count - 1
        If GetPlayerEquipment(Index, i) > 0 Then
            PlayerMapDropItem Index, GetPlayerEquipment(Index, i), 0
        End If
    Next

E troque por:

Código:

Rate = 75

   If Rand(1, 100) >= Rate Then
   
        DropNum = Rand(1, 4)

   Select Case DropNum

   Case 1
      If GetPlayerEquipment(index, Weapon) > 0 Then
                     PlayerMapDropItem index, GetPlayerEquipment(index, Weapon), 0
              End If
         GiveInvItem index, GetPlayerEquipment(index, Weapon), 0
                 SetPlayerEquipment index, 0, Weapon
   Case 2
      If GetPlayerEquipment(index, Helmet) > 0 Then
                     PlayerMapDropItem index, GetPlayerEquipment(index, Helmet), 0
              End If
         GiveInvItem index, GetPlayerEquipment(index, Helmet), 0
                 SetPlayerEquipment index, 0, Helmet
   Case 3
      If GetPlayerEquipment(index, Armor) > 0 Then
                     PlayerMapDropItem index, GetPlayerEquipment(index, Armor), 0
              End If
         GiveInvItem index, GetPlayerEquipment(index, Armor), 0
                 SetPlayerEquipment index, 0, Armor
   Case 4
      If GetPlayerEquipment(index, Shield) > 0 Then
                     PlayerMapDropItem index, GetPlayerEquipment(index, Shield), 0
              End If
         GiveInvItem index, GetPlayerEquipment(index, Shield), 0
                 SetPlayerEquipment index, 0, Shield
   End Select
   End If

   Rate = 90
   If Rand(1, 100) >= Rate Then
      For i = 1 To MAX_INV
         If Item(i).Type <> ITEM_TYPE_CURRENCY Then
             PlayerMapDropItem index, i, GetPlayerInvItemValue(index, i)
             End If
      Next
   End If

Créditos ao "Justn" por postar na touch of death forums.

. Se vc quiser TIRAR esse sistema (como eu) apenas ache e delete isso:

Código:

' Drop all worn items
    For i = 1 To Equipment.Equipment_Count - 1
        If GetPlayerEquipment(Index, i) > 0 Then
            PlayerMapDropItem Index, GetPlayerEquipment(Index, i), 0
        End If
    Next

flw pessoal...

Nossa bem legal, esses itens são os equipamentos ou do inventário?

do inventário
eu perdia itens mas n era aleatório entao achei uma soluçao e coloquei aki

Blz então xD vai ser util se eu voltar pro vb, area correta n sera tutoriais?

gabriel190 escreveu:do inventário
eu perdia itens mas n era aleatório entao achei uma soluçao e coloquei aki

Ok, + 2 créditos.

Vlw Marlos!

Deidara, eu to na area tutoriais... E foi vc que fez eles trancarem meu tópico de dúvida....
ta esquecendo??

N é que esse topico tava em duvidas e pedidos mais ja moveram, eu que fiz? vc tbm falo que pode trancar eu n mando em nada, eu disse pra vc avisar alguem pra trancar aquele, é só o dono do topico ke manda '-'

Olhando o código do sistema eu percebo que ele tbm dropa um item equipado. Estou certo?

Edit: Itens do tipo currency ( dinheiro, moeda ) não podem ser dropados?

Olha cara, eu nem testei muito pq n vo usar isso eu so achei pra tirar =P
Mas enfim, com meus poucos testes parece que os itens equipados n caem no chao e sim vao para o seu inventário depois se vc morrer de novo podem cair no chao. Sim, itens tipo currency tbm podem ser dropados, e as vezes vc pode perder todos os itens ao invés de um só...

Ainda é azar perder tudo kkk'