IF
	OnCreation()
THEN
	RESPONSE #100
		SetGlobal("Over","GLOBAL",0)
END

IF
	!Global("lh1100","GLOBAL",1)
THEN
	RESPONSE #100
		SetGlobal("lh1100","GLOBAL",1)
		GiveItemCreate("lhMIS6b",Player1,1,1,1)
		TakePartyItemAll("lhMIS6a")
		SetGlobal("1100E","AR1100",0)
		SetGlobal("1100G","AR1100",0)
		SetGlobal("1100H","AR1100",0)
		SetGlobal("1100I","AR1100",0)
		SetGlobal("Peasants","AR1100",0)
		SetGlobal("FatLady1","GLOBAL",0)
END

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