Todo sobre AO
 
ÍndiceFAQBuscarMiembrosGrupos de UsuariosRegistrarseConectarse

Comparte | 
 

 Auto equipar oro

Ver el tema anterior Ver el tema siguiente Ir abajo 
AutorMensaje
Agus
Admin


Mensajes : 69
Fecha de inscripción : 01/07/2008

MensajeTema: 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)
Volver arriba Ir abajo
Ver perfil de usuario http://recompilacionao.forosactivos.com
 
Auto equipar oro
Ver el tema anterior Ver el tema siguiente Volver arriba 
Página 1 de 1.
 Temas similares
-
» Auto Retro 2010 - Barcelona del 4 al 8 de Diciembre
» alguien sabe si hay algun mod terminado del auto union V16?
» Mejor auto en el GTA IV
» Grand Theft Auto Episodes From Liberty City [POST]
» Repaints continental auto para D92 y D85

Permisos de este foro:No puedes responder a temas en este foro.
 :: Argentum Online :: jijijijijiij-
Cambiar a: