
IF 
 OR(2)
 Global("BODHIROMANCE","GLOBAL",1)
 Global("BODHIROMANCE","GLOBAL",2)
 Gender(Player1,FEMALE)
 !Global("VampireWorldHomoSexOff","GLOBAL",0)
THEN 
   RESPONSE #100
  SetGlobal("BodhiRomanceTalk","LOCALS",99)
  SetGlobal("BODHIROMANCE","GLOBAL",3)
END

IF
InParty(Myself)
See(Player1)
!See([ENEMY])
!AreaType(OUTDOOR)
Global("VampireWorldRomances","GLOBAL",1)
!Global("SolarDream","GLOBAL",0)
Global("BODHIROMANCE","GLOBAL",2)
GlobalLT("BodhiRomanceTalk","LOCALS",8)
!GlobalTimerNotExpired("BodhiLoveTalksTimer","LOCALS")
THEN 
   RESPONSE #20
  SetGlobal("BodhiRomanceTalkInit","LOCALS",1)
  IncrementGlobal("BodhiRomanceTalk","LOCALS",1)
  SetGlobalTimer("BodhiLoveTalksTimer","LOCALS",EIGHT_HOURS)
  StartDialogueNoSet(Player1)
  SetGlobal("BodhiRomanceTalkInit","LOCALS",0)
   RESPONSE #20
  SetGlobal("BodhiRomanceTalkInit","LOCALS",1)
  IncrementGlobal("BodhiRomanceTalk","LOCALS",1)
  SetGlobalTimer("BodhiLoveTalksTimer","LOCALS",SIXTEEN_HOURS)
  StartDialogueNoSet(Player1)
  SetGlobal("BodhiRomanceTalkInit","LOCALS",0)
 // Wait(2)
   RESPONSE #20
  SetGlobal("BodhiRomanceTalkInit","LOCALS",1)
  IncrementGlobal("BodhiRomanceTalk","LOCALS",1)
  SetGlobalTimer("BodhiLoveTalksTimer","LOCALS",TEN_HOURS) 		
  StartDialogueNoSet(Player1)
  SetGlobal("BodhiRomanceTalkInit","LOCALS",0)
 // Wait(2)
  RESPONSE #20
  SetGlobal("BodhiRomanceTalkInit","LOCALS",1)
  IncrementGlobal("BodhiRomanceTalk","LOCALS",1)
  SetGlobalTimer("BodhiLoveTalksTimer","LOCALS",TWO_DAYS)		
  StartDialogueNoSet(Player1)
  SetGlobal("BodhiRomanceTalkInit","LOCALS",0)
 // Wait(2)
  RESPONSE #20
  SetGlobal("BodhiRomanceTalkInit","LOCALS",1)
  IncrementGlobal("BodhiRomanceTalk","LOCALS",1)
  SetGlobalTimer("BodhiLoveTalksTimer","LOCALS",ONE_DAY)			
  StartDialogueNoSet(Player1)
  SetGlobal("BodhiRomanceTalkInit","LOCALS",0)
 // Wait(2)
END
 
IF
RandomNumLT(100,10)
InParty(Myself)
See(Player1)
!See([ENEMY])
!AreaType(OUTDOOR)
Global("BodhiControlTalk","LOCALS",0)
RandomNumLT(1000,50)
THEN 
   RESPONSE #100
  SetGlobal("BodhiControlTalk","LOCALS",1)
  Wait(1)
  StartDialogueNoSet(Player1)
//  Wait(5)
 // SetGlobal("BodhiControlTalk","LOCALS",2)
END 
 

 
 
IF
  !InParty(Myself)
	//HPLT(Myself,10)
	Die()
THEN
	RESPONSE #100
		DropInventory()
		Kill(Myself)
			DestroySelf()
		CreateCreature("GASFORM4",[-1.-1],S)
		ActionOverride("GASFORM4",EscapeArea())
		// SetGlobalTimer("VampireResurrectTimer","LOCALS",FOUR_HOURS)
		//ReallyForceSpellDead(Myself,VAMPIRE_BAT_FORM_CHANGE)
END

IF
!InParty(Myself)
	!HasItemEquiped("ohhcloak",Myself) // Cloak of Dragomir
	!HasItemEquiped("ohhkork",Myself) // Korkorran
	TimeGT(5)
	TimeLT(DUSK_END)
	AreaType(OUTDOOR)
THEN
	RESPONSE #100
		//DropInventory()
		Kill(Myself)
			DestroySelf()
		CreateCreature("GASFORM4",[-1.-1],S)
		ActionOverride("GASFORM4",EscapeArea())
END


IF
!InParty(Myself)
	AttackedBy([GOODCUTOFF],DEFAULT)
	Allegiance(Myself,NEUTRAL)
THEN
	RESPONSE #100
		Enemy()
END

IF
!InParty(Myself)
	See(NearestEnemyOf(Myself))
THEN
	RESPONSE #100
		AttackReevaluate(NearestEnemyOf(Myself),30)
END

IF
!InParty(Myself)
	AttackedBy([ANYONE],DEFAULT)
THEN
	RESPONSE #100
		Attack(LastAttackerOf(Myself))
END




IF 
AreaCheck("AR2900")
	Global("BodhiTalksHell","LOCALS",0)
	See(Player1)
THEN
	RESPONSE #100
	SetGlobal("BodhiTalksHell","LOCALS",1)
	StartDialogueNoSet(Player1)
