¿Quieres reaccionar a este mensaje? Regístrate en el foro con unos pocos clics o inicia sesión para continuar.


Todo sobre AO
 
ÍndiceÚltimas imágenesBuscarRegistrarseConectarse

 

 Auto equipar oro

Ir abajo 
AutorMensaje
Agus
Admin



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

Auto equipar oro Empty
MensajeTema: Auto equipar oro   Auto equipar oro EmptyVie 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
https://recompilacionao.forosactivos.com
 
Auto equipar oro
Volver arriba 
Página 1 de 1.

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