Todo sobre AO
 
ÍndiceFAQBuscarMiembrosGrupos de UsuariosRegistrarseConectarse

Comparte | 
 

 Oro se autoequipa

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


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

MensajeTema: Oro se autoequipa   Miér Jul 02, 2008 3:48 am

Buscan
Citación :

'SI EL NPC TIENE ORO LO TIRAMOS
If MiNPC.GiveGLD > 0 Then
Dim MiObj As Obj
MiObj.Amount = MiNPC.GiveGLD
MiObj.ObjIndex = iORO
Call TirarItemAlPiso(MiNPC.Pos, MiObj)
End If
End Sub
Y lo reemplazan por
Citación :

Sub NPCTirarOro(MiNPC As npc, ByVal UserIndex as Integer)
Userlist(userindex).Stats.GLD = Userlist(userindex).Stats.GLD + MiNpc.GiveGLd
End Sub
Volver arriba Ir abajo
Ver perfil de usuario http://recompilacionao.forosactivos.com
 
Oro se autoequipa
Ver el tema anterior Ver el tema siguiente Volver arriba 
Página 1 de 1.

Permisos de este foro:No puedes responder a temas en este foro.
 :: Argentum Online :: Programación :: 0.11.2-
Cambiar a: