//Destroys residual .gam generated Imoen's. The tag was set in Newgame.bcs in AR0602.
IF
     Global("hf_Modify_Imoen","LOCALS",0)
     Global("hf_Original_Imoen_Tag","LOCALS",0)
THEN
   RESPONSE #100
     ClearAllActions()
     SetGlobal("hf_Modify_Imoen","LOCALS",1)
     ActionOverride("Imoen2",DestroySelf())
END

//Remove that damn belt
IF
	HasItem("Imoenhp1",Myself)
THEN
	RESPONSE #100
		DestroyItem("Imoenhp1")
END

//Sets the XP as per the Imoen211 
IF
      Global("hf_XPup_Imoen","GLOBAL",0)
      XPLT(Player1,150000)
THEN
   RESPONSE #100
      AddXPObject(Myself,350000)
      SetGlobal("hf_XPup_Imoen","GLOBAL",1)
END

//Sets the XP as per the Imoen213 original .cre files.
IF
      Global("hf_XPup_Imoen","GLOBAL",0)
      XPGT(Player1,150000)
THEN
   RESPONSE #100
      SetGlobal("hf_XPup_Imoen","GLOBAL",1)
      AddXPObject(Myself,1000000)
END

IF
	Global("PressedMR","LOCALS",1)
	G("PrePressedMR",0)
	InParty(Myself)
THEN
	RESPONSE #100
		SG("PrePressedMR",1)
		SetGlobal("PressedMR","LOCALS",339)
		RealSetGlobalTimer("PrePressedTimerMR","GLOBAL",250)
		Continue()
END

IF
	G("PrePressedMR",1)
	Global("PressedMR","LOCALS",339)
	InParty(Myself)
	!StateCheck(Player1,STATE_SLEEPING)
	See(Player1)
	CombatCounter(0)
	!Detect([ENEMY])
	!ActuallyInCombat()
	!G("ImoenRomanceActive",3)
	RealGlobalTimerExpired("PrePressedTimerMR","GLOBAL")
THEN
	RESPONSE #100
		SetGlobal("PressedMR","LOCALS",400)
		SG("PrePressedMR",50)
		SG("PressedMR",50)
		StartCutSceneMode()
		MoveToObject(Player1)
		EndCutSceneMode()
		StartDialog("IMOEN2J",Player1)
END

IF
	InParty(Myself)
	Global("SelfishTookMR","GLOBAL",1)
THEN
	RESPONSE #100
		SetGlobal("SelfishTookMR","GLOBAL",2)
		RealSetGlobalTimer("SelfishTookTimerMR","GLOBAL",3)
		Continue()
END

IF
	InParty(Myself)
	See(Player1)
	Global("SelfishTookMR","GLOBAL",2)
	RealGlobalTimerExpired("SelfishTookTimerMR","GLOBAL")
THEN
	RESPONSE #100
		SetGlobal("SelfishTookMR","GLOBAL",0)
		StartDialog("IMOEN2J",Player1)
END

IF
	InParty(Myself)
	G("SelfishTookAerieMR",51)
	!Dead("Aerie")
THEN
	RESPONSE #100
		SG("SelfishTookAerieMR",3)
		Continue()
END

IF
	InParty(Myself)
	G("SelfishTookAerieMR",3)
	AreaCheck("AR2904")
	Dead("Aerie")
THEN
	RESPONSE #100
		SG("SelfishTookAerieMR",4)
		Continue()
END

IF
	InParty(Myself)
	G("SelfishTookAerieMR",3)
	AreaCheck("AR2904")
	IsValidForPartyDialog("Aerie")
	See("Aerie")
	G("AerieNotDeadSelfishMR",0)
	!StateCheck("Aerie",STATE_STUNNED)
THEN
	RESPONSE #100
		SG("SelfishTookAerieMR",0)
		SG("AerieNotDeadSelfishMR",1)
		ClearAllActions()
		StartCutSceneMode()
		CutSceneId("Imoen2")
		MoveToObject("Aerie")
		EndCutSceneMode()
		StartDialog("IMOEN2J","Aerie")
END

IF
	InParty(Myself)
	G("SelfishTookAerieMR",4)
	AreaCheck("AR2904")
	!Dead("Aerie")
THEN
	RESPONSE #100
		SG("SelfishTookAerieMR",5)
		Continue()
END

IF
	InParty(Myself)
	G("SelfishTookAerieMR",4)
	!AreaCheck("AR2904")
	Dead("Aerie")
THEN
	RESPONSE #100
		SG("SelfishTookAerieMR",14)
		Continue()
END

IF
	InParty(Myself)
	AreaCheck("AR2904")
	See("Aerie")
	G("SelfishTookAerieMR",5)
THEN
	RESPONSE #100
		SG("SelfishTookAerieMR",0)
		SG("AerieRaisedAfterSelfishMR",1)
		ClearAllActions()
		StartCutSceneMode()
		CutSceneId("Imoen2")
		MoveToObject("Aerie")
		EndCutSceneMode()
		StartDialog("IMOEN2J","Aerie")
END

IF
	InParty(Myself)
	G("SelfishTookAerieMR",14)
THEN
	RESPONSE #100
		SG("SelfishTookAerieMR",15)
		StartDialog("IMOEN2J",Player1)
END

IF
	Global("trig1","AR2400",1)
	Global("ImCellMR","GLOBAL",0)
THEN
	RESPONSE #100
		SetGlobal("ImCellMR","GLOBAL",1)
		RealSetGlobalTimer("ImCellTimerMR","GLOBAL",40)
END

IF
	Global("ImCellMR","GLOBAL",1)
	RealGlobalTimerExpired("ImCellTimerMR","GLOBAL")
THEN
	RESPONSE #100
		SetGlobal("ImCellMR","GLOBAL",2)
		StartDialog("IMOEN2J",Player1)
END

IF
	InParty(Myself)
	InParty("Edwin")
	Gender("Edwin",FEMALE)
	Global("EdwinFemaleCommentMR","GLOBAL",0)
THEN
	RESPONSE #100
		SetGlobal("EdwinFemaleCommentMR","GLOBAL",1)
		Continue()
END

IF
	InParty(Myself)
	AreaCheck("AR1500")
	CombatCounter(0)
	!ActuallyInCombat()
	Detect(Player1)
	Global("Chapter","GLOBAL",4)
	Global("AirTimerMR","GLOBAL",0)
	Global("AirCommentMR","GLOBAL",0)
	!G("PressedMR",1)
	!Global("PressedMR","LOCALS",339)
THEN
	RESPONSE #100
		SetGlobal("AirTimerMR","GLOBAL",1)
		RealSetGlobalTimer("AirTimerBlahMR","GLOBAL",20)
		Continue()
END

IF
	InParty(Myself)
	AreaCheck("AR1500")
	CombatCounter(0)
	!See([ENEMY])
	!ActuallyInCombat()
	Detect(Player1)
	Global("Chapter","GLOBAL",4)
	Global("AirTimerMR","GLOBAL",1)
	Global("AirCommentMR","GLOBAL",0)
	RealGlobalTimerExpired("AirTimerBlahMR","GLOBAL")
THEN
	RESPONSE #100
		SetGlobal("AirTimerMR","GLOBAL",0)
		SetGlobal("AirCommentMR","GLOBAL",1)
		StartDialog("IMOEN2J",Player1)
END

IF
	InParty(Myself)
	AreaCheck("AR0903")
	!Global("ImoenRomanceActive","GLOBAL",3)
	!Global("HadSexMessyInterlude","GLOBAL",1)
	GlobalGT("PaladinOrder","GLOBAL",0)
	Global("PaladinCommentMR","GLOBAL",0)
	!G("PressedMR",1)
	!Global("PressedMR","LOCALS",339)
THEN
	RESPONSE #100
		SetGlobal("PaladinCommentMR","GLOBAL",1)
		StartDialog("IMOEN2J",Player1)
END

IF
	InParty(Myself)
	AreaCheck("AR0904")
	!Global("ImoenRomanceActive","GLOBAL",3)
	!Global("HadSexMessyInterlude","GLOBAL",1)
	GlobalGT("JoinTalos","GLOBAL",0)
	Global("TempleCommentMR","GLOBAL",0)
	!G("PressedMR",1)
	!Global("PressedMR","LOCALS",339)
THEN
	RESPONSE #100
		SetGlobal("TempleCommentMR","GLOBAL",1)
		StartDialog("IMOEN2J",Player1)
END

IF
	InParty(Myself)
	AreaCheck("AR0902")
	!Global("ImoenRomanceActive","GLOBAL",3)
	!Global("HadSexMessyInterlude","GLOBAL",1)
	GlobalGT("JoinLathander","GLOBAL",0)
	Global("TempleCommentMR","GLOBAL",0)
	!G("PressedMR",1)
	!Global("PressedMR","LOCALS",339)
THEN
	RESPONSE #100
		SetGlobal("TempleCommentMR","GLOBAL",1)
		StartDialog("IMOEN2J",Player1)
END

IF
	InParty(Myself)
	AreaCheck("AR0901")
	!Global("ImoenRomanceActive","GLOBAL",3)
	!Global("HadSexMessyInterlude","GLOBAL",1)
	GlobalGT("JoinHelm","GLOBAL",0)
	Global("TempleCommentMR","GLOBAL",0)
	!G("PressedMR",1)
	!Global("PressedMR","LOCALS",339)
THEN
	RESPONSE #100
		SetGlobal("TempleCommentMR","GLOBAL",1)
		StartDialog("IMOEN2J",Player1)
END

IF
	InParty(Myself)
	AreaCheck("AR1100")
	!Global("ImoenRomanceActive","GLOBAL",3)
	!Global("HadSexMessyInterlude","GLOBAL",1)
	GlobalGT("RangerProtector","GLOBAL",0)
	Global("UmarHillsCommentMR","GLOBAL",0)
	!G("PressedMR",1)
	!Global("PressedMR","LOCALS",339)
THEN
	RESPONSE #100
		SetGlobal("UmarHillsCommentMR","GLOBAL",1)
		StartDialog("IMOEN2J",Player1)
END

IF
	InParty(Myself)
	OR(2)
		AreaCheck("AR1102")
		AreaCheck("AR1107")
	!Global("ImoenRomanceActive","GLOBAL",3)
	!Global("HadSexMessyInterlude","GLOBAL",1)
	GlobalGT("RangerProtector","GLOBAL",0)
	Global("UmarHillsCommentMR","GLOBAL",2)
	!Global("PressedMR","LOCALS",339)
	!G("PressedMR",1)
THEN
	RESPONSE #100
		SetGlobal("UmarHillsCommentMR","GLOBAL",3)
		StartDialog("IMOEN2J",Player1)
END

IF
	InParty(Myself)
	AreaCheck("AR1900")
	!Global("ImoenRomanceActive","GLOBAL",3)
	!Global("HadSexMessyInterlude","GLOBAL",1)
	GlobalGT("DruidStronghold","GLOBAL",0)
	Global("GroveCommentMR","GLOBAL",0)
	!Global("PressedMR","LOCALS",339)
	!G("PressedMR",1)
THEN
	RESPONSE #100
		SetGlobal("GroveCommentMR","GLOBAL",1)
		StartDialog("IMOEN2J",Player1)
END

IF
	InParty(Myself)
	Global("NextMorningMR","GLOBAL",1)
	PartyRested()
THEN
	RESPONSE #100
		ActionOverride(Player1,StartDialog("Player1",Player1))
END

IF
	InParty(Myself)
	AreaCheck("AR0523")
	!Global("ImoenRomanceActive","GLOBAL",3)
	!Global("HadSexMessyInterlude","GLOBAL",1)
	GlobalGT("Playhouse","GLOBAL",0)
	Global("PlayhouseCommentMR","GLOBAL",0)
	!Global("PressedMR","LOCALS",339)
	!G("PressedMR",1)
THEN
	RESPONSE #100
		SetGlobal("PlayhouseCommentMR","GLOBAL",1)
		StartDialog("IMOEN2J",Player1)
END

IF
	InParty(Myself)
	AreaCheck("AR0322")
	!Global("ImoenRomanceActive","GLOBAL",3)
	!Global("HadSexMessyInterlude","GLOBAL",1)
	GlobalGT("PlayerThiefGuild","GLOBAL",0)
	Global("ThiefCommentMR","GLOBAL",0)
	!Global("PressedMR","LOCALS",339)
	!G("PressedMR",1)
THEN
	RESPONSE #100
		SetGlobal("ThiefCommentMR","GLOBAL",1)
		StartDialog("IMOEN2J",Player1)
END

IF
	InParty(Myself)
	AreaCheck("AR1306")
	!Global("ImoenRomanceActive","GLOBAL",3)
	!Global("HadSexMessyInterlude","GLOBAL",1)
	GlobalGT("PCKeepOwner","GLOBAL",0)
	Global("DeArniseCommentMR","GLOBAL",0)
	!Global("PressedMR","LOCALS",339)
	!G("PressedMR",1)
THEN
	RESPONSE #100
		SetGlobal("DeArniseCommentMR","GLOBAL",1)
		StartDialog("IMOEN2J",Player1)
END

IF
	InParty(Myself)
	AreaCheck("AR0411")
	!Global("ImoenRomanceActive","GLOBAL",3)
	!Global("HadSexMessyInterlude","GLOBAL",1)
	GlobalGT("PCSphere","GLOBAL",0)
	Global("PlanarCommentMR","GLOBAL",0)
	!Global("PressedMR","LOCALS",339)
	!G("PressedMR",1)
THEN
	RESPONSE #100
		SetGlobal("PlanarCommentMR","GLOBAL",1)
		StartDialog("IMOEN2J",Player1)
END

IF
	HasItem("MRIMRIN2",Myself) // Imoen's Bracelet
	Global("AquiredItemMR","GLOBAL",0)
THEN
	RESPONSE #100
		SetGlobal("AquiredItemMR","GLOBAL",1)
END

IF
	Global("AquiredItemMR","GLOBAL",1)
	!HasItem("MRIMRIN2",Myself) // Imoen's Bracelet
THEN
	RESPONSE #100
		SetGlobal("AquiredItemMR","GLOBAL",0)
		StartCutScene("ItFixMR")
END

IF
	HasItemEquiped("MRIMRIN2",Myself) // Imoen's Bracelet
	Global("AquiredItemMR","GLOBAL",1)
THEN
	RESPONSE #100
		TakeItemReplace("MRIMRIN1","MRIMRIN2",Myself) // Imoen's Bracelet
		SetGlobal("AquiredItemMR","GLOBAL",2)
END

IF
	InParty(Myself)
	Global("HeyWeGotTheLanthornMR","GLOBAL",1)
	!Global("ImoenRomanceActive","GLOBAL",2)
	Global("AskSoulMR","GLOBAL",0)
	!Global("PressedMR","LOCALS",339)
	!G("PressedMR",1)
THEN
	RESPONSE #100
		SetGlobal("AskSoulMR","GLOBAL",1)
END

IF
	InParty(Myself)
	Global("HeyWeGotTheLanthornMR","GLOBAL",1)
	Global("ImoenRomanceActive","GLOBAL",2)
	Global("PreAskSoulMR","GLOBAL",0)
	!Global("PressedMR","LOCALS",339)
	!G("PressedMR",1)
THEN
	RESPONSE #100
		SetGlobal("PreAskSoulMR","GLOBAL",1)
END

IF
	InParty(Myself)
	Global("ImoenRomanceActive","GLOBAL",2)
	Global("PreAskSoulMR","GLOBAL",1)
	G("WeAreTogetherAtLastMR",1)
	!Global("PressedMR","LOCALS",339)
	!G("PressedMR",1)
THEN
	RESPONSE #100
		SetGlobal("PreAskSoulMR","GLOBAL",2)
		RealSetGlobalTimer("AskSoulTimerMR","GLOBAL",600)
END

IF
	InParty(Myself)
	Global("ImoenRomanceActive","GLOBAL",2)
	Global("PreAskSoulMR","GLOBAL",2)
	RealGlobalTimerExpired("AskSoulTimerMR","GLOBAL")
	G("WeAreTogetherAtLastMR",1)
	Global("AskSoulMR","GLOBAL",0)
	!Global("PressedMR","LOCALS",339)
	!G("PressedMR",1)
THEN
	RESPONSE #100
		SetGlobal("AskSoulMR","GLOBAL",1)
END

IF
	InParty(Myself)
	Global("PlayerLooksLikeDrow","GLOBAL",1)
	Global("ImoenDrowTalkMR","GLOBAL",0)
	!Global("PressedMR","LOCALS",339)
	!G("PressedMR",1)
THEN
	RESPONSE #100
		SetGlobal("ImoenDrowTalkMR","GLOBAL",1)
		RealSetGlobalTimer("DrowTimerMR","GLOBAL",60)
END

IF
	InParty(Myself)
	Detect(Player1)
	CombatCounter(0)
	!See([ENEMY])
	!ActuallyInCombat()
	!StateCheck(Player1,STATE_SLEEPING)
	Global("ImoenDrowTalkMR","GLOBAL",1)
	Global("DrowSkinMR","GLOBAL",0)
	RealGlobalTimerExpired("DrowTimerMR","GLOBAL")
	!Global("PressedMR","LOCALS",339)
	!G("PressedMR",1)
THEN
	RESPONSE #100
		SetGlobal("ImoenDrowTalkMR","GLOBAL",2)
		SetGlobal("DrowSkinMR","GLOBAL",1)
		StartDialog("IMOEN2J",Player1)
END

IF
	InParty(Myself)
	CheckStatGT(Myself,5,FATIGUE)
	!StateCheck(Player1,STATE_SLEEPING)
	Detect(Player1)
	Global("Rest1MR","GLOBAL",0)
	!Global("PressedMR","LOCALS",339)
	!G("PressedMR",1)
THEN
	RESPONSE #100
		SetGlobal("Rest1MR","GLOBAL",1)
		RealSetGlobalTimer("RealRestTimerMR","GLOBAL",30)
		Continue()
END

IF
	InParty(Myself)
	CheckStatGT(Myself,5,FATIGUE)
	!StateCheck(Player1,STATE_SLEEPING)
	See(Player1)
	CombatCounter(0)
	!See([ENEMY])
	!ActuallyInCombat()
	RealGlobalTimerExpired("RealRestTimerMR","GLOBAL")
	Global("Rest1MR","GLOBAL",1)
	!Global("PressedMR","LOCALS",339)
	!G("PressedMR",1)
THEN
	RESPONSE #100
		SetGlobal("Rest1MR","GLOBAL",2)
		SetGlobal("ImTiredMR","GLOBAL",1)
		SetGlobalTimer("RestTimerMR","GLOBAL",3600)
		StartDialog("IMOEN2J",Player1)
END

IF
	InParty(Myself)
	!CheckStatGT(Myself,5,FATIGUE)
	!StateCheck(Player1,STATE_SLEEPING)
	Detect(Player1)
	RealGlobalTimerExpired("RealRestTimerMR","GLOBAL")
	Global("Rest1MR","GLOBAL",1)
	!Global("PressedMR","LOCALS",339)
	!G("PressedMR",1)
THEN
	RESPONSE #100
		SetGlobal("Rest1MR","GLOBAL",0)
		Continue()
END

IF
	InParty(Myself)
	CheckStatGT(Myself,5,FATIGUE)
	!StateCheck(Player1,STATE_SLEEPING)
	Detect(Player1)
	Global("Rest1MR","GLOBAL",2)
	GlobalTimerExpired("RestTimerMR","GLOBAL")
	Global("Rest2MR","GLOBAL",0)
	!Global("PressedMR","LOCALS",339)
	!G("PressedMR",1)
THEN
	RESPONSE #100
		SetGlobal("Rest2MR","GLOBAL",1)
		RealSetGlobalTimer("RealRestTimerMR","GLOBAL",30)
		Continue()
END

IF
	InParty(Myself)
	CheckStatGT(Myself,5,FATIGUE)
	!StateCheck(Player1,STATE_SLEEPING)
	CombatCounter(0)
	!Detect([ENEMY])
	!ActuallyInCombat()
	See(Player1)
	Global("Rest1MR","GLOBAL",2)
	RealGlobalTimerExpired("RealRestTimerMR","GLOBAL")
	Global("Rest2MR","GLOBAL",1)
	!Global("PressedMR","LOCALS",339)
	!G("PressedMR",1)
THEN
	RESPONSE #100
		SetGlobal("Rest2MR","GLOBAL",2)
		SetGlobal("ImTired2MR","GLOBAL",1)
		SetGlobalTimer("RestTimerMR","GLOBAL",3600)
		StartDialog("IMOEN2J",Player1)
END

IF
	InParty(Myself)
	!CheckStatGT(Myself,5,FATIGUE)
	!StateCheck(Player1,STATE_SLEEPING)
	Detect(Player1)
	RealGlobalTimerExpired("RealRestTimerMR","GLOBAL")
	Global("Rest2MR","GLOBAL",1)
	!Global("PressedMR","LOCALS",339)
	!G("PressedMR",1)
THEN
	RESPONSE #100
		SetGlobal("Rest2MR","GLOBAL",0)
		Continue()
END

IF
	InParty(Myself)
	Global("Rest2MR","GLOBAL",2)
	CheckStatGT(Myself,5,FATIGUE)
	!StateCheck(Player1,STATE_SLEEPING)
	Detect(Player1)
	GlobalTimerExpired("RestTimerMR","GLOBAL")
	Global("Rest3MR","GLOBAL",0)
	!Global("PressedMR","LOCALS",339)
	!G("PressedMR",1)
THEN
	RESPONSE #100
		SetGlobal("Rest3MR","GLOBAL",1)
		RealSetGlobalTimer("RealRestTimerMR","GLOBAL",30)
		Continue()
END

IF
	InParty(Myself)
	Global("Rest2MR","GLOBAL",2)
	CheckStatGT(Myself,5,FATIGUE)
	!StateCheck(Player1,STATE_SLEEPING)
	See(Player1)
	CombatCounter(0)
	!Detect([ENEMY])
	!ActuallyInCombat()
	Global("Rest2MR","GLOBAL",2)
	GlobalTimerExpired("RestTimerMR","GLOBAL")
	RealGlobalTimerExpired("RealRestTimerMR","GLOBAL")
	Global("Rest3MR","GLOBAL",1)
	!Global("PressedMR","LOCALS",339)
	!G("PressedMR",1)
THEN
	RESPONSE #100
		SetGlobal("Rest3MR","GLOBAL",2)
		SetGlobal("ImTired3MR","GLOBAL",1)
		SetGlobalTimer("RestTimerMR","GLOBAL",3600)
		StartDialog("IMOEN2J",Player1)
END

IF
	InParty(Myself)
	!CheckStatGT(Myself,5,FATIGUE)
	!StateCheck(Player1,STATE_SLEEPING)
	Detect(Player1)
	RealGlobalTimerExpired("RealRestTimerMR","GLOBAL")
	Global("Rest3MR","GLOBAL",1)
	!Global("PressedMR","LOCALS",339)
	!G("PressedMR",1)
THEN
	RESPONSE #100
		SetGlobal("Rest3MR","GLOBAL",0)
		Continue()
END

IF
	InParty(Myself)
	GlobalGT("Chapter","GLOBAL",5)
	Global("KidnapMeMR","GLOBAL",0)
THEN
	RESPONSE #100
		SetGlobal("KidnapMeMR","GLOBAL",1)
		Continue()
END

IF
	InParty(Myself)
	Global("ImoenRomanceActive","GLOBAL",1)
	OR(9)
		Global("NaliaRomanceActive","GLOBAL",2)
		Global("TashiaRomanceActive","GLOBAL",2)
		Global("J#KelseyRomanceActive","GLOBAL",2)
		Global("AnomenRomanceActive","GLOBAL",2)
		Global("ValygarRomanceActive","GLOBAL",2)
		G("ChrystaRomanceActive",2)
		G("SimeRomanceActive",2)
		G("EdwinRomanceActive",2)
		G("ChloeRomanceActiveCR",2)
THEN
	RESPONSE #100
		SetGlobal("ImoenRomanceActive","GLOBAL",4)
		Continue()
END

IF
	InParty(Myself)
	Global("ImoenRomanceActive","GLOBAL",2)
	Global("DontjerklikethatSimMR","GLOBAL",0)
	OR(2)
		G("SimeRomanceActive",2)
		Global("SimeRomanceActive","GLOBAL",1)
THEN
	RESPONSE #100
		SetGlobal("DontjerklikethatSimMR","GLOBAL",1)
		SetGlobal("SimeRomanceActive","GLOBAL",3)
		Continue()
END

IF
	InParty(Myself)
	Global("ImoenRomanceActive","GLOBAL",2)
	Global("DontjerklikethatChloMR","GLOBAL",0)
	OR(2)
		G("ChloeRomanceActiveCR",2)
		Global("ChloeRomanceActiveCR","GLOBAL",1)
THEN
	RESPONSE #100
		SetGlobal("DontjerklikethatChloMR","GLOBAL",1)
		SetGlobal("ChloeRomanceActiveCR","GLOBAL",3)
		Continue()
END

IF
	InParty(Myself)
	Global("ImoenRomanceActive","GLOBAL",2)
	Global("DontjerklikethatChrMR","GLOBAL",0)
	OR(2)
		G("ChrystaRomanceActive",2)
		Global("ChrystaRomanceActive","GLOBAL",1)
THEN
	RESPONSE #100
		SetGlobal("DontjerklikethatChrMR","GLOBAL",1)
		SetGlobal("ChrystaRomanceActive","GLOBAL",3)
		Continue()
END

IF
	InParty(Myself)
	Global("ImoenRomanceActive","GLOBAL",2)
	Global("DontjerklikethatTasMR","GLOBAL",0)
	OR(2)
		G("TashiaRomanceActive",2)
		Global("TashiaRomanceActive","GLOBAL",1)
THEN
	RESPONSE #100
		SetGlobal("DontjerklikethatTasMR","GLOBAL",1)
		SetGlobal("TashiaRomanceActive","GLOBAL",3)
		Continue()
END

IF
	InParty(Myself)
	Global("ImoenRomanceActive","GLOBAL",2)
	Global("DontjerklikethatValMR","GLOBAL",0)
	OR(2)
		G("ValygarRomanceActive",2)
		Global("ValygarRomanceActive","GLOBAL",1)
THEN
	RESPONSE #100
		SetGlobal("DontjerklikethatValMR","GLOBAL",1)
		SetGlobal("ValygarRomanceActive","GLOBAL",3)
		Continue()
END

IF
	InParty(Myself)
	Global("ImoenRomanceActive","GLOBAL",2)
	Global("DontjerklikethatKelMR","GLOBAL",0)
	OR(2)
		G("J#KelseyRomanceActive",2)
		Global("J#KelseyRomanceActive","GLOBAL",1)
THEN
	RESPONSE #100
		SetGlobal("DontjerklikethatKelMR","GLOBAL",1)
		SetGlobal("J#KelseyRomanceActive","GLOBAL",3)
		Continue()
END

IF
	InParty(Myself)
	Global("Dontjerklikethat1MR","GLOBAL",0)
	Global("ImoenRomanceActive","GLOBAL",2)
	OR(2)
		Global("JaheiraRomanceActive","GLOBAL",2)
		Global("JaheiraRomanceActive","GLOBAL",1)
THEN
	RESPONSE #100
		SetGlobal("JaheiraRomanceActive","GLOBAL",3)
		SetGlobal("Dontjerklikethat1MR","GLOBAL",1)
		Continue()
END

IF
	InParty(Myself)
	Global("Dontjerklikethat2MR","GLOBAL",0)
	Global("ImoenRomanceActive","GLOBAL",2)
	OR(2)
		Global("ViconiaRomanceActive","GLOBAL",2)
		Global("ViconiaRomanceActive","GLOBAL",1)
THEN
	RESPONSE #100
		SetGlobal("ViconiaRomanceActive","GLOBAL",3)
		SetGlobal("Dontjerklikethat2MR","GLOBAL",1)
		Continue()
END

IF
	InParty(Myself)
	Global("Dontjerklikethat3MR","GLOBAL",0)
	Global("ImoenRomanceActive","GLOBAL",2)
	OR(2)
		Global("AerieRomanceActive","GLOBAL",2)
		Global("AerieRomanceActive","GLOBAL",1)
