Reparacion PRoblema AOREADY-

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

Ya lo posteaste ne el foro de AoR.

THREAD CLOSED