IF
	GlobalGT("DMWWBeholderStealTarget","GLOBAL",0)
	!GlobalTimerNotExpired("DMWWBeholderStealTimer","GLOBAL")
	HasItem("wa2shiel",Player1) // Shield of Balduran +3
THEN
	RESPONSE #100
		ActionOverride(Player1,GiveItem("wa2shiel",[0.0.BEHOLDER])) // Shield of Balduran +3
		DisplayString(Player1,323577) // The beholder has used its telekinesis power to snatch the Shield of Balduran from your arm
		SetGlobal("DMWWBeholderStealTarget","GLOBAL",0)
END

IF
	GlobalGT("DMWWBeholderStealTarget","GLOBAL",0)
	!GlobalTimerNotExpired("DMWWBeholderStealTimer","GLOBAL")
	HasItem("clck26",Player1) // Cloak of Cheesing
THEN
	RESPONSE #100
		ActionOverride(Player1,GiveItem("clck26",[0.0.BEHOLDER])) // Cloak of Cheesing
		DisplayString(Player1,323578) // The beholder has used its telekinesis power to snatch the Cloak of Mirroring from your shoulders
		SetGlobal("DMWWBeholderStealTarget","GLOBAL",0)
END

IF
	GlobalGT("DMWWBeholderStealTarget","GLOBAL",0)
	!GlobalTimerNotExpired("DMWWBeholderStealTimer","GLOBAL")
	HasItem("wa2shiel",Player2) // Shield of Balduran +3
THEN
	RESPONSE #100
		ActionOverride(Player2,GiveItem("wa2shiel",[0.0.BEHOLDER])) // Shield of Balduran +3
		DisplayString(Player2,323577) // The beholder has used its telekinesis power to snatch the Shield of Balduran from your arm
		SetGlobal("DMWWBeholderStealTarget","GLOBAL",0)
END

IF
	GlobalGT("DMWWBeholderStealTarget","GLOBAL",0)
	!GlobalTimerNotExpired("DMWWBeholderStealTimer","GLOBAL")
	HasItem("clck26",Player2) // Cloak of Cheesing
THEN
	RESPONSE #100
		ActionOverride(Player2,GiveItem("clck26",[0.0.BEHOLDER])) // Cloak of Cheesing
		DisplayString(Player2,323578) // The beholder has used its telekinesis power to snatch the Cloak of Mirroring from your shoulders
		SetGlobal("DMWWBeholderStealTarget","GLOBAL",0)
END

IF
	GlobalGT("DMWWBeholderStealTarget","GLOBAL",0)
	!GlobalTimerNotExpired("DMWWBeholderStealTimer","GLOBAL")
	HasItem("wa2shiel",Player3) // Shield of Balduran +3
THEN
	RESPONSE #100
		ActionOverride(Player3,GiveItem("wa2shiel",[0.0.BEHOLDER])) // Shield of Balduran +3
		DisplayString(Player3,323577) // The beholder has used its telekinesis power to snatch the Shield of Balduran from your arm
		SetGlobal("DMWWBeholderStealTarget","GLOBAL",0)
END

IF
	GlobalGT("DMWWBeholderStealTarget","GLOBAL",0)
	!GlobalTimerNotExpired("DMWWBeholderStealTimer","GLOBAL")
	HasItem("clck26",Player3) // Cloak of Cheesing
THEN
	RESPONSE #100
		ActionOverride(Player3,GiveItem("clck26",[0.0.BEHOLDER])) // Cloak of Cheesing
		DisplayString(Player3,323578) // The beholder has used its telekinesis power to snatch the Cloak of Mirroring from your shoulders
		SetGlobal("DMWWBeholderStealTarget","GLOBAL",0)
END

IF
	GlobalGT("DMWWBeholderStealTarget","GLOBAL",0)
	!GlobalTimerNotExpired("DMWWBeholderStealTimer","GLOBAL")
	HasItem("wa2shiel",Player4) // Shield of Balduran +3
THEN
	RESPONSE #100
		ActionOverride(Player4,GiveItem("wa2shiel",[0.0.BEHOLDER])) // Shield of Balduran +3
		DisplayString(Player4,323577) // The beholder has used its telekinesis power to snatch the Shield of Balduran from your arm
		SetGlobal("DMWWBeholderStealTarget","GLOBAL",0)
END

IF
	GlobalGT("DMWWBeholderStealTarget","GLOBAL",0)
	!GlobalTimerNotExpired("DMWWBeholderStealTimer","GLOBAL")
	HasItem("clck26",Player4) // Cloak of Cheesing
THEN
	RESPONSE #100
		ActionOverride(Player4,GiveItem("clck26",[0.0.BEHOLDER])) // Cloak of Cheesing
		DisplayString(Player4,323578) // The beholder has used its telekinesis power to snatch the Cloak of Mirroring from your shoulders
		SetGlobal("DMWWBeholderStealTarget","GLOBAL",0)
END

IF
	GlobalGT("DMWWBeholderStealTarget","GLOBAL",0)
	!GlobalTimerNotExpired("DMWWBeholderStealTimer","GLOBAL")
	HasItem("wa2shiel",Player5) // Shield of Balduran +3
THEN
	RESPONSE #100
		ActionOverride(Player5,GiveItem("wa2shiel",[0.0.BEHOLDER])) // Shield of Balduran +3
		DisplayString(Player5,323577) // The beholder has used its telekinesis power to snatch the Shield of Balduran from your arm
		SetGlobal("DMWWBeholderStealTarget","GLOBAL",0)
END

IF
	GlobalGT("DMWWBeholderStealTarget","GLOBAL",0)
	!GlobalTimerNotExpired("DMWWBeholderStealTimer","GLOBAL")
	HasItem("clck26",Player5) // Cloak of Cheesing
THEN
	RESPONSE #100
		ActionOverride(Player5,GiveItem("clck26",[0.0.BEHOLDER])) // Cloak of Cheesing
		DisplayString(Player5,323578) // The beholder has used its telekinesis power to snatch the Cloak of Mirroring from your shoulders
		SetGlobal("DMWWBeholderStealTarget","GLOBAL",0)
END

IF
	GlobalGT("DMWWBeholderStealTarget","GLOBAL",0)
	!GlobalTimerNotExpired("DMWWBeholderStealTimer","GLOBAL")
	HasItem("wa2shiel",Player6) // Shield of Balduran +3
THEN
	RESPONSE #100
		ActionOverride(Player6,GiveItem("wa2shiel",[0.0.BEHOLDER])) // Shield of Balduran +3
		DisplayString(Player6,323577) // The beholder has used its telekinesis power to snatch the Shield of Balduran from your arm
		SetGlobal("DMWWBeholderStealTarget","GLOBAL",0)
END

IF
	GlobalGT("DMWWBeholderStealTarget","GLOBAL",0)
	!GlobalTimerNotExpired("DMWWBeholderStealTimer","GLOBAL")
	HasItem("clck26",Player6) // Cloak of Cheesing
THEN
	RESPONSE #100
		ActionOverride(Player6,GiveItem("clck26",[0.0.BEHOLDER])) // Cloak of Cheesing
		DisplayString(Player6,323578) // The beholder has used its telekinesis power to snatch the Cloak of Mirroring from your shoulders
		SetGlobal("DMWWBeholderStealTarget","GLOBAL",0)
END

IF
	Global("tb#impricheat","global",1)
	Global("tb#impri","global",1)
	CombatCounterLT(1)
THEN
	RESPONSE #100
		SetGlobalTimer("tb#impri_timer","global",FOUR_ROUNDS)
		SetGlobal("tb#impri","global",2)
END

IF
	Global("tb#impri","global",1)
	GlobalTimerNotExpired("tb#impri_timer","global")
	CombatCounterGT(0)
	Global("tb#impri","global",2)
THEN
	RESPONSE #100
		SetGlobal("tb#impri","global",1)
END

IF
	Global("tb#impricheat","global",1)
	GlobalTimerExpired("tb#impri_timer","global")
	Global("tb#impri","global",2)
	CombatCounterLT(1)
THEN
	RESPONSE #100
		SetGlobal("tb#impri","global",0)
		ActionOverride(Player1,ReallyForceSpellRES("spwi917",Myself)) // Freedom
		ActionOverride(Player2,ReallyForceSpellRES("spwi917",Myself)) // Freedom
		ActionOverride(Player3,ReallyForceSpellRES("spwi917",Myself)) // Freedom
		ActionOverride(Player4,ReallyForceSpellRES("spwi917",Myself)) // Freedom
		ActionOverride(Player5,ReallyForceSpellRES("spwi917",Myself)) // Freedom
		ActionOverride(Player6,ReallyForceSpellRES("spwi917",Myself)) // Freedom
END

IF
	FallenPaladin(Player1)
	Global("LIPalFal","GLOBAL",0)
THEN
	RESPONSE #100
		ApplySpellRES("LI#FLPA",Player1) // <NO TEXT>
		SetGlobal("LIPalFal","GLOBAL",1)
END

IF
	Kit(Player6,trueres)
	Class(Player6,MAGE)
THEN
	RESPONSE #100
		ActionOverride(Player6,AddKit(truerestF))
END

IF
	OR(2)
		Kit(Player6,trueres)
		Kit(Player6,truerestF)
	Class(Player6,MAGE_THIEF)
THEN
	RESPONSE #100
		ActionOverride(Player6,AddKit(truerestw))
END

IF
	Kit(Player5,trueres)
	Class(Player5,MAGE)
THEN
	RESPONSE #100
		ActionOverride(Player5,AddKit(truerestF))
END

IF
	OR(2)
		Kit(Player5,trueres)
		Kit(Player5,truerestF)
	Class(Player5,MAGE_THIEF)
THEN
	RESPONSE #100
		ActionOverride(Player5,AddKit(truerestw))
END

IF
	Kit(Player4,trueres)
	Class(Player4,MAGE)
THEN
	RESPONSE #100
		ActionOverride(Player4,AddKit(truerestF))
END

IF
	OR(2)
		Kit(Player4,trueres)
		Kit(Player4,truerestF)
	Class(Player4,MAGE_THIEF)
THEN
	RESPONSE #100
		ActionOverride(Player4,AddKit(truerestw))
END

IF
	Kit(Player3,trueres)
	Class(Player3,MAGE)
THEN
	RESPONSE #100
		ActionOverride(Player3,AddKit(truerestF))
END

IF
	OR(2)
		Kit(Player3,trueres)
		Kit(Player3,truerestF)
	Class(Player3,MAGE_THIEF)
THEN
	RESPONSE #100
		ActionOverride(Player3,AddKit(truerestw))
END

IF
	Kit(Player2,trueres)
	Class(Player2,MAGE)
THEN
	RESPONSE #100
		ActionOverride(Player2,AddKit(truerestF))
END

IF
	OR(2)
		Kit(Player2,trueres)
		Kit(Player2,truerestF)
	Class(Player2,MAGE_THIEF)
THEN
	RESPONSE #100
		ActionOverride(Player2,AddKit(truerestw))
END

IF
	Kit(Player1,trueres)
	Class(Player1,MAGE)
THEN
	RESPONSE #100
		ActionOverride(Player1,AddKit(truerestF))
END

IF
	OR(2)
		Kit(Player1,trueres)
		Kit(Player1,truerestF)
	Class(Player1,MAGE_THIEF)
THEN
	RESPONSE #100
		ActionOverride(Player1,AddKit(truerestw))
END

IF
	Kit(Player6,SeifHL)
	Class(Player6,MAGE)
THEN
	RESPONSE #100
		ActionOverride(Player6,AddKit(SeifHLtF))
END

IF
	OR(2)
		Kit(Player6,SeifHL)
		Kit(Player6,SeifHLtF)
	Class(Player6,FIGHTER_MAGE)
THEN
	RESPONSE #100
		ActionOverride(Player6,AddKit(SeifHLtw))
END

IF
	Kit(Player5,SeifHL)
	Class(Player5,MAGE)
THEN
	RESPONSE #100
		ActionOverride(Player5,AddKit(SeifHLtF))
END

IF
	OR(2)
		Kit(Player5,SeifHL)
		Kit(Player5,SeifHLtF)
	Class(Player5,FIGHTER_MAGE)
THEN
	RESPONSE #100
		ActionOverride(Player5,AddKit(SeifHLtw))
END

IF
	Kit(Player4,SeifHL)
	Class(Player4,MAGE)
THEN
	RESPONSE #100
		ActionOverride(Player4,AddKit(SeifHLtF))
END

IF
	OR(2)
		Kit(Player4,SeifHL)
		Kit(Player4,SeifHLtF)
	Class(Player4,FIGHTER_MAGE)
THEN
	RESPONSE #100
		ActionOverride(Player4,AddKit(SeifHLtw))
END

IF
	Kit(Player3,SeifHL)
	Class(Player3,MAGE)
THEN
	RESPONSE #100
		ActionOverride(Player3,AddKit(SeifHLtF))
END

IF
	OR(2)
		Kit(Player3,SeifHL)
		Kit(Player3,SeifHLtF)
	Class(Player3,FIGHTER_MAGE)
THEN
	RESPONSE #100
		ActionOverride(Player3,AddKit(SeifHLtw))
END

IF
	Kit(Player2,SeifHL)
	Class(Player2,MAGE)
THEN
	RESPONSE #100
		ActionOverride(Player2,AddKit(SeifHLtF))
END

IF
	OR(2)
		Kit(Player2,SeifHL)
		Kit(Player2,SeifHLtF)
	Class(Player2,FIGHTER_MAGE)
THEN
	RESPONSE #100
		ActionOverride(Player2,AddKit(SeifHLtw))
END

IF
	Kit(Player1,SeifHL)
	Class(Player1,MAGE)
THEN
	RESPONSE #100
		ActionOverride(Player1,AddKit(SeifHLtF))
END

IF
	OR(2)
		Kit(Player1,SeifHL)
		Kit(Player1,SeifHLtF)
	Class(Player1,FIGHTER_MAGE)
THEN
	RESPONSE #100
		ActionOverride(Player1,AddKit(SeifHLtw))
END

IF
	Kit(Player6,BKTOUCH)
	Class(Player6,MAGE)
THEN
	RESPONSE #100
		ActionOverride(Player6,AddKit(BKTOUCHtF))
END

IF
	OR(2)
		Kit(Player6,BKTOUCH)
		Kit(Player6,BKTOUCHtF)
	Class(Player6,FIGHTER_MAGE)
THEN
	RESPONSE #100
		ActionOverride(Player6,AddKit(BKTOUCHtw))
END

IF
	Kit(Player5,BKTOUCH)
	Class(Player5,MAGE)
THEN
	RESPONSE #100
		ActionOverride(Player5,AddKit(BKTOUCHtF))
END

IF
	OR(2)
		Kit(Player5,BKTOUCH)
		Kit(Player5,BKTOUCHtF)
	Class(Player5,FIGHTER_MAGE)
THEN
	RESPONSE #100
		ActionOverride(Player5,AddKit(BKTOUCHtw))
END

IF
	Kit(Player4,BKTOUCH)
	Class(Player4,MAGE)
THEN
	RESPONSE #100
		ActionOverride(Player4,AddKit(BKTOUCHtF))
END

IF
	OR(2)
		Kit(Player4,BKTOUCH)
		Kit(Player4,BKTOUCHtF)
	Class(Player4,FIGHTER_MAGE)
THEN
	RESPONSE #100
		ActionOverride(Player4,AddKit(BKTOUCHtw))
END

IF
	Kit(Player3,BKTOUCH)
	Class(Player3,MAGE)
THEN
	RESPONSE #100
		ActionOverride(Player3,AddKit(BKTOUCHtF))
END

IF
	OR(2)
		Kit(Player3,BKTOUCH)
		Kit(Player3,BKTOUCHtF)
	Class(Player3,FIGHTER_MAGE)
THEN
	RESPONSE #100
		ActionOverride(Player3,AddKit(BKTOUCHtw))
END

IF
	Kit(Player2,BKTOUCH)
	Class(Player2,MAGE)
THEN
	RESPONSE #100
		ActionOverride(Player2,AddKit(BKTOUCHtF))
END

IF
	OR(2)
		Kit(Player2,BKTOUCH)
		Kit(Player2,BKTOUCHtF)
	Class(Player2,FIGHTER_MAGE)
THEN
	RESPONSE #100
		ActionOverride(Player2,AddKit(BKTOUCHtw))
END

IF
	Kit(Player1,BKTOUCH)
	Class(Player1,MAGE)
THEN
	RESPONSE #100
		ActionOverride(Player1,AddKit(BKTOUCHtF))
END

IF
	OR(2)
		Kit(Player1,BKTOUCH)
		Kit(Player1,BKTOUCHtF)
	Class(Player1,FIGHTER_MAGE)
THEN
	RESPONSE #100
		ActionOverride(Player1,AddKit(BKTOUCHtw))
END

IF
	Kit(Player6,StarHL)
	Class(Player6,MAGE)
THEN
	RESPONSE #100
		ActionOverride(Player6,AddKit(StarHLtF))
END

IF
	OR(2)
		Kit(Player6,StarHL)
		Kit(Player6,StarHLtF)
	Class(Player6,MAGE_THIEF)
THEN
	RESPONSE #100
		ActionOverride(Player6,AddKit(StarHLtw))
END

IF
	Kit(Player5,StarHL)
	Class(Player5,MAGE)
THEN
	RESPONSE #100
		ActionOverride(Player5,AddKit(StarHLtF))
END

IF
	OR(2)
		Kit(Player5,StarHL)
		Kit(Player5,StarHLtF)
	Class(Player5,MAGE_THIEF)
THEN
	RESPONSE #100
		ActionOverride(Player5,AddKit(StarHLtw))
END

IF
	Kit(Player4,StarHL)
	Class(Player4,MAGE)
THEN
	RESPONSE #100
		ActionOverride(Player4,AddKit(StarHLtF))
END

IF
	OR(2)
		Kit(Player4,StarHL)
		Kit(Player4,StarHLtF)
	Class(Player4,MAGE_THIEF)
THEN
	RESPONSE #100
		ActionOverride(Player4,AddKit(StarHLtw))
END

IF
	Kit(Player3,StarHL)
	Class(Player3,MAGE)
THEN
	RESPONSE #100
		ActionOverride(Player3,AddKit(StarHLtF))
END

IF
	OR(2)
		Kit(Player3,StarHL)
		Kit(Player3,StarHLtF)
	Class(Player3,MAGE_THIEF)
THEN
	RESPONSE #100
		ActionOverride(Player3,AddKit(StarHLtw))
END

IF
	Kit(Player2,StarHL)
	Class(Player2,MAGE)
THEN
	RESPONSE #100
		ActionOverride(Player2,AddKit(StarHLtF))
END

IF
	OR(2)
		Kit(Player2,StarHL)
		Kit(Player2,StarHLtF)
	Class(Player2,MAGE_THIEF)
THEN
	RESPONSE #100
		ActionOverride(Player2,AddKit(StarHLtw))
END

IF
	Kit(Player1,StarHL)
	Class(Player1,MAGE)
THEN
	RESPONSE #100
		ActionOverride(Player1,AddKit(StarHLtF))
END

IF
	OR(2)
		Kit(Player1,StarHL)
		Kit(Player1,StarHLtF)
	Class(Player1,MAGE_THIEF)
THEN
	RESPONSE #100
		ActionOverride(Player1,AddKit(StarHLtw))
END

IF
	Kit(Player6,PitFighter)
	Class(Player6,MAGE)
THEN
	RESPONSE #100
		ActionOverride(Player6,AddKit(PitFightertF))
END

IF
	OR(2)
		Kit(Player6,PitFighter)
		Kit(Player6,PitFightertF)
	Class(Player6,FIGHTER_MAGE)
THEN
	RESPONSE #100
		ActionOverride(Player6,AddKit(PitFightertw))
END

IF
	Kit(Player5,PitFighter)
	Class(Player5,MAGE)
THEN
	RESPONSE #100
		ActionOverride(Player5,AddKit(PitFightertF))
END

IF
	OR(2)
		Kit(Player5,PitFighter)
		Kit(Player5,PitFightertF)
	Class(Player5,FIGHTER_MAGE)
THEN
	RESPONSE #100
		ActionOverride(Player5,AddKit(PitFightertw))
END

IF
	Kit(Player4,PitFighter)
	Class(Player4,MAGE)
THEN
	RESPONSE #100
		ActionOverride(Player4,AddKit(PitFightertF))
END

IF
	OR(2)
		Kit(Player4,PitFighter)
		Kit(Player4,PitFightertF)
	Class(Player4,FIGHTER_MAGE)
THEN
	RESPONSE #100
		ActionOverride(Player4,AddKit(PitFightertw))
END

IF
	Kit(Player3,PitFighter)
	Class(Player3,MAGE)
THEN
	RESPONSE #100
		ActionOverride(Player3,AddKit(PitFightertF))
END

IF
	OR(2)
		Kit(Player3,PitFighter)
		Kit(Player3,PitFightertF)
	Class(Player3,FIGHTER_MAGE)
THEN
	RESPONSE #100
		ActionOverride(Player3,AddKit(PitFightertw))
END

IF
	Kit(Player2,PitFighter)
	Class(Player2,MAGE)
THEN
	RESPONSE #100
		ActionOverride(Player2,AddKit(PitFightertF))
END

IF
	OR(2)
		Kit(Player2,PitFighter)
		Kit(Player2,PitFightertF)
	Class(Player2,FIGHTER_MAGE)
THEN
	RESPONSE #100
		ActionOverride(Player2,AddKit(PitFightertw))
END

IF
	Kit(Player1,PitFighter)
	Class(Player1,MAGE)
THEN
	RESPONSE #100
		ActionOverride(Player1,AddKit(PitFightertF))
END

IF
	OR(2)
		Kit(Player1,PitFighter)
		Kit(Player1,PitFightertF)
	Class(Player1,FIGHTER_MAGE)
THEN
	RESPONSE #100
		ActionOverride(Player1,AddKit(PitFightertw))
END

IF
	Kit(Player6,m#ambkit)
	Class(Player6,MAGE)
THEN
	RESPONSE #100
		ActionOverride(Player6,AddKit(m#ambkittF))
END

IF
	OR(2)
		Kit(Player6,m#ambkit)
		Kit(Player6,m#ambkittF)
	Class(Player6,FIGHTER_MAGE)
THEN
	RESPONSE #100
		ActionOverride(Player6,AddKit(m#ambkittw))
END

IF
	Kit(Player5,m#ambkit)
	Class(Player5,MAGE)
THEN
	RESPONSE #100
		ActionOverride(Player5,AddKit(m#ambkittF))
END

IF
	OR(2)
		Kit(Player5,m#ambkit)
		Kit(Player5,m#ambkittF)
	Class(Player5,FIGHTER_MAGE)
THEN
	RESPONSE #100
		ActionOverride(Player5,AddKit(m#ambkittw))
END

IF
	Kit(Player4,m#ambkit)
	Class(Player4,MAGE)
THEN
	RESPONSE #100
		ActionOverride(Player4,AddKit(m#ambkittF))
END

IF
	OR(2)
		Kit(Player4,m#ambkit)
		Kit(Player4,m#ambkittF)
	Class(Player4,FIGHTER_MAGE)
THEN
	RESPONSE #100
		ActionOverride(Player4,AddKit(m#ambkittw))
END

IF
	Kit(Player3,m#ambkit)
	Class(Player3,MAGE)
THEN
	RESPONSE #100
		ActionOverride(Player3,AddKit(m#ambkittF))
END

IF
	OR(2)
		Kit(Player3,m#ambkit)
		Kit(Player3,m#ambkittF)
	Class(Player3,FIGHTER_MAGE)
THEN
	RESPONSE #100
		ActionOverride(Player3,AddKit(m#ambkittw))
END

IF
	Kit(Player2,m#ambkit)
	Class(Player2,MAGE)
THEN
	RESPONSE #100
		ActionOverride(Player2,AddKit(m#ambkittF))
END

IF
	OR(2)
		Kit(Player2,m#ambkit)
		Kit(Player2,m#ambkittF)
	Class(Player2,FIGHTER_MAGE)
THEN
	RESPONSE #100
		ActionOverride(Player2,AddKit(m#ambkittw))
END

IF
	Kit(Player1,m#ambkit)
	Class(Player1,MAGE)
THEN
	RESPONSE #100
		ActionOverride(Player1,AddKit(m#ambkittF))
END

IF
	OR(2)
		Kit(Player1,m#ambkit)
		Kit(Player1,m#ambkittF)
	Class(Player1,FIGHTER_MAGE)
THEN
	RESPONSE #100
		ActionOverride(Player1,AddKit(m#ambkittw))
END

IF
	Kit(Player6,A#GHAUN)
	Class(Player6,MAGE)
THEN
	RESPONSE #100
		ActionOverride(Player6,AddKit(A#GHAUNtF))
END

IF
	OR(2)
		Kit(Player6,A#GHAUN)
		Kit(Player6,A#GHAUNtF)
	Class(Player6,MAGE_THIEF)
THEN
	RESPONSE #100
		ActionOverride(Player6,AddKit(A#GHAUNtw))
END

IF
	Kit(Player5,A#GHAUN)
	Class(Player5,MAGE)
THEN
	RESPONSE #100
		ActionOverride(Player5,AddKit(A#GHAUNtF))
END

IF
	OR(2)
		Kit(Player5,A#GHAUN)
		Kit(Player5,A#GHAUNtF)
	Class(Player5,MAGE_THIEF)
THEN
	RESPONSE #100
		ActionOverride(Player5,AddKit(A#GHAUNtw))
END

IF
	Kit(Player4,A#GHAUN)
	Class(Player4,MAGE)
THEN
	RESPONSE #100
		ActionOverride(Player4,AddKit(A#GHAUNtF))
END

IF
	OR(2)
		Kit(Player4,A#GHAUN)
		Kit(Player4,A#GHAUNtF)
	Class(Player4,MAGE_THIEF)
THEN
	RESPONSE #100
		ActionOverride(Player4,AddKit(A#GHAUNtw))
END

IF
	Kit(Player3,A#GHAUN)
	Class(Player3,MAGE)
THEN
	RESPONSE #100
		ActionOverride(Player3,AddKit(A#GHAUNtF))
END

IF
	OR(2)
		Kit(Player3,A#GHAUN)
		Kit(Player3,A#GHAUNtF)
	Class(Player3,MAGE_THIEF)
THEN
	RESPONSE #100
		ActionOverride(Player3,AddKit(A#GHAUNtw))
END

IF
	Kit(Player2,A#GHAUN)
	Class(Player2,MAGE)
THEN
	RESPONSE #100
		ActionOverride(Player2,AddKit(A#GHAUNtF))
END

IF
	OR(2)
		Kit(Player2,A#GHAUN)
		Kit(Player2,A#GHAUNtF)
	Class(Player2,MAGE_THIEF)
THEN
	RESPONSE #100
		ActionOverride(Player2,AddKit(A#GHAUNtw))
END

IF
	Kit(Player1,A#GHAUN)
	Class(Player1,MAGE)
THEN
	RESPONSE #100
		ActionOverride(Player1,AddKit(A#GHAUNtF))
END

IF
	OR(2)
		Kit(Player1,A#GHAUN)
		Kit(Player1,A#GHAUNtF)
	Class(Player1,MAGE_THIEF)
THEN
	RESPONSE #100
		ActionOverride(Player1,AddKit(A#GHAUNtw))
END

IF
	Kit(Player6,CHARMING_ROGUE)
	Class(Player6,MAGE)
THEN
	RESPONSE #100
		ActionOverride(Player6,AddKit(CHARMING_ROGUEtF))
END

IF
	OR(2)
		Kit(Player6,CHARMING_ROGUE)
		Kit(Player6,CHARMING_ROGUEtF)
	Class(Player6,MAGE_THIEF)
THEN
	RESPONSE #100
		ActionOverride(Player6,AddKit(CHARMING_ROGUEtw))
END

IF
	Kit(Player5,CHARMING_ROGUE)
	Class(Player5,MAGE)
THEN
	RESPONSE #100
		ActionOverride(Player5,AddKit(CHARMING_ROGUEtF))
END

IF
	OR(2)
		Kit(Player5,CHARMING_ROGUE)
		Kit(Player5,CHARMING_ROGUEtF)
	Class(Player5,MAGE_THIEF)
THEN
	RESPONSE #100
		ActionOverride(Player5,AddKit(CHARMING_ROGUEtw))
END

IF
	Kit(Player4,CHARMING_ROGUE)
	Class(Player4,MAGE)
THEN
	RESPONSE #100
		ActionOverride(Player4,AddKit(CHARMING_ROGUEtF))
END

IF
	OR(2)
		Kit(Player4,CHARMING_ROGUE)
		Kit(Player4,CHARMING_ROGUEtF)
	Class(Player4,MAGE_THIEF)
THEN
	RESPONSE #100
		ActionOverride(Player4,AddKit(CHARMING_ROGUEtw))
END

IF
	Kit(Player3,CHARMING_ROGUE)
	Class(Player3,MAGE)
THEN
	RESPONSE #100
		ActionOverride(Player3,AddKit(CHARMING_ROGUEtF))
END

IF
	OR(2)
		Kit(Player3,CHARMING_ROGUE)
		Kit(Player3,CHARMING_ROGUEtF)
	Class(Player3,MAGE_THIEF)
THEN
	RESPONSE #100
		ActionOverride(Player3,AddKit(CHARMING_ROGUEtw))
END

IF
	Kit(Player2,CHARMING_ROGUE)
	Class(Player2,MAGE)
THEN
	RESPONSE #100
		ActionOverride(Player2,AddKit(CHARMING_ROGUEtF))
END

IF
	OR(2)
		Kit(Player2,CHARMING_ROGUE)
		Kit(Player2,CHARMING_ROGUEtF)
	Class(Player2,MAGE_THIEF)
THEN
	RESPONSE #100
		ActionOverride(Player2,AddKit(CHARMING_ROGUEtw))
END

IF
	Kit(Player1,CHARMING_ROGUE)
	Class(Player1,MAGE)
THEN
	RESPONSE #100
		ActionOverride(Player1,AddKit(CHARMING_ROGUEtF))
END

IF
	OR(2)
		Kit(Player1,CHARMING_ROGUE)
		Kit(Player1,CHARMING_ROGUEtF)
	Class(Player1,MAGE_THIEF)
THEN
	RESPONSE #100
		ActionOverride(Player1,AddKit(CHARMING_ROGUEtw))
END

IF
	Kit(Player6,FENCE)
	Class(Player6,MAGE)
THEN
	RESPONSE #100
		ActionOverride(Player6,AddKit(FENCEtF))
END

IF
	OR(2)
		Kit(Player6,FENCE)
		Kit(Player6,FENCEtF)
	Class(Player6,MAGE_THIEF)
THEN
	RESPONSE #100
		ActionOverride(Player6,AddKit(FENCEtw))
END

IF
	Kit(Player5,FENCE)
	Class(Player5,MAGE)
THEN
	RESPONSE #100
		ActionOverride(Player5,AddKit(FENCEtF))
END

IF
	OR(2)
		Kit(Player5,FENCE)
		Kit(Player5,FENCEtF)
	Class(Player5,MAGE_THIEF)
THEN
	RESPONSE #100
		ActionOverride(Player5,AddKit(FENCEtw))
END

IF
	Kit(Player4,FENCE)
	Class(Player4,MAGE)
THEN
	RESPONSE #100
		ActionOverride(Player4,AddKit(FENCEtF))
END

IF
	OR(2)
		Kit(Player4,FENCE)
		Kit(Player4,FENCEtF)
	Class(Player4,MAGE_THIEF)
THEN
	RESPONSE #100
		ActionOverride(Player4,AddKit(FENCEtw))
END

IF
	Kit(Player3,FENCE)
	Class(Player3,MAGE)
THEN
	RESPONSE #100
		ActionOverride(Player3,AddKit(FENCEtF))
END

IF
	OR(2)
		Kit(Player3,FENCE)
		Kit(Player3,FENCEtF)
	Class(Player3,MAGE_THIEF)
THEN
	RESPONSE #100
		ActionOverride(Player3,AddKit(FENCEtw))
END

IF
	Kit(Player2,FENCE)
	Class(Player2,MAGE)
THEN
	RESPONSE #100
		ActionOverride(Player2,AddKit(FENCEtF))
END

IF
	OR(2)
		Kit(Player2,FENCE)
		Kit(Player2,FENCEtF)
	Class(Player2,MAGE_THIEF)
THEN
	RESPONSE #100
		ActionOverride(Player2,AddKit(FENCEtw))
END

IF
	Kit(Player1,FENCE)
	Class(Player1,MAGE)
THEN
	RESPONSE #100
		ActionOverride(Player1,AddKit(FENCEtF))
END

IF
	OR(2)
		Kit(Player1,FENCE)
		Kit(Player1,FENCEtF)
	Class(Player1,MAGE_THIEF)
THEN
	RESPONSE #100
		ActionOverride(Player1,AddKit(FENCEtw))
END

IF
	Kit(Player6,GODLATHANDER)
	Class(Player6,MAGE)
THEN
	RESPONSE #100
		ActionOverride(Player6,AddKit(GODLATHANDERtF))
END

IF
	OR(2)
		Kit(Player6,GODLATHANDER)
		Kit(Player6,GODLATHANDERtF)
	Class(Player6,CLERIC_MAGE)
THEN
	RESPONSE #100
		ActionOverride(Player6,AddKit(GODLATHANDERtw))
END

IF
	Kit(Player5,GODLATHANDER)
	Class(Player5,MAGE)
THEN
	RESPONSE #100
		ActionOverride(Player5,AddKit(GODLATHANDERtF))
END

IF
	OR(2)
		Kit(Player5,GODLATHANDER)
		Kit(Player5,GODLATHANDERtF)
	Class(Player5,CLERIC_MAGE)
THEN
	RESPONSE #100
		ActionOverride(Player5,AddKit(GODLATHANDERtw))
END

IF
	Kit(Player4,GODLATHANDER)
	Class(Player4,MAGE)
THEN
	RESPONSE #100
		ActionOverride(Player4,AddKit(GODLATHANDERtF))
END

IF
	OR(2)
		Kit(Player4,GODLATHANDER)
		Kit(Player4,GODLATHANDERtF)
	Class(Player4,CLERIC_MAGE)
THEN
	RESPONSE #100
		ActionOverride(Player4,AddKit(GODLATHANDERtw))
END

IF
	Kit(Player3,GODLATHANDER)
	Class(Player3,MAGE)
THEN
	RESPONSE #100
		ActionOverride(Player3,AddKit(GODLATHANDERtF))
END

IF
	OR(2)
		Kit(Player3,GODLATHANDER)
		Kit(Player3,GODLATHANDERtF)
	Class(Player3,CLERIC_MAGE)
THEN
	RESPONSE #100
		ActionOverride(Player3,AddKit(GODLATHANDERtw))
END

IF
	Kit(Player2,GODLATHANDER)
	Class(Player2,MAGE)
THEN
	RESPONSE #100
		ActionOverride(Player2,AddKit(GODLATHANDERtF))
END

IF
	OR(2)
		Kit(Player2,GODLATHANDER)
		Kit(Player2,GODLATHANDERtF)
	Class(Player2,CLERIC_MAGE)
THEN
	RESPONSE #100
		ActionOverride(Player2,AddKit(GODLATHANDERtw))
END

IF
	Kit(Player1,GODLATHANDER)
	Class(Player1,MAGE)
THEN
	RESPONSE #100
		ActionOverride(Player1,AddKit(GODLATHANDERtF))
END

IF
	OR(2)
		Kit(Player1,GODLATHANDER)
		Kit(Player1,GODLATHANDERtF)
	Class(Player1,CLERIC_MAGE)
THEN
	RESPONSE #100
		ActionOverride(Player1,AddKit(GODLATHANDERtw))
END

IF
	Kit(Player6,GODHELM)
	Class(Player6,MAGE)
THEN
	RESPONSE #100
		ActionOverride(Player6,AddKit(GODHELMtF))
END

IF
	OR(2)
		Kit(Player6,GODHELM)
		Kit(Player6,GODHELMtF)
	Class(Player6,CLERIC_MAGE)
THEN
	RESPONSE #100
		ActionOverride(Player6,AddKit(GODHELMtw))
END

IF
	Kit(Player5,GODHELM)
	Class(Player5,MAGE)
THEN
	RESPONSE #100
		ActionOverride(Player5,AddKit(GODHELMtF))
END

IF
	OR(2)
		Kit(Player5,GODHELM)
		Kit(Player5,GODHELMtF)
	Class(Player5,CLERIC_MAGE)
THEN
	RESPONSE #100
		ActionOverride(Player5,AddKit(GODHELMtw))
END

IF
	Kit(Player4,GODHELM)
	Class(Player4,MAGE)
THEN
	RESPONSE #100
		ActionOverride(Player4,AddKit(GODHELMtF))
END

IF
	OR(2)
		Kit(Player4,GODHELM)
		Kit(Player4,GODHELMtF)
	Class(Player4,CLERIC_MAGE)
THEN
	RESPONSE #100
		ActionOverride(Player4,AddKit(GODHELMtw))
END

IF
	Kit(Player3,GODHELM)
	Class(Player3,MAGE)
THEN
	RESPONSE #100
		ActionOverride(Player3,AddKit(GODHELMtF))
END

IF
	OR(2)
		Kit(Player3,GODHELM)
		Kit(Player3,GODHELMtF)
	Class(Player3,CLERIC_MAGE)
THEN
	RESPONSE #100
		ActionOverride(Player3,AddKit(GODHELMtw))
END

IF
	Kit(Player2,GODHELM)
	Class(Player2,MAGE)
THEN
	RESPONSE #100
		ActionOverride(Player2,AddKit(GODHELMtF))
END

IF
	OR(2)
		Kit(Player2,GODHELM)
		Kit(Player2,GODHELMtF)
	Class(Player2,CLERIC_MAGE)
THEN
	RESPONSE #100
		ActionOverride(Player2,AddKit(GODHELMtw))
END

IF
	Kit(Player1,GODHELM)
	Class(Player1,MAGE)
THEN
	RESPONSE #100
		ActionOverride(Player1,AddKit(GODHELMtF))
END

IF
	OR(2)
		Kit(Player1,GODHELM)
		Kit(Player1,GODHELMtF)
	Class(Player1,CLERIC_MAGE)
THEN
	RESPONSE #100
		ActionOverride(Player1,AddKit(GODHELMtw))
END

IF
	Kit(Player6,GODTALOS)
	Class(Player6,MAGE)
THEN
	RESPONSE #100
		ActionOverride(Player6,AddKit(GODTALOStF))
END

IF
	OR(2)
		Kit(Player6,GODTALOS)
		Kit(Player6,GODTALOStF)
	Class(Player6,CLERIC_MAGE)
THEN
	RESPONSE #100
		ActionOverride(Player6,AddKit(GODTALOStw))
END

IF
	Kit(Player5,GODTALOS)
	Class(Player5,MAGE)
THEN
	RESPONSE #100
		ActionOverride(Player5,AddKit(GODTALOStF))
END

IF
	OR(2)
		Kit(Player5,GODTALOS)
		Kit(Player5,GODTALOStF)
	Class(Player5,CLERIC_MAGE)
THEN
	RESPONSE #100
		ActionOverride(Player5,AddKit(GODTALOStw))
END

IF
	Kit(Player4,GODTALOS)
	Class(Player4,MAGE)
THEN
	RESPONSE #100
		ActionOverride(Player4,AddKit(GODTALOStF))
END

IF
	OR(2)
		Kit(Player4,GODTALOS)
		Kit(Player4,GODTALOStF)
	Class(Player4,CLERIC_MAGE)
THEN
	RESPONSE #100
		ActionOverride(Player4,AddKit(GODTALOStw))
END

IF
	Kit(Player3,GODTALOS)
	Class(Player3,MAGE)
THEN
	RESPONSE #100
		ActionOverride(Player3,AddKit(GODTALOStF))
END

IF
	OR(2)
		Kit(Player3,GODTALOS)
		Kit(Player3,GODTALOStF)
	Class(Player3,CLERIC_MAGE)
THEN
	RESPONSE #100
		ActionOverride(Player3,AddKit(GODTALOStw))
END

IF
	Kit(Player2,GODTALOS)
	Class(Player2,MAGE)
THEN
	RESPONSE #100
		ActionOverride(Player2,AddKit(GODTALOStF))
END

IF
	OR(2)
		Kit(Player2,GODTALOS)
		Kit(Player2,GODTALOStF)
	Class(Player2,CLERIC_MAGE)
THEN
	RESPONSE #100
		ActionOverride(Player2,AddKit(GODTALOStw))
END

IF
	Kit(Player1,GODTALOS)
	Class(Player1,MAGE)
THEN
	RESPONSE #100
		ActionOverride(Player1,AddKit(GODTALOStF))
END

IF
	OR(2)
		Kit(Player1,GODTALOS)
		Kit(Player1,GODTALOStF)
	Class(Player1,CLERIC_MAGE)
THEN
	RESPONSE #100
		ActionOverride(Player1,AddKit(GODTALOStw))
END

IF
	Kit(Player6,SWASHBUCKLER)
	Class(Player6,MAGE)
THEN
	RESPONSE #100
		ActionOverride(Player6,AddKit(SWASHBUCKLERtF))
END

IF
	OR(2)
		Kit(Player6,SWASHBUCKLER)
		Kit(Player6,SWASHBUCKLERtF)
	Class(Player6,MAGE_THIEF)
THEN
	RESPONSE #100
		ActionOverride(Player6,AddKit(SWASHBUCKLERtw))
END

IF
	Kit(Player5,SWASHBUCKLER)
	Class(Player5,MAGE)
THEN
	RESPONSE #100
		ActionOverride(Player5,AddKit(SWASHBUCKLERtF))
END

IF
	OR(2)
		Kit(Player5,SWASHBUCKLER)
		Kit(Player5,SWASHBUCKLERtF)
	Class(Player5,MAGE_THIEF)
THEN
	RESPONSE #100
		ActionOverride(Player5,AddKit(SWASHBUCKLERtw))
END

IF
	Kit(Player4,SWASHBUCKLER)
	Class(Player4,MAGE)
THEN
	RESPONSE #100
		ActionOverride(Player4,AddKit(SWASHBUCKLERtF))
END

IF
	OR(2)
		Kit(Player4,SWASHBUCKLER)
		Kit(Player4,SWASHBUCKLERtF)
	Class(Player4,MAGE_THIEF)
THEN
	RESPONSE #100
		ActionOverride(Player4,AddKit(SWASHBUCKLERtw))
END

IF
	Kit(Player3,SWASHBUCKLER)
	Class(Player3,MAGE)
THEN
	RESPONSE #100
		ActionOverride(Player3,AddKit(SWASHBUCKLERtF))
END

IF
	OR(2)
		Kit(Player3,SWASHBUCKLER)
		Kit(Player3,SWASHBUCKLERtF)
	Class(Player3,MAGE_THIEF)
THEN
	RESPONSE #100
		ActionOverride(Player3,AddKit(SWASHBUCKLERtw))
END

IF
	Kit(Player2,SWASHBUCKLER)
	Class(Player2,MAGE)
THEN
	RESPONSE #100
		ActionOverride(Player2,AddKit(SWASHBUCKLERtF))
END

IF
	OR(2)
		Kit(Player2,SWASHBUCKLER)
		Kit(Player2,SWASHBUCKLERtF)
	Class(Player2,MAGE_THIEF)
THEN
	RESPONSE #100
		ActionOverride(Player2,AddKit(SWASHBUCKLERtw))
END

IF
	Kit(Player1,SWASHBUCKLER)
	Class(Player1,MAGE)
THEN
	RESPONSE #100
		ActionOverride(Player1,AddKit(SWASHBUCKLERtF))
END

IF
	OR(2)
		Kit(Player1,SWASHBUCKLER)
		Kit(Player1,SWASHBUCKLERtF)
	Class(Player1,MAGE_THIEF)
THEN
	RESPONSE #100
		ActionOverride(Player1,AddKit(SWASHBUCKLERtw))
END

IF
	Kit(Player6,BOUNTYHUNTER)
	Class(Player6,MAGE)
THEN
	RESPONSE #100
		ActionOverride(Player6,AddKit(BOUNTYHUNTERtF))
END

IF
	OR(2)
		Kit(Player6,BOUNTYHUNTER)
		Kit(Player6,BOUNTYHUNTERtF)
	Class(Player6,MAGE_THIEF)
THEN
	RESPONSE #100
		ActionOverride(Player6,AddKit(BOUNTYHUNTERtw))
END

IF
	Kit(Player5,BOUNTYHUNTER)
	Class(Player5,MAGE)
THEN
	RESPONSE #100
		ActionOverride(Player5,AddKit(BOUNTYHUNTERtF))
END

IF
	OR(2)
		Kit(Player5,BOUNTYHUNTER)
		Kit(Player5,BOUNTYHUNTERtF)
	Class(Player5,MAGE_THIEF)
THEN
	RESPONSE #100
		ActionOverride(Player5,AddKit(BOUNTYHUNTERtw))
END

IF
	Kit(Player4,BOUNTYHUNTER)
	Class(Player4,MAGE)
THEN
	RESPONSE #100
		ActionOverride(Player4,AddKit(BOUNTYHUNTERtF))
END

IF
	OR(2)
		Kit(Player4,BOUNTYHUNTER)
		Kit(Player4,BOUNTYHUNTERtF)
	Class(Player4,MAGE_THIEF)
THEN
	RESPONSE #100
		ActionOverride(Player4,AddKit(BOUNTYHUNTERtw))
END

IF
	Kit(Player3,BOUNTYHUNTER)
	Class(Player3,MAGE)
THEN
	RESPONSE #100
		ActionOverride(Player3,AddKit(BOUNTYHUNTERtF))
END

IF
	OR(2)
		Kit(Player3,BOUNTYHUNTER)
		Kit(Player3,BOUNTYHUNTERtF)
	Class(Player3,MAGE_THIEF)
THEN
	RESPONSE #100
		ActionOverride(Player3,AddKit(BOUNTYHUNTERtw))
END

IF
	Kit(Player2,BOUNTYHUNTER)
	Class(Player2,MAGE)
THEN
	RESPONSE #100
		ActionOverride(Player2,AddKit(BOUNTYHUNTERtF))
END

IF
	OR(2)
		Kit(Player2,BOUNTYHUNTER)
		Kit(Player2,BOUNTYHUNTERtF)
	Class(Player2,MAGE_THIEF)
THEN
	RESPONSE #100
		ActionOverride(Player2,AddKit(BOUNTYHUNTERtw))
END

IF
	Kit(Player1,BOUNTYHUNTER)
	Class(Player1,MAGE)
THEN
	RESPONSE #100
		ActionOverride(Player1,AddKit(BOUNTYHUNTERtF))
END

IF
	OR(2)
		Kit(Player1,BOUNTYHUNTER)
		Kit(Player1,BOUNTYHUNTERtF)
	Class(Player1,MAGE_THIEF)
THEN
	RESPONSE #100
		ActionOverride(Player1,AddKit(BOUNTYHUNTERtw))
END

IF
	Kit(Player6,ASSASIN)
	Class(Player6,MAGE)
THEN
	RESPONSE #100
		ActionOverride(Player6,AddKit(ASSASINtF))
END

IF
	OR(2)
		Kit(Player6,ASSASIN)
		Kit(Player6,ASSASINtF)
	Class(Player6,MAGE_THIEF)
THEN
	RESPONSE #100
		ActionOverride(Player6,AddKit(ASSASINtw))
END

IF
	Kit(Player5,ASSASIN)
	Class(Player5,MAGE)
THEN
	RESPONSE #100
		ActionOverride(Player5,AddKit(ASSASINtF))
END

IF
	OR(2)
		Kit(Player5,ASSASIN)
		Kit(Player5,ASSASINtF)
	Class(Player5,MAGE_THIEF)
THEN
	RESPONSE #100
		ActionOverride(Player5,AddKit(ASSASINtw))
END

IF
	Kit(Player4,ASSASIN)
	Class(Player4,MAGE)
THEN
	RESPONSE #100
		ActionOverride(Player4,AddKit(ASSASINtF))
END

IF
	OR(2)
		Kit(Player4,ASSASIN)
		Kit(Player4,ASSASINtF)
	Class(Player4,MAGE_THIEF)
THEN
	RESPONSE #100
		ActionOverride(Player4,AddKit(ASSASINtw))
END

IF
	Kit(Player3,ASSASIN)
	Class(Player3,MAGE)
THEN
	RESPONSE #100
		ActionOverride(Player3,AddKit(ASSASINtF))
END

IF
	OR(2)
		Kit(Player3,ASSASIN)
		Kit(Player3,ASSASINtF)
	Class(Player3,MAGE_THIEF)
THEN
	RESPONSE #100
		ActionOverride(Player3,AddKit(ASSASINtw))
END

IF
	Kit(Player2,ASSASIN)
	Class(Player2,MAGE)
THEN
	RESPONSE #100
		ActionOverride(Player2,AddKit(ASSASINtF))
END

IF
	OR(2)
		Kit(Player2,ASSASIN)
		Kit(Player2,ASSASINtF)
	Class(Player2,MAGE_THIEF)
THEN
	RESPONSE #100
		ActionOverride(Player2,AddKit(ASSASINtw))
END

IF
	Kit(Player1,ASSASIN)
	Class(Player1,MAGE)
THEN
	RESPONSE #100
		ActionOverride(Player1,AddKit(ASSASINtF))
END

IF
	OR(2)
		Kit(Player1,ASSASIN)
		Kit(Player1,ASSASINtF)
	Class(Player1,MAGE_THIEF)
THEN
	RESPONSE #100
		ActionOverride(Player1,AddKit(ASSASINtw))
END

IF
	Kit(Player6,KENSAI)
	Class(Player6,MAGE)
THEN
	RESPONSE #100
		ActionOverride(Player6,AddKit(KENSAItF))
END

IF
	OR(2)
		Kit(Player6,KENSAI)
		Kit(Player6,KENSAItF)
	Class(Player6,FIGHTER_MAGE)
THEN
	RESPONSE #100
		ActionOverride(Player6,AddKit(KENSAItw))
END

IF
	Kit(Player5,KENSAI)
	Class(Player5,MAGE)
THEN
	RESPONSE #100
		ActionOverride(Player5,AddKit(KENSAItF))
END

IF
	OR(2)
		Kit(Player5,KENSAI)
		Kit(Player5,KENSAItF)
	Class(Player5,FIGHTER_MAGE)
THEN
	RESPONSE #100
		ActionOverride(Player5,AddKit(KENSAItw))
END

IF
	Kit(Player4,KENSAI)
	Class(Player4,MAGE)
THEN
	RESPONSE #100
		ActionOverride(Player4,AddKit(KENSAItF))
END

IF
	OR(2)
		Kit(Player4,KENSAI)
		Kit(Player4,KENSAItF)
	Class(Player4,FIGHTER_MAGE)
THEN
	RESPONSE #100
		ActionOverride(Player4,AddKit(KENSAItw))
END

IF
	Kit(Player3,KENSAI)
	Class(Player3,MAGE)
THEN
	RESPONSE #100
		ActionOverride(Player3,AddKit(KENSAItF))
END

IF
	OR(2)
		Kit(Player3,KENSAI)
		Kit(Player3,KENSAItF)
	Class(Player3,FIGHTER_MAGE)
THEN
	RESPONSE #100
		ActionOverride(Player3,AddKit(KENSAItw))
END

IF
	Kit(Player2,KENSAI)
	Class(Player2,MAGE)
THEN
	RESPONSE #100
		ActionOverride(Player2,AddKit(KENSAItF))
END

IF
	OR(2)
		Kit(Player2,KENSAI)
		Kit(Player2,KENSAItF)
	Class(Player2,FIGHTER_MAGE)
THEN
	RESPONSE #100
		ActionOverride(Player2,AddKit(KENSAItw))
END

IF
	Kit(Player1,KENSAI)
	Class(Player1,MAGE)
THEN
	RESPONSE #100
		ActionOverride(Player1,AddKit(KENSAItF))
END

IF
	OR(2)
		Kit(Player1,KENSAI)
		Kit(Player1,KENSAItF)
	Class(Player1,FIGHTER_MAGE)
THEN
	RESPONSE #100
		ActionOverride(Player1,AddKit(KENSAItw))
END

IF
	Kit(Player6,WIZARDSLAYER)
	Class(Player6,MAGE)
THEN
	RESPONSE #100
		ActionOverride(Player6,AddKit(WIZARDSLAYERtF))
END

IF
	OR(2)
		Kit(Player6,WIZARDSLAYER)
		Kit(Player6,WIZARDSLAYERtF)
	Class(Player6,FIGHTER_MAGE)
THEN
	RESPONSE #100
		ActionOverride(Player6,AddKit(WIZARDSLAYERtw))
END

IF
	Kit(Player5,WIZARDSLAYER)
	Class(Player5,MAGE)
THEN
	RESPONSE #100
		ActionOverride(Player5,AddKit(WIZARDSLAYERtF))
END

IF
	OR(2)
		Kit(Player5,WIZARDSLAYER)
		Kit(Player5,WIZARDSLAYERtF)
	Class(Player5,FIGHTER_MAGE)
THEN
	RESPONSE #100
		ActionOverride(Player5,AddKit(WIZARDSLAYERtw))
END

IF
	Kit(Player4,WIZARDSLAYER)
	Class(Player4,MAGE)
THEN
	RESPONSE #100
		ActionOverride(Player4,AddKit(WIZARDSLAYERtF))
END

IF
	OR(2)
		Kit(Player4,WIZARDSLAYER)
		Kit(Player4,WIZARDSLAYERtF)
	Class(Player4,FIGHTER_MAGE)
THEN
	RESPONSE #100
		ActionOverride(Player4,AddKit(WIZARDSLAYERtw))
END

IF
	Kit(Player3,WIZARDSLAYER)
	Class(Player3,MAGE)
THEN
	RESPONSE #100
		ActionOverride(Player3,AddKit(WIZARDSLAYERtF))
END

IF
	OR(2)
		Kit(Player3,WIZARDSLAYER)
		Kit(Player3,WIZARDSLAYERtF)
	Class(Player3,FIGHTER_MAGE)
THEN
	RESPONSE #100
		ActionOverride(Player3,AddKit(WIZARDSLAYERtw))
END

IF
	Kit(Player2,WIZARDSLAYER)
	Class(Player2,MAGE)
THEN
	RESPONSE #100
		ActionOverride(Player2,AddKit(WIZARDSLAYERtF))
END

IF
	OR(2)
		Kit(Player2,WIZARDSLAYER)
		Kit(Player2,WIZARDSLAYERtF)
	Class(Player2,FIGHTER_MAGE)
THEN
	RESPONSE #100
		ActionOverride(Player2,AddKit(WIZARDSLAYERtw))
END

IF
	Kit(Player1,WIZARDSLAYER)
	Class(Player1,MAGE)
THEN
	RESPONSE #100
		ActionOverride(Player1,AddKit(WIZARDSLAYERtF))
END

IF
	OR(2)
		Kit(Player1,WIZARDSLAYER)
		Kit(Player1,WIZARDSLAYERtF)
	Class(Player1,FIGHTER_MAGE)
THEN
	RESPONSE #100
		ActionOverride(Player1,AddKit(WIZARDSLAYERtw))
END

IF
	Kit(Player6,BERSERKER)
	Class(Player6,MAGE)
THEN
	RESPONSE #100
		ActionOverride(Player6,AddKit(BERSERKERtF))
END

IF
	OR(2)
		Kit(Player6,BERSERKER)
		Kit(Player6,BERSERKERtF)
	Class(Player6,FIGHTER_MAGE)
THEN
	RESPONSE #100
		ActionOverride(Player6,AddKit(BERSERKERtw))
END

IF
	Kit(Player5,BERSERKER)
	Class(Player5,MAGE)
THEN
	RESPONSE #100
		ActionOverride(Player5,AddKit(BERSERKERtF))
END

IF
	OR(2)
		Kit(Player5,BERSERKER)
		Kit(Player5,BERSERKERtF)
	Class(Player5,FIGHTER_MAGE)
THEN
	RESPONSE #100
		ActionOverride(Player5,AddKit(BERSERKERtw))
END

IF
	Kit(Player4,BERSERKER)
	Class(Player4,MAGE)
THEN
	RESPONSE #100
		ActionOverride(Player4,AddKit(BERSERKERtF))
END

IF
	OR(2)
		Kit(Player4,BERSERKER)
		Kit(Player4,BERSERKERtF)
	Class(Player4,FIGHTER_MAGE)
THEN
	RESPONSE #100
		ActionOverride(Player4,AddKit(BERSERKERtw))
END

IF
	Kit(Player3,BERSERKER)
	Class(Player3,MAGE)
THEN
	RESPONSE #100
		ActionOverride(Player3,AddKit(BERSERKERtF))
END

IF
	OR(2)
		Kit(Player3,BERSERKER)
		Kit(Player3,BERSERKERtF)
	Class(Player3,FIGHTER_MAGE)
THEN
	RESPONSE #100
		ActionOverride(Player3,AddKit(BERSERKERtw))
END

IF
	Kit(Player2,BERSERKER)
	Class(Player2,MAGE)
THEN
	RESPONSE #100
		ActionOverride(Player2,AddKit(BERSERKERtF))
END

IF
	OR(2)
		Kit(Player2,BERSERKER)
		Kit(Player2,BERSERKERtF)
	Class(Player2,FIGHTER_MAGE)
THEN
	RESPONSE #100
		ActionOverride(Player2,AddKit(BERSERKERtw))
END

IF
	Kit(Player1,BERSERKER)
	Class(Player1,MAGE)
THEN
	RESPONSE #100
		ActionOverride(Player1,AddKit(BERSERKERtF))
END

IF
	OR(2)
		Kit(Player1,BERSERKER)
		Kit(Player1,BERSERKERtF)
	Class(Player1,FIGHTER_MAGE)
THEN
	RESPONSE #100
		ActionOverride(Player1,AddKit(BERSERKERtw))
END

IF
	Kit(Player6,TRUECLASS)
	OR(3)
		Class(Player6,THIEF)
		Class(Player6,CLERIC_THIEF)
		Class(Player6,FIGHTER_THIEF)
THEN
	RESPONSE #100
		ActionOverride(Player6,AddKit(trueres))
END

IF
	Kit(Player6,TRUECLASS)
	Class(Player6,MAGE)
THEN
	RESPONSE #100
		ActionOverride(Player6,AddKit(magetw))
END

IF
	!InParty(Player6)
	Global("USSCBloc6","GLOBAL",1)
THEN
	RESPONSE #100
		SetGlobal("USSCBloc6","GLOBAL",0)
END

IF
	Kit(Player6,WIZARDSLAYER)
	Global("USSCBloc6","GLOBAL",0)
	OR(2)
		Class(Player6,THIEF)
		Class(Player6,FIGHTER_THIEF)
THEN
	RESPONSE #100
		SetGlobal("USSCBloc6","GLOBAL",1)
		ApplySpellRES("LI#BLWS",Player6) // No such index
END

IF
	OR(2)
		Class(Player6,THIEF)
		Class(Player6,MAGE_THIEF)
	Global("USSCBloc6","GLOBAL",0)
	OR(9)
		Kit(Player6,magetw)
		Kit(Player6,MAGESCHOOL_ABJURER)
		Kit(Player6,MAGESCHOOL_CONJURER)
		Kit(Player6,MAGESCHOOL_DIVINER)
		Kit(Player6,MAGESCHOOL_ENCHANTER)
		Kit(Player6,MAGESCHOOL_ILLUSIONIST)
		Kit(Player6,MAGESCHOOL_INVOKER)
		Kit(Player6,MAGESCHOOL_NECROMANCER)
		Kit(Player6,MAGESCHOOL_TRANSMUTER)
THEN
	RESPONSE #100
		SetGlobal("USSCBloc6","GLOBAL",1)
		ApplySpellRES("LI#BLMT",Player6) // No such index
END

IF
	Class(Player6,MAGE_THIEF)
	Race(Player6,HUMAN)
	OR(2)
		Kit(Player6,WILDMAGE)
		Kit(Player6,TRUECLASS)
	Global("USSCBloc6","GLOBAL",0)
THEN
	RESPONSE #100
		SetGlobal("USSCBloc6","GLOBAL",1)
		ApplySpellRES("LI#BLMT",Player6) // No such index
END

IF
	Global("USSCBloc6","GLOBAL",0)
	!Race(Player6,HUMAN)
	OR(3)
		Class(Player6,MAGE_THIEF)
		Class(Player6,FIGHTER_MAGE)
		Class(Player6,CLERIC_MAGE)
	!Kit(Player6,MAGESCHOOL_ILLUSIONIST)
THEN
	RESPONSE #100
		SetGlobal("USSCBloc6","GLOBAL",1)
		ApplySpellRES("LI#BLIL",Player6) // No such index
END

IF
	Kit(Player6,shaptw)
	Class(Player6,FIGHTER)
THEN
	RESPONSE #100
		ActionOverride(Player6,AddKit(shaptF))
END

IF
	Kit(Player6,shaptF)
	Class(Player6,FIGHTER_DRUID)
THEN
	RESPONSE #100
		ActionOverride(Player6,AddKit(shaptw))
END

IF
	Kit(Player5,TRUECLASS)
	OR(3)
		Class(Player5,THIEF)
		Class(Player5,CLERIC_THIEF)
		Class(Player5,FIGHTER_THIEF)
THEN
	RESPONSE #100
		ActionOverride(Player5,AddKit(trueres))
END

IF
	Kit(Player5,TRUECLASS)
	Class(Player5,MAGE)
THEN
	RESPONSE #100
		ActionOverride(Player5,AddKit(magetw))
END

IF
	!InParty(Player5)
	Global("USSCBloc5","GLOBAL",1)
THEN
	RESPONSE #100
		SetGlobal("USSCBloc5","GLOBAL",0)
END

IF
	Kit(Player5,WIZARDSLAYER)
	Global("USSCBloc5","GLOBAL",0)
	OR(2)
		Class(Player5,THIEF)
		Class(Player5,FIGHTER_THIEF)
THEN
	RESPONSE #100
		SetGlobal("USSCBloc5","GLOBAL",1)
		ApplySpellRES("LI#BLWS",Player5) // No such index
END

IF
	OR(2)
		Class(Player5,THIEF)
		Class(Player5,MAGE_THIEF)
	Global("USSCBloc5","GLOBAL",0)
	OR(9)
		Kit(Player5,magetw)
		Kit(Player5,MAGESCHOOL_ABJURER)
		Kit(Player5,MAGESCHOOL_CONJURER)
		Kit(Player5,MAGESCHOOL_DIVINER)
		Kit(Player5,MAGESCHOOL_ENCHANTER)
		Kit(Player5,MAGESCHOOL_ILLUSIONIST)
		Kit(Player5,MAGESCHOOL_INVOKER)
		Kit(Player5,MAGESCHOOL_NECROMANCER)
		Kit(Player5,MAGESCHOOL_TRANSMUTER)
THEN
	RESPONSE #100
		SetGlobal("USSCBloc5","GLOBAL",1)
		ApplySpellRES("LI#BLMT",Player5) // No such index
END

IF
	Class(Player5,MAGE_THIEF)
	Race(Player5,HUMAN)
	OR(2)
		Kit(Player5,WILDMAGE)
		Kit(Player5,TRUECLASS)
	Global("USSCBloc5","GLOBAL",0)
THEN
	RESPONSE #100
		SetGlobal("USSCBloc5","GLOBAL",1)
		ApplySpellRES("LI#BLMT",Player5) // No such index
END

IF
	Global("USSCBloc5","GLOBAL",0)
	!Race(Player5,HUMAN)
	OR(3)
		Class(Player5,MAGE_THIEF)
		Class(Player5,FIGHTER_MAGE)
		Class(Player5,CLERIC_MAGE)
	!Kit(Player5,MAGESCHOOL_ILLUSIONIST)
THEN
	RESPONSE #100
		SetGlobal("USSCBloc5","GLOBAL",1)
		ApplySpellRES("LI#BLIL",Player5) // No such index
END

IF
	Kit(Player5,shaptw)
	Class(Player5,FIGHTER)
THEN
	RESPONSE #100
		ActionOverride(Player5,AddKit(shaptF))
END

IF
	Kit(Player5,shaptF)
	Class(Player5,FIGHTER_DRUID)
THEN
	RESPONSE #100
		ActionOverride(Player5,AddKit(shaptw))
END

IF
	Kit(Player4,TRUECLASS)
	OR(3)
		Class(Player4,THIEF)
		Class(Player4,CLERIC_THIEF)
		Class(Player4,FIGHTER_THIEF)
THEN
	RESPONSE #100
		ActionOverride(Player4,AddKit(trueres))
END

IF
	Kit(Player4,TRUECLASS)
	Class(Player4,MAGE)
THEN
	RESPONSE #100
		ActionOverride(Player4,AddKit(magetw))
END

IF
	!InParty(Player4)
	Global("USSCBloc4","GLOBAL",1)
THEN
	RESPONSE #100
		SetGlobal("USSCBloc4","GLOBAL",0)
END

IF
	Kit(Player4,WIZARDSLAYER)
	Global("USSCBloc4","GLOBAL",0)
	OR(2)
		Class(Player4,THIEF)
		Class(Player4,FIGHTER_THIEF)
THEN
	RESPONSE #100
		SetGlobal("USSCBloc4","GLOBAL",1)
		ApplySpellRES("LI#BLWS",Player4) // No such index
END

IF
	OR(2)
		Class(Player4,THIEF)
		Class(Player4,MAGE_THIEF)
	Global("USSCBloc4","GLOBAL",0)
	OR(9)
		Kit(Player4,magetw)
		Kit(Player4,MAGESCHOOL_ABJURER)
		Kit(Player4,MAGESCHOOL_CONJURER)
		Kit(Player4,MAGESCHOOL_DIVINER)
		Kit(Player4,MAGESCHOOL_ENCHANTER)
		Kit(Player4,MAGESCHOOL_ILLUSIONIST)
		Kit(Player4,MAGESCHOOL_INVOKER)
		Kit(Player4,MAGESCHOOL_NECROMANCER)
		Kit(Player4,MAGESCHOOL_TRANSMUTER)
THEN
	RESPONSE #100
		SetGlobal("USSCBloc4","GLOBAL",1)
		ApplySpellRES("LI#BLMT",Player4) // No such index
END

IF
	Class(Player4,MAGE_THIEF)
	Race(Player4,HUMAN)
	OR(2)
		Kit(Player4,WILDMAGE)
		Kit(Player4,TRUECLASS)
	Global("USSCBloc4","GLOBAL",0)
THEN
	RESPONSE #100
		SetGlobal("USSCBloc4","GLOBAL",1)
		ApplySpellRES("LI#BLMT",Player4) // No such index
END

IF
	Global("USSCBloc4","GLOBAL",0)
	!Race(Player4,HUMAN)
	OR(3)
		Class(Player4,MAGE_THIEF)
		Class(Player4,FIGHTER_MAGE)
		Class(Player4,CLERIC_MAGE)
	!Kit(Player4,MAGESCHOOL_ILLUSIONIST)
THEN
	RESPONSE #100
		SetGlobal("USSCBloc4","GLOBAL",1)
		ApplySpellRES("LI#BLIL",Player4) // No such index
END

IF
	Kit(Player4,shaptw)
	Class(Player4,FIGHTER)
THEN
	RESPONSE #100
		ActionOverride(Player4,AddKit(shaptF))
END

IF
	Kit(Player4,shaptF)
	Class(Player4,FIGHTER_DRUID)
THEN
	RESPONSE #100
		ActionOverride(Player4,AddKit(shaptw))
END

IF
	Kit(Player3,TRUECLASS)
	OR(3)
		Class(Player3,THIEF)
		Class(Player3,CLERIC_THIEF)
		Class(Player3,FIGHTER_THIEF)
THEN
	RESPONSE #100
		ActionOverride(Player3,AddKit(trueres))
END

IF
	Kit(Player3,TRUECLASS)
	Class(Player3,MAGE)
THEN
	RESPONSE #100
		ActionOverride(Player3,AddKit(magetw))
END

IF
	!InParty(Player3)
	Global("USSCBloc3","GLOBAL",1)
THEN
	RESPONSE #100
		SetGlobal("USSCBloc3","GLOBAL",0)
END

IF
	Kit(Player3,WIZARDSLAYER)
	Global("USSCBloc3","GLOBAL",0)
	OR(2)
		Class(Player3,THIEF)
		Class(Player3,FIGHTER_THIEF)
THEN
	RESPONSE #100
		SetGlobal("USSCBloc3","GLOBAL",1)
		ApplySpellRES("LI#BLWS",Player3) // No such index
END

IF
	OR(2)
		Class(Player3,THIEF)
		Class(Player3,MAGE_THIEF)
	Global("USSCBloc3","GLOBAL",0)
	OR(9)
		Kit(Player3,magetw)
		Kit(Player3,MAGESCHOOL_ABJURER)
		Kit(Player3,MAGESCHOOL_CONJURER)
		Kit(Player3,MAGESCHOOL_DIVINER)
		Kit(Player3,MAGESCHOOL_ENCHANTER)
		Kit(Player3,MAGESCHOOL_ILLUSIONIST)
		Kit(Player3,MAGESCHOOL_INVOKER)
		Kit(Player3,MAGESCHOOL_NECROMANCER)
		Kit(Player3,MAGESCHOOL_TRANSMUTER)
THEN
	RESPONSE #100
		SetGlobal("USSCBloc3","GLOBAL",1)
		ApplySpellRES("LI#BLMT",Player3) // No such index
END

IF
	Class(Player3,MAGE_THIEF)
	Race(Player3,HUMAN)
	OR(2)
		Kit(Player3,WILDMAGE)
		Kit(Player3,TRUECLASS)
	Global("USSCBloc3","GLOBAL",0)
THEN
	RESPONSE #100
		SetGlobal("USSCBloc3","GLOBAL",1)
		ApplySpellRES("LI#BLMT",Player3) // No such index
END

IF
	Global("USSCBloc3","GLOBAL",0)
	!Race(Player3,HUMAN)
	OR(3)
		Class(Player3,MAGE_THIEF)
		Class(Player3,FIGHTER_MAGE)
		Class(Player3,CLERIC_MAGE)
	!Kit(Player3,MAGESCHOOL_ILLUSIONIST)
THEN
	RESPONSE #100
		SetGlobal("USSCBloc3","GLOBAL",1)
		ApplySpellRES("LI#BLIL",Player3) // No such index
END

IF
	Kit(Player3,shaptw)
	Class(Player3,FIGHTER)
THEN
	RESPONSE #100
		ActionOverride(Player3,AddKit(shaptF))
END

IF
	Kit(Player3,shaptF)
	Class(Player3,FIGHTER_DRUID)
THEN
	RESPONSE #100
		ActionOverride(Player3,AddKit(shaptw))
END

IF
	Kit(Player2,TRUECLASS)
	OR(3)
		Class(Player2,THIEF)
		Class(Player2,CLERIC_THIEF)
		Class(Player2,FIGHTER_THIEF)
THEN
	RESPONSE #100
		ActionOverride(Player2,AddKit(trueres))
END

IF
	Kit(Player2,TRUECLASS)
	Class(Player2,MAGE)
THEN
	RESPONSE #100
		ActionOverride(Player2,AddKit(magetw))
END

IF
	!InParty(Player2)
	Global("USSCBloc2","GLOBAL",1)
THEN
	RESPONSE #100
		SetGlobal("USSCBloc2","GLOBAL",0)
END

IF
	Kit(Player2,WIZARDSLAYER)
	Global("USSCBloc2","GLOBAL",0)
	OR(2)
		Class(Player2,THIEF)
		Class(Player2,FIGHTER_THIEF)
THEN
	RESPONSE #100
		SetGlobal("USSCBloc2","GLOBAL",1)
		ApplySpellRES("LI#BLWS",Player2) // No such index
END

IF
	OR(2)
		Class(Player2,THIEF)
		Class(Player2,MAGE_THIEF)
	Global("USSCBloc2","GLOBAL",0)
	OR(9)
		Kit(Player2,magetw)
		Kit(Player2,MAGESCHOOL_ABJURER)
		Kit(Player2,MAGESCHOOL_CONJURER)
		Kit(Player2,MAGESCHOOL_DIVINER)
		Kit(Player2,MAGESCHOOL_ENCHANTER)
		Kit(Player2,MAGESCHOOL_ILLUSIONIST)
		Kit(Player2,MAGESCHOOL_INVOKER)
		Kit(Player2,MAGESCHOOL_NECROMANCER)
		Kit(Player2,MAGESCHOOL_TRANSMUTER)
THEN
	RESPONSE #100
		SetGlobal("USSCBloc2","GLOBAL",1)
		ApplySpellRES("LI#BLMT",Player2) // No such index
END

IF
	Class(Player2,MAGE_THIEF)
	Race(Player2,HUMAN)
	OR(2)
		Kit(Player2,WILDMAGE)
		Kit(Player2,TRUECLASS)
	Global("USSCBloc2","GLOBAL",0)
THEN
	RESPONSE #100
		SetGlobal("USSCBloc2","GLOBAL",1)
		ApplySpellRES("LI#BLMT",Player2) // No such index
END

IF
	Global("USSCBloc2","GLOBAL",0)
	!Race(Player2,HUMAN)
	OR(3)
		Class(Player2,MAGE_THIEF)
		Class(Player2,FIGHTER_MAGE)
		Class(Player2,CLERIC_MAGE)
	!Kit(Player2,MAGESCHOOL_ILLUSIONIST)
THEN
	RESPONSE #100
		SetGlobal("USSCBloc2","GLOBAL",1)
		ApplySpellRES("LI#BLIL",Player2) // No such index
END

IF
	Kit(Player2,shaptw)
	Class(Player2,FIGHTER)
THEN
	RESPONSE #100
		ActionOverride(Player2,AddKit(shaptF))
END

IF
	Kit(Player2,shaptF)
	Class(Player2,FIGHTER_DRUID)
THEN
	RESPONSE #100
		ActionOverride(Player2,AddKit(shaptw))
END

IF
	Kit(Player1,TRUECLASS)
	OR(3)
		Class(Player1,THIEF)
		Class(Player1,CLERIC_THIEF)
		Class(Player1,FIGHTER_THIEF)
THEN
	RESPONSE #100
		ActionOverride(Player1,AddKit(trueres))
END

IF
	Kit(Player1,TRUECLASS)
	Class(Player1,MAGE)
THEN
	RESPONSE #100
		ActionOverride(Player1,AddKit(magetw))
END

IF
	!InParty(Player1)
	Global("USSCBloc1","GLOBAL",1)
THEN
	RESPONSE #100
		SetGlobal("USSCBloc1","GLOBAL",0)
END

IF
	Kit(Player1,WIZARDSLAYER)
	Global("USSCBloc1","GLOBAL",0)
	OR(2)
		Class(Player1,THIEF)
		Class(Player1,FIGHTER_THIEF)
THEN
	RESPONSE #100
		SetGlobal("USSCBloc1","GLOBAL",1)
		ApplySpellRES("LI#BLWS",Player1) // No such index
END

IF
	OR(2)
		Class(Player1,THIEF)
		Class(Player1,MAGE_THIEF)
	Global("USSCBloc1","GLOBAL",0)
	OR(9)
		Kit(Player1,magetw)
		Kit(Player1,MAGESCHOOL_ABJURER)
		Kit(Player1,MAGESCHOOL_CONJURER)
		Kit(Player1,MAGESCHOOL_DIVINER)
		Kit(Player1,MAGESCHOOL_ENCHANTER)
		Kit(Player1,MAGESCHOOL_ILLUSIONIST)
		Kit(Player1,MAGESCHOOL_INVOKER)
		Kit(Player1,MAGESCHOOL_NECROMANCER)
		Kit(Player1,MAGESCHOOL_TRANSMUTER)
THEN
	RESPONSE #100
		SetGlobal("USSCBloc1","GLOBAL",1)
		ApplySpellRES("LI#BLMT",Player1) // No such index
END

IF
	Class(Player1,MAGE_THIEF)
	Race(Player1,HUMAN)
	OR(2)
		Kit(Player1,WILDMAGE)
		Kit(Player1,TRUECLASS)
	Global("USSCBloc1","GLOBAL",0)
THEN
	RESPONSE #100
		SetGlobal("USSCBloc1","GLOBAL",1)
		ApplySpellRES("LI#BLMT",Player1) // No such index
END

IF
	Global("USSCBloc1","GLOBAL",0)
	!Race(Player1,HUMAN)
	OR(3)
		Class(Player1,MAGE_THIEF)
		Class(Player1,FIGHTER_MAGE)
		Class(Player1,CLERIC_MAGE)
	!Kit(Player1,MAGESCHOOL_ILLUSIONIST)
THEN
	RESPONSE #100
		SetGlobal("USSCBloc1","GLOBAL",1)
		ApplySpellRES("LI#BLIL",Player1) // No such index
END

IF
	Kit(Player1,shaptw)
	Class(Player1,FIGHTER)
THEN
	RESPONSE #100
		ActionOverride(Player1,AddKit(shaptF))
END

IF
	Kit(Player1,shaptF)
	Class(Player1,FIGHTER_DRUID)
THEN
	RESPONSE #100
		ActionOverride(Player1,AddKit(shaptw))
END

IF
	Kit(Player1,GODTALOS)
	HasItem("CDHLYSYM",Player1) // No such index
THEN
	RESPONSE #100
		ApplySpellRES("CDHLYSY2",Player1) // I cannot thank you enough, <CHARNAME>, for the gift you have given me.  I once thought I had done everything I could to fight for what was good...but it was you that showed me how wrong I was.  Without you, I would have died with that stain upon my soul and perhaps even been Melissan's puppet forever.
		TakeItemReplace("BELT14","CDHLYSYM",Player1) // No such index
END

IF
	Kit(Player2,GODTALOS)
	HasItem("CDHLYSYM",Player2) // No such index
THEN
	RESPONSE #100
		ApplySpellRES("CDHLYSY2",Player2) // I cannot thank you enough, <CHARNAME>, for the gift you have given me.  I once thought I had done everything I could to fight for what was good...but it was you that showed me how wrong I was.  Without you, I would have died with that stain upon my soul and perhaps even been Melissan's puppet forever.
		TakeItemReplace("BELT14","CDHLYSYM",Player2) // No such index
END

IF
	Kit(Player3,GODTALOS)
	HasItem("CDHLYSYM",Player3) // No such index
THEN
	RESPONSE #100
		ApplySpellRES("CDHLYSY2",Player3) // I cannot thank you enough, <CHARNAME>, for the gift you have given me.  I once thought I had done everything I could to fight for what was good...but it was you that showed me how wrong I was.  Without you, I would have died with that stain upon my soul and perhaps even been Melissan's puppet forever.
		TakeItemReplace("BELT14","CDHLYSYM",Player3) // No such index
END

IF
	Kit(Player4,GODTALOS)
	HasItem("CDHLYSYM",Player4) // No such index
THEN
	RESPONSE #100
		ApplySpellRES("CDHLYSY2",Player4) // I cannot thank you enough, <CHARNAME>, for the gift you have given me.  I once thought I had done everything I could to fight for what was good...but it was you that showed me how wrong I was.  Without you, I would have died with that stain upon my soul and perhaps even been Melissan's puppet forever.
		TakeItemReplace("BELT14","CDHLYSYM",Player4) // No such index
END

IF
	Kit(Player5,GODTALOS)
	HasItem("CDHLYSYM",Player5) // No such index
THEN
	RESPONSE #100
		ApplySpellRES("CDHLYSY2",Player5) // I cannot thank you enough, <CHARNAME>, for the gift you have given me.  I once thought I had done everything I could to fight for what was good...but it was you that showed me how wrong I was.  Without you, I would have died with that stain upon my soul and perhaps even been Melissan's puppet forever.
		TakeItemReplace("BELT14","CDHLYSYM",Player5) // No such index
END

IF
	Kit(Player6,GODTALOS)
	HasItem("CDHLYSYM",Player6) // No such index
THEN
	RESPONSE #100
		ApplySpellRES("CDHLYSY2",Player6) // I cannot thank you enough, <CHARNAME>, for the gift you have given me.  I once thought I had done everything I could to fight for what was good...but it was you that showed me how wrong I was.  Without you, I would have died with that stain upon my soul and perhaps even been Melissan's puppet forever.
		TakeItemReplace("BELT14","CDHLYSYM",Player6) // No such index
END

IF
	Kit(Player1,GODHELM)
	HasItem("CDHLYSYM",Player1) // No such index
THEN
	RESPONSE #100
		ApplySpellRES("CDHLYSY2",Player1) // I cannot thank you enough, <CHARNAME>, for the gift you have given me.  I once thought I had done everything I could to fight for what was good...but it was you that showed me how wrong I was.  Without you, I would have died with that stain upon my soul and perhaps even been Melissan's puppet forever.
		TakeItemReplace("BELT13","CDHLYSYM",Player1) // No such index
END

IF
	Kit(Player2,GODHELM)
	HasItem("CDHLYSYM",Player2) // No such index
THEN
	RESPONSE #100
		ApplySpellRES("CDHLYSY2",Player2) // I cannot thank you enough, <CHARNAME>, for the gift you have given me.  I once thought I had done everything I could to fight for what was good...but it was you that showed me how wrong I was.  Without you, I would have died with that stain upon my soul and perhaps even been Melissan's puppet forever.
		TakeItemReplace("BELT13","CDHLYSYM",Player2) // No such index
END

IF
	Kit(Player3,GODHELM)
	HasItem("CDHLYSYM",Player3) // No such index
THEN
	RESPONSE #100
		ApplySpellRES("CDHLYSY2",Player3) // I cannot thank you enough, <CHARNAME>, for the gift you have given me.  I once thought I had done everything I could to fight for what was good...but it was you that showed me how wrong I was.  Without you, I would have died with that stain upon my soul and perhaps even been Melissan's puppet forever.
		TakeItemReplace("BELT13","CDHLYSYM",Player3) // No such index
END

IF
	Kit(Player4,GODHELM)
	HasItem("CDHLYSYM",Player4) // No such index
THEN
	RESPONSE #100
		ApplySpellRES("CDHLYSY2",Player4) // I cannot thank you enough, <CHARNAME>, for the gift you have given me.  I once thought I had done everything I could to fight for what was good...but it was you that showed me how wrong I was.  Without you, I would have died with that stain upon my soul and perhaps even been Melissan's puppet forever.
		TakeItemReplace("BELT13","CDHLYSYM",Player4) // No such index
END

IF
	Kit(Player5,GODHELM)
	HasItem("CDHLYSYM",Player5) // No such index
THEN
	RESPONSE #100
		ApplySpellRES("CDHLYSY2",Player5) // I cannot thank you enough, <CHARNAME>, for the gift you have given me.  I once thought I had done everything I could to fight for what was good...but it was you that showed me how wrong I was.  Without you, I would have died with that stain upon my soul and perhaps even been Melissan's puppet forever.
		TakeItemReplace("BELT13","CDHLYSYM",Player5) // No such index
END

IF
	Kit(Player6,GODHELM)
	HasItem("CDHLYSYM",Player6) // No such index
THEN
	RESPONSE #100
		ApplySpellRES("CDHLYSY2",Player6) // I cannot thank you enough, <CHARNAME>, for the gift you have given me.  I once thought I had done everything I could to fight for what was good...but it was you that showed me how wrong I was.  Without you, I would have died with that stain upon my soul and perhaps even been Melissan's puppet forever.
		TakeItemReplace("BELT13","CDHLYSYM",Player6) // No such index
END

IF
	Kit(Player1,GODLATHANDER)
	HasItem("CDHLYSYM",Player1) // No such index
THEN
	RESPONSE #100
		ApplySpellRES("CDHLYSY2",Player1) // I cannot thank you enough, <CHARNAME>, for the gift you have given me.  I once thought I had done everything I could to fight for what was good...but it was you that showed me how wrong I was.  Without you, I would have died with that stain upon my soul and perhaps even been Melissan's puppet forever.
		TakeItemReplace("BELT12","CDHLYSYM",Player1) // No such index
END

IF
	Kit(Player2,GODLATHANDER)
	HasItem("CDHLYSYM",Player2) // No such index
THEN
	RESPONSE #100
		ApplySpellRES("CDHLYSY2",Player2) // I cannot thank you enough, <CHARNAME>, for the gift you have given me.  I once thought I had done everything I could to fight for what was good...but it was you that showed me how wrong I was.  Without you, I would have died with that stain upon my soul and perhaps even been Melissan's puppet forever.
		TakeItemReplace("BELT12","CDHLYSYM",Player2) // No such index
END

IF
	Kit(Player3,GODLATHANDER)
	HasItem("CDHLYSYM",Player3) // No such index
THEN
	RESPONSE #100
		ApplySpellRES("CDHLYSY2",Player3) // I cannot thank you enough, <CHARNAME>, for the gift you have given me.  I once thought I had done everything I could to fight for what was good...but it was you that showed me how wrong I was.  Without you, I would have died with that stain upon my soul and perhaps even been Melissan's puppet forever.
		TakeItemReplace("BELT12","CDHLYSYM",Player3) // No such index
END

IF
	Kit(Player4,GODLATHANDER)
	HasItem("CDHLYSYM",Player4) // No such index
THEN
	RESPONSE #100
		ApplySpellRES("CDHLYSY2",Player4) // I cannot thank you enough, <CHARNAME>, for the gift you have given me.  I once thought I had done everything I could to fight for what was good...but it was you that showed me how wrong I was.  Without you, I would have died with that stain upon my soul and perhaps even been Melissan's puppet forever.
		TakeItemReplace("BELT12","CDHLYSYM",Player4) // No such index
END

IF
	Kit(Player5,GODLATHANDER)
	HasItem("CDHLYSYM",Player5) // No such index
THEN
	RESPONSE #100
		ApplySpellRES("CDHLYSY2",Player5) // I cannot thank you enough, <CHARNAME>, for the gift you have given me.  I once thought I had done everything I could to fight for what was good...but it was you that showed me how wrong I was.  Without you, I would have died with that stain upon my soul and perhaps even been Melissan's puppet forever.
		TakeItemReplace("BELT12","CDHLYSYM",Player5) // No such index
END

IF
	Kit(Player6,GODLATHANDER)
	HasItem("CDHLYSYM",Player6) // No such index
THEN
	RESPONSE #100
		ApplySpellRES("CDHLYSY2",Player6) // I cannot thank you enough, <CHARNAME>, for the gift you have given me.  I once thought I had done everything I could to fight for what was good...but it was you that showed me how wrong I was.  Without you, I would have died with that stain upon my soul and perhaps even been Melissan's puppet forever.
		TakeItemReplace("BELT12","CDHLYSYM",Player6) // No such index
END

IF
	AreaType(OUTDOOR)
	!AreaType(CITY)
	GlobalTimerExpired("SUPissedDryad","GLOBAL")
	Global("SURevengeSpawn","GLOBAL",0)
	CombatCounter(0)
THEN
	RESPONSE #100
		SetGlobal("SURevengeSpawn","GLOBAL",1)
		CreateCreatureObjectDoor("sudryad",Player1,0,0,0) // Phluafae
END

IF
	OR(2)
		Global("D0Poor","GLOBAL",11)
		Global("D0Poor","GLOBAL",13)
	GlobalTimerExpired("D0KillGirl","GLOBAL")
	CombatCounter(0)
	!InMyArea("d0thug")
THEN
	RESPONSE #100
		SetGlobal("D0Poor","GLOBAL",14)
		CreateCreatureObjectOffScreen("d0thug",Player1,0,0,0) // Thug
		ActionOverride("d0thug",StartDialogueNoSet(Player1))
END

IF
	OR(2)
		Global("D0Lender","GLOBAL",4)
		GlobalTimerExpired("D0BeatTimer","GLOBAL")
	OR(2)
		Global("D0Lender","GLOBAL",2)
		Global("D0Lender","GLOBAL",4)
	Global("D0Attack","GLOBAL",0)
	OR(8)
		AreaCheckObject("AR0020",Player1)
		AreaCheckObject("AR0300",Player1)
		AreaCheckObject("AR0400",Player1)
		AreaCheckObject("AR0500",Player1)
		AreaCheckObject("AR0700",Player1)
		AreaCheckObject("AR0800",Player1)
		AreaCheckObject("AR0900",Player1)
		AreaCheckObject("AR1000",Player1)
	TimeOfDay(NIGHT)
	RandomNum(2,1)
THEN
	RESPONSE #100
		SetGlobal("D0Attack","GLOBAL",1)
		CreateCreatureObjectOffScreen("d0debt1",Player1,0,0,0) // Debt Collector
		CreateCreatureObject("d0debt2","d0debt",0,0,0) // Debt Collector
		CreateCreatureObject("d0debt2","d0debt",0,0,0) // Debt Collector
		CreateCreatureObject("d0debt2","d0debt",0,0,0) // Debt Collector
		CreateCreatureObject("d0debt3","d0debt",0,0,0) // Debt Collector
		Continue()
END

IF
	OR(2)
		Global("D0Lender","GLOBAL",4)
		GlobalTimerExpired("D0BeatTimer","GLOBAL")
	OR(2)
		Global("D0Lender","GLOBAL",2)
		Global("D0Lender","GLOBAL",4)
	Global("D0Attack","GLOBAL",0)
	OR(8)
		AreaCheckObject("AR0020",Player1)
		AreaCheckObject("AR0300",Player1)
		AreaCheckObject("AR0400",Player1)
		AreaCheckObject("AR0500",Player1)
		AreaCheckObject("AR0700",Player1)
		AreaCheckObject("AR0800",Player1)
		AreaCheckObject("AR0900",Player1)
		AreaCheckObject("AR1000",Player1)
	TimeOfDay(NIGHT)
	RandomNum(2,2)
THEN
	RESPONSE #100
		SetGlobal("D0Attack","GLOBAL",1)
		CreateCreatureObjectOffScreen("d0debt1",Player1,0,0,0) // Debt Collector
		CreateCreatureObject("d0debt3","d0debt",0,0,0) // Debt Collector
		CreateCreatureObject("d0debt3","d0debt",0,0,0) // Debt Collector
		CreateCreatureObject("d0debt3","d0debt",0,0,0) // Debt Collector
		Continue()
END

IF
	Global("D0Poor","GLOBAL",4)
	GlobalTimerExpired("D0PoorAttack","GLOBAL")
	OR(7)
		AreaCheckObject("AR0020",Player1)
		AreaCheckObject("AR0300",Player1)
		AreaCheckObject("AR0500",Player1)
		AreaCheckObject("AR0700",Player1)
		AreaCheckObject("AR0800",Player1)
		AreaCheckObject("AR0900",Player1)
		AreaCheckObject("AR1000",Player1)
	CombatCounter(0)
THEN
	RESPONSE #100
		SetGlobal("D0Poor","GLOBAL",5)
		CreateCreatureObjectOffScreen("D0Boy",Player1,0,0,0) // Boy
		ActionOverride("D0Boy",StartDialogueNoSet(Player1))
END

IF
	Global("D0JahShaz","GLOBAL",4)
	GlobalTimerExpired("D0JahShazTimer","GLOBAL")
	PartyHasItem("sw1h50") // Shazzellim +1
	OR(8)
		AreaCheckObject("AR0020",Player1)
		AreaCheckObject("AR0300",Player1)
		AreaCheckObject("AR0400",Player1)
		AreaCheckObject("AR0500",Player1)
		AreaCheckObject("AR0700",Player1)
		AreaCheckObject("AR0800",Player1)
		AreaCheckObject("AR0900",Player1)
		AreaCheckObject("AR1000",Player1)
	CombatCounter(0)
THEN
	RESPONSE #100
		SetGlobal("D0JahShaz","GLOBAL",10)
		CreateCreatureObjectOffScreen("d0jahrev",Player1,0,0,0) // Jaheira
		CreateCreatureObjectOffScreen("d0jahre2",Player1,0,0,0) // Harper
		CreateCreatureObjectOffScreen("d0jahre2",Player1,0,0,0) // Harper
		CreateCreatureObjectOffScreen("d0jahre2",Player1,0,0,0) // Harper
END

IF
	Dead("d0jahrev") // Jaheira
	!Dead("Jaheira")
THEN
	RESPONSE #100
		SetGlobal("SPRITE_IS_DEADJaheira","GLOBAL",1)
		Continue()
END

IF
	GlobalGT("chapter","GLOBAL",5)
	OR(8)
		AreaCheckObject("AR0020",Player1)
		AreaCheckObject("AR0300",Player1)
		AreaCheckObject("AR0400",Player1)
		AreaCheckObject("AR0500",Player1)
		AreaCheckObject("AR0700",Player1)
		AreaCheckObject("AR0800",Player1)
		AreaCheckObject("AR0900",Player1)
		AreaCheckObject("AR1000",Player1)
	!GlobalTimerNotExpired("D0MaevarTimer","GLOBAL")
	Global("D0Maevar","GLOBAL",3)
	OR(2)
		!GlobalGT("D0Maevar2","GLOBAL",29)
		Global("D0Maevar2","GLOBAL",33)
	OR(2)
		!Global("D0Maevar2","GLOBAL",1)
		Global("D0Maevar2","GLOBAL",33)
	!Dead("Aran") // Aran Linvail
	!Dead("Maevar") // Mae'Var
	!Dead("d0nightk") // Larell
	CombatCounter(0)
THEN
	RESPONSE #100
		SetGlobal("D0Maevar","GLOBAL",4)
		CreateCreatureObjectOffScreen("d0msngr",Player1,0,0,0) // Shadow Thief
		ActionOverride("d0msngr",StartDialogueNoSet(Player1))
END

IF
	GlobalGT("chapter","GLOBAL",5)
	OR(8)
		AreaCheckObject("AR0020",Player1)
		AreaCheckObject("AR0300",Player1)
		AreaCheckObject("AR0400",Player1)
		AreaCheckObject("AR0500",Player1)
		AreaCheckObject("AR0700",Player1)
		AreaCheckObject("AR0800",Player1)
		AreaCheckObject("AR0900",Player1)
		AreaCheckObject("AR1000",Player1)
	GlobalLT("D0Maevar","GLOBAL",3)
	!GlobalGT("D0Maevar2","GLOBAL",29)
	!Global("D0Maevar2","GLOBAL",1)
	!Dead("Aran") // Aran Linvail
	!Dead("habrega") // Chief Inspector Brega
	Global("PlayerThiefGuild","GLOBAL",0)
	CombatCounter(0)
THEN
	RESPONSE #100
		SetGlobal("D0Maevar2","GLOBAL",30)
		CreateCreatureObjectOffScreen("d0msngr2",Player1,0,0,0) // Messenger
		ActionOverride("d0msngr2",StartDialogueNoSet(Player1))
END

IF
	GlobalLT("chapter","GLOBAL",6)
	OR(8)
		AreaCheckObject("AR0020",Player1)
		AreaCheckObject("AR0300",Player1)
		AreaCheckObject("AR0400",Player1)
		AreaCheckObject("AR0500",Player1)
		AreaCheckObject("AR0700",Player1)
		AreaCheckObject("AR0800",Player1)
		AreaCheckObject("AR0900",Player1)
		AreaCheckObject("AR1000",Player1)
	Global("D0Maevar","GLOBAL",3)
	GlobalTimerExpired("D0RenalRevenge","GLOBAL")
	Global("D0RenalRevengeSpawn","GLOBAL",0)
	TimeOfDay(NIGHT)
	CombatCounter(0)
THEN
	RESPONSE #100
		SetGlobal("D0RenalRevengeSpawn","GLOBAL",1)
		CreateCreatureObjectOffScreen("d0renrev",Player1,0,0,0) // Shadow Thief
		ActionOverride("d0renrev",StartDialogueNoSet(Player1))
END

IF
	Class(Player1,PALADIN_ALL)
	!FallenPaladin(Player1)
	OR(2)
		Global("b#SamilWarned","GLOBAL",2)
		Global("b#SamilChellenged","GLOBAL",2)
	Global("b#SamilMove","GLOBAL",2)
	Global("b#LostHood","GLOBAL",0)
THEN
	RESPONSE #100
		SetGlobal("b#LostHood","GLOBAL",0)
		RemovePaladinHood()
END

IF
	Class(Player1,RANGER_ALL)
	!FallenPaladin(Player1)
	OR(2)
		Global("b#SamilWarned","GLOBAL",2)
		Global("b#SamilChellenged","GLOBAL",2)
	Global("b#SamilMove","GLOBAL",2)
	Global("b#LostHood","GLOBAL",0)
THEN
	RESPONSE #100
		SetGlobal("b#LostHood","GLOBAL",0)
		RemoveRangerHood()
END

IF
	CheckStatGT(Player1,14,LEVEL)
	AreaType(OUTDOOR)
	AreaType(CITY)
	CombatCounter(0)
	OR(2)
		GlobalLT("Chapter","GLOBAL",4)
		GlobalGT("Chapter","GLOBAL",5)
	Global("b#CreateLug","GLOBAL",0)
THEN
	RESPONSE #100
		SetGlobal("b#CreateLug","GLOBAL",1)
		CreateCreatureObjectOffset("b#knitlg",Player1,[0.-100]) // Lug
END

IF
	HasItemEquiped("clck26",Player1) // Cloak of Cheesing
	Global("b#DestroyedCloak","GLOBAL",0)
	Global("b#TalkedLug","GLOBAL",1)
	Global("b#CreateSamilGroup1","GLOBAL",0)
THEN
	RESPONSE #100
		SetGlobal("b#DestroyedCloak","GLOBAL",1)
		ActionOverride(Player1,DestroyItem("clck26")) // Cloak of Cheesing
END

IF
	Global("b#TalkedLug","GLOBAL",1)
	Global("b#CreateSamilGroup1","GLOBAL",0)
THEN
	RESPONSE #100
		StartCutSceneMode()
		SetGlobal("b#CreateSamilGroup1","GLOBAL",1)
		MoveViewObject(Player1,STANDARD)
		Wait(3)
		CreateCreatureObjectOffset("b#knit01",Player1,[0.-75]) // Lord Samildanach
		ActionOverride("b#knit01",Face(0))
		CreateCreatureObjectOffset("b#knit04",Player1,[-100.-100]) // Bodarch
		ActionOverride("b#knit04",Face(14))
		CreateCreatureObjectOffset("b#knit07",Player1,[100.-100]) // Jonan
		ActionOverride("b#knit07",Face(2))
		CreateVisualEffectObject("spdimndr","b#knit01")
		CreateVisualEffectObject("spdimndr","b#knit04")
		CreateVisualEffectObject("spdimndr","b#knit07")
		Wait(5)
		ActionOverride("b#knit01",DisplayStringHead(Myself,317278)) // There you are boy!
		Wait(5)
		ActionOverride("b#knitlg",DisplayStringHead(Myself,317279)) // Leave me alone, pleeease!
		Wait(5)
		ActionOverride("b#knit01",DisplayStringHead(Myself,317280)) // Nonsense. Bodarch!
		Wait(5)
		ActionOverride("b#knit04",DisplayStringHead(Myself,317281)) // Yes, m'lord?
		Wait(5)
		ActionOverride("b#knit01",DisplayStringHead(Myself,317282)) // Kill the child.
		Wait(5)
		ActionOverride("b#knitlg",DisplayStringHead(Myself,317283)) // Please. Nooo!
		Wait(5)
		ActionOverride("b#knit04",DisplayStringHead(Myself,317284)) // With pleasure, m'lord!
		Wait(5)
		ActionOverride("b#knit04",Attack("b#knitlg"))
		Wait(5)
		EndCutSceneMode()
		SetGlobal("b#SamilKilledLug","GLOBAL",1)
END

IF
	!HasItem("clck26",Player1) // Cloak of Cheesing
	Global("b#DestroyedCloak","GLOBAL",1)
	Global("b#SamilKilledLug","GLOBAL",1)
	Global("b#LeaveSamilGroup1","GLOBAL",0)
THEN
	RESPONSE #100
		IncrementGlobal("b#DestroyedCloak","GLOBAL",1)
		GiveItemCreate("clck26",Player1,0,0,0) // Cloak of Cheesing
		ActionOverride(Player1,EquipItem("clck26")) // Cloak of Cheesing
END

IF
	Global("b#SamilWarned","GLOBAL",1)
	Global("b#LeaveSamilGroup1","GLOBAL",0)
THEN
	RESPONSE #100
		StartCutSceneMode()
		SetGlobal("b#LeaveSamilGroup1","GLOBAL",1)
		MoveViewObject(Player1,STANDARD)
		Wait(3)
		ActionOverride("b#knit01",ReallyForceSpell(Myself,DRYAD_TELEPORT))
		ActionOverride("b#knit04",ReallyForceSpell(Myself,DRYAD_TELEPORT))
		ActionOverride("b#knit07",ReallyForceSpell(Myself,DRYAD_TELEPORT))
		Wait(5)
		EndCutSceneMode()
END

IF
	Global("EAMadCleric","GLOBAL",0)
	Dead("dcleric") // Mad Cleric
THEN
	RESPONSE #100
		SetGlobal("EAMadCleric","GLOBAL",1)
		SetGlobalTimer("EAMadClericSpawn","GLOBAL",THIRTY_DAYS)
END

IF
	Global("EAMadCleric","GLOBAL",1)
	AreaType(OUTDOOR)
	AreaType(CITY)
	GlobalTimerExpired("EAMadClericSpawn","GLOBAL")
THEN
	RESPONSE #500
		ActionOverride(Player1,CreateCreatureOffScreen("dcleric2",0)) // The Redeemer
		SetGlobal("EAMadCleric","GLOBAL",2)
END

IF
	Dead("SEVPAT03") // Pookey
	AreaType(OUTDOOR)
	AreaType(CITY)
	CombatCounter(0)
	Global("b#PookyParents","GLOBAL",0)
	OR(2)
		GlobalLT("Chapter","GLOBAL",4)
		GlobalGT("Chapter","GLOBAL",5)
THEN
	RESPONSE #100
		IncrementGlobal("b#PookyParents","GLOBAL",1)
		SetGlobalTimer("b#PookyParentsTimer","GLOBAL",ONE_DAY)
END

IF
	AreaType(OUTDOOR)
	AreaType(CITY)
	CombatCounter(0)
	Global("b#PookyParents","GLOBAL",1)
	GlobalTimerExpired("b#PookyParentsTimer","GLOBAL")
	OR(2)
		GlobalLT("Chapter","GLOBAL",4)
		GlobalGT("Chapter","GLOBAL",5)
THEN
	RESPONSE #100
		IncrementGlobal("b#PookyParents","GLOBAL",1)
		CreateCreatureObjectOffset("b#pdad",Player1,[75.100]) // Walter Pooky
		CreateVisualEffectObject("SPDIMNDR","b#pkydad")
		ActionOverride("b#pdad",FaceObject(Player1))
		CreateCreatureObjectOffset("b#pmom",Player1,[-75.100]) // Martha Pooky
		CreateVisualEffectObject("SPDIMNDR","b#pkymom")
		ActionOverride("b#pmom",FaceObject(Player1))
END

IF
	Global("b#PookyParentsTalked","GLOBAL",1)
THEN
	RESPONSE #100
		IncrementGlobal("b#PookyParentsTalked","GLOBAL",1)
		DisplayString(Player1,317166) // As they leap into the air and start to fly around, you become filled with dread, and they are well out of the range of all your melee weapons. The dread turns to fear, and your blood begins to surge threw your veins.
END

IF
	Delay(6)
	OR(6)
		HasItemEquiped("solablad",Player1) // Tsuki no Ken +4
		HasItemEquiped("solablad",Player2) // Tsuki no Ken +4
		HasItemEquiped("solablad",Player3) // Tsuki no Ken +4
		HasItemEquiped("solablad",Player4) // Tsuki no Ken +4
		HasItemEquiped("solablad",Player5) // Tsuki no Ken +4
		HasItemEquiped("solablad",Player6) // Tsuki no Ken +4
	!HasItemEquiped("solablad","sola") // Tsuki no Ken +4
	!HasItemEquiped("solablad","solaufein") // Tsuki no Ken +4
THEN
	RESPONSE #100
		DisplayStringHeadOwner("solablad",289580) // Eilistraee has taken back the Moonblade. It was for Solaufein only.
		TakePartyItem("solablad") // Tsuki no Ken +4
END

IF
	Delay(6)
	OR(6)
		HasItemEquiped("solabla2",Player1) // Tsuki no Ken +5
		HasItemEquiped("solabla2",Player2) // Tsuki no Ken +5
		HasItemEquiped("solabla2",Player3) // Tsuki no Ken +5
		HasItemEquiped("solabla2",Player4) // Tsuki no Ken +5
		HasItemEquiped("solabla2",Player5) // Tsuki no Ken +5
		HasItemEquiped("solabla2",Player6) // Tsuki no Ken +5
	!HasItemEquiped("solabla2","sola") // Tsuki no Ken +5
	!HasItemEquiped("solabla2","solaufein") // Tsuki no Ken +5
THEN
	RESPONSE #100
		DisplayStringHeadOwner("solabla2",289580) // Eilistraee has taken back the Moonblade. It was for Solaufein only.
		TakePartyItem("solabla2") // Tsuki no Ken +5
END

IF
	Global("KuroiSpawn","GLOBAL",0)
	AreaType(OUTDOOR)
	AreaType(CITY)
	CombatCounter(0)
	!Difficulty(EASIEST)
	OR(18)
		HasItemEquiped("c2sw1h02",Player1) // Celestial Fury +5
		HasItemEquiped("c2sw1h02",Player2) // Celestial Fury +5
		HasItemEquiped("c2sw1h02",Player3) // Celestial Fury +5
		HasItemEquiped("c2sw1h02",Player4) // Celestial Fury +5
		HasItemEquiped("c2sw1h02",Player5) // Celestial Fury +5
		HasItemEquiped("c2sw1h02",Player6) // Celestial Fury +5
		HasItemEquiped("sw1h45",Player1) // Malakar +2
		HasItemEquiped("sw1h45",Player2) // Malakar +2
		HasItemEquiped("sw1h45",Player3) // Malakar +2
		HasItemEquiped("sw1h45",Player4) // Malakar +2
		HasItemEquiped("sw1h45",Player5) // Malakar +2
		HasItemEquiped("sw1h45",Player6) // Malakar +2
		HasItemEquiped("sw1h51",Player1) // Ziggi's Katana
		HasItemEquiped("sw1h51",Player2) // Ziggi's Katana
		HasItemEquiped("sw1h51",Player3) // Ziggi's Katana
		HasItemEquiped("sw1h51",Player4) // Ziggi's Katana
		HasItemEquiped("sw1h51",Player5) // Ziggi's Katana
		HasItemEquiped("sw1h51",Player6) // Ziggi's Katana
	OR(2)
		GlobalLT("Chapter","GLOBAL",4)
		GlobalGT("Chapter","GLOBAL",5)
THEN
	RESPONSE #100
		IncrementGlobal("KuroiSpawn","GLOBAL",1)
		SetGlobalTimer("KuroiSpawnTimer","GLOBAL",ONE_DAY)
END

IF
	!Global("KuroiSpawn","GLOBAL",2)
	!Difficulty(EASIEST)
	OR(6)
		HasItemEquiped("solak1",Player1) // Kuroisan
		HasItemEquiped("solak1",Player2) // Kuroisan
		HasItemEquiped("solak1",Player3) // Kuroisan
		HasItemEquiped("solak1",Player4) // Kuroisan
		HasItemEquiped("solak1",Player5) // Kuroisan
		HasItemEquiped("solak1",Player6) // Kuroisan
THEN
	RESPONSE #100
		SetGlobal("KuroiSpawn","GLOBAL",2)
END

IF
	Global("KuroiSpawn","GLOBAL",1)
	GlobalTimerExpired("KuroiSpawnTimer","GLOBAL")
	!Difficulty(EASIEST)
	AreaType(OUTDOOR)
	AreaType(CITY)
	CombatCounter(0)
	OR(18)
		HasItemEquiped("c2sw1h02",Player1) // Celestial Fury +5
		HasItemEquiped("c2sw1h02",Player2) // Celestial Fury +5
		HasItemEquiped("c2sw1h02",Player3) // Celestial Fury +5
		HasItemEquiped("c2sw1h02",Player4) // Celestial Fury +5
		HasItemEquiped("c2sw1h02",Player5) // Celestial Fury +5
		HasItemEquiped("c2sw1h02",Player6) // Celestial Fury +5
		HasItemEquiped("sw1h45",Player1) // Malakar +2
		HasItemEquiped("sw1h45",Player2) // Malakar +2
		HasItemEquiped("sw1h45",Player3) // Malakar +2
		HasItemEquiped("sw1h45",Player4) // Malakar +2
		HasItemEquiped("sw1h45",Player5) // Malakar +2
		HasItemEquiped("sw1h45",Player6) // Malakar +2
		HasItemEquiped("sw1h51",Player1) // Ziggi's Katana
		HasItemEquiped("sw1h51",Player2) // Ziggi's Katana
		HasItemEquiped("sw1h51",Player3) // Ziggi's Katana
		HasItemEquiped("sw1h51",Player4) // Ziggi's Katana
		HasItemEquiped("sw1h51",Player5) // Ziggi's Katana
		HasItemEquiped("sw1h51",Player6) // Ziggi's Katana
	OR(2)
		GlobalLT("Chapter","GLOBAL",4)
		GlobalGT("Chapter","GLOBAL",5)
THEN
	RESPONSE #100
		IncrementGlobal("KuroiSpawn","GLOBAL",1)
		CreateCreatureObjectOffScreen("solak1",Player1,0,0,0) // Kuroisan
END

IF
	Dead("Horred") // Horred the Plague - Horred
	Global("BPHorredDeadCheck","GLOBAL",0)
	!Global("BPHorredChanged","GLOBAL",2)
THEN
	RESPONSE #100
		SetInterrupt(FALSE)
		SetGlobal("BPHorredDeadCheck","GLOBAL",1)
		SetGlobal("BPHorredLastSpeech","GLOBAL",1)
		StartDialog("HORRED",Player1)
		SetInterrupt(TRUE)
END

IF
	Global("DMWWC3Assassin","GLOBAL",0)
	GlobalGT("Chapter","GLOBAL",3)
	XPGT(Player1,10000)
THEN
	RESPONSE #100
		SetGlobal("DMWWC3Assassin","GLOBAL",1)
		SetGlobalTimer("DMWWC3AssassinSpawn","GLOBAL",FIVE_DAYS)
END

IF
	Global("DMWWC3Assassin","GLOBAL",1)
	AreaType(OUTDOOR)
	!AreaType(CITY)
	!AreaCheck("AR4700")
	!AreaCheck("AR4701")
	!AreaCheck("AR4800")
	!AreaCheck("AR4801")
	!AreaCheck("AR4900")
	!AreaCheck("AR4901")
	!AreaCheck("AR5100")
	!AreaCheck("AR5101")
	!AreaCheck("AR5300")
	!AreaCheck("AR5301")
	!AreaCheck("AR5400")
	OR(3)
		GlobalTimerExpired("DMWWC3AssassinSpawn","GLOBAL")
		Dead("tranzig")
		Global("BanditEnemy","GLOBAL",1)
THEN
	RESPONSE #500
		ActionOverride(Player1,CreateCreatureOffScreen("DRAKAR",0)) // Drakar
		ActionOverride(Player1,CreateCreatureOffScreen("HALACA",0)) // Halacan
		ActionOverride(Player1,CreateCreatureOffScreen("MOLKAR",0)) // Molkar
		ActionOverride(Player1,CreateCreatureOffScreen("MORVIN",0)) // Morvin
		SetGlobal("DMWWC3Assassin","GLOBAL",3)
		SetGlobalTimer("DMWWC3AssassinMiniSpawn","GLOBAL",ONE_DAY)
		SetGlobalTimer("DMWWC3AssassinSpawn","GLOBAL",FIVE_DAYS)
	RESPONSE #500
		ActionOverride(Player1,CreateCreatureOffScreen("LAMALH",0)) // Lamalha
		ActionOverride(Player1,CreateCreatureOffScreen("TELKA",0)) // Telka
		ActionOverride(Player1,CreateCreatureOffScreen("ZEELA",0)) // Zeela
		ActionOverride(Player1,CreateCreatureOffScreen("MANEIR",0)) // Maneira
		SetGlobal("DMWWC3Assassin","GLOBAL",2)
		SetGlobalTimer("DMWWC3AssassinMiniSpawn","GLOBAL",ONE_DAY)
		SetGlobalTimer("DMWWC3AssassinSpawn","GLOBAL",FIVE_DAYS)
END

IF
	Global("DMWWC3Assassin","GLOBAL",2)
	AreaType(OUTDOOR)
	!AreaType(CITY)
	!AreaCheck("AR4700")
	!AreaCheck("AR4701")
	!AreaCheck("AR4800")
	!AreaCheck("AR4801")
	!AreaCheck("AR4900")
	!AreaCheck("AR4901")
	!AreaCheck("AR5100")
	!AreaCheck("AR5101")
	!AreaCheck("AR5300")
	!AreaCheck("AR5301")
	!AreaCheck("AR5400")
	OR(3)
		Global("BanditEnemy","GLOBAL",1)
		Dead("tranzig")
		GlobalGT("Chapter","GLOBAL",4)
	OR(2)
		GlobalTimerExpired("DMWWC3AssassinSpawn","GLOBAL")
		GlobalGT("Chapter","GLOBAL",4)
	GlobalTimerExpired("DMWWC3AssassinMiniSpawn","GLOBAL")
THEN
	RESPONSE #100
		ActionOverride(Player1,CreateCreatureOffScreen("DRAKAR",0)) // Drakar
		ActionOverride(Player1,CreateCreatureOffScreen("HALACA",0)) // Halacan
		ActionOverride(Player1,CreateCreatureOffScreen("MOLKAR",0)) // Molkar
		ActionOverride(Player1,CreateCreatureOffScreen("MORVIN",0)) // Morvin
		SetGlobal("DMWWC3Assassin","GLOBAL",4)
END

IF
	Global("DMWWC3Assassin","GLOBAL",3)
	AreaType(OUTDOOR)
	!AreaType(CITY)
	!AreaCheck("AR4700")
	!AreaCheck("AR4701")
	!AreaCheck("AR4800")
	!AreaCheck("AR4801")
	!AreaCheck("AR4900")
	!AreaCheck("AR4901")
	!AreaCheck("AR5100")
	!AreaCheck("AR5101")
	!AreaCheck("AR5300")
	!AreaCheck("AR5301")
	!AreaCheck("AR5400")
	OR(3)
		Global("BanditEnemy","GLOBAL",1)
		Dead("tranzig")
		GlobalGT("Chapter","GLOBAL",4)
	OR(2)
		GlobalTimerExpired("DMWWC3AssassinSpawn","GLOBAL")
		GlobalGT("Chapter","GLOBAL",4)
	GlobalTimerExpired("DMWWC3AssassinMiniSpawn","GLOBAL")
THEN
	RESPONSE #100
		ActionOverride(Player1,CreateCreatureOffScreen("LAMALH",0)) // Lamalha
		ActionOverride(Player1,CreateCreatureOffScreen("TELKA",0)) // Telka
		ActionOverride(Player1,CreateCreatureOffScreen("ZEELA",0)) // Zeela
		ActionOverride(Player1,CreateCreatureOffScreen("MANEIR",0)) // Maneira
		SetGlobal("DMWWC3Assassin","GLOBAL",4)
END

IF
	Global("wm_start","GLOBAL",0)
	GlobalGT("Chapter","GLOBAL",0)
	PartyRested()
	AreaType(OUTDOOR)
THEN
	RESPONSE #100
		ActionOverride(Player1,CreateCreature("wm_rhia1",[-1.-1],0)) // Rhialto the Marvelous - Rhialto
		SetGlobal("wm_start","GLOBAL",1)
END

IF
	PartyHasItem("MISC9R") // Light Gem
	GlobalGT("Chapter","GLOBAL",4)
	Global("hf_GemsForGrenades","Global",0)
THEN
	RESPONSE #100
		SetGlobal("hf_GemsForGrenades","Global",0)
		TakePartyItemAll("MISC9R") // Light Gem
		ActionOverride(Player1,GiveItemCreate("hf_HHG2",Player1,1,0,0)) // Holy Hand Grenade
		DisplayStringHead(Player1,282146) // Something stirs within the cosmos. The Light Gem you received from the gnomes in the underdark has been quasi-dimensionally changed to something else.
END

IF
	GlobalGT("HHGBoom","GLOBAL",0)
	Global("hf_BeenThroughItOnce","GLOBAL",0)
THEN
	RESPONSE #100
		ClearAllActions()
		StorePartyLocations()
		Wait(2)
		DisplayStringHead(Player1,282147) // You feel some kind of wrenching sensation as your vision is twisted through space-time to a paralell dimension...
		Wait(2)
		FadeToColor([30.0],0)
		Wait(2)
		ActionOverride(Player1,LeaveAreaLUA("hf2001","",[700.700],12))
		ActionOverride(Player2,LeaveAreaLUA("hf2001","",[705.705],11))
		ActionOverride(Player3,LeaveAreaLUA("hf2001","",[710.710],12))
		ActionOverride(Player4,LeaveAreaLUA("hf2001","",[705.715],11))
		ActionOverride(Player5,LeaveAreaLUA("hf2001","",[700.710],12))
		ActionOverride(Player6,LeaveAreaLUA("hf2001","",[715.715],11))
		FadeFromColor([30.0],0)
		SetGlobal("hf_BeenThroughItOnce","GLOBAL",1)
		Continue()
END

IF
	Global("hf_HolyHandGrenadeSceneOver","GLOBAL",1)
THEN
	RESPONSE #100
		ClearAllActions()
		FadeToColor([30.0],0)
		CutSceneId(Player1)
		RestorePartyLocations()
		EndCutSceneMode()
		FadeFromColor([30.0],0)
		SetGlobal("hf_HolyHandGrenadeSceneOver","GLOBAL",0)
		DisplayStringHead(Player1,282148) // You have no idea what the hell it was you just saw. You're certain however that it would've made more sense if perhaps there had been a larger budget for the scene.
		Continue()
END

IF
	Global("HideHessaArea","GLOBAL",0)
THEN
	RESPONSE #100
		SetGlobal("HideHessaArea","GLOBAL",1)
		HideAreaOnMap("ARSU10")
END

IF
	Dead("O#Xan")
	!InPartyAllowDead("O#Xan")
	GlobalLT("Chapter","GLOBAL",8)
	Global("O#XanRomanceActive","GLOBAL",2)
	!Global("O#XanMoonbladeExtinguished","GLOBAL",3)
	Global("O#XanBackFromTheDead","GLOBAL",0)
THEN
	RESPONSE #100
		SetGlobal("O#XanBackFromTheDead","GLOBAL",1)
		SetGlobal("O#XanRomanceActive","GLOBAL",3)
END

IF
	GlobalGT("O#XanRicarQuest","GLOBAL",10)
	Dead("O#DrowF") // Hunrae
	OR(7)
		AreaCheck("AR0020")
		AreaCheck("AR0300")
		AreaCheck("AR0400")
		AreaCheck("AR0500")
		AreaCheck("AR0700")
		AreaCheck("AR0900")
		AreaCheck("AR1000")
	Global("O#XanRicarQRevenge","GLOBAL",0)
THEN
	RESPONSE #100
		SetGlobal("O#XanRicarQRevenge","GLOBAL",1)
		RealSetGlobalTimer("O#XanRicarQRevengeTimer","GLOBAL",FORTY_MINUTES)
END

IF
	Global("O#XanRicarQRevenge","GLOBAL",1)
	RealGlobalTimerExpired("O#XanRicarQRevengeTimer","GLOBAL")
	OR(7)
		AreaCheck("AR0020")
		AreaCheck("AR0300")
		AreaCheck("AR0400")
		AreaCheck("AR0500")
		AreaCheck("AR0700")
		AreaCheck("AR0900")
		AreaCheck("AR1000")
THEN
	RESPONSE #100
		SetGlobal("O#XanRicarQRevenge","GLOBAL",2)
		ClearAllActions()
		StartCutSceneMode()
		StartCutScene("O#Cut2g")
END

IF
	Global("O#XanQuest4","GLOBAL",6)
	PartyRested()
	AreaType(OUTDOOR)
	OR(3)
		Global("Chapter","GLOBAL",2)
		Global("Chapter","GLOBAL",3)
		Global("Chapter","GLOBAL",6)
THEN
	RESPONSE #100
		CreateCreatureObjectOffset("O#Hiel",Player1,[30.25]) // Hiel
		CreateCreatureObjectOffset("O#Aegnor",Player1,[40.70]) // Aegnor
		CreateCreatureObjectOffset("O#Verell",Player1,[15.65]) // Verella
		CreateCreatureObjectOffset("O#Naiz",Player1,[65.35]) // Naiz
		SetGlobal("O#XanQuest4","GLOBAL",7)
		ActionOverride("O#Hiel",StartDialogueNoSet(Player1))
END

IF
	PartyRested()
	GlobalGT("Chapter","GLOBAL",5)
	Global("Sarie_Help","GLOBAL",1)
THEN
	RESPONSE #100
		ClearAllActions()
		SetGlobal("Sarie_Help","GLOBAL",2)
		StartCutScene("SK#HOT")
END

IF
	PartyHasItem("r!kitbdy") // Kitanya's Body
THEN
	RESPONSE #100
		SetGlobal("r!KitVampire","GLOBAL",4)
END

IF
	Global("R!KitJoined","GLOBAL",0)
	InParty("r!Kitanya")
THEN
	RESPONSE #100
		SetGlobal("R!KitJoined","GLOBAL",1)
END

IF
	Delay(6)
	OR(6)
		HasItemEquiped("E3AMUL01",Player1) // Fade's Amulet
		HasItemEquiped("E3AMUL01",Player2) // Fade's Amulet
		HasItemEquiped("E3AMUL01",Player3) // Fade's Amulet
		HasItemEquiped("E3AMUL01",Player4) // Fade's Amulet
		HasItemEquiped("E3AMUL01",Player5) // Fade's Amulet
		HasItemEquiped("E3AMUL01",Player6) // Fade's Amulet
	!HasItemEquiped("E3AMUL01","E3Fade") // Fade's Amulet
THEN
	RESPONSE #100
		DisplayStringHeadOwner("E3AMUL01",213573) // The amulet was intended for Fade's exclusive use. Your action, in the eyes of the law, may constitute criminal misappropriation, punishable by imprisonment for a term not less than six months and not more than five years and also by a fine.
		ActionOverride(Player1,DropItem("E3AMUL01",[-1.-1])) // Fade's Amulet
		ActionOverride(Player2,DropItem("E3AMUL01",[-1.-1])) // Fade's Amulet
		ActionOverride(Player3,DropItem("E3AMUL01",[-1.-1])) // Fade's Amulet
		ActionOverride(Player4,DropItem("E3AMUL01",[-1.-1])) // Fade's Amulet
		ActionOverride(Player5,DropItem("E3AMUL01",[-1.-1])) // Fade's Amulet
		ActionOverride(Player6,DropItem("E3AMUL01",[-1.-1])) // Fade's Amulet
END

IF
	Delay(6)
	OR(5)
		HasItemEquiped("E3AMUL02",Player2) // Fade's Amulet
		HasItemEquiped("E3AMUL02",Player3) // Fade's Amulet
		HasItemEquiped("E3AMUL02",Player4) // Fade's Amulet
		HasItemEquiped("E3AMUL02",Player5) // Fade's Amulet
		HasItemEquiped("E3AMUL02",Player6) // Fade's Amulet
	!HasItemEquiped("E3AMUL02","E3Fade") // Fade's Amulet
THEN
	RESPONSE #100
		DisplayStringHeadOwner("E3AMUL02",213574) // The amulet was intended for the exclusive use of Fade and <CHARNAME>. Your action, in the eyes of the law, may constitute criminal misappropriation, punishable by imprisonment for a term not less than six months and not more than five years and also by a fine.
		ActionOverride(Player2,DropItem("E3AMUL02",[-1.-1])) // Fade's Amulet
		ActionOverride(Player3,DropItem("E3AMUL02",[-1.-1])) // Fade's Amulet
		ActionOverride(Player4,DropItem("E3AMUL02",[-1.-1])) // Fade's Amulet
		ActionOverride(Player5,DropItem("E3AMUL02",[-1.-1])) // Fade's Amulet
		ActionOverride(Player6,DropItem("E3AMUL02",[-1.-1])) // Fade's Amulet
END

IF
	Global("Z#MeetingSeida","GLOBAL",1)
	Global("z#gaelanc6","GLOBAL",8)
	Global("z#movedfinale","GLOBAL",0)
	Global("EndOfBG1","GLOBAL",2)
THEN
	RESPONSE #100
		SetGlobal("z#movedfinale","GLOBAL",1)
		ActionOverride(Player1,LeaveAreaLUA("Z#0041","",[370.700],8))
		ActionOverride(Player2,LeaveAreaLUA("Z#0041","",[290.700],8))
		ActionOverride(Player3,LeaveAreaLUA("Z#0041","",[450.700],8))
		ActionOverride(Player4,LeaveAreaLUA("Z#0041","",[370.760],8))
		ActionOverride(Player5,LeaveAreaLUA("Z#0041","",[290.760],8))
		ActionOverride(Player6,LeaveAreaLUA("Z#0041","",[450.760],8))
END

IF
	AreaCheckObject("AR2800",Player1)
	Global("ElvenAvatar","GLOBAL",1)
	Global("Z#KKLeftForTrial","GLOBAL",1)
	!InPartyAllowDead("Kiyone")
	!InPartyAllowDead("Kova")
	Global("EndOfBG1","GLOBAL",2)
THEN
	RESPONSE #100
		SetGlobal("Z#KKLeftForTrial","GLOBAL",2)
		SetGlobal("Z#TrialClear","GLOBAL",2)
		MoveGlobal("AR2800","Kiyone",[3775.2100])
		MoveGlobal("AR2800","Kova",[3675.2160])
		ActionOverride("Kiyone",FaceObject(Player1))
		ActionOverride("Kova",FaceObject(Player1))
		ActionOverride("Kova",StartDialogueNoSet(Player1))
END

IF
	Global("WorkingForAran","GLOBAL",1)
	Global("ShadowWork","GLOBAL",1)
	Global("Linvail","GLOBAL",1)
	PartyHasItem("MISC4S") // Shadow Thief Cellar Key
	Global("Chapter","GLOBAL",3)
	InParty("Kova")
	AreaCheck("AR0311")
	!Global("AranJob","GLOBAL",1)
	Global("FindingKova","GLOBAL",10)
	Global("EndOfBG1","GLOBAL",2)
THEN
	RESPONSE #100
		ActionOverride(Player1,LeaveAreaLUA("AR0307","",[4530.2050],12))
		ActionOverride(Player2,LeaveAreaLUA("AR0307","",[4520.1990],14))
		ActionOverride(Player3,LeaveAreaLUA("AR0307","",[4520.2110],10))
		ActionOverride(Player4,LeaveAreaLUA("AR0307","",[4460.2050],13))
		ActionOverride(Player5,LeaveAreaLUA("AR0307","",[4460.1990],12))
		ActionOverride(Player6,LeaveAreaLUA("AR0307","",[4460.2110],11))
		SetGlobal("FindingKova","GLOBAL",11)
		SetGlobal("KKJoinShadow","GLOBAL",1)
		ActionOverride("Aran",StartDialogueNoSet(Player1))
END

IF
	Global("z#gaelanc6","GLOBAL",0)
	Global("Chapter","GLOBAL",6)
	AreaType(CITY)
	AreaType(OUTDOOR)
	GlobalGT("JermClue","GLOBAL",0)
	GlobalGT("LOAClue","GLOBAL",0)
	GlobalGT("DayvClue","GLOBAL",0)
	Global("EndOfBG1","GLOBAL",2)
THEN
	RESPONSE #100
		SetGlobal("z#gaelanc6","GLOBAL",1)
		CreateCreatureObjectOffScreen("Gaelan",Player1,0,0,0) // Gaelan Bayle
		ActionOverride("Gaelan",StartDialogueNoSet(Player1))
END

IF
	Global("BaevClue","GLOBAL",3)
	AreaCheck("AR0300")
	Global("Z#ArledTalk","GLOBAL",0)
	OR(2)
		Global("Z#Gaelanc6","GLOBAL",4)
		Global("Z#Gaelanc6","GLOBAL",5)
	Global("EndOfBG1","GLOBAL",2)
THEN
	RESPONSE #100
		SetGlobal("Z#ArledTalk","GLOBAL",1)
		CreateCreatureObjectOffScreen("ARLED",Player1,0,0,0) // Arledrian
		ActionOverride("Arledrian",StartDialogueNoSet(Player1))
END

IF
	Global("BaevClue","GLOBAL",2)
	Global("Z#BaevrinPlot","GLOBAL",25)
	AreaCheck("AR1002")
	Global("EndOfBG1","GLOBAL",2)
THEN
	RESPONSE #100
		ActionOverride("HABREGA",StartDialogueNoSet(Player1))
END

IF
	Global("Z#BaevrinPlot","GLOBAL",24)
	AreaCheck("AR1002")
	InParty("Kiyone")
	Global("EndOfBG1","GLOBAL",2)
THEN
	RESPONSE #100
		ActionOverride("Kiyone",StartDialogueNoSet(Player1))
END

IF
	Global("Z#BaevrinPlot","GLOBAL",24)
	AreaCheck("AR1002")
	!InParty("Kiyone")
	Global("EndOfBG1","GLOBAL",2)
THEN
	RESPONSE #100
		ActionOverride("Z#MESSEN",StartDialogueNoSet(Player1))
END

IF
	GlobalTimerExpired("Z#BaevrinPlotT","GLOBAL")
	Global("Z#BaevrinPlot","GLOBAL",1)
	AreaType(CITY)
	AreaType(OUTDOOR)
	InParty("Kiyone")
	Global("EndOfBG1","GLOBAL",2)
THEN
	RESPONSE #100
		SetGlobal("Z#BaevrinPlot","GLOBAL",2)
		CreateCreatureObjectOffScreen("Z#MESSEN",Player1,0,0,0) // Myroven
		ActionOverride("Z#MESSEN",StartDialogueNoSet(Player1))
END

IF
	GlobalTimerExpired("Z#BaevrinPlotT","GLOBAL")
	Global("Z#BaevrinPlot","GLOBAL",6)
	AreaType(CITY)
	AreaType(OUTDOOR)
	Global("EndOfBG1","GLOBAL",2)
THEN
	RESPONSE #100
		SetGlobal("Z#BaevrinPlot","GLOBAL",7)
		CreateCreatureObjectOffScreen("ARLED",Player1,0,0,0) // Arledrian
		ActionOverride("Arledrian",StartDialogueNoSet(Player1))
END

IF
	AreaCheck("AR0500")
	Global("Z#BaevrinPlot","GLOBAL",20)
	ActuallyInCombat()
	InMyArea("Z#Ardel")
	Global("EndOfBG1","GLOBAL",2)
THEN
	RESPONSE #100
		SetGlobal("Z#BaevrinPlot","GLOBAL",21)
		Wait(5)
		CreateCreatureObjectOffset("ARLED","Z#Ardel",[-10.10]) // Arledrian
		ActionOverride("Arledrian",Attack("Z#Ardel"))
		SmallWait(10)
		Kill("Z#Ardel")
		CreateCreatureObjectOffset("Z#AssaBV","Z#Baev",[-75.-75]) // Assassin
		CreateCreatureObjectOffset("Z#AssaBV","Z#Baev",[-75.75]) // Assassin
		CreateCreatureObjectOffset("Z#AssaBV","Z#Baev",[75.75]) // Assassin
		CreateCreatureObjectOffset("Z#ArchBV","Z#Baev",[-200.0]) // Shadow Thief
		CreateCreatureObjectOffset("Z#ArchBV","Z#Baev",[0.200]) // Shadow Thief
		SetGlobal("Z#BaevrinPlot","GLOBAL",22)
		ActionOverride("Arledrian",StartDialogueNoSet(Player1))
END

IF
	Global("Z#BaevrinPlot","GLOBAL",23)
	Dead("Z#Baev") // Baevrin
	!Dead("Z#Adyl") // Adylin
	Global("EndOfBG1","GLOBAL",2)
THEN
	RESPONSE #100
		DisplayStringHead("Z#Adyl",189752) // No! Baevrin, don't leave me!
		ActionOverride("Z#Adyl",DestroyAllEquipment())
		SmallWait(10)
		Kill("Z#Adyl")
END

IF
	Global("Z#BaevrinPlot","GLOBAL",17)
	AreaCheckObject("AR0500",Player1)
	Global("EndOfBG1","GLOBAL",2)
THEN
	RESPONSE #100
		SetGlobal("Z#BaevrinPlot","GLOBAL",18)
		SetCursorState(TRUE)
		RealSetGlobalTimer("KKDreamT","GLOBAL",4)
		ActionOverride(Player1,CreateCreature("Z#Terahn",[2995.880],3)) // Terahn
		ActionOverride(Player1,CreateCreature("Z#Merahn",[3080.900],1)) // Merahn
		ActionOverride(Player1,CreateCreature("Z#Ardel",[3000.815],0)) // Ardelios
		ActionOverride(Player1,CreateCreature("Z#Baev",[3130.750],8)) // Baevrin
		ActionOverride(Player1,CreateCreature("Z#Adyl",[3155.740],0)) // Adylin
		ActionOverride(Player1,CreateCreature("Z#Messen",[3090.790],2)) // Myroven
END

IF
	Global("Z#BaevrinPlot","GLOBAL",17)
	AreaCheckObject("AR0531",Player1)
	Global("EndOfBG1","GLOBAL",2)
THEN
	RESPONSE #100
		SetGlobal("Z#BaevrinPlot","GLOBAL",18)
		SetCursorState(TRUE)
		RealSetGlobalTimer("KKDreamT","GLOBAL",4)
		ActionOverride(Player1,CreateCreature("Z#Terahn",[480.390],11)) // Terahn
		ActionOverride(Player1,CreateCreature("Z#Merahn",[475.285],12)) // Merahn
		ActionOverride(Player1,CreateCreature("Z#Ardel",[420.265],14)) // Ardelios
		ActionOverride(Player1,CreateCreature("Z#Baev",[270.430],8)) // Baevrin
		ActionOverride(Player1,CreateCreature("Z#Adyl",[255.395],0)) // Adylin
		ActionOverride(Player1,CreateCreature("Z#Messen",[320.430],10)) // Myroven
END

IF
	Global("Z#BaevrinPlot","GLOBAL",18)
	Global("Z#HabregaTalk","GLOBAL",0)
	Dead("Z#Messen") // Myroven
	RealGlobalTimerExpired("KKDreamT","GLOBAL")
	Global("EndOfBG1","GLOBAL",2)
THEN
	RESPONSE #100
		SetGlobal("Z#HabregaTalk","GLOBAL",1)
		FadeFromColor([10.0],0)
		SetCursorState(FALSE)
		ActionOverride("Habrega",StartDialogueNoSet(Player1))
END

IF
	Global("MetKharen","GLOBAL",0)
	!ActuallyInCombat()
	RealGlobalTimerExpired("Z#KharenWarnT","AR1500")
	Global("Z#KharenWarn","AR1500",0)
	PartyHasItem("MISC8V") // Wardstone for Asylum
	Global("EndOfBG1","GLOBAL",2)
THEN
	RESPONSE #100
		SetGlobal("Z#KharenWarn","AR1500",1)
		DisplayStringHead(Player1,189753) // The Asylum wardstone glows slightly, in reaction to some magical energies close by.
END

IF
	GlobalGT("GovtMeetGuards","GLOBAL",3)
	Global("EndOfBG1","GLOBAL",2)
THEN
	RESPONSE #10
		SetGlobal("GovtMeetGuards","GLOBAL",2)
		DisplayStringHead("Kiyone",189754) // Must we fight so many men of the law?
		ReputationInc(-1)
	RESPONSE #10
		SetGlobal("GovtMeetGuards","GLOBAL",2)
		DisplayStringHead("Kiyone",189755) // More needless killing...
		ReputationInc(-1)
	RESPONSE #10
		SetGlobal("GovtMeetGuards","GLOBAL",2)
		DisplayStringHead("Kiyone",189756) // This weighs heavily on my conscience.
		ReputationInc(-1)
END

IF
	OR(2)
		InParty("Kiyone")
		InParty("Kova")
	OR(8)
		Allegiance("habrega",ENEMY)
		Allegiance("bylanna",ENEMY)
		Allegiance("hprelate",ENEMY)
		Allegiance("Z#ARDEL",ENEMY)
		Allegiance("Z#Baev",ENEMY)
		Dead("hprelate") // Prelate Wessalen
		Dead("bylanna") // Bylanna
		Dead("habrega") // Chief Inspector Brega
	Global("EndOfBG1","GLOBAL",2)
THEN
	RESPONSE #100
		DisplayStringHead("Kiyone",189757) // No, I cannot allow this!
		DisplayStringHead("Kova",189758) // This is wrong, and I cannot pretend otherwise.
		ActionOverride("Kiyone",Enemy())
		ActionOverride("Kova",Enemy())
END

IF
	PartyRested()
	GlobalGT("Z#PartyRested","GLOBAL",0)
	Global("EndOfBG1","GLOBAL",2)
THEN
	RESPONSE #100
		SetGlobal("Z#PartyRested","GLOBAL",0)
		MoveViewObject(Player1,INSTANT)
END

IF
	GlobalGT("KKRomance","GLOBAL",0)
	PartyRested()
	OR(10)
		AreaCheck("AR0313")
		AreaCheck("AR0406")
		AreaCheck("AR0509")
		AreaCheck("AR0513")
		AreaCheck("AR0522")
		AreaCheck("AR0704")
		AreaCheck("AR0709")
		AreaCheck("AR1105")
		AreaCheck("AR1602")
		AreaCheck("AR2010")
	Global("EndOfBG1","GLOBAL",2)
THEN
	RESPONSE #100
		SetGlobal("Z#RestInn","GLOBAL",1)
END

IF
	Global("KiyoOut","GLOBAL",0)
	Global("Chapter","GLOBAL",2)
	ReputationGT(Player1,12)
	!Alignment(Player1,MASK_EVIL)
	Global("FindingKova","GLOBAL",0)
	OR(2)
		AreaType(OUTDOOR)
		AreaType(FOREST)
	Global("EndOfBG1","GLOBAL",2)
THEN
	RESPONSE #100
		SetGlobal("KiyoOut","GLOBAL",1)
		CreateCreatureObjectOffScreen("Kiyone",Player1,0,0,0) // Kiyone
END

IF
	Global("BregaTalk","GLOBAL",248)
	InParty("Kova")
	InParty("Kiyone")
	AreaCheck("AR1002")
	Global("EndOfBG1","GLOBAL",2)
THEN
	RESPONSE #100
		ActionOverride("HABREGA",ForceSpell("HaBrega",INQUIS_TRUE_SIGHT))
		Wait(1)
		ActionOverride("Kova",JumpToPoint([1100.560]))
		MoveViewPoint([1100.560],INSTANT)
		SetGlobal("BregaTalk","GLOBAL",249)
END

IF
	Global("CornTalk","GLOBAL",248)
	InParty("Kova")
	InParty("Kiyone")
	AreaCheck("AR1002")
	Global("EndOfBG1","GLOBAL",2)
THEN
	RESPONSE #100
		SetGlobal("CornTalk","GLOBAL",249)
		ActionOverride("CORNEIL",ForceSpell("Corneil",INQUIS_TRUE_SIGHT))
		Wait(2)
		SetGlobal("CornTalk","GLOBAL",250)
		ActionOverride("Kova",JumpToPoint([560.920]))
		MoveViewPoint([560.920],INSTANT)
		SetGlobal("FindingKova","GLOBAL",250)
END

IF
	Global("Z#KharenMove","GLOBAL",5)
	AreaCheckObject("AR1002",Player1)
	Global("EndOfBG1","GLOBAL",2)
THEN
	RESPONSE #100
		SetGlobal("Z#KharenMove","GLOBAL",6)
		StartDialogueNoSet(Player1)
END

IF
	Global("KvAnomFight","GLOBAL",2)
	!Dead("Anomen")
	!Dead("Kova") // Kova
	!StateCheck("Kova",STATE_INVISIBLE)
	Global("EndOfBG1","GLOBAL",2)
THEN
	RESPONSE #100
		ActionOverride("Anomen",Attack("Kova"))
END

IF
	Global("KvAnomFight","GLOBAL",2)
	!Dead("Anomen")
	Dead("Kova") // Kova
	Global("EndOfBG1","GLOBAL",2)
THEN
	RESPONSE #100
		SetGlobal("KvAnomFight","GLOBAL",3)
		SetGlobal("FindingKova","GLOBAL",250)
		ActionOverride("Kova",LeaveParty())
		ActionOverride("Anomen",JoinParty())
		SetCursorState(FALSE)
		ActionOverride("Anomen",StartDialogueNoSet(Player1))
END

IF
	Global("KvAnomFight","GLOBAL",2)
	Dead("Anomen")
	!Dead("Kova") // Kova
	Global("EndOfBG1","GLOBAL",2)
THEN
	RESPONSE #100
		SetGlobal("KvAnomFight","GLOBAL",3)
		ActionOverride("Anomen",LeaveParty())
		ActionOverride("Kova",JoinParty())
		SetCursorState(FALSE)
		ActionOverride("Kova",StartDialogueNoSet(Player1))
END

IF
	GlobalGT("KyVicFight","GLOBAL",0)
	Dead("Kiyone") // Kiyone
	!Dead("Viconia")
	!Global("KyVicFight","GLOBAL",3)
	Global("EndOfBG1","GLOBAL",2)
THEN
	RESPONSE #100
		ActionOverride("Viconia",StartDialogueNoSet(Player1))
END

IF
	Dead("Kiyone") // Kiyone
	Dead("Kova") // Kova
	Global("FindingKova","GLOBAL",112)
	Global("EndOfBG1","GLOBAL",2)
THEN
	RESPONSE #100
		AddexperienceParty(5000)
		SetGlobal("FindingKova","GLOBAL",113)
		AddJournalEntry(184579,QUEST) // Hunting a Criminal After finding Kova, I moved to slay him, but Kiyone intervened and I was forced to kill her as well. However, taking the criminal's blade to Chief Inspector Brega should get me credit for bringing the criminal to justice.
END

IF
	InParty("Kiyone")
	InParty("Kova")
	Global("BKKChat","GLOBAL",8)
	Global("KKRomance","GLOBAL",2)
	Global("KKInStage2x","GLOBAL",0)
	Global("EndOfBG1","GLOBAL",2)
THEN
	RESPONSE #100
		SetGlobal("KKInStage2x","GLOBAL",1)
		SetGlobal("KKStage21","GLOBAL",1)
END

IF
	InParty("Kiyone")
	InParty("Kova")
	Global("BKKChat","GLOBAL",7)
	Global("KKRomance","GLOBAL",1)
	Global("KKInStage1x","GLOBAL",0)
	Global("EndOfBG1","GLOBAL",2)
THEN
	RESPONSE #0
	RESPONSE #100
		SetGlobal("KKInStage1x","GLOBAL",1)
		SetGlobal("KKStage11","GLOBAL",1)
		SetGlobal("KKStage12","GLOBAL",2)
		SetGlobal("KKStage13","GLOBAL",3)
	RESPONSE #100
		SetGlobal("KKInStage1x","GLOBAL",1)
		SetGlobal("KKStage11","GLOBAL",1)
		SetGlobal("KKStage12","GLOBAL",2)
		SetGlobal("KKStage13","GLOBAL",4)
	RESPONSE #100
		SetGlobal("KKInStage1x","GLOBAL",1)
		SetGlobal("KKStage11","GLOBAL",2)
		SetGlobal("KKStage12","GLOBAL",1)
		SetGlobal("KKStage13","GLOBAL",3)
	RESPONSE #100
		SetGlobal("KKInStage1x","GLOBAL",1)
		SetGlobal("KKStage11","GLOBAL",2)
		SetGlobal("KKStage12","GLOBAL",1)
		SetGlobal("KKStage13","GLOBAL",4)
	RESPONSE #100
		SetGlobal("KKInStage1x","GLOBAL",1)
		SetGlobal("KKStage11","GLOBAL",2)
		SetGlobal("KKStage12","GLOBAL",3)
		SetGlobal("KKStage13","GLOBAL",1)
	RESPONSE #100
		SetGlobal("KKInStage1x","GLOBAL",1)
		SetGlobal("KKStage11","GLOBAL",2)
		SetGlobal("KKStage12","GLOBAL",3)
		SetGlobal("KKStage13","GLOBAL",4)
	RESPONSE #100
		SetGlobal("KKInStage1x","GLOBAL",1)
		SetGlobal("KKStage11","GLOBAL",2)
		SetGlobal("KKStage12","GLOBAL",4)
		SetGlobal("KKStage13","GLOBAL",1)
	RESPONSE #100
		SetGlobal("KKInStage1x","GLOBAL",1)
		SetGlobal("KKStage11","GLOBAL",2)
		SetGlobal("KKStage12","GLOBAL",4)
		SetGlobal("KKStage13","GLOBAL",3)
END

IF
	InPartyAllowDead("Kova")
	!InParty("Kova")
	Global("KovaDied","GLOBAL",0)
	Global("EndOfBG1","GLOBAL",2)
THEN
	RESPONSE #100
		SetGlobal("KovaDied","GLOBAL",1)
END

IF
	InPartyAllowDead("Kiyone")
	!InParty("Kiyone")
	Global("KiyoDied","GLOBAL",0)
	Global("EndOfBG1","GLOBAL",2)
THEN
	RESPONSE #100
		SetGlobal("KiyoDied","GLOBAL",1)
END

IF
	AreaCheck("AR0306")
	GlobalGT("Z#MeetingSeida","GLOBAL",3)
	Global("Z#ShowRenalGone","AR0306",0)
	Global("EndOfBG1","GLOBAL",2)
THEN
	RESPONSE #100
		SetGlobal("Z#ShowRenalGone","AR0306",1)
		DisplayStringHead(Player1,189759) // This level is noticeably empty. Renal is probably reluctant to meet you after your face-off with Seida.
END

IF
	AreaCheck("AR0307")
	GlobalGT("Z#MeetingSeida","GLOBAL",3)
	Global("Z#ShowRenalGone","AR0307",0)
	Global("EndOfBG1","GLOBAL",2)
THEN
	RESPONSE #100
		SetGlobal("Z#ShowRenalGone","AR0307",1)
		DisplayStringHead(Player1,189760) // This place seems rather empty. Perhaps Aran does not wish to risk your retribution after your run-in with Seida.
END

IF
	OR(2)
		!InParty("Kova")
		!InParty("Kiyone")
	Global("Z#KKHardFight","GLOBAL",1)
	Global("EndOfBG1","GLOBAL",2)
THEN
	RESPONSE #100
		SetGlobal("Z#KKHardFight","GLOBAL",0)
END

IF
	Global("ZKKHardFight","GLOBAL",1)
	!AreaCheckObject("AR1402",Player1)
	!AreaCheckObject("AR2807",Player1)
	!AreaCheckObject("AR0331",Player1)
	!AreaCheckObject("AR2102",Player1)
	!AreaCheckObject("AR1203",Player1)
	Global("EndOfBG1","GLOBAL",2)
THEN
	RESPONSE #100
		SetGlobal("Z#KKHardFight","GLOBAL",0)
END

IF
	AreaType(CITY)
	InParty("Kova")
	!Global("FindingKova","GLOBAL",255)
	!GlobalTimerNotExpired("KKCowlT","GLOBAL")
	!ActuallyInCombat()
	!Global("BribeCorn","GLOBAL",1)
	Global("EndOfBG1","GLOBAL",2)
THEN
	RESPONSE #90
		SetGlobalTimer("KKCowlT","GLOBAL",FIVE_DAYS)
		SetGlobal("KKCowl","GLOBAL",1)
	RESPONSE #10
		SetGlobalTimer("KKCowlT","GLOBAL",FIVE_DAYS)
END

IF
	Global("BribeCorn","GLOBAL",1)
	!GlobalTimerNotExpired("KKCowlT","GLOBAL")
	Global("EndOfBG1","GLOBAL",2)
THEN
	RESPONSE #100
		SetGlobalTimer("KKCowlT","GLOBAL",18000)
		SetGlobal("BribeCorn","GLOBAL",0)
END

IF
	InParty("Kova")
	Global("ShadowHunt","GLOBAL",1)
	!Global("FindingKova","GLOBAL",255)
	!RealGlobalTimerNotExpired("KKThiefT","GLOBAL")
	!ActuallyInCombat()
	Global("EndOfBG1","GLOBAL",2)
THEN
	RESPONSE #90
		RealSetGlobalTimer("KKThiefT","GLOBAL",3525)
		SetGlobal("KKThief","GLOBAL",1)
	RESPONSE #10
		RealSetGlobalTimer("KKThiefT","GLOBAL",3525)
END

IF
	InParty("Kova")
	Global("ShadowHunt","GLOBAL",2)
	!Global("FindingKova","GLOBAL",255)
	!RealGlobalTimerNotExpired("KKThiefT","GLOBAL")
	!ActuallyInCombat()
	Global("EndOfBG1","GLOBAL",2)
THEN
	RESPONSE #90
		RealSetGlobalTimer("KKThiefT","GLOBAL",4350)
		SetGlobal("KKThief","GLOBAL",1)
	RESPONSE #10
		RealSetGlobalTimer("KKThiefT","GLOBAL",4350)
END

IF
	InParty("Kova")
	GlobalGT("ShadowHunt","GLOBAL",2)
	!Global("FindingKova","GLOBAL",255)
	!RealGlobalTimerNotExpired("KKThiefT","GLOBAL")
	!ActuallyInCombat()
	Global("EndOfBG1","GLOBAL",2)
THEN
	RESPONSE #90
		RealSetGlobalTimer("KKThiefT","GLOBAL",5175)
		SetGlobal("KKThief","GLOBAL",1)
	RESPONSE #10
		RealSetGlobalTimer("KKThiefT","GLOBAL",5175)
END

IF
	InParty("Kova")
	Global("GovtGuards","GLOBAL",1)
	!Global("FindingKova","GLOBAL",255)
	!GlobalTimerNotExpired("KKGovtT","GLOBAL")
	!ActuallyInCombat()
	Global("EndOfBG1","GLOBAL",2)
THEN
	RESPONSE #90
		SetGlobalTimer("KKGovtT","GLOBAL",24480)
		SetGlobal("KKGovt","GLOBAL",1)
	RESPONSE #10
		SetGlobalTimer("KKGovtT","GLOBAL",24480)
END

IF
	Global("KKJoin","GLOBAL",1)
	OR(2)
		!Global("PlayerLooksLikeDrow","GLOBAL",1)
		!GlobalLT("KKDrowFormChat","GLOBAL",2)
	InParty("Kova")
	InParty("Kiyone")
	!ActuallyInCombat()
	!RealGlobalTimerNotExpired("KKBanterTMin","GLOBAL")
	!RealGlobalTimerNotExpired("KKBanterT","GLOBAL")
	Global("EndOfBG1","GLOBAL",2)
THEN
	RESPONSE #45
		RealSetGlobalTimer("KKBanterT","GLOBAL",FIVE_HOURS)
		ActionOverride("Kiyone",Interact("Kova"))
	RESPONSE #45
		RealSetGlobalTimer("KKBanterT","GLOBAL",FIVE_HOURS)
		ActionOverride("Kova",Interact("Kiyone"))
END

IF
	Global("KKJoin","GLOBAL",1)
	Global("Chapter","GLOBAL",6)
	GlobalLT("KKInStage1x","GLOBAL",2)
	InParty("Kova")
	InParty("Kiyone")
	!ActuallyInCombat()
	!RealGlobalTimerNotExpired("KKBanterTMin","GLOBAL")
	Global("EndOfBG1","GLOBAL",2)
THEN
	RESPONSE #45
		RealSetGlobalTimer("KKBanterTMin","GLOBAL",EIGHT_MINUTES)
		ActionOverride("Kiyone",Interact("Kova"))
	RESPONSE #45
		RealSetGlobalTimer("KKBanterTMin","GLOBAL",EIGHT_MINUTES)
		ActionOverride("Kova",Interact("Kiyone"))
END

IF
	AreaCheck("AR2102")
	OR(2)
		InParty("Kova")
		InParty("Kiyone")
	Global("Z#DrowChange","GLOBAL",0)
	Global("EndOfBG1","GLOBAL",2)
THEN
	RESPONSE #100
		SetGlobal("Z#DrowChange","GLOBAL",1)
		RealSetGlobalTimer("KKBanterT","GLOBAL",FIFTEEN_TURNS)
END

IF
	Global("KKJoin","GLOBAL",1)
	Global("PlayerLooksLikeDrow","GLOBAL",1)
	GlobalLT("KKDrowFormChat","GLOBAL",2)
	InParty("Kova")
	InParty("Kiyone")
	!ActuallyInCombat()
	!RealGlobalTimerNotExpired("KKBanterT","GLOBAL")
	Global("EndOfBG1","GLOBAL",2)
THEN
	RESPONSE #50
		ActionOverride("Kiyone",Interact("Kova"))
		RealSetGlobalTimer("KKBanterT","GLOBAL",FIFTEEN_TURNS)
	RESPONSE #50
		ActionOverride("Kova",Interact("Kiyone"))
		RealSetGlobalTimer("KKBanterT","GLOBAL",FIFTEEN_TURNS)
END

IF
	Global("Z#Brynn1Spoke","GLOBAL",1)
	Global("EndOfBG1","GLOBAL",2)
THEN
	RESPONSE #100
		SetGlobal("Z#Brynn1Spoke","GLOBAL",2)
		CreateCreatureObjectOffset("Z#Assas3",Player1,[20.-20]) // Assassin
		ChangeEnemyAlly("Z#Assas3",NEUTRAL)
		ActionOverride("Z#Assas3",StartDialog("Z#BRYNN2",Player1))
END

IF
	GlobalGT("JermClue","GLOBAL",2)
	GlobalGT("LOAClue","GLOBAL",2)
	GlobalGT("DayvClue","GLOBAL",2)
	GlobalGT("BaevClue","GLOBAL",2)
	Global("MetKharen","GLOBAL",3)
	Global("EndOfBG1","GLOBAL",2)
THEN
	RESPONSE #100
		SetGlobal("Z#Trial","GLOBAL",2)
END

IF
	Global("Z#NoMoreGovt","GLOBAL",1)
	GlobalLT("GovtGuards","GLOBAL",4)
	Global("EndOfBG1","GLOBAL",2)
THEN
	RESPONSE #100
		SetGlobal("GovtGuards","GLOBAL",4)
END

IF
	Global("MetKharen","GLOBAL",3)
	Global("JermClue","GLOBAL",3)
	Global("LOAClue","GLOBAL",3)
	Global("DayvClue","GLOBAL",3)
	Global("Z#BaevrinPlot","GLOBAL",0)
	Global("EndOfBG1","GLOBAL",2)
THEN
	RESPONSE #100
		SetGlobalTimer("Z#BaevrinPlotT","GLOBAL",EIGHT_HOURS)
		SetGlobal("Z#BaevrinPlot","GLOBAL",1)
END

IF
	Global("Z#Trial","GLOBAL",0)
	GlobalGT("DayvClue","GLOBAL",0)
	OR(2)
		GlobalGT("JermClue","GLOBAL",0)
		GlobalGT("LOAClue","GLOBAL",0)
	Global("EndOfBG1","GLOBAL",2)
THEN
	RESPONSE #100
		SetGlobal("Z#Trial","GLOBAL",1)
END

IF
	GlobalGT("JermClue","GLOBAL",0)
	GlobalGT("LOAClue","GLOBAL",0)
	Global("Z#Trial","GLOBAL",0)
	Global("EndOfBG1","GLOBAL",2)
THEN
	RESPONSE #100
		SetGlobal("Z#Trial","GLOBAL",1)
END

IF
	GlobalTimerExpired("ImoenDream1","GLOBAL")
	Global("HadImoenDream1","GLOBAL",0)
	GlobalLT("Chapter","GLOBAL",4)
	Global("Z#GotGameDream","GLOBAL",0)
	Global("EndOfBG1","GLOBAL",2)
THEN
	RESPONSE #100
		SetGlobal("Z#GotGameDream","GLOBAL",1)
END

IF
	GlobalLT("Chapter","GLOBAL",4)
	Global("HadImoenDream1","GLOBAL",1)
	!GlobalTimerExpired("JonDream1","GLOBAL")
	Global("Z#GotGameDream","GLOBAL",1)
	Global("EndOfBG1","GLOBAL",2)
THEN
	RESPONSE #100
		SetGlobal("Z#GotGameDream","GLOBAL",0)
END

IF
	GlobalTimerExpired("JonDream1","GLOBAL")
	Global("HadJonDream1","GLOBAL",0)
	GlobalLT("Chapter","GLOBAL",4)
	Global("Z#GotGameDream","GLOBAL",0)
	Global("EndOfBG1","GLOBAL",2)
THEN
	RESPONSE #100
		SetGlobal("Z#GotGameDream","GLOBAL",1)
END

IF
	GlobalLT("Chapter","GLOBAL",4)
	Global("HadImoenDream1","GLOBAL",1)
	Global("HadJonDream1","GLOBAL",1)
	!GlobalTimerExpired("JonDream2","GLOBAL")
	Global("Z#GotGameDream","GLOBAL",1)
	Global("EndOfBG1","GLOBAL",2)
THEN
	RESPONSE #100
		SetGlobal("Z#GotGameDream","GLOBAL",0)
END

IF
	GlobalTimerExpired("JonDream2","GLOBAL")
	Global("HadJonDream2","GLOBAL",0)
	GlobalLT("Chapter","GLOBAL",4)
	Global("Z#GotGameDream","GLOBAL",0)
	Global("EndOfBG1","GLOBAL",2)
THEN
	RESPONSE #100
		SetGlobal("Z#GotGameDream","GLOBAL",1)
END

IF
	GlobalLT("Chapter","GLOBAL",4)
	Global("HadImoenDream1","GLOBAL",1)
	Global("HadJonDream1","GLOBAL",1)
	Global("HadJonDream2","GLOBAL",1)
	Global("Z#GotGameDream","GLOBAL",1)
	Global("EndOfBG1","GLOBAL",2)
THEN
	RESPONSE #100
		SetGlobal("Z#GotGameDream","GLOBAL",0)
END

IF
	!GlobalLT("Chapter","GLOBAL",4)
	OR(2)
		!GlobalTimerExpired("EllesimeDream1","GLOBAL")
		!Global("HadEllesimeDream1","GLOBAL",0)
	OR(3)
		!GlobalGT("DrowTalk","GLOBAL",3)
		!Global("HadSlayerDream","GLOBAL",0)
		!GlobalGT("AsylumPlot","GLOBAL",54)
	Global("Z#GotGameDream","GLOBAL",1)
	Global("EndOfBG1","GLOBAL",2)
THEN
	RESPONSE #100
		SetGlobal("Z#GotGameDream","GLOBAL",0)
END

IF
	GlobalGT("DrowTalk","GLOBAL",3)
	Global("HadSlayerDream","GLOBAL",0)
	GlobalGT("AsylumPlot","GLOBAL",54)
	Global("Z#GotGameDream","GLOBAL",0)
	Global("EndOfBG1","GLOBAL",2)
THEN
	RESPONSE #100
		SetGlobal("Z#GotGameDream","GLOBAL",1)
END

IF
	!GlobalLT("Chapter","GLOBAL",4)
	GlobalTimerExpired("EllesimeDream1","GLOBAL")
	Global("HadEllesimeDream1","GLOBAL",0)
	Global("Z#GotGameDream","GLOBAL",0)
	Global("EndOfBG1","GLOBAL",2)
THEN
	RESPONSE #100
		SetGlobal("Z#GotGameDream","GLOBAL",1)
END

IF
	OR(2)
		Dead("Kova") // Kova
		Dead("Kiyone") // Kiyone
	!InPartyAllowDead("Kova")
	!InPartyAllowDead("Kiyone")
	Global("Z#JournalClean","GLOBAL",0)
	Global("EndOfBG1","GLOBAL",2)
THEN
	RESPONSE #100
		SetGlobal("Z#JournalClean","GLOBAL",1)
		EraseJournalEntry(184572) // Hunting a Criminal I was joined by ranger called Kiyone, who requires my aid on a case regarding a criminal named Kova. From the sound of things, he could well prove to be dangerous, although she believes he is innocent. The price on his head is also pretty respectable. I shall probably find out more only after I have helped Kiyone find the man, whom she believes to be in the Windspear Hills.
		EraseJournalEntry(184571) // Hunting a Criminal I was joined by ranger called Kiyone, who requires my aid on a case regarding a criminal named Kova. From the sound of things, he could well prove to be dangerous, although she believes he is innocent. The price on his head is also pretty respectable. I shall probably find out more only after I have helped Kiyone find the man, whom she believes to be in the Windspear Hills, fishing. I suspect she knows him though, so it should be easier than what was apparent.
		EraseJournalEntry(184570) // Proving Kova's Innocence I have given the benefit of doubt to the criminal Kova, who looks to prove his innocent before the Council of Six. We should proceed posthaste to Magistrate Bylanna to gain some grace for the investigation. Possible clues might come from the Docks where the Shadow Thieves operate, and if we meet any Cowled Wizards we might be able to ask them for information. Meantime we'd best be looking over our shoulders for those who wish to hunt down Kova.
		EraseJournalEntry(184574) // Proving Kova's Innocence Kiyone has convinced Magistrate Bylanna to give us some time for the investigation, however if we fail to pass new evidence to her messenger, matters could well become unpleasant. Possible clues might come from the Docks where the Shadow Thieves operate, and I should look out for Cowled Wizards we might meet. Meantime we'd best be looking over our shoulders for those who wish to hunt down Kova.
		EraseJournalEntry(184581) // Proving Kova's Innocence - Nobles' Murders Chief Inspector Brega has directed us to Inspector Dayven, who was the one who investigated Kova's alleged murders of the Nobles. He can probably be found in the Prison. Maybe he can provide us with the clues we need.
		EraseJournalEntry(184569) // Proving Kova's Innocence - Nobles' Murders After checking with Chief Inspector Brega, it appears that Dayven was the one who suggested to him the weapon wounds on the nobles' bodies could be matched to his suspect. This is different from Dayven's indirect mention that the match was found because he presented his findings to Brega, who would presumably then take note of the match. It appears that something is not quite what it seems.
		EraseJournalEntry(184577) // Proving Kova's Innocence - Nobles' Murders Renal Bloodscalp has, for a considerable fee, agreed to help us find out more about Inspector Dayven. Perhaps it would tell us if the report Dayven gave Brega was accurate or influenced through other means. We should be able to go back to Renal after a day is up.
		EraseJournalEntry(184578) // Proving Kova's Innocence - Nobles' Murders We have found out that Dayven was apparently bribed by Shadow Thieves to bring the wounds on the body to Inspector Brega's attention, to link him to Kova's case. It should be an interesting piece of information to confront Dayven with or to inform Brega of.
		EraseJournalEntry(184576) // Proving Kova's Innocence - Nobles' Murders After re-investigating the murders of the nobles, the truth of the matter has been that, regardless of the bribe Dayven took, the bodies indeed carry the marks of the make of Kova's weapon. The bribe only gives a hint as to something suspicious going on, but it cannot help prove his innocence unless more evidence is found.
		EraseJournalEntry(184575) // Proving Kova's Innocence - Enforcer Murders We have recovered a note from a Cowled Wizard, pointing us towards a person called Jermien who might be able to give us information on who was behind the Enforcer murders. The note might not be evidence enough on its own, but if we can find Jermien it should come in helpful.
		EraseJournalEntry(189741) // Proving Kova's Innocence - Enforcer Murders Jermien gave us the information we need, and a note that he signed clearly stating what he heard from his now deceased student Deros. The identity of the white-haired girl who is alleged to have committed the murders is still unknown. This evidence should sit favourably with Bylanna.
		EraseJournalEntry(189742) // Proving Kova's Innocence - Enforcer Murders Bylanna received Jermien's note well, but she has reason to be unconvinced of the integrity of our source. This is mainly as Corneil has reported to her that Jermien could not be found, and she believes that he could have wrote the note under duress before being done in. It appears that whoever is trying to hinder the truth of the matter from coming to light is very aware of our movements. Meantime Bylanna has hinted that she would be satisfied if the actual murderer could be identified.
		EraseJournalEntry(184568) // Proving Kova's Innocence - Nobles' Murders Kova commented on how Dayven might not have said everything about linking the murders up, then he and Kiyone concluded that it would be well to check with someone who can verify what Dayven told us.
		EraseJournalEntry(189743) // Proving Kova's Innocence - Village Poisoning We have recovered from Mae'Var's documents a Letter of Authority from one Seida within the Shadow Thieves who ordered the poisoning of the village. It should be a rather curious detail since if Kova is guilty, it is unlikely he would be wanted by the Shadow Thieves.
		EraseJournalEntry(189744) // Proving Kova's Innocence - Village Poisoning Bylanna took the evidence rather well, and she suspects some intrigue within the Shadow Thief ranks. Still, she has pointed out that it is no concrete evidence that Kova did not poison the village, just a point of interest that the Shadow Thieves authorised the poisoning.
		EraseJournalEntry(184583) // Proving Kova's Innocence Gaelan has sent me a note from Renal telling me he might have information regarding Kova's case. It is probable though, that the information won't come cheaply.
		EraseJournalEntry(184584) // Proving Kova's Innocence - Nobles' Murders Renal has informed us that apparently Seida also possesses a blade of a similar make and design to Kova's, apparently forged and designed by the same person. Once we have disposed of Bodhi, he advises us to go to Aran, and to get to Seida from there. His interests in the matter apparently involves removing a rather vexing rival.
		EraseJournalEntry(184595) // Proving Kova's Innocence - Nobles' Murders Aran has agreed to allow us to deal with Seida, however he has insisted that the guildmaster come to no harm. He has provided us with a suitable item to use on Seida, however it may only be cast when Seida is unconscious and the casting is not interrupted. Kiyone has agreed as well, believing it would be the best to bring him before the court with his weapon. When we are ready, Aran will lead us to one of the back alleys where he has summoned Seida to for a meeting.
		EraseJournalEntry(184596) // Proving Kova's Innocence - Nobles' Murders With the presentation of Seida and his weapon to Brega, and how Renal hinted that the ransom obtained from the nobles matches the reward money that the Shadow Thieves were offering to apprehend Kova, Kova will likely be acquitted of that particular charge when the time comes for his trial.
		EraseJournalEntry(184582) // Proving Kova's Innocence - Enforcer Murders We encountered a band of Cowled Wizards on our departure from Spellhold, and one of them was one that Kova identified as Kharen. She coincidentally, matches the description that Jermien provided, and we have reason to believe she is the one who murdered the Enforcers in order to frame Kova.
		EraseJournalEntry(189745) // Proving Kova's Innocence - Enforcer Murders We have spoken to Bylanna about the matter, and it is likely she will drop that charge against Kova when the time comes. Corneil, however, appears to be unconvinced of the charges and will not drop the matter. We need some more information if we are to get his Cowled Wizards off our tail. Kova hazards that Kharen is Seida's daughter, and if we get a hold of him it might help.
		EraseJournalEntry(189746) // Proving Kova's Innocence - Enforcer Murders With the capture of Seida, Kova is convinced we need someone to keep an eye on him, and who can investigate the identity of the person behind his release, if we are ever to link Kharen to Seida.
		EraseJournalEntry(189747) // Proving Kova's Innocence - Enforcer Murders As a means of thanking for us keeping his secret from Brega, Dayven has agreed to keep an eye on Seida for the duration of his stay within the prison, and to inform us once he has found evidence linking Kharen to Seida.
		EraseJournalEntry(189748) // Proving Kova's Innocence - Enforcer Murders In the light of Seida's release, Dayven has presented us with evidence concerning Kharen being the daughter of Seida, and has stood with us as witness to Corneil. Corneil rather grudgingly thanked us for the aid in uncovering the matter, before finally agreeing to detract the order on the apprehension of our party for our aid of Kova.
		EraseJournalEntry(184585) // Proving Kova's Innocence - Village Poisoning With the amount of evidence we've already accumulated on Kova, Brega has agreed to give us access to his witness of the the Poisoning Poisoning. He told us the person was someone called Baevrin, and could be found in one of the upper rooms of the Five Flagons' Inn.
		EraseJournalEntry(184586) // Proving Kova's Innocence - Village Poisoning After a confrontation of sorts, the witness Baevrin has acknowledged that he was lying, but that the Shadow Thieves are holding on to a girl called Adylin whom he loves, and he had no choice but to say what he did. Perhaps there may be some way of finding out where Adylin is kept.
		EraseJournalEntry(184587) // Proving Kova's Innocence - Village Poisoning Arledrian has provided us with the information on where Adylin is held, albeit at a price. She is held on the third floor of Delosar's Inn in the Bridge District.
		EraseJournalEntry(184588) // Proving Kova's Innocence - Village Poisoning Baevrin is overjoyed to be reunited with his beloved, and has told us he will immediately inform Inspector Brega. I have agreed to let him go with Myroven and the guards to inform Brega, and they should arrive about the time I make my way to the government district.
		EraseJournalEntry(184589) // Proving Kova's Innocence - Village Poisoning Baevrin is overjoyed to be reunited with his beloved, and has told us he will immediately inform Inspector Brega. However, at Kiyone's behest, I have advised him to remain in hiding while I go and speak to Brega. We will bring the inspector Brega to the rendezvous at the house north of the Five Flagons to meet them.
		EraseJournalEntry(184590) // Proving Kova's Innocence - Village Poisoning Baevrin is overjoyed to be reunited with his beloved, and has told us he will immediately inform Inspector Brega. However, I have decided we will escort him to Brega, to ensure that he and Adylin arrive safely to serve as witnesses.
		EraseJournalEntry(184594) // Proving Kova's Innocence - Village Poisoning I arrived to meet Inspector Brega, only to find that Baevrin and Adylin, as well as Myroven and the guards accompanying them were found murdered along the way to the Council building. Inspector Brega was deeply disturbed, and agreed to put in the full report to Magistrate Bylanna on the matter, but with Baevrin's previous testimony still standing, there is only so much weight such a note can lend.
		EraseJournalEntry(184593) // Proving Kova's Innocence - Village Poisoning I brought Inspector Brega to north of the Five Flagons Inn, only to find Baevrin, Adylin, and the guards who were protecting them all murdered in the building. Inspector Brega was deeply disturbed, and agreed to put in the full report to Magistrate Bylanna on the matter, but with Baevrin's previous testimony still standing, there is only so much weight such a note can lend.
		EraseJournalEntry(184591) // Proving Kova's Innocence - Village Poisoning While escorting Baevrin to Brega, we encountered a band of assassins lying in wait for us as we travelled. Although we killed the lot of them, we were unable to prevent them from killing Baevrin. Inspector Brega was deeply disturbed when he came to hear of it, and he and Myroven will provide a full report to Magistrate Bylanna on the matter. However, with Baevrin's previous testimony still standing, there is only so much weight such a note can lend.
		EraseJournalEntry(184592) // Proving Kova's Innocence - Village Poisoning While escorting Baevrin to Brega, we encountered a band of assassins lying in wait for us as we travelled. It is fortunate that I managed to deal with them before they killed Baevrin. He made it to the Council of Six building safely to alter the previous statement he had made, and I am confident that Kova will be acquitted of this charge.
END

IF
	!InParty("Kiyone")
	OR(6)
		PartyHasItem("KiyoArm3") // Verdant Vigilante +4
		PartyHasItem("KiyoArm2") // Verdant Vigilant +2
		PartyHasItem("KiyoArm1") // Verdant Vigil
		PartyHasItem("KiyoBow3") // Sight of the Sentinel +3
		PartyHasItem("KiyoBow2") // Gaze of the Sentinel +2
		PartyHasItem("KiyoBow1") // Eye of the Sentinel +1
	Global("EndOfBG1","GLOBAL",2)
THEN
	RESPONSE #100
		TakePartyItemAll("KiyoArm3") // Verdant Vigilante +4
		TakePartyItemAll("KiyoArm2") // Verdant Vigilant +2
		TakePartyItemAll("KiyoArm1") // Verdant Vigil
		TakePartyItemAll("KiyoBow3") // Sight of the Sentinel +3
		TakePartyItemAll("KiyoBow2") // Gaze of the Sentinel +2
		TakePartyItemAll("KiyoBow1") // Eye of the Sentinel +1
END

IF
	!InParty("Kova")
	OR(6)
		PartyHasItem("KovaArm5") // Haeloven +2
		PartyHasItem("KovaArm2") // Haeloven +1
		PartyHasItem("KovaArm1") // Haeloven
		PartyHasItem("KovaDag3") // Navaeren +3
		PartyHasItem("KovaDag2") // Navaeren +2
		PartyHasItem("KovaDag5") // Navaeren +5
	Global("EndOfBG1","GLOBAL",2)
THEN
	RESPONSE #100
		TakePartyItemAll("KovaArm5") // Haeloven +2
		TakePartyItemAll("KovaArm2") // Haeloven +1
		TakePartyItemAll("KovaArm1") // Haeloven
		TakePartyItemAll("KovaDag3") // Navaeren +3
		TakePartyItemAll("KovaDag2") // Navaeren +2
		TakePartyItemAll("KovaDag5") // Navaeren +5
END

IF
	OR(3)
		NumItemsPartyGT("KovaDag3",1) // Navaeren +3
		NumItemsPartyGT("KovaDag2",1) // Navaeren +2
		NumItemsPartyGT("KovaDag5",1) // Navaeren +5
	Global("EndOfBG1","GLOBAL",2)
THEN
	RESPONSE #100
		TakePartyItemAll("KovaDag3") // Navaeren +3
		TakePartyItemAll("KovaDag2") // Navaeren +2
		TakePartyItemAll("KovaDag5") // Navaeren +5
END

IF
	OR(3)
		NumItemsPartyGT("KovaArm5",1) // Haeloven +2
		NumItemsPartyGT("KovaArm2",1) // Haeloven +1
		NumItemsPartyGT("KovaArm1",1) // Haeloven
	Global("EndOfBG1","GLOBAL",2)
THEN
	RESPONSE #100
		TakePartyItemAll("KovaArm5") // Haeloven +2
		TakePartyItemAll("KovaArm2") // Haeloven +1
		TakePartyItemAll("KovaArm1") // Haeloven
END

IF
	OR(3)
		NumItemsPartyGT("KiyoArm3",1) // Verdant Vigilante +4
		NumItemsPartyGT("KiyoArm2",1) // Verdant Vigilant +2
		NumItemsPartyGT("KiyoArm1",1) // Verdant Vigil
	Global("EndOfBG1","GLOBAL",2)
THEN
	RESPONSE #100
		TakePartyItemAll("KiyoArm3") // Verdant Vigilante +4
		TakePartyItemAll("KiyoArm2") // Verdant Vigilant +2
		TakePartyItemAll("KiyoArm1") // Verdant Vigil
END

IF
	OR(3)
		NumItemsPartyGT("KiyoBow3",1) // Sight of the Sentinel +3
		NumItemsPartyGT("KiyoBow2",1) // Gaze of the Sentinel +2
		NumItemsPartyGT("KiyoBow1",1) // Eye of the Sentinel +1
	Global("EndOfBG1","GLOBAL",2)
THEN
	RESPONSE #100
		TakePartyItemAll("KiyoBow3") // Sight of the Sentinel +3
		TakePartyItemAll("KiyoBow2") // Gaze of the Sentinel +2
		TakePartyItemAll("KiyoBow1") // Eye of the Sentinel +1
END

IF
	OR(2)
		NumItemsPartyGT("KyRing2",1) // Kiyone's Wedding Ring
		NumItemsPartyGT("KyRing1",1) // Kiyone's Wedding Ring
	Global("EndOfBG1","GLOBAL",2)
THEN
	RESPONSE #100
		TakePartyItemAll("KyRing2") // Kiyone's Wedding Ring
		TakePartyItemAll("KyRing1") // Kiyone's Wedding Ring
END

IF
	OR(2)
		NumItemsPartyGT("KvRing2",1) // Kova's Wedding Ring
		NumItemsPartyGT("KvRing1",1) // Kova's Wedding Ring
	Global("EndOfBG1","GLOBAL",2)
THEN
	RESPONSE #100
		TakePartyItemAll("KvRing2") // Kova's Wedding Ring
		TakePartyItemAll("KvRing1") // Kova's Wedding Ring
END

IF
	!InParty("Kova")
	OR(2)
		PartyHasItem("KvRing2") // Kova's Wedding Ring
		PartyHasItem("KvRing1") // Kova's Wedding Ring
	Global("EndOfBG1","GLOBAL",2)
THEN
	RESPONSE #100
		TakePartyItemAll("KvRing2") // Kova's Wedding Ring
		TakePartyItemAll("KvRing1") // Kova's Wedding Ring
END

IF
	!InParty("Kiyone")
	OR(2)
		PartyHasItem("KyRing2") // Kiyone's Wedding Ring
		PartyHasItem("KyRing1") // Kiyone's Wedding Ring
	Global("EndOfBG1","GLOBAL",2)
THEN
	RESPONSE #100
		TakePartyItemAll("KyRing2") // Kiyone's Wedding Ring
		TakePartyItemAll("KyRing1") // Kiyone's Wedding Ring
END

IF
	Global("KKDream1","GLOBAL",10)
	PartyRested()
	Global("EndOfBG1","GLOBAL",2)
THEN
	RESPONSE #100
		SetGlobal("KKDream1","GLOBAL",11)
		ActionOverride(Player1,SetSequence(SEQ_AWAKE))
		ActionOverride(Player2,SetSequence(SEQ_AWAKE))
		ActionOverride(Player3,SetSequence(SEQ_AWAKE))
		ActionOverride(Player4,SetSequence(SEQ_AWAKE))
		ActionOverride(Player5,SetSequence(SEQ_AWAKE))
		ActionOverride(Player6,SetSequence(SEQ_AWAKE))
END

IF
	GlobalGT("D0Maevar","GLOBAL",4)
	OR(2)
		InPartyAllowDead("Kova")
		InPartyAllowDead("Kiyone")
	Global("Z#TrialClear","GLOBAL",0)
	Global("EndOfBG1","GLOBAL",2)
THEN
	RESPONSE #100
		SetGlobal("D0Maevar","GLOBAL",299)
END

IF
	Global("D0Maevar","GLOBAL",299)
	!Global("Z#TrialClear","GLOBAL",0)
	Global("EndOfBG1","GLOBAL",2)
THEN
	RESPONSE #100
		SetGlobal("D0Maevar","GLOBAL",30)
END

IF
	Global("M#AmberMatch","GLOBAL",0)
	Gender(Player1,MALE)
	CheckStatGT(Player1,11,CHR)
	CheckStatGT(Player1,11,INT)
THEN
	RESPONSE #100
		SetGlobal("M#AmberMatch","GLOBAL",1)
END

IF
	Global("M#AmberMatch","GLOBAL",0)
	OR(3)
		!Gender(Player1,MALE)
		!CheckStatGT(Player1,11,CHR)
		!CheckStatGT(Player1,11,INT)
THEN
	RESPONSE #100
		SetGlobal("M#AmberMatch","GLOBAL",2)
END

IF
	Global("M#AmberMatch","GLOBAL",2)
	Gender(Player2,MALE)
	CheckStatGT(Player2,11,CHR)
	CheckStatGT(Player2,11,INT)
	CheckStat(Player2,0,MORALEBREAK)
	!HasItemEquiped("belt05",Player2) // Girdle of Cognizance
	!Name("BIDDE",Player2) // Biddekelorak
	!Name("SUBRU",Player2)
	!Name("JCBruce",Player2) // Bruce
	!Name("G#CASS",Player2)
	!Name("FWGHARETH",Player2)
	!Name("CLFHSFNX",Player2)
	!Name("lrirenic",Player2) // Jon Irenicus
	!Name("DKido",Player2)
	!Name("KWOLF",Player2) // Killing Wolf
	!Name("Kindrek",Player2) // Kindrek
	!Name("NATH",Player2)
	!Name("SK#NEHT",Player2) // Neh'taniel
	!Name("Therrin",Player2)
	!Name("TSUJATH",Player2) // Tsujatha
	!Name("VANIM",Player2)
	!Name("Wikaede",Player2)
	!Name("TLXAN",Player2)
	!Name("SDNPC",Player2)
	!Name("Robilard",Player2) // Robillard
	!Name("Avaunis",Player2)
	!Name("Adario",Player2)
	!Name("KAGAINdd",Player2)
	!Name("KIVANDD",Player2)
	!Name("montaron",Player2)
	!Name("xzardd",Player2)
	!Name("yeslicdd",Player2)
	!Name("BOLIVAR",Player2)
	!Name("TOMASTM",Player2)
THEN
	RESPONSE #100
		SetGlobal("M#AmberMatch","GLOBAL",3)
END

IF
	Global("M#AmberMatch","GLOBAL",2)
	OR(33)
		!Gender(Player2,MALE)
		!CheckStatGT(Player2,11,CHR)
		!CheckStatGT(Player2,11,INT)
		CheckStat(Player2,0,MORALEBREAK)
		!HasItemEquiped("belt05",Player2) // Girdle of Cognizance
		!Name("BIDDE",Player2) // Biddekelorak
		!Name("SUBRU",Player2)
		!Name("JCBruce",Player2) // Bruce
		!Name("G#CASS",Player2)
		!Name("FWGHARETH",Player2)
		!Name("CLFHSFNX",Player2)
		!Name("lrirenic",Player2) // Jon Irenicus
		!Name("DKido",Player2)
		!Name("KWOLF",Player2) // Killing Wolf
		!Name("Kindrek",Player2) // Kindrek
		!Name("NATH",Player2)
		!Name("SK#NEHT",Player2) // Neh'taniel
		!Name("Therrin",Player2)
		!Name("TSUJATH",Player2) // Tsujatha
		!Name("VANIM",Player2)
		!Name("Wikaede",Player2)
		!Name("TLXAN",Player2)
		!Name("SDNPC",Player2)
		!Name("Robilard",Player2) // Robillard
		!Name("Avaunis",Player2)
		!Name("Adario",Player2)
		!Name("KAGAINdd",Player2)
		!Name("KIVANDD",Player2)
		!Name("montaron",Player2)
		!Name("xzardd",Player2)
		!Name("yeslicdd",Player2)
		!Name("BOLIVAR",Player2)
		!Name("TOMASTM",Player2)
THEN
	RESPONSE #100
		SetGlobal("M#AmberMatch","GLOBAL",4)
END

IF
	OR(2)
		Global("M#AmberRomanceActive","GLOBAL",1)
		Global("M#AmberRomanceActive","GLOBAL",2)
	Global("M#AmberRomanceOut","GLOBAL",0)
	OR(2)
		GlobalLT("M#AmberKidnap","GLOBAL",2)
		GlobalGT("M#AmberKidnap","GLOBAL",8)
	!InPartyAllowDead("M#Amber")
	!Dead("M#Amber")
THEN
	RESPONSE #100
		SetGlobal("M#AmberRomanceOut","GLOBAL",1)
		SetGlobalTimer("M#AmberOutOfParty","GLOBAL",25920)
END

IF
	OR(2)
		Global("M#AmberRomanceActive","GLOBAL",1)
		Global("M#AmberRomanceActive","GLOBAL",2)
	OR(2)
		GlobalLT("M#AmberKidnap","GLOBAL",2)
		GlobalGT("M#AmberKidnap","GLOBAL",8)
	Global("M#AmberRomanceOut","GLOBAL",1)
	Global("M#AmberRomanceWaiting","GLOBAL",0)
	GlobalTimerExpired("M#AmberOutOfParty","GLOBAL")
	!InPartyAllowDead("M#Amber")
	!Dead("M#Amber")
THEN
	RESPONSE #100
		SetGlobal("M#AmberRomanceActive","GLOBAL",3)
END

IF
	OR(2)
		Global("M#AmberRomanceActive","GLOBAL",1)
		Global("M#AmberRomanceActive","GLOBAL",2)
	Global("M#AmberRomanceOut","GLOBAL",1)
	InPartyAllowDead("M#Amber")
THEN
	RESPONSE #100
		SetGlobal("M#AmberRomanceOut","GLOBAL",0)
		SetGlobal("M#AmberRomanceWaiting","GLOBAL",0)
		RealSetGlobalTimer("M#AmberRomanceTime","GLOBAL",NINE_HOURS)
END

IF
	Global("M#JillBracelet","GLOBAL",2)
	GlobalTimerExpired("M#AmberQuestTime","GLOBAL")
	!InParty("M#Amber")
THEN
	RESPONSE #100
		SetGlobal("M#JillBracelet","GLOBAL",4)
		MoveGlobalObjectOffScreen("M#Amber",Player1)
		AddXPObject("M#Amber",750)
		ActionOverride("M#Amber",ApplySpellRES("M#JBRACE",Myself)) // Gillian's Bracelet
		RealSetGlobalTimer("M#AmberRomanceTime","GLOBAL",FOUR_HOURS)
		ActionOverride("M#Amber",MoveToObject(Player1))
		ActionOverride("M#Amber",Dialogue(Player1))
END

IF
	Global("M#JillBracelet","GLOBAL",8)
THEN
	RESPONSE #100
		ActionOverride("M#Amber",ApplySpellRES("M#JBRACE",Myself)) // Gillian's Bracelet
		SetGlobal("M#JillBracelet","GLOBAL",9)
		RealSetGlobalTimer("M#AmberRomanceTime","GLOBAL",FOUR_HOURS)
END

IF
	Global("M#AmberKidnap","GLOBAL",1)
	RealGlobalTimerExpired("M#AmberQuestTime","GLOBAL")
	InParty("M#Amber")
	OR(7)
		AreaCheck("ar0020")
		AreaCheck("ar0300")
		AreaCheck("ar0400")
		AreaCheck("ar0500")
		AreaCheck("ar0700")
		AreaCheck("ar0800")
		AreaCheck("ar2000")
THEN
	RESPONSE #100
		Wait(10)
		CreateCreatureObjectOffScreen("remage02","M#Amber",0,0,0) // Slaver Wizard
		ChangeEnemyAlly("remage02",NEUTRAL)
		ActionOverride("remage02",SetDialog("m#kcut"))
		ActionOverride("remage02",ChangeAIScript("m#remage",OVERRIDE))
		ActionOverride("remage02",ChangeAIScript("MAGE8A",CLASS))
		CreateCreatureObject("refigh01","remage02",0,0,0) // Slaver
		ChangeEnemyAlly("refigh01",NEUTRAL)
		ActionOverride("refigh01",ChangeAIScript("m#reatta",OVERRIDE))
		CreateCreatureObject("recler01","remage02",0,0,0) // Slaver
		ChangeEnemyAlly("recler01",NEUTRAL)
		ActionOverride("recler01",ChangeAIScript("m#reatta",OVERRIDE))
		ActionOverride("recler01",ChangeAIScript("PRIES8A",CLASS))
		CreateCreatureObject("rethie01","remage02",0,0,0) // Slaver
		ChangeEnemyAlly("rethie01",NEUTRAL)
		ActionOverride("rethie01",ChangeAIScript("m#reatta",OVERRIDE))
		ActionOverride("rethie01",CreateItem("sw1h07",1,0,0)) // Short Sword
		ActionOverride("rethie01",FillSlot(SLOT_WEAPON1))
		CreateCreatureObject("rethie03","remage02",0,0,0) // Slaver
		ChangeEnemyAlly("rethie03",NEUTRAL)
		ActionOverride("rethie03",ChangeAIScript("m#reatta",OVERRIDE))
		SetGlobal("M#AmberKidnap","GLOBAL",2)
		StartCutSceneMode()
		StartCutScene("m#kcut01")
END

IF
	StateCheck("M#Amber",STATE_STONE_DEATH)
	Global("M#AmberStoned","GLOBAL",0)
THEN
	RESPONSE #100
		SetGlobal("M#AmberStoned","GLOBAL",1)
END

IF
	Global("RefEnter","GLOBAL",1)
THEN
	RESPONSE #100
		ClearAllActions()
		StorePartyLocations()
		FadeToColor([30.0],0)
		Wait(2)
		ActionOverride(Player1,LeaveAreaLUAPanic("K0REF1","",[423.313],8))
		ActionOverride(Player1,LeaveAreaLUA("K0REF1","",[423.313],8))
		ActionOverride(Player2,LeaveAreaLUA("K0REF1","",[464.345],8))
		ActionOverride(Player3,LeaveAreaLUA("K0REF1","",[364.357],8))
		ActionOverride(Player4,LeaveAreaLUA("K0REF1","",[416.398],8))
		ActionOverride(Player5,LeaveAreaLUA("K0REF1","",[313.411],8))
		ActionOverride(Player6,LeaveAreaLUA("K0REF1","",[349.438],8))
		FadeFromColor([30.0],0)
		SetGlobal("RefEnter","GLOBAL",0)
		Continue()
END

IF
	Global("RefExit","GLOBAL",1)
THEN
	RESPONSE #100
		ClearAllActions()
		FadeToColor([30.0],0)
		CutSceneId(Player1)
		RestorePartyLocations()
		EndCutSceneMode()
		FadeFromColor([30.0],0)
		SetGlobal("RefExit","GLOBAL",0)
		Continue()
END

IF
	Global("ENDOFBG1","GLOBAL",2)
	OR(2)
		Global("StartPeddlerTimer","GLOBAL",0)
		Global("ResetPeddlerTimer","GLOBAL",1)
THEN
	RESPONSE #1
		SetGlobalTimer("PEDDLER","GLOBAL",15000)
		SetGlobal("StartPeddlerTimer","GLOBAL",1)
		SetGlobal("ResetPeddlerTimer","GLOBAL",0)
	RESPONSE #1
		SetGlobalTimer("PEDDLER","GLOBAL",25000)
		SetGlobal("StartPeddlerTimer","GLOBAL",1)
		SetGlobal("ResetPeddlerTimer","GLOBAL",0)
	RESPONSE #1
		SetGlobalTimer("PEDDLER","GLOBAL",35000)
		SetGlobal("StartPeddlerTimer","GLOBAL",1)
		SetGlobal("ResetPeddlerTimer","GLOBAL",0)
	RESPONSE #1
		SetGlobalTimer("PEDDLER","GLOBAL",45000)
		SetGlobal("StartPeddlerTimer","GLOBAL",1)
		SetGlobal("ResetPeddlerTimer","GLOBAL",0)
	RESPONSE #1
		SetGlobalTimer("PEDDLER","GLOBAL",55000)
		SetGlobal("StartPeddlerTimer","GLOBAL",1)
		SetGlobal("ResetPeddlerTimer","GLOBAL",0)
		Continue()
END

IF
	AreaType(OUTDOOR)
	!TimeOfDay(NIGHT)
	!See([ENEMY])
	GlobalTimerExpired("PEDDLER","GLOBAL")
THEN
	RESPONSE #1
		SetGlobal("PeddlerStore","GLOBAL",1)
		CreateCreatureObjectOffScreen("SGPEDD1",Player1,0,0,0) // Arkvisti the Wanderer
		SetGlobal("ResetPeddlerTimer","GLOBAL",1)
	RESPONSE #1
		SetGlobal("PeddlerStore","GLOBAL",2)
		CreateCreatureObjectOffScreen("SGPEDD1",Player1,0,0,0) // Arkvisti the Wanderer
		SetGlobal("ResetPeddlerTimer","GLOBAL",1)
	RESPONSE #1
		SetGlobal("PeddlerStore","GLOBAL",3)
		CreateCreatureObjectOffScreen("SGPEDD1",Player1,0,0,0) // Arkvisti the Wanderer
		SetGlobal("ResetPeddlerTimer","GLOBAL",1)
		Continue()
END

IF
	HasItemEquiped("r#wedrin",Player1) // Breudayael's Wedding Ring
THEN
	RESPONSE #100
		CallLightning(Player1)
END

IF
	HasItemEquiped("r#wedrin",Player2) // Breudayael's Wedding Ring
THEN
	RESPONSE #100
		CallLightning(Player2)
END

IF
	HasItemEquiped("r#wedrin",Player3) // Breudayael's Wedding Ring
THEN
	RESPONSE #100
		CallLightning(Player3)
END

IF
	HasItemEquiped("r#wedrin",Player4) // Breudayael's Wedding Ring
THEN
	RESPONSE #100
		CallLightning(Player4)
END

IF
	HasItemEquiped("r#wedrin",Player5) // Breudayael's Wedding Ring
THEN
	RESPONSE #100
		CallLightning(Player5)
END

IF
	HasItemEquiped("r#wedrin",Player6) // Breudayael's Wedding Ring
THEN
	RESPONSE #100
		CallLightning(Player6)
END

IF
	OR(4)
		Global("C#SilberdrachenblutQuestTod","GLOBAL",1)
		Global("TalkedToTanally1","GLOBAL",0)
		Dead("TANALLY1") // Fael
		GlobalTimerExpired("C#SB_DrowCityHostileTimer","GLOBAL")
	GlobalTimerExpired("udEscape","GLOBAL")
	Global("C#SB_DrowCityHostile","GLOBAL",0)
THEN
	RESPONSE #100
		SetGlobal("C#SB_DrowCityHostile","GLOBAL",1)
		Continue()
END

IF
	Global("tb#spawnedlotr","global",0)
	XPGT(Player1,2500000)
	OR(8)
		AreaCheckObject("AR0020",Player1)
		AreaCheckObject("Ar0300",Player1)
		AreaCheckObject("Ar0400",Player1)
		AreaCheckObject("Ar0500",Player1)
		AreaCheckObject("Ar0700",Player1)
		AreaCheckObject("Ar0800",Player1)
		AreaCheckObject("Ar0900",Player1)
		AreaCheckObject("Ar1000",Player1)
THEN
	RESPONSE #100
		CreateCreatureObject("tb#lotr",Player1,0,0,0) // Maniar
		SetGlobal("tb#spawnedlotr","global",1)
END

IF
	Global("sphhome","GLOBAL",1)
THEN
	RESPONSE #100
		ClearAllActions()
		StorePartyLocations()
		FadeToColor([30.0],0)
		Wait(2)
		ActionOverride(Player1,LeaveAreaLUA("AR0411","",[2774.2650],14))
		ActionOverride(Player2,LeaveAreaLUA("AR0411","",[2839.2781],11))
		ActionOverride(Player3,LeaveAreaLUA("AR0411","",[3160.2717],4))
		ActionOverride(Player4,LeaveAreaLUA("AR0411","",[2989.2821],8))
		ActionOverride(Player5,LeaveAreaLUA("AR0411","",[2908.2795],8))
		ActionOverride(Player6,LeaveAreaLUA("AR0411","",[2842.2772],8))
		FadeFromColor([30.0],0)
		SetGlobal("sphhome","GLOBAL",0)
		Continue()
END

IF
	Global("return","GLOBAL",1)
THEN
	RESPONSE #100
		ClearAllActions()
		FadeToColor([30.0],0)
		CutSceneId(Player1)
		RestorePartyLocations()
		EndCutSceneMode()
		FadeFromColor([30.0],0)
		SetGlobal("return","GLOBAL",0)
		Continue()
END

IF
	True()
	!Global("MageAbil","GLOBAL",2)
	Global("PCSphere","GLOBAL",1)
THEN
	RESPONSE #100
		SetGlobal("MageAbil","GLOBAL",1)
		Continue()
END

IF
	True()
	Global("MageAbil","GLOBAL",1)
	!Global("MageAbil","GLOBAL",2)
THEN
	RESPONSE #100
		ActionOverride(Player1,AddSpecialAbility("return")) // Return
		ActionOverride(Player1,AddSpecialAbility("sphhome")) // Planar Sphere
		SetGlobal("MageAbil","GLOBAL",2)
		Continue()
END

IF
	Delay(600)
	CombatCounter(0)
	OR(6)
		HasItemEquipedReal("bhfsw1",Player1) // Sword of Flame +2
		HasItemEquipedReal("bhfsw1",Player2) // Sword of Flame +2
		HasItemEquipedReal("bhfsw1",Player3) // Sword of Flame +2
		HasItemEquipedReal("bhfsw1",Player4) // Sword of Flame +2
		HasItemEquipedReal("bhfsw1",Player5) // Sword of Flame +2
		HasItemEquipedReal("bhfsw1",Player6) // Sword of Flame +2
THEN
	RESPONSE #10
		DisplayStringHeadOwner("bhfsw1",119704) //   Torment! 
	RESPONSE #10
		DisplayStringHeadOwner("bhfsw1",119705) //   Plenty to burn here. 
	RESPONSE #10
		DisplayStringHeadOwner("bhfsw1",119706) //   The flames await. 
	RESPONSE #10
		DisplayStringHeadOwner("bhfsw1",119707) //   I wait to walk paths of flames. 
	RESPONSE #10
		DisplayStringHeadOwner("bhfsw1",119708) //   The flames grow within me. 
	RESPONSE #10
		DisplayStringHeadOwner("bhfsw1",119709) //   No more talk and wonder. 
	RESPONSE #10
		DisplayStringHeadOwner("bhfsw1",119710) //   Great power is here. 
	RESPONSE #10
		DisplayStringHeadOwner("bhfsw1",119711) //   The flames hunger for the blistering of flesh. 
	RESPONSE #10
		DisplayStringHeadOwner("bhfsw1",119712) //   I wait. 
	RESPONSE #10
		DisplayStringHeadOwner("bhfsw1",119713) //   Ah, sweet flames. 
	RESPONSE #10
		DisplayStringHeadOwner("bhfsw1",119714) //   As I remained here, thoughts filled with flames. 
	RESPONSE #10
		DisplayStringHeadOwner("bhfsw1",119715) //   I am yours till death comes for us both. 
	RESPONSE #10
		DisplayStringHeadOwner("bhfsw1",119716) //   Fires shall sweep through the streets. 
	RESPONSE #10
		DisplayStringHeadOwner("bhfsw1",119717) //   I live? 
	RESPONSE #10
		DisplayStringHeadOwner("bhfsw1",119718) //   Yes? 
	RESPONSE #10
		DisplayStringHeadOwner("bhfsw1",119719) //   Ahhh. 
	RESPONSE #10
		DisplayStringHeadOwner("bhfsw1",119720) //   Yes, my master. 
	RESPONSE #10
		DisplayStringHeadOwner("bhfsw1",119721) //   You are all tallow for my flames. 
	RESPONSE #10
		DisplayStringHeadOwner("bhfsw1",119722) //   Long scream. 
	RESPONSE #10
		DisplayStringHeadOwner("bhfsw1",119723) //   Pain. 
END

IF
	Delay(125)
	!CombatCounter(0)
	OR(6)
		HasItemEquipedReal("bhfsw1",Player1) // Sword of Flame +2
		HasItemEquipedReal("bhfsw1",Player2) // Sword of Flame +2
		HasItemEquipedReal("bhfsw1",Player3) // Sword of Flame +2
		HasItemEquipedReal("bhfsw1",Player4) // Sword of Flame +2
		HasItemEquipedReal("bhfsw1",Player5) // Sword of Flame +2
		HasItemEquipedReal("bhfsw1",Player6) // Sword of Flame +2
THEN
	RESPONSE #10
		DisplayStringHeadOwner("bhfsw1",119722) //   Long scream. 
	RESPONSE #10
		DisplayStringHeadOwner("bhfsw1",119724) //   Scream. 
	RESPONSE #10
		DisplayStringHeadOwner("bhfsw1",119721) //   You are all tallow for my flames. 
	RESPONSE #10
		DisplayStringHeadOwner("bhfsw1",119723) //   Pain. 
	RESPONSE #10
		DisplayStringHeadOwner("bhfsw1",119705) //   Plenty to burn here. 
	RESPONSE #10
		DisplayStringHeadOwner("bhfsw1",119725) //   Yes. (*laughs*) 
	RESPONSE #10
		DisplayStringHeadOwner("bhfsw1",119726) //   As you wish. 
	RESPONSE #10
		DisplayStringHeadOwner("bhfsw1",119727) //   I will burn you, lend some fire to the flames. 
	RESPONSE #10
		DisplayStringHeadOwner("bhfsw1",119708) //   The flames grow within me. 
	RESPONSE #10
		DisplayStringHeadOwner("bhfsw1",119704) //   Torment! 
	RESPONSE #10
		DisplayStringHeadOwner("bhfsw1",119728) //   Again. 
	RESPONSE #10
		DisplayStringHeadOwner("bhfsw1",119709) //   No more talk and wonder. 
	RESPONSE #10
		DisplayStringHeadOwner("bhfsw1",119706) //   The flames await. 
	RESPONSE #10
		DisplayStringHeadOwner("bhfsw1",119729) //   Yes. 
	RESPONSE #10
		DisplayStringHeadOwner("bhfsw1",119716) //   Fires shall sweep through the streets. 
	RESPONSE #10
		DisplayStringHeadOwner("bhfsw1",119730) //   Ah, sweet flames! 
	RESPONSE #10
		DisplayStringHeadOwner("bhfsw1",119731) //   The skys shall be flames and all life shall be torches. 
	RESPONSE #10
		DisplayStringHeadOwner("bhfsw1",119732) //   Darkness smothers the flames. 
	RESPONSE #10
		DisplayStringHeadOwner("bhfsw1",119711) //   The flames hunger for the blistering of flesh. 
	RESPONSE #10
		DisplayStringHeadOwner("bhfsw1",119733) //   I am yours. 
	RESPONSE #10
		DisplayStringHeadOwner("bhfsw1",119722) //   Long scream. 
END

IF
	Global("VP_Boo_Moves","GLOBAL",1)
THEN
	RESPONSE #100
		SetGlobal("VP_Boo_Moves","GLOBAL",0)
		MoveGlobalObject("Boo","Minsc")
		Continue()
END

IF
	Global("ValygarMatch","GLOBAL",0)
	Global("CheckValygarMatch","GLOBAL",0)
	Gender(Player1,FEMALE)
	OR(4)
		Race(Player1,HUMAN)
		Race(Player1,ELF)
		Race(Player1,HALF_ELF)
		Race(Player1,HALFLING)
THEN
	RESPONSE #100
		SetGlobal("CheckValygarMatch","GLOBAL",1)
		SetGlobal("ValygarMatch","GLOBAL",1)
END

IF
	Global("SimeMatch","GLOBAL",0)
	Global("CheckSimeMatch","GLOBAL",0)
	!Alignment(Player1,CHAOTIC_EVIL)
	!Alignment(Player1,LAWFUL_EVIL)
	!Alignment(Player1,NEUTRAL_EVIL)
THEN
	RESPONSE #100
		SetGlobal("CheckSimeMatch","GLOBAL",1)
		SetGlobal("SimeMatch","GLOBAL",1)
END

IF
	OR(2)
		Global("ValygarRomanceActive","GLOBAL",1)
		Global("ValygarRomanceActive","GLOBAL",2)
	!InPartyAllowDead("Valygar")
	Dead("Valygar")
THEN
	RESPONSE #100
		SetGlobal("ValygarRomanceActive","GLOBAL",3)
END

IF
	OR(2)
		Global("SimeRomanceActive","GLOBAL",1)
		Global("SimeRomanceActive","GLOBAL",2)
	!InPartyAllowDead("Sime")
	Dead("Sime")
THEN
	RESPONSE #100
		SetGlobal("SimeRomanceActive","GLOBAL",3)
END

IF
	Global("ValygarRomanceActive","GLOBAL",1)
	Global("ValygarRomanceOut","GLOBAL",0)
	!InPartyAllowDead("Valygar")
	!Dead("Valygar")
THEN
	RESPONSE #100
		SetGlobal("ValygarRomanceOut","GLOBAL",1)
		SetGlobalTimer("ValygarOutOfParty","GLOBAL",THREE_DAYS)
END

IF
	Global("ValygarRomanceActive","GLOBAL",1)
	Global("ValygarRomanceOut","GLOBAL",1)
	GlobalTimerExpired("ValygarOutOfParty","GLOBAL")
	!InPartyAllowDead("Valygar")
	!Dead("Valygar")
THEN
	RESPONSE #100
		SetGlobal("ValygarRomanceActive","GLOBAL",3)
END

IF
	Global("ValygarRomanceActive","GLOBAL",1)
	Global("ValygarRomanceOut","GLOBAL",1)
	!GlobalTimerExpired("ValygarOutOfParty","GLOBAL")
	InPartyAllowDead("Valygar")
THEN
	RESPONSE #100
		SetGlobal("ValygarRomanceOut","GLOBAL",0)
		RealSetGlobalTimer("ValygarRomance","GLOBAL",NINE_HOURS)
END

IF
	Global("SimeRomanceActive","GLOBAL",1)
	Global("SimeRomanceOut","GLOBAL",0)
	!InPartyAllowDead("Sime")
	!Dead("Sime")
THEN
	RESPONSE #100
		SetGlobal("SimeRomanceOut","GLOBAL",1)
		SetGlobalTimer("SimeOutOfParty","GLOBAL",THREE_DAYS)
END

IF
	Global("SimeRomanceActive","GLOBAL",1)
	Global("SimeRomanceOut","GLOBAL",1)
	GlobalTimerExpired("SimeOutOfParty","GLOBAL")
	!InPartyAllowDead("Sime")
	!Dead("Sime")
THEN
	RESPONSE #100
		SetGlobal("SimeRomanceActive","GLOBAL",3)
END

IF
	Global("SimeRomanceActive","GLOBAL",1)
	Global("SimeRomanceOut","GLOBAL",1)
	!GlobalTimerExpired("SimeOutOfParty","GLOBAL")
	InPartyAllowDead("Sime")
THEN
	RESPONSE #100
		SetGlobal("SimeRomanceOut","GLOBAL",0)
		RealSetGlobalTimer("SimeRomance","GLOBAL",NINE_HOURS)
END

IF
	Global("CbVampireSubQuestStart","GLOBAL",3)
	PartyHasItem("CBVMPDR1") // Cursed Earth
	PartyHasItem("CBVMPDR2") // Cursed Earth
	PartyHasItem("CBVMPDR3") // Cursed Earth
	PartyHasItem("CBVMPCF1") // Vampire Coffin
	PartyHasItem("CBVMPCF2") // Vampire Coffin
	PartyHasItem("CBVMPCF3") // Vampire Coffin
	PartyHasItem("CBVMPCF4") // Vampire Coffin
	AreaType(OUTDOOR)
	GlobalTimerExpired("CbMovingVampires","GLOBAL")
	TimeGT(DAWN_START)
THEN
	RESPONSE #100
		SetGlobal("CbVampireSubQuestStart","GLOBAL",69)
		SetGlobal("CbVampireSubQuestFailed","GLOBAL",1)
		TakePartyItem("CBVMPDR1") // Cursed Earth
		TakePartyItem("CBVMPDR2") // Cursed Earth
		TakePartyItem("CBVMPDR3") // Cursed Earth
		TakePartyItem("CBVMPCF1") // Vampire Coffin
		TakePartyItem("CBVMPCF2") // Vampire Coffin
		TakePartyItem("CBVMPCF3") // Vampire Coffin
		TakePartyItem("CBVMPCF4") // Vampire Coffin
		DisplayStringNoName(Player1,85689) // Apparently, you have waited to long to finish moving the family of vampires.  They have been destroyed in the sunlight.
END

IF
	OR(30)
		AreaCheck("AR0042")
		AreaCheck("AR0043")
		AreaCheck("AR0044")
		AreaCheck("AR1100")
		AreaCheck("AR1400")
		AreaCheck("AR1300")
		AreaCheck("AR1200")
		AreaCheck("AR1404")
		AreaCheck("AR1304")
		AreaCheck("AR2000")
		AreaCheck("AR1900")
		AreaCheck("AR1700")
		AreaCheck("AR2500")
		AreaCheck("AR2600")
		AreaCheck("AR1800")
		AreaCheck("AR1600")
		AreaCheck("AR2100")
		AreaCheck("AR1500")
		AreaCheck("AR2300")
		AreaCheck("AR2800")
		AreaCheck("AR4000")
		AreaCheck("AR3000")
		AreaCheck("AR5000")
		AreaCheck("AR5500")
		AreaCheck("AR5203")
		AreaCheck("AR5202")
		AreaCheck("AR5200")
		AreaCheck("AR6300")
		AreaCheck("AR6400")
		AreaCheck("AR6000")
	!Global("CbTaxCollected","GLOBAL",1)
	Global("CbTaxAnnouncement","GLOBAL",5)
THEN
	RESPONSE #100
		SetGlobal("CbTaxCollected","GLOBAL",1)
END

IF
	OR(8)
		AreaCheck("AR0700")
		AreaCheck("AR0400")
		AreaCheck("AR0300")
		AreaCheck("AR0500")
		AreaCheck("AR0800")
		AreaCheck("AR0900")
		AreaCheck("AR1000")
		AreaCheck("AR0020")
	Global("CbTaxAnnouncement","GLOBAL",5)
	Global("CbTaxCollected","GLOBAL",1)
	!Exists("CBTAXCOL")
THEN
	RESPONSE #100
		CreateCreatureOffScreen("CBTAXCOL",0) // Tax Collector
END

IF
	OR(7)
		AreaCheck("AR0700")
		AreaCheck("AR0400")
		AreaCheck("AR0300")
		AreaCheck("AR0500")
		AreaCheck("AR0900")
		AreaCheck("AR1000")
		AreaCheck("AR0020")
	Global("CbTaxAnnouncement","GLOBAL",2)
	Global("CbCreateTaxAnnouncer","MYAREA",0)
THEN
	RESPONSE #100
		SetGlobal("CbCreateTaxAnnouncer","MYAREA",1)
		CreateCreatureOffScreen("CBTAXTWC",0) // Town Crier
END

IF
	GlobalTimerExpired("CbDeliverIceMelting","GLOBAL")
	PartyHasItem("CBICEBLK") // Block of Ice
THEN
	RESPONSE #100
		TakePartyItem("CBICEBLK") // Block of Ice
		DisplayStringNoName(Player1,85690) // The block of ice you have been carrying has melted.  Perhaps you should have delivered it more quickly.
END

IF
	OR(5)
		Global("CbPlayer_2_HasSpellsung","GLOBAL",1)
		Global("CbPlayer_3_HasSpellsung","GLOBAL",1)
		Global("CbPlayer_4_HasSpellsung","GLOBAL",1)
		Global("CbPlayer_5_HasSpellsung","GLOBAL",1)
		Global("CbPlayer_6_HasSpellsung","GLOBAL",1)
	!GlobalTimerNotExpired("CbSpellsungDamage","GLOBAL")
	OR(5)
		HasItemEquipedReal("CBSSLNG2",Player1) // SongSapate
		HasItemEquipedReal("CBSSLNG3",Player1) // SongSapate
		HasItemEquipedReal("CBSSLNG4",Player1) // SongSapate
		HasItemEquipedReal("CBSSLNG5",Player1) // SongSapate
		HasItemEquipedReal("CBSSLNG6",Player1) // SongSapate
THEN
	RESPONSE #100
		ActionOverride(Player1,ReallyForceSpell(Player1,FIFTY_PERCENT_DAMAGE))
		DisplayStringHead(Player1,85691) // The Spellsung Blade has not chosen you as its rightful owner.  It lashes out in rebellion.
		SetGlobalTimer("CbSpellsungDamage","GLOBAL",TEN_ROUNDS)
END

IF
	OR(5)
		Global("CbPlayer_1_HasSpellsung","GLOBAL",1)
		Global("CbPlayer_3_HasSpellsung","GLOBAL",1)
		Global("CbPlayer_4_HasSpellsung","GLOBAL",1)
		Global("CbPlayer_5_HasSpellsung","GLOBAL",1)
		Global("CbPlayer_6_HasSpellsung","GLOBAL",1)
	!GlobalTimerNotExpired("CbSpellsungDamage","GLOBAL")
	OR(5)
		HasItemEquipedReal("CBSSLNG1",Player2) // SongSapate
		HasItemEquipedReal("CBSSLNG3",Player2) // SongSapate
		HasItemEquipedReal("CBSSLNG4",Player2) // SongSapate
		HasItemEquipedReal("CBSSLNG5",Player2) // SongSapate
		HasItemEquipedReal("CBSSLNG6",Player2) // SongSapate
THEN
	RESPONSE #100
		ActionOverride(Player2,ReallyForceSpell(Player2,FIFTY_PERCENT_DAMAGE))
		DisplayStringHead(Player2,85691) // The Spellsung Blade has not chosen you as its rightful owner.  It lashes out in rebellion.
		SetGlobalTimer("CbSpellsungDamage","GLOBAL",TEN_ROUNDS)
END

IF
	OR(5)
		Global("CbPlayer_1_HasSpellsung","GLOBAL",1)
		Global("CbPlayer_2_HasSpellsung","GLOBAL",1)
		Global("CbPlayer_4_HasSpellsung","GLOBAL",1)
		Global("CbPlayer_5_HasSpellsung","GLOBAL",1)
		Global("CbPlayer_6_HasSpellsung","GLOBAL",1)
	!GlobalTimerNotExpired("CbSpellsungDamage","GLOBAL")
	OR(5)
		HasItemEquipedReal("CBSSLNG1",Player3) // SongSapate
		HasItemEquipedReal("CBSSLNG2",Player3) // SongSapate
		HasItemEquipedReal("CBSSLNG4",Player3) // SongSapate
		HasItemEquipedReal("CBSSLNG5",Player3) // SongSapate
		HasItemEquipedReal("CBSSLNG6",Player3) // SongSapate
THEN
	RESPONSE #100
		ActionOverride(Player3,ReallyForceSpell(Player3,FIFTY_PERCENT_DAMAGE))
		DisplayStringHead(Player3,85691) // The Spellsung Blade has not chosen you as its rightful owner.  It lashes out in rebellion.
		SetGlobalTimer("CbSpellsungDamage","GLOBAL",TEN_ROUNDS)
END

IF
	OR(5)
		Global("CbPlayer_1_HasSpellsung","GLOBAL",1)
		Global("CbPlayer_2_HasSpellsung","GLOBAL",1)
		Global("CbPlayer_3_HasSpellsung","GLOBAL",1)
		Global("CbPlayer_5_HasSpellsung","GLOBAL",1)
		Global("CbPlayer_6_HasSpellsung","GLOBAL",1)
	!GlobalTimerNotExpired("CbSpellsungDamage","GLOBAL")
	OR(5)
		HasItemEquipedReal("CBSSLNG1",Player4) // SongSapate
		HasItemEquipedReal("CBSSLNG2",Player4) // SongSapate
		HasItemEquipedReal("CBSSLNG3",Player4) // SongSapate
		HasItemEquipedReal("CBSSLNG5",Player4) // SongSapate
		HasItemEquipedReal("CBSSLNG6",Player4) // SongSapate
THEN
	RESPONSE #100
		ActionOverride(Player4,ReallyForceSpell(Player4,FIFTY_PERCENT_DAMAGE))
		DisplayStringHead(Player4,85691) // The Spellsung Blade has not chosen you as its rightful owner.  It lashes out in rebellion.
		SetGlobalTimer("CbSpellsungDamage","GLOBAL",TEN_ROUNDS)
END

IF
	OR(5)
		Global("CbPlayer_1_HasSpellsung","GLOBAL",1)
		Global("CbPlayer_2_HasSpellsung","GLOBAL",1)
		Global("CbPlayer_3_HasSpellsung","GLOBAL",1)
		Global("CbPlayer_4_HasSpellsung","GLOBAL",1)
		Global("CbPlayer_6_HasSpellsung","GLOBAL",1)
	!GlobalTimerNotExpired("CbSpellsungDamage","GLOBAL")
	OR(5)
		HasItemEquipedReal("CBSSLNG1",Player5) // SongSapate
		HasItemEquipedReal("CBSSLNG2",Player5) // SongSapate
		HasItemEquipedReal("CBSSLNG3",Player5) // SongSapate
		HasItemEquipedReal("CBSSLNG4",Player5) // SongSapate
		HasItemEquipedReal("CBSSLNG6",Player5) // SongSapate
THEN
	RESPONSE #100
		ActionOverride(Player5,ReallyForceSpell(Player5,FIFTY_PERCENT_DAMAGE))
		DisplayStringHead(Player5,85691) // The Spellsung Blade has not chosen you as its rightful owner.  It lashes out in rebellion.
		SetGlobalTimer("CbSpellsungDamage","GLOBAL",TEN_ROUNDS)
END

IF
	OR(5)
		Global("CbPlayer_1_HasSpellsung","GLOBAL",1)
		Global("CbPlayer_2_HasSpellsung","GLOBAL",1)
		Global("CbPlayer_3_HasSpellsung","GLOBAL",1)
		Global("CbPlayer_4_HasSpellsung","GLOBAL",1)
		Global("CbPlayer_5_HasSpellsung","GLOBAL",1)
	!GlobalTimerNotExpired("CbSpellsungDamage","GLOBAL")
	OR(5)
		HasItemEquipedReal("CBSSLNG1",Player6) // SongSapate
		HasItemEquipedReal("CBSSLNG2",Player6) // SongSapate
		HasItemEquipedReal("CBSSLNG3",Player6) // SongSapate
		HasItemEquipedReal("CBSSLNG4",Player6) // SongSapate
		HasItemEquipedReal("CBSSLNG5",Player6) // SongSapate
THEN
	RESPONSE #100
		ActionOverride(Player6,ReallyForceSpell(Player6,FIFTY_PERCENT_DAMAGE))
		DisplayStringHead(Player6,85691) // The Spellsung Blade has not chosen you as its rightful owner.  It lashes out in rebellion.
		SetGlobalTimer("CbSpellsungDamage","GLOBAL",TEN_ROUNDS)
END

IF
	Global("CbTempMoonBlade","GLOBAL",0)
	HasItemEquipedReal("CBEMMOON",Player1) // Moonblade +3
THEN
	RESPONSE #100
		SetGlobal("CbTempMoonBlade","GLOBAL",1)
		SetGlobal("CbMoonBladePlayer1","GLOBAL",1)
END

IF
	Global("CbTempMoonBlade","GLOBAL",0)
	HasItemEquipedReal("CBEMMOON",Player2) // Moonblade +3
THEN
	RESPONSE #100
		SetGlobal("CbTempMoonBlade","GLOBAL",1)
		SetGlobal("CbMoonBladePlayer2","GLOBAL",1)
END

IF
	Global("CbTempMoonBlade","GLOBAL",0)
	HasItemEquipedReal("CBEMMOON",Player3) // Moonblade +3
THEN
	RESPONSE #100
		SetGlobal("CbTempMoonBlade","GLOBAL",1)
		SetGlobal("CbMoonBladePlayer3","GLOBAL",1)
END

IF
	Global("CbTempMoonBlade","GLOBAL",0)
	HasItemEquipedReal("CBEMMOON",Player4) // Moonblade +3
THEN
	RESPONSE #100
		SetGlobal("CbTempMoonBlade","GLOBAL",1)
		SetGlobal("CbMoonBladePlayer4","GLOBAL",1)
END

IF
	Global("CbTempMoonBlade","GLOBAL",0)
	HasItemEquipedReal("CBEMMOON",Player5) // Moonblade +3
THEN
	RESPONSE #100
		SetGlobal("CbTempMoonBlade","GLOBAL",1)
		SetGlobal("CbMoonBladePlayer5","GLOBAL",1)
END

IF
	Global("CbTempMoonBlade","GLOBAL",0)
	HasItemEquipedReal("CBEMMOON",Player6) // Moonblade +3
THEN
	RESPONSE #100
		SetGlobal("CbTempMoonBlade","GLOBAL",1)
		SetGlobal("CbMoonBladePlayer6","GLOBAL",1)
END

IF
	Global("CbTempMoonBlade","GLOBAL",1)
	OR(5)
		Global("CbMoonBladePlayer2","GLOBAL",1)
		Global("CbMoonBladePlayer3","GLOBAL",1)
		Global("CbMoonBladePlayer4","GLOBAL",1)
		Global("CbMoonBladePlayer5","GLOBAL",1)
		Global("CbMoonBladePlayer6","GLOBAL",1)
	!GlobalTimerNotExpired("CbMoonBladeDamage","GLOBAL")
	HasItemEquipedReal("CBEMMOON",Player1) // Moonblade +3
THEN
	RESPONSE #100
		ActionOverride(Player1,ReallyForceSpell(Player1,FIFTY_PERCENT_DAMAGE))
		DisplayStringHead(Player1,85692) // The Moonblade has not chosen you as its rightful owner.  It lashes out in rebellion.
		SetGlobalTimer("CbMoonBladeDamage","GLOBAL",ONE_DAY)
END

IF
	Global("CbTempMoonBlade","GLOBAL",1)
	OR(5)
		Global("CbMoonBladePlayer1","GLOBAL",1)
		Global("CbMoonBladePlayer3","GLOBAL",1)
		Global("CbMoonBladePlayer4","GLOBAL",1)
		Global("CbMoonBladePlayer5","GLOBAL",1)
		Global("CbMoonBladePlayer6","GLOBAL",1)
	!GlobalTimerNotExpired("CbMoonBladeDamage","GLOBAL")
	HasItemEquipedReal("CBEMMOON",Player2) // Moonblade +3
THEN
	RESPONSE #100
		ActionOverride(Player2,ReallyForceSpell(Player2,FIFTY_PERCENT_DAMAGE))
		DisplayStringHead(Player2,85692) // The Moonblade has not chosen you as its rightful owner.  It lashes out in rebellion.
		SetGlobalTimer("CbMoonBladeDamage","GLOBAL",ONE_DAY)
END

IF
	Global("CbTempMoonBlade","GLOBAL",1)
	OR(5)
		Global("CbMoonBladePlayer1","GLOBAL",1)
		Global("CbMoonBladePlayer2","GLOBAL",1)
		Global("CbMoonBladePlayer4","GLOBAL",1)
		Global("CbMoonBladePlayer5","GLOBAL",1)
		Global("CbMoonBladePlayer6","GLOBAL",1)
	!GlobalTimerNotExpired("CbMoonBladeDamage","GLOBAL")
	HasItemEquipedReal("CBEMMOON",Player3) // Moonblade +3
THEN
	RESPONSE #100
		ActionOverride(Player3,ReallyForceSpell(Player3,FIFTY_PERCENT_DAMAGE))
		DisplayStringHead(Player3,85692) // The Moonblade has not chosen you as its rightful owner.  It lashes out in rebellion.
		SetGlobalTimer("CbMoonBladeDamage","GLOBAL",ONE_DAY)
END

IF
	Global("CbTempMoonBlade","GLOBAL",1)
	OR(5)
		Global("CbMoonBladePlayer1","GLOBAL",1)
		Global("CbMoonBladePlayer2","GLOBAL",1)
		Global("CbMoonBladePlayer3","GLOBAL",1)
		Global("CbMoonBladePlayer5","GLOBAL",1)
		Global("CbMoonBladePlayer6","GLOBAL",1)
	!GlobalTimerNotExpired("CbMoonBladeDamage","GLOBAL")
	HasItemEquipedReal("CBEMMOON",Player4) // Moonblade +3
THEN
	RESPONSE #100
		ActionOverride(Player4,ReallyForceSpell(Player4,FIFTY_PERCENT_DAMAGE))
		DisplayStringHead(Player4,85692) // The Moonblade has not chosen you as its rightful owner.  It lashes out in rebellion.
		SetGlobalTimer("CbMoonBladeDamage","GLOBAL",ONE_DAY)
END

IF
	Global("CbTempMoonBlade","GLOBAL",1)
	OR(5)
		Global("CbMoonBladePlayer1","GLOBAL",1)
		Global("CbMoonBladePlayer2","GLOBAL",1)
		Global("CbMoonBladePlayer3","GLOBAL",1)
		Global("CbMoonBladePlayer4","GLOBAL",1)
		Global("CbMoonBladePlayer6","GLOBAL",1)
	!GlobalTimerNotExpired("CbMoonBladeDamage","GLOBAL")
	HasItemEquipedReal("CBEMMOON",Player5) // Moonblade +3
THEN
	RESPONSE #100
		ActionOverride(Player5,ReallyForceSpell(Player5,FIFTY_PERCENT_DAMAGE))
		DisplayStringHead(Player5,85692) // The Moonblade has not chosen you as its rightful owner.  It lashes out in rebellion.
		SetGlobalTimer("CbMoonBladeDamage","GLOBAL",ONE_DAY)
END

IF
	Global("CbTempMoonBlade","GLOBAL",1)
	OR(5)
		Global("CbMoonBladePlayer1","GLOBAL",1)
		Global("CbMoonBladePlayer2","GLOBAL",1)
		Global("CbMoonBladePlayer3","GLOBAL",1)
		Global("CbMoonBladePlayer4","GLOBAL",1)
		Global("CbMoonBladePlayer5","GLOBAL",1)
	!GlobalTimerNotExpired("CbMoonBladeDamage","GLOBAL")
	HasItemEquipedReal("CBEMMOON",Player6) // Moonblade +3
THEN
	RESPONSE #100
		ActionOverride(Player6,ReallyForceSpell(Player6,FIFTY_PERCENT_DAMAGE))
		DisplayStringHead(Player6,85692) // The Moonblade has not chosen you as its rightful owner.  It lashes out in rebellion.
		SetGlobalTimer("CbMoonBladeDamage","GLOBAL",ONE_DAY)
END

IF
	Global("CbTempMoonBlade","GLOBAL",1)
	Global("CbMoonBladePlayer1","GLOBAL",0)
	OR(20)
		HasItemEquipedReal("CBMOONP2",Player1) // ElfSapate
		HasItemEquipedReal("CBMOONP3",Player1) // ElfSapate
		HasItemEquipedReal("CBMOONP4",Player1) // ElfSapate
		HasItemEquipedReal("CBMOONP5",Player1) // ElfSapate
		HasItemEquipedReal("CBMOONP6",Player1) // ElfSapate
		HasItemEquipedReal("CBMONP2b",Player1) // ElfSapate
		HasItemEquipedReal("CBMONP2c",Player1) // ElfSapate
		HasItemEquipedReal("CBMONP2d",Player1) // ElfSapate
		HasItemEquipedReal("CBMONP3b",Player1) // ElfSapate
		HasItemEquipedReal("CBMONP3c",Player1) // ElfSapate
		HasItemEquipedReal("CBMONP3d",Player1) // ElfSapate
		HasItemEquipedReal("CBMONP4b",Player1) // ElfSapate
		HasItemEquipedReal("CBMONP4c",Player1) // ElfSapate
		HasItemEquipedReal("CBMONP4d",Player1) // ElfSapate
		HasItemEquipedReal("CBMONP5b",Player1) // ElfSapate
		HasItemEquipedReal("CBMONP5c",Player1) // ElfSapate
		HasItemEquipedReal("CBMONP5d",Player1) // ElfSapate
		HasItemEquipedReal("CBMONP6b",Player1) // ElfSapate
		HasItemEquipedReal("CBMONP6c",Player1) // ElfSapate
		HasItemEquipedReal("CBMONP6d",Player1) // ElfSapate
	!GlobalTimerNotExpired("CbMoonBladeDamage","GLOBAL")
THEN
	RESPONSE #100
		ActionOverride(Player1,ReallyForceSpell(Player1,FIFTY_PERCENT_DAMAGE))
		DisplayStringHead(Player1,85693) // ElfSapate has not chosen you as its rightful owner.  The Moonblade rebels against you, and you should stop using the blade as quickly as you can.
		SetGlobalTimer("CbMoonBladeDamage","GLOBAL",TEN_ROUNDS)
END

IF
	Global("CbTempMoonBlade","GLOBAL",1)
	Global("CbMoonBladePlayer2","GLOBAL",0)
	OR(20)
		HasItemEquipedReal("CBMOONP1",Player2) // ElfSapate
		HasItemEquipedReal("CBMOONP3",Player2) // ElfSapate
		HasItemEquipedReal("CBMOONP4",Player2) // ElfSapate
		HasItemEquipedReal("CBMOONP5",Player2) // ElfSapate
		HasItemEquipedReal("CBMOONP6",Player2) // ElfSapate
		HasItemEquipedReal("CBMONP1b",Player2) // ElfSapate
		HasItemEquipedReal("CBMONP1c",Player2) // ElfSapate
		HasItemEquipedReal("CBMONP1d",Player2) // ElfSapate
		HasItemEquipedReal("CBMONP3b",Player2) // ElfSapate
		HasItemEquipedReal("CBMONP3c",Player2) // ElfSapate
		HasItemEquipedReal("CBMONP3d",Player2) // ElfSapate
		HasItemEquipedReal("CBMONP4b",Player2) // ElfSapate
		HasItemEquipedReal("CBMONP4c",Player2) // ElfSapate
		HasItemEquipedReal("CBMONP4d",Player2) // ElfSapate
		HasItemEquipedReal("CBMONP5b",Player2) // ElfSapate
		HasItemEquipedReal("CBMONP5c",Player2) // ElfSapate
		HasItemEquipedReal("CBMONP5d",Player2) // ElfSapate
		HasItemEquipedReal("CBMONP6b",Player2) // ElfSapate
		HasItemEquipedReal("CBMONP6c",Player2) // ElfSapate
		HasItemEquipedReal("CBMONP6d",Player2) // ElfSapate
	!GlobalTimerNotExpired("CbMoonBladeDamage","GLOBAL")
THEN
	RESPONSE #100
		ActionOverride(Player2,ReallyForceSpell(Player2,FIFTY_PERCENT_DAMAGE))
		DisplayStringHead(Player2,85693) // ElfSapate has not chosen you as its rightful owner.  The Moonblade rebels against you, and you should stop using the blade as quickly as you can.
		SetGlobalTimer("CbMoonBladeDamage","GLOBAL",TEN_ROUNDS)
END

IF
	Global("CbTempMoonBlade","GLOBAL",1)
	Global("CbMoonBladePlayer3","GLOBAL",0)
	OR(20)
		HasItemEquipedReal("CBMOONP1",Player3) // ElfSapate
		HasItemEquipedReal("CBMOONP2",Player3) // ElfSapate
		HasItemEquipedReal("CBMOONP4",Player3) // ElfSapate
		HasItemEquipedReal("CBMOONP5",Player3) // ElfSapate
		HasItemEquipedReal("CBMOONP6",Player3) // ElfSapate
		HasItemEquipedReal("CBMONP2b",Player3) // ElfSapate
		HasItemEquipedReal("CBMONP2c",Player3) // ElfSapate
		HasItemEquipedReal("CBMONP2d",Player3) // ElfSapate
		HasItemEquipedReal("CBMONP1b",Player3) // ElfSapate
		HasItemEquipedReal("CBMONP1c",Player3) // ElfSapate
		HasItemEquipedReal("CBMONP1d",Player3) // ElfSapate
		HasItemEquipedReal("CBMONP4b",Player3) // ElfSapate
		HasItemEquipedReal("CBMONP4c",Player3) // ElfSapate
		HasItemEquipedReal("CBMONP4d",Player3) // ElfSapate
		HasItemEquipedReal("CBMONP5b",Player3) // ElfSapate
		HasItemEquipedReal("CBMONP5c",Player3) // ElfSapate
		HasItemEquipedReal("CBMONP5d",Player3) // ElfSapate
		HasItemEquipedReal("CBMONP6b",Player3) // ElfSapate
		HasItemEquipedReal("CBMONP6c",Player3) // ElfSapate
		HasItemEquipedReal("CBMONP6d",Player3) // ElfSapate
	!GlobalTimerNotExpired("CbMoonBladeDamage","GLOBAL")
THEN
	RESPONSE #100
		ActionOverride(Player3,ReallyForceSpell(Player3,FIFTY_PERCENT_DAMAGE))
		DisplayStringHead(Player3,85693) // ElfSapate has not chosen you as its rightful owner.  The Moonblade rebels against you, and you should stop using the blade as quickly as you can.
		SetGlobalTimer("CbMoonBladeDamage","GLOBAL",TEN_ROUNDS)
END

IF
	Global("CbTempMoonBlade","GLOBAL",1)
	Global("CbMoonBladePlayer4","GLOBAL",0)
	OR(20)
		HasItemEquipedReal("CBMOONP1",Player4) // ElfSapate
		HasItemEquipedReal("CBMOONP2",Player4) // ElfSapate
		HasItemEquipedReal("CBMOONP3",Player4) // ElfSapate
		HasItemEquipedReal("CBMOONP5",Player4) // ElfSapate
		HasItemEquipedReal("CBMOONP6",Player4) // ElfSapate
		HasItemEquipedReal("CBMONP2b",Player4) // ElfSapate
		HasItemEquipedReal("CBMONP2c",Player4) // ElfSapate
		HasItemEquipedReal("CBMONP2d",Player4) // ElfSapate
		HasItemEquipedReal("CBMONP3b",Player4) // ElfSapate
		HasItemEquipedReal("CBMONP3c",Player4) // ElfSapate
		HasItemEquipedReal("CBMONP3d",Player4) // ElfSapate
		HasItemEquipedReal("CBMONP1b",Player4) // ElfSapate
		HasItemEquipedReal("CBMONP1c",Player4) // ElfSapate
		HasItemEquipedReal("CBMONP1d",Player4) // ElfSapate
		HasItemEquipedReal("CBMONP5b",Player4) // ElfSapate
		HasItemEquipedReal("CBMONP5c",Player4) // ElfSapate
		HasItemEquipedReal("CBMONP5d",Player4) // ElfSapate
		HasItemEquipedReal("CBMONP6b",Player4) // ElfSapate
		HasItemEquipedReal("CBMONP6c",Player4) // ElfSapate
		HasItemEquipedReal("CBMONP6d",Player4) // ElfSapate
	!GlobalTimerNotExpired("CbMoonBladeDamage","GLOBAL")
THEN
	RESPONSE #100
		ActionOverride(Player4,ReallyForceSpell(Player4,FIFTY_PERCENT_DAMAGE))
		DisplayStringHead(Player4,85693) // ElfSapate has not chosen you as its rightful owner.  The Moonblade rebels against you, and you should stop using the blade as quickly as you can.
		SetGlobalTimer("CbMoonBladeDamage","GLOBAL",TEN_ROUNDS)
END

IF
	Global("CbTempMoonBlade","GLOBAL",1)
	Global("CbMoonBladePlayer5","GLOBAL",0)
	OR(20)
		HasItemEquipedReal("CBMOONP1",Player5) // ElfSapate
		HasItemEquipedReal("CBMOONP2",Player5) // ElfSapate
		HasItemEquipedReal("CBMOONP3",Player5) // ElfSapate
		HasItemEquipedReal("CBMOONP4",Player5) // ElfSapate
		HasItemEquipedReal("CBMOONP6",Player5) // ElfSapate
		HasItemEquipedReal("CBMONP2b",Player5) // ElfSapate
		HasItemEquipedReal("CBMONP2c",Player5) // ElfSapate
		HasItemEquipedReal("CBMONP2d",Player5) // ElfSapate
		HasItemEquipedReal("CBMONP3b",Player5) // ElfSapate
		HasItemEquipedReal("CBMONP3c",Player5) // ElfSapate
		HasItemEquipedReal("CBMONP3d",Player5) // ElfSapate
		HasItemEquipedReal("CBMONP4b",Player5) // ElfSapate
		HasItemEquipedReal("CBMONP4c",Player5) // ElfSapate
		HasItemEquipedReal("CBMONP4d",Player5) // ElfSapate
		HasItemEquipedReal("CBMONP1b",Player5) // ElfSapate
		HasItemEquipedReal("CBMONP1c",Player5) // ElfSapate
		HasItemEquipedReal("CBMONP1d",Player5) // ElfSapate
		HasItemEquipedReal("CBMONP6b",Player5) // ElfSapate
		HasItemEquipedReal("CBMONP6c",Player5) // ElfSapate
		HasItemEquipedReal("CBMONP6d",Player5) // ElfSapate
	!GlobalTimerNotExpired("CbMoonBladeDamage","GLOBAL")
THEN
	RESPONSE #100
		ActionOverride(Player5,ReallyForceSpell(Player5,FIFTY_PERCENT_DAMAGE))
		DisplayStringHead(Player5,85693) // ElfSapate has not chosen you as its rightful owner.  The Moonblade rebels against you, and you should stop using the blade as quickly as you can.
		SetGlobalTimer("CbMoonBladeDamage","GLOBAL",TEN_ROUNDS)
END

IF
	Global("CbTempMoonBlade","GLOBAL",1)
	Global("CbMoonBladePlayer6","GLOBAL",0)
	OR(20)
		HasItemEquipedReal("CBMOONP1",Player6) // ElfSapate
		HasItemEquipedReal("CBMOONP2",Player6) // ElfSapate
		HasItemEquipedReal("CBMOONP3",Player6) // ElfSapate
		HasItemEquipedReal("CBMOONP4",Player6) // ElfSapate
		HasItemEquipedReal("CBMOONP5",Player6) // ElfSapate
		HasItemEquipedReal("CBMONP2b",Player6) // ElfSapate
		HasItemEquipedReal("CBMONP2c",Player6) // ElfSapate
		HasItemEquipedReal("CBMONP2d",Player6) // ElfSapate
		HasItemEquipedReal("CBMONP3b",Player6) // ElfSapate
		HasItemEquipedReal("CBMONP3c",Player6) // ElfSapate
		HasItemEquipedReal("CBMONP3d",Player6) // ElfSapate
		HasItemEquipedReal("CBMONP4b",Player6) // ElfSapate
		HasItemEquipedReal("CBMONP4c",Player6) // ElfSapate
		HasItemEquipedReal("CBMONP4d",Player6) // ElfSapate
		HasItemEquipedReal("CBMONP5b",Player6) // ElfSapate
		HasItemEquipedReal("CBMONP5c",Player6) // ElfSapate
		HasItemEquipedReal("CBMONP5d",Player6) // ElfSapate
		HasItemEquipedReal("CBMONP1b",Player6) // ElfSapate
		HasItemEquipedReal("CBMONP1c",Player6) // ElfSapate
		HasItemEquipedReal("CBMONP1d",Player6) // ElfSapate
	!GlobalTimerNotExpired("CbMoonBladeDamage","GLOBAL")
THEN
	RESPONSE #100
		ActionOverride(Player6,ReallyForceSpell(Player6,FIFTY_PERCENT_DAMAGE))
		DisplayStringHead(Player6,85693) // ElfSapate has not chosen you as its rightful owner.  The Moonblade rebels against you, and you should stop using the blade as quickly as you can.
		SetGlobalTimer("CbMoonBladeDamage","GLOBAL",TEN_ROUNDS)
END

IF
	Global("CbMoonBladeAbilities","GLOBAL",3)
	HasItemEquipedReal("CBMOONP1",Player1) // ElfSapate
THEN
	RESPONSE #100
		SetGlobal("CbMoonBladeAbilities","GLOBAL",4)
		DisplayStringHeadOwner("CBMOONP1",85694) // ElfSapate has chosen you as a valorous and honorable weilder, and one of the Moonblade's dormant powers is released.
		TakeItemReplace("CBMONP1b","CBMOONP1",Player1) // ElfSapate
END

IF
	Global("CbMoonBladeAbilities","GLOBAL",6)
	HasItemEquipedReal("CBMONP1b",Player1) // ElfSapate
THEN
	RESPONSE #100
		SetGlobal("CbMoonBladeAbilities","GLOBAL",7)
		DisplayStringHeadOwner("CBMONP1b",85694) // ElfSapate has chosen you as a valorous and honorable weilder, and one of the Moonblade's dormant powers is released.
		TakeItemReplace("CBMONP1c","CBMONP1b",Player1) // ElfSapate
END

IF
	Global("CbMoonBladeAbilities","GLOBAL",10)
	HasItemEquipedReal("CBMONP1c",Player1) // ElfSapate
THEN
	RESPONSE #100
		SetGlobal("CbMoonBladeAbilities","GLOBAL",11)
		DisplayStringHeadOwner("CBMONP1c",85694) // ElfSapate has chosen you as a valorous and honorable weilder, and one of the Moonblade's dormant powers is released.
		TakeItemReplace("CBMONP1d","CBMONP1c",Player1) // ElfSapate
END

IF
	Global("CbMoonBladeAbilities","GLOBAL",3)
	HasItemEquipedReal("CBMOONP2",Player2) // ElfSapate
THEN
	RESPONSE #100
		SetGlobal("CbMoonBladeAbilities","GLOBAL",4)
		DisplayStringHeadOwner("CBMOONP2",85694) // ElfSapate has chosen you as a valorous and honorable weilder, and one of the Moonblade's dormant powers is released.
		TakeItemReplace("CBMONP2b","CBMOONP2",Player2) // ElfSapate
END

IF
	Global("CbMoonBladeAbilities","GLOBAL",6)
	HasItemEquipedReal("CBMONP2b",Player2) // ElfSapate
THEN
	RESPONSE #100
		SetGlobal("CbMoonBladeAbilities","GLOBAL",7)
		DisplayStringHeadOwner("CBMONP2b",85694) // ElfSapate has chosen you as a valorous and honorable weilder, and one of the Moonblade's dormant powers is released.
		TakeItemReplace("CBMONP2c","CBMONP2b",Player2) // ElfSapate
END

IF
	Global("CbMoonBladeAbilities","GLOBAL",10)
	HasItemEquipedReal("CBMONP2c",Player2) // ElfSapate
THEN
	RESPONSE #100
		SetGlobal("CbMoonBladeAbilities","GLOBAL",11)
		DisplayStringHeadOwner("CBMONP2c",85694) // ElfSapate has chosen you as a valorous and honorable weilder, and one of the Moonblade's dormant powers is released.
		TakeItemReplace("CBMONP2d","CBMONP2c",Player2) // ElfSapate
END

IF
	Global("CbMoonBladeAbilities","GLOBAL",3)
	HasItemEquipedReal("CBMOONP3",Player3) // ElfSapate
THEN
	RESPONSE #100
		SetGlobal("CbMoonBladeAbilities","GLOBAL",4)
		DisplayStringHeadOwner("CBMOONP3",85694) // ElfSapate has chosen you as a valorous and honorable weilder, and one of the Moonblade's dormant powers is released.
		TakeItemReplace("CBMONP3b","CBMOONP3",Player3) // ElfSapate
END

IF
	Global("CbMoonBladeAbilities","GLOBAL",6)
	HasItemEquipedReal("CBMONP3b",Player3) // ElfSapate
THEN
	RESPONSE #100
		SetGlobal("CbMoonBladeAbilities","GLOBAL",7)
		DisplayStringHeadOwner("CBMONP3b",85694) // ElfSapate has chosen you as a valorous and honorable weilder, and one of the Moonblade's dormant powers is released.
		TakeItemReplace("CBMONP3c","CBMONP3b",Player3) // ElfSapate
END

IF
	Global("CbMoonBladeAbilities","GLOBAL",10)
	HasItemEquipedReal("CBMONP3c",Player3) // ElfSapate
THEN
	RESPONSE #100
		SetGlobal("CbMoonBladeAbilities","GLOBAL",11)
		DisplayStringHeadOwner("CBMONP3c",85694) // ElfSapate has chosen you as a valorous and honorable weilder, and one of the Moonblade's dormant powers is released.
		TakeItemReplace("CBMONP3d","CBMONP3c",Player3) // ElfSapate
END

IF
	Global("CbMoonBladeAbilities","GLOBAL",3)
	HasItemEquipedReal("CBMOONP4",Player4) // ElfSapate
THEN
	RESPONSE #100
		SetGlobal("CbMoonBladeAbilities","GLOBAL",4)
		DisplayStringHeadOwner("CBMOONP4",85694) // ElfSapate has chosen you as a valorous and honorable weilder, and one of the Moonblade's dormant powers is released.
		TakeItemReplace("CBMONP4b","CBMOONP4",Player4) // ElfSapate
END

IF
	Global("CbMoonBladeAbilities","GLOBAL",6)
	HasItemEquipedReal("CBMONP4b",Player4) // ElfSapate
THEN
	RESPONSE #100
		SetGlobal("CbMoonBladeAbilities","GLOBAL",7)
		DisplayStringHeadOwner("CBMONP4b",85694) // ElfSapate has chosen you as a valorous and honorable weilder, and one of the Moonblade's dormant powers is released.
		TakeItemReplace("CBMONP4c","CBMONP4b",Player4) // ElfSapate
END

IF
	Global("CbMoonBladeAbilities","GLOBAL",10)
	HasItemEquipedReal("CBMONP4c",Player4) // ElfSapate
THEN
	RESPONSE #100
		SetGlobal("CbMoonBladeAbilities","GLOBAL",11)
		DisplayStringHeadOwner("CBMONP4c",85694) // ElfSapate has chosen you as a valorous and honorable weilder, and one of the Moonblade's dormant powers is released.
		TakeItemReplace("CBMONP4d","CBMONP4c",Player4) // ElfSapate
END

IF
	Global("CbMoonBladeAbilities","GLOBAL",3)
	HasItemEquipedReal("CBMOONP5",Player5) // ElfSapate
THEN
	RESPONSE #100
		SetGlobal("CbMoonBladeAbilities","GLOBAL",4)
		DisplayStringHeadOwner("CBMOONP5",85694) // ElfSapate has chosen you as a valorous and honorable weilder, and one of the Moonblade's dormant powers is released.
		TakeItemReplace("CBMONP5b","CBMOONP5",Player5) // ElfSapate
END

IF
	Global("CbMoonBladeAbilities","GLOBAL",6)
	HasItemEquipedReal("CBMONP5b",Player5) // ElfSapate
THEN
	RESPONSE #100
		SetGlobal("CbMoonBladeAbilities","GLOBAL",7)
		DisplayStringHeadOwner("CBMONP5b",85694) // ElfSapate has chosen you as a valorous and honorable weilder, and one of the Moonblade's dormant powers is released.
		TakeItemReplace("CBMONP5c","CBMONP5b",Player5) // ElfSapate
END

IF
	Global("CbMoonBladeAbilities","GLOBAL",10)
	HasItemEquipedReal("CBMONP5c",Player5) // ElfSapate
THEN
	RESPONSE #100
		SetGlobal("CbMoonBladeAbilities","GLOBAL",11)
		DisplayStringHeadOwner("CBMONP5c",85694) // ElfSapate has chosen you as a valorous and honorable weilder, and one of the Moonblade's dormant powers is released.
		TakeItemReplace("CBMONP5d","CBMONP5c",Player5) // ElfSapate
END

IF
	Global("CbMoonBladeAbilities","GLOBAL",3)
	HasItemEquipedReal("CBMOONP6",Player6) // ElfSapate
THEN
	RESPONSE #100
		SetGlobal("CbMoonBladeAbilities","GLOBAL",4)
		DisplayStringHeadOwner("CBMOONP6",85694) // ElfSapate has chosen you as a valorous and honorable weilder, and one of the Moonblade's dormant powers is released.
		TakeItemReplace("CBMONP6b","CBMOONP6",Player6) // ElfSapate
END

IF
	Global("CbMoonBladeAbilities","GLOBAL",6)
	HasItemEquipedReal("CBMONP6b",Player6) // ElfSapate
THEN
	RESPONSE #100
		SetGlobal("CbMoonBladeAbilities","GLOBAL",7)
		DisplayStringHeadOwner("CBMONP6b",85694) // ElfSapate has chosen you as a valorous and honorable weilder, and one of the Moonblade's dormant powers is released.
		TakeItemReplace("CBMONP6c","CBMONP6b",Player6) // ElfSapate
END

IF
	Global("CbMoonBladeAbilities","GLOBAL",10)
	HasItemEquipedReal("CBMONP6c",Player6) // ElfSapate
THEN
	RESPONSE #100
		SetGlobal("CbMoonBladeAbilities","GLOBAL",11)
		DisplayStringHeadOwner("CBMONP6c",85694) // ElfSapate has chosen you as a valorous and honorable weilder, and one of the Moonblade's dormant powers is released.
		TakeItemReplace("CBMONP6d","CBMONP6c",Player6) // ElfSapate
END

IF
	HPGT(Player1,10)
	Global("CbPlayer1DiseasedByCowl","GLOBAL",1)
	GlobalTimerExpired("CbPlayer1DiseasedDay","GLOBAL")
THEN
	RESPONSE #100
		SetGlobalTimer("CbPlayer1DiseasedDay","GLOBAL",ONE_DAY)
		ApplySpell(Player1,WIZARD_COWLED_VD)
END

IF
	HPGT(Player1,11)
	Global("CbPlayer1DiseasedByCowl","GLOBAL",2)
	GlobalTimerExpired("CbPlayer1DiseasedDay","GLOBAL")
THEN
	RESPONSE #100
		SetGlobalTimer("CbPlayer1DiseasedDay","GLOBAL",ONE_DAY)
		ApplySpell(Player1,WIZARD_COWLED_VD)
		ApplySpell(Player1,WIZARD_COWLED_VD)
END

IF
	HPGT(Player1,12)
	GlobalGT("CbPlayer1DiseasedByCowl","GLOBAL",2)
	GlobalTimerExpired("CbPlayer1DiseasedDay","GLOBAL")
THEN
	RESPONSE #100
		SetGlobalTimer("CbPlayer1DiseasedDay","GLOBAL",ONE_DAY)
		ApplySpell(Player1,WIZARD_COWLED_VD)
		ApplySpell(Player1,WIZARD_COWLED_VD)
		ApplySpell(Player1,WIZARD_COWLED_VD)
END

IF
	HPGT(Player2,10)
	Global("CbPlayer2DiseasedByCowl","GLOBAL",1)
	GlobalTimerExpired("CbPlayer2DiseasedDay","GLOBAL")
THEN
	RESPONSE #100
		SetGlobalTimer("CbPlayer2DiseasedDay","GLOBAL",ONE_DAY)
		ApplySpell(Player2,WIZARD_COWLED_VD)
END

IF
	HPGT(Player2,11)
	Global("CbPlayer2DiseasedByCowl","GLOBAL",2)
	GlobalTimerExpired("CbPlayer2DiseasedDay","GLOBAL")
THEN
	RESPONSE #100
		SetGlobalTimer("CbPlayer2DiseasedDay","GLOBAL",ONE_DAY)
		ApplySpell(Player2,WIZARD_COWLED_VD)
		ApplySpell(Player2,WIZARD_COWLED_VD)
END

IF
	HPGT(Player2,12)
	GlobalGT("CbPlayer2DiseasedByCowl","GLOBAL",2)
	GlobalTimerExpired("CbPlayer2DiseasedDay","GLOBAL")
THEN
	RESPONSE #100
		SetGlobalTimer("CbPlayer2DiseasedDay","GLOBAL",ONE_DAY)
		ApplySpell(Player2,WIZARD_COWLED_VD)
		ApplySpell(Player2,WIZARD_COWLED_VD)
		ApplySpell(Player2,WIZARD_COWLED_VD)
END

IF
	HPGT(Player3,10)
	Global("CbPlayer3DiseasedByCowl","GLOBAL",1)
	GlobalTimerExpired("CbPlayer3DiseasedDay","GLOBAL")
THEN
	RESPONSE #100
		SetGlobalTimer("CbPlayer3DiseasedDay","GLOBAL",ONE_DAY)
		ApplySpell(Player3,WIZARD_COWLED_VD)
END

IF
	HPGT(Player3,11)
	Global("CbPlayer3DiseasedByCowl","GLOBAL",2)
	GlobalTimerExpired("CbPlayer3DiseasedDay","GLOBAL")
THEN
	RESPONSE #100
		SetGlobalTimer("CbPlayer3DiseasedDay","GLOBAL",ONE_DAY)
		ApplySpell(Player3,WIZARD_COWLED_VD)
		ApplySpell(Player3,WIZARD_COWLED_VD)
END

IF
	HPGT(Player3,12)
	GlobalGT("CbPlayer3DiseasedByCowl","GLOBAL",2)
	GlobalTimerExpired("CbPlayer3DiseasedDay","GLOBAL")
THEN
	RESPONSE #100
		SetGlobalTimer("CbPlayer3DiseasedDay","GLOBAL",ONE_DAY)
		ApplySpell(Player3,WIZARD_COWLED_VD)
		ApplySpell(Player3,WIZARD_COWLED_VD)
		ApplySpell(Player3,WIZARD_COWLED_VD)
END

IF
	HPGT(Player4,10)
	Global("CbPlayer4DiseasedByCowl","GLOBAL",1)
	GlobalTimerExpired("CbPlayer4DiseasedDay","GLOBAL")
THEN
	RESPONSE #100
		SetGlobalTimer("CbPlayer4DiseasedDay","GLOBAL",ONE_DAY)
		ApplySpell(Player4,WIZARD_COWLED_VD)
END

IF
	HPGT(Player4,11)
	Global("CbPlayer4DiseasedByCowl","GLOBAL",2)
	GlobalTimerExpired("CbPlayer4DiseasedDay","GLOBAL")
THEN
	RESPONSE #100
		SetGlobalTimer("CbPlayer4DiseasedDay","GLOBAL",ONE_DAY)
		ApplySpell(Player4,WIZARD_COWLED_VD)
		ApplySpell(Player4,WIZARD_COWLED_VD)
END

IF
	HPGT(Player4,12)
	GlobalGT("CbPlayer4DiseasedByCowl","GLOBAL",2)
	GlobalTimerExpired("CbPlayer4DiseasedDay","GLOBAL")
THEN
	RESPONSE #100
		SetGlobalTimer("CbPlayer4DiseasedDay","GLOBAL",ONE_DAY)
		ApplySpell(Player4,WIZARD_COWLED_VD)
		ApplySpell(Player4,WIZARD_COWLED_VD)
		ApplySpell(Player4,WIZARD_COWLED_VD)
END

IF
	HPGT(Player5,10)
	Global("CbPlayer5DiseasedByCowl","GLOBAL",1)
	GlobalTimerExpired("CbPlayer5DiseasedDay","GLOBAL")
THEN
	RESPONSE #100
		SetGlobalTimer("CbPlayer5DiseasedDay","GLOBAL",ONE_DAY)
		ApplySpell(Player5,WIZARD_COWLED_VD)
END

IF
	HPGT(Player5,11)
	Global("CbPlayer5DiseasedByCowl","GLOBAL",2)
	GlobalTimerExpired("CbPlayer5DiseasedDay","GLOBAL")
THEN
	RESPONSE #100
		SetGlobalTimer("CbPlayer5DiseasedDay","GLOBAL",ONE_DAY)
		ApplySpell(Player5,WIZARD_COWLED_VD)
		ApplySpell(Player5,WIZARD_COWLED_VD)
END

IF
	HPGT(Player5,12)
	GlobalGT("CbPlayer5DiseasedByCowl","GLOBAL",2)
	GlobalTimerExpired("CbPlayer5DiseasedDay","GLOBAL")
THEN
	RESPONSE #100
		SetGlobalTimer("CbPlayer5DiseasedDay","GLOBAL",ONE_DAY)
		ApplySpell(Player5,WIZARD_COWLED_VD)
		ApplySpell(Player5,WIZARD_COWLED_VD)
		ApplySpell(Player5,WIZARD_COWLED_VD)
END

IF
	HPGT(Player6,10)
	Global("CbPlayer6DiseasedByCowl","GLOBAL",1)
	GlobalTimerExpired("CbPlayer6DiseasedDay","GLOBAL")
THEN
	RESPONSE #100
		SetGlobalTimer("CbPlayer6DiseasedDay","GLOBAL",ONE_DAY)
		ApplySpell(Player6,WIZARD_COWLED_VD)
END

IF
	HPGT(Player6,11)
	Global("CbPlayer6DiseasedByCowl","GLOBAL",2)
	GlobalTimerExpired("CbPlayer6DiseasedDay","GLOBAL")
THEN
	RESPONSE #100
		SetGlobalTimer("CbPlayer6DiseasedDay","GLOBAL",ONE_DAY)
		ApplySpell(Player6,WIZARD_COWLED_VD)
		ApplySpell(Player6,WIZARD_COWLED_VD)
END

IF
	HPGT(Player6,12)
	GlobalGT("CbPlayer6DiseasedByCowl","GLOBAL",2)
	GlobalTimerExpired("CbPlayer6DiseasedDay","GLOBAL")
THEN
	RESPONSE #100
		SetGlobalTimer("CbPlayer6DiseasedDay","GLOBAL",ONE_DAY)
		ApplySpell(Player6,WIZARD_COWLED_VD)
		ApplySpell(Player6,WIZARD_COWLED_VD)
		ApplySpell(Player6,WIZARD_COWLED_VD)
END

IF
	Global("CBMALR1","GLOBAL",1)
	!Exists("CBMALR1X")
THEN
	RESPONSE #100
		CreateCreatureOffScreen("CBMALR1X",0) // No such index
END

IF
	Global("CBMALR1","GLOBAL",0)
	Exists("CBMALR1X")
THEN
	RESPONSE #100
		ActionOverride("CBMALR1X",DestroySelf())
END

IF
	PartyHasItemIdentified("CBMALR6a") // Wraith
	GlobalGT("CbMalteseArtifact","GLOBAL",4)
	GlobalGT("SPRITE_IS_DEADCBMALR1","GLOBAL",0)
	Global("CbMalteseJournals","GLOBAL",0)
	OR(3)
		AreaCheck("AR1202")
		AreaCheck("AR1401")
		AreaCheck("AR3570")
THEN
	RESPONSE #100
		SetGlobal("CbMalteseJournals","GLOBAL",1)
		SetGlobal("CbMalteseArtifact","GLOBAL",10)
		AddJournalEntry(85695,QUEST_DONE) // Of Elves and Artifacts  I have found a way to stop the mage Khaddyr from completing his permatration ritual.  What began as an elusive quest with a scared elfwoman is almost complete.  I have recovered the real Crown of Horns, but have not yet decided what should be done with it.  I could keep it, but it's evil would still exist in Faerûn.  Perhaps it would be best if the Crown were destroyed.
		EraseJournalEntry(85696) // Of Elves and Artifacts    I had a lengthy discussion with Eleanor, an elven mage who specializes in scholarly pursuits of ancient artifacts and magical items.  She is quite concerned with the ambitions of a mage who has employed her to research a theory known as permatration; which I had believed was just a myth.  Apparently this mage has come into an artifact which may allow him to perform a permatration ritual, and of course in the process causing widespread destruction.  Eleanor beseeched my aid, and has come up with a plan to foil the evil mage.   She thinks it best to create a duplicate copy of the artifact, one which is harmless.  I do not know if this is a good idea, but if I wish to construct such a counterfeit artifact, she has told me what items I would need to create such a fake.  The items are commonly found, and I would need a diamond, a Potion of Magic Protection, a scroll with the spell Enchanted Weapon, and any item containing greenstone.  If I find these items and want to have Eleanor create a counterfeit, she said she would contact me someplace in Athkatla.   Aside from duplicating the object, Eleanor told me where I could find the mage.  She was told that she could contact him in a dungeon below the Windspear Hills, where he has a laboratory where he conducts his experiements.  If all else fails, I could probably find him there to defeat his attempts to steal the life force of others to earn himself a god-hood.
		EraseJournalEntry(85697) // Of Elves and Artifacts  After leaving the Temple of Waukeen in Trademeet, Eleanor was attacked by the mage she told me about.  He had a few bodyguards with him, but did not need them.  His magic was strong, much to strong for Eleanor, who was killed by the mage in an earnest spell battle for her very life.  I shall honor her sacrifice, and not let it be in vain.
		EraseJournalEntry(85698) // Of Elves and Artifacts  I found the parts that Eleanor told me to collect in order to create a counterfeit Crown of Horns.  I brought them to my friend Cromwell, a master craftsman, but he was unable to create a duplicate.  I shall either have to have him try again, or find some other way of preventing the mage from attempting Permatration.
		EraseJournalEntry(85699) // Of Elves and Artifacts  I found the items that Eleanor had told me about and brought them to my dwarf friend Cromwell.  He was able to create nearly an exact copy of the true Crown of Horns, and I will have to meet up with this mage.  Hopefully he will fall for the ruse.
		EraseJournalEntry(85700) // Of Elves and Artifacts    I had a lengthy discussion with Eleanor, an elven mage who specializes in scholarly pursuits of ancient artifacts and magical items.  She is quite concerned with the ambitions of a mage who has employed her to research a theory known as permatration; which I had believed was just a myth.  Apparently this mage has come into an artifact which may allow him to perform a permatration ritual, and of course in the process causing widespread destruction.  Eleanor beseeched my aid, and has come up with a plan to foil the evil mage.   She thinks it best to create a duplicate copy of the artifact, one which is harmless.  I do not know if this is a good idea, but if I wish to construct such a counterfeit artifact, she has told me what items I would need to create such a fake.  The items are commonly found, and I would need a diamond, a Potion of Magic Protection, a scroll with the spell Enchanted Weapon, and any item containing greenstone.  If I find these items and want to have Eleanor create a counterfeit, she said she would contact me someplace in Athkatla.   Aside from duplicating the object, Eleanor told me where I could find the mage.  She was told that she could contact him in a meadow near the Forest of Tethyr, where he keeps an underground laboratory to conduct his experiements.  If all else fails, I could probably find him there to defeat his attempts to steal the life force of others to earn himself a god-hood.
		EraseJournalEntry(85701) // Of Elves and Artifacts    I had a lengthy discussion with Eleanor, an elven mage who specializes in scholarly pursuits of ancient artifacts and magical items.  She is quite concerned with the ambitions of a mage who has employed her to research a theory known as permatration; which I had believed was just a myth.  Apparently this mage has come into an artifact which may allow him to perform a permatration ritual, and of course in the process causing widespread destruction.  Eleanor beseeched my aid, and has come up with a plan to foil the evil mage.   She thinks it best to create a duplicate copy of the artifact, one which is harmless.  I do not know if this is a good idea, but if I wish to construct such a counterfeit artifact, she has told me what items I would need to create such a fake.  The items are commonly found, and I would need a diamond, a Potion of Magic Protection, a scroll with the spell Enchanted Weapon, and any item containing greenstone.  If I find these items and want to have Eleanor create a counterfeit, she said she would contact me someplace in Athkatla.   Aside from duplicating the object, Eleanor told me where I could find the mage.  She was told that she could contact him in a dungeon near the Umar Hills, where he has a laboratory where he conducts his experiements.  If all else fails, I could probably find him there to defeat his attempts to steal the life force of others to earn himself a god-hood.
		EraseJournalEntry(85702) // Of Elves and Artifacts  I have identified and received the magical message stored within the statuette given to my by an elf in the Bridge District.  The voice, apparently the elf's, was full of fear and terror, though did not yield many clues as to what the adventure that the elf alludes to.  All I know is that the elf woman may be in danger- and she mentions that the Sword Coast could also be in danger- and if I meet her in the Temple of Waukeen in Trademeet, she will try to explain further.  Perhaps I will, but I'd much rather know more about this elf woman first.
		EraseJournalEntry(85703) // Of Elves and Artifacts  While walking through the Bridge District of Athkatla, an elf, whom I do not know, approached me with much trepidation.  She did not say anything, but surreptisiously dropped a small statuette into my pack.  I do not know why, yet I do not know what the properties of the statuette are yet.  I shall have to investigate it, and perhaps the elf may lead me to yet another adventure.
END

IF
	OR(12)
		SpellCast([GOODCUTOFF],WIZARD_EAGLES_SPLENDOR)
		SpellCast([GOODCUTOFF],WIZARD_DECASTAVE)
		SpellCast([GOODCUTOFF],WIZARD_CATS_GRACE)
		SpellCast([GOODCUTOFF],WIZARD_MORDENKAINENS_FORCE_MISSILES)
		SpellCast([GOODCUTOFF],WIZARD_BALL_LIGHTNING)
		SpellCast([GOODCUTOFF],WIZARD_LUTZAENS_FREQUENT_JAUNT)
		SpellCast([GOODCUTOFF],WIZARD_DARTS_OF_BONE)
		SpellCast([GOODCUTOFF],WIZARD_ANTIMAGIC_FIELD)
		SpellCast([GOODCUTOFF],WIZARD_LICH_TOUCH)
		SpellCast([GOODCUTOFF],WIZARD_TROLLISH_FORTITUDE)
		SpellCast([GOODCUTOFF],WIZARD_IRON_BODY)
		SpellCast([GOODCUTOFF],WIZARD_MIND_BLANK)
	Global("CbSelimCreated","GLOBAL",0)
	!Global("CbSelimTurnsEnemy","GLOBAL",1)
	AreaType(DUNGEON)
THEN
	RESPONSE #100
		SetGlobal("CbSelimCreated","GLOBAL",1)
		CreateCreatureOffScreen("CBSELIMS",0) // Selim Sivad
END

IF
	OR(12)
		SpellCast([GOODCUTOFF],WIZARD_EAGLES_SPLENDOR)
		SpellCast([GOODCUTOFF],WIZARD_DECASTAVE)
		SpellCast([GOODCUTOFF],WIZARD_CATS_GRACE)
		SpellCast([GOODCUTOFF],WIZARD_MORDENKAINENS_FORCE_MISSILES)
		SpellCast([GOODCUTOFF],WIZARD_BALL_LIGHTNING)
		SpellCast([GOODCUTOFF],WIZARD_LUTZAENS_FREQUENT_JAUNT)
		SpellCast([GOODCUTOFF],WIZARD_DARTS_OF_BONE)
		SpellCast([GOODCUTOFF],WIZARD_ANTIMAGIC_FIELD)
		SpellCast([GOODCUTOFF],WIZARD_LICH_TOUCH)
		SpellCast([GOODCUTOFF],WIZARD_TROLLISH_FORTITUDE)
		SpellCast([GOODCUTOFF],WIZARD_IRON_BODY)
		SpellCast([GOODCUTOFF],WIZARD_MIND_BLANK)
	Global("CbSelimCreated","GLOBAL",0)
	!Global("CbSelimTurnsEnemy","GLOBAL",1)
	TimeGT(DUSK_END)
	TimeLT(DAWN_START)
THEN
	RESPONSE #100
		SetGlobal("CbSelimCreated","GLOBAL",1)
		CreateCreatureOffScreen("CBSELIMS",0) // Selim Sivad
END

IF
	Global("CbAssassinGotTheDeed","GLOBAL",1)
	!AreaCheck("AR3536")
	!AreaCheck("AR3535")
	!AreaCheck("AR3534")
THEN
	RESPONSE #100
		HideAreaOnMap("AR3534")
		SetGlobal("CbAssassinGotTheDeed","GLOBAL",2)
END

IF
	Global("Cb_CowlsGoEnemy","GLOBAL",2)
	!GlobalTimerNotExpired("CbSpawnPissedCowls","GLOBAL")
THEN
	RESPONSE #100
		SetGlobalTimer("CbSpawnPissedCowls","GLOBAL",TEN_HOURS)
		CreateCreatureObjectDoor("COWENF1",LastTrigger,0,0,0) // Cowled Enforcer
		CreateCreatureObjectDoor("COWENF3",LastTrigger,0,0,0) // Cowled Enforcer
		CreateCreatureObjectDoor("COWENF4",LastTrigger,0,0,0) // Cowled Enforcer
		CreateCreatureObjectDoor("COWENF1",LastTrigger,0,0,0) // Cowled Enforcer
		CreateCreatureObjectDoor("COWENF3",LastTrigger,0,0,0) // Cowled Enforcer
		CreateCreatureObjectDoor("COWENF4",LastTrigger,0,0,0) // Cowled Enforcer
END

IF
	Global("CBBDHELP","GLOBAL",1)
	!Exists("CBBDHELP")
THEN
	RESPONSE #100
		SetGlobal("CBBDHELP","GLOBAL",0)
		CreateCreatureOffScreen("CBBDHELP",0) // Darammareth S'ooloun Crommadar Ammanth Kuleera - Blue Dragon
END

IF
	Global("PlayerHasStronghold","GLOBAL",1)
	!AreaType(DUNGEON)
	!InParty("Anomen")
	LevelGT(Player1,11)
	PartyGoldGT(10000)
	Global("CbWeddingQuestStarts","GLOBAL",0)
	Global("KillSaerk","GLOBAL",0)
	Global("SaerkPlot","GLOBAL",0)
	Global("TalkedCor","GLOBAL",0)
	Global("AnomenDecide","GLOBAL",0)
	Global("AnomenCor","GLOBAL",0)
THEN
	RESPONSE #100
		SetGlobal("CbWeddingQuestStarts","GLOBAL",1)
		CreateCreatureOffScreen("CBSFMESS",0) // Messenger
		ActionOverride("CBSFMESS",MoveToObject([PC]))
		ActionOverride("CBSFMESS",StartDialogueNoSet([PC]))
END

IF
	GlobalGT("CbWeddingQuestStarts","GLOBAL",0)
	Global("CbCanDoWedding","GLOBAL",0)
	GlobalTimerExpired("CbFarrahdWeddingTimer","GLOBAL")
THEN
	RESPONSE #100
		SetGlobal("CbCanDoWedding","GLOBAL",1)
END

IF
	Global("CbCanDoWedding","GLOBAL",1)
	GlobalTimerExpired("CbFarrahdWeddingOverTimer","GLOBAL")
THEN
	RESPONSE #100
		SetGlobal("CbCanDoWedding","GLOBAL",2)
END

IF
	Global("Cb_DSACK_TakesPlayer1sSkin","GLOBAL",1)
	!StateCheck(Player1,STATE_DISEASED)
THEN
	RESPONSE #100
		ForceSpellRES("CBNOSKIN",Player1) // No such index
END

IF
	Delay(500)
	CombatCounter(0)
	OR(4)
		HasItemEquipedReal("CBMOONP1",Player1) // ElfSapate
		HasItemEquipedReal("CBMONP1b",Player1) // ElfSapate
		HasItemEquipedReal("CBMONP1c",Player1) // ElfSapate
		HasItemEquipedReal("CBMONP1d",Player1) // ElfSapate
THEN
	RESPONSE #10
		DisplayStringHead(Player1,85704) // The seasons change as we stand about.
	RESPONSE #10
		DisplayStringHead(Player1,85705) // I will do my best to keep you out of harm's way.
	RESPONSE #10
		DisplayStringHead(Player1,85706) // May Corellan Lotharian grace our path.
	RESPONSE #10
		DisplayStringHead(Player1,85707) // Take care where you point me.
	RESPONSE #10
		DisplayStringHead(Player1,85708) // The Seldarine judge us all by our actions.
	RESPONSE #10
		DisplayStringHead(Player1,85709) // We are prepared for our task.  Onward we go on behalf of The People.
	RESPONSE #10
		DisplayStringHead(Player1,85710) // I've always thought of you in a special way.
	RESPONSE #10
		DisplayStringHead(Player1,85710) // I've always thought of you in a special way.
	RESPONSE #10
		DisplayStringHead(Player1,85711) // Don't put your unicorn before the horn.
	RESPONSE #10
		DisplayStringHead(Player1,85712) // It is an honor to be one with you.
	RESPONSE #10
		DisplayStringHead(Player1,85713) // I will not take my duties lightly.
	RESPONSE #10
		DisplayStringHead(Player1,85714) // Point the way and we shall do the Seldarine's work here on Faerûn.
	RESPONSE #10
		DisplayStringHead(Player1,85715) // Stand ready and we will not falter in our tasks.
	RESPONSE #10
		DisplayStringHead(Player1,85716) // Without honoring the Seldarine, we cannot hope to accomplish much.
	RESPONSE #10
		DisplayStringHead(Player1,85717) // Sing the praises of the Forest and the Weave, and we shall do no wrong.
END

IF
	Delay(150)
	!CombatCounter(0)
	OR(4)
		HasItemEquipedReal("CBMOONP1",Player1) // ElfSapate
		HasItemEquipedReal("CBMONP1b",Player1) // ElfSapate
		HasItemEquipedReal("CBMONP1c",Player1) // ElfSapate
		HasItemEquipedReal("CBMONP1d",Player1) // ElfSapate
THEN
	RESPONSE #10
		DisplayStringHead(Player1,85718) // Time to trim this one down to size.
	RESPONSE #10
		DisplayStringHead(Player1,85719) // You're about one click away from feeling my blade.
	RESPONSE #10
		DisplayStringHead(Player1,85720) // Rest easy, for death is about to take you.
	RESPONSE #10
		DisplayStringHead(Player1,85721) // Another one soon to be in a grave.
	RESPONSE #10
		DisplayStringHead(Player1,85722) // May the Seldarine have mercy on you.
	RESPONSE #10
		DisplayStringHead(Player1,85723) // May your final journey be a peaceful one.
	RESPONSE #10
		DisplayStringHead(Player1,85724) // Feel my blade!
	RESPONSE #10
		DisplayStringHead(Player1,85725) // For The People!
	RESPONSE #10
		DisplayStringHead(Player1,85726) // We shall not die this day.
	RESPONSE #10
		DisplayStringHead(Player1,85727) // Farewell and may your spirit find peace in the afterlife.
END

IF
	Delay(500)
	CombatCounter(0)
	OR(4)
		HasItemEquipedReal("CBMOONP1",Player2) // ElfSapate
		HasItemEquipedReal("CBMONP1b",Player2) // ElfSapate
		HasItemEquipedReal("CBMONP1c",Player2) // ElfSapate
		HasItemEquipedReal("CBMONP1d",Player2) // ElfSapate
THEN
	RESPONSE #10
		DisplayStringHead(Player2,85704) // The seasons change as we stand about.
	RESPONSE #10
		DisplayStringHead(Player2,85705) // I will do my best to keep you out of harm's way.
	RESPONSE #10
		DisplayStringHead(Player2,85706) // May Corellan Lotharian grace our path.
	RESPONSE #10
		DisplayStringHead(Player2,85707) // Take care where you point me.
	RESPONSE #10
		DisplayStringHead(Player2,85708) // The Seldarine judge us all by our actions.
	RESPONSE #10
		DisplayStringHead(Player2,85709) // We are prepared for our task.  Onward we go on behalf of The People.
	RESPONSE #10
		DisplayStringHead(Player2,85710) // I've always thought of you in a special way.
	RESPONSE #10
		DisplayStringHead(Player2,85710) // I've always thought of you in a special way.
	RESPONSE #10
		DisplayStringHead(Player2,85711) // Don't put your unicorn before the horn.
	RESPONSE #10
		DisplayStringHead(Player2,85712) // It is an honor to be one with you.
	RESPONSE #10
		DisplayStringHead(Player2,85713) // I will not take my duties lightly.
	RESPONSE #10
		DisplayStringHead(Player2,85714) // Point the way and we shall do the Seldarine's work here on Faerûn.
	RESPONSE #10
		DisplayStringHead(Player2,85715) // Stand ready and we will not falter in our tasks.
	RESPONSE #10
		DisplayStringHead(Player2,85716) // Without honoring the Seldarine, we cannot hope to accomplish much.
	RESPONSE #10
		DisplayStringHead(Player2,85717) // Sing the praises of the Forest and the Weave, and we shall do no wrong.
END

IF
	Delay(150)
	!CombatCounter(0)
	OR(4)
		HasItemEquipedReal("CBMOONP1",Player2) // ElfSapate
		HasItemEquipedReal("CBMONP1b",Player2) // ElfSapate
		HasItemEquipedReal("CBMONP1c",Player2) // ElfSapate
		HasItemEquipedReal("CBMONP1d",Player2) // ElfSapate
THEN
	RESPONSE #10
		DisplayStringHead(Player2,85718) // Time to trim this one down to size.
	RESPONSE #10
		DisplayStringHead(Player2,85719) // You're about one click away from feeling my blade.
	RESPONSE #10
		DisplayStringHead(Player2,85720) // Rest easy, for death is about to take you.
	RESPONSE #10
		DisplayStringHead(Player2,85721) // Another one soon to be in a grave.
	RESPONSE #10
		DisplayStringHead(Player2,85722) // May the Seldarine have mercy on you.
	RESPONSE #10
		DisplayStringHead(Player2,85723) // May your final journey be a peaceful one.
	RESPONSE #10
		DisplayStringHead(Player2,85724) // Feel my blade!
	RESPONSE #10
		DisplayStringHead(Player2,85725) // For The People!
	RESPONSE #10
		DisplayStringHead(Player2,85726) // We shall not die this day.
	RESPONSE #10
		DisplayStringHead(Player2,85727) // Farewell and may your spirit find peace in the afterlife.
END

IF
	Delay(500)
	CombatCounter(0)
	OR(4)
		HasItemEquipedReal("CBMOONP1",Player3) // ElfSapate
		HasItemEquipedReal("CBMONP1b",Player3) // ElfSapate
		HasItemEquipedReal("CBMONP1c",Player3) // ElfSapate
		HasItemEquipedReal("CBMONP1d",Player3) // ElfSapate
THEN
	RESPONSE #10
		DisplayStringHead(Player3,85704) // The seasons change as we stand about.
	RESPONSE #10
		DisplayStringHead(Player3,85705) // I will do my best to keep you out of harm's way.
	RESPONSE #10
		DisplayStringHead(Player3,85706) // May Corellan Lotharian grace our path.
	RESPONSE #10
		DisplayStringHead(Player3,85707) // Take care where you point me.
	RESPONSE #10
		DisplayStringHead(Player3,85708) // The Seldarine judge us all by our actions.
	RESPONSE #10
		DisplayStringHead(Player3,85709) // We are prepared for our task.  Onward we go on behalf of The People.
	RESPONSE #10
		DisplayStringHead(Player3,85710) // I've always thought of you in a special way.
	RESPONSE #10
		DisplayStringHead(Player3,85710) // I've always thought of you in a special way.
	RESPONSE #10
		DisplayStringHead(Player3,85711) // Don't put your unicorn before the horn.
	RESPONSE #10
		DisplayStringHead(Player3,85712) // It is an honor to be one with you.
	RESPONSE #10
		DisplayStringHead(Player3,85713) // I will not take my duties lightly.
	RESPONSE #10
		DisplayStringHead(Player3,85714) // Point the way and we shall do the Seldarine's work here on Faerûn.
	RESPONSE #10
		DisplayStringHead(Player3,85715) // Stand ready and we will not falter in our tasks.
	RESPONSE #10
		DisplayStringHead(Player3,85716) // Without honoring the Seldarine, we cannot hope to accomplish much.
	RESPONSE #10
		DisplayStringHead(Player3,85717) // Sing the praises of the Forest and the Weave, and we shall do no wrong.
END

IF
	Delay(150)
	!CombatCounter(0)
	OR(4)
		HasItemEquipedReal("CBMOONP1",Player3) // ElfSapate
		HasItemEquipedReal("CBMONP1b",Player3) // ElfSapate
		HasItemEquipedReal("CBMONP1c",Player3) // ElfSapate
		HasItemEquipedReal("CBMONP1d",Player3) // ElfSapate
THEN
	RESPONSE #10
		DisplayStringHead(Player3,85718) // Time to trim this one down to size.
	RESPONSE #10
		DisplayStringHead(Player3,85719) // You're about one click away from feeling my blade.
	RESPONSE #10
		DisplayStringHead(Player3,85720) // Rest easy, for death is about to take you.
	RESPONSE #10
		DisplayStringHead(Player3,85721) // Another one soon to be in a grave.
	RESPONSE #10
		DisplayStringHead(Player3,85722) // May the Seldarine have mercy on you.
	RESPONSE #10
		DisplayStringHead(Player3,85723) // May your final journey be a peaceful one.
	RESPONSE #10
		DisplayStringHead(Player3,85724) // Feel my blade!
	RESPONSE #10
		DisplayStringHead(Player3,85725) // For The People!
	RESPONSE #10
		DisplayStringHead(Player3,85726) // We shall not die this day.
	RESPONSE #10
		DisplayStringHead(Player3,85727) // Farewell and may your spirit find peace in the afterlife.
END

IF
	Delay(500)
	CombatCounter(0)
	OR(4)
		HasItemEquipedReal("CBMOONP1",Player4) // ElfSapate
		HasItemEquipedReal("CBMONP1b",Player4) // ElfSapate
		HasItemEquipedReal("CBMONP1c",Player4) // ElfSapate
		HasItemEquipedReal("CBMONP1d",Player4) // ElfSapate
THEN
	RESPONSE #10
		DisplayStringHead(Player4,85704) // The seasons change as we stand about.
	RESPONSE #10
		DisplayStringHead(Player4,85705) // I will do my best to keep you out of harm's way.
	RESPONSE #10
		DisplayStringHead(Player4,85706) // May Corellan Lotharian grace our path.
	RESPONSE #10
		DisplayStringHead(Player4,85707) // Take care where you point me.
	RESPONSE #10
		DisplayStringHead(Player4,85708) // The Seldarine judge us all by our actions.
	RESPONSE #10
		DisplayStringHead(Player4,85709) // We are prepared for our task.  Onward we go on behalf of The People.
	RESPONSE #10
		DisplayStringHead(Player4,85710) // I've always thought of you in a special way.
	RESPONSE #10
		DisplayStringHead(Player4,85710) // I've always thought of you in a special way.
	RESPONSE #10
		DisplayStringHead(Player4,85711) // Don't put your unicorn before the horn.
	RESPONSE #10
		DisplayStringHead(Player4,85712) // It is an honor to be one with you.
	RESPONSE #10
		DisplayStringHead(Player4,85713) // I will not take my duties lightly.
	RESPONSE #10
		DisplayStringHead(Player4,85714) // Point the way and we shall do the Seldarine's work here on Faerûn.
	RESPONSE #10
		DisplayStringHead(Player4,85715) // Stand ready and we will not falter in our tasks.
	RESPONSE #10
		DisplayStringHead(Player4,85716) // Without honoring the Seldarine, we cannot hope to accomplish much.
	RESPONSE #10
		DisplayStringHead(Player4,85717) // Sing the praises of the Forest and the Weave, and we shall do no wrong.
END

IF
	Delay(150)
	!CombatCounter(0)
	OR(4)
		HasItemEquipedReal("CBMOONP1",Player4) // ElfSapate
		HasItemEquipedReal("CBMONP1b",Player4) // ElfSapate
		HasItemEquipedReal("CBMONP1c",Player4) // ElfSapate
		HasItemEquipedReal("CBMONP1d",Player4) // ElfSapate
THEN
	RESPONSE #10
		DisplayStringHead(Player4,85718) // Time to trim this one down to size.
	RESPONSE #10
		DisplayStringHead(Player4,85719) // You're about one click away from feeling my blade.
	RESPONSE #10
		DisplayStringHead(Player4,85720) // Rest easy, for death is about to take you.
	RESPONSE #10
		DisplayStringHead(Player4,85721) // Another one soon to be in a grave.
	RESPONSE #10
		DisplayStringHead(Player4,85722) // May the Seldarine have mercy on you.
	RESPONSE #10
		DisplayStringHead(Player4,85723) // May your final journey be a peaceful one.
	RESPONSE #10
		DisplayStringHead(Player4,85724) // Feel my blade!
	RESPONSE #10
		DisplayStringHead(Player4,85725) // For The People!
	RESPONSE #10
		DisplayStringHead(Player4,85726) // We shall not die this day.
	RESPONSE #10
		DisplayStringHead(Player4,85727) // Farewell and may your spirit find peace in the afterlife.
END

IF
	Delay(500)
	CombatCounter(0)
	OR(4)
		HasItemEquipedReal("CBMOONP1",Player5) // ElfSapate
		HasItemEquipedReal("CBMONP1b",Player5) // ElfSapate
		HasItemEquipedReal("CBMONP1c",Player5) // ElfSapate
		HasItemEquipedReal("CBMONP1d",Player5) // ElfSapate
THEN
	RESPONSE #10
		DisplayStringHead(Player5,85704) // The seasons change as we stand about.
	RESPONSE #10
		DisplayStringHead(Player5,85705) // I will do my best to keep you out of harm's way.
	RESPONSE #10
		DisplayStringHead(Player5,85706) // May Corellan Lotharian grace our path.
	RESPONSE #10
		DisplayStringHead(Player5,85707) // Take care where you point me.
	RESPONSE #10
		DisplayStringHead(Player5,85708) // The Seldarine judge us all by our actions.
	RESPONSE #10
		DisplayStringHead(Player5,85709) // We are prepared for our task.  Onward we go on behalf of The People.
	RESPONSE #10
		DisplayStringHead(Player5,85710) // I've always thought of you in a special way.
	RESPONSE #10
		DisplayStringHead(Player5,85710) // I've always thought of you in a special way.
	RESPONSE #10
		DisplayStringHead(Player5,85711) // Don't put your unicorn before the horn.
	RESPONSE #10
		DisplayStringHead(Player5,85712) // It is an honor to be one with you.
	RESPONSE #10
		DisplayStringHead(Player5,85713) // I will not take my duties lightly.
	RESPONSE #10
		DisplayStringHead(Player5,85714) // Point the way and we shall do the Seldarine's work here on Faerûn.
	RESPONSE #10
		DisplayStringHead(Player5,85715) // Stand ready and we will not falter in our tasks.
	RESPONSE #10
		DisplayStringHead(Player5,85716) // Without honoring the Seldarine, we cannot hope to accomplish much.
	RESPONSE #10
		DisplayStringHead(Player5,85717) // Sing the praises of the Forest and the Weave, and we shall do no wrong.
END

IF
	Delay(150)
	!CombatCounter(0)
	OR(4)
		HasItemEquipedReal("CBMOONP1",Player5) // ElfSapate
		HasItemEquipedReal("CBMONP1b",Player5) // ElfSapate
		HasItemEquipedReal("CBMONP1c",Player5) // ElfSapate
		HasItemEquipedReal("CBMONP1d",Player5) // ElfSapate
THEN
	RESPONSE #10
		DisplayStringHead(Player5,85718) // Time to trim this one down to size.
	RESPONSE #10
		DisplayStringHead(Player5,85719) // You're about one click away from feeling my blade.
	RESPONSE #10
		DisplayStringHead(Player5,85720) // Rest easy, for death is about to take you.
	RESPONSE #10
		DisplayStringHead(Player5,85721) // Another one soon to be in a grave.
	RESPONSE #10
		DisplayStringHead(Player5,85722) // May the Seldarine have mercy on you.
	RESPONSE #10
		DisplayStringHead(Player5,85723) // May your final journey be a peaceful one.
	RESPONSE #10
		DisplayStringHead(Player5,85724) // Feel my blade!
	RESPONSE #10
		DisplayStringHead(Player5,85725) // For The People!
	RESPONSE #10
		DisplayStringHead(Player5,85726) // We shall not die this day.
	RESPONSE #10
		DisplayStringHead(Player5,85727) // Farewell and may your spirit find peace in the afterlife.
END

IF
	Delay(500)
	CombatCounter(0)
	OR(4)
		HasItemEquipedReal("CBMOONP1",Player6) // ElfSapate
		HasItemEquipedReal("CBMONP1b",Player6) // ElfSapate
		HasItemEquipedReal("CBMONP1c",Player6) // ElfSapate
		HasItemEquipedReal("CBMONP1d",Player6) // ElfSapate
THEN
	RESPONSE #10
		DisplayStringHead(Player6,85704) // The seasons change as we stand about.
	RESPONSE #10
		DisplayStringHead(Player6,85705) // I will do my best to keep you out of harm's way.
	RESPONSE #10
		DisplayStringHead(Player6,85706) // May Corellan Lotharian grace our path.
	RESPONSE #10
		DisplayStringHead(Player6,85707) // Take care where you point me.
	RESPONSE #10
		DisplayStringHead(Player6,85708) // The Seldarine judge us all by our actions.
	RESPONSE #10
		DisplayStringHead(Player6,85709) // We are prepared for our task.  Onward we go on behalf of The People.
	RESPONSE #10
		DisplayStringHead(Player6,85710) // I've always thought of you in a special way.
	RESPONSE #10
		DisplayStringHead(Player6,85710) // I've always thought of you in a special way.
	RESPONSE #10
		DisplayStringHead(Player6,85711) // Don't put your unicorn before the horn.
	RESPONSE #10
		DisplayStringHead(Player6,85712) // It is an honor to be one with you.
	RESPONSE #10
		DisplayStringHead(Player6,85713) // I will not take my duties lightly.
	RESPONSE #10
		DisplayStringHead(Player6,85714) // Point the way and we shall do the Seldarine's work here on Faerûn.
	RESPONSE #10
		DisplayStringHead(Player6,85715) // Stand ready and we will not falter in our tasks.
	RESPONSE #10
		DisplayStringHead(Player6,85716) // Without honoring the Seldarine, we cannot hope to accomplish much.
	RESPONSE #10
		DisplayStringHead(Player6,85717) // Sing the praises of the Forest and the Weave, and we shall do no wrong.
END

IF
	Delay(150)
	!CombatCounter(0)
	OR(4)
		HasItemEquipedReal("CBMOONP1",Player6) // ElfSapate
		HasItemEquipedReal("CBMONP1b",Player6) // ElfSapate
		HasItemEquipedReal("CBMONP1c",Player6) // ElfSapate
		HasItemEquipedReal("CBMONP1d",Player6) // ElfSapate
THEN
	RESPONSE #10
		DisplayStringHead(Player6,85718) // Time to trim this one down to size.
	RESPONSE #10
		DisplayStringHead(Player6,85719) // You're about one click away from feeling my blade.
	RESPONSE #10
		DisplayStringHead(Player6,85720) // Rest easy, for death is about to take you.
	RESPONSE #10
		DisplayStringHead(Player6,85721) // Another one soon to be in a grave.
	RESPONSE #10
		DisplayStringHead(Player6,85722) // May the Seldarine have mercy on you.
	RESPONSE #10
		DisplayStringHead(Player6,85723) // May your final journey be a peaceful one.
	RESPONSE #10
		DisplayStringHead(Player6,85724) // Feel my blade!
	RESPONSE #10
		DisplayStringHead(Player6,85725) // For The People!
	RESPONSE #10
		DisplayStringHead(Player6,85726) // We shall not die this day.
	RESPONSE #10
		DisplayStringHead(Player6,85727) // Farewell and may your spirit find peace in the afterlife.
END

IF
	OR(6)
		HasItemEquiped("CBMALR6A",Player1) // Wraith
		HasItemEquiped("CBMALR6A",Player2) // Wraith
		HasItemEquiped("CBMALR6A",Player3) // Wraith
		HasItemEquiped("CBMALR6A",Player4) // Wraith
		HasItemEquiped("CBMALR6A",Player5) // Wraith
		HasItemEquiped("CBMALR6A",Player6) // Wraith
THEN
	RESPONSE #100
		TakeItemReplace("CBMALR6C","CBMALR6A",LastTrigger) // Crown of Horns
END

IF
	Global("UseSmith","GLOBAL",1)
THEN
	RESPONSE #100
		CreateCreatureObject("botsmith",Player1,0,0,0) // Cespenar
		SetGlobal("UseSmith","GLOBAL",0)
END

IF
	Dead("gromnir") // Gromnir Il-Khan
	Global("DeathOfGromnir","GLOBAL",0)
	CombatCounter(0)
	!AreaCheck("AR4500")
THEN
	RESPONSE #100
		ClearAllActions()
		StartCutSceneMode()
		SetGlobal("DeathOfGromnir","GLOBAL",1)
		CreateCreatureObject("MEL01",Player1,0,0,0) // Melissan
		Wait(1)
		PlaySong(79)
		ActionOverride("mel01",StartDialogueNoSet(Player1))
		EndCutSceneMode()
END

IF
	Global("fampsd","GLOBAL",1)
	GlobalGT("Chapter","GLOBAL",7)
THEN
	RESPONSE #100
		SetGlobal("fampsd","GLOBAL",0)
		MoveGlobalObject("fampsd25",Player1)
END

IF
	Global("famfer","GLOBAL",1)
	GlobalGT("Chapter","GLOBAL",7)
THEN
	RESPONSE #100
		SetGlobal("famfer","GLOBAL",0)
		MoveGlobalObject("famfer25",Player1)
END

IF
	Global("famimp","GLOBAL",1)
	GlobalGT("Chapter","GLOBAL",7)
THEN
	RESPONSE #100
		SetGlobal("famimp","GLOBAL",0)
		MoveGlobalObject("famimp25",Player1)
END

IF
	Global("famrab","GLOBAL",1)
	GlobalGT("Chapter","GLOBAL",7)
THEN
	RESPONSE #100
		SetGlobal("famrab","GLOBAL",0)
		MoveGlobalObject("famrab25",Player1)
END

IF
	Global("famdust","GLOBAL",1)
	GlobalGT("Chapter","GLOBAL",7)
THEN
	RESPONSE #100
		SetGlobal("famdust","GLOBAL",0)
		MoveGlobalObject("famdus25",Player1)
END

IF
	Global("famfair","GLOBAL",1)
	GlobalGT("Chapter","GLOBAL",7)
THEN
	RESPONSE #100
		SetGlobal("famfair","GLOBAL",0)
		MoveGlobalObject("famfai25",Player1)
END

IF
	Global("famcat","GLOBAL",1)
	GlobalGT("Chapter","GLOBAL",7)
THEN
	RESPONSE #100
		SetGlobal("famcat","GLOBAL",0)
		MoveGlobalObject("famcat25",Player1)
END

IF
	Global("famquas","GLOBAL",1)
	GlobalGT("Chapter","GLOBAL",7)
THEN
	RESPONSE #100
		SetGlobal("famquas","GLOBAL",0)
		MoveGlobalObject("famqua25",Player1)
END

IF
	Global("CbHideArea602","GLOBAL",0)
	GlobalGT("GaelanMove","GLOBAL",2)
THEN
	RESPONSE #100
		SetGlobal("CbHideArea602","GLOBAL",1)
		HideAreaOnMap("AR0602")
END

IF
	Global("CB0800AA","GLOBAL",1)
	!AreaCheck("AR1500")
	!AreaCheck("AR1501")
	!AreaCheck("AR1502")
	!AreaCheck("AR1503")
	!AreaCheck("AR1504")
	!AreaCheck("AR1505")
	!AreaCheck("AR1506")
	!AreaCheck("AR1507")
	!AreaCheck("AR1508")
	!AreaCheck("AR1509")
	!AreaCheck("AR1510")
	!AreaCheck("AR1511")
	!AreaCheck("AR1512")
	!AreaCheck("AR1513")
	!AreaCheck("AR1514")
	!AreaCheck("AR1515")
	!AreaCheck("AR1516")
	!AreaCheck("AR1600")
	!AreaCheck("AR1601")
	!AreaCheck("AR1602")
	!AreaCheck("AR1603")
	!AreaCheck("AR1604")
	!AreaCheck("AR1605")
	!AreaCheck("AR1606")
	!AreaCheck("AR1607")
	!AreaCheck("AR1608")
	!AreaCheck("AR1609")
	!AreaCheck("AR1610")
	!AreaCheck("AR1611")
	!AreaCheck("AR1612")
	!AreaCheck("AR1613")
	!AreaCheck("AR2100")
	!AreaCheck("AR2101")
	!AreaCheck("AR2102")
	!AreaCheck("AR2200")
	!AreaCheck("AR2201")
	!AreaCheck("AR2202")
	!AreaCheck("AR2203")
	!AreaCheck("AR2204")
	!AreaCheck("AR2205")
	!AreaCheck("AR2206")
	!AreaCheck("AR2207")
	!AreaCheck("AR2208")
	!AreaCheck("AR2209")
	!AreaCheck("AR2210")
	!AreaCheck("AR2300")
	!AreaCheck("AR2400")
	!AreaCheck("AR2401")
	!AreaCheck("AR2402")
THEN
	RESPONSE #100
		ClearAllActions()
		StartCutSceneMode()
		StartCutScene("CBMALR1A")
END

IF
	Global("CB0500AA","GLOBAL",1)
	!AreaCheck("AR1500")
	!AreaCheck("AR1501")
	!AreaCheck("AR1502")
	!AreaCheck("AR1503")
	!AreaCheck("AR1504")
	!AreaCheck("AR1505")
	!AreaCheck("AR1506")
	!AreaCheck("AR1507")
	!AreaCheck("AR1508")
	!AreaCheck("AR1509")
	!AreaCheck("AR1510")
	!AreaCheck("AR1511")
	!AreaCheck("AR1512")
	!AreaCheck("AR1513")
	!AreaCheck("AR1514")
	!AreaCheck("AR1515")
	!AreaCheck("AR1516")
	!AreaCheck("AR1600")
	!AreaCheck("AR1601")
	!AreaCheck("AR1602")
	!AreaCheck("AR1603")
	!AreaCheck("AR1604")
	!AreaCheck("AR1605")
	!AreaCheck("AR1606")
	!AreaCheck("AR1607")
	!AreaCheck("AR1608")
	!AreaCheck("AR1609")
	!AreaCheck("AR1610")
	!AreaCheck("AR1611")
	!AreaCheck("AR1612")
	!AreaCheck("AR1613")
	!AreaCheck("AR2100")
	!AreaCheck("AR2101")
	!AreaCheck("AR2102")
	!AreaCheck("AR2200")
	!AreaCheck("AR2201")
	!AreaCheck("AR2202")
	!AreaCheck("AR2203")
	!AreaCheck("AR2204")
	!AreaCheck("AR2205")
	!AreaCheck("AR2206")
	!AreaCheck("AR2207")
	!AreaCheck("AR2208")
	!AreaCheck("AR2209")
	!AreaCheck("AR2210")
	!AreaCheck("AR2300")
	!AreaCheck("AR2400")
	!AreaCheck("AR2401")
	!AreaCheck("AR2402")
THEN
	RESPONSE #100
		ClearAllActions()
		StartCutSceneMode()
		StartCutScene("CBMALR1B")
END

IF
	Global("CB0400AA","GLOBAL",1)
	!AreaCheck("AR1500")
	!AreaCheck("AR1501")
	!AreaCheck("AR1502")
	!AreaCheck("AR1503")
	!AreaCheck("AR1504")
	!AreaCheck("AR1505")
	!AreaCheck("AR1506")
	!AreaCheck("AR1507")
	!AreaCheck("AR1508")
	!AreaCheck("AR1509")
	!AreaCheck("AR1510")
	!AreaCheck("AR1511")
	!AreaCheck("AR1512")
	!AreaCheck("AR1513")
	!AreaCheck("AR1514")
	!AreaCheck("AR1515")
	!AreaCheck("AR1516")
	!AreaCheck("AR1600")
	!AreaCheck("AR1601")
	!AreaCheck("AR1602")
	!AreaCheck("AR1603")
	!AreaCheck("AR1604")
	!AreaCheck("AR1605")
	!AreaCheck("AR1606")
	!AreaCheck("AR1607")
	!AreaCheck("AR1608")
	!AreaCheck("AR1609")
	!AreaCheck("AR1610")
	!AreaCheck("AR1611")
	!AreaCheck("AR1612")
	!AreaCheck("AR1613")
	!AreaCheck("AR2100")
	!AreaCheck("AR2101")
	!AreaCheck("AR2102")
	!AreaCheck("AR2200")
	!AreaCheck("AR2201")
	!AreaCheck("AR2202")
	!AreaCheck("AR2203")
	!AreaCheck("AR2204")
	!AreaCheck("AR2205")
	!AreaCheck("AR2206")
	!AreaCheck("AR2207")
	!AreaCheck("AR2208")
	!AreaCheck("AR2209")
	!AreaCheck("AR2210")
	!AreaCheck("AR2300")
	!AreaCheck("AR2400")
	!AreaCheck("AR2401")
	!AreaCheck("AR2402")
THEN
	RESPONSE #100
		ClearAllActions()
		StartCutSceneMode()
		StartCutScene("CBMALR1C")
END

IF
	Global("CB0700AA","GLOBAL",1)
	!AreaCheck("AR1500")
	!AreaCheck("AR1501")
	!AreaCheck("AR1502")
	!AreaCheck("AR1503")
	!AreaCheck("AR1504")
	!AreaCheck("AR1505")
	!AreaCheck("AR1506")
	!AreaCheck("AR1507")
	!AreaCheck("AR1508")
	!AreaCheck("AR1509")
	!AreaCheck("AR1510")
	!AreaCheck("AR1511")
	!AreaCheck("AR1512")
	!AreaCheck("AR1513")
	!AreaCheck("AR1514")
	!AreaCheck("AR1515")
	!AreaCheck("AR1516")
	!AreaCheck("AR1600")
	!AreaCheck("AR1601")
	!AreaCheck("AR1602")
	!AreaCheck("AR1603")
	!AreaCheck("AR1604")
	!AreaCheck("AR1605")
	!AreaCheck("AR1606")
	!AreaCheck("AR1607")
	!AreaCheck("AR1608")
	!AreaCheck("AR1609")
	!AreaCheck("AR1610")
	!AreaCheck("AR1611")
	!AreaCheck("AR1612")
	!AreaCheck("AR1613")
	!AreaCheck("AR2100")
	!AreaCheck("AR2101")
	!AreaCheck("AR2102")
	!AreaCheck("AR2200")
	!AreaCheck("AR2201")
	!AreaCheck("AR2202")
	!AreaCheck("AR2203")
	!AreaCheck("AR2204")
	!AreaCheck("AR2205")
	!AreaCheck("AR2206")
	!AreaCheck("AR2207")
	!AreaCheck("AR2208")
	!AreaCheck("AR2209")
	!AreaCheck("AR2210")
	!AreaCheck("AR2300")
	!AreaCheck("AR2400")
	!AreaCheck("AR2401")
	!AreaCheck("AR2402")
THEN
	RESPONSE #100
		ClearAllActions()
		StartCutSceneMode()
		StartCutScene("CBMALR1D")
END

IF
	Global("CB0300AA","GLOBAL",1)
	!AreaCheck("AR1500")
	!AreaCheck("AR1501")
	!AreaCheck("AR1502")
	!AreaCheck("AR1503")
	!AreaCheck("AR1504")
	!AreaCheck("AR1505")
	!AreaCheck("AR1506")
	!AreaCheck("AR1507")
	!AreaCheck("AR1508")
	!AreaCheck("AR1509")
	!AreaCheck("AR1510")
	!AreaCheck("AR1511")
	!AreaCheck("AR1512")
	!AreaCheck("AR1513")
	!AreaCheck("AR1514")
	!AreaCheck("AR1515")
	!AreaCheck("AR1516")
	!AreaCheck("AR1600")
	!AreaCheck("AR1601")
	!AreaCheck("AR1602")
	!AreaCheck("AR1603")
	!AreaCheck("AR1604")
	!AreaCheck("AR1605")
	!AreaCheck("AR1606")
	!AreaCheck("AR1607")
	!AreaCheck("AR1608")
	!AreaCheck("AR1609")
	!AreaCheck("AR1610")
	!AreaCheck("AR1611")
	!AreaCheck("AR1612")
	!AreaCheck("AR1613")
	!AreaCheck("AR2100")
	!AreaCheck("AR2101")
	!AreaCheck("AR2102")
	!AreaCheck("AR2200")
	!AreaCheck("AR2201")
	!AreaCheck("AR2202")
	!AreaCheck("AR2203")
	!AreaCheck("AR2204")
	!AreaCheck("AR2205")
	!AreaCheck("AR2206")
	!AreaCheck("AR2207")
	!AreaCheck("AR2208")
	!AreaCheck("AR2209")
	!AreaCheck("AR2210")
	!AreaCheck("AR2300")
	!AreaCheck("AR2400")
	!AreaCheck("AR2401")
	!AreaCheck("AR2402")
THEN
	RESPONSE #100
		ClearAllActions()
		StartCutSceneMode()
		StartCutScene("CBMALR1E")
END

IF
	Global("CB0020AA","GLOBAL",1)
	!AreaCheck("AR1500")
	!AreaCheck("AR1501")
	!AreaCheck("AR1502")
	!AreaCheck("AR1503")
	!AreaCheck("AR1504")
	!AreaCheck("AR1505")
	!AreaCheck("AR1506")
	!AreaCheck("AR1507")
	!AreaCheck("AR1508")
	!AreaCheck("AR1509")
	!AreaCheck("AR1510")
	!AreaCheck("AR1511")
	!AreaCheck("AR1512")
	!AreaCheck("AR1513")
	!AreaCheck("AR1514")
	!AreaCheck("AR1515")
	!AreaCheck("AR1516")
	!AreaCheck("AR1600")
	!AreaCheck("AR1601")
	!AreaCheck("AR1602")
	!AreaCheck("AR1603")
	!AreaCheck("AR1604")
	!AreaCheck("AR1605")
	!AreaCheck("AR1606")
	!AreaCheck("AR1607")
	!AreaCheck("AR1608")
	!AreaCheck("AR1609")
	!AreaCheck("AR1610")
	!AreaCheck("AR1611")
	!AreaCheck("AR1612")
	!AreaCheck("AR1613")
	!AreaCheck("AR2100")
	!AreaCheck("AR2101")
	!AreaCheck("AR2102")
	!AreaCheck("AR2200")
	!AreaCheck("AR2201")
	!AreaCheck("AR2202")
	!AreaCheck("AR2203")
	!AreaCheck("AR2204")
	!AreaCheck("AR2205")
	!AreaCheck("AR2206")
	!AreaCheck("AR2207")
	!AreaCheck("AR2208")
	!AreaCheck("AR2209")
	!AreaCheck("AR2210")
	!AreaCheck("AR2300")
	!AreaCheck("AR2400")
	!AreaCheck("AR2401")
	!AreaCheck("AR2402")
THEN
	RESPONSE #100
		ClearAllActions()
		StartCutSceneMode()
		StartCutScene("CBMALR1F")
END

IF
	Global("CB0900AA","GLOBAL",1)
	!AreaCheck("AR1500")
	!AreaCheck("AR1501")
	!AreaCheck("AR1502")
	!AreaCheck("AR1503")
	!AreaCheck("AR1504")
	!AreaCheck("AR1505")
	!AreaCheck("AR1506")
	!AreaCheck("AR1507")
	!AreaCheck("AR1508")
	!AreaCheck("AR1509")
	!AreaCheck("AR1510")
	!AreaCheck("AR1511")
	!AreaCheck("AR1512")
	!AreaCheck("AR1513")
	!AreaCheck("AR1514")
	!AreaCheck("AR1515")
	!AreaCheck("AR1516")
	!AreaCheck("AR1600")
	!AreaCheck("AR1601")
	!AreaCheck("AR1602")
	!AreaCheck("AR1603")
	!AreaCheck("AR1604")
	!AreaCheck("AR1605")
	!AreaCheck("AR1606")
	!AreaCheck("AR1607")
	!AreaCheck("AR1608")
	!AreaCheck("AR1609")
	!AreaCheck("AR1610")
	!AreaCheck("AR1611")
	!AreaCheck("AR1612")
	!AreaCheck("AR1613")
	!AreaCheck("AR2100")
	!AreaCheck("AR2101")
	!AreaCheck("AR2102")
	!AreaCheck("AR2200")
	!AreaCheck("AR2201")
	!AreaCheck("AR2202")
	!AreaCheck("AR2203")
	!AreaCheck("AR2204")
	!AreaCheck("AR2205")
	!AreaCheck("AR2206")
	!AreaCheck("AR2207")
	!AreaCheck("AR2208")
	!AreaCheck("AR2209")
	!AreaCheck("AR2210")
	!AreaCheck("AR2300")
	!AreaCheck("AR2400")
	!AreaCheck("AR2401")
	!AreaCheck("AR2402")
THEN
	RESPONSE #100
		ClearAllActions()
		StartCutSceneMode()
		StartCutScene("CBMALR1G")
END

IF
	Global("CB1000AA","GLOBAL",1)
	!AreaCheck("AR1500")
	!AreaCheck("AR1501")
	!AreaCheck("AR1502")
	!AreaCheck("AR1503")
	!AreaCheck("AR1504")
	!AreaCheck("AR1505")
	!AreaCheck("AR1506")
	!AreaCheck("AR1507")
	!AreaCheck("AR1508")
	!AreaCheck("AR1509")
	!AreaCheck("AR1510")
	!AreaCheck("AR1511")
	!AreaCheck("AR1512")
	!AreaCheck("AR1513")
	!AreaCheck("AR1514")
	!AreaCheck("AR1515")
	!AreaCheck("AR1516")
	!AreaCheck("AR1600")
	!AreaCheck("AR1601")
	!AreaCheck("AR1602")
	!AreaCheck("AR1603")
	!AreaCheck("AR1604")
	!AreaCheck("AR1605")
	!AreaCheck("AR1606")
	!AreaCheck("AR1607")
	!AreaCheck("AR1608")
	!AreaCheck("AR1609")
	!AreaCheck("AR1610")
	!AreaCheck("AR1611")
	!AreaCheck("AR1612")
	!AreaCheck("AR1613")
	!AreaCheck("AR2100")
	!AreaCheck("AR2101")
	!AreaCheck("AR2102")
	!AreaCheck("AR2200")
	!AreaCheck("AR2201")
	!AreaCheck("AR2202")
	!AreaCheck("AR2203")
	!AreaCheck("AR2204")
	!AreaCheck("AR2205")
	!AreaCheck("AR2206")
	!AreaCheck("AR2207")
	!AreaCheck("AR2208")
	!AreaCheck("AR2209")
	!AreaCheck("AR2210")
	!AreaCheck("AR2300")
	!AreaCheck("AR2400")
	!AreaCheck("AR2401")
	!AreaCheck("AR2402")
THEN
	RESPONSE #100
		ClearAllActions()
		StartCutSceneMode()
		StartCutScene("CBMALR1H")
END

IF
	OR(49)
		AreaCheck("AR1500")
		AreaCheck("AR1501")
		AreaCheck("AR1502")
		AreaCheck("AR1503")
		AreaCheck("AR1504")
		AreaCheck("AR1505")
		AreaCheck("AR1506")
		AreaCheck("AR1507")
		AreaCheck("AR1508")
		AreaCheck("AR1509")
		AreaCheck("AR1510")
		AreaCheck("AR1511")
		AreaCheck("AR1512")
		AreaCheck("AR1513")
		AreaCheck("AR1514")
		AreaCheck("AR1515")
		AreaCheck("AR1516")
		AreaCheck("AR1600")
		AreaCheck("AR1601")
		AreaCheck("AR1602")
		AreaCheck("AR1603")
		AreaCheck("AR1604")
		AreaCheck("AR1605")
		AreaCheck("AR1606")
		AreaCheck("AR1607")
		AreaCheck("AR1608")
		AreaCheck("AR1609")
		AreaCheck("AR1610")
		AreaCheck("AR1611")
		AreaCheck("AR1612")
		AreaCheck("AR1613")
		AreaCheck("AR2100")
		AreaCheck("AR2101")
		AreaCheck("AR2102")
		AreaCheck("AR2200")
		AreaCheck("AR2201")
		AreaCheck("AR2202")
		AreaCheck("AR2203")
		AreaCheck("AR2204")
		AreaCheck("AR2205")
		AreaCheck("AR2206")
		AreaCheck("AR2207")
		AreaCheck("AR2208")
		AreaCheck("AR2209")
		AreaCheck("AR2210")
		AreaCheck("AR2300")
		AreaCheck("AR2400")
		AreaCheck("AR2401")
		AreaCheck("AR2402")
	OR(8)
		Global("CB0800AA","GLOBAL",1)
		Global("CB0500AA","GLOBAL",1)
		Global("CB0400AA","GLOBAL",1)
		Global("CB0700AA","GLOBAL",1)
		Global("CB0300AA","GLOBAL",1)
		Global("CB0020AA","GLOBAL",1)
		Global("CB0900AA","GLOBAL",1)
		Global("CB1000AA","GLOBAL",1)
THEN
	RESPONSE #100
		SetGlobal("CB0800AA","GLOBAL",0)
		SetGlobal("CB0500AA","GLOBAL",0)
		SetGlobal("CB0400AA","GLOBAL",0)
		SetGlobal("CB0700AA","GLOBAL",0)
		SetGlobal("CB0300AA","GLOBAL",0)
		SetGlobal("CB0020AA","GLOBAL",0)
		SetGlobal("CB0900AA","GLOBAL",0)
		SetGlobal("CB1000AA","GLOBAL",0)
END

IF
	Global("CbCharlotteAndNaliaGirlTalk","GLOBAL",0)
	Global("CbCharlotteAndNaliaMeet","GLOBAL",5)
	GlobalTimerExpired("CbCharlotteAndNaliaSecond","GLOBAL")
	InParty("CHARLOTT")
	InParty("NALIA")
	TimeGT(8)
	TimeLT(DUSK_START)
	CombatCounter(0)
	AreaType(OUTDOOR)
	!StateCheck("CHARLOTT",STATE_SLEEPING)
	!StateCheck("NALIA",STATE_SLEEPING)
	!StateCheck("Player1",STATE_SLEEPING)
THEN
	RESPONSE #100
		ActionOverride("NALIA",StartDialogueNoSet("CHARLOTT"))
END

IF
	Global("CbCharlotteAndNaliaGirlTalk","GLOBAL",32)
	GlobalTimerExpired("CbCharlotteAndNaliaFourthBanter","GLOBAL")
	InParty("CHARLOTT")
	InParty("NALIA")
	!AreaType(DUNGEON)
	CombatCounter(0)
	!StateCheck("CHARLOTT",STATE_SLEEPING)
	!StateCheck("NALIA",STATE_SLEEPING)
	!StateCheck(Player1,STATE_SLEEPING)
THEN
	RESPONSE #100
		ActionOverride("CHARLOTT",StartDialogueNoSet("NALIA"))
END

IF
	Global("CbCharlotteAndNaliaGirlTalk","GLOBAL",14)
	GlobalTimerExpired("CbCharlotteAndNaliaThirdBanter","GLOBAL")
	InParty("CHARLOTT")
	InParty("NALIA")
	TimeGT(MIDNIGHT)
	TimeLT(DAWN_START)
	!AreaType(DUNGEON)
	CombatCounter(0)
	!StateCheck("CHARLOTT",STATE_SLEEPING)
	!StateCheck("NALIA",STATE_SLEEPING)
	!StateCheck(Player1,STATE_SLEEPING)
THEN
	RESPONSE #100
		ActionOverride("CHARLOTT",StartDialogueNoSet("NALIA"))
END

IF
	Global("CbPartyInvestigatesLeads","GLOBAL",2)
	Global("CbOneSpyDown","GLOBAL",6)
THEN
	RESPONSE #100
		SetGlobal("CbPartyInvestigatesLeads","GLOBAL",3)
END

IF
	Global("CbPartyInvestigatesLeads","GLOBAL",3)
	Global("CbSpyIsNotWinthrop","GLOBAL",1)
	Global("CbSpyIsNotCharlie","GLOBAL",1)
	Global("CbSpyIsNotFighter","GLOBAL",1)
	Global("CbSpyIsNotMiller","GLOBAL",1)
	Global("CbSpyIsNotRanger","GLOBAL",1)
	Global("CbSpyIsNotMayor","GLOBAL",1)
THEN
	RESPONSE #100
		SetGlobal("CbPartyInvestigatesLeads","GLOBAL",4)
		SetGlobal("CbSpyIs_SSC","GLOBAL",1)
END

IF
	Global("CbPartyInvestigatesLeads","GLOBAL",3)
	Global("CbSpyIsNotSSC","GLOBAL",1)
	Global("CbSpyIsNotCharlie","GLOBAL",1)
	Global("CbSpyIsNotFighter","GLOBAL",1)
	Global("CbSpyIsNotMiller","GLOBAL",1)
	Global("CbSpyIsNotRanger","GLOBAL",1)
	Global("CbSpyIsNotMayor","GLOBAL",1)
THEN
	RESPONSE #100
		SetGlobal("CbPartyInvestigatesLeads","GLOBAL",4)
		SetGlobal("CbSpyIs_Winthrop","GLOBAL",1)
END

IF
	Global("CbPartyInvestigatesLeads","GLOBAL",3)
	Global("CbSpyIsNotSSC","GLOBAL",1)
	Global("CbSpyIsNotWinthrop","GLOBAL",1)
	Global("CbSpyIsNotFighter","GLOBAL",1)
	Global("CbSpyIsNotMiller","GLOBAL",1)
	Global("CbSpyIsNotRanger","GLOBAL",1)
	Global("CbSpyIsNotMayor","GLOBAL",1)
THEN
	RESPONSE #100
		SetGlobal("CbPartyInvestigatesLeads","GLOBAL",4)
		SetGlobal("CbSpyIs_Charlie","GLOBAL",1)
END

IF
	Global("CbPartyInvestigatesLeads","GLOBAL",3)
	Global("CbSpyIsNotSSC","GLOBAL",1)
	Global("CbSpyIsNotWinthrop","GLOBAL",1)
	Global("CbSpyIsNotCharlie","GLOBAL",1)
	Global("CbSpyIsNotMiller","GLOBAL",1)
	Global("CbSpyIsNotRanger","GLOBAL",1)
	Global("CbSpyIsNotMayor","GLOBAL",1)
THEN
	RESPONSE #100
		SetGlobal("CbPartyInvestigatesLeads","GLOBAL",4)
		SetGlobal("CbSpyIs_Fighter","GLOBAL",1)
END

IF
	Global("CbPartyInvestigatesLeads","GLOBAL",3)
	Global("CbSpyIsNotSSC","GLOBAL",1)
	Global("CbSpyIsNotWinthrop","GLOBAL",1)
	Global("CbSpyIsNotCharlie","GLOBAL",1)
	Global("CbSpyIsNotFighter","GLOBAL",1)
	Global("CbSpyIsNotRanger","GLOBAL",1)
	Global("CbSpyIsNotMayor","GLOBAL",1)
THEN
	RESPONSE #100
		SetGlobal("CbPartyInvestigatesLeads","GLOBAL",4)
		SetGlobal("CbSpyIs_Miller","GLOBAL",1)
END

IF
	Global("CbPartyInvestigatesLeads","GLOBAL",3)
	Global("CbSpyIsNotSSC","GLOBAL",1)
	Global("CbSpyIsNotWinthrop","GLOBAL",1)
	Global("CbSpyIsNotCharlie","GLOBAL",1)
	Global("CbSpyIsNotFighter","GLOBAL",1)
	Global("CbSpyIsNotMiller","GLOBAL",1)
	Global("CbSpyIsNotMayor","GLOBAL",1)
THEN
	RESPONSE #100
		SetGlobal("CbPartyInvestigatesLeads","GLOBAL",4)
		SetGlobal("CbSpyIs_Ranger","GLOBAL",1)
END

IF
	Global("CbPartyInvestigatesLeads","GLOBAL",3)
	Global("CbSpyIsNotSSC","GLOBAL",1)
	Global("CbSpyIsNotWinthrop","GLOBAL",1)
	Global("CbSpyIsNotCharlie","GLOBAL",1)
	Global("CbSpyIsNotFighter","GLOBAL",1)
	Global("CbSpyIsNotMiller","GLOBAL",1)
	Global("CbSpyIsNotRanger","GLOBAL",1)
THEN
	RESPONSE #100
		SetGlobal("CbPartyInvestigatesLeads","GLOBAL",4)
		SetGlobal("CbSpyIs_Mayor","GLOBAL",1)
END

IF
	Alignment(Player1,MASK_EVIL)
	HasItem("CDHLYSYM",Player1) // No such index
THEN
	RESPONSE #100
		ApplySpellRES("CDHLYSY2",Player1) // I cannot thank you enough, <CHARNAME>, for the gift you have given me.  I once thought I had done everything I could to fight for what was good...but it was you that showed me how wrong I was.  Without you, I would have died with that stain upon my soul and perhaps even been Melissan's puppet forever.
		TakeItemReplace("BELT14","CDHLYSYM",Player1) // No such index
END

IF
	Alignment(Player2,MASK_EVIL)
	HasItem("CDHLYSYM",Player2) // No such index
THEN
	RESPONSE #100
		ApplySpellRES("CDHLYSY2",Player2) // I cannot thank you enough, <CHARNAME>, for the gift you have given me.  I once thought I had done everything I could to fight for what was good...but it was you that showed me how wrong I was.  Without you, I would have died with that stain upon my soul and perhaps even been Melissan's puppet forever.
		TakeItemReplace("BELT14","CDHLYSYM",Player2) // No such index
END

IF
	Alignment(Player3,MASK_EVIL)
	HasItem("CDHLYSYM",Player3) // No such index
THEN
	RESPONSE #100
		ApplySpellRES("CDHLYSY2",Player3) // I cannot thank you enough, <CHARNAME>, for the gift you have given me.  I once thought I had done everything I could to fight for what was good...but it was you that showed me how wrong I was.  Without you, I would have died with that stain upon my soul and perhaps even been Melissan's puppet forever.
		TakeItemReplace("BELT14","CDHLYSYM",Player3) // No such index
END

IF
	Alignment(Player4,MASK_EVIL)
	HasItem("CDHLYSYM",Player4) // No such index
THEN
	RESPONSE #100
		ApplySpellRES("CDHLYSY2",Player4) // I cannot thank you enough, <CHARNAME>, for the gift you have given me.  I once thought I had done everything I could to fight for what was good...but it was you that showed me how wrong I was.  Without you, I would have died with that stain upon my soul and perhaps even been Melissan's puppet forever.
		TakeItemReplace("BELT14","CDHLYSYM",Player4) // No such index
END

IF
	Alignment(Player5,MASK_EVIL)
	HasItem("CDHLYSYM",Player5) // No such index
THEN
	RESPONSE #100
		ApplySpellRES("CDHLYSY2",Player5) // I cannot thank you enough, <CHARNAME>, for the gift you have given me.  I once thought I had done everything I could to fight for what was good...but it was you that showed me how wrong I was.  Without you, I would have died with that stain upon my soul and perhaps even been Melissan's puppet forever.
		TakeItemReplace("BELT14","CDHLYSYM",Player5) // No such index
END

IF
	Alignment(Player6,MASK_EVIL)
	HasItem("CDHLYSYM",Player6) // No such index
THEN
	RESPONSE #100
		ApplySpellRES("CDHLYSY2",Player6) // I cannot thank you enough, <CHARNAME>, for the gift you have given me.  I once thought I had done everything I could to fight for what was good...but it was you that showed me how wrong I was.  Without you, I would have died with that stain upon my soul and perhaps even been Melissan's puppet forever.
		TakeItemReplace("BELT14","CDHLYSYM",Player6) // No such index
END

IF
	Alignment(Player1,MASK_GENEUTRAL)
	HasItem("CDHLYSYM",Player1) // No such index
THEN
	RESPONSE #100
		ApplySpellRES("CDHLYSY2",Player1) // I cannot thank you enough, <CHARNAME>, for the gift you have given me.  I once thought I had done everything I could to fight for what was good...but it was you that showed me how wrong I was.  Without you, I would have died with that stain upon my soul and perhaps even been Melissan's puppet forever.
		TakeItemReplace("BELT13","CDHLYSYM",Player1) // No such index
END

IF
	Alignment(Player2,MASK_GENEUTRAL)
	HasItem("CDHLYSYM",Player2) // No such index
THEN
	RESPONSE #100
		ApplySpellRES("CDHLYSY2",Player2) // I cannot thank you enough, <CHARNAME>, for the gift you have given me.  I once thought I had done everything I could to fight for what was good...but it was you that showed me how wrong I was.  Without you, I would have died with that stain upon my soul and perhaps even been Melissan's puppet forever.
		TakeItemReplace("BELT13","CDHLYSYM",Player2) // No such index
END

IF
	Alignment(Player3,MASK_GENEUTRAL)
	HasItem("CDHLYSYM",Player3) // No such index
THEN
	RESPONSE #100
		ApplySpellRES("CDHLYSY2",Player3) // I cannot thank you enough, <CHARNAME>, for the gift you have given me.  I once thought I had done everything I could to fight for what was good...but it was you that showed me how wrong I was.  Without you, I would have died with that stain upon my soul and perhaps even been Melissan's puppet forever.
		TakeItemReplace("BELT13","CDHLYSYM",Player3) // No such index
END

IF
	Alignment(Player4,MASK_GENEUTRAL)
	HasItem("CDHLYSYM",Player4) // No such index
THEN
	RESPONSE #100
		ApplySpellRES("CDHLYSY2",Player4) // I cannot thank you enough, <CHARNAME>, for the gift you have given me.  I once thought I had done everything I could to fight for what was good...but it was you that showed me how wrong I was.  Without you, I would have died with that stain upon my soul and perhaps even been Melissan's puppet forever.
		TakeItemReplace("BELT13","CDHLYSYM",Player4) // No such index
END

IF
	Alignment(Player5,MASK_GENEUTRAL)
	HasItem("CDHLYSYM",Player5) // No such index
THEN
	RESPONSE #100
		ApplySpellRES("CDHLYSY2",Player5) // I cannot thank you enough, <CHARNAME>, for the gift you have given me.  I once thought I had done everything I could to fight for what was good...but it was you that showed me how wrong I was.  Without you, I would have died with that stain upon my soul and perhaps even been Melissan's puppet forever.
		TakeItemReplace("BELT13","CDHLYSYM",Player5) // No such index
END

IF
	Alignment(Player6,MASK_GENEUTRAL)
	HasItem("CDHLYSYM",Player6) // No such index
THEN
	RESPONSE #100
		ApplySpellRES("CDHLYSY2",Player6) // I cannot thank you enough, <CHARNAME>, for the gift you have given me.  I once thought I had done everything I could to fight for what was good...but it was you that showed me how wrong I was.  Without you, I would have died with that stain upon my soul and perhaps even been Melissan's puppet forever.
		TakeItemReplace("BELT13","CDHLYSYM",Player6) // No such index
END

IF
	Alignment(Player1,MASK_GOOD)
	HasItem("CDHLYSYM",Player1) // No such index
THEN
	RESPONSE #100
		ApplySpellRES("CDHLYSY2",Player1) // I cannot thank you enough, <CHARNAME>, for the gift you have given me.  I once thought I had done everything I could to fight for what was good...but it was you that showed me how wrong I was.  Without you, I would have died with that stain upon my soul and perhaps even been Melissan's puppet forever.
		TakeItemReplace("BELT12","CDHLYSYM",Player1) // No such index
END

IF
	Alignment(Player2,MASK_GOOD)
	HasItem("CDHLYSYM",Player2) // No such index
THEN
	RESPONSE #100
		ApplySpellRES("CDHLYSY2",Player2) // I cannot thank you enough, <CHARNAME>, for the gift you have given me.  I once thought I had done everything I could to fight for what was good...but it was you that showed me how wrong I was.  Without you, I would have died with that stain upon my soul and perhaps even been Melissan's puppet forever.
		TakeItemReplace("BELT12","CDHLYSYM",Player2) // No such index
END

IF
	Alignment(Player3,MASK_GOOD)
	HasItem("CDHLYSYM",Player3) // No such index
THEN
	RESPONSE #100
		ApplySpellRES("CDHLYSY2",Player3) // I cannot thank you enough, <CHARNAME>, for the gift you have given me.  I once thought I had done everything I could to fight for what was good...but it was you that showed me how wrong I was.  Without you, I would have died with that stain upon my soul and perhaps even been Melissan's puppet forever.
		TakeItemReplace("BELT12","CDHLYSYM",Player3) // No such index
END

IF
	Alignment(Player4,MASK_GOOD)
	HasItem("CDHLYSYM",Player4) // No such index
THEN
	RESPONSE #100
		ApplySpellRES("CDHLYSY2",Player4) // I cannot thank you enough, <CHARNAME>, for the gift you have given me.  I once thought I had done everything I could to fight for what was good...but it was you that showed me how wrong I was.  Without you, I would have died with that stain upon my soul and perhaps even been Melissan's puppet forever.
		TakeItemReplace("BELT12","CDHLYSYM",Player4) // No such index
END

IF
	Alignment(Player5,MASK_GOOD)
	HasItem("CDHLYSYM",Player5) // No such index
THEN
	RESPONSE #100
		ApplySpellRES("CDHLYSY2",Player5) // I cannot thank you enough, <CHARNAME>, for the gift you have given me.  I once thought I had done everything I could to fight for what was good...but it was you that showed me how wrong I was.  Without you, I would have died with that stain upon my soul and perhaps even been Melissan's puppet forever.
		TakeItemReplace("BELT12","CDHLYSYM",Player5) // No such index
END

IF
	Alignment(Player6,MASK_GOOD)
	HasItem("CDHLYSYM",Player6) // No such index
THEN
	RESPONSE #100
		ApplySpellRES("CDHLYSY2",Player6) // I cannot thank you enough, <CHARNAME>, for the gift you have given me.  I once thought I had done everything I could to fight for what was good...but it was you that showed me how wrong I was.  Without you, I would have died with that stain upon my soul and perhaps even been Melissan's puppet forever.
		TakeItemReplace("BELT12","CDHLYSYM",Player6) // No such index
END

IF
	InPartyAllowDead("Nalia")
	Dead("Nalia")
	Dead("Torgal") // TorGal
	Global("NaliaTorgalDies","GLOBAL",0)
	Global("NaliaKeepPlot","GLOBAL",0)
THEN
	RESPONSE #100
		SetGlobal("NaliaTorgalDies","GLOBAL",1)
END

IF
	InPartyAllowDead("Nalia")
	Dead("Nalia")
	AreaCheck("AR1300")
	Global("EnteredAR1300","GLOBAL",0)
	Global("NaliaKeepPlot","GLOBAL",0)
THEN
	RESPONSE #100
		SetGlobal("EnteredAR1300","GLOBAL",1)
		SetGlobalTimer("ArrivedNaliaKeep","GLOBAL",ONE_DAY)
END

IF
	InPartyAllowDead("Nalia")
	Dead("Nalia")
	Global("DelciaLeave","GLOBAL",1)
	Global("NaliaKeepPlot","GLOBAL",0)
THEN
	RESPONSE #100
		SetGlobal("DelciaLeave","GLOBAL",2)
END

IF
	InPartyAllowDead("Nalia")
	Dead("Nalia")
	AreaCheck("AR1302")
	CombatCounter(0)
	Global("NaliaInAR1302","AR1302",0)
THEN
	RESPONSE #100
		SetGlobal("NaliaInAR1302","AR1302",1)
END

IF
	InPartyAllowDead("Nalia")
	Dead("Nalia")
	AreaCheck("AR1303")
	Global("NaliaInAR1303","AR1303",0)
THEN
	RESPONSE #100
		SetGlobal("NaliaInAR1303","AR1303",1)
END

IF
	Global("PlayEndMovie","GLOBAL",1)
THEN
	RESPONSE #100
		SetGlobal("PlayEndMovie","GLOBAL",2)
		StartMovie("END15FPS")
END

IF
	Global("PlayEndCredits","GLOBAL",1)
THEN
	RESPONSE #100
		ClearAllActions()
		StartCutSceneMode()
		SetGlobal("PlayEndCredits","GLOBAL",2)
		StartCutScene("cut101a")
END

IF
	Delay(10)
	Global("FoundMontaronBody","GLOBAL",0)
	PartyHasItem("MISC5U") // Montaron's Body
THEN
	RESPONSE #100
		SetGlobal("FoundMontaronBody","GLOBAL",1)
		AddexperienceParty(10000)
END

IF
	Global("CutTest","GLOBAL",1)
THEN
	RESPONSE #100
		ClearAllActions()
		StartCutSceneMode()
		StartCutScene("cuttest")
END

IF
	Global("ScreenTest","GLOBAL",1)
THEN
	RESPONSE #100
		SetGlobal("ScreenTest","GLOBAL",2)
		TextScreen("SCENE01")
END

IF
	Global("ScreenTest","GLOBAL",2)
THEN
	RESPONSE #100
		SetGlobal("ScreenTest","GLOBAL",3)
		TextScreen("SCRTXT01")
END

IF
	Global("ScreenTest","GLOBAL",3)
THEN
	RESPONSE #100
		SetGlobal("ScreenTest","GLOBAL",4)
		TextScreen("SCRTXT02")
END

IF
	Global("ScreenTest","GLOBAL",4)
THEN
	RESPONSE #100
		SetGlobal("ScreenTest","GLOBAL",5)
		TextScreen("SCRTXT03")
END

IF
	Global("ScreenTest","GLOBAL",5)
THEN
	RESPONSE #100
		SetGlobal("ScreenTest","GLOBAL",6)
		TextScreen("SCRTXT04")
END

IF
	Global("ScreenTest","GLOBAL",6)
THEN
	RESPONSE #100
		SetGlobal("ScreenTest","GLOBAL",7)
		TextScreen("SCRTXT05")
END

IF
	Global("JaheiraMatch","GLOBAL",0)
	Global("CheckJaheiraMatch","GLOBAL",0)
	Gender(Player1,MALE)
	OR(4)
		Race(Player1,HUMAN)
		Race(Player1,HALF_ELF)
		Race(Player1,ELF)
		Race(Player1,HALFLING)
THEN
	RESPONSE #100
		SetGlobal("CheckJaheiraMatch","GLOBAL",1)
		SetGlobal("JaheiraMatch","GLOBAL",1)
END

IF
	Global("AerieMatch","GLOBAL",0)
	Global("CheckAerieMatch","GLOBAL",0)
	Gender(Player1,MALE)
	OR(5)
		Race(Player1,HUMAN)
		Race(Player1,HALF_ELF)
		Race(Player1,ELF)
		Race(Player1,HALFLING)
		Race(Player1,GNOME)
THEN
	RESPONSE #100
		SetGlobal("CheckAerieMatch","GLOBAL",1)
		SetGlobal("AerieMatch","GLOBAL",1)
END

IF
	Global("AnomenMatch","GLOBAL",0)
	Global("CheckAnomenMatch","GLOBAL",0)
	Gender(Player1,FEMALE)
	OR(4)
		Race(Player1,HUMAN)
		Race(Player1,HALF_ELF)
		Race(Player1,ELF)
		Race(Player1,HALFLING)
THEN
	RESPONSE #100
		SetGlobal("CheckAnomenMatch","GLOBAL",1)
		SetGlobal("AnomenMatch","GLOBAL",1)
END

IF
	Global("ViconiaMatch","GLOBAL",0)
	Global("CheckViconiaMatch","GLOBAL",0)
	Gender(Player1,MALE)
	OR(4)
		Race(Player1,HUMAN)
		Race(Player1,HALF_ELF)
		Race(Player1,HALFLING)
		Race(Player1,HALFORC)
THEN
	RESPONSE #100
		SetGlobal("CheckViconiaMatch","GLOBAL",1)
		SetGlobal("ViconiaMatch","GLOBAL",1)
END

IF
	Global("SorcererHabib","GLOBAL",0)
	PartyHasItem("SW1H56") // Scimitar
	Delay(10)
THEN
	RESPONSE #100
		ApplySpell(Player1,FORCE_DISPEL_MAGIC)
		ActionOverride(Player1,DropItem("SW1H56",[-1.-1])) // Scimitar
		ApplySpell(Player2,FORCE_DISPEL_MAGIC)
		ActionOverride(Player2,DropItem("SW1H56",[-1.-1])) // Scimitar
		ApplySpell(Player3,FORCE_DISPEL_MAGIC)
		ActionOverride(Player3,DropItem("SW1H56",[-1.-1])) // Scimitar
		ApplySpell(Player4,FORCE_DISPEL_MAGIC)
		ActionOverride(Player4,DropItem("SW1H56",[-1.-1])) // Scimitar
		ApplySpell(Player5,FORCE_DISPEL_MAGIC)
		ActionOverride(Player5,DropItem("SW1H56",[-1.-1])) // Scimitar
		ApplySpell(Player6,FORCE_DISPEL_MAGIC)
		ActionOverride(Player6,DropItem("SW1H56",[-1.-1])) // Scimitar
		SetGlobal("SorcererHabib","GLOBAL",1)
		SetGlobal("HabibAppearance","GLOBAL",1)
END

IF
	Delay(10)
	Global("HabibAppearance","GLOBAL",1)
	AreaCheck("AR0408")
	PartyHasItem("MISC07") // Gold Piece
THEN
	RESPONSE #100
		ActionOverride(Player1,DropItem("MISC07",[-1.-1])) // Gold Piece
		ActionOverride(Player2,DropItem("MISC07",[-1.-1])) // Gold Piece
		ActionOverride(Player3,DropItem("MISC07",[-1.-1])) // Gold Piece
		ActionOverride(Player4,DropItem("MISC07",[-1.-1])) // Gold Piece
		ActionOverride(Player5,DropItem("MISC07",[-1.-1])) // Gold Piece
		ActionOverride(Player6,DropItem("MISC07",[-1.-1])) // Gold Piece
		SetGlobal("HabibAppearance","GLOBAL",2)
END

IF
	OR(2)
		Global("PCSphere","GLOBAL",2)
		ReputationLT(Player1,4)
	GlobalLT("BribedCowled","GLOBAL",2)
THEN
	RESPONSE #100
		SetGlobal("BribedCowled","GLOBAL",2)
END

IF
	Global("fampsd","GLOBAL",1)
THEN
	RESPONSE #100
		SetGlobal("fampsd","GLOBAL",0)
		MoveGlobalObject("fampsd",Player1)
END

IF
	Global("famfer","GLOBAL",1)
THEN
	RESPONSE #100
		SetGlobal("famfer","GLOBAL",0)
		MoveGlobalObject("famfer",Player1)
END

IF
	Global("famimp","GLOBAL",1)
THEN
	RESPONSE #100
		SetGlobal("famimp","GLOBAL",0)
		MoveGlobalObject("famimp",Player1)
END

IF
	Global("famrab","GLOBAL",1)
THEN
	RESPONSE #100
		SetGlobal("famrab","GLOBAL",0)
		MoveGlobalObject("famrab",Player1)
END

IF
	Global("famdust","GLOBAL",1)
THEN
	RESPONSE #100
		SetGlobal("famdust","GLOBAL",0)
		MoveGlobalObject("famdust",Player1)
END

IF
	Global("famfair","GLOBAL",1)
THEN
	RESPONSE #100
		SetGlobal("famfair","GLOBAL",0)
		MoveGlobalObject("famfair",Player1)
END

IF
	Global("famcat","GLOBAL",1)
THEN
	RESPONSE #100
		SetGlobal("famcat","GLOBAL",0)
		MoveGlobalObject("famcat",Player1)
END

IF
	Global("famquas","GLOBAL",1)
THEN
	RESPONSE #100
		SetGlobal("famquas","GLOBAL",0)
		MoveGlobalObject("famquas",Player1)
END

IF
	!Global("Chapter","GLOBAL",4)
	!Global("Chapter","GLOBAL",5)
	!Global("Chapter","GLOBAL",7)
	AreaType(OUTDOOR)
	!AreaCheck("AR2500")
	!AreaCheck("AR1901")
	Dead("cefald01") // Faldorn
	Class(Player1,DRUID_ALL)
	LevelGT(Player1,13)
	Global("DruidADSpawn","GLOBAL",0)
	Global("GreatDruid","GLOBAL",0)
THEN
	RESPONSE #100
		Wait(2)
		SetGlobal("DruidADSpawn","GLOBAL",1)
		CreateCreatureObjectOffScreen("DRUIDAD",Player1,0,0,0) // Druid
END

IF
	!Global("Chapter","GLOBAL",4)
	!Global("Chapter","GLOBAL",5)
	!Global("Chapter","GLOBAL",7)
	AreaType(OUTDOOR)
	!AreaCheck("AR2500")
	!AreaCheck("AR1901")
	Class(Player1,DRUID_ALL)
	LevelGT(Player1,13)
	Global("DruidADSpawn","GLOBAL",1)
	Global("GreatDruid","GLOBAL",0)
	GlobalTimerExpired("DruidADReturn","GLOBAL")
THEN
	RESPONSE #100
		SetGlobal("DruidADSpawn","GLOBAL",2)
		CreateCreatureObjectOffScreen("DRUIDAD",Player1,0,0,0) // Druid
END

IF
	Delay(10)
	AreaType(OUTDOOR)
	Dead("c6bodhi") // Bodhi
	OR(8)
		PartyHasItem("sw1h15") // Icingdeath
		PartyHasItem("sw1h16") // Twinkle
		PartyHasItem("chan06") // Mithral Chain Mail +4
		PartyHasItem("bruenaxe") // Battle Axe +3 
		PartyHasItem("bruenpla") // Mithral Field Plate Mail +2
		PartyHasItem("cattibow") // Tansheron's Bow +3
		PartyHasItem("regisamu") // Ruby Pendant
		PartyHasItem("aegis2") // Aegis-Fang
	!Exists("c6harp")
	!AreaCheck("RR#001")
	!AreaCheck("AR0800")
THEN
	RESPONSE #100
		CreateCreatureObjectDoor("C6HARP",Player1,0,0,0) // Malchor Harpell
		ActionOverride("c6harp",StartDialogueNoSet(Player1))
END

IF
	Global("drowTalk","GLOBAL",0)
	Global("slayer1","GLOBAL",0)
	PartyRested()
	GlobalGT("AsylumPlot","GLOBAL",43)
THEN
	RESPONSE #100
		SetGlobal("drowTalk","GLOBAL",2)
		SetGlobal("slayer1","GLOBAL",1)
		SetGlobalTimer("SlayerTimer2","GLOBAL",FIVE_MINUTES)
		ActionOverride(Player1,StartDialog("player1",Player1))
END

IF
	GlobalTimerExpired("SlayerTimer2","GLOBAL")
	Global("goodagain","GLOBAL",0)
THEN
	RESPONSE #100
		SetGlobal("goodagain","GLOBAL",1)
		SetGlobal("DrowTalk","GLOBAL",4)
		ActionOverride(Player1,StartDialog("player1",Player1))
END

IF
	Global("Slayer10","GLOBAL",1)
THEN
	RESPONSE #100
		ActionOverride(Player1,StartDialog("player1",Player1))
END

IF
	PartyGoldGT(29999)
	Global("BodiAppear","GLOBAL",0)
	GlobalGT("ShadowWork","GLOBAL",0)
	Global("WorkingForAran","GLOBAL",0)
	GlobalTimerExpired("ValenAppearTimer","GLOBAL")
	AreaType(OUTDOOR)
	OR(6)
		AreaCheck("AR0300")
		AreaCheck("AR0400")
		AreaCheck("AR0500")
		AreaCheck("AR0700")
		AreaCheck("AR0900")
		AreaCheck("AR1000")
	CombatCounter(0)
THEN
	RESPONSE #100
		ClearAllActions()
		SetGlobal("BodiAppear","GLOBAL",1)
		SetGlobalTimer("MakeBrusWait","GLOBAL",ONE_MINUTE)
		CreateCreatureObject("ANAST",Player1,0,0,0) // Valen
		ActionOverride("ANAST",StartDialogueNoSet(Player1))
END

IF
	!Exists("BRUS")
	!Exists("BRUS3")
	Global("SpawnBrus","GLOBAL",1)
	Global("CHAPTER","GLOBAL",2)
	!AreaCheck("AR0800")
	!AreaCheck("AR2000")
	CombatCounter(0)
	GlobalTimerExpired("MakeBrusWait","GLOBAL")
	Global("ImTooSexyForThisBrus","GLOBAL",0)
	AreaType(OUTDOOR)
	Global("WorkingForAran","GLOBAL",0)
	Global("WorkingForBodhi","GLOBAL",0)
THEN
	RESPONSE #100
		ClearAllActions()
		CreateCreatureObjectOffScreen("BRUS3",Player1,0,0,0) // Brus
		SetGlobal("SPAWNBRUS","GLOBAL",2)
		ActionOverride("brus3",StartDialogueNoSet(Player1))
END

IF
	GlobalTimerExpired("PGThievesReturn","GLOBAL")
	Global("NotifyThiefHead","GLOBAL",0)
THEN
	RESPONSE #100
		SetGlobal("NotifyThiefHead","GLOBAL",1)
		DisplayStringHead(Player1,62083) // Your thieves have returned from their missions.
END

IF
	GlobalTimerExpired("JosterReturn","GLOBAL")
	Global("JosterLeave","GLOBAL",1)
	!Global("Chapter","GLOBAL",4)
	!Global("Chapter","GLOBAL",5)
	!Global("Chapter","GLOBAL",7)
THEN
	RESPONSE #100
		SetGlobal("JosterLeave","GLOBAL",2)
		SetGlobalTimer("JosterReturn","GLOBAL",SIX_DAYS)
		SetGlobalTimer("JosterPaid","GLOBAL",FIVE_DAYS)
		DisplayStringHead(Player1,62081) // The quartermaster awaits you in the guild for Renal's due.
END

IF
	GlobalTimerExpired("JosterPaid","GLOBAL")
	!Global("JosterLeave","GLOBAL",1)
	Global("PGFailed","GLOBAL",0)
	!Global("Chapter","GLOBAL",4)
	!Global("Chapter","GLOBAL",5)
	!Global("Chapter","GLOBAL",7)
THEN
	RESPONSE #100
		SetGlobal("PGFailed","GLOBAL",1)
		DisplayStringHead(Player1,62082) // Renal will no longer wait for his due... you have lost your guild.
END

IF
	Global("MinscByeBye","GLOBAL",1)
THEN
	RESPONSE #100
		ActionOverride("Minsc",EscapeArea())
END

IF
	Global("MinscByeBye","GLOBAL",2)
THEN
	RESPONSE #100
		MoveGlobal("AR0400","Minsc",[519.529])
END

IF
	Global("SpawnTanadv","GLOBAL",0)
	Global("TurnCragmoon","GLOBAL",1)
	GlobalTimerExpired("CragmoonAttack","GLOBAL")
	!Global("Chapter","GLOBAL",4)
	!Global("Chapter","GLOBAL",5)
	!Global("Chapter","GLOBAL",7)
	AreaType(CITY)
	!AreaCheck("AR2500")
	!AreaCheck("AR1000")
	!AreaCheck("AR0700")
	!AreaCheck("AR0900")
	AreaType(OUTDOOR)
THEN
	RESPONSE #100
		SetGlobal("SpawnTanadv","GLOBAL",1)
		CreateCreatureObjectOffScreen("TANADV01",Player1,0,0,0) // Strachan Fireblade
		CreateCreatureObjectOffScreen("TANADV02",Player1,0,0,0) // Adventurer
		CreateCreatureObjectOffScreen("TANADV03",Player1,0,0,0) // Adventurer
		CreateCreatureObjectOffScreen("TANADV04",Player1,0,0,0) // Adventurer
		CreateCreatureObjectOffScreen("TANADV05",Player1,0,0,0) // Adventurer
		CreateCreatureObjectOffScreen("TANADV06",Player1,0,0,0) // Dunbar the Fifth
END

IF
	Dead("Jaheira")
	GlobalGT("JaheiraCursed","GLOBAL",0)
	GlobalLT("JaheiraCursed","GLOBAL",8)
	Global("JaheiraCursedDead","GLOBAL",0)
THEN
	RESPONSE #100
		SetGlobal("JaheiraCursedDead","GLOBAL",1)
END

IF
	GlobalGT("JaheiraCursed","GLOBAL",6)
	Global("JaheiraCursedDead","GLOBAL",1)
THEN
	RESPONSE #100
		SetGlobal("JaheiraCursedDead","GLOBAL",0)
		Continue()
END

IF
	GlobalGT("JaheiraCursed","GLOBAL",0)
	GlobalLT("JaheiraCursed","GLOBAL",8)
	Global("JaheiraCursedDead","GLOBAL",1)
	!Dead("Jaheira")
THEN
	RESPONSE #100
		ActionOverride("Jaheira",StartDialogueNoSet([PC]))
END

IF
	GlobalTimerExpired("OgronAssault","GLOBAL")
	!Global("Chapter","GLOBAL",4)
	!Global("Chapter","GLOBAL",5)
	!Global("Chapter","GLOBAL",7)
	AreaType(OUTDOOR)
	Global("DelonSpawn","GLOBAL",0)
THEN
	RESPONSE #100
		SetGlobal("DelonSpawn","GLOBAL",1)
		SetGlobal("OgronAttack","GLOBAL",1)
		CreateCreatureObjectOffScreen("DELON",Player1,0,0,0) // Delon
		ActionOverride("delon",StartDialogueNoSet(Player1))
END

IF
	GlobalTimerExpired("UmarAssault","GLOBAL")
	!Global("Chapter","GLOBAL",4)
	!Global("Chapter","GLOBAL",5)
	!Global("Chapter","GLOBAL",7)
	AreaType(OUTDOOR)
	Global("DelonSpawn","GLOBAL",1)
THEN
	RESPONSE #100
		SetGlobal("DelonSpawn","GLOBAL",2)
		SetGlobal("UmarPlot","GLOBAL",1)
		CreateCreatureObjectOffScreen("DELON",Player1,0,0,0) // Delon
		ActionOverride("delon",StartDialogueNoSet(Player1))
END

IF
	GlobalTimerExpired("MeetHiggin","GLOBAL")
	Global("MeckComesFirst","GLOBAL",0)
	!Global("Chapter","GLOBAL",4)
	!Global("Chapter","GLOBAL",5)
	!Global("Chapter","GLOBAL",7)
	!AreaCheck("AR2000")
	Global("BardPlot1","GLOBAL",0)
	AreaType(CITY)
	OR(3)
		AreaType(OUTDOOR)
		AreaCheck("AR0522")
		AreaCheck("AR0511")
THEN
	RESPONSE #100
		SetGlobal("MeckComesFirst","GLOBAL",1)
		CreateCreatureObjectOffScreen("bdgoph01",Player1,0,0,0) // Meck
END

IF
	GlobalTimerExpired("MeetHiggin","GLOBAL")
	!Global("Chapter","GLOBAL",4)
	!Global("Chapter","GLOBAL",5)
	!Global("Chapter","GLOBAL",7)
	AreaType(CITY)
	!AreaCheck("AR2000")
	Global("BardPlot1","GLOBAL",3)
	OR(3)
		AreaType(OUTDOOR)
		AreaCheck("AR0522")
		AreaCheck("AR0511")
THEN
	RESPONSE #100
		SetGlobal("BardPlot1","GLOBAL",4)
		SetGlobal("BardPlotOn","GLOBAL",1)
		CreateCreatureObjectOffScreen("bdgoph01",Player1,0,0,0) // Meck
END

IF
	GlobalTimerExpired("MeetHiggin2","GLOBAL")
	!Global("Chapter","GLOBAL",4)
	!Global("Chapter","GLOBAL",5)
	!Global("Chapter","GLOBAL",7)
	AreaType(CITY)
	!AreaCheck("AR2000")
	Global("BardPlot1","GLOBAL",6)
	OR(3)
		AreaType(OUTDOOR)
		AreaCheck("AR0522")
		AreaCheck("AR0511")
THEN
	RESPONSE #100
		SetGlobal("BardPlot1","GLOBAL",7)
		SetGlobal("BardPlotOn","GLOBAL",1)
		CreateCreatureObjectOffScreen("bdgoph01",Player1,0,0,0) // Meck
END

IF
	GlobalTimerExpired("MeetHiggin3","GLOBAL")
	!Global("Chapter","GLOBAL",4)
	!Global("Chapter","GLOBAL",5)
	!Global("Chapter","GLOBAL",7)
	AreaType(CITY)
	!AreaCheck("AR2000")
	Global("BardPlot1","GLOBAL",9)
	OR(3)
		AreaType(OUTDOOR)
		AreaCheck("AR0522")
		AreaCheck("AR0511")
THEN
	RESPONSE #100
		SetGlobal("BardPlot1","GLOBAL",10)
		SetGlobal("BardPlotOn","GLOBAL",1)
		CreateCreatureObjectOffScreen("bdgoph01",Player1,0,0,0) // Meck
END

IF
	GlobalTimerExpired("MeetHiggin4","GLOBAL")
	!Global("Chapter","GLOBAL",4)
	!Global("Chapter","GLOBAL",5)
	!Global("Chapter","GLOBAL",7)
	AreaType(CITY)
	!AreaCheck("AR2000")
	Global("BardPlot1","GLOBAL",12)
	OR(3)
		AreaType(OUTDOOR)
		AreaCheck("AR0522")
		AreaCheck("AR0511")
THEN
	RESPONSE #100
		SetGlobal("BardPlot1","GLOBAL",13)
		SetGlobal("BardPlotOn","GLOBAL",1)
		CreateCreatureObjectOffScreen("bdgoph01",Player1,0,0,0) // Meck
END

IF
	GlobalTimerExpired("MeetHiggin5","GLOBAL")
	!Global("Chapter","GLOBAL",4)
	!Global("Chapter","GLOBAL",5)
	!Global("Chapter","GLOBAL",7)
	AreaType(CITY)
	!AreaCheck("AR2000")
	Global("BardPlot1","GLOBAL",16)
	OR(3)
		AreaType(OUTDOOR)
		AreaCheck("AR0522")
		AreaCheck("AR0511")
THEN
	RESPONSE #100
		SetGlobal("BardPlot1","GLOBAL",17)
		SetGlobal("BardPlotOn","GLOBAL",1)
		CreateCreatureObjectOffScreen("bdgoph01",Player1,0,0,0) // Meck
END

IF
	GlobalTimerExpired("MeetHiggin6","GLOBAL")
	!Global("Chapter","GLOBAL",4)
	!Global("Chapter","GLOBAL",5)
	!Global("Chapter","GLOBAL",7)
	AreaType(CITY)
	!AreaCheck("AR2000")
	Global("BardPlot1","GLOBAL",19)
	OR(2)
		AreaType(OUTDOOR)
		AreaCheck("AR0511")
THEN
	RESPONSE #100
		SetGlobal("BardPlot1","GLOBAL",40)
		SetGlobal("BardPlotOn","GLOBAL",1)
		CreateCreatureObjectOffScreen("bdgoph01",Player1,0,0,0) // Meck
END

IF
	GlobalTimerExpired("MeetHiggin7","GLOBAL")
	Global("BardPlot1","GLOBAL",42)
	!Global("Chapter","GLOBAL",4)
	!Global("Chapter","GLOBAL",5)
	!Global("Chapter","GLOBAL",7)
	AreaType(CITY)
	!AreaCheck("AR2000")
	OR(3)
		AreaType(OUTDOOR)
		AreaCheck("AR0522")
		AreaCheck("AR0511")
THEN
	RESPONSE #100
		SetGlobal("BardPlot1","GLOBAL",45)
		SetGlobal("BardPlotOn","GLOBAL",1)
		CreateCreatureObjectOffScreen("bdgoph01",Player1,0,0,0) // Meck
END

IF
	GlobalTimerExpired("MeetHiggin8","GLOBAL")
	AreaType(CITY)
	!AreaCheck("AR2000")
	Global("BardPlot1","GLOBAL",50)
	!Global("Chapter","GLOBAL",4)
	!Global("Chapter","GLOBAL",5)
	!Global("Chapter","GLOBAL",7)
	OR(3)
		AreaType(OUTDOOR)
		AreaCheck("AR0522")
		AreaCheck("AR0511")
THEN
	RESPONSE #100
		SetGlobal("BardPlot1","GLOBAL",51)
		SetGlobal("BardPlotOn","GLOBAL",1)
		CreateCreatureObjectOffScreen("bdgoph01",Player1,0,0,0) // Meck
END

IF
	PartyRested()
	GlobalTimerExpired("JaheiraReturn","GLOBAL")
	Global("JaheiraReturns","GLOBAL",0)
THEN
	RESPONSE #100
		SetGlobal("JaheiraReturns","GLOBAL",1)
		MoveGlobalObject("Jaheira",Player1)
END

IF
	GlobalTimerExpired("BardMoneyTime","GLOBAL")
	GlobalGT("BardMoney","GLOBAL",500)
	Global("BardPlotOn","GLOBAL",5)
THEN
	RESPONSE #100
		SetGlobalTimer("BardMoneyTime","GLOBAL",SEVEN_DAYS)
		DisplayString(Player1,47142) // Gold has been placed in your keep.
		IncrementGlobal("BardMoney","GLOBAL",-100)
		AddGlobals("BardMoneyX","BardMoney")
END

IF
	GlobalTimerExpired("BardMoneyTime","GLOBAL")
	GlobalLT("BardMoney","GLOBAL",501)
	Global("BardPlotOn","GLOBAL",5)
THEN
	RESPONSE #100
		SetGlobalTimer("BardMoneyTime","GLOBAL",SEVEN_DAYS)
		DisplayString(Player1,47142) // Gold has been placed in your keep.
		AddGlobals("BardMoneyX","BardMoney")
END

IF
	GlobalTimerExpired("KPTaxTime","GLOBAL")
	Global("PCKeepOwner","GLOBAL",1)
THEN
	RESPONSE #100
		DisplayString(Player1,47142) // Gold has been placed in your keep.
		SetGlobalTimer("KPTaxTime","GLOBAL",SEVEN_DAYS)
		IncrementGlobal("KPTaxes","GLOBAL",500)
END

IF
	GlobalTimerExpired("KPPlotTime","GLOBAL")
	AreaType(OUTDOOR)
	!AreaCheck("AR2500")
	!AreaCheck("AR2600")
	!AreaCheck("AR2000")
	!AreaCheck("AR1900")
	Global("KeepPlot","GLOBAL",4)
	InParty("Nalia")
	!Global("Chapter","GLOBAL",4)
	!Global("Chapter","GLOBAL",5)
	!Global("Chapter","GLOBAL",7)
	Global("NaliaIsaeaPlotDone","GLOBAL",1)
	Global("KPRunnerSpawn","GLOBAL",0)
THEN
	RESPONSE #100
		SetGlobal("KPRunnerSpawn","GLOBAL",1)
		CreateCreatureObjectOffScreen("KPRUNN01",Player1,0,0,0) // Keep Messenger
END

IF
	GlobalTimerExpired("KPPlotTime","GLOBAL")
	AreaType(OUTDOOR)
	!AreaCheck("AR2500")
	!AreaCheck("AR2600")
	!AreaCheck("AR2000")
	!AreaCheck("AR1900")
	!Global("Chapter","GLOBAL",4)
	!Global("Chapter","GLOBAL",5)
	!Global("Chapter","GLOBAL",7)
	Global("KeepPlot","GLOBAL",4)
	!InParty("Nalia")
	Global("KPRunnerSpawn","GLOBAL",0)
THEN
	RESPONSE #100
		SetGlobal("KPRunnerSpawn","GLOBAL",1)
		CreateCreatureObjectOffScreen("KPRUNN01",Player1,0,0,0) // Keep Messenger
END

IF
	GlobalTimerExpired("KPPlotTime","GLOBAL")
	AreaType(OUTDOOR)
	!AreaCheck("AR2500")
	!AreaCheck("AR2600")
	!AreaCheck("AR2000")
	!AreaCheck("AR1900")
	!Global("Chapter","GLOBAL",4)
	!Global("Chapter","GLOBAL",5)
	!Global("Chapter","GLOBAL",7)
	Global("KeepPlot","GLOBAL",7)
	Global("KPRunnerSpawn","GLOBAL",1)
THEN
	RESPONSE #100
		SetGlobal("KPRunnerSpawn","GLOBAL",2)
		CreateCreatureObjectOffScreen("KPRUNN01",Player1,0,0,0) // Keep Messenger
END

IF
	GlobalTimerExpired("KPPlotTime","GLOBAL")
	AreaType(OUTDOOR)
	!AreaCheck("AR2500")
	!AreaCheck("AR2600")
	!AreaCheck("AR2000")
	!AreaCheck("AR1900")
	!Global("Chapter","GLOBAL",4)
	!Global("Chapter","GLOBAL",5)
	!Global("Chapter","GLOBAL",7)
	Global("KeepPlot","GLOBAL",8)
	Global("KPRunnerSpawn","GLOBAL",2)
THEN
	RESPONSE #100
		SetGlobal("KPRunnerSpawn","GLOBAL",3)
		CreateCreatureObjectOffScreen("KPRUNN01",Player1,0,0,0) // Keep Messenger
END

IF
	GlobalGT("KPRevolt","GLOBAL",9)
	Global("RoenalControl","GLOBAL",0)
	GlobalLT("KeepPlot","GLOBAL",12)
THEN
	RESPONSE #100
		ClearAllActions()
		StartCutSceneMode()
		StartCutScene("Cut32n")
END

IF
	GlobalTimerExpired("TeolMessenger","GLOBAL")
	!Global("Chapter","GLOBAL",4)
	!Global("Chapter","GLOBAL",5)
	!Global("Chapter","GLOBAL",7)
	AreaType(OUTDOOR)
	!AreaCheck("AR2500")
	!AreaCheck("AR2600")
	Global("NatulaSpawn","GLOBAL",0)
THEN
	RESPONSE #100
		SetGlobal("NatulaSpawn","GLOBAL",1)
		CreateCreatureObject("MGASS01",Player1,0,0,0) // Sergeant Natula
		ActionOverride("MGASS01",StartDialogueNoSet(Player1))
END

IF
	Global("geniesgone","GLOBAL",0)
	Dead("trgeni01") // Khan Zahraa
THEN
	RESPONSE #100
		SetGlobal("geniesgone","GLOBAL",1)
END

IF
	GlobalTimerExpired("udPhaTimer","GLOBAL")
	Global("udPhaTimerOn","GLOBAL",1)
	Global("DrowCityHostile","GLOBAL",0)
	!Dead("Phaere")
THEN
	RESPONSE #100
		SetInterrupt(FALSE)
		DisplayStringHead(Player1,43962) // A loud gong sounds and you fear you may have failed in the task that the drow have given you.
		SetGlobal("udPhaTimerOn","GLOBAL",0)
		SetGlobal("udSolTimerOn","GLOBAL",0)
		SetGlobal("DrowTimePhaere","GLOBAL",1)
		SetGlobal("ADrowTimerHasExpired","GLOBAL",1)
		CreateCreatureObjectDoor("udphae02",Player1,0,0,0) // Phaere
		ActionOverride(Player1,ApplySpell(Myself,UNDER_NORM))
		ActionOverride(Player2,ApplySpell(Myself,UNDER_NORM))
		ActionOverride(Player3,ApplySpell(Myself,UNDER_NORM))
		ActionOverride(Player4,ApplySpell(Myself,UNDER_NORM))
		ActionOverride(Player5,ApplySpell(Myself,UNDER_NORM))
		ActionOverride(Player6,ApplySpell(Myself,UNDER_NORM))
		SetInterrupt(TRUE)
END

IF
	GlobalTimerExpired("udSolTimer","GLOBAL")
	GlobalLT("PhaereJob","GLOBAL",6)
	Global("udSolTimerOn","GLOBAL",1)
	Global("DrowCityHostile","GLOBAL",0)
	!Dead("Solaufein")
THEN
	RESPONSE #100
		SetInterrupt(FALSE)
		DisplayStringHead(Player1,43962) // A loud gong sounds and you fear you may have failed in the task that the drow have given you.
		SetGlobal("udSolTimerOn","GLOBAL",0)
		SetGlobal("udPhaTimerOn","GLOBAL",0)
		SetGlobal("DrowTimeSol","GLOBAL",1)
		SetGlobal("ADrowTimerHasExpired","GLOBAL",1)
		CreateCreatureObjectDoor("udsola02",Player1,0,0,0) // Solaufein
		ActionOverride(Player1,ApplySpell(Myself,UNDER_NORM))
		ActionOverride(Player2,ApplySpell(Myself,UNDER_NORM))
		ActionOverride(Player3,ApplySpell(Myself,UNDER_NORM))
		ActionOverride(Player4,ApplySpell(Myself,UNDER_NORM))
		ActionOverride(Player5,ApplySpell(Myself,UNDER_NORM))
		ActionOverride(Player6,ApplySpell(Myself,UNDER_NORM))
		SetInterrupt(TRUE)
END

IF
	GlobalTimerExpired("udEscape","GLOBAL")
	Global("C#SB_DrowCityHostile","GLOBAL",1)
	Global("DrowCityHostile","GLOBAL",0)
THEN
	RESPONSE #100
		SetGlobal("udSolTimerOn","GLOBAL",0)
		SetGlobal("udPhaTimerOn","GLOBAL",0)
		SetGlobal("DrowCityHostile","GLOBAL",1)
END

IF
	Global("GivePowerSlayer","GLOBAL",1)
THEN
	RESPONSE #100
		StartCutSceneMode()
		SetGlobal("GivePowerSlayer","GLOBAL",2)
		ActionOverride(Player1,ApplySpell(Myself,GIVE_SLAYER_POWER))
		EndCutSceneMode()
END

IF
	Global("setAerieDlg","GLOBAL",1)
THEN
	RESPONSE #100
		SetGlobal("setAerieDlg","GLOBAL",2)
		ActionOverride("aerie",SetDialog("aeriej"))
END

IF
	Delay(600)
	CombatCounter(0)
	OR(6)
		HasItemEquipedReal("sw2h14",Player1) // Lilarcor +3
		HasItemEquipedReal("sw2h14",Player2) // Lilarcor +3
		HasItemEquipedReal("sw2h14",Player3) // Lilarcor +3
		HasItemEquipedReal("sw2h14",Player4) // Lilarcor +3
		HasItemEquipedReal("sw2h14",Player5) // Lilarcor +3
		HasItemEquipedReal("sw2h14",Player6) // Lilarcor +3
THEN
	RESPONSE #10
		DisplayStringHeadOwner("sw2h14",20580) // I may be an intelligent sword, but I've had no formal edumication.
	RESPONSE #10
		DisplayStringHeadOwner("sw2h14",20779) // Can we go kill something now, huh?
	RESPONSE #10
		DisplayStringHeadOwner("sw2h14",20780) // How about now?  No?
	RESPONSE #10
		DisplayStringHeadOwner("sw2h14",20956) // Come on let's kill something NOW!
	RESPONSE #10
		DisplayStringHeadOwner("sw2h14",24939) // Mmmm... now?
	RESPONSE #10
		DisplayStringHeadOwner("sw2h14",25349) // What about now?
	RESPONSE #10
		DisplayStringHeadOwner("sw2h14",31258) // Now?  Please?  Pretty please?
	RESPONSE #10
		DisplayStringHeadOwner("sw2h14",31259) // I don't know what you were expecting, but as a sword I'm pretty one-dimensional in what I want.
	RESPONSE #10
		DisplayStringHeadOwner("sw2h14",31260) // Can we go whack something now?
	RESPONSE #10
		DisplayStringHeadOwner("sw2h14",31638) // Let's whack something eeeeevvvvillllll...
	RESPONSE #10
		DisplayStringHeadOwner("sw2h14",31639) // Why don't we go kill that over there?
	RESPONSE #10
		DisplayStringHeadOwner("sw2h14",31640) // You know, I was a Moonblade once.
	RESPONSE #10
		DisplayStringHeadOwner("sw2h14",31641) // You really need to clean me.  I like to shine!
	RESPONSE #10
		DisplayStringHeadOwner("sw2h14",31646) // Are we going to kill something now, maybe?  Huh?
	RESPONSE #10
		DisplayStringHeadOwner("sw2h14",31649) // You know, my last owner always said I was sharp and edgy.  He was such an ass.
	RESPONSE #10
		DisplayStringHeadOwner("sw2h14",31651) // I don't chop wood.  I am not an axe.
	RESPONSE #10
		DisplayStringHeadOwner("sw2h14",31652) // Now!  Now!  Kill something now!!  Yeah!
	RESPONSE #10
		DisplayStringHeadOwner("sw2h14",31654) // Booooo-ring!
	RESPONSE #10
		DisplayStringHeadOwner("sw2h14",31655) // (sigh)
	RESPONSE #10
		DisplayStringHeadOwner("sw2h14",31656) // (double sigh)
	RESPONSE #10
		DisplayStringHeadOwner("sw2h14",6433) // Wanna go kill that over there? C'mon, let's kill somthin'!
END

IF
	Delay(125)
	!CombatCounter(0)
	OR(6)
		HasItemEquipedReal("sw2h14",Player1) // Lilarcor +3
		HasItemEquipedReal("sw2h14",Player2) // Lilarcor +3
		HasItemEquipedReal("sw2h14",Player3) // Lilarcor +3
		HasItemEquipedReal("sw2h14",Player4) // Lilarcor +3
		HasItemEquipedReal("sw2h14",Player5) // Lilarcor +3
		HasItemEquipedReal("sw2h14",Player6) // Lilarcor +3
THEN
	RESPONSE #10
		DisplayStringHeadOwner("sw2h14",839) // You deal, I'll cut!
	RESPONSE #10
		DisplayStringHeadOwner("sw2h14",844) // Let's see what's inside this one!  Yeah!
	RESPONSE #10
		DisplayStringHeadOwner("sw2h14",849) // Come get some!  Boo-yah!
	RESPONSE #10
		DisplayStringHeadOwner("sw2h14",869) // Choke up, dolt, your grip is all wrong!
	RESPONSE #10
		DisplayStringHeadOwner("sw2h14",2308) // Hands up, kiddies, who wants to die?!
	RESPONSE #10
		DisplayStringHeadOwner("sw2h14",2389) // Mmmm... tastes like chicken!
	RESPONSE #10
		DisplayStringHeadOwner("sw2h14",4393) // Sissy fighter!  You grab, I'll scratch!
	RESPONSE #10
		DisplayStringHeadOwner("sw2h14",31659) // Muwahahaha-ha-ha!!
	RESPONSE #10
		DisplayStringHeadOwner("sw2h14",31660) // You can't be serious!
	RESPONSE #10
		DisplayStringHeadOwner("sw2h14",7908) // Ooo, that'll leave a mark!
	RESPONSE #10
		DisplayStringHeadOwner("sw2h14",8480) // Murder!  Death!!  KILL!!!
	RESPONSE #10
		DisplayStringHeadOwner("sw2h14",9687) // Who's your daddy!
	RESPONSE #10
		DisplayStringHeadOwner("sw2h14",9800) // We got a gusher!
	RESPONSE #10
		DisplayStringHeadOwner("sw2h14",10725) // Are YOU talking to ME?!!
	RESPONSE #10
		DisplayStringHeadOwner("sw2h14",11255) // Some of my finest work!
	RESPONSE #10
		DisplayStringHeadOwner("sw2h14",12671) // I'm the best at what I do, and what I do ain't pretty!
	RESPONSE #10
		DisplayStringHeadOwner("sw2h14",31662) // Yeah!  Hit it!  Hit it again!
	RESPONSE #10
		DisplayStringHeadOwner("sw2h14",31663) // I am invincible!  Invincible, I say!
	RESPONSE #10
		DisplayStringHeadOwner("sw2h14",32426) // Wouldn't it be cool if you could dual-wield me?
	RESPONSE #10
		DisplayStringHeadOwner("sw2h14",19304) // YOINK!  Got yer nose!
	RESPONSE #10
		DisplayStringHeadOwner("sw2h14",19441) // My brother is a +12 Hackmaster!
	RESPONSE #10
		DisplayStringHeadOwner("sw2h14",19638) // I love the smell of daisies in the morning!
	RESPONSE #10
		DisplayStringHeadOwner("sw2h14",20059) // Swing harder!  Swing harder!!
	RESPONSE #10
		DisplayStringHeadOwner("sw2h14",20396) // Bring 'em on!  I ain't done!
	RESPONSE #10
		DisplayStringHeadOwner("sw2h14",20457) // Oh yeah!
	RESPONSE #10
		DisplayStringHeadOwner("sw2h14",31658) // Let's dance!
	RESPONSE #10
		DisplayStringHeadOwner("sw2h14",34689) // Kill it!  Kill it quick before they're all gone!
	RESPONSE #10
		DisplayStringHeadOwner("sw2h14",36145) // Kill kill kill!  Yeah!  Cool!!
	RESPONSE #10
		DisplayStringHeadOwner("sw2h14",41815) // ... and this one's for grandma, who said I'd never amount to anything more than a butterknife!!
	RESPONSE #10
		DisplayStringHeadOwner("sw2h14",6434) // Hot butta!
	RESPONSE #10
		DisplayStringHeadOwner("sw2h14",6435) // You feel lucky, punk?
	RESPONSE #10
		DisplayStringHeadOwner("sw2h14",6441) // Oooh, I'm shaking! Haha!
	RESPONSE #10
		DisplayStringHeadOwner("sw2h14",6442) // Oooh, throw a coin in that fountain! Hahahaha!
END

IF
	InParty("Viconia")
	Global("ViconiaJoinedParty","GLOBAL",0)
THEN
	RESPONSE #100
		ReputationInc(-2)
		SetGlobal("ViconiaJoinedParty","GLOBAL",1)
END

IF
	!InParty("Viconia")
	!Dead("Viconia")
	Global("ViconiaJoinedParty","GLOBAL",1)
THEN
	RESPONSE #100
		ReputationInc(2)
		SetGlobal("ViconiaJoinedParty","GLOBAL",0)
END

IF
	Global("DrowCityHostile","GLOBAL",1)
	Global("drowEraseJournal","GLOBAL",0)
THEN
	RESPONSE #100
		EraseJournalEntry(55408) // Find the Worshippers of Ghaunadaur  A rather imperious female drow has commanded me to go to the southeastern corner of the drow city and destroy a sect of Ghaunadaur worshippers which are hiding out.  I'm not sure what refusing this task would accomplish... nothing good, I expect.
		EraseJournalEntry(61412) // Inside the Drow City  It appears that Veldrin, whose form I hold, was expected in the drow city by a drow commander named Solaufein.  I am to meet him at the Male Fighters' Society... in the north end of the city past the Female Fighters' Society and just before the Spider Pit.  Not doing so would likely look... suspicious.
		EraseJournalEntry(9986) // Inside the Drow City  I have performed more than a few tasks for the drow, and have instilled enough trust that I am now to meet Matron Mother Ardulace of House Despana personally.  In drow terms, this means that I have gained the favor of this house... and that can only help me get ever closer to what I seek.  I am to meet Phaere, the Matron's daughter, at the Temple of Lolth without much delay.
		EraseJournalEntry(7096) // Inside the Drow City  I am inside Ust Natha, and have been assigned a Drow commander, Solaufein, who does not appreciate my presence in the slightest.  He says that I have aroused the interest of a Matron Mother, and I am to meet him and a 'Handmaiden' at the entrance to the city to receive further instruction from her.  I cannot stumble now that I am within... the slightest error on my part and the dark elves will discover what I truly am.  Nothing would save me then.
		EraseJournalEntry(15787) // Inside the Drow City  I have been assigned the task of rescuing a Matron Mother's daughter from the illithids that have captured her.  I am to meet Solaufein near the entrance to the illithid city, in the southeast portion of the main cavern area, where he will draw the illithids from their astral travel.  I should delay as little as possible.
		EraseJournalEntry(20170) // Inside the Drow City  I rescued the Matron Mother's daughter, Phaere.  She knew Solaufein,  and also showed a passing interest in me. She went back to the city on her own.  Solaufein followed, commanding that I meet him inside the city entrance soon.
		EraseJournalEntry(9978) // Inside the Drow City  I have returned to the city to meet Solaufein, where we were told by Imrae that we had done well.  She also informed us that we were to report to the drow tavern within a day to meet Phaere once again... to be rewarded, apparently.
		EraseJournalEntry(5832) // Inside the Drow City  Phaere has given us another task from the Matron Mother: we are to go to the north end of the caverns near the svirfneblin village and slaughter a patrol of deep gnomes to instill more fear in their people.  Solaufein seems unwilling, preferring that I complete this job, but Phaere was adamant.  I am to meet Solaufein near the village within a few days at most.
		EraseJournalEntry(15725) // Inside the Drow City  I have met Phaere, the daughter of the Matron Mother, at the tavern as commanded.  It seems her Mother is very interested in me and we are to perform another task.  After Phaere leaves, Solaufein and I are to meet her within a few days at the city entrance to receive further instructions.  Until then, my time is my own.
		EraseJournalEntry(23500) // Inside the Drow City  Phaere intends to join myself and Solaufein in attacking a beholder that has been smuggling adamantite.  The beholder has come to the drow city on a Spelljammer ship off a platform in the southeast part of the city, and I am to meet Phaere and Solaufein there.
		EraseJournalEntry(11690) // Inside the Drow City  Solaufein has warned me that I should bring no accidental harm to himself or Phaere when we engage the beholder.  Such 'accidents' happen too often in drow society and no doubt I will be held accountable for such.
		EraseJournalEntry(15746) // Inside the Drow City  Now that the beholder is dead, Phaere and Solaufein have gone to report to the Matron Mothers.  Phaere has commanded me to meet with her again in the tavern within three days.
		EraseJournalEntry(15745) // Inside the Drow City  I have convinced Solaufein to return to the city, leaving me to deal with the svirfneblin on my own.  I am to go to the tavern in Ust Natha to meet Phaere after I am done, bringing with me the gnome patrol leader's helmet as proof of the deed.
		EraseJournalEntry(23519) // Inside the Drow City  The gnome patrol is dead.  Solaufein has returned to Ust Natha, disgusted, and commanded that I search the bodies for the patrol leader's helmet and return to the tavern to meet with Phaere.
		EraseJournalEntry(6933) // Inside the Drow City  I have acquired the svirfneblin patrol leader's helmet peacefully... and the drow need never know the difference.  All I need to do now is return to Phaere in the Ust Natha tavern before she grows impatient.
		EraseJournalEntry(23486) // Inside the Drow City  Phaere has something else in store for me, commanding that I meet her in her private quarters within the female fighters' society tower.
		EraseJournalEntry(23485) // Inside the Drow City  Phaere demands that I hunt down Solaufein and kill him. He will be within his quarters in the Male Fighter's Society, and once the deed is done I am to return to Phaere's quarters with his piwafwi cloak.
		EraseJournalEntry(23445) // Inside the Drow City  I have talked Solaufein into giving me his piwafwi cloak. With luck, he will not betray me and Phaere will never know the difference. It doesn't seem like he will... from the sounds of it, Solaufein is unlike other drow, and actually expressed disgust with their ways. Perhaps he and I shall meet again.
		EraseJournalEntry(23444) // Inside the Drow City  I have found Solaufein at his quarters and battled him. I only need take his piwafwi cloak and return to Phaere's apartment.
		EraseJournalEntry(5810) // The Drow Summoning Ritual  Ardulace has been impressed by my betrayal of Phaere... enough so that she wishes me to be present at the ritual to prevent any further interruptions.  I am to be collected by a guard shortly in order to be brought to the ritual, which is taking place soon.
		EraseJournalEntry(6535) // The Drow Summoning Ritual  I gave the real dragon eggs to Matron Ardulace, proof of Phaere's treachery, and she has called for Phaere to be brought before her.
		EraseJournalEntry(16529) // The Drow Summoning Ritual  The key that Phaere gave me to get the real eggs from the treasury was enough to convince the Matron Ardulace of her treachery.  This means I won't be able to get the eggs, now... but my chance may come later.  Phaere, in the meantime, is about to receive her just desserts.
		EraseJournalEntry(6943) // The Drow Summoning Ritual  I revealed Phaere's treachery to Matron Ardulace by showing her the fake eggs Phaere gave me.  She asked for the real ones, and was fooled by the fakes that Solaufein gave me.  The real eggs are still in my own possession.  Ardulace believes me, now, and has called for Phaere to be punished.
		EraseJournalEntry(16339) // The Drow Summoning Ritual  I revealed Phaere's treachery to Matron Ardulace, showing her the fake eggs that Phaere gave me.  She noticed the real eggs and took them, too... but at least she believes that Phaere is the one behind all of this.
		EraseJournalEntry(9649) // The Drow Summoning Ritual  An imp claiming to come from the Silver Dragon appeared, telling me that the eggs must be rescued before the ritual is completed and the eggs are sacrificed to the demon.  The ritual will have to be stopped... and then the Matron Ardulace must be killed to lift the magical seal off the city.  Once that is done, I will have only minutes to flee the city with the eggs before my disguise is discovered.  Cutting it close, indeed.
		EraseJournalEntry(6405) // The Drow Summoning Ritual  An imp claiming to come from the Silver Dragon appeared, telling me that in order for me to be able to flee the city with the eggs, Matron Ardulace must first be killed.  Doing so will only leave me minutes to get out of the city before my disguise is revealed by the angry Handmaidens of Lolth.  No doubt my chance will come during the ritual... cutting it close, indeed.
		EraseJournalEntry(6403) // The Drow Summoning Ritual  I have given Phaere the real silver eggs... I had little choice... and she has gone on to the Temple of Lolth and commanded me to follow.
		EraseJournalEntry(6590) // The Drow Summoning Ritual  I gave Phaere the eggs that Solaufein had given me... and it seems that she has been fooled into thinking they are the real ones.  The real eggs are still in my possession... and both Phaere and Matron Ardulace think they have the real eggs for the upcoming ritual. Phaere has gone onwards to the Temple of Lolth and has commanded me to follow right away.
		EraseJournalEntry(7147) // The Drow Summoning Ritual  I have encountered Solaufein once again, who has apparently snuck back into the city to spy on Phaere.  He thanked me for sparing him, and gave me another copy of the silver dragon eggs... these ones even Phaere will not be able to distinguish from the real ones.
		EraseJournalEntry(7148) // The Drow Summoning Ritual  Phaere has told me of Ardulace's plan in its entirety.  The drow intend to invade the surface... to what end, I don't know.  But Matron Ardulace's ritual is going to summon a great demon to aid the drow.  The dragon eggs will be sacrificed to the demon in return for its service, and this will place House Despana in great favor with Lolth. Phaere intends to betray Matron Ardulace, and has coerced me into helping her.  She wants me to go to the Despana treasury (in Lolth's temple) and replace the silver dragon's eggs with fake eggs that Phaere has had made.  Then when Ardulace offers the dragon the fake eggs, Phaere can step in with the real ones. I must be careful if I go to the treasury... killing the guards, if it is done, must be done discreetly if at all.  And even once I get the eggs, the city has been sealed by Matron Ardulace... there is no escaping.  I must continue to play along... for now.
		EraseJournalEntry(15793) // The Drow Summoning Ritual  I have returned with the blood, and Matron Ardulace was very pleased.  She mentioned that she is about to start a ritual... and before doing so she was going to seal the city.  I suppose that means that nobody can enter or leave.  She also mentioned the 'silver one' being barred from entry... obviously she knows something of the silver dragon's eggs. Matron Ardulace told me to relax, but Phaere ordered me to meet her within her apartments within an hour.  Obviously she has something else in mind.
		EraseJournalEntry(15792) // The Drow Summoning Ritual  Matron Ardulace has sent me to get the blood of one of the elder races that inhabit the Underdark with the drow.  I either need to go the beholder tunnels in the southeast and kill an Elder Orb, go to the illithid city in the southeast and kill an Elder Brain or go to the Kuo-Toan ruins in the west and kill a Kuo-Toan Prince.  Once I have the blood, I am to return to Ardulace forthwith.
		EraseJournalEntry(23424) // The Drow Summoning Ritual  Matron Mother Ardulace has decided to make use of me, collecting ingredients for something she didn't mention, perhaps some spell.  I have been sent to find a Master Whip of the Kuo-Toa in the western part of the caverns, and to return to the Matron Mother with its blood within three days.
		SetGlobal("drowEraseJournal","GLOBAL",2)
		Continue()
END

IF
	Global("DrowCityHostile","GLOBAL",1)
	Global("drowEraseJournal","GLOBAL",2)
	!AreaCheck("AR2102")
THEN
	RESPONSE #100
		AddJournalEntry(19438,QUEST_DONE) // Inside the Drow City  I have been discovered, and the alarm has been sounded throughout the drow city.  Getting anywhere will be problematic, at best.  Obviously I should have been more careful.
		SetGlobal("drowEraseJournal","GLOBAL",1)
END

IF
	Global("DrowCityHostile","GLOBAL",1)
	Global("drowEraseJournal","GLOBAL",2)
	AreaCheck("AR2102")
THEN
	RESPONSE #100
		SetGlobal("drowEraseJournal","GLOBAL",1)
END

IF
	PartyRested()
THEN
	RESPONSE #100
		SmallWait(1)
END

IF
	OR(2)
		Global("JaheiraRomanceActive","GLOBAL",1)
		Global("JaheiraRomanceActive","GLOBAL",2)
	!InPartyAllowDead("Jaheira")
	Dead("Jaheira")
THEN
	RESPONSE #100
		SetGlobal("JaheiraRomanceActive","GLOBAL",3)
END

IF
	OR(2)
		Global("AerieRomanceActive","GLOBAL",1)
		Global("AerieRomanceActive","GLOBAL",2)
	!InPartyAllowDead("Aerie")
	Dead("Aerie") // Aerie
THEN
	RESPONSE #100
		SetGlobal("AerieRomanceActive","GLOBAL",3)
END

IF
	OR(2)
		Global("ViconiaRomanceActive","GLOBAL",1)
		Global("ViconiaRomanceActive","GLOBAL",2)
	!InPartyAllowDead("Viconia")
	Dead("Viconia")
THEN
	RESPONSE #100
		SetGlobal("ViconiaRomanceActive","GLOBAL",3)
END

IF
	OR(2)
		Global("AnomenRomanceActive","GLOBAL",1)
		Global("AnomenRomanceActive","GLOBAL",2)
	!InPartyAllowDead("Anomen")
	Dead("Anomen")
THEN
	RESPONSE #100
		SetGlobal("AnomenRomanceActive","GLOBAL",3)
END

IF
	Global("AerieRomanceActive","GLOBAL",1)
	Global("AerieRomanceOut","GLOBAL",0)
	!InPartyAllowDead("Aerie")
	!Dead("Aerie") // Aerie
THEN
	RESPONSE #100
		SetGlobal("AerieRomanceOut","GLOBAL",1)
		SetGlobalTimer("AerieOutOfParty","GLOBAL",THREE_DAYS)
END

IF
	Global("AerieRomanceActive","GLOBAL",1)
	Global("AerieRomanceOut","GLOBAL",1)
	GlobalTimerExpired("AerieOutOfParty","GLOBAL")
	!InPartyAllowDead("Aerie")
	!Dead("Aerie") // Aerie
THEN
	RESPONSE #100
		SetGlobal("AerieRomanceActive","GLOBAL",3)
END

IF
	Global("AerieRomanceActive","GLOBAL",1)
	Global("AerieRomanceOut","GLOBAL",1)
	!GlobalTimerExpired("AerieOutOfParty","GLOBAL")
	InPartyAllowDead("Aerie")
THEN
	RESPONSE #100
		SetGlobal("AerieRomanceOut","GLOBAL",0)
		RealSetGlobalTimer("AerieRomance","GLOBAL",NINE_HOURS)
END

IF
	Global("ViconiaRomanceActive","GLOBAL",1)
	Global("ViconiaRomanceOut","GLOBAL",0)
	!InPartyAllowDead("Viconia")
	!Dead("Viconia")
THEN
	RESPONSE #100
		SetGlobal("ViconiaRomanceOut","GLOBAL",1)
		SetGlobalTimer("ViconiaOutOfParty","GLOBAL",THREE_DAYS)
END

IF
	Global("ViconiaRomanceActive","GLOBAL",1)
	Global("ViconiaRomanceOut","GLOBAL",1)
	GlobalTimerExpired("ViconiaOutOfParty","GLOBAL")
	!InPartyAllowDead("Viconia")
	!Dead("Viconia")
THEN
	RESPONSE #100
		SetGlobal("ViconiaRomanceActive","GLOBAL",3)
END

IF
	Global("ViconiaRomanceActive","GLOBAL",1)
	Global("ViconiaRomanceOut","GLOBAL",1)
	!GlobalTimerExpired("ViconiaOutOfParty","GLOBAL")
	InPartyAllowDead("Viconia")
THEN
	RESPONSE #100
		SetGlobal("ViconiaRomanceOut","GLOBAL",0)
		RealSetGlobalTimer("ViconiaRomance","GLOBAL",NINE_HOURS)
END

IF
	Global("AnomenRomanceActive","GLOBAL",1)
	Global("AnomenRomanceOut","GLOBAL",0)
	!InPartyAllowDead("Anomen")
	!Dead("Anomen")
THEN
	RESPONSE #100
		SetGlobal("AnomenRomanceOut","GLOBAL",1)
		SetGlobalTimer("AnomenOutOfParty","GLOBAL",THREE_DAYS)
END

IF
	Global("AnomenRomanceActive","GLOBAL",1)
	Global("AnomenRomanceOut","GLOBAL",1)
	GlobalTimerExpired("AnomenOutOfParty","GLOBAL")
	!InPartyAllowDead("Anomen")
	!Dead("Anomen")
THEN
	RESPONSE #100
		SetGlobal("AnomenRomanceActive","GLOBAL",3)
END

IF
	Global("AnomenRomanceActive","GLOBAL",1)
	Global("AnomenRomanceOut","GLOBAL",1)
	!GlobalTimerExpired("AnomenOutOfParty","GLOBAL")
	InPartyAllowDead("Anomen")
THEN
	RESPONSE #100
		SetGlobal("AnomenRomanceOut","GLOBAL",0)
		RealSetGlobalTimer("AnomenRomance","GLOBAL",NINE_HOURS)
END

IF
	InParty("Mazzy")
	Global("DROWITEMCHECKDONE","GLOBAL",1)
	Global("MazzyDrowCheck","GLOBAL",0)
THEN
	RESPONSE #100
		SetInterrupt(FALSE)
		MultiPlayerSync()
		SmallWait(8)
		ActionOverride("Mazzy",ApplySpell(Myself,UNDER_NORM))
		SetGlobal("MazzyDrowCheck","GLOBAL",1)
		TakePartyItemAll("DWCHAN01") // Drowcraft Elven Chain +1
		TakePartyItemAll("DWCHAN02") // Drowcraft Adamantine Chain +3
		TakePartyItemAll("DWSW1H01") // Drowcraft Scimitar +3
		TakePartyItemAll("DWSW1H02") // Drowcraft Long Sword +3
		TakePartyItemAll("DWBLUN01") // Drowcraft Flail +3
		TakePartyItemAll("DWHALB01") // Drowcraft Halberd +3
		TakePartyItemAll("DWSPER01") // Drowcraft Lance +3
		TakePartyItemAll("DWXBOW01") // Drowcraft Light Crossbow of Speed +1
		TakePartyItemAll("DWSHLD01") // Drow Shield +3
		TakePartyItemAll("DWCLCK01") // Drow Piwafwi Cloak
		TakePartyItemAll("DWBOLT01") // Drowcraft Bolt of Sleep +1
		TakePartyItemAll("DWBOLT02") // Drowcraft Bolt of Stunning +2
		TakePartyItemAll("DWBOLT03") // Drowcraft Bolt +3
		TakePartyItemAll("DWPLAT01") // Drowcraft Adamantine Full Plate +3
		TakePartyItemAll("MISC9W") // Drow Piwafwi Cloak
		SetInterrupt(TRUE)
END

IF
	!InParty("Mazzy")
	!Dead("Mazzy")
	Global("MazzyDrowCheck","GLOBAL",1)
THEN
	RESPONSE #100
		SetGlobal("MazzyDrowCheck","GLOBAL",0)
END

IF
	InParty("Jaheira")
	Global("DROWITEMCHECKDONE","GLOBAL",1)
	Global("JaheiraDrowCheck","GLOBAL",0)
THEN
	RESPONSE #100
		SetInterrupt(FALSE)
		MultiPlayerSync()
		SmallWait(8)
		ActionOverride("Jaheira",ApplySpell(Myself,UNDER_NORM))
		SetGlobal("JaheiraDrowCheck","GLOBAL",1)
		TakePartyItemAll("DWCHAN01") // Drowcraft Elven Chain +1
		TakePartyItemAll("DWCHAN02") // Drowcraft Adamantine Chain +3
		TakePartyItemAll("DWSW1H01") // Drowcraft Scimitar +3
		TakePartyItemAll("DWSW1H02") // Drowcraft Long Sword +3
		TakePartyItemAll("DWBLUN01") // Drowcraft Flail +3
		TakePartyItemAll("DWHALB01") // Drowcraft Halberd +3
		TakePartyItemAll("DWSPER01") // Drowcraft Lance +3
		TakePartyItemAll("DWXBOW01") // Drowcraft Light Crossbow of Speed +1
		TakePartyItemAll("DWSHLD01") // Drow Shield +3
		TakePartyItemAll("DWCLCK01") // Drow Piwafwi Cloak
		TakePartyItemAll("DWBOLT01") // Drowcraft Bolt of Sleep +1
		TakePartyItemAll("DWBOLT02") // Drowcraft Bolt of Stunning +2
		TakePartyItemAll("DWBOLT03") // Drowcraft Bolt +3
		TakePartyItemAll("DWPLAT01") // Drowcraft Adamantine Full Plate +3
		TakePartyItemAll("MISC9W") // Drow Piwafwi Cloak
		SetInterrupt(TRUE)
END

IF
	!InParty("Jaheira")
	!Dead("Jaheira")
	Global("JaheiraDrowCheck","GLOBAL",1)
THEN
	RESPONSE #100
		SetGlobal("JaheiraDrowCheck","GLOBAL",0)
END

IF
	InParty("Imoen2")
	Global("DROWITEMCHECKDONE","GLOBAL",1)
	Global("ImoenDrowCheck","GLOBAL",0)
THEN
	RESPONSE #100
		SetInterrupt(FALSE)
		MultiPlayerSync()
		SmallWait(8)
		ActionOverride("Imoen2",ApplySpell(Myself,UNDER_NORM))
		SetGlobal("ImoenDrowCheck","GLOBAL",1)
		TakePartyItemAll("DWCHAN01") // Drowcraft Elven Chain +1
		TakePartyItemAll("DWCHAN02") // Drowcraft Adamantine Chain +3
		TakePartyItemAll("DWSW1H01") // Drowcraft Scimitar +3
		TakePartyItemAll("DWSW1H02") // Drowcraft Long Sword +3
		TakePartyItemAll("DWBLUN01") // Drowcraft Flail +3
		TakePartyItemAll("DWHALB01") // Drowcraft Halberd +3
		TakePartyItemAll("DWSPER01") // Drowcraft Lance +3
		TakePartyItemAll("DWXBOW01") // Drowcraft Light Crossbow of Speed +1
		TakePartyItemAll("DWSHLD01") // Drow Shield +3
		TakePartyItemAll("DWCLCK01") // Drow Piwafwi Cloak
		TakePartyItemAll("DWBOLT01") // Drowcraft Bolt of Sleep +1
		TakePartyItemAll("DWBOLT02") // Drowcraft Bolt of Stunning +2
		TakePartyItemAll("DWBOLT03") // Drowcraft Bolt +3
		TakePartyItemAll("DWPLAT01") // Drowcraft Adamantine Full Plate +3
		TakePartyItemAll("MISC9W") // Drow Piwafwi Cloak
		SetInterrupt(TRUE)
END

IF
	!InParty("Imoen2")
	!Dead("Imoen2") // Imoen
	Global("ImoenDrowCheck","GLOBAL",1)
THEN
	RESPONSE #100
		SetGlobal("ImoenDrowCheck","GLOBAL",0)
END

IF
	Global("SorcererScript1","GLOBAL",0)
	GlobalGT("Chapter","GLOBAL",3)
	GlobalLT("Chapter","GLOBAL",8)
	Name("Imoen",Player1) // Imoen
THEN
	RESPONSE #100
		SetGlobal("SorcererScript1","GLOBAL",1)
		ActionOverride(Player1,ChangeAIScript("Imoen2",OVERRIDE))
END

IF
	Global("SorcererScript1","GLOBAL",0)
	GlobalGT("Chapter","GLOBAL",3)
	GlobalLT("Chapter","GLOBAL",8)
	Name("Imoen",Player2) // Imoen
THEN
	RESPONSE #100
		SetGlobal("SorcererScript1","GLOBAL",1)
		ActionOverride(Player2,ChangeAIScript("Imoen2",OVERRIDE))
END

IF
	Global("SorcererScript1","GLOBAL",0)
	GlobalGT("Chapter","GLOBAL",3)
	GlobalLT("Chapter","GLOBAL",8)
	Name("Imoen",Player3) // Imoen
THEN
	RESPONSE #100
		SetGlobal("SorcererScript1","GLOBAL",1)
		ActionOverride(Player3,ChangeAIScript("Imoen2",OVERRIDE))
END

IF
	Global("SorcererScript1","GLOBAL",0)
	GlobalGT("Chapter","GLOBAL",3)
	GlobalLT("Chapter","GLOBAL",8)
	Name("Imoen",Player4) // Imoen
THEN
	RESPONSE #100
		SetGlobal("SorcererScript1","GLOBAL",1)
		ActionOverride(Player4,ChangeAIScript("Imoen2",OVERRIDE))
END

IF
	Global("SorcererScript1","GLOBAL",0)
	GlobalGT("Chapter","GLOBAL",3)
	GlobalLT("Chapter","GLOBAL",8)
	Name("Imoen",Player5) // Imoen
THEN
	RESPONSE #100
		SetGlobal("SorcererScript1","GLOBAL",1)
		ActionOverride(Player5,ChangeAIScript("Imoen2",OVERRIDE))
END

IF
	Global("SorcererScript1","GLOBAL",0)
	GlobalGT("Chapter","GLOBAL",3)
	GlobalLT("Chapter","GLOBAL",8)
	Name("Imoen",Player6) // Imoen
THEN
	RESPONSE #100
		SetGlobal("SorcererScript1","GLOBAL",1)
		ActionOverride(Player6,ChangeAIScript("Imoen2",OVERRIDE))
END

IF
	Global("SorcererScript2","GLOBAL",0)
	Name("Cernd",Player1)
THEN
	RESPONSE #100
		SetGlobal("SorcererScript2","GLOBAL",1)
		ActionOverride(Player1,ChangeAIScript("Cernd",OVERRIDE))
END

IF
	Global("SorcererScript2","GLOBAL",0)
	Name("Cernd",Player2)
THEN
	RESPONSE #100
		SetGlobal("SorcererScript2","GLOBAL",1)
		ActionOverride(Player2,ChangeAIScript("Cernd",OVERRIDE))
END

IF
	Global("SorcererScript2","GLOBAL",0)
	Name("Cernd",Player3)
THEN
	RESPONSE #100
		SetGlobal("SorcererScript2","GLOBAL",1)
		ActionOverride(Player3,ChangeAIScript("Cernd",OVERRIDE))
END

IF
	Global("SorcererScript2","GLOBAL",0)
	Name("Cernd",Player4)
THEN
	RESPONSE #100
		SetGlobal("SorcererScript2","GLOBAL",1)
		ActionOverride(Player4,ChangeAIScript("Cernd",OVERRIDE))
END

IF
	Global("SorcererScript2","GLOBAL",0)
	Name("Cernd",Player5)
THEN
	RESPONSE #100
		SetGlobal("SorcererScript2","GLOBAL",1)
		ActionOverride(Player5,ChangeAIScript("Cernd",OVERRIDE))
END

IF
	Global("SorcererScript2","GLOBAL",0)
	Name("Cernd",Player6)
THEN
	RESPONSE #100
		SetGlobal("SorcererScript2","GLOBAL",1)
		ActionOverride(Player6,ChangeAIScript("Cernd",OVERRIDE))
END

IF
	HasItem("MISC3D",Player1) // Golden Lion Figurine
	Global("SPSumFi1","GLOBAL",1)
THEN
	RESPONSE #100
		ActionOverride(Player1,DestroyItem("MISC3D")) // Golden Lion Figurine
		SetGlobal("SPSumFi1","GLOBAL",0)
		SetGlobal("SorcererSumFig1","GLOBAL",1)
		SetGlobalTimer("PSummonedJoolon","GLOBAL",FIVE_TURNS)
END

IF
	HasItem("MISC3E",Player1) // Black Spider Figurine
	Global("SPSumFi2","GLOBAL",1)
THEN
	RESPONSE #100
		ActionOverride(Player1,DestroyItem("MISC3E")) // Black Spider Figurine
		SetGlobal("SPSumFi2","GLOBAL",0)
		SetGlobal("SorcererSumFig2","GLOBAL",1)
		SetGlobalTimer("PSummonedKitthix","GLOBAL",FIVE_TURNS)
END

IF
	HasItem("MISC7T",Player1) // Moon Dog Figurine
	Global("SPSumFi3","GLOBAL",1)
THEN
	RESPONSE #100
		ActionOverride(Player1,DestroyItem("MISC7T")) // Moon Dog Figurine
		SetGlobal("SPSumFi3","GLOBAL",0)
		SetGlobal("SorcererSumFig3","GLOBAL",1)
		SetGlobalTimer("PSummonedCerebus","GLOBAL",FIVE_TURNS)
END

IF
	Global("SorcererSumFig1","GLOBAL",1)
	GlobalTimerExpired("PSummonedJoolon","GLOBAL")
	!StateCheck(Player1,STATE_DEAD)
	!InventoryFull(Player1)
THEN
	RESPONSE #100
		GiveItemCreate("MISC3D",Player1,0,0,0) // Golden Lion Figurine
		SetGlobal("SorcererSumFig1","GLOBAL",0)
		DisplayStringHead(Player1,10558) // Your figurine returns.
		Wait(1)
		DisplayStringHead(Player1,33125) // Golden Lion Figurine
END

IF
	Global("SorcererSumFig2","GLOBAL",1)
	GlobalTimerExpired("PSummonedKitthix","GLOBAL")
	!StateCheck(Player1,STATE_DEAD)
	!InventoryFull(Player1)
THEN
	RESPONSE #100
		GiveItemCreate("MISC3E",Player1,0,0,0) // Black Spider Figurine
		SetGlobal("SorcererSumFig2","GLOBAL",0)
		DisplayStringHead(Player1,10558) // Your figurine returns.
		Wait(1)
		DisplayStringHead(Player1,38529) // Black Spider Figurine
END

IF
	Global("SorcererSumFig3","GLOBAL",1)
	GlobalTimerExpired("PSummonedCerebus","GLOBAL")
	!StateCheck(Player1,STATE_DEAD)
	!InventoryFull(Player1)
THEN
	RESPONSE #100
		GiveItemCreate("MISC7T",Player1,0,0,0) // Moon Dog Figurine
		SetGlobal("SorcererSumFig3","GLOBAL",0)
		DisplayStringHead(Player1,10558) // Your figurine returns.
		Wait(1)
		DisplayStringHead(Player1,31964) // Moon Dog Figurine
END

IF
	HasItem("MISC3D",Player2) // Golden Lion Figurine
	Global("SPSumFi1","GLOBAL",1)
THEN
	RESPONSE #100
		ActionOverride(Player2,DestroyItem("MISC3D")) // Golden Lion Figurine
		SetGlobal("SPSumFi1","GLOBAL",0)
		SetGlobal("SorcererSumFig1","GLOBAL",2)
		SetGlobalTimer("PSummonedJoolon","GLOBAL",FIVE_TURNS)
END

IF
	HasItem("MISC3E",Player2) // Black Spider Figurine
	Global("SPSumFi2","GLOBAL",1)
THEN
	RESPONSE #100
		ActionOverride(Player2,DestroyItem("MISC3E")) // Black Spider Figurine
		SetGlobal("SPSumFi2","GLOBAL",0)
		SetGlobal("SorcererSumFig2","GLOBAL",2)
		SetGlobalTimer("PSummonedKitthix","GLOBAL",FIVE_TURNS)
END

IF
	HasItem("MISC7T",Player2) // Moon Dog Figurine
	Global("SPSumFi3","GLOBAL",1)
THEN
	RESPONSE #100
		ActionOverride(Player2,DestroyItem("MISC7T")) // Moon Dog Figurine
		SetGlobal("SPSumFi3","GLOBAL",0)
		SetGlobal("SorcererSumFig3","GLOBAL",2)
		SetGlobalTimer("PSummonedCerebus","GLOBAL",FIVE_TURNS)
END

IF
	Global("SorcererSumFig1","GLOBAL",2)
	GlobalTimerExpired("PSummonedJoolon","GLOBAL")
	!StateCheck(Player2,STATE_DEAD)
	!InventoryFull(Player2)
THEN
	RESPONSE #100
		GiveItemCreate("MISC3D",Player2,0,0,0) // Golden Lion Figurine
		SetGlobal("SorcererSumFig1","GLOBAL",0)
		DisplayStringHead(Player2,10558) // Your figurine returns.
		Wait(1)
		DisplayStringHead(Player2,33125) // Golden Lion Figurine
END

IF
	Global("SorcererSumFig2","GLOBAL",2)
	GlobalTimerExpired("PSummonedKitthix","GLOBAL")
	!StateCheck(Player2,STATE_DEAD)
	!InventoryFull(Player2)
THEN
	RESPONSE #100
		GiveItemCreate("MISC3E",Player2,0,0,0) // Black Spider Figurine
		SetGlobal("SorcererSumFig2","GLOBAL",0)
		DisplayStringHead(Player2,10558) // Your figurine returns.
		Wait(1)
		DisplayStringHead(Player2,38529) // Black Spider Figurine
END

IF
	Global("SorcererSumFig3","GLOBAL",2)
	GlobalTimerExpired("PSummonedCerebus","GLOBAL")
	!StateCheck(Player2,STATE_DEAD)
	!InventoryFull(Player2)
THEN
	RESPONSE #100
		GiveItemCreate("MISC7T",Player2,0,0,0) // Moon Dog Figurine
		SetGlobal("SorcererSumFig3","GLOBAL",0)
		DisplayStringHead(Player2,10558) // Your figurine returns.
		Wait(1)
		DisplayStringHead(Player2,31964) // Moon Dog Figurine
END

IF
	HasItem("MISC3D",Player3) // Golden Lion Figurine
	Global("SPSumFi1","GLOBAL",1)
THEN
	RESPONSE #100
		ActionOverride(Player3,DestroyItem("MISC3D")) // Golden Lion Figurine
		SetGlobal("SPSumFi1","GLOBAL",0)
		SetGlobal("SorcererSumFig1","GLOBAL",3)
		SetGlobalTimer("PSummonedJoolon","GLOBAL",FIVE_TURNS)
END

IF
	HasItem("MISC3E",Player3) // Black Spider Figurine
	Global("SPSumFi2","GLOBAL",1)
THEN
	RESPONSE #100
		ActionOverride(Player3,DestroyItem("MISC3E")) // Black Spider Figurine
		SetGlobal("SPSumFi2","GLOBAL",0)
		SetGlobal("SorcererSumFig2","GLOBAL",3)
		SetGlobalTimer("PSummonedKitthix","GLOBAL",FIVE_TURNS)
END

IF
	HasItem("MISC7T",Player3) // Moon Dog Figurine
	Global("SPSumFi3","GLOBAL",1)
THEN
	RESPONSE #100
		ActionOverride(Player3,DestroyItem("MISC7T")) // Moon Dog Figurine
		SetGlobal("SPSumFi3","GLOBAL",0)
		SetGlobal("SorcererSumFig3","GLOBAL",3)
		SetGlobalTimer("PSummonedCerebus","GLOBAL",FIVE_TURNS)
END

IF
	Global("SorcererSumFig1","GLOBAL",3)
	GlobalTimerExpired("PSummonedJoolon","GLOBAL")
	!StateCheck(Player3,STATE_DEAD)
	!InventoryFull(Player3)
THEN
	RESPONSE #100
		GiveItemCreate("MISC3D",Player3,0,0,0) // Golden Lion Figurine
		SetGlobal("SorcererSumFig1","GLOBAL",0)
		DisplayStringHead(Player3,10558) // Your figurine returns.
		Wait(1)
		DisplayStringHead(Player3,33125) // Golden Lion Figurine
END

IF
	Global("SorcererSumFig2","GLOBAL",3)
	GlobalTimerExpired("PSummonedKitthix","GLOBAL")
	!StateCheck(Player3,STATE_DEAD)
	!InventoryFull(Player3)
THEN
	RESPONSE #100
		GiveItemCreate("MISC3E",Player3,0,0,0) // Black Spider Figurine
		SetGlobal("SorcererSumFig2","GLOBAL",0)
		DisplayStringHead(Player3,10558) // Your figurine returns.
		Wait(1)
		DisplayStringHead(Player3,38529) // Black Spider Figurine
END

IF
	Global("SorcererSumFig3","GLOBAL",3)
	GlobalTimerExpired("PSummonedCerebus","GLOBAL")
	!StateCheck(Player3,STATE_DEAD)
	!InventoryFull(Player3)
THEN
	RESPONSE #100
		GiveItemCreate("MISC7T",Player3,0,0,0) // Moon Dog Figurine
		SetGlobal("SorcererSumFig3","GLOBAL",0)
		DisplayStringHead(Player3,10558) // Your figurine returns.
		Wait(1)
		DisplayStringHead(Player3,31964) // Moon Dog Figurine
END

IF
	HasItem("MISC3D",Player4) // Golden Lion Figurine
	Global("SPSumFi1","GLOBAL",1)
THEN
	RESPONSE #100
		ActionOverride(Player4,DestroyItem("MISC3D")) // Golden Lion Figurine
		SetGlobal("SPSumFi1","GLOBAL",0)
		SetGlobal("SorcererSumFig1","GLOBAL",4)
		SetGlobalTimer("PSummonedJoolon","GLOBAL",FIVE_TURNS)
END

IF
	HasItem("MISC3E",Player4) // Black Spider Figurine
	Global("SPSumFi2","GLOBAL",1)
THEN
	RESPONSE #100
		ActionOverride(Player4,DestroyItem("MISC3E")) // Black Spider Figurine
		SetGlobal("SPSumFi2","GLOBAL",0)
		SetGlobal("SorcererSumFig2","GLOBAL",4)
		SetGlobalTimer("PSummonedKitthix","GLOBAL",FIVE_TURNS)
END

IF
	HasItem("MISC7T",Player4) // Moon Dog Figurine
	Global("SPSumFi3","GLOBAL",1)
THEN
	RESPONSE #100
		ActionOverride(Player4,DestroyItem("MISC7T")) // Moon Dog Figurine
		SetGlobal("SPSumFi3","GLOBAL",0)
		SetGlobal("SorcererSumFig3","GLOBAL",4)
		SetGlobalTimer("PSummonedCerebus","GLOBAL",FIVE_TURNS)
END

IF
	Global("SorcererSumFig1","GLOBAL",4)
	GlobalTimerExpired("PSummonedJoolon","GLOBAL")
	!StateCheck(Player4,STATE_DEAD)
	!InventoryFull(Player4)
THEN
	RESPONSE #100
		GiveItemCreate("MISC3D",Player4,0,0,0) // Golden Lion Figurine
		SetGlobal("SorcererSumFig1","GLOBAL",0)
		DisplayStringHead(Player4,10558) // Your figurine returns.
		Wait(1)
		DisplayStringHead(Player4,33125) // Golden Lion Figurine
END

IF
	Global("SorcererSumFig2","GLOBAL",4)
	GlobalTimerExpired("PSummonedKitthix","GLOBAL")
	!StateCheck(Player4,STATE_DEAD)
	!InventoryFull(Player4)
THEN
	RESPONSE #100
		GiveItemCreate("MISC3E",Player4,0,0,0) // Black Spider Figurine
		SetGlobal("SorcererSumFig2","GLOBAL",0)
		DisplayStringHead(Player4,10558) // Your figurine returns.
		Wait(1)
		DisplayStringHead(Player4,38529) // Black Spider Figurine
END

IF
	Global("SorcererSumFig3","GLOBAL",4)
	GlobalTimerExpired("PSummonedCerebus","GLOBAL")
	!StateCheck(Player4,STATE_DEAD)
	!InventoryFull(Player4)
THEN
	RESPONSE #100
		GiveItemCreate("MISC7T",Player4,0,0,0) // Moon Dog Figurine
		SetGlobal("SorcererSumFig3","GLOBAL",0)
		DisplayStringHead(Player4,10558) // Your figurine returns.
		Wait(1)
		DisplayStringHead(Player4,31964) // Moon Dog Figurine
END

IF
	HasItem("MISC3D",Player5) // Golden Lion Figurine
	Global("SPSumFi1","GLOBAL",1)
THEN
	RESPONSE #100
		ActionOverride(Player5,DestroyItem("MISC3D")) // Golden Lion Figurine
		SetGlobal("SPSumFi1","GLOBAL",0)
		SetGlobal("SorcererSumFig1","GLOBAL",5)
		SetGlobalTimer("PSummonedJoolon","GLOBAL",FIVE_TURNS)
END

IF
	HasItem("MISC3E",Player5) // Black Spider Figurine
	Global("SPSumFi2","GLOBAL",1)
THEN
	RESPONSE #100
		ActionOverride(Player5,DestroyItem("MISC3E")) // Black Spider Figurine
		SetGlobal("SPSumFi2","GLOBAL",0)
		SetGlobal("SorcererSumFig2","GLOBAL",5)
		SetGlobalTimer("PSummonedKitthix","GLOBAL",FIVE_TURNS)
END

IF
	HasItem("MISC7T",Player5) // Moon Dog Figurine
	Global("SPSumFi3","GLOBAL",1)
THEN
	RESPONSE #100
		ActionOverride(Player5,DestroyItem("MISC7T")) // Moon Dog Figurine
		SetGlobal("SPSumFi3","GLOBAL",0)
		SetGlobal("SorcererSumFig3","GLOBAL",5)
		SetGlobalTimer("PSummonedCerebus","GLOBAL",FIVE_TURNS)
END

IF
	Global("SorcererSumFig1","GLOBAL",5)
	GlobalTimerExpired("PSummonedJoolon","GLOBAL")
	!StateCheck(Player5,STATE_DEAD)
	!InventoryFull(Player5)
THEN
	RESPONSE #100
		GiveItemCreate("MISC3D",Player5,0,0,0) // Golden Lion Figurine
		SetGlobal("SorcererSumFig1","GLOBAL",0)
		DisplayStringHead(Player5,10558) // Your figurine returns.
		Wait(1)
		DisplayStringHead(Player5,33125) // Golden Lion Figurine
END

IF
	Global("SorcererSumFig2","GLOBAL",5)
	GlobalTimerExpired("PSummonedKitthix","GLOBAL")
	!StateCheck(Player5,STATE_DEAD)
	!InventoryFull(Player5)
THEN
	RESPONSE #100
		GiveItemCreate("MISC3E",Player5,0,0,0) // Black Spider Figurine
		SetGlobal("SorcererSumFig2","GLOBAL",0)
		DisplayStringHead(Player5,10558) // Your figurine returns.
		Wait(1)
		DisplayStringHead(Player5,38529) // Black Spider Figurine
END

IF
	Global("SorcererSumFig3","GLOBAL",5)
	GlobalTimerExpired("PSummonedCerebus","GLOBAL")
	!StateCheck(Player5,STATE_DEAD)
	!InventoryFull(Player5)
THEN
	RESPONSE #100
		GiveItemCreate("MISC7T",Player5,0,0,0) // Moon Dog Figurine
		SetGlobal("SorcererSumFig3","GLOBAL",0)
		DisplayStringHead(Player5,10558) // Your figurine returns.
		Wait(1)
		DisplayStringHead(Player5,31964) // Moon Dog Figurine
END

IF
	HasItem("MISC3D",Player6) // Golden Lion Figurine
	Global("SPSumFi1","GLOBAL",1)
THEN
	RESPONSE #100
		ActionOverride(Player6,DestroyItem("MISC3D")) // Golden Lion Figurine
		SetGlobal("SPSumFi1","GLOBAL",0)
		SetGlobal("SorcererSumFig1","GLOBAL",6)
		SetGlobalTimer("PSummonedJoolon","GLOBAL",FIVE_TURNS)
END

IF
	HasItem("MISC3E",Player6) // Black Spider Figurine
	Global("SPSumFi2","GLOBAL",1)
THEN
	RESPONSE #100
		ActionOverride(Player6,DestroyItem("MISC3E")) // Black Spider Figurine
		SetGlobal("SPSumFi2","GLOBAL",0)
		SetGlobal("SorcererSumFig2","GLOBAL",6)
		SetGlobalTimer("PSummonedKitthix","GLOBAL",FIVE_TURNS)
END

IF
	HasItem("MISC7T",Player6) // Moon Dog Figurine
	Global("SPSumFi3","GLOBAL",1)
THEN
	RESPONSE #100
		ActionOverride(Player6,DestroyItem("MISC7T")) // Moon Dog Figurine
		SetGlobal("SPSumFi3","GLOBAL",0)
		SetGlobal("SorcererSumFig3","GLOBAL",6)
		SetGlobalTimer("PSummonedCerebus","GLOBAL",FIVE_TURNS)
END

IF
	Global("SorcererSumFig1","GLOBAL",6)
	GlobalTimerExpired("PSummonedJoolon","GLOBAL")
	!StateCheck(Player6,STATE_DEAD)
	!InventoryFull(Player6)
THEN
	RESPONSE #100
		GiveItemCreate("MISC3D",Player6,0,0,0) // Golden Lion Figurine
		SetGlobal("SorcererSumFig1","GLOBAL",0)
		DisplayStringHead(Player6,10558) // Your figurine returns.
		Wait(1)
		DisplayStringHead(Player6,33125) // Golden Lion Figurine
END

IF
	Global("SorcererSumFig2","GLOBAL",6)
	GlobalTimerExpired("PSummonedKitthix","GLOBAL")
	!StateCheck(Player6,STATE_DEAD)
	!InventoryFull(Player6)
THEN
	RESPONSE #100
		GiveItemCreate("MISC3E",Player6,0,0,0) // Black Spider Figurine
		SetGlobal("SorcererSumFig2","GLOBAL",0)
		DisplayStringHead(Player6,10558) // Your figurine returns.
		Wait(1)
		DisplayStringHead(Player6,38529) // Black Spider Figurine
END

IF
	Global("SorcererSumFig3","GLOBAL",6)
	GlobalTimerExpired("PSummonedCerebus","GLOBAL")
	!StateCheck(Player6,STATE_DEAD)
	!InventoryFull(Player6)
THEN
	RESPONSE #100
		GiveItemCreate("MISC7T",Player6,0,0,0) // Moon Dog Figurine
		SetGlobal("SorcererSumFig3","GLOBAL",0)
		DisplayStringHead(Player6,10558) // Your figurine returns.
		Wait(1)
		DisplayStringHead(Player6,31964) // Moon Dog Figurine
END

IF
	Global("player1_is_antipaladin","GLOBAL",1)
	!Reputation(Player1,10)
THEN
	RESPONSE #100
		ReputationSet(10)
END

IF
	HasItem("kibaday",Player1) // Tuki Kiba
	OR(2)
		TimeOfDay(DUSK)
		TimeOfDay(NIGHT)
THEN
	RESPONSE #100
		TakeItemReplace("kibaxx","kibaday",Player1) // Tuki Kiba
END

IF
	HasItem("kibaday",Player2) // Tuki Kiba
	OR(2)
		TimeOfDay(DUSK)
		TimeOfDay(NIGHT)
THEN
	RESPONSE #100
		TakeItemReplace("kibaxx","kibaday",Player2) // Tuki Kiba
END

IF
	HasItem("kibaday",Player3) // Tuki Kiba
	OR(2)
		TimeOfDay(DUSK)
		TimeOfDay(NIGHT)
THEN
	RESPONSE #100
		TakeItemReplace("kibaxx","kibaday",Player3) // Tuki Kiba
END

IF
	HasItem("kibaday",Player4) // Tuki Kiba
	OR(2)
		TimeOfDay(DUSK)
		TimeOfDay(NIGHT)
THEN
	RESPONSE #100
		TakeItemReplace("kibaxx","kibaday",Player4) // Tuki Kiba
END

IF
	HasItem("kibaday",Player5) // Tuki Kiba
	OR(2)
		TimeOfDay(DUSK)
		TimeOfDay(NIGHT)
THEN
	RESPONSE #100
		TakeItemReplace("kibaxx","kibaday",Player5) // Tuki Kiba
END

IF
	HasItem("kibaday",Player6) // Tuki Kiba
	OR(2)
		TimeOfDay(DUSK)
		TimeOfDay(NIGHT)
THEN
	RESPONSE #100
		TakeItemReplace("kibaxx","kibaday",Player6) // Tuki Kiba
END

IF
	HasItem("kibaxx",Player1) // Tuki Kiba
	OR(2)
		TimeOfDay(DAY)
		TimeOfDay(MORNING)
THEN
	RESPONSE #100
		TakeItemReplace("kibaday","kibaxx",Player1) // Tuki Kiba
END

IF
	HasItem("kibaxx",Player2) // Tuki Kiba
	OR(2)
		TimeOfDay(DAY)
		TimeOfDay(MORNING)
THEN
	RESPONSE #100
		TakeItemReplace("kibaday","kibaxx",Player2) // Tuki Kiba
END

IF
	HasItem("kibaxx",Player3) // Tuki Kiba
	OR(2)
		TimeOfDay(DAY)
		TimeOfDay(MORNING)
THEN
	RESPONSE #100
		TakeItemReplace("kibaday","kibaxx",Player3) // Tuki Kiba
END

IF
	HasItem("kibaxx",Player4) // Tuki Kiba
	OR(2)
		TimeOfDay(DAY)
		TimeOfDay(MORNING)
THEN
	RESPONSE #100
		TakeItemReplace("kibaday","kibaxx",Player4) // Tuki Kiba
END

IF
	HasItem("kibaxx",Player5) // Tuki Kiba
	OR(2)
		TimeOfDay(DAY)
		TimeOfDay(MORNING)
THEN
	RESPONSE #100
		TakeItemReplace("kibaday","kibaxx",Player5) // Tuki Kiba
END

IF
	HasItem("kibaxx",Player6) // Tuki Kiba
	OR(2)
		TimeOfDay(DAY)
		TimeOfDay(MORNING)
THEN
	RESPONSE #100
		TakeItemReplace("kibaday","kibaxx",Player6) // Tuki Kiba
END

IF
	Global("m2spawnhelpneeded","GLOBAL",1)
	CombatCounter(0)
	PartyRested()
THEN
	RESPONSE #100
		CreateCreatureOffScreen("m2guard2",0)
		SetGlobal("m2spawnhelpneeded","GLOBAL",2)
END

IF
	PartyHasItem("mintgoH") // Heart
	PartyHasItem("mintgolA") // Arms and Legs
	PartyHasItem("mintgolR") // Body
	PartyHasItem("mintgolB") // Brain
	PartyHasItem("mintgolS") // Skull
THEN
	RESPONSE #100
		TakePartyItem("mintgoH") // Heart
		TakePartyItem("mintgolA") // Arms and Legs
		TakePartyItem("mintgolR") // Body
		TakePartyItem("mintgolB") // Brain
		TakeItemReplace("mintgolF","mintgolS",Player1) // Skull
		DisplayStringHead(Player1,79684) // The body parts have vanished into thin air. They are replaced with a warm figurine.
END

IF
	Global("bgarival","GLOBAL",3)
	GlobalTimerExpired("RiatavinPlague","GLOBAL")
THEN
	RESPONSE #100
		StartCutSceneMode()
		StartCutScene("Riatplag")
		SetGlobal("bgarival","GLOBAL",4)
END

IF
	Global("riatslay","GLOBAL",1)
THEN
	RESPONSE #100
		StartCutSceneMode()
		StartCutScene("riatslay")
		SetGlobal("riatslay","GLOBAL",2)
END

IF
	CombatCounter(0)
	Global("DD_KEEP_PLOT","GLOBAL",1)
	GlobalTimerExpired("DDPLOTA1_entry","GLOBAL")
	OR(2)
		AreaType(CITY)
		AreaType(FOREST)
THEN
	RESPONSE #100
		SetGlobal("DD_KEEP_PLOT","GLOBAL",2)
		SetGlobalTimer("DDPLOTA2_entry","GLOBAL",TWO_DAYS)
		CreateCreatureObjectOffset("DDPLOTA1",Player1,[1000.1000]) // Traveller
	RESPONSE #100
		SetGlobal("DD_KEEP_PLOT","GLOBAL",2)
		SetGlobalTimer("DDPLOTA2_entry","GLOBAL",TWO_DAYS)
		CreateCreatureObjectOffset("DDPLOTA1",Player1,[-1000.-1000]) // Traveller
	RESPONSE #100
		SetGlobal("DD_KEEP_PLOT","GLOBAL",2)
		SetGlobalTimer("DDPLOTA2_entry","GLOBAL",TWO_DAYS)
		CreateCreatureObjectOffset("DDPLOTA1",Player1,[-1000.1000]) // Traveller
	RESPONSE #100
		SetGlobal("DD_KEEP_PLOT","GLOBAL",2)
		SetGlobalTimer("DDPLOTA2_entry","GLOBAL",TWO_DAYS)
		CreateCreatureObjectOffset("DDPLOTA1",Player1,[1000.-1000]) // Traveller
END

IF
	Global("artraise","GLOBAL",1)
THEN
	RESPONSE #100
		SetGlobalTimer("artjarlrise","GLOBAL",ONE_DAY)
		SetGlobal("artraise","GLOBAL",2)
END

IF
	Global("risetimex","GLOBAL",0)
	GlobalTimerExpired("artjarlrise","GLOBAL")
THEN
	RESPONSE #100
		FadeToColor([20.0],0)
		Wait(2)
		SetGlobal("risetimex","GLOBAL",1)
		StartCutSceneMode()
		StartCutScene("raiseart")
END

IF
	HasItemEquiped("DDves01",Player1) // Blade of Sandglass
	!Name("vesine",Player1)
THEN
	RESPONSE #100
		ActionOverride(Player1,DropItem("DDves01",[-1.-1])) // Blade of Sandglass
		ActionOverride(Player1,PickUpItem("DDves01")) // Blade of Sandglass
		ApplyDamage(Player1,15,ELECTRICITY)
		ApplyDamage(Player1,5,COLD)
END

IF
	HasItemEquiped("DDves01",Player2) // Blade of Sandglass
	!Name("vesine",Player2)
THEN
	RESPONSE #100
		ActionOverride(Player2,DropItem("DDves01",[-1.-1])) // Blade of Sandglass
		ActionOverride(Player2,PickUpItem("DDves01")) // Blade of Sandglass
		ApplyDamage(Player2,15,ELECTRICITY)
		ApplyDamage(Player2,5,COLD)
END

IF
	HasItemEquiped("DDves01",Player3) // Blade of Sandglass
	!Name("vesine",Player3)
THEN
	RESPONSE #100
		ActionOverride(Player3,DropItem("DDves01",[-1.-1])) // Blade of Sandglass
		ActionOverride(Player3,PickUpItem("DDves01")) // Blade of Sandglass
		ApplyDamage(Player3,15,ELECTRICITY)
		ApplyDamage(Player3,5,COLD)
END

IF
	HasItemEquiped("DDves01",Player4) // Blade of Sandglass
	!Name("vesine",Player4)
THEN
	RESPONSE #100
		ActionOverride(Player4,DropItem("DDves01",[-1.-1])) // Blade of Sandglass
		ActionOverride(Player4,PickUpItem("DDves01")) // Blade of Sandglass
		ApplyDamage(Player4,15,ELECTRICITY)
		ApplyDamage(Player4,5,COLD)
END

IF
	HasItemEquiped("DDves01",Player5) // Blade of Sandglass
	!Name("vesine",Player5)
THEN
	RESPONSE #100
		ActionOverride(Player5,DropItem("DDves01",[-1.-1])) // Blade of Sandglass
		ActionOverride(Player5,PickUpItem("DDves01")) // Blade of Sandglass
		ApplyDamage(Player5,15,ELECTRICITY)
		ApplyDamage(Player5,5,COLD)
END

IF
	HasItemEquiped("DDves01",Player6) // Blade of Sandglass
	!Name("vesine",Player6)
THEN
	RESPONSE #100
		ActionOverride(Player6,DropItem("DDves01",[-1.-1])) // Blade of Sandglass
		ActionOverride(Player6,PickUpItem("DDves01")) // Blade of Sandglass
		ApplyDamage(Player6,15,ELECTRICITY)
		ApplyDamage(Player6,5,COLD)
END

IF
	GlobalTimerExpired("riatwardback","GLOBAL")
	GlobalGT("mageriatward","GLOBAL",0)
THEN
	RESPONSE #100
		SetGlobal("mageriatward","GLOBAL",0)
END

IF
	InParty("robilard")
	Global("Robilardattack01","GLOBAL",0)
THEN
	RESPONSE #100
		SetGlobalTimer("Robattack01","GLOBAL",THREE_DAYS)
		SetGlobal("Robilardattack01","GLOBAL",1)
END

IF
	InParty("Robilard")
	Global("Robilardattack01","GLOBAL",1)
	GlobalTimerExpired("Robattack01","GLOBAL")
	AreaType(OUTDOOR)
THEN
	RESPONSE #100
		CreateVisualEffectObject("spdimndr",Player1)
		Wait(2)
		CreateCreatureObject("roborb01",Player1,0,0,0) // Waterdeep Assassination Wizard
		SetGlobal("Robilardattack01","GLOBAL",2)
END

IF
	Dead("roborb01") // Waterdeep Assassination Wizard
	InParty("robilard")
	Global("Robilardattack01","GLOBAL",2)
THEN
	RESPONSE #100
		SetGlobal("RobilardAttack01","GLOBAL",3)
		ActionOverride("robilard",StartDialog("orbrob01",Player1))
END

IF
	InParty("robilard")
	Global("Robilardattack01","GLOBAL",3)
	LevelGT(Player1,16)
THEN
	RESPONSE #100
		CreateVisualEffectObject("spplanar",Player1)
		CreateVisualEffectObject("spportal",Player1)
		Wait(1)
		CreateVisualEffectObject("spdimndr",Player1)
		Wait(1)
		CreateCreatureObject("lv16rob1",Player1,0,0,0) // Bregan D'aerth Assassin
		CreateCreatureObject("lv16rob2",Player1,0,0,0) // Bregan D'aerth Assassin
		CreateCreatureObject("lv16rob3",Player1,0,0,0) // Bregan D'aerth Assassin
		CreateCreatureObject("lv16rob4",Player1,0,0,0) // Bregan D'aerth Assassin
		SetGlobal("Robilardattack01","GLOBAL",4)
END

IF
	Dead("lv16rob4") // Bregan D'aerth Assassin
	Dead("lv16rob3") // Bregan D'aerth Assassin
	Dead("lv16rob2") // Bregan D'aerth Assassin
	Dead("lv16rob1") // Bregan D'aerth Assassin
	Global("Robilardattack01","GLOBAL",4)
	!Dead("robilard") // Robillard
THEN
	RESPONSE #100
		SetGlobal("Robilardattack01","GLOBAL",5)
		ActionOverride("robilard",StartDialog("drowrob1",Player1))
END

IF
	Global("Robilardattack01","GLOBAL",5)
	InParty("robilard")
THEN
	RESPONSE #100
		SetGlobalTimer("robishowdown","GLOBAL",FOUR_DAYS)
		SetGlobal("Robilardattack01","GLOBAL",6)
END

IF
	Global("Robilardattack01","GLOBAL",6)
	GlobalTimerExpired("robishowdown","GLOBAL")
	InParty("robilard")
THEN
	RESPONSE #100
		SetGlobal("Robilardattack01","GLOBAL",7)
		StartCutSceneMode()
		StartCutScene("robimov1")
END

IF
	InParty("robilard")
	Dead("robend01") // Host Tower Archmage
	Dead("robend02") // Host Tower Archmage
	Global("Robilardattack01","GLOBAL",7)
	!Dead("robilard") // Robillard
THEN
	RESPONSE #100
		SetGlobal("Robilardattack01","GLOBAL",8)
		ActionOverride("robilard",StartDialog("endedrob",Player1))
END

IF
	InParty("adario")
	Global("adarioquests","GLOBAL",0)
THEN
	RESPONSE #100
		SetGlobalTimer("adarioquesttalk","GLOBAL",ONE_DAY)
		SetGlobal("adarioquests","GLOBAL",1)
END

IF
	Global("adarioquests","GLOBAL",1)
	InParty("adario")
	!Dead("adario")
	GlobalTimerExpired("adarioquesttalk","GLOBAL")
THEN
	RESPONSE #100
		SetGlobal("adarioquests","GLOBAL",2)
		ActionOverride("adario",StartDialog("darioQ01",Player1))
END

IF
	Global("adarioquests","GLOBAL",6)
	GlobalTimerExpired("kalvarasquest2","GLOBAL")
	InParty("adario")
	!Dead("adario")
THEN
	RESPONSE #100
		SetGlobal("adarioquests","GLOBAL",7)
		ActionOverride("adario",StartDialog("darioQ03",Player1))
END

IF
	InParty("adario")
	!Dead("adario")
	Global("adarioquests","GLOBAL",8)
	GlobalTimerExpired("kalvarasquest2b","GLOBAL")
	!Dead("kalvassa") // Kalvassa
THEN
	RESPONSE #100
		SetGlobal("adarioquests","GLOBAL",9)
		ActionOverride("adario",StartDialog("darioQ04",Player1))
END

IF
	Global("adarioquests","GLOBAL",11)
	GlobalTimerExpired("kalvarasCrossed","GLOBAL")
	InParty("adario")
	!Dead("adario")
THEN
	RESPONSE #100
		SetGlobal("adarioquests","GLOBAL",12)
		CreateVisualEffectObject("spcloud2","adario")
		CreateVisualEffectObject("spcloud2",Player1)
		CreateVisualEffectObject("spcloud1",Player2)
		CreateVisualEffectObject("spcloud2",Player3)
		Wait(1)
		CreateVisualEffectObject("spcloud1","adario")
		CreateVisualEffectObject("spcloud2",Player1)
		CreateVisualEffectObject("spcloud1",Player2)
		CreateVisualEffectObject("spcloud2",Player3)
		Wait(1)
		CreateCreatureObjectOffset("dariomsg","adario",[150.0]) // Calimport Messenger
END

IF
	Global("harperxzarfued","GLOBAL",0)
	Global("ENDOFBG1","GLOBAL",2)
	Global("ENDOFBG1","GLOBAL",2)
	InParty("Xzar")
	InParty("Montaron")
THEN
	RESPONSE #100
		SetGlobalTimer("fuedxzar","GLOBAL",FIVE_DAYS)
		SetGlobal("harperxzarfued","GLOBAL",1)
END

IF
	Global("harperxzarfued","GLOBAL",1)
	GlobalTimerExpired("fuedxzar","GLOBAL")
	InParty("Xzar")
	InParty("Montaron")
	!Dead("Xzar") // Xzar
	!Dead("Montaron")
	AreaType(OUTDOOR)
THEN
	RESPONSE #100
		SetGlobal("harperxzarfued","GLOBAL",2)
		CreateCreatureObjectDoor("harpass2",Player1,0,0,0) // Lucette
END

IF
	Global("harperxzarfued","GLOBAL",3)
THEN
	RESPONSE #100
		SetGlobal("harperxzarfued","GLOBAL",4)
		CreateCreatureObjectDoor("harpatt1",Player1,0,0,0) // Harper
		CreateCreatureObjectDoor("harpatt2",Player1,0,0,0) // Harper
		CreateCreatureObjectDoor("harpatt3",Player1,0,0,0) // Harper
END

IF
	Global("harperxzarfued","GLOBAL",4)
	Dead("harpatt1") // Harper
	Dead("harpatt2") // Harper
	Dead("harpatt3") // Harper
	Dead("harpass2") // Lucette
THEN
	RESPONSE #100
		AddXPObject("Xzar",75000)
		AddXPObject("Montaron",75000)
		SetGlobal("harperxzarfued","GLOBAL",5)
		ActionOverride("Xzar",StartDialog("fuedendx",Player1))
END

IF
	Global("ENDOFBG1","GLOBAL",2)
	InParty("Kagain")
	Global("ENDOFBG1","GLOBAL",2)
	InParty("Yeslick")
	!Dead("Kagain") // Kagain
	!Dead("Yeslick")
THEN
	RESPONSE #100
		ActionOverride("Yeslick",Attack("Kagain"))
		ActionOverride("Kagain",Attack("Yeslick"))
END

IF
	InParty("Xzar")
	!Dead("Xzar") // Xzar
	PartyHasItem("MISC5U") // Montaron's Body
	Global("montyxzar","GLOBAL",0)
THEN
	RESPONSE #100
		Wait(2)
		SetGlobal("montyxzar","GLOBAL",2)
		ActionOverride("Xzar",StartDialog("himonty1",Player1))
END

IF
	Global("montyxzar","GLOBAL",3)
THEN
	RESPONSE #100
		SetGlobal("montyxzar","GLOBAL",4)
		ClearAllActions()
		StartCutSceneMode()
		StartCutScene("montyras")
END

IF
	Global("montyxzar","GLOBAL",5)
THEN
	RESPONSE #100
		ActionOverride("Xzar",StartDialog("montback",Player1))
		SetGlobal("montyxzar","GLOBAL",6)
END

IF
	Global("montyxzar","GLOBAL",6)
THEN
	RESPONSE #100
		SetGlobal("montyxzar","GLOBAL",7)
		ActionOverride("Montaron",StartDialogueNoSet([PC]))
END

IF
	Global("montbootwithxzar","GLOBAL",1)
THEN
	RESPONSE #100
		SetGlobal("montbootwithxzar","GLOBAL",2)
		ActionOverride("Xzar",StartDialog("xzarthxa",Player1))
END

IF
	Global("montjoinwithxzar","GLOBAL",1)
THEN
	RESPONSE #100
		SetGlobal("montjoinwithxzar","GLOBAL",2)
		ActionOverride("Xzar",StartDialog("xzarthxb",Player1))
END

IF
	Global("DarkestDayStart","GLOBAL",2)
	AreaType(OUTDOOR)
	Global("DarkestDay_DarkTimer","GLOBAL",0)
THEN
	RESPONSE #100
		Weather(RAIN)
		SetGlobalTimer("CauseDarkness","GLOBAL",TEN_TURNS)
		SetGlobal("DarkestDay_DarkTimer","GLOBAL",1)
	RESPONSE #100
		Weather(SNOW)
		SetGlobalTimer("CauseDarkness","GLOBAL",TEN_TURNS)
		SetGlobal("DarkestDay_DarkTimer","GLOBAL",1)
END

IF
	GlobalTimerExpired("CauseDarkness","GLOBAL")
	Global("DarkestDay_DarkTimer","GLOBAL",1)
THEN
	RESPONSE #100
		Weather(RAIN)
		SetGlobalTimer("CauseDarkness","GLOBAL",TEN_TURNS)
		SetGlobal("DarkestDay_DarkTimer","GLOBAL",0)
	RESPONSE #100
		Weather(SNOW)
		SetGlobalTimer("CauseDarkness","GLOBAL",TEN_TURNS)
		SetGlobal("DarkestDay_DarkTimer","GLOBAL",0)
END

IF
	Global("CbPlayer1Has_Life_Eater","GLOBAL",5)
	!HasItem("CBHBLFET",Player1) // Hellblade:  Lifeeater
	PartyHasItem("CBHBLFET") // Hellblade:  Lifeeater
THEN
	RESPONSE #100
		TakePartyItem("CBHBLFET") // Hellblade:  Lifeeater
		GiveItemCreate("CBHBLFET",Player1,1,0,0) // Hellblade:  Lifeeater
		ReputationInc(-1)
END

IF
	Global("CbPlayer1Has_Life_Eater","GLOBAL",5)
	!HasItem("CBHBLFET",Player1) // Hellblade:  Lifeeater
	!PartyHasItem("CBHBLFET") // Hellblade:  Lifeeater
THEN
	RESPONSE #100
		SetInterrupt(FALSE)
		ActionOverride(Player1,PickUpItem("CBHBLFET")) // Hellblade:  Lifeeater
		ReputationInc(-1)
		SetInterrupt(TRUE)
END

IF
	GlobalTimerExpired("CbPlayer1_Life_EaterTimerTwo","GLOBAL")
	Global("CbPlayer1Has_Life_Eater","GLOBAL",3)
	HasItem("CBHBLFET",Player1) // Hellblade:  Lifeeater
THEN
	RESPONSE #100
		SetGlobal("CbPlayer1Has_Life_Eater","GLOBAL",5)
		ChangeAlignment(Player1,CHAOTIC_EVIL)
END

IF
	Global("CbPlayer1Has_Life_Eater","GLOBAL",0)
	GlobalTimerExpired("CbLife_Eater_ForceReturn","GLOBAL")
THEN
	RESPONSE #100
		TakePartyItem("CBHBLFET") // Hellblade:  Lifeeater
		GiveItemCreate("CBHBLFET",Player1,1,0,0) // Hellblade:  Lifeeater
		SetGlobal("CbPlayer1Has_Life_Eater","GLOBAL",3)
		SetGlobalTimer("CbPlayer1_Life_EaterTimerTwo","GLOBAL",TWO_DAYS)
END

IF
	Global("CbPlayer1Has_Life_Eater","GLOBAL",3)
	!HasItem("CBHBLFET",Player1) // Hellblade:  Lifeeater
THEN
	RESPONSE #100
		SetGlobal("CbPlayer1Has_Life_Eater","GLOBAL",0)
		SetGlobalTimer("CbLife_Eater_ForceReturn","GLOBAL",TWO_DAYS)
END

IF
	Global("CbPlayer1Has_Life_Eater","GLOBAL",2)
	GlobalTimerExpired("CbPlayer1_Life_Eater_TimerOne","GLOBAL")
	HasItem("CBHBLFET",Player1) // Hellblade:  Lifeeater
THEN
	RESPONSE #100
		SetGlobal("CbPlayer1Has_Life_Eater","GLOBAL",3)
		ChangeAlignment(Player1,NEUTRAL_EVIL)
		SetGlobalTimer("CbPlayer1_Life_EaterTimerTwo","GLOBAL",SEVEN_DAYS)
END

IF
	Global("CbPlayer1Has_Life_Eater","GLOBAL",0)
	GlobalTimerExpired("CbLife_Eater_Returns","GLOBAL")
THEN
	RESPONSE #100
		TakePartyItem("CBHBLFET") // Hellblade:  Lifeeater
		GiveItemCreate("CBHBLFET",Player1,1,0,0) // Hellblade:  Lifeeater
		SetGlobal("CbPlayer1Has_Life_Eater","GLOBAL",1)
END

IF
	Global("CbPlayer1Has_Life_Eater","GLOBAL",2)
	!HasItem("CBHBLFET",Player1) // Hellblade:  Lifeeater
THEN
	RESPONSE #100
		SetGlobal("CbPlayer1Has_Life_Eater","GLOBAL",0)
		SetGlobalTimer("CbLife_Eater_Returns","GLOBAL",FOUR_DAYS)
END

IF
	Global("CbPlayer1Has_Life_Eater","GLOBAL",1)
THEN
	RESPONSE #100
		SetGlobal("CbPlayer1Has_Life_Eater","GLOBAL",2)
		SetGlobalTimer("CbPlayer1_Life_Eater_TimerOne","GLOBAL",SEVEN_DAYS)
END

IF
	HasItem("CBHBLFET",Player1) // Hellblade:  Lifeeater
	PartyHasItemIdentified("CBHBLFET") // Hellblade:  Lifeeater
	Global("CbPlayer1Has_Life_Eater","GLOBAL",0)
	!Global("CbPlayer2Has_Life_Eater","GLOBAL",1)
	!Global("CbPlayer3Has_Life_Eater","GLOBAL",1)
	!Global("CbPlayer4Has_Life_Eater","GLOBAL",1)
	!Global("CbPlayer5Has_Life_Eater","GLOBAL",1)
	!Global("CbPlayer6Has_Life_Eater","GLOBAL",1)
THEN
	RESPONSE #100
		SetGlobal("CbPlayer1Has_Life_Eater","GLOBAL",1)
END

IF
	Global("CbPlayer2Has_Life_Eater","GLOBAL",5)
	!HasItem("CBHBLFET",Player2) // Hellblade:  Lifeeater
	PartyHasItem("CBHBLFET") // Hellblade:  Lifeeater
THEN
	RESPONSE #100
		TakePartyItem("CBHBLFET") // Hellblade:  Lifeeater
		GiveItemCreate("CBHBLFET",Player2,1,0,0) // Hellblade:  Lifeeater
		ReputationInc(-1)
END

IF
	Global("CbPlayer2Has_Life_Eater","GLOBAL",5)
	!HasItem("CBHBLFET",Player2) // Hellblade:  Lifeeater
	!PartyHasItem("CBHBLFET") // Hellblade:  Lifeeater
THEN
	RESPONSE #100
		SetInterrupt(FALSE)
		ActionOverride(Player2,PickUpItem("CBHBLFET")) // Hellblade:  Lifeeater
		ReputationInc(-1)
		SetInterrupt(TRUE)
END

IF
	GlobalTimerExpired("CbPlayer2_Life_EaterTimerTwo","GLOBAL")
	Global("CbPlayer2Has_Life_Eater","GLOBAL",3)
	HasItem("CBHBLFET",Player2) // Hellblade:  Lifeeater
THEN
	RESPONSE #100
		SetGlobal("CbPlayer2Has_Life_Eater","GLOBAL",5)
		ChangeAlignment(Player2,CHAOTIC_EVIL)
END

IF
	Global("CbPlayer2Has_Life_Eater","GLOBAL",0)
	GlobalTimerExpired("CbLife_Eater_ForceReturn","GLOBAL")
THEN
	RESPONSE #100
		TakePartyItem("CBHBLFET") // Hellblade:  Lifeeater
		GiveItemCreate("CBHBLFET",Player2,1,0,0) // Hellblade:  Lifeeater
		SetGlobal("CbPlayer2Has_Life_Eater","GLOBAL",3)
		SetGlobalTimer("CbPlayer2_Life_EaterTimerTwo","GLOBAL",TWO_DAYS)
END

IF
	Global("CbPlayer2Has_Life_Eater","GLOBAL",3)
	!HasItem("CBHBLFET",Player2) // Hellblade:  Lifeeater
THEN
	RESPONSE #100
		SetGlobal("CbPlayer2Has_Life_Eater","GLOBAL",0)
		SetGlobalTimer("CbLife_Eater_ForceReturn","GLOBAL",TWO_DAYS)
END

IF
	Global("CbPlayer2Has_Life_Eater","GLOBAL",2)
	GlobalTimerExpired("CbPlayer2_Life_Eater_TimerOne","GLOBAL")
	HasItem("CBHBLFET",Player2) // Hellblade:  Lifeeater
THEN
	RESPONSE #100
		SetGlobal("CbPlayer2Has_Life_Eater","GLOBAL",3)
		ChangeAlignment(Player2,NEUTRAL_EVIL)
		SetGlobalTimer("CbPlayer2_Life_EaterTimerTwo","GLOBAL",SEVEN_DAYS)
END

IF
	Global("CbPlayer2Has_Life_Eater","GLOBAL",0)
	GlobalTimerExpired("CbLife_Eater_Returns","GLOBAL")
THEN
	RESPONSE #100
		TakePartyItem("CBHBLFET") // Hellblade:  Lifeeater
		GiveItemCreate("CBHBLFET",Player2,1,0,0) // Hellblade:  Lifeeater
		SetGlobal("CbPlayer2Has_Life_Eater","GLOBAL",1)
END

IF
	Global("CbPlayer2Has_Life_Eater","GLOBAL",2)
	!HasItem("CBHBLFET",Player2) // Hellblade:  Lifeeater
THEN
	RESPONSE #100
		SetGlobal("CbPlayer2Has_Life_Eater","GLOBAL",0)
		SetGlobalTimer("CbLife_Eater_Returns","GLOBAL",FOUR_DAYS)
END

IF
	Global("CbPlayer2Has_Life_Eater","GLOBAL",1)
THEN
	RESPONSE #100
		SetGlobal("CbPlayer2Has_Life_Eater","GLOBAL",2)
		SetGlobalTimer("CbPlayer2_Life_Eater_TimerOne","GLOBAL",SEVEN_DAYS)
END

IF
	HasItem("CBHBLFET",Player2) // Hellblade:  Lifeeater
	PartyHasItemIdentified("CBHBLFET") // Hellblade:  Lifeeater
	Global("CbPlayer2Has_Life_Eater","GLOBAL",0)
	!Global("CbPlayer1Has_Life_Eater","GLOBAL",1)
	!Global("CbPlayer3Has_Life_Eater","GLOBAL",1)
	!Global("CbPlayer4Has_Life_Eater","GLOBAL",1)
	!Global("CbPlayer5Has_Life_Eater","GLOBAL",1)
	!Global("CbPlayer6Has_Life_Eater","GLOBAL",1)
THEN
	RESPONSE #100
		SetGlobal("CbPlayer2Has_Life_Eater","GLOBAL",1)
END

IF
	Global("CbPlayer3Has_Life_Eater","GLOBAL",5)
	!HasItem("CBHBLFET",Player3) // Hellblade:  Lifeeater
	PartyHasItem("CBHBLFET") // Hellblade:  Lifeeater
THEN
	RESPONSE #100
		TakePartyItem("CBHBLFET") // Hellblade:  Lifeeater
		GiveItemCreate("CBHBLFET",Player3,1,0,0) // Hellblade:  Lifeeater
		ReputationInc(-1)
END

IF
	Global("CbPlayer3Has_Life_Eater","GLOBAL",5)
	!HasItem("CBHBLFET",Player3) // Hellblade:  Lifeeater
	!PartyHasItem("CBHBLFET") // Hellblade:  Lifeeater
THEN
	RESPONSE #100
		SetInterrupt(FALSE)
		ActionOverride(Player3,PickUpItem("CBHBLFET")) // Hellblade:  Lifeeater
		ReputationInc(-1)
		SetInterrupt(TRUE)
END

IF
	GlobalTimerExpired("CbPlayer3_Life_EaterTimerTwo","GLOBAL")
	Global("CbPlayer3Has_Life_Eater","GLOBAL",3)
	HasItem("CBHBLFET",Player3) // Hellblade:  Lifeeater
THEN
	RESPONSE #100
		SetGlobal("CbPlayer3Has_Life_Eater","GLOBAL",5)
		ChangeAlignment(Player3,CHAOTIC_EVIL)
END

IF
	Global("CbPlayer3Has_Life_Eater","GLOBAL",0)
	GlobalTimerExpired("CbLife_Eater_ForceReturn","GLOBAL")
THEN
	RESPONSE #100
		TakePartyItem("CBHBLFET") // Hellblade:  Lifeeater
		GiveItemCreate("CBHBLFET",Player3,1,0,0) // Hellblade:  Lifeeater
		SetGlobal("CbPlayer3Has_Life_Eater","GLOBAL",3)
		SetGlobalTimer("CbPlayer3_Life_EaterTimerTwo","GLOBAL",TWO_DAYS)
END

IF
	Global("CbPlayer3Has_Life_Eater","GLOBAL",3)
	!HasItem("CBHBLFET",Player3) // Hellblade:  Lifeeater
THEN
	RESPONSE #100
		SetGlobal("CbPlayer3Has_Life_Eater","GLOBAL",0)
		SetGlobalTimer("CbLife_Eater_ForceReturn","GLOBAL",TWO_DAYS)
END

IF
	Global("CbPlayer3Has_Life_Eater","GLOBAL",2)
	GlobalTimerExpired("CbPlayer3_Life_Eater_TimerOne","GLOBAL")
	HasItem("CBHBLFET",Player3) // Hellblade:  Lifeeater
THEN
	RESPONSE #100
		SetGlobal("CbPlayer3Has_Life_Eater","GLOBAL",3)
		ChangeAlignment(Player3,NEUTRAL_EVIL)
		SetGlobalTimer("CbPlayer3_Life_EaterTimerTwo","GLOBAL",SEVEN_DAYS)
END

IF
	Global("CbPlayer3Has_Life_Eater","GLOBAL",0)
	GlobalTimerExpired("CbLife_Eater_Returns","GLOBAL")
THEN
	RESPONSE #100
		TakePartyItem("CBHBLFET") // Hellblade:  Lifeeater
		GiveItemCreate("CBHBLFET",Player3,1,0,0) // Hellblade:  Lifeeater
		SetGlobal("CbPlayer3Has_Life_Eater","GLOBAL",1)
END

IF
	Global("CbPlayer3Has_Life_Eater","GLOBAL",2)
	!HasItem("CBHBLFET",Player3) // Hellblade:  Lifeeater
THEN
	RESPONSE #100
		SetGlobal("CbPlayer3Has_Life_Eater","GLOBAL",0)
		SetGlobalTimer("CbLife_Eater_Returns","GLOBAL",FOUR_DAYS)
END

IF
	Global("CbPlayer3Has_Life_Eater","GLOBAL",1)
THEN
	RESPONSE #100
		SetGlobal("CbPlayer3Has_Life_Eater","GLOBAL",2)
		SetGlobalTimer("CbPlayer3_Life_Eater_TimerOne","GLOBAL",SEVEN_DAYS)
END

IF
	HasItem("CBHBLFET",Player3) // Hellblade:  Lifeeater
	PartyHasItemIdentified("CBHBLFET") // Hellblade:  Lifeeater
	Global("CbPlayer3Has_Life_Eater","GLOBAL",0)
	!Global("CbPlayer1Has_Life_Eater","GLOBAL",1)
	!Global("CbPlayer2Has_Life_Eater","GLOBAL",1)
	!Global("CbPlayer4Has_Life_Eater","GLOBAL",1)
	!Global("CbPlayer5Has_Life_Eater","GLOBAL",1)
	!Global("CbPlayer6Has_Life_Eater","GLOBAL",1)
THEN
	RESPONSE #100
		SetGlobal("CbPlayer3Has_Life_Eater","GLOBAL",1)
END

IF
	Global("CbPlayer4Has_Life_Eater","GLOBAL",5)
	!HasItem("CBHBLFET",Player4) // Hellblade:  Lifeeater
	PartyHasItem("CBHBLFET") // Hellblade:  Lifeeater
THEN
	RESPONSE #100
		TakePartyItem("CBHBLFET") // Hellblade:  Lifeeater
		GiveItemCreate("CBHBLFET",Player4,1,0,0) // Hellblade:  Lifeeater
		ReputationInc(-1)
END

IF
	Global("CbPlayer4Has_Life_Eater","GLOBAL",5)
	!HasItem("CBHBLFET",Player4) // Hellblade:  Lifeeater
	!PartyHasItem("CBHBLFET") // Hellblade:  Lifeeater
THEN
	RESPONSE #100
		SetInterrupt(FALSE)
		ActionOverride(Player4,PickUpItem("CBHBLFET")) // Hellblade:  Lifeeater
		ReputationInc(-1)
		SetInterrupt(TRUE)
END

IF
	GlobalTimerExpired("CbPlayer4_Life_EaterTimerTwo","GLOBAL")
	Global("CbPlayer4Has_Life_Eater","GLOBAL",3)
	HasItem("CBHBLFET",Player4) // Hellblade:  Lifeeater
THEN
	RESPONSE #100
		SetGlobal("CbPlayer4Has_Life_Eater","GLOBAL",5)
		ChangeAlignment(Player4,CHAOTIC_EVIL)
END

IF
	Global("CbPlayer4Has_Life_Eater","GLOBAL",0)
	GlobalTimerExpired("CbLife_Eater_ForceReturn","GLOBAL")
THEN
	RESPONSE #100
		TakePartyItem("CBHBLFET") // Hellblade:  Lifeeater
		GiveItemCreate("CBHBLFET",Player4,1,0,0) // Hellblade:  Lifeeater
		SetGlobal("CbPlayer4Has_Life_Eater","GLOBAL",3)
		SetGlobalTimer("CbPlayer4_Life_EaterTimerTwo","GLOBAL",TWO_DAYS)
END

IF
	Global("CbPlayer4Has_Life_Eater","GLOBAL",3)
	!HasItem("CBHBLFET",Player4) // Hellblade:  Lifeeater
THEN
	RESPONSE #100
		SetGlobal("CbPlayer4Has_Life_Eater","GLOBAL",0)
		SetGlobalTimer("CbLife_Eater_ForceReturn","GLOBAL",TWO_DAYS)
END

IF
	Global("CbPlayer4Has_Life_Eater","GLOBAL",2)
	GlobalTimerExpired("CbPlayer4_Life_Eater_TimerOne","GLOBAL")
	HasItem("CBHBLFET",Player4) // Hellblade:  Lifeeater
THEN
	RESPONSE #100
		SetGlobal("CbPlayer4Has_Life_Eater","GLOBAL",3)
		ChangeAlignment(Player4,NEUTRAL_EVIL)
		SetGlobalTimer("CbPlayer4_Life_EaterTimerTwo","GLOBAL",SEVEN_DAYS)
END

IF
	Global("CbPlayer4Has_Life_Eater","GLOBAL",0)
	GlobalTimerExpired("CbLife_Eater_Returns","GLOBAL")
THEN
	RESPONSE #100
		TakePartyItem("CBHBLFET") // Hellblade:  Lifeeater
		GiveItemCreate("CBHBLFET",Player4,1,0,0) // Hellblade:  Lifeeater
		SetGlobal("CbPlayer4Has_Life_Eater","GLOBAL",1)
END

IF
	Global("CbPlayer4Has_Life_Eater","GLOBAL",2)
	!HasItem("CBHBLFET",Player4) // Hellblade:  Lifeeater
THEN
	RESPONSE #100
		SetGlobal("CbPlayer4Has_Life_Eater","GLOBAL",0)
		SetGlobalTimer("CbLife_Eater_Returns","GLOBAL",FOUR_DAYS)
END

IF
	Global("CbPlayer4Has_Life_Eater","GLOBAL",1)
THEN
	RESPONSE #100
		SetGlobal("CbPlayer4Has_Life_Eater","GLOBAL",2)
		SetGlobalTimer("CbPlayer4_Life_Eater_TimerOne","GLOBAL",SEVEN_DAYS)
END

IF
	HasItem("CBHBLFET",Player4) // Hellblade:  Lifeeater
	PartyHasItemIdentified("CBHBLFET") // Hellblade:  Lifeeater
	Global("CbPlayer4Has_Life_Eater","GLOBAL",0)
	!Global("CbPlayer1Has_Life_Eater","GLOBAL",1)
	!Global("CbPlayer2Has_Life_Eater","GLOBAL",1)
	!Global("CbPlayer3Has_Life_Eater","GLOBAL",1)
	!Global("CbPlayer5Has_Life_Eater","GLOBAL",1)
	!Global("CbPlayer6Has_Life_Eater","GLOBAL",1)
THEN
	RESPONSE #100
		SetGlobal("CbPlayer4Has_Life_Eater","GLOBAL",1)
END

IF
	Global("CbPlayer5Has_Life_Eater","GLOBAL",5)
	!HasItem("CBHBLFET",Player5) // Hellblade:  Lifeeater
	PartyHasItem("CBHBLFET") // Hellblade:  Lifeeater
THEN
	RESPONSE #100
		TakePartyItem("CBHBLFET") // Hellblade:  Lifeeater
		GiveItemCreate("CBHBLFET",Player5,1,0,0) // Hellblade:  Lifeeater
		ReputationInc(-1)
END

IF
	Global("CbPlayer5Has_Life_Eater","GLOBAL",5)
	!HasItem("CBHBLFET",Player5) // Hellblade:  Lifeeater
	!PartyHasItem("CBHBLFET") // Hellblade:  Lifeeater
THEN
	RESPONSE #100
		SetInterrupt(FALSE)
		ActionOverride(Player5,PickUpItem("CBHBLFET")) // Hellblade:  Lifeeater
		ReputationInc(-1)
		SetInterrupt(TRUE)
END

IF
	GlobalTimerExpired("CbPlayer5_Life_EaterTimerTwo","GLOBAL")
	Global("CbPlayer5Has_Life_Eater","GLOBAL",3)
	HasItem("CBHBLFET",Player5) // Hellblade:  Lifeeater
THEN
	RESPONSE #100
		SetGlobal("CbPlayer5Has_Life_Eater","GLOBAL",5)
		ChangeAlignment(Player5,CHAOTIC_EVIL)
END

IF
	Global("CbPlayer5Has_Life_Eater","GLOBAL",0)
	GlobalTimerExpired("CbLife_Eater_ForceReturn","GLOBAL")
THEN
	RESPONSE #100
		TakePartyItem("CBHBLFET") // Hellblade:  Lifeeater
		GiveItemCreate("CBHBLFET",Player5,1,0,0) // Hellblade:  Lifeeater
		SetGlobal("CbPlayer5Has_Life_Eater","GLOBAL",3)
		SetGlobalTimer("CbPlayer5_Life_EaterTimerTwo","GLOBAL",TWO_DAYS)
END

IF
	Global("CbPlayer5Has_Life_Eater","GLOBAL",3)
	!HasItem("CBHBLFET",Player5) // Hellblade:  Lifeeater
THEN
	RESPONSE #100
		SetGlobal("CbPlayer5Has_Life_Eater","GLOBAL",0)
		SetGlobalTimer("CbLife_Eater_ForceReturn","GLOBAL",TWO_DAYS)
END

IF
	Global("CbPlayer5Has_Life_Eater","GLOBAL",2)
	GlobalTimerExpired("CbPlayer5_Life_Eater_TimerOne","GLOBAL")
	HasItem("CBHBLFET",Player5) // Hellblade:  Lifeeater
THEN
	RESPONSE #100
		SetGlobal("CbPlayer5Has_Life_Eater","GLOBAL",3)
		ChangeAlignment(Player5,NEUTRAL_EVIL)
		SetGlobalTimer("CbPlayer5_Life_EaterTimerTwo","GLOBAL",SEVEN_DAYS)
END

IF
	Global("CbPlayer5Has_Life_Eater","GLOBAL",0)
	GlobalTimerExpired("CbLife_Eater_Returns","GLOBAL")
THEN
	RESPONSE #100
		TakePartyItem("CBHBLFET") // Hellblade:  Lifeeater
		GiveItemCreate("CBHBLFET",Player5,1,0,0) // Hellblade:  Lifeeater
		SetGlobal("CbPlayer5Has_Life_Eater","GLOBAL",1)
END

IF
	Global("CbPlayer5Has_Life_Eater","GLOBAL",2)
	!HasItem("CBHBLFET",Player5) // Hellblade:  Lifeeater
THEN
	RESPONSE #100
		SetGlobal("CbPlayer5Has_Life_Eater","GLOBAL",0)
		SetGlobalTimer("CbLife_Eater_Returns","GLOBAL",FOUR_DAYS)
END

IF
	Global("CbPlayer5Has_Life_Eater","GLOBAL",1)
THEN
	RESPONSE #100
		SetGlobal("CbPlayer5Has_Life_Eater","GLOBAL",2)
		SetGlobalTimer("CbPlayer5_Life_Eater_TimerOne","GLOBAL",SEVEN_DAYS)
END

IF
	HasItem("CBHBLFET",Player5) // Hellblade:  Lifeeater
	PartyHasItemIdentified("CBHBLFET") // Hellblade:  Lifeeater
	Global("CbPlayer5Has_Life_Eater","GLOBAL",0)
	!Global("CbPlayer1Has_Life_Eater","GLOBAL",1)
	!Global("CbPlayer2Has_Life_Eater","GLOBAL",1)
	!Global("CbPlayer3Has_Life_Eater","GLOBAL",1)
	!Global("CbPlayer4Has_Life_Eater","GLOBAL",1)
	!Global("CbPlayer6Has_Life_Eater","GLOBAL",1)
THEN
	RESPONSE #100
		SetGlobal("CbPlayer5Has_Life_Eater","GLOBAL",1)
END

IF
	Global("CbPlayer6Has_Life_Eater","GLOBAL",5)
	!HasItem("CBHBLFET",Player6) // Hellblade:  Lifeeater
	PartyHasItem("CBHBLFET") // Hellblade:  Lifeeater
THEN
	RESPONSE #100
		TakePartyItem("CBHBLFET") // Hellblade:  Lifeeater
		GiveItemCreate("CBHBLFET",Player6,1,0,0) // Hellblade:  Lifeeater
		ReputationInc(-1)
END

IF
	Global("CbPlayer6Has_Life_Eater","GLOBAL",5)
	!HasItem("CBHBLFET",Player6) // Hellblade:  Lifeeater
	!PartyHasItem("CBHBLFET") // Hellblade:  Lifeeater
THEN
	RESPONSE #100
		SetInterrupt(FALSE)
		ActionOverride(Player6,PickUpItem("CBHBLFET")) // Hellblade:  Lifeeater
		ReputationInc(-1)
		SetInterrupt(TRUE)
END

IF
	GlobalTimerExpired("CbPlayer6_Life_EaterTimerTwo","GLOBAL")
	Global("CbPlayer6Has_Life_Eater","GLOBAL",3)
	HasItem("CBHBLFET",Player6) // Hellblade:  Lifeeater
THEN
	RESPONSE #100
		SetGlobal("CbPlayer6Has_Life_Eater","GLOBAL",5)
		ChangeAlignment(Player6,CHAOTIC_EVIL)
END

IF
	Global("CbPlayer6Has_Life_Eater","GLOBAL",0)
	GlobalTimerExpired("CbLife_Eater_ForceReturn","GLOBAL")
THEN
	RESPONSE #100
		TakePartyItem("CBHBLFET") // Hellblade:  Lifeeater
		GiveItemCreate("CBHBLFET",Player6,1,0,0) // Hellblade:  Lifeeater
		SetGlobal("CbPlayer6Has_Life_Eater","GLOBAL",3)
		SetGlobalTimer("CbPlayer6_Life_EaterTimerTwo","GLOBAL",TWO_DAYS)
END

IF
	Global("CbPlayer6Has_Life_Eater","GLOBAL",3)
	!HasItem("CBHBLFET",Player6) // Hellblade:  Lifeeater
THEN
	RESPONSE #100
		SetGlobal("CbPlayer6Has_Life_Eater","GLOBAL",0)
		SetGlobalTimer("CbLife_Eater_ForceReturn","GLOBAL",TWO_DAYS)
END

IF
	Global("CbPlayer6Has_Life_Eater","GLOBAL",2)
	GlobalTimerExpired("CbPlayer6_Life_Eater_TimerOne","GLOBAL")
	HasItem("CBHBLFET",Player6) // Hellblade:  Lifeeater
THEN
	RESPONSE #100
		SetGlobal("CbPlayer6Has_Life_Eater","GLOBAL",3)
		ChangeAlignment(Player6,NEUTRAL_EVIL)
		SetGlobalTimer("CbPlayer6_Life_EaterTimerTwo","GLOBAL",SEVEN_DAYS)
END

IF
	Global("CbPlayer6Has_Life_Eater","GLOBAL",0)
	GlobalTimerExpired("CbLife_Eater_Returns","GLOBAL")
THEN
	RESPONSE #100
		TakePartyItem("CBHBLFET") // Hellblade:  Lifeeater
		GiveItemCreate("CBHBLFET",Player6,1,0,0) // Hellblade:  Lifeeater
		SetGlobal("CbPlayer6Has_Life_Eater","GLOBAL",1)
END

IF
	Global("CbPlayer6Has_Life_Eater","GLOBAL",2)
	!HasItem("CBHBLFET",Player6) // Hellblade:  Lifeeater
THEN
	RESPONSE #100
		SetGlobal("CbPlayer6Has_Life_Eater","GLOBAL",0)
		SetGlobalTimer("CbLife_Eater_Returns","GLOBAL",FOUR_DAYS)
END

IF
	Global("CbPlayer6Has_Life_Eater","GLOBAL",1)
THEN
	RESPONSE #100
		SetGlobal("CbPlayer6Has_Life_Eater","GLOBAL",2)
		SetGlobalTimer("CbPlayer6_Life_Eater_TimerOne","GLOBAL",SEVEN_DAYS)
END

IF
	HasItem("CBHBLFET",Player6) // Hellblade:  Lifeeater
	PartyHasItemIdentified("CBHBLFET") // Hellblade:  Lifeeater
	Global("CbPlayer6Has_Life_Eater","GLOBAL",0)
	!Global("CbPlayer1Has_Life_Eater","GLOBAL",1)
	!Global("CbPlayer2Has_Life_Eater","GLOBAL",1)
	!Global("CbPlayer3Has_Life_Eater","GLOBAL",1)
	!Global("CbPlayer4Has_Life_Eater","GLOBAL",1)
	!Global("CbPlayer5Has_Life_Eater","GLOBAL",1)
THEN
	RESPONSE #100
		SetGlobal("CbPlayer6Has_Life_Eater","GLOBAL",1)
END

IF
	Global("CbPlayer1Has_Soul_drainer","GLOBAL",5)
	!HasItem("CBHBSLDR",Player1) // Hellblade:  Souldrainer
	PartyHasItem("CBHBSLDR") // Hellblade:  Souldrainer
THEN
	RESPONSE #100
		TakePartyItem("CBHBSLDR") // Hellblade:  Souldrainer
		GiveItemCreate("CBHBSLDR",Player1,1,0,0) // Hellblade:  Souldrainer
		ReputationInc(-1)
END

IF
	Global("CbPlayer1Has_Soul_drainer","GLOBAL",5)
	!HasItem("CBHBSLDR",Player1) // Hellblade:  Souldrainer
	!PartyHasItem("CBHBSLDR") // Hellblade:  Souldrainer
THEN
	RESPONSE #100
		SetInterrupt(FALSE)
		ActionOverride(Player1,PickUpItem("CBHBSLDR")) // Hellblade:  Souldrainer
		ReputationInc(-1)
		SetInterrupt(TRUE)
END

IF
	GlobalTimerExpired("CbPlayer1_Soul_drainerTimerTwo","GLOBAL")
	Global("CbPlayer1Has_Soul_drainer","GLOBAL",3)
	HasItem("CBHBSLDR",Player1) // Hellblade:  Souldrainer
THEN
	RESPONSE #100
		SetGlobal("CbPlayer1Has_Soul_drainer","GLOBAL",5)
		ChangeAlignment(Player1,CHAOTIC_EVIL)
END

IF
	Global("CbPlayer1Has_Soul_drainer","GLOBAL",0)
	GlobalTimerExpired("CbSoul_drainer_ForceReturn","GLOBAL")
THEN
	RESPONSE #100
		TakePartyItem("CBHBSLDR") // Hellblade:  Souldrainer
		GiveItemCreate("CBHBSLDR",Player1,1,0,0) // Hellblade:  Souldrainer
		SetGlobal("CbPlayer1Has_Soul_drainer","GLOBAL",3)
		SetGlobalTimer("CbPlayer1_Soul_drainerTimerTwo","GLOBAL",TWO_DAYS)
END

IF
	Global("CbPlayer1Has_Soul_drainer","GLOBAL",3)
	!HasItem("CBHBSLDR",Player1) // Hellblade:  Souldrainer
THEN
	RESPONSE #100
		SetGlobal("CbPlayer1Has_Soul_drainer","GLOBAL",0)
		SetGlobalTimer("CbSoul_drainer_ForceReturn","GLOBAL",TWO_DAYS)
END

IF
	Global("CbPlayer1Has_Soul_drainer","GLOBAL",2)
	GlobalTimerExpired("CbPlayer1_Soul_drainer_TimerOne","GLOBAL")
	HasItem("CBHBSLDR",Player1) // Hellblade:  Souldrainer
THEN
	RESPONSE #100
		SetGlobal("CbPlayer1Has_Soul_drainer","GLOBAL",3)
		ChangeAlignment(Player1,NEUTRAL_EVIL)
		SetGlobalTimer("CbPlayer1_Soul_drainerTimerTwo","GLOBAL",SEVEN_DAYS)
END

IF
	Global("CbPlayer1Has_Soul_drainer","GLOBAL",0)
	GlobalTimerExpired("CbSoul_drainer_Returns","GLOBAL")
THEN
	RESPONSE #100
		TakePartyItem("CBHBSLDR") // Hellblade:  Souldrainer
		GiveItemCreate("CBHBSLDR",Player1,1,0,0) // Hellblade:  Souldrainer
		SetGlobal("CbPlayer1Has_Soul_drainer","GLOBAL",1)
END

IF
	Global("CbPlayer1Has_Soul_drainer","GLOBAL",2)
	!HasItem("CBHBSLDR",Player1) // Hellblade:  Souldrainer
THEN
	RESPONSE #100
		SetGlobal("CbPlayer1Has_Soul_drainer","GLOBAL",0)
		SetGlobalTimer("CbSoul_drainer_Returns","GLOBAL",FOUR_DAYS)
END

IF
	Global("CbPlayer1Has_Soul_drainer","GLOBAL",1)
THEN
	RESPONSE #100
		SetGlobal("CbPlayer1Has_Soul_drainer","GLOBAL",2)
		SetGlobalTimer("CbPlayer1_Soul_drainer_TimerOne","GLOBAL",SEVEN_DAYS)
END

IF
	HasItem("CBHBSLDR",Player1) // Hellblade:  Souldrainer
	PartyHasItemIdentified("CBHBSLDR") // Hellblade:  Souldrainer
	Global("CbPlayer1Has_Soul_drainer","GLOBAL",0)
	!Global("CbPlayer2Has_Soul_drainer","GLOBAL",1)
	!Global("CbPlayer3Has_Soul_drainer","GLOBAL",1)
	!Global("CbPlayer4Has_Soul_drainer","GLOBAL",1)
	!Global("CbPlayer5Has_Soul_drainer","GLOBAL",1)
	!Global("CbPlayer6Has_Soul_drainer","GLOBAL",1)
THEN
	RESPONSE #100
		SetGlobal("CbPlayer1Has_Soul_drainer","GLOBAL",1)
END

IF
	Global("CbPlayer2Has_Soul_drainer","GLOBAL",5)
	!HasItem("CBHBSLDR",Player2) // Hellblade:  Souldrainer
	PartyHasItem("CBHBSLDR") // Hellblade:  Souldrainer
THEN
	RESPONSE #100
		TakePartyItem("CBHBSLDR") // Hellblade:  Souldrainer
		GiveItemCreate("CBHBSLDR",Player2,1,0,0) // Hellblade:  Souldrainer
		ReputationInc(-1)
END

IF
	Global("CbPlayer2Has_Soul_drainer","GLOBAL",5)
	!HasItem("CBHBSLDR",Player2) // Hellblade:  Souldrainer
	!PartyHasItem("CBHBSLDR") // Hellblade:  Souldrainer
THEN
	RESPONSE #100
		SetInterrupt(FALSE)
		ActionOverride(Player2,PickUpItem("CBHBSLDR")) // Hellblade:  Souldrainer
		ReputationInc(-1)
		SetInterrupt(TRUE)
END

IF
	GlobalTimerExpired("CbPlayer2_Soul_drainerTimerTwo","GLOBAL")
	Global("CbPlayer2Has_Soul_drainer","GLOBAL",3)
	HasItem("CBHBSLDR",Player2) // Hellblade:  Souldrainer
THEN
	RESPONSE #100
		SetGlobal("CbPlayer2Has_Soul_drainer","GLOBAL",5)
		ChangeAlignment(Player2,CHAOTIC_EVIL)
END

IF
	Global("CbPlayer2Has_Soul_drainer","GLOBAL",0)
	GlobalTimerExpired("CbSoul_drainer_ForceReturn","GLOBAL")
THEN
	RESPONSE #100
		TakePartyItem("CBHBSLDR") // Hellblade:  Souldrainer
		GiveItemCreate("CBHBSLDR",Player2,1,0,0) // Hellblade:  Souldrainer
		SetGlobal("CbPlayer2Has_Soul_drainer","GLOBAL",3)
		SetGlobalTimer("CbPlayer2_Soul_drainerTimerTwo","GLOBAL",TWO_DAYS)
END

IF
	Global("CbPlayer2Has_Soul_drainer","GLOBAL",3)
	!HasItem("CBHBSLDR",Player2) // Hellblade:  Souldrainer
THEN
	RESPONSE #100
		SetGlobal("CbPlayer2Has_Soul_drainer","GLOBAL",0)
		SetGlobalTimer("CbSoul_drainer_ForceReturn","GLOBAL",TWO_DAYS)
END

IF
	Global("CbPlayer2Has_Soul_drainer","GLOBAL",2)
	GlobalTimerExpired("CbPlayer2_Soul_drainer_TimerOne","GLOBAL")
	HasItem("CBHBSLDR",Player2) // Hellblade:  Souldrainer
THEN
	RESPONSE #100
		SetGlobal("CbPlayer2Has_Soul_drainer","GLOBAL",3)
		ChangeAlignment(Player2,NEUTRAL_EVIL)
		SetGlobalTimer("CbPlayer2_Soul_drainerTimerTwo","GLOBAL",SEVEN_DAYS)
END

IF
	Global("CbPlayer2Has_Soul_drainer","GLOBAL",0)
	GlobalTimerExpired("CbSoul_drainer_Returns","GLOBAL")
THEN
	RESPONSE #100
		TakePartyItem("CBHBSLDR") // Hellblade:  Souldrainer
		GiveItemCreate("CBHBSLDR",Player2,1,0,0) // Hellblade:  Souldrainer
		SetGlobal("CbPlayer2Has_Soul_drainer","GLOBAL",1)
END

IF
	Global("CbPlayer2Has_Soul_drainer","GLOBAL",2)
	!HasItem("CBHBSLDR",Player2) // Hellblade:  Souldrainer
THEN
	RESPONSE #100
		SetGlobal("CbPlayer2Has_Soul_drainer","GLOBAL",0)
		SetGlobalTimer("CbSoul_drainer_Returns","GLOBAL",FOUR_DAYS)
END

IF
	Global("CbPlayer2Has_Soul_drainer","GLOBAL",1)
THEN
	RESPONSE #100
		SetGlobal("CbPlayer2Has_Soul_drainer","GLOBAL",2)
		SetGlobalTimer("CbPlayer2_Soul_drainer_TimerOne","GLOBAL",SEVEN_DAYS)
END

IF
	HasItem("CBHBSLDR",Player2) // Hellblade:  Souldrainer
	PartyHasItemIdentified("CBHBSLDR") // Hellblade:  Souldrainer
	Global("CbPlayer2Has_Soul_drainer","GLOBAL",0)
	!Global("CbPlayer1Has_Soul_drainer","GLOBAL",1)
	!Global("CbPlayer3Has_Soul_drainer","GLOBAL",1)
	!Global("CbPlayer4Has_Soul_drainer","GLOBAL",1)
	!Global("CbPlayer5Has_Soul_drainer","GLOBAL",1)
	!Global("CbPlayer6Has_Soul_drainer","GLOBAL",1)
THEN
	RESPONSE #100
		SetGlobal("CbPlayer2Has_Soul_drainer","GLOBAL",1)
END

IF
	Global("CbPlayer3Has_Soul_drainer","GLOBAL",5)
	!HasItem("CBHBSLDR",Player3) // Hellblade:  Souldrainer
	PartyHasItem("CBHBSLDR") // Hellblade:  Souldrainer
THEN
	RESPONSE #100
		TakePartyItem("CBHBSLDR") // Hellblade:  Souldrainer
		GiveItemCreate("CBHBSLDR",Player3,1,0,0) // Hellblade:  Souldrainer
		ReputationInc(-1)
END

IF
	Global("CbPlayer3Has_Soul_drainer","GLOBAL",5)
	!HasItem("CBHBSLDR",Player3) // Hellblade:  Souldrainer
	!PartyHasItem("CBHBSLDR") // Hellblade:  Souldrainer
THEN
	RESPONSE #100
		SetInterrupt(FALSE)
		ActionOverride(Player3,PickUpItem("CBHBSLDR")) // Hellblade:  Souldrainer
		ReputationInc(-1)
		SetInterrupt(TRUE)
END

IF
	GlobalTimerExpired("CbPlayer3_Soul_drainerTimerTwo","GLOBAL")
	Global("CbPlayer3Has_Soul_drainer","GLOBAL",3)
	HasItem("CBHBSLDR",Player3) // Hellblade:  Souldrainer
THEN
	RESPONSE #100
		SetGlobal("CbPlayer3Has_Soul_drainer","GLOBAL",5)
		ChangeAlignment(Player3,CHAOTIC_EVIL)
END

IF
	Global("CbPlayer3Has_Soul_drainer","GLOBAL",0)
	GlobalTimerExpired("CbSoul_drainer_ForceReturn","GLOBAL")
THEN
	RESPONSE #100
		TakePartyItem("CBHBSLDR") // Hellblade:  Souldrainer
		GiveItemCreate("CBHBSLDR",Player3,1,0,0) // Hellblade:  Souldrainer
		SetGlobal("CbPlayer3Has_Soul_drainer","GLOBAL",3)
		SetGlobalTimer("CbPlayer3_Soul_drainerTimerTwo","GLOBAL",TWO_DAYS)
END

IF
	Global("CbPlayer3Has_Soul_drainer","GLOBAL",3)
	!HasItem("CBHBSLDR",Player3) // Hellblade:  Souldrainer
THEN
	RESPONSE #100
		SetGlobal("CbPlayer3Has_Soul_drainer","GLOBAL",0)
		SetGlobalTimer("CbSoul_drainer_ForceReturn","GLOBAL",TWO_DAYS)
END

IF
	Global("CbPlayer3Has_Soul_drainer","GLOBAL",2)
	GlobalTimerExpired("CbPlayer3_Soul_drainer_TimerOne","GLOBAL")
	HasItem("CBHBSLDR",Player3) // Hellblade:  Souldrainer
THEN
	RESPONSE #100
		SetGlobal("CbPlayer3Has_Soul_drainer","GLOBAL",3)
		ChangeAlignment(Player3,NEUTRAL_EVIL)
		SetGlobalTimer("CbPlayer3_Soul_drainerTimerTwo","GLOBAL",SEVEN_DAYS)
END

IF
	Global("CbPlayer3Has_Soul_drainer","GLOBAL",0)
	GlobalTimerExpired("CbSoul_drainer_Returns","GLOBAL")
THEN
	RESPONSE #100
		TakePartyItem("CBHBSLDR") // Hellblade:  Souldrainer
		GiveItemCreate("CBHBSLDR",Player3,1,0,0) // Hellblade:  Souldrainer
		SetGlobal("CbPlayer3Has_Soul_drainer","GLOBAL",1)
END

IF
	Global("CbPlayer3Has_Soul_drainer","GLOBAL",2)
	!HasItem("CBHBSLDR",Player3) // Hellblade:  Souldrainer
THEN
	RESPONSE #100
		SetGlobal("CbPlayer3Has_Soul_drainer","GLOBAL",0)
		SetGlobalTimer("CbSoul_drainer_Returns","GLOBAL",FOUR_DAYS)
END

IF
	Global("CbPlayer3Has_Soul_drainer","GLOBAL",1)
THEN
	RESPONSE #100
		SetGlobal("CbPlayer3Has_Soul_drainer","GLOBAL",2)
		SetGlobalTimer("CbPlayer3_Soul_drainer_TimerOne","GLOBAL",SEVEN_DAYS)
END

IF
	HasItem("CBHBSLDR",Player3) // Hellblade:  Souldrainer
	PartyHasItemIdentified("CBHBSLDR") // Hellblade:  Souldrainer
	Global("CbPlayer3Has_Soul_drainer","GLOBAL",0)
	!Global("CbPlayer1Has_Soul_drainer","GLOBAL",1)
	!Global("CbPlayer2Has_Soul_drainer","GLOBAL",1)
	!Global("CbPlayer4Has_Soul_drainer","GLOBAL",1)
	!Global("CbPlayer5Has_Soul_drainer","GLOBAL",1)
	!Global("CbPlayer6Has_Soul_drainer","GLOBAL",1)
THEN
	RESPONSE #100
		SetGlobal("CbPlayer3Has_Soul_drainer","GLOBAL",1)
END

IF
	Global("CbPlayer4Has_Soul_drainer","GLOBAL",5)
	!HasItem("CBHBSLDR",Player4) // Hellblade:  Souldrainer
	PartyHasItem("CBHBSLDR") // Hellblade:  Souldrainer
THEN
	RESPONSE #100
		TakePartyItem("CBHBSLDR") // Hellblade:  Souldrainer
		GiveItemCreate("CBHBSLDR",Player4,1,0,0) // Hellblade:  Souldrainer
		ReputationInc(-1)
END

IF
	Global("CbPlayer4Has_Soul_drainer","GLOBAL",5)
	!HasItem("CBHBSLDR",Player4) // Hellblade:  Souldrainer
	!PartyHasItem("CBHBSLDR") // Hellblade:  Souldrainer
THEN
	RESPONSE #100
		SetInterrupt(FALSE)
		ActionOverride(Player4,PickUpItem("CBHBSLDR")) // Hellblade:  Souldrainer
		ReputationInc(-1)
		SetInterrupt(TRUE)
END

IF
	GlobalTimerExpired("CbPlayer4_Soul_drainerTimerTwo","GLOBAL")
	Global("CbPlayer4Has_Soul_drainer","GLOBAL",3)
	HasItem("CBHBSLDR",Player4) // Hellblade:  Souldrainer
THEN
	RESPONSE #100
		SetGlobal("CbPlayer4Has_Soul_drainer","GLOBAL",5)
		ChangeAlignment(Player4,CHAOTIC_EVIL)
END

IF
	Global("CbPlayer4Has_Soul_drainer","GLOBAL",0)
	GlobalTimerExpired("CbSoul_drainer_ForceReturn","GLOBAL")
THEN
	RESPONSE #100
		TakePartyItem("CBHBSLDR") // Hellblade:  Souldrainer
		GiveItemCreate("CBHBSLDR",Player4,1,0,0) // Hellblade:  Souldrainer
		SetGlobal("CbPlayer4Has_Soul_drainer","GLOBAL",3)
		SetGlobalTimer("CbPlayer4_Soul_drainerTimerTwo","GLOBAL",TWO_DAYS)
END

IF
	Global("CbPlayer4Has_Soul_drainer","GLOBAL",3)
	!HasItem("CBHBSLDR",Player4) // Hellblade:  Souldrainer
THEN
	RESPONSE #100
		SetGlobal("CbPlayer4Has_Soul_drainer","GLOBAL",0)
		SetGlobalTimer("CbSoul_drainer_ForceReturn","GLOBAL",TWO_DAYS)
END

IF
	Global("CbPlayer4Has_Soul_drainer","GLOBAL",2)
	GlobalTimerExpired("CbPlayer4_Soul_drainer_TimerOne","GLOBAL")
	HasItem("CBHBSLDR",Player4) // Hellblade:  Souldrainer
THEN
	RESPONSE #100
		SetGlobal("CbPlayer4Has_Soul_drainer","GLOBAL",3)
		ChangeAlignment(Player4,NEUTRAL_EVIL)
		SetGlobalTimer("CbPlayer4_Soul_drainerTimerTwo","GLOBAL",SEVEN_DAYS)
END

IF
	Global("CbPlayer4Has_Soul_drainer","GLOBAL",0)
	GlobalTimerExpired("CbSoul_drainer_Returns","GLOBAL")
THEN
	RESPONSE #100
		TakePartyItem("CBHBSLDR") // Hellblade:  Souldrainer
		GiveItemCreate("CBHBSLDR",Player4,1,0,0) // Hellblade:  Souldrainer
		SetGlobal("CbPlayer4Has_Soul_drainer","GLOBAL",1)
END

IF
	Global("CbPlayer4Has_Soul_drainer","GLOBAL",2)
	!HasItem("CBHBSLDR",Player4) // Hellblade:  Souldrainer
THEN
	RESPONSE #100
		SetGlobal("CbPlayer4Has_Soul_drainer","GLOBAL",0)
		SetGlobalTimer("CbSoul_drainer_Returns","GLOBAL",FOUR_DAYS)
END

IF
	Global("CbPlayer4Has_Soul_drainer","GLOBAL",1)
THEN
	RESPONSE #100
		SetGlobal("CbPlayer4Has_Soul_drainer","GLOBAL",2)
		SetGlobalTimer("CbPlayer4_Soul_drainer_TimerOne","GLOBAL",SEVEN_DAYS)
END

IF
	HasItem("CBHBSLDR",Player4) // Hellblade:  Souldrainer
	PartyHasItemIdentified("CBHBSLDR") // Hellblade:  Souldrainer
	Global("CbPlayer4Has_Soul_drainer","GLOBAL",0)
	!Global("CbPlayer1Has_Soul_drainer","GLOBAL",1)
	!Global("CbPlayer2Has_Soul_drainer","GLOBAL",1)
	!Global("CbPlayer3Has_Soul_drainer","GLOBAL",1)
	!Global("CbPlayer5Has_Soul_drainer","GLOBAL",1)
	!Global("CbPlayer6Has_Soul_drainer","GLOBAL",1)
THEN
	RESPONSE #100
		SetGlobal("CbPlayer4Has_Soul_drainer","GLOBAL",1)
END

IF
	Global("CbPlayer5Has_Soul_drainer","GLOBAL",5)
	!HasItem("CBHBSLDR",Player5) // Hellblade:  Souldrainer
	PartyHasItem("CBHBSLDR") // Hellblade:  Souldrainer
THEN
	RESPONSE #100
		TakePartyItem("CBHBSLDR") // Hellblade:  Souldrainer
		GiveItemCreate("CBHBSLDR",Player5,1,0,0) // Hellblade:  Souldrainer
		ReputationInc(-1)
END

IF
	Global("CbPlayer5Has_Soul_drainer","GLOBAL",5)
	!HasItem("CBHBSLDR",Player5) // Hellblade:  Souldrainer
	!PartyHasItem("CBHBSLDR") // Hellblade:  Souldrainer
THEN
	RESPONSE #100
		SetInterrupt(FALSE)
		ActionOverride(Player5,PickUpItem("CBHBSLDR")) // Hellblade:  Souldrainer
		ReputationInc(-1)
		SetInterrupt(TRUE)
END

IF
	GlobalTimerExpired("CbPlayer5_Soul_drainerTimerTwo","GLOBAL")
	Global("CbPlayer5Has_Soul_drainer","GLOBAL",3)
	HasItem("CBHBSLDR",Player5) // Hellblade:  Souldrainer
THEN
	RESPONSE #100
		SetGlobal("CbPlayer5Has_Soul_drainer","GLOBAL",5)
		ChangeAlignment(Player5,CHAOTIC_EVIL)
END

IF
	Global("CbPlayer5Has_Soul_drainer","GLOBAL",0)
	GlobalTimerExpired("CbSoul_drainer_ForceReturn","GLOBAL")
THEN
	RESPONSE #100
		TakePartyItem("CBHBSLDR") // Hellblade:  Souldrainer
		GiveItemCreate("CBHBSLDR",Player5,1,0,0) // Hellblade:  Souldrainer
		SetGlobal("CbPlayer5Has_Soul_drainer","GLOBAL",3)
		SetGlobalTimer("CbPlayer5_Soul_drainerTimerTwo","GLOBAL",TWO_DAYS)
END

IF
	Global("CbPlayer5Has_Soul_drainer","GLOBAL",3)
	!HasItem("CBHBSLDR",Player5) // Hellblade:  Souldrainer
THEN
	RESPONSE #100
		SetGlobal("CbPlayer5Has_Soul_drainer","GLOBAL",0)
		SetGlobalTimer("CbSoul_drainer_ForceReturn","GLOBAL",TWO_DAYS)
END

IF
	Global("CbPlayer5Has_Soul_drainer","GLOBAL",2)
	GlobalTimerExpired("CbPlayer5_Soul_drainer_TimerOne","GLOBAL")
	HasItem("CBHBSLDR",Player5) // Hellblade:  Souldrainer
THEN
	RESPONSE #100
		SetGlobal("CbPlayer5Has_Soul_drainer","GLOBAL",3)
		ChangeAlignment(Player5,NEUTRAL_EVIL)
		SetGlobalTimer("CbPlayer5_Soul_drainerTimerTwo","GLOBAL",SEVEN_DAYS)
END

IF
	Global("CbPlayer5Has_Soul_drainer","GLOBAL",0)
	GlobalTimerExpired("CbSoul_drainer_Returns","GLOBAL")
THEN
	RESPONSE #100
		TakePartyItem("CBHBSLDR") // Hellblade:  Souldrainer
		GiveItemCreate("CBHBSLDR",Player5,1,0,0) // Hellblade:  Souldrainer
		SetGlobal("CbPlayer5Has_Soul_drainer","GLOBAL",1)
END

IF
	Global("CbPlayer5Has_Soul_drainer","GLOBAL",2)
	!HasItem("CBHBSLDR",Player5) // Hellblade:  Souldrainer
THEN
	RESPONSE #100
		SetGlobal("CbPlayer5Has_Soul_drainer","GLOBAL",0)
		SetGlobalTimer("CbSoul_drainer_Returns","GLOBAL",FOUR_DAYS)
END

IF
	Global("CbPlayer5Has_Soul_drainer","GLOBAL",1)
THEN
	RESPONSE #100
		SetGlobal("CbPlayer5Has_Soul_drainer","GLOBAL",2)
		SetGlobalTimer("CbPlayer5_Soul_drainer_TimerOne","GLOBAL",SEVEN_DAYS)
END

IF
	HasItem("CBHBSLDR",Player5) // Hellblade:  Souldrainer
	PartyHasItemIdentified("CBHBSLDR") // Hellblade:  Souldrainer
	Global("CbPlayer5Has_Soul_drainer","GLOBAL",0)
	!Global("CbPlayer1Has_Soul_drainer","GLOBAL",1)
	!Global("CbPlayer2Has_Soul_drainer","GLOBAL",1)
	!Global("CbPlayer3Has_Soul_drainer","GLOBAL",1)
	!Global("CbPlayer4Has_Soul_drainer","GLOBAL",1)
	!Global("CbPlayer6Has_Soul_drainer","GLOBAL",1)
THEN
	RESPONSE #100
		SetGlobal("CbPlayer5Has_Soul_drainer","GLOBAL",1)
END

IF
	Global("CbPlayer6Has_Soul_drainer","GLOBAL",5)
	!HasItem("CBHBSLDR",Player6) // Hellblade:  Souldrainer
	PartyHasItem("CBHBSLDR") // Hellblade:  Souldrainer
THEN
	RESPONSE #100
		TakePartyItem("CBHBSLDR") // Hellblade:  Souldrainer
		GiveItemCreate("CBHBSLDR",Player6,1,0,0) // Hellblade:  Souldrainer
		ReputationInc(-1)
END

IF
	Global("CbPlayer6Has_Soul_drainer","GLOBAL",5)
	!HasItem("CBHBSLDR",Player6) // Hellblade:  Souldrainer
	!PartyHasItem("CBHBSLDR") // Hellblade:  Souldrainer
THEN
	RESPONSE #100
		SetInterrupt(FALSE)
		ActionOverride(Player6,PickUpItem("CBHBSLDR")) // Hellblade:  Souldrainer
		ReputationInc(-1)
		SetInterrupt(TRUE)
END

IF
	GlobalTimerExpired("CbPlayer6_Soul_drainerTimerTwo","GLOBAL")
	Global("CbPlayer6Has_Soul_drainer","GLOBAL",3)
	HasItem("CBHBSLDR",Player6) // Hellblade:  Souldrainer
THEN
	RESPONSE #100
		SetGlobal("CbPlayer6Has_Soul_drainer","GLOBAL",5)
		ChangeAlignment(Player6,CHAOTIC_EVIL)
END

IF
	Global("CbPlayer6Has_Soul_drainer","GLOBAL",0)
	GlobalTimerExpired("CbSoul_drainer_ForceReturn","GLOBAL")
THEN
	RESPONSE #100
		TakePartyItem("CBHBSLDR") // Hellblade:  Souldrainer
		GiveItemCreate("CBHBSLDR",Player6,1,0,0) // Hellblade:  Souldrainer
		SetGlobal("CbPlayer6Has_Soul_drainer","GLOBAL",3)
		SetGlobalTimer("CbPlayer6_Soul_drainerTimerTwo","GLOBAL",TWO_DAYS)
END

IF
	Global("CbPlayer6Has_Soul_drainer","GLOBAL",3)
	!HasItem("CBHBSLDR",Player6) // Hellblade:  Souldrainer
THEN
	RESPONSE #100
		SetGlobal("CbPlayer6Has_Soul_drainer","GLOBAL",0)
		SetGlobalTimer("CbSoul_drainer_ForceReturn","GLOBAL",TWO_DAYS)
END

IF
	Global("CbPlayer6Has_Soul_drainer","GLOBAL",2)
	GlobalTimerExpired("CbPlayer6_Soul_drainer_TimerOne","GLOBAL")
	HasItem("CBHBSLDR",Player6) // Hellblade:  Souldrainer
THEN
	RESPONSE #100
		SetGlobal("CbPlayer6Has_Soul_drainer","GLOBAL",3)
		ChangeAlignment(Player6,NEUTRAL_EVIL)
		SetGlobalTimer("CbPlayer6_Soul_drainerTimerTwo","GLOBAL",SEVEN_DAYS)
END

IF
	Global("CbPlayer6Has_Soul_drainer","GLOBAL",0)
	GlobalTimerExpired("CbSoul_drainer_Returns","GLOBAL")
THEN
	RESPONSE #100
		TakePartyItem("CBHBSLDR") // Hellblade:  Souldrainer
		GiveItemCreate("CBHBSLDR",Player6,1,0,0) // Hellblade:  Souldrainer
		SetGlobal("CbPlayer6Has_Soul_drainer","GLOBAL",1)
END

IF
	Global("CbPlayer6Has_Soul_drainer","GLOBAL",2)
	!HasItem("CBHBSLDR",Player6) // Hellblade:  Souldrainer
THEN
	RESPONSE #100
		SetGlobal("CbPlayer6Has_Soul_drainer","GLOBAL",0)
		SetGlobalTimer("CbSoul_drainer_Returns","GLOBAL",FOUR_DAYS)
END

IF
	Global("CbPlayer6Has_Soul_drainer","GLOBAL",1)
THEN
	RESPONSE #100
		SetGlobal("CbPlayer6Has_Soul_drainer","GLOBAL",2)
		SetGlobalTimer("CbPlayer6_Soul_drainer_TimerOne","GLOBAL",SEVEN_DAYS)
END

IF
	HasItem("CBHBSLDR",Player6) // Hellblade:  Souldrainer
	PartyHasItemIdentified("CBHBSLDR") // Hellblade:  Souldrainer
	Global("CbPlayer6Has_Soul_drainer","GLOBAL",0)
	!Global("CbPlayer1Has_Soul_drainer","GLOBAL",1)
	!Global("CbPlayer2Has_Soul_drainer","GLOBAL",1)
	!Global("CbPlayer3Has_Soul_drainer","GLOBAL",1)
	!Global("CbPlayer4Has_Soul_drainer","GLOBAL",1)
	!Global("CbPlayer5Has_Soul_drainer","GLOBAL",1)
THEN
	RESPONSE #100
		SetGlobal("CbPlayer6Has_Soul_drainer","GLOBAL",1)
END

IF
	Global("CbPlayer1Has_Soul_devourer","GLOBAL",5)
	!HasItem("CBHBSLDV",Player1) // Hellblade:  Souldevourer
	PartyHasItem("CBHBSLDV") // Hellblade:  Souldevourer
THEN
	RESPONSE #100
		TakePartyItem("CBHBSLDV") // Hellblade:  Souldevourer
		GiveItemCreate("CBHBSLDV",Player1,1,0,0) // Hellblade:  Souldevourer
		ReputationInc(-1)
END

IF
	Global("CbPlayer1Has_Soul_devourer","GLOBAL",5)
	!HasItem("CBHBSLDV",Player1) // Hellblade:  Souldevourer
	!PartyHasItem("CBHBSLDV") // Hellblade:  Souldevourer
THEN
	RESPONSE #100
		SetInterrupt(FALSE)
		ActionOverride(Player1,PickUpItem("CBHBSLDV")) // Hellblade:  Souldevourer
		ReputationInc(-1)
		SetInterrupt(TRUE)
END

IF
	GlobalTimerExpired("CbPlayer1_Soul_devourerTimerTwo","GLOBAL")
	Global("CbPlayer1Has_Soul_devourer","GLOBAL",3)
	HasItem("CBHBSLDV",Player1) // Hellblade:  Souldevourer
THEN
	RESPONSE #100
		SetGlobal("CbPlayer1Has_Soul_devourer","GLOBAL",5)
		ChangeAlignment(Player1,CHAOTIC_EVIL)
END

IF
	Global("CbPlayer1Has_Soul_devourer","GLOBAL",0)
	GlobalTimerExpired("CbSoul_devourer_ForceReturn","GLOBAL")
THEN
	RESPONSE #100
		TakePartyItem("CBHBSLDV") // Hellblade:  Souldevourer
		GiveItemCreate("CBHBSLDV",Player1,1,0,0) // Hellblade:  Souldevourer
		SetGlobal("CbPlayer1Has_Soul_devourer","GLOBAL",3)
		SetGlobalTimer("CbPlayer1_Soul_devourerTimerTwo","GLOBAL",TWO_DAYS)
END

IF
	Global("CbPlayer1Has_Soul_devourer","GLOBAL",3)
	!HasItem("CBHBSLDV",Player1) // Hellblade:  Souldevourer
THEN
	RESPONSE #100
		SetGlobal("CbPlayer1Has_Soul_devourer","GLOBAL",0)
		SetGlobalTimer("CbSoul_devourer_ForceReturn","GLOBAL",TWO_DAYS)
END

IF
	Global("CbPlayer1Has_Soul_devourer","GLOBAL",2)
	GlobalTimerExpired("CbPlayer1_Soul_devourer_TimerOne","GLOBAL")
	HasItem("CBHBSLDV",Player1) // Hellblade:  Souldevourer
THEN
	RESPONSE #100
		SetGlobal("CbPlayer1Has_Soul_devourer","GLOBAL",3)
		ChangeAlignment(Player1,NEUTRAL_EVIL)
		SetGlobalTimer("CbPlayer1_Soul_devourerTimerTwo","GLOBAL",SEVEN_DAYS)
END

IF
	Global("CbPlayer1Has_Soul_devourer","GLOBAL",0)
	GlobalTimerExpired("CbSoul_devourer_Returns","GLOBAL")
THEN
	RESPONSE #100
		TakePartyItem("CBHBSLDV") // Hellblade:  Souldevourer
		GiveItemCreate("CBHBSLDV",Player1,1,0,0) // Hellblade:  Souldevourer
		SetGlobal("CbPlayer1Has_Soul_devourer","GLOBAL",1)
END

IF
	Global("CbPlayer1Has_Soul_devourer","GLOBAL",2)
	!HasItem("CBHBSLDV",Player1) // Hellblade:  Souldevourer
THEN
	RESPONSE #100
		SetGlobal("CbPlayer1Has_Soul_devourer","GLOBAL",0)
		SetGlobalTimer("CbSoul_devourer_Returns","GLOBAL",FOUR_DAYS)
END

IF
	Global("CbPlayer1Has_Soul_devourer","GLOBAL",1)
THEN
	RESPONSE #100
		SetGlobal("CbPlayer1Has_Soul_devourer","GLOBAL",2)
		SetGlobalTimer("CbPlayer1_Soul_devourer_TimerOne","GLOBAL",SEVEN_DAYS)
END

IF
	HasItem("CBHBSLDV",Player1) // Hellblade:  Souldevourer
	PartyHasItemIdentified("CBHBSLDV") // Hellblade:  Souldevourer
	Global("CbPlayer1Has_Soul_devourer","GLOBAL",0)
	!Global("CbPlayer2Has_Soul_devourer","GLOBAL",1)
	!Global("CbPlayer3Has_Soul_devourer","GLOBAL",1)
	!Global("CbPlayer4Has_Soul_devourer","GLOBAL",1)
	!Global("CbPlayer5Has_Soul_devourer","GLOBAL",1)
	!Global("CbPlayer6Has_Soul_devourer","GLOBAL",1)
THEN
	RESPONSE #100
		SetGlobal("CbPlayer1Has_Soul_devourer","GLOBAL",1)
END

IF
	Global("CbPlayer2Has_Soul_devourer","GLOBAL",5)
	!HasItem("CBHBSLDV",Player2) // Hellblade:  Souldevourer
	PartyHasItem("CBHBSLDV") // Hellblade:  Souldevourer
THEN
	RESPONSE #100
		TakePartyItem("CBHBSLDV") // Hellblade:  Souldevourer
		GiveItemCreate("CBHBSLDV",Player2,1,0,0) // Hellblade:  Souldevourer
		ReputationInc(-1)
END

IF
	Global("CbPlayer2Has_Soul_devourer","GLOBAL",5)
	!HasItem("CBHBSLDV",Player2) // Hellblade:  Souldevourer
	!PartyHasItem("CBHBSLDV") // Hellblade:  Souldevourer
THEN
	RESPONSE #100
		SetInterrupt(FALSE)
		ActionOverride(Player2,PickUpItem("CBHBSLDV")) // Hellblade:  Souldevourer
		ReputationInc(-1)
		SetInterrupt(TRUE)
END

IF
	GlobalTimerExpired("CbPlayer2_Soul_devourerTimerTwo","GLOBAL")
	Global("CbPlayer2Has_Soul_devourer","GLOBAL",3)
	HasItem("CBHBSLDV",Player2) // Hellblade:  Souldevourer
THEN
	RESPONSE #100
		SetGlobal("CbPlayer2Has_Soul_devourer","GLOBAL",5)
		ChangeAlignment(Player2,CHAOTIC_EVIL)
END

IF
	Global("CbPlayer2Has_Soul_devourer","GLOBAL",0)
	GlobalTimerExpired("CbSoul_devourer_ForceReturn","GLOBAL")
THEN
	RESPONSE #100
		TakePartyItem("CBHBSLDV") // Hellblade:  Souldevourer
		GiveItemCreate("CBHBSLDV",Player2,1,0,0) // Hellblade:  Souldevourer
		SetGlobal("CbPlayer2Has_Soul_devourer","GLOBAL",3)
		SetGlobalTimer("CbPlayer2_Soul_devourerTimerTwo","GLOBAL",TWO_DAYS)
END

IF
	Global("CbPlayer2Has_Soul_devourer","GLOBAL",3)
	!HasItem("CBHBSLDV",Player2) // Hellblade:  Souldevourer
THEN
	RESPONSE #100
		SetGlobal("CbPlayer2Has_Soul_devourer","GLOBAL",0)
		SetGlobalTimer("CbSoul_devourer_ForceReturn","GLOBAL",TWO_DAYS)
END

IF
	Global("CbPlayer2Has_Soul_devourer","GLOBAL",2)
	GlobalTimerExpired("CbPlayer2_Soul_devourer_TimerOne","GLOBAL")
	HasItem("CBHBSLDV",Player2) // Hellblade:  Souldevourer
THEN
	RESPONSE #100
		SetGlobal("CbPlayer2Has_Soul_devourer","GLOBAL",3)
		ChangeAlignment(Player2,NEUTRAL_EVIL)
		SetGlobalTimer("CbPlayer2_Soul_devourerTimerTwo","GLOBAL",SEVEN_DAYS)
END

IF
	Global("CbPlayer2Has_Soul_devourer","GLOBAL",0)
	GlobalTimerExpired("CbSoul_devourer_Returns","GLOBAL")
THEN
	RESPONSE #100
		TakePartyItem("CBHBSLDV") // Hellblade:  Souldevourer
		GiveItemCreate("CBHBSLDV",Player2,1,0,0) // Hellblade:  Souldevourer
		SetGlobal("CbPlayer2Has_Soul_devourer","GLOBAL",1)
END

IF
	Global("CbPlayer2Has_Soul_devourer","GLOBAL",2)
	!HasItem("CBHBSLDV",Player2) // Hellblade:  Souldevourer
THEN
	RESPONSE #100
		SetGlobal("CbPlayer2Has_Soul_devourer","GLOBAL",0)
		SetGlobalTimer("CbSoul_devourer_Returns","GLOBAL",FOUR_DAYS)
END

IF
	Global("CbPlayer2Has_Soul_devourer","GLOBAL",1)
THEN
	RESPONSE #100
		SetGlobal("CbPlayer2Has_Soul_devourer","GLOBAL",2)
		SetGlobalTimer("CbPlayer2_Soul_devourer_TimerOne","GLOBAL",SEVEN_DAYS)
END

IF
	HasItem("CBHBSLDV",Player2) // Hellblade:  Souldevourer
	PartyHasItemIdentified("CBHBSLDV") // Hellblade:  Souldevourer
	Global("CbPlayer2Has_Soul_devourer","GLOBAL",0)
	!Global("CbPlayer1Has_Soul_devourer","GLOBAL",1)
	!Global("CbPlayer3Has_Soul_devourer","GLOBAL",1)
	!Global("CbPlayer4Has_Soul_devourer","GLOBAL",1)
	!Global("CbPlayer5Has_Soul_devourer","GLOBAL",1)
	!Global("CbPlayer6Has_Soul_devourer","GLOBAL",1)
THEN
	RESPONSE #100
		SetGlobal("CbPlayer2Has_Soul_devourer","GLOBAL",1)
END

IF
	Global("CbPlayer3Has_Soul_devourer","GLOBAL",5)
	!HasItem("CBHBSLDV",Player3) // Hellblade:  Souldevourer
	PartyHasItem("CBHBSLDV") // Hellblade:  Souldevourer
THEN
	RESPONSE #100
		TakePartyItem("CBHBSLDV") // Hellblade:  Souldevourer
		GiveItemCreate("CBHBSLDV",Player3,1,0,0) // Hellblade:  Souldevourer
		ReputationInc(-1)
END

IF
	Global("CbPlayer3Has_Soul_devourer","GLOBAL",5)
	!HasItem("CBHBSLDV",Player3) // Hellblade:  Souldevourer
	!PartyHasItem("CBHBSLDV") // Hellblade:  Souldevourer
THEN
	RESPONSE #100
		SetInterrupt(FALSE)
		ActionOverride(Player3,PickUpItem("CBHBSLDV")) // Hellblade:  Souldevourer
		ReputationInc(-1)
		SetInterrupt(TRUE)
END

IF
	GlobalTimerExpired("CbPlayer3_Soul_devourerTimerTwo","GLOBAL")
	Global("CbPlayer3Has_Soul_devourer","GLOBAL",3)
	HasItem("CBHBSLDV",Player3) // Hellblade:  Souldevourer
THEN
	RESPONSE #100
		SetGlobal("CbPlayer3Has_Soul_devourer","GLOBAL",5)
		ChangeAlignment(Player3,CHAOTIC_EVIL)
END

IF
	Global("CbPlayer3Has_Soul_devourer","GLOBAL",0)
	GlobalTimerExpired("CbSoul_devourer_ForceReturn","GLOBAL")
THEN
	RESPONSE #100
		TakePartyItem("CBHBSLDV") // Hellblade:  Souldevourer
		GiveItemCreate("CBHBSLDV",Player3,1,0,0) // Hellblade:  Souldevourer
		SetGlobal("CbPlayer3Has_Soul_devourer","GLOBAL",3)
		SetGlobalTimer("CbPlayer3_Soul_devourerTimerTwo","GLOBAL",TWO_DAYS)
END

IF
	Global("CbPlayer3Has_Soul_devourer","GLOBAL",3)
	!HasItem("CBHBSLDV",Player3) // Hellblade:  Souldevourer
THEN
	RESPONSE #100
		SetGlobal("CbPlayer3Has_Soul_devourer","GLOBAL",0)
		SetGlobalTimer("CbSoul_devourer_ForceReturn","GLOBAL",TWO_DAYS)
END

IF
	Global("CbPlayer3Has_Soul_devourer","GLOBAL",2)
	GlobalTimerExpired("CbPlayer3_Soul_devourer_TimerOne","GLOBAL")
	HasItem("CBHBSLDV",Player3) // Hellblade:  Souldevourer
THEN
	RESPONSE #100
		SetGlobal("CbPlayer3Has_Soul_devourer","GLOBAL",3)
		ChangeAlignment(Player3,NEUTRAL_EVIL)
		SetGlobalTimer("CbPlayer3_Soul_devourerTimerTwo","GLOBAL",SEVEN_DAYS)
END

IF
	Global("CbPlayer3Has_Soul_devourer","GLOBAL",0)
	GlobalTimerExpired("CbSoul_devourer_Returns","GLOBAL")
THEN
	RESPONSE #100
		TakePartyItem("CBHBSLDV") // Hellblade:  Souldevourer
		GiveItemCreate("CBHBSLDV",Player3,1,0,0) // Hellblade:  Souldevourer
		SetGlobal("CbPlayer3Has_Soul_devourer","GLOBAL",1)
END

IF
	Global("CbPlayer3Has_Soul_devourer","GLOBAL",2)
	!HasItem("CBHBSLDV",Player3) // Hellblade:  Souldevourer
THEN
	RESPONSE #100
		SetGlobal("CbPlayer3Has_Soul_devourer","GLOBAL",0)
		SetGlobalTimer("CbSoul_devourer_Returns","GLOBAL",FOUR_DAYS)
END

IF
	Global("CbPlayer3Has_Soul_devourer","GLOBAL",1)
THEN
	RESPONSE #100
		SetGlobal("CbPlayer3Has_Soul_devourer","GLOBAL",2)
		SetGlobalTimer("CbPlayer3_Soul_devourer_TimerOne","GLOBAL",SEVEN_DAYS)
END

IF
	HasItem("CBHBSLDV",Player3) // Hellblade:  Souldevourer
	PartyHasItemIdentified("CBHBSLDV") // Hellblade:  Souldevourer
	Global("CbPlayer3Has_Soul_devourer","GLOBAL",0)
	!Global("CbPlayer1Has_Soul_devourer","GLOBAL",1)
	!Global("CbPlayer2Has_Soul_devourer","GLOBAL",1)
	!Global("CbPlayer4Has_Soul_devourer","GLOBAL",1)
	!Global("CbPlayer5Has_Soul_devourer","GLOBAL",1)
	!Global("CbPlayer6Has_Soul_devourer","GLOBAL",1)
THEN
	RESPONSE #100
		SetGlobal("CbPlayer3Has_Soul_devourer","GLOBAL",1)
END

IF
	Global("CbPlayer4Has_Soul_devourer","GLOBAL",5)
	!HasItem("CBHBSLDV",Player4) // Hellblade:  Souldevourer
	PartyHasItem("CBHBSLDV") // Hellblade:  Souldevourer
THEN
	RESPONSE #100
		TakePartyItem("CBHBSLDV") // Hellblade:  Souldevourer
		GiveItemCreate("CBHBSLDV",Player4,1,0,0) // Hellblade:  Souldevourer
		ReputationInc(-1)
END

IF
	Global("CbPlayer4Has_Soul_devourer","GLOBAL",5)
	!HasItem("CBHBSLDV",Player4) // Hellblade:  Souldevourer
	!PartyHasItem("CBHBSLDV") // Hellblade:  Souldevourer
THEN
	RESPONSE #100
		SetInterrupt(FALSE)
		ActionOverride(Player4,PickUpItem("CBHBSLDV")) // Hellblade:  Souldevourer
		ReputationInc(-1)
		SetInterrupt(TRUE)
END

IF
	GlobalTimerExpired("CbPlayer4_Soul_devourerTimerTwo","GLOBAL")
	Global("CbPlayer4Has_Soul_devourer","GLOBAL",3)
	HasItem("CBHBSLDV",Player4) // Hellblade:  Souldevourer
THEN
	RESPONSE #100
		SetGlobal("CbPlayer4Has_Soul_devourer","GLOBAL",5)
		ChangeAlignment(Player4,CHAOTIC_EVIL)
END

IF
	Global("CbPlayer4Has_Soul_devourer","GLOBAL",0)
	GlobalTimerExpired("CbSoul_devourer_ForceReturn","GLOBAL")
THEN
	RESPONSE #100
		TakePartyItem("CBHBSLDV") // Hellblade:  Souldevourer
		GiveItemCreate("CBHBSLDV",Player4,1,0,0) // Hellblade:  Souldevourer
		SetGlobal("CbPlayer4Has_Soul_devourer","GLOBAL",3)
		SetGlobalTimer("CbPlayer4_Soul_devourerTimerTwo","GLOBAL",TWO_DAYS)
END

IF
	Global("CbPlayer4Has_Soul_devourer","GLOBAL",3)
	!HasItem("CBHBSLDV",Player4) // Hellblade:  Souldevourer
THEN
	RESPONSE #100
		SetGlobal("CbPlayer4Has_Soul_devourer","GLOBAL",0)
		SetGlobalTimer("CbSoul_devourer_ForceReturn","GLOBAL",TWO_DAYS)
END

IF
	Global("CbPlayer4Has_Soul_devourer","GLOBAL",2)
	GlobalTimerExpired("CbPlayer4_Soul_devourer_TimerOne","GLOBAL")
	HasItem("CBHBSLDV",Player4) // Hellblade:  Souldevourer
THEN
	RESPONSE #100
		SetGlobal("CbPlayer4Has_Soul_devourer","GLOBAL",3)
		ChangeAlignment(Player4,NEUTRAL_EVIL)
		SetGlobalTimer("CbPlayer4_Soul_devourerTimerTwo","GLOBAL",SEVEN_DAYS)
END

IF
	Global("CbPlayer4Has_Soul_devourer","GLOBAL",0)
	GlobalTimerExpired("CbSoul_devourer_Returns","GLOBAL")
THEN
	RESPONSE #100
		TakePartyItem("CBHBSLDV") // Hellblade:  Souldevourer
		GiveItemCreate("CBHBSLDV",Player4,1,0,0) // Hellblade:  Souldevourer
		SetGlobal("CbPlayer4Has_Soul_devourer","GLOBAL",1)
END

IF
	Global("CbPlayer4Has_Soul_devourer","GLOBAL",2)
	!HasItem("CBHBSLDV",Player4) // Hellblade:  Souldevourer
THEN
	RESPONSE #100
		SetGlobal("CbPlayer4Has_Soul_devourer","GLOBAL",0)
		SetGlobalTimer("CbSoul_devourer_Returns","GLOBAL",FOUR_DAYS)
END

IF
	Global("CbPlayer4Has_Soul_devourer","GLOBAL",1)
THEN
	RESPONSE #100
		SetGlobal("CbPlayer4Has_Soul_devourer","GLOBAL",2)
		SetGlobalTimer("CbPlayer4_Soul_devourer_TimerOne","GLOBAL",SEVEN_DAYS)
END

IF
	HasItem("CBHBSLDV",Player4) // Hellblade:  Souldevourer
	PartyHasItemIdentified("CBHBSLDV") // Hellblade:  Souldevourer
	Global("CbPlayer4Has_Soul_devourer","GLOBAL",0)
	!Global("CbPlayer1Has_Soul_devourer","GLOBAL",1)
	!Global("CbPlayer2Has_Soul_devourer","GLOBAL",1)
	!Global("CbPlayer3Has_Soul_devourer","GLOBAL",1)
	!Global("CbPlayer5Has_Soul_devourer","GLOBAL",1)
	!Global("CbPlayer6Has_Soul_devourer","GLOBAL",1)
THEN
	RESPONSE #100
		SetGlobal("CbPlayer4Has_Soul_devourer","GLOBAL",1)
END

IF
	Global("CbPlayer5Has_Soul_devourer","GLOBAL",5)
	!HasItem("CBHBSLDV",Player5) // Hellblade:  Souldevourer
	PartyHasItem("CBHBSLDV") // Hellblade:  Souldevourer
THEN
	RESPONSE #100
		TakePartyItem("CBHBSLDV") // Hellblade:  Souldevourer
		GiveItemCreate("CBHBSLDV",Player5,1,0,0) // Hellblade:  Souldevourer
		ReputationInc(-1)
END

IF
	Global("CbPlayer5Has_Soul_devourer","GLOBAL",5)
	!HasItem("CBHBSLDV",Player5) // Hellblade:  Souldevourer
	!PartyHasItem("CBHBSLDV") // Hellblade:  Souldevourer
THEN
	RESPONSE #100
		SetInterrupt(FALSE)
		ActionOverride(Player5,PickUpItem("CBHBSLDV")) // Hellblade:  Souldevourer
		ReputationInc(-1)
		SetInterrupt(TRUE)
END

IF
	GlobalTimerExpired("CbPlayer5_Soul_devourerTimerTwo","GLOBAL")
	Global("CbPlayer5Has_Soul_devourer","GLOBAL",3)
	HasItem("CBHBSLDV",Player5) // Hellblade:  Souldevourer
THEN
	RESPONSE #100
		SetGlobal("CbPlayer5Has_Soul_devourer","GLOBAL",5)
		ChangeAlignment(Player5,CHAOTIC_EVIL)
END

IF
	Global("CbPlayer5Has_Soul_devourer","GLOBAL",0)
	GlobalTimerExpired("CbSoul_devourer_ForceReturn","GLOBAL")
THEN
	RESPONSE #100
		TakePartyItem("CBHBSLDV") // Hellblade:  Souldevourer
		GiveItemCreate("CBHBSLDV",Player5,1,0,0) // Hellblade:  Souldevourer
		SetGlobal("CbPlayer5Has_Soul_devourer","GLOBAL",3)
		SetGlobalTimer("CbPlayer5_Soul_devourerTimerTwo","GLOBAL",TWO_DAYS)
END

IF
	Global("CbPlayer5Has_Soul_devourer","GLOBAL",3)
	!HasItem("CBHBSLDV",Player5) // Hellblade:  Souldevourer
THEN
	RESPONSE #100
		SetGlobal("CbPlayer5Has_Soul_devourer","GLOBAL",0)
		SetGlobalTimer("CbSoul_devourer_ForceReturn","GLOBAL",TWO_DAYS)
END

IF
	Global("CbPlayer5Has_Soul_devourer","GLOBAL",2)
	GlobalTimerExpired("CbPlayer5_Soul_devourer_TimerOne","GLOBAL")
	HasItem("CBHBSLDV",Player5) // Hellblade:  Souldevourer
THEN
	RESPONSE #100
		SetGlobal("CbPlayer5Has_Soul_devourer","GLOBAL",3)
		ChangeAlignment(Player5,NEUTRAL_EVIL)
		SetGlobalTimer("CbPlayer5_Soul_devourerTimerTwo","GLOBAL",SEVEN_DAYS)
END

IF
	Global("CbPlayer5Has_Soul_devourer","GLOBAL",0)
	GlobalTimerExpired("CbSoul_devourer_Returns","GLOBAL")
THEN
	RESPONSE #100
		TakePartyItem("CBHBSLDV") // Hellblade:  Souldevourer
		GiveItemCreate("CBHBSLDV",Player5,1,0,0) // Hellblade:  Souldevourer
		SetGlobal("CbPlayer5Has_Soul_devourer","GLOBAL",1)
END

IF
	Global("CbPlayer5Has_Soul_devourer","GLOBAL",2)
	!HasItem("CBHBSLDV",Player5) // Hellblade:  Souldevourer
THEN
	RESPONSE #100
		SetGlobal("CbPlayer5Has_Soul_devourer","GLOBAL",0)
		SetGlobalTimer("CbSoul_devourer_Returns","GLOBAL",FOUR_DAYS)
END

IF
	Global("CbPlayer5Has_Soul_devourer","GLOBAL",1)
THEN
	RESPONSE #100
		SetGlobal("CbPlayer5Has_Soul_devourer","GLOBAL",2)
		SetGlobalTimer("CbPlayer5_Soul_devourer_TimerOne","GLOBAL",SEVEN_DAYS)
END

IF
	HasItem("CBHBSLDV",Player5) // Hellblade:  Souldevourer
	PartyHasItemIdentified("CBHBSLDV") // Hellblade:  Souldevourer
	Global("CbPlayer5Has_Soul_devourer","GLOBAL",0)
	!Global("CbPlayer1Has_Soul_devourer","GLOBAL",1)
	!Global("CbPlayer2Has_Soul_devourer","GLOBAL",1)
	!Global("CbPlayer3Has_Soul_devourer","GLOBAL",1)
	!Global("CbPlayer4Has_Soul_devourer","GLOBAL",1)
	!Global("CbPlayer6Has_Soul_devourer","GLOBAL",1)
THEN
	RESPONSE #100
		SetGlobal("CbPlayer5Has_Soul_devourer","GLOBAL",1)
END

IF
	Global("CbPlayer6Has_Soul_devourer","GLOBAL",5)
	!HasItem("CBHBSLDV",Player6) // Hellblade:  Souldevourer
	PartyHasItem("CBHBSLDV") // Hellblade:  Souldevourer
THEN
	RESPONSE #100
		TakePartyItem("CBHBSLDV") // Hellblade:  Souldevourer
		GiveItemCreate("CBHBSLDV",Player6,1,0,0) // Hellblade:  Souldevourer
		ReputationInc(-1)
END

IF
	Global("CbPlayer6Has_Soul_devourer","GLOBAL",5)
	!HasItem("CBHBSLDV",Player6) // Hellblade:  Souldevourer
	!PartyHasItem("CBHBSLDV") // Hellblade:  Souldevourer
THEN
	RESPONSE #100
		SetInterrupt(FALSE)
		ActionOverride(Player6,PickUpItem("CBHBSLDV")) // Hellblade:  Souldevourer
		ReputationInc(-1)
		SetInterrupt(TRUE)
END

IF
	GlobalTimerExpired("CbPlayer6_Soul_devourerTimerTwo","GLOBAL")
	Global("CbPlayer6Has_Soul_devourer","GLOBAL",3)
	HasItem("CBHBSLDV",Player6) // Hellblade:  Souldevourer
THEN
	RESPONSE #100
		SetGlobal("CbPlayer6Has_Soul_devourer","GLOBAL",5)
		ChangeAlignment(Player6,CHAOTIC_EVIL)
END

IF
	Global("CbPlayer6Has_Soul_devourer","GLOBAL",0)
	GlobalTimerExpired("CbSoul_devourer_ForceReturn","GLOBAL")
THEN
	RESPONSE #100
		TakePartyItem("CBHBSLDV") // Hellblade:  Souldevourer
		GiveItemCreate("CBHBSLDV",Player6,1,0,0) // Hellblade:  Souldevourer
		SetGlobal("CbPlayer6Has_Soul_devourer","GLOBAL",3)
		SetGlobalTimer("CbPlayer6_Soul_devourerTimerTwo","GLOBAL",TWO_DAYS)
END

IF
	Global("CbPlayer6Has_Soul_devourer","GLOBAL",3)
	!HasItem("CBHBSLDV",Player6) // Hellblade:  Souldevourer
THEN
	RESPONSE #100
		SetGlobal("CbPlayer6Has_Soul_devourer","GLOBAL",0)
		SetGlobalTimer("CbSoul_devourer_ForceReturn","GLOBAL",TWO_DAYS)
END

IF
	Global("CbPlayer6Has_Soul_devourer","GLOBAL",2)
	GlobalTimerExpired("CbPlayer6_Soul_devourer_TimerOne","GLOBAL")
	HasItem("CBHBSLDV",Player6) // Hellblade:  Souldevourer
THEN
	RESPONSE #100
		SetGlobal("CbPlayer6Has_Soul_devourer","GLOBAL",3)
		ChangeAlignment(Player6,NEUTRAL_EVIL)
		SetGlobalTimer("CbPlayer6_Soul_devourerTimerTwo","GLOBAL",SEVEN_DAYS)
END

IF
	Global("CbPlayer6Has_Soul_devourer","GLOBAL",0)
	GlobalTimerExpired("CbSoul_devourer_Returns","GLOBAL")
THEN
	RESPONSE #100
		TakePartyItem("CBHBSLDV") // Hellblade:  Souldevourer
		GiveItemCreate("CBHBSLDV",Player6,1,0,0) // Hellblade:  Souldevourer
		SetGlobal("CbPlayer6Has_Soul_devourer","GLOBAL",1)
END

IF
	Global("CbPlayer6Has_Soul_devourer","GLOBAL",2)
	!HasItem("CBHBSLDV",Player6) // Hellblade:  Souldevourer
THEN
	RESPONSE #100
		SetGlobal("CbPlayer6Has_Soul_devourer","GLOBAL",0)
		SetGlobalTimer("CbSoul_devourer_Returns","GLOBAL",FOUR_DAYS)
END

IF
	Global("CbPlayer6Has_Soul_devourer","GLOBAL",1)
THEN
	RESPONSE #100
		SetGlobal("CbPlayer6Has_Soul_devourer","GLOBAL",2)
		SetGlobalTimer("CbPlayer6_Soul_devourer_TimerOne","GLOBAL",SEVEN_DAYS)
END

IF
	HasItem("CBHBSLDV",Player6) // Hellblade:  Souldevourer
	PartyHasItemIdentified("CBHBSLDV") // Hellblade:  Souldevourer
	Global("CbPlayer6Has_Soul_devourer","GLOBAL",0)
	!Global("CbPlayer1Has_Soul_devourer","GLOBAL",1)
	!Global("CbPlayer2Has_Soul_devourer","GLOBAL",1)
	!Global("CbPlayer3Has_Soul_devourer","GLOBAL",1)
	!Global("CbPlayer4Has_Soul_devourer","GLOBAL",1)
	!Global("CbPlayer5Has_Soul_devourer","GLOBAL",1)
THEN
	RESPONSE #100
		SetGlobal("CbPlayer6Has_Soul_devourer","GLOBAL",1)
END

IF
	Global("CbPlayer1Has_Soul_sucker","GLOBAL",5)
	!HasItem("CBHBSLSK",Player1) // Hellblade:  Soulsucker
	PartyHasItem("CBHBSLSK") // Hellblade:  Soulsucker
THEN
	RESPONSE #100
		TakePartyItem("CBHBSLSK") // Hellblade:  Soulsucker
		GiveItemCreate("CBHBSLSK",Player1,1,0,0) // Hellblade:  Soulsucker
		ReputationInc(-1)
END

IF
	Global("CbPlayer1Has_Soul_sucker","GLOBAL",5)
	!HasItem("CBHBSLSK",Player1) // Hellblade:  Soulsucker
	!PartyHasItem("CBHBSLSK") // Hellblade:  Soulsucker
THEN
	RESPONSE #100
		SetInterrupt(FALSE)
		ActionOverride(Player1,PickUpItem("CBHBSLSK")) // Hellblade:  Soulsucker
		ReputationInc(-1)
		SetInterrupt(TRUE)
END

IF
	GlobalTimerExpired("CbPlayer1_Soul_suckerTimerTwo","GLOBAL")
	Global("CbPlayer1Has_Soul_sucker","GLOBAL",3)
	HasItem("CBHBSLSK",Player1) // Hellblade:  Soulsucker
THEN
	RESPONSE #100
		SetGlobal("CbPlayer1Has_Soul_sucker","GLOBAL",5)
		ChangeAlignment(Player1,CHAOTIC_EVIL)
END

IF
	Global("CbPlayer1Has_Soul_sucker","GLOBAL",0)
	GlobalTimerExpired("CbSoul_sucker_ForceReturn","GLOBAL")
THEN
	RESPONSE #100
		TakePartyItem("CBHBSLSK") // Hellblade:  Soulsucker
		GiveItemCreate("CBHBSLSK",Player1,1,0,0) // Hellblade:  Soulsucker
		SetGlobal("CbPlayer1Has_Soul_sucker","GLOBAL",3)
		SetGlobalTimer("CbPlayer1_Soul_suckerTimerTwo","GLOBAL",TWO_DAYS)
END

IF
	Global("CbPlayer1Has_Soul_sucker","GLOBAL",3)
	!HasItem("CBHBSLSK",Player1) // Hellblade:  Soulsucker
THEN
	RESPONSE #100
		SetGlobal("CbPlayer1Has_Soul_sucker","GLOBAL",0)
		SetGlobalTimer("CbSoul_sucker_ForceReturn","GLOBAL",TWO_DAYS)
END

IF
	Global("CbPlayer1Has_Soul_sucker","GLOBAL",2)
	GlobalTimerExpired("CbPlayer1_Soul_sucker_TimerOne","GLOBAL")
	HasItem("CBHBSLSK",Player1) // Hellblade:  Soulsucker
THEN
	RESPONSE #100
		SetGlobal("CbPlayer1Has_Soul_sucker","GLOBAL",3)
		ChangeAlignment(Player1,NEUTRAL_EVIL)
		SetGlobalTimer("CbPlayer1_Soul_suckerTimerTwo","GLOBAL",SEVEN_DAYS)
END

IF
	Global("CbPlayer1Has_Soul_sucker","GLOBAL",0)
	GlobalTimerExpired("CbSoul_sucker_Returns","GLOBAL")
THEN
	RESPONSE #100
		TakePartyItem("CBHBSLSK") // Hellblade:  Soulsucker
		GiveItemCreate("CBHBSLSK",Player1,1,0,0) // Hellblade:  Soulsucker
		SetGlobal("CbPlayer1Has_Soul_sucker","GLOBAL",1)
END

IF
	Global("CbPlayer1Has_Soul_sucker","GLOBAL",2)
	!HasItem("CBHBSLSK",Player1) // Hellblade:  Soulsucker
THEN
	RESPONSE #100
		SetGlobal("CbPlayer1Has_Soul_sucker","GLOBAL",0)
		SetGlobalTimer("CbSoul_sucker_Returns","GLOBAL",FOUR_DAYS)
END

IF
	Global("CbPlayer1Has_Soul_sucker","GLOBAL",1)
THEN
	RESPONSE #100
		SetGlobal("CbPlayer1Has_Soul_sucker","GLOBAL",2)
		SetGlobalTimer("CbPlayer1_Soul_sucker_TimerOne","GLOBAL",SEVEN_DAYS)
END

IF
	HasItem("CBHBSLSK",Player1) // Hellblade:  Soulsucker
	PartyHasItemIdentified("CBHBSLSK") // Hellblade:  Soulsucker
	Global("CbPlayer1Has_Soul_sucker","GLOBAL",0)
	!Global("CbPlayer2Has_Soul_sucker","GLOBAL",1)
	!Global("CbPlayer3Has_Soul_sucker","GLOBAL",1)
	!Global("CbPlayer4Has_Soul_sucker","GLOBAL",1)
	!Global("CbPlayer5Has_Soul_sucker","GLOBAL",1)
	!Global("CbPlayer6Has_Soul_sucker","GLOBAL",1)
THEN
	RESPONSE #100
		SetGlobal("CbPlayer1Has_Soul_sucker","GLOBAL",1)
END

IF
	Global("CbPlayer2Has_Soul_sucker","GLOBAL",5)
	!HasItem("CBHBSLSK",Player2) // Hellblade:  Soulsucker
	PartyHasItem("CBHBSLSK") // Hellblade:  Soulsucker
THEN
	RESPONSE #100
		TakePartyItem("CBHBSLSK") // Hellblade:  Soulsucker
		GiveItemCreate("CBHBSLSK",Player2,1,0,0) // Hellblade:  Soulsucker
		ReputationInc(-1)
END

IF
	Global("CbPlayer2Has_Soul_sucker","GLOBAL",5)
	!HasItem("CBHBSLSK",Player2) // Hellblade:  Soulsucker
	!PartyHasItem("CBHBSLSK") // Hellblade:  Soulsucker
THEN
	RESPONSE #100
		SetInterrupt(FALSE)
		ActionOverride(Player2,PickUpItem("CBHBSLSK")) // Hellblade:  Soulsucker
		ReputationInc(-1)
		SetInterrupt(TRUE)
END

IF
	GlobalTimerExpired("CbPlayer2_Soul_suckerTimerTwo","GLOBAL")
	Global("CbPlayer2Has_Soul_sucker","GLOBAL",3)
	HasItem("CBHBSLSK",Player2) // Hellblade:  Soulsucker
THEN
	RESPONSE #100
		SetGlobal("CbPlayer2Has_Soul_sucker","GLOBAL",5)
		ChangeAlignment(Player2,CHAOTIC_EVIL)
END

IF
	Global("CbPlayer2Has_Soul_sucker","GLOBAL",0)
	GlobalTimerExpired("CbSoul_sucker_ForceReturn","GLOBAL")
THEN
	RESPONSE #100
		TakePartyItem("CBHBSLSK") // Hellblade:  Soulsucker
		GiveItemCreate("CBHBSLSK",Player2,1,0,0) // Hellblade:  Soulsucker
		SetGlobal("CbPlayer2Has_Soul_sucker","GLOBAL",3)
		SetGlobalTimer("CbPlayer2_Soul_suckerTimerTwo","GLOBAL",TWO_DAYS)
END

IF
	Global("CbPlayer2Has_Soul_sucker","GLOBAL",3)
	!HasItem("CBHBSLSK",Player2) // Hellblade:  Soulsucker
THEN
	RESPONSE #100
		SetGlobal("CbPlayer2Has_Soul_sucker","GLOBAL",0)
		SetGlobalTimer("CbSoul_sucker_ForceReturn","GLOBAL",TWO_DAYS)
END

IF
	Global("CbPlayer2Has_Soul_sucker","GLOBAL",2)
	GlobalTimerExpired("CbPlayer2_Soul_sucker_TimerOne","GLOBAL")
	HasItem("CBHBSLSK",Player2) // Hellblade:  Soulsucker
THEN
	RESPONSE #100
		SetGlobal("CbPlayer2Has_Soul_sucker","GLOBAL",3)
		ChangeAlignment(Player2,NEUTRAL_EVIL)
		SetGlobalTimer("CbPlayer2_Soul_suckerTimerTwo","GLOBAL",SEVEN_DAYS)
END

IF
	Global("CbPlayer2Has_Soul_sucker","GLOBAL",0)
	GlobalTimerExpired("CbSoul_sucker_Returns","GLOBAL")
THEN
	RESPONSE #100
		TakePartyItem("CBHBSLSK") // Hellblade:  Soulsucker
		GiveItemCreate("CBHBSLSK",Player2,1,0,0) // Hellblade:  Soulsucker
		SetGlobal("CbPlayer2Has_Soul_sucker","GLOBAL",1)
END

IF
	Global("CbPlayer2Has_Soul_sucker","GLOBAL",2)
	!HasItem("CBHBSLSK",Player2) // Hellblade:  Soulsucker
THEN
	RESPONSE #100
		SetGlobal("CbPlayer2Has_Soul_sucker","GLOBAL",0)
		SetGlobalTimer("CbSoul_sucker_Returns","GLOBAL",FOUR_DAYS)
END

IF
	Global("CbPlayer2Has_Soul_sucker","GLOBAL",1)
THEN
	RESPONSE #100
		SetGlobal("CbPlayer2Has_Soul_sucker","GLOBAL",2)
		SetGlobalTimer("CbPlayer2_Soul_sucker_TimerOne","GLOBAL",SEVEN_DAYS)
END

IF
	HasItem("CBHBSLSK",Player2) // Hellblade:  Soulsucker
	PartyHasItemIdentified("CBHBSLSK") // Hellblade:  Soulsucker
	Global("CbPlayer2Has_Soul_sucker","GLOBAL",0)
	!Global("CbPlayer1Has_Soul_sucker","GLOBAL",1)
	!Global("CbPlayer3Has_Soul_sucker","GLOBAL",1)
	!Global("CbPlayer4Has_Soul_sucker","GLOBAL",1)
	!Global("CbPlayer5Has_Soul_sucker","GLOBAL",1)
	!Global("CbPlayer6Has_Soul_sucker","GLOBAL",1)
THEN
	RESPONSE #100
		SetGlobal("CbPlayer2Has_Soul_sucker","GLOBAL",1)
END

IF
	Global("CbPlayer3Has_Soul_sucker","GLOBAL",5)
	!HasItem("CBHBSLSK",Player3) // Hellblade:  Soulsucker
	PartyHasItem("CBHBSLSK") // Hellblade:  Soulsucker
THEN
	RESPONSE #100
		TakePartyItem("CBHBSLSK") // Hellblade:  Soulsucker
		GiveItemCreate("CBHBSLSK",Player3,1,0,0) // Hellblade:  Soulsucker
		ReputationInc(-1)
END

IF
	Global("CbPlayer3Has_Soul_sucker","GLOBAL",5)
	!HasItem("CBHBSLSK",Player3) // Hellblade:  Soulsucker
	!PartyHasItem("CBHBSLSK") // Hellblade:  Soulsucker
THEN
	RESPONSE #100
		SetInterrupt(FALSE)
		ActionOverride(Player3,PickUpItem("CBHBSLSK")) // Hellblade:  Soulsucker
		ReputationInc(-1)
		SetInterrupt(TRUE)
END

IF
	GlobalTimerExpired("CbPlayer3_Soul_suckerTimerTwo","GLOBAL")
	Global("CbPlayer3Has_Soul_sucker","GLOBAL",3)
	HasItem("CBHBSLSK",Player3) // Hellblade:  Soulsucker
THEN
	RESPONSE #100
		SetGlobal("CbPlayer3Has_Soul_sucker","GLOBAL",5)
		ChangeAlignment(Player3,CHAOTIC_EVIL)
END

IF
	Global("CbPlayer3Has_Soul_sucker","GLOBAL",0)
	GlobalTimerExpired("CbSoul_sucker_ForceReturn","GLOBAL")
THEN
	RESPONSE #100
		TakePartyItem("CBHBSLSK") // Hellblade:  Soulsucker
		GiveItemCreate("CBHBSLSK",Player3,1,0,0) // Hellblade:  Soulsucker
		SetGlobal("CbPlayer3Has_Soul_sucker","GLOBAL",3)
		SetGlobalTimer("CbPlayer3_Soul_suckerTimerTwo","GLOBAL",TWO_DAYS)
END

IF
	Global("CbPlayer3Has_Soul_sucker","GLOBAL",3)
	!HasItem("CBHBSLSK",Player3) // Hellblade:  Soulsucker
THEN
	RESPONSE #100
		SetGlobal("CbPlayer3Has_Soul_sucker","GLOBAL",0)
		SetGlobalTimer("CbSoul_sucker_ForceReturn","GLOBAL",TWO_DAYS)
END

IF
	Global("CbPlayer3Has_Soul_sucker","GLOBAL",2)
	GlobalTimerExpired("CbPlayer3_Soul_sucker_TimerOne","GLOBAL")
	HasItem("CBHBSLSK",Player3) // Hellblade:  Soulsucker
THEN
	RESPONSE #100
		SetGlobal("CbPlayer3Has_Soul_sucker","GLOBAL",3)
		ChangeAlignment(Player3,NEUTRAL_EVIL)
		SetGlobalTimer("CbPlayer3_Soul_suckerTimerTwo","GLOBAL",SEVEN_DAYS)
END

IF
	Global("CbPlayer3Has_Soul_sucker","GLOBAL",0)
	GlobalTimerExpired("CbSoul_sucker_Returns","GLOBAL")
THEN
	RESPONSE #100
		TakePartyItem("CBHBSLSK") // Hellblade:  Soulsucker
		GiveItemCreate("CBHBSLSK",Player3,1,0,0) // Hellblade:  Soulsucker
		SetGlobal("CbPlayer3Has_Soul_sucker","GLOBAL",1)
END

IF
	Global("CbPlayer3Has_Soul_sucker","GLOBAL",2)
	!HasItem("CBHBSLSK",Player3) // Hellblade:  Soulsucker
THEN
	RESPONSE #100
		SetGlobal("CbPlayer3Has_Soul_sucker","GLOBAL",0)
		SetGlobalTimer("CbSoul_sucker_Returns","GLOBAL",FOUR_DAYS)
END

IF
	Global("CbPlayer3Has_Soul_sucker","GLOBAL",1)
THEN
	RESPONSE #100
		SetGlobal("CbPlayer3Has_Soul_sucker","GLOBAL",2)
		SetGlobalTimer("CbPlayer3_Soul_sucker_TimerOne","GLOBAL",SEVEN_DAYS)
END

IF
	HasItem("CBHBSLSK",Player3) // Hellblade:  Soulsucker
	PartyHasItemIdentified("CBHBSLSK") // Hellblade:  Soulsucker
	Global("CbPlayer3Has_Soul_sucker","GLOBAL",0)
	!Global("CbPlayer1Has_Soul_sucker","GLOBAL",1)
	!Global("CbPlayer2Has_Soul_sucker","GLOBAL",1)
	!Global("CbPlayer4Has_Soul_sucker","GLOBAL",1)
	!Global("CbPlayer5Has_Soul_sucker","GLOBAL",1)
	!Global("CbPlayer6Has_Soul_sucker","GLOBAL",1)
THEN
	RESPONSE #100
		SetGlobal("CbPlayer3Has_Soul_sucker","GLOBAL",1)
END

IF
	Global("CbPlayer4Has_Soul_sucker","GLOBAL",5)
	!HasItem("CBHBSLSK",Player4) // Hellblade:  Soulsucker
	PartyHasItem("CBHBSLSK") // Hellblade:  Soulsucker
THEN
	RESPONSE #100
		TakePartyItem("CBHBSLSK") // Hellblade:  Soulsucker
		GiveItemCreate("CBHBSLSK",Player4,1,0,0) // Hellblade:  Soulsucker
		ReputationInc(-1)
END

IF
	Global("CbPlayer4Has_Soul_sucker","GLOBAL",5)
	!HasItem("CBHBSLSK",Player4) // Hellblade:  Soulsucker
	!PartyHasItem("CBHBSLSK") // Hellblade:  Soulsucker
THEN
	RESPONSE #100
		SetInterrupt(FALSE)
		ActionOverride(Player4,PickUpItem("CBHBSLSK")) // Hellblade:  Soulsucker
		ReputationInc(-1)
		SetInterrupt(TRUE)
END

IF
	GlobalTimerExpired("CbPlayer4_Soul_suckerTimerTwo","GLOBAL")
	Global("CbPlayer4Has_Soul_sucker","GLOBAL",3)
	HasItem("CBHBSLSK",Player4) // Hellblade:  Soulsucker
THEN
	RESPONSE #100
		SetGlobal("CbPlayer4Has_Soul_sucker","GLOBAL",5)
		ChangeAlignment(Player4,CHAOTIC_EVIL)
END

IF
	Global("CbPlayer4Has_Soul_sucker","GLOBAL",0)
	GlobalTimerExpired("CbSoul_sucker_ForceReturn","GLOBAL")
THEN
	RESPONSE #100
		TakePartyItem("CBHBSLSK") // Hellblade:  Soulsucker
		GiveItemCreate("CBHBSLSK",Player4,1,0,0) // Hellblade:  Soulsucker
		SetGlobal("CbPlayer4Has_Soul_sucker","GLOBAL",3)
		SetGlobalTimer("CbPlayer4_Soul_suckerTimerTwo","GLOBAL",TWO_DAYS)
END

IF
	Global("CbPlayer4Has_Soul_sucker","GLOBAL",3)
	!HasItem("CBHBSLSK",Player4) // Hellblade:  Soulsucker
THEN
	RESPONSE #100
		SetGlobal("CbPlayer4Has_Soul_sucker","GLOBAL",0)
		SetGlobalTimer("CbSoul_sucker_ForceReturn","GLOBAL",TWO_DAYS)
END

IF
	Global("CbPlayer4Has_Soul_sucker","GLOBAL",2)
	GlobalTimerExpired("CbPlayer4_Soul_sucker_TimerOne","GLOBAL")
	HasItem("CBHBSLSK",Player4) // Hellblade:  Soulsucker
THEN
	RESPONSE #100
		SetGlobal("CbPlayer4Has_Soul_sucker","GLOBAL",3)
		ChangeAlignment(Player4,NEUTRAL_EVIL)
		SetGlobalTimer("CbPlayer4_Soul_suckerTimerTwo","GLOBAL",SEVEN_DAYS)
END

IF
	Global("CbPlayer4Has_Soul_sucker","GLOBAL",0)
	GlobalTimerExpired("CbSoul_sucker_Returns","GLOBAL")
THEN
	RESPONSE #100
		TakePartyItem("CBHBSLSK") // Hellblade:  Soulsucker
		GiveItemCreate("CBHBSLSK",Player4,1,0,0) // Hellblade:  Soulsucker
		SetGlobal("CbPlayer4Has_Soul_sucker","GLOBAL",1)
END

IF
	Global("CbPlayer4Has_Soul_sucker","GLOBAL",2)
	!HasItem("CBHBSLSK",Player4) // Hellblade:  Soulsucker
THEN
	RESPONSE #100
		SetGlobal("CbPlayer4Has_Soul_sucker","GLOBAL",0)
		SetGlobalTimer("CbSoul_sucker_Returns","GLOBAL",FOUR_DAYS)
END

IF
	Global("CbPlayer4Has_Soul_sucker","GLOBAL",1)
THEN
	RESPONSE #100
		SetGlobal("CbPlayer4Has_Soul_sucker","GLOBAL",2)
		SetGlobalTimer("CbPlayer4_Soul_sucker_TimerOne","GLOBAL",SEVEN_DAYS)
END

IF
	HasItem("CBHBSLSK",Player4) // Hellblade:  Soulsucker
	PartyHasItemIdentified("CBHBSLSK") // Hellblade:  Soulsucker
	Global("CbPlayer4Has_Soul_sucker","GLOBAL",0)
	!Global("CbPlayer1Has_Soul_sucker","GLOBAL",1)
	!Global("CbPlayer2Has_Soul_sucker","GLOBAL",1)
	!Global("CbPlayer3Has_Soul_sucker","GLOBAL",1)
	!Global("CbPlayer5Has_Soul_sucker","GLOBAL",1)
	!Global("CbPlayer6Has_Soul_sucker","GLOBAL",1)
THEN
	RESPONSE #100
		SetGlobal("CbPlayer4Has_Soul_sucker","GLOBAL",1)
END

IF
	Global("CbPlayer5Has_Soul_sucker","GLOBAL",5)
	!HasItem("CBHBSLSK",Player5) // Hellblade:  Soulsucker
	PartyHasItem("CBHBSLSK") // Hellblade:  Soulsucker
THEN
	RESPONSE #100
		TakePartyItem("CBHBSLSK") // Hellblade:  Soulsucker
		GiveItemCreate("CBHBSLSK",Player5,1,0,0) // Hellblade:  Soulsucker
		ReputationInc(-1)
END

IF
	Global("CbPlayer5Has_Soul_sucker","GLOBAL",5)
	!HasItem("CBHBSLSK",Player5) // Hellblade:  Soulsucker
	!PartyHasItem("CBHBSLSK") // Hellblade:  Soulsucker
THEN
	RESPONSE #100
		SetInterrupt(FALSE)
		ActionOverride(Player5,PickUpItem("CBHBSLSK")) // Hellblade:  Soulsucker
		ReputationInc(-1)
		SetInterrupt(TRUE)
END

IF
	GlobalTimerExpired("CbPlayer5_Soul_suckerTimerTwo","GLOBAL")
	Global("CbPlayer5Has_Soul_sucker","GLOBAL",3)
	HasItem("CBHBSLSK",Player5) // Hellblade:  Soulsucker
THEN
	RESPONSE #100
		SetGlobal("CbPlayer5Has_Soul_sucker","GLOBAL",5)
		ChangeAlignment(Player5,CHAOTIC_EVIL)
END

IF
	Global("CbPlayer5Has_Soul_sucker","GLOBAL",0)
	GlobalTimerExpired("CbSoul_sucker_ForceReturn","GLOBAL")
THEN
	RESPONSE #100
		TakePartyItem("CBHBSLSK") // Hellblade:  Soulsucker
		GiveItemCreate("CBHBSLSK",Player5,1,0,0) // Hellblade:  Soulsucker
		SetGlobal("CbPlayer5Has_Soul_sucker","GLOBAL",3)
		SetGlobalTimer("CbPlayer5_Soul_suckerTimerTwo","GLOBAL",TWO_DAYS)
END

IF
	Global("CbPlayer5Has_Soul_sucker","GLOBAL",3)
	!HasItem("CBHBSLSK",Player5) // Hellblade:  Soulsucker
THEN
	RESPONSE #100
		SetGlobal("CbPlayer5Has_Soul_sucker","GLOBAL",0)
		SetGlobalTimer("CbSoul_sucker_ForceReturn","GLOBAL",TWO_DAYS)
END

IF
	Global("CbPlayer5Has_Soul_sucker","GLOBAL",2)
	GlobalTimerExpired("CbPlayer5_Soul_sucker_TimerOne","GLOBAL")
	HasItem("CBHBSLSK",Player5) // Hellblade:  Soulsucker
THEN
	RESPONSE #100
		SetGlobal("CbPlayer5Has_Soul_sucker","GLOBAL",3)
		ChangeAlignment(Player5,NEUTRAL_EVIL)
		SetGlobalTimer("CbPlayer5_Soul_suckerTimerTwo","GLOBAL",SEVEN_DAYS)
END

IF
	Global("CbPlayer5Has_Soul_sucker","GLOBAL",0)
	GlobalTimerExpired("CbSoul_sucker_Returns","GLOBAL")
THEN
	RESPONSE #100
		TakePartyItem("CBHBSLSK") // Hellblade:  Soulsucker
		GiveItemCreate("CBHBSLSK",Player5,1,0,0) // Hellblade:  Soulsucker
		SetGlobal("CbPlayer5Has_Soul_sucker","GLOBAL",1)
END

IF
	Global("CbPlayer5Has_Soul_sucker","GLOBAL",2)
	!HasItem("CBHBSLSK",Player5) // Hellblade:  Soulsucker
THEN
	RESPONSE #100
		SetGlobal("CbPlayer5Has_Soul_sucker","GLOBAL",0)
		SetGlobalTimer("CbSoul_sucker_Returns","GLOBAL",FOUR_DAYS)
END

IF
	Global("CbPlayer5Has_Soul_sucker","GLOBAL",1)
THEN
	RESPONSE #100
		SetGlobal("CbPlayer5Has_Soul_sucker","GLOBAL",2)
		SetGlobalTimer("CbPlayer5_Soul_sucker_TimerOne","GLOBAL",SEVEN_DAYS)
END

IF
	HasItem("CBHBSLSK",Player5) // Hellblade:  Soulsucker
	PartyHasItemIdentified("CBHBSLSK") // Hellblade:  Soulsucker
	Global("CbPlayer5Has_Soul_sucker","GLOBAL",0)
	!Global("CbPlayer1Has_Soul_sucker","GLOBAL",1)
	!Global("CbPlayer2Has_Soul_sucker","GLOBAL",1)
	!Global("CbPlayer3Has_Soul_sucker","GLOBAL",1)
	!Global("CbPlayer4Has_Soul_sucker","GLOBAL",1)
	!Global("CbPlayer6Has_Soul_sucker","GLOBAL",1)
THEN
	RESPONSE #100
		SetGlobal("CbPlayer5Has_Soul_sucker","GLOBAL",1)
END

IF
	Global("CbPlayer6Has_Soul_sucker","GLOBAL",5)
	!HasItem("CBHBSLSK",Player6) // Hellblade:  Soulsucker
	PartyHasItem("CBHBSLSK") // Hellblade:  Soulsucker
THEN
	RESPONSE #100
		TakePartyItem("CBHBSLSK") // Hellblade:  Soulsucker
		GiveItemCreate("CBHBSLSK",Player6,1,0,0) // Hellblade:  Soulsucker
		ReputationInc(-1)
END

IF
	Global("CbPlayer6Has_Soul_sucker","GLOBAL",5)
	!HasItem("CBHBSLSK",Player6) // Hellblade:  Soulsucker
	!PartyHasItem("CBHBSLSK") // Hellblade:  Soulsucker
THEN
	RESPONSE #100
		SetInterrupt(FALSE)
		ActionOverride(Player6,PickUpItem("CBHBSLSK")) // Hellblade:  Soulsucker
		ReputationInc(-1)
		SetInterrupt(TRUE)
END

IF
	GlobalTimerExpired("CbPlayer6_Soul_suckerTimerTwo","GLOBAL")
	Global("CbPlayer6Has_Soul_sucker","GLOBAL",3)
	HasItem("CBHBSLSK",Player6) // Hellblade:  Soulsucker
THEN
	RESPONSE #100
		SetGlobal("CbPlayer6Has_Soul_sucker","GLOBAL",5)
		ChangeAlignment(Player6,CHAOTIC_EVIL)
END

IF
	Global("CbPlayer6Has_Soul_sucker","GLOBAL",0)
	GlobalTimerExpired("CbSoul_sucker_ForceReturn","GLOBAL")
THEN
	RESPONSE #100
		TakePartyItem("CBHBSLSK") // Hellblade:  Soulsucker
		GiveItemCreate("CBHBSLSK",Player6,1,0,0) // Hellblade:  Soulsucker
		SetGlobal("CbPlayer6Has_Soul_sucker","GLOBAL",3)
		SetGlobalTimer("CbPlayer6_Soul_suckerTimerTwo","GLOBAL",TWO_DAYS)
END

IF
	Global("CbPlayer6Has_Soul_sucker","GLOBAL",3)
	!HasItem("CBHBSLSK",Player6) // Hellblade:  Soulsucker
THEN
	RESPONSE #100
		SetGlobal("CbPlayer6Has_Soul_sucker","GLOBAL",0)
		SetGlobalTimer("CbSoul_sucker_ForceReturn","GLOBAL",TWO_DAYS)
END

IF
	Global("CbPlayer6Has_Soul_sucker","GLOBAL",2)
	GlobalTimerExpired("CbPlayer6_Soul_sucker_TimerOne","GLOBAL")
	HasItem("CBHBSLSK",Player6) // Hellblade:  Soulsucker
THEN
	RESPONSE #100
		SetGlobal("CbPlayer6Has_Soul_sucker","GLOBAL",3)
		ChangeAlignment(Player6,NEUTRAL_EVIL)
		SetGlobalTimer("CbPlayer6_Soul_suckerTimerTwo","GLOBAL",SEVEN_DAYS)
END

IF
	Global("CbPlayer6Has_Soul_sucker","GLOBAL",0)
	GlobalTimerExpired("CbSoul_sucker_Returns","GLOBAL")
THEN
	RESPONSE #100
		TakePartyItem("CBHBSLSK") // Hellblade:  Soulsucker
		GiveItemCreate("CBHBSLSK",Player6,1,0,0) // Hellblade:  Soulsucker
		SetGlobal("CbPlayer6Has_Soul_sucker","GLOBAL",1)
END

IF
	Global("CbPlayer6Has_Soul_sucker","GLOBAL",2)
	!HasItem("CBHBSLSK",Player6) // Hellblade:  Soulsucker
THEN
	RESPONSE #100
		SetGlobal("CbPlayer6Has_Soul_sucker","GLOBAL",0)
		SetGlobalTimer("CbSoul_sucker_Returns","GLOBAL",FOUR_DAYS)
END

IF
	Global("CbPlayer6Has_Soul_sucker","GLOBAL",1)
THEN
	RESPONSE #100
		SetGlobal("CbPlayer6Has_Soul_sucker","GLOBAL",2)
		SetGlobalTimer("CbPlayer6_Soul_sucker_TimerOne","GLOBAL",SEVEN_DAYS)
END

IF
	HasItem("CBHBSLSK",Player6) // Hellblade:  Soulsucker
	PartyHasItemIdentified("CBHBSLSK") // Hellblade:  Soulsucker
	Global("CbPlayer6Has_Soul_sucker","GLOBAL",0)
	!Global("CbPlayer1Has_Soul_sucker","GLOBAL",1)
	!Global("CbPlayer2Has_Soul_sucker","GLOBAL",1)
	!Global("CbPlayer3Has_Soul_sucker","GLOBAL",1)
	!Global("CbPlayer4Has_Soul_sucker","GLOBAL",1)
	!Global("CbPlayer5Has_Soul_sucker","GLOBAL",1)
THEN
	RESPONSE #100
		SetGlobal("CbPlayer6Has_Soul_sucker","GLOBAL",1)
END

IF
	Global("CbPlayer1Has_Soul_skinner","GLOBAL",5)
	!HasItem("CBHBSLSN",Player1) // Hellblade:  Soulskinner
	PartyHasItem("CBHBSLSN") // Hellblade:  Soulskinner
THEN
	RESPONSE #100
		TakePartyItem("CBHBSLSN") // Hellblade:  Soulskinner
		GiveItemCreate("CBHBSLSN",Player1,1,0,0) // Hellblade:  Soulskinner
		ReputationInc(-1)
END

IF
	Global("CbPlayer1Has_Soul_skinner","GLOBAL",5)
	!HasItem("CBHBSLSN",Player1) // Hellblade:  Soulskinner
	!PartyHasItem("CBHBSLSN") // Hellblade:  Soulskinner
THEN
	RESPONSE #100
		SetInterrupt(FALSE)
		ActionOverride(Player1,PickUpItem("CBHBSLSN")) // Hellblade:  Soulskinner
		ReputationInc(-1)
		SetInterrupt(TRUE)
END

IF
	GlobalTimerExpired("CbPlayer1_Soul_skinnerTimerTwo","GLOBAL")
	Global("CbPlayer1Has_Soul_skinner","GLOBAL",3)
	HasItem("CBHBSLSN",Player1) // Hellblade:  Soulskinner
THEN
	RESPONSE #100
		SetGlobal("CbPlayer1Has_Soul_skinner","GLOBAL",5)
		ChangeAlignment(Player1,CHAOTIC_EVIL)
END

IF
	Global("CbPlayer1Has_Soul_skinner","GLOBAL",0)
	GlobalTimerExpired("CbSoul_skinner_ForceReturn","GLOBAL")
THEN
	RESPONSE #100
		TakePartyItem("CBHBSLSN") // Hellblade:  Soulskinner
		GiveItemCreate("CBHBSLSN",Player1,1,0,0) // Hellblade:  Soulskinner
		SetGlobal("CbPlayer1Has_Soul_skinner","GLOBAL",3)
		SetGlobalTimer("CbPlayer1_Soul_skinnerTimerTwo","GLOBAL",TWO_DAYS)
END

IF
	Global("CbPlayer1Has_Soul_skinner","GLOBAL",3)
	!HasItem("CBHBSLSN",Player1) // Hellblade:  Soulskinner
THEN
	RESPONSE #100
		SetGlobal("CbPlayer1Has_Soul_skinner","GLOBAL",0)
		SetGlobalTimer("CbSoul_skinner_ForceReturn","GLOBAL",TWO_DAYS)
END

IF
	Global("CbPlayer1Has_Soul_skinner","GLOBAL",2)
	GlobalTimerExpired("CbPlayer1_Soul_skinner_TimerOne","GLOBAL")
	HasItem("CBHBSLSN",Player1) // Hellblade:  Soulskinner
THEN
	RESPONSE #100
		SetGlobal("CbPlayer1Has_Soul_skinner","GLOBAL",3)
		ChangeAlignment(Player1,NEUTRAL_EVIL)
		SetGlobalTimer("CbPlayer1_Soul_skinnerTimerTwo","GLOBAL",SEVEN_DAYS)
END

IF
	Global("CbPlayer1Has_Soul_skinner","GLOBAL",0)
	GlobalTimerExpired("CbSoul_skinner_Returns","GLOBAL")
THEN
	RESPONSE #100
		TakePartyItem("CBHBSLSN") // Hellblade:  Soulskinner
		GiveItemCreate("CBHBSLSN",Player1,1,0,0) // Hellblade:  Soulskinner
		SetGlobal("CbPlayer1Has_Soul_skinner","GLOBAL",1)
END

IF
	Global("CbPlayer1Has_Soul_skinner","GLOBAL",2)
	!HasItem("CBHBSLSN",Player1) // Hellblade:  Soulskinner
THEN
	RESPONSE #100
		SetGlobal("CbPlayer1Has_Soul_skinner","GLOBAL",0)
		SetGlobalTimer("CbSoul_skinner_Returns","GLOBAL",FOUR_DAYS)
END

IF
	Global("CbPlayer1Has_Soul_skinner","GLOBAL",1)
THEN
	RESPONSE #100
		SetGlobal("CbPlayer1Has_Soul_skinner","GLOBAL",2)
		SetGlobalTimer("CbPlayer1_Soul_skinner_TimerOne","GLOBAL",SEVEN_DAYS)
END

IF
	HasItem("CBHBSLSN",Player1) // Hellblade:  Soulskinner
	PartyHasItemIdentified("CBHBSLSN") // Hellblade:  Soulskinner
	Global("CbPlayer1Has_Soul_skinner","GLOBAL",0)
	!Global("CbPlayer2Has_Soul_skinner","GLOBAL",1)
	!Global("CbPlayer3Has_Soul_skinner","GLOBAL",1)
	!Global("CbPlayer4Has_Soul_skinner","GLOBAL",1)
	!Global("CbPlayer5Has_Soul_skinner","GLOBAL",1)
	!Global("CbPlayer6Has_Soul_skinner","GLOBAL",1)
THEN
	RESPONSE #100
		SetGlobal("CbPlayer1Has_Soul_skinner","GLOBAL",1)
END

IF
	Global("CbPlayer2Has_Soul_skinner","GLOBAL",5)
	!HasItem("CBHBSLSN",Player2) // Hellblade:  Soulskinner
	PartyHasItem("CBHBSLSN") // Hellblade:  Soulskinner
THEN
	RESPONSE #100
		TakePartyItem("CBHBSLSN") // Hellblade:  Soulskinner
		GiveItemCreate("CBHBSLSN",Player2,1,0,0) // Hellblade:  Soulskinner
		ReputationInc(-1)
END

IF
	Global("CbPlayer2Has_Soul_skinner","GLOBAL",5)
	!HasItem("CBHBSLSN",Player2) // Hellblade:  Soulskinner
	!PartyHasItem("CBHBSLSN") // Hellblade:  Soulskinner
THEN
	RESPONSE #100
		SetInterrupt(FALSE)
		ActionOverride(Player2,PickUpItem("CBHBSLSN")) // Hellblade:  Soulskinner
		ReputationInc(-1)
		SetInterrupt(TRUE)
END

IF
	GlobalTimerExpired("CbPlayer2_Soul_skinnerTimerTwo","GLOBAL")
	Global("CbPlayer2Has_Soul_skinner","GLOBAL",3)
	HasItem("CBHBSLSN",Player2) // Hellblade:  Soulskinner
THEN
	RESPONSE #100
		SetGlobal("CbPlayer2Has_Soul_skinner","GLOBAL",5)
		ChangeAlignment(Player2,CHAOTIC_EVIL)
END

IF
	Global("CbPlayer2Has_Soul_skinner","GLOBAL",0)
	GlobalTimerExpired("CbSoul_skinner_ForceReturn","GLOBAL")
THEN
	RESPONSE #100
		TakePartyItem("CBHBSLSN") // Hellblade:  Soulskinner
		GiveItemCreate("CBHBSLSN",Player2,1,0,0) // Hellblade:  Soulskinner
		SetGlobal("CbPlayer2Has_Soul_skinner","GLOBAL",3)
		SetGlobalTimer("CbPlayer2_Soul_skinnerTimerTwo","GLOBAL",TWO_DAYS)
END

IF
	Global("CbPlayer2Has_Soul_skinner","GLOBAL",3)
	!HasItem("CBHBSLSN",Player2) // Hellblade:  Soulskinner
THEN
	RESPONSE #100
		SetGlobal("CbPlayer2Has_Soul_skinner","GLOBAL",0)
		SetGlobalTimer("CbSoul_skinner_ForceReturn","GLOBAL",TWO_DAYS)
END

IF
	Global("CbPlayer2Has_Soul_skinner","GLOBAL",2)
	GlobalTimerExpired("CbPlayer2_Soul_skinner_TimerOne","GLOBAL")
	HasItem("CBHBSLSN",Player2) // Hellblade:  Soulskinner
THEN
	RESPONSE #100
		SetGlobal("CbPlayer2Has_Soul_skinner","GLOBAL",3)
		ChangeAlignment(Player2,NEUTRAL_EVIL)
		SetGlobalTimer("CbPlayer2_Soul_skinnerTimerTwo","GLOBAL",SEVEN_DAYS)
END

IF
	Global("CbPlayer2Has_Soul_skinner","GLOBAL",0)
	GlobalTimerExpired("CbSoul_skinner_Returns","GLOBAL")
THEN
	RESPONSE #100
		TakePartyItem("CBHBSLSN") // Hellblade:  Soulskinner
		GiveItemCreate("CBHBSLSN",Player2,1,0,0) // Hellblade:  Soulskinner
		SetGlobal("CbPlayer2Has_Soul_skinner","GLOBAL",1)
END

IF
	Global("CbPlayer2Has_Soul_skinner","GLOBAL",2)
	!HasItem("CBHBSLSN",Player2) // Hellblade:  Soulskinner
THEN
	RESPONSE #100
		SetGlobal("CbPlayer2Has_Soul_skinner","GLOBAL",0)
		SetGlobalTimer("CbSoul_skinner_Returns","GLOBAL",FOUR_DAYS)
END

IF
	Global("CbPlayer2Has_Soul_skinner","GLOBAL",1)
THEN
	RESPONSE #100
		SetGlobal("CbPlayer2Has_Soul_skinner","GLOBAL",2)
		SetGlobalTimer("CbPlayer2_Soul_skinner_TimerOne","GLOBAL",SEVEN_DAYS)
END

IF
	HasItem("CBHBSLSN",Player2) // Hellblade:  Soulskinner
	PartyHasItemIdentified("CBHBSLSN") // Hellblade:  Soulskinner
	Global("CbPlayer2Has_Soul_skinner","GLOBAL",0)
	!Global("CbPlayer1Has_Soul_skinner","GLOBAL",1)
	!Global("CbPlayer3Has_Soul_skinner","GLOBAL",1)
	!Global("CbPlayer4Has_Soul_skinner","GLOBAL",1)
	!Global("CbPlayer5Has_Soul_skinner","GLOBAL",1)
	!Global("CbPlayer6Has_Soul_skinner","GLOBAL",1)
THEN
	RESPONSE #100
		SetGlobal("CbPlayer2Has_Soul_skinner","GLOBAL",1)
END

IF
	Global("CbPlayer3Has_Soul_skinner","GLOBAL",5)
	!HasItem("CBHBSLSN",Player3) // Hellblade:  Soulskinner
	PartyHasItem("CBHBSLSN") // Hellblade:  Soulskinner
THEN
	RESPONSE #100
		TakePartyItem("CBHBSLSN") // Hellblade:  Soulskinner
		GiveItemCreate("CBHBSLSN",Player3,1,0,0) // Hellblade:  Soulskinner
		ReputationInc(-1)
END

IF
	Global("CbPlayer3Has_Soul_skinner","GLOBAL",5)
	!HasItem("CBHBSLSN",Player3) // Hellblade:  Soulskinner
	!PartyHasItem("CBHBSLSN") // Hellblade:  Soulskinner
THEN
	RESPONSE #100
		SetInterrupt(FALSE)
		ActionOverride(Player3,PickUpItem("CBHBSLSN")) // Hellblade:  Soulskinner
		ReputationInc(-1)
		SetInterrupt(TRUE)
END

IF
	GlobalTimerExpired("CbPlayer3_Soul_skinnerTimerTwo","GLOBAL")
	Global("CbPlayer3Has_Soul_skinner","GLOBAL",3)
	HasItem("CBHBSLSN",Player3) // Hellblade:  Soulskinner
THEN
	RESPONSE #100
		SetGlobal("CbPlayer3Has_Soul_skinner","GLOBAL",5)
		ChangeAlignment(Player3,CHAOTIC_EVIL)
END

IF
	Global("CbPlayer3Has_Soul_skinner","GLOBAL",0)
	GlobalTimerExpired("CbSoul_skinner_ForceReturn","GLOBAL")
THEN
	RESPONSE #100
		TakePartyItem("CBHBSLSN") // Hellblade:  Soulskinner
		GiveItemCreate("CBHBSLSN",Player3,1,0,0) // Hellblade:  Soulskinner
		SetGlobal("CbPlayer3Has_Soul_skinner","GLOBAL",3)
		SetGlobalTimer("CbPlayer3_Soul_skinnerTimerTwo","GLOBAL",TWO_DAYS)
END

IF
	Global("CbPlayer3Has_Soul_skinner","GLOBAL",3)
	!HasItem("CBHBSLSN",Player3) // Hellblade:  Soulskinner
THEN
	RESPONSE #100
		SetGlobal("CbPlayer3Has_Soul_skinner","GLOBAL",0)
		SetGlobalTimer("CbSoul_skinner_ForceReturn","GLOBAL",TWO_DAYS)
END

IF
	Global("CbPlayer3Has_Soul_skinner","GLOBAL",2)
	GlobalTimerExpired("CbPlayer3_Soul_skinner_TimerOne","GLOBAL")
	HasItem("CBHBSLSN",Player3) // Hellblade:  Soulskinner
THEN
	RESPONSE #100
		SetGlobal("CbPlayer3Has_Soul_skinner","GLOBAL",3)
		ChangeAlignment(Player3,NEUTRAL_EVIL)
		SetGlobalTimer("CbPlayer3_Soul_skinnerTimerTwo","GLOBAL",SEVEN_DAYS)
END

IF
	Global("CbPlayer3Has_Soul_skinner","GLOBAL",0)
	GlobalTimerExpired("CbSoul_skinner_Returns","GLOBAL")
THEN
	RESPONSE #100
		TakePartyItem("CBHBSLSN") // Hellblade:  Soulskinner
		GiveItemCreate("CBHBSLSN",Player3,1,0,0) // Hellblade:  Soulskinner
		SetGlobal("CbPlayer3Has_Soul_skinner","GLOBAL",1)
END

IF
	Global("CbPlayer3Has_Soul_skinner","GLOBAL",2)
	!HasItem("CBHBSLSN",Player3) // Hellblade:  Soulskinner
THEN
	RESPONSE #100
		SetGlobal("CbPlayer3Has_Soul_skinner","GLOBAL",0)
		SetGlobalTimer("CbSoul_skinner_Returns","GLOBAL",FOUR_DAYS)
END

IF
	Global("CbPlayer3Has_Soul_skinner","GLOBAL",1)
THEN
	RESPONSE #100
		SetGlobal("CbPlayer3Has_Soul_skinner","GLOBAL",2)
		SetGlobalTimer("CbPlayer3_Soul_skinner_TimerOne","GLOBAL",SEVEN_DAYS)
END

IF
	HasItem("CBHBSLSN",Player3) // Hellblade:  Soulskinner
	PartyHasItemIdentified("CBHBSLSN") // Hellblade:  Soulskinner
	Global("CbPlayer3Has_Soul_skinner","GLOBAL",0)
	!Global("CbPlayer1Has_Soul_skinner","GLOBAL",1)
	!Global("CbPlayer2Has_Soul_skinner","GLOBAL",1)
	!Global("CbPlayer4Has_Soul_skinner","GLOBAL",1)
	!Global("CbPlayer5Has_Soul_skinner","GLOBAL",1)
	!Global("CbPlayer6Has_Soul_skinner","GLOBAL",1)
THEN
	RESPONSE #100
		SetGlobal("CbPlayer3Has_Soul_skinner","GLOBAL",1)
END

IF
	Global("CbPlayer4Has_Soul_skinner","GLOBAL",5)
	!HasItem("CBHBSLSN",Player4) // Hellblade:  Soulskinner
	PartyHasItem("CBHBSLSN") // Hellblade:  Soulskinner
THEN
	RESPONSE #100
		TakePartyItem("CBHBSLSN") // Hellblade:  Soulskinner
		GiveItemCreate("CBHBSLSN",Player4,1,0,0) // Hellblade:  Soulskinner
		ReputationInc(-1)
END

IF
	Global("CbPlayer4Has_Soul_skinner","GLOBAL",5)
	!HasItem("CBHBSLSN",Player4) // Hellblade:  Soulskinner
	!PartyHasItem("CBHBSLSN") // Hellblade:  Soulskinner
THEN
	RESPONSE #100
		SetInterrupt(FALSE)
		ActionOverride(Player4,PickUpItem("CBHBSLSN")) // Hellblade:  Soulskinner
		ReputationInc(-1)
		SetInterrupt(TRUE)
END

IF
	GlobalTimerExpired("CbPlayer4_Soul_skinnerTimerTwo","GLOBAL")
	Global("CbPlayer4Has_Soul_skinner","GLOBAL",3)
	HasItem("CBHBSLSN",Player4) // Hellblade:  Soulskinner
THEN
	RESPONSE #100
		SetGlobal("CbPlayer4Has_Soul_skinner","GLOBAL",5)
		ChangeAlignment(Player4,CHAOTIC_EVIL)
END

IF
	Global("CbPlayer4Has_Soul_skinner","GLOBAL",0)
	GlobalTimerExpired("CbSoul_skinner_ForceReturn","GLOBAL")
THEN
	RESPONSE #100
		TakePartyItem("CBHBSLSN") // Hellblade:  Soulskinner
		GiveItemCreate("CBHBSLSN",Player4,1,0,0) // Hellblade:  Soulskinner
		SetGlobal("CbPlayer4Has_Soul_skinner","GLOBAL",3)
		SetGlobalTimer("CbPlayer4_Soul_skinnerTimerTwo","GLOBAL",TWO_DAYS)
END

IF
	Global("CbPlayer4Has_Soul_skinner","GLOBAL",3)
	!HasItem("CBHBSLSN",Player4) // Hellblade:  Soulskinner
THEN
	RESPONSE #100
		SetGlobal("CbPlayer4Has_Soul_skinner","GLOBAL",0)
		SetGlobalTimer("CbSoul_skinner_ForceReturn","GLOBAL",TWO_DAYS)
END

IF
	Global("CbPlayer4Has_Soul_skinner","GLOBAL",2)
	GlobalTimerExpired("CbPlayer4_Soul_skinner_TimerOne","GLOBAL")
	HasItem("CBHBSLSN",Player4) // Hellblade:  Soulskinner
THEN
	RESPONSE #100
		SetGlobal("CbPlayer4Has_Soul_skinner","GLOBAL",3)
		ChangeAlignment(Player4,NEUTRAL_EVIL)
		SetGlobalTimer("CbPlayer4_Soul_skinnerTimerTwo","GLOBAL",SEVEN_DAYS)
END

IF
	Global("CbPlayer4Has_Soul_skinner","GLOBAL",0)
	GlobalTimerExpired("CbSoul_skinner_Returns","GLOBAL")
THEN
	RESPONSE #100
		TakePartyItem("CBHBSLSN") // Hellblade:  Soulskinner
		GiveItemCreate("CBHBSLSN",Player4,1,0,0) // Hellblade:  Soulskinner
		SetGlobal("CbPlayer4Has_Soul_skinner","GLOBAL",1)
END

IF
	Global("CbPlayer4Has_Soul_skinner","GLOBAL",2)
	!HasItem("CBHBSLSN",Player4) // Hellblade:  Soulskinner
THEN
	RESPONSE #100
		SetGlobal("CbPlayer4Has_Soul_skinner","GLOBAL",0)
		SetGlobalTimer("CbSoul_skinner_Returns","GLOBAL",FOUR_DAYS)
END

IF
	Global("CbPlayer4Has_Soul_skinner","GLOBAL",1)
THEN
	RESPONSE #100
		SetGlobal("CbPlayer4Has_Soul_skinner","GLOBAL",2)
		SetGlobalTimer("CbPlayer4_Soul_skinner_TimerOne","GLOBAL",SEVEN_DAYS)
END

IF
	HasItem("CBHBSLSN",Player4) // Hellblade:  Soulskinner
	PartyHasItemIdentified("CBHBSLSN") // Hellblade:  Soulskinner
	Global("CbPlayer4Has_Soul_skinner","GLOBAL",0)
	!Global("CbPlayer1Has_Soul_skinner","GLOBAL",1)
	!Global("CbPlayer2Has_Soul_skinner","GLOBAL",1)
	!Global("CbPlayer3Has_Soul_skinner","GLOBAL",1)
	!Global("CbPlayer5Has_Soul_skinner","GLOBAL",1)
	!Global("CbPlayer6Has_Soul_skinner","GLOBAL",1)
THEN
	RESPONSE #100
		SetGlobal("CbPlayer4Has_Soul_skinner","GLOBAL",1)
END

IF
	Global("CbPlayer5Has_Soul_skinner","GLOBAL",5)
	!HasItem("CBHBSLSN",Player5) // Hellblade:  Soulskinner
	PartyHasItem("CBHBSLSN") // Hellblade:  Soulskinner
THEN
	RESPONSE #100
		TakePartyItem("CBHBSLSN") // Hellblade:  Soulskinner
		GiveItemCreate("CBHBSLSN",Player5,1,0,0) // Hellblade:  Soulskinner
		ReputationInc(-1)
END

IF
	Global("CbPlayer5Has_Soul_skinner","GLOBAL",5)
	!HasItem("CBHBSLSN",Player5) // Hellblade:  Soulskinner
	!PartyHasItem("CBHBSLSN") // Hellblade:  Soulskinner
THEN
	RESPONSE #100
		SetInterrupt(FALSE)
		ActionOverride(Player5,PickUpItem("CBHBSLSN")) // Hellblade:  Soulskinner
		ReputationInc(-1)
		SetInterrupt(TRUE)
END

IF
	GlobalTimerExpired("CbPlayer5_Soul_skinnerTimerTwo","GLOBAL")
	Global("CbPlayer5Has_Soul_skinner","GLOBAL",3)
	HasItem("CBHBSLSN",Player5) // Hellblade:  Soulskinner
THEN
	RESPONSE #100
		SetGlobal("CbPlayer5Has_Soul_skinner","GLOBAL",5)
		ChangeAlignment(Player5,CHAOTIC_EVIL)
END

IF
	Global("CbPlayer5Has_Soul_skinner","GLOBAL",0)
	GlobalTimerExpired("CbSoul_skinner_ForceReturn","GLOBAL")
THEN
	RESPONSE #100
		TakePartyItem("CBHBSLSN") // Hellblade:  Soulskinner
		GiveItemCreate("CBHBSLSN",Player5,1,0,0) // Hellblade:  Soulskinner
		SetGlobal("CbPlayer5Has_Soul_skinner","GLOBAL",3)
		SetGlobalTimer("CbPlayer5_Soul_skinnerTimerTwo","GLOBAL",TWO_DAYS)
END

IF
	Global("CbPlayer5Has_Soul_skinner","GLOBAL",3)
	!HasItem("CBHBSLSN",Player5) // Hellblade:  Soulskinner
THEN
	RESPONSE #100
		SetGlobal("CbPlayer5Has_Soul_skinner","GLOBAL",0)
		SetGlobalTimer("CbSoul_skinner_ForceReturn","GLOBAL",TWO_DAYS)
END

IF
	Global("CbPlayer5Has_Soul_skinner","GLOBAL",2)
	GlobalTimerExpired("CbPlayer5_Soul_skinner_TimerOne","GLOBAL")
	HasItem("CBHBSLSN",Player5) // Hellblade:  Soulskinner
THEN
	RESPONSE #100
		SetGlobal("CbPlayer5Has_Soul_skinner","GLOBAL",3)
		ChangeAlignment(Player5,NEUTRAL_EVIL)
		SetGlobalTimer("CbPlayer5_Soul_skinnerTimerTwo","GLOBAL",SEVEN_DAYS)
END

IF
	Global("CbPlayer5Has_Soul_skinner","GLOBAL",0)
	GlobalTimerExpired("CbSoul_skinner_Returns","GLOBAL")
THEN
	RESPONSE #100
		TakePartyItem("CBHBSLSN") // Hellblade:  Soulskinner
		GiveItemCreate("CBHBSLSN",Player5,1,0,0) // Hellblade:  Soulskinner
		SetGlobal("CbPlayer5Has_Soul_skinner","GLOBAL",1)
END

IF
	Global("CbPlayer5Has_Soul_skinner","GLOBAL",2)
	!HasItem("CBHBSLSN",Player5) // Hellblade:  Soulskinner
THEN
	RESPONSE #100
		SetGlobal("CbPlayer5Has_Soul_skinner","GLOBAL",0)
		SetGlobalTimer("CbSoul_skinner_Returns","GLOBAL",FOUR_DAYS)
END

IF
	Global("CbPlayer5Has_Soul_skinner","GLOBAL",1)
THEN
	RESPONSE #100
		SetGlobal("CbPlayer5Has_Soul_skinner","GLOBAL",2)
		SetGlobalTimer("CbPlayer5_Soul_skinner_TimerOne","GLOBAL",SEVEN_DAYS)
END

IF
	HasItem("CBHBSLSN",Player5) // Hellblade:  Soulskinner
	PartyHasItemIdentified("CBHBSLSN") // Hellblade:  Soulskinner
	Global("CbPlayer5Has_Soul_skinner","GLOBAL",0)
	!Global("CbPlayer1Has_Soul_skinner","GLOBAL",1)
	!Global("CbPlayer2Has_Soul_skinner","GLOBAL",1)
	!Global("CbPlayer3Has_Soul_skinner","GLOBAL",1)
	!Global("CbPlayer4Has_Soul_skinner","GLOBAL",1)
	!Global("CbPlayer6Has_Soul_skinner","GLOBAL",1)
THEN
	RESPONSE #100
		SetGlobal("CbPlayer5Has_Soul_skinner","GLOBAL",1)
END

IF
	Global("CbPlayer6Has_Soul_skinner","GLOBAL",5)
	!HasItem("CBHBSLSN",Player6) // Hellblade:  Soulskinner
	PartyHasItem("CBHBSLSN") // Hellblade:  Soulskinner
THEN
	RESPONSE #100
		TakePartyItem("CBHBSLSN") // Hellblade:  Soulskinner
		GiveItemCreate("CBHBSLSN",Player6,1,0,0) // Hellblade:  Soulskinner
		ReputationInc(-1)
END

IF
	Global("CbPlayer6Has_Soul_skinner","GLOBAL",5)
	!HasItem("CBHBSLSN",Player6) // Hellblade:  Soulskinner
	!PartyHasItem("CBHBSLSN") // Hellblade:  Soulskinner
THEN
	RESPONSE #100
		SetInterrupt(FALSE)
		ActionOverride(Player6,PickUpItem("CBHBSLSN")) // Hellblade:  Soulskinner
		ReputationInc(-1)
		SetInterrupt(TRUE)
END

IF
	GlobalTimerExpired("CbPlayer6_Soul_skinnerTimerTwo","GLOBAL")
	Global("CbPlayer6Has_Soul_skinner","GLOBAL",3)
	HasItem("CBHBSLSN",Player6) // Hellblade:  Soulskinner
THEN
	RESPONSE #100
		SetGlobal("CbPlayer6Has_Soul_skinner","GLOBAL",5)
		ChangeAlignment(Player6,CHAOTIC_EVIL)
END

IF
	Global("CbPlayer6Has_Soul_skinner","GLOBAL",0)
	GlobalTimerExpired("CbSoul_skinner_ForceReturn","GLOBAL")
THEN
	RESPONSE #100
		TakePartyItem("CBHBSLSN") // Hellblade:  Soulskinner
		GiveItemCreate("CBHBSLSN",Player6,1,0,0) // Hellblade:  Soulskinner
		SetGlobal("CbPlayer6Has_Soul_skinner","GLOBAL",3)
		SetGlobalTimer("CbPlayer6_Soul_skinnerTimerTwo","GLOBAL",TWO_DAYS)
END

IF
	Global("CbPlayer6Has_Soul_skinner","GLOBAL",3)
	!HasItem("CBHBSLSN",Player6) // Hellblade:  Soulskinner
THEN
	RESPONSE #100
		SetGlobal("CbPlayer6Has_Soul_skinner","GLOBAL",0)
		SetGlobalTimer("CbSoul_skinner_ForceReturn","GLOBAL",TWO_DAYS)
END

IF
	Global("CbPlayer6Has_Soul_skinner","GLOBAL",2)
	GlobalTimerExpired("CbPlayer6_Soul_skinner_TimerOne","GLOBAL")
	HasItem("CBHBSLSN",Player6) // Hellblade:  Soulskinner
THEN
	RESPONSE #100
		SetGlobal("CbPlayer6Has_Soul_skinner","GLOBAL",3)
		ChangeAlignment(Player6,NEUTRAL_EVIL)
		SetGlobalTimer("CbPlayer6_Soul_skinnerTimerTwo","GLOBAL",SEVEN_DAYS)
END

IF
	Global("CbPlayer6Has_Soul_skinner","GLOBAL",0)
	GlobalTimerExpired("CbSoul_skinner_Returns","GLOBAL")
THEN
	RESPONSE #100
		TakePartyItem("CBHBSLSN") // Hellblade:  Soulskinner
		GiveItemCreate("CBHBSLSN",Player6,1,0,0) // Hellblade:  Soulskinner
		SetGlobal("CbPlayer6Has_Soul_skinner","GLOBAL",1)
END

IF
	Global("CbPlayer6Has_Soul_skinner","GLOBAL",2)
	!HasItem("CBHBSLSN",Player6) // Hellblade:  Soulskinner
THEN
	RESPONSE #100
		SetGlobal("CbPlayer6Has_Soul_skinner","GLOBAL",0)
		SetGlobalTimer("CbSoul_skinner_Returns","GLOBAL",FOUR_DAYS)
END

IF
	Global("CbPlayer6Has_Soul_skinner","GLOBAL",1)
THEN
	RESPONSE #100
		SetGlobal("CbPlayer6Has_Soul_skinner","GLOBAL",2)
		SetGlobalTimer("CbPlayer6_Soul_skinner_TimerOne","GLOBAL",SEVEN_DAYS)
END

IF
	HasItem("CBHBSLSN",Player6) // Hellblade:  Soulskinner
	PartyHasItemIdentified("CBHBSLSN") // Hellblade:  Soulskinner
	Global("CbPlayer6Has_Soul_skinner","GLOBAL",0)
	!Global("CbPlayer1Has_Soul_skinner","GLOBAL",1)
	!Global("CbPlayer2Has_Soul_skinner","GLOBAL",1)
	!Global("CbPlayer3Has_Soul_skinner","GLOBAL",1)
	!Global("CbPlayer4Has_Soul_skinner","GLOBAL",1)
	!Global("CbPlayer5Has_Soul_skinner","GLOBAL",1)
THEN
	RESPONSE #100
		SetGlobal("CbPlayer6Has_Soul_skinner","GLOBAL",1)
END

IF
	Global("CbPlayer1Has_Soul_zapper","GLOBAL",5)
	!HasItem("CBHBSLZP",Player1) // Hellblade:  Soulzapper
	PartyHasItem("CBHBSLZP") // Hellblade:  Soulzapper
THEN
	RESPONSE #100
		TakePartyItem("CBHBSLZP") // Hellblade:  Soulzapper
		GiveItemCreate("CBHBSLZP",Player1,1,0,0) // Hellblade:  Soulzapper
		ReputationInc(-1)
END

IF
	Global("CbPlayer1Has_Soul_zapper","GLOBAL",5)
	!HasItem("CBHBSLZP",Player1) // Hellblade:  Soulzapper
	!PartyHasItem("CBHBSLZP") // Hellblade:  Soulzapper
THEN
	RESPONSE #100
		SetInterrupt(FALSE)
		ActionOverride(Player1,PickUpItem("CBHBSLZP")) // Hellblade:  Soulzapper
		ReputationInc(-1)
		SetInterrupt(TRUE)
END

IF
	GlobalTimerExpired("CbPlayer1_Soul_zapperTimerTwo","GLOBAL")
	Global("CbPlayer1Has_Soul_zapper","GLOBAL",3)
	HasItem("CBHBSLZP",Player1) // Hellblade:  Soulzapper
THEN
	RESPONSE #100
		SetGlobal("CbPlayer1Has_Soul_zapper","GLOBAL",5)
		ChangeAlignment(Player1,CHAOTIC_EVIL)
END

IF
	Global("CbPlayer1Has_Soul_zapper","GLOBAL",0)
	GlobalTimerExpired("CbSoul_zapper_ForceReturn","GLOBAL")
THEN
	RESPONSE #100
		TakePartyItem("CBHBSLZP") // Hellblade:  Soulzapper
		GiveItemCreate("CBHBSLZP",Player1,1,0,0) // Hellblade:  Soulzapper
		SetGlobal("CbPlayer1Has_Soul_zapper","GLOBAL",3)
		SetGlobalTimer("CbPlayer1_Soul_zapperTimerTwo","GLOBAL",TWO_DAYS)
END

IF
	Global("CbPlayer1Has_Soul_zapper","GLOBAL",3)
	!HasItem("CBHBSLZP",Player1) // Hellblade:  Soulzapper
THEN
	RESPONSE #100
		SetGlobal("CbPlayer1Has_Soul_zapper","GLOBAL",0)
		SetGlobalTimer("CbSoul_zapper_ForceReturn","GLOBAL",TWO_DAYS)
END

IF
	Global("CbPlayer1Has_Soul_zapper","GLOBAL",2)
	GlobalTimerExpired("CbPlayer1_Soul_zapper_TimerOne","GLOBAL")
	HasItem("CBHBSLZP",Player1) // Hellblade:  Soulzapper
THEN
	RESPONSE #100
		SetGlobal("CbPlayer1Has_Soul_zapper","GLOBAL",3)
		ChangeAlignment(Player1,NEUTRAL_EVIL)
		SetGlobalTimer("CbPlayer1_Soul_zapperTimerTwo","GLOBAL",SEVEN_DAYS)
END

IF
	Global("CbPlayer1Has_Soul_zapper","GLOBAL",0)
	GlobalTimerExpired("CbSoul_zapper_Returns","GLOBAL")
THEN
	RESPONSE #100
		TakePartyItem("CBHBSLZP") // Hellblade:  Soulzapper
		GiveItemCreate("CBHBSLZP",Player1,1,0,0) // Hellblade:  Soulzapper
		SetGlobal("CbPlayer1Has_Soul_zapper","GLOBAL",1)
END

IF
	Global("CbPlayer1Has_Soul_zapper","GLOBAL",2)
	!HasItem("CBHBSLZP",Player1) // Hellblade:  Soulzapper
THEN
	RESPONSE #100
		SetGlobal("CbPlayer1Has_Soul_zapper","GLOBAL",0)
		SetGlobalTimer("CbSoul_zapper_Returns","GLOBAL",FOUR_DAYS)
END

IF
	Global("CbPlayer1Has_Soul_zapper","GLOBAL",1)
THEN
	RESPONSE #100
		SetGlobal("CbPlayer1Has_Soul_zapper","GLOBAL",2)
		SetGlobalTimer("CbPlayer1_Soul_zapper_TimerOne","GLOBAL",SEVEN_DAYS)
END

IF
	HasItem("CBHBSLZP",Player1) // Hellblade:  Soulzapper
	PartyHasItemIdentified("CBHBSLZP") // Hellblade:  Soulzapper
	Global("CbPlayer1Has_Soul_zapper","GLOBAL",0)
	!Global("CbPlayer2Has_Soul_zapper","GLOBAL",1)
	!Global("CbPlayer3Has_Soul_zapper","GLOBAL",1)
	!Global("CbPlayer4Has_Soul_zapper","GLOBAL",1)
	!Global("CbPlayer5Has_Soul_zapper","GLOBAL",1)
	!Global("CbPlayer6Has_Soul_zapper","GLOBAL",1)
THEN
	RESPONSE #100
		SetGlobal("CbPlayer1Has_Soul_zapper","GLOBAL",1)
END

IF
	Global("CbPlayer2Has_Soul_zapper","GLOBAL",5)
	!HasItem("CBHBSLZP",Player2) // Hellblade:  Soulzapper
	PartyHasItem("CBHBSLZP") // Hellblade:  Soulzapper
THEN
	RESPONSE #100
		TakePartyItem("CBHBSLZP") // Hellblade:  Soulzapper
		GiveItemCreate("CBHBSLZP",Player2,1,0,0) // Hellblade:  Soulzapper
		ReputationInc(-1)
END

IF
	Global("CbPlayer2Has_Soul_zapper","GLOBAL",5)
	!HasItem("CBHBSLZP",Player2) // Hellblade:  Soulzapper
	!PartyHasItem("CBHBSLZP") // Hellblade:  Soulzapper
THEN
	RESPONSE #100
		SetInterrupt(FALSE)
		ActionOverride(Player2,PickUpItem("CBHBSLZP")) // Hellblade:  Soulzapper
		ReputationInc(-1)
		SetInterrupt(TRUE)
END

IF
	GlobalTimerExpired("CbPlayer2_Soul_zapperTimerTwo","GLOBAL")
	Global("CbPlayer2Has_Soul_zapper","GLOBAL",3)
	HasItem("CBHBSLZP",Player2) // Hellblade:  Soulzapper
THEN
	RESPONSE #100
		SetGlobal("CbPlayer2Has_Soul_zapper","GLOBAL",5)
		ChangeAlignment(Player2,CHAOTIC_EVIL)
END

IF
	Global("CbPlayer2Has_Soul_zapper","GLOBAL",0)
	GlobalTimerExpired("CbSoul_zapper_ForceReturn","GLOBAL")
THEN
	RESPONSE #100
		TakePartyItem("CBHBSLZP") // Hellblade:  Soulzapper
		GiveItemCreate("CBHBSLZP",Player2,1,0,0) // Hellblade:  Soulzapper
		SetGlobal("CbPlayer2Has_Soul_zapper","GLOBAL",3)
		SetGlobalTimer("CbPlayer2_Soul_zapperTimerTwo","GLOBAL",TWO_DAYS)
END

IF
	Global("CbPlayer2Has_Soul_zapper","GLOBAL",3)
	!HasItem("CBHBSLZP",Player2) // Hellblade:  Soulzapper
THEN
	RESPONSE #100
		SetGlobal("CbPlayer2Has_Soul_zapper","GLOBAL",0)
		SetGlobalTimer("CbSoul_zapper_ForceReturn","GLOBAL",TWO_DAYS)
END

IF
	Global("CbPlayer2Has_Soul_zapper","GLOBAL",2)
	GlobalTimerExpired("CbPlayer2_Soul_zapper_TimerOne","GLOBAL")
	HasItem("CBHBSLZP",Player2) // Hellblade:  Soulzapper
THEN
	RESPONSE #100
		SetGlobal("CbPlayer2Has_Soul_zapper","GLOBAL",3)
		ChangeAlignment(Player2,NEUTRAL_EVIL)
		SetGlobalTimer("CbPlayer2_Soul_zapperTimerTwo","GLOBAL",SEVEN_DAYS)
END

IF
	Global("CbPlayer2Has_Soul_zapper","GLOBAL",0)
	GlobalTimerExpired("CbSoul_zapper_Returns","GLOBAL")
THEN
	RESPONSE #100
		TakePartyItem("CBHBSLZP") // Hellblade:  Soulzapper
		GiveItemCreate("CBHBSLZP",Player2,1,0,0) // Hellblade:  Soulzapper
		SetGlobal("CbPlayer2Has_Soul_zapper","GLOBAL",1)
END

IF
	Global("CbPlayer2Has_Soul_zapper","GLOBAL",2)
	!HasItem("CBHBSLZP",Player2) // Hellblade:  Soulzapper
THEN
	RESPONSE #100
		SetGlobal("CbPlayer2Has_Soul_zapper","GLOBAL",0)
		SetGlobalTimer("CbSoul_zapper_Returns","GLOBAL",FOUR_DAYS)
END

IF
	Global("CbPlayer2Has_Soul_zapper","GLOBAL",1)
THEN
	RESPONSE #100
		SetGlobal("CbPlayer2Has_Soul_zapper","GLOBAL",2)
		SetGlobalTimer("CbPlayer2_Soul_zapper_TimerOne","GLOBAL",SEVEN_DAYS)
END

IF
	HasItem("CBHBSLZP",Player2) // Hellblade:  Soulzapper
	PartyHasItemIdentified("CBHBSLZP") // Hellblade:  Soulzapper
	Global("CbPlayer2Has_Soul_zapper","GLOBAL",0)
	!Global("CbPlayer1Has_Soul_zapper","GLOBAL",1)
	!Global("CbPlayer3Has_Soul_zapper","GLOBAL",1)
	!Global("CbPlayer4Has_Soul_zapper","GLOBAL",1)
	!Global("CbPlayer5Has_Soul_zapper","GLOBAL",1)
	!Global("CbPlayer6Has_Soul_zapper","GLOBAL",1)
THEN
	RESPONSE #100
		SetGlobal("CbPlayer2Has_Soul_zapper","GLOBAL",1)
END

IF
	Global("CbPlayer3Has_Soul_zapper","GLOBAL",5)
	!HasItem("CBHBSLZP",Player3) // Hellblade:  Soulzapper
	PartyHasItem("CBHBSLZP") // Hellblade:  Soulzapper
THEN
	RESPONSE #100
		TakePartyItem("CBHBSLZP") // Hellblade:  Soulzapper
		GiveItemCreate("CBHBSLZP",Player3,1,0,0) // Hellblade:  Soulzapper
		ReputationInc(-1)
END

IF
	Global("CbPlayer3Has_Soul_zapper","GLOBAL",5)
	!HasItem("CBHBSLZP",Player3) // Hellblade:  Soulzapper
	!PartyHasItem("CBHBSLZP") // Hellblade:  Soulzapper
THEN
	RESPONSE #100
		SetInterrupt(FALSE)
		ActionOverride(Player3,PickUpItem("CBHBSLZP")) // Hellblade:  Soulzapper
		ReputationInc(-1)
		SetInterrupt(TRUE)
END

IF
	GlobalTimerExpired("CbPlayer3_Soul_zapperTimerTwo","GLOBAL")
	Global("CbPlayer3Has_Soul_zapper","GLOBAL",3)
	HasItem("CBHBSLZP",Player3) // Hellblade:  Soulzapper
THEN
	RESPONSE #100
		SetGlobal("CbPlayer3Has_Soul_zapper","GLOBAL",5)
		ChangeAlignment(Player3,CHAOTIC_EVIL)
END

IF
	Global("CbPlayer3Has_Soul_zapper","GLOBAL",0)
	GlobalTimerExpired("CbSoul_zapper_ForceReturn","GLOBAL")
THEN
	RESPONSE #100
		TakePartyItem("CBHBSLZP") // Hellblade:  Soulzapper
		GiveItemCreate("CBHBSLZP",Player3,1,0,0) // Hellblade:  Soulzapper
		SetGlobal("CbPlayer3Has_Soul_zapper","GLOBAL",3)
		SetGlobalTimer("CbPlayer3_Soul_zapperTimerTwo","GLOBAL",TWO_DAYS)
END

IF
	Global("CbPlayer3Has_Soul_zapper","GLOBAL",3)
	!HasItem("CBHBSLZP",Player3) // Hellblade:  Soulzapper
THEN
	RESPONSE #100
		SetGlobal("CbPlayer3Has_Soul_zapper","GLOBAL",0)
		SetGlobalTimer("CbSoul_zapper_ForceReturn","GLOBAL",TWO_DAYS)
END

IF
	Global("CbPlayer3Has_Soul_zapper","GLOBAL",2)
	GlobalTimerExpired("CbPlayer3_Soul_zapper_TimerOne","GLOBAL")
	HasItem("CBHBSLZP",Player3) // Hellblade:  Soulzapper
THEN
	RESPONSE #100
		SetGlobal("CbPlayer3Has_Soul_zapper","GLOBAL",3)
		ChangeAlignment(Player3,NEUTRAL_EVIL)
		SetGlobalTimer("CbPlayer3_Soul_zapperTimerTwo","GLOBAL",SEVEN_DAYS)
END

IF
	Global("CbPlayer3Has_Soul_zapper","GLOBAL",0)
	GlobalTimerExpired("CbSoul_zapper_Returns","GLOBAL")
THEN
	RESPONSE #100
		TakePartyItem("CBHBSLZP") // Hellblade:  Soulzapper
		GiveItemCreate("CBHBSLZP",Player3,1,0,0) // Hellblade:  Soulzapper
		SetGlobal("CbPlayer3Has_Soul_zapper","GLOBAL",1)
END

IF
	Global("CbPlayer3Has_Soul_zapper","GLOBAL",2)
	!HasItem("CBHBSLZP",Player3) // Hellblade:  Soulzapper
THEN
	RESPONSE #100
		SetGlobal("CbPlayer3Has_Soul_zapper","GLOBAL",0)
		SetGlobalTimer("CbSoul_zapper_Returns","GLOBAL",FOUR_DAYS)
END

IF
	Global("CbPlayer3Has_Soul_zapper","GLOBAL",1)
THEN
	RESPONSE #100
		SetGlobal("CbPlayer3Has_Soul_zapper","GLOBAL",2)
		SetGlobalTimer("CbPlayer3_Soul_zapper_TimerOne","GLOBAL",SEVEN_DAYS)
END

IF
	HasItem("CBHBSLZP",Player3) // Hellblade:  Soulzapper
	PartyHasItemIdentified("CBHBSLZP") // Hellblade:  Soulzapper
	Global("CbPlayer3Has_Soul_zapper","GLOBAL",0)
	!Global("CbPlayer1Has_Soul_zapper","GLOBAL",1)
	!Global("CbPlayer2Has_Soul_zapper","GLOBAL",1)
	!Global("CbPlayer4Has_Soul_zapper","GLOBAL",1)
	!Global("CbPlayer5Has_Soul_zapper","GLOBAL",1)
	!Global("CbPlayer6Has_Soul_zapper","GLOBAL",1)
THEN
	RESPONSE #100
		SetGlobal("CbPlayer3Has_Soul_zapper","GLOBAL",1)
END

IF
	Global("CbPlayer4Has_Soul_zapper","GLOBAL",5)
	!HasItem("CBHBSLZP",Player4) // Hellblade:  Soulzapper
	PartyHasItem("CBHBSLZP") // Hellblade:  Soulzapper
THEN
	RESPONSE #100
		TakePartyItem("CBHBSLZP") // Hellblade:  Soulzapper
		GiveItemCreate("CBHBSLZP",Player4,1,0,0) // Hellblade:  Soulzapper
		ReputationInc(-1)
END

IF
	Global("CbPlayer4Has_Soul_zapper","GLOBAL",5)
	!HasItem("CBHBSLZP",Player4) // Hellblade:  Soulzapper
	!PartyHasItem("CBHBSLZP") // Hellblade:  Soulzapper
THEN
	RESPONSE #100
		SetInterrupt(FALSE)
		ActionOverride(Player4,PickUpItem("CBHBSLZP")) // Hellblade:  Soulzapper
		ReputationInc(-1)
		SetInterrupt(TRUE)
END

IF
	GlobalTimerExpired("CbPlayer4_Soul_zapperTimerTwo","GLOBAL")
	Global("CbPlayer4Has_Soul_zapper","GLOBAL",3)
	HasItem("CBHBSLZP",Player4) // Hellblade:  Soulzapper
THEN
	RESPONSE #100
		SetGlobal("CbPlayer4Has_Soul_zapper","GLOBAL",5)
		ChangeAlignment(Player4,CHAOTIC_EVIL)
END

IF
	Global("CbPlayer4Has_Soul_zapper","GLOBAL",0)
	GlobalTimerExpired("CbSoul_zapper_ForceReturn","GLOBAL")
THEN
	RESPONSE #100
		TakePartyItem("CBHBSLZP") // Hellblade:  Soulzapper
		GiveItemCreate("CBHBSLZP",Player4,1,0,0) // Hellblade:  Soulzapper
		SetGlobal("CbPlayer4Has_Soul_zapper","GLOBAL",3)
		SetGlobalTimer("CbPlayer4_Soul_zapperTimerTwo","GLOBAL",TWO_DAYS)
END

IF
	Global("CbPlayer4Has_Soul_zapper","GLOBAL",3)
	!HasItem("CBHBSLZP",Player4) // Hellblade:  Soulzapper
THEN
	RESPONSE #100
		SetGlobal("CbPlayer4Has_Soul_zapper","GLOBAL",0)
		SetGlobalTimer("CbSoul_zapper_ForceReturn","GLOBAL",TWO_DAYS)
END

IF
	Global("CbPlayer4Has_Soul_zapper","GLOBAL",2)
	GlobalTimerExpired("CbPlayer4_Soul_zapper_TimerOne","GLOBAL")
	HasItem("CBHBSLZP",Player4) // Hellblade:  Soulzapper
THEN
	RESPONSE #100
		SetGlobal("CbPlayer4Has_Soul_zapper","GLOBAL",3)
		ChangeAlignment(Player4,NEUTRAL_EVIL)
		SetGlobalTimer("CbPlayer4_Soul_zapperTimerTwo","GLOBAL",SEVEN_DAYS)
END

IF
	Global("CbPlayer4Has_Soul_zapper","GLOBAL",0)
	GlobalTimerExpired("CbSoul_zapper_Returns","GLOBAL")
THEN
	RESPONSE #100
		TakePartyItem("CBHBSLZP") // Hellblade:  Soulzapper
		GiveItemCreate("CBHBSLZP",Player4,1,0,0) // Hellblade:  Soulzapper
		SetGlobal("CbPlayer4Has_Soul_zapper","GLOBAL",1)
END

IF
	Global("CbPlayer4Has_Soul_zapper","GLOBAL",2)
	!HasItem("CBHBSLZP",Player4) // Hellblade:  Soulzapper
THEN
	RESPONSE #100
		SetGlobal("CbPlayer4Has_Soul_zapper","GLOBAL",0)
		SetGlobalTimer("CbSoul_zapper_Returns","GLOBAL",FOUR_DAYS)
END

IF
	Global("CbPlayer4Has_Soul_zapper","GLOBAL",1)
THEN
	RESPONSE #100
		SetGlobal("CbPlayer4Has_Soul_zapper","GLOBAL",2)
		SetGlobalTimer("CbPlayer4_Soul_zapper_TimerOne","GLOBAL",SEVEN_DAYS)
END

IF
	HasItem("CBHBSLZP",Player4) // Hellblade:  Soulzapper
	PartyHasItemIdentified("CBHBSLZP") // Hellblade:  Soulzapper
	Global("CbPlayer4Has_Soul_zapper","GLOBAL",0)
	!Global("CbPlayer1Has_Soul_zapper","GLOBAL",1)
	!Global("CbPlayer2Has_Soul_zapper","GLOBAL",1)
	!Global("CbPlayer3Has_Soul_zapper","GLOBAL",1)
	!Global("CbPlayer5Has_Soul_zapper","GLOBAL",1)
	!Global("CbPlayer6Has_Soul_zapper","GLOBAL",1)
THEN
	RESPONSE #100
		SetGlobal("CbPlayer4Has_Soul_zapper","GLOBAL",1)
END

IF
	Global("CbPlayer5Has_Soul_zapper","GLOBAL",5)
	!HasItem("CBHBSLZP",Player5) // Hellblade:  Soulzapper
	PartyHasItem("CBHBSLZP") // Hellblade:  Soulzapper
THEN
	RESPONSE #100
		TakePartyItem("CBHBSLZP") // Hellblade:  Soulzapper
		GiveItemCreate("CBHBSLZP",Player5,1,0,0) // Hellblade:  Soulzapper
		ReputationInc(-1)
END

IF
	Global("CbPlayer5Has_Soul_zapper","GLOBAL",5)
	!HasItem("CBHBSLZP",Player5) // Hellblade:  Soulzapper
	!PartyHasItem("CBHBSLZP") // Hellblade:  Soulzapper
THEN
	RESPONSE #100
		SetInterrupt(FALSE)
		ActionOverride(Player5,PickUpItem("CBHBSLZP")) // Hellblade:  Soulzapper
		ReputationInc(-1)
		SetInterrupt(TRUE)
END

IF
	GlobalTimerExpired("CbPlayer5_Soul_zapperTimerTwo","GLOBAL")
	Global("CbPlayer5Has_Soul_zapper","GLOBAL",3)
	HasItem("CBHBSLZP",Player5) // Hellblade:  Soulzapper
THEN
	RESPONSE #100
		SetGlobal("CbPlayer5Has_Soul_zapper","GLOBAL",5)
		ChangeAlignment(Player5,CHAOTIC_EVIL)
END

IF
	Global("CbPlayer5Has_Soul_zapper","GLOBAL",0)
	GlobalTimerExpired("CbSoul_zapper_ForceReturn","GLOBAL")
THEN
	RESPONSE #100
		TakePartyItem("CBHBSLZP") // Hellblade:  Soulzapper
		GiveItemCreate("CBHBSLZP",Player5,1,0,0) // Hellblade:  Soulzapper
		SetGlobal("CbPlayer5Has_Soul_zapper","GLOBAL",3)
		SetGlobalTimer("CbPlayer5_Soul_zapperTimerTwo","GLOBAL",TWO_DAYS)
END

IF
	Global("CbPlayer5Has_Soul_zapper","GLOBAL",3)
	!HasItem("CBHBSLZP",Player5) // Hellblade:  Soulzapper
THEN
	RESPONSE #100
		SetGlobal("CbPlayer5Has_Soul_zapper","GLOBAL",0)
		SetGlobalTimer("CbSoul_zapper_ForceReturn","GLOBAL",TWO_DAYS)
END

IF
	Global("CbPlayer5Has_Soul_zapper","GLOBAL",2)
	GlobalTimerExpired("CbPlayer5_Soul_zapper_TimerOne","GLOBAL")
	HasItem("CBHBSLZP",Player5) // Hellblade:  Soulzapper
THEN
	RESPONSE #100
		SetGlobal("CbPlayer5Has_Soul_zapper","GLOBAL",3)
		ChangeAlignment(Player5,NEUTRAL_EVIL)
		SetGlobalTimer("CbPlayer5_Soul_zapperTimerTwo","GLOBAL",SEVEN_DAYS)
END

IF
	Global("CbPlayer5Has_Soul_zapper","GLOBAL",0)
	GlobalTimerExpired("CbSoul_zapper_Returns","GLOBAL")
THEN
	RESPONSE #100
		TakePartyItem("CBHBSLZP") // Hellblade:  Soulzapper
		GiveItemCreate("CBHBSLZP",Player5,1,0,0) // Hellblade:  Soulzapper
		SetGlobal("CbPlayer5Has_Soul_zapper","GLOBAL",1)
END

IF
	Global("CbPlayer5Has_Soul_zapper","GLOBAL",2)
	!HasItem("CBHBSLZP",Player5) // Hellblade:  Soulzapper
THEN
	RESPONSE #100
		SetGlobal("CbPlayer5Has_Soul_zapper","GLOBAL",0)
		SetGlobalTimer("CbSoul_zapper_Returns","GLOBAL",FOUR_DAYS)
END

IF
	Global("CbPlayer5Has_Soul_zapper","GLOBAL",1)
THEN
	RESPONSE #100
		SetGlobal("CbPlayer5Has_Soul_zapper","GLOBAL",2)
		SetGlobalTimer("CbPlayer5_Soul_zapper_TimerOne","GLOBAL",SEVEN_DAYS)
END

IF
	HasItem("CBHBSLZP",Player5) // Hellblade:  Soulzapper
	PartyHasItemIdentified("CBHBSLZP") // Hellblade:  Soulzapper
	Global("CbPlayer5Has_Soul_zapper","GLOBAL",0)
	!Global("CbPlayer1Has_Soul_zapper","GLOBAL",1)
	!Global("CbPlayer2Has_Soul_zapper","GLOBAL",1)
	!Global("CbPlayer3Has_Soul_zapper","GLOBAL",1)
	!Global("CbPlayer4Has_Soul_zapper","GLOBAL",1)
	!Global("CbPlayer6Has_Soul_zapper","GLOBAL",1)
THEN
	RESPONSE #100
		SetGlobal("CbPlayer5Has_Soul_zapper","GLOBAL",1)
END

IF
	Global("CbPlayer6Has_Soul_zapper","GLOBAL",5)
	!HasItem("CBHBSLZP",Player6) // Hellblade:  Soulzapper
	PartyHasItem("CBHBSLZP") // Hellblade:  Soulzapper
THEN
	RESPONSE #100
		TakePartyItem("CBHBSLZP") // Hellblade:  Soulzapper
		GiveItemCreate("CBHBSLZP",Player6,1,0,0) // Hellblade:  Soulzapper
		ReputationInc(-1)
END

IF
	Global("CbPlayer6Has_Soul_zapper","GLOBAL",5)
	!HasItem("CBHBSLZP",Player6) // Hellblade:  Soulzapper
	!PartyHasItem("CBHBSLZP") // Hellblade:  Soulzapper
THEN
	RESPONSE #100
		SetInterrupt(FALSE)
		ActionOverride(Player6,PickUpItem("CBHBSLZP")) // Hellblade:  Soulzapper
		ReputationInc(-1)
		SetInterrupt(TRUE)
END

IF
	GlobalTimerExpired("CbPlayer6_Soul_zapperTimerTwo","GLOBAL")
	Global("CbPlayer6Has_Soul_zapper","GLOBAL",3)
	HasItem("CBHBSLZP",Player6) // Hellblade:  Soulzapper
THEN
	RESPONSE #100
		SetGlobal("CbPlayer6Has_Soul_zapper","GLOBAL",5)
		ChangeAlignment(Player6,CHAOTIC_EVIL)
END

IF
	Global("CbPlayer6Has_Soul_zapper","GLOBAL",0)
	GlobalTimerExpired("CbSoul_zapper_ForceReturn","GLOBAL")
THEN
	RESPONSE #100
		TakePartyItem("CBHBSLZP") // Hellblade:  Soulzapper
		GiveItemCreate("CBHBSLZP",Player6,1,0,0) // Hellblade:  Soulzapper
		SetGlobal("CbPlayer6Has_Soul_zapper","GLOBAL",3)
		SetGlobalTimer("CbPlayer6_Soul_zapperTimerTwo","GLOBAL",TWO_DAYS)
END

IF
	Global("CbPlayer6Has_Soul_zapper","GLOBAL",3)
	!HasItem("CBHBSLZP",Player6) // Hellblade:  Soulzapper
THEN
	RESPONSE #100
		SetGlobal("CbPlayer6Has_Soul_zapper","GLOBAL",0)
		SetGlobalTimer("CbSoul_zapper_ForceReturn","GLOBAL",TWO_DAYS)
END

IF
	Global("CbPlayer6Has_Soul_zapper","GLOBAL",2)
	GlobalTimerExpired("CbPlayer6_Soul_zapper_TimerOne","GLOBAL")
	HasItem("CBHBSLZP",Player6) // Hellblade:  Soulzapper
THEN
	RESPONSE #100
		SetGlobal("CbPlayer6Has_Soul_zapper","GLOBAL",3)
		ChangeAlignment(Player6,NEUTRAL_EVIL)
		SetGlobalTimer("CbPlayer6_Soul_zapperTimerTwo","GLOBAL",SEVEN_DAYS)
END

IF
	Global("CbPlayer6Has_Soul_zapper","GLOBAL",0)
	GlobalTimerExpired("CbSoul_zapper_Returns","GLOBAL")
THEN
	RESPONSE #100
		TakePartyItem("CBHBSLZP") // Hellblade:  Soulzapper
		GiveItemCreate("CBHBSLZP",Player6,1,0,0) // Hellblade:  Soulzapper
		SetGlobal("CbPlayer6Has_Soul_zapper","GLOBAL",1)
END

IF
	Global("CbPlayer6Has_Soul_zapper","GLOBAL",2)
	!HasItem("CBHBSLZP",Player6) // Hellblade:  Soulzapper
THEN
	RESPONSE #100
		SetGlobal("CbPlayer6Has_Soul_zapper","GLOBAL",0)
		SetGlobalTimer("CbSoul_zapper_Returns","GLOBAL",FOUR_DAYS)
END

IF
	Global("CbPlayer6Has_Soul_zapper","GLOBAL",1)
THEN
	RESPONSE #100
		SetGlobal("CbPlayer6Has_Soul_zapper","GLOBAL",2)
		SetGlobalTimer("CbPlayer6_Soul_zapper_TimerOne","GLOBAL",SEVEN_DAYS)
END

IF
	HasItem("CBHBSLZP",Player6) // Hellblade:  Soulzapper
	PartyHasItemIdentified("CBHBSLZP") // Hellblade:  Soulzapper
	Global("CbPlayer6Has_Soul_zapper","GLOBAL",0)
	!Global("CbPlayer1Has_Soul_zapper","GLOBAL",1)
	!Global("CbPlayer2Has_Soul_zapper","GLOBAL",1)
	!Global("CbPlayer3Has_Soul_zapper","GLOBAL",1)
	!Global("CbPlayer4Has_Soul_zapper","GLOBAL",1)
	!Global("CbPlayer5Has_Soul_zapper","GLOBAL",1)
THEN
	RESPONSE #100
		SetGlobal("CbPlayer6Has_Soul_zapper","GLOBAL",1)
END

IF
	Delay(150)
	!CombatCounter(0)
	OR(6)
		HasItemEquipedReal("SoulArmr",Player1) // Soul Armor +2
		HasItemEquipedReal("SoulArmr",Player2) // Soul Armor +2
		HasItemEquipedReal("SoulArmr",Player3) // Soul Armor +2
		HasItemEquipedReal("SoulArmr",Player4) // Soul Armor +2
		HasItemEquipedReal("SoulArmr",Player5) // Soul Armor +2
		HasItemEquipedReal("SoulArmr",Player6) // Soul Armor +2
THEN
	RESPONSE #10
		DisplayStringHeadOwner("SoulArmr",101943) // Aaaargh! Stop...hitting...me...
	RESPONSE #10
		DisplayStringHeadOwner("SoulArmr",101944) // Master, kill it, kill it!
	RESPONSE #10
		DisplayStringHeadOwner("SoulArmr",101945) // No, no more hits, no more...
	RESPONSE #10
		DisplayStringHeadOwner("SoulArmr",101946) // Aaaaargh, the pain!
	RESPONSE #10
		DisplayStringHeadOwner("SoulArmr",101947) // AAAAAAH! Slay my attacker...
	RESPONSE #10
		DisplayStringHeadOwner("SoulArmr",101948) // I can't take it anymore, please...
	RESPONSE #10
		DisplayStringHeadOwner("SoulArmr",101949) // No more, no more! AAAARGH!
	RESPONSE #10
		DisplayStringHeadOwner("SoulArmr",101950) // Kill, kill quickly!
	RESPONSE #10
		DisplayStringHeadOwner("SoulArmr",101951) // AAAAAAAAAAAAAAAAAARRRGH!
	RESPONSE #10
		DisplayStringHeadOwner("SoulArmr",101952) // NO! NO! End the battle quickly...
END

IF
	Delay(550)
	CombatCounter(0)
	OR(6)
		HasItemEquipedReal("SoulArmr",Player1) // Soul Armor +2
		HasItemEquipedReal("SoulArmr",Player2) // Soul Armor +2
		HasItemEquipedReal("SoulArmr",Player3) // Soul Armor +2
		HasItemEquipedReal("SoulArmr",Player4) // Soul Armor +2
		HasItemEquipedReal("SoulArmr",Player5) // Soul Armor +2
		HasItemEquipedReal("SoulArmr",Player6) // Soul Armor +2
THEN
	RESPONSE #10
		DisplayStringHeadOwner("SoulArmr",101953) // No, please, no more pain...
	RESPONSE #10
		DisplayStringHeadOwner("SoulArmr",101954) // Please, save me!
	RESPONSE #10
		DisplayStringHeadOwner("SoulArmr",101955) // Don't take me to a battle anymore, master...
	RESPONSE #10
		DisplayStringHeadOwner("SoulArmr",101956) // Release me, release me, please!
	RESPONSE #10
		DisplayStringHeadOwner("SoulArmr",101957) // Don't let them hurt me...
	RESPONSE #10
		DisplayStringHeadOwner("SoulArmr",101958) // They came, they came from nowhere...I'm here now...Nobody saw what they did to me...
	RESPONSE #10
		DisplayStringHeadOwner("SoulArmr",101959) // I can't take the pain...
	RESPONSE #10
		DisplayStringHeadOwner("SoulArmr",101960) // He did it. I never thought he'd really do it, never.
	RESPONSE #10
		DisplayStringHeadOwner("SoulArmr",101961) // Please, guide me to rest...
	RESPONSE #10
		DisplayStringHeadOwner("SoulArmr",101962) // Destroy me, destroy me! You must do it!
END

IF
	Delay(100)
	!CombatCounter(0)
	OR(6)
		HasItemEquipedReal("SoulArm3",Player1) // Soul Armor +3
		HasItemEquipedReal("SoulArm3",Player2) // Soul Armor +3
		HasItemEquipedReal("SoulArm3",Player3) // Soul Armor +3
		HasItemEquipedReal("SoulArm3",Player4) // Soul Armor +3
		HasItemEquipedReal("SoulArm3",Player5) // Soul Armor +3
		HasItemEquipedReal("SoulArm3",Player6) // Soul Armor +3
THEN
	RESPONSE #10
		DisplayStringHeadOwner("SoulArm3",101943) // Aaaargh! Stop...hitting...me...
	RESPONSE #10
		DisplayStringHeadOwner("SoulArm3",101944) // Master, kill it, kill it!
	RESPONSE #10
		DisplayStringHeadOwner("SoulArm3",101945) // No, no more hits, no more...
	RESPONSE #10
		DisplayStringHeadOwner("SoulArm3",101946) // Aaaaargh, the pain!
	RESPONSE #10
		DisplayStringHeadOwner("SoulArm3",101947) // AAAAAAH! Slay my attacker...
	RESPONSE #10
		DisplayStringHeadOwner("SoulArm3",101948) // I can't take it anymore, please...
	RESPONSE #10
		DisplayStringHeadOwner("SoulArm3",101949) // No more, no more! AAAARGH!
	RESPONSE #10
		DisplayStringHeadOwner("SoulArm3",101950) // Kill, kill quickly!
	RESPONSE #10
		DisplayStringHeadOwner("SoulArm3",101951) // AAAAAAAAAAAAAAAAAARRRGH!
	RESPONSE #10
		DisplayStringHeadOwner("SoulArm3",101952) // NO! NO! End the battle quickly...
END

IF
	Delay(400)
	CombatCounter(0)
	OR(6)
		HasItemEquipedReal("SoulArm3",Player1) // Soul Armor +3
		HasItemEquipedReal("SoulArm3",Player2) // Soul Armor +3
		HasItemEquipedReal("SoulArm3",Player3) // Soul Armor +3
		HasItemEquipedReal("SoulArm3",Player4) // Soul Armor +3
		HasItemEquipedReal("SoulArm3",Player5) // Soul Armor +3
		HasItemEquipedReal("SoulArm3",Player6) // Soul Armor +3
THEN
	RESPONSE #10
		DisplayStringHeadOwner("SoulArm3",101953) // No, please, no more pain...
	RESPONSE #10
		DisplayStringHeadOwner("SoulArm3",101954) // Please, save me!
	RESPONSE #10
		DisplayStringHeadOwner("SoulArm3",101955) // Don't take me to a battle anymore, master...
	RESPONSE #10
		DisplayStringHeadOwner("SoulArm3",101956) // Release me, release me, please!
	RESPONSE #10
		DisplayStringHeadOwner("SoulArm3",101957) // Don't let them hurt me...
	RESPONSE #10
		DisplayStringHeadOwner("SoulArm3",101958) // They came, they came from nowhere...I'm here now...Nobody saw what they did to me...
	RESPONSE #10
		DisplayStringHeadOwner("SoulArm3",101959) // I can't take the pain...
	RESPONSE #10
		DisplayStringHeadOwner("SoulArm3",101960) // He did it. I never thought he'd really do it, never.
	RESPONSE #10
		DisplayStringHeadOwner("SoulArm3",101961) // Please, guide me to rest...
	RESPONSE #10
		DisplayStringHeadOwner("SoulArm3",101962) // Destroy me, destroy me! You must do it!
END

IF
	GlobalGT("Drizztiwdornot","GLOBAL",12)
	GlobalGT("Chapter","GLOBAL",5)
	Global("TrigCQuest","GLOBAL",1)
	!Global("TrigCQCip","GLOBAL",1)
	!Global("TrigCQCip","GLOBAL",2)
	XPGT(Player1,3299999)
THEN
	RESPONSE #100
		SetGlobalTimer("StartCQuest","GLOBAL",THREE_DAYS)
		SetGlobal("TrigCQuest","GLOBAL",2)
		SetGlobal("CQuestActive","GLOBAL",1)
END

IF
	GlobalGT("Drizztiwdornot","GLOBAL",12)
	GlobalGT("Chapter","GLOBAL",5)
	Global("TrigCQCip","GLOBAL",1)
	!Global("TrigCQuest","GLOBAL",2)
THEN
	RESPONSE #100
		SetGlobalTimer("StartCQuest","GLOBAL",ONE_DAY)
		SetGlobal("TrigCQCip","GLOBAL",2)
		SetGlobal("CQuestActive","GLOBAL",1)
END

IF
	Global("CQuestActive","GLOBAL",1)
	GlobalTimerExpired("StartCQuest","GLOBAL")
	InParty("Driz2")
	CombatCounter(0)
	AreaType(CITY)
	!AreaCheck("AR2200")
	!AreaCheck("AR1600")
	!AreaCheck("AR5100")
THEN
	RESPONSE #100
		CreateCreatureObject("Chaunti",Player1,0,0,0) // Brother Chaunticleer
		SetGlobal("CQuestActive","GLOBAL",2)
END

IF
	Global("CQuestActive","GLOBAL",3)
	Global("DrizLeaves","GLOBAL",0)
THEN
	RESPONSE #100
		StartCutSceneMode()
		HideGUI()
		ActionOverride("Driz2",LeaveParty())
		ActionOverride("Catt2",LeaveParty())
		ActionOverride("Reg2",LeaveParty())
		ActionOverride("Wulfg2",LeaveParty())
		ActionOverride("Brue2",LeaveParty())
		Wait(1)
		ActionOverride("Driz2",EscapeArea())
		ActionOverride("Catt2",EscapeArea())
		ActionOverride("Reg2",EscapeArea())
		ActionOverride("Wulfg2",EscapeArea())
		ActionOverride("Brue2",EscapeArea())
		ActionOverride("Chaunti",EscapeArea())
		Wait(3)
		UnhideGUI()
		EndCutSceneMode()
		SetGlobal("DrizLeaves","GLOBAL",1)
END

IF
	Global("CQuestActive","GLOBAL",5)
THEN
	RESPONSE #100
		StartCutSceneMode()
		HideGUI()
		Wait(1)
		FadeToColor([20.0],0)
		Wait(1)
		ActionOverride(Player1,LeaveAreaLUA("RA3707","",[137.2134],9))
		ActionOverride(Player2,LeaveAreaLUA("RA3707","",[169.2166],9))
		ActionOverride(Player3,LeaveAreaLUA("RA3707","",[91.2168],9))
		ActionOverride(Player4,LeaveAreaLUA("RA3707","",[127.2206],9))
		ActionOverride(Player5,LeaveAreaLUA("RA3707","",[43.2202],9))
		ActionOverride(Player6,LeaveAreaLUA("RA3707","",[75.2244],9))
		DayNight(2)
		Wait(1)
		MultiPlayerSync()
		EndCutSceneMode()
		TextScreen("SCRTXT11")
		SmallWait(1)
		StartCutSceneMode()
		Wait(1)
		FadeFromColor([20.0],0)
		Wait(1)
		UnhideGUI()
		EndCutSceneMode()
		SetGlobal("CQuestActive","GLOBAL",6)
END

IF
	Global("CQuestActive","GLOBAL",12)
	Dead("CadPri15") // Brother Lucas
THEN
	RESPONSE #100
		ActionOverride(Player1,DisplayStringHead(Myself,101963)) // Brother Lucas died. You failed to protect him.
		Wait(3)
		ActionOverride(Player1,Kill(Myself))
END

IF
	Global("CQuestActive","GLOBAL",12)
	Global("DeneirHelps","GLOBAL",0)
	!CombatCounter(0)
	Delay(400)
THEN
	RESPONSE #100
		CreateCreatureObject("Deneir2",Protagonist,0,0,0) // Deneir
		SetGlobal("TimefDentost","GLOBAL",1)
	RESPONSE #100
		SetGlobal("DeneirHelps","GLOBAL",2)
	RESPONSE #100
		CreateCreatureObject("Deneir2",Protagonist,0,0,0) // Deneir
		SetGlobal("TimefDentost","GLOBAL",2)
	RESPONSE #100
		SetGlobal("DeneirHelps","GLOBAL",2)
END

IF
	Global("TimefDentost","GLOBAL",1)
THEN
	RESPONSE #100
		ActionOverride("Deneir2",ForceSpell(NearestEnemyOf(Myself),0))
		Wait(2)
		ActionOverride("Deneir2",DestroySelf())
		Wait(2)
		ActionOverride(Player1,DisplayStringHead(Myself,101964)) // (That must've been Deneir...)
		SetGlobal("DeneirHelps","GLOBAL",1)
		SetGlobal("TimefDentost","GLOBAL",5)
END

IF
	Global("TimefDentost","GLOBAL",2)
THEN
	RESPONSE #100
		ActionOverride("Deneir2",ForceSpell(NearestEnemyOf(Myself),0))
		Wait(2)
		ActionOverride("Deneir2",DestroySelf())
		Wait(2)
		ActionOverride(Player1,DisplayStringHead(Myself,101964)) // (That must've been Deneir...)
		SetGlobal("DeneirHelps","GLOBAL",1)
		SetGlobal("TimefDentost","GLOBAL",5)
END

IF
	Global("CQuestActive","GLOBAL",12)
	Global("DeneirHelps","GLOBAL",1)
	!CombatCounter(0)
	Delay(400)
THEN
	RESPONSE #100
		CreateCreatureObject("Deneir2",Protagonist,0,0,0) // Deneir
		SetGlobal("TimefDentost","GLOBAL",3)
	RESPONSE #100
		SetGlobal("DeneirHelps","GLOBAL",3)
	RESPONSE #100
		CreateCreatureObject("Deneir2",Protagonist,0,0,0) // Deneir
		SetGlobal("TimefDentost","GLOBAL",4)
	RESPONSE #100
		SetGlobal("DeneirHelps","GLOBAL",3)
END

IF
	Global("TimefDentost","GLOBAL",3)
THEN
	RESPONSE #100
		ActionOverride("Deneir2",ForceSpell(NearestEnemyOf(Myself),0))
		Wait(2)
		ActionOverride("Deneir2",DestroySelf())
		SetGlobal("DeneirHelps","GLOBAL",3)
		SetGlobal("TimefDentost","GLOBAL",5)
END

IF
	Global("TimefDentost","GLOBAL",4)
THEN
	RESPONSE #100
		ActionOverride("Deneir2",ForceSpell(NearestEnemyOf(Myself),0))
		Wait(2)
		ActionOverride("Deneir2",DestroySelf())
		SetGlobal("DeneirHelps","GLOBAL",3)
		SetGlobal("TimefDentost","GLOBAL",5)
END

IF
	Global("DeneirHelps","GLOBAL",2)
	!CombatCounter(0)
	Delay(20)
THEN
	RESPONSE #100
		SetGlobal("DeneirHelps","GLOBAL",0)
END

IF
	Global("DeneirHelps","GLOBAL",3)
	!CombatCounter(0)
	Delay(20)
THEN
	RESPONSE #100
		SetGlobal("DeneirHelps","GLOBAL",1)
END

IF
	Global("CQuestActive","GLOBAL",12)
	Global("Dennotstrike1","GLOBAL",1)
	Dead("CadDem16") // Balor Lord
THEN
	RESPONSE #100
		SetGlobal("DeneirHelps","GLOBAL",1)
		SetGlobal("Dennotstrike1","GLOBAL",2)
END

IF
	Global("CQuestActive","GLOBAL",12)
	Global("Dennotstrike2","GLOBAL",1)
	Dead("CadDem17") // Xer
THEN
	RESPONSE #100
		SetGlobal("DeneirHelps","GLOBAL",1)
		SetGlobal("Dennotstrike2","GLOBAL",2)
END

IF
	Global("CQuestActive","GLOBAL",12)
	Global("Dennotstrike3","GLOBAL",1)
	Dead("CadDem18") // Carethron
THEN
	RESPONSE #100
		SetGlobal("DeneirHelps","GLOBAL",1)
		SetGlobal("Dennotstrike3","GLOBAL",2)
END

IF
	Global("CQuestActive","GLOBAL",12)
	Global("Dennotstrike4","GLOBAL",1)
	Dead("CadDem19") // Bane Lord
THEN
	RESPONSE #100
		SetGlobal("DeneirHelps","GLOBAL",1)
		SetGlobal("Dennotstrike4","GLOBAL",2)
END

IF
	Global("CQuestActive","GLOBAL",12)
	Global("Dennotstrike5","GLOBAL",1)
	Dead("CadDem21") // Balor Lord
THEN
	RESPONSE #100
		SetGlobal("DeneirHelps","GLOBAL",1)
		SetGlobal("Dennotstrike5","GLOBAL",2)
END

IF
	Global("CQuestActive","GLOBAL",12)
	Global("Dennotstrike6","GLOBAL",1)
	Dead("CadDem22") // Hand of Evil
THEN
	RESPONSE #100
		SetGlobal("DeneirHelps","GLOBAL",1)
		SetGlobal("Dennotstrike6","GLOBAL",2)
END

IF
	Global("CQuestActive","GLOBAL",18)
	Global("Lgthofss","GLOBAL",1)
THEN
	RESPONSE #100
		StartCutSceneMode()
		HideGUI()
		Wait(1)
		FadeToColor([20.0],0)
		Wait(1)
		ActionOverride(Player1,LeaveAreaLUA("ar0020","",[764.511],3))
		ActionOverride(Player2,LeaveAreaLUA("ar0020","",[736.485],3))
		ActionOverride(Player3,LeaveAreaLUA("ar0020","",[768.465],3))
		ActionOverride(Player4,LeaveAreaLUA("ar0020","",[792.487],3))
		ActionOverride(Player5,LeaveAreaLUA("ar0020","",[814.463],3))
		ActionOverride(Player6,LeaveAreaLUA("ar0020","",[786.439],3))
		Wait(1)
		MultiPlayerSync()
		EndCutSceneMode()
		TextScreen("SCRTXT12")
		SmallWait(1)
		StartCutSceneMode()
		Wait(1)
		FadeFromColor([20.0],0)
		SetGlobal("CQuestActive","GLOBAL",19)
		SetGlobal("Lgthofss","GLOBAL",3)
		Wait(1)
		UnhideGUI()
		EndCutSceneMode()
		ActionOverride("Chaunti2",StartDialogueNoSet(Player1))
END

IF
	Global("CQuestActive","GLOBAL",18)
	Global("Lgthofss","GLOBAL",2)
THEN
	RESPONSE #100
		StartCutSceneMode()
		HideGUI()
		Wait(1)
		FadeToColor([20.0],0)
		Wait(1)
		ActionOverride(Player1,LeaveAreaLUA("RR3100","",[4679.160],3))
		ActionOverride(Player2,LeaveAreaLUA("RR3100","",[4727.190],3))
		ActionOverride(Player3,LeaveAreaLUA("RR3100","",[4699.144],3))
		ActionOverride(Player4,LeaveAreaLUA("RR3100","",[4749.174],3))
		ActionOverride(Player5,LeaveAreaLUA("RR3100","",[4775.140],3))
		ActionOverride(Player6,LeaveAreaLUA("RR3100","",[4723.106],3))
		Wait(1)
		FadeFromColor([20.0],0)
		SetGlobal("CQuestActive","GLOBAL",19)
		SetGlobal("Lgthofss","GLOBAL",3)
		Wait(1)
		UnhideGUI()
		EndCutSceneMode()
		ActionOverride("Chaunti2",StartDialogueNoSet(Player1))
END

IF
	Global("Hammermeetings","GLOBAL",1)
	Global("CreatinHamm2","GLOBAL",0)
THEN
	RESPONSE #100
		SetGlobalTimer("HammCrea2","GLOBAL",FIFTEEN_DAYS)
		SetGlobal("CreatinHamm2","GLOBAL",1)
END

IF
	Global("CreatinHamm2","GLOBAL",1)
	GlobalTimerExpired("HammCrea2","GLOBAL")
THEN
	RESPONSE #100
		SetGlobalTimer("HammCrea3","GLOBAL",ONE_DAY)
		SetGlobal("CreatinHamm2","GLOBAL",2)
END

IF
	Global("Hammermeetings","GLOBAL",5)
	Global("CreatinHamm3","GLOBAL",0)
THEN
	RESPONSE #100
		SetGlobalTimer("HammCrea4","GLOBAL",FIFTEEN_DAYS)
		SetGlobal("CreatinHamm3","GLOBAL",1)
END

IF
	Global("Hammermeetings","GLOBAL",7)
	Global("CreatinHamm4","GLOBAL",0)
THEN
	RESPONSE #100
		SetGlobalTimer("HammCrea5","GLOBAL",TEN_DAYS)
		SetGlobal("CreatinHamm4","GLOBAL",1)
END

IF
	Global("Hammermeetings","GLOBAL",8)
	Global("dsaskjfldfg","GLOBAL",0)
THEN
	RESPONSE #100
		SetGlobalTimer("HammDest2","GLOBAL",THREE_DAYS)
		SetGlobal("dsaskjfldfg","GLOBAL",1)
END

IF
	Global("dsaskjfldfg","GLOBAL",1)
	GlobalTimerExpired("HammDest2","GLOBAL")
THEN
	RESPONSE #100
		ActionOverride("Hammr4",DestroySelf())
		ActionOverride("HamAra3",DestroySelf())
		ActionOverride("HamMan3",DestroySelf())
		ActionOverride("HamRob3",DestroySelf())
		ActionOverride("HamOlg3",DestroySelf())
		ActionOverride("HamJen3",DestroySelf())
		SetGlobal("CreatinHamm4","GLOBAL",3)
		SetGlobal("Hammermeetings","GLOBAL",9)
		SetGlobal("dsaskjfldfg","GLOBAL",2)
END

IF
	Global("Hammermeetings","GLOBAL",10)
	StateCheck(Player2,STATE_REALLY_DEAD)
THEN
	RESPONSE #100
		CreateCreatureObject("Deneir2",Protagonist,0,0,0) // Deneir
		Wait(1)
		ActionOverride("Deneir2",ReallyForceSpell(Player2,CLERIC_RESURRECTION))
		Wait(1)
		ActionOverride("Deneir2",DestroySelf())
		SetGlobal("Hammermeetings","GLOBAL",11)
END

IF
	Global("Hammermeetings","GLOBAL",10)
	StateCheck(Player3,STATE_REALLY_DEAD)
THEN
	RESPONSE #100
		CreateCreatureObject("Deneir2",Protagonist,0,0,0) // Deneir
		Wait(1)
		ActionOverride("Deneir2",ReallyForceSpell(Player3,CLERIC_RESURRECTION))
		Wait(1)
		ActionOverride("Deneir2",DestroySelf())
		SetGlobal("Hammermeetings","GLOBAL",11)
END

IF
	Global("Hammermeetings","GLOBAL",10)
	StateCheck(Player4,STATE_REALLY_DEAD)
THEN
	RESPONSE #100
		CreateCreatureObject("Deneir2",Protagonist,0,0,0) // Deneir
		Wait(1)
		ActionOverride("Deneir2",ReallyForceSpell(Player4,CLERIC_RESURRECTION))
		Wait(1)
		ActionOverride("Deneir2",DestroySelf())
		SetGlobal("Hammermeetings","GLOBAL",11)
END

IF
	Global("Hammermeetings","GLOBAL",10)
	StateCheck(Player5,STATE_REALLY_DEAD)
THEN
	RESPONSE #100
		CreateCreatureObject("Deneir2",Protagonist,0,0,0) // Deneir
		Wait(1)
		ActionOverride("Deneir2",ReallyForceSpell(Player5,CLERIC_RESURRECTION))
		Wait(1)
		ActionOverride("Deneir2",DestroySelf())
		SetGlobal("Hammermeetings","GLOBAL",11)
END

IF
	Global("Hammermeetings","GLOBAL",10)
	StateCheck(Player6,STATE_REALLY_DEAD)
THEN
	RESPONSE #100
		CreateCreatureObject("Deneir2",Protagonist,0,0,0) // Deneir
		Wait(1)
		ActionOverride("Deneir2",ReallyForceSpell(Player6,CLERIC_RESURRECTION))
		Wait(1)
		ActionOverride("Deneir2",DestroySelf())
		SetGlobal("Hammermeetings","GLOBAL",11)
END

IF
	Global("Hammermeetings","GLOBAL",10)
	StateCheck(Player1,STATE_REALLY_DEAD)
THEN
	RESPONSE #100
		CreateCreatureObject("Deneir2",Protagonist,0,0,0) // Deneir
		Wait(1)
		ActionOverride("Deneir2",ReallyForceSpell(Player1,CLERIC_RESURRECTION))
		Wait(1)
		ActionOverride("Deneir2",DestroySelf())
		SetGlobal("Hammermeetings","GLOBAL",11)
END

IF
	Global("Hammermeetings","GLOBAL",11)
THEN
	RESPONSE #100
		Wait(1)
		SetGlobal("Hammermeetings","GLOBAL",10)
END

IF
	CombatCounter(0)
	Delay(5)
	OR(2)
		Global("Hammermeetings","GLOBAL",10)
		Global("Hammermeetings","GLOBAL",11)
THEN
	RESPONSE #100
		ActionOverride("CadDem25",ForceSpell(Myself,0))
		Wait(3)
		CreateVisualEffect("SPFIRSDI",[725.542])
		CreateCreature("CadDem23",[725.542],12) // Cornugon
		CreateVisualEffect("SPFIRSDI",[763.586])
		CreateCreature("CadDem24",[763.586],11) // Demon
END

IF
	Global("Seethemayor","GLOBAL",2)
THEN
	RESPONSE #100
		StartCutSceneMode()
		HideGUI()
		Wait(1)
		FadeToColor([20.0],0)
		Wait(2)
		ActionOverride(Player1,LeaveAreaLUA("RA5101","",[421.507],9))
		ActionOverride(Player2,LeaveAreaLUA("RA5101","",[473.525],8))
		ActionOverride(Player3,LeaveAreaLUA("RA5101","",[399.529],9))
		ActionOverride(Player4,LeaveAreaLUA("RA5101","",[455.545],8))
		ActionOverride(Player5,LeaveAreaLUA("RA5101","",[385.553],9))
		ActionOverride(Player6,LeaveAreaLUA("RA5101","",[433.571],8))
		Wait(1)
		FadeFromColor([20.0],0)
		Wait(1)
		UnhideGUI()
		EndCutSceneMode()
		SetGlobal("Seethemayor","GLOBAL",3)
END

IF
	Global("BreVil1","GLOBAL",1)
THEN
	RESPONSE #100
		SetGlobalTimer("ChangeVil1","GLOBAL",ONE_DAY)
		SetGlobal("BreVil1","GLOBAL",2)
END

IF
	GlobalTimerExpired("ChangeVil1","GLOBAL")
	Global("BreVil1","GLOBAL",2)
THEN
	RESPONSE #100
		SetGlobal("BreVil1","GLOBAL",3)
END

IF
	Global("BreVil2","GLOBAL",1)
THEN
	RESPONSE #100
		SetGlobalTimer("ChangeVil2","GLOBAL",ONE_DAY)
		SetGlobal("BreVil2","GLOBAL",2)
END

IF
	GlobalTimerExpired("ChangeVil2","GLOBAL")
	Global("BreVil2","GLOBAL",2)
THEN
	RESPONSE #100
		SetGlobal("BreVil2","GLOBAL",3)
END

IF
	Global("BreVil3","GLOBAL",1)
THEN
	RESPONSE #100
		SetGlobalTimer("ChangeVil3","GLOBAL",ONE_DAY)
		SetGlobal("BreVil3","GLOBAL",2)
END

IF
	GlobalTimerExpired("ChangeVil3","GLOBAL")
	Global("BreVil3","GLOBAL",2)
THEN
	RESPONSE #100
		SetGlobal("BreVil3","GLOBAL",3)
END

IF
	Global("BreVil4","GLOBAL",1)
THEN
	RESPONSE #100
		SetGlobalTimer("ChangeVil4","GLOBAL",ONE_DAY)
		SetGlobal("BreVil4","GLOBAL",2)
END

IF
	GlobalTimerExpired("ChangeVil4","GLOBAL")
	Global("BreVil4","GLOBAL",2)
THEN
	RESPONSE #100
		SetGlobal("BreVil4","GLOBAL",3)
END

IF
	Global("BreVil5","GLOBAL",1)
THEN
	RESPONSE #100
		SetGlobalTimer("ChangeVil5","GLOBAL",ONE_DAY)
		SetGlobal("BreVil5","GLOBAL",2)
END

IF
	GlobalTimerExpired("ChangeVil5","GLOBAL")
	Global("BreVil5","GLOBAL",2)
THEN
	RESPONSE #100
		SetGlobal("BreVil5","GLOBAL",3)
END

IF
	Global("BreVil6","GLOBAL",1)
THEN
	RESPONSE #100
		SetGlobalTimer("ChangeVil6","GLOBAL",ONE_DAY)
		SetGlobal("BreVil6","GLOBAL",2)
END

IF
	GlobalTimerExpired("ChangeVil6","GLOBAL")
	Global("BreVil6","GLOBAL",2)
THEN
	RESPONSE #100
		SetGlobal("BreVil6","GLOBAL",3)
END

IF
	Global("BreVil7","GLOBAL",1)
THEN
	RESPONSE #100
		SetGlobalTimer("ChangeVil7","GLOBAL",ONE_DAY)
		SetGlobal("BreVil7","GLOBAL",2)
END

IF
	GlobalTimerExpired("ChangeVil7","GLOBAL")
	Global("BreVil7","GLOBAL",2)
THEN
	RESPONSE #100
		SetGlobal("BreVil7","GLOBAL",3)
END

IF
	Global("BreVil8","GLOBAL",1)
THEN
	RESPONSE #100
		SetGlobalTimer("ChangeVil8","GLOBAL",ONE_DAY)
		SetGlobal("BreVil8","GLOBAL",2)
END

IF
	GlobalTimerExpired("ChangeVil8","GLOBAL")
	Global("BreVil8","GLOBAL",2)
THEN
	RESPONSE #100
		SetGlobal("BreVil8","GLOBAL",3)
END

IF
	Global("BreVil9","GLOBAL",1)
THEN
	RESPONSE #100
		SetGlobalTimer("ChangeVil9","GLOBAL",ONE_DAY)
		SetGlobal("BreVil9","GLOBAL",2)
END

IF
	GlobalTimerExpired("ChangeVil9","GLOBAL")
	Global("BreVil9","GLOBAL",2)
THEN
	RESPONSE #100
		SetGlobal("BreVil9","GLOBAL",3)
END

IF
	Global("BreVil10","GLOBAL",1)
THEN
	RESPONSE #100
		SetGlobalTimer("ChangeVil10","GLOBAL",ONE_DAY)
		SetGlobal("BreVil10","GLOBAL",2)
END

IF
	GlobalTimerExpired("ChangeVil10","GLOBAL")
	Global("BreVil10","GLOBAL",2)
THEN
	RESPONSE #100
		SetGlobal("BreVil10","GLOBAL",3)
END

IF
	Global("BreVil11","GLOBAL",1)
THEN
	RESPONSE #100
		SetGlobalTimer("ChangeVil11","GLOBAL",FOUR_DAYS)
		SetGlobal("BreVil11","GLOBAL",2)
END

IF
	GlobalTimerExpired("ChangeVil11","GLOBAL")
	Global("BreVil11","GLOBAL",2)
THEN
	RESPONSE #100
		SetGlobal("BreVil10","GLOBAL",3)
	RESPONSE #100
		SetGlobal("BreVil10","GLOBAL",4)
	RESPONSE #100
		SetGlobal("BreVil10","GLOBAL",5)
	RESPONSE #100
		SetGlobal("BreVil10","GLOBAL",5)
END

IF
	OR(3)
		Global("BreVil11","GLOBAL",6)
		Global("BreVil11","GLOBAL",7)
		Global("BreVil11","GLOBAL",8)
	Global("BreVil12","GLOBAL",0)
THEN
	RESPONSE #100
		SetGlobalTimer("ChangeVil12","GLOBAL",ONE_DAY)
		SetGlobal("BreVil12","GLOBAL",1)
END

IF
	GlobalTimerExpired("ChangeVil12","GLOBAL")
	Global("BreVil12","GLOBAL",1)
THEN
	RESPONSE #100
		SetGlobal("BreVil12","GLOBAL",2)
END

IF
	Global("BreVil13","GLOBAL",1)
THEN
	RESPONSE #100
		SetGlobalTimer("ChangeVil13","GLOBAL",ONE_DAY)
		SetGlobal("BreVil13","GLOBAL",2)
END

IF
	GlobalTimerExpired("ChangeVil13","GLOBAL")
	Global("BreVil13","GLOBAL",2)
THEN
	RESPONSE #100
		SetGlobal("BreVil13","GLOBAL",3)
END

IF
	Global("BreVil14","GLOBAL",1)
THEN
	RESPONSE #100
		SetGlobalTimer("ChangeVil14","GLOBAL",THREE_DAYS)
		SetGlobal("BreVil14","GLOBAL",2)
END

IF
	GlobalTimerExpired("ChangeVil14","GLOBAL")
	Global("BreVil14","GLOBAL",2)
THEN
	RESPONSE #100
		SetGlobal("BreVil14","GLOBAL",3)
END

IF
	GlobalTimerExpired("Brotiwd22","GLOBAL")
	Global("Brothertimeriwd","GLOBAL",1)
	!Global("Brothertimeriwd","GLOBAL",5)
	!Global("Brothertimeriwd","GLOBAL",6)
	!Global("Brothertimeriwd","GLOBAL",7)
THEN
	RESPONSE #100
		SetGlobal("Brothertimeriwd","GLOBAL",4)
END

IF
	Global("Wulfgarsquest","GLOBAL",1)
	Global("Wulfgarsendinp","GLOBAL",0)
	!InParty("Wulfg2")
	OR(8)
		Global("FinalBattleofitemp","GLOBAL",0)
		Global("FinalBattleofitemp","GLOBAL",1)
		Global("FinalBattleofitemp","GLOBAL",2)
		Global("FinalBattleofitemp","GLOBAL",3)
		Global("FinalBattleofitemp","GLOBAL",4)
		Global("FinalBattleofitemp","GLOBAL",5)
		Global("FinalBattleofitemp","GLOBAL",6)
		Global("FinalBattleofitemp","GLOBAL",7)
THEN
	RESPONSE #100
		ChangeEnemyAlly("Beogorn",NEUTRAL)
		ChangeEnemyAlly("Ulgarth",NEUTRAL)
		ChangeEnemyAlly("BarBar1",NEUTRAL)
		ChangeEnemyAlly("BarBar2",NEUTRAL)
		ChangeEnemyAlly("BarBar3",NEUTRAL)
		ChangeEnemyAlly("BarBar4",NEUTRAL)
		SmallWait(1)
		ActionOverride("Beogorn",EscapeArea())
		ActionOverride("Ulgarth",EscapeArea())
		ActionOverride("BarBar1",EscapeArea())
		ActionOverride("BarBar2",EscapeArea())
		ActionOverride("BarBar3",EscapeArea())
		ActionOverride("BarBar4",EscapeArea())
		ActionOverride("Wulfg2",EscapeArea())
		SetGlobal("Wulfgarsendinp","GLOBAL",1)
END

IF
	Global("JoinTheCult","GLOBAL",5)
	GlobalTimerExpired("BeastCultTask1","GLOBAL")
	PartyHasItem("CultSym1") // Cult Symbol
	Delay(10)
THEN
	RESPONSE #100
		SetGlobal("CultTaskNum1","GLOBAL",1)
		ActionOverride(Player1,DisplayStringHead(Myself,101965)) // The Symbol vibrates.
END

IF
	Global("JoinTheCult","GLOBAL",5)
	GlobalTimerExpired("BeastCultTask1","GLOBAL")
	PartyHasItem("CultSym1") // Cult Symbol
	Delay(50)
THEN
	RESPONSE #100
		SetGlobal("JoinTheCult","GLOBAL",7)
END

IF
	OR(5)
		Global("CultTaskNum1","GLOBAL",1)
		Global("CultTaskNum2","GLOBAL",1)
		Global("CultTaskNum3","GLOBAL",1)
		Global("CultTaskNum4","GLOBAL",1)
		Global("CultTaskNum5","GLOBAL",1)
	Global("MvtoCult","GLOBAL",1)
	!AreaCheck("RA5500")
	!AreaCheck("RA5501")
	CombatCounter(0)
THEN
	RESPONSE #100
		StartCutSceneMode()
		HideGUI()
		PlaySound("EFF_M07")
		StorePartyLocations()
		Wait(1)
		CreateVisualEffectObject("SPCLOUD1",Player1)
		CreateVisualEffectObject("SPCLOUD1",Player2)
		CreateVisualEffectObject("SPCLOUD1",Player3)
		CreateVisualEffectObject("SPCLOUD1",Player4)
		CreateVisualEffectObject("SPCLOUD1",Player5)
		CreateVisualEffectObject("SPCLOUD1",Player6)
		FadeToColor([20.0],0)
		Wait(2)
		SetGlobal("MvtoCult","GLOBAL",0)
		SetGlobal("MtoCult2","GLOBAL",1)
		UnhideGUI()
		EndCutSceneMode()
		ActionOverride(Player1,LeaveAreaLUA("RA5500","",[2877.563],2))
		ActionOverride(Player2,LeaveAreaLUA("RA5500","",[2877.563],2))
		ActionOverride(Player3,LeaveAreaLUA("RA5500","",[2877.563],2))
		ActionOverride(Player4,LeaveAreaLUA("RA5500","",[2877.563],2))
		ActionOverride(Player5,LeaveAreaLUA("RA5500","",[2877.563],2))
		ActionOverride(Player6,LeaveAreaLUA("RA5500","",[2877.563],2))
END

IF
	Global("JoinTheCult","GLOBAL",13)
	GlobalTimerExpired("BeastCultTask2","GLOBAL")
	PartyHasItem("CultSym1") // Cult Symbol
	Delay(10)
THEN
	RESPONSE #100
		SetGlobal("CultTaskNum2","GLOBAL",1)
		ActionOverride(Player1,DisplayStringHead(Myself,101965)) // The Symbol vibrates.
END

IF
	Global("JoinTheCult","GLOBAL",13)
	GlobalTimerExpired("BeastCultTask2","GLOBAL")
	PartyHasItem("CultSym1") // Cult Symbol
	Delay(50)
THEN
	RESPONSE #100
		SetGlobal("JoinTheCult","GLOBAL",15)
END

IF
	Global("JoinTheCult","GLOBAL",19)
	GlobalTimerExpired("BeastCultTask3","GLOBAL")
	PartyHasItem("CultSym1") // Cult Symbol
	Delay(10)
THEN
	RESPONSE #100
		SetGlobal("CultTaskNum3","GLOBAL",1)
		ActionOverride(Player1,DisplayStringHead(Myself,101965)) // The Symbol vibrates.
END

IF
	Global("JoinTheCult","GLOBAL",19)
	GlobalTimerExpired("BeastCultTask3","GLOBAL")
	PartyHasItem("CultSym1") // Cult Symbol
	Delay(50)
THEN
	RESPONSE #100
		SetGlobal("JoinTheCult","GLOBAL",20)
END

IF
	Global("JoinTheCult","GLOBAL",28)
	GlobalTimerExpired("BeastCultTask4","GLOBAL")
	PartyHasItem("CultSym1") // Cult Symbol
	Delay(10)
THEN
	RESPONSE #100
		SetGlobal("CultTaskNum4","GLOBAL",1)
		ActionOverride(Player1,DisplayStringHead(Myself,101965)) // The Symbol vibrates.
END

IF
	Global("JoinTheCult","GLOBAL",28)
	GlobalTimerExpired("BeastCultTask4","GLOBAL")
	PartyHasItem("CultSym1") // Cult Symbol
	Delay(50)
THEN
	RESPONSE #100
		SetGlobal("JoinTheCult","GLOBAL",29)
END

IF
	Global("JoinTheCult","GLOBAL",37)
	GlobalTimerExpired("BeastCultTask5","GLOBAL")
	PartyHasItem("CultSym1") // Cult Symbol
	Delay(10)
THEN
	RESPONSE #100
		SetGlobal("CultTaskNum5","GLOBAL",1)
		ActionOverride(Player1,DisplayStringHead(Myself,101965)) // The Symbol vibrates.
END

IF
	Global("JoinTheCult","GLOBAL",37)
	GlobalTimerExpired("BeastCultTask5","GLOBAL")
	PartyHasItem("CultSym1") // Cult Symbol
	Delay(50)
THEN
	RESPONSE #100
		SetGlobal("JoinTheCult","GLOBAL",38)
END

IF
	Global("MotoCult","GLOBAL",1)
	!AreaCheck("RA5500")
	!AreaCheck("RA5501")
	CombatCounter(0)
THEN
	RESPONSE #100
		StartCutSceneMode()
		HideGUI()
		PlaySound("EFF_M07")
		StorePartyLocations()
		Wait(1)
		CreateVisualEffectObject("SPCLOUD1",Player1)
		CreateVisualEffectObject("SPCLOUD1",Player2)
		CreateVisualEffectObject("SPCLOUD1",Player3)
		CreateVisualEffectObject("SPCLOUD1",Player4)
		CreateVisualEffectObject("SPCLOUD1",Player5)
		CreateVisualEffectObject("SPCLOUD1",Player6)
		FadeToColor([20.0],0)
		Wait(2)
		SetGlobal("MotoCult","GLOBAL",0)
		SetGlobal("MtCult2","GLOBAL",1)
		UnhideGUI()
		EndCutSceneMode()
		ActionOverride(Player1,LeaveAreaLUA("RA5500","",[2877.563],2))
		ActionOverride(Player2,LeaveAreaLUA("RA5500","",[2877.563],2))
		ActionOverride(Player3,LeaveAreaLUA("RA5500","",[2877.563],2))
		ActionOverride(Player4,LeaveAreaLUA("RA5500","",[2877.563],2))
		ActionOverride(Player5,LeaveAreaLUA("RA5500","",[2877.563],2))
		ActionOverride(Player6,LeaveAreaLUA("RA5500","",[2877.563],2))
END

IF
	Global("RandallJoin","GLOBAL",4)
THEN
	RESPONSE #100
		SetGlobal("RandallJoin","GLOBAL",5)
		SetGlobalTimer("RandallQuest","GLOBAL",FIVE_DAYS)
END

IF
	GlobalTimerExpired("RandallQuest","GLOBAL")
	Global("RandallJoin","GLOBAL",5)
	!Global("Chapter","GLOBAL",4)
	!Global("Chapter","GLOBAL",5)
	!Global("Chapter","GLOBAL",7)
	!AreaType(CITY)
	AreaType(OUTDOOR)
	!AreaCheck("AR2500")
	!AreaCheck("AR1901")
	XPGT(Player1,250000)
THEN
	RESPONSE #100
		Wait(2)
		SetGlobal("RandallJoin","GLOBAL",6)
		CreateCreatureObjectOffScreen("RanNec1",Player1,0,0,0) // Necromancer
		CreateCreatureObjectOffScreen("RanSke1",Player1,0,0,0) // Strong Skeleton
		CreateCreatureObjectOffScreen("RanSke2",Player1,0,0,0) // Strong Skeleton
		CreateCreatureObjectOffScreen("RanSke3",Player1,0,0,0) // Strong Skeleton
		CreateCreatureObjectOffScreen("RanSke4",Player1,0,0,0) // Strong Skeleton
		CreateCreatureObjectOffScreen("RanSke5",Player1,0,0,0) // Strong Skeleton
		CreateCreatureObjectOffScreen("RanSke6",Player1,0,0,0) // Strong Skeleton
END

IF
	Global("RandallJoin","GLOBAL",6)
	!Dead("Randall")
	Dead("RanNec1") // Necromancer
	CombatCounter(0)
THEN
	RESPONSE #100
		SetGlobal("RandallJoin","GLOBAL",7)
END

IF
	Global("RandallJoin","GLOBAL",7)
THEN
	RESPONSE #100
		ActionOverride("Randall",StartDialog("RandallJ",[PC]))
END

IF
	Global("RandallJoin","GLOBAL",8)
THEN
	RESPONSE #100
		SetGlobal("RandallJoin","GLOBAL",9)
		SetGlobalTimer("RandallQuest2","GLOBAL",TEN_DAYS)
END

IF
	GlobalTimerExpired("RandallQuest2","GLOBAL")
	Global("RandallJoin","GLOBAL",9)
	!Global("Chapter","GLOBAL",4)
	!Global("Chapter","GLOBAL",5)
	!Global("Chapter","GLOBAL",7)
	!AreaType(CITY)
	AreaType(OUTDOOR)
	!AreaCheck("AR2500")
	!AreaCheck("AR1901")
	XPGT(Player1,500000)
THEN
	RESPONSE #100
		Wait(2)
		SetGlobal("RandallJoin","GLOBAL",10)
		CreateCreatureObjectOffScreen("RanNec2",Player1,0,0,0) // Necromancer
		CreateCreatureObjectOffScreen("RanSke1",Player1,0,0,0) // Strong Skeleton
		CreateCreatureObjectOffScreen("RanSke1",Player1,0,0,0) // Strong Skeleton
		CreateCreatureObjectOffScreen("RanSke1",Player1,0,0,0) // Strong Skeleton
		CreateCreatureObjectOffScreen("RanSke1",Player1,0,0,0) // Strong Skeleton
		CreateCreatureObjectOffScreen("RanSke1",Player1,0,0,0) // Strong Skeleton
		CreateCreatureObjectOffScreen("RanSke1",Player1,0,0,0) // Strong Skeleton
		CreateCreatureObjectOffScreen("RanSke1",Player1,0,0,0) // Strong Skeleton
		CreateCreatureObjectOffScreen("RanSke1",Player1,0,0,0) // Strong Skeleton
		CreateCreatureObjectOffScreen("RanSke7",Player1,0,0,0) // Skeleton Warrior
		CreateCreatureObjectOffScreen("RanSke7",Player1,0,0,0) // Skeleton Warrior
END

IF
	Global("RandallJoin","GLOBAL",10)
	!Dead("Randall")
	Dead("RanNec2") // Necromancer
	CombatCounter(0)
THEN
	RESPONSE #100
		SetGlobal("RandallJoin","GLOBAL",11)
END

IF
	Global("RandallJoin","GLOBAL",11)
THEN
	RESPONSE #100
		ActionOverride("Randall",StartDialog("RandallJ",[PC]))
END

IF
	Global("RandallJoin","GLOBAL",12)
THEN
	RESPONSE #100
		SetGlobal("RandallJoin","GLOBAL",13)
		SetGlobalTimer("RandallQuest3","GLOBAL",TEN_DAYS)
END

IF
	GlobalTimerExpired("RandallQuest3","GLOBAL")
	Global("RandallJoin","GLOBAL",13)
	!Global("Chapter","GLOBAL",4)
	!Global("Chapter","GLOBAL",5)
	!Global("Chapter","GLOBAL",7)
	!AreaType(CITY)
	AreaType(OUTDOOR)
	!AreaCheck("AR2500")
	!AreaCheck("AR1901")
	XPGT(Player1,1000000)
THEN
	RESPONSE #100
		Wait(2)
		SetGlobal("RandallJoin","GLOBAL",14)
		CreateCreatureObjectOffScreen("RanNec3",Player1,0,0,0) // Bheodin
		CreateCreatureObjectOffScreen("RanNec4",Player1,0,0,0) // Necromancer
		CreateCreatureObjectOffScreen("RanNec5",Player1,0,0,0) // Necromancer
		CreateCreatureObjectOffScreen("RanSke1",Player1,0,0,0) // Strong Skeleton
		CreateCreatureObjectOffScreen("RanSke1",Player1,0,0,0) // Strong Skeleton
		CreateCreatureObjectOffScreen("RanSke1",Player1,0,0,0) // Strong Skeleton
		CreateCreatureObjectOffScreen("RanSke1",Player1,0,0,0) // Strong Skeleton
		CreateCreatureObjectOffScreen("RanSke1",Player1,0,0,0) // Strong Skeleton
		CreateCreatureObjectOffScreen("RanSke1",Player1,0,0,0) // Strong Skeleton
		CreateCreatureObjectOffScreen("RanSke1",Player1,0,0,0) // Strong Skeleton
		CreateCreatureObjectOffScreen("RanSke1",Player1,0,0,0) // Strong Skeleton
		CreateCreatureObjectOffScreen("RanSke7",Player1,0,0,0) // Skeleton Warrior
		CreateCreatureObjectOffScreen("RanSke7",Player1,0,0,0) // Skeleton Warrior
END

IF
	Global("RandallJoin","GLOBAL",14)
	!Dead("Randall")
	Dead("RanNec2") // Necromancer
	Dead("RanNec4") // Necromancer
	Dead("RanNec5") // Necromancer
	CombatCounter(0)
	PartyHasItem("RanNote") // A note
THEN
	RESPONSE #100
		SetGlobal("RandallJoin","GLOBAL",15)
END

IF
	Global("RandallJoin","GLOBAL",15)
THEN
	RESPONSE #100
		ActionOverride("Randall",StartDialog("RandallJ",[PC]))
END

IF
	!CombatCounter(0)
	Global("SwrdRain","GLOBAL",1)
	Global("Rainoftheswrd","GLOBAL",0)
	AreaType(OUTDOOR)
THEN
	RESPONSE #100
		Weather(RAIN)
		SetGlobal("Rainoftheswrd","GLOBAL",1)
END

IF
	CombatCounter(0)
	Global("SwrdRain","GLOBAL",1)
	Global("Rainoftheswrd","GLOBAL",1)
	AreaType(OUTDOOR)
THEN
	RESPONSE #100
		Weather(NOWEATHER)
		SetGlobal("Rainoftheswrd","GLOBAL",0)
END

IF
	Global("CSCutS4","GLOBAL",0)
	GlobalTimerExpired("CSCutScene4","GLOBAL")
THEN
	RESPONSE #100
		SetGlobal("CSCutS4","GLOBAL",1)
		StartCutSceneMode()
		HideGUI()
		Wait(1)
		StartCutScene("CSCutS4")
END

IF
	Global("TSNarlenWork","GLOBAL",1)
	GlobalTimerExpired("TSSmugglerTimer","GLOBAL")
	Global("PGFailed","GLOBAL",0)
THEN
	RESPONSE #100
		DisplayString(Player1,164850) // Narlen Darkwalk and his rogues have placed treasure in your strongbox.
		SetGlobalTimer("TSSmugglerTimer","GLOBAL",FIVE_DAYS)
		IncrementGlobal("TSSmuggle","GLOBAL",1)
END

IF
	GlobalGT("BodhiJob","GLOBAL",0)
	Global("PlayerThiefGuild","GLOBAL",1)
	Global("TSBodhiThief","GLOBAL",0)
THEN
	RESPONSE #100
		SetGlobal("TSBodhiThief","GLOBAL",1)
END

IF
	Global("TSBodhiThief","GLOBAL",1)
	OR(2)
		!Global("PGFailed","GLOBAL",0)
		!Global("JosterLeave","GLOBAL",0)
THEN
	RESPONSE #100
		SetGlobal("PGFailed","GLOBAL",0)
		SetGlobal("JosterLeave","GLOBAL",0)
END

IF
	Global("wandsoul","GLOBAL",1)
	!Exists("baenwuld")
	!Global("wandsotire","GLOBAL",1)
THEN
	RESPONSE #100
		CreateCreatureObjectDoor("metbae",Player1,5,0,0) // Baenwuld
		PlaySound("CAS_M07")
		SetGlobal("wandsoul","GLOBAL",0)
END

IF
	Global("BAidanDiagott","GLOBAL",1)
	PartyHasItem("B!AMACE") // Fist of Amaunator
	Global("B!AidanHasMace","GLOBAL",0)
THEN
	RESPONSE #100
		SetGlobal("BAidanDiagott","GLOBAL",2)
		SetGlobal("B!AidanDelayTalk","GLOBAL",1)
		SetGlobal("B!AidanHasMace","GLOBAL",1)
END

IF
	GlobalTimerExpired("B!AidanTime","GLOBAL")
	Time(MIDNIGHT)
	Global("B!AidanHasMace","GLOBAL",1)
	GlobalGT("B!AidanFriend","GLOBAL",0)
	!Global("B!AidanFriend","GLOBAL",3)
	!StateCheck(Player1,CD_STATE_NOTVALID)
	CombatCounter(0)
THEN
	RESPONSE #100
		SetGlobal("B!AidanHasMace","GLOBAL",2)
		PlaySound("BAIDAN01")
		CreateCreatureObjectOffset("B!Aidan",Player1,[50.50]) // Aidan
END

IF
	Dead("C6BODHI") // Bodhi
	GlobalGT("B!AidanHasMace","GLOBAL",0)
	Global("B!AidanBodhi","GLOBAL",0)
THEN
	RESPONSE #100
		SetGlobal("B!AidanDelayTalk","GLOBAL",1)
		SetGlobal("B!AidanBodhi","GLOBAL",1)
END

IF
	GlobalTimerExpired("B!AidanTime","GLOBAL")
	Time(MIDNIGHT)
	Global("B!AidanBodhi","GLOBAL",1)
	GlobalGT("B!AidanFriend","GLOBAL",0)
	!Global("B!AidanFriend","GLOBAL",3)
	!StateCheck(Player1,CD_STATE_NOTVALID)
	CombatCounter(0)
THEN
	RESPONSE #100
		SetGlobal("B!AidanBodhi","GLOBAL",2)
		PlaySound("BAIDAN01")
		CreateCreatureObjectOffset("B!Aidan",Player1,[50.50]) // Aidan
END

IF
	GlobalTimerExpired("B!AidanTime","GLOBAL")
	Time(MIDNIGHT)
	Global("B!AidanDone","GLOBAL",1)
	GlobalGT("B!AidanFriend","GLOBAL",0)
	!Global("B!AidanFriend","GLOBAL",3)
	!StateCheck(Player1,CD_STATE_NOTVALID)
	CombatCounter(0)
THEN
	RESPONSE #100
		SetGlobal("B!AidanDelayTalk","GLOBAL",1)
		SetGlobal("B!AidanDone","GLOBAL",2)
		SetGlobal("B!AidanThanks","GLOBAL",1)
		PlaySound("BAIDAN01")
		CreateCreatureObjectOffset("B!Aidan",Player1,[50.50]) // Aidan
END

IF
	GlobalTimerExpired("B!AidanTime","GLOBAL")
	Time(MIDNIGHT)
	Global("B!AidanDone","GLOBAL",1)
	Global("B!AidanFriend","GLOBAL",0)
	!StateCheck(Player1,CD_STATE_NOTVALID)
	CombatCounter(0)
THEN
	RESPONSE #100
		SetGlobal("B!AidanDelayTalk","GLOBAL",1)
		SetGlobal("B!AidanDone","GLOBAL",2)
		SetGlobal("B!AidanCheated","GLOBAL",1)
		PlaySound("BAIDAN01")
		CreateCreatureObjectOffset("B!Aidan",Player1,[50.50]) // Aidan
END

IF
	GlobalTimerExpired("B!AidanTime","GLOBAL")
	Time(MIDNIGHT)
	Global("B!AidanDone","GLOBAL",1)
	Global("B!AidanFriend","GLOBAL",3)
	!StateCheck(Player1,CD_STATE_NOTVALID)
	CombatCounter(0)
THEN
	RESPONSE #100
		SetGlobal("B!AidanDelayTalk","GLOBAL",1)
		SetGlobal("B!AidanDone","GLOBAL",2)
		SetGlobal("B!AidanReconsider","GLOBAL",1)
		PlaySound("BAIDAN01")
		CreateCreatureObjectOffset("B!Aidan",Player1,[50.50]) // Aidan
END

IF
	Global("B!AidanTemple","GLOBAL",1)
	!AreaCheck("AR1401")
	Global("B!AidanHasMace","GLOBAL",1)
	!GlobalGT("B!AidanDone","GLOBAL",0)
	Global("B!AidanBetrayed","GLOBAL",0)
THEN
	RESPONSE #100
		SetGlobal("B!AidanDelayTalk","GLOBAL",1)
		SetGlobal("B!AidanBetrayed","GLOBAL",1)
END

IF
	GlobalTimerExpired("B!AidanTime","GLOBAL")
	Time(MIDNIGHT)
	Global("B!AidanBetrayed","GLOBAL",1)
	GlobalGT("B!AidanFriend","GLOBAL",0)
	!StateCheck(Player1,CD_STATE_NOTVALID)
	CombatCounter(0)
THEN
	RESPONSE #100
		SetGlobal("B!AidanBetrayed","GLOBAL",2)
		PlaySound("BAIDAN01")
		CreateCreatureObjectOffset("B!Aidan",Player1,[50.50]) // Aidan
END

IF
	GlobalTimerExpired("B!AidanTime","GLOBAL")
	Time(MIDNIGHT)
	Global("B!AidanBaldurBCSCheck","GLOBAL",0)
	!GlobalGT("B!AidanDone","GLOBAL",0)
	GlobalGT("B!AidanFriend","GLOBAL",0)
	!Global("B!AidanFriend","GLOBAL",3)
	!Global("B!NoVisit","GLOBAL",1)
	!Global("B!AidanDelayTalk","GLOBAL",1)
	!StateCheck(Player1,CD_STATE_NOTVALID)
	CombatCounter(0)
	OR(10)
		Global("B!AidanTalk","GLOBAL",1)
		Global("B!AidanTalk","GLOBAL",3)
		Global("B!AidanTalk","GLOBAL",5)
		Global("B!AidanTalk","GLOBAL",7)
		Global("B!AidanTalk","GLOBAL",9)
		Global("B!AidanTalk","GLOBAL",11)
		Global("B!AidanTalk","GLOBAL",13)
		Global("B!AidanTalk","GLOBAL",15)
		Global("B!AidanTalk","GLOBAL",17)
		Global("B!AidanTalk","GLOBAL",19)
THEN
	RESPONSE #100
		IncrementGlobal("B!AidanTalk","GLOBAL",1)
		PlaySound("BAIDAN01")
		SetGlobal("B!AidanBaldurBCSCheck","GLOBAL",1)
		CreateCreatureObjectOffset("B!Aidan",Player1,[50.50]) // Aidan
END

IF
	Delay(600)
	CombatCounter(0)
	OR(6)
		HasItemEquipedReal("c2sw2h01",Player1) // Lilarcor +5
		HasItemEquipedReal("c2sw2h01",Player2) // Lilarcor +5
		HasItemEquipedReal("c2sw2h01",Player3) // Lilarcor +5
		HasItemEquipedReal("c2sw2h01",Player4) // Lilarcor +5
		HasItemEquipedReal("c2sw2h01",Player5) // Lilarcor +5
		HasItemEquipedReal("c2sw2h01",Player6) // Lilarcor +5
THEN
	RESPONSE #10
		DisplayStringHeadOwner("c2sw2h01",20580) // I may be an intelligent sword, but I've had no formal edumication.
	RESPONSE #10
		DisplayStringHeadOwner("c2sw2h01",20779) // Can we go kill something now, huh?
	RESPONSE #10
		DisplayStringHeadOwner("c2sw2h01",20780) // How about now?  No?
	RESPONSE #10
		DisplayStringHeadOwner("c2sw2h01",20956) // Come on let's kill something NOW!
	RESPONSE #10
		DisplayStringHeadOwner("c2sw2h01",24939) // Mmmm... now?
	RESPONSE #10
		DisplayStringHeadOwner("c2sw2h01",25349) // What about now?
	RESPONSE #10
		DisplayStringHeadOwner("c2sw2h01",31258) // Now?  Please?  Pretty please?
	RESPONSE #10
		DisplayStringHeadOwner("c2sw2h01",31259) // I don't know what you were expecting, but as a sword I'm pretty one-dimensional in what I want.
	RESPONSE #10
		DisplayStringHeadOwner("c2sw2h01",31260) // Can we go whack something now?
	RESPONSE #10
		DisplayStringHeadOwner("c2sw2h01",31638) // Let's whack something eeeeevvvvillllll...
	RESPONSE #10
		DisplayStringHeadOwner("c2sw2h01",31639) // Why don't we go kill that over there?
	RESPONSE #10
		DisplayStringHeadOwner("c2sw2h01",31640) // You know, I was a Moonblade once.
	RESPONSE #10
		DisplayStringHeadOwner("c2sw2h01",31641) // You really need to clean me.  I like to shine!
	RESPONSE #10
		DisplayStringHeadOwner("c2sw2h01",31646) // Are we going to kill something now, maybe?  Huh?
	RESPONSE #10
		DisplayStringHeadOwner("c2sw2h01",31649) // You know, my last owner always said I was sharp and edgy.  He was such an ass.
	RESPONSE #10
		DisplayStringHeadOwner("c2sw2h01",31651) // I don't chop wood.  I am not an axe.
	RESPONSE #10
		DisplayStringHeadOwner("c2sw2h01",31652) // Now!  Now!  Kill something now!!  Yeah!
	RESPONSE #10
		DisplayStringHeadOwner("c2sw2h01",31654) // Booooo-ring!
	RESPONSE #10
		DisplayStringHeadOwner("c2sw2h01",31655) // (sigh)
	RESPONSE #10
		DisplayStringHeadOwner("c2sw2h01",31656) // (double sigh)
	RESPONSE #10
		DisplayStringHeadOwner("c2sw2h01",6433) // Wanna go kill that over there? C'mon, let's kill somthin'!
END

IF
	Delay(125)
	!CombatCounter(0)
	OR(6)
		HasItemEquipedReal("c2sw2h01",Player1) // Lilarcor +5
		HasItemEquipedReal("c2sw2h01",Player2) // Lilarcor +5
		HasItemEquipedReal("c2sw2h01",Player3) // Lilarcor +5
		HasItemEquipedReal("c2sw2h01",Player4) // Lilarcor +5
		HasItemEquipedReal("c2sw2h01",Player5) // Lilarcor +5
		HasItemEquipedReal("c2sw2h01",Player6) // Lilarcor +5
THEN
	RESPONSE #10
		DisplayStringHeadOwner("c2sw2h01",839) // You deal, I'll cut!
	RESPONSE #10
		DisplayStringHeadOwner("c2sw2h01",844) // Let's see what's inside this one!  Yeah!
	RESPONSE #10
		DisplayStringHeadOwner("c2sw2h01",849) // Come get some!  Boo-yah!
	RESPONSE #10
		DisplayStringHeadOwner("c2sw2h01",869) // Choke up, dolt, your grip is all wrong!
	RESPONSE #10
		DisplayStringHeadOwner("c2sw2h01",2308) // Hands up, kiddies, who wants to die?!
	RESPONSE #10
		DisplayStringHeadOwner("c2sw2h01",2389) // Mmmm... tastes like chicken!
	RESPONSE #10
		DisplayStringHeadOwner("c2sw2h01",4393) // Sissy fighter!  You grab, I'll scratch!
	RESPONSE #10
		DisplayStringHeadOwner("c2sw2h01",31659) // Muwahahaha-ha-ha!!
	RESPONSE #10
		DisplayStringHeadOwner("c2sw2h01",31660) // You can't be serious!
	RESPONSE #10
		DisplayStringHeadOwner("c2sw2h01",7908) // Ooo, that'll leave a mark!
	RESPONSE #10
		DisplayStringHeadOwner("c2sw2h01",8480) // Murder!  Death!!  KILL!!!
	RESPONSE #10
		DisplayStringHeadOwner("c2sw2h01",9687) // Who's your daddy!
	RESPONSE #10
		DisplayStringHeadOwner("c2sw2h01",9800) // We got a gusher!
	RESPONSE #10
		DisplayStringHeadOwner("c2sw2h01",10725) // Are YOU talking to ME?!!
	RESPONSE #10
		DisplayStringHeadOwner("c2sw2h01",11255) // Some of my finest work!
	RESPONSE #10
		DisplayStringHeadOwner("c2sw2h01",12671) // I'm the best at what I do, and what I do ain't pretty!
	RESPONSE #10
		DisplayStringHeadOwner("c2sw2h01",31662) // Yeah!  Hit it!  Hit it again!
	RESPONSE #10
		DisplayStringHeadOwner("c2sw2h01",31663) // I am invincible!  Invincible, I say!
	RESPONSE #10
		DisplayStringHeadOwner("c2sw2h01",32426) // Wouldn't it be cool if you could dual-wield me?
	RESPONSE #10
		DisplayStringHeadOwner("c2sw2h01",19304) // YOINK!  Got yer nose!
	RESPONSE #10
		DisplayStringHeadOwner("c2sw2h01",19441) // My brother is a +12 Hackmaster!
	RESPONSE #10
		DisplayStringHeadOwner("c2sw2h01",19638) // I love the smell of daisies in the morning!
	RESPONSE #10
		DisplayStringHeadOwner("c2sw2h01",20059) // Swing harder!  Swing harder!!
	RESPONSE #10
		DisplayStringHeadOwner("c2sw2h01",20396) // Bring 'em on!  I ain't done!
	RESPONSE #10
		DisplayStringHeadOwner("c2sw2h01",20457) // Oh yeah!
	RESPONSE #10
		DisplayStringHeadOwner("c2sw2h01",31658) // Let's dance!
	RESPONSE #10
		DisplayStringHeadOwner("c2sw2h01",34689) // Kill it!  Kill it quick before they're all gone!
	RESPONSE #10
		DisplayStringHeadOwner("c2sw2h01",36145) // Kill kill kill!  Yeah!  Cool!!
	RESPONSE #10
		DisplayStringHeadOwner("c2sw2h01",41815) // ... and this one's for grandma, who said I'd never amount to anything more than a butterknife!!
	RESPONSE #10
		DisplayStringHeadOwner("c2sw2h01",6434) // Hot butta!
	RESPONSE #10
		DisplayStringHeadOwner("c2sw2h01",6435) // You feel lucky, punk?
	RESPONSE #10
		DisplayStringHeadOwner("c2sw2h01",6441) // Oooh, I'm shaking! Haha!
	RESPONSE #10
		DisplayStringHeadOwner("c2sw2h01",6442) // Oooh, throw a coin in that fountain! Hahahaha!
END

IF
	Global("DS01","GLOBAL",0)
	HasItemEquiped("SHLD21",Player1) // Dragon Scale Shield +2
	HasItemEquiped("HELM21",Player1) // Dragon Helm
	HasItemEquipedReal("SW1H32",Player1) // Dragonslayer +3
THEN
	RESPONSE #100
		DisplayString(Player1,174590) // Dragonsuit equipped
		ApplySpellRES("spcl990",Player1) // And what becomes of Melissan, then?  Is she free to raise Bhaal and complete her plans?
		SetGlobal("DS01","GLOBAL",1)
		Continue()
END

IF
	Global("DS01","GLOBAL",1)
	OR(3)
		!HasItemEquiped("SHLD21",Player1) // Dragon Scale Shield +2
		!HasItemEquiped("HELM21",Player1) // Dragon Helm
		!HasItemEquipedReal("SW1H32",Player1) // Dragonslayer +3
THEN
	RESPONSE #100
		DisplayString(Player1,174591) // Dragonsuit removed
		ApplySpellRES("spcl991",Player1) // You don't have to do this, Balthazar.  We don't have to fight each other.
		SetGlobal("DS01","GLOBAL",0)
		Continue()
END

IF
	Global("DS02","GLOBAL",0)
	HasItemEquiped("SHLD21",Player2) // Dragon Scale Shield +2
	HasItemEquiped("HELM21",Player2) // Dragon Helm
	HasItemEquipedReal("SW1H32",Player2) // Dragonslayer +3
THEN
	RESPONSE #100
		DisplayString(Player2,174590) // Dragonsuit equipped
		ApplySpellRES("spcl990",Player2) // And what becomes of Melissan, then?  Is she free to raise Bhaal and complete her plans?
		SetGlobal("DS02","GLOBAL",1)
		Continue()
END

IF
	Global("DS02","GLOBAL",1)
	OR(3)
		!HasItemEquiped("SHLD21",Player2) // Dragon Scale Shield +2
		!HasItemEquiped("HELM21",Player2) // Dragon Helm
		!HasItemEquipedReal("SW1H32",Player2) // Dragonslayer +3
THEN
	RESPONSE #100
		DisplayString(Player2,174591) // Dragonsuit removed
		ApplySpellRES("spcl991",Player2) // You don't have to do this, Balthazar.  We don't have to fight each other.
		SetGlobal("DS02","GLOBAL",0)
		Continue()
END

IF
	Global("DS03","GLOBAL",0)
	HasItemEquiped("SHLD21",Player3) // Dragon Scale Shield +2
	HasItemEquiped("HELM21",Player3) // Dragon Helm
	HasItemEquipedReal("SW1H32",Player3) // Dragonslayer +3
THEN
	RESPONSE #100
		DisplayString(Player3,174590) // Dragonsuit equipped
		ApplySpellRES("spcl990",Player3) // And what becomes of Melissan, then?  Is she free to raise Bhaal and complete her plans?
		SetGlobal("DS03","GLOBAL",1)
		Continue()
END

IF
	Global("DS03","GLOBAL",1)
	OR(3)
		!HasItemEquiped("SHLD21",Player3) // Dragon Scale Shield +2
		!HasItemEquiped("HELM21",Player3) // Dragon Helm
		!HasItemEquipedReal("SW1H32",Player3) // Dragonslayer +3
THEN
	RESPONSE #100
		DisplayString(Player3,174591) // Dragonsuit removed
		ApplySpellRES("spcl991",Player3) // You don't have to do this, Balthazar.  We don't have to fight each other.
		SetGlobal("DS03","GLOBAL",0)
		Continue()
END

IF
	Global("DS04","GLOBAL",0)
	HasItemEquiped("SHLD21",Player4) // Dragon Scale Shield +2
	HasItemEquiped("HELM21",Player4) // Dragon Helm
	HasItemEquipedReal("SW1H32",Player4) // Dragonslayer +3
THEN
	RESPONSE #100
		DisplayString(Player4,174590) // Dragonsuit equipped
		ApplySpellRES("spcl990",Player4) // And what becomes of Melissan, then?  Is she free to raise Bhaal and complete her plans?
		SetGlobal("DS04","GLOBAL",1)
		Continue()
END

IF
	Global("DS04","GLOBAL",1)
	OR(3)
		!HasItemEquiped("SHLD21",Player4) // Dragon Scale Shield +2
		!HasItemEquiped("HELM21",Player4) // Dragon Helm
		!HasItemEquipedReal("SW1H32",Player4) // Dragonslayer +3
THEN
	RESPONSE #100
		DisplayString(Player4,174591) // Dragonsuit removed
		ApplySpellRES("spcl991",Player4) // You don't have to do this, Balthazar.  We don't have to fight each other.
		SetGlobal("DS04","GLOBAL",0)
		Continue()
END

IF
	Global("DS05","GLOBAL",0)
	HasItemEquiped("SHLD21",Player5) // Dragon Scale Shield +2
	HasItemEquiped("HELM21",Player5) // Dragon Helm
	HasItemEquipedReal("SW1H32",Player5) // Dragonslayer +3
THEN
	RESPONSE #100
		DisplayString(Player5,174590) // Dragonsuit equipped
		ApplySpellRES("spcl990",Player5) // And what becomes of Melissan, then?  Is she free to raise Bhaal and complete her plans?
		SetGlobal("DS05","GLOBAL",1)
		Continue()
END

IF
	Global("DS05","GLOBAL",1)
	OR(3)
		!HasItemEquiped("SHLD21",Player5) // Dragon Scale Shield +2
		!HasItemEquiped("HELM21",Player5) // Dragon Helm
		!HasItemEquipedReal("SW1H32",Player5) // Dragonslayer +3
THEN
	RESPONSE #100
		DisplayString(Player5,174591) // Dragonsuit removed
		ApplySpellRES("spcl991",Player5) // You don't have to do this, Balthazar.  We don't have to fight each other.
		SetGlobal("DS05","GLOBAL",0)
		Continue()
END

IF
	Global("DS06","GLOBAL",0)
	HasItemEquiped("SHLD21",Player6) // Dragon Scale Shield +2
	HasItemEquiped("HELM21",Player6) // Dragon Helm
	HasItemEquipedReal("SW1H32",Player6) // Dragonslayer +3
THEN
	RESPONSE #100
		DisplayString(Player6,174590) // Dragonsuit equipped
		ApplySpellRES("spcl990",Player6) // And what becomes of Melissan, then?  Is she free to raise Bhaal and complete her plans?
		SetGlobal("DS06","GLOBAL",1)
		Continue()
END

IF
	Global("DS06","GLOBAL",1)
	OR(3)
		!HasItemEquiped("SHLD21",Player6) // Dragon Scale Shield +2
		!HasItemEquiped("HELM21",Player6) // Dragon Helm
		!HasItemEquipedReal("SW1H32",Player6) // Dragonslayer +3
THEN
	RESPONSE #100
		DisplayString(Player6,174591) // Dragonsuit removed
		ApplySpellRES("spcl991",Player6) // You don't have to do this, Balthazar.  We don't have to fight each other.
		SetGlobal("DS06","GLOBAL",0)
		Continue()
END

IF
	Global("GOB01","GLOBAL",0)
	HasItemEquiped("HELM07",Player1) // Helm of Balduran
	HasItemEquiped("WA2PLAT",Player1) // Plate of Balduran +2
	HasItemEquiped("WA2SHIEL",Player1) // Shield of Balduran +3
	HasItemEquiped("CLCK05",Player1) // Cloak of Balduran
	HasItemEquipedReal("WA2S1H",Player1) // Blade of Sharpness +1
THEN
	RESPONSE #100
		DisplayString(Player1,174592) // Glory of Balduran equipped
		ApplySpellRES("spcl992",Player1) // And what becomes of Melissan, then?  Is she free to raise Bhaal and complete her plans?
		SetGlobal("GOB01","GLOBAL",1)
		Continue()
END

IF
	Global("GOB01","GLOBAL",1)
	OR(5)
		!HasItemEquiped("HELM07",Player1) // Helm of Balduran
		!HasItemEquiped("WA2PLAT",Player1) // Plate of Balduran +2
		!HasItemEquiped("WA2SHIEL",Player1) // Shield of Balduran +3
		!HasItemEquiped("CLCK05",Player1) // Cloak of Balduran
		!HasItemEquipedReal("WA2S1H",Player1) // Blade of Sharpness +1
THEN
	RESPONSE #100
		DisplayString(Player1,174593) // Glory of Balduran removed
		ApplySpellRES("spcl993",Player1) // And what becomes of Melissan, then?  Is she free to raise Bhaal and complete her plans?
		SetGlobal("GOB01","GLOBAL",0)
		Continue()
END

IF
	Global("GOB02","GLOBAL",0)
	HasItemEquiped("HELM07",Player2) // Helm of Balduran
	HasItemEquiped("WA2PLAT",Player2) // Plate of Balduran +2
	HasItemEquiped("WA2SHIEL",Player2) // Shield of Balduran +3
	HasItemEquiped("CLCK05",Player2) // Cloak of Balduran
	HasItemEquipedReal("WA2S1H",Player2) // Blade of Sharpness +1
THEN
	RESPONSE #100
		DisplayString(Player2,174592) // Glory of Balduran equipped
		ApplySpellRES("spcl992",Player2) // And what becomes of Melissan, then?  Is she free to raise Bhaal and complete her plans?
		SetGlobal("GOB02","GLOBAL",1)
		Continue()
END

IF
	Global("GOB02","GLOBAL",1)
	OR(5)
		!HasItemEquiped("HELM07",Player2) // Helm of Balduran
		!HasItemEquiped("WA2PLAT",Player2) // Plate of Balduran +2
		!HasItemEquiped("WA2SHIEL",Player2) // Shield of Balduran +3
		!HasItemEquiped("CLCK05",Player2) // Cloak of Balduran
		!HasItemEquipedReal("WA2S1H",Player2) // Blade of Sharpness +1
THEN
	RESPONSE #100
		DisplayString(Player2,174593) // Glory of Balduran removed
		ApplySpellRES("spcl993",Player2) // And what becomes of Melissan, then?  Is she free to raise Bhaal and complete her plans?
		SetGlobal("GOB02","GLOBAL",0)
		Continue()
END

IF
	Global("GOB03","GLOBAL",0)
	HasItemEquiped("HELM07",Player3) // Helm of Balduran
	HasItemEquiped("WA2PLAT",Player3) // Plate of Balduran +2
	HasItemEquiped("WA2SHIEL",Player3) // Shield of Balduran +3
	HasItemEquiped("CLCK05",Player3) // Cloak of Balduran
	HasItemEquipedReal("WA2S1H",Player3) // Blade of Sharpness +1
THEN
	RESPONSE #100
		DisplayString(Player3,174592) // Glory of Balduran equipped
		ApplySpellRES("spcl992",Player3) // And what becomes of Melissan, then?  Is she free to raise Bhaal and complete her plans?
		SetGlobal("GOB03","GLOBAL",1)
		Continue()
END

IF
	Global("GOB03","GLOBAL",1)
	OR(5)
		!HasItemEquiped("HELM07",Player3) // Helm of Balduran
		!HasItemEquiped("WA2PLAT",Player3) // Plate of Balduran +2
		!HasItemEquiped("WA2SHIEL",Player3) // Shield of Balduran +3
		!HasItemEquiped("CLCK05",Player3) // Cloak of Balduran
		!HasItemEquipedReal("WA2S1H",Player3) // Blade of Sharpness +1
THEN
	RESPONSE #100
		DisplayString(Player3,174593) // Glory of Balduran removed
		ApplySpellRES("spcl993",Player3) // And what becomes of Melissan, then?  Is she free to raise Bhaal and complete her plans?
		SetGlobal("GOB03","GLOBAL",0)
		Continue()
END

IF
	Global("GOB04","GLOBAL",0)
	HasItemEquiped("HELM07",Player4) // Helm of Balduran
	HasItemEquiped("WA2PLAT",Player4) // Plate of Balduran +2
	HasItemEquiped("WA2SHIEL",Player4) // Shield of Balduran +3
	HasItemEquiped("CLCK05",Player4) // Cloak of Balduran
	HasItemEquipedReal("WA2S1H",Player4) // Blade of Sharpness +1
THEN
	RESPONSE #100
		DisplayString(Player4,174592) // Glory of Balduran equipped
		ApplySpellRES("spcl992",Player4) // And what becomes of Melissan, then?  Is she free to raise Bhaal and complete her plans?
		SetGlobal("GOB04","GLOBAL",1)
		Continue()
END

IF
	Global("GOB04","GLOBAL",1)
	OR(5)
		!HasItemEquiped("HELM07",Player4) // Helm of Balduran
		!HasItemEquiped("WA2PLAT",Player4) // Plate of Balduran +2
		!HasItemEquiped("WA2SHIEL",Player4) // Shield of Balduran +3
		!HasItemEquiped("CLCK05",Player4) // Cloak of Balduran
		!HasItemEquipedReal("WA2S1H",Player4) // Blade of Sharpness +1
THEN
	RESPONSE #100
		DisplayString(Player4,174593) // Glory of Balduran removed
		ApplySpellRES("spcl993",Player4) // And what becomes of Melissan, then?  Is she free to raise Bhaal and complete her plans?
		SetGlobal("GOB04","GLOBAL",0)
		Continue()
END

IF
	Global("GOB05","GLOBAL",0)
	HasItemEquiped("HELM07",Player5) // Helm of Balduran
	HasItemEquiped("WA2PLAT",Player5) // Plate of Balduran +2
	HasItemEquiped("WA2SHIEL",Player5) // Shield of Balduran +3
	HasItemEquiped("CLCK05",Player5) // Cloak of Balduran
	HasItemEquipedReal("WA2S1H",Player5) // Blade of Sharpness +1
THEN
	RESPONSE #100
		DisplayString(Player5,174592) // Glory of Balduran equipped
		ApplySpellRES("spcl992",Player1) // And what becomes of Melissan, then?  Is she free to raise Bhaal and complete her plans?
		SetGlobal("GOB05","GLOBAL",1)
		Continue()
END

IF
	Global("GOB05","GLOBAL",1)
	OR(5)
		!HasItemEquiped("HELM07",Player5) // Helm of Balduran
		!HasItemEquiped("WA2PLAT",Player5) // Plate of Balduran +2
		!HasItemEquiped("WA2SHIEL",Player5) // Shield of Balduran +3
		!HasItemEquiped("CLCK05",Player5) // Cloak of Balduran
		!HasItemEquipedReal("WA2S1H",Player5) // Blade of Sharpness +1
THEN
	RESPONSE #100
		DisplayString(Player5,174593) // Glory of Balduran removed
		ApplySpellRES("spcl993",Player5) // And what becomes of Melissan, then?  Is she free to raise Bhaal and complete her plans?
		SetGlobal("GOB05","GLOBAL",0)
		Continue()
END

IF
	Global("GOB06","GLOBAL",0)
	HasItemEquiped("HELM07",Player6) // Helm of Balduran
	HasItemEquiped("WA2PLAT",Player6) // Plate of Balduran +2
	HasItemEquiped("WA2SHIEL",Player6) // Shield of Balduran +3
	HasItemEquiped("CLCK05",Player6) // Cloak of Balduran
	HasItemEquipedReal("WA2S1H",Player6) // Blade of Sharpness +1
THEN
	RESPONSE #100
		DisplayString(Player6,174592) // Glory of Balduran equipped
		ApplySpellRES("spcl992",Player6) // And what becomes of Melissan, then?  Is she free to raise Bhaal and complete her plans?
		SetGlobal("GOB06","GLOBAL",1)
		Continue()
END

IF
	Global("GOB06","GLOBAL",1)
	OR(5)
		!HasItemEquiped("HELM07",Player6) // Helm of Balduran
		!HasItemEquiped("WA2PLAT",Player6) // Plate of Balduran +2
		!HasItemEquiped("WA2SHIEL",Player6) // Shield of Balduran +3
		!HasItemEquiped("CLCK05",Player6) // Cloak of Balduran
		!HasItemEquipedReal("WA2S1H",Player6) // Blade of Sharpness +1
THEN
	RESPONSE #100
		DisplayString(Player6,174593) // Glory of Balduran removed
		ApplySpellRES("spcl993",Player6) // And what becomes of Melissan, then?  Is she free to raise Bhaal and complete her plans?
		SetGlobal("GOB06","GLOBAL",0)
		Continue()
END

IF
	Global("C#AjanRomAdultContent","GLOBAL",0)
THEN
	RESPONSE #100
		SetGlobal("C#AjanRomAdultContent","GLOBAL",1)
END

IF
	Global("C#AjantisRomancePCIsMale","GLOBAL",0)
	Gender(Player1,MALE)
THEN
	RESPONSE #100
		SetGlobal("C#AjantisRomancePCIsMale","GLOBAL",1)
END

IF
	Global("C#AjantisRomancePCIsMale","GLOBAL",0)
	Global("C#AjantisEngagedMatch","GLOBAL",0)
	Global("C#AjantisEngagedMatchCheck","GLOBAL",0)
	Global("C#AjantisEngaged","GLOBAL",0)
	Global("C#AjanEngagementBrokenBG1","GLOBAL",0)
	Gender(Player1,FEMALE)
	!Class(Player1,THIEF)
	OR(4)
		Alignment(Player1,MASK_GOOD)
		Alignment(Player1,LAWFUL_NEUTRAL)
		Alignment(Player1,NEUTRAL)
		Class(Player1,DRUID_ALL)
	OR(4)
		Race(Player1,HUMAN)
		Race(Player1,HALF_ELF)
		Race(Player1,HALFLING)
		Race(Player1,ELF)
THEN
	RESPONSE #100
		SetGlobal("C#AjantisEngagedMatch","GLOBAL",1)
		SetGlobal("C#AjantisEngagedMatchCheck","GLOBAL",1)
END

IF
	Global("C#AjantisRomancePCIsMale","GLOBAL",0)
	Global("C#AjantisRomanceActive","GLOBAL",0)
	Global("C#AjantisNewRomMatch","GLOBAL",0)
	Global("C#AjantisNewRomMatchCheck","GLOBAL",0)
	Global("C#AjanEngagementBrokenBG1","GLOBAL",0)
	Gender(Player1,FEMALE)
	!Class(Player1,THIEF)
	OR(4)
		Alignment(Player1,MASK_GOOD)
		Alignment(Player1,LAWFUL_NEUTRAL)
		Alignment(Player1,NEUTRAL)
		Class(Player1,DRUID_ALL)
THEN
	RESPONSE #100
		SetGlobal("C#AjantisNewRomMatch","GLOBAL",1)
		SetGlobal("C#AjantisNewRomMatchCheck","GLOBAL",1)
		SetGlobal("C#AjantisRomanceActive","GLOBAL",1)
END

IF
	!InParty("C#Ajantis")
	Global("C#AjantisEngaged","GLOBAL",1)
	Global("HadImoenDream1","GLOBAL",1)
	Global("C#AjantisHadImoenDream1","GLOBAL",0)
THEN
	RESPONSE #100
		SetGlobal("C#AjantisHadImoenDream1","GLOBAL",2)
		SetGlobal("C#AjantisDream1PID","GLOBAL",1)
END

IF
	!InParty("C#Ajantis")
	Global("C#AjantisEngaged","GLOBAL",1)
	Global("HadJonDream1","GLOBAL",1)
	Global("C#AjantisHadJonDream1","GLOBAL",0)
THEN
	RESPONSE #100
		SetGlobal("C#AjantisHadJonDream1","GLOBAL",2)
		SetGlobal("C#AjantisDream2PID","GLOBAL",1)
END

IF
	!InParty("C#Ajantis")
	Global("C#AjantisEngaged","GLOBAL",1)
	Global("HadJonDream2","GLOBAL",1)
	Global("C#AjantisHadJonDream2","GLOBAL",0)
THEN
	RESPONSE #100
		SetGlobal("C#AjantisHadJonDream2","GLOBAL",2)
		SetGlobal("C#AjantisDream3PID","GLOBAL",1)
END

IF
	!InParty("C#Ajantis")
	Global("C#AjantisEngaged","GLOBAL",1)
	Global("HadSlayerDream","GLOBAL",1)
	Global("C#AjantisHadSlayerDream","GLOBAL",0)
THEN
	RESPONSE #100
		SetGlobal("C#AjantisHadSlayerDream","GLOBAL",3)
END

IF
	!InParty("C#Ajantis")
	Global("C#AjantisEngaged","GLOBAL",1)
	Global("HadEllesimeDream1","GLOBAL",1)
	Global("C#AjanEllesimeDream1","GLOBAL",0)
THEN
	RESPONSE #100
		SetGlobal("C#AjanEllesimeDream1","GLOBAL",2)
		SetGlobal("C#AjanEllesimeDream1PID","GLOBAL",1)
END

IF
	!InParty("C#Ajantis")
	Global("C#AjantisEngaged","GLOBAL",1)
	Global("AranJob","GLOBAL",3)
	Global("C#AjantisAranWusste1","GLOBAL",0)
THEN
	RESPONSE #100
		SetGlobal("C#AjantisAranWusste1","GLOBAL",1)
END

IF
	Global("C#AjKu","GLOBAL",1)
THEN
	RESPONSE #100
		StartCutScene("C#AJCUT2")
		StartCutSceneMode()
		SetGlobal("C#AjKu","GLOBAL",2)
END

IF
	Global("C#AjantisKoerperEingesammelt","GLOBAL",0)
	GlobalGT("Kidnap","GLOBAL",2)
	Global("C#AjantisSpaetInstallation","GLOBAL",0)
THEN
	RESPONSE #100
		SetGlobal("C#AjantisSpaetInstallation","GLOBAL",1)
END

IF
	!InParty("C#Ajantis")
	Global("ElgeaFree","GLOBAL",1)
	!Global("SpawnWelther","GLOBAL",1)
	Global("C#AjantisElgeaBefreit","GLOBAL",0)
THEN
	RESPONSE #100
		SetGlobal("C#AjantisElgeaBefreit","GLOBAL",5)
END

IF
	!InParty("C#Ajantis")
	Global("C#AjantisPCNichtElgea","GLOBAL",1)
	!AreaCheck("AR0507")
	!AreaCheck("AR0508")
THEN
	RESPONSE #100
		SetGlobal("C#AjantisPCNichtElgea","GLOBAL",0)
END

IF
	!InParty("C#Ajantis")
	Global("GrovePoisoned","GLOBAL",1)
	Global("C#AjantisGrovePoisoned","GLOBAL",0)
THEN
	RESPONSE #100
		SetGlobal("C#AjantisGrovePoisoned","GLOBAL",3)
END

IF
	!InParty("C#Ajantis")
	Global("C#AjantisDrowSklaven3","GLOBAL",1)
	Global("C#AjantisImUnterreich","GLOBAL",0)
THEN
	RESPONSE #100
		SetGlobal("C#AjantisDrowSklaven3","GLOBAL",0)
END

IF
	!InParty("C#Ajantis")
	Global("C#AnomenDecisionComment1","GLOBAL",0)
	!Global("AnomenIsNotKnight","GLOBAL",1)
	!Global("AnomenIsKnight","GLOBAL",1)
	OR(3)
		Global("AnomenDecide","GLOBAL",2)
		Global("AnomenDecide","GLOBAL",3)
		Global("AnomenDecide","GLOBAL",4)
	Global("C#AjantisAnomenNotThere","GLOBAL",0)
THEN
	RESPONSE #100
		SetGlobal("C#AjantisAnomenNotThere","GLOBAL",1)
END

IF
	Global("C#AjantisPCMarriage","GLOBAL",1)
	Global("C#AjantisKillAnomenRom","GLOBAL",0)
	Global("C#CheckAnomenLTGT27","GLOBAL",1)
	OR(2)
		Global("AnomenRomanceActive","GLOBAL",1)
		Global("AnomenRomanceActive","GLOBAL",2)
THEN
	RESPONSE #100
		SetGlobal("C#AjantisKillAnomenRom","GLOBAL",1)
		SetGlobal("AnomenRomanceActive","GLOBAL",3)
END

IF
	!Global("C#AjantisRomanceActive","GLOBAL",0)
	!Global("C#AjantisRomanceActive","GLOBAL",3)
	Global("AnomenRomanceActive","GLOBAL",2)
	OR(2)
		GlobalGT("C#CheckAnomenLTGT32","GLOBAL",0)
		Global("C#AjantisPCSleptWithAno","GLOBAL",1)
	Global("C#AjantisPCAnomenRom","GLOBAL",0)
THEN
	RESPONSE #100
		SetGlobal("C#AjantisPCAnomenRom","GLOBAL",1)
		SetGlobal("C#AjantisRomanceActive","GLOBAL",3)
END

IF
	!InParty("C#Ajantis")
	Global("C#AjantisEngagedMatch","GLOBAL",1)
	Global("C#AjantisEngaged","GLOBAL",1)
	Global("C#AjantisRomanceActive","GLOBAL",3)
	Global("C#AjantisPCBrokeRomance","GLOBAL",0)
	Global("C#AjantisKnowsPCLove","GLOBAL",0)
THEN
	RESPONSE #100
		SetGlobal("C#AjantisKnowsPCLove","GLOBAL",1)
		SetGlobalTimer("C#AjantisKnowsPCLoveT","GLOBAL",TWO_DAYS)
END

IF
	Delay(600)
	CombatCounter(0)
	HasItemEquipedReal("sw2host","SK#Neht") // Relic Amaunatori +3
THEN
	RESPONSE #10
		DisplayStringHeadOwner("sw2host",219104) // If I see anodder pointy-eared, tree-wannabe glaring at me master, den deir arses are geddin' skewered.
	RESPONSE #10
		DisplayStringHeadOwner("sw2host",219105) // Ye know, I wouldn't mind meetin' a female talkin' sword some time.
	RESPONSE #10
		DisplayStringHeadOwner("sw2host",219106) // Me master, I dink ye need to brush up on yer looks. Yer even scaring off da liddle kiddies now.
	RESPONSE #10
		DisplayStringHeadOwner("sw2host",219107) // What are ye bloody lookin' at?
	RESPONSE #10
		DisplayStringHeadOwner("sw2host",219108) // Wake me up when we're gunna kill someding.
	RESPONSE #10
		DisplayStringHeadOwner("sw2host",219109) // *Snore*
	RESPONSE #10
		DisplayStringHeadOwner("sw2host",219110) // Belch!
	RESPONSE #10
		DisplayStringHeadOwner("sw2host",219111) // I dink I'm geddin' some indigestion issues o'er here.
	RESPONSE #10
		DisplayStringHeadOwner("sw2host",219112) // Are we e'en bloody dere yet?!
END

IF
	Delay(125)
	!CombatCounter(0)
	HasItemEquipedReal("sw2host","SK#Neht") // Relic Amaunatori +3
THEN
	RESPONSE #10
		DisplayStringHeadOwner("sw2host",219113) // In a hurry to die, are ye?
	RESPONSE #10
		DisplayStringHeadOwner("sw2host",219114) // Get ye dead! Ye spell-happy idiots!
	RESPONSE #10
		DisplayStringHeadOwner("sw2host",219115) // No, no, NO! Swing me de odder way!
	RESPONSE #10
		DisplayStringHeadOwner("sw2host",219116) // Try not ta get me stuck up a dragon's arse dis time!
	RESPONSE #10
		DisplayStringHeadOwner("sw2host",219117) // Now go back de odder way.
	RESPONSE #10
		DisplayStringHeadOwner("sw2host",219118) // *Snickers.*
	RESPONSE #10
		DisplayStringHeadOwner("sw2host",219119) // Didn't I teach ye anyding?!
	RESPONSE #10
		DisplayStringHeadOwner("sw2host",219111) // I dink I'm geddin' some indigestion issues o'er here.
END

IF
	Delay(240)
	CombatCounter(0)
	HasItemEquipedReal("D#Crybl1","D#Silver") // Cry Blade
THEN
	RESPONSE #100
		DisplayStringHeadOwner("D#Crybl1",220807) // Sigh...
	RESPONSE #100
		DisplayStringHeadOwner("D#Crybl1",220808) // Why are you so evil, Star of my heart?
	RESPONSE #100
		DisplayStringHeadOwner("D#Crybl1",220809) // Don't be afraid I will love you forever.
	RESPONSE #100
		DisplayStringHeadOwner("D#Crybl1",220810) // What has a sheep ever done to you, Star of my heart?
	RESPONSE #100
		DisplayStringHeadOwner("D#Crybl1",220811) // Every time you take a life, you cut my heart.
	RESPONSE #100
		DisplayStringHeadOwner("D#Crybl1",220812) // Daughter of my soul, why do this?
END

IF
	Global("LK#XulEraseUDJournal","GLOBAL",1)
THEN
	RESPONSE #100
		IncrementGlobal("LK#XulEraseUDJournal","GLOBAL",1)
		EraseJournalEntry(5810) // The Drow Summoning Ritual  Ardulace has been impressed by my betrayal of Phaere... enough so that she wishes me to be present at the ritual to prevent any further interruptions.  I am to be collected by a guard shortly in order to be brought to the ritual, which is taking place soon.
		EraseJournalEntry(6535) // The Drow Summoning Ritual  I gave the real dragon eggs to Matron Ardulace, proof of Phaere's treachery, and she has called for Phaere to be brought before her.
		EraseJournalEntry(16529) // The Drow Summoning Ritual  The key that Phaere gave me to get the real eggs from the treasury was enough to convince the Matron Ardulace of her treachery.  This means I won't be able to get the eggs, now... but my chance may come later.  Phaere, in the meantime, is about to receive her just desserts.
		EraseJournalEntry(6943) // The Drow Summoning Ritual  I revealed Phaere's treachery to Matron Ardulace by showing her the fake eggs Phaere gave me.  She asked for the real ones, and was fooled by the fakes that Solaufein gave me.  The real eggs are still in my own possession.  Ardulace believes me, now, and has called for Phaere to be punished.
		EraseJournalEntry(16339) // The Drow Summoning Ritual  I revealed Phaere's treachery to Matron Ardulace, showing her the fake eggs that Phaere gave me.  She noticed the real eggs and took them, too... but at least she believes that Phaere is the one behind all of this.
		EraseJournalEntry(9649) // The Drow Summoning Ritual  An imp claiming to come from the Silver Dragon appeared, telling me that the eggs must be rescued before the ritual is completed and the eggs are sacrificed to the demon.  The ritual will have to be stopped... and then the Matron Ardulace must be killed to lift the magical seal off the city.  Once that is done, I will have only minutes to flee the city with the eggs before my disguise is discovered.  Cutting it close, indeed.
		EraseJournalEntry(6405) // The Drow Summoning Ritual  An imp claiming to come from the Silver Dragon appeared, telling me that in order for me to be able to flee the city with the eggs, Matron Ardulace must first be killed.  Doing so will only leave me minutes to get out of the city before my disguise is revealed by the angry Handmaidens of Lolth.  No doubt my chance will come during the ritual... cutting it close, indeed.
		EraseJournalEntry(6403) // The Drow Summoning Ritual  I have given Phaere the real silver eggs... I had little choice... and she has gone on to the Temple of Lolth and commanded me to follow.
		EraseJournalEntry(6590) // The Drow Summoning Ritual  I gave Phaere the eggs that Solaufein had given me... and it seems that she has been fooled into thinking they are the real ones.  The real eggs are still in my possession... and both Phaere and Matron Ardulace think they have the real eggs for the upcoming ritual. Phaere has gone onwards to the Temple of Lolth and has commanded me to follow right away.
		EraseJournalEntry(254295) // The Drow Summoning Ritual
 
 I gave Phaere the eggs that Xulaye had given me... and it seems that she has been fooled into thinking they are the real ones.  The real eggs are still in my possession... and both Phaere and Matron Ardulace think they have the real eggs for the upcoming ritual.
 Phaere has gone onwards to the Temple of Lolth and has commanded me to follow right away.
		EraseJournalEntry(7147) // The Drow Summoning Ritual  I have encountered Solaufein once again, who has apparently snuck back into the city to spy on Phaere.  He thanked me for sparing him, and gave me another copy of the silver dragon eggs... these ones even Phaere will not be able to distinguish from the real ones.
		EraseJournalEntry(7148) // The Drow Summoning Ritual  Phaere has told me of Ardulace's plan in its entirety.  The drow intend to invade the surface... to what end, I don't know.  But Matron Ardulace's ritual is going to summon a great demon to aid the drow.  The dragon eggs will be sacrificed to the demon in return for its service, and this will place House Despana in great favor with Lolth. Phaere intends to betray Matron Ardulace, and has coerced me into helping her.  She wants me to go to the Despana treasury (in Lolth's temple) and replace the silver dragon's eggs with fake eggs that Phaere has had made.  Then when Ardulace offers the dragon the fake eggs, Phaere can step in with the real ones. I must be careful if I go to the treasury... killing the guards, if it is done, must be done discreetly if at all.  And even once I get the eggs, the city has been sealed by Matron Ardulace... there is no escaping.  I must continue to play along... for now.
		EraseJournalEntry(15793) // The Drow Summoning Ritual  I have returned with the blood, and Matron Ardulace was very pleased.  She mentioned that she is about to start a ritual... and before doing so she was going to seal the city.  I suppose that means that nobody can enter or leave.  She also mentioned the 'silver one' being barred from entry... obviously she knows something of the silver dragon's eggs. Matron Ardulace told me to relax, but Phaere ordered me to meet her within her apartments within an hour.  Obviously she has something else in mind.
		EraseJournalEntry(15792) // The Drow Summoning Ritual  Matron Ardulace has sent me to get the blood of one of the elder races that inhabit the Underdark with the drow.  I either need to go the beholder tunnels in the southeast and kill an Elder Orb, go to the illithid city in the southeast and kill an Elder Brain or go to the Kuo-Toan ruins in the west and kill a Kuo-Toan Prince.  Once I have the blood, I am to return to Ardulace forthwith.
		EraseJournalEntry(15797) // Recover the Silver Dragon's Eggs.  I have finally encountered Adalon, a female silver dragon who is desperate to have her eggs returned.  She normally guards the path to the surface from drow incursion, but Irenicus and Bodhi have stolen her eggs and given them to the drow... and she can do nothing for fear of her eggs being destroyed.   She has turned me into the likeness of a drow, with the name 'Veldrin', and bade me to enter the nearby city of Ust Natha in search of her eggs.  Once her eggs are returned safely, she will show me to the surface and reward me with an item from her hoard.
		EraseJournalEntry(23424) // The Drow Summoning Ritual  Matron Mother Ardulace has decided to make use of me, collecting ingredients for something she didn't mention, perhaps some spell.  I have been sent to find a Master Whip of the Kuo-Toa in the western part of the caverns, and to return to the Matron Mother with its blood within three days.
END

IF
	Global("LK#XulEraseJournal","GLOBAL",1)
THEN
	RESPONSE #100
		IncrementGlobal("LK#XulEraseJournal","GLOBAL",1)
		EraseJournalEntry(254295) // The Drow Summoning Ritual
 
 I gave Phaere the eggs that Xulaye had given me... and it seems that she has been fooled into thinking they are the real ones.  The real eggs are still in my possession... and both Phaere and Matron Ardulace think they have the real eggs for the upcoming ritual.
 Phaere has gone onwards to the Temple of Lolth and has commanded me to follow right away.
END

IF
	Global("EdwinRomanceActive","GLOBAL",1)
	Global("EdwinRomanceOut","GLOBAL",0)
	!InPartyAllowDead("Edwin")
	!Dead("Edwin") // Edwin
THEN
	RESPONSE #100
		SetGlobal("EdwinRomanceOut","GLOBAL",1)
		SetGlobalTimer("EdwinOutOfParty","GLOBAL",THREE_DAYS)
END

IF
	Global("EdwinRomanceActive","GLOBAL",1)
	Global("EdwinRomanceOut","GLOBAL",1)
	GlobalTimerExpired("EdwinOutOfParty","GLOBAL")
	!InPartyAllowDead("Edwin")
	!Dead("Edwin") // Edwin
THEN
	RESPONSE #100
		SetGlobal("EdwinRomanceActive","GLOBAL",3)
END

IF
	Global("EdwinRomanceActive","GLOBAL",1)
	Global("EdwinRomanceOut","GLOBAL",1)
	!GlobalTimerExpired("EdwinOutOfParty","GLOBAL")
	InPartyAllowDead("Edwin")
THEN
	RESPONSE #100
		SetGlobal("EdwinRomanceOut","GLOBAL",0)
		RealSetGlobalTimer("EdwinRomance","GLOBAL",2250)
END

IF
	OR(2)
		Global("NathRomanceActive","GLOBAL",1)
		Global("NathRomanceActive","GLOBAL",2)
	!InPartyAllowDead("Nath")
	Dead("Nath")
THEN
	RESPONSE #100
		SetGlobal("NathRomanceActive","GLOBAL",3)
END

IF
	Global("FHLJoined","GLOBAL",1)
	InParty("FHLAND")
	InParty("FHLSEB")
	!StateCheck("FHLSEB",CD_STATE_NOTVALID)
	!StateCheck("FHLAND",CD_STATE_NOTVALID)
	GlobalTimerExpired("FHLLyelArrive","GLOBAL")
	Global("FHLSpawnLyel","GLOBAL",0)
	AreaType(OUTDOOR)
THEN
	RESPONSE #100
		SetGlobal("FHLSpawnLyel","GLOBAL",1)
		CreateCreatureObjectDoor("FHLLYEL","FHLAND",0,0,0) // Lyel
		Wait(4)
		ActionOverride("FHLLYEL",MoveToObject("FHLAND"))
		ActionOverride("FHLLYEL",StartDialogueNoSet(Player1))
END

IF
	GlobalTimerExpired("FHLReturn1","GLOBAL")
	Global("FHLReturns","GLOBAL",0)
THEN
	RESPONSE #100
		SetGlobal("FHLReturns","GLOBAL",1)
		MoveGlobal("AR0700","FHLSEB",[2140.2409])
		MoveGlobal("AR0700","FHLAND",[2169.2452])
END

IF
	GlobalTimerExpired("FHLKavArrive","GLOBAL")
	Global("FHLKavSpawn","GLOBAL",0)
	Global("FHLKavLetter","GLOBAL",0)
	!Global("Chapter","GLOBAL",4)
	!Global("Chapter","GLOBAL",5)
	!Global("Chapter","GLOBAL",7)
	!AreaCheck("AR2500")
	!AreaCheck("AR2600")
	!AreaCheck("AR2601")
	!AreaCheck("AR2800")
	!AreaCheck("AR0500")
	AreaType(OUTDOOR)
THEN
	RESPONSE #100
		CreateCreatureObjectOffScreen("FHLKAV","FHLSEB",0,0,0) // Kavyn
		SetGlobal("FHLKavSpawn","GLOBAL",1)
END

IF
	Global("FHLReturn2Timer","GLOBAL",1)
THEN
	RESPONSE #100
		SetGlobalTimer("FHLReturn2","GLOBAL",ONE_DAY)
		SetGlobal("FHLReturn2Timer","GLOBAL",2)
		SetGlobal("FHLKicked","GLOBAL",4)
END

IF
	GlobalTimerExpired("FHLReturn2","GLOBAL")
	Global("FHLReturns2","GLOBAL",0)
THEN
	RESPONSE #100
		SetGlobal("FHLReturns2","GLOBAL",1)
		MoveGlobal("AR0704","FHLSEB",[171.600])
		MoveGlobal("AR0704","FHLAND",[193.574])
		ActionOverride("FHLAND",Face(2))
END

IF
	GlobalTimerExpired("FHLReturn2","GLOBAL")
	Global("FHLReturns2","GLOBAL",1)
	Global("FHLSpawnBoy","GLOBAL",0)
	AreaType(OUTDOOR)
THEN
	RESPONSE #100
		CreateCreatureObjectOffScreen("FHLBOY3",Player1,0,0,0) // Boy
		SetGlobal("FHLSpawnBoy","GLOBAL",1)
END

IF
	Global("FHLVirtueChange","GLOBAL",0)
	Global("FHLMDP","GLOBAL",1)
	GlobalGT("D0Virtue","GLOBAL",15)
THEN
	RESPONSE #100
		SetGlobal("FHLVirtueChange","GLOBAL",1)
		IncrementGlobal("D0Change","GLOBAL",-3)
END

IF
	Global("DiscoGnoll","GLOBAL",1)
THEN
	RESPONSE #100
		SetGlobal("DiscoGnoll","GLOBAL",0)
		CreateVisualEffectObject("d0gnoll",Player1)
		DisplayStringNoName(Player1,317397) // Secret Disco Gnoll discovered!
		Wait(4)
		DisplayStringHead(Player1,317398) // Disco Gnoll likes disco music!
END