IF
AreaCheck("AR0808")
See(Player1)
Global("FeastStarted","GLOBAL",2)
Delay(2)
Global("FeastShown","GLOBAL",0)
THEN
	RESPONSE #100
        SetGlobal("FeastShown","GLOBAL",1)
//		ClearAllActions()
//		StartCutSceneMode()		
		StartCutScene("cutbst4")
END

IF
  Name("VVFOOD01",Myself)
  OR(2)
  StateCheck(Myself,STATE_CHARMED)
  SpellCastOnMe([PC],VAMPIRE_DOMINATION)
  Global("MovedToCrypt","LOCALS",0)
THEN 
  RESPONSE #100
  SetGlobal("AcquiredFood01","GLOBAL",1)  
  SetGlobal("MovedToCrypt","LOCALS",1)
  RunAwayFromNoInterrupt(Player1,40)
   ChangeStat(Player1,XP,1000,ADD)
   ChangeStat(Player2,XP,1000,ADD)
   ChangeStat(Player3,XP,1000,ADD)
   ChangeStat(Player4,XP,1000,ADD)
   ChangeStat(Player5,XP,1000,ADD)
   ChangeStat(Player6,XP,1000,ADD)
  MakeGlobal()
   MoveBetweenAreas("AR0808",[2680.642],W)
END

IF
  Name("VVFOOD02",Myself)
  OR(2)
  StateCheck(Myself,STATE_CHARMED)
  SpellCastOnMe([PC],VAMPIRE_DOMINATION)
  Global("MovedToCrypt","LOCALS",0)
THEN 
  RESPONSE #100
  SetGlobal("AcquiredFood02","GLOBAL",1)  
  SetGlobal("MovedToCrypt","LOCALS",1)
  RunAwayFromNoInterrupt(Player1,40)
   ChangeStat(Player1,XP,1000,ADD)
   ChangeStat(Player2,XP,1000,ADD)
   ChangeStat(Player3,XP,1000,ADD)
   ChangeStat(Player4,XP,1000,ADD)
   ChangeStat(Player5,XP,1000,ADD)
   ChangeStat(Player6,XP,1000,ADD)
  MakeGlobal()
   MoveBetweenAreas("AR0808",[2655.601],W)
END

IF
  Name("VVFOOD03",Myself)
  OR(2)
  StateCheck(Myself,STATE_CHARMED)
  SpellCastOnMe([PC],VAMPIRE_DOMINATION)
  Global("MovedToCrypt","LOCALS",0)
THEN 
  RESPONSE #100
  SetGlobal("AcquiredFood03","GLOBAL",1)  
  SetGlobal("MovedToCrypt","LOCALS",1)
  RunAwayFromNoInterrupt(Player1,40)
   ChangeStat(Player1,XP,1000,ADD)
   ChangeStat(Player2,XP,1000,ADD)
   ChangeStat(Player3,XP,1000,ADD)
   ChangeStat(Player4,XP,1000,ADD)
   ChangeStat(Player5,XP,1000,ADD)
   ChangeStat(Player6,XP,1000,ADD)
  MakeGlobal()
   MoveBetweenAreas("AR0808",[2634.565],W)
END

IF
  Name("VVFOOD04",Myself)
  OR(2)
  StateCheck(Myself,STATE_CHARMED)
  SpellCastOnMe([PC],VAMPIRE_DOMINATION)
  Global("MovedToCrypt","LOCALS",0)
THEN 
  RESPONSE #100
  SetGlobal("AcquiredFood04","GLOBAL",1)  
  SetGlobal("MovedToCrypt","LOCALS",1)
  RunAwayFromNoInterrupt(Player1,40)
   ChangeStat(Player1,XP,1000,ADD)
   ChangeStat(Player2,XP,1000,ADD)
   ChangeStat(Player3,XP,1000,ADD)
   ChangeStat(Player4,XP,1000,ADD)
   ChangeStat(Player5,XP,1000,ADD)
   ChangeStat(Player6,XP,1000,ADD)
  MakeGlobal()
   MoveBetweenAreas("AR0808",[2614.528],W)
END

IF
  Name("VVFOOD05",Myself)
  OR(2)
  StateCheck(Myself,STATE_CHARMED)
  SpellCastOnMe([PC],VAMPIRE_DOMINATION)
  Global("MovedToCrypt","LOCALS",0)
