03-08-2008, 02:07 AM
Ok so I added quests, no errors, but they're bugs.
Ok, so basically I had to change the CanAttackNpc function DUH, but for some reason it kills Quest type NPC's... its weird, and when I attack em, it does not even start the quest, but if I add a Call playerMsg it gives a message..
[code]Function CanAttackNpc(ByVal Attacker As Long, ByVal MapNpcNum As Long) As Boolean
Dim MapNum As Long, npcnum As Long
Dim x As Long
Dim y As Long
CanAttackNpc = False
' Check for subscript out of range
If IsPlaying(Attacker) = False Or MapNpcNum MAX_MAP_NPCS Then
Exit Function
End If
' Check for subscript out of range
If MapNpc(GetPlayerMap(Attacker), MapNpcNum).Num
Ok, so basically I had to change the CanAttackNpc function DUH, but for some reason it kills Quest type NPC's... its weird, and when I attack em, it does not even start the quest, but if I add a Call playerMsg it gives a message..
[code]Function CanAttackNpc(ByVal Attacker As Long, ByVal MapNpcNum As Long) As Boolean
Dim MapNum As Long, npcnum As Long
Dim x As Long
Dim y As Long
CanAttackNpc = False
' Check for subscript out of range
If IsPlaying(Attacker) = False Or MapNpcNum MAX_MAP_NPCS Then
Exit Function
End If
' Check for subscript out of range
If MapNpc(GetPlayerMap(Attacker), MapNpcNum).Num