subbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbb

por Zenitram Jue Oct 16, 2014 8:50 pm

Código:: Public Sub MakeNPCChar(ByVal toMap As Boolean, sndIndex As Integer, NpcIndex As Integer, ByVal map As Integer, ByVal X As Integer, ByVal Y As Integer) '*************************************************** 'Author: Unknown 'Last Modification: - ' '*************************************************** Dim CharIndex As Integer If Npclist(NpcIndex).Char.CharIndex = 0 Then CharIndex = NextOpenCharIndex Npclist(NpcIndex).Char.CharIndex = CharIndex CharList(CharIndex) = NpcIndex End If MapData(map, X, Y).NpcIndex = NpcIndex With Npclist(NpcIndex) If Not toMap Then Call WriteCharacterCreate(sndIndex, .Char.body, .Char.Head, .Char.heading, .Char.CharIndex, X, Y, ObjData(.Char.WeaponAnim).WeaponAnim, ObjData(.Char.ShieldAnim).ShieldAnim, 0, 0, ObjData(.Char.CascoAnim).CascoAnim, vbNullString, 0, 0) Call FlushBuffer(sndIndex) Else Call AgregarNpc(NpcIndex) End If End With End Sub