IF 
  Global("VampiresWeak","DSC009",1)
THEN 
  RESPONSE #100
  SetGlobal("Coffin1","DSC009",0)
  SetGlobal("Coffin2","DSC009",0)
END






IF 
  Global("Entered","DSC009",0)
THEN 
  RESPONSE #100
   SetGlobal("Entered","DSC009",1)
  CreateVisualEffect("spfleshs",[440.438])  
  CreateVisualEffect("spfleshs",[340.390])
  CreateCreature("dsclars",[440.438],S)
  CreateCreature("dsvampm",[340.390],S)
ApplySpell("clairis",RESTORE_FULL_HEALTH)

ApplySpell("lordvamp",RESTORE_FULL_HEALTH)
      ActionOverride("lordvamp",DestroyItem("DSMISC07"))
    ActionOverride("lordvamp",SetDialog("LORDVAMP"))
	  ActionOverride("clairis",SetDialog("CLAIRIS"))
	      ActionOverride("lordvamp",ChangeAIScript("LORDVAMP",OVERRIDE))
	  ActionOverride("clairis",ChangeAIScript("CLAIRIS",OVERRIDE))
	  	  ActionOverride("clairis",ChangeAIScript("",DEFAULT))

  SetGlobal("Coffin1","DSC009",3)
  SetGlobal("Coffin2","DSC009",3)
END



IF
Global("VampireStronghold","GLOBAL",1)
Global("EncoutersNulled","DSC009",0)
THEN
RESPONSE #100
SetRestEncounterProbabilityDay(0)
SetRestEncounterProbabilityNight(0)
SetGlobal("EncoutersNulled","DSC009",1)
END





IF True()
THEN
RESPONSE #100
RemoveAreaType(OUTDOOR)
AddAreaType(DUNGEON)
END
























