en el modulo npcs del servidor buscar:
Dsp Buscas:
Y lo reemplazas por esto:
Código:
Sub NPCTirarOro(MiNPC As npc, ByVal UserIndex As Integer)
'SI EL NPC TIENE ORO LO AUTO-EQUIPA AL USER
If MiNPC.GiveGLD = 0 Then
Call SendData(ToIndex, UserIndex, 0, "||No has ganado oro al matar esta criatura." & FONTTYPE_FIGHT) 'desabilitar linea si queremos que no envie el MSG.
End If
If MiNPC.GiveGLD > 0 Then
Call SendData(ToIndex, UserIndex, 0, "||Has ganado " & MiNPC.GiveGLD & " monedas de oro." & FONTTYPE_FIGHT) 'desabilitar linea si no queremos que envie el MSG.
UserList(UserIndex).Stats.GLD = UserList(UserIndex).Stats.GLD + MiNPC.GiveGLD
Call SendUserStatsBox(UserIndex)
End If
Dsp Buscas:
Código:
Call NPCTirarOro(MiNPC)
Código:
'Auto-Ekipamos el oro
Call NPCTirarOro(MiNPC, UserIndex)