IF
	Global("PlayerToldOfTorgal","GLOBAL",1)
	Global("CreateLens","AR1301",0)
THEN
	RESPONSE #100
		SetGlobal("CreateLens","AR1301",1)
		ActionOverride("torgal",CreateItem("c6lens",0,0,0)) // Lens Piece
END

IF
	Dead("torgal")
	Global("FinishedLensPlot","AR1301",0)
THEN
	RESPONSE #100
		SetGlobal("FinishedLensPlot","AR1301",1)
		IncrementGlobal("LensPlot","GLOBAL",1)
END

IF
	Dead("TORGAL")
	Global("DeadTorgalJournalEntry","AR1301",0)
THEN
	RESPONSE #100
		SetGlobal("DeadTorgalJournalEntry","AR1301",1)
		AddJournalEntry(11648,QUEST) // The de'Arnise Keep has been invaded.  TorGal is dead and any remaining trolls will likely flee without a leader.  Hopefully the Yuan-ti go as well.  Now all that is left to do is go back to the palisade and tell everyone about the success.
END

IF
	Contains("MISC7U","FeedingCell") // Dog Stew
	Global("UmberHungry","AR1301",0)
	NumDeadLT("KPUMB01",5)
THEN
	RESPONSE #100
		SetGlobal("UmberHungry","AR1301",1)
		AddexperienceParty(18750)
		DisplayString(Myself,46805) // This dog stew that you have placed will most likely draw any umberhulks in the area to this feeding room. It might be wise to vacate the cell.
END

IF
	Global("LensNumber","GLOBAL",0)
	NumItemsParty("c6lens",1) // Lens Piece
THEN
	RESPONSE #100
		SetGlobal("LensNumber","GLOBAL",1)
		AddXPObject(Player1,45000)
		AddXPObject(Player2,45000)
		AddXPObject(Player3,45000)
		AddXPObject(Player4,45000)
		AddXPObject(Player5,45000)
		AddXPObject(Player6,45000)
END

IF
	Global("LensNumber","GLOBAL",1)
	NumItemsParty("c6lens",2) // Lens Piece
THEN
	RESPONSE #100
		SetGlobal("LensNumber","GLOBAL",2)
		AddXPObject(Player1,45000)
		AddXPObject(Player2,45000)
		AddXPObject(Player3,45000)
		AddXPObject(Player4,45000)
		AddXPObject(Player5,45000)
		AddXPObject(Player6,45000)
END

IF
	Global("LensNumber","GLOBAL",2)
	NumItemsParty("c6lens",3) // Lens Piece
THEN
	RESPONSE #100
		SetGlobal("LensNumber","GLOBAL",3)
		AddXPObject(Player1,45000)
		AddXPObject(Player2,45000)
		AddXPObject(Player3,45000)
		AddXPObject(Player4,45000)
		AddXPObject(Player5,45000)
		AddXPObject(Player6,45000)
END

IF
	OnCreation()
	Global("BP_MoreStooges","AR1301",0)
	LevelGT(Player1,9)
	NumInPartyGT(1)
	!Difficulty(EASIEST)
THEN
	RESPONSE #100
		SetGlobal("BP_MoreStooges","AR1301",1)
		CreateCreature("ICYUAN03",[2380.280],2) // Yuan-Ti Mage
		CreateCreature("ICYUAN03",[2720.500],2) // Yuan-Ti Mage
		CreateCreature("ICYUAN04",[2660.540],2) // Yuan-Ti Elite
		CreateCreature("ICYUAN04",[2320.300],2) // Yuan-Ti Elite
END

IF
	Global("BP_MoreStooges","AR1301",1)
	LevelGT(Player1,11)
	NumInPartyGT(3)
	!Difficulty(EASIEST)
	!Difficulty(EASY)
THEN
	RESPONSE #100
		SetGlobal("BP_MoreStooges","AR1301",2)
		CreateCreature("TROLSP01",[2540.490],2) // Spectral Troll
		CreateCreature("TROLSP01",[2420.430],2) // Spectral Troll
		CreateCreature("TROLSN01",[2470.530],2) // Snow Troll
		CreateCreature("TROLSN01",[2360.450],2) // Snow Troll
END

IF
	OpenState("DOOR03",TRUE)
	Global("TorgMove","AR1301",0)
	!Dead("Torgal")
THEN
	RESPONSE #100
		SetGlobal("TorgMove","AR1301",1)
		TriggerActivation("TRAN1303",FALSE)
		ActionOverride("Torgal",MoveToPointNoInterrupt([2320.530]))
END

IF
	Global("TorgMove","AR1301",1)
	Dead("Torgal")
THEN
	RESPONSE #100
		SetGlobal("TorgMove","AR1301",2)
		TriggerActivation("TRAN1303",TRUE)
END