THEN
	RESPONSE #100
		SetGlobal("Dontjerklikethat3MR","GLOBAL",1)
		SetGlobal("AerieRomanceActive","GLOBAL",3)
		Continue()
END

IF
	InParty(Myself)
	Global("Dontjerklikethat4MR","GLOBAL",0)
	Global("ImoenRomanceActive","GLOBAL",2)
	OR(2)
		G("NaliaRomanceActive",2)
		Global("NaliaRomanceActive","GLOBAL",1)
THEN
	RESPONSE #100
		SetGlobal("NaliaRomanceActive","GLOBAL",3)
		SetGlobal("Dontjerklikethat4MR","GLOBAL",1)
		Continue()
END

IF
	InParty(Myself)
	Global("ImoenRomanceActive","GLOBAL",2)
	OR(2)
		G("AnomenRomanceActive",2)
		Global("AnomenRomanceActive","GLOBAL",1)
	Global("Dontjerklikethat5MR","GLOBAL",0)
THEN
	RESPONSE #100
		SetGlobal("AnomenRomanceActive","GLOBAL",3)
		SetGlobal("Dontjerklikethat5MR","GLOBAL",1)
		Continue()
END

IF
	InParty(Myself)
	!Global("ImoenRomanceActive","GLOBAL",3)
	HasItemEquiped("RING39",Player1) // Ring of Gaxx
	Global("StealGaxxMR","GLOBAL",0)
	!Global("PressedMR","LOCALS",339)
	!G("PressedMR",1)
THEN
	RESPONSE #100
		SetGlobal("StealGaxxMR","GLOBAL",1)
		RealSetGlobalTimer("StealGaxxTimerMR","GLOBAL",10000)
END

IF
	InParty(Myself)
	!Global("ImoenRomanceActive","GLOBAL",3)
	HasItemEquiped("RING39",Player1) // Ring of Gaxx
	!HasItemEquiped("RING39",Myself) // Ring of Gaxx
	Global("StealGaxxMR","GLOBAL",1)
	RealGlobalTimerExpired("StealGaxxTimerMR","GLOBAL")
	See(Player1)
	Global("GaxxImoenTriggerMR","GLOBAL",0)
	CombatCounter(0)
	!Detect([ENEMY])
	!ActuallyInCombat()
	!StateCheck(Player1,STATE_SLEEPING)
	!Global("PressedMR","LOCALS",339)
	!G("PressedMR",1)
THEN
	RESPONSE #100
		SetGlobal("StealGaxxMR","GLOBAL",2)
		SetGlobal("GaxxImoenTriggerMR","GLOBAL",1)
		StartDialog("IMOEN2J",Player1)
END

IF
	InParty(Myself)
	!Global("ImoenRomanceActive","GLOBAL",3)
	OR(2)
		!HasItemEquiped("RING39",Player1) // Ring of Gaxx
		HasItemEquiped("RING39",Myself) // Ring of Gaxx
	See(Player1)
	Global("StealGaxxMR","GLOBAL",1)
	RealGlobalTimerExpired("StealGaxxTimerMR","GLOBAL")
	CombatCounter(0)
	!Detect([ENEMY])
	!ActuallyInCombat()
	!StateCheck(Player1,STATE_SLEEPING)
	!Global("PressedMR","LOCALS",339)
	!G("PressedMR",1)
THEN
	RESPONSE #100
		SetGlobal("StealGaxxMR","GLOBAL",3)
END

IF
	InParty(Myself)
	!Global("ImoenRomanceActive","GLOBAL",3)
	HasItemEquiped("RING39",Player1) // Ring of Gaxx
	!G("PressedMR",1)
	!HasItemEquiped("RING39",Myself) // Ring of Gaxx
	Global("StealGaxxMR","GLOBAL",3)
THEN
	RESPONSE #100
		SetGlobal("StealGaxxMR","GLOBAL",1)
		RealSetGlobalTimer("StealGaxxTimerMR","GLOBAL",300)
END

IF
	InParty(Myself)
	!Global("ImoenRomanceActive","GLOBAL",3)
	OR(4)
		HasItemEquiped("BELT06",Player1) // Girdle of Hill Giant Strength
		HasItemEquiped("BELT07",Player1) // Girdle of Stone Giant Strength
		HasItemEquiped("BELT08",Player1) // Girdle of Frost Giant Strength
		HasItemEquiped("BELT11",Player1) // Girdle of Fire Giant Strength
	!HasItemEquiped("BELT06",Myself) // Girdle of Hill Giant Strength
	!G("PressedMR",1)
	!HasItemEquiped("BELT07",Myself) // Girdle of Stone Giant Strength
	!HasItemEquiped("BELT08",Myself) // Girdle of Frost Giant Strength
	!HasItemEquiped("BELT11",Myself) // Girdle of Fire Giant Strength
	Global("StealGirdleMR","GLOBAL",0)
THEN
	RESPONSE #100
		SetGlobal("StealGirdleMR","GLOBAL",1)
		RealSetGlobalTimer("StealGirdleTimerMR","GLOBAL",25000)
END

IF
	InParty(Myself)
	!Global("ImoenRomanceActive","GLOBAL",3)
	OR(4)
		HasItemEquiped("BELT06",Player1) // Girdle of Hill Giant Strength
		HasItemEquiped("BELT07",Player1) // Girdle of Stone Giant Strength
		HasItemEquiped("BELT08",Player1) // Girdle of Frost Giant Strength
		HasItemEquiped("BELT11",Player1) // Girdle of Fire Giant Strength
	Global("StealGirdleMR","GLOBAL",1)
	!HasItemEquiped("BELT06",Myself) // Girdle of Hill Giant Strength
	!G("PressedMR",1)
	!HasItemEquiped("BELT07",Myself) // Girdle of Stone Giant Strength
	!HasItemEquiped("BELT08",Myself) // Girdle of Frost Giant Strength
	!HasItemEquiped("BELT11",Myself) // Girdle of Fire Giant Strength
	See(Player1)
	RealGlobalTimerExpired("StealGirdleTimerMR","GLOBAL")
	Global("GirdleImoenTriggerMR","GLOBAL",0)
	CombatCounter(0)
	!Detect([ENEMY])
	!ActuallyInCombat()
	!Global("PressedMR","LOCALS",339)
	!StateCheck(Player1,STATE_SLEEPING)
THEN
	RESPONSE #100
		SetGlobal("StealGirdleMR","GLOBAL",2)
		SetGlobal("GirdleImoenTriggerMR","GLOBAL",1)
		StartDialog("IMOEN2J",Player1)
END

IF
	InParty(Myself)
	!Global("ImoenRomanceActive","GLOBAL",3)
	!HasItemEquiped("BELT06",Player1) // Girdle of Hill Giant Strength
	!HasItemEquiped("BELT07",Player1) // Girdle of Stone Giant Strength
	!HasItemEquiped("BELT08",Player1) // Girdle of Frost Giant Strength
	!HasItemEquiped("BELT11",Player1) // Girdle of Fire Giant Strength
	OR(4)
		HasItemEquiped("BELT06",Myself) // Girdle of Hill Giant Strength
		HasItemEquiped("BELT07",Myself) // Girdle of Stone Giant Strength
		HasItemEquiped("BELT08",Myself) // Girdle of Frost Giant Strength
		HasItemEquiped("BELT11",Myself) // Girdle of Fire Giant Strength
	See(Player1)
	Global("StealGirdleMR","GLOBAL",1)
	!G("PressedMR",1)
	RealGlobalTimerExpired("StealGirdleTimerMR","GLOBAL")
	CombatCounter(0)
	!Detect([ENEMY])
	!ActuallyInCombat()
	!Global("PressedMR","LOCALS",339)
	!StateCheck(Player1,STATE_SLEEPING)
THEN
	RESPONSE #100
		SetGlobal("StealGirdleMR","GLOBAL",3)
		Continue()
END

IF
	InParty(Myself)
	!Global("ImoenRomanceActive","GLOBAL",3)
	OR(4)
		HasItemEquiped("BELT06",Player1) // Girdle of Hill Giant Strength
		HasItemEquiped("BELT07",Player1) // Girdle of Stone Giant Strength
		HasItemEquiped("BELT08",Player1) // Girdle of Frost Giant Strength
		HasItemEquiped("BELT11",Player1) // Girdle of Fire Giant Strength
	!HasItemEquiped("BELT06",Myself) // Girdle of Hill Giant Strength
	!G("PressedMR",1)
	!HasItemEquiped("BELT07",Myself) // Girdle of Stone Giant Strength
	!HasItemEquiped("BELT08",Myself) // Girdle of Frost Giant Strength
	!HasItemEquiped("BELT11",Myself) // Girdle of Fire Giant Strength
	Global("StealGirdleMR","GLOBAL",3)
THEN
	RESPONSE #100
		SetGlobal("StealGirdleMR","GLOBAL",1)
		RealSetGlobalTimer("StealGirdleTimerMR","GLOBAL",300)
		Continue()
END

IF
	InParty(Myself)
	PartyGoldGT(29999)
	!PartyGoldGT(59999)
	!Global("HadSexMessyInterlude","GLOBAL",1)
	!Global("ImoenRomanceActive","GLOBAL",3)
	!G("PressedMR",1)
	!Global("ImoenRomanceActive","GLOBAL",0)
	Global("TalkingMoney","GLOBAL",0)
	GGT("ImTalksMR",1)
THEN
	RESPONSE #100
		SetGlobal("TalkingMoney","GLOBAL",1)
		RealSetGlobalTimer("ImoenMoney","GLOBAL",120)
