MMORPG Brasil
Ola, visitante! Agradecemos sua visita, para ter acesso a todo nosso conteúdo recomendamos que faça um cadastro no fórum, com ele você pode participar de tópicos e ter acesso a todas áreas da comunidade!

Participe do fórum, é rápido e fácil

MMORPG Brasil
Ola, visitante! Agradecemos sua visita, para ter acesso a todo nosso conteúdo recomendamos que faça um cadastro no fórum, com ele você pode participar de tópicos e ter acesso a todas áreas da comunidade!
MMORPG Brasil
Gostaria de reagir a esta mensagem? Crie uma conta em poucos cliques ou inicie sessão para continuar.

Multiplayer Online Role Playing Game Massively Brasil - Suporte e Recursos para desenvolvedores de MMORPGs

O fórum está definitivamente fechado, obrigado a todos que participaram do que um dia foi a MMORPG Brasil!
Atenciosamente Lendário...

Perdendo itens ao morrer

3 participantes

MMORPG Brasil :: OPEN SOURCE ENGINES :: Eclipse Origins :: Tutoriais

Ir para baixo

Perdendo itens ao morrer Empty Perdendo itens ao morrer

Mensagem por Frozen Qua 20 Fev 2013, 00:15



Sistema : Perder itens ao morrer
~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
Caso queira retirar o sistema :
Ache e delete :
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

Explicações: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ó...
Ótimo sistema para um jogo medieval (:

Créditos: Katekyo , Justin
Frozen
Frozen
Membro Veterano
Membro Veterano

Mensagens : 1339

Ir para o topo Ir para baixo

Perdendo itens ao morrer Empty Re: Perdendo itens ao morrer

Mensagem por xurana321 Qua 20 Fev 2013, 08:56

mano mais isso ai é por porcentagem de chances?? ou é que nem o normal cai tudo de uma vez?
xurana321
xurana321
Membro Sênior
Membro Sênior

Mensagens : 297

Ir para o topo Ir para baixo

Perdendo itens ao morrer Empty Re: Perdendo itens ao morrer

Mensagem por Frozen Qua 20 Fev 2013, 12:03

xurana321 escreveu:mano mais isso ai é por porcentagem de chances?? ou é que nem o normal cai tudo de uma vez?
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ó...
Frozen
Frozen
Membro Veterano
Membro Veterano

Mensagens : 1339

Ir para o topo Ir para baixo

Perdendo itens ao morrer Empty Re: Perdendo itens ao morrer

Mensagem por xurana321 Qua 20 Fev 2013, 12:06

ah entao é pela segudna vez morto q pode ser dropado?..
xurana321
xurana321
Membro Sênior
Membro Sênior

Mensagens : 297

Ir para o topo Ir para baixo

Perdendo itens ao morrer Empty Re: Perdendo itens ao morrer

Mensagem por Frozen Qua 20 Fev 2013, 12:08

xurana321 escreveu:ah entao é pela segudna vez morto q pode ser dropado?..
sim .. , vamos parar com off agora .
Frozen
Frozen
Membro Veterano
Membro Veterano

Mensagens : 1339

Ir para o topo Ir para baixo

Perdendo itens ao morrer Empty Re: Perdendo itens ao morrer

Mensagem por alenzinho Qua 20 Fev 2013, 12:17

Katekyo +1 Ajuda muitas pessoas '-'.
Se fosse EEB eu aceitaria +1Cred e Respeito comigo.
alenzinho
alenzinho
Membro Veterano
Membro Veterano

Mensagens : 893

Ir para o topo Ir para baixo

Perdendo itens ao morrer Empty Re: Perdendo itens ao morrer

Mensagem por xurana321 Qua 20 Fev 2013, 20:30

que nem no meu game tem anel, bota, luva etc.. como faz pra add esses tbm?
xurana321
xurana321
Membro Sênior
Membro Sênior

Mensagens : 297

Ir para o topo Ir para baixo

Perdendo itens ao morrer Empty Re: Perdendo itens ao morrer

Mensagem por Conteúdo patrocinado


Conteúdo patrocinado


Ir para o topo Ir para baixo

Ir para o topo

- Tópicos semelhantes

MMORPG Brasil :: OPEN SOURCE ENGINES :: Eclipse Origins :: Tutoriais

 
Permissões neste sub-fórum
Não podes responder a tópicos