Agus
Admin
Mensajes : 69
Fecha de inscripción : 01/07/2008
 | Tema: 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
| |
|
