subbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbb

Ir abajo

subbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbb Empty subbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbb

Mensaje por Zenitram el 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
Zenitram
Zenitram

subbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbb 5O26YPx

Aportes : 10
Mensajes : 65
Puntos : 130
Edad : 18

Ver perfil de usuario

Volver arriba Ir abajo

Volver arriba


 
Permisos de este foro:
No puedes responder a temas en este foro.