THEN 
  RESPONSE #100
  SetGlobal("AcquiredFood05","GLOBAL",1)    
  SetGlobal("MovedToCrypt","LOCALS",1)
  RunAwayFromNoInterrupt(Player1,40)
   ChangeStat(Player1,XP,1000,ADD)
   ChangeStat(Player2,XP,1000,ADD)
   ChangeStat(Player3,XP,1000,ADD)
   ChangeStat(Player4,XP,1000,ADD)
   ChangeStat(Player5,XP,1000,ADD)
   ChangeStat(Player6,XP,1000,ADD)
  MakeGlobal()
   MoveBetweenAreas("AR0808",[2615.493],W)
END

IF
  Name("VVFOOD06",Myself)
  OR(2)
  StateCheck(Myself,STATE_CHARMED)
  SpellCastOnMe([PC],VAMPIRE_DOMINATION)
  Global("MovedToCrypt","LOCALS",0)
THEN 
  RESPONSE #100
  SetGlobal("AcquiredFood06","GLOBAL",1)  
  SetGlobal("MovedToCrypt","LOCALS",1)
  RunAwayFromNoInterrupt(Player1,40)
   ChangeStat(Player1,XP,1000,ADD)
   ChangeStat(Player2,XP,1000,ADD)
   ChangeStat(Player3,XP,1000,ADD)
   ChangeStat(Player4,XP,1000,ADD)
   ChangeStat(Player5,XP,1000,ADD)
   ChangeStat(Player6,XP,1000,ADD)
   MakeGlobal()
  MoveBetweenAreas("AR0808",[2640.466],W)
END

IF
  Name("VVFOOD07",Myself)
  OR(2)
  StateCheck(Myself,STATE_CHARMED)
  SpellCastOnMe([PC],VAMPIRE_DOMINATION)
  Global("MovedToCrypt","LOCALS",0)
THEN 
  RESPONSE #100
  SetGlobal("AcquiredFood07","GLOBAL",1)  
  SetGlobal("MovedToCrypt","LOCALS",1)
  RunAwayFromNoInterrupt(Player1,40)
   ChangeStat(Player1,XP,1000,ADD)
   ChangeStat(Player2,XP,1000,ADD)
   ChangeStat(Player3,XP,1000,ADD)
   ChangeStat(Player4,XP,1000,ADD)
   ChangeStat(Player5,XP,1000,ADD)
   ChangeStat(Player6,XP,1000,ADD)
   MakeGlobal()
  MoveBetweenAreas("AR0808",[2677.448],W)
END

IF
  Name("VVFOOD08",Myself)
  OR(2)
  StateCheck(Myself,STATE_CHARMED)
  SpellCastOnMe([PC],VAMPIRE_DOMINATION)
  Global("MovedToCrypt","LOCALS",0)
THEN 
  RESPONSE #100
  SetGlobal("AcquiredFood08","GLOBAL",1)  
  SetGlobal("MovedToCrypt","LOCALS",1)
  RunAwayFromNoInterrupt(Player1,40)
   ChangeStat(Player1,XP,1000,ADD)
   ChangeStat(Player2,XP,1000,ADD)
   ChangeStat(Player3,XP,1000,ADD)
   ChangeStat(Player4,XP,1000,ADD)
   ChangeStat(Player5,XP,1000,ADD)
   ChangeStat(Player6,XP,1000,ADD)
   MakeGlobal()
  MoveBetweenAreas("AR0808",[2714.430],W)
END

IF
  Name("VVFOOD09",Myself)
  OR(2)
  StateCheck(Myself,STATE_CHARMED)
  SpellCastOnMe([PC],VAMPIRE_DOMINATION)
  Global("MovedToCrypt","LOCALS",0)
THEN 
  RESPONSE #100
  SetGlobal("AcquiredFood09","GLOBAL",1)  
  SetGlobal("MovedToCrypt","LOCALS",1)
  RunAwayFromNoInterrupt(Player1,40)
   ChangeStat(Player1,XP,1000,ADD)
   ChangeStat(Player2,XP,1000,ADD)
   ChangeStat(Player3,XP,1000,ADD)
   ChangeStat(Player4,XP,1000,ADD)
   ChangeStat(Player5,XP,1000,ADD)
   ChangeStat(Player6,XP,1000,ADD)
  MakeGlobal()
   MoveBetweenAreas("AR0808",[2750.418],W)