END

IF 
AreaCheck("AR4000")
!See([ENEMY])
	Global("BodhiTalksAboutSoul","LOCALS",0)
	See(Player1)
THEN
	RESPONSE #100
	SetGlobal("BodhiTalksAboutSoul","LOCALS",1)
	StartDialogueNoSet(Player1)
END

IF 
   GlobalGT("BeginChallenge4","GLOBAL",0)
   !See([ENEMY])
   AreaCheck("AR4500")
   Global("FinalPartTalk","LOCALS",0)
THEN
  RESPONSE #100
  SetGlobal("FinalPartTalk","LOCALS",1)
		StartDialogueNoSet(Player1)
END



IF 
   Global("ChallengesDone","GLOBAL",1)
   !See([ENEMY])
   AreaCheck("AR4500")
   Global("FinalLoveTalk","LOCALS",0)
THEN
  RESPONSE #100
  SetGlobal("FinalLoveTalk","LOCALS",1)
		StartDialogueNoSet(Player1)
END


IF 
   !See([ENEMY])
   AreaCheck("AR4500")
   GlobalGT("BeginChallenge1","GLOBAL",1)
   Global("BodhiTalksAboutImoenSoul","LOCALS",0)
   Global("BodhiHaveImoenSoul","GLOBAL",1)
THEN
  RESPONSE #100
	SetGlobal("BodhiTalksAboutImoenSoul","LOCALS",1)
		ActionOverride(Myself,AddSpecialAbility("SPIN823")) // Slayer Form
		ActionOverride(Myself,AddSpecialAbility("SPIN150")) // Human Form

		StartDialogueNoSet(Player1)
END


IF 
!See([ENEMY])
  Global("BodhiTalksAboutMallaSoul","LOCALS",0)
   Global("BodhiTalkOnMallaSoul","LOCALS",0)
  Global("BodhiPromisedSoul","LOCALS",1)
  PartyHasItem("AMSOUL01")
  !AreaType(OUTDOOR)
THEN
	RESPONSE #100
	SetGlobal("BodhiTalksAboutMallaSoul","LOCALS",1)
	StartDialogueNoSet(Player1)
END

  
IF 
AreaCheck("AR2806")
	Global("BodhiTalkOnJon","LOCALS",0)
	Global("BodhiKilledSuelle","LOCALS",1)
	See(Player1)
	See("SUJON2")
THEN
	RESPONSE #100
	SetGlobal("BodhiTalkOnJon","LOCALS",1)
	StartDialogueNoSet(Player1)
END

//JonInterrupted
IF 
AreaCheck("AR2806")
	GlobalTimerExpired("JonInterrupted","GLOBAL")
	See(Player1)
	See("SUJON2")
	OR(2)
	Global("BodhiTalkOnJon","LOCALS",2)
	Global("BodhiTalkOnJon","LOCALS",3)	
	Global("BodhiProvokedJon","LOCALS",0)
THEN
	RESPONSE #100
	SetGlobal("BodhiProvokedJon","LOCALS",1)
	StartDialogueNoSet(Player1)
END

IF 
AreaCheck("AR2806")
	Global("BodhiTalkOnEllesime","LOCALS",0)
	See(Player1)
	See("SUJON2")
    See("SUELLE")
THEN
	RESPONSE #100
	SetGlobal("BodhiTalkOnEllesime","LOCALS",1)
		StartDialogueNoSet(Player1)
END



IF 
AreaCheck("AR2800")
	Global("BodhiTalkOnPalace","LOCALS",0)
	See(Player1)
	See("door02")

THEN
	RESPONSE #100
	SetGlobal("BodhiTalkOnPalace","LOCALS",1)
		StartDialogueNoSet(Player1)
END

IF 
AreaCheck("AR2800")
	Global("BodhiTalkOnPalace2","LOCALS",0)
	See(Player1)
		See("gate02")
THEN
	RESPONSE #100
	SetGlobal("BodhiTalkOnPalace2","LOCALS",1)
		StartDialogueNoSet(Player1)
END

IF 
AreaCheck("AR2500")
	Global("BodhiTalkOnElves","LOCALS",0)
	See(Player1)
THEN
	RESPONSE #100
	SetGlobal("BodhiTalkOnElves","LOCALS",1)
		StartDialogueNoSet(Player1)
END

IF
OR(2)
AreaCheck("AR2800")
AreaCheck("AR2500")
  See([ANYONE])
  !InParty(LastSeenBy(Myself))
  THEN
RESPONSE #100
  ActionOverride(LastSeenBy(Myself),DestroyItem("MINHP1"))
    ActionOverride(LastSeenBy(Myself),Enemy())
END
	


IF
	AreaCheck("AR2600")
	PartyHasItem("c6lantho")
	Global("BodhiTalkOnTree","LOCALS",0)	
	See(Player1)
	  See("Door01")
THEN
	RESPONSE #100
	SetGlobal("BodhiTalkOnTree","LOCALS",1)
		StartDialogueNoSet(Player1)
END


IF
	AreaCheck("AR2600")
	PartyHasItem("c6lantho")
	Global("BodhiTalkOnTree","LOCALS",0)	
	See(Player1)
	 // See("Door01")
THEN
	RESPONSE #100
	SetGlobal("BodhiTalkOnTree","LOCALS",1)
		StartDialogueNoSet(Player1)
END

