Suporte ao desenvolvimento de jogos!


    Perder itens ao morrer

    Compartilhe
    avatar
    gabriel190
    Membro Ativo
    Membro Ativo

    Mensagens : 278
    Créditos : 19

    Perder itens ao morrer

    Mensagem por gabriel190 em Seg Dez 19, 2011 11:33 am

    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...
    avatar
    Valentine
    Administrador
    Administrador

    Medalhas :
    Mensagens : 4987
    Créditos : 1060

    Re: Perder itens ao morrer

    Mensagem por Valentine em Seg Dez 19, 2011 11:58 am

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


    _________________
    avatar
    gabriel190
    Membro Ativo
    Membro Ativo

    Mensagens : 278
    Créditos : 19

    Re: Perder itens ao morrer

    Mensagem por gabriel190 em Seg Dez 19, 2011 12:20 pm

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


    _________________



    avatar
    BrunoFox
    Aldeia Friend
    Aldeia Friend

    Mensagens : 1549
    Créditos : 32

    Re: Perder itens ao morrer

    Mensagem por BrunoFox em Seg Dez 19, 2011 12:22 pm

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


    _________________
    avatar
    Valentine
    Administrador
    Administrador

    Medalhas :
    Mensagens : 4987
    Créditos : 1060

    Re: Perder itens ao morrer

    Mensagem por Valentine em Seg Dez 19, 2011 12:42 pm

    @gabriel190 escreveu:do inventário
    eu perdia itens mas n era aleatório entao achei uma soluçao e coloquei aki Very Happy
    Ok, + 2 créditos.


    _________________
    avatar
    gabriel190
    Membro Ativo
    Membro Ativo

    Mensagens : 278
    Créditos : 19

    Re: Perder itens ao morrer

    Mensagem por gabriel190 em Seg Dez 19, 2011 12:49 pm

    Vlw Marlos!

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

    Mensagens : 1549
    Créditos : 32

    Re: Perder itens ao morrer

    Mensagem por BrunoFox em Seg Dez 19, 2011 2:13 pm

    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 '-'


    _________________
    avatar
    Jonny157
    Ocasional
    Ocasional

    Mensagens : 245
    Créditos : 9

    Re: Perder itens ao morrer

    Mensagem por Jonny157 em Seg Dez 19, 2011 6:30 pm

    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?
    avatar
    gabriel190
    Membro Ativo
    Membro Ativo

    Mensagens : 278
    Créditos : 19

    Re: Perder itens ao morrer

    Mensagem por gabriel190 em Seg Dez 19, 2011 6:46 pm

    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ó...


    _________________



    avatar
    BrunoFox
    Aldeia Friend
    Aldeia Friend

    Mensagens : 1549
    Créditos : 32

    Re: Perder itens ao morrer

    Mensagem por BrunoFox em Seg Dez 19, 2011 6:55 pm

    Ainda é azar perder tudo kkk'


    _________________

    Conteúdo patrocinado

    Re: Perder itens ao morrer

    Mensagem por Conteúdo patrocinado


      Data/hora atual: Sex Nov 16, 2018 10:36 am