Agus Admin
Mensajes : 69 Fecha de inscripción : 01/07/2008
| Tema: Auto equipar oro Vie Ago 22, 2008 12:18 am | |
| Buscamos: - Citación :
Sub NPCTirarOro(MiNPC As npc)
Y lo reemplazamos desde esa linea hasta el segundo End If por : - Citación :
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(SendTarget.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(SendTarget.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
Despues buscamos: - Citación :
Call NPCTirarOro(MiNPC)
Y lo reemplazamos por esto: - Citación :
Call NPCTirarOro(MiNPC, UserIndex)
| |
|