END

IF
  Name("VVFOOD10",Myself)
  OR(2)
  StateCheck(Myself,STATE_CHARMED)
  SpellCastOnMe([PC],VAMPIRE_DOMINATION)
  Global("MovedToCrypt","LOCALS",0)
THEN 
  RESPONSE #100
  SetGlobal("AcquiredFood10","GLOBAL",1)  
  SetGlobal("MovedToCrypt","LOCALS",1)
  RunAwayFromNoInterrupt(Player1,40)
   ChangeStat(Player1,XP,1000,ADD)
   ChangeStat(Player2,XP,1000,ADD)
   ChangeStat(Player3,XP,1000,ADD)
   ChangeStat(Player4,XP,1000,ADD)
   ChangeStat(Player5,XP,1000,ADD)
   ChangeStat(Player6,XP,1000,ADD)
  MakeGlobal()
   MoveBetweenAreas("AR0808",[2782.398],W)
END

IF
  Name("VVFOOD11",Myself)
  OR(2)
  StateCheck(Myself,STATE_CHARMED)
  SpellCastOnMe([PC],VAMPIRE_DOMINATION)
  Global("MovedToCrypt","LOCALS",0)
THEN 
  RESPONSE #100
  SetGlobal("AcquiredFood11","GLOBAL",1)  
  SetGlobal("MovedToCrypt","LOCALS",1)
  RunAwayFromNoInterrupt(Player1,40)
   ChangeStat(Player1,XP,1000,ADD)
   ChangeStat(Player2,XP,1000,ADD)
   ChangeStat(Player3,XP,1000,ADD)
   ChangeStat(Player4,XP,1000,ADD)
   ChangeStat(Player5,XP,1000,ADD)
   ChangeStat(Player6,XP,1000,ADD)
  MakeGlobal()
   MoveBetweenAreas("AR0808",[2817.387],W)
END

IF
  Name("VVFOOD12",Myself)
  OR(2)
  StateCheck(Myself,STATE_CHARMED)
  SpellCastOnMe([PC],VAMPIRE_DOMINATION)
  Global("MovedToCrypt","LOCALS",0)
THEN 
  RESPONSE #100
  SetGlobal("AcquiredFood12","GLOBAL",1)  
  SetGlobal("MovedToCrypt","LOCALS",1)
  RunAwayFromNoInterrupt(Player1,40)
   ChangeStat(Player1,XP,1000,ADD)
   ChangeStat(Player2,XP,1000,ADD)
   ChangeStat(Player3,XP,1000,ADD)
   ChangeStat(Player4,XP,1000,ADD)
   ChangeStat(Player5,XP,1000,ADD)
   ChangeStat(Player6,XP,1000,ADD)
  MakeGlobal()
   MoveBetweenAreas("AR0808",[2725.690],W)
END



IF 
  !AreaCheck("AR0808")
 // Global("BodhiStronghold","GLOBAL",2)
//Global("FeastStarted","GLOBAL",1)
THEN
	RESPONSE #40
		SetGlobalTimer("BD_Move","LOCALS",ONE_ROUND)
		RandomWalk()
	RESPONSE #40
		SetGlobalTimer("BD_Move","LOCALS",ONE_ROUND)
		RandomTurn()
	RESPONSE #20
		SetGlobalTimer("BD_Move","LOCALS",ONE_ROUND)
		NoAction()
END

IF 
  AreaCheck("AR0808")
  Global("BodhiStronghold","GLOBAL",2)
  Global("FeastStarted","GLOBAL",3)
    Global("FeastStartedTrigger","LOCALS",0)
THEN
	RESPONSE #100
    SetGlobal("FeastStartedTrigger","LOCALS",1)
	Enemy()
END

IF 
  AreaCheck("AR0808")
  Global("BodhiStronghold","GLOBAL",2)
  !Global("FeastStarted","GLOBAL",3)
  !Allegiance(Myself,NEUTRAL)
THEN
	RESPONSE #100
    ChangeEnemyAlly(Myself,NEUTRAL)
END