END

IF
	InParty(Myself)
	PartyGoldGT(29999)
	See(Player1)
	!PartyGoldGT(59999)
	!Global("HadSexMessyInterlude","GLOBAL",1)
	!Global("ImoenRomanceActive","GLOBAL",3)
	!Global("ImoenRomanceActive","GLOBAL",0)
	!G("PressedMR",1)
	Global("TalkingMoney","GLOBAL",1)
	CombatCounter(0)
	!Detect([ENEMY])
	!ActuallyInCombat()
	!Global("PressedMR","LOCALS",339)
	RealGlobalTimerExpired("ImoenMoney","GLOBAL")
THEN
	RESPONSE #100
		ActionOverride(Player1,SetDialog("Player1"))
		SetGlobal("TalkingMoney","GLOBAL",2)
		SetGlobal("1stMoneyTriggerMR","GLOBAL",1)
		StartDialog("IMOEN2J",Player1)
END

IF
	InParty(Myself)
	OR(2)
		!PartyGoldGT(29999)
		PartyGoldGT(59999)
	!Global("HadSexMessyInterlude","GLOBAL",1)
	!Global("ImoenRomanceActive","GLOBAL",3)
	!Global("ImoenRomanceActive","GLOBAL",0)
	Global("TalkingMoney","GLOBAL",1)
	!G("PressedMR",1)
	See(Player1)
	RealGlobalTimerExpired("ImoenMoney","GLOBAL")
THEN
	RESPONSE #100
		SetGlobal("TalkingMoney","GLOBAL",0)
END

IF
	InParty(Myself)
	PartyGoldGT(59999)
	!PartyGoldGT(99999)
	!Global("HadSexMessyInterlude","GLOBAL",1)
	!Global("ImoenRomanceActive","GLOBAL",3)
	!G("PressedMR",1)
	!Global("ImoenRomanceActive","GLOBAL",0)
	Global("TalkingMoney","GLOBAL",2)
THEN
	RESPONSE #100
		SetGlobal("TalkingMoney","GLOBAL",3)
		RealSetGlobalTimer("ImoenMoney","GLOBAL",60)
END

IF
	InParty(Myself)
	PartyGoldGT(59999)
	See(Player1)
	!PartyGoldGT(99999)
	!G("PressedMR",1)
	!Global("HadSexMessyInterlude","GLOBAL",1)
	!Global("ImoenRomanceActive","GLOBAL",3)
	!Global("ImoenRomanceActive","GLOBAL",0)
	CombatCounter(0)
	!Detect([ENEMY])
	!ActuallyInCombat()
	Global("TalkingMoney","GLOBAL",3)
	!Global("PressedMR","LOCALS",339)
	RealGlobalTimerExpired("ImoenMoney","GLOBAL")
THEN
	RESPONSE #100
		ActionOverride(Player1,SetDialog("Player1"))
		SetGlobal("TalkingMoney","GLOBAL",4)
		SetGlobal("2ndMoneyTriggerMR","GLOBAL",1)
		StartDialog("IMOEN2J",Player1)
END

IF
	InParty(Myself)
	OR(2)
		!PartyGoldGT(59999)
		PartyGoldGT(99999)
	!Global("HadSexMessyInterlude","GLOBAL",1)
	!Global("ImoenRomanceActive","GLOBAL",3)
	!Global("ImoenRomanceActive","GLOBAL",0)
	Global("TalkingMoney","GLOBAL",3)
	!G("PressedMR",1)
	RealGlobalTimerExpired("ImoenMoney","GLOBAL")
THEN
	RESPONSE #100
		SetGlobal("TalkingMoney","GLOBAL",2)
END

IF
	InParty(Myself)
	OR(2)
		!PartyGoldGT(29999)
		PartyGoldGT(99999)
	!G("PressedMR",1)
	!Global("HadSexMessyInterlude","GLOBAL",1)
	!Global("ImoenRomanceActive","GLOBAL",3)
	!Global("ImoenRomanceActive","GLOBAL",0)
	Global("TalkingMoney","GLOBAL",3)
	RealGlobalTimerExpired("ImoenMoney","GLOBAL")
THEN
	RESPONSE #100
		SetGlobal("TalkingMoney","GLOBAL",0)
END

IF
	InParty(Myself)
	PartyGoldGT(99999)
	!Global("HadSexMessyInterlude","GLOBAL",1)
	!Global("ImoenRomanceActive","GLOBAL",3)
	!Global("ImoenRomanceActive","GLOBAL",0)
	!G("PressedMR",1)
	Global("TalkingMoney","GLOBAL",4)
THEN
	RESPONSE #100
		SetGlobal("TalkingMoney","GLOBAL",5)
		RealSetGlobalTimer("ImoenMoney","GLOBAL",60)
END

IF
	InParty(Myself)
	See(Player1)
	PartyGoldGT(99999)
	!Global("HadSexMessyInterlude","GLOBAL",1)
	!Global("ImoenRomanceActive","GLOBAL",3)
	!Global("ImoenRomanceActive","GLOBAL",0)
	CombatCounter(0)
	!G("PressedMR",1)
	!Detect([ENEMY])
	!ActuallyInCombat()
	Global("TalkingMoney","GLOBAL",5)
	!Global("PressedMR","LOCALS",339)
	RealGlobalTimerExpired("ImoenMoney","GLOBAL")
THEN
	RESPONSE #100
		ActionOverride(Player1,SetDialog("Player1"))
		SetGlobal("TalkingMoney","GLOBAL",6)
		SetGlobal("3rdMoneyTriggerMR","GLOBAL",1)
		StartDialog("IMOEN2J",Player1)
END

IF
	InParty(Myself)
	!PartyGoldGT(99999)
	!Global("HadSexMessyInterlude","GLOBAL",1)
	!Global("ImoenRomanceActive","GLOBAL",3)
	!Global("ImoenRomanceActive","GLOBAL",0)
	Global("TalkingMoney","GLOBAL",5)
	!G("PressedMR",1)
	RealGlobalTimerExpired("ImoenMoney","GLOBAL")
THEN
	RESPONSE #100
		SetGlobal("TalkingMoney","GLOBAL",4)
END

IF
	InParty(Myself)
	OR(2)
		!PartyGoldGT(99999)
		PartyGoldGT(59999)
	!Global("HadSexMessyInterlude","GLOBAL",1)
	!Global("ImoenRomanceActive","GLOBAL",3)
	!Global("ImoenRomanceActive","GLOBAL",0)
	Global("TalkingMoney","GLOBAL",5)
	!G("PressedMR",1)
	RealGlobalTimerExpired("ImoenMoney","GLOBAL")
THEN
	RESPONSE #100
		SetGlobal("TalkingMoney","GLOBAL",2)
END

IF
	InParty(Myself)
	OR(2)
		!PartyGoldGT(99999)
		PartyGoldGT(29999)
	!G("PressedMR",1)
	!Global("HadSexMessyInterlude","GLOBAL",1)
	!Global("ImoenRomanceActive","GLOBAL",3)
	!Global("ImoenRomanceActive","GLOBAL",0)
	Global("TalkingMoney","GLOBAL",5)
	RealGlobalTimerExpired("ImoenMoney","GLOBAL")
THEN
	RESPONSE #100
		SetGlobal("TalkingMoney","GLOBAL",0)
		Continue()
END

IF
	G("ImLoveTalkMR",1)
THEN
	RESPONSE #100
		SG("ImLoveTalkMR",0)
		SG("ImTalksMR",1)
END

IF
	G("ImLoveTalkMR",2)
THEN
	RESPONSE #100
		SG("ImLoveTalkMR",0)
		SG("ImTalksMR",2)
END

IF
	G("ImLoveTalkMR",3)
THEN
	RESPONSE #100
		SG("ImLoveTalkMR",0)
		SG("ImTalksMR",3)
END

IF
	G("ImLoveTalkMR",4)
THEN
	RESPONSE #100
		SG("ImLoveTalkMR",0)
		SG("ImTalksMR",4)
END

IF
	G("ImLoveTalkMR",5)
THEN
	RESPONSE #100
		SG("ImLoveTalkMR",0)
		SG("ImTalksMR",5)
END

IF
	G("ImLoveTalkMR",6)
THEN
	RESPONSE #100
		SG("ImLoveTalkMR",0)
		SG("ImTalksMR",6)
END

IF
	G("ImLoveTalkMR",7)
THEN
	RESPONSE #100
		SG("ImLoveTalkMR",0)
		SG("ImTalksMR",7)
END

IF
	G("ImLoveTalkMR",8)
THEN
	RESPONSE #100
		SG("ImLoveTalkMR",0)
		SG("ImTalksMR",8)
END

IF
	G("ImLoveTalkMR",9)
THEN
	RESPONSE #100
		SG("ImLoveTalkMR",0)
		SG("ImTalksMR",9)
END

IF
	G("ImLoveTalkMR",10)
THEN
	RESPONSE #100
		SG("ImLoveTalkMR",0)
		SG("ImTalksMR",10)
END

IF
	G("ImLoveTalkMR",11)
THEN
	RESPONSE #100
		SG("ImLoveTalkMR",0)
		SG("ImTalksMR",11)
END

IF
	G("ImLoveTalkMR",12)
THEN
	RESPONSE #100
		SG("ImLoveTalkMR",0)
		SG("ImTalksMR",12)
END

IF
	G("ImLoveTalkMR",13)
THEN
	RESPONSE #100
		SG("ImLoveTalkMR",0)
		SG("ImTalksMR",13)
END

IF
	G("ImLoveTalkMR",14)
