bueno , creo que hay mas errores q estos, pero diganme q yo los arreglo
bueno el primero de los npcs q se amuchaban etc es este
reemplazar el viejo legalposnpc x este o agregar lo q marqe
solucion by me
Function LegalPosNPC(ByVal Map As Integer, ByVal X As Integer, ByVal Y As Integer, ByVal AguaValida As Byte) As Boolean
'*************************************************
'Author: Lucas Tavolaro Ortiz
'Last modified: 07/04/06
'Y arreglado por Fedex
'*************************************************
' Modificado por Pablo Nicolas Petran
If Map NumMaps Or X MaxXBorder Or _
Y MaxYBorder Then
LegalPosNPC = False
Exit Function
Else
If MapData(Map, X, Y).trigger = 9 Then
LegalPosNPC = False
Exit Function
End If
If MapData(Map, X, Y).Blocked 1 Or MapData(Map, X, Y).UserIndex = 0 Or _
MapData(Map, X, Y).NpcIndex = 0 Then
If AguaValida = 0 And Not HayAgua(Map, X, Y) Then
LegalPosNPC = True
ElseIf AguaValida = 1 And HayAgua(Map, X, Y) Then
LegalPosNPC = True
Else
LegalPosNPC = False
End If
End If
End If
If MapData(Map, X, Y).Blocked = 1 Then
LegalPosNPC = False
End If
Código de Visual Basic:
--------------------------------------------------------------------------------
If MapData(Map, X, Y).UserIndex > 0 Then
LegalPosNPC = False
End If
If MapData(Map, X, Y).NpcIndex > 0 Then
LegalPosNPC = False
End If
--------------------------------------------------------------------------------
End Function
reemplazar el viejo por este
o
agregar eso q marqe
bueno el primero de los npcs q se amuchaban etc es este
reemplazar el viejo legalposnpc x este o agregar lo q marqe
solucion by me
Function LegalPosNPC(ByVal Map As Integer, ByVal X As Integer, ByVal Y As Integer, ByVal AguaValida As Byte) As Boolean
'*************************************************
'Author: Lucas Tavolaro Ortiz
'Last modified: 07/04/06
'Y arreglado por Fedex
'*************************************************
' Modificado por Pablo Nicolas Petran
If Map NumMaps Or X MaxXBorder Or _
Y MaxYBorder Then
LegalPosNPC = False
Exit Function
Else
If MapData(Map, X, Y).trigger = 9 Then
LegalPosNPC = False
Exit Function
End If
If MapData(Map, X, Y).Blocked 1 Or MapData(Map, X, Y).UserIndex = 0 Or _
MapData(Map, X, Y).NpcIndex = 0 Then
If AguaValida = 0 And Not HayAgua(Map, X, Y) Then
LegalPosNPC = True
ElseIf AguaValida = 1 And HayAgua(Map, X, Y) Then
LegalPosNPC = True
Else
LegalPosNPC = False
End If
End If
End If
If MapData(Map, X, Y).Blocked = 1 Then
LegalPosNPC = False
End If
Código de Visual Basic:
--------------------------------------------------------------------------------
If MapData(Map, X, Y).UserIndex > 0 Then
LegalPosNPC = False
End If
If MapData(Map, X, Y).NpcIndex > 0 Then
LegalPosNPC = False
End If
--------------------------------------------------------------------------------
End Function
reemplazar el viejo por este
o
agregar eso q marqe