IF
	Global("StartEndBios","AR6200",1)
THEN
	RESPONSE #100
	SetGlobal("StartEndBios","AR6200",2)
		SetCursorState(TRUE)
		SmallWait(2)
		Continue()
END

IF
	Global("StartEndBios","AR6200",1)
	InParty("vvdahlia")
	!Global("PlayerChoseLoveDahlia","GLOBAL",1)
	Global("DahliaGetVampireHeart","GLOBAL",0)
THEN
	RESPONSE #100
		SetGlobal("DahliaBio","GLOBAL",1)
		TextScreen("vvdahli1")
		SmallWait(2)
		Continue()
END

IF
	Global("StartEndBios","AR6200",1)
	InParty("vvdahlia")
	!Global("PlayerChoseLoveDahlia","GLOBAL",1)
	Global("DahliaGetVampireHeart","GLOBAL",1)
THEN
	RESPONSE #100
		SetGlobal("DahliaBio","GLOBAL",1)
		TextScreen("vvdahli8")
		SmallWait(2)
		Continue()
END

IF
	Global("StartEndBios","AR6200",1)
	InParty("vvdahlia")
	!Gender(Player1,MALE)
	!Race(Player1,VAMPIRE)
	Global("PlayerChoseLoveDahlia","GLOBAL",1)
	Global("DahliaGetVampireHeart","GLOBAL",0)
THEN
	RESPONSE #100
		SetGlobal("DahliaBio","GLOBAL",1)
		TextScreen("vvdahli2")
		SmallWait(2)
		Continue()
END

IF
	Global("StartEndBios","AR6200",1)
	InParty("vvdahlia")
	Gender(Player1,MALE)
	!Race(Player1,VAMPIRE)
	Global("PlayerChoseLoveDahlia","GLOBAL",1)
	Global("DahliaGetVampireHeart","GLOBAL",0)
THEN
	RESPONSE #100
		SetGlobal("DahliaBio","GLOBAL",1)
		TextScreen("vvdahli3")
		SmallWait(2)
		Continue()
END


IF
	Global("StartEndBios","AR6200",1)
	InParty("vvdahlia")
	Gender(Player1,MALE)
	Race(Player1,VAMPIRE)
	Global("PlayerChoseLoveDahlia","GLOBAL",1)
	Global("DahliaGetVampireHeart","GLOBAL",0)
THEN
	RESPONSE #100
		SetGlobal("DahliaBio","GLOBAL",1)
		TextScreen("vvdahli4")
		SmallWait(2)
		Continue()
END

IF
	Global("StartEndBios","AR6200",1)
	InParty("vvdahlia")
	!Gender(Player1,MALE)
	Race(Player1,VAMPIRE)
	Global("PlayerChoseLoveDahlia","GLOBAL",1)
	Global("DahliaGetVampireHeart","GLOBAL",0)
THEN
	RESPONSE #100
		SetGlobal("DahliaBio","GLOBAL",1)
		TextScreen("vvdahli5")
		SmallWait(2)
		Continue()
END



IF
	Global("StartEndBios","AR6200",1)
	InParty("vvdahlia")
	Gender(Player1,MALE)
	Race(Player1,VAMPIRE)
	Global("PlayerChoseLoveDahlia","GLOBAL",1)
	Global("DahliaGetVampireHeart","GLOBAL",1)
THEN
	RESPONSE #100
		SetGlobal("DahliaBio","GLOBAL",1)
		TextScreen("vvdahli6")
		SmallWait(2)
		Continue()
END

IF
	Global("StartEndBios","AR6200",1)
	InParty("vvdahlia")
	!Gender(Player1,MALE)
	Race(Player1,VAMPIRE)
	Global("PlayerChoseLoveDahlia","GLOBAL",1)
	Global("DahliaGetVampireHeart","GLOBAL",1)
THEN
	RESPONSE #100
		SetGlobal("DahliaBio","GLOBAL",1)
		TextScreen("vvdahli7")
		SmallWait(2)
		Continue()
END