THEN
	RESPONSE #100
		SG("ImLoveTalkMR",0)
		SG("ImTalksMR",14)
END

IF
	Global("ImTalksMR","GLOBAL",0)
	InParty(Myself)
THEN
	RESPONSE #100
		RealSetGlobalTimer("ImoenRomance","GLOBAL",650)
		SetGlobal("ImTalksMR","GLOBAL",1)
END

IF
	InParty(Myself)
	RealGlobalTimerExpired("ImoenRomance","GLOBAL")
	!Global("ImoenRomanceActive","GLOBAL",0)
	!Global("ImoenRomanceActive","GLOBAL",3)
	!Global("HadSexMessyInterlude","GLOBAL",1)
	!Global("ImoenRomanceActive","GLOBAL",2)
	See(Player1)
	CombatCounter(0)
	!Detect([ENEMY])
	!ActuallyInCombat()
	!StateCheck(Player1,STATE_SLEEPING)
	!Global("PressedMR","LOCALS",339)
	OR(4)
		Global("ImTalksMR","GLOBAL",1)
		Global("ImTalksMR","GLOBAL",3)
		Global("ImTalksMR","GLOBAL",5)
		Global("ImTalksMR","GLOBAL",7)
THEN
	RESPONSE #100
		IncrementGlobal("ImTalksMR","GLOBAL",1)
		StartDialog("BIMOEN2",Player1)
		RealSetGlobalTimer("ImoenRomance","GLOBAL",40)
END

IF
	InParty(Myself)
	RealGlobalTimerExpired("ImoenRomance","GLOBAL")
	OR(4)
		Global("ImTalksMR","GLOBAL",2)
		Global("ImTalksMR","GLOBAL",4)
		Global("ImTalksMR","GLOBAL",6)
		Global("ImTalksMR","GLOBAL",8)
THEN
	RESPONSE #100
		IncrementGlobal("ImTalksMR","GLOBAL",1)
		RealSetGlobalTimer("ImoenRomance","GLOBAL",5500)
END

IF
	InParty(Myself)
	RealGlobalTimerExpired("ImoenRomance","GLOBAL")
	!StateCheck(Player1,STATE_SLEEPING)
	Global("ImoenRomanceActive","GLOBAL",2)
	Global("WeAreTogetherAtLastMR","GLOBAL",1)
	See(Player1)
	!Global("HadSexMessyInterlude","GLOBAL",1)
	CombatCounter(0)
	!Detect([ENEMY])
	!ActuallyInCombat()
	OR(2)
		Global("ImTalksMR","GLOBAL",9)
		Global("ImTalksMR","GLOBAL",11)
	!Global("PressedMR","LOCALS",339)
THEN
	RESPONSE #100
		ActionOverride(Player1,SetDialog("Player1"))
		IncrementGlobal("ImTalksMR","GLOBAL",1)
		StartDialog("BIMOEN2",Player1)
		RealSetGlobalTimer("ImoenRomance","GLOBAL",30)
END

IF
	InParty(Myself)
	RealGlobalTimerExpired("ImoenRomance","GLOBAL")
	OR(2)
		Global("ImTalksMR","GLOBAL",10)
		Global("ImTalksMR","GLOBAL",12)
	!Global("PressedMR","LOCALS",339)
THEN
	RESPONSE #100
		IncrementGlobal("ImTalksMR","GLOBAL",1)
		RealSetGlobalTimer("ImoenRomance","GLOBAL",3900)
END

IF
	AreaCheck("AR2500")
	InParty(Myself)
	!Global("ImoenRomanceActive","GLOBAL",3)
	Global("EscapedUnderdarkMR","GLOBAL",0)
THEN
	RESPONSE #100
		SetGlobal("EscapedUnderdarkMR","GLOBAL",1)
		RealSetGlobalTimer("RestSuggestionMR","GLOBAL",100)
END

IF
	InParty(Myself)
	Detect(Player1)
	Global("EscapedUnderdarkMR","GLOBAL",1)
	RealGlobalTimerExpired("RestSuggestionMR","GLOBAL")
	!Global("ImoenRomanceActive","GLOBAL",3)
	!StateCheck(Player1,STATE_SLEEPING)
THEN
	RESPONSE #100
		SetGlobal("EscapedUnderdarkMR","GLOBAL",2)
		StartDialog("BIMOEN2",Player1)
END

IF
	InParty(Myself)
	IsValidForPartyDialog("Imoen2")
	AreaCheck("AR0800")
	!Detect([ENEMY])
	!ActuallyInCombat()
	CombatCounter(0)
	G("WeAreGonnaHaveSexInTheElvenCamp",1)
THEN
	RESPONSE #100
		SetGlobal("WeAreGonnaHaveSexInTheElvenCamp","GLOBAL",5)
		StartDialog("BIMOEN2",Player1)
END

IF
	InParty(Myself)
	PartyHasItem("C6LANTHO") // Lanthorn
	Global("HeyWeGotTheLanthornMR","GLOBAL",0)
THEN
	RESPONSE #100
		SetGlobal("HeyWeGotTheLanthornMR","GLOBAL",1)
		Continue()
END

IF
	Global("ImoenReconciliation","GLOBAL",0)
	Global("HeyWeGotTheLanthornMR","GLOBAL",1)
THEN
	RESPONSE #100
		SetGlobal("HeyWeGotTheLanthornMR","GLOBAL",2)
		SetGlobal("ImoenReconciliation","GLOBAL",1)
		RealSetGlobalTimer("ImoenRomance","GLOBAL",3200)
		RealSetGlobalTimer("ImFriendshipMR","GLOBAL",4550)
		Continue()
END

IF
	InParty(Myself)
	Global("ImoenRomanceActive","GLOBAL",2)
	!StateCheck(Player1,STATE_SLEEPING)
	See(Player1)
	CombatCounter(0)
	!Detect([ENEMY])
	!ActuallyInCombat()
	Global("ImoenReconciliation","GLOBAL",1)
	AreaCheck("AR0800")
THEN
	RESPONSE #100
		ActionOverride(Player1,SetDialog("Player1"))
		SetGlobal("ImoenReconciliation","GLOBAL",2)
		ActionOverride(Player1,StartDialog("player1",Player1))
END

IF
	InParty(Myself)
	Global("ImoenUnconsciousMR","GLOBAL",2)
	!StateCheck("Imoen2",STATE_SLEEPING)
THEN
	RESPONSE #100
		Wait(1)
		ActionOverride(Player1,SetDialog("Player1"))
		SetGlobal("ImoenUnconsciousMR","GLOBAL",3)
		StartDialog("IMOEN2J",Player1)
END

IF
	InParty("Anomen")
	InParty("Imoen2")
	Global("WeAreTogetherAtLastMR","GLOBAL",1)
	Global("AnomenComplainsMR","GLOBAL",0)
THEN
	RESPONSE #100
		SetGlobal("AnomenComplainsMR","GLOBAL",1)
		RealSetGlobalTimer("AnomenBitchMR","GLOBAL",6)
		Continue()
END

IF
	InParty("Anomen")
	InParty("Imoen2")
	IsValidForPartyDialog("Anomen")
	IsValidForPartyDialog("Imoen2")
	See(Player1)
	CombatCounter(0)
	!Detect([ENEMY])
	!ActuallyInCombat()
	!StateCheck(Player1,STATE_SLEEPING)
	Global("WeAreTogetherAtLastMR","GLOBAL",1)
	Global("AnomenComplainsMR","GLOBAL",1)
	Global("AnomenThoughtMR","GLOBAL",0)
	RealGlobalTimerExpired("AnomenBitchMR","GLOBAL")
THEN
	RESPONSE #100
		SetGlobal("AnomenComplainsMR","GLOBAL",2)
		SetGlobal("AnomenThoughtMR","GLOBAL",1)
		ActionOverride("Anomen",StartDialogueNoSet(Player1))
END

IF
	InParty("Jaheira")
	InParty("Imoen2")
	Global("WeAreTogetherAtLastMR","GLOBAL",1)
	Global("JaheiraComplainsMR","GLOBAL",0)
THEN
	RESPONSE #100
		SetGlobal("JaheiraComplainsMR","GLOBAL",1)
		RealSetGlobalTimer("JaheiraBitchMR","GLOBAL",150)
END

IF
	InParty("Jaheira")
	InParty("Imoen2")
	IsValidForPartyDialog("Jaheira")
	IsValidForPartyDialog("Imoen2")
	See(Player1)
	CombatCounter(0)
	!Detect([ENEMY])
	!ActuallyInCombat()
	!StateCheck(Player1,STATE_SLEEPING)
	Global("WeAreTogetherAtLastMR","GLOBAL",1)
	Global("JaheiraComplainsMR","GLOBAL",1)
	Global("JaheiraThoughtMR","GLOBAL",0)
	RealGlobalTimerExpired("JaheiraBitchMR","GLOBAL")
THEN
	RESPONSE #100
		SetGlobal("JaheiraComplainsMR","GLOBAL",2)
		SetGlobal("JaheiraThoughtMR","GLOBAL",1)
		ActionOverride("Jaheira",StartDialogueNoSet(Player1))
END

IF
	InParty("Viconia")
	InParty("Imoen2")
	Global("WeAreTogetherAtLastMR","GLOBAL",1)
	Global("ViconiaComplainsMR","GLOBAL",0)
THEN
	RESPONSE #100
		SetGlobal("ViconiaComplainsMR","GLOBAL",1)
		RealSetGlobalTimer("ViconiaBitchMR","GLOBAL",300)
END

