Я тоже считаю, что собака зарыта в этой строке
тут происходит обращение к типу cursor3d, который не на что не ссылается т. е. не инициализирован в функции.
Должно быть, как вариант, так
Code
Function new_enemy(tf%)
If tf%=True Then
For cursor3d.cursors = Each cursors
night.Tnight=New Tnight
night\x=cursor3d\x
night\y=cursor3d\y
night\hp=300
night\mesh=LoadAnimMesh("D:\Strategy\Data\Models\Night\Night.b3d")
LoadAnimSeq night\mesh,"D:\Strategy\Data\Models\Night\Night-run.b3d"
LoadAnimSeq night\mesh,"D:\Strategy\Data\Models\Night\Night-deth.b3d"
LoadAnimSeq night\mesh,"D:\Strategy\Data\Models\Night\Night-fight.b3d"
night\weapun=FindChild(night\mesh,box01)
Next
EndIf
End Function