[EO]Dropar mais de um item no monstro e adicionar porcentagem...

por texugets Seg 06 Ago 2012, 22:02

Eae galera , bom eu tava atrás desse tutorial mas ninguém aqui no forum pode me ajudar ...
Não sei se por preguiça ou por que não sabiam mesmo mas enfim eu achei e resolvi traduzir e compartilhar com vcs ;D...

Bom primeiro vc precisa baixar esse arquivo:
Npc

Primeiro vc poen esses arquivos na pasta do Cliente substituindo as atuais...
(pasta)
Client>src

No modType tanto no CLIENT quanto no SERVER subistitua todo o NpcRecPor esse

Código:: Private Type NpcRec Name As String * NAME_LENGTH AttackSay As String * 100 Sound As String * NAME_LENGTH Sprite As Long SpawnSecs As Long Behaviour As Byte Range As Byte DropChance(1 To MAX_NPC_DROPS) As Double DropItem(1 To MAX_NPC_DROPS) As Byte DropItemValue(1 To MAX_NPC_DROPS) As Integer Stat(1 To Stats.Stat_Count - 1) As Byte HP As Long EXP As Long Animation As Long Damage As Long Level As Long End Type

Depois em modConstants tanto no CLIENT quanto noSERVER procure por

Código:: ' General constants

E adicione no final:

Código:: Public Const MAX_NPC_DROPS As Byte = 10

Agora só no SERVER
Procure no modCombat por

Código:: 'Drop the goods if they get it

Delete essa parte:

Código:: n = Int(Rnd * Npc(npcNum).DropChance) + 1 If n = 1 Then Call SpawnItem(Npc(npcNum).DropItem, Npc(npcNum).DropItemValue, mapNum, MapNpc(mapNum).Npc(mapNpcNum).x, MapNpc(mapNum).Npc(mapNpcNum).y) End If

E subistitua por essa:

Código:: For n = 1 To MAX_NPC_DROPS If Npc(NpcNum).DropItem(n) = 0 Then Exit For If Rnd <= Npc(NpcNum).DropChance(n) Then Call SpawnItem(Npc(NpcNum).DropItem(n), Npc(NpcNum).DropItemValue(n), MapNum, MapNpc(MapNum).Npc(mapNpcNum).x, MapNpc(MapNum).Npc(mapNpcNum).y) End If Next

Agora no CLIENT

Procure no modGameEditors por:

Código:: .txtChance.text = CStr(Npc(EditorIndex).DropChance)

Delete essa parte:

Código:: .txtChance.text = CStr(Npc(EditorIndex).DropChance) .scrlNum.Value = Npc(EditorIndex).DropItem .scrlValue.Value = Npc(EditorIndex).DropItemValue

Subistitua por essa:

Código:: .txtChance.text = CStr(Npc(EditorIndex).DropChance(1)) .scrlNum.Value = Npc(EditorIndex).DropItem(1) .scrlValue.Value = Npc(EditorIndex).DropItemValue(1)

PRONTO agora ta tudo certo é só configurar nos npcs no jogo xD
o drop fica assim:
0,25 = 25%
0,90 = 90%
1 ou + fica 100%

Bom os creditos são do Scott por fazer e um pouco meu por traduzir xD
vlw pela atenção Very Happy