IF
	InParty("Viconia")
	InParty("Imoen2")
	IsValidForPartyDialog("Viconia")
	IsValidForPartyDialog("Imoen2")
	See(Player1)
	CombatCounter(0)
	!Detect([ENEMY])
	!ActuallyInCombat()
	!StateCheck(Player1,STATE_SLEEPING)
	Global("WeAreTogetherAtLastMR","GLOBAL",1)
	Global("ViconiaComplainsMR","GLOBAL",1)
	Global("ViconiaThoughtMR","GLOBAL",0)
	RealGlobalTimerExpired("ViconiaBitchMR","GLOBAL")
THEN
	RESPONSE #100
		SetGlobal("ViconiaComplainsMR","GLOBAL",2)
		SetGlobal("ViconiaThoughtMR","GLOBAL",1)
		ActionOverride("Viconia",StartDialogueNoSet(Player1))
END

IF
	InParty("Aerie")
	InParty("Imoen2")
	Global("WeAreTogetherAtLastMR","GLOBAL",1)
	Global("AerieComplainsMR","GLOBAL",0)
THEN
	RESPONSE #100
		SetGlobal("AerieComplainsMR","GLOBAL",1)
		RealSetGlobalTimer("AerieBitchMR","GLOBAL",60)
END

IF
	InParty("Aerie")
	InParty("Imoen2")
	IsValidForPartyDialog("Aerie")
	IsValidForPartyDialog("Imoen2")
	See(Player1)
	CombatCounter(0)
	!Detect([ENEMY])
	!ActuallyInCombat()
	!StateCheck(Player1,STATE_SLEEPING)
	Global("WeAreTogetherAtLastMR","GLOBAL",1)
	Global("AerieComplainsMR","GLOBAL",1)
	!G("NoImoenFriendshipMR",1)
	Global("AerieThoughtMR","GLOBAL",0)
	RealGlobalTimerExpired("AerieBitchMR","GLOBAL")
THEN
	RESPONSE #100
		SetGlobal("AerieComplainsMR","GLOBAL",2)
		SetGlobal("AerieThoughtMR","GLOBAL",1)
		ActionOverride("Aerie",StartDialogueNoSet(Player1))
END

IF
	InParty("Aerie")
	InParty("Imoen2")
	IsValidForPartyDialog("Aerie")
	IsValidForPartyDialog("Imoen2")
	See(Player1)
	CombatCounter(0)
	!Detect([ENEMY])
	!ActuallyInCombat()
	!StateCheck(Player1,STATE_SLEEPING)
	Global("WeAreTogetherAtLastMR","GLOBAL",1)
	Global("AerieComplainsMR","GLOBAL",1)
	G("NoImoenFriendshipMR",1)
	Global("AerieThoughtMR","GLOBAL",0)
	RealGlobalTimerExpired("AerieBitchMR","GLOBAL")
THEN
	RESPONSE #100
		SetGlobal("AerieComplainsMR","GLOBAL",2)
		SetGlobal("AerieThoughtMR","GLOBAL",6)
		ActionOverride("Aerie",StartDialogueNoSet(Player1))
END

IF
	InParty("Keldorn")
	InParty("Imoen2")
	Global("WeAreTogetherAtLastMR","GLOBAL",1)
	Global("KeldornComplainsMR","GLOBAL",0)
THEN
	RESPONSE #100
		SetGlobal("KeldornComplainsMR","GLOBAL",1)
		RealSetGlobalTimer("KeldornBitchMR","GLOBAL",600)
END

IF
	InParty("Keldorn")
	InParty("Imoen2")
	IsValidForPartyDialog("Keldorn")
	IsValidForPartyDialog("Imoen2")
	See(Player1)
	CombatCounter(0)
	!Detect([ENEMY])
	!ActuallyInCombat()
	!StateCheck(Player1,STATE_SLEEPING)
	Global("WeAreTogetherAtLastMR","GLOBAL",1)
	Global("KeldornComplainsMR","GLOBAL",1)
	Global("KeldornThoughtMR","GLOBAL",0)
	RealGlobalTimerExpired("KeldornBitchMR","GLOBAL")
THEN
	RESPONSE #100
		SetGlobal("KeldornComplainsMR","GLOBAL",2)
		SetGlobal("KeldornThoughtMR","GLOBAL",1)
		ActionOverride("Keldorn",StartDialogueNoSet(Player1))
END

IF
	InParty("Imoen2")
	InParty("Aerie")
	IsValidForPartyDialog("Aerie")
	IsValidForPartyDialog("Imoen2")
	!Global("ImoenRomanceActive","GLOBAL",3)
	!Global("AerieRomanceActive","GLOBAL",6)
	Global("StartFriendshipMR","GLOBAL",0)
THEN
	RESPONSE #100
		SetGlobal("StartFriendshipMR","GLOBAL",1)
		RealSetGlobalTimer("ImFriendshipMR","GLOBAL",1900)
END

IF
	InParty("Imoen2")
	InParty("Aerie")
	IsValidForPartyDialog("Aerie")
	IsValidForPartyDialog("Imoen2")
	CombatCounter(0)
	!Detect([ENEMY])
	!ActuallyInCombat()
	!StateCheck("Imoen2",STATE_SLEEPING)
	!StateCheck("Aerie",STATE_SLEEPING)
	!StateCheck(Player1,STATE_SLEEPING)
	!Global("ImoenRomanceActive","GLOBAL",3)
	!Global("AerieRomanceActive","GLOBAL",6)
	Global("StartFriendshipMR","GLOBAL",1)
	RealGlobalTimerExpired("ImFriendShipMR","GLOBAL")
	Global("ImFriendMR","GLOBAL",0)
THEN
	RESPONSE #100
		SetGlobal("StartFriendshipMR","GLOBAL",2)
		RealSetGlobalTimer("ImFriendshipMR","GLOBAL",4250)
		SetGlobal("ImFriendMR","GLOBAL",1)
		PlaySong(34)
		ActionOverride("Aerie",StartDialogueNoSet("Imoen2"))
END

IF
	InParty("Imoen2")
	InParty("Aerie")
	IsValidForPartyDialog("Aerie")
	IsValidForPartyDialog("Imoen2")
	CombatCounter(0)
	!Detect([ENEMY])
	!ActuallyInCombat()
	!StateCheck("Imoen2",STATE_SLEEPING)
	!StateCheck("Aerie",STATE_SLEEPING)
	!StateCheck(Player1,STATE_SLEEPING)
	!G("NoImoenFriendshipMR",1)
	!Global("ImoenRomanceActive","GLOBAL",3)
	!Global("AerieRomanceActive","GLOBAL",2)
	RealGlobalTimerExpired("ImFriendShipMR","GLOBAL")
	Global("ImFriendMR","GLOBAL",2)
THEN
	RESPONSE #100
		RealSetGlobalTimer("ImFriendshipMR","GLOBAL",4650)
		SetGlobal("ImFriendMR","GLOBAL",3)
		PlaySong(34)
		StartDialog("IMOEN2J","Aerie")
END

IF
	InParty("Imoen2")
	InParty("Aerie")
	IsValidForPartyDialog("Aerie")
	IsValidForPartyDialog("Imoen2")
	CombatCounter(0)
	!Detect([ENEMY])
	!ActuallyInCombat()
	!StateCheck("Imoen2",STATE_SLEEPING)
	!StateCheck("Aerie",STATE_SLEEPING)
	!StateCheck(Player1,STATE_SLEEPING)
	!G("NoImoenFriendshipMR",1)
	!Global("ImoenRomanceActive","GLOBAL",3)
	!Global("AerieRomanceActive","GLOBAL",2)
	RealGlobalTimerExpired("ImFriendShipMR","GLOBAL")
	Global("ImFriendMR","GLOBAL",4)
THEN
	RESPONSE #100
		RealSetGlobalTimer("ImFriendshipMR","GLOBAL",4250)
		SetGlobal("ImFriendMR","GLOBAL",5)
		PlaySong(34)
		ActionOverride("Aerie",StartDialogueNoSet("Imoen2"))
END

IF
	InParty("Imoen2")
	InParty("Aerie")
	IsValidForPartyDialog("Aerie")
	IsValidForPartyDialog("Imoen2")
	CombatCounter(0)
	!Detect([ENEMY])
	!ActuallyInCombat()
	!StateCheck("Imoen2",STATE_SLEEPING)
	!StateCheck("Aerie",STATE_SLEEPING)
	!StateCheck(Player1,STATE_SLEEPING)
	!G("NoImoenFriendshipMR",1)
	!Global("ImoenRomanceActive","GLOBAL",3)
	!Global("AerieRomanceActive","GLOBAL",2)
	RealGlobalTimerExpired("ImFriendShipMR","GLOBAL")
	Global("ImFriendMR","GLOBAL",6)
THEN
	RESPONSE #100
		RealSetGlobalTimer("ImFriendshipMR","GLOBAL",4250)
		SetGlobal("ImFriendMR","GLOBAL",7)
		PlaySong(34)
		StartDialog("IMOEN2J","Aerie")
END

IF
	InParty("Imoen2")
	InParty("Aerie")
	IsValidForPartyDialog("Aerie")
	IsValidForPartyDialog("Imoen2")
	CombatCounter(0)
	!Detect([ENEMY])
	!ActuallyInCombat()
	!StateCheck("Imoen2",STATE_SLEEPING)
	!StateCheck("Aerie",STATE_SLEEPING)
	!StateCheck(Player1,STATE_SLEEPING)
	!G("NoImoenFriendshipMR",1)
	!Global("ImoenRomanceActive","GLOBAL",3)
	!Global("AerieRomanceActive","GLOBAL",2)
	RealGlobalTimerExpired("ImFriendShipMR","GLOBAL")
	Global("ImFriendMR","GLOBAL",9)
