IF
Global("CleanseVampire","AR1401",2)
Global("FHNathVampire","GLOBAL",3)
Name("Nath",Myself)
AreaCheck("AR1401")
THEN
RESPONSE #100
SetGlobal("FHNathVampire","GLOBAL",4)
DialogInterrupt(TRUE)
ChangeAIScript("FHNAT",OVERRIDE)
END

IF
Global("FHNathVampire","GLOBAL",1)
Global("RomanceVampire","GLOBAL",0)
THEN
RESPONSE #100
SetGlobal("RomanceVampire","GLOBAL",1)
Continue()
END

IF
Global("FHNathVampire","GLOBAL",1)
Global("RomanceVampire","GLOBAL",1)
Global("RomanceVampireTeleport","GLOBAL",0)
THEN
RESPONSE #100
SetGlobal("RomanceVampireTeleport","GLOBAL",1)
CreateVisualEffectObject("SPDIMNDR",Myself)
Wait(2)
DestroySelf()
END
