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

IF 
    Global("StartEndBios","AR6200",1)
  	Global("Player1ChoseGodAerie","GLOBAL",1)
	Global("AerieBio","GLOBAL",0)
THEN
	RESPONSE #100
		SetGlobal("AerieBio","GLOBAL",1)
		Continue()
END


IF
	Global("StartEndBios","AR6200",1)
    OR(2)
    InParty("vampaer")
	!StateCheck("vampaer",STATE_REALLY_DEAD)
	!Global("AerieRomanceActive","GLOBAL",2)
	Global("Player1ChoseGodAerie","GLOBAL",0)
	Global("AerieBio","GLOBAL",0)
THEN
	RESPONSE #100
		SetGlobal("AerieBio","GLOBAL",1)
		TextScreen("VVAERIE1")
		SmallWait(1)
		Continue()
END

IF
	Global("StartEndBios","AR6200",1)
    InParty("vampaer")
	Global("PlayerChoseEssence","GLOBAL",0)
	Global("AerieRomanceActive","GLOBAL",2)
	Global("Player1ChoseGodAerie","GLOBAL",0)	
	Global("AerieBio","GLOBAL",0)
THEN
	RESPONSE #100
		SetGlobal("AerieBio","GLOBAL",1)
		TextScreen("VVAERIE2")
		SmallWait(1)
		Continue()
END

IF 
    Global("StartEndBios","AR6200",1)
  	Global("Player1ChoseGodAnomen","GLOBAL",1)
	Global("AnomenBio","GLOBAL",0)
THEN
	RESPONSE #100
		SetGlobal("AnomenBio","GLOBAL",1)
		Continue()
END


IF
	Global("StartEndBios","AR6200",1)
    OR(2)
    InParty("vampano")
	!StateCheck("vampano",STATE_REALLY_DEAD)
	!Global("AnomenRomanceActive","GLOBAL",2)
	Global("Player1ChoseGodAnomen","GLOBAL",0)
	Global("AnomenBio","GLOBAL",0)
THEN
	RESPONSE #100
		SetGlobal("AnomenBio","GLOBAL",1)
		TextScreen("VVANOME1")
		SmallWait(1)
		Continue()
END

IF
	Global("StartEndBios","AR6200",1)
    InParty("vampano")
	Global("PlayerChoseEssence","GLOBAL",0)
	Global("AnomenRomanceActive","GLOBAL",2)
	Global("Player1ChoseGodAnomen","GLOBAL",0)	
	Global("AnomenBio","GLOBAL",0)
THEN
	RESPONSE #100
		SetGlobal("AnomenBio","GLOBAL",1)
		TextScreen("VVANOME2")
		SmallWait(1)
		Continue()
END



IF 
    Global("StartEndBios","AR6200",1)
  	Global("Player1ChoseGodJaheira","GLOBAL",1)
	Global("JaheiraBio","GLOBAL",0)
THEN
	RESPONSE #100
		SetGlobal("JaheiraBio","GLOBAL",1)
		Continue()
END


IF
	Global("StartEndBios","AR6200",1)
    OR(2)
    InParty("vampjah")
	!StateCheck("vampjah",STATE_REALLY_DEAD)
	!Global("JaheiraRomanceActive","GLOBAL",2)
	Global("Player1ChoseGodJaheira","GLOBAL",0)
	Global("JaheiraBio","GLOBAL",0)
THEN
	RESPONSE #100
		SetGlobal("JaheiraBio","GLOBAL",1)
		TextScreen("VVJAHER1")
		SmallWait(1)
		Continue()
END

IF
	Global("StartEndBios","AR6200",1)
    InParty("vampjah")
	Global("PlayerChoseEssence","GLOBAL",0)
	Global("JaheiraRomanceActive","GLOBAL",2)
	Global("Player1ChoseGodJaheira","GLOBAL",0)	
	Global("JaheiraBio","GLOBAL",0)
THEN
	RESPONSE #100
		SetGlobal("JaheiraBio","GLOBAL",1)
		TextScreen("VVJAHER2")
		SmallWait(1)
		Continue()
END



IF 
    Global("StartEndBios","AR6200",1)
  	Global("Player1ChoseGodViconia","GLOBAL",1)
	Global("ViconiaBio","GLOBAL",0)
THEN
	RESPONSE #100
		SetGlobal("ViconiaBio","GLOBAL",1)
		Continue()
END


IF
	Global("StartEndBios","AR6200",1)
    InParty("vampvic")
	!Global("ViconiaRomanceActive","GLOBAL",2)
	Global("Player1ChoseGodViconia","GLOBAL",0)
	Global("ViconiaBio","GLOBAL",0)
THEN
	RESPONSE #100
		SetGlobal("ViconiaBio","GLOBAL",1)
		TextScreen("VVVICON1")
		SmallWait(1)
		Continue()
END

IF
	Global("StartEndBios","AR6200",1)
    InParty("vampvic")
	Global("PlayerChoseEssence","GLOBAL",0)
	Global("ViconiaRomanceActive","GLOBAL",2)
	Global("Player1ChoseGodViconia","GLOBAL",0)	
	Global("ViconiaBio","GLOBAL",0)
THEN
	RESPONSE #100
		SetGlobal("ViconiaBio","GLOBAL",1)
		TextScreen("VVVICON2")
		SmallWait(1)
		Continue()
END