IF
	OnCreation()
	!Global("lh2100","GLOBAL",1)
	Global("PikAlly","GLOBAL",1)
THEN
	RESPONSE #100
		SetGlobal("lh2100","GLOBAL",1)
		SetGlobal("Over","GLOBAL",0)
		GiveItemCreate("lhMIS90b",Player1,1,1,1)
		TakePartyItemAll("lhMIS90a")
		SetGlobal("CPult1","AR2100",0)
		SetGlobal("CPult2","AR2100",0)
		SetGlobal("CPult3","AR2100",0)
		SetGlobal("Sol0","AR2100",0)
		SetGlobal("Sol1","AR2100",0)
		SetGlobal("Sol2","AR2100",0)
		SetGlobal("Sol3","AR2100",0)
		SetGlobal("Sol4","AR2100",0)
		SetGlobal("DenDie","GLOBAL",0)
		CreateCreature("lhbPK1a",[1280.3450],8)
		CreateCreature("lhbPK1a",[1480.3450],8)
		CreateCreature("lhbPK1a",[1680.3450],8)
		CreateCreature("lhbPK1a",[1880.3450],8)
		CreateCreature("lhbPK1a",[2080.3450],8)
		CreateCreature("lhbPK1a",[2280.3450],8)
		CreateCreature("lhbPK1a",[2480.3450],8)
		CreateCreature("lhbPK1a",[2680.3450],8)
		CreateCreature("lhbPK1a",[2880.3450],8)
		CreateCreature("lhbPK1a",[3080.3450],8)
		CreateCreature("lhbPK1a",[3280.3450],8)
		CreateCreature("lhbPK1a",[3480.3450],8)
		CreateCreature("lhbPK1a",[3680.3450],8)
		Wait(1)
		ClearAllActions()
		StartCutSceneMode()
		StartCutScene("lh2100h")
END

IF
	OnCreation()
	!Global("lh2100","GLOBAL",1)
THEN
	RESPONSE #100
		SetGlobal("lh2100","GLOBAL",1)
		SetGlobal("Over","GLOBAL",0)
		GiveItemCreate("lhMIS90b",Player1,1,1,1)
		TakePartyItemAll("lhMIS90a")
		SetGlobal("CPult1","AR2100",0)
		SetGlobal("CPult2","AR2100",0)
		SetGlobal("CPult3","AR2100",0)
		SetGlobal("Sol0","AR2100",0)
		SetGlobal("Sol1","AR2100",0)
		SetGlobal("Sol2","AR2100",0)
		SetGlobal("Sol3","AR2100",0)
		SetGlobal("Sol4","AR2100",0)
		SetGlobal("DenDie","GLOBAL",0)
		Wait(1)
		ClearAllActions()
		StartCutSceneMode()
		StartCutScene("lh2100h")
END

IF
	Global("DenDie","GLOBAL",1)
THEN
	RESPONSE #100
		ClearAllActions()
		SetGlobal("DenDie","GLOBAL",2)
		Wait(3)
		ClearAllActions()
		FadeToColor([20.0],0)
		Wait(1)
		ClearAllActions()
		StartCutSceneMode()
		StartCutScene("lhEND1")
END

IF
	Global("Over","GLOBAL",90)
THEN
	RESPONSE #100
		SetGlobal("Over","GLOBAL",0)
		TakePartyItemAll("lhMIS90b")
		ClearAllActions()
		StartCutSceneMode()
		StartCutScene("LHRT1502")
END
