IF
 Race(Myself,VAMPYRE)
 AreaCheck("BD7410")
 Global("BD7410Talk","LOCALS",0)
THEN
 RESPONSE #100
 SetGlobal("BD7410Talk","LOCALS",1)
DisplayStringHead(Myself,~<CHARNAME>, I smell a vampire. Remember, I need a heart.~)
Wait(2)
END

IF
 Race(Myself,VAMPYRE)
 AreaCheck("BD0115")
 Global("BD0115Talk","LOCALS",0)
 !Dead("BDTSOLAK")
THEN
 RESPONSE #100
 SetGlobal("BD0115Talk","LOCALS",1)
DisplayStringHead(Myself,~<CHARNAME>, remember, I need a heart of a vampire.~)
END


IF 
  Global("AteHeart","LOCALS",1)
THEN
RESPONSE #20
 SetGlobal("AteHeart","LOCALS",2)
Wait(2)
DisplayStringHead(Myself,~<CHARNAME>, I am dying!~)
Wait(2)
LeaveParty()
Kill(Myself)
RESPONSE #80
 SetGlobal("AteHeart","LOCALS",2)
   SetGlobal("ActorVampirisedLevel","LOCALS",0)

    CreateVisualEffectObject("SPDISPMA",Myself)
		DropInventory()
		PlayDead(60)
//		ChangeStat(Myself,USE_ANY_ITEM,1,SET)
//		ChangeStat(Myself,PROFICIENCYMACE,1,ADD)
		

		ChangeAlignment(Myself,CHAOTIC_EVIL)
		ChangeRace(Myself,VAMPIRE)
		ChangeGeneral(Myself,UNDEAD)
		
//		GiveItemCreate("vampreg1",Myself,1,1,0) // Ring
//		GiveItemCreate("DAGG01",Myself,1,1,0) // Dagger		
		GiveItemCreate("VVCASKET",Myself,1,1,0) // Empty Casket
	

//		XEquipItem("vampreg1",Myself,SLOT_RING_RIGHT,EQUIP) // Ring
//		XEquipItem("DAGG01",Myself,SLOT_WEAPON,EQUIP) // Dagger		
//		ActionOverride(Myself,TransformItem("DAGG01","VAMT01"))
		
		ChangeStat(Player1,CON,1,ADD)
		ChangeStat(Player1,STR,1,ADD)
//		ChangeStat(Player1,WIS,-2,ADD)
//		ChangeStat(Player1,INT,-2,ADD)

		ChangeStat(Myself,RESISTCOLD,30,ADD)
		ChangeStat(Myself,RESISTPOISON,50,ADD)
		ChangeStat(Myself,RESISTFIRE,-30,ADD)
//		ChangeStat(Myself,USE_ANY_ITEM,0,SET)
		
		SetGlobal("VampireAbilities","LOCALS",0)	
END


IF
   !InParty(Myself)
	NumberOfTimesTalkedTo(0)
	Detect([PC])
THEN
	RESPONSE #100
		StartDialogueNoSet(LastSeenBy(Myself))
END

IF
   InParty(Myself)
	!GlobalTimerNotExpired("DahliaTalk1Timer","GLOBAL")
	Global("DahliaTalk1","LOCALS",0)
	See(Player1)
THEN
	RESPONSE #100
	SetGlobal("DahliaTalk1","LOCALS",1)
	
		StartDialogueNoSet(LastSeenBy(Myself))
END

IF
   InParty(Myself)
   Global("DahliaTalk1","LOCALS",2)
	!GlobalTimerNotExpired("DahliaTalk2Timer","GLOBAL")
	Global("DahliaTalk2","LOCALS",0)
	See(Player1)
	Race(Player1,VAMPYRE)
THEN
	RESPONSE #100
	SetGlobal("DahliaTalk2","LOCALS",1)
	
		StartDialogueNoSet(LastSeenBy(Myself))
END

IF
   PartyRested()
   InParty(Myself)
   Global("DahliaTalk1","LOCALS",2)
	!GlobalTimerNotExpired("DahliaAttack1Timer","GLOBAL")
	Global("DahliaAttack1","LOCALS",0)
	Race(Player1,VAMPIRE)
	See(Player1)
THEN
	RESPONSE #100
	SetGlobal("DahliaAttack1","LOCALS",1)
	
		StartDialogueNoSet(LastSeenBy(Myself))
END