THEN
	RESPONSE #100
		RealSetGlobalTimer("ImFriendshipMR","GLOBAL",4250)
		SetGlobal("ImFriendMR","GLOBAL",10)
		PlaySong(34)
		StartDialog("IMOEN2J","Aerie")
END

IF
	InParty("Imoen2")
	InParty("Aerie")
	IsValidForPartyDialog("Aerie")
	IsValidForPartyDialog("Imoen2")
	CombatCounter(0)
	!Detect([ENEMY])
	!ActuallyInCombat()
	!StateCheck("Imoen2",STATE_SLEEPING)
	!StateCheck("Aerie",STATE_SLEEPING)
	!StateCheck(Player1,STATE_SLEEPING)
	Global("ImoenRomanceActive","GLOBAL",2)
	!G("NoImoenFriendshipMR",1)
	Global("WeAreTogetherAtLastMR","GLOBAL",1)
	!Global("AerieRomanceActive","GLOBAL",2)
	RealGlobalTimerExpired("ImFriendShipMR","GLOBAL")
	Global("ImFriendMR","GLOBAL",11)
THEN
	RESPONSE #100
		ActionOverride(Player1,SetDialog("Player1"))
		RealSetGlobalTimer("ImFriendshipMR","GLOBAL",4250)
		SetGlobal("ImFriendMR","GLOBAL",12)
		PlaySong(34)
		ActionOverride(Player1,StartDialog("Player1",Player1))
END

IF
	InParty(Myself)
	InParty("Aerie")
	Global("ImoenRomanceActive","GLOBAL",2)
	G("NoImoenFriendshipMR",1)
	Global("WeAreTogetherAtLastMR","GLOBAL",1)
	OR(2)
		Global("SleptAerie","GLOBAL",1)
		!Global("AerieRomanceActive","GLOBAL",2)
	G("TimerAerieNoFriendMR",0)
THEN
	RESPONSE #100
		SG("TimerAerieNoFriendMR",1)
		RealSetGlobalTimer("TimerAerieNoFriendTimerMR","GLOBAL",1200)
		Continue()
END

IF
	InParty(Myself)
	InParty("Aerie")
	IsValidForPartyDialog("Aerie")
	IsValidForPartyDialog("Imoen2")
	CombatCounter(0)
	!Detect([ENEMY])
	!ActuallyInCombat()
	!StateCheck("Imoen2",STATE_SLEEPING)
	!StateCheck("Aerie",STATE_SLEEPING)
	!StateCheck(Player1,STATE_SLEEPING)
	Global("ImoenRomanceActive","GLOBAL",2)
	G("NoImoenFriendshipMR",1)
	Global("WeAreTogetherAtLastMR","GLOBAL",1)
	OR(2)
		Global("SleptAerie","GLOBAL",1)
		!Global("AerieRomanceActive","GLOBAL",2)
	RealGlobalTimerExpired("TimerAerieNoFriendTimerMR","GLOBAL")
THEN
	RESPONSE #100
		SG("NoImoenFriendshipMR",2)
		StartDialog("IMOEN2J","Aerie")
END

IF
	InParty("Imoen2")
	InParty("Aerie")
	IsValidForPartyDialog("Aerie")
	IsValidForPartyDialog("Imoen2")
	CombatCounter(0)
	!Detect([ENEMY])
	!ActuallyInCombat()
	!StateCheck("Imoen2",STATE_SLEEPING)
	!StateCheck("Aerie",STATE_SLEEPING)
	!StateCheck(Player1,STATE_SLEEPING)
	GlobalTimerExpired("AerieFriendshipTimerMR","GLOBAL")
	G("NoImoenFriendshipMR",4)
	!Global("ImoenRomanceActive","GLOBAL",3)
THEN
	RESPONSE #100
		SetGlobal("NoImoenFriendshipMR","GLOBAL",5)
		PlaySong(34)
		StartDialog("IMOEN2J","Aerie")
END

IF
	InParty(Myself)
	IsValidForPartyDialog("Imoen2")
	CombatCounter(0)
	!Detect([ENEMY])
	!ActuallyInCombat()
	!Global("GonnaRestMR","GLOBAL",2)
	Global("GetARoomCharnameAtOnceMR","GLOBAL",0)
	RealGlobalTimerExpired("GetARoomCharnameMR","GLOBAL")
THEN
	RESPONSE #100
		SetGlobal("GetARoomCharnameAtOnceMR","GLOBAL",1)
		StartDialog("IMOEN2J",Player1)
END

IF
	InParty(Myself)
	Global("GonnaRestMR","GLOBAL",1)
	PartyRested()
THEN
	RESPONSE #100
		SetGlobal("GonnaRestMR","GLOBAL",2)
		SetGlobal("GetARoomCharnameAtOnceMR","GLOBAL",2)
		StartDialog("IMOEN2J",Player1)
END

IF
	Global("AwakenSingingImoenMR","GLOBAL",1)
	PartyRested()
THEN
	RESPONSE #100
		SetGlobal("AwakenSingingImoenMR","GLOBAL",2)
		ActionOverride(Player1,StartDialog("Player1",Player1))
END

IF
	InParty(Myself)
	Global("IntroduceMeMR","GLOBAL",1)
THEN
	RESPONSE #100
		RealSetGlobalTimer("IntroMeMR","GLOBAL",10)
		SetGlobal("IntroduceMeMR","GLOBAL",2)
END

IF
	InParty(Myself)
	Global("IntroduceMeMR","GLOBAL",2)
	RealGlobalTimerExpired("IntroMeMR","GLOBAL")
	CombatCounter(0)
	!Detect([ENEMY])
	!ActuallyInCombat()
	IsValidForPartyDialog("Imoen2")
	NumInPartyGT(2)
THEN
	RESPONSE #100
		ActionOverride(Player1,SetDialog("Player1"))
		SetGlobal("IntroduceMeMR","GLOBAL",3)
		StartDialog("IMOEN2J",Player1)
END

IF
	InParty(Myself)
	GlobalGT("PhaereInnuendo","GLOBAL",1)
	Global("WasThatGoodMR","GLOBAL",0)
	!G("PressedMR",1)
	!Global("PressedMR","LOCALS",339)
THEN
	RESPONSE #100
		SetGlobal("WasThatGoodMR","GLOBAL",1)
		RealSetGlobalTimer("ImoenPhaereCommentMR","GLOBAL",30)
END

IF
	InParty(Myself)
	RealGlobalTimerExpired("ImoenPhaereCommentMR","GLOBAL")
	Global("WasThatGoodMR","GLOBAL",1)
	CombatCounter(0)
	!Detect([ENEMY])
	!G("PressedMR",1)
	!ActuallyInCombat()
	See(Player1)
	!StateCheck(Player1,STATE_SLEEPING)
THEN
	RESPONSE #100
		SetGlobal("WasThatGoodMR","GLOBAL",2)
		StartDialog("IMOEN2J",Player1)
END

IF
	InParty(Myself)
	Global("ImoenMerchantMR","GLOBAL",1)
	!G("PressedMR",1)
	PartyGoldGT(200)
	!Global("ImoenRomanceActive","GLOBAL",3)
	!Global("HadSexMessyInterlude","GLOBAL",1)
	AreaCheck("AR0700")
THEN
	RESPONSE #100
		ActionOverride(Player1,SetDialog("Player1"))
		SetGlobal("ImoenMerchantMR","GLOBAL",2)
		CreateCreature("MRWOMER",[2050.1396],14) // Alisha the Merchant
END

IF
	InParty(Myself)
	Global("RingSellImoenMR","GLOBAL",7)
	!G("PressedMR",1)
	AreaCheck("AR0700")
THEN
	RESPONSE #100
		SetGlobal("RingSellImoenMR","GLOBAL",8)
		ActionOverride("MRWOMER",DestroySelf())
END

IF
	InParty(Myself)
	Global("ImoenWhewMR","GLOBAL",1)
THEN
	RESPONSE #100
		SetGlobal("ImoenWhewMR","GLOBAL",2)
		RealSetGlobalTimer("ImoenWhew2MR","GLOBAL",30)
		Continue()
END

IF
	InParty(Myself)
	Global("ImoenWhewMR","GLOBAL",2)
	RealGlobalTimerExpired("ImoenWhew2MR","GLOBAL")
	CombatCounter(0)
	!Detect([ENEMY])
	!ActuallyInCombat()
THEN
	RESPONSE #100
		SetGlobal("ImoenWhewMR","GLOBAL",3)
		StartDialog("IMOEN2J",Player1)
END

IF
	InParty(Myself)
	!G("PressedMR",1)
	Global("10YearsTriggerMR","GLOBAL",1)
	!Global("PressedMR","LOCALS",339)
THEN
	RESPONSE #100
		SetGlobal("10YearsTriggerMR","GLOBAL",2)
		RealSetGlobalTimer("10YearsMR","GLOBAL",300)
END

IF
	InParty(Myself)
	!G("PressedMR",1)
	Global("10YearsTriggerMR","GLOBAL",2)
	!Global("ImoenRomanceActive","GLOBAL",3)
	RealGlobalTimerExpired("10YearsMR","GLOBAL")
	!Global("PressedMR","LOCALS",339)
THEN
	RESPONSE #100
		SetGlobal("10YearsTriggerMR","GLOBAL",3)
		SetGlobal("10YearsImoenMR","GLOBAL